Digital PDFs

AH-9220D-MC

November 1979

318 pages

Original

15MB

view download

OCR Version

13MB

view download

Document:	CZRJID0 RP04-5-6 RP04-5-6 CTRLR 1 NOV 1979 bw
Order Number:	AH-9220D-MC
Revision:	000
Pages:	318
Original Filename:	CZRJID0__RP04-5-6__RP04-5-6_CTRLR_1__AH-9220D-MC__NOV_1979_bw.pdf

OCR Text

'RP04/5/6

CZRIIDO

convmr 50 7. SHENIED
FICHE

MADE

USA

FICHE2

MADE

S«

(IRJ1DO, RPO4L/S/6 FCTINL (TLRY

(2kJ1D0.PVY

28-MAR-79 09:03

MACY1T

30A(1052)

25-MAY-79

10:30

PAGE ?

SEQ 0001

.REM 3

IDENTIFICATION

PRODUCT

CODE:

AC-9218D-MC

PRODUCT NAME:

CZRJIDO RPO4/S5/6 FUNCTIONAL CONTROLLER TEST PART

DATE CREATED:

MAY,

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

PETE BLACKSTONE

1979

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO (HANGE
W1THOUT NOTICE AND SHOULD NOT.BE CONSTRUED AS A

COMM]ITTMENT BY DIGITAL EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPRNSIBIL]TY FOR ANY ERRORS THAT MAY APPEAR IN THIS

MANUAL.

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED
TO THE PURCHASER UNDER A LICENSE FOR USE 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 ]TS
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.

DIGITAL
DEC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

J100, RPO4/S/6 FCINL CTLRY

JiD.P

28-MAR-79 09:03

MACY1Y

30A(1052)

25-MAY-79

CONTENTS
1.

ABSTRACT

REQUIREMENTS

2.1

EQUIPMENT

2.2

STORAGE

2.3

PRELIMINARY PROGRAMS

LOADING PROCEDURE

3.1

ME THOD

STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS

4.2

STARTING ADDRESS OR ADDRESSES

4.3

PROGRAM AND/OR OPERATOR ACTION

OPERATING PROCEDURE

5.1

OPERATIONAL

SWITCH SETTINGS

5.2

SUB-ROUTINE

ABSTRACTS

ERRORS

6.1

"FATAL'

RESTRICTIONS

MISCELLANEOUS

8.1

EXECUTION TIME

8.2

STACK POINTER

8.3

OPERATOR SELECTABLE SCOPE LOOPS

8.4

PROGRAM REVISION HISTORY

ERRORS

PROGRAM DESCRIPTION

10:30

)

(S
PAGE 3

SEQ 0002

CIRJIIDO, RPOGL/S5/6 FCINL CTLRY
CIRJID.PW
28-MAR-79 09:03
1.0

MACY11

30A(1052)

25-MAY-79

10:30

1
PAGE &

SEQ 0003

ABSTRACT
THIS DIAGNOSTIC

1S USED TO TEST

CONNECTED TO AN RH11

RPO4/5/6 DEVICE

OR RH70 CONTROLLER.

CONTROL LOGIC

1T USES THE DISK SURFACE AND THE DRIve MECHANILS TO PROVE

THE PROPER WORKING OF THE SUBSYSTEM.
1T DOES NOT NEED A
FORMATTED DISK PACK.
A DISK PACK WITH NO VITAL INFORMATION
WRITTEN ON IT IS ESSENTIAL.
AFTER A SUCCESSFUL RUN (WITH
NO ERRORS) OF THIS DIAGNOSTIC 17 CAN BE ASSERTED THAT THE

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

SYSTEMS

INTERACTION AND DRIVE

TIMING

IS LEFT

OTHER DIAGNOSTICS.
THIS IS WITH THE ASSUMPTION THAT
DZRJGA AND DZRJHA HAVE BEEN RUN SUCCESSFULLY.

2.0

REQUIREMENTS

2.1

EQUIPMENT

PROGRAMS

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 DIsSK

DRIVE, AND ITS APPROPRIATE DISK PACK.
THE DISK PACK NEED
NOT BE FORMATTED.
USED SECTION OF THE D.SK SURFACE SHALL

BE GOOD (HOLE FREE).
MUST BE GOOD,

THAT

IS,

TRACK
TRACK
TRACK
TRACK
TRACK
TRACK
TRACK
TRACK

00,
00,
18,
00,
00,
00,
00,
00,

THE SURFACE FOR THE FOLLOWING SECTORS
FREE OF

ANY HOLES OR SURFACE

IRREGULARITY BEFORE ANY DATA ERROR (AN BE ATTIRIBUTED TO

THE

LOGIC.

CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER

CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER
CYLINDER

2.2

00,
00,
00,
01,
02,
03,
04,
05,

05, TRACK
06, TRACK
07, TRACK
08, TRACK
09, TRACK
410,TRACK

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

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

00
01
21
00
00
00
00
00

04
00
QC
90
21
21

STORAGE
THIS PROGRAM REQUIRES 10K WORDS OF MEMORY

2.3

PRELIMINARY PROGRAMS

THIS PROGRAM ASSUMES THAT MAINDEC-11-DZRJG=(LATEST
REV) HAS BEEN RUN WITHOUT ERRORS.
AND 1T ASSUMES THAT MAINDEC=11-DZRUH=(LATEST
REV) HAS BEEN RUN WITHOUT ERRORS.

MACY11

CIRJIDO, RPO&L/S/6 FCINL CTLRY
CZRJ1D.PIY
28-MAR-79 09:03
3.0

25-MAY-79

10:30

PAGE 5

SEQ 0004

LOADING PROCEDURE

USE
4.0

30AC1052)

STANDARD PROCEDURE FOR LOADING

.ABS TAPES

STARTING PROCEDURE

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

RH70 CONTROLLER.

CAN BE

SET AT

THE FRONT PANEL, OR

IN THE

SOF TWARE SWITCH REGISTER IF THE OPERATOR SO DESIRES.
SEE
83236??8H S.1 FOR A DESCRIPTION OF SOFTWARE SWITCH REGISTER
AT]ON.

CONTROL

SEE

SWITCH SETTINGS

SECTION 5.1

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 ''END PASS'' IS PRINTED OUT.
TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE
THAT 1S POWERED UP (THAT 1S THE LOWEST UNIT NUMBER RHAS REGISTER
THAT RESPONDS)THEN GO ON TO THE NEXT HIGHER UNIT NUMBER

THAT

1S POWERED UP.

204 RESTART

SAME AS START 200 WITH THE FOLLOWING EXCEPTION.
THE
PROGRAM WILL INTERROGATE THE OPERATOR FOR A NON-STANDARD

ONCE THE
IS ALSO
(TYPICAL
PROGRAM EXECUTION FROM ADDRESS 210), OR IT IS NECESSARY
T0 RUN THE PROGRAM WiTHOUT MANUAL INTERVENTION (TYPICAL
PROGRAM EXECUTION FROM ADDRESS 220), THE PROCESSOR MAY
BE HALTED AND RESTARTED FROM THE DESIRED RESTART ADDRESS.
IF ALL UNITS ARE TO BE CHECKED, THE PROCESSOR NEED NOT BE
THE PROGRAM WILL AUTOMATICALLY RESTART AT ADDRESS
TOUCHED.
200 AFTER RECEIVING THE NEW DEVICE PARAMETERS.
C.S.R AND VECTOR ADDRESS BEFORE STARTING.

QUESTIONS HAVE BEEN CORRECTLY ANSWERED, AND 1T
NECESSARY TO SELECT A PARTICULAR UNIT FOR TEST

210 START

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

220 START

THE PROGRAM.

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

CIRJIDO, RPO&/S5/6 FCINL CTLRY
CZRJID.PVI
28-MAR~79 09:03

MACY1I1

30A(1052)

25-MAY-79

10:30

PAGE 6

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

INTERVENTION

6.3

PROGRAM AND/OR OPERATOR

LOAD

SET STARTING ADDRESS ON THE SWITCH REGISTER

PRESS ''LOAD ADDRESS''.

5.
6.

PROGRAM

INTO MEMORY.

SET "'OPERATIONAL SWITCH SETTINGS'® (SEE

WORST

CASE

IS ALL

FOR
REQUIRES MANUAL

ACTION

THE

SEa 0005

SWITCHES

DOWN.

SECTION 5.1)

PRESS ‘'START',
FOR THE FIRST PASS EACH TEST WItL Bt EXECUTED ONCE

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

THE FIRST PASS WILL REQUIRE OPERATOR

INTERVENTION IF THE PROGRAM IS NOT RUN UNDER AN ‘'ACT-11"

MONITOR.
EACH TEST

THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE
FOUR TIMES ON EACH DRIVES PRESENT OR DRIVE
SELECTED BEFORE ‘'END PASS'' IS PRINTED.
THE SECOND

AND SUBSEQUENT

5.0

OPERATING PROCEDURE

5.1

OPERATIONAL

PASSED DO NOT

NEED ANY OPERATOR

INTERVENTION.

SWITCH SETTINGS

THE PROGRAM 1S BEIDNG RUN ON A SWITCHLES PROCESSOR (]. E.

AN 11/34)

1T WILL DETERMINE THAT A HARWARE

SWwITCH REGISTER

NOT PRESENT, AND WILL USE ''SOFTWARE'' SWITCH REGISTER.
THE
SETTINGS OF THE SWITCHES ARE CONTROLLED THROUGH A KEYBOARD
ROUTINE WHICH IS CALED BY TYPING A 'COBNTROL G6'.
THE PROGRAM
WILL RECOGNIZE A 'CONTROL G' AT ANY TIME EXCEPT WHEN IT IS AR
A HIGHER PRIOR]ITY 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.
‘'RUBOLT' AND ‘'CONTROL U' FUNCYIONS MAY BE USED 10
CORRECT TYPING ERRORS DURING SWITCH ENTRY,

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

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

AND THE PROCEDURES DESCRIBED ABOVE MUST BE

FOLLOWED.

CIRJIDO, RPO4/S/6 FCINL CTLRY
CIRJID.PIY
28-MAR-79 09:03

MACY11

30A(1052)

25-MAY-79

10:30

1
PAGE

SEQ 0006

SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 "'OPERATIONAL
S:AE(H SETTINGS'® HOWEVER THE DETAIL DESCRIPTION ARE GIVEN
H

SWITCH 15 - HALT ON ERROR

WHEN THIS SWITCH
THEN THE

IS SET,

APPROPIATE

THE PROGRAM FINDS AN ERROR

INFORMATION WILL BE PRINTED OUl

AND THEN THE PROGRAM WILL HALT.
AFTER THIS HALT, PRESSING
“CONTINUE'® WILL CONTINUE WITH THE PROGRAM TILL THE NEXT
ERROR ]S 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 1S 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 PROGRAP 1S IN THE EXPECTED
TEST IS TO SET THIS SWITCH DURING AN ERROR PRINTOUT
DURING A PROGRAM HALT.

SWITCH 13 - INHIBIT ERROR TYPEOQUTS
WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL

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

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

WILL

SAY

SO.

SWITCH 12 - RH70 CONTROLLER SELECT
THIS SWITCH MUST BE SET AT THE START OF

THE PROGRAM WHEN THE

DISK DRIVES TO BE TESTED ARE CONNECTED TO AN RH70
CONTROLLER.
1T MUST NOT BE SET WHEN DISK DRIVES 1O BE TESTED
ARE CONNECTED TO AN RH11

CONTROLLER.

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

ONLY.

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

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

PRESENT.

SWITCH 9 - LOOP ON ERROR

WHEN THJS SWITCH ]S SET, IF THE PROGRAM fINDS AN ERROR
THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST
IF ON THE SECOND TIME
EXECUTED ''SCOPE’' STATEMENT.
THROUGH AN ERROR ]S FOUND 1T WILL AGAIN LOOP BACK TO
THIS LOOPING WiLL CONTINUE AS LONG
THAT ''SCOPE'* STATEMENT.

(ZRJIDO, RPO4/S5/6 FCTINL CTLRY
28-MAR-79 09:03
CIRJ1D.P

MACY1Y

30A(1052)

25-MAY-79

10:30

PAGE 8

SEQ 0007

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

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

THAT

SWITCH 11

NOTE:

SEE

IS ALSO SET.

SECTION 8.3

SWITCH 8 - LOOP ON TEST IN SWR <7:0>
THIS IS A SPECIAL SWITCH.
WHEN SET SWITCHES O THRU 7
HAVE ONE MEANING AND WHEN RESET SWITCHES O THRU 7 HAVE
ANOTHER MEANING.
THIS MEANS THAT ANY SETTING OF SWIiTCH
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 10 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 1TS NAME INDICATES.
FOR EXAMPLE SWITCH 7 IS "'STOP FURTHER COMPARES: THAT IS

1F SWITCH 8 1S NOT SET AND SWITCH 7 IS SET THEN WHEN A
DATA ERROR 1S DETECTED NO FURTHER COMPARES WILL BE DONE.
FOR EXAMPLE

IN A 256 WORD BUFFER

ALL THE WORDS ARE

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
1S "'ECC TEST-COMPARE END RESULT ONLY''. THAT IS IF SWITCH
8 1S NOT SET AND SWITCH 6 IS SET THEN ON ECC TESTS (TEST
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THt
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY (LOCK,
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS.

NOTE:

SEE SECTION 8.3

SWITCH 7 - STOP FURTHER COMPARES IF SW08 1S LOw.
IF SWITCH 8 ]S 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 1S NOT SET
AND THIS SWITCH 1S SET THEN THE PROGRAM WwILL DO AS THE

CIRJIDO, RPO4L/S/6 FCTINL CTLRT
CZRJ1D.PIN
28-MAR-79 09:03
NAME

MACY1Y

30A(1052)

INDICATES.

THE WORDS ARE

25-MAY-79

FOR EXAMPLE

IN ERROR

10:30

1
PAGE 9

SEQ 0008

IN A 256 WORD BUFFER If

THEN AFTER SEEING THE

ALL

ERROR PRINTOUTS

FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8
NOT SET WILL STOP THE PRINTOUT Of ALL 256 WORDS BUT WILL
NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT
TEST.
1T IS EXPECTED THAT SWITCH 7 AFTER BEING SET FOR
A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS.

SWITCH 6 = TYPE ALL REGISTERS WITH ERROR IF

SW08 IS LOW

SWITCH B IS SET AND THIS SWITCH IS ALSO SET THEN

THIS SWITCH GIVES

THE

TEST

NUMBER

INDICATED IN THE DESCRIPTION OF

TO BE LOOPED ON AS

SWITCH 8.

SWITCH 8 IS

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

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

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

5.2

SUB-ROUTINE ABSTRACTS

SEE SECTION 9 ‘‘SUBROUTINES''.

6.0

ERRORS
ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER
PERTINENT

INFORMATION CONCERNING THE

PARTICULAR FAILURE.

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

REGISTERS OR GOOD/RECEIVED DATA.
If THE ERROR OCCURRED
SUBROUTINE, THE ADDRESS Of THE SUBROUTINE CALL IS ALSO

GIVEN.

REFER TO THE PROGRAM LISTING AT THE STATFD

ADDRESS TO DETERMINE

6.1

IN A

THE

CAUSE OF

THE ERROR.

IN THE EVENT THAT THE DISK DRIVE BECOMES UNAVAILABLE TO THE
CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS
CANNOT BE CLEARED PRIOR TO THE START OF A TEST SEQUENCE THIS INFORMATION WILL BE COMMUNICATED TO THE OPERATIOR.
IN
ADDITION, THE TTY BELL WILL RING AND THE PROGRAM WILL HALT.
IT IS SUGGESTED THAT IF THIS HAPPENS, THE OPERATOR LOAD
ADDRESS 200 (210) AND RESTART THE PROGRAM AS A FIRST ATTEMPT
T0 SOLVE THE PROBLEM.
IF THE FILURE CONTINUES TO OCCUR,
THERE ARE TWO OPTJONS OPEN TO THE OPERATOR:

1.
LOOK IN THE TEST LISTING FOR THE ‘HALT'
INSTRUCTION AND REPLACE 1T, PLUS THE TWO WORDS
("'TYPE
,CPHALT'') ABOVE WITH 'NOP'S.
WITH TTY ERROR
PRINTOUTS INMIBITED, A SCOPE LOOP CAN BE INITIATED
FOR THE

TEST

IN QUESTION.

GO BACK AND RERUN DZRPS, AS 11

IS QUITE POSSIBLE

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

THE

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

THIS 1S NOT RECOMMENDED AS ALL FOLLOWISNG TESTS WwiLL EXHIBIT
THE SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS,

CIRJIDO, RPOL/S5/6 FCINL CTLRY
CZRJID.PW
28-MAR-79 09:03
7.0

MACY11

30A(1052)

25-MAY-79

10:30

1
PAGE

SeQ 0009

RESTRICTIONS

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

NEVER

LEAVE

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 RM70.
THIS IS
BECAUSE THE ROUTINE WHICH GETS "'SOF TWARE'' SWITCH SETTINGS IS
NOT

OPERABLE

WHEN

IN CHAIN MODE.

MISCELLANEOUS

EXECUTION TIME

THE

FIRST PASS OF

THE PROGRAM WILL TAKE APPROXIMATELY

MINUTES PROVIDED AN OPERATOR 1S PRESENT TO CARRY OUT THE
TYPED INSTRUCTIONS IMMEDIATELY.
SUBSEQUENT PASSES WILL TAKE

30 SECONDS WHETHER AN OPERATOR

8.2

STACK POINTER

THE
8.3

1S THERE OR NOT.

STACK

INITIALLY

OPERATOR SELECTABLE

SET

TO 1000

SCOPE LOOPS

HERE 1S 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 ]S RUNNING.
ON HITTING AN ERROR

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

WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT
THE PROGRAM GOES BACK TO CAN BE CHANGED.
THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM (AN GO ARE:

1.
2.

17 MUST BE WITHIN THE TEST UNDER CONSIDERATION
_O0OP 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 PRCGRAM WILL REVERT TO NORMAL OPERATION.
HOWEVER, IF LOOP ON
TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT
COMES TO THE END OF THE TEST UNDER CONSIDERATION.
AFTER LOOPING FOR SOME TIME

NORMAL OPERATION WILL CONTINUE.
PROGRAM REVISION HISTORY

THE LOOP SWITCH IS PUT DOWN THEN

.fi\?

PO&/5/6 FCTNL CTLRY

MACY11

28-MAR-79 09:03

30A(1052)

25-MAY-79

9.0

PROGRAM DESCRIPTION

9.1

LOGIC DIVISION

IN HARDWARE MODULES

(RG)

SEEK

DATA BOARD
AND SEARCH

(SN)
(SS)

1
PAGE

SEQ 0010

COMMANDS

= DATA CONTROL PARALLEL
SYNC. BYTE DETECT,
=

ERROR CORRECTION (EC)

ERROR REGISTER 1 STATUS REGISTERS
MUX FOR REGISTERS GO HANDLING REGISTER
DECODE CCMMAND DECODE EXECUTION OF

MECH.

SYNC.

10:30

SEEK

LOGIC

HANDL ING.

TO SERIAL

SEARCH LOGIC HEADER

- ECC LOGIC ERROR REGISTER 2 & 3

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

DUAL PORT

(DP)

DUAL PORT ARBITRATION ATTENTION LOGIC
SERAAEENO REGISTER MASS BUS REGISTER
STORA

9.2

DISK

SURFACE

USAGE

SYMBOLS USED
C = CYLINDER
1
TRACK
S
SECTOR
WRITE
W
R
READ
[T

(0,

TEST

10,

NUMBER

1122-w,R, T123-R, T124-W,R, T125-W,R, T126-W,R, TT135-W,R, T737-w, T1750-w, T751-w,R, T752-w,R, TT155-W,R
10, s1
T127-W,R, 1137-w,R,

(0,

T140-R,

TT41-W,R, TT142-W,R, TT43-W,R

(0, 118, S21
1130-w, T1731-w,R
1,

10,

130-W,R,

1, 118,
TM -V

S21

10,

118,

(3,

10, S0

T131-4,R
17131 -w

T131-w,R,

sO
21

T153-W,R,

TT54-W,R

CIRJIDO, RPO&L/5/6 FCINL CTLRY
CZRJIID.PY
28-MAR-79 09:03

MACY1Y

30A(1052)

25-MAY-79

10:30

1
PAGE 12

1131-w,R

(3, 118, s
1131-w
¢4, 10, SO
1131-w,R

(4, 118, S

1131-v

€5, 10, SO
1131-wW,R

(5, 17, S4
1733-W,R,

T134-4,R

(5, 118, s21
T131-w

6, 10, sO
T131-W,R

6, 118, s
1131-w

7, 10, SO
1131-W,R

(7, 118, s18
T131-w

(8,

10,

1131-W,R

(8, 118,
1131-w

s21

10, SO

(9,

118,

T131-u

s21

T131-w, T132-R

10,

10, SO

T131-w,R

(410, 118, S21
1136-wW,R,

9.3

T7150-w,R

THE FOLLOWING SECTION DESCRIBES EACH TEST AND SUBROUTINES
IN DETAIL AND CAN BE USED AS AN INDEX TO THE L ISTING.
THE LEFT MOST COLUMN 1S THE LINE NUMBER WITHIN THE LISTING

WHERE THAT
°

JTEM witL BE FOUND.

SEQ 00N

CIRJIDO, RPO&L/5/6 FCTINL CTLRI
CIRJID.PYI
28-MAR-79 09:03
609

610

611
612
613
614
615
616

617
618
619

MACY11

25-MAY=-79

30A(1052)

LTITLE

10:30

1
PAGE

SEQ 0012

CZRJIDO, RPO4/5/6 FCINL CILRI

;*COPYRIGHT (C) 1976,1977
;*DIGITAL EQUIPMENT CORP.
; *MAYNARD, MASS. 01754
*

:*PROCRAM BY PETE BLACKSTONE

;'THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDt( SYSMA(
.

L4
.

*PACKAGE

(MAINDEC-11-DZQAC-C3),

JAN 19,

1977,

A AT A AN A AT A AN A AN A AN Y A AN A AN N A AN A AN A AN
AN A ANV A ASYA ASFA ASFA AN A AW
AV AN A AN A A
A AN A AN
AN A AN A AV A AN A AN VA ARNAARN A ANVA ANNA ANNA ANFA AW
A ASRA AN A ARTA ANV A AN N A AN A AN A AN A Ay A AN A ARV A AR A AN A ACYA AGFA ANVA ARV AW

;*DRIVE MUST BE LOCKED ON PORT A OR PORT B8
AAN FAAN VAN FEAN VAAX VAAS VAN FEAN FARN VAN VAN VAAS VAR FAAS VAN VALY VAR VAR
AANYEAAN YA YRS FAAN VAR FAAN VAN VAN VAN FERN VAN FAAN FARS VALS F RN VAR FARN
s/Ne/ N/ o\ o \x/ o \ef o \wf o \af o \o/ N/ \wf o\t o\ o \wf o\ /N /o \v/ \e/\2

633
634
635

;*INTERNAL PROGRAM MACROS BEGIN HERE

636
637
638
639
640

657
658
659

.SBTTL
)

PROGRAM AT

ASSEMBLY

TIME.

YT
.

4
*

4
4
*

e
e

SWITCH

OPERATIONAL SWITCH SETTINGS

—

WOO =MW

656

SOURCE

EEEXZZ22XX222222222222032322222202222222202200232222RRRRSRRRRRRRRD/

650
651
652
653
654
655

T0 THE

646

647
648
649

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

"EXTERNAL SYSMAC.SML PACKAGE WHICH MUST BE MADE AVAILABLE

641
642
643
644
645

:""""""."""t"t"i'tt"llll

HALT

ON ERROR

LOOP ON TEST
INHIBIT ERROR TYPEOUTS
RH70 CONTROLLER SELECT
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST

IN SWR<7:0>

CIRJIIDO, RPO4L/S5/6 FCINL CTLRY
CZRJID.PYY
28-MAR-79 09:03
660
661

gg%

MACY11

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

7
6

STOP FURTHER COMPARES If SW08 1S LOW
TYPE ALL REG. WITH ERROR IF SW8 LOW

MULT ADDR PLUG TEST IF SW08 IS LOW

SEQ 0013

667
668
669
670
671
672
673

674
675

676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691

692
693
694
695
696
697
698
699

— —

——
—

)

——

—

Pele - LNTo SV P RV

NN NN NN NN N

700
701
702
703
704
705
706
707

STACK=
.EQUIV
.EQUlv

000011
000012
000015
000200
177776

HT=
LF=
(R=
CRLF=
PS=

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007
000000
000040
000100
000140
000200
000240
000300
000340
100000

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

PAGE

SeEQ 0014

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER vee 1000 w#ee

001000

1 77774
17 7772
177570
17

10:30

1000
EMT,ERROR
10T,SCOPE

;;BASIC DEFINITION OF
;;BASIC DEFINITION OF

ERROR CALL
SCOPE CALL

;*M]ISCELLANEOUS DEFINITIONS
1
12
15
200
177776

.EQUIV

PS,PSW

PIRQ=

177772

;. CODE FOR HOR]ZONTAL TAB
.. CODE FOR LINE FEED
;. CODE FOR CARRIAGE RETURN
;;CODE FOR CARRIAGE RETURN-LINE FEED
. ;PROCESSOR STATUS WORD

STKLMT= 177774

::STACK LIMIT REGISTER

DSWR=
DDISP=

; ;HARDWARE SWITCH REGISTER
: ;HARDWARE DISPLAY REGISTER

177570
177570

; :PROGRAM INTERRUPT REQUEST REGISTER

; *GENERAL PURPOSE REGISTER DEFINITIONS

RO=
R1=
R2=
R3=

R&4=
R5=
R6=
R7=
SP=
PC=

%0
13
Y4
%3

13
x5
%6
X7
X6
X7

;*PRIORITY

PRO=
PR1=
PR2=

0
40
100

PR& =

200

PR6=

300

PR3=

PRS=

PR7=

;s GENERAL
; GENERAL
: GENERAL
: ;GENERAL

:;GENERAL REGISTER
: ;GENERAL REGISTER
. ;GENERAL REGISTER
; GENERAL REGISTER
::STACK POINTER
; PROGRAM COUNTER
LEVEL DEFINITIONS

140

240

340

;;PRIORITY LEVEL O
;:PRIORITY LEVEL 1
;;PRIORITY LEVEL 2

;;PRIORITY LEVEL 3
:;PRIORITY LEVEL 4

;;PRIORITY LEVEL 5

;oPRIORITY LEVEL 6

;;PRIORITY LEVEL 7

;' 'SWITCH REGISTER'' SWITCH DEFINITIONS
swi5=
100000
SWi&=
40000

swi3=
swi2=
Swil=
sw10=
sw09=
swo8=
swo7=
swo6=
Swo5=
sSwo4=
swo3=
sSwo2=

20000
10000
4000
2000
1000
400
200
100
40
20
10
4

Xan]

30AC1052)
25-MAY-79
BASIC DEFINITIONS
.SBTTL

664

665

666

MACY1Y

[

CIRJIDO, RPO&/5/6 FCINL CTLR]
CIRIID.PIY
28-MAR-79 09:03

763
764
765
766
767
768
769

770
771
772
773
774

000004
000010
000014
000014
000014
000020
000024

000030
000034
000060
000064
000240

200

ERRVEC= 4

EMIVEC= 30
TRAPVEC=34
TKVEC=
60
64

PIRQVEC=240

B
e
R
e
e
e

O—=MNIWNS
VO ~N00O

pue® Pt
G
P
pumd
P
Pt Pt Pt Pt

O W

O 0o O

C0 0D 00 0o

[eleololalolelolelale]
O —=MNIANS
VO N0

e
B

Puont Pt

e B

P
ot

e R
B

Pt Puwed

100

. *BASIC ''CP U TRA

TPVEC=

2
PAGE 16

100000
400 00
200 00
100 00
400 0
200 0
100 0
400

760
761
762

BIT DEFINITIONS (BITOO0 TO BIT1S)

Pt Pt Pl

—

757
758
759

10:30

2
1
S0 9,5w9
Sw0
SwW0 7.5w7
SW0
SW0 5,5W5
Sw0 &,5W4
SW0
SWO 2,5w?
SO0 1,5wl
SW0 0.5w0

00 OO TD C0 U0 0D D TD TG0 QO — ML &~

746

747
748
749
750
751
752
753
754
755
756

738
739
740
741
762
743
744
745

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

736
737

100000
040000

731
732
733
734
735

————— —_—

725
726
727
728
729
730

Swo1=
Sw00=
.EQUlv
.EQUlV
.EQUIV
.EQUlV
.EQUIv
.EQUlv
.EQUIV
.EQUlv
.EQuUlv
.EQUIV
(=] OOO0OOOOOOO——
— —— —
o == AINS VN
NOOOO
NI
W—
1]
L T T T
O
T O T
T I P TR TR TR T TR T p_J

723
724

BASIC cDo DEFIN ITIONS

oA ol
looRooRoollooRooRoodooNooRooRoo
oo oo oo LR

000002
00000+

25-MAY-79

30A(1052 )

720
721
722

MACY11

— — et

CIRJIDO, RPO&L/S5/6 FCINL CTLR]
CZRJID.PY
28-MAR-79 09:03

VECTOR ADDRESSES

::TIME OUT AND OTHER ERRORS
;;RESERVED AND ILLEGAL INSTRUCTIONS

; ;TRACE TRAP
: iBREAKPOINT TRAP (BPT)
::INPUT/OUTPUT TRAP (10T) weSCOPEs®
; ;POWER FAIL
:;EMULATOR TRAP (EMT) ++ERROR+*
;i TRAP' TRAP
::1TY
::11Y

KEYBOARD VECTOR
PRINTER VECTOR

: :PROGRAM INTERRUPT REQUEST VECTOR

SEQ 0015

CIRJIDO, RPO4/S5/6 FCINL CTLRY
CZRJID.PIY
28-MAR-79 09:03
775
776
77
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801

802
803
804

000000

000174
000176

MACY11

30A(1052)

25-MAY-79

.SBTTL

TRAP CATCHER

10:30

PAGE

SEQ 0016

.=0

;*ALL UNUSED LOCATIONS FROM & - 776 CONTAIN A *'.42 HALT"

;*SEQUENCE TO CATCH JLLEGAL TRAPS AND INTERRUPTS
;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG:
SWREG:

=174
.WORD
.WORD

0
O

LSBTTL

ACT11

HOOKS

;:SOFTWARE DISPLAY REGISTER
:;SOF TWARE SWITCH REGISTER

';"I""t"t""'i"'"'t"'t""""Q"Ql""".l'l"""'tt"'

000046

000052

*HOOKS REQUIRED BY ACT11

000200
000046
041140
000052
002000
000200

000220

000200
000137
000137
000137
000220
000137

- SAVE

iEgng

. 1)SET LOC.46 T0 ADDRESS OF SENDAD IN .SEOP

"WORD

TZ8SVPC
SBTTL

000200
000204
000210

$SUPC=.

005012
043660
004776

2000

;:2)SET LOC.52 TO 2000

“RESTORE PC

STARTING ADDRESSES

.=200

RA:
mp
ADDMOD: JMP

A¥BEGIN
S#BASE CH

NORMAL START
“START FOR ADDRESS-MODIFICATION

Jmp

S#BEGINI

- JUMP TO NO OPERATOR TESTS START

Jnszo

004762

a#BEGIN2

“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 WIlLL JUMP OVER THE
;*AT

THE

DRIVE

TESTS REQUIRING AN OPERATOR

0, RPO4/5/6 FCINL CTLRY

28-MAR-79 09:03

—OWwoe

P11

MACY1Y

30A(1052)

25-MAY-79

10:30

PAGE

MEMORY MANAGEMENT DEFINITIONS
LSBTTL

MEMORY MANAGEMENT DEFINITIONS

;*KT11 VECTOR ADDRESS
000250

177572
177574
177576
172516

MMVEC=

250

;eKT11

STATUS REGISTER ADDRESSES

SRO=
SR1=
SR2=
SR3=

177572
177574
177576
172516

;*KERNEL ''I'' PAGE DESCRIPTOR REGISTERS
172300
172302
172304
172306
172310
172312
172314
172316

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

172300
172302
172304
172306
172310
172312
172314
172316

:*KERNEL ''I'" PAGE ADDRESS REGISTERS

172340
172342
172344
172346
172350
172352
172354
172356

K1PARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPAR6=
KIPAR7=

172340
172342
172344
172346
172350
172352
172354
172356

".‘"'l"""""""l"""""""'t't"'lt.'!l.'.'.'l'.'t"'t"

001110

.=1110

SEQ 0017

CIRJIDO, RPO4L/S5/6 FCINL CTLR 1
CZRJID.PN
28-MAR-79 09:03

910

COMMON TAGS

222222

LZ222

$SCMTAG:
$PASS:
$STSTNM:
SERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$ITEMB:
SERMAX:
$ERRP(:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

000000
000
000
000000
000000
000000
000000

N T T o JV. D ol Sl Jo 0 o

)

mnd

001100

)

873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909

LSBTTL

10:30

222X

XA AR

2
PAGE

Sea 0018

RRd

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

86/
868
869
870
871
872

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

¢*USED IN THE PROGRAM.

POPNININ)
b et et it e O O

855
856
857
858
859
860
861
862
863
864
865
866

MACY11

$AUTOB:
$INTAG:

001160
001162
001164
001166
001170

001172
001174
001176

077

015

.WMORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD

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

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
177607

.=1100

$REGO:
$REG:
$REGZ:
$SREGS:
$REG4:

000377

$QUES:
$CRLF:

0
0
0
O
DSWR

DDISP

0
2

12
0
0

;:;START OF

COMMON TAGS

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

:ADDRESS OF
:;ADDRESS OF
;:T1TY
;:T7TY
::1TY
:;TTY

KBD STATUS
KBD BUFFER
PRINTER STATUS REG.
PRINTER BUFFER REG.

::INSERT FILL CHARS. AFTER A ''LINE FEED"
;o 'TERMINAL AVAILABLE'' FLAG (B1T1<07>=0-YES)
::CONTAINS THE ADDRESS FROM

(SREGO) WAS OBTAINED
;sWHICH
::CONTAINS ((SREGAD)+0)
;:CONTAINS ((SREGAD)+2)
:;CONTAINS ((SREGAD)+4)
::CONTAINS ((SREGAD)+6)
::CONTAINS ((SREGAD)+10)
::CONTAINS ((SREGAD)+12)

JASCIZ

<207><377><377> :.(ODE FOK BELL

LASCLY
ASCIL

7?1/
15>

ADDRESS
ADDRESS

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

0
0
0
0
0
0

0
O
0
0
0
O

INDICATOR
INDICATOR

SWITCH REGISTER
DISPLAY REGISTER

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

$REGS:
$TMPO:
.WORD
$TMPY:
LMWORD
$TMP2:
.WORD
$TMP3:
.WORD
$TMPL:
.WORD
$TMPS:
.WORD
$TIMES: 0
SESCAPE: 0

$BELL:

O
0
0
0
0
0
0
0
1
0
0
0
0
0
0

;s USER DEFINED
;sUSER DEFINED
:;USER DEFINED
;USER DEF INED
;sUSER DEFINED
; sUSER DEF INED
::MAX., WUMBER OF JTERAT]IONS
;;ESCAPE ON ERROR ADDRESS

;;QUESTION MARK
;s CARRJAGE RETURN

CIRJIDO, RPO4/S5/6 FCINL CTLR)
CZRJID.PYY
28-MAR-79 09:03
911
912

001226

000012

MACY11

30AC1052)
25-MAY-79
COMMON TAGS
$LF:

ASCIZ

10:30

PAGE 2V
;s LINE

SEQ 0019
FEED

;;"".""'"""""""0""""""'.'."l'"""!t""'l't't

D00~ NN

VOV
OV OO

CIRJIDO, RPO4/S5/6 FCTINL CTLR]
CIRJID.PY
28-MAR-79 09:03

932
933
934
935
936

937
938
939

;*NOTEZ:
»
®»
%
.

001226

051166

001230

067273

001232
001234

946

001236

051215

948
949

001240

067273

950
951
952
953
954
955
956
957
958
959

960
961
962
963
964
965
966
967
968

PAGE 21

‘

TABLE

EACH

EM
DH
DT
DFf

ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS tOLLOWS:

;:POINTS TC THE ERROR MESSAGE
:;POINTS

TO THE DATA HEADER

;;POINTS TO THE DATA
:;POINTS TO THE DATA FORMAT

s ITEM

EMI

:RPO& DID NOT INTERRUPT

DH1

:PC

;WAITED ON BIT

;WAT

DID NOT

OCCUR

:BIT WAITED
;REG ADDRESS
;REG CONTENTS

071620
072126

947

$ERRTB:

940
941
942
943

944
945

ERROR POINTER

10:30

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT (AN OCCUR.
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;*NOTE:
IF SITEMB 1S O THE ONLY PERTINENT DATA IS (SERRPC).

921
922
923
924
925

926

30AC1052)
25-MAY-79
ERROR POINTER TABLE
.SBTTL

1
1
1
1
1
920

927
928
929
930
931

MACY11

;RHCST

CONTENTS

(ST
AITBT
,WAITRE ,$BDDAT,
:SERRPC,WAITPC,W
] TEM?

;INTERRUPT ENABLE BIT DOWN BUT
;WAITED ON BIT

;PC
;WAT

sREG

CONTENTS

DID NOT

OCCUR

;B1T WALITED
;REG ADDRESS

sRHCST CONTENTS

(S
AITBT
,WwAlTRE ,$8DDAT,
;SERRPC,WAITPC,W
;0,0,0,0,0,0

001242
001244

001246

051304

] TEM3

;RPO& DID NOT

INTERRUPT WHEN

::QITED ON BIT DID SET

001250

sWAT

;B1T WAITED
;REG ADDRESS
sRHCST

CONTENTS

,$BDDAT, (S
,WAITBT
,WAITRE
sSERRPC,WAITPC

001252
001254

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

;e TEMG

SEQ 0020

CIRJIDO, RPO4L/5/6 FCTINL CTLR)
CZRJID.P
28-MAR-79 06:03
969
970

9N
972
973
974

MACY11

30A(1052)
25-MAY-79
INTER
ERROR PO
TABLE

001256

051365

EMS

001260

067452

DH&

979

980
981
982
983

:PC
JWAT

984

985
986
987
988
989
990
991
992
993
994
995
996
997

998
999

1000

1001

1002
1003
10064
1005
1006

1007

1008
1009

}819

001270

067613

001272
001274

071660
072144

001276

051550

001300

067732

DH6

001302
001304

071674
072151

D16
DF6

001306

051636

001310

070031

DH7

001312
001314

071706
072155

D17
DF7

051706

1012
1013
1014
1015

001320

070071

1019
1020

001322
001324

071716
072160

1023

001326

051755

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

:RHAS DOES NOT

051476

001316

1021
1022

CLEAR BY

::0V1NG IN ALL ONES
;PC
;REG. ADDR.
:GOOD DATA
;RECEIVED DATA

DHS

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

;e]TEMG

;e TEM7

;1 TEMIO

;LOADING RHER FOR ALL
;UNITS DID NOT SET ANY BITS
;IN RHAS=NO UNITS PRESENT

EM6

;PC

;REG ADDR

;RECEIVED DATA
:8E8R8C,REGADR,SBDDAI

JSPECIFIED REGISTER NONEXISTANT
:S0 ABORT PROGRAM

EM7

;PC
;ADDR.

EMi0

—

00O

b o

REG.

DH10

SlTEMN

;SERRPC,TEMPI

[}

1016
1017
1018

;BIT WAITED
;REG ADDRESS
;TIME IN 10 MSEC

EMS

001266

;] TEMS

SEQ 0021

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

071640

072135

PAGE 2?2

D14
DF&

001262

001264

:WAITED ON BIT DID SET BUT
;TIME IS IN ERROR
:TIME IS GIVEN IN 10 MICRO SEC.
s(DECIMAL)

975

976
977
978

10:30

EM1

;STOPED DRIVE HAS MOL BIT
;IN RHDSY = 1

;PC
;TEST NO
JFAILING REG

;CONTENTS
;CONTENTS
;sCONTENTS
;CONTENTS

OF
OF
OF
OF

ADDR

RHCS
RH(CSZ
RHDS!
RHER!

$ERRPC,3TSTNM,S$BDADR,CSY,(S2.DST,ER)

;WITH SPINDLE POWERED DOWN
JRHCS2 SHOULD WAVE

ONLY

CIRJIDO, RPO4/5/6 FCTINL CTLR?
CZRJID.PY
28-MAR-79 09:03
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070

1071
1072
1073
1074
1075
1076
1077
1078
1079
1080

001330

MACY11

30AC1052)
25-MAY-79
ERROR POINTER TABLE

070071

DH10

10:30

PAGE 23

SEQ 0022

;UNIT NUMBER AND

:PC

IR HIGH

:TEST NO
;FAILING REG. ADR
;CONTENTS OF RHCS1
; CONTENTS Of

RHCS2

; CONTENTS Of RHDS1
;CONTENTS OF RHER1

DT10
DF10

;SERRPC,$TSTNM, $BDADR,CS1,CS2,DS1,ER]
:0,0,0,0,0,0,0

Em12

;AFTER A POWER UP WITH
:NO PACK ACKNOWLEDGE COMMAND

070071

DH10

;PC

001342
001344

071716
072160

0110
DF10

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

001346

052170

001332
001334

071716
072160

001336

052062

001340

cr]TEMY?

;*1TEM1D

EM13

;RHDS1

SHOULD HAVE MOL=1,

vv=0

;TEST NO
;FAILING REGISTER ADDR.
; CONTENTS OF RHCS1
:CONTENTS OF RH(S2
;CONTETNS OF RHDS1
s CONTENTS OF RHER1

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

;AFTER A POWER UP WITHOUT
ANY INIT RHCST SHOULD

;HAVE 60=0, DvA=1, RDY=1

;:1€6=0, DISREGARD

001350

070071

DH10

:ALL OTHER BITS
;PC

;TEST NO

¢FAILING REGISTER

: CONTENTS OF RHCS]
;CONTENTS OF RH(S2
; CONTENTS OF

001352
001354

071716
072160

001356

052312

001360

067613

001362
001364

071660
072144

001366

052365

;*1TEMI4

ADDR.

RHDS1

;CONTENTS OF RHER1

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

D110
DF10

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

EMI4

;AFTER POWER UP RHCC

DHS

;PC

: SHOULD BE=0

;REG. ADDR.
;600D DATA
¢RECEIVED DATA

: SERRPC ,REGADR,$GDDAT
,$BODAT

:0,0,0,0

;PACK ACKNOWLEDGE CAUSED
;AN

ERROR

;600D DATA 1S BEFORE COMMAND
;RECEIVED DATA IS AFTER (OMMAND

CIRJ1IDO, RPO4/5/6 FCINL C L
CIRJID.P
28-MAR-79 0

UMM NI N NN NN NNINININININ) et et e et et et b =t =2 O O OO O
VS WA —=O 0O YO N
NN =0V
N VNS WA =2O OB ~NOWV

1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097

001370

MACY1Y

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

067613

DHS

001372
001374

D15
DFS
;e1TEMIG

001376

001400

EM16

10:30

2
PAGE 24

SEQ 0023

;PC

;REG. ADDR.
;600D DATA
JRECEIVED DATA

T
AT
,$BDDA
;$ERRPC ,REGADR,$GDD

;0,0,0,0

;GIVING A NO-OP COMMAND CAUSED
;AN ERRCR

;600D DATA GIVES REGISTER
;CONTENTS BEFORE COMMAND
;RECEIVED DATA GIVFS REGISTER
:CONTENTS AFTER COMMAND

067613

;PC

;REG. ADDR.

.GOOD DATA

001402
001404

071660
072144

001406

052654

001410

D15
DF5S

el TEMY7

EM17

;RECEIVED DATA

; SERRPC ,REGADR, $GDDA' $BDDAT
:0.0,0, 0

;DRIVE CLEAR COMMAND
;s CAUSED AN ERROR
;:G00D DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT
s THERE AFTER COMMAND

067613

:PC
;REG.

WAS

ADDR.

;600D DATA

001412
001414

071660
072144

;RECEIVED DATA
T
,$BDDAT
;SERRPC,REGADR,$GDDA
;0,0,0,0

001416

053011

;READ=-IN COMMAND GAVE

001420

067613

:PC
;REG.

AN ERROR

;600D DATA HAS WHAT SHOULD BE
;RECEIVED DATA HAS WHAT WAS
;AFTER COMMAND
ADDR.

; GOOD DATA

;RECEIVED DATA

T
,$BDDAT
;SERRPC,REGADR,$GDDA

001422
001424

071660
072144

001426

053155

JrlTEM 20
Em

001430
001432
001434

067613
071660
072144

DHS
D15
DFS

;0,0,0,0

JelTEM 22

;RHCST

CONTENTS DURING

; COMMAND WAS IN ERROR

THERE

MACY11

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

001436

053230

Eme2

001440
001442
001444

067613
071660
072144

DHS
DT5
DFS

001446

053303

001450
001452
001454

067613
071660
072144

DHS
D15
DFS

001456

053446

;*1TEM 24
EM24

001460
001462
001464

067613
071660
072144

001466

053611

PAGE 75

SEQ 0024

;RHDST CONTENTS DURING
;COMM ANS WAS IN ERROR

J*1TEM 23
Eme3

DHS
075

;*1TEM 25

EM25

D e
b
s
b cadd culd

072144

001476
001500

053773
070250

J*1TEM 26

EM26

DH26

)

) =

067613
071660

001470
001472
001474

DHS
D15
DF5S

COMMAND

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

COMMAND

:RETURN TO CENTER LINE COMMAND
;CAUSED AN ERROR
,G00D DATA GIVES WHAT SHOULD BE

:THERE

AFTER

=
il
el

001502
001504

071736
072167

D126
DF26

001506

054063

;e]TEM 27
Em27

001510

067613

DHS

COMMAND

:300 OFFSETS CAUSED AN ERROR
;PC

;CONT. OF RHCS1
;CONT. OF RHCS?
:CONT, OF

i
) el
D el
i

AFTER

;RECEIVED DATA GIVES WHAT WAS

) mpl

)

; THERE

) o
—

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

DFS

)

D e

D il

D il Al

D id ol

D o

)

0, RPO4/5/6 FCTINL CTLR
P
28-MAR-79 0

RHDSI

;CONT. OF RHER}
;CONT. OF RHERZ
:CONT. OF RHER3

;$ERRPC,CS1,CS52,DS1,ERY,ER2
ER3

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

;WRITE HEADER AND DATA
: CAUSED ]MPROPER REGISTER CHANGE
;600D DATA GIVES WHAT
; SHOULD BE THERE
;RECEIVED DATA GIVES WHAT
:WAS

THERE

AFTER

COMMAND

0, RPO4/5/6 FCINL CTLR
P
28-MAR-79 09:0

MACYT1

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

d
- el el il
D

054301

;*1TEM 30

Em30
DH30

070447

0130
DF 30

001526

054361

Jr1TEM 31
EM31

00'530
001532
001534

067613
071660
072144

DHS
DTS
DFS

001536

054576

;*1TEM 32
EM32

001540
001542
001544

070447
071760
072177

001546

054705

001550
001552
001554

067613

071760
072177

PAGE 26

SEQ 0025

;WRITE HEADER AND DATA

:ggANGED WRITE FROM BUFFER
;WORC NO

:GO0D DATA
;BAD DATA

;SERRPC,ERWORD
,$GDDAT ,$BDDAT

:0,0,0,0

NO VS WIN =0V ~

PIPINININD
) b b o el it d e s et it O O o

W
VN
=OOVONO VB WN 2O OOV

001556
001560
001562
001564
001566

071660

072144

055107
070447
071760
072177

055133

ow PN

—

ah i

)

b ol

D il

NNNN NN
NN NN
o NN
£~
Pl O oW VIV TPV AV IV IV IV VIS LS LN

e wmd

D cad i

B e

cad

D ol and cud

N NN NN N ~n

D il

)

D15
DFS

071660
072144
001516

10:30

1247
1248

067613
671660

DH30
D130
DF 30

;*]TEM 33

EM33

DHS
DTS
DFS

;*1TEM 34

EM34
DH30
D130
DF 30

;] TEM 35
EM3S

;READ HEADER AND DATA CAUSED
; IMPROPER REGISTER CHANGE
;600D -DATA HAS WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT
;WAS

THERE

;WRITE

AFTER

COMMAND

HEADER AND DATA FOLLOWED

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

;READ DATA CAUSED

IMPROPER REGISTER

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

; COMMAND

;READ DATA

|NCORRECT

;WRITE DATA COMMAND CAUSED

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

OOV
~NOWVES
NN —O 0

e
e

001574

072144

001576

055351

MACY11

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

;*1TEM 36

Em36

001600
001602
001604

070447
071760
072177

DH30
D130
DF 30

001606

055426

.*]1TEM 37
EM37

055643

¢
PAGE

SEQ 0026

DHS
D15
DF5S
;*1TEM 40
EM40

;WRITE

DATA

COMMAND

;WRITE FROM BUFFER

CHANGED

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

;WRITE

CHECK

CAUSED AN

; IMPRCPER REGISTER CHANGE
;600D DATA GIVES WHAT
:BE THERE

001620
001622
001624

001626

067613
071660
072144

DHS
015
DFS

056052

S*1TEM 41
EM4

SHOULD

JRECEIVED DATA GIVES WHAT
: THERE AFTER _OMMAND

WAS

;LOCKING OUT WRITES BY WRITE
:LOCK BUTTON CAUSED IMPROPER

;REGISTER

CHANGE

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

001630
001632
001634

=l=1=]
N~NO

N
— ~y
SO
—
S Ow

;WAS

001636

056333

001640
001642
001644

[eeTe)
~N~NO
N =~y
O O
&SH O —
&H Ow

N—=OOVBNC
NS NN —=O

NN
N NN
RN NN
Oo 0o O NNNNNNNNNN

067613
071660
072144

10:30

DF5

-t

NN
N DN NN N ~no
o O VAAAWVAWAA
VWA WAL H

CZRJIDO, RPO4/S5/6 FCTINL CTLR)
CIRJID PN
28-MAR-79 09:03

DHS
D1$
DFS

sl TEM 42
EMG?2

THERE

AFTER WRITES

;WERE LOCKED OuT BY
sBUTTON

JATTEMPTING TO WRITE

WITH WRITE

JLOCKED OUT CAUSED IMPROPER
;REGISTER CHANGE
;600D DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT WAS
;THERE AFTER ATTEMPT

1305
1306

1307
1308
1309

1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321

¥
o

1322
1323
1324
1325
1326
1327
1328
}329

1339
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344

1345
1346
1347
1348
1349
1350
1391
1352

1353
1354
1355
1356
1357
1358
1359

1360

001646

056611

30AC1052)
25-MAY-79
ERROR POINTER TABLE
;*1TEM 43

EMG3

001650
001652
001654

070447
071760
072177

DH30
D130
DF30

001656

057153

Je1TEM 44
EMLL

001660
001662
001664

067613
071660
(72144

DHS
D1S
DFS

001666

057445

:1TEM 45
EM4LS

00%070
001672
001674

067613
071660
072144

DHS
DTS
DFS

001576

057741

001700
001702
001704

070447
071760
072177

DH3L
D130
DF30

001706

060054

v1TEM 47
EMLT

;r]TEM 46

EM46

10:30

PAGE 28

;WRITING WITH WRITE LOCKED
;0UT CHANGED DISK DATA
;600D DATA GIVES WHAT WAS

;ON DISK BEFORE WRITE WITH
sWRITF LNCK WAS ATTEMPTED
;RECEIVED UATA GIVES WHAT WAS
JREAD BACK ACTER WRITE WITH
;WRITE LOCK wAS ATTEMPTED

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

H
;

:TRANSFERRING ON LAST BLOCK JE. CYLINDER
:610, SECTOR 21, TRA(K 18
;CAUSED IMPROPER REGISTER

: CHANGE
;GO0OD DATA GIVES WHAT SHOULD
:BE THERE
:RECEIVED DATA GIVES WHAT WAS
:THERE AFTER TRANSFER

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

; TRANSFERRING FROM NONEX]ISTANT
;SECTOR CAUSED IMPROPER
;REGISTER CHANGE
;600D DATA GIVES WHAT SHOULD
;BE THERE
:RECEIVED DATA GIVES WHAT WAS

;THERE AFTER ATTEMPTED

SEQ 0027

MACYT1

CIRJIDO, RPOL/S/6 FCINL CTLRI
CIRJ1D.P1Y
28-MAR-79 09:03

100, RP0O4/5/6 FCINL C(TLRI
10.P11
28-MAR-79 09 :03

MACY11

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

;+1TEM 50

EMS0

001720
001722
001724

070447
071760
072177

001726

060555

DH30
D130
DF30

s«1TEM S

EMSI

1380
1381

1382
1383
1384
1385
1386
1387

1388
1389
1390

1391
1392
1393
1394
1395
1396
1397
1398
1399
1400

1401
1402
1403

16404
1405
1406
1407
1408

1409

1410
1411
1412
1413
1414
1415
1416

10:30

PAGE 29

SEQ 00728

; TRANSFER

: TRANSFERRING FROM NONEX]STANT
;SECTOR CAUSED DATA ERROR
;600D DATA GIVES WHAT
:SHOULD BE IN BUFFER
;RECEIVED DATA GIVES WHAT WAS
;IN BUFFER AFTER TRANSFER

JGIVING ILLEGAL FUNCTION CAUSED

s IMPROPER REGISTER CHANGE
;GOOD DATA GIVES WHAT SHOULD BE

; THERE

;RECEIVED DATA GIVES REGISTER

001730

070563

001732
001734

071774
072204

001736

061022

DHS1

;g?NTENTS AFTER

ILLEGAL

FUNCTION

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

;s ILLEGAL FUNCTION
;SERRPC ,REGADR,S$GDDAT
,$BDDAT, ILLEGL
:0,0,0.0,0
J*]TEM 52
EMS2

001740
001742
001744

067613
0715660
072144

001746

061277

001750
001752
001754

070447
071760
072177

DH30
D130
DF 30

001756

061365

;*]TEM 564
EMS4

DH$S
D15
DFS

;*]1TEM 53

EMS3

JWRITE DATA ON NONEXISTANT
;SECTOR CAUSED [MPROPER
sREGISTER (HANGE
;600D DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT
;WAS THERE AFTER
JWRITE DATA

ATTEMPTED

;READ HEADER AND DATA AFTER

:A SEARCH CAUSED AN ERROR

;ATTEMPTED OPERATION WITH

; INVALID ADDRESS CAUSED

; IMPROPER REGISTER CHANGE

{
\

0, RP04/5/6 F(T

067613
071660
072144

001766

061632

001770
001772
001774

071660

001776

062120

DHS
D15
DFS

;*1TEM 55
EMSS

e
i e
e

D
e

ol W

o
e

001760
001762
001764

o
P

il
b —d
b

P ol ol
Pl
WO

—

28-MAR-79

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

oV W

.P1 \

MACY11

1431
1632
1433
1434
1435
1436
1437
1438
1439
1440
1441
14642
1443
1444
1445

1446
1447
1448
1449
1450
1451

1652
1453
1454
1455
16456
1457
1458
1459
1460
1461

1462
1463
1464

067613

072144

DHS
D15

PAGE

SEQ 0029

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

;WRITING/READING WITH EXPECTED

;ADDRESS OVERFLOW ERROR CAUSED
; IMPROPER REGISTER CHANGE
:GOOD DATA GIVES WHAT SHOULD
;BE THERE
RECEIVED DATA GIVES WHAT
;WAS THERE AFTER OPERATION

DFS

;*1TEM 56
EMS56

;DATA READ WITH AN EXPECTED

:ADDRESS OVERFLOW ERROR

; INCORRECT
;WORD NO 1

;BE READ
002000
002002
002004

070647
071760
ora177

DH30
0130
DF30

002006

062330

se]1TEM 57
EMS7

;NOT

70 260 SHOULD

;WORD NOS 261
CHANGE

TO 266 SHOULD

DUE

TO READ

ATTEMPTING DATA COMMAND
;WITH WRONG FORMAT BIT CAUSED

: IMPROPER REGISTER CHANGE
;:G00D DATA GIVES WHAT SHOULD BE
: THERE

sRECEIVED DATA GIVES WHAT WAS
;THERE

002010
002012
002014
002016

067613
071660
072144
062622

DHS

AFTER ATTEMPTED DATA

;s TRANSFER

D15
DFS

;+1TEM 60
EM60

;ATTEMPYING TO MODIFY

;DURING AN OPERATION CAUSED
;s IMPROPER REGISTER (HANGE

1465

;600D DATA GIVES WHAT SHOULD

1466

1467
1468
1469
1470
1471
1472

10:30

:BE THERE
;RECEIVED DATA GIVES WHAT WAS
;:THERE

002020

070722

DH60

AFTER

;WAS COMPLETE

s P(
;REG.

ADDR.

OPERATION

DO, RPO4/S/6 FCINL CTLRI
D.PI1
28-MAR-79 09:0%

MACY11

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

4
5

10:30

PAGE 2|

SEQ 0030

;600D DATA

002022
002024
002026
002030

072012
072212

D160
DF60

063233
071057

s*]TEM 61
Eme
DHO1

;RECEIVED DATA
;MODFING REGISTER

:SERRPC,REGADR,SGDDAT
,$BDDAT ,$BDANR
:0,0,0,0,0
:DEVICE NOT AVAILBLE BEFORE COMMAND WAS TO BE GIVEN
:PC
;TEST

sPC OF

002032
002034

072030
072220

D161
DF61

002036

063314

s*1TEM 62
EM62

002040

071152

DH6?2

NO.

JSR

;RHCST

CONTENTS

;RHDS1

HAS STATUS BITS STUCK AT ONE

sSERRPC,$TSTNM, PCJSR,$BDADR
;0,0,0,0

:PC

;TEST

NO.

) —O
~NOWNES
= OO0V

002042
002044

072042
072226

D162
DF62

002046

063375

;2] TFM 63
EM63

002050
002052
002054

067613
071660
072144

002056

063451

DH5S
D15
DFS
;e TEM 64

EM64

;RHDS1

CONTENTS

;RHDSY

CONTENTS DURING

;SERRPC,$TSTNM, PCJUSR,$BDADR
;0,0,0,0

; COMMAND WAS

N ERKOR

;RECALIBRATE COMMAND CAUSED
; IMPROPER REGISTER CHANGE.

;?OggEDATA GIVES WHAT SHOULD BE

;TH

;RECEIVED DATA GIVES WHAT WAS THERE

002060
002062
002064

067613
071660
072144

DHS
D15
DFS

;AFTER

COMMAND

;] TEMGS

002066
002070

063670
071245

EM6S
DH6S

002072
002074

072054
072230

D165
DF6S

AWM
N

——
il
—
—
el
i
il ——
)
e
)
)
el
e
e
v
e
—

W IV IV IV RV XV IV SV RV RV RV SV LU LW RV VW W RV XV
POPNUPUMNURNOPNURNUNUN)
=
e et ed b b et =

—l

;PC OF JSR

;INTERRUPT FAILING
;PC
;TEST NO
;CONTENTS OF RHCSI
;CONTENTS OF RHMAS
;sCONTENTS OF RNHDS!

DN
:SERRPC,TSTNM,CS1,AS,
;0,0,0,0,0

—

28-MAR-79 09:03

002076

063712

MACY11

30AC1052)
25-MAY-79
ERROR POINTER TABLE
(*1TEMGG

EM66

el
S et sl amth
el

10:30

3
PAGE

*¢

Sea 0031

sHEADER AND DATA COMMAND

sFOR HEAD SELECTION TEST

;CAUSED AN ERROR
;RHDST GIVES WHAT TRA(CK
;WAS BEING WRITTEN ON CYLINDER O

)

-l

(S AV IV LV SV LV LW LU, LV TV TV LV IV IV }

RPO4/5/6 FCINL CTLR]

002100

071370

DH66

;SECTOR 0

;PC
:RHDST

; RHER!
:RHER?2
;RHER3
sRHCST

002102
002104

072070
072235

002106

064104

sRHCS?2

;v 1TEMG?

D166
DF 66

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

EM67

;READ HEADER AND DATA ERROR
;IN HEAD SELECTION TEST

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

;FIRST FOUR WORDS GIVE
;NEXT WORDS ARE DATA

HEADER

;GO0D DATA WORDS GIVE
:THE

10
002112
14

070447
071760
072177

064374

:*1TEM70

DH30
D130
Df 30

EM70

TRACK NUMBER

:B171S 4,5,6,7.8

:READ HEADER

AND DATA

ERROR

JIN DIFFERENCE LINE TEST
;WORD NOS. 1-4 GIVE
;HEACER

;WORD NOS. 5-260 GIVE DATA

[V RV IV W AV IV TV TV IV TV TV IV _JV_ TV RV ]
OO0 OD NN N NNNNNN
SN = OO
N
NS
)

)

el el

D el

)

il el

sndh

:WHICH

—t

~ P~

002120
002122
002124

070447
071760
072177

DH30
D130
DF 30

002126

064602

JelTEM 7
EmM71

;ADDRESS

THE

CYLINDER

;FORCING OP] CAUSED IMPROPER REGISTER
;.

CHANGE

;GO0D DATA GIVES WHAT SHOULD
:BE THERE
JRECEIVED DATA GIVES WHAT WAS
002130

067613

002132
002134

071660
072144

002136

065345

DHS

D15
DFS

se]TEM 74
EM74

:THERE AFTER

:PC
;REG.

INDEX PULSES

ADDR,

;GO0OD DATA
;RECEIVED DATA

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

;WHILE USING UNIBUS B
;READ DATA

CAUSED

IMPROPER REGISTER

—

PO&4/5/6 FCINL CTLRI

28-MAR-79 09:03

MACYTY

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

10:30

PAGE

SEQ 0032

; CHANGE

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

002140
002142
002144

067613
071660
072144

; COMMAND

DHS
DTS
DFS

002146

065273

;e1TEM 73
EM73

002150
002152
002154

070447
071760
072177

DH30
D130
DF 30

002156

065345

Jr1TEM 74
EM74

;WHILE USING UNIBUS B
;READ DATA [NCORRECT

;WHILE
;WRITE

USING UNIBUS B
DATA COMMAND CAUSED

. IMPROPER REGISTER C(HANGE

;600D DATA GIVES WHAT SHOULD BE

;RECEIVED DATA GIVES REGISTER
;CONTENTS AFTER WRITE DATA

DH5
015
DF5

002160
002162
002164

067613
071660
072144

002166

065611

002170
002172
002174

070447
071760
or2177

DH30
D130
DF30

002176

065714

SvlTEM 76
EM76

;«1TEM 75

EM75

THERE

;WHILE USING UNIBUS B
;WRITE DATA COMMAND C(HANGED
;WRITE FROM BUFFER

;WHILE USING UNIBUS B
;WRITE CHECK CAUSED AN
; IMPROPER REGISTER CHANGE
.GOOD DATA GIVES WHAT SHOULD
;BE THERE

RECEIVED DATA CIVES WHAT WAS

002200
002202
002204

002206
002210

067613
071660
072144
066151
071466

: THERE

DHS
015
DF5

;t1TEM 77
EM?77
DHIT

AFTER

COMMAND

;CURRENT CYLINDER DOES NOT REFLECT DESIRED 'RMCC’
;PC
;PC

JSR

;REGISTER ADDRESS

~ TM~

002212
002214

noro
N =

;GOOD DATA
QO

;BAD DATA

;SERRPC,PCJSR,REGADR,$GDDAT
,$BDDAT

:0,0,0,0,0

CIRJ] DO, RPO4/S/6 FCINL CTLRY

CIRJIID.PY
1641

28-MAR-79 09:03

MACY11 30A(1052)

25-MAY-79

ERROR POINTER TABLE
.*1TEM 100

]

PAGE 34

SEQ 0033

1662
1663
1644
1645

002216
002220

066374
067613

1647
1648

002222
002224

071660
072144

002226

066456

;*1TEM 101
EM101

002230

070250

DH26

;UNIT DID NOT GO OFFLINE WHEN ADDR
sPLUG WAS REMOVED
:PC

002232
002234

071736
072167

D126
DF26

;CONT OF RHER3
;SERRPC,(S1,CS2,DS1,ER2,ER3
:0,0,0,0,0,0,0

002236

066540

1665

002240

070250

DH26

1671

002242

071736

D126

002246

066617

002250

070250

1646

1649

1650
1651
1652
1653

1654
1659
1656
1657

1658
1659
}gg?

1662

1663
1664
1666
1667
1668
1669
1670

}6;%
6

1674
1675
1676
1677

1678
1679
1680
1681

1682
1683
162;
16

1686

1687
1688
1689
1690
1691
1692
1693

1694
1695
1696

002244

EM100
DHS

10:30

DTS
DFS

;*1TEM 102

EM102

072167

DF26
;*1TEM

103
EM103
DH26

D126
DF26

002252
002254

071736
072167

002256

066703

002260

070250

DH26

002262
002264

071736
072167

D126
DF26

;*1TEM

104

EM104

;ERROR AFTER ADDRESS PLUG CHANGE
:PC
;REGISTER ADDRESS
;GOOD DATA
;RECEIVED DATA

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

;CONT
;CONT
;CONT
;CONT

OF
OF
OF
OF

RHCS!
RH(CSZ
RHDS1
RHERZ2

;UNIT DID NOT COME BACK ONLINE WHEN
;ADOR PLUG WAS REPLACED
. PC

:CONT
:CONT
:CONT
;CONT
:CONT

OF
OF
OF
OF
OF

RHCSI
RH(S?Z
RHDSI
RHER?2
RHER3

;SERRPC,(S1,(S2,DS1,ER2,ERS

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

;REGISTER CONTENTS INCORRECT BEFORE A
;DIAGNOSTIC SEEKX
;PC
;CONT OF RH(CS]
:CONT OF RH(S2

:CONT OF RHDS1
:CONT OF RHER?2
; CONT OF RHER3
;SERRPC,CS1,052,DS1,ER2,ER3
:0,0,0,0,0,0,0

;REGISTER CONTENTS INCORRECT AFTER A
;DIAGNOSTIC SEEK
+PC
;CONT OF RHCS!
;CONT OF RH(CS?2
: CONT OF RHDS!
:CONT OF RHER?2

:CONT OF RHER3
,ER3
;SERRPC,(S1,0S2,DS1,ER2
;0,0,0,0,0,0,0

CIRJIDO, RPOL/S/6 FCINL CTLRY

CZRJID.P
1697

28-MAR-79 09:03

MACY11

30A(1052)

25-MAY-79

ERROR POINTER TABLE

10:30

3
PAGE 35

SEQ 0034

CIRJIDO, RPO4/5/6 FCINL CTLRY
CIRJID.PIY
2B-MAR-79 09:03
1698

1699

002266

000254

1706
1707
1708
1709
1710
1711
1712
1713
};}g

};gg

1740

REGISTERS

RPVEC:

PAGE 3¢

254

]
Sea 0035

X N
R

R
Y

R T Y
R

R R R P R

YY)
Y YY)

:RPO& VECTOR ADDRESS

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

11;}3

R A

10:30

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

1716
1717

1737

;*RH11

1701

1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
};gs

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

1700

1702
1703
‘;82

MACY11

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

usl1=
use=
USé=
BA]=
UNIB=
CLRIR=
OR=
MPE =
MXF =
PGE=
NEM=
NED=
UPE =
W(E=
OLT=

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

;*DATA BUFFER REGISTER

;*EACH BI1

;UNIT SELECT (BIT #0)
SUNIT SELECT (BIT #1)
SUNIT SELECT (BIT #2)
;BUS ADDRESS INCREMENT INHIBIT (BIT
;UNIBUS B DC LO (BIT #4)
;CLEAR (BIT #5)
; INPUT READY (BIT #6)
;OUTPUT READY (BIT #7)
;MASS BUS PARITY ERROR (BIT #8)
;MISSED TRANSFER ERROR (BT #9)
. PROGRAM ERROR (BIT #10)
:NON EXISTANT MEMORY (BIT #11)
;NON EXISTANT DRIVE (BIT #12)
;UNIBUS PARITY ERROR (BIT #13)
;WRITE CHECK ERROR (BIT #14)
;DATA LATE (BIT #15)
(RHDB)

IS CALLED BY BIT NUMBER

#3)

RPO4/5/6 FCINL CTLRY

28-MAR-79 09:03

MACY11

30A(1052)

25-MAY-79

ERROR POINTER TABLE

10:30

3
PAGE 3/

2222222222222

SEQ 0036
dRRRRRRRRRRRaRRidandl

S*RPO4 REGISTERS

)

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

;*CONTROL AND STATUS 1 REGISTER.
000001
000100

000200
000400
001000
002000
004000
020000
040000
100000

60=
1E=

RDY=
A16=
A17=
PSEL=
DVA=
MLPE=
TRE=
SC=

1
100

;G0 (BIT #0)
;INTERRUPT ENABLE

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

200
400
1000
2000
4000
20000
40000
100000

;*STATUS REGISTER

(#00)

(RHDS1)

(#0%)

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

DFFS=
DFF20=
DIGB=
GRv=
DL64=
DE1=
vy=
DRY=
DPR=
PROG=
LBT=
WRL =
MOL=

1
2
&
10
20
40
100
200
400
1000
2000
4000
10000

;ORIVE FORWARD 5''/SEC.
(BIT #0)
;DRIVE FORWARD 20°'°/SEC.
(BIT #1)
;DRIVE TO INNER GAVRD BAND (BIT #2)
;60 REVERSE (BIT #3)
;DIFFERENCE LESS THAN 64 (BIT #4)
;DIFFERENCE EQUALS 1 (BIT #5)
;VOLUME VALID (BIT #6)
;DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT #8)
; PROGRAMABLE (BIT #9)
:LAST SECTOR TRANSFERRED (BIT #10)
;WRITE LOCK (BIT #11)
;MEDIUM ON-LINE (BIT #12)

100000

ATA=

100000

;ATTENTION ACTIVE

020000
040000

PlP=
ERR=

20000
40000

000001
000002
000004
000010

;*ERROR
ILF=
ILR=
RMR =
PAR=

000040

WCF=

020200
000400
001000
002000
004000
010000
020000
040000
100000

HCE=
HCRC=
AQE =
IAE=
WLE=
DTE=
OPl-=
UNS=
D(K=

200
400
1000
2000
4000
10000
20000
40000
100000

000020

000100

FER=

ECH=

100

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

(RHER1) (#02)
s ILLEGAL FUNCTION (BIT #0)
;ILLEGAL REGISTER (BIT #1)
;REGISTER MODIFICATION REFUSED (BIT #2)
;PARITY ERROR (BIT #3)
. FORMAT ERROR (BIT #4)

;WRITE CLOCK FAIL (BI1 #5)
;ECC HARD ERROR (BIT #6)

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

CIRJI1IDO, RPOG/S5/6 FCTINL CTL R1
CZRJ1D.PY
28-MAR-79 09: 03
1797
1798
1799
1800
1801
1802
1803

NN
— OOV~
N
N
—

D el

)
ol

D
sl

ol
el
)

el e

000001
000002
000004
000010
000020
000040
001000

PAGE

DMD
=
MCLK=
MINX=
MST(K=
MRD=
MWR=

SEQ 0037

DTSY=

;DIAGINOSTIC MODE (BIT #0)
SMAINTAINABILITY CLOCK (BIT #1)

SMAINTAINABILITY INDEX (BIT #2)
SMAINTAINABILITY SECTOR CLOCK (BIT #3)

4
10

SMAINTAINABILITY READ (BIT #4)
;MAINTAINABILITY WRITE (BIT #5)
:MAINTAINABILITY SYNC DETECTED (BIT #9)

20
40

1000

;*ATTENTION SUMMARY PSEUDO-REGISTER
000001
000002
000004
000010
000020
000040
000100
00000

(RHAS)

(#04)

AT5=

1
2
4
10
20
40

;DEVICE
;DEVICE
;:DEVICE
:DEVICE
:DEVICE
:DEVICE

AT7=

200

:DEVICE 7 (BIT #7)

AT0=
AT1=
AT2=
AT3=
AT4=

AT6=

100

O (BIT #0)

2
3
&
5

:DEVICE 6

(BIT
(BIT
(BIT
(BIT
(BIT

M)
#2)
#3)
#4)
#5)

(BIT #6)

;*DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST)
;*EACH BIT 1S CAL'ED BY BIT NUMBER

emd

10:30

;*MAINTAINABILITY REGISTER (RHMR)(#03)

i
—

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

(#1)

oo N

b
b
—r

[o Jo To T} 0o 0o OO 0o 0o OO 00 0o OB OO

1804
1805
1806

MACY11

;*DRIVE TYPE REGISTER

1825

1828
1829
1830
1831
1832
1833
1834
1835
1836
1837

1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1892

(RHDT)

(#06)

;*EACH BIT IS CALLED BY BIT NUMBER

1826
1827

;*LOOK~-AHEAD REGISTER (RHLA) (#07)
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

002000
004000
010000
020000
040000
100000

EXT1=
EXT2=
EXT4=

EXT10
ExT20
EXT4O
SC1=

SCe2=

SC4=

SC10

1
2
4
10
20
40
100
200
400
1000
2000
4<0n0
10000
20000
40000
100000
REGISTER #2 (RHER2)

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

;TRACK FIELD 3 (BIT #
;TRACK FIELD & (BIT #

;TRACK FIELD 5 (BIT #
(#10)

")
")

")
’9)
$0)

P0O4/5/6 FCTNL CTLRI

—

28-MAR-79 09:03
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
100000

MACY1T

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

10:30

n3
PAGE 39

wlu=
(SF=
WSU=
(Su=
MSE=
=
TDF
=
TUF
FEN=
WRU=
MHS=
NHS=
IXE=

OF25=
OF50=
OF100=
0F200-=
OF400-=
OF800-=

000200
002000
004000
010000

OFREV=
HCl=

ECl=
FMT22=

(BIT #0)

;WRITE SELECT UNSAFE

(BIT #2)

;CURRENT SWITCH UNSAFE (BIT #3)

;MOTOR SEQUENCE ERROR (BIT #4)
;TRANSITIONS DETECTCR FAILURE (BIT #5)
:TRANSITIONS UNSAFE

(BIT #6)

;WRITE READY UNSAFE

(BIT #8)

;FAILSAFE ENABLED (BIT #7)

;MULTIPLE HEAD SELECT (BIT #9)
;NO HEAD SELECTION (BIT mMO)
; INDEX ERROR (BIT #11)
;30VOLT UNSAFE (BIT #12)
;PLO UNSAFE (BIT #13)
;ACUNSAFE (BIT #15)

100000

;*OFFSET REGISTER (RHOF)
000001
000002
000004
000010
000020
000040

;WRITE CURRENT UNSAFE

;CURRENT SINK FAILURE (BIT #1)

vu3o0

PLU=
ACU=

SEQ 0038

200
2000

4009
10000

(#11)

;OFFSET 2 5

MICRO INCHES (BIT #0)
;OFFSET 5 0
MICRO INCHES (BIT #1)
;OFFSET 100 MICRO INCHES (BIT #2)

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

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

(BIT #12

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

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

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

1903
1904
1905
1906
1907
1908

000001
000002
000010
000020
000040
000100

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

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

DCL=

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

PSU=

UWR=
PRE
=
ACL=

s ANY UNSAFE EXCEPT READ/WRITE (BI1 #3)
;D1SK PACK ROTATION ERROR (BT #4)

CIRJIDO, RPO&/5/6 FCINL CTLRY
CIRJID.PV
28-MAR-79 09:03

25-MAY-79

ERROR POINTER TABLE

ACE=
SK1=
ocvt=

20000
40000
100000

10:30

PAGE 40
:ADDRESS CHANGE ERROR (BIT #13)
;SEEX INCOMPLETE (BIT #14)
;OFF CYLINDER (BIT #15)

OOV~
VN wr

020000
040000
100000

30A(1052)

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

[\ I Y

) el el

)

il ol

DO 0000 OO0

1909
1910
1911

MACY11

1921

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

SEQ 0039

0, RPO4/5/6 FCTINL CTLRY
P
28-MAR-79 09:03

MACY11

30A(1052)
25-MAY-79
REGISTER ADDRESSES
.SBITL

176722
176702
176704
176710

RHDB:
RHW( :
RHBA:
RHCS2:

002310
002312
002314
002316
002320
002322
002324
002326
002330
0023232
002334
002336

176700
176714
176706
176740

176732
176734
176742
176716
176724
176712
176726
176730
176744
176746
176736
176720

RHCS1:
RHER1:
RHDST:
RHER2:

RHOF :
RHCA:
RHER3:
RHAS:
RHMR :
RHDS1:
RHDT:
RHSN:
RHECY:
RHEC2:
RHCC:
RHLA:

4
PAGE 4!

1/0 REGISTER LOCATED

176722
176702
176704
176710

;*RP04/5/6 DISK

002300
002302
002304
002306

SEQ 0040

;*RP04/5/6 DISK

002270
002272
002274
002276

10:30

IN THE RH11

CONTROLLER

:DATA BUFFER
;WORD COUNT
;BUS ADDRESS
;CONTROL AND STATUS 2
1/0 REGISTERS LOCATED IN THE DEVICE

176700
176714
176706
176740

176732
176734
176742
176716
176724
176712
176726
176730
176744
176746
176736
176720

CONTROL LOGIC

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

;OFFSET
;DESIRED CYLINDER ADDRESS
;ERROR #3
;ATTENTION SUMMARY
SMAINTAINABILITY
;DRIVE STATUS
;DRIVE TYPE
; SERIAL NUMBER
;eCC POSITION
;ECC PATTERN
; CURRENT CYLINDER ADDRESS
;LOOK=AHEAD

;*ADDITIONAL [/0 REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC
0023-0

002342

176750

176752

RHBAE:

RHCS3:

176750

176752

:BUS ADDRESS EXTENSION REGISTER

; CONTROL AND STATUS REGISTER #3

;*P-CLOCK (KW11=P) ]/0 REGISTERS

002344
002346
002350

172540
172542
172544

PCLCSR: 172540
PCLBUF: 172542
PCLCTR: 172544

:CONTROL AND STATUS REGISTER
;COUNT SET BUFFER
: COUNTER

(DCL)

—

TIR1
CIRJIDO, RPO4/S/6 FCTINL (TH
CIZRJ1D.P11
28-MAR-79 0 9:03

1975
1976

1977
1978

2002
2003
2004
2005
2006
2007
2008
2009
2010
201
2012
2013
2014

10:30

PAGE 42

SFQ 0041

:*THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SNAPSHOTS
;*ANY TIME THERE IS AN ERROR ALL THESE wILL BE FILLED
;*ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE

;*FOR THE TIME JUST AFTER THE ''ERROR’' ERROR COMMAND
B

ARy

'TH]S ASSUMES THAT A REGISTER SNAPSHOT HAS BEEN TAKEN WHICH IS NOT
;*ALWAYS THE CASE -~ |F QUESTIONABLE CONTENTS APPEAR IN THE REGISTER

3'PR1NTOUTS. CHECK THE INLINE TEST CODE TO SEE IF
*REFLECTS THE CURRENT STATE OF THE MACHINE

THE REGISTER SNAPSHOT

.';"'t""""'l""""'.""""""""'I""i!'tt.tl""ttt!t

002352
002354
002356
002360

000000
000000
000000
000000

DB:
wi:
BA:

OOOO

2000
2001

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

002362
002364
002366
002370
002372
002374
002376
002400
002402
002404
002406
002410
002412
002414

000000
000000
000000
000000

(St:
ER:
DST:

OOOOOOOOOOOOODOODOO

1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999

MACY11

002416
002420

000000
000900
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

(Se:

ERZ:
OF:
CA:

ERY:

AS:
MR:

DSY:
DT:
SN:

ECT:
EC2:
C:
LA:

;DATA BUFFER
;WORD COUNT
;BUS ADDRESS

;CONTROL AND STATUS 2
;CONTROL AND STATUS 1

;ERROR M

;DESIRED SECTOR/TRACK ADDRESS
;ERROR #?
;OFFSET
;DESIRED CYLINDER ADDRESS

;ERROR #3

ATTENTION SUMMARY
;MAINTAINABILITY

;DRIVE STATUS
;DRIVE TYPE
;SERIAL NUMBER
;ECC POSITION
;ECC PATTERN
;CURRENT CYLINDER ADDRESS
; LOOK-AHEAD

CIRJIDO, RPO4/S/6 FCTINL CTLR1
CIRJ1D.PVY
28-MAR-79 09:03

MACYT1

30A(1052)
2 5=MAY=79
REGISTER ADDRESSES

10:30

&
PAGE &5

SEQ 0042

2015

2016
%8};

2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
gggg

;*FUNCTION EQUATES

002422
002422
002424
002426
002430
002432
002434
002436
002440
002442
002444
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

2040
2041

2042
2063
2064

2045
20646

2047

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

;*TABLE OF FUNCTIONS FOR RHCS1
0
2
6
10
12
30
50
52
60
62
70
72
&
14
16
22
20
.WORD

THEN ''6O'' BIT HAS TO BE SET

+NO OPERATION
:UNLOAD (STAND BY)
;RECALIBRATE
;DRIVE C(LEAR
;RELEASE (DUAL=-PORT OPERATION)
s SEARCH COMMAND
;WRITE CHECK DATA
JWRITE CHECK HEACER AND DATA
;WRITE DATA
;WRITE HEADER AND DATA (FORMAT)
;READ DATA
;READ HEADER AND DATA
; SEEX COMMAND
;OFFSET COMMAND
;RETURNTO CENTERLINE
;PACK ACKNOWLEDGE
;READ IN
;COMPUTED ILLEGAL FUNCTION

:*DATA BUFFERS FOR READ/WRITE

002470
003534

000622
000422

WRFROM:
REINTO:

.BLKW
.BLKW

276,
274.

;WRITE FROM THIS BUFFER
;READ INTO THIS BUFFER

CIRJIDO, RPO4L/S/6 FCTINL CTLR]
CZRJID.PVY
28-MAR-79 0 9:03

2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062

2063
2064
2065
2066
2067
2068
2069
2070
207
2072
2073
2074
2075
2076
2077

MACY11

30AC1052)
25-MAY-79
REGISTER ADDRESSES

10:30

&
PAGE 44

SEQ 0043

; *RESERVED CORE LOCATIONS
004600
004602
004604
004606

000000
000000
000000
000000

REGADR:
ERWORD:
TSTNM:
RP4VEC:

0
0
0

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

s CONTAINS ADDRESS OF

;WHERE AN RPO&

LOCATION

INTERRUPT

1S TO VECTOR

;THIS MUST BE MOVED INTO 'RPVEC' TO BE

SEFFECTIVE.
004610

000000

OFSTvL: O

006612

€00024

SAVERE:

.BLkWw

;OFFSET VALUE USED IN OFFSET
20.

;BLOCK TO SAVE REGISTERS FOR PRETEST

;HARDWARE REGISTER SNAPSHOTS - THESE
;ARE

004662
004664

FINALA:
FINACC:

000000
000000

USUALLY

001
010
100

002

020
200

808
4

ATABLE:

O
O

.BYlE

THEN CHANGED

TO REFLECT

;EXPECTED CONDITIONS AFTER THE TEST
:SAVE
;SAVE

;*TABLE FOR ATTENTION BITS
S«ATTENTION TABLE

004666
004671
004674

TEST

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

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

CZRJIDO, RPO4/S/6 FCINL CTLR1
CIRJID.PI
28-MAR-79 09:03
2078
2079

%8%?

MACY11

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

10:30

PAGE 4>

SEQ 0044

:*FLAGS AND INTERNAL PROGRAM (ONTROL WORDS

2082
2083
2084
2085
2086
2087
2088
2089
2090
2691
2092
2093

004676
004716
004720

000010
000000
000000

UNITS:
UNIT:
NOUNIT:

.BLKW
.WORD
.WORD

8.
0

004722

000000

NUNIT:

.WORD

004724

000000

NOPUSH: 0

004726
004730
004732

000000
000000
000000

SELECT: .WORD
UNITSL: .WORD
UBUSB:
0

209¢
2095
ggg?

004734
004736

000000
000000

ERFLGS: O
FIRST:
0

2098
2?88

004740
004742

000000
000000

ATTENT: O
TOTALAT:0

ATTENTION BIT FOR PRESENT UNIT
:TOTAL ATTENTION BITS

2101

004744

000000

000000
000000

RPO6:

RPOS:
RH70:

;RPO6 DEVICE TYPE FLAG LOCATION

004752

000000

INUNIT: O

004754
004756
004760

000000
000000
000000

TMPO:
TMP1:
TMP4:

2102
2103
2104
2105

2189
2107
2108
2109
2110
21N

2112
2113
2114

004746
004750

O
O

;ERROR FLAG
:1F ZERO WILL TYPE HEADER
:1F ONES WILL NOT TYPE HEADER

O
0

.WORD
.WORD
.WORD

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

:MEMOREX
:1F = 1,
;1F = 0,
:INITIAL

RPO4 DEVICE TYPE FLAG
PROGRAM 1S RUNNING ON RWP0O4 SYSTEM
PROGRAM IS RUNNING ON RJUPO4
UNIT NO. - USED DURING

;CHECKING ALL ADDRESS PLUG ADDRESSES

O
O
0

:TEMP STORAGE

;TEMP STORAGE

NOWVNE WA —=OVONO
NS WA =000~

005022
005022

000005

005024
005030
005032
005036
005040

012706
005026

005044
005052
005060
005066
005074
005102
005110
005116
005124
005130
005134
005142
005150

ooV
NN NN

012737
005037
000412
012737
005037
000404
005037
005037

25-MAY-79

10:30

LSBTTL
.SBTTL
LSBTTL

*+D]AGNOSTIC

CODEer

177777
004726

004724

BEGINI: Mov

177777
004724

004726

BEGINZ: mov
BEGIN:

004726
0047264

START:

001100

000004
005216

177570
177570
177777

000174
000004

#-1,3#NOPUSH

; JUMP OVER OPERATOR REQUIRED TESTS

CLR
BR
CLR

2::2$USH

;00 NOT JUMP OVER ANY TEST

SFSELECT

;00 NOT SELECT UNIT

CLR

STARY
F-1,9NSELECT

;SELECT UNIT

;D0 NOT JUMP OVER ANY OPERATOR

@#NOPUSH

;INTERVENTION TESTS - NORMAL RUN

RESET

BNE

—_— ) —s
[ Yo
RV}

000020
000022
000030
000032
000034
000036
000024
000026

—

NNTNN

SETUP TESTS

;00 NOT SELECT UNIT

CMP

;;FIRST LOCATION TO BE CLEARED
;s CLEAR MEMORY LOCATION

:;LOOP BACK IF

FSWR,R6

; ;DONE?

#STACK,SP

Mov
MoV
MOV
Mov
MOV
MOV
Mov
Mov

#$SCOPE ,8#10TVEC ;10T VECTOR FOR SCOPE ROUTINE
#340,9#10TVEC+2 ;;LEVEL 7
#SERROR,SNEMTVEC :;EMT VECTOR FOR ERROR ROUTINE
#3L0,SNEMTVEC+2 ;;LEVEL 7
#STRAP ,Q#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#340,3#TRAPVEC+2;LEVEL 7
#SPWRDN ,S#PWRVEC ;;POWER FAJLURE VECTOR
#340,3/PURVEC+2 ;;LEVEL 7

MOvB
Mov
MoV

STIMES

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

;;SETUP THE

MOV

(LR
CLR

STACK POINTER

;o INITIALIZE NUMBER OFf

ITERATIONS

:;CLEAR THE ESCAPE ON ERROR ADDRESS
;;ALLOW ONE ERROR PER TEST
;s INITIALIZE THE LOOP ADDRESS FOR SCOPE
;s SETUP THE ERROR LOOP ADDRESS

;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;EQUAL TO A "'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.

64%:

001140
001142

FS(MTAG,R6
(R6) ¢+

:oINITIALIZE A FEW VECTORS

000004
001140
001142
173726

005224

000176

SEQ 0045

SNSELECT

(LR

OO0
OO0

NNNOO:NNNNNN
(W LV LV IV )

WM
MO — O

NNNNNO
W

NNNNNO

ON~NNNN
— M
S

005214
005216
005222
005224
005232
005240

O NIO~NS

OO =000 00O0O0O00OO

005156
005162
005170
005176
005204
005212

PAGE 46

(LR
BR

MoV

001140

044776
000340
047174
000340
050720
000340
051004
000340
001212
001214
000001
005142
005150

INITIALIZE THE COMMON TAGS
.. CLEAR THE COMMON TAGS ($CMTAG) AREA
.SBTTL

001000

roroNNONO

170

004762
004770
004774
004776
005004
005010
005012
005016

OO0O0O0O0O0O

[V
o

[o X o Ko J
O~

166

30A(€1052)

.SBTTL

OOOQOO

= OOV

s
el el

MACY11

b et et s

D kel
D
o
il
D
s
sl
D
il el
il Al
il
d
D
D
el
e

AN AN N AN N RN NI PO NN NI PO NI NI PNUND —

D
il
)
D
—

63
oo

—

[o X Yo RV IV RV AV U TV LV JU LV 2V
= OOV
NO NS WN-—-O

85 BN

AIRNIRLRLNIRNININO
N PN RN PN N PR NN RO
A NI NI D

CIRJIDO, RPO&L/S5/6 FCTINL CTLRI
P
28-MAR-79 09:03
CIRJ1D.P

65%:
669%:

MOV
Mov
mov
MOV

SMERRVEC,-(SP)

;;SAVE ERROR VECTOR

CHP
BNE

#-1,354WR
669

B8R

65%

;o TRY TO REFERENCE HARDWARE SWR
: ;BRANCH IF NG TIMEOUT TRAP OCCURRED
;;AND
THE HARDWARE SWR IS NOT - -1
. :BRANCH [F NO T]MEOUT

FSWREG, SWR

;:POINT T0 SOF TWARE SWR

(SP)+ ,QNERRVEC

;:RESTORE ERROR VECTOR

Mov
RTI
Mov
MOV
MoV

leS,alERRVEC
#DSWR, SWR
#DD1SP,DISPLAY

0659, (SP)
#DISPREG,DISPLAY

..SET UP ERROR VECTOR
:SETUP FCR A HARDWARE SWICH REGISYER
::AND A HARDWARE DISPLAY REGISTER

;:SET UP FOR TRAP RETURN

[AS 1SV
1,V 1,¥]

004737
005737

045734
004736

000137

006112

005314
005314
005320
005414
005414
005420

SNSNNNN

e
s
—

-— NSO NN
QOO ~N~N

005274
005300
005304
005306
005310

005244
005252
005260
005264
005270

[olololels)

e
o

800OOOOOOGOOQOOWOGNNNNNNNNN
CWVNE NN~ OV
VNS NN~ OV
NO VR WN -

e o il il el o e

it D D ol ol el el il D D o e

e e i D il el e

G €

e
P~

?POA/S/b FCTNL CTLRY
.P1
28-MAR-79 09:03

001001
000402

104401

000435
104401

000431

000000
000200
002266
064734
000340

MACY11

177776
000036

005322

;.68%:

67%:

005422

::708:

69%:

005504
005510

104401
000424

005512

005562
005562
005566

000433

104401

005570

104401

000435

1748
73%:

00566¢

2 76%:

75$%:

005756
005756
005762

000426

006040
006040
006044

104401
000422

104401

005764
;. 78%:
77%:

006046

006120
006124
006126
006134

005737
001006
023727
001005

177777

004736

000042
001140

000176

PC,aNSTKINT

;GET RP VECTOR ADDRESS
;THIS IS FOR UNTIMELY INTERRUPTS

;DRIVE INTERRUPT SERVICE ROUTINE
;PRIORITY = 7

;INITIALIZE THE TTY KEYBOARD

aNFIRST

;1S

B8R
JMP

S/SND1

;HEADER 1ST TIME THROUGH
;NO HEADER

.68%

;:TYPE ASCIZ

TYPE

THIS FIRST

TIME

ROUND

;OON'T GIVE HEADER IF NOT

STRING

BR
LASCIZ

67%
,.GET OVER THE ASCIZ
<15><12>7RP0&4/S5/6 FUNCTIONAL CONTROLLER TEST

TYPE
BR

,70%
69%

;:TYPE ASCIZ STRING
..GET OVER THE ASCI!Z

L1728

;. TYPE ASCIZ STRING

ASCIZ

- PART

BR
ASCIZ

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

TYPE
B8R
LASCIZ

L1469
73%
<15><12>/1F

TYPE

. 16%

LASCIZ

75%

;. TYPE ASCIZ STRING
..GET OVER THE ASCI!Z
CHANGE IS REQUIRED ON PORT SWITCH,

= (ZRJI-D?

;. TYPE

THEN A Cv(LE/

ASCIZ STRING

..GET OVER THE ASCIZ

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

BR
JASCIZ

77%
;:GET OVER THE ASCI2Z
<15><12>/ALL DCL'S NOT UNDER TEST MUST BE SWITCHMED/

,78%

;:TYPE

ASCIZ

TYPE

,80%

;;TYPE

ASCIZ STRING

STRING

sNEXT

TIME DO NOT

BR
LASCIZ

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

SND1:

MoV

#-1,90FIRST

LSBTTL

GET VALUE FOR SOf TWARE SWIT(CH REGISTER
181
Y IV
::ARE WE RUNNING UNDER xXDP/A(T?

BNE
mp
BNE

[

<15><12>/ALL DCL'S MUST BE LOCKED ON THE CORRECT PORT/<15><12>

;:80%:
79%:

012737

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

151

TYPE

006112
006112

#340, (RO)

TYPE

2o 72%:
71%:

SEQ 0046

MOov

BNE

2%:

&
PAGE &/

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

MOv
MOv

1%:

MOv
MOV

JSR

005504

005656
005656
005662

30A(1052)
25-MAY-79
10:30
INITIALIZE THE COMMON TAGS

6493
SWR, #SWREG
65%

GIVE

HEADER

; ;BRANCH IF YES
:;SOFTWARE SWITCH REG SELECTED?
:sBRANCH IF NO

—_——

0, RPO4/S5/6 FCINL CTLR)
P11
28-MAR-79 09:03

4
1
25-MAY=-79
10:30
PAGE 48
FOR SOf TWARE SWITCH REGISTER

s:GET SOFT-SWR SETTINGS

Mmove

#1,%A0108

;:SET AUTO-MODE

#SW12,aSWR
s

;LOOK TO SEE IF USING RH70
J1F SW12 = 0, SrIP NEXT

gg::

010000

172762

000001

004750

RH70CK: BI7
BEQ

~N&S~N
WO~

001134

NN~

65%

000001

SEQ 0047

g;SUR

112737
N
— N

006150
006156
006160
006166

30A(1052)
GET VALUE

104406

000403

OO
— O

006136
006140
006142
006150

MACY11

mov

#1,30RHT70

INDICATOR

J1F SWi12 = 1, (U IS AN RH70

;;'"""""""'l""t"""'""""t'.""t"lt'ttt"ttt'tttt

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

;*1F SO MAKE 'WAT" TRAPS GO TO °'WAIT.P'
;*1F SO MAKE RPO4 INTERRUPTS GO TO 'TIME 1°*

;*1F

NOT MAKE

°'WAT'

TRAPS GO TO 'WAIT.T°

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

of1%

Jflg

arls

181

S#PCLCSR

IMERRVEC

JSET

TIME-QUT

;D0 NOT

USE

VECTOR

CLOCK

MOV
Mov

;REFERENCE P-CLOCK STATUS REGISTER
;ADDRESS = 172540
FWALT.
P, aN¥STRPAD+20 ;THERE IS A P-(LOCK
NFTIMEY ,I¥RPSLVEC ;THERE IS A P CLOCK SO

MOV

;VECTOR 10 TIMED

FWAIT.T,aN8TRPAD+20 ;THERE 1S NO P-CLOCK

oo
~~N

04 1 736

006202
006206
006210
006214

005737
001442

004726

~NNO
N

004606
047342

2%:

;;253:

649

177770

004716
004730

004730

MOV
MoV

#TIME2,A¥RPLVEC ;RP0O4/5/6 INTERRUPTS GO TO 'TIME 2°'
#-1,30PRITEM
;CLEAR PREVIOUS ITEM NUMBER

OFSELECT

TYPE

,65%

8EQ

006216
:

BR
JASCIZ
RDOCT

006716

TsT

;

sWAS IT A 200 START

BRANCH 1F
s TYPE

STARTING FROM 200

ASCIZ

STRING

649
;:GET OVER THE ASCIZ
<15><12>/SELECY UNIT NUMBER TO BE TESTED ?

BIC
mov

#177770, (SP)
(SP),a8#UNI]T

BEOQ
WOV

SN
:
BRANCH 1F STARTING FROM 200
ONFUNITSL,a8UNIT ;SET UNIT NUMBER

MoV

wud—‘

—

006304
006306

006274
006300

000424
OO
—
— s O
LSRR
o
oo~

006266
006266
006270

177777
7

104401

OO
—_

006174

—

006166

(e Yo ]

.'".l.""t"""'t""""""tt'l""t't"""."'.'l."l""'.'

(SP)*,@BUNITSL

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

TO BE

TESTED

/<15<1¢>

CIRJ1D0O, RPO4L/S/6 FCINL CTL

CIRJID.PN

2283

28-MAR-79 0

MACY11

30A€1052)

GET

VALUE

25-MAY-79

10:30

FOR SOF TWARE

PAGE 49

SWITCH REGISTER

)

SEQ 0048

0, RPO4/S5/6 FCINL CTLRY

28-MAR-79 09:03

MACYI1

30A(1052)

25-MAY-79

10:30

PAGE 5V

GET VALUE FOR SOFTWARE SWITCH REGISTER

SEQ 0049

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

SeTEST 1

REFERENCE EACH REGISTER

REFERENCE EACH REGISTER BY A MOVE INSTRUCTION

UWNN—=O
OO N

NEB W= OOV

VNS W

A A s Lo L (Ut A L A L L L U U L e A L Ut A L U W W
AN U U A AN AN N NN RO RO N RO PO NI PO NN b p —d b

—=O VNV

A AN
bt b 2

ruRUrLRLRURLNURD
R AU R RL AU RO R NI R RNV rRU RV NI NI RDARU NNV PO N

;;"t"'"""'"'t""""""""'"Q""I't"'t""'t'.'tttt"

006314
006316
006324
006332
006336

000004

012737
012737
012706
012737

000001
000001
001000
047204

001212
004604

006344

012737

006372

006352
006356
006362
006364
006366
006370
006372
0066400
006402
006410
006412
006420

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

000024
002270

006422
006426

104401
000427

006430

000030

SCOPE
MoV
MOV
MOV
MOV

#1,8TIMES
::00 1 ITERATION
#2-1,3/TSTNM
:THIS SAVES TEST NUMBER
#STACK, SP
:SET UP STACK POINTER
#REGSAY,QFEMTVEC;ERROR VECTOR SO THAT

000006

MOV

#29 ,QNERRVEC

MOV
MOV
MOV
DEC
BNE
B8R
MOV
CMpP
MOV
ERROR
BIT
BNE

#24 RO
:THERE ARE 264 REG TO TEST
#RHDB,R1
:R1 NOW HAS ADDR OF ADDR OF FIRST REG.
a(R1)¢+,R2
:READ HARDWARE REG.
RO
:COUNT DOWN
1%
:BRANCH IF 24 NOT DONE
3%
;BRANCH ]F 24 DONE
#ERRVEC+2,9#ERRVEC ;RESTORE TRAP CAT(CHER
(SP)+,(SP)+
;CLEAN STACK
-2(R1),9TMP1
JSTORE FAILING REG ADDR
7
sREGISTER NON EXISTANT
#SW13,aSWR
:INHIBIT ERROR PRINTOUT ?
4%
;BRANCH 1F YES

TYPE
8R
LASCIZ

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

000204

MOV

#ADDMOD,~-(SP)

HALT
JMP

afSEDP

:STOP 10 FORCE THE CORRECT RESTARY
:G0 TO END OF PROGRAM ~=---cvceccc=-- >

MOV
CLR

#T1RP a4
RH70

sINITIALIZE VECTOR
;INIT RH INDICATOR ++ (.W

BR
TS1
TS1
TYPE

RIN
(SP)¢
(SP)¢
,65%

JAND GET 0QUT

LASCIZ

<15><12>/RH11 CONTROLLER

1%:

000006

000004

177776

001200

020000

172520

006512

::65%:

012746

TYPNC

104402

006514
006516

000000
000137

041052

006522
006530

012737
005037

006602
004750

006534
006540
006544
006550
006600

006600
006602
006604
006606

006612

006642

2%:

64%:

006506

0065C6

1511

005777
005237
104401
000413
000420
005726
005726
104401

000413

012737

6%:

000004

3%:

173600
004750
006552
;0678

669%:

TRP:

006614
;0698

0471764

000030

669%:

RIN:

TS1
INC
TYPE
B8R
JASCIZ

B8R

MOv

:NO REGISTERS ARE

SAVED

;SET UP FOR BUS TIMEOUT

:GET READY TO TYPE STARTING ADDRESS
;0F '""CHANGE OF BASE ADDRESS'' ROUTINE

;ADDRESS RPRAE(RH11/RH70?)
SRHBAE
:FOUND AN RH70-SET MASK
RH70
;:TYPE ASCIZ STRING
L67%
669
::GET OVER THE ASCIZ
/
<15><12>/RH70 CONTROLLER

649

;RESTORE THE STACK
;:TYPE ASCIZ STRING

::GET OVER THE ASCI2Z
/

#SERROR,QNEMTVEC;RESTORE ERROR VECTOR

;SO THAT REGISTERS ARE SAVED

CIRJIDO, RPO4/5/6 FCINL CTLRY

CIRJID.PV
ggz?

006650

28-MAR-79 09:03
012737

000006

MACY1Y
000004

30A(1052)

25-MAY-79

10:30

PAGE 51

REFERENCE EACH REGISTER
Mov

WERRVEC+2,a#ERRVEC

SEQ 0050
;RESTORE

TRAP CATCHER

CIRJIDO, RPO4L/5/6 FCTNL CTLRY
L
CZRJID.P1Y
28-MAR-79 09:03

2342
2343
2344
2365
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365

MACY11

30A(1052)
IR

25-MAY-79

10:30

PAGE 5¢

SEQ 0051

REFERENCE EACH REGISTER

::"I'."""""""""""'"""""."l.I"""""""""'

PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT

s*TEST 2

CHECK THAT RHAS CAN BE CLEARED BY MOVING ALL ONES INTO IT

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

006656
006660
006666
006672

000001
001000
000002

002316

006700
006704
006710
006712
006714
006720
006724
006730

177777

001126
001124
004600
104005

001212
004604

1S12:

SCOPE

Mov

#1,8TIMES

;.00 1

Mov

#3-1,90TSTNM

;THIS SAVES TEST NUMBER

Mov

¥STACK,SP

Mov
Mov

3#RHAS R
f-1,3R1

Mov

aR1,3#$BODAT

1S18
Bta

LLR

Mov
ERROR

ak1
1813

A#SGDDAT

R1,3#REGADR
5

;SET

ITERATION

STACK POINTER

;R1 HAS ADDRESS OF RHAS
;THIS WRITES ALL ONES INTO RHAS

;TEST RHAS FOR ALL 0'S
BRANCH IF 6GOOD
;BAD DATA

:GOOD DATA

;FAILING REG.

(RHAS)

;RHAS DOES NOT CLEAR BY WRITING

sALL ONES INTO 1T

—

e
~r~

P04/5/6 FCTINL TLR]

28-MAR-79 09:03

MACYT

3?3(1052)

25-MAY-79

PARTIAL

MMAAAARAAR

;*TEST 3

006756
006764
006766
006772

00000«

012737
012737

000005
004737

045734

032777

020000

2414
2615
2616

2617
2618
2619
2420
2621

001212
004604

TS13:

($:

1$:

]

INITIALIZE

Bl
BNE

#SW13,aSwR
6%
.65%

;. TYPE

669

;:GET OVER THE ASCIZ

Mov

S/RHAS ,R1

:R1

MOV
MOV

S/RHER1 R4
#-1,3R6

LASCIZ

MOV
CLR
MOV

INC
DEC
BNE

032777
001402
000137

020000

007132
007132
007136

104401

007140

00698

TYPE

HAS ADDR.

RHAS

:SAVE

007116
007124
007126

BR
LASCIZ

STRING

XE2

;;275:

ASCIZ

; INCREMENT UNIT NO.
;COUNT DOWN DRIVE COUNTER
;D0 NEXT UNIT IF 8 NOT DONE

JMP

TYPE
BR
LASCIZ

:INHIBIT ERROR TYPEOQUT?
:BRANCH IF YES

aR?
RO

007464

JMP

INIT

TTY KEYBOARD

:R2 HAS ADDR.
;CLEAR RH(S?2
; COUNT

000137

BIT
BEQ

WITH AN

S#RHCS2,R2
aR?
#8.,R0

SFTOTALAT+]
aR1

8taQ

;START

<15><12><15><12>/L00KING AT RHAS = DRIVES PRESENT /

(LRB
1518

000430

PC,a#STKINT

004743

66%:

JSR

105037
105711
001402

;.00 1 ITERATION
;THIS SAVES TEST NUMBER

007102
007106
007110
007112

010066

#1,$TIMES
#4-1,9#TSTNM

SR1,3/TOTALAT

2%:

SCOPE
MOv
MOV
RESET

4$:

MOvB

007206

THE DRIVE TYPE IS CHECKED TO BE AN RPO4/RP0O6 AND THEN
UNITS PRESENT ARE STORED IN A TABLE CALLED 'UNITS'

004742

104401

o
it

111137

007200
007200
007204

SEQ 0052

IN RHAS SHOULD GIVE DRIVES PRESENT

007076

000420

PRESENT

THE BITS SET

é:?SS:

172014

NUMBERS

TYPE

000010
002302
177777

FOR UNIT

THE NUMBER OF DRIVES PRESENT IS FOUND
BY MOVING ALL ONES INTO RHERY WITH UNIT NUMBER
IN RHCS2 INCREMENTED FROM ZERO TO SEVEN

17215¢6

002316
002276

RHAS

b
ot
i

006774

007042
007042
007046
007052
007054
007060
007064
007070
007072
007074

2409
2410

000001
000003

&
PAGE 53

TEST FOR DRIVES PRESENT USING RHAS AND RH(CS2

BRI

006732
006734
006742
006750
006752

TEST

10:30

RHCSZ2

:RG HAS ADDR. OF RHERI
;MOVE ERRORS INTO RHERT

TOTAL

ATTENTION

:USED IN DRIVE CLEAR TEST

;CLEAR UPPER BYTE
;TEST "RHAS' FOR ANY DRIVES PRESENT

:NONE RESPONDING = TYPE THE MESSAGE

#SW13,3SwR
3%

;INHIBIT ERROR TYPE 0OUT?
;''NO DRIVES'' MESSAGE I1F NOT

SELTST

;SOME THERE = GO FILL ''UNITS'' TABLE

;CHECK

FGR SELECTED UNIT

START

AND LOAD

;"'UNITS'' TABLE WITH SELECTED ONE

[F SO

L67%
s TYPE ASCI2 STRING
66%
;.GET OVER THE ASCI2
<15><12>/N0 DRIVES PRESENT = RHAS = 0/
,69%

;2 VYPE

ASCIZ

STRING

68%
;.GET OVER THE ASCIZ
<15><12>/WRITING ONES INTO RHER FOR ALL UNIT NUMBERS/

CIRJIDO, RPO&L/S/6 FCINL CTLR)
28-MAR-79 09:03

(ZRJ1D.PY 1

2622
2623
2624
2425
2626
2627
2428
26429
2430
263
2632
2633
2634
2435
2436
2637
2438
2439
2440
24461
2442

2443
2444

2445
2446
2647
24L48
2449
2450
24651
2652
2453
24654
2455
2456
2457
2458
2459
2460
24661
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471

2472
2673
2474
2475
2476
2677

007266
007266
007272

000430

007354
007354
007360

000437

104407

104401

MACY11

68%:

007274

?6;1‘

000137

T(PE

JASCIZ

TYPE

007362

%éZSS:

007460

30A(1052)
10:30 PAGE 54
25-MAY-79
13
TEST FOR DRIVES PRESENT USING RHAS AND RMC(CS?

041052

118

,,IYPE ASCIZ

708

SEQ 0053

STRING

;;GET OVER THE ASCIZ

<15><12>/DOES NOT SET ANY BIT
L 138

IN RHAS SO ABORT PROGRAM/

,.TYPE ASCIZ STRING

725

:GET OVER THE ASCIlZ

LASCIZ

<15><12>/10 LOOP ON THIS TEST WO PRINTOUT SET SWITCMES 13, 8, 1, & 0/

JMP

of#SEOP

:60 OUT==cccmcmnccccccrnceccccccccnnnas >

;*SET UP UNITS TABLE
007464
007464
007470
007474
007500
007502
007504
007510
007512
007516
007522
007526
007532

007534
007540
007546
007550
007556

XE2:

2%:

000010
004676

3%:

177777

103135

010577
022777
001425
022777
001421

024020

172556

020020

172546

007560
007566
007570

022777
001415
022777
00141

024021

172536

020021

172526

007600
007606
007610
007616
007620
007622
007630
007632
007634
007640
007642
007644
007650
007652

022777
001405
022777
001401
000414
032777
001001
000466

024022

172516

020022

172506

001000

172472

104401

010546

106405
104401
000466

001223

aR1,arsTMPO

: TEMPORARY STORAGE

CLR
(LR
MOV
ROR
BCC
MOV
(mp
BEQ
(MP
BEQ
"N

007576

MOV

DEC

BNE

004720
000010
001176
001176
172536

; COUNTER
;POINTER
;PRESET BLOCK TO ALL ONES
; COUNT
;BRANCH IF 8 NOT DONE
;POINTER

MOV

004676

006037

MOV

#8.,R0
#UNITS,R3
#-1,(R3)¢
RO
3%
PUNITS,R3

Mov
MOV

7$:
8%:

9%:

af S TMPO
5%

RS,3RHCS?2
#264020,aRHDT
7%
#20020,3RHDT
7%

;INITIALIZE UNIT NO. TO O
:NO. OF UNITS PRESENT
;s COUNTER
;SET CARRY IF ONE IN O BIT
;CHECK NEXT UNIT IF ONE NOT IN BIT O
:INSERT UNJT NUMBER INTO RH(CS? UA BITS
:1S THIS A DUAL PORT RPO4 ?
:TYPE THE UNIT NO. IF YES
;1S THIS A SINGLE PORT RPO& ?
:TYPE UNIT NO. IF YES

2222222232223 2222222222252 23222222222220022R2RR2RRA A

Cmp
BEQ
(MP
BEQ

#24021,3RHDT
7%
#20021,3RHDT
7%

(mp

#264022,3RNHDT

BEQ
(mp
BEQ
BR
BIT
BNE

BR
TYPE
MOV
TYPDS

éYPE

066766

RS
9#NOUNIT
#8..,R0

7%
#20022 ,aRHDT
7%
9%
#B81709, IRHDSY
8%
6%
LOCRLEF
RS,

é20USE

-(SP)

:DUAL PORT RPOS ?
;TYPE UNIT NO. 1F SO

:SINGLE PORT RP(OS ?
:TYPE UNIT NO.

:1S THIS A DUAL PORT RP0O6 ?

;TYPE THE UNIT NO. IF SO
;1S THIS A SINGLE PORT RPO6 ?
:TYPE UNIT NO. IF SO
;1S THE DRIVE PROGRAMMABLE?
;BRANCH IF YES

:TYPE

THE DRIVE NUMBER

:REPORYT THIS DRIVE WILL NOY BE USED(DRIVE MUST Bt LOCKED

CIRJIDO, RPO4L/S/6 FCTNL CTLR]
28-MAR-79 09:03
CIRJID P11

2678
2479
2480
2481
2482
2483
2484
2485
2686
2487
2488
2489
2490
2691
2492
2493
2494
2495
2696
2497
2698
2499
2500
2501
2502
2503

30A(1052)
13

C
5
10:30
PAGE 55
25-MAY-79
TEST FOR DRIVES PRESENT USING RHAS AND RHCS2

SEQ 0054

::"'""'"'""""""'t"""'"'"!"'t.'.""ll"t""'t'.'

;*NO...1T'S NOT AN RPO4/RPOS/RPO6 DEVICE SO TYPE
;*OUT THE DEVICE TYPE
007652
007656

0077C0
007700
007702
007704
007710

007726
007726

007732
007734
007740
010006
010006

104401

000410
010546
1046405
104401

000406

017746
104402
104401

000422

007660

TYPE

i .65%:

64S:

007712
::67%:
66%:

172372
007742

:.69%:
68%:

000407

010523

106401
010546
104405

005237

6%:

001223
004720

5¢%:

004720

013737
013737
005337

006676
004720
004722
004726

— OO
=\
NS~
WO W

005737
001002
060137

005205
005300
001235

oo
NN
(O RV S
YW LV AV VW RV LV L AV ]

MACY11

041052

004730

10%:

004716
004722

SELTST:

004716

BR
LASCIZ
Mov
TYPDS
TYPE

BR
LASC1Z
MoV
TYPOC
TYPE

BR
LASCIZ

.65%
649

<15><12>/UNIT

;:TYPE ASCIZ STRING
..GET OVER THE ASCIZ

NUMBER

RS ,-(SP)

;GET READY TO TYPE UNIT NUMBER

,67%
66%

;;TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

RHDT

aRHDT,~(SP)

;GET READY TO TYPE RHDT

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
7 - NOT AN RPO4/RPOS/RPO6 DEVICE !!?

.69%
68%

;NO RPO&/RPO5/RP06 FOUND SO TEST NEXT UNIT

MOV
TYPE
Mov
TYPDS

RS, (R3)+

;LOAD TABLE POSITION AND INCR IT

RS,=(SP)

;PUT DRIVE NO. ON STACK
;1YPE DRIVE NO.

LSCRLF

:INCR THE TOTAL NO. OF UNITS

INC

a#NOUNIT

INC
DEC
BNE

RS
RO
6%

;DRIVE COUNTER DOWN ONE

1S1

BNE
JMP

3#NOUNIT
10%
aNSEOP

:1F THERE ARE ANY UNITS...
; CONTINUE
;ELSE GO TO END OF PASS

Mov
Mov
DEC

SNUNITS ,a#UNIT
:SET UNIT NO. TO FIRST ONE FOUND
S#NOUNIT,3#NUNIT :SAVE NO. OF UNITS
S#NUNIT
;1F NUNIT = 0 THEN ONLY ONE UNIT

1S1
BtQ

SNSELECT

Mov

; "RHCS2'

UNIT

ADDRESS

;TEST AND DO NEXT UNIT [F 8 NOT DONE

OR 0

;1F NUNIT > 0 THEN MORE THAN ONE UNIT

1514

SL
. aNUNIT
SFUNIT

:STARTING ADDRESS 200
SKIP NEXT 1f STARTING FROM 200
;CHANGE UNIT NUMBER TO SELECTED ONE

RPO4/5/6 FCINL CTLR)
28-MAR-79 09:03

Pl \

MACY11

5
30A(1052)
25-MAY-79
10:30
PAGE 56
13
TEST FOR DRIVES PRESENT USING RHAS AND RH(CS?2

A2222222R22

'TEST

012737

000001

001212

010120
010124

012706
012737

001000
000004

004604

010132

004737

010112

012737

011044

005037

004740

010142
0101646
010150

005737
001107
012700

004716

010162

005737

010166

001006

010154
010160

122710
001102

NUMBER

AND

DRIVE

TYPE

READ SERIAL NUMBER AND DRIVE TYPE REGISTERS

A
X

TO LOOP HERE SET SWITCH 8, AND THIS TEST NUMBER ON
SWITCHES O THRU 7 AND RESTART

TYPE UNIT UNDER TEST

TYPE

THEM OUT

AND PROCEED

A 2222Z22X222Z22222222222222322322222220322222222222
0222222 XNA]

1514 :

001106

SCOPE

MoV

#1,8T1MES

::00 1

MOV
MoV

#STACK,SP
#6,a#TSTNM

JRESET STACK
;SAVE TEST NUMBER

MoV

041524

010136

SEQ 0055

RS RRRARARRRRRRRARRRR
R

SERIAL

010104

TYPE

SET APPROPRIATE ATTTENTION BIT OF UNIT UNDER TEST IN 'ATTENT®

000004

010102

JSR

#1%,S8LPADR

PC,anCLDISK

ITERATION

;:SET SCOPE LOOP ADDRESS

;SET R1-RMCST, R2-RH(CS?
;R3-RHDS1,

R&-RHERI

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

CLR

A#ATTENT

197

0000M

BNE
MOV

(MPB
BNE

a#UN]T
9%
#41,R0

1S "UNIT 0'° NEXT [N THE UNITS TABLE ?
;1F NOT TEST THIS UNIT
;1F SO, CHECK THE LOAD MED]JA LOLATION

004726

181

afSELECT

BNE

12%

:WAS UNIT #0 SELECTED °?
:(1E. WAS 1T A 210 START ?)
;1F SO, CHANGE PACKS

000041

#11,(R0O)
9%

;CLEAR

:WAS 1T AN RPO4L/S5/6 ?
:NO - GO AHEAD WITH TESTING UNIT #0

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

010170
010174

012700
005720

004676

010176

022710

177777

010204

0102064
010210

RV SV

010302

010302
010306

[V U

W _JV LV LV, ]

roruroNrROrRUNO
NN

010202

010352

001065

104401
000434
104401
000621

010212

#UNITS,RO
(RO)+

(mp

#-1,(RO)

BNE
12%:

02658

010310

MOV
181

64%:

22678

669%:

11%

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

:1F SO, USE THE NEXT DRIVE & DEC ''NOUNITS"
:1F NOT, MUST USE DRIVE #0 & CHANGE PAC(K

TYPE
BR

,65%
663

TYPE
BR
JASCIZ

,67%
,,TYPE ASCIZ STRING
66%
;GEYT OVER THE ASCIlZ
<15><12>/PRESS (ONIINUE WHEN FINISHED/<15><1?2>

JASCIZ

:;TYPE ASCIZ STRING
::GET OVER THE ASCIZ
<15><12><15><12>/DISMOUNT PACK FROM UNIT #0 AND MOUNT A SCRATCH PACK/

0, RPO4/5/6 FCTNL CTLR
.P 1 \

28-MAR-79 09:03

MACY11

30A(1052)
T4

25-MAY=-79

10:30

5
PAGE 5/

NUMBER AND DRIVE

SEQ 0056

TYPE

SERIAL

TYPE

HALT
BR

;CONTINUE, USING SCRATCH PACK ON UNIT #0

010352
01035¢

000000
000404

010356
010362

011037
005337

004716
004720

11¢:

MOV
DEC

(RO) ,@#UNIT

@#NOUNITS

;SET UP T0 BE

010366

013700

004716

Mov

2NUNIT,RO

;RO CONTAINS UNIT UNDER TEST

THE UNIT UNDER

TEST

;OECREMENT BECAUSE UNIT #0 WON'T BE

TESTED

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

005037
010077
022777
001405
022777
001401
000404
012737
000416

004744
171674
026022

171714

020022

171704

177777

004744

005037
022777
001405
022777

004746
024021

171656

020021

171646

012737

177777

004746

001401
000403

CLR

Mov
cmMp

BEQ
(MP

2%:
3%:

7%:
8%:

BEQ
BR
MoV

a#RPO6

;CLEAR RPO6 DEVICE

#20022,3RHDT
2%
3%

;1S 1T A SINGLE PORT RPO6 ?
JYES...SET FLAG
;DON'T SET FLAG - CHECK FOR RPO&

RO,aRH(S?
#24022,aRHDT
2%

¥-1,3#RP06

TYPE

FLAG

;SET UP UNIT ADDRESSING
;1S 1T A DUAL PORT RPO6 ?
JYES...SET THE FLAG

;SET

THE

FLAG

;DON'T CHECK FOR RPO4,

(LR
CMp
BEQ
CMP
BEQ
BR
MOV

a3/RPOS

:CLEAR MEMOREX RPO&4 DEVICE FLAG

#24021,3RHDT
7%

#20021,aRHDT

7%
8%
#-1,3/RPOS

IT WAS RPOO6

;1S 1T A DUAL PORT MEMOREX RPO4 ?
;YES..SET THE FLAG FOR ADDR PLUG TESTS

;1S

1T A SINGLE PORT MEMOREX RPO4

::'ttt'""'i'"""'t'i"'"'"""""".'t""l"""'tt""t'

010470
010476
010502

116037
1064401
000414

004666
010504

010534
010534
010540

013746
104405

004716

104401

000410
017746
1046402
104401

000410

017746
1046402

004740

MOvB
TYPE

::69%:
68%:

010550

171532

¥
ERAL
70%:

010604

171474

;738
72%:

ATABLE(RO) ,@#ATTENT

,69%

;SET

APPROPRJATE

;s TYPE ASCIZ STRING

BR
.ASCIZ

68%

MoV

8#UNIT,-(SP)

JASCIZ

AR
;s TYPE ASCIZ STRING
70%
::GET OVER THE ASCIZ
<15><12>/SERIAL NO, = /

TYPDS
TYPE
BR
MOv
TYPOC
TYPE

BR
LASCIZ
MOV
TyPOC

L1398

72%

<15><12>/DRIVE

SRKHDT ,=(SP)

ATTENTION BIT

;.,OET OVER THE ASCIZ

<15><12>/TESTING DRIVE

aRHSN,-(SP)

sYES..SET THE FLAG FOR ADDR PLUG TESTS
;DON'T SET FLAG - NOT MEMOREX DRIVE
;SET THE FLAG
;ASSUME THE NEXT UNIT IS AN RPO4

NUMBER/

;UNIT NO.

;:TYPE

TO STACK

DRIVE

NO.

::SAVE aRMSN FOR TYPEOUTY

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

TYPE

::SAVE @RKDT FOR TYPEQUT
;:G0 TYPE~=OCTAL ASCIIC(ALL DIGITS)

MACY1Y

CIRJIDO, RPO4/S/6 FCTINL CTLRI
2B-MAR-79 09:03
CIRJID

022777
001425
022777

024020

171464

020020

171454

022777
001453
022777
001447

024021

171644

020021

171434

022777
001424
022777
001420
000454

0246022

171424

020022

171414

001421

104401

000413

2666

104401

000413

5
PAGE 58

SERIAL NUMBER AND DRIVE

(P
BEQ
CHr
BEQ
CMP

BEQ
CMP
BEQ
cmp
BtQ
cmp
BEQ
BR

010722

::75%:
74649

5%:

010760

2778
76%:

000416
104401

000413

THE DRIVE

TYPE

SEQ 0057

TYPE

IN ASClI

#26020,8RHDT

:DUAL PORT RPO4 ?

#20020,aRHDT

:SINGLE PORT RPO4 ?

4%
4%

;TYPE ASCI]
;TYPE

MSG OUT

THE MESSAGE

#240.° ,QRHDT
6%

;:DUAL PCRT RPOS5 ?
;TYPE THE MESSAGE
: SINGLE PORT RPQS ?
;TYPE THE MESSAGE

#24022,3RHDT
5%
#20022 ,aRHDT
5%
1%

;:DUAL PORT RPO6 ?
;TYPE THE MESSAGE
;SINGLE PORT RPO6 ?
;TYPE THE MESSAGE
;ORIVE IS NOT AN RPO4/RPO5/RPO6
;DON'T TYPE ASCII MESSAGE OUT

#20021,3RHDT
6%

6%:

011016

::79%:
78%:

TYPE

,75%
74%

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

BR
<ASCIY

<15><12>/DRIVE

IS AN RP0&/<15><12>

:SKIP NEXT

TYPE
BR

.ASCIZ

178
76%
<15><12>/DRIVE

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
IS AN RP06/<15><12>

;SKIP NEXT

TYPE

,79%
78%

;s TYPE ASCIZ STRING
::GET OVER THE ASCI2

BR
LASC1Z

<15><12>/DRIVE

MESSAGE

IS AN RP0OS/<15><12>

ol
—

ronrurRO
N
e &S NN

—

NN AWAAN

NN
A\~
TM~
NNNTMN

;;"'"""""""'l""""""""!"".'ll'l'l't"""!.'.l"

cooo
209

2683
2684

;=SHOULD NEVER HAPPEN AT THIS POINT
;UNLESS DRIVE GOT SICK WHILE TESTING
;WAS IN PROGRESS

000435

2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682

TYPE

10:30

::"""'"""'t"""""Q""""""'ll!l'f"'l."'.'.'t"t"

2664

2665

25-MAY-79

;1YPE OUT

NNNN

2634
2635
2636
2637
2638
2639
2640
2641
2662
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663

30A(1052)

1%:

002410
002406

151
TS1

MOv
Mov

SRHSN
ORNHDT

SRHSN, 35N
SRHDT ,aNDT

cREAD SERIAL NO. AND DRIVE TYPE
; THESE TwO ARE TO HELP SCOPE LOOPS

:SAVE 10 (HECK 1f DRIVE CLEAR CLEARS ANY
;SAVE 10 CHECK IF DRIVE CLEAR CLEARS ANY

CIRJIDO, RPO4L/S/6 FCTINL CTLRY
CIRJID.PN
28-MAR-79 09:03

MACY11

6
5
30AC1052)
25-MAY-79
10:30
PAGE 59
14
TYPE SERIAL NUMBER AND ORIVE

TYPE

2685
2686
2687
2688
2689

;;'tt""Q't"'""t"""Qttttt""'tt'ttl't'tttttt'i"t'lttt'tt

2692
2693
gggg

M
.
X

ggg?

2696

2697

2698

2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716

2717

2718
2719

;*TEST S

011070

000004

011100
01110«
011110
011112
011116

004737
032713
001151
104401
000420

011072

012737

000005

041524
010000

011166

011236
011236
011242

104401
000631

011244

011326
011326
011332
011334

032713
001775
104401

010000

011434

004604

1S8715:

011120

104401
000424

000435

CHECK MOL TO BE HIGH

MAKE SURE THAT DRIVE 1S ON LINE BEFORE STARTING PROGRAM
IF DRIVE IS OFFLINE, THEN AFTER TYPE QOUT THt PROGRAM WILL
HANG FOR EVER WAITING FOR DRIVE TO GO ON LINE.

;"'ttl'"'t!'"'lt"'t""tt't""t"l'tt"tt"'lt't"'l'tttttttt

011169
011160
011164

011340

SEQ 0058

:;65%:
643
:
22678
66%:

::69%:
68%:
1%:

011342
2:718:
70%:

SCOPE

MoV

#6-1,a#TSTNM

:THIS SAVES TEST NUMBER

BIT
BNE
TYPE
BR
LASCIZ

JSR

PC,a¥#CLDISK
#MOL ,aR3
1ST6
:
,65%
64%
<15><12>/DRIVE

TYPE
BR
JASCIZ

,67%
::TYPE ASCIZ STRING
66%
;:GET OVER THE ASClZ
<15><12>/HIT START ON DRIVE 10 GET IT1 ON LINE/

TYPE
BR

,69%
68%

;:TYPE ASCIZ STRING
;:GET OVER THE ASCI2

BIT
BEQ
TYPE

#MOL ,3R3
1%
AL

;CHECK MOL IN RHDSI
:BRANCH IF MOL 1S MIGH
;2 TYPE ASCIZ STRING

JASCIZ

<15><12>/GO0OD - MOL

JASCIZ

B8R

;GIVE INITIALIZE
;CHECK MOL IN RHDS!
BRANCH IF MOL HIGH
;s TYPE ASCIZ STRING
;:GET OVER THE ASCI?
1S OFFLINE - MOL IS LOW/

<15><12>/PROGRAM WILL HANG TESTING MOL TItL MOL IS MIGH/

70%

;:GET OVER THE ASCI2

1S NOW HIGH. PROGRAM WliLL NOW BE EXECUTED/<15><12>

(AN AT S Y N VY W1,V O] VI, V], N1 VT, U) T W] V], V) VI V] .V

NNNNNNNNNNNNNNNNSNN~NN~N
H L LN U N U L L U U A D P R0 PO RO N
U RO N R
(=] VBN
NS WA —~O 0NN
WwWN—O

0, RPO4/5/6 FCINL CTLR1Y

28-MAR-79 09:03

MACY11

30A(1052)

25-MAY-79

10:30

CHECK MOL TO BE HIGH

S
PAGE 60

SEQ 0059

;;ttt"'0"t"""'tt'""'t""'l"'t'tt.'t!""l't"""t"""

;*TEST

PROGRAM

INTERRUPT

A
M
;v
B

PROGRAM INTERRUPT !S TESTED BY SETTING RDY AND IE
IN RHCSY AT THE SAME TIME
THIS SHOULD INTERRUPT THROUGH LOCATION 254
THE PROCESSOR PRIORITY IS SET 10 4

1ST6:

SCOPE

:;l""l""""""'t""""i"!"'tt't".ttt'it't"""t"'."

011434

000004

011436
011444

012737
012706

000006
001000

011450

004737

041524

004604

MOV
MOV

#7-1,30TSTNM
#STACK,SP

JSR

PC,a#CLDISK

:THIS SAVES TEST NUMBER
sRESET STACK

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

;R3I-RHDST,

R&-RHER1

:GIVE RH=11 INITIALIZE
:SETUP UNIT NUMBER

011454
011460
011464

013700
012720
012710

002266
011526
000340

011470
011476

012737
012711

000200
000300

177776

011502
011510
011514

013737
005337
001375

042222
001200

001200

011516

104065

011520

012712

011526
011530
011534
011536

022626
022711
001403
104065

011540

012712

011524

000407

000040

004200

000040

1$:

MOV
MOV
MoV

3#RPVEC,RO
#RPIRP1,(RO)+
#340, (RO)

:GET RP VECTOR ADDRESS
:THIS 1S FOR TIMELY INTERRUPTS
;g;?gR{¥TERRgPI SERVICE ROUTINE

MOV
MOV

#200,PS
#RDY'IE ,aR1

:SET PROCESSOR PRIORITY @ & (DISK @ %)
:RDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT

MOV
DEC
BNE

SFTIMONT ,aNSTMP1;: COUNTER
:WALT FOR INTERRUPT
/S TMPI

ERROR

1817

MOV

RPTRP1: (MP
(MP
BEQ
ERROR

MOV

240 ,3R?2

Y =

;BRANCH IF NOT ZERC
;BEFORE THIS IS ZERO INTERRUPT SHOULD OCCUR
:INTERRUPT DID NOT OCCUR

(SP)+,(SP)+
#OVA'RDY,aR1
1817
:
65

#L0,3R2

:CLEAR CONTROLLER VIA (S2 CLR BI?T

BRANCH TO NEXT TEST e=-cccccccccccce- )

;RESTORE STACK
:1E SHOULD BE LOW AS RUPT OCCURRED
C(ONTINUE 1F GOOD ===eeeccccccccccca- )
:INTERRUPT OCCURED BUT
:1E FAILED TO RESET

:CLEAR CONTROLLER VIA (S2 CLR BIT

CZRJIDO, RPO4/S/6 FCTINL CTLRI
CIRJID.PN
28-MAR-79 09:03

2796
2797
2798
2799
2800
2801

PROGRAM

000004

011546
011554

012737
012706

000007
001000

011560

004737

041524

10:30

INTERRUPT

5
PAGE &I

SEQ 0060

RSRARRRRRRRRR

INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME

IE AND ROY

2222 RS

004604

RS2

PROCESSOR PRIORITY

1$17:

011544

SCOPE

IS SET.

IS SET

MOV

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

JRESET

JSR

PC,a¥CLDISK

sSET R1-RHCS1, R2-RHCS?

MOV

(SAME AS THE D]SK)

THIS SHOULD NOT ALLOW INTERRUPT

RRNRENR)

;THIS SAVES TEST NUMBER
STACK

;R3-RHDS1,

R&-RHER1

700

002266
011634
000340

—-_-—~y

177776

042222
001200

001200

012712
000404

000040

—

000240
0003C2

012712

1%:

RPTRP2:

022626
104065
000040

MOV
MOV

9#RPVEC,RO
#RPTRPZ,(RO)+

;GET RP VECTOR ADDRESS
sTHIS IS FOR UNTIMELY INTERRUPTS

MOV
MOV

#240,PS
#RDY'IE,aR1

sPRIORITY = 7
:SET PROCESSOR PRIORITY @ 5
sRDY, 1€ IN RHSC! WHOULD CAUSE

MOV
DEC

SVTIMONT ,@#8TMPT; COUNTER
afSTMPI
;WALIT FOR

MOV
B8R

#60,3R2
1ST10
:

sBRANCH IF NOT ZERO
:BEFOSE THIS IS ZERO INTERRUPT WHOULD
.0CCU
;CLEAR THE CONTROLLER VIA (S2 CLR BITY
NO INTERRUPT SO CONTINUE ====c-ccecccccc---

(MP
ERROR

(SP)Y+,(SP)+
65

;RESTORE STACK
;INTERRUPT OCCURRED WiTH PROCESSOR

MOV

#40,aR2

;CLEAR THE

MOV

b AN

— )

el
—

OOoOOo

NN
NN
NN~ ~4

:GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

N AN
N
W~

2792

2793
2794
2795

25-MAY-79

SeTEST 7

—\Ne
WWN~N

2787

2788
2789
2790
2791

30A(1052)

OO0
OO —

2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
27N
2772
277%
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786

MACY

BNE

#3460, (RO

:RP0O& INTERRUPT SERVICE ROUTINE

;PROCESSOR

[NTERRUPT

INTERRUPT

STATUS

SAME

DSk

CONTROLLER VIA (S2 (LR BIT

CIRJIDO, RPO&L/S/6 FCINL CTLRY
CIRJID.PY
28-MAR-79 09:03

MACY11

2802

5
PAGE 62

SEQ 0061

M '"'""""'"""""'"""""""'t't.".""'l'.'.""l"

2803
2804

R
T
IR
N
R
e
LR
w.

)

PACK

ACKNOWLEDGE

STARTING ADORESS 220

THE

NO ACT-11

THEN

PROGRAM WORKS UNDER ACT-11

THIS

TEST

000004
012706
012737

001000
000010

011660

004737

04152¢4

011664

012737

000000

THIS

TESTS

VV BIT

MOL BIT

DVA BIT

T1ST10:

MONITOR

THE

= RHDS!

177776

NI
= oMo
Ik o
oo

i
et

NNNNNOO
NNNNN
~N~

el
i

i
il
il

)
ndd

—

O0OO0OOOOQLO

il
el

add
D

—

wml

OO0OO0OVO

—

——

000042

001100

0124264

104401

011730

000407

013746

004716

1%:

2%:

11659
66%:

IS PRESENT

PERFORMED

- RHDS1

- RH(S1

BIT

EXCEPT
SCOPE

PASS

COMMAND=44

#12

BIT

#11

CHECKED

SHOULD BE

T0 BE

DVA SHOULD BE

ALL REGISTERS EXCEPT RHDB, RHLA AND RH(CC
PACK ACKNOWLEDGE IS 1SSUED
ALL STORED REGISTERS SHOULD BE UNCHANGED

ARE

STORED

FSTATK,SP

MOV

#10,3#TSTNM

JSR

PC.,a#CLDISK

MOV

004724

000137

WILL NOT BE

MONITOR

PERFORMED

ACKNOWLEDGE

BIT

VV SHOULD BE 0, MOL
60 SHOULD BE O

MOV

004604

IS NOT

THE DRIVE IS STOPED MOL
AND DVA SHOULD BE O
THE DRIVE 1S POWERED UP

;*THIS

005737
001007
005737
001004
005737
001001
000402

TEST

THEN THIS TEST IS PERFORMED ONLY ON THE FIRST
ON SUBSEQUENT PASSES THIS TEST IS NOT DONE

SRR

011644
011646
011652

IS USED THIS

W
BN
NN I
2k
L

tew.
v, w.

TN JEE JNE JEE JEE

CNEE JEF I

S+TEST

2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
28133
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857

30A(1052)
25-MAY-79
10:30
PACK ACKNOWLEDGE
110

JRESET

sSAVE

RN N

NUMBER

;SET R1=-RH(S1, R2-RH(S?
R&-RHER!

;GIVE RH=11 INITIALIZE
:SETUP UNIT NUMBER
;SET

CHECKS

STACK

TEST

;R3-RHDS1,

#0,PS

CODE

SEE

PROCESSER

MANUAL

STATUS

10 0

INTERVENTION

TESTS

ARE

197
BNE
181
BNF
151
BNE

8#NOPUSH
1%
arL?

;15 THIS A 220 START ?
JSKIP THIS TEST If SO
;MONITOR (ACT 17) RETURN ADDRESS

3FIPASS

;FIRST

B8R

JMP

1ST1

TYPE

;SKIP THIS TEST

PASS

;SKIP THIS TEST

NOT

sCONTINUE WITH THIS TEST
:

JUMP

T0 NEXT

ASCIZ

TEST

eececceccccccccena- )

BR
JASCIZ

643
;;GET OVER THE ASCIZ
<15><12>/S10P DRIVE /

,65%

;s TYPE

MOV

8#UN]T ,=(SP)

GET

UNIT

STRING

UNDER

TEST

CIRJ1D0, RPO4/5/6 FCINL CTLRY
CZRIID.P1N
28-MAR- 79 09:03
2858
2859
2860
2861

2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
28764
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895

2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913

104405
104401

011752
011754
011760

000413

012010
012010
012012
012016
012020
012024

000000
032713
001403
010337
104010

012026
012032
012036

013746
052716
022612

012040
012042
012046

001403
010237
104011

012054
012060
012100
012100
012104
012106
012112

012154
012154
012156
012162
012164
012170
012172

012176
012200
012204
012206
012212

TYPDS
T(PE

¥
14
66%:
010000
001122

004716
000100

BR
<ASCIZ
HALT

3%:

5
PAGE €3

SEQ 0062

,67%
;:TYPE ASCIZ STRING
66%
::GET QOVER THE ASCI2Z
15><12>
CONTINUE/<
HIT
THEN
/

BIT
BtaQ

#MOL ,aR3
3%

:MOL IN RHDS1 SHOULD BE
:BRANCH IF MOL=0

ERROR

:ON SPINPLE POWERED DOWN
;MOL SHOULD BE 0
;UNIT NUMBER
: INCLUDE IR
;ONLY UNIT NO. AND IR SHOULD Bt
;HIGH IN RH(SZ

MoV

001122

R3,3#3$BDADR

BIS
cMP

afUNIT,=(SP)
VIR, (SP)
(SP)+,aR2

BEQ
MOV

6%
RZ,3/$BDADR

MOV

ERROR

= 0

SFAILING REGISTER ADDRESS-RHDS1

;BRANCH IF RH(S2 GOOD
;FAILING REGISTER ADDRESS-RH(S?
;WITH SPINDLE

POWERED DOWN

sONLY UNIT NO. AND IR SHOULD BE
;HIGH

004737

041524

106401
000407

012062

013746

004716

104405
104401

000420
000000
032713
001411

032713
001406
032713
001403
032713
001403
010337
104012

TYPE

;:69%:
68%:

T
BRALR
70%:

010000
000400
000200
000100

001122

011100
042700

160076

012222

022700

004200

001403

JSR

012114

012214
012216

012226

30A(1052)
25-MAY=79
10:30
110
PACK ACKNOWLEDGE

011762

012050

MACY1Y

5%:

6%:

.ASCI2
MoV
TYPDS
TYPE

.ASCIZ
HALT

PC,anCLDISK

,69%
68%

<15><12,/START

afUNIT, =(SP)

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

:GIVE RH=11 INITJALIZE
:SETUP UNIT NUMBER
::TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

DRIVE/

;GET UNIT UNDER TEST

Ak
;:TYPE ASCIZ STRING
70%
;:GET OVER THE ASCIZ
/ AFTER HEAD LOAD HIT CONTINUE/<15><12>

817
BEQ
BIT
BEC
Bl
Bta
Bl1
BEQ

#MOL ,aR3

:MOL

ERROR

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

MOV

5¢
#DPR,aR3
5%
#ORY,aR3
5%
#VV,aR3
6%
RY,aN$BDADR

IN RMDST SHOULD BE = 1
:BRANCH IF MOL = 0
:DPR IN RHDS!1 SHOULD BE - 1
;BRANCH ]F DPR = 0
:DRY IN RMDS1 SHOULD BE - 1
;BRANCH IF DRY =0
:VV IN RHDS! SHOULD BE = 0
:BRANCH IF vv = 0 (GOOD)
:FAILING REGISTER ADDRESS - RHDS!

aR1,RO

:GET RHCSY

cmp

#DVA'RDY,RO

;ALL FUNCTION BITS
;RHCST SHOULD HAVE

Bto

MoV

BIC

CONTENTS

#SC'TRE'MCPE.76,RO ;CLEAR SC,TRE ,MCPE AND

;60 = 0, DVA = 1, RDY =1
;BRANCH IF RMCSY IS GOOD

CIRJIDO, RPO4/5/6 FCINL CTLRY
CZRJID.PV
28-MAR-79 09:03

2969

001122

25-MAY-79

10:30

PACK ACKNOWLEDGE

MOV

ERROR

S5
PAGE 64

R1,a#$BDADR

SEQ 0063

;FAILING REGISTER RH(CSI

AFTER A POWER UP WITHOUT ANY

:INIT RHCS1 SHOULD HAVE

;DISREGARD ALL OTHER BITS
012236
012242
012244
012252
012256
012264

005777
001411
013737
005037
017737
104014

170072
002334
001124
170052

7%:

004600

181
BEQ

aRHCC

108

= 0

IT SHOULD = O
;BRANCH IF RHCC = 0

9/RHCC ,@FREGADR ;FAILING REGISTER RHCC

ERROR

3#$GDDAT
aRHCC,aNtBDDAT

;TEST RHCC,

MOV

(LR
MOV

001126

012266

;RHCT SHOULD BE = 0
;BAD DATA

;AFTER POWER UP RH((

; SHOULD BE 0

10%:

012266

004737

041524

JSR

PC,aNCLDISK

012272

004737

061562

JSR

PC,a#CHECK

012276
012302
012304

104401
000000
013777

067033

TYPE

LCPHALT

mMov

INPKACK,RHCST

002460

167766

HALT

;SET R1-RHCS1, R2-RHCSZ

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

;CHECK THAT DVA,RDY, MOL,DPR,DRY -

;AND THAT NO STATUS BITS ARE STUCK = 1
;CANNOT CONTINUE TESTS IF THEY AREN'T
;STOP
;GET READY FOR PKACK
;PACK ACKNOWLEGDE WITH 22 IN RHCSI

;*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE
oo

004037
002272

JSR

041672

012322

000022

18.

012324

013777

004612

RHW(
SAVERE

—

2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968

010137
104013

3??(1052)

;60 = 0, DVvA =1, RDY = 1,

NN
[V LV AV ]
)
s —s

2926
2927
2928
2929
2930
2931
2932
2933

012230
01223&

OO0

2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925

MACY1

004606

167734

MOv

RO,a#SAVER

;SAVE REGISTERS

:RHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;THE

REGISTERS ARE

;NUMBER OF

SAVED

REGISTERS

;SAVED = 18.
S#RP4VEC ,dRPVEC

;SET RPO4 VECTOR ADDRESS
;70 "TIMEY' IF P-CLOCK IS PRESENT

;OR TO 'TIME2'
c'TIME'

IF P=-CLOCK ]S NOT PRESENT

WILL ONLY

SAVE

s CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
012 332
012 336

013746
052716

002460
000001

MOv
BIS

S#PKACK ,=(SP)
#G0, (SP)

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

01 2 342

012677

167732

MOov

(SP) ¢ ,3RHCSY

;60 WITH

012346
012350

104413
002322

WAT
RHDS1

sWITHOUT

INTERRUPT

ENABLE

;22 IN RH(S1 FOR PACK ACKNOWLEDGE
sWITH INTERRUPT DISABLED

;WwAIT FOR vv BIT TO SET
;WAIT FOR RHDS! REGISTER

CIRIIDO, RPOL/S/6 FCTNL CTLRI
CZRJID.PT
28-MAR-79 09:03

2970
29N
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2N
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011

MACY11

30A(1052)
110

000100
000001
000001

004037
002322

25-MAY-79

PACK

10:30

ACKNOWLEDGE

JSR

000001
000001
000100

IN RHDS1

;ALLOW 10 MICRO SECONDS
;VV MUST SET BETWEEN
;00 AND 20 MICRO SECONDS

1.
1.

RHDS1

SEQ 0064

;WAIT FOR vV BIT

042404

PAGE 65

RO,3#CHREG

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

1
1

;NEW VALUE OF vv
: CHANGE vv BIT

:*NOW COMPARE REGIST ERS SO THAT NO REGISTERS
s *CHANGED EXCEPT vv IN RHDS1 AND IE IN RH(CSI
012374

004037

012400
012402
012404
012406
012410

004612
002354
000022
012412
012416

012412
012614

104015
000207

0642512

JSR

RO,3#COMREG

ERROR
RTS

:PRESENT

SAVED REGISTERS WITH
VALUE

:GOOD DATA SAVED IN 'SAVERE'’
;TEST DATA STARTING FROM ‘RHWC'
:18. REGISTERS TO BE COMPARED

SAVERE
e
18.
11%
12%

11%:

; COMPARE

;RETURN TO 118 ON ERROR

;RETURN TO 12% ON NO ERROR
15

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

ACKNOWLEDGE

SHOULD

;SET VvV IN RHDS!
;INTERSUPT SHOULD MAKE
J1E

;NO OTHER REGISTERS SHOULD

; CHANGE

;600D DATA GIVES
;CONTENTS OF REGISTER BEFORE

;PACK ACKNOWLEDGE
;RECEIVED DATA GIVES

;CONTENTS OF REGISTER
AFTER PACK

012416

012737

177777

047342

129%:

Mov

#-1,9#PRITEM

ACKNOWLEDGE

;CLEAR PREVIOUS ITEM NUMBER

CIRJIDO, RPO4/5/6 FCINL CTLRI
CZRJID.PYY
28-MAR-79 09:03

3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3050
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
30¢7

J*TEST 1 1
w,

»
%

15111

000004

SEQ 0065

R XXX

SET vv BIT

TEST

SETS vv

IN RHDS!

IN RHDS1

INCASE

AND THE PREVIOUS TEST

THERE 1S A RESET AT THE BEGINING OF
FOR ERROR RECOVERY ONLY.

S5
PAGE 66

ACT=11 MCNITOR IS PRESENT
1S NOT PERFORMED

THIS

012424

30A(1052)
25-MAY=79
10:30
110
PACK ACKNOWLEDGE

3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023

MACYT1

ARl

THIS

TEST

RN SR R

SCOPE

;*IN CASE THERE 1S ANY DRIVE ERRORS DURING POWER UP

égggTPOUER DOWN OR

012426
012430

000005
004737

045734

012434
012440

012706
012737

001000
000011

012446

004737

012452
012456
012462
012464

ANY

PARITY

ERRORS A RESET

JSR

PC,3#STKINT

SINITILIZE

MOv

FSTACK,SP

JRESET

0461524

JSR

PC,a#CLDISK

;SET R1-RHCS1,

004737

041562

JSR

PC,a#CHECK

104401
000000

067033

TYPE
HALT

LCPHALT

013777

002460

004604

167606

MOv

#11,801STNM

S¥PKACK ,@RHCST

:SAVE

IS GIVEN

STA(CK

TEST NUMBER
R2-RH(CS?2

;R3-RHDS1, R&=RHER]
:GIVE RH=11 INITIALIZE
:SETUP UNIT NUMBER
;CHECK

THAT DVA,RDY ,MOL,DPR,DRY =

;AND THAT NO STATUS BITS ARE STUCK =1
s CANNOT
:STOP

CONTINUE

TESTS

;GET READY FOR PKACK
;PACK ACKNOWLEGDE WITH 22

THEY

AREN'T

IN RH(CS!

:*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE
012472
012476
012500

004037
002272
004612

012502

000022

012504

013777

041672

JSR

RHW(

RO,3#SAVER

SAVERE

167554

MOv

;RHWC

FIRST

REGISTERS ARE

;NUMBER OF

SAVED

WHERE

SAVED

REGISTERS

:SAVED = 18.
SNRPLVEC,QRPVEC

;SET

RPO4 VECTOR ADDRESS

;10 'TIMEY® IF P=-CLOCK ]S PRESENT
;OR TO 'TIMEZ2' IF P=-CLOCK ]S NOT PRESENT
;'TIME' WILL ONLY SAVE
: CURRENT

;AND LOOK

012512
012516

013746
052716

002460
000001

MOV

O¥PKACK,=(SP)

JGET

012522

012677

167552

MoV

(SP)e+ , aRNH(S]

;60 Wlld

BIS

THE

;STARTING ADDRESS OF

; THE

004606

;SAVE REGISTERS

#60,(SP)

CYLINDER ADDRESS

READY

AHEAD REGISTERS

10O MOVE

COMMAND

;GET READY 10 SET GO
JWITHOUT INTERRUPT ENABLE

CIRJIDO, RPOL/S/6 FCTINL CTL R1
CIRJ1D PN
28-MAR-79 09:03

10:30

PAGE ¢/

SEQ 0066

SET vv BIT #6 IN RHDSI

—

N =

Mov
mov

106413

002322
000100
000001
000001

oR1,RO
aR3,RS

INTERRUPT DISABLED

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

WAT
RHDS1

;WAIT
;WAIT

FOR vv BIT TO SET
FOR RHDS1 REGISTER

1.
1.

;ALLOW 10 MICRO SECONDS
;VV MUST SET BETWEEN

;WAIT FCR vV BIT IN RHDS1 REGISTER

;00 AND 20 MICRO SECONDS

;*COMPARE CONTENTS OF RH(CS1 AND RHDS1 ALREADY SAVED [N
;*RO ANC RS IMMEDIATELY AFTER GO
013746
052716
011637
022600
001405
010037
010137
104021

012746
011637

022605

001405
010537
010337
104063

002460
004200
001124

010700
001124

Mov

SNPKACK,=(SP)

#OVA'RDY, (SP)
(SP) ,a#S$GDDAT
(SP)+,RO

s INCLUDE DVA!RDY
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY DVA'RDY

8ta

649

;BRANCH IF

Mov
ERROR

R1,3#REGADR
21

BIS
MOV
cmp
MoV

001126
004600
:
648

RO,a#$BDDAT

004037
002322

012632
012634
012636

000001
000001
000100

042404

COMMAND

:AND COMMAND SHOULD BE SET
:BAD DATA

GOOD

;FAILING REGISTER RH(CS1
;DURING ABOVE OPERATION ONLY

MOV

(MpP

(SP)+,R5

Mov

MOV
Mov
ERROR

(SP) ,8#%GDDAT

66%

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

66%:

012624
012630

: SAVE

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

BEQ

001126
004600

012624
WA —=O00NO

IRR

295-MAY-79

;WITH

3079
3080
3081
3082
3083
3084
3085

= O OWNC N

30A(1052)

;22 IN RH(ST FOR PACK ACKNOWLEDGE

3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078

MACY11

JSR

RHDS1

RO,3#CHREG

:SAVE FOR PRINTOUT

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

:BAD DATA
;FAILING REGISTER RHDSI
;:DURING ABOVE OPERATION ONLY
;MOL!DPR!DRY!VV SHOULD BE

SET

:CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER
;1 BIT/BITS 10O BE CHANGED

1
vV

;NEW VALUE OF vv IS 1
: CHANGE vv BIT

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

012640

004037

012644
012646
012650
012652

004612
002354
000022
012656

042512

JSR

SAVERE
w(
18.
1%

RO,3#COMREG

; COMPARE SAVED REGLISTERS WITH
;PRESENT VALUE
;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHW('
;18. REGISTERS TO BE C(OMPARED
;RETURN TO 1% ON ERROR

CIRJIDO, RPO&L/S5/6 FCTINL CTLR 1
CZRJID.PN
28-MAR-79 09:03
g}%g

012656

012662

3126
3127
3128
3129
3130
3131
3132
3133
3134
3135

012656
012660

104015
000207

MACYTY

C
6
30A(1052)
25-MAY-79
10:30
PAGE
IRR
SET vv BIT #6 IN RKHDS?
2%

1%:

313%

3137
3138

ERROR
RTS

638

SEQ 0067

:RETURN TO 2% ON NO ERROR

15
PC

;GIVING A PACK ACKNOWLEDGE
;CAUSED AN ERROR
;PACK ACKNOWLEDGE SHOULD
:SET vv IN RHDSI
; INTERRUPT SHOULD MAKE
J1E = 0
;NO OTHER REGISTERS SHOULD
; CHANGE
;6000 DATA GIVES CONTENTS
;:O0f REGISTER BEFORE (OMMAND

;RECEIVED DATA GIVES CONTENTS
072662

2s:

:0F

(IRJIDO, RPO4L/S/6 FCINL CTLRY

28-MAR-79 09:03

012662
012666

004744

012670
012674
012676

005737
001005
005737
001004
000137

012702
012702

000137

012746

012706

015022
3¢:
4%:

10:30

PAGE €9

SET vV BIT #6 IN RHDSI

SEQ 0068

183
BNE
187
BNE
JMp

a¥RPO6
b33
a¥RPOS
4%
15116

;

;TEST FOR RPOS DRIVE
:1F = 1 DO "MAKECYL'® 377
1F BOTH = 0, DON'T DO EITHER ''MAKE(YL' ====-- )
:OR THE ADDRESS PLUG TESTS

JMP

1s11%

;

DO ""MAKECYL'' 777 =ececcccccccccccccncnccncaaan )

AZEX22

2222222222222

61
3162
3163
3164

012722

004737

041524

3166

012740

000377

éxgg

012742

000137

012726
012734

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

012777
004037

000001
041174

TST12:

004604

SCOPE
Mov
Mov
JSR
MOV
JSR

167364

2222222220222

TP I

R R T R T R R U PPN

002 RRRRRRRRRRRRRRRRRE
A

RN NN

AT RO A PR

NEARORNOOREE

FSTACK,SP
#13-1,3#1STNM

;RESET STACK
S THIS SAVES TEST NUMBER

PC,anCLDISK

;INIT DRIVE

#DMD ,aRHMR
RO,a#MAKECYL

;SET DIAGNOSTIC MODE
; SUBROUTINE TO GIVE A SEEK
; COMMAND FOLLOWED BY A INIT

;THIS SHOULD CHANGE RHCC T0 377

377

013002

MAKE CURRENT CYLINDER = 377

J*TEST 12
001000
000012

25-MAY-79

:;t"'""""'""'"'""""""""."'.'t"l'lI'."""""'

000004
012706
012737

3167
3168

004746

012706
012710
012714

3165

30A(1052)

:;t""t't"'""'t't""tt"t't"""'t"'l'"t'tt'lttl"'tttttt

NNNNS DS

CIRJID.PW

MACYYY

JMP

SKIP NEXT 'MAKECYL'' ===<-s-s-c-c-cccccocccoca- )

3171
3172
3173

3179

R
e A
A
A
A
R
ARt

3174

SeTEST 13

TST13:

3176
3177
g};g

012746
012750
012754

000004
012706
012737

001000
000013

004604

3180
3181

012762
012766

004737
012777

041524
000001

167326

3182
3183

3184

3185

318¢
3187

012774

013000

004037
000777

041174

AR AR A AR ARl

MAKE CURRENT CYLINDER - 777

SCOPE
MOV
MoV

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

;RESET STACK
;THIS SAVES TEST NUMBER

JSR
MOV
JSR

PC,aNCLDISK
#DMD , dRHMR

;INIT DRIVE
;SET DIAGNOSTIC MODE

777

RO,Q#MAKECYL

; SUBROLTINE TO GIVE A SEEK
; COMMAND FOLLOWED BY A IN]T

;THIS SHOULD CHANGE RHCC TO 777

-—

'Ds

RPO&/5/6 FCINL CTLRI
1

28-MAR-79 09:03

MACYTT

NS WA = O 000

N elVe VoV RNo RVo RN o RV R o ¥o - Yo -]

3??;1052)

25-MAY-79
MAKE CURRENT

E
6
10:30
PAGE 7V
CYLINDER = 777

Sea 0069

::"l""""""""""""l"""'I"""""ttI"."""""'

TEST

»
B
2
»
»
»
»

ADDRESS CHANGE ERROR (ACE) - RHER3 BIT #13 IS SET, AS WELL AS
SC,TRE,ERR,AND MCPE; VV 1S RESET AND RHCC = 000 (DRIVE RECALIBRATED)
IN ADDITION VERIFICATION IS ALSO MADE THAT NO OTHER DRIVE

NUMBERS APPEAR ON THE BUSS AFTER THE PLUG IS REPLACED.

013002
013004

000004
012737

000001

001212

ERROR

THE ADDRESS PLUG IS THEN REPLACED AND RETURN OF THE PROPER
RESPONDING DRIVE 1S VERIFIED, AS WELL AS THE FACT THAT
ATTENTION BITS COME UP IN THE PROPER BIT LOCATION(?2277), AND THE

]

ADDRESS PLUG CHANGE

CHECK PROPER ADDRESS PLUG FUNCTIONALITY
BY PULLING THE ADDRESS PLUG DURING A COMMAND [SSUED
IN DIAGNOSTIC MODE (10 GUARANTEE COMMAND IS STILL ACTIVE WHEN
PLUG IS PULLED) AND VERIFYING THAT THE DRIVE GOES OFF LINE

OO~

— el

il Al el ol

—

O D

ot gt

IR N NN NN N N NN

1S T14:

SCOPE

MOv

SR XSRS

#1,8TIMES

ARZASAR

;.00 1

SRRRRRRRRRR

(222722?)

RaRRlAd)

ITERATION

;:'tlt'lt""t"""t"""'t""""".'..'l"'..l"""'ltt't't

3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
5227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243

013012
013016
013020
01302¢4

005737
001005
005737
001002

TS1
BNE
151
BNE

004744

004746

013026
013032

000137

013032
013036

012706
012737

001000
000014

013044

004737

041524

014014

JMP

3/RPO6
3
a#RPOS
4%
TST15

:TEST FOR RPO6 DRIVE
;1F = 1, DO THIS TEST
;TEST FOR MEMOREX RPO4
;IF =1, DO THIS TESY
:1F NEITHER FLAG 1S UP, ASSUME THE

DRlVE IS AN 1SS RPO4 AND SKIP YEST

JUMP TO NEXT TEST ==mmecmmcecccaaae

::tt'ti"""ttt""'t"""t""""'t"'.'.l't't'i"'lll'l.'.tt

004604

MOV
Mov

#STACK,SP
#14,30TSTNM

;RESET STACK
:SAVE TEST NUMBER

JSR

PC,a#CLDISK

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

013050

004737

041604

JSR

PC,INCHECKT

013054

104401

067033

TYPE

LCPHALT

013060

000000

HALT

;R3-RHDS1, R&=-RHER1

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
; CHECK DVA,RDY,MOL ,DPR,DRY,VV = 1
:AND THAT NO STATUS BITS ARE STUCK = 1
; CANNOT CONTINUE TESTING IF

ANY OF

;THE FIRST SET OF BITS DON'T - 1
;ST10P

;*THIS CODE CHECKS TO SEF IF MANUAL INTERVENTION TESTS ARE OK
005737
001007
005737
001004
005737
001001
000402

004724

000042
001100

181
BNE
151
BNE
151
BNE
BR

d#NOPUSH
1%
T LY
1%
a¥SPASS
1%
2%

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

CIRJ1D0, RPO&4/S/6 FCINL CTLRI
CZRJID.PY
28-MAR-79 09:03
3244
3245

3266

3247
3248

013106

013106
013112

000137

MACY11

1%:

014016

2%:

3249

3257
3258
3259
3260
3261

013112

052777

000001

16720C

BIS

013120

004037

013130

000022

013126
013126

002272
004612

041672

JSR
RHWC
SAVERE

RHWC ]S THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;THE REGISTERS ARE SAVED
sNUMBER OF REGISTERS
;SAVED = 18.

;*1SSUE SOME CLOCKS TO GET THE COMMAND STARTED

gg;?
013132
013136
013200

3278
3279
3280
3281
3282

013200
013204
013206
013212

g%gg

013246

104401
000420

013140

013746
104405
104401
C00415

004716

;:65%:
64%:

013214
;.67%:
66%:

000000

013254
013260
013266

004737
032737
00100!

013270

104101

013272

043436
010000

TYPE
BR
(ASCIZ

,65%
;s TYPE ASCIZ STRING
64%
;:GET OVER THE ASCIZ
<15><12>/REMOVE ADDRESS PLUG ON DRIVE/

MOV
TYPDS
TYPE
BR
(ASCIZ

a¥fUNIT,-(SP)
,67%
66%
/

;GET THE UNIT NO. UNDER TEST
STYPE IT OUT
;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
THEN PRESS CONTINUE/

HALT

;WAIT FOR OPERATOR PLUG CHANGE

s*CHECK THAT THE UNIT NO. UNDER TEST HAS GONE OFFLINE

g%gg 013250 017700 167030

3295

;SAVE REGISTERS

s+ (USE ''SEARCH'' WITH ''DTETST' FLAG UP TO STOP CLOCKING ?)

3269

3288
3289
3290
3291
3292
3293
3294

;SET UP DJAGNOSTIC MODE

;*1SSUE A COMMAND AND THE °'GO' BIT (NOT POSITIONING OMMAND)
;*T0 VERIFY COMMAND ABORT |F PLUG IS PULLED

3267
3268

3283

RO,aNSAVER

18.

3264
%ggg

3276
3275
3276
3277

#DMD ,IRHMR

;*TAKE AN INITIAL REGISTER SNAPSHOT

3262
3263

3272
3273

JUMP TO NEXT TEST e=eeceemccecceeas )

1S115

;+THE PLUG IS PULLED

g%gg
3256

JMP

;*SET DIAGNOSTIC MODE TO ENABLE A COMMAND ACTIVE WHILE

g%g?

gsg%

30A(1052)
25-MAY-79
10:30 PAGE 71
114
ADDRESS PLUG CMANGE ERROR

002360

7%:

MOV
JSR
BI7
BNE

aRHDST ,RO
PC,a#PUTREG
#NED,an(S2
7%

ERROR

101

ATTEMPT TO ADDRESS THE DRIVE
;TAKE REGISTER SNAPSHOTS
;TEST FOR NON EXISTENT DR]VE
;CONTINUE IF °NED' BIT SET (UNIT
;1S OFFLINE AS [T SHOULD BE)
sUNIT DID NOT GO OFFLINE WHEN ADDRESS
;PLUG WAS REMOVED

SEQ@ 0070

CIRJ1IDO, RPO4L/5/6 FCINL CTLRY
CIRJID.P
28-MAR-79 09:03
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
331}
3312
3313
33164
3315
3316
3317
3318
3319
3320
3321
3322
332%
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337

3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351

MACY1T

6
6
30A(1052)
10:30
PAGE 72
25-MAY-79
ADDRESS PLUG CHANGE ERROR
114

SEQ 007

;*NOW REPLACE THE ADDRESS PLUG
013272
013276

013340
013340
013344
013346
013352
013410
013410

104401

013300

013746

004716

000420

104405
104401
000416

TYPE

699
;o TYPE ASCIZ STRING
68$
;;GET OVER THE ASCIZ
<15><12>/REPLACE ADDRESS PLUG ON DRIVE/

Mov
TYPDS
TYPE

afUNIT ,-(SP)

BR
ASCIZ

01335¢4

B8R
LASCIZ

000000

L118
70%

;GET THE UNJT UNDER TEST

;TYPE 1T 0UT
::TYPE ASCIZ

STRING
;.GET OVER THE ASCIZ

THEN PRESS CONTINUE/<15><12>
;WAIT

HALT

FOR OPERATOR PLUG REPLACEMENT

;*CHECK THAT THE ORIGINAL UNIT HAS COME BACK ON LINE
004737
032737
0014611

013412
013416
0134264
013426
013436
013436
013444
013446
013450

032737
001405
032737

013452

000137

001401
000403

043436
000400

002404

004000

0023562

000200

002404

BEQ
BIT
BEQ

9%:

1064102

014014

013456
013462

004037
002300

013404
013466
013470
013472
013474

013476
013500
013502
013504

000004
000001
000200
000001
100000
000001
040000
000001
020000

013506
013512

004037
002322

013514
013516

000003
000001
100000
000001

040000
000000

042404

BI1T
BEQ
BR
ERROR
JMP

8%:

013456

013520
013522
013524
013526

JSR
BIT

PC,a#PUTREG
#DPR,a#DS1
9%
#OVA,a#CS1
9%
#DRY ,a#DS1
9%

;TAKE NEW REGISTER SNAPSHOTS
;TEST THAT 'DPR' = 1
;ERROR - DRIVE SHOULD BE PRESENT
;TEST THAT DEVICE IS NOW AVAILABLE
;ERROR - 'DVA' SHOULD = 1
;TEST THAT DRIVE READY IS - 1
;ERROR - 'DRY' SHOULD - 1

102

;UNIT NOT AVA]JLABLE AfTER

1S115

°'DPR' =1,

JSR
RHCST

RO,3#CHREG

3
1

ATA

i
ERR
n
v

- 1, & °'DRY’

; CHANGE BITS

TEST ===--e---=-e=-- )

TO EXPECTED VALUES

IN SAVED REGISTER

;CHANGE RHCS1 REGISTER

;4 BIT/BITS TO BE C(HANGED

;NEW VALUE OF RDY ]S 1
; CHANGE RDY BIT
;NEW VALUE OF SC IS 1
. CHANGE SC BIT

1
RDY
1
SC
1
TRE
1
MCPE

JSR
RHDS1

'DVA'

;ADDRESS PLUG WAS REPLACED

JUMP T0O NEXT

; CHANGE THE INITIAL REGISTER SNAPSHOT
;vAFTER THE PLUG CHANGE

042404

;A-0K:

;NEW VALUE OF TRE
; CHANGE TRE BIT

;NEW VALUE OF MCPE IS

: CHANGE MCPE BIT
RO,3#CHREG

:CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

:3 BIT/BITS 10 BE C(HANGED
:NEW VALUE OF ATA IS 1
; CHANGE ATA BIT

:NEW VALUE Of ERR ]S 1

;CHANGE

[RR BIT

NEW VALUE OF vv 1S 0

CIRJIIDO, RPO4L/S/6 FCTINL CTLR]
CZRJID.PN
28-MAR-79 09:03

33952
3353
3354
3355
3356

3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
5369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379

3380

3381
3382
3383
3384
3385
3386

013530

000100

013532
013536

004037
002276

013540
013542
013544

00C€001
000001
010000

013546
013552

004037
002314

MACY11

30A(1052)
1 14

ADDRESS

PLUG

0462406

JSR
RHCS2

RO,8#(HREG

1
1
NED

JSR
RHER3

042404

004740
004654

004636

RO,a#CHREG

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

RO,a#COMREG

013610

013616

000207

CHANGED
IS 1

JSR

SAVERE
W(

013614

; CHANGE BITS IN SAVED REGISTER
; CHANGE RHER3 REGISTER

A NEW REGISTER SNAPSHOT

0046612
002354
000022

GNFSAVERE+4?

;SET RHCC REGISTER IMAGE TO ALL 0°'S
AND

THE REGISTER CONTENTS WITH EXPECTED VALUES

; COMPARE SAVED REGISTERS WITH
;PRESENT

VALUE

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

18.

:18. REGISTERS TO BE

5¢:

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS2 REGISTER

;*TAKE

013600
013602
013606

104100

SEQ 0072 |

SFATTENT ,@#SAVERE+26 ;SET UNIT UNDER TEST ATTENTION

004037

013612

ERROR

BIS

CLR

042512

PAGE

;1 BIT/BITS 1O BE C(HANGED
;NEW VALUE OF NED IS 1
. CHANGE NED BIT

1
1
ACE

013574

013612

C(HANGE

: CHANGE vv BIT

;COMPARE

013606

10:30

000001
000001
020000
053737
005037

25-MAY-79

COMPARED

:RETURN TO 5% ON ERROR

sRETURN TO 6% ON NO ERROR

ERROR

100

;ADDRESS PLUG CHANGE CAUSED SOME

RTS

;G0 BACK AND CHECK THE NEXT REGISTER

;REGISTER

ERROR

UNTIL ALL 18. HAVE BEEN DONE

CIRJ1DO, RPO4/S5/6 FCINL (TLR]
(IRJ10.PNN
28-MAR-79 09:03

3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
36402
3403
34064
3405
3406
3407
3408
3409
3410
34611
3412
3413
3414
3415
36416
3417
3418
3419
3420
3,21
3622
3423
3424
3425
3426
3427
3428
3429
3430
3431

3432
3433
3434
3435
3436
3437
3438
3439
3440
3441
36462

MACY11

30A(1052)
1146

25-MAY-79

ADDRESS PLUG

10:30

CMHANGE

PAGE 74

SEQ 0073

ERROR

;*NOW CLEAR OUT THE CONTROLLER AND DRIVE
013616

013616

6%:

004737

041524

JSR

PC,a#CLDISK

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

:GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

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

004037
002300

013630
013632
013634
013636
013640
013642
013646

000003

013646
013652

004037
002322

013654
013656
013660
013662
013664

000002
000000

013666
013672

004037
002276

013674
013676
013700

000001
000000
010000

013702
013706

004037
002314

013710
013712
013714

000001
000000
020000

013716
013722

004037
002320

013724
013726
013730

000001
000000
000001

013732

043737

042604

JSR
RHCST

RO,3#CHREG

:3 BIT/BITS TO BE CHANGED

3
0

000000
100000
000000
040000
000000
020000

;NEW VALUE OF SC
: CHANGE SC BIT

TRE

: CHANGE TRE BIT

;NEW VALUE OF MCPE
. CHANGE MCPE BIT

MCPE

JSR
RHDS1

100000

000000
040000

042404

RO,a#CHREG

ERR

; CHANGE ERR 817

RHERY

RO,a#(HREG

JSR
RHMR

;NEW VALUE OF

ERR IS 0

;CHANGE BITS

IN SAVED REGISTER

: CHANGE RHCS2 REGISTER

;1 BIT/BITS 10 BE CHANGED
;NEW VALUE OF NED 1S 0
; CHANGE NED BIT
RO,a#CHREG

;CHANGE BITS

IN SAVED REGISTER

; CHANGE RHER3 REGISTER

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

ACE

042404

IN SAVED REGISTER

: CHANGE RHDS1 REGISTER

; CHANGE ATA BIT

JSR

IS O

;2 BIT/B]ITS 10O BE CHANGED
;NEW VALUE OF ATA IS 0

NED

042404

:CHANGE BITS

ATA

JSR
RHCS?2

IS 0

;NEW VALUE OF TRE IS 0

062404

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS1 REGISTER

RO,a#CHREG

:CHANGE BITS IN SAVED REGISTER
; CHANGE RHMR REGISTER

;1 BIT/BITS TO BE CHANGED

004740

004636

DMD

:NEW VALUE OF DMD
; CHANGE DMD BIY

IS O

SNATTENT,Q#SAVERE+24L ;UNIT UNDER TEST ATIENTION BT

CIRJIDO, RPOL/S5/6 FCTINL CTLR)
(ZRJID.PY
28-MAR-79 09:03
3443
3444
3445
3446
3647
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463

013740

004037

013744

004612
00235¢4
000022
013756
013762

ADDRESS PLUG

JSR

0642512

10:30

(HANGE

6
PAGE

ERROR

RO,a#COMREG

SEQ 0074

18.
10%
1%

10%:

000207

ERROR
RTS

RESULTS

: COMPARE SAVED REGISTERS WITH
;PRESENT

VALUE

;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM °‘RHWC'
:18. REGISTERS TO BE COMPARED

SAVERE

104100

;RETURN T0 10% ON ERROR
;RETURN TO 119 ON NO ERROR

100

;ADDRESS PLUG CHANGE

CAUSED

s INCORRECT REGISTER RESULT

SOME

11%:

013762

;*(USE NED METHOD TO VERIFY
;*THAT

ATTENTION BIT

COMES UP

IN THE PROPER LOCATION ??)

;*SET 'vv' IN RHDS1 AFTER RESET FROM THE RECALIBRATE
;*CAUSED BY PULLING THE PLUG
013762
015766

013746
052716

002460
000001

MOV

013772

012677

166302

MOV

8IS

d#PKACK ,-(SP)
#G0, (SP)

(SP)+,aRH(CST

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

—

—
W

104413

c—

014002
014004
014006
014010
014012

—

013776
014000

002322
000100
000001
000001

MOV
MOV

WAT
RHDS1
vV

aR1,RO
aR3,RS

INTERRUPT

;60 WITH
;22 IN RHCS1
;WITH

—

3474
3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488

114

25-MAY-79

;*WlTH THE EXPECTED VALUES

[ele]

3471

30A(1052)

;*TAKE ANOTHER REGISTER SNAPSHOT AND COMPARE

3464
3465
3466
3667
3468
3469
3470
3472
3473

MACY11

ENABLE

FOR PACK ACKNOWLEDGE

INTERRUPT

D]SABLED

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

;WAIT FOR vv BIT

IN RHDS1

;ALLOW 10 MICRO SECONDS
;VV MUST SET BETWEEN
:0C AND 20 MICRO SECONDS

CIRJIDO, RPO4L/S5/6 FCTNL CTLRY
CIRJID.PYY
28-MAR-79 09:03
3489
3490
3491
3492
3493
349¢
3495
3496
3497
3498
3499
3500
3501
3502
3¢03
3504
3505

3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
35264
3525
3526
3527
3528
3529
3530
3531
3532

3533
3534
3535
3536
3537
3538
3539

3540

3541
3542

3543

3544

MACY1

30A(1052)

114

25-MAY-79

10:30

PAGE

ADDRESS PLUG CHANGE ERROR

SEQ 0075

R R
X R R R R
R

;*TEST

CHECK

ALL ADDRESS PLUG ADDRESSES

CHECK THAT ALL ADDRESS PLUG NUMBERS FUNCTION PROPERLY

A
o'

THIS TEST IS DONE FOR MEMOREX RP0O4'S AND RPO6'S ONLY
THIS TEST 1S SELECTED BY SwWAS AND THE DEFAULT IS NOT TO DO IT

Py X
N

014014
014016

000004
012737

000001

001212

TST15:

SCOPE
MOV

#1,9T1MES

;:D0 1

ITERATION

R
R R Ry

014024
014030
014032
014036

005737
001005
005737
001002

0146040
014044

000137

004744
004746

015022

TS1
BNE
TST
BNE

a¥RPO6
3
3#RPOS
6%

JMP

T1ST16

;TEST FOR RPO6 DRIVE
J1F =1, 0K TO DO THIS TEST
;TEST FOR MEMOREX RPO4
;1 =1, 0K TO DO THIS TEST
:NOT AN RP0O6 OR MEMOREX RPO& SO

;ASSUME AN 1SS RPO& AND SKIP TEST

JUMP T0O NEXT TEST eeececceccecccccccaas )

;;t'ttt""""l""""""t'tl"i""tt.'..!..'.'tt"..""l'.l

;*CHECK TO SEE [F THIS TEST HAS BEEN SELECTED WITH SWS
014044
014052

014054
014060

032777
001002
000137

000040

1650606

015022

5 :

BIT
BNE
JWP

#SWS,aswR
5%
;
1s116

;TEST THE SWITCH
:1fF 0, TEST MAS NOT BEEN SELECTED
JUMP TO NEXT TEST =emmammcccccccoanae )
;TEST SELECTED, CONTINUE IT

;*THIS CODE CHECKS 1O SEE 1f MANUAL INTERVENTION TESTS ARE OK
3ANOPUSH
1%
G2
1$

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

TCONTINUE WITH THIS TEST

JMP

1s116

JUMP TO NEXT TEST =eemccecccmceace- )

MOV

¥STACK,SP

SRESET STACK

061524

JSR

PC,aNCLDISK

041604

JSR

PC,a#(HECKT

sSET R1-RHCS1, R2-RHCS2
:R3-RHDS1, R4=-RHER1
;GIVE RH=11 INJTIALIZE
:SETUP UNIT NUMBER
;CHECK DVA,RDY,MOL,DPR,DRY,vvV = |

005737
001007
005737
001004
005737
001001
000402

004724

000137

015022

012706
012737

001000
000015

014122

004737

014126

004737

014060
0140064
014066
014072
014074

014100
0164102

0146104
014104
014110
01411C
014114

TS1
BNE
ST
BNE

000042

181
BNE

001100

BR
1¢:

’
004604

MOV

NSPASS
1%

#15,30TSTNM

SFIRST PASS ?
SSKIP THIS TEST

NOT

SSAVE TEST NUMBER

;AND THAT NO STATUS BITS ARE

STu(x =

CIRJIIDO, RPO4L/S/6 FCTINL CTLR]
CIRJID.PWY
28-MAR-79 09:03

3545
3566
3547
3548
3546
3550
3551

3555

014222
014222
014226

3552
3553
3554

3556

3557
3558
3559
3560
3561
3562

0164132

104401

014136

000000

014140
014144

104401

000426
104401

000417

MACY11

TYPE

067033

013737

»CPHALT

HALT

014146

;:69%:

66%:

014230

;678
669%:

014266

L
6
30A(1052)
25-MAY-79 10:30 PAGE 77
T15
CHECK ALL ADDRESS PLUG ADORESSES

004716

004752

T1YPE
BR
CASCIZ
TYPE

;CANNOT CONTINUE TESTING If ANY OF
;THE FIRST SET OF BITS DON'T = 1
;STOP

.65%
s TYPE ASCIZ STRING
(13
;:GET OVER THE ASCIZ
<15><12>/ALL DISK DRIVES EXCEPTING THE UNIT UNDER/
67%

66%

MOv

SNUNIT,QFINUNIT

ASCIZ

SEQ 0076

;. TYPE

ASCIZ

STRING

;.GET OVER THE ASCI1Z

<15><12>/TEST MUST BE POWERED DOWN/<!'5><12>

;MAKE

THE

INITIAL UNIT NO.

= "'UNIT"

CIRJIDO, RPO4/5/6 FCTINL CTLR)
C(ZRJID.PYY
28-MAR-79 09:03

3563
3564
3565
566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586

3587
3588
3589

3590

3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605

3606

3607
3608
3609
3610
3611
3612
3613
3614
3615

MACY11

30A(1052)
25-MAY-79
10:30
PAGE 78
115
CHECK ALL ADDRESS PLUG ADORESSES

SeQ 0077

; *CHANGE ADDRESS PLUG ON THE UNIT UNDER TEST
104401

000420

013746
104405
104401
000421

014420
014420
014424

000417

014464
014464

000000

104401

6%:

014302

;:69%:
68%:

004716

014356
::71%:
70%:

014426

;738
72%-

TYPE

BR
LASCIZ

.69%

;. TYPE

¢8%
;.GET OVER THE ASCIZ
<15><12>/REMOVE ADDRESS PLUG ON DRIVE/

MOv
TYPDS
TYPE

SMUNIT,-(SP)

;GET THE UNIT UNDER TEST
;TYPE 1T QUT
;:TYPE ASCIZ STRING

CLASCIZ

TYPE

. 139

BR
ASCIZ

70%

ASCIZ

STRING

;.GET OVER THE ASCIZ

REPLACE WITH NEXT
::TYPE

HIGHER ADDRESS/

ASCIZ

STRING

72%
.:GET OVER THE ASCIZ
<15><12>/PLUG - THEN PRESS CONTINUE/

HALT
: *HOUSEKEEPING

014466
014472
014476

005037
005237
042737

047342
004716

014504

004737

041526

177770

CLR
INC

dfPRITEM
afUNIT

:CLEAR THE PREVIOUS ERROR NUMBEK
;ADD ONE TO THE UNIT NO.

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RHCS?

BIC

004716

#2C7,3MUNIT

: TRUNCATE TO LOW ORDER 3 BITS
;R3-RHDS!,

R&-RHER1

;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER
;*ATTEMPT

014510
014514
014520
014526

017700
004737
032737
001423

014530

104102

014532
014536

104401

014556
014556
0146562
016564
014570
014576

000407

013746
104405
104401

000402

165570

043436
010000

014540

004716

Mov
JSR

aRHDST RO
PC,aNPUTREG

ERROR

102

TYPE

.75%

811
BEQ

002360

::75%:
764%:

014572
o778
76%:

TO ADDRESS THE NEW UNIT

#NED ,a#(S2
7%

NUMBER

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

;TEST FOR NON EXISTENT DRIVE
;CONTINUE IF "NED' IS NOT SET - DRIVE
;SHOULD BE EXISTENT ON THE BUSS
;UNIT NOT AVAILABLE AFTER ADDRESS
;PLUG REPLACED
;. TYPE ASCIZ STRING

BR
LASCIZ

74%
.;GET OVER THE ASCIZ
<15><12>/UNIT NUMBER/

MOV
TYPDS

@#UNIT,-(SP)

TYPE
BR
JASCIZ

et
76%
<1512/ 7/

;GET THE BAD UNIT NUMBER
;TYPE IT OUT

::TYPE ASCIZ STRING

;;GET OVER THE ASCIZ

CIRJIDO, RPO4L/S5/6 FCTINL CTLRI
CIRJ1D R AR
28-MAR-79 09:03
3616
3617
3618
3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3629
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654

MACY 1

;*CHECK IF
014576

023737

014604

001233

004716

004752

3? A(1052)
25-MAY=-79
10:30
PAGE 79
15
CHECK ALL ADDRESS PLUG ADORESSES

7%:

SEQ 0078

ALL UNIT NUMBERS HAVE BEEN TRIED

Cmp

SAUNIT ,@FINUNIT

;HAVE WE

INCREMENTED BACK

BNE

:NO..DO NEXT ADDRESS PLUG

;ORIGINAL UNIT NO. YET ?

TO THE

;YES..CONTINUE WITH TESTS

;*SET "VV'IN RHDS1 AFTER RESET FROM THE RECALIBRATE
; *CAUSED BY PULLING THE ADDRESS PLUGS OUuT
014606
014612

013746
052716

002660
000001

Mov

d¥PKACK,=(SP)

014616

012677

165456

Mov

(SP)+ ,@RHCST

BIS

#G0, (SP)

;GET READY TO MOVE
;GET

01110 0
01130 5

Mov
Mov

014626

104413

WAT
RHDS1

014630
014632
014634
014636

002322
000100
000001
000001

014640
014644

000436

014742
014742
014746
015022

104401

104401
000425

aR1,RO
aR3,RS

SET

COMMAND

;WITHOUT INTERRUPT ENABLE
;60 WITH

;22 IN RHCS1 FOR PACK ACKNOWLEDGE

sWITH

0146622
014624

READY

INTERRUPT DISABLED

;SAVE RHCS1
:SAVE RHDS1
;WAIT

DURING ABOVE OPERATION
DURING ABOVE OPERATION

FOR vv BIT

TO SET

;WAIT FOR RHDS1 REGISTER
;WAIT FOR vv BIT IN RHDS1
sALLOW 10 MJCRO SECONDS
;VV MUST SET BETWEEN

;00 AND 20 MICRO SECONDS
014646

TYPE

::82%:

014750

B1$:

¥
.12
83%:

BR
.ASCIZ
TYPE

BR
LASCIZ

.82%
81%

;s TYPE ASCIZ STRING
::GET OVER THME ASCI1Z

,84%

s TYPE ASCIZ

<15><12><15><12>/ALL DISK DRIVES WHICH WERE

83%

<15><12>/WAS

STRING

;:GET OVER THE ASCl2

STARTED MUST

POWERED UP WHEN

POWERED UP AGAIN/<15><12>

THE

PROGRAM/

3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675
3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702

RMACY11

.SBTTL
.SBTTL
.SBTTL

*+DRIVE

SeaQ 0079

COMMAND TESTSre

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

SeTEST 16
MR4

)

bR4

NO OPERATION FUNCTION TEST

ALL POSSIBLE REGISTERS ARE

+ EARED THEN A''NOP'’'=0

IS GIVEN NO CHANGE SHOULD hAPPEN

ALL POSSIBLE REGISTERS ARE FILLED WITH ONES THEN A '‘NOP'
IS GIVEN NO CHANGE SHOULD HAPPEN

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

015022
015024
015030

000004
012706
012737

001000
000016

015036

004737

0415264

15T16:
004604

SCOPE
Mov
Mov

#STACK,SP
16,30 TSTNM

SRESET STACK
:SAVE TEST NUMBER

JSR

PC,aNCLDISK

;SET R1-RHCS1, R2-RHCS?

015042

004737

041604

JSR

PC,aNCHECKT

015046

1064601

067033

TYPE

LPHALT

015052

000000

015054

013777

HALT

002422

165216

Mov

INNOPERA,IRHCS1

;R3-RHDS1,

R4&-RHERI

;:GIVE RH=11 INITIALIZE
. SETUP UNIT NUMBER

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

;AND THAT NO STATUS BITS ARE STuCK
;CANNOT CONTINUE TESTING IF ANY Of
;THE FIRST SET OF BITS DON'T =
;STOP

;GET READY FOR NOPERA
:NO OPERATION WITH 0 IN RHCSI

; *NOW SAVE REGISTERS FOR COMPARISON AFTER NO OPERATION
015062
015066
015070

004037
002272
004612

015072

000022

015074

013777

JSR
RHWC
SAVERE

041672

RO,a#SAVER

004606

165164

Mov

:SAVE REGISTERS
sRHWC 1S THE FIRST REGISTER SAVED
;STARTING ADDRESS CF WHERE
:THE REGISTERS ARE

18.

:NUMBER OF

SAVED

REGISTERS

:SAVED = 18,

3#RP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS
;70 "TIMEY"

P-CLOCK

IS PRESENT

:OR TO 'TIMEZ2' IF P=-CLOCK IS NOT PRESENT
;'TIME' WILL ONLY SAVE
: CURRENT CYLINDER ADDRESS

3703
3704
3705

;AND LOOK

o0
o no

—

3706
3707

3708
3709
5710

30A(1052)
25-MAY-79
10:30
PAGE &Y
115
CHECK ALL ADDRESS PLUG ADORESSES

002422
000001

MOV

BIS

S#NOPERA,-(SP)

#GO, (SP)

,;GET

READY

AHEAD REGISTERS

TO MOVE

COMMAND

:GET READY TC SET GO

CIRJIDO, RPOL/S5/6 FCTNL CTLRY
CZRJID.PIY
28-MAR-79 09:03

30A
11

25-MAY-79

10:30

Sea 0080

NO OPERATION FUNCTION TEST

MOv

(SP)+ ,aRHCST

:WITHOUT
;60 WITH

INTERRUPT

;0 IN RHCS1

ENABLE

FOR NO-OPERATION

;WITH INTERRUPT D]SABLED

NN
NI N —

s
i

il
il

el
—

——

[V LV SV LV 10 ]

QOO0

TN\

et o

oh oed

OOV
NI NN b

e —

W L W LM L M N NN w
SNNNNNNYN
N~ ~

015112

012677

MACY11

)

7
PAGE &I

1044613
002300
000200
000001
000001

WAT

;WAIT

RHCS1
RDY
1.

FOR RDY BIT

T0 SET

;WAIT FOR RHCS! REGISTER
;WAIT FCR RDY BIT IN RHCS1
;ALLOW 10 MICRO SECONDS

;RDY MUST

SET BETWEEN

;00 AND 20 MICRO SECONDS

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

3733
3734
3735
373%
3737
3738
3739
3740
3741
3742
3743

004037

JSR

004612
002354
000022
015146
01552

SAVERE
w(
18.

104016
000207

ERROR

RO,3#COMREG

;PRESENT

VALUE

;600D DATA SAVED IN ‘SAVERE'
;TEST DATA STARTING FROM 'RHWC'’
;18. REGISTERS TO BE COMPARED

;RETURN TO

2%
RTS

;COMPARE SAVED REGISTERS WITH

1$ ON ERROR

;RETURN TO 2% ON NO ERROR
16

;GIVING A NO-OP COMMAND

: CAUSED AN ERROR

:NO REGISTERS SHOULD CHANGE
;600D DATA GIVES REGISTER
; CONTENTS BEFORE COMMAND
;RECEIVED DATA GIVES REGISTER
;CONTENTS AFTER COMMAND

CIRJIDO, RPO&L/S5/6 FCTINL CTLR
28-MAR-79 09:0

CIRJID

CIRJ1DO, RPO4/S5/6 FCINL CTLRI
CIRJ1D.P1
28-MAR-79 09:03

3744
3745
3746
3747
3748
3749
3750
3791
3752
3753
37564
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
3771
3772

377%
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

MACY11

30A(1052)
116

25-MAY-79

10:30

7
PAGE 8¢

Sea 0081

NO OPERATION FUNCTION TEST

;*NOW REPEAT TEST BY MOVING IN ALL POSSIBLE ONES
2%:

015192
015152

004737

JSR

041524

PC,a#CLDISK

:SET R1-RHCS1, R2-RHCS?
;R3-RHDS1, R&-RHER!

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

015156
015162

012700
012730

002272

MOv

YRHWC RO

015166

012730

177777

Mov

#177777,3(RO)+

;LOAD 177777 INTC RHBA

015172
015176

052730
012730

043010
001400

BIS

#63010,8(R0)+

;LOAD 43010 INTO RHCS?2

015202

012730

000000

Mov

#0,3(RO)

;LOAD O INTO RHER1

015206

012730

177777

Mov

#177777,8(RO)+

;LOAD 177777 INTO RHDST

015212

012730

000000

Mov

#0,3(RO)+

;LOAD O INTO RHERZ2

015216

012730

177777

MOV

#M177777,3(ROY+

;LOAD 177777 INTO RHOF

015222

012730

177777

MOV

#177777,3(RO)+

;LOAD 177777 INTO RHCA

015226

012730

000000

MOV

#0,9(R0)¢

;LOAD O INTO RHER3

MOv

177777

177777 ,8(RO)¢+

Mov

#1400,3(RO) ¢

;ADDR. OF

ADDR OF

RHW(C

;LOAD 177777 INTO RHW(

IN RO

:LOAD 1400 INTO RHCSI

;*NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT
MOv

015232
015234
015236

RO,-(SP)

HQ&‘f

015240
015244
015246
015252
015254
015256

004742

Mov

000010

Mov
ROR
BCC
MOv

(LR

B87%:

177777
88%:

INC

aR&4 , = (SP)
aR2,=(SP)
SNTOTALAT RO

aR?
#e. ,R5
RO

88%

¥-1,3R6

aR2
RS
87%
(SP)+,aR2

;.PUSH RO ON STACK

;SAVE RHER! TO REINSTATE LATER
;SAVE RHCS2 TO BE REINSTATED
;AFTER

ALL ATA BITS HAVE

:GET DRIVES PRESENT

BEEN SET

;CLEAR RHCSZ AND CARRY
: COUNTER
;GET BIT

INTO CARRY

;BRANCH IF NO UNIT ON THIS BIT
:MOVE

INTO ERROR REGISTER

;10 SET ATA BIT

; INCREMENT RHCS2 TO NEXT UNIT
: COUNT
;BRANCH IF 8 NOT DONE
;REINSTATE RH(S?2

015262
015264
015266
015270
015272
015274
015276

005212
005305
001371
012612
012614
012600
005720

015300

012730

177776

MOv

#177776,8(R0O)+

;LOAD 177776 INTO RHMR

015304

004737

061604

JSR

PC,a#(HECKT

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

DEC
BNE
MOV
MOV
MOV
181

(SP)+,3R4
(SP)+,RO
(RO) ¢

;REINSTATE RHER!
;.POP STACK INTO RO
:GET OVER PHAS IN RO

;AND THAT NO STATUS BITS ARE

STuCK =

CIRJIDO, RPOL/S/6 FCTNL CTLRY
CZRJID.PIY
28-MAR-79 09:03
3800
3801
31802
3803
3804
38095
3806
3807
3808
3809
3810
1811
3812

015310

104401

067033

015314
015316

000000
013777

002422

3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
31847
3848
3849
3850
3851
3852
31853
3854
3855

30A(1052)
116

25-MAY-79

7
PAGE 83

SEQ 0082

NO OPERATION FUNCTION TEST
TYPE
HALT

164754

10:30

Mov

,CPHALT

9#NOPERA ,8RHCST

;CANNOT

CONTINUE

TESTING

ANY OF

;THE FIRST SET OF BITS DON'T = 1

;S10P

;GET

READY

FOR NOPERA

;NO OPERATION WITH O IN RHCS1T

;*NOW SAVE REGISTERS FOUR COMPARISON AFTER A NO-OP
004037
002272
004612

3813

3814
3815
3816
31817
3818
3819
3820
31821
3822
3823
3824

MACY11

041672

JSR
RHW(C
SAVERE

013777

004606

MOV

164722

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

;THE REGISTERS ARE SAVED

18.

000022

015336

RO,3#SAVER

;NUMBER OF

REGISTERS

;SAVED = 18.
ANRP4LVEC,aRPVEC

;SET RPO4 VECTOR ADDRESS
:T0 'TIME1' IF P=CLOCK IS PRESENT

:OR 10 'TIME?'

IF P-CLOCK IS NOT PRESENT
J'TIME' WILL ONLY SAVE
;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
015344

015350
015354

013746
052716

002422
000001

Mov

d#NOPERA,-(SP)

012677

164720

MOov

(SP)+,aRHCST

B1S

760, (SP)

WAT
RHCSI
RDY
1.
1.

104413
002300
000200
000001
000001

;GET

READY

TO MOVE

COMMAND

;GET READY TO SET GO

;WITHOUT INTERRUPT ENABLE
;60 WITH
:0 IN RHCS1 FOR NO-OPERATION
;WITH INTERRUPT DJISABLED

;WAIT FOR
;WAIT FOR
;WAIT FOR
;ALLOW 10
;RDY MUST

RDY BIT T0 SET
RHCS1 REGISTER
RDY BIT IN RH(CS!
MICRO SECONDS
SET BETWEEN

;00 AND 20 MICRO SECONDS

;*CHANGE REGISTERS TO EXPECTED VALUES
005737
001406
005737
001003
042737

004750

3#RH70
5%

;RUNNING ON AN RH70 ?
:1F NOT, SKIP NEXT

BNE
BIC

5%
#SC,INSAVERE+6

:SKIP NEXT IF SO
;CLEAR 'SC' IN RHCSI

151

004722
100000

1§71
BEQ

004620

aINUNTT

;TESTING MORE

THAN ONE DRIVE

5%:

015414
015614

043737

004740

015422
015426

004037
002322

062404

004636

BIC

SFATTENT ,@#SAVERE+24

JSR

RO,3#CHREG

RHDS1

;CLEAR APPROPJATE ATA BIlTS

;FOR WORKING DRIVE

; CHANGE BITS

; CHANGE RHDS!

IN SAVED RHAS

IN SAVED REGISTER

CIRJIDO, RPO&4/S/6 FCINL CTLR 1
CIRJIID.PIY
28-MAR-79 09:03

3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866

3867
3868
3869
3870

015430
015432
015434

MACY11

20A ( 1052)
T6

000001
000000

25-MAY-79

10:30

PAGE 84

SEQ 0083

NO OPERATION FUNCTION TEST

ATA

; CHANGE

100000

BIT/BITS TO BE

;NEW VALUE OF

CHANGED

ATA IS 0

ATA BIT

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

004037

015442
015444
015446
015450
015452

004612
00235¢
000022
015454
015460

015454
015456

000207

015460

104016

JSR

0642512

RO,3#COMREG

SAVERE

W(
18.
3%
4%
3%

4%:

ERROR
RTS

;COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;GOOD DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
;18.

REGISTERS TO BE

COMPARED

;RETURN T0 3$ ON ERROR

;RETURN TO 4% ON NO ERROR

;GIVING A NO-OP COMMAND
. CAUSED AN ERROR

:NO REGISTERS SHOULD CHANGE
:GO0OD DATA GIVES REGISTER
;CONTENTS BEFORE COMMAND
;RECEIVED DATA GIVES REGISTER
;CONTENTS AFTER COMMAND

CIRJIDO, RPOL/S5/6 FCTINL CTLR]
CZRJID.PV
28-MAR-79 09:03
3883
3884
3885
3886
3887
3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910

3911
3912
3913
3916
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938

MACYT

397;1052)

25-MAY-79

DRIVE

CLEAR

10:30

PAGE 85

SEQ 0084

':"'"""""""""""""""""""Ql"""""'.'.""'0

JeTEST

:?
.t

DRIVE CLEAR

ALL WRITE BITS OF ALL REGISTERS ARE FILLED
WITH ONES EXCEPT GO,CLR,IE,PAT MCPE,UPE
THEN A DRIVE

CLEAR

1S GIVEN

THEN ALL REGISTERS ARE CHECKED TO MAVE APPROPIAVE VALUE

':'t"'!"""""""""""""""'.""".""""""""'0

015460
015462
015466

000004
012706

012737

001000
000017

015474

004737

041524

1$117:
004604

SCOPE

Mmov
MOv

#STACK,SP
#17,38TSTNR

JRESET STA(CK
;SAVE TEST NUMBER

JSR

PC,a3#CLDISK

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

015500

004737

041604

JSR

PC,aN(HECKT

015504

10446401

067033

TYPE

LCPHALT

015510

000000

HALT

;R3-RHDS1,

R4&-RHER!

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;CHECK DVA,RDY MOL,DPR,DRY, vV =
;AND

THAT

NO STATUS BITS ARE

STUCK

s CANNOT CONTINUE TESTING IF ANY OF
;THE FIRST SET OF BITS DON'T = 1
:ST0P

*WRITE ALL WRITABLE REGISTER BITS
015512

015516

012700
012730

002272

177777

MOV
Mov

PRHWC RO
#177777,3(RO)+

;ADDR. OF ADDR. OF RHWC(
;LOAD 177777 INTO RHWC

015522

012730

177776

Mov

#177776,8(RO)+

;LOAD 177776 INTO RABA

015526
015532

052730
012730

043010
001400

B1S

MoV

#1400,3(RO) ¢

#63010,8(R0)¢+

;LOAD 43010 INTO RHCS?2

015536

012730

000000

Mov

#0,3(RO)+

;LOAD O

015542

012730

177777

Mov

#177777,8(RO)+

;LOAD 177777 INTO RHDST

015546

012730

000000

mMov

#0,3(RO)+

;LOAD O

015552

012730

177777

Mov

#177777,8(ROY¢

;LOAD 177777 INTO RHOF

015556

012730

177777

MOv

#177777,3(RO)+

;LOAD 177777 INTO RHCA

015562

012730

000000

mMov

#0,9(RO)+

:LOAD O INTO RHER3

;LOAD

1400

IN RO

INTO RHCS!

INTO RHER

INTO RHER?

;*NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT
015566
015570
015572

MOv

MOV
Mov

aR6&, = (SP)
aR2,-(SP)

015574
015600
015602
015606
015610
015612

004742

MOov

a#TOTALAT,RO

000010

MOV

#8. RS

177777

CLR

84%:

ROR
B(C
MOv

RO,=(SP)

:.PUSH RO ON STACK

:SAVE RHER! TO REINSTATE LATER
;SAVE RH(S2 TO BE REINSTATED
JAFTER ALL

ATA BITS HAVE

;GET DRIVES PRESENT

BEEN

aR?

;CLEAR RHCS2 AND CARRY

RO
85%
#-1,3R6

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

: COUNTER

;70 SET

ATA BIT

SET

CZRJIDO, RPO&/S5/6 FCINL C(TLRI
CZRJ1D.P1N
28-MAR-79 09:03

012730

177776

015640
015646

017737
013777

164470
004606

INC
DEC
BNE

MOv
Mov
MoV

1S1

004654

1644612

10:30

7
PAGE 86

SEQ 0085

; INCREMENT RHCSZ TO NEXT UNIT

a2
RS
843
(SP)+,aR2
(SP)+.aR4

;REINSTATE RMER!

(RO)+

;GET OVER PHAS IN RO

(SP)+.RO

; COUNT
;BRANCH 1F 8 NOT DONE
;REINSTATE

RHCSZ

;. POP STACK

:LOAD 177776 INTO RHMR

Mov

#177776,3(RO)¢+

MOV
MOV

SRHCC,@FSAVERE+42 ;SAVE RHCC
S#RPLVEC,aRPVEC

INTO RO

IN SAVERE

TABLE

;SET RPO4 vc(TOR ADDRESS

;10 *TIMET®

;OR 10 'TIMEZ2'
;'TIME'

P=-CLOCK

IS PRESENT

IF P-CLOCK

WILL ONLY

SAVE

[S NOT PRESENT

; CURRENT CYLINDER ADDRESS

;AND LOOK

015654
01566C
015664

013746
052716

002430
000001

MOV

012677

164410

Mov

8IS

106413

afDCLEAR,~(SP)
#GO, (SP)

(SP)+ ,aRKCS]

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

;WITHOUT INTERRUPT ENABLE
;60 WITH
;10 IN RHCSY1 FOR DRIVE CLEAR
;WITH INTERRUPT DISABLED

WAT

;WAIT

FOR RDY BIT

10 SET

RDY

;WAIT FOR RDY BIT IN RHCS!
;ALLOW 10 MICRO SECONDS

;WAIT FOR RHCS1 REGISTER

RHCS!

002300
000200
000001
000001

AHEAD REGISTERS

;RDY

MUST

SET

BETWEEN

;00 AND 20 MICRO SECONDS

NN
=2
e OO
oornoOoOoNOoOON

041426

JSR
RHWC

RO,a#F ILLRE

MOV

177777

INTO SAVED RHW(

004037
002274

041426

JSR

RO,a#F JLLRE

;DATA
MOV 177776

INTO SAVED RHBA

005037
053737

004616
004716

177776
CLR
BIS

SN SAVERE+&

005737
001021

004750

157
BNE

A#RHT70
8%

015742
015746

004037
002276

042404

JSR
RHCS?

RO,a#CHREG

015750

000003

-l
ol
gl
s ——d

004037
002272

B
or

;*NOW LOAD 'SAVERE® REGISTER SNAPSHOT WITH EXPECTED VALUES
(V IVIRV IV QU IV LV LV AV 1V
NN
NNNNNNNY

3993

399¢

015634

COOOO0O0O0O0O0

3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
1969
3970
3971
3972
397%
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992

005212
005305
001371
012612
01261¢6
012600
005720

—

3950
3951
3952

30AC1052)
25-MAY-79
"7
DRIVE CLEAR

85%:

015616
015620
015622
015626
015626
015630
015632

OO0

3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949

MACY11

177777

177776

177777

RHBA

004616

:SAVED REGISTER T0 CHANGE

:SAVED REGISTER T0 CHANGE
;DATA

;CLEAR LOCATION FOR RH(S?2
SNUNIT,3#SAVERE+4L;PUT UNIT # BACK IN THE SAVED RH(S?

;RUNNING ON AN RH70 CONTROLLER ?
:1F SO SKIP NEXT RH11 CODE
;CHANGE BITS IN SAVED REGISTER

:CHANGE RHCSZ REGISTER

;3 BIT/BITS TO BE CHANGEC

CIRJ1DO, RPO&L/S/6 FCINL CTLRY
CIRJ1D.P
28-MAR-79 09:03

4000

000001
000100
000001
000010
000001
001000

4003

004037
002300

3995
3996
3997
3998
3999

<001
4002

4004
4005
6006
4007
4008
4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
6022
4023
6024
6025
4026
4027
4028
6029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
6040
6041
6042
6063
6044
6045
60466
6047
6048
6049
4050

MACY11

30A(1052)
25-MAY-79
117
DRIVE CLEAR

JSR
RHCS
1
|
SC
BR

100000

000416

016004
016010

004037
002276

016012
016014
016016
016020
016022
016024
016030
016032
016040

000002
000001
000100
000001
000010
005737
001003
042737

016050
016054
016056

004037
002302
000000
004037
002304
017437
004037
002306
000000
004037
002310
116000
004037
002312
001777
004037
002314
000000
013746

0643716
012637
004037
002320
000400
016144

SEQ 0086
IR

; CHANGE IR BT
;NEW VALUE OF BAI

IS 1

; CHANGE BAI BIT

S 1

;NEW VALUE OF MxXF
; CHANGE MXF BIT

RO,a#(HREG

; CHANGE BITS IN SAVED REGISTER
: CHANGE RHCS1 REGISTER

:1 BIT/BITS 10 BE CHANGED

;NEW VALUE OF SC
; CHANGE SC BIT

;SKIP NEXT RH70 CODE

8%:

016004

016044
016046

;NEW VALUE OF

mxt

042404

7
PAGE &/

1
IR
1
BAl
1

000091
000001

016040

10:30

JSR
RH(SZ

042404

RO,3#CHREG

; CHANGE

BITS

IN SAVED REGISTER

; CHANGE RHCS2 REGISTER

;2 BIT/BITS TO BE CHANGED

004722
100000

061426

004620

9%:

041626

BAl
1§71
BNE
BIC

3#NUNITT

9%
#SC,aNSAVERE+6

JSR
RHER

RO,9#FILIRE

JSR

RO,a#F ILLRE

RHDST

;NEW VALUE OF IR IS 1
; CHANGE IR BIT
;NEW VALUE OF BAl IS 1
; CHANGE BAl BIT

;TESTING MORE

THAN ONE DRIVE

;SKIP NEXT 1F SO
;CLEAR °'SC' IF NOT

;MOV 0 INTO SAVED RHERI

;SAVED REGISTER TO CHANGE
;DATA

;MOV 17437 INTO SAVED RHDST
:SAVED REGISTER TO CHANGE

041426

17637
JSR
RHER?
0
JSR

041426

116000
JSR

RO.a#FILLRE

1777
JSR

RO,a#FILLRE

:MOV O INTO SAVED RHER3
:8:¥io REGISTER TO C(HANGE

MOv

¥ TOTALAY,-(SP)

:?ETRAkg BITS OF

B1C

O#ATTENT, (SP)
;CLEAR WORKING DRIVE BIT
(SP)+ ,Q#SAVERE+24 ;MOVE THIS INTO RMAS POSITION
RO,a#F JLLRE
;MOV 400 INTO SAVED RMMR

061426

RHOF

RHCA

0461426

RHERS

004742

004740
004636
041426

MOV
JSR
RHMR

400

RO,a#FILLRE

;DATA
:MOV 0

INTO SAVED RHER?

;SAVED REGISTER TO (HANGE
;DATA

MOV 116000 INTO SAVED RMHOF
:SAVED REGISTER TO CHANGE
;DATA
MOV 1777

INTO SAVED RMCA

sSAVED REGISTER TO CHANGE
;DATA

sIN

DRIVE & PRESENT

:g:¥§0 REGISTER TO (HANGE

CIRJIDO, RPO&/S5/6 FCINL CTLRY
CIRJ1D.PY
28-MAR-79 09:03%
4051
6052
6053
6056
6055
6056
6057
4058
4059
4060
6061
6062
6063
6064
6065

6066
6067
4068
6069
4070
4071
4072
6073
6074
4075
4076
4077
4078
4079
4080
4081
4082
4083
4084
4085
4086
4087
4088
4089
<090
4091
4092
4093
4094

4095

4096

MACY11

016144
016150
016152

004037
00232¢
010700

061426

016154

013737

002406

004644

016162

013737

002410

004646

004037
002330
000000
004037
002332
000000

061426

016210
016214

004037
002300

016216
016220
016222

000001
000001
000010

30A(1052)
25-MAY-79
17z
DRIVE CLEAR

MOv

a#DT ,a#SAVERE+32 ;MOVE DRIVE

MOv

@FSN, QNSAVERE+34

JSR

RO,a#F ILLRE

JSR

RO,a#FILLRE

JSR
RHCS

RO,a#CHREG

RHEC2
0

042404

SEQ 0087

RO,3#F ILLRE

RHECH

0461426

7
PAGE 83

JSR

RHDS
10700

4S:

10:30

;MOv 10700 INTO SAVED RHDS1

;SAVED REGISTER TC CHANGE
;DATA

TYPE

SAVRE TABLE

;POSITION OF
;MOVE

SERJAL NUMBER

;MOV 0 INTO SAVED RHECI
;SAVED REGISTER

;DATA

TO CHANGE

:MOV 0 INTO SAVED RHEC?

;SAVED REGISTER TO CHANGE
;DATA
;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS1 REGISTER
;1

PAR

: CHANGE PAR BIT

BIT/BITS

TO BE

;NEW VALUE OF
SAVERE

INTO RHSN

;POSITION OF SAVERE TABLE

;*NOW THAT

INTO RMDT

TABLE

PAR

CHANGED

HAS BEEN LOADED WITH

;vEXPECTED VALUES, THE REGISTERS WILL Bt C(OMPARED
;*WITH SAVERE TABLE
016224

004037

016230
016232
016234
016236
016240

004612
002354
000022
016242
016246

0162642
016244

104017
000207

JSR

062512

RO,3#COMREG

;PRESENT

VALUE

SAVERE
w(
18.

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

;RETURN TO 6% ON NO ERROR

5¢:

. COMPARE SAVED REGISTERS WITH

ERROR
RTS

;RETURN TO 5% ON ERROR

;DRIVE CLEAR COMMAND
:GAVE

AN ERROR

;GOND DATA HAS WHAT SHOULD
:BE IN REGISTER AFTER A
;DRIVE CLEAR

;RECEIVED DATA HAS WHAT
;THE

016246

6%:

s CONTAINED

CIRJIDO, RPO4L/5/6 FCINL CTLRI
CIRJID.PVY
28-MAR-79 09:03

MACY1Y

4097
4098
4099
6100
(101
6102
6103

6129
6130
6131
6132
6133
6134
4139
64136
6137
6138
4139
6140
4141
6142
6143
4144
6145
61646
L1467
4148
4149
4150
4151
6152

7
PAGE 89

SEQ 0088

THEN THIS

Wwe
Ve
e
We
Ve

STARTING ADDRESS 220 1S USED THIS TEST WILL NOT BE PERFORMED

1F THE PROGRAM WORKS UNDER ACT-11 MONITOR
TEST

IS NOT

PERFORMED

I1F NO ACT=-11 MONITOR IS PRESENT THEN
THIS TEST 1S PERFORMED ONLY ON THE FIRST PASS

ON SUBSEQUENT PASSES THIS TEST

IS NOT DONE

Ve
Ve
s

BN 2N
2N

Ve
B

2R
BN

THIS TESTS THE READ-IN-PRESET COMMAND
FIRST THE DRIVE 1S POWERED DOWN AND UP [N ORDER 10
RESET vv-Bl1 #6 IN RHDS!
THEN ALL WRITE BITS OF ALL REGISTERS ARE FILLED
WITH ONES EXCEPT GO,CLR,IE,PAT MCPE,UPE

ATA FOR DRIVE UNDER TEST

IS MADE = 0

Ve
e
Be
%o
s
%e

L 2NN SR 2NN JEE BN

®e

READ-IN-PRESET

;

BN BN BN

TeTEST 20

6123

6128

10:30

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

6104
4109
6106
4107
4108
6109
4110
L1
6112
6113
4114
4115
4116
6117
4118
6119
4120
6121
4122
6124
6125
6126
4127

30AC1052)
25-MAY-79
117
DRIVE CLEAR

THEN A READ-IN-PRESET COMMAND = 20 IS GIVEN

THEN ALL REGISTERS ARE TESTED
THE FOLLOWING SHOULD BE THE REGISTER CONTENTS
RHCA = 0, RHDST = 0, RHOF SHOULD HAVE

FM122 = 0, ECl = 0, HCI = O, RHDS1

SHOULD HAVE vv = 1

ALL OTHER REGISTERS SHOULD BE UNCHANGED

SR XXX X2 XXX 2282222222 2222222222222
RN
RNARRRlR RN

016246
016250
016254

000004
012706

012737

001000
000020

016262

004737

041524

157120:
004604

SCOPE

MOV
Mov

#STACK,SP
#20,3#TSTNM

JSR

PC,aNCLDISK

sRESET STACK
:SAVE TEST NUMBER

;SET R1-RHCS1, R2-RHCS?2

;R3-RHDS1, R&=-RHERI1

;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

;*THIS CODE CHECKS TO SEE I1F MANUAL INTERVENTION TESTS ARE 0K
005737
001007
005737
001004
005737
001001
000402

004724

104401

016324

000407

;1S THIS A 220 START ?

181

Y 1Y

:MONITOR (ACT 17) RETURN ADDRESS ?

:SKIP THIS TEST

;SKIP THIS TEST

181
BNE
BR

1%
a¥SPASS
1%
2%

JMP

15121

;:2ss:

TYPE
BR
JASCIZ

:;TYPE ASCIZ STRING
,65%
::GET OVER THE AS(CIlZ
64%
<15><12>/S10P DRIVE /

BNE

001100

017012

S¥NOPUSH

BNE

000042

000137

151

1%:
2$:

649

:FIRST PASS ?
;SKIP THIS TEST IF NOT
;CONTINUE WITH THIS TEST

;

JUMP TO NEXT TEST] =ceccccccccccce- )

CIRJIIDO, RPOL/S5/6 FCTINL CTLRY
28-RAR-79 09:05

CIRJID.PY

6153
6154
6155
6156
6157
6158
6159
6160
4161
6162
6163
6164
6165
6166
L4167
4168
6169
6170
N
6172
6173
6174
6175
6176
677
64178
6179
4180
4181
6182
4183
4184
6185
6186
6187
4188
4189
4190
LN
6192
4193
6194
4195
6196
6197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208

013746
104405
104401

032713
001375

30A(1052)
25-MAY-79
10:30
READ-IN-PRESET
120

004716
001223
010000

104401
000406

016370

016404
016410
016412

013746

004716

016416
016422

032713
001775

010000

016424

004737

061524

3%:

016430

004737

041562

016434
016440
016442

000000
012700

104401

067033
002272

49%:

7
PAGE 9V

SEQ 0089

8FUNIT ,=(SP)

BIT
BNE

#MOL ,8R3
3%

;MOL WILL BE HIGH TILL STOP IS MIT
SWALT TILL STOP 1S HIT

,67%

;s TYPE ASCIZ STRING

TYPE

JSCRLF

66%

MOV

SFUNIT,=(SP)

.ASCIZ

TYPDS
TYPE

001223

MoV
T1PDS

TYPE

;1679
66%:

016404
104405
104401

MACY11

/START DRIVE/

SCRLF

;GET UNIT UNDER TEST
;TYPE 1T QUt

::GET OVER THE ASCIZ

;GET UNIT UNDER TEST
;TYPE

811
8taQ

#MOL ,aR3
3

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

JSR

PC,aNCLDISK

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

JSR

PC.,a#CHECK

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

TYPE

LCPHALT

; CANNOT CONTINUE TESTS IF

Mov

#RHWC RO

HALT

;R3-RHDS1, R&=RHER1

;AND THAT NO STATUS BITS ARE
;STOP

;ADDR. OF ADDR. OF RHWC

STUIK

THEY AREN'T

IN RO

:*NOW INITIALIZE ALL THE REGISTERS
016446

012730

177777

mMov

#A77777,8(RO)+

;LOAD 177777 INTO RHWC

016452

012730

177727

MOV

#177777,3(RO)+

;LOAD 177777 INTO RHBA

016456
016462

052730
012730

043010
001400

BIS

#43010,3(RO)+

;LOAD 43010 INTO RHCSZ

016466

012730

000000

MOV

#0,a(RO)+

;LOAD O INTO RHER1

016472

012730

177777

MOV

#177777,3(RO)¢+

;LOAD 177777 INTO RHDST

016476

012730

000000

MOV

#0,3(RO)¢

;LOAD 0 INTO RHER?

016502

012730

177777

MOV

#M177777,3(R0O)+

;LOAD 177777 INTO RHOF

016506

012730

177777

Mov

#177777,8(RO)+

;LOAD 177777 INTO RHCA

016512

012730

000000

MOv

#0,a(R0)¢

;LOAD O INTO RHER3

MOV

#1400,a(R0) ¢

:LOAD 1400 INTO RHCSI

;*NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT
016516
016520
016522

MOv
MOV
MOv

RO.,=(SP)
aR&, = (SP)
aR2,-(SP)

;;PUSH RO ON STACK
:SAVE RHER] TO REINSTATE LATER
;SAVE RHCS2 TO BE REINSTATED

;AFTER ALL ATA BITS HAVE BEEN SET

CIRJIIDO, RPO4L/S5/6 FCTINL CTLRI
(ZRJ1D.P1
28-MAR-79 09:03
4209
6210
6211
6212
4213
6214

016524
016530
016532
016536
016540
016542

013700
005012
012705
006000

4216
4217
6218
4219
4220
4221
6222
4223
6224

016546
016550
016552
016554
016556
016560
016562

005212
005305
00137
012612
012614
012600
005720

016564

012730

177776

016570
016576

013777
013777

004740
002462

4254

4255
4256
4257
4258
4259

4260
4261

4262
4263

000010

88%:

177777

89%:

7
PAGE 91

SEQ 0090

INC
DEC
BNE
MOV

aR2
RS
88%
(SP)+,aR2

(SP)+,aRé
(SP)+,RO
(RO)+

;GET DRIVES PRESENT
sCLEAR RHCS2 AND CARRY
;sCOUNTER
;GET BIT INTO CARRY
:BRANCH IF NO UNIT ON THIS BIT
;MOVE INTO ERROR REGISTER
;70 SET ATA BIT
s INCREMENT RH(CS2 TO NEXT UNIT
; COUNT
;BRANCH IF 8 NOT DONE
;REINSTATE RMHCS?
sREINSTATE RHER1
::POP STACK INTO RO
:GET OVER PHAS IN RO

MOV

#177776,3(R0O)+

;LOAD 177776 INTO RHMR

MoV

SNATTENT,3RHAS

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

MOV
CLR
MoV
ROR

SYTOTALAT,RO
aR?2
#8..,R5
RO

MOV

#-1,3R4

BCC

mov
MoV
181

163520
163474

MoV

89%

SNREADIN,3RNHCS

;READ IN WITH 20 IN RH(CSH

. *NOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND
016604
016610
016612

004037
002272
006612

016614

000022

016616

013777

041672

JSR
RHW(

RO,a#SAVER

18.

163442

Mov

;RHWC

THE

FIRST

;STARTING ADDRESS OF WHERE
;THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS
;SAVED = 18.

SAVERE

004606

:SAVE REGISTERS

INRPLVEC,IRPVEC

SAVED

;SET RPO4& VECTOR ADDRESS
;70 "TIMEY' IF P-CLOCK IS PRESENT
;OR 1O 'TIMEZ2' IF P=-CLOCK IS NOT PRESENT
;'"TIME' WILL ONLY SAVE
sCURRENT CYLINDER ADDRESS

;AND LOOK AHEAD REGISTERS
18T

BEQ

a#RH70
7%

:RUNNING ON AN RH70 CONTROLLER ?
;SKIP NEXT FOR RH70 IF NOT

002462
000001

MOV

9#READIN,-(SP)

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

163432

Mov

(SP)+,aRHCST

Mov
MOv

aR1,R0
aR3,R5
8%

016624
016630

005737
001411

004750

016632
016636

013746
052716

016642

012677

016646

016650
016652

016654

OO0
[+ AV, 1w}

4253

30A(1052)
10:30
25-MAY-79
120
READ~-IN-PRESET

004742

O
=t s
o —

6225
4226
6227
4228
4229
4230
4231
4232
4233
4234
4235
6236
4237
4238
4239
4240
4241
6242
6243
4244
4245
6246
4247
4248
4249
4250
4251
4252

00O

6215

103002
012714

MACY11

BIS

#GO, (SP)

;WITHOUT

INTERRUPT

ENABLE

;60 WITH
;20 IN RHCS1 FOR READ IN
;WITH INTERRUPT DJSABLED

; SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION
:SKIP NEXT FOR RH11

CIRJIDO, RPO4/5/6 FCINL CTLR)
CZRJID.PI
28-MAR-79 09:03

MACY11

30A(1052)
25-MAY-79
10:30
READ-IN-PRESET
120

7
PAGE 92

SEQ 0091

4265
4266
6267
6268

016654
016660

013746
052716

0026462
000101

MOV

OFREADIN,-(SP)

#GO!1E, (SP)

;GET READY TO SET

016664

012677

163410

Mov

(SP)+,@RHCST

;G0 WITH

6272
6273
6274
6275
6276
6277
4278
4279
4280
4281
4282
4283
4284
4285
4286
4287
4288
4289
4290
62N
6292

016670

4269
4270
6271

4293

4294
6295
6296
4297
4298
4299
4300
4301
4302
4303

016670
016672
016674
016676
016700

BIS

;GET READY TO MOVE

;ENABLE INTERRUPT

COMMAND

'GO* AND

;20 IN RHCS1 FOR READ IN
:WITH INTERRUPT ENABLED

8%:
106413
002322
000100
000001
000001

WAT

;WAIT FCR vv BIT

v
1.

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

RHDS1

TO SET

;WA1T FOR RHDS!1 REGISTER

;VV MUST SET BETWEEN

;00 AND 20 MICRO SECONDS

; *NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
016702
016706
016710
016712
016716
016720

004037
002312
000000
004037
002304
000000

041426

016722
016726

004037
002310

042404

016730
016732
016734
016736
016740
016742
016744

000003
000000
010000

016746
016752

004037
002322

016754
016756
016760

000001
000001

041626

JSR

RHCA
0
JSR
RHDST
0

JSR

RHOF

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

000000
002000

RO,3#CHREG

JSR
RMDST

:CHANGE BITS IN SAVED REGISTER
;s CHANGE RHOF

; CHANGE HCI BIT

RO,3#CHREG

1
1

:CHANGE BITS IN SAVED REGISTER
s CHANGE RHDS1 REGISTER
:1 BIT/BITS T0 BE CHANGED
sNEW VALUE OF vv IS 1

; CHANGE vv BIT

000100

:MOV 0 INTO SAVED RHDST
:SAVED REGISTER TO CHANGE

;3 B1T/BITS TO BE CHANGED
:NEW VALUE OF FMT22 1S 0O
:CHANGE FMT2Z2 BIT
:NEW VALUE OF ECI IS O
;CHANGE EC] BIT
sNEW VALUE OF HCI IS O

HC]

042404

:SAVED REGISTER TO CHANGE
;DATA
:DATA

3
0
FMT22
0
ECI
0

000000
004000

;MOV O INTO SAVED RHCA

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

004037
004612
002354
000022
017000
017004

042512

JSR

SAVERE
Wl
18.
5%
6%

RO,a#COMREG

: COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHW(C’
:18. REGISTERS TO BE COMPARED
;RETURN TO 5% ON ERROR
;RETURN TO 6% ON NO ERROR

CIRJ1DO, RPO4L/S/6 FUTNL CTLRY
LR
28-MAR-79 09:03
CZRJID.PYY
6321
4322
6323
6324
6325
6326

017000
017002

MACY1Y

10:30
30A(1052)
25-PAY-79
READ-IN-PRESE
1 20

5%:

104020
000207

ERROR

RIS

6327
4328
6329
4330
630
6332
6333

SEQ 0092

:READ IN COMMAND GAVE AN
;ERROR
;600D DATA HAS WHAT SHOULD
:BE IN REGISTER AFTER A
;READ-IN COMMAND
;RECEIVED DATA HAS WHAT
;THE REGISTER ACTUALLY
:THE FOLLOWING SHOULD

CONTAINED

;BE THE REGISTER CONTENTS

;RHCA=0, RHDST = 0
;RHOF SHOULD HAVE FMT22 = O,
;HCl = 0, ECI = 0,
;RHDS1 SHOULD HAVE vv = 1

6334

4335
43%

PAGE 93

017004

01273%7

177777

047342

6%:

Mov

#-1,30PRITENM

;ALL O/HER BITS SHOULD
;BE UNCHANGED
;CLEAR PREVIOUS ITEM NUMBER

CIRJIDO, RPO&L/5/6 FCINL CTLRY
CIRJID.PIY
28-MAR-79 09:03

4389
4390
4391
6392

30A(1052)
25-PAY-79
10:30
120
READ-IN-PRESET

PAGE 94

SEQ 0093

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

READ-IN-PRESET

;*TEST 21

THIS TEST

IS THE SAME AS THE PREVIOUS TEST EXCEPT

THIS TEST

IS HERE BECAUSE

NSRS

THAT

DOES NOT

TEST

THE

SETTING OF

IFf

ACT-11 MONITOR IS PRESENT

THEN THE PREVIOUS TEST WILL NOT BE PERFORMED
THIS TESTS THE READ-IN-PRESET COMMAND
ALL WRITE BITS OF ALL REGISTERS ARE FILLED
WITH ONES EXCEPT GO,CLR,IE,PAT MCPE,UPE

IS MADE

= 0

ATA FOR DRIVE UNDER TEST

THEN A READ=IN-PRESET

¥
%
%

017012
017014
017020

00000¢
012706
012737

001000

017026

004737

041524

000021

ALL OTHER REGISTERS

222222

15121:
004604

IS GIVEN
CONTENTS

RHCA = 0, RHDST = 0, RHOF SHOULD HAVE
FMT22 = 0, ECI = 0, HCI = 0, RHDS1 SHOULD HAVE

COMMAND
= 20

THEN ALL REGISTERS ARE TESTED
THE FOLLOWING SHOULD BE THE REGISTER

633%7
6338
4339
6340
6361
6342
6343
L4344
6345
4346
64347
(348
4349
4350
4351
4352
4353
4354
4355
4356
4357
4358
4359
4360
6361
4362
«363%
6364
4365
4366
4367
4368
4369
4370
4371
4372
4373
4374
4375
6376
4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388

MACY1Y1

SCOPE

RRRAR22ARR

SHOULD BE

UNCHANGED

RdRRXRRRRRRRR

vv =

RRR

RlRRRR

MOv
Mov

#STACK,SP
#21,38TSTNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(S?
;R3-RHDS1, R4=RHERI

017032

004737

041562

JSR

PC,aNCHECK

:GIVE RH=11 INITIALILZE
;SETUP UNIT NUMBER
:CHECK THAT DVA,RDY,MOL,DPR,DRY

017036
017042
017044

104401

067033

TYPE

LCPHALT

:CANNOT

MOV

#RHWC ,RO

000000
012700

002272

HALT

;AND

THAT

;STOP

NO STATUS BITS

ARE

ADDR. OF

IN RO

CONTINUF

:ADDR. OF

TESTS

RMHW(C

;*INITIALIZE ALL THE REGISTERS
017050

012730

177777

MOv

#177777,8(RO)+

;LOAD 177777 INTO RHWC

017054

012730

177777

MOV

#177777,8(RO)+

;LOAD 177777 INTO RHBA

017060
017064

052730
012730

043010
001400

B1S
MOv

#643010,3(R0O)¢+
#1400,3(R0O) ¢

;LOAD 43010 INTO RHCS?2
;LOAD 1400 INTO RHCSI

017070

012730

00000C

MOv

#0,a(RO)+

:LOAD O INTO RHERI

017074

012730

177777

MoV

#177777,9(RO)+

;LOAD 177777 INTO RHDST

017100

012730

000000

Mov

#0,8(RO)¢

;LOAD 0 INTO RHERZ

017104

012730

177777

MOov

M177777,8(RO)Y¢

;LOAD 177777 INTO RHOF

017110

012730

177777

MOV

#M77777,8(RO)+

;LOAD 177777 INTO RHCA

]

- 1

STuCk

THEY AREN'T

CIRJIDO, kPO&/S/6 FCTINL CTLRY

CIRJID.P1Y
4393

2%8?

4396

:ggg

4399

4400
46401

4602

28-MAR-79 09:03

MACYT1

30A(1052)

121

#0,38(RO)+

;LOAD O INTO RMER3

017120

012730

177777

MOV

#-1,3(R0)+

;CLEAR ALL BITS OF

017130

013777

004740

MOV

SFATTENT,@RHAS

; CLEAR WORKING DRIVE

017124

017136

012730

013777

177776

002462

MOV
163160
163134

MOV

#177776,8(R0)+

SNREADIN,ARMCST

RHAS

:LOAD 177776 INTO RHMR

:GET READY FOR READIN

°ATA’

TREAD IN WITH 20 IN RHCS?

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

46409

017152

004612

017150

002272

0641672

JSR

RHWC

RO,a#SAVER

SAVERE

017156

000022

4614
4615
4616
4617
4618
44;8

017156

013777

004606

6621
aagg

017164
017170

005737
001411

46264
4625
4626
4627

017172
017176

44}§

SEQ 0094

MOV

017144

READ=-1N=-PRESET

PAGE 95

000000

4407

4410
4611

012730

azgs

4608

10:30

017114

403
4604
44606

25-MAY-79

“RHWC 1S THE FIRST REGISTER SAVED

:STARTING ADDRESS OF WHERE
:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS

18.

:SAVED = 18,

MOV

ANRPLVEC,ARPVEC ;SET RPO& VECTOR ADDRESS
270 'TIME!' IF P=CLOCK IS PRESENT
:OR TO "TIME2' IF P=CLOCK 1S NOT PRESENT
;"TIME® WILL ONLY SAVE
:CURRENT CYLINDER ADDRESS
©AND LOOK AHEAD REGISTERS

004750

TS1
BEQ

ANRHTO
Qs

:RUNNING ON AN RH70 CONTROLLER ?
:SKIP NEXT IF NOT

013746
052716

002462
000001

MOV
BIS

ANREADIN,=(SP)
G0, (SP)

017202

012677

163072

MOV

(SP)+,aRHCST

;GET READY TO MOVE COMMAND
“GET READY T0 SET 60
:WITHOUT INTERRUPT ENABLE
:GO WITH

4631
4632
aagS

017206
017210
017212

011100
011305
000406

MOV
MCV
BR

aR1,RO
aR3,RS
10$

:SAVE RHCS! DURING ABOVE OPERATION
:SAVE RHDS1 DURING ABOVE OPERATION
:SKIP NEXT RH11 CODE

44;5

017214

4637
4638
4439
4640
4641

017216
017220

013746
052716

002462
000101

MOV
BIS

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

017224

012677

163050

MOV

(SP)+,aRHCS!

;GET READY TO MOVE COMMAND
:GET READY 10 SET 'GO' AND
:ENABLE INTERRUPT
:GO WITH
;20 IN RHCS1 FOR READ IN

«428
Lagg
44

4634

4636

163102

;SAVE REGISTERS

9% :

4642

4443

;WITH INTERRUPT ENABLED

QL4

017230

4666
6647
4448

017230
017232
017234

44645

:20 IN RHCS1 FOR READ IN
:WITH INTERRUPT DISABLED

10%:

104413
002300
000200

WAT
RHCS!
RDY

:WAiT FOR RDY BIT 10 SET
*WAIT FOR RHCS1 REGISTER
SWAIT FOR RDY BIT IN RH(S! REGISTER

CIRJIDO, RPO&L/S5/6 FCTINL CTLRY
CIRJ1D.P
28-MAR-79 09:03%
4449
6450
44651
4452
645%
6454
6655
4656
4657
4458
L6459
4460
4461
W62
4463
4464

4665
G666
G467
4,68
4669
4470
4471
6672
647%
4476
4475
4476
4677
4478
4479
4480
4481
4482
4483
4484
4485
4486

4487
4488
4489
4490
4691
4492
4493
4494
4495
L4696
L4697
4498
4499
4500
4501
4502
4503
(504

017236
017240

MACY11

30A(1052)
25-MAY-79
10:30
READ-IN-PRESET
1

000001
000004

8
PAGE 96

SEQ 0095

;ALLOW 10 MICRO SECONDS
;RDY MUST SET BETWEEN

1.
1.

;00 AND 20 MICRO SECONDS

; *NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
017242
017246
017250
017252
017256
017260

004037
002312
000000
004037
002304
000000

017262
017266

004037
002310

017270
017272
017274
017276
017300
017302
017304

000003
000000
010000

017306
017312

004037
002322

017314
017316
017320

000001
000001
000100

041426

JSR

RO,a#FILLRE

0
JSR

RO,a#F ILLRE

RHCA

061426

SHDST

042404

JSR

RHOF

;DA

RO,3#CHREG

; CHANGE ECI BIT

;NEW VALUE OF HCI

: CHANGE HC] BIT

HCI

RHDS1

; CHANGE BITS IN SAVED REGISTER
; CHANGE RHOF REGISTER

;NEW VALUE OF ECI IS O

JSR

INTO SAVED RMDST
REGISTER TO (HANGE

; CHANGE FMT22 BII

ECI

062404

INTO SAVED RHCA
REGISTER TO CHANGE

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

3
0
FM12?
0

000000
004000
000000
002000

;MOV O
;SAVED
;DATA
:MOV 0
:SA¥ED

RO,a#(HREG

IS O

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

1
1
Vv

;NEW VALUE OF

; CHANGE vv BIT

;*NOW THAT SAVERE TABLE WITH SAVED REGISTERS HAVE
;*THE EXPECTED VALUE AFTER A READ-IN COMMAND
;*COMPAR]SONS ARE MADE
01732¢

004037

017326
017330
017332
017334
017336

004612
002354
000022
017340
017344

017340
017342

104020

000207

JSR

042512

RO,3#COMREG

18.
5%
6%

ERROR

RTS

;PRESENT

VALUE

;600D DATA SAVED IN 'SAVERE'
:TEST DATA STARTING FROM 'RHW(C'
:18. REGISTERS TO BE COMPARED

SAVERE

5¢:

; COMPARE SAVED REGISTERS WITH

;RETURN T0 5% ON ERROR
;RETURN TO 6% ON NO EPROR

20
PC

:READ=-IN COMMAND GAVE AN
;ERROR
;GO0D 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 FMT2?2
;HCl = 0, ECI = 0,

-/,

CIRJIDO, RPO&/S5/6 FCINL CTLRY
CIRIID.PIY
28-MAR-79 09:03
6505
6506
4507
4508

MACY11

10: 30
30A(1052)
25-MAY-79
READ-IN-PRESET
121

PAGE 97
;RHDS1

017344

6%:

SEQ 0096
SHOULD HAVE

vv =

;ALL OTHER BITS SHOULD
;BE UNCHANGED

CIRJ1IDO, RPO4L/S/6 FCINL CTLRY
CIRJID.PIY
28-MAR-79 09:03
4509
6510
6511
6512

6513

6514
6515
6516
6517
6518

MACY11

30A(1052)
121

25-MAY-79

10:30

READ-IN-PRESET

PAGE 98

SEQ 0097

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

017344
017350
017352
017354
017360

005737
001401
000402
000137

004744

g::

017420

157
BEQ
BR
JMP

S/RPO6

7%
2s
FY hleld

:TEST FOR RPO6 DRIVE
:1F = 0, TREAT DRIVE AS AN RPO4
:TREAT AS RPO6 - DO NEXT "MAKECL''
:00 SECOND FOLLOWING "MAKECL''

:;;"'t"""""""""""'0""""t"'t'tttt'tt't""t't"t'

4519

4520
4521
6522
6523

6524
6525

6526
6527
6528
4529
6530
4531
64532
6533
6536
4535
4536
4537
4538
4539
4540
6541
6562
64563
6544
6545
65646
6547
65648
6549
6550
6551
6552
6553

;;ttl'tl't't""'t"""'tt"t"'t"t"'t'ltt'tti'tltttttt't".tl

;*TEST 22

MAKE CURRENT CYLINDER = 777

;:ttttt"t""t"""t"!"ttt"'t"'t"t't'0'ttttttt't"tt"'tt'

017360
017362
017366

000004
012706
012737

017374
017400
017406

006737
012777
004037

017412

000777

017414

000137

001000
000022

041526

000001
041174

1ST122:

004604

SCOPE
MoV

#STACK,SP

;RESET

JSR
MoV

PC,a#CLDISK
#DMD ,aRHMR

;INIT DRIVE
:SET DIAGNOSTIC MODE

MOV

162712

JSR

#23-1,3#TSTNM

RO,a#MAKECYL

JMP

:SUBROUTINE TO GIVE A SEEK

;COMMAND FOLLOWED BY A INIT
;THIS SHOULD CHANGE RHMCC

777

017454

STACK

:THIS SAVES TEST NUMBER

a#f ISH

T0 777

;DON'T DO NEXT "MAKECL"

DOG:

017420

::tl'tt"t't't.tt'tt"t"tt'ttt'ttt'ttttl'ltlt"t""'ttttttttt"

soTEST 23

MAKE CURRENT

CYLINDER = 377

;;l"'t"ttt"tt'ttt'ttt't'ltt"tt'i'ttt"tttltttl't'ttt"llt't!'

017420
017622
017426

000004
012706
012737

001000
000023

017434
017440
017446

004737
012777
004037

041524
000001
041174

017452

000377

15123:

004604
162652

SCOPE
MoV

#STACK,SP

;RESET

STACK

MOV

#24-1,3#TSTNM

;THIS SAVES TEST NUMBER

JSR
MoV

PC,a#CLDISK
#OMD ,aRHMR

:INIT DRIVE
;SET DIAGNOSTIC MODE

JSR

377

RO,3#MMAKECYL

;SUBROUTINE TO GIVE A SEEK
: COMMAND FOLLOWED BY A IN]T

;THIS SHOULD CHANGE RHCC 10 377

CIRJIDO, RPO&L/S/6 FCTINL CTLRY
CIRJID.P1Y
28-MAR-79 09:03
6554
4555
4556
64557

4558
4559
4560

BmACYT

017654

4572

4573
4574
4575

4576
4577
4578
4579
4580
4581

4582
4583
4584
64585
4586
4587
4588
4589
4590
4591
6592
4593%
4594
4595
4596
4597
4598
4599
4600
4601
4602
460%

4604
4605
4606
4607
4608
4609

SEQ 0098

FISH:
‘;'"'"'"""'"""'"""""""""".I'"""""""'Q"'

TYTEST 24

4561
4562
64563
4564

4565
4566
4567
4568
6569
4570
4571

H 8
30A(1052)
25-MAY-79
10:30 PAGE 99
123
MAKE CURRENT CYLINDER = 377

RECALIBRATE COMMAND

:*
.

ALL POSSIBLE REGISTERS ARE FILLED WITH ONES
THEN A RECALIBRATE = 6 COMMAND IS GIVEN

NO REGISTERS SHOULD CHANGE EXCEPT RHCC = 0

°;'.'Q"""'."""'""""""""""'I"l".'l'l"t"'."'.'

017454
017456
017462

000004
012706
012737

001000
000024

017470

004737

041524

1§124:

SCOPE

MoV

#FSTACK,SP

JSR

PC.aNCLDISK

MOV

004604

#24 ,QFTSTNM

SRESET
:SAVE

STACK

TEST

NUMBER

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

;R3-RHDS1, R&-RHER1

:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
; CHECK DVA,RDY
,MOL ,DPR,DRY,VV = 1
;AND THAT NO STATUS BITS ARE STu(K

017474

004737

041604

JSR

PC,a3#CHECKT

017500

104401

067033

TYPE

LCPHALT

017504
017506
017512

000000
012700
012730

002272
177777

MoV
Mov

fRHW RO
#177777,3(ROY+

017516

012730

177776

Mov

#177776,8(RO)+

;LOAD 177776 INTO RHBA

017522
017526

052730
012730

000010
001400

8IS

#010,3(R0) ¢

;LOAD 010 INTO RHCS?

017532

012730

000000

Mov

#0,3(RO)¢

;LOAD O INTO RHERI

017536

012730

177777

MoV

#177777,3(RO)+

;LOAD 177777 INTO RHDST

017542

012730

000000

Mov

#0,3(RO)+

:LOAD O INTO RHERZ

017546

012730

177777

Mov

#177777,8(RO)+

;LOAD 177777 INTO RHOf

017552

012730

177777

Mov

#177777,3(RO)+

;LOAD 177777 INTO RH(CA

017556

012730

000000

Mov

#0,a(RO)¢

;LOAD O INTO RHER3

HALT

mMov

#1400,3(RO)+

: CANNOT CONTINUE TESTING IF

ANY OF

:THE FIRST SET OF BITS DON'T = 1
;ST10P

;ADDR. OF ADDR. OF RHW(C
;LOAD 177777 INTO RHW(C

IN RO

;LOAD 1400 INTO RH(CSI

;*NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT

017570
017574
017576
017602

aR?

:.PUSH RO ON STACK
;SAVE RHER1 TO REINSTATE LATER
;SAVE RHCSZ2 TO BE REINSTATED
;AFTER ALL ATA B]TS HAVE BEEN SE!
;GET DRIVES PRESENT
;CLEAR RH(SZ AND CARRY

;GET BIT

MGV
MOV
Mov

RO,=(SP)
oR4,=(SP)
aR2,=(SP)

004742

MoV

a#TOTALAT,RO

000010

Mov

’8.,R5

017562
017564
017566

CLR

84%:

ROR

s COUNTER

[INTO CAKRY

CIRJIDO, RPO4L/S/6 FCTINL CTLRI
C(IRJI1D.PN
28-MAR-79 09:03
4610
4611
4612
4613
(614
4615
4616
4617
4618
4619
4620
6621
6622
4623
4624
4625

4626
6627
64628
4629
4630
4631
4632
4633
4634
4635
4636
4637

4638
4639

017604
017606

103002

012714

MACYTI

3$A (1052)

85%:

017620
017622
017626
017626

005212
005305
001371
012612
012614
012600
005720

017630

012730

177776

017634

013777

002426

RECALIBRATE

COMMAND

8
PAGE 100
;BRANCH IF NO UNIT ON THIS BIT

INC

aR2

; INCREMENT RH(S2 TO NEXT UNIJT

BNE

849

DEC

f-1,3R6

(SP)+,aR2
(SP)+ ,aR4
(SP)+,RO
(RO)+

;MOVE INTO ERROR REGISTER
;70 SET ATA BIT

; COUNT

;BRANCH IF 8 NOT DONE
;REINSTATE RH(S?2
SREINSTATE RHER!
;.POP STACK INTO RO
;GET OVER PHAS IN RO

Mmov

#177776,3(R0O)+

;LOAD 177776 INTO RHMR

Mmov

SFRECALI,QRHCSY

;GET READY FOR RECALI
sRECALIBRATE WITH 6 IN RMCSI

; *NOW SAVE REGISTERS FOR COMPARISON AFTER RECALIBRATE
017642
017646
017650

004037
002272
006612

JSR
RHWC
SAVERE

017652

000022

18.

017654

013777

041672

004606

162404

MOV

RO,a#SAVER

;SAVE REGISTERS
:RHWC 1S THE FIRST REGISTER SAVED
;STARTING ADDRESS GF wHERE
;THE

REGISTERS ARE

;NUMBER OF

a#RP4LVEC,aRPVEC

SAVED

REGISTERS

;SAVED = 18.

:SET RPO& VECTOR ADDRESS
;70

"TIMEY1®

P-CLOCK

IS PRESENT

;OR 10 °*TIME2' IF P-CLOCK IS NOT PRESENT
CTIME" WILL ONLY SAVE
: CURRENT CYLINDER ADDRESS

4640
4641
Lbu?l

L4643
4644
LO6KLS

SEQ 0099

85%

Mmov
MoV
Mov
151

162436

10:30

8C(C

Mov

177777

017612
017614
017616

25-MAY-79

sAND LOOK AHEAD REGISTERS

017662
(17666

013746
052716

002426
003101

MOov

OFRECALI,-(SP)

;GET READY TO MOVE C(OMMAND

4647
L64L8
LH4L9
4650
4651
4652
4653
4654
4655
4656
4657
4658
4659

017672

012677

162402

Mov

(SP)+,aRHCST

;60 WITH

4663
4664

017714
017720

LbL6

4660
4661
4662

4665

BIS

017676
017700

Mov
MOV

017702
017704
017706
017710
017712

WAT
RHDS1

#GO!1E, (SP)

aR1,RO
aR3,RS

;GET READY TO SET
;ENABLE INTERRUPT

'GO' AND

;6 IN RHCS! FOR RECALIBRATE
;WITH

INTERRUPT

;SAVE RH(S1
; SAVE RHDS1

ENABLED

DURING ABOVE OPERATION
DURING ABOVE OPERATION

;WAIT FOR DRY BIT 10 SET
:WAIT FOR RHDS1 REGISTER

;WAIT FOR DRY BIT IN RHDS! REGISTER
;ALLOW 319990 MICRO SECONDS

DRY
51999.

24001,

;DRY MUST SET BETWEEN

: 79980 AND 560000 MICRO SECONDS

; *COMPARE (ONTENTS OF RHCS! AND RHDS1 ALREADY SAVED IN
:*RO AND RS IMMEDIATELY AFTER GO

017724

013746
052716
005737

002426
004301
004722

MOV

S#RECALL,-(SP)

;SAVE COMMAND

1§71

a/NUNI]T

;ARE

B1S

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

- INCLUDE DVA!GO!IE .RDY

THERE MORE THAN ONE UNIT

CIRJIDO, RPO&L/S/6 FCINL CTLR 1
CIRJ1D.P
28-MAR-79 09:03
001413
010037
062737
042716
053716

6666

4667
4668
4669
4670
4671
4672
4673
4674
4675
6676
4677
4678
4679
4680
4681
4682
4683
4684
4685
4686
4687
4688
4689
4690
6691
6692
4693
6694
4695
4696
6697
4698
4699

4700
701
4702
6703
4704
4705
6706
4707
4708
4709
6710
4711
«712

6713
714
715
4716
«717
718
6719
6720
721

052716

011637
022600

020000

001405
010037
010137
1046021

020002
020006
020012

012746
011637
022605

020014
020016
020022
020026

001405
010537
010337
104063

004760
177677
000100
004760

MACY11

004760

100000

89%:

001124

88%:

;BRANCH IF ONLY ONE UNIT
;GET RH(SI
;KEEP 1E BIT
;CLEAR 1E IN GOOD DATA
;GET IE AS IS
;SET SC IN RHCSI

Mov
cmp

(SP) ,@#8GDDAT
(SP)+,RO

BEG

88s$

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY DVA.GO'IE:RDY
;AND COMMAND SHOULD BE SET

MCv

#MOL 'DPR!VV!PIP,=(SP)

MoV
cMp

RO.3#$BDDAT
R1,3#REGADR
21

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

90%
RS ,a3#$BDDAY
R3,3#REGADR
63

90%:

020030

; *NOW C(HANGE

020030
020034

004037

020036
020040
020044
020046

002334
000000
004037
002310
116377

020050

053737

020056
020062
020064
020066
020072
020074

0461426

004740

; SHOULD BE SET
;BRANCH [f GOOD
;BAD DATA
;FAILING REGISTER RHDSI
;DURING ABOVE OPERATION ONLY
;MOL'!DPR!VV'!PIP SHOULD BE

SET

JSR

RO,a#FILLRE

:MOV 116377 INTO SAVED RHOF

B1S

AaNATTENT ,@#SAVERE+24

JSR

RO,a#FILLRE

004037
002322

041626

JSR

RO,a#FILLRE

RHCS
104206
RHDS1

:SAVED REGISTER TO CMANGE
:DATA

:SAVED REGISTER 10O CHANGE
;DATA

:SET APPROPRIATE 'ATA' BITS
;FOR WORKING DRIVE

. SAVED RHAS LOACTION

;MOV 1064206 INTO SAVED RHCSH

;SAVED REGISTER TO CHANGE
;DATA

;MOvV 110700 INTO SAVED RHDSI

;SAVED REGISTER TO CHANGE
;DATA

110700

:SAVE FOR PRINTOUT
;OURING ABOVE OPERATION ONLY MOL:!DPR:VV'P]P

;MOV 0 INTO SAVED RHCC

04614626

;*NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND

020076

004037

020102
020104
020106
020110
020112

004512
002354
000022
020114
020120

042512

JSR

SAVERE
Ww(
18.
1%
2%

RO,3#COMREG

SET

:SAVE BITS SET DURING OPERATION IN RHOS!

SAVED REGISTERS TO EXPECTED VALUES

004037
002300

104206

:BAD DATA
;FAILING REGISTER RH(S!
:DURING ABOVE OPERATION ONLY
; COMMAND AND DVA!GO!ITE!RDY SHOULD BE

RO,aff ILLRE

RHOF
116377

004636

;BRANCH IF GOOD

JSR

RHCC
0

041426

SEaQ 0100

89%
RO,3#TMP4
PACIE ,aFTAPG
N1E,(SP)
SITMPL, (SP)
#5C, (SP)

8taQ
MOv
MoV
ERROR

001126
004600

101

8ta
MoV
BIC
BIC
BIS
BIS

Mov
Mov
ERROR

001126
004600
030500
001124

30A(1052)
10:30 PAGE
25-MAY=-79
RECALIBRATE (OMMAND
126

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;6000 DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHW('
;18. REGISTERS TO BE (OMPARED
;RETURN TO 1% ON ERROR
;RETURN 10 2% ON NO ERROR

CIRJIIDO, RPOG/S/6 FCTINL CTLRY
CIRJID.PYY
28-MAR-79 06:03
6722
6723
6726
6725
4726
6727
4;%3

020114
020116

1046064
000207

MACY1Y

30A(1052)
25-MAY-79
10:30 PAGE
124
RECALIBRATE COMMAND
%:

4730

020120

2%:

ERROR
RIS

64
PC

102

;RECALIBRATE COMMAND (AUSED
;AN ERROR
;600D DATA GIVES WHAT SHOULD
;BE THERF
;RECEIVED DATA GIVES WHAT WAS
; THERE AFTER CCMMAND

Sea 0101

CIRJIDO, RPO4L/S5/6 FCTNL (LR
(IRJ1D RAR
28-MAR-79 09:03

MACY11

4731

6732

6733
6734
6735
4736
6737
(738
4739

1264

25-MAY-79

10:30

RECALIBRATE COMMAND

PAGE

103

SEQ 0102

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

020120
020124
020126
020150
020134

005737

001401
000402
000137

1S1

004744

BtQ
BR
JMP

3%:

020174

'S ¥

SIRPO6

;TEST FOR RPO6 DRIVE

;1F = 0, TREAT DRIVE AS AN RPO4
; TREAT AS RP06 - DO NEXT “MAKECL'
;00 SECOND FOLLOWING "MAKECL"

7%
3]
SFCAT

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

4740
6741
6742

6743
G744
64745
L746
G747
4748
6749
4750
4751
6752
6753
6756
64755
4756
6757
6758
4759
4760
4761
4762
4763
6764
L4765
4766
6767
6768
4769
4770
L7171
772
6773
4774

30A(1052)

AZEZ

22X

TeTEST 25

RAR

MAKE CURRENT CYLINDER = 777

RRRRRRERARRARE

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

020134
020136
020142

000004
012706
012737

001000
000025

020150
020154
020162

004737
012777
004037

041524
000001
041174

020166

000777

020170

000137

15125:
004604

SCOPE

MoV

#STACK,SP

SRESET

JSR
Mov
JSR

PC,a#CLDISK
#DMD,3RHMR
RO,3/MAKECYL

;INIT DRIVE
:SET DIAGNOSTIC MODE
;SUBROUTINE TO GIVE A SEEK
. COMMAND FOLLOWED BY A IN]T

Mov

162136

#26-1,30TSTNM

227

JMP

020230

STACK

;THIS SAVES TEST NUMBER

;THIS SHOULD CHANGE RHCC 10 777

afBlkD

;:DON'T DO NEXT ‘'MAKECL''

CAT:

020174

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

;*TEST 26

MAKE CURRENT CYLINDER = 377

';.""'t""""""""""""t"""l."'ll'l.""i"""lt"

020174
020176
020202

000004
012706
012737

001000
000026

020210
020214
020222

004737
012777
004037

041524
000001
041174

020226

000377

1S126:
004604
162076

SCOPE

Mov

#STACK,SP

sRESET STACK

mov

#27-1,8#1STNM

;THIS SAVES TEST NUMBER

JSR
Mov
JSR

PC,a#CLDISK

;INIT DRIVE

377

#DMD ,aRHMR
RO,a#MAKECYL

;SET DIAGNOST]C MODE
;SUBROUTINE T0 GIVE A SEEK

; COMMAND FOLLOWED BY A IN]T

;THIS SHOULD CHANGE RHW(CC TO 377

CZRJIDO, RPO&L/S5/6 FCINL CTLRI
CIRJ1D.PIY
28-MAR-79 09:03
4775
6776
W777
4778
‘779

MACY11

020230

30A(1052)
25-MAY-79
126
MAKE CURRENT

n
8
10:30
PAGE 104
CYLINDER = 377

SEQ 0103

BIRD:

:;t't't""'t't'tt"t'"t"t'tt"'t't"'t'tt'tttlt"'t"'t'tlt"'

2;3?

J*TEST 27

4782

ALL POSSIBLE

A;gg

NO REGISTERS SHOULD CHANGE EXCEPT

:;gz

RECALIBRATE COMMAND
REGISTERS ARE FILLED WITH O

THEN A RECALIBRATE =6 COMMAND 1S GIVEN

RH(CC=0

L7787

A AR A AL AR AR

4788
4789

020230
020232

000004
012706

001000

6792
4793
6794
4795
4796
6797
4798
6799
4800

020244

004737

020250

ARl

aRllsd/

SCOPE
MOV

#STACK,SP

;RESET

041524

JSR

PC,amCLDISK

004737

041604

JSR

PC,afCHECKT

020254

104401

067033

TYPE

,CPHALT

428;

020260
020262

000000
012700

002272

HALT
MOV

#RHWC,RD

:SET R1-RHCS1, R2-RH(S2
:R3I-RHDS1, R&=-RHERI
:GIVE RH=11 INITIALIZE
:SETUP UNIT NUMBER
;CHECK DVA,RDY,MOL,DPR,DRY,YV = 1
:AND THAT NO STATUS BITS ARE STUCK =
: CANNOT CONTINUE TESTING IF ANY Of
;THE FIRST SET OF BITS DON'T = 1
:STOP

aggs

020266

012730

000000

MoV

#0,3(RO)¢

;LOAD O INTO RHW(

4%85

020272

012730

000000

MOV

#0,3(R0O)+

:LOAD O INTO RHBA

4807

020276

052730

000000

BIS

#0.3(R0O)+

:LOAD O INTO RHCS?2

Ag}?

020306

012730

000000

MOV

#0,3(R0)+

;LOAD O INTO RHER1

4%}%

020312

012730

000000

mMov

#0,3(R0O)+

;LOAD O INTO RHDST

ag}g

020316

012730

000000

MOV

#0,3(R0O)+

;LOAD 0N INTO RHER?2

4%}?

020322

012730

000000

MOV

#¥0,a(RO)¢

;LOAD O INTO RHOF

4%13

020326

012730

000000

MOV

#0,3(RO)+

:LOAD O INTO RHCA

Agg?

020332

012730

000000

MOV

#0,3(RO)¢

;LOAD O INTO RHER3

822

020336

012730

000000

177777

MOV

#-1,3(RO)+

;CLEAR ALL BITS OF RHAS

020346

013777

002426

MOV

SNRECALI,3RHCST

:GET READY FOR RECAL!
;RECALIBRATE WITH 6 IN RHCS1

:;g?

4804

4806

aggg
'A

481
'A

aggs
4824

4825
4826

4827
4828

4829

4830

020236

020302

020342

012737

012730

000027

15127:

AR ARl

004604

000000

MOV

MoV

161724

#2738 TSTNM

#0,3(R0)+

#0,3(RO)¢+

STACK

:SAVE TEST NUMBER

:ADDR. OF ADDR OF RHWC

IN RO

:LOAD O INTO RHCS1

;LOAD O INTO RHMR

:*NOW SAVE REGISTERS FOR COMPARISON AFTER RECALIBRATE

0, RPO4/5/6 FCTNL CTLRI
P)
28-MAR-79 09:03

020354
020360
020362

004037
002272
004612

020364

000022

020366

013777

MACY11

30A(1052)

127

041672

25-MAY-79

RECALIBRATE

JSR

RHW(
SAVERE

10:30

COMMAND

8
PAGE 105

RO,a#SAVER

:SAVE REGISTERS

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

18.
004606

161672

MOv

SEQ 0104

:NUMBER OF
@/RPLVEC ,aRPVEC

SAVED

REGISTERS

;SAVED = 18.

;SET RPO4 VECTOR ADDRESS
;70 "TIMEY' [F P=-CLOCK IS PRESENT
;OR TO *TIME2' IF P-CLOCK IS NOT PRESENT

;'TIME' WILL ONLY SAVE
s CURRENT CYLINDER ADDRESS

:AND LOOK AHEAD REGISTERS
020374
020400

013746
052716

002426
000101

MOV

ONRECALL,=-(SP)

,;GET

020404

012677

161670

MOv

(SP)¢,3RHCST

;6O WITH

BIS

020410
020412

MOV

020414
020416
020420
020422
020424

WAT

MOV

#GO!'1E, (SP)

3rR1,RO

aR3,RS

TO MOVE

;6 IN RHCS1 FOR RECALIBRATE
;WITH INTERRUPT ENABLED
:SAVE RH(CS1 DURING ABOVE OPERATION
:SAVE RHDS!
;WAIT

DURING ABOVE OPERATION

FOR DRY BIT

24001.

:DRY MUST SET BETWEEN

;ALLOW 319990 MICRO SECONDS

020444
020446
020452
020456

001405
010037
010137

020460
020464
020470

012746
011637
022605

020472
020474
020500
020504

001405
010537
010337

104021

104063

BIS
MOV
(mp

001124

CONTENTS OF

RH(S1

AND RHDS1

03 0500
1
001124

88%:

90%:

004037
002334

0414626

;SAVE

COMMAND

#DVA!GO!1E!RDY, (SP)
< INCLUDE DVA!GO.IE.RDY
(SP) ,@#$GDDAT
;SAVE FOR PRINTOUT
(SP)+ ,RO
:DURING ABOVE OPERATION ONLY DVA:!GO:1E'RDY

MOov

CMP

(SP)+,RS

Mov

BEQ
MOv
Mov
ERROR

001126
004600

S/RECALI,=(SP)

ALREADY SAVED

:AND COMMAND SHOULD BE SET
88%
:BRANCH IF GOOD
RO,a#$BDDAT
+BAD DATA
R1,a¥#REGADR
;FAILING REGISTER RHCSI
21
;DURING ABOVE OPERATION ONLY
: COMMAND AND DVA!GO!IE.RDY SHOULD BE SET
#MOL 'DPR!VV!PIP,-(SP)
sSAVE BiTS SET DURING OPERATION IN RHDS)

BEQ
MOv
MOv
ERROR

001126
004600

020506
020506
020512

MOV

002426
004301

;79980 AND 560000 MICRO SECONDS

;*COMPARE

013746
052716
011637
022600

10 SET

;WAIT FOR RHDS! REGISTER
:WAIT FOR DRY BIT IN RHDS1

:*RO AND RS IMMEDIATELY AFTER GO
020426
020432
020436
020442

COMMAND

RHDS1
DRY

31999.

056701

READY

;GET READY TO SET 'GO' AND
;ENABLE INTERRUPT

(SP) ,a#$GDDAT

90%
RS,8#$BDDAT
R3,3#REGADR
63

;*NOW CHANGE

JSR

RHCC

;SAVE FOR PRINTOUT

;DURING ABOVE OPERATION ONLY MOL:DPR:VV'PIP
. SHOULD BE SET
;BRANCH 1F GOOD
.BAD DATA
;FAILING REGISTER RHDS]
;DURING ABOVE OPERATION ONLY

;MOL!DPR!VV!PIP SHOULD BE SET

SAVED REGISTERS TO EXPECTED VALUES

RO,a#F ILLRE

:MOV O INTO SAVED RHCC

;SAVED REGISTER TO CHANGE

4887
4888
4889
4890
489
4892
4893
4894
4895
4896
4897
4898
<899
4900
4901
4902
4903
4904
4905
4906

4907
4908
4909
4910
91
4912
6913
4914
6915
4916
6917
4918
(919
4920
4921
4922
(923
6924

020514

000000

020516

053737

MACY11

BIS

006636

106

SEQ 0109

;DATA

0
004740

30A(1052)
25-MAY-79
10:30 PAGE
RECALIBRATE COMMAND
127

SFATTENT ,@#SAVERE +24

;SET APPROPRIATE

‘'ATA' BITS

;FOR WORKING DRIVE

sSAVED RHAS LOACTION
020524
020530

004037
002322

020532
020534
020536

000001
000001
100000

020540
020544

004037
002300

020546
020550
020552

000001
000001

0424604

JSR
RHDS1

RO,8#CHREG

JSR

RO,a#CHREG

10 BE

CHANGEV

;CHANGE BITS IN SAVED REGISTER

; CHANGE RHCS1 REGISTER

1
1
SC

100000

BIT/81TS

;NEW VALUE OF ATA IS
;CHANGE ATA BIT

ATA

RHCST

; CHANGE RHDS1 REGISTER
;1

1
1

042404

;CHANGE BITS IN SAVED REGISTER

BIT/BITS

TO BE

;NEW VALUE OF

; CHANGE SC BIT

CHANGED

;*NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND
020554

004037

020560
020562
020564
020566

004612

020570

020572
020576

020572
020574

104064
000207

JSR

042512

RO,a#COMREG

SAVERE

002354

;TEST DATA STARTING FROM

000022

;RETURN T0

RTS

1$ ON ERROR

;RETURN TO 2% ON NO ERROR

ERROR

°‘RHW('

;18. REGISTERS TO BE COMPARED

18.
18

1%:

. COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
:G00D DATA SAVED IN 'SAVERE'

64
PC

;RECALIBRATE COMMAND CAUSED
;AN CRROR

:GOOD DATA GIVES WHAT SHOULD BE
: THERE

020576

2%:

;RECEIVED DATA GIVES WHAT WAS
;THERE

AFTER A RECALIBRATE

CIRJIIDO, RPOGL/5/6 FCTINL CTL R1
P11
(IRJ1D.P
28-MAR-79 09:03

AR AR RS

BN )

IR T

T
TR
e

BN BN BE B

N
R
R

JNE JNE JNN JNE BN

UNLOAD COMMAND

107
E

N
I

020612

020614
020620
020622

005737
001007

004724

00572/
001004
005737
001001
000402

001100

020624
020624
020630
020630
020634

000137

022112

012706
012737

001000
000030

020642

004737

041524

0046604

MONITOR

R R

X N X

RN N

PERFORMED

MONITOR

[S PRESENT

PASS

SETS VV-IN RHDS1

AR AR

ARl

SCOPE

8#NOPUSH

IF MANUAL INTERVENTION TESTS ARE OK

;1S

THIS A 220 START

1%
ane?
1%

¢SKIP THIS TEST IFf SO
;MONITOR (ACT 11) RETURN ADDRESS
:SKIP THIS TEST

¢SKIP THIS TEST

1S7

AFSPASS

JMP

1ST31

MOV

FSTACK,SP

SRESET

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RHCSZ
;R3-RHDS1, R&-RHER!

MOv

;FIRST

#30,3#TSTNM

JSR

PC,a#CHECKT

02065¢

104401

067033

TYPE

CPHALT

020656

000000

HALT

JUMP TO NEXT
:SAVE

BIC
(MpP

TEST

NOT

TEST

===-c-cccccccccaa )

STACK

TEST NUMBER

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

; CHECK DVA,RDY,MOL,DPR,DRY,vV

;AND THAT NO STATUS BITS ARE STu(k : CANNOT

CONTINUE

TESTING

ANY OF

:THE FIRST SET OF BITS DON'T = 1
.ST0P

;*THIS SETTING OF vv 1S FOR
; *WHERE UNLOAD TAKES EFFECT

MOV

PASS

¢CONTINUE WITH THIS

041604

-0

NO ACT-11

1S NOT

004737

017746
062716
022726

TEST

02064¢

020660
020664
020670

THE PROGRAM WORKS UNDER ACT-11

BNE

2%:

151

1%:

STARTING ADDRESS 220 IS USED THIS TEST WILL NOT BE PERFORMED

BNE
181
BNE

000042

;*THIS CODE CHECKS TO SEE
020600
020604
020606

SEQ 0106

ALL POSSIBLE REGISTERS ARE FILLED WITH ONES
THEN AN UNLOAD COMMAND =2 IS GIVEN
NO REGISTERS SHOULD CHANGE EXCEPT MOL SHOULD-=0
THEN THE DRIVE IS POWERED UP BY OPERATOR
AND A PACK ACKNOWLEDGE COMMAND (ALREADY TESTED)

9
PAGE

THEN THIS TEST IS PERFORMED ONLY ON THE FIRST
ON SUBSEQUENT PASSES THIS TEST IS NOT DONE

15130:

000004

THEN THIS

O~N—
— O B~
O N
O ~NO

977
4978
4979
4980

SeTEST 30

020576

30A(1052)
25-MAY=79
10:30
130
UNLOAD COMMAND
MR

O wat
—s

6925
6926
6927
4928
4929
4930
4931
4932
6933
6934
6935
4936
4937
4938
4939
4940
6941
6942
4943
6944
6945
6946
6947
4948
4949
4950
6951
4952
4953
6954
4955
4956
4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
6967
4968
4969
4970
4971
4972
4973
6974
4975
4976

MACYTY1

aRHDS1,-(SP)

N167677,(SP)
FVVIMOL,(SP)+

LOOP ON ERROR ONLY
AND CYCLE UP BRINGS

;PUSH RHDS1

ONTO STA(CK

vv DOWN

;CLEAR EVERYTHING EXCEPT vv AND MOL
;ARE vv AND MOL SET ?

CIRJIDO, RPO&L/5/6 FCINL C(TLR]
CIRJID.PIY
28-MAR-79 09:03

4981
4982
4983
4984
4985
4986
4987
4988
4989
4990
4991
4992
4993
4994
£995
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

020674
020676
020702

001504
1064407

000427

020762
020762
020766

000424

021040
021040

000000

021042

004737

10646401

MACY11

020704

020770

;:65%:
646%:

041524

004737

041562

021052
021056

000000

104401

067033

BEQ

649

T(PE

11678
66%:

021046

30A(1052)
25-MAY=79
10:3C
130
UNLOAD COMMAND

9
PAGE 108
;CONTINUE

,65%

T1YPE

679

<15><12>/1F

,.GET OVER THE

;WAIT

PC,a#CLDISK

JSR

PC,a#(HECK

TYPE

LCPHALT

HALT

VvV

IN RHDSY

FOR

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

;CHECK

THAT DVA,RDY,MOL,DPR,DRY =

:CANNOT
;STOP

ANPKACK ,-(SP)

;GET

021070

012677

161204

MOov

(SP)+,3RHCST

:WITHOUT
;G0 WITH

021074
021076
021100

002322
000100

760, (SP)

012730

177777

THEY AREN'T

READY

TO MOVE

COMMAND

;GET READY TO SET GO
INTERRUPT

ENABLE

;22 IN RH(CSY FOR PACK ACKNOWLEDGE
;WITH INTERRUPT DISABLED

Vv
1.

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

:WAIT

FOR vv BIT

FOR RHDS1

:VV MUST

SET

1O SET

BETWEEN

.00 AND 20 MJCRO SECONDS

JSR
NOP
NOP
NOP

PC.a#CHECKT

MOv

RHWC RO

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

;UNLIKE THE OTHER STATUS BIT TESTS,
;THERE 1S NO HALT IF IT FAILS = IT ]S

;USED IN THE MIDDLE OF A SINGLE TES!
:ADDR. OF ADDR OF RHWC

;*LOAD ALL POSSIBLE REGISTERS WITH ONES
021124

;WAIT

002272

TESTS

WAT

RHDS1

012700

CONTINUE

WITH PACK ACKNOWLEDGE

Mov

061604

MOV

;AND THAT NO STATUS BITS ARE STU(K = 1

002460
000001

004737
000240
000240
000240

R4&-RHERI

;GIVE RH=-11 INITIALIZE
;SETUP UNIT NUMBER

013746
052716

6%:

CONTINUE

;R3-RHDS1,

021060
021064

000001
000001

ASCIZ

ALREADY LOADED THEN HIT '‘CONTINUE''/

HALT

JSR

106413

YES

STRING

::TYPE ASCIZ STRING

€6%

CASCIZ

BIS

;. TYPE ASCIZ

;.GET OVER THE ASCIZ
<15><12>/GET DRIVE HEADS LOADED THEN MIT ‘"CONTINUE'/

CASCIZ

;*SET

Sea 0107

M177777,8(RO)¢

;LOAD 177777 INTO RHWC

IN RO

CIRJIDO, RPO4/5/6 FCTINL CTLRY
CIRJID. P11
28-MAR-79 09:03

CIRJ1DO, RPO4L/S5/6 FCTNL CTLRY
CIRJ1D.P
28-MAR-79 09:03

MACY11

30A(1052)
10:30
25-MAY-79
130
UNLOAD COMMAND

PAGE

109

021130

012730

177777

mov

77777 ,8(RO) ¢

;LOAD 177777 INTO RHBA

021134

052730

000010

BIS

#10,8(R0O)

:LOAD 10 INTO RH(S?2

021140

012730

001400

Mov

#16400,3(RO)¢

;LOAD 1400 INTO RHMCSI

021144

012730

000000

Mov

#0,a(R0)¢

;LOAD O INTO RHER1

021150

012730

177777

Mov

#177777,3(RO)
¢

;LOAD 177777 INTO RHDST

02115¢4

012730

000000

Mov

#0,3(RO)+

:LOAD 0 INTO RHER?

021160

012730

V77777

MOV

177777 ,3(RO)+

;LOAD 177777 INTO RHOF

021164

012730

177777

Mov

Ni77777,8(RO)+

;LOAD 177777 INTO RHCA

02117C

012730

000000

MoV

#0,3(RO)¢

;LOAD O INTO RHER3

;*NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT

5092

MoV
MOV
Mov

RO,=-(SP)
= (SP)
aR&,

004742

Mov

000010

MoV
ROR

3#TOTALAT
RO
aR?

OO0

NO = =t
O —
OO M-V

021224
021226
021230
021232
0212364
021236
021240

O—-0000

021202
021206
021210
021214
021216
021220

OO0

021174
021176
021200

CLR

91%:

177777
92%:

BCC

aR2,=(SP)

#8.,R5
RO
92%

Mov

#-1,3R4

INC
DEC
BNE
MOV
MOV

aR?
RS
91%
(SP)+,aR?
(SP)+,3R4
(SP)+,RO
(RO)

MOV

187

. .PUSH RO ON STACK
;SAVE RHERY TO REINSTATE LATER
;SAVE RHCS2 TO BE REINSTATED

;AFTER ALL ATA BITS HAVE BEEN SET

;GET DRIVES PRESENT
;CLEAR RH(S2 AND CARRY
; COUNTER
:GET BIT INTO CARRY
:BRANCH IF NO UNIT ON THIS BI1T
;MOVE INTO ERROR REGISTER
.70 SET ATA B]T
; INCREMENT RHCS2 TO NEXT UNIT
: COUNT
;BRANCH IF 8 NOT DONE
;REINSTATE RH(SZ2
;REINSTATE RHER!
;:POP STACK INTO RO
;GET OVER PHAS IN RO

SEa 0108

CIRJIDO, RPO4L/S/6 FCTINL CTLRI
CIRJID.PY 1
28-MAR-79 09:03
5093
5094
5095
5096
5097
5098
5099

021242

012730

177776

021246

013777

002424

MACY11

161024

30A(1052)
25-MAY-79
10:30
130
UNLOAD COMMAND

9
PAGE

110

SeEa 0109

MOv

#177776,8(RO)+

;LOAD 177776 INTO RHMR

MOV

@FUNLOAD,aRHCSY

;GET

READY

FOR UNLOAD

;UNLOAD WITH 2 IN RHCSI

i
il
el
el

NO NS W
NS W =00~ VB W= OO0V

el
el el
il
el
D Al
D il
il il s
D e
i)
ol
il B
o
e
—

(=]
=000~ o

(W YV XV IV TV RV IV SV RV IV VU TV LV TV TV LV LV VWV TV IV SV IV IV LV IV IV IV IV IV IV I

; *NOW SAVE REGISTERS FOR COMPARISON AFTER UNLOAD
021254
021260
021262

004037
002272
004612

021264

000021

021266

013777

041672

004606

JSR

RHW(

160772

RO,a#SAVER

;SAVE REGISTERS
;RHWC

IS THE

FIRST

SAVERE

:STARTING ADDRESS OF WHERE

17.

:NUMBER OF

MOV

:THE

REGISTERS ARE

SAVED

REGISTERS

;SAVED = 17,
DNRPLVEC,aRPVEC

;SET RPO& VECTOR ADDRESS
;70 'TIMEY® 1F P-CLOCK 1S PRESENT

IF P-CLOCK

;OR 10 'TIME2'
;"TIME®

WILL ONLY

SAVE

[S NOT PRESENT

;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
021274
021300

013746
052716

002424
000001

Mov

021304

012677

160770

Mov

BIS

@FUNLOAD,=-(SP)

;GET

(SP)+,3RHCST

;WITHOUT
;60 WITH

#GO, (SP)

01110 0
01130 5

Mov
MoV

021314
021316
021320
021322
021324

104413

WAT

002300
000200
000001
000001

RHCST
RDY
1.
1.

aR1,RO
aR3,R5

TO MOVE

COMMAND

INTERRUPT ENABLE

;2 IN RHCS1 FOR UNLOAD
;WITH

021310
021312

READY

;GET READY TO SET GO

INTERRUPT

;SAVE RHCS1
:SAVE RHDS1
;WAIT

DISABLED

DURING ABOVE OPERATION
DURING ABOVE OPERATION

FOR BIT

TO SET

:IN RHCS1 REGISTER
;'RODY' BIT
;ALLOW 10 MICRO SECONDS
;ANOTHER 10 - 'RDY' MUST SET BETWEEN
;00 AND 20 MICRO SECONDS

(W AV IV IV SV RV LV W IV SV TV RV LV TV LV LV SV TV LV TV LV TV LV JV RV IV IV LV SV TV _JV TV AV IV TV IV IV IV VW YV LV _JV LV IV JV_ IV IV NN - B -]
Y
—r D e
i e
D D e
il i oD ol
— il il D el ) el il i il ol il il D o d e el il D up D Al B ol el D
hh
oo OO
OO
N ~NNNNNN ~
NN NNANNNNNNNE
LSS
EDED NN
e
[V
I ) W N=OOVENOC
N—= OO0
NO N ~N
N
W —=O VNN
W —=O0EBNO
©OCQ

RPO4/S5/6 FCINL CTLRYT
1
28-MAR-79 09:03

MACY1Y

30A(1052)
25-MAY-79
10:30
130
UNLOAD COMMAND

9
PAGE

111

SeqQ 0110

; *COMPARE CONTENTS OF RH(SY AND RHDS1, WHICH WERE SAVED
:*DURING THE UNLOAD COMMAND, WITH THE EXPECTED RESULTS
021326
021332
021336
021342
021344

013746
082716
005737
001413
010037

002426
004201
004722

021372
021376

011637
022600

001124

021400
021402
021406
021412

001405
010037
010137
104021

001126
004600

021414
0216420
021626
021432
021436

012746
010537
042737
042716
053716

020400
004760
167677
010100
004760

021442
021446

011637
022605

001124

021450
021452
021456
021462

001405
010537
010337
104063

021350
021356
021362
021366

042737
042716
053716
052716

004760
177677
(00100
004760
100000

021544

SFUNLOAD,='SP)
;PUSH COMMAND ON STA(K
#OVA'GO'RDY,
(SP) ;INCLUDE THESE BITS SET
@#NUNIT
:1S THERE MORE THAN ONE UNIT
9%
:SKIP NEXT IF ONLY ONE UNIT
RO,S#TMPL
:PUT SAVED RHCS1 INTO TMP4

#*CIE.aNTMPL
#1E,(SP)
afIMP4L, (SP)
#SC,(SP)

;MASK ALL BUT THE 'IE' BIT IN RMCSI
:CLEAR 'JE' IN EXPECTED DATA
sSET "IE® STATE FROM ACTUAL RMCS1 DATA
SSET 'SC’ IN RHCSY SAVED DATA

MOV
(mp

(SP) ,3#8GDDAT
(SP)+,R0

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

8EQ
Mov
MOV
ERROR

10%
RO,a#$BDDAT
R1,3#REGADR
21

:CHECK NEXT BITS IF THESE 0«
:RHCST IS BAD = PRINT IT 0OUl
:REGISTER ADDRESS
:DURING ABOVE OPERATION ONLY TME
:'DVA', 'GO0', 'RDY' AND COMMAND BITS
: SHOULD BE SET

MOV
MOV
BIC
BIC
B1S

#PIP'DPR,-(SP)
;PUT SOME EXPECTED RHDS1 BITS ON STACK
RS ,3#TMPL
:PUT SAVED RHDS1 INTO TMP¢
#2C<MOL'VV> ,a¥fTMPL ;MASK ALL BUT 'MOL'" £ 'vv' IN RHDS!
#MOL'VV, (SP)
CLEAR 'MOL' € 'vV' IN EXPECTED RMDSI
SN TMP4L, (SP)
;SET EXPECTED °*MOL" & °*vv' BIT STATES

MOV
(mp

(SP) ,a#SGDDAT
(SP)+,RS

8EQ
MOV
MOV
ERROR

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

BIC
81C
BIS
B1S

9%:

10%:

004760

001126
004600

1064401
000425

021472
::96%:
95%:

:RHCSYT

DATA AND RESET

THE

STACK

;FROM THE ACTUAL DATA (DON'T

CARE)

:SAVE EXPECTED DATA FOR PRINTOUI
:COMPARE EXPECTED DATA WITH SAVED

;RHDST

DATA AND RESET

THE

STA(K

:CONTINUE IF EXPECTED=SAVED
:RHDST IS BAD = PRINT IT Qut
:REGISTER ADDRESS
;:DURING THE ABOVE OPERATION, ONLY ‘P[P
:AND

°'DPR*'

SHOULD BE

SET

:"MOL' & 'vv' ARE DON'T CARES

11%:

021464

0216464
021470

004760

Mov
B1S
151
B8EQ
MoV

TYPE
BR

LASCIZ

,96%
95¢

<15><12>/1F

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

STANDBY NOT LIT - ERROR Af TER UNLOAD/
;THIS PROVIDES A 1

SECOND ‘'STALL"

MACY11

30A(1052)
25-MAY-79
10:30
130
UNLOAD COMMAND

e
D ot
il el
il
D

0000 OVOOV OO [0 -3
CO~NO NS
W —O O

il el

9
PAGE

112

Sea 0111

: *NOW CHANGE REGISTERS SAVED BEFORE UNLOAD COMMAND
;10 EXPECTED VALUES AFTER UNLOAD COMMAND

:* - AGAIN *MOL' $ 'vv' ARE DON'T CARES

VIV IV IV IV TV IV LV JV IV LV IV ]

CIRJIIDO, RPO4/S5/6 FLTINL CTLR)
CIRJ1D.P 1
28-MAR-79 09:03

021544
021550
021556
021564
021570

012746
017737
042737
042716
053716

020400

160546
167677
010100

#PIP!DPR,-(SP)

;SET EXPECTED FINAL RHDS! BITS

;FROM THE ACTUAL (DON'T CARE COND.)
;CLEAR THESE ADDITIONAL RHDS1 BITS

;GET PRESENT ACTUAL RHDS1 CONTENTS
aRHDS1,afTMP4L
N*(C<MOL'VV>,8#TMP4L ;MASK OUT ALL BUT °'MOL' & 'wv'
#MOL ! VV, (SP)
;CLEAR *MOL' & 'vv' IN EXPECTED RHDS1
alTMPSL, (SP)
;SET EXPECTED 'MOL' & 'vv' STATES

004760
004760

004760

021574
021600

042716
012637

100200
004642

FATAIDRY, (SP)

021604
021610

006037
002300

042404

RO,a#CHREG

021612
021614
021616

000001
000001
000001

021620
0216264

005737
001006

004722

3#NUNIT
7%

;1S THERE MORE THAN ONE UNIT ?
;SKIP NEXT IF MORE THAN ONE UNIT

021626
021632

0046037
002300

042404

RO,a#CHREG

; CHANGE BITS

021634
021636

000001
000000

021640
021642

021642

(SP)+ ,a#SAVERE+30 ; CHANGE THE SAVED RHDS1 REGISTER
;AND ADJUST

;1 BIT/BITS T0 BE CHANGED
:NEW VALUE OF SC IS 0
; CHANGE SC BIT

7%:

004740

004636

BIC

SNATTENT ,9#SAVERE+24

;*WITH EXPECTED VALUES

5235
5236

5238

004037

021654
021656
021660
021662
021664

004612
002354
000021
021666
021672

021666

104023
000207

021670

JSR

042512

RO,aN#COMREG

SAVERE
17.

ERROR

RTS

. CLEAR APPROPIATE ATA BITS
:FOR WORKING DRIVE IN SAVED RHAS
THE UNLOAD COMMAND

: COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;6000 DATA SAVED IN 'SAVERE'

;TEST DATA STARTING FROM ‘'RHWC'
;17. REGISTERS TO BE COMPARED
;RETURN 10 3% ON ERROR
;RETURN TO 4% ON NO ERROR

3¢:

IN SAVED REGISTER

; CHANGE RHCS1 REGISTER

; *NOW COMPARE REGISTERS AFTER

021650

IN SAVED REGISTER

; CHANGE RHCS1 REGISTER

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

100000

043737

;CHANGE BITS

THE STA(CK

;UNLOAD COMMAND GAVE

;AN ERROR
;600D DATA GIVES WHAT
.Bt THERE

SHOULD

(ZRJlbofil?POAISlb FCTNL (TLr
CIRJID.
28-MAR-79 09:03

5239
5249
5261
5262
5243
5244
5245
5246
5247

5248
5249
5250
5251
5252
5253
5254
5295
5256
5257
5258
5259
5260
5261
5262
5263
5264
5265
5266
5267
5268
5269
5270
5271
5272
5273
5274
5275
5276
5277
5278
5279
5280
5281
5282

MACY11

30A(1052)
25-MAY-79
10:30
130
UNLOAD COMMAND

19
PAGE 113

SEa 0112

;RECEIVED DATA GIVES WHAT WAS

: THERE

021672
021672
021676

021714
021714
021720
021722
021726

1046401

000406

013746
104405
104401
000446

021700

;. 98%:

004716

97%:

::100%:

000240
000240
000240

047342

061562

,98%
;;TYPE ASCIZ STRING
97%
.:GET OVER THE ASCIZ
<15><12>/0N DRIVE /

Mov

8fUNIT,-(SP)

;GET UNIT UNDER TEST

,100%

;. TYPE ASCIZ STRING

TYPE

99%:

005037
000000
004737

T1YPE
BR
LASCIZ
TYPDS

021730

022040
022040
022044
022046
022052
022054
022056

4%:

AFTER UNLOAD CCMMAND

99%

CLR

afPRITEM

;CLEAR PREVIOUS ERROR NUMBER

JSR
NOP

PC,aNCHECK

MOL & DOPR = 1
:CHECKS THAT DVA,RDY,
;CHECKS THAT ALL OTHER BITS - 0

JASCIZ

HALT

<15><12>/1F

;.0ET OVER THE ASCIZ
STANDBY LIT HIT STANDBY OR START - AFTER HEAD LOAD WlT CONTI

NOP

;WAIT

FOR CONTINUE

:THERE

1S NO HALT

FAILS -

;1S USED IN THE MIDDLE OF A TEST

NOP

;*SET VV IN RHDS1 AFTER RESET FROM ACTUATING
;*THE

022060
022064

013746
052716

002460
000001

Mov

022070

012677

160204

Mov

BIS

STANDBY SWITCH AND CYCLING UP
A#PKACK,=(SP)

#GO, (SP)

(SP)+ ,3RHCST

;GET READY

0111 00
0113 05

Mov
MOv

022100
022102
022104
022106
022110

104413
002322
000100
000001
000001

WAT
RHDS1

aR1,RO
aR3,RS

10 MOVE

(COMMAND

;GET READY T0 SET GO

;WITHOUT INTERRUPT ENABLE
;G0 WITH

;22 IN RH(CS1 FOR PACK ACKNOWLEDGE

;WITH

022074
022076

(MOL =

INTERRUPT

;SAVE RH(S1
:SAVE RHDS1

DISABLED

DURING ABOVE OPERATION
DURING ABOVE OPERATION

;WALT FOR vv BIT 1O SET
;WAIT FOR RHDS! REGISTER

;WAIT FOR vv BIT IN RHDSY REGISTER

;VV MUST SET BETWEEN
;00 AND 20 M]CRO SECONDS

;ALLOW 10 MICRO SECONDS

MACYT

5283
5284
5285
5286
5287
5288
5289
5290
5291
5292
5293
5294
5295
5296

NN —=O
—=O VIO WVNE
] W

00~
N & (N = o OB~ A

AV IV I AV IV IV TV SV YV IV RV SV IV W

ARV R ol oV AV IV LV LV TV YV 1V ]

VIV VRV LV WAV VIV (Vv
v v [PV IV YWV RV AV AV IV VLV VW VIV AV YV )
b et et
b b e ek et et
N AV] PNIPONUNINY
(O IV SV RV AV IV LV V] (V. oo

5297
5298
5299
5300
5301

(S IV

l RJIDO, RPO4/S5/6 FCINL CTLRY
28-MAR-79 09:03
l RJID.PY \

30A(1052)

13
B

25-MAY-T79

10:30

PAGE

114

OFFSET AND RETURN TO CENTcR LINE COMMAND

R Z 2

XX R

EZE 2

XXX RN N

SEQ 0113

EEEZEZ RS ZEZAEEARZZRA

RRRRER A

THIS TESTS TWO COMMANDS: (1)OFFSET, (2)RETURN-TO-CENTER-LINE

L
M
M
A

ALL
AND
ALL
ALL

A
.
.t

THEN A RETURN-TO-CENTER=-LINE 1S GIVEN
ALL REGISTERS ARE COMPARED ONLY ATA SHOULD SET
AND RHOF SHOULD CLEAR (EXCEPT HC],ECI,FMTZ22)
ALL OTHER REGISTERS SHOULD REMAIN UNCHANGED

A
ot

THE ABOVE PROCESS IS REPEATED FOR OFFSET REGISTER
VALUES OF 1 T0 377 1e. 377 TIMES

OFFSET AND RETURN TO CENTER LINE

'TES1

COMMAND

POSSIBLE REGISTERS ARE FILLED WITH ONES (EXCEPT RHOF)
AN OFFSET IS GIVEN
REGISTERS ARE COMPARED, ONLY ATA SHOULD SET
OTHER REGISTERS SHOULD REMAIN UNCHANGED

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

SCOPE
MOV
MOV
MOV

#1%,8LPADR
#STACK,SP
#31,3/TSTNM

:;SET SCOPE LOOP ADDRESS
sRESET STACK
;SAVE TEST NUMBER

041524

JSR

PC,anCLDISK

004737

041562

JSR

PC,3#CHECK

104401

067033

TYPE

,CPHALT

:SET R1-RHCS1, RZ2-RHC(S?
sR3-RHDS1, R4&-RHER1
:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
:CHECK THAT DVA,RDY,MOL,DPR,DRY = 1
;AND THAT NO STATUS BITS ARE STuCK
1
:CANNOT CONTINUE TESTS IF THEY AREN'T

MOVB

#1,3#0FSTVL
#34,300FSTVL*Y

VALUE T0 1
;SET HCI,EC],FMT2?

JSR

PC,a¥#CLDISK

:SET RI=RM(S1, RZ2-RH(CS?
;R3-RHDS1, R4&-RHER]
;:GIVE RH=11 INITJALIZE

JSR
NOP
NOP
NOP

PC,aNCHECKT

:CHECK DVA,RDY,MOL,DPR & vv - 1
; CHECK YHAT ALL OTHER BITS = 0
:UNLIKE THE OTHER STATUS BIT TESTS,

022112
022114
022122
022126

000004
012737
012706
012737

022166
001000
000031

022134

004737

022140
022144
022150
022152
022160

000000
112737
112737

000001
000034

1S7131:

004604

HALT
MOvB

004610
004611

;STOP
;SET OFFSET

1%:

022166

001106

004737

041524

;SETUP UNIT NUMBER

022172
022176
022200
022202

004737
000240
000240
000240

041604

022204

012700

002272

MOV

#RHWC RO

1S NO HALT IF IT FAILS = 1T IS
:USED IN THE MIDDLE OF A SINGLE TEST
;ADDR. OF ADDR Of RHWC IN RO

022210

012730

177777

MOV

#177777,3(R0OY+

;LOAD 177777 INTO RHW(

022214

012730

177777

MOV

#177777,9(RO)+

;LOAD 177777 INTO RHBA

022220

052730

000010

BIS

#10,3(R0) ¢

sLOAD 10 INTO RH(S2

sTHERE

O«

OC
VEWN—0OY

?POQ/ 5/6 FCINL

CTLRY
28-MAR-79 09:03

MACY11

K
9
30A(1052)
25-MAY-79
10:30
PAGE 115
131
OFFSET AND RETURN TO CENTeR LINE

SEQ 0114

COMMAND

022224

012730

001400

MOV

#1400,3(R0)+

;LOAD

1400

INTO RHCS!

022230

012730

000000

Mov

#0,3(RO)+

;LOAD O INTO RHERI

022234

012730

177777

MOv

#V77777,8(RO)+

;LOAD 177777 INTO RHDST

022240

012730

000000

Mov

#0,3(R0O)+

;LOAD O INTO RHER?

2t 2P 2

W~ NN
M N

[V IV IV IV IV IV IV IV )

;*THE OFFSET REGISTER WILL BE INCREMENTED FROM 0 10 377
022244

013730

004610

Mov

aNOFSTVL,8(RO)+

;SET OFFSET REGISTER

022250

012730

177777

Mov

#177777,3(RO)+

;LOAD 177777 INTO RHCA

02225¢4

012730

000000

Mov

#0,a(RO)¢

:LOAD O INTO RHER3

;*NOW SET BITS

Mov
Mov
Mov

RO,-(SP)
aR4, - (SP)
aR2,-(SP)

004742

MoV

SNTOTALAT,RO

;AFTER ALL ATA BITS HAVE BEEN SET
;GET DRIVES PRESENT

00C010

Mov
ROR

#8.,RS
RO

; COUNTER
;GET BIT INTO CARRY

022260
022262
022264

010046
011446
011246

022266
022272

013700
005012
012705
006000
012714

177777

022274
022300
022302
022304

103002

IN RHAS FOR ALL DRIVES PRESENT

CLR

82%:

83%:

022310
022312
022314
022316
022320
022322
022326

005212
005305
001371
012612
012614
012600
005720

022326

012730

177776

022332

013777

002454

;CLEAR RHCSZ2 AND CARRY

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

BCC
Mov

83%
#-1,aR4

INC

MOV
MoV
181

aR2
RS
82%
(SP)+,aR2
(SP)+ ,aR4
(SP)+ RO
(RO) ¢

Mov

#177776,8(R0O)¢

;LOAD 177776 INTC RHMR

MOv

SN¥OFSETC,aRHCS1

;GET READY FOR OFSETC

DEC

BNE
MOV

157740

aR?

;,PUSH RO ON STACK
;SAVE RHERY TO REINSTATE LATER
:SAVE RHCS2 TO BE REINSTATED

;70 SET ATA BIT

s INCREMENT RHCS2 TO NEXT UNIT
; COUNT
:BRANCH ]F 8 NOT DONE
;REINSTATE RHCS?2
;REINSTATE RHERI
;;POP STACK INTO RO
:GET OVER PHAS IN RO

;*NOW SAVE REGISTERS FOR COMPAR]ISON AFTER OFFSET
022340
022344
022346

004037
002272
004612

022350

000022

041672

JSR
RHWC
SAVERE
18.

RO,3#SAVER

:SAVE REGISTERS
;RHWC 1S THE FIRST REGISTER SAVED
;STARTING ADDRESS OFfF WHERE
;THE

REGISTERS

;NUMBER OF

ARE

SAVED

REGISTERS

;SAVED = 18.

CIRJIIDO, RPO&/5/6 FCTNL CTLR]
CZRJID.PN
28-MAR-79 09:03

5621
5622
5423
5624
5625
5426
56427
56428
5429
5630
5431
5632
5633
5434
5435
56436
5437
5438
5439
5440
5641
5642

5443
5444
5445
5646
5447
5448
5449
5450

013777

004606

S?A (1052)

157706

25-MAY-79
10:30
PAGE 116
DFFSET AND RETURN TO CENTcR LINE COMMAND
Mov

S/RP4VEC,3RPVEC

SEQ 0115

;SET RPO4 VECTOR ADDRESS
;70 "TIMEY' JF P=CLOCK IS PRESENT

:OR TO 'TIME2'

;'TIME'

IF P-CLOCK IS NOT PRESENT

WILL ONLY SAVE

: CURRENT CYLINDER ADDRESS
;AND LOOK

AHEAD REGISTERS

00245¢
000101

MOv

BIS

afOFSETC,-(SP)
#GO:1E, (SP)

GET READY
;GET READY

022370

012677

157704

Mov

(SP)+,aRHCST

;60 WITH
;164 IN RHCS1

022374
022376
022400
022402
022404
022406
022410

013746
052716

A —=t

022360
022364

—

5409
5410
5611
5612
5413
5414
5615
5416
5617
5618
5419
5620

022352

(o)

5395
5396
5397
5398
5399
5400
5601
5402
5403
5404
5405
5406
5607
5408

MACY1]

Mov
Mov

104613

aR1,RO
aR3,R5

;ENABLE INTERRUPT

:SAVE RHCS1
;SAVE RHDS1

DURING ABOVE OPERATION
DURING ABOVE OPERATION

FOR DRY BIT T0 SET
FOR RHDS1 REGISTER

;WAIT FOR DRY BIT IN RHDS! REGISTER
;ALLOW 10000 MICRO SECONDS

;DRY MUST SET BETWZEN

300.

;7000 AND 13000 MICRO SECONDS

;*COMPARE CONTENTS OF

RHCS1

AND RHDS1

;:*RO AND RS IMMEDIATELY AFTER GO
002454
004301
004722

022412
022416
022422
022426
022430
022434
022442
022446
022452
022456
022456
022462
022464
022466
022472
022476

004760
177677
000100
004760

100000

001124

001405
010037
010137
104021

022500
022504
022510

012746
011637
022605

022512
022514
022520
022524

001405
010537
010337

022526

104063

MOV

BIS
1S1
BEQ

MoV

004760

87%:

86%:

¥ TMP4, (SP)
#SC, (SP)

:GET 1E AS IS
:SET SC IN RH(CSI

#°CIE,aNTMPS
V1E, (SP)

;DURING ABOVE OPERATION ONLY

; COMMAND AND DVA!GO!]E!RDY SHOULD BE SET
-SAVE BITS SET DURING OPERATION IN RHDS!

Bta

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

ERROR

DVA!GO!IE!RDY

;SAVE FOR PRINTOUY
;DURING ABOVE OPERATION ONLY DVAIGO:IE'RDY
:AND COMMAND SHOULD BE SET
:BRANCH If GOOD
:BAD DATA
;FAILING REGISTER RHCS1

MOV
MOV

(SP) ,aN%GDDAT
(SP)+,RS

s INCLUDE

:KEEP 1E BIT
;CLEAR JE IN GOOD DATA

#PIP!MOL'!DPR!VV,=(SP)

MoV
MOV

88%:

;ARE THERE MORE THAN ONE UNIT
¢BRANCH IF ONLY ONE UNIT
;GET RHCSI

86%
RO,a#$BDDAT
R1,3#REGADR
21

(me

001126
004600

3#NUNIT
87%
RO,a# TMP4

BEQ
ERROR

;SAVE COMMAND

#OVA!GO!1E'RDY, (SP)

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

Mov
MOV

ALREADY SAVED

aNOFSETC,-(SP)

MOv

CMP

001126
004600
030500
001124

BIC
B1C
BIS
BIS

FOR OFSET

;WITH INTERRUPT ENABLED

;WAIT
;WAIT

WAT
RHDS1
DRY
1000.

002322
000200
001750
000454

TO MOVE COMMAND
T0O SET °'GO' AND

;SAVE FOR PRINTOUT
:DURING ABOVE OPERATION ONLY P]P.MOL:!DPR.VV

; SHOULD BE SET
:BRANCH If GOOCD
:BAD DATA
;FAILING REGISTER RHDSI
;DURING ABOVE OPERAT]ION ONLY
;PIP!MCL.DPR!VV SHOULD BE SE1T

CZRJIDO, RPO4L/S/6 FCTINL CTLRY
CIRJID P
28-MAR-79 09:03

n9
PAGE 117
30A(1052)
25-MAY-79
10:30
31
DFFSET AND RETURN TO CENTeR LINE COMMAND

SEQ 0116

NN
o

000001
000001
100000

022542
022546

004037
002322

022550
022552
022554

000001
000001

022556

053737

22
22

\V LV

22
22
022540

004037
002300

W
o

RV
LV
]

; *NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES

OO0

5651
5652
5453
5454
5455
5456
56457
5458
5659
5460
5461
5462
5463
5464
5465
5466
5467
5468
5469
5470
5471
5472
5473
5474
5475
5476
5477
5478
5479
5480
5481
5482
5483
5484
5485
5486
5657
€488
5489
5490
5691

MACY1T

042404

JSR
RHCST

RO,a#CHREG

;1 BIT/BITS TO BE CHANGED

1
1
SC

042404

JSR

RHDS1

;NEW VALUE OF SC
; CHANGE SC BIT

RO,a#CHREG

004636

BIS

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

; CHANGE ATA BIT

ATA

004740

;1 BIT/BITS TO BE CHANGED
;NEW VALUE OF ATA ]S 1

1
1

100000

; CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS1 REGISTER

SNATTENT ,@#SAVERE +24

;SET APPROPRIATE 'ATA' BITS

;FOR WORKING DRIVE

;SAVED RHAS LOACTION

; *NOW COMPARE REGISTERS AFTER AN OFSET COMMAND
022564

004037

022570
022572
022574
022576
022600

004612

022602
022604

JSR

042512

RO,3#COMREG

SAVERE

002354

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;GO0D DATA SAVED IN 'SAVERE'

;TEST DATA STARTING FROM 'RHW(C'

:18. REGISTERS 1O BE COMPARED

000022
022602

;RETURN TO 2% ON ERROR
;RETURN TO 3% ON NO ERROR

022606

2%:

104024

000207

ERROR
RTS

;OFFSET COMMAND CAUSED AN ERROR
;600D DATA ]S WHAT SHOULD BE THERE

;RECEIVED DATA GIVES WHAT WAS THERE

AFTER AN OFFSET COMMAND
022606

013777

004740

157502

3$:

MOV

SNFATTENT,aRHAS

:CLEAR WORKING DRIVE ATTENTION

5492

5493
5494
5495
5496
5497
5498
5499
5500

5501
5502
5503
5504
5505
5506

:*NOW A RETURN TO CENTER LINE COMMAND wILL BE GIVEN

";"I"""""""""'l'i'""0"""""".""t"t'ti"l"l"

022614
022620
022622
022624

004737
000240
000240
000240

041604

022626

013777

002456

J3R

NOP
NOP
NOP

157444

Mov

PC,aNCHECKT

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

S¥RETCL,3RHCST

IS NO HALT

FAILS =

;USED IN THE MIDDLE OF A SINGLE TEST
;GET READY FOR RETCL

;RETURN TO CENTER LINE WITH 16 IN RH(S)

;*NOW REGISTERS ARE SAVED FOR COMPARISON AFTER COMMAND

022634
022640
022642

006037
002272
004612

022644

000022

022646

013777

MACY11

30A(1052)
25-MAY-79
10:30 PAGE 118
TM
DFFSET AND RETURN TO CENTER LINE COMMAND

041672

JSR

RHW(C
SAVERE

RO,a#SAVER

;SAVE REGISTERS

sRHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;THE REGISTERS ARE SAVED
;NUMBER OF REGISTERS

18.
004606

Mov

157412

;SAVED = 18.

S#RPLVEC,3RPVEC

;SET RPO4 VECTOR ADDRESS

;70 'TIMEY'

IF P-CLOCK IS PRESENT

;AND LOOK

002456
000101

Mov

022664

012677

157410

Mov

BIS

Mov
Mov

N —t

—

013746
052716

-—

022654
022660

022670
022672

022674
022676

1064413
002322
000200
001750
001750

#RETCL,-(SP)

GO!IE, (SP)

(SP)+ ,aRHCS]

aR1,RO
aR3,RS

WAl
RHDS1

;GET

AHEAD REGISTERS

READY

TO MOVE

;GET READY TO SET
;ENABLE INTERRUPT

DRY
1000.

;SAVE RHCS1
;SAVE RHDS1

DURING ABOVE OPERATION
DURING ABOVE OPERATION

;WAIT FOR DRY BIT IN RHDS1 REGISTER

;ALLOW 10000 MICRO SECONDS

1000

(o Wo Yo JV IV IV SV TV RV LV JV.}
N = OO0~V
Wil

022722
022724
022730
022736
022742
022746
022752
022752
022756

013746
052716
005737
0014613
010037
062737
042716
053716
052716

002456
004301
004722

;DRY MUST

SET BETWEEN

:00 AND 20000 MICRO SECONDS
RHCS1

AND RHDS1

011637
022600

001124

004760
177677
000100
004760
100000

022760
022762
022766
022772

001405
010037
010137

001126
004600

022774
023000

012746
011637

03 ?500
001124

104021

004760

90%:

SMRETCL,-(SP)

. SAVE COMMAND

BIS

#SC,(SP)

;SET SC IN RHCS!

MOV

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

BEQ
MOV
MoV

89%
RO,3¥$BDDAT
R1,3#REGADR

MOV

#PIP'MOL'DPR!VV,=(SP)

CMP

ERROR

89%:

ALREADY SAVED IN

MOV

B1S
TS1
BEQ
MOV
BlC
BlC
B1S

MOv

°'GO' AND

;60 WITH
;16 IN RHCS1 FOR RETURN TO CENTER LINE
;WITH INTERRUPT ENABLED

;:*RO ANJ RS IMMEDIATELY AFTER GO

022706
022712
022716

COMMAND

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

;*COMPARE CONTENTS OF

W XV IV IV IV TV IV YV TV 2V IV ]
WXV IV IV SV TV IV YV YV AV 1V ]

IS NOT PRESENT

;CURRENT CYLINDER ADDRESS

022700
022702
022704

5551

SEa 0117

;OR 10 "TIME2' IF P=CLOCK
;'TIME® WILL ONLY SAVE

(=)

AR S ARY ALV RV IV IV LV AV IV IV IV TV IV ]
A di 2RV ARV NV LV U
LV RV LV JVU VW ]V}
PIPIRIN)
o ad ad d o o o cd e
W
= OV
~NOWNS LN =0

CIRJIDO, RPOL/S/6 FCTINL CTLRY
CIRJID P
28-MAR-79 09:03

s INCLUDE DVA!GO!IE.RDY
#DVA!GO!IE'RDY, (SP)
S#NUNIT
;ARE THERE MORE THAN ONE UNIT
;BRANCH If ONLY ONE UNIT
90%
RO,a# TMPS
sGET RHCS!
;KEEP 1E BIT
N2CIE,QNTMPS
;CLEAR IE IN GOOD DATA
N1E, (SP)
;GET IE AS 1S
SN TMP4, (SP)

(SP)+,RO

(SP),a#$GDDAT

;DURING ABOVE OPERATION ONLY DVA!GO!1E:RDY
:AND COMMAND SHOULD BE SET
:BRANCH IF GOOD
:BAD DATA
sFAILING REGISTER RH(CS]
;DURING ABOVE OPERATION ONLY
; COMMAND AND DVA!GO!IE!RDY SHOULD BE SET

;SAVE BITS SET DURING OPERATION IN RHDS!

;SAVE FOR PRINTOU?

(IRJIDO, RPOL/S/6 FCINL CTLRY
CIRJID.PIY
28-MAR-79 09:03
5963
5564
5565
5566

023004

022605

023006
023010
023014
023020

001405
010537
010337
104063

MACYTT

B 10

30A(1052)
25-MAY-79
10:30 PAGE 119
131
DFFSET AND RETURN TO CENTeR LINE COMMAND

cmp

(SP)+,RS

BEQ

91%

Mov
Mov
ERROR

001126
004600

RS.,3#$BDDAT
R3,3#REGADR
63

91%:

023022

SEaQ 0118

;DURING ABOVE OPERATION ONLY PIP!MOL:DPR:!VV
; SHOULD BE SET

:BRANCH If

GOOD

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

;PIP!MOL!DPR!VV SHOULD BE SET

;*NOW CHANGE SAVED REGISTER TO EXPECTED VALUE
023022
023026

004037
002300

023030
023032
02303¢

000001
000001

023036
023042

004037
002322

023044
023046
023050

000001
000001
100000

023052

053737

004740

023060

004037
002310
116000

041426

023064
023066

JSR
RHCSH

042404

RO,a#CHREG

1
SC

100000

JSR
RHDS1

042404

BIT/BITS TO BE

;NEW VALUE OF SC
; CHANGE SC BIT
RO,3¥CHREG

ATA

; CHANGE ATA BIT

BIT/BITS T0 BE

CHANGED

;NEW VALUE OF ATA ]S 1

BIS

SNATTENT ,@#SAVERE+24

JSR

RO,a#F ILLRE

RHOF

CHANGED

IS 1

; CHANGE BITS IN SAVED REGISTER
: CHANGE RHDS1 REGISTER

004636

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHCS1 REGISTER

BITIS!HCI'EC].FMT22

;SET APPROPRIATE 'ATA' BITS
:FOR WORKING DRIVE IN
:SAVED RHAS LOACTION
MOV BITIS!HCI'ECI'FMT22 INTO SAVED RHOf

;SAVED REGISTER TO CHANGE

;DATA

;*NOW COMPARE REGISTERS AFTER RETURN-TO-CENTER-LINE
023070

004037

023074
023076
023100
023102
023104
023106
023110

004612
002354
000022
023106
023112

JSR

042512

4%:

104025

000207

SAVERE
Wi
18.
4%
5%
ERROR
RTS

RO,3#COMREG

25
PC

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE

;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
:18. REGISTERS TO BE COMPARED
:RETURN T0O 4% ON ERROR
;RETURN TO 5% ON NO ERROR
;RETURN TO CENTER-LINE
; COMMAND CAUSED AN ERROR
:GO0OD DATA HAS WHAT SHOULD

;BE THERE

;RECEIVED DATA HAS WHAT WAS

;THERE AFTER COMMAND
5¢%:

023112

004737

041524

JSR

PC,a#CLDLISK

023116

1052537

004610

INCB

a¥OFSTVL

;SET R1-RHCS1, R2-RH(CS?2
;R3-RHDS1, R4-RHERI
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
;GEYT NEXT OFFSET VALUE

CIRJIDO, RPO4/S5/6 FCINL CTLRY
CIRJID.PIN
28-MAR-79 09:03

5619
5620
5621
5622
5623
5624
5625
5626
5627

023122
023130
023132
023140
0231446
023146
023150

132737
001403
062737
105737

001001
000402
000137

MACY11

000100

004610

000100
004610

004610

022166

c10

30A(1052)
25-MAY-79
10:30
PAGE 120
131
DFFSET AND RETURN TO CENTcR LINE COMMAND
8118
BEQ
7%:

ADD
1518

6%:

BNE
BR
JMP

SEQ 0119

#100,8#0FSTVL
7%
#100,a#0FSTVL
aroFSTVL

;SEE 1F UNUSED BIT 6
:NO SO DO SOME MORE
;YES SO BY=PASS IT

6%
1132

;BRANCH [F 377 NOT DONE
BRANCH TO NEXT TEST

CTARY

;

;1F

ZERO ALL

; COMPLETE

IS ON

COMBINATIONS ARE

:JUMP BECAUSE 377 NOT DONE

CIRJ1D0O, RPO&L/S/6 FCTINL CTLRI
P
(ZRJlD.
28-MAR-79 09:03
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639
56490
5641
5642
5643
5644
5645
5646
5647
5648
5649
5650
5651
5652
5653
5654
5655
5656

5657

5658
5659
5660
5661
5662
5663
5664
5665
5666
5667
5668
5669
5670
5671
5672
5673
5674
5675

5676
5677
5678
5679
5680
5681
5682
5683

MACY 1T

30A(1052)

132

25-MAY-79

10:30

OFFSET COMMAND

D 10
PAGE 121

SEQ 0120

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

;eTEST 32

000764

004756

012706
012737

001000
000032

004604

004737

041524

2222222 X222 XXX2XXYRXXXX2AX2RR2
AR
ARER 22222 N2

TSTSZ

SCOPE
MOV

# 500.,3fTMP1

; COUNTER

MOV
MOV

#STACK,SP
#32,3#TSTNM

sRESET STACK
;SAVE TEST NUMBER

JSR

PC,anCLDISK

041604

JSR

PC,a¥#CHECKT

023206

104401

067033

TYPE

,CPHALT

023212
023214
023220

000000
004037
000260

041510

023222
023226

013746
052716

023232

012677

023236
023240
023242
023244
023246

104413
002322
000200
000536
000536

023250
023256
023260
023262

032777
001417

023264

004737

023270
023274
023300

023202

004737

HALT

JSR
260

RO,aN#0FSET

002454
000101

MOV

SNOFSETC,-(SP)

157042

MoV

(SP)+,aRHCST

BiS

#GO'!IE, (SP)

:THE FIRST SET OF BITS DON'T = 1
;STOP

;OFSET
;260 IN OFSET REGISTER
:OFSET =1200 MICRO INCHES
;GET READY TO MOVE COMMAND

;GET READY TO SET °'GO' AND
;ENABLE INTERRUPT
;60 WITH

:14 IN RHCS1 FOR OFSET
:WITH INTERRUPT ENABLED

DRY
350.
350.

;WAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 3500 MICRO SECONDS
;DRY MUST SET BETWEEN
:00 AND 7000 MICRO SECONDS
:1S ERR SET7

041524

JSR

PC,o#CLDISK

013746
052716

002626
000101

MOV

S#RECALI,-(SP)

012677

156774

L [0}Y)

(SP)+,aRHCST

000004

:AND THAT NO STATUS BITS ARE STuCKk =1
:CANNOT CONTINUE TESTING IF ANY OF

SCOPE

BIS

FOR DRY BIT

:WAIT FOR RHDS1

#ERR,aRHDST
%
26

104026

:GIVE RH-11 INITIALIIZE
;SETUP UNIT NUMBER
:CHECK DVA,RDY,MOL,DPR,DRY,VV = 1

:WAIT

BIT
BEQ
ERROR

157044

;SET R1-RHCST, RZ2-RH(CS?

;R3-RHDS1, R&-RHERI

WAT

RHDS1

040000

THIS TEST WILL ONLY GIVE REPEATED OFFSETS

.
000004
012737

OFFSET COMMAND

#GO.lE, (SP)

10 SET

;NO

;REPEATED OFFSETS CAUSED AN ERROR

;SET R1-RHCS1, RZ2-RH(S?
;R3-RHDS1, R&-RHER!
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
;GET READY TO MOVE (OMMAND

;GET READY TO SET 'GO' AND

;ENABLE INTERRUPT
;60 WITH
;6 IN RHCS! FOR RECALIBRATE
:WITH INTERRUPT ENABLED

CIRJIDO, RPO&L/S5/6 FCTINL CTLR1

CIRJ1D.PIY
5684
5685
5686

5687
5688
5689

5690

5691
5692
5693

28-MAR-79 09:03

023304
023306
023310

104413
002322
000200

023316

005337

023312
023314
023322
023324

MACYI1

30A(1052)

132

10:30

WAT
RHDS1
DRY

060650
060650
001401
000717

25-MAY-79

DFFSET COMMAND

2%:

DEC

BEQ
BR

10
PAGE

122

:WAIT FOR DRY BIT 10 SET
;WAIT FOR RHDS1 REGISTER
;WAIT FOR DRY BIT IN RHDS1

25000.
25000.

004756

;ALLOW 250000 MICRO SECONDS
;ORY MUST SET BETWEEN
CLALLA
TS133
%

SEQ 0121

:00 AND 500000 MICRO SECONDS

. COUNT DOWN

BRANCH IF DONE
;G0 BACK AND DO IT AGEN

CIRJIDO, RPO4/5/6 FCTINL CTLRI
CIRJID.PIT
28-MAR-79 09:03

MACY11

5694
5695
5696
5697
5698
95699
5700

30A(1052)

READ/WRITE

.SBTTL

25-MAY-79

10:30

TESTS USING MEDIA

READ/WRITE

PAGE

123

SEQ 0122

TESTS USING MEDIA

';t"""""""""""""""""""'t""""'tt"""""l

WRITE/READ HEADER AND DATA (0'S)

WRITE HEADER AND DATA CYLINDER O, FORMAT 16 BITS PER WORD
6EA8K 0, SECTOR 0O, KEYS=0, NUMBER OF WORDS 256 WORDS

Gy
Be
Ve

THEN READ HEADER AND DATA

FOR ABOVE.

WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH
10000,0,0,0, AND 256 OF 0
THE WRITE COMMAND 1S THEN LOADED INTO THE REGISTERS EXCEPT
THE GO BIT, AND ALL THE REGISTERS ARE SAVED
THEN GO IS GIVEN FOR WRITE HEADER AND DATA

Ve
Ve
Ve

N
AR

NOW FOR THE READ COMMAND READ INTO BUFFER IS FILLED
WITH ALL ONES, COMMAND IS LOADED INTO REGISTERS EXCEPT

GO BIT AND ALL REGISTERS ARE SAVED
GO IS GIVEN FOR THE READ COMMAND

%e
® e

®e

THEN ALL REGISTERS ARE COMPARED TO C(HECK FOR IMPROPER C(HANGED
THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED

W LV LV TV YU TV 0 R

al VA A gLV RV RV LV Ll V RV Loyl

AP RV TV RV IV SV IV TV LV 2V

NN N NN NN NN
NNNNNNNNNNN NNNN NN NNNNNNNNNSNN
3R 2B ok 2P 2E ¥ 2Rol VTV W WNAMAN AN NN
NN NN NN PO RNIAO N b et e b et ot b
NN
N —O 00D = OWVMEB W
w2 OOV ~NOWVE NN 2O OO ~NO NS NN -

VIV IV AV TV IV RV RV LV

749

BN B

NN NE

NE N

+TEST 33

ALL REGISTERS ARE CHECKED FOR IMPROPER
THEN THE READ DATA IS COMPARED.

C(HANGE

S AE22222224232223222232222430322223202R
0 RRRRRaRRRRRRRERRRRARRRRSA/

023326
023330

023334

000004
012706
012737

001000
000033

023342

004737

0415264

15133:
004604

SCOPE
MOV

#STACK,SP

;RESET

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RH(CS?
;R3-RHDS1, R4=-RHERI

MOV

#33,34TSTNM

STACK

:SAVE TEST NUMBER

:GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

;*FILL WRITE FROM BUFFER WITH HEADER
023346
023352
02335¢4
023356
023360
023362
023364

004037
002470
000004
010000
000000
000000
000000

041350

JSR

WRFROM
4

RO,a#FLHEAD

10000
0
0
0

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

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

;tFILL WRITE FROM BUFFER WITH DATA
023366
023372
023374
023376

004037
002500
000400
000000

041374

JSR
RO,a#CLAREA
WRFROM+10
256.
0
;*NOW READ

;CLEAR 256. WORDS, FROM WRFROM+10
;STARTING FROM WRFROM-10
;256. WORDS
SFILL WITH O

INTO BUFFER WwiLL BE

FILLED WITH SAME

DATA

OO
~NOWVE W=D
OV
—

Lo
1 o]

(W IV IV IV TV TV LV LV IV IV IV IV I
- B .}
-~ NSNSNSNSNNNNNNNN
e
o [« XV IV IV RV AV 1V 10 2V IV IV T T

0, RPO&/ 5/6 FCINL (TLR]
3
P
28-MAR-79

MACY11

6 10

30A(1052)
10:30 PAGE 124
25-MAY-79
133
WRITE/READ HEADER AND DATA (0'S)

SEQ 0123

;*AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS
;*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT
;YCHANGE WRITE FROM BUFFER
023400
023404
023406
023410
023412
023414
023416
023420
023424
023426
023430

004037
003534
000004
010000
000000
000000
000000
004037
003544
000400
000000

JSR
REINTO
4
10000
0
0
0

041350

RO,a#FLHEAD

JS
RO,3#CLAREA
REINTO+10
256.
0

041374

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

:CLEAR 256. WORDS, FROM REINTO+10
:STARTING FROM REINTO+10
:256. WORDS
;FILL WITH O

:*NOW THE WRITE HEADER AND DATA COMMAND WILL BE

5785
5786
5787
5788
5789
5790
5791
5792
5793
5794
5795
5796
5797
5798

5799
5800
5801
5802
5803
5804
5805

043476

JSR
0
0
0

023432
023436
023440
023441
023442

004037
000000
000
000
177374

023444

002470

WRFROM

023446
023450

000000
010000

023452

002444

WRiFOR

.BYTE
.BYTE

RO,a¥RUN

FILLED

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

-256.-4

;WORD COUNT (DATA) = 256. ¢
.4 HEADER WORDS
;BUS ADDRESS

;STARTING ADDRESS OFf DATA
;BUFFER = WRFROM
;D0 NOT INHIBIT BUS ADDRESS INCKEMENT

FM122

:16 BITS PER WORD FORMAT

;00 NOT INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE

;GET READY TO DO A WRIFOR
;WRITE HEADER AND DATA WITH 62 IN RHCSI

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

004037
002272
004612

JSR
RHWC
SAVERE

023464

000021

17.

023466

004737

023472

104401

023476

000000

023500

013777

041672

RO,3#SAVER

;SAVE REGISTERS
:RHWC 1S THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;THE REGISTERS ARE SAVED
;NUMBER OF REGISTERS
;SAVED = 17.

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

041604

JSR

PC,a#CHECKT

067033

TYPE

,CPHALT

HALT
004606

156560

MOov

;AND THAT NO STATUS BITS ARE STu(k =1
:CANNOT CONTINUE TESTING IF ANY OF

:THE FIRST SET OF BITS DON'T
:STOP

INRPLVEC,BRPVEC ;SET RPO4 VECT OR ADDRESS
;70

'TIMEY'

;OR 10 'TIMEZ'

?-(LO(K 1S PRESENT
F P-CLOCK 1S NOT PRESENT

CIRJINDO, RPO4/S5/6 FCTINL CTLR!
CIRJID. P11
28-MAR-79 09:03

5834
5835
5836
5837

5838
5839
5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856
5857
5858
5859
5860
5861

H 10

30A(1052)
25-MAY-79
10:30 PAGE 125
133
WRITE/READ HEADER AND DATA (0'S)

SEQ 0124

;'TIME' WILL ONLY SAVE

;CURRENT

CYLINDER ADDRESS

;AND LOOK AHEAD REGISTERS
IWWURIFOR,-(SP)

023516

012677

156556

mov

(SP)+,aRH(ST

BIS

MOV
Mov

(M —

023522
023524

MOV

002444
000101

—

013746
052716

—

023506
023512

5806
5807
5808
5809
5810
5811
5812
5813
5814
5815
5816
5817
5818
5819
5820
5821
5822
5823
5824
5825
5826
5827
5828
5829
5830
5831
5832
5833

MACY11

#GO!1E, (SP)

aR1,RO
aR3,RS

;GET

READY

TO MOVE

COMMAND

;GET READY TO SET 'GO' AND
;ENABLE INTERRUPT
;G0 WITH

;62 IN RHCS1 FOR WRITE HEADER AND DATA

;WITH

INTERRUPT ENABLED

;SAVE RHCS1
;SAVE RHDS1

DURING ABOVE OPERATION
DURING ABOVE OPERATION

; *ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC
023526
023530
023532
023534
023536

1064413
002300
000200
001614
001507

WAT
RHCSH

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

839.

;RDY MUST SET BETWEEN
;690 AND 17470 MICRO SECONDS

RDY
908.

;WAIT FOR RDY BIT IN RHCS1
;ALLOW 9080 MICRO SECONDS

; *COMPARE CONTENTS OF RHCS1 AND RHDST1 ALREADY SAVED IN
;*RO AND RS IMMEDIATELY AFTER GO
023540
023544
023550
023554

013746
052716
011637
022600

023556
023560
023564
023570

001405
010037
010137
104021

023572
023576
023602

012746
011637
022605

023604
023606
023612
023616

001405
010537
010337

104063

002444
004101
001124

Mov
BIS
MoV

INWRIFOR,=(SP)
#1E'GO!DVA,(SP)
(SP) ,aN$GDDAT

BEQ

64%

MOV
ERROR

R1,3¥REGADR
21

cMp

Mov

001126
004600
64%:

Mov
MoV
cmp

RO,a#$BDDAT

IE.GO.DVA

;BAD DATA

;FAILING REGISTER RHCS1
;DURING ABOVE OPERATION ONLY
; COMMAND AND IE!GO!DVA SHOULD BE SET

BEQ

MOV
ERROR

R3,3#REGADR
63

RS,aN$BDDAT

669%:

023620

;DURING ABOVE OPERATION ONLY
;AND COMMAND SHOULD BE SET
;BRANCH IF GOOD

#MOL 'DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDSI
(SP) ,a#$GDDAT
:SAVE FOR PRINTOUT
(SP)+,R5
;DURING ABOVE OPERATION ONLY MOL.DPR:@vV
; SHOULD BE SET
66%
;BRANCH IF GOOD

MOV

001126
004600

(SP)+,RO

;SAVE COMMAND
; INCLUDE IE!GO!DVA
:SAVE FOR PRINTOUT

:BAD DATA

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

; *NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
023620

023626
023626
023630
023634
023636

004037
002272
000000
004037
002274
003500

041426

0414626

RO,a#FILLRE
JSR
RHWC
0
RO,a#FILLRE
JSR
RHBA
WRFROM+<260.92>

MOV O INTO SAVED RHW(
:SAVED REGISTER TO C(HANGE
;DATA
;MOV WRFROM+<260.¢2> INTO SAVED RHBA
:SAVED REGISTER 10O CHANGE
;DATA

CIRJIDO, RPO4L/5/6 FCTINL CTLR]
28-MAR-79 09:03

CIZRJID P

5862
5863
5864
5865
5866
5867
5868
5869
5870
5871
5872
5873
5874
5875
5876
5877
5878
5879
5880

023640
023644

023646

004037
002304
000001

MACY11

110
10:30 PAGE 126

30A(1052)
25-MAY-79
133
WRITE/READ HEADER AND DATA

JSR

0461426

?HDST

RO,a#F ILLRE

SEQ 0125

(0'S)

;MOV 1

INTO SAVED RHDST

:3:¥ED REGISTER TO CHANGE

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

0046037

023654
023656
023660
023662
023664

004612
002354
000021
023666
023672

02366¢€
023670

000207

JSR

042512

RO,3#COMREG

SAVERE
w(

;PRESENT VALUE
;GO0D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM °'RHW(C'

:RETURN TO 2% ON NO ERROR

17.
1%

104027

1%:

; COMPARE SAVED REGISTERS WITH

ERROR
RTS

:17. REGISTERS TO BE COMPARED
;RETURN T0 1$ ON ERROR

;WRITE HEADER AND DATA

27
PC

;CAUSED

IMPROPER REGISTER

; CHANGE
:6G00D DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT
:WAS THERE AFTER (OMMAND

;*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT
;*NOTHING GOT CHANGED
2%:

023672

023672
023676
023700
023702
023704
023706

004037
003534
002470
000404
023710
023714

023710
023712

104030
000207

JSR
REINTO
WRFROM

043542

RO,3#COMPAR

260.
3%

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

4%
3%:

ERROR
RTS

; COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM REINTO
;TEST DATA STARTS FROM WRFROM
:RETURN TO 4% ON NO ERROR

;WRITE HEADER AND DATA
; CHANGED WRITE FROM BUFFER

30
PC

;*NOW A READ HEADER AND DATA COMMAND WILL BE

;*READ INTO BUFFER IS FILLED WITH ONES
4%:

023714

023720
023724
023726
023730

GIVEN

004737

004037
003534
000404
177777

041524

041374

JSR

REINTO

PC,a#CLD]SK

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

RO,3#CLAREA

;GIVE RH=-11 INITIALIZE
;SETUP UNIT NUMBER
;CLEAR 260. WORDS, FROM REINTC

260,
-1

;*NOW FlLL

;R3-RHDS1, R&-RHERI

;STARTING FROM REINTO

;260. WORDS
JFILL WITH -1

COMMAND

CIRJIDO, RPO4L/S/6 FCINL CTLRI
CIRJID.PIY
28-MAR-79 09:03
5918
5919
5920
5921
5922
5923
5924
5925
5926
5927
5928
5929
5930
5931
5932
5933
5934
5935
5936
5937
5938
5939
5940
5941
5942

5943

023732

023736
023740
023741
023742

004037

000000
000
000
177374

MACY 1

3$A(1052)

043476
.BYTE
.BYTE

25-MAY-79

WRITE/READ HEADER AND DATA

SEQ 0126

(0'S)

JSR
RO,aNRUN
0
0
0
=256.-4

;SETUP TO RUN FOR DATA (OMMAND
;CYLINDER O
;SECTOR O
;TRACK 0
:BUS ADDRESS

023744

003534

REINTO

023746

000000
014000

0
ECI!FMT22

023752

002450

REFOR

023750

)

J 10
10:30 PAGE 127

;WORD COUNT (DATA) = 256.
;4 HEADER WORDS

¢+

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

TO DO A REFOR

;READ HEADER AND DATA WITH 72

IN RHCSI

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

004037
002272
004612

JSR
RHWC
SAVERE

061672

RO,a#SAVER

;SAVE REGISTERS
:RHWC 1S THE FIRST REGISTER SAVED
;:STARTING ADDRESS OF WHERE
:THE REGISTERS ARE SAVED
;NUMBER OF REGISTERS

18.

023764

000022

023766

004737

061604

JSR

PC,o¥#CHECKT

023772

104401

067033

TYPE

,CPHALT

ggg?

023776

000000

5952
5953
5954
5955

024000

013777

5960
236;

024006
024012

013746
052716

002450
000101

MOV

5963
5964
5965
5966
5967
5968
5969
5970
5971
5972
5973

024016

012677

156256

MOV

(SP)+,aRHCST

;ENABLE INTERRUPT
;60 WITH

MOV
MOV

aR1,RO
aR3,RS

;SAVE RHCST DURING ABOVE OPERATION
:SAVE RHDS1 DURING ABOVE OPERATION

5944
5945
%g#g

;SAVED = 18.

004606

156260

MOV

TESTING IF

ANY OF

—
L

024022
024024

024026
024030
024032
0240346

104413
002300
000200
001614

BIS

WAT
RHCST
RDY
908.

:THE FIRST SET OF BITS DON'T =1
;STOP

ONRPLVEC,IRPVEC ;SET RPO4& VECTOR ADDRESS

;70 "TIMEY' 1F P=-CLOCK 1S PRESENT
;OR TO 'TIMEZ2' IF P=-CLOCK 1S NOT PRESENT
WILL ONLY

SAVE

;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

HALT

:CANNOT CONTINUE

:"TIME'

—

5956
5957
5958
5959

—

5949

5948

:CHECK DVA,RDY,MOL,DPR,DRY,VV = 1
:AND THAT NO STATUS BITS ARE STulK

o#REFOR,-(SP)

#GO'1E, (5P)

;GET READY TO MOVE

COMMAND

:GET READY T0 SET 'GO*' AND

;72 IN RHCST FOR READ DATA
:WITH INTERRUPT ENABLED

;WAIT FOR RDY BIT T0 SET
;WALIT FOR RHCSY REGISTER
:WAIT FOR RDY BIT IN RHCS)! REGISTER
cALLOW 9080 MICRO SECONDS

CIRJIDO, RPO&L/S5/6 FCTNL CTLRY
P11
CIRJID.P
28-MAR-79 09:03
5974
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
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016

024036

K 10

30A(1052)
25-MAY-79
10:30 PAGE 128
133
WRITE/READ HEADER AND DATA (0'S)

001507

839.

SEQ 0127

;RDY MUST SET BETWEEN

;69C AND 17470 MICRO SECONDS

; *COMPARE CONTENTS Of RHCS1 AND RHDS1 ALREADY SAVED IN
;*RO AND RS IMMEDIATELY AFTER GO
0246040
024044
024050
024054

013746
052716
011637
022600

024056
024060
024064
024070

001405
010037
010137

024072
024076
024102

012746
011637
022605

024104
024106
024112
026116

001405
010537

104021

010337

104063

002450
004101
001124

Mov

8IS
Mov
cme
BEQ

MoV
MoV
ERROR

001126
004600

010500
001124

67%:

004600

N#REFOR,-(SP)

#1E'GO'DVA,(SP)
(SP) ,a#$GDDAT
(SP)+,RO

;SAVE COMMAND

67%

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

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

MOV
CmMP

(SP)+,R5

Mov

RO,a3#$BDDAT
R1,3#REGADR
21

IE!GO:DVA

:BAD DATA
;FAILING REGISTER RH(CS1
;DURING ABOVE OPERATION ONLY
;COMMAND AND 1E'GO!DVA SHOULD BE SET
#MOL ! DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS1

BEQ
Mov
Mov
ERROR

001126

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

69%:

024120

;DURING ABOVE OPERATION ONLY MOL:DPR!vV
: SHOULD BE SET
;BRANCH IF GOOD
:BAD DATA
;FAILING REGISTER RHDS1
;:DURING ABOVE OPERATION ONLY

;MOL'!DPR!VV SHOULD BE SET

;: *CHANGE SAVED REGISTERS TO EXPECTED VALUES

024120
024124
024126
024130
024134
024136
026140

024144
024146

004037
002272
000000
004037
002274
004544
004037
002304
000001

061426

JSR

RO,a#F ILLRE

JSR

RO,a#FILLRE

RHWC
0

061426

RHBA

REINTO+<260.¢2>
JSR
RO,a#F ILLRE
?HDST

041626

:MOV 0 INTO SAVED RHW(

:SAVED REGISTER TO CHANGE
;DATA

:MOV REINTO+<260.+2> INTO SAVED RHBA
:SAVED REGISTER TO CHANGE

;DATA
;MOV 1 INTO SAVED RHDST
;SA¥ED REGISTER TO CHANGE
;:DATA

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

6017
6018
6019
6020
6021
6022
6023

024150

004037

024154
024156
024160
024162
0264164

004612
002354
000022
024160

6025
6026
6027
6028
6029

024166
024170

6024

MACY11

JSR

042512

SAVERE
]
18.
5%
6%

026172
104031

000207

RO,a#COMREG

5¢:

ERROR
RTS

: COMPARE SAVED REGISTERS WITH
;PRESENT

VALUE

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

31
PC

;READ HEADER AND DATA CAUSED
. IMPROPER REGISTER C(HANGE

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

WAS

CZRJIDO, RPO4/S5/6 FCTINL CTLR]
CIRJID.PVI
28-MAR-79 09:03
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
6043
6044
6045
6046
6047
6048
6049
6050

MACY1T

L 10
30AC1052)
25-MAY-79
10:30
PAGE 129
133
WRITE/READ HEADER AND DATA (0'S)

; THERE

AFTER

SEQ 0128
COMMAND

;*NOW READ INTO BUFFER WILL BE CHECKED TO SEE
:*THE READ WAS GOOD
6%:

024172
026172
0246176
024200
024202
024204
024206
024210
026212
024214

006037
002470

043542

003534

106032

RO,a#COMPAR

; COMPARE TWO BLOCKS OF MEMORY
;600D DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;260. WORDS TO BE COMPARED
;RETURN 10 7% ON ERROR
;RETURN TO 0% ON NO ERROR

ERROR
RTS

32
PC

;WRITE HEADER AND DATA
;FOLLOWED BY A READ HEADER

260.
7$
10%

000404
024210
026214

000207

JSR
WRFROM
REINTO

7%:

10%:

:AND DATA GAVE

;ERROR MAY BE

A READ

ERROR

IN READ OR WRITE

CIRJIDO, RPO4/5/6 FCINL CTLRI
CIRJID.P
28-MAR-79 09:03

MACY1T

6051
6052

6064

6065
6066
6067
6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082

6083
6084
6085
6086
6087
6088
6089
6090
6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
6102

6103
6104
6105
6106

m10

30A(1052)
25-MAY-79
10:30 PAGE 130
133
WRITE/READ HEADER AND DATA (0'S)

SEQ 0129

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

R
»
*

TRTEST 34

6053
6054
6055
6056
6057
6058
6059
6060
6061
6062
6063

READ DATA (0'S)

THIS TEST READS DATA WRITTEN BY THE PREVIOUS TEST
THE WRITE FROM BUFFER IS FILLED WITH ALL 0S
THE COMMAND IS FILLED, THEN ALL REGISTERS SAVED
THEN READ DATA COMMAND

1S GIVEN

ALL REGISTERS ARE COMPARED FOR PROPER VALUES
READ DATA INTO 'READ INTO' BUFFER IS CHECKED

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

024214
0264216
026222

000004
012706
012737

001000

026230

004737

041524

000034

15134
004604

SCOPE

MOov
Mov

FSTACK,SP
#34,38TSTNM

sRESET STACK
;SAVE TEST NUMBER

JSR

PC.aNCLDISK

;SET R1-RHCS1, R2-RHCS?2
;R3-RHDS1,

R&4-RHER!

;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER
;eFILL WRITE FROM BUFFER WITH EXPECTED DATA
024234
024240
024242
024244

004037
002470
000400
000000

JSR

041374

WRFROM

RO,3#CLAREA

256.
0

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

:256. WORDS
sFILL WITH O

;*NOW THE READ DATA COMMAND WILL BE FILLED
JSR

RO,3#RUN

024246
024252
024254
024255
024256
024260

004037
000000
000
000
177400
003534

024262
024264

000000
014000

0
ECI!'FMT22

024266

002446

READAT

043476
.BYTE
.BYTE

0
0
0
-256.

;SETUP TO RUN FOR DATA COMMAND

;CYLINDER O
;SECTOR 0
;TRACK 0
;WORD COUNT = 256.

REINTO

:BUS ADDRESS

;STARTING ADDRESS OF DATA

;BUFFER = REINTO

;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
.GET READY TO DO A READAT

;READ DATA WITH 70 IN RHCSI

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND
024270
024274
024276

024037
092272
004612

024300

000022

041672

JSR

RHW(C

SAVERE
18.

RO,A#SAVER

;SAVE REGISTERS

;RHWC IS THE FIRST REGISTER SAVED

;STARTING ADDRESS OF WHERE
:THE REGISTERS ARE SAVED
;NUMBER OF REGISTERS

;SAVED = 18.

CZRJIDO, RPO4/S5/6 FCINL CTLRY
CZRJID.PVY
28-MAR-79 09:03

30A(1052)
25-MAY-79 10:30
134
READ DATA (0'S)

024302

004737

041604

JSR

PC,asCHECKT

024306

104401

067033

TYPE

. CPHALT

024312

000000

024314

013777

N 10

PAGE 13!

HALT

004606

MOV

155744

SEQ 0130

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

;AND THAT NO STATUS BITS ARE STU(K = 1
s CANNOT CONTINUE TESTING IF ANY Of
:THE FIRST SET OF BITS DON'T = 1

;ST0P

#RPLVEC,BRPVEL

;SET RPO4 VECTOR ADDRESS

;70 'TIMEY® IF P-CLOCK IS PRESENT
;OR TO 'TIME2® IF P-CLOCK IS NOT PRESENT
;'TIME'

WILL ONLY

SAVE

s CURRENT CYLINDER ADDRESS

sAND LOOK AHEAD REGISTERS

024322
024326

013746
052716

002446

Mov

S#READAT,-(SP)

;GET

024332

012677

155742

MOV

(SP)+ ,3RHCST

;60 WITH

MOV
Mov

aR1,R0
aR3,R5

—

104413
002300

BIS

000101

N =

026342
024344
024346
024350
024352

—

024336
024340

6107

MACY11

#GO'1E, (SP)

TO MOVE

;70 IN RHCS1 FOR READ DATA
INTERRUPT

WAT

;WAIT

FOR RDY BIT

908.

;ALLOW 9080 MICRO SECONDS

:SAVE RHCS1
;SAVE RHDS1

839.

024372
024374

001405
010037
010137

024400
024404

104021

024406
024412
024416

012746
011637
022605

024420
024422
024426
0246432

001405
010537
010337
104063

024434

002446
004101
001124

001126
004600
010500
001124

64%:

001126
004600

S¥READAT,-(SP)

BEQ
MOV
Mov
ERROR

649
RO,3#$BDDAY
R1,3#REGADR
21

#1E'GO!DVA,(SP)
(SP) ,a#$GDDAT
(SP)+,RO

ALREADY SAVED IN

;SAVE COMMAND

;INCLUDE IE!GO'!DVA
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY [E!GO.DVA
;AND COMMAND SHOULD BE SET
;BRANCH If GOOD
:BAD DATA
sFAILING REGISTER RH(CS1
;DURING ABOVE OPERATION ONLY

MoV

; COMMAND AND 1E'!GO!DVA SHOULD BE SET
#MOL ' DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDSI

CMP

(SP)+,RS

MOV

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

8eaQ
Mov

669
RS,a#$BDDAT

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

ERROR

;DURING ABOVE OPERATION ONLY

MOV
66%:

;RDY MUST SET BETWEEN
;690 AND 17470 MICRO SECONDS

Mov

BIS
Mov
CMp

TO SET

;WAIT FOR RHCS)1 REGISTER
:WAIT FOR RDY BIT IN RHCST

;*RO AND RS IMMEDIATELY AFTER GO
013746
052716
011637
022600

ENABLED

DURING ABOVE OPERATION
DURING ABOVE OPERATION

;: *COMPARE CONTENTS OF RHCS1 AND RHDS1

024354
024360
024364
024370

COMMAND

'GO' AND

;WITH

RHCS1
RDY

000200
001614
001507

READY

:GET READY TO SET
;ENABLE INTERRUPT

R3,3#REGADR

;FAILING REGISTER RHDS]
;MOL'!DPR.VV

SHOULD BE

SET

CIRJIDO, RPO&L/S/6 FCTNL CTLR)
CZRJ1D.PV
28-MAR-79 09:03
6163
6164
6165
6166
6167

6168

6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6196
6197

6198
6199
6200

6201
6202
6203
6204
6205
6206
6207

MACYIY

25-MAY-79
10:30
3?A (1052)
34
READ DATA (0'S)

PAGE

132

SEQ 0131

; *NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
024434
024440
024442
024446
0264450
024452
024454
024460
026462

004037
002272
000000
004037
002274
004536
004037
002304
000001

04614626

JSR

RO,S#FILLRE

JSR

RO,8#F ILLRE

JSR

RO,a#FILLRE

SHU(

061626
061426

;MOV 0 INTO SAVED RHW(

;8:¥ED REGISTER TO CHANGE

;MOV REINT0+4<256.%2> INTO SAVED RHBA

RHBA
REINTO¢<256.v2>

;SAVED REGISTER TO CHANGE
;DATA

?HDS1

;SA¥§D REGISTER TO CHANGE
;DA

;MOV 1

INTO SAVED RHDST

; *NOW COMPARE REGISTERS BEFORE READ DATA WITH
:*AFTER COMMAND
024464

004037

024470
024472
024474
026476
024500

004612
002354
000022
024502
024506

024502
026504

104033
000207

JSR

042512

RO,3#(OMREG

SAVERE
w(

RTS

VALUE

:18. REGISTERS 10O BE COMPARED
;RETURN 10 1% ON ERROR

ERROR

sPRESENT

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

18.
1%

1%:

: COMPARE SAVED REGISTERS WITH

;RETURN TO 2% ON NO ERROR
33

;READ DATA CAUSED IMPROPER REGISTER
: CHANGE

;GOOD DATA GIVES WHAT SHOULD BE THERE

;RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND
BE CHECKED TO SEE THAT READ
WILL
BUFFER
:*NOW READ INTO
; *WAS GOO0D
2%:

024506

024506
024512
024514
024516
024520
024522

004037
002470
003534
000400
024524
024530

024524
024526

000207

024530

104034

JSR
WRFROM
REINTO

043542

RO,3#COMPAR

256.
3%
4%

b1 ¥
4%:

ERROR
RTS

; COMPARE TWO BLOCKS OF MEMORY
:GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

:256. WORDS TO BE COMPARED
;RETURN TO 3% ON ERROR
;RETURN TO 4% ON NO ERROR
34

;READ DATA COMMAND
;READ

INCORRECTLY

CIRJIDO, RPOL/S/6 FCTINL CTLR 1
CZRJID.PWY
28-MAR-79 09:03

6262
6263

cn
PAGE 133

3?A(1052)
25-MAY-79
10:30
34
READ DATA (0'S)

SEQ 0132

':""'"""""""""""""l"""Q"I""""'t"""""'

WRITE/READ DATA (1'S & 125252)

THIS TEST GIVES A WRITE DATA COMMAND FRO CYLINDER 0
TRACK 0, SECTOR 0, KEYS O, 200 WORDS OF ALL ONES
THIS SECTOR

]S FORMATED BY PREVIOUS TEST

THEN READ DATA COMMAND IS GIVEN FOR 256 WORDS IN

SAME CYLINDER, TRACK, SECTOR, KEYS
WRITt FROM BUFFER AND READ INTO BUFFER ARE

200 ONES AND 56 125252

THE WRITE DATA COMMAND

1S LOADED EXCEPT

FILLED WITH

GO AND

ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DATA
THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER
CHANGE, THEN WRITE FROM BUFFER |S C(HECKED FOR NO CHANGE

THEN READ INTO BUFFER IS FILLED WITH 200 OF ZEROS
AND 56 OF 377, WRITE FROM BUFFER IS FILLED WITH 200 ONES
AND 56 OF 377.
THE COMMAND EXCEPT GO IS LOADED,
GO 1S GIVEN

ALL REGISTERS ARE

SAVED

we
%e

2L 2R

SeTEST 35

®e

6208
6209
6210
6211
6212
€213
6214
6215
6216
6217
6218
6219
6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238
6239
6240
6241
6242
6243
6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261

MACY1Y

ALL REGISTERS ARE
READ DATA

CHECKED

SRAZXZE2222Z2233222222323023222222222222322220R22RRRRRRRRRRRRRRARR)

024530
024532
026536

000004
012706
012737

001000
000035

024544

004737

041524

1S135:
004604

SCOPE

Mov

#STACK,SP

Mov

#35,90TSTNM

JSR

PC.,a#CLDISK

;RESET

;SAVE

STACK

TEST NUMBER

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

:R3-RHDST, R4&=-RHERI

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*NOW FILL WRITE FROM BUFFER -200 OF
024550
0246554
024556
024560

004037
002470
000310

041374

024562
024566
024570
024572

004037
003310
000070

041374

JSR

WRFROM

RO,3#CLAREA

c00.
-1

177777

125252

;CLEAR 200. WORDS, FROM WRFROM
;STARTING FROM WRFROM

:200. WORDS
SFILL WITH =1

RO,a#CLAREA
JSR
WRFROM+<200,*2>
56.
125252

125252

1'S AND 56 OF

;CLEAR 56. WORDS, FROM WRFROM+<200.#2>
;STARTING FROM WRFROM+<200.%2>
:56. WORDS
SFILL WITH 125252

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS

;tWRITE FROM BUFFER SO THAT AFTER A WRITE COMPAR]SONS
;*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER

024574

004037

061374

JSR

RO,a#CLAREA

;CLEAR 200. WORDS, FROM REINTO

CIRJIDO, RPO&L/S5/6 FCTINL CTLRY
CIRJ1D.PY
28-MAR-79 09:03
6264
6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284

6285
6286
6287
6288
6289
6290

024600
024602
024604

003534

024606
0246612

004037
004354
000070

024614
024616

MACYT1

REINTO

JSR

061374

;200. WORDS
SFILL WITH =1

RO,a#CLAREA

REINT0+<200.22>
56.
125252

125252

SEQ 0133

:STARTING FROM REINTO

200.
-1

000310
177777

;CLEAR 56. WORDS, FROM REINT0+<200.¢2>
:STARTING FROM REINT0+<200.¢2>
:56. WORDS
SFILL WITH 125252

;*NOW WRITE DATA COMMAND WiLL BE LOADED
JSR
0
0
0
-200.

024620
024624
024626
024627
024630
0264632

004037
000000
000
000
177470
002470

024634
024636

000000
010000

024640

002442

WRIDAT

043476

RO,a3#RUN

;SETUP T0O RUN FOR DATA (OMMAND
;CYLINDER O
;SECTOR 0
;TRACK O
;WORD COUNT = 200.

WRFROM

:BUS ADDRESS

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

FMT22

6291
6292

;16 BITS PER WORD FORMAT

;00 NOT INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE

;GET READY T0 DO A WR]DAT
;WRITE DATA WITH 60 IN RH(CSI

:*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA

6293

6294
6295

HER R

30A(1052)
25-MAY-79
10:30 PAGE 134
135
WRITE/READ DATA (1°'S £ 12525¢2)

024642
024646
024650

004037
002272
004612

JSR
RHWC
SAVERE

041672

RO,3#SAVER

;THE REGISTERS ARE SAVED

18.

;NUMBER OF

024652

000022

024654

004737

041604

JSR

PC,aNCHECKT

024660

104401

067033

TYPE

LCPHALT

0246664

000000

024666

013777

155372

Mov

REGISTERS

:SAVED = 18.

HALT

004606

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

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

;AND THAT NO STATUS BITS ARE STUCK =
:CANNOT CONTINUE TESTING I1F ANY OF

:THE FIRST SET OF BITS DON'T = 1
:STOP

a#RP4VEC,RPVEC ;SET RPO4& VECTOR ADDRESS
;10

"TIMEY'

;OR 1O 'TIME2'
:'TIME'

P-CLOCK

IS PRESENT

IF P-CLOCK IS NOT PRESENT

WILL ONLY

SAVE

s CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
024674
024700

013746
052716

002442
000101

Mov

SFWRIDAT ,-(SP)

024704

012677

155370

MOV

(SP)¢,aRHCS]

BIS

0G0 1E, (SP)

;GET

READY

TO MOVE

COMMAND

;GET READY TO SET °'GO' AND
;ENABLE INTERRUPI
;60 WITH

6371
6372
6373
6374
6375

30A(1052)
1
25-MAY-79
135
WRITE/READ DAY

MOv
Mov

»0

MACY11

—

e —

0264710
024712

—

6320
6321
6322
6323
6326
6325
6326
6327
6328
6329
6330
6331
63352
6333
6334
6335
6336
6337
6338
6339
6340
6341
6342
6343
6344
6345
6346
6347
6348
6349
6350
6351
6352
6353
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
6368
6369
6370

CIRJIDO, RPO4L/S/6 FCTINL CTLRI
CIRJID.PIY
28-MAR-79 09:03

:30
(\

aR1,R0
aR3,RS

SEQ 0134

;60 IN RHCS! FOR WRITE DATA
;W]lTH INTERRUPT ENABLED
;SAVE RHCS1
;SAVE RHDS1

DURING ABOVE OPERATION
DURING ABOVE OPERATION

;*ONE REVOLUTION = 16670 MICRO SEC, ONE SECTOR=760 MICRO SEC
0247146
024716
024720
024722
024724

WAT

104413
002300
000200
001614
001507

;WAIT

RHCST
RDY
908.
839.

FOR RDY BIT

10 SET

;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BJT IN RH(S1
;ALLOW 9080 MICRO SECONDS
¢RDY MUST SET BETWEEN

;690 AND 17470 MICRO SECONDS

; *COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN
:*RO AND RS IMMEDIATELY AFTER GO
024726
024732
024736
024742

013746
052716
011637
022600

024744
024746
024752
024756

001405
010037
010137
104021

024760
024764
024770

022605

024772
024776
025000
025004

001405
010537
010337
1064063

012746

011637

002442
004101
001124

aNWRIDAT,=(SP)

;SAVE

Mov
cMp

(SP) ,a#S8GDDAT
(SP)+,RO

;SAVE FOR PRINTOUT
;:DURING ABOVE OPERATION ONLY 1E.GO:DVA
;AND COMMAND SHOULD BE SET

BIS

001126
004600

010500
001124

MOV

64%:

66%
RO,a#$BDDAT
R1,9#REGADR
21

MOv

#MOL !DPR!VV,=(SP)

cmp

(SP)+,RS

BEQ

66%

MOv
ERROR

R3,a#REGADR
63

MOV

(SP) ,a#$GDDAT

RS,a#$BDDAT

66%:

025006

; *NOW CHANGE

025006
025012
025014
025016
025022
025024
025026
025032
025034

004037
002272
000000
004037
002274
003310
004037
002304
000001

061426
061426
061626

;INCLUDE

BEQ
MOV
MOV
ERROR

MOV

001126
004600

#MIE!GO!DVA,(SP)

IE!GO'!DVA

:BRANCH If GOOD
:BAD DATA
sFAILING REGISTER RH(CS!
;DURING ABOVE OPERATION ONLY
; COMMAND AND 1E!GO!DVA SHOULD BE
;SAVE FOR PRINTOUT

;DURING ABOVE OPERAT]ON ONLY MOL'!DPRIVV
; SHOULD BE SET
;BRANCH IF
:BAD DATA

GNOD

;FAILING REGISTER RHDSI
;DURING ABOVE OPERATION ONLY

sMOL'!DPR!VV

SHOULD BE

SET

RO,a#F ILLRE

JSR

RO,a#F ILLRE

RHBA
WRFROM+<200.¢2>
RO,a#FILLRE
JSR
?HDSI

;MOV O INTO SAVED RHW(

:g:¥ED REGISTER 1O CHANGE
:

;MOV WRFROM+<200.+¢> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE

;DATA
SAVED RHDST
INTO
1
;MOV
:g:¥ED REGISTER TO CHANGE

; *NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS

025036

004037

062512

SET

;SAVE BITS SET DURING OPERATION IN RHDS!

SAVED REGISTERS TO EXPECTED VALUE

JSR

SHUC

COMMAND

;*AFTER

COMMAND

JSR

RO,a#COMREG

. COMPARE SAVED REGISTERS WlTH

CIRJIDO, RPO&4/S/6 FCINL CTLRI
28-MAR-79 09:03

CIRJ1ID P11

6376
6377
6378
6379
6380
6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
6391
6392
6393
6394
6395
6396
6397
6398
6399
6400
6401
6402
6403
6404
6405
6406
6407
6408
6409
6410

6411
6412

6413
6414
6415
6416
6417
6418
6419
6420
6421
6422
6423
6424
6425
6426
6427
6428
6429
6430
6431

025042
025044
025046
025050
025052

004612
002354
000022
025054
025060

025054
025056

104035
000207

MACYN

F 1
SQA (1052)
25-MAY-79
10:30 PAGE 136
WRITE/READ DATA (1'S § 123252)
35
;PRESENT

SAVERE
Wi

;18. REGISTERS TO BE COMPARED
;RETURN TO 18 ON ERROR

ERROR
RTS

VALUE

;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘'RHWC'

18.
1%

1%:

SEQ 0135

;RETURN T0 2% ON NO ERROR
35
PC

;WRITE DATA COMMAND CAUSED
; IMPROPER REGISTER CHANGE

:ggOD DATA GIVES WHAT SHOULD
;RECEIVED DATA GIVES WHAT WAS
; THERE AFTER COMMAND

;*NOW WRITE FROM BUFFER WiLL BE CHECKED FOR NO CHANGE
2%:

025060
025060
025064
025066
025070
025072
025074

004037
003534
002470
000400
025076
025102

025076
025100

000207

JSR
REINTO
WRFROM

043542

RO,a”COMPAR

256.
3%
4%

ERROR

1064036

RTS

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

;RETURN T0 3% ON ERROR

;RETURN T0 4% ON NO ERROR

;WRITE DATA COMMAND CHANGED

;WRITE

FROM BUFFER

;*NOW A READ DATA COMMAND WILL BE GIVEN

;*FILL READ INTO BUFFER WITH 200 ZEROS AND 56 OF 377
4%:

025102
025102

025130

004737

061524

004037
003534
000310
000000

041374

004037
004354
000070
000377

041374

JSR

PC,a#CLDISK

JSR

RO,3#CLAREA

REINTO

200.
0

JSR

:SET R1-RHCS1, R2-RHCS?2
;R3-RHDS1, R&-=RHERI
;GIVE RH=-11 INITIALIZE
;SETUP UNIT NUMBER
;CLEAR 200. WORDS, FROM REINTO
;STARTING FROM REINTO

:200. WORDS
SFILL WITH O

RO,3#CLAREA

REINT0+<200.%2>
56.
377

;CLEAR 56. WORDS, FROM REINT0+¢<200.+¢>
;STARTING FROM REINTO0+<200.+2>
:56. WORDS

sFILL WITH 377

;eFILL WRITE FROM BUFFER WITH 200 ONES AND 56 OF
025132
025136
025140
025142

004037
002470
000310
177777

041374

JSR

WRFROM
200.
-1

RO,3NCLAREA

377

;CLEAR 200. WORDS, FROM WRFROM

;STARTING FROM WRFROM
:200. WORDS
JFILL WITH <]

CIRJIDO, RPO4/S/6 FCINL CTLRI
CIRJID.PIY
28-MAR-79 09:03
6432

64633
64636
6435
66436

6637
6438
6439
64640
64641
6442

6443
66464
6445
6466
6447
6448

6449

6450
6651
6452
6453
64654
6455

025144
025150
025152
025154

004037
003310
000070
000377

MACY11

025156
025162
025164
025165

043476

003534

025172
025174

000000
014000

0
ECI'FMT22

025176

0024646

READAT

BYTE
BYTE

177470

025210

000022

6467
6468
64669
6470

025212

004737

041604

025216

104401

067033

o«;;

025222

000000

6473
64674
6475
6476
6477
6478

025224

013777

004606

6481

025232

013746

002446

6483
6484
6485
6486

6487

PAGE

137

;CLEAR 56. WORDS, FROM WRFROM+<200.%2>
:STARTING FROM WRFROM+<200.¢2>
:56. WORDS
SFILL WITH 377

RO,a#RUN

;SETUP TO RUN FOR DATA (OMMAND
;CYLINDER 0
;SECTOR 0
;TRACK 0

:WORD COUNT = 200.
:BUS ADDRESS
;STARTING ADDRESS OF DATA

;BUFFER = REINTO

;D0 NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
:DO NOT INHIBIT HEADER COMPARE
:GET READY TO DO A READAI
:READ DATA WITH 70 IN RHCS)

:*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA (OMMAND

004037
002272
004612

66482

6 11

WRITE/READ DATA (1°S £ 125252)

JSR
0
0
O
-200.
REINTO

025166
025170

004037
000000
000
000

025200
025204
025206

6479
6480

10:30

;*NOW FILL COMMAND

6460
6661
6662
6463
6464
6465

25-MAY-79

JSR
RO,3NCLAREA
WRFROM+<200.¢2>
56.
377

oagg

64666

135

041374

6656
6457
64

30A(1052)

025236

052716

025242

012677

025246

011100

041672

JSR
RHWC
SAVERE

RO,a#SAVER

:SAVE REGISTERS
:RHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS
:SAVED = 18.

JSR

PC,aNCHFCKT

TYPE

LCPHALT

:CHECK DVA,RDY,MOL,DPR,DRY,VV = 1
;AND THAT NO STATUS BITS ARE STuCk - 1
:CANNOT CONTINUE TESTING IF ANY OF
:THE FIRST SET Of BITS DON'T =1

18.

HALT

000101

155032

155034

;STOP

MOV

S¥RPLVEC,3RPVEC ;SET RPO4 VECTOR ADDRESS
;10 *TIMEY' IF P-CLOCK IS PRESENT
:OR TO '"TIME2' IF P-CLOCK 1S NOT PRESENT
;"TIME® WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

MOV

SNREADAT,=(SP)

BIS

#GO'1E, (SP)

MOy

(SP)+,3RHCST

MoV

aR1,RO

:GET READY TO MOVE COMMAND

:GET READY TO SET °'60' AND

;ENABLE INTERRUPT
;60 WITH
;70 IN RHCSY FOR READ DATA
:WITH INTERRUPT ENABLED

:SAVE RHCS! DURING ABOVE OPERATION

SEQ 0136

CIRJIDO, RPO4/S5/6 FCINL CTLR)
CIRJID.PY 1
28-MAR-79 09:03
6488
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

MACY11

H 11
30A(1052)
25-MAY-79
10:30 PAGE 138
135
WRITE/READ DATA (1°'S B 125252)
aR3,RS

SEQ 0137

025250

011305

Mov

025252
025254
025256
025260
025262

002300
000200
001614
001507

1064413

WAT
RHCST
RDY

;WAIT
;WAIT
;WAIT

839.

;RDY MUST SET BETWEEN
;690 AND 17470 MICRO SECONDS

908.

;SAVE RHDS1

DURING ABOVE OPERATION

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

;ALLOW 9080 MICRO SECONDS

;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN
:*RO AND RS IMMEDIATELY AFTER GO
025264
025270
025274
025300

013746
052716
011637
022600

025302
025304
025310
025314

001405
010037
010137

025316
025322
025326

012746
011637
022605

025330
025332
025336
025342

001405

104021

010537
010337
106063

MOV

002446
004101
001124

BIS
MOV
Cmp

BtaQ
Mov

001126
004600
010500
001124

MOV
ERROR

67%:

004600

67%

RO,a3#$BDDAT

R1,a#RECADR
21

0461426
0461426
061626

COMMAND

;INCLUDE IE!GO'!DVA
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY
;AND COMMAND SHOULD BE SET

]£E.GO.DVA

:BRANCH 1F GOOD
:BAD DATA

;FAILING REGISTER RHCSI
;DURING ABOVE OPERATION ONLY

cme

(SP)+,RS

BEQ

69%

Mov
ERROR

R3,3#REGADR
63

Mov

; *CHANGE

004037
002272
000000
004037
002274
004354
004037
002304
000001

;SAVE

MOov

(SP) ,a#$GDDAT

RS ,a#$BDDAT

69%:

025344

025344
025350
025352
025354
025360
025362
025364
025370
025372

FIE!GO!DVA,(SP)
(SP) ,a#SGDDAT
(SP)+,RO

; COMMAND AND JE!GO!DVA SHOULD BE SET
#MOL ! DPRIVV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDSI

MOV

001126

A#READAT,=(SP)

RO,a#F ILLRE

JSR

RO,aNMF ILLRE

JSR

RO,a#F ILLRE

RHBA
REINTO+<200.2>

?HDS1

FOR PRINTOUT

;DURING ABOVE OPERATION ONLY MOL !DPR.vVV

; SHOULD BE SET
;BRANCH IF
;BAD DATA

GOOD

;FAILING REGISTER RHDSI
;DURING ABOVE OPERATION ONLY
;MOL'!DPR!VV

SHOULD BE

SET

SAVED REGISTERS TO EXPECTED VALUES

JSR

RHW(
0

:SAVE

;MOV O INTO SAVED RHW(

:SAVED REGISTER TO CHANGE
;DATA

MOV REINT0+<200.¢2> INTO SAVED RHBA
:SAVED REGISTER TO C(MANGE
:DATA

;MOV 1

INTO SAVED RHDST

:SA¥ED REGISTER TO CHANGE
;DA

; *COMPARE REGISTERS BEFORE READ DATA C(OMMAND
;*WITH REGISTERS AFTER COMMAND
025374

004037

025400
025402
0254064
025406

004612
002354
000022
025412

042512

JSR

SAVERE
w(
18.
5%

RO,a#COMREG

: COMPARE SAVED REGISTERS WlTH
;PRESENT VALUE
;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘RHW('
;18. REGISTERS 1O BE COMPARED
;RETURN T0 5% ON ERROR

(IRJIDO, RPO4L/S/6 FCINL CTLR]
28-MAR-79 09:03

CZRJ1D.PY

6544
6545
65646
6547
6548
6549
6550
6551
6552
6553
6554

0955
6556
6557
6558
6559
6560
6561
6562
6563
6564
6565
6566
6567
6568
6569
6570

025410

025416

0256412
025414

104033
000207

MACY11

I 1N

30A(1052)
25-MAY-79
10:30 PAGE 139
135
WRITE/READ DATA (1°'S § 12>252)

6%
5¢:

ERROR
RTS

SEQ 0138

;RETURN TO 6% ON NO ERROR
33

;READ DATA CAUSED IMPROPER
;REGISTER

CHANGE

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

COMMAND

;*NOW READ INTO BUFFER [S CHECKED FOR GOOD READ
6%:

025416

025416
025422
025624
025426
025430
025432

004037
002470
003534
000400
025434
025440

025434
025436

000207

025440

106034

JSR

043542

WRFROM
REINTO

RO,a# COMPAR

256.

;RETURN 10 7% ON ERROR

10%

10%:

ERROR
R1S

TWw0O BLOCKS OF MEMORY

;600D DATA STARTS FROM WRFROM
sTEST DATA STARTS FROM REINTO

;256. WORDS TO BE (OMPARED

7%:

; COMPARE

;RETURN TO

10% ON NO ERROR

; INCORRECT DATA AFTER
;WRITE

READ

DATA FOLLOWED BY

DATA

CIRJIDO, RPO&L/S5/6 FCTINL CTLR)
CZRJID.PIY
28-MAR-79 09:03

MACY11

6571
6572
6573
6574
6575
6576
6577
6578
6579
6580
6581
6582
6583
6584
6585
6586
6587
6588
6589
6590
6591
6592
6593
6594
6595
6596
6597

6598
6599
6600
6601
6602
6603
6604
6605
6606

6607
6608
6609
6610
6611
6612
6613
6614
6615
6616

6617
6618
6619
6620
6621
6622
6623
6624
6625
6626

J 1

30A(1052)
25-MAY-79
10:30
PAGE
136
WRITE/READ DATA (125252)

140

SeaQ 0139

';"""'!""""""""""'""""l"l"""l"t'l'l""""

WRITE/READ DATA (125252)

W
e
B
Go
e
Ve

R
PR

TRACK O, SECTOR 0, KEYS O, 256 WORDS OF
THIS SECTOR

1S FORMATED BY PREVIOUS

THEN READ DATA COMMAND

TEST

125252

IS GIVEN FOR 256 WORDS

SAME CYLINDER, TRACK, SECTOR, KEVYS
WRITE FROM BUFFER AND READ INTO BUFFER ARE

256 OF

125252

FILLED WITH

THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE
ALL REGJSTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE

DATI

Ve
Ve

¥
RN

Ve
B

%
W

We
Ve

%
R

B
»

We
Be

THIS TEST GIVES A WRITE DATA COMMAND FOR CYLINDER 0

THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER
CHANGE, THEN WRITE FROM BUFFER 1S CHECKED FOR NO CHANGE

®e

NSNS

SYTEST 36

THEN READ

WRITE

256 OF

INTO BUFFER

FROM BUFFER

125252

IS FILLED WITH 256 OF

IS FILLED WITH

THE COMMAND EXCEPT GO 1S LOADED,

IS GIVEN

ZEROS

ALL REGISTERS ARE

SAVED

ALL REGISTERS ARE CHECKED
READ DATA IS CHECKED

B 22222222222
RAZR
R
AR RRRRRRRRRARRRREREREN)

025440
025642
025446

000004
012706
012737

001000
000036

025654

004737

041524

15136:
004604

SCoPE
Mov
Mov

#STACK,SP
N36,371STNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC,a#CLDISK

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

R4-RHER!

;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER
;*NOW FILL WRITE FROM BUFFER - 256 OF
025460
025664
025466
025470

004037
002470

061374

JSR

WRFROM

RO,a#CLAREA

256.
125252

000400
125252

125252

;CLEAR 256, WORDS, FROM WRFROM
;STARTING FROM WRFROM

;256. WORDS
JFILL WITH 125252

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS
;*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPAR]SONS

;*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER
025472
025476
025500
025502

004037
003534
000400
125252

047374

JSR

REINTO

256.
125252

RO,3#CLAREA

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

:256. WORDS
JFILL WITH 125252

;*NOW WRITE DATA COMMAND WILL BE LOADED

CIRJID0, RPOL/S/6 FCINL CTLRI

(ZRJ1D.P1Y
6627
6628

28-MAR=-79 09:03

MACYYIT 30AC1052)

25-MAY-79

.BYTE
.BYTE

025504
025510
025512
025513

004037
000000
000
000

6634
6635
6636

025516

002470

JSR
0
0
0
-256.
WRFROM

025520
025522

000000
010000

0
FM122

025524

002442

WRIDAT

6637
6638
6639
6640
6641
6642

025514

043476

177400

RO,a#RUN

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

;WORD COUNT = 256.

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

;D0 NOT INMIBIT BUS ADDRESS INCREMENT
:16 B1TS PER WORD FORMAT
;00 NOT INKIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
:GET READY 170 DO A WRIDAT
;WRITE DATA WITH 60 IN RH(CSI

6643

6644

:*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA

ggzz
6647
6648
6649
6650
6651

025526
025532
025534

004037
002272
004612

025536

000022

6654
6655
6656
6657

025540

004737

041604

JSR

PC,aNCHECKT

025544

104401

067033

TYPE

,CPHALT

6228

025550

000000

6660
6661
6662
6663
6664
6665

025552

013777

004606

025560
025564

013746
052716

025570

012677

025574
025576

(011100
011305

gg;g

PAGE 141

WRITE/READ DA (125252)

6629
6630
6631
663¢

6633

0:30

136

061672

JSR
RHWC
SAVERE

RO,3#SAVER

18.

;SAVE REGISTERS
:RHWC 1S THE FIRST REGISTER SAVED
:STARTING ADDRESS OF WHERE
:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS

;SAVED = 18.

:CHECX DVA,RDY,MOL,DPR,DRY,VV = 1
:AND THAT NO STATUS BITS ARE STUCK = 1
:CANNOT CONTINUE TESTING I1F ANY OF
:THE FIRST SET OF BITS DON'T -

:STOP

HALT

MOV

INRPLVEC,BRPVEC ;SET RPO4 VECTOR ADDRESS
;10 "TIMET® IF P=-CLOCK ]S PRESENT
;OR TO 'TIME2' IF P=CLOCK ]S NOT PRESENT
;"TIME' WILL ONLY SAVE
:CURRENT CYLINDER ADDRESS
sAND LOOK AMEAD REGISTERS

002442
000101

MOV
B81S

SNWRIDATY,-(SP)
#GO'1E, (SP)

154506

MOV

(SP)+,a3RH(SI

MOV
MOV

aR1,R0
aR3,.RS

154506

6666

6667

6668
6669
6670

6671
6672
6673
6674
66;5

6676

6680
6681
6682

;60 WITH
:60 IN RHCSY FOR WRITE DATA
:WITH INTERRUPT ENABLED
:SAVE RHCS1 DURING ABOVE OPERATION
;:SAVE RHDS1 DURING ABOVE OPERATION

:*ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 MICROSEC

6677

6678
6679

:GET KREADY TO MOVE (OMMAND
:GET READY TO SET 'GO' AND
;ENABLE INTERRUPT

025600
025602
025604

104413
002300
000200

WAT
RHCST
RDY

:WAL1T FOR RDY BIT 10O SET
:WAIT FOR RHCS! REGISTER
;WALT FOR RDY BIT IN RHCSY REGISTER

SEQ 0140

CIRJIDO, RPO4L/S5/6 FCINL CTLR]
CIRJID P
28-MAR-79 09:03
6683
6684
6685
6686
6687
6688
6689
6690
6691
6692

6693
6694
6695

6696
6697
6698
6699
6700
6701
6702
6703
6704
6705
6706
6707
6708
6709
6710
6711
6712
6713
6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726

6727
6728

6729
6730
6731

6732
6733
6734
6735
6736
6737
6738

025606
025610

MACY1Y

L i

3?A(1052)
25-MAY-79
10:30
PAGE
WRITE/READ DATA (125252)
36

001614
001507

908.
839.

142

SEQ 0141

;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

;690 AND 17470 MICRO SECONDS

:*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN
:*RO AND RS IMMEDIATELY AFTER GO
025612
025616
025622
025626

013746
052716
011637
022600

025630
025632
025636
025642

001405
010037
010137

025644
025650
025654

012746
011637
022605

025656
025660
025664
025670

001405
010537
010337

104021

1064063

002442
004101
001124

8MWRIDAT,-(SP)

;SAVE

COMMAND

MOV

(SP) ,a#3GDDAT

:SAVE

FOR PRINTOUT

BIS

001126
004600
010500
001124

Mov

cmp

(SP)+,RO

8tQ
MoV

649
RO,a#$BODAT

ERROR

MoV
64%:

R1,9#REGADR

004037
002272
000000
004037
002274
003470
004037
002304
000001

(SP) ,a#$GDDAT

BEQ

669

MOV

R3,3#REGADR

RS.,aN$BDDAT

;FAILING REGISTER RH(CS1

RO,a#F ILLRE

JSR

RO,a#F ILLRE

JSR

RO,a#fF ILLRE

?HDSI

;SAVE

FOR PRINTOUT

;DURING ABOVE OPERATION ONLY MOL:DPR:vVV
: SHOULD BE SET
;BRANCH If GOOD

:BAD DATA

;FAILING REGISTER RHDSI

;DURING ABOVE OPERATION ONLY
SET

SAVED REGISTERS TO EXPECTED VALUE

RHBA
WRFROM+<256.¢2>

0641426

:BAD DATA

;MOL!DPR!VY SHOULD BE

JSR

SHUC

061426

]E!GO:!DVA

(SP)+,RS

ERROR

061426

;:DURING ABOVE OPERATION ONLY
;AND COMMAND SHOULD BE SET
:BRANCH 1F GOOD

CMpP

Mov

;*NOW CHANGE

025672
025676
025700
025702
025706
025710
025712
025716
025720

IE!GO'DVA

Mov

€6%:

025672

;INCLUDE

:DURING ABOVE OPERATION ONLY
; COMMAND AND JE'!GO!DVA SHOULD BE SET
#MOL !DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS!

MOV

001126
004600

#1E!GO'DVA,(SP)

;MOV 0 INTO SAVED RHW(

;SA¥ED REGISTER TO C(HANGE
;DA

MOV WRFROM+<256.+2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE
;DATA

:MOV 1 INTO SAVED RHDST

:g:¥50 REGISTER TO CHANGE

;*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS

025722

004037

025726
025730
025732
025734
025736

004612
002354
000022
025740
025744

025740
025742

104035

000207

042512

;*AFTER

COMMAND

JSR

RO,aN#COMREG

SAVERE
Wl
18.
1%

ERROR
RTS

VALUE

;600D DATA SAVED IN ‘'SAVERE'
;TEST DATA STARTING FROM 'RHW(’
;18. REGISTERS TO BE COMPARED
;RETURN TO 1$ ON ERROR

;RETURN TO 2% ON NO ERROR

2%
1%:

; COMPARE SAVED REGISTERS WITH

sPRESENT

:WRITE DATA COMMAND CAUSED
. IMPROPER REGISTER CHANGE
:ggOD DATA GIVES WHAT SHOULD

CIRJIIDO, RPO4/S5/6 FCINL CTLRY
CZRJID.PIY
28-MAR- 79 09:03
6739
6740
6761
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
6784
6785
6786
6787
6788
6789
6790
6791
6792
6793
6794

MACY11

30A(1052)
25-MAY-79
10:30 PAGE
136
WRITE/READ DATA (125252)

143

SEQ 0142

;RECEIVED DATA GIVES WHAT WAS
; THERE

AFTER

COMMAND

;*NOW WRITE FROM BUFFER WILL CHECKED FOR NO CHANGE
2%:

025744

025744
025750
025752
025754
025756
025760

004037
003534
002470
000400
025762
025766

025762
025764

104036
000207

043562

JSR

REINTO
WRFROM

RO,a#COMPAR

256.
3%

ERROR
RTS

MEMORY

;256. WORDS TO BE COMPARED
;RETURN TO 3% ON ERROR

3%:

; COMPARE TWO BLOCKS OF

;600D DATA STARTS FROM REINTO
;TEST DATA STARTS FROM WRFROM

;RETURN T0 4% ON NO ERROR

;WRITE DATA COMMAND CHANGED
;WRITE

FROM BUFFER

;*NOW A READ DATA COMMAND WILL BE GIVEN

;*F1LL READ INTO BUFFER WITH 256 ZEROS
4%

025766
025766

025772
025776
026000
026002

004737

004037
003534
000400
000000

JSR

041524

JSR

041374

REINTO

PC,aNCLDISK

:SET R1-RHCST, RZ2-RHCS?2

RO,a#CLAREA

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
:CLEAR 256. WORDS, FROM RFINTO

256.
0

:R3-RHDS1,

R4-RHER1

:STARTING FROM REINTO

:256. WORDS
sFILL WITH O

;eFILL WRITE FROM BUFFER WITH 256 OF 125252
026004
026010
026012
026014

004037
002470
000400
125252

JSR

041374

WRFROM

RO,a3#CLAREA

256.
125252

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

:256. WORDS
JFILL WITH 125252

;*NOW FILL COMMAND
026016
026022
026024

026025
026026
026030
026032
026034

004037

000000
000
000
177400

003534

00000
014000

043476
.BYTE
.BYTE

JSR
0
0
0
-256.

RO,3#RUN

REINTO

0
ECL!FMT22

;SETUP TO RUN FOR DATA (OMMAND
;CYLINDER O
;SECTOR O
;TRACK O
;WORD COUNT = 256.
;BUS ADDRESS
:STARTING ADDRESS OF DATA
= REINTO
:BUFFER

;D0 NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMA1
T
;INHIBI ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE

CIRJIDO, RPO4L/S5/6 FCTINL (LR
CZRJID.P
28-MAR-79 09:03

6840
6841
6842

6843
6844
6845

6846

6847
6848
6849
6850

N1
PAGE
WRITE/READ NDATA (125252)

25-MAY=-79

10:30

144

SEQ 0143

;GET READY

TO DO A READAT

cREAD DATA WITH 70 IN RHCSI

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA (OMMAND
026040
026044
026046

004037
002272
004612

026050

000022

026052

004737

041604

JSR

PC,a¥#CHECKT

026056

104401

067033

TYPE

L(PHALT

026062

000000

026064

013777

041672

JSR
RHWC(
SAVERE

RO,a#SAVER

:NUMBER OF

154174

MOV

REGISTERS

:SAVED = 18.

HALT

004606

;SAVE REGISTERS
;RHWC 1S THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE

:THE REGISTERS ARE SAVED

18.

:CHECK DVA,RDY,MOL,DPR,DRY,
vV = 1
:AND THAT NO STATUS BITS ARE STuCk =1
;CANNOT CONTINUE TESTING IF ANY OF
;THE FIRST SET OF BITS DON'T = 1

;STOP

O#RPLVEC,aRPVEC

:SET RPO4 VECTOR ADDRESS
;10

"TIMEY'

P-CLOCK

IS PRESENT

;OR TO 'TIME2' IF P=-CLOCK IS NOT PRESENT
;'TIME' WILL ONLY SAVE

:CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
013746
052716

002446
000101

MOV

#READAT,-(SP)

;GET

026102

012677

154172

MOv

(SP)+,aRHCS1

;60 WITH

—

026072
026076

026106
026110

026112
026114

104413
002300
000200
001614
001507

026116

026120
026122

BIS

MoV
Mov

LN —e

6805
6806
6807
6808
6809
6810
6811
6812
6813
6814
6815
6816
6817
6818
6819
6820
6821
6822
6823
6824
6825
6826
6827
6828
6829
6830
6831
6832
6833
6834
6835
6836
6837
6838
6839

30A(1052)

READAT

002446

—-—

6802
6803
6804

026036

6795
6796
6797
6798
6799
6800
6801

MACY11

#GO!IE, (SP)

aR1,RO
aR3,RS

WAT

RHCST
RDY
908.
839.

READY

TO MOVE

COMMAND

;GET READY TO SET 'GO' AND
;ENABLE INTERRUPT

;70 IN RHCS1 FOR READ DATA

;WITH

INTERRUPT

sWAIT

FOR RDY BIT

:SAVE RH(CS1
:SAVE RHDS1

ENABLED

DURING ABOVE OPERATION
DURING ABOVE OPERATION
TO SET

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

;690 AND 17470 MICRO SECONDS

;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN
:*RO AND RS IMMEDIATELY AFTER GO
026124
026130
026134
026140

013746
052716
011637
022600

026142
026144
026150
026154

001405
010037
010137
104021

002446
004101
001124

001126
004600

MOV

SNREADAT ,-(SP)

MOV

(SP) ,a#$GDDAT

B1S

cmp

BEQ

Mov

Mov
ERROR

N1E'GO'DVA,(SP)

;SAVE COMMAND

;INCLUDE IE!GO!DVA
;SAVE FOR PRINTOUT

67%

:DURING ABOVE OPERATION ONLY (E!GO.DVA
:AND COMMAND SHOULD BE SET
;BRANCH 1F GOOD

R1,3#REGADR
21

;FAILING REGISTER RHCSH
;DURING ABOVE OPERATION ONLY

(SP)+,RO

RO,a#$BDDAT

;BAD DATA

6851
6852
6853
6854
6855
6856
6857
6858
6859
6860

6861
6862
6863
6864
6865
6866
6867
6868
6869
6870
6871
6872

6873

6874
6875
6876
6877
6878
6879
6880
6881
6882
6883
6884
6885
6886
6887
6888
6889
6890
6891
6892
6893
6894
6895
6896
6897

6898
6899
6900
6901
6902
6903
6904
6905
6906

026156
026162
026166

012746
011637
022605

026170
026172
026176
026202

001405
010537
010337

106063

B 12

30A(1052)
25-MAY=79
10:3) PAGE
136
WRITE/READ DATA (125252)
67%:

026204

145

SEQ 014¢

; COMMAND AND

IE'!GO!DVA SHOULD BE

SET

MoV

#MOL ! DPR!VV,=(SP)
(SP) ,a#$GDDAT
(SP)+,RS

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY MOL':!DPR!vVV

BEQ

69%

;BRANCH [Ff

ERROR

Mov
cme
Mov
Mov

001126
004600

MACYT1

RS,3#$BODAT
R3,3#REGADR

69%:

;SAVE BITS SET DURING OPERATION IN RHDSI

; SHOULD BE SET

GOOD

;BAD DATA
;FAILING REGISTER RHDSI

:DURING ABOVE OPERATION ONLY
;MOL'DPR!VV SHOULD BE SET

:*CHANGE SAVED REGISTERS TO EXPECTED VALUES
026204
026210
026212
026214
026220
026222
026224
026230
026232

004037
002272
000000
004037
002274
004534
00403/
002304
000001

0461426

JSR

RO,a#F ILLRE

JSR

RO,aNF ILLRE

JSR

RO,a#FILLRE

SHUC

0461426

RHBA
REINTO+<256.¢2>

0414626

?HDST

:MOV O INTO SAVED RHWC

;SA¥ED REGISTER TO (HANGE
;DA

MOV REINTO0+<256.#2> INTO SAVED RHBA
;SAVED REGISTER TO CHANGE
;DATA

;MOV 1

INTO SAVED RHMDSTY

;3A¥ED REGISTER TO CHANGE
;DA

:*COMPARE REGISTERS BEFORE READ DATA COMMAND
;*WITH REGISTERS AFTER COMMAND
026234

004037

026240
026242
026244
026246
026250

004612
002354
000022
026252
026256

026252
026254

104033
000207

JSR

042512

RO,9#COMREG

; COMPARE SAVED REGISTERS WITH

;READ DATA CAUSED IMPROPER

SAVERE
wC
18.
5%
6%
5¢:

ERROR
RTS

;PRESENT VALUE
;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘RHW('
:18. REGISTERS 10 BE COMPARED
;RETURN 10 5% ON ERROR
;RETURN TO 6% ON NO ERROR
;REGISTER CHANGE

;GO0D DATA GIVES WHAT SHOULD BE THE
;RECEIVED DATA GIVES WHAT WAS THERE
;AFTER COMMAND

;*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ
6%:

026256

026256
026262
026264
026266
026270

004037
002470
003534
000400
026274
026300

026274
026276

104034

026272

000207

043542

JSR
WRFROM
REINTO

RO,3#COMPAR

ERROR
RTS

34
PC

:256. WORDS TO BE COMPARED
;RETURN TO 7% ON ERROR
;RETURN TO 10% ON NO ERROR

256.
7%
108

7%:

. COMPARE TWO BLOCKS OF MEMORY
:GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

; INCORRECT DATA AFTER
;WRITE DATA FOLLOWED BY A

CIRJIDO, RPO4L/S/6 FCTNL (TRl
CIRJID P
28-MAR-79 09:03

CIRJIDO, RPO4L/5/6 FCINL CTLRY
CIRJID.PW
28-MAR-79 09:03
6907
6908
6909

026300

MACYI1

€12
30A(1052)
25-MAY-79
10:30 PAGE 146
136
WRITE/READ DATA (125252)
10%:

;READ DATA

]

SEQ 0145

CIRJIDO, RPO&/S/6 FCTINL CTLR)
CIRJID.PYY
28-MAR-79 09:03

MACY11

6910
6911
6912

6939

6940
6941
6942
6943
6944
6945
6946
6947
6948
6949
6950
6951
6952

6953
6954
6955
6956
6957
6958
6959
6960
6961
6962
6963
6964
6965

147

SEQ 0146

’;'l'""""""'""""'""""'"""""""'l'""""""

SeTEST 37

THIS TEST GIVES A WRITE DATA COMMAND FOR CYLINDER 0
TRACK O, SECTOR 0, KEYS 0, 200 WORDS OF 052525

I
Bo

I
Be

I
Ve

I
Be

I
Vs

R
BN

IS FORMATED BY PREVIOUS

TEST

THEN READ DATA COMMAND IS GIVEN FOR 256 WORDS IN

SAME CYLINDER, TRACK, SECTOR, KEYS
WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH

200 OF 052525 AND 56 OF

377

THE WRITE DATA COMMAND 1S LOADED EXCEPT GO AND IE
ALL REGISTERS ARE SAVED AND THEN GO 1S TO WRITE DATI
THEN ALL REGISTERS ARE

COMPARED TO CHECK FOR

THEN READ

IS FILLED WITH 200 IF

CHANGE,

IMPROPER

THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE

Ve
Vs
Ve

INTO BUFFER

ZEROS

AND 56 ALL ONES, WRITE FROM BUFFER IS FILLED WITH 200

WORDS OF 52525 AND 56 WORDS OF 0
THE COMMAND EXCEPT GO IS LOADED, ALL REGISTERS ARE
6O IS GIVEN

SAVED

® e

2R 2R

WRITE/READ DATA (052525)

THIS SECTOR

6913

6914
6915
6916
6917
6918
6919
6920
6921
6922
6923
6924
6925
6926
6927
6928
6929
6930
6931
6932
6933
6934
6935
6936
6937
6938

0 12

30A(1052)
25-MAY-79
10:30 PAGE
WRITE/READ DATA (052525)
137

ALL REGISTER ARE CHECKED
READ DATA IS CHECKED

':.t"""""""""'I"'t"""'tt"t""t'.l!'llt't"ttt"'lt

026300
026302
026306

012706
012737

001000
000037

026314

004737

041524

000004

15137:
004604

SCOPE
MoV
MOV

#STACK,SP
#37,94TSTNM

sRESET STACK
;SAVE TEST NUMBER

JSR

PC,a#CLDISK

;SET R1-RHCST, RZ2-RHCSZ
;R3-RHDS1,

R&-RHERI

;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

;*NOW FILL WRITE FROM BUFFER-200 OF 52525 AND 56 OF 377
026320
026324
026326
026330

004037
002470
000310
052525

041374

026332
026336

004037
003310
000070
000377

041374

026340
026342

JSR

WRFROM

RO,a#CLAREA

:CLEAR 200. WORDS, FROM WRFROM
:STARTING FROM WRFROM

200,

;:200. WORDS
SFILL WITH 52525

JSR
RO,3#CLAREA
WRFROM+<200.¢2>
56.
377

:CLEAR 56. WORDS, FROM WRFROM+<200.*2>
:STARTING FROM WRFROM+<200.%2>

52525

;56. WORDS
SFILL WITH 377

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS

;*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPAR]SONS
;*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER

026344
026350

004037
003534

041374

JSR

REINTO

RO,a#CLAREA

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

(IRJIDO, RPO&L/S5/6 FCTINL CTLRI
CIRJID. P
28-MAR-79 09:03
6966
6967
6968

6969
6970

6971
6972
6973
6974
6975
6976
6977
6978
6979
6980
6981
6982
6983
6984
6985
6986
6987
6988
6989
6990
6991

026352
026356

000310
052525

026356
026362
026364
026366

0046037
004354
000070
000377

MACY11

E 12

30A(C1052)
25-MAY-79
10:30 PAGE
137
WRITE/READ DATA (052525)

;200. WORDS

JSR
RO,3#CLAREA
REINTO+<200.¢2>

;CLEAR 56. WORDS, FROM REINT0+<200.+2>
:STARTING FROM REINT0+<200.¢2>

377

;FILL WITH 377

SFILL WITH 52525

56.

7000
7001
7002
7003
7004
7005
7006
7007
7008
7009
7010
7011
7012
7013
7014
7015
7016
7017
7018
7019
7020
7021

:56. WORDS

:*NOW WRITE DATA COMMAND WILL BE LOADED
043476

JSR
0
0
0
-200.

026370
026374
026376
026377
026400
026402

004037
000000
000
000
177470
002470

026404
026406

000000
010000

026410

002442

WRIDAT

.BYTE
BYTE

RO,a#RUN

:SETUP TO RUN FOR DATA COMMAND
:CYLINDER O
sSECTOR 0
;TRACK O
;WORD COUNT = 200.

WRFROM

;BUS ADDRESS

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

FMT22

:16 BITS PER WORD FORMAT

;00 NOT INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
;GET READY

TO DO A WRIDAT

;WRITE DATA WITH 60 IN RHCSI

6992

6993
6994
6995
6996
6997
6998
6999

SEQ 0147

200.

52525

041374

148

; *NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA
JSR
RHWC
SAVERE

RO,a#SAVER

026412
026416
026420

004037
002272
004612

026422

000022

0264264

004737

061604

JSR

PC,a#CHECKT

026430

104401

067033

TYPE

. CPHALT

026434

000009

026436

013777

041672

18.

153622

MOV

’

;SAVED = 18.

HALT

004606

;SAVE REGISTERS
:RHWC 1S THE FIRST REGISTER SAVED
:STARTING ADDRESS OF WHERE
:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS

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

;AND THAT NO STATUS BITS ARE STUCK
; CANNOT CONTINUE TESTING If ANY OF
:THE FIRST SET OF BITS DON'T =1
;STOP

#RPLVEC,BRPVEC ;SET RPO4 VECTOR ADDRESS
;10

'TIMEY®

;OR TO 'TIME2'
;'TIME®

P=-CLOCK

IS PRESENT

IF P=-TLOCK IS NOT PRESENT

WILL ONLY

SAVE

; CURRENT CYLINDER ADDRESS

;AND LOOK

AHEAD REGISTERS

026444
026450

013746
052716

002442
000101

Mov

ANWRIDAT,-(SP)

;GET READY TO MOVE COMMAND

026454

012¢77

153620

MOv

(SP)+,aRH(ST

;60 WITH

BIS

#GO.lE, (SP)

;GET READY TO SET 'GO' AND
;ENABLE INTERRUPT

;60 IN RHCSY FOR WRITE DATA

TLRY
(IRJIDO, RPO&/S5/6 FCINL CTL
P
CIRJ1D.P
28-MAR-79 09:03

7024

7025

026460
026462

30A(1052)

137

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
7068
7069
7070
7071
7072
7073
7074
7075
7076
7077

ak1,R0O
oR3,RS

149

SEQ 0148

;WITH INTERRUPT ENABLED

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

;*ONE REVOLUTION=16670 M] CROSEC, ONE SECTOR=760 MICROSEC

7026

7027
7028
7029
7030
7031
7032
7033
7034
7035
7036
7037

F 12
25-MAY-79
10:30 PAGE
WRITE/READ DATA (052525)
MOV
MOV

N —

7022
7023

MACY11

026464
026466
026470
026472
026474

1064413
002300
000200
001614
001507

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

WAT
RHCST
RDY

908.
839.

;690 AND 17470 MICRO SECONDS

;*COMPARE CONTENTS OF RH(C S1 AND RHDS1 ALREADY SAVED [N

;*RO AND RS IMMEDIATELY AFTER GO

026476
026502
026506
026512

013746
052716
011637
022600

026514
026516
026522
026526

001405
010037
010137

026530
026534
026540

012746

026542
026544
026550
026554

104021

011637

022605

001405
010537
010337
104063

002442
004101
001124

a#WRIDAT,=(SP)
; SAVE COMMAND
(SP)
VA,
N1E!GO:D
; INCLUDE IE!GO!DVA
(SP) ,a#$GDDAT
;SAVE FOR PRINTOUT

(SP)+,RO

;DURING ABOVE OPERATION ONLY [E.GO:DVA

BtQ

649

;BRANCH IF GOOD
;BAD DATA

ERROR

CMP

MOV
MoV

001126
004600
010500
001124

MOV
8IS
Mov

64%:

001126
004600

RO,a#$BDDAT
R1,3#REGADR

;FAILING REGISTER RH(S!

;SAVE BITS SET DURING OPERATION IN RMDSI
:SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY MOL.DPR.VV
:SHOULD BE SET
:BRANCH IF GOOD
;:BAD DATA
;FAILING REGISTER RHDS]
;DURING ABOVE OPERATION ONLY

#MOL ! DPR!VV,=(SP)

CMP

(SP)+,R5

BEQ
MoV
MOV
ERROR

669
RS,a3#$BDDAT
R3,3/REGADR
63

Mov

(SP) ,a#$GDDAT

SET

;DURING ABOVE OPERATION ONLY
; COMMAND AND IE.GO!DVA SHOULD BE SET

MOV

66%:

026556

;AND COMMAND SHOULD BE

;MOL!DPR!VV SHOULD BE

SET

; *NOW CHANGE SAVED REGIS? ERS TO EXPECTED VALUE
026556
026562
026564
026566
026572
026574
026576
026602
026604

004037
002272
000000
004037
002274
003310
004037
002304
000001

0461426
041426

041426

JSR

RHW(C

JSR

RHBA

RO,a#FILLRE

RO,d#FILLRE

WRFROM+<200.¢2>
RO,a#F ILLRE
JSR
RHDST
1

SMOV 0

INTO SAVED RHWC

:g:\{io REGISTER TO CHANGE

MOV WRFROM+<200.+2> INTO SAVED R4BA
*SAVED REGISTER TO CHANGE
;DATA

:MOV 1 INTO SAVED RHDST
:g:¥§0 REGISTFR TO CHANGE

:*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTLRS
;*AFTER COMMAND

026606

004037

0642512

JSR

RO,3#COMREG

; COMPARE SAVED REGISTERS WITH
;PRESENT

VALUE

_—

(1 RJIDO, RPO&L/S/6 FCINL CTLRI
94 RJID P
28-MAR-79 09:03

7078
7079
7080
7081

026612
026614
026616
026620
026622

004612
002354
000022
026624
026630

026624
026626

000207

MACY11

G 12

30A(1052)
25-MAY=-79
10:30 PAGE
137
WRITE/READ DATA (052525)

1%:

SEQ 0149

SAVERE
Wi

;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM °'RHWC'

;RETURN TO 2% ON NO ERROR

18.
1%

106035

150

ERROR
RTS

:18. REGISTERS TO BE (OMPARED
;RETURN 10 1% ON ERRC”

;WRITE DATA COMMAND CAUSED

; IMPROPER REGISTER (HANGE

:3200 DATA GIVES WHAT SHOULD

;RECEIVED DATA GIVES WHAT WAS
: THERE

;*NOW WRITE

FROM BUFFER WiLL BE

AFTER

COMMAND

CHECKED FOR NO CHANGE

2%:

026630

026630
026634
026636
026640
026642
026644

004037
003534
002470
000400
026646
026652

026646
026650

1064036

JSR
REINTO
WRFROM
256.

043542

RO,a#COMPAR

3%
6%

1%:

000207

ERROR
RTS

; COMPARE TWO BLOCKS Of MEMORY
;600D DATA STARTS FROM REINTO
;TEST DATA STARTS FROM WRFROM
;256. WORDS 10 BE COMPARED

;RETURN TO 3% ON ERROR
;RETURN TO 43 ON NO ERROR

;WRITE DATA COMMAND CHANGED
;WRITE

FROM BUFFER

;*NOW A READ DATA COMMAND WILL BE GIVEN

—
NS
WNEB W= OOV

4%:

026652

004737

041524

JSR

PC,a#(LD]SK

;SET R1-RHCS1, R2-RH(SZ
:R3-RHDST,

;GIVE RH=11

026656
026662
026664
026666

004037
003534
000310
000000

041374

026670
026674
026676
026700

004037
004354
000070
000377

041374

JSR

REINTO

RO,a#CLAREA

200.
0

N
= OOV
W

— e

) e

D o

d i

D el

D e

il il

RN N RO N PORL NI PPN NI N — et s b b et s =2

NNNNNNNNNNNNNNNNNNNNNNN

;*F1LL READ INTO BUFFER WITH 200 ZEROS AND 56 OF ALL ONEtS
026652

R&-RHERI

INITIALIZE

;SETUP UNIT NUMBER

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

:200. WORDS
SFILL WITH O

JSR
RO,3#CLAREA
REINT0+<200.¢2>
56.
3r?

;CLEAR 56. WORDS, FROM REINTO+<209.%2>
;STARTING FROM REINT0+<200.¢2>
:56. WORDS
SFILL WITH 377

;*FILL WRITE FROM BUFFER WITH 200 OF 52525 AND 56 OF €
026702
026706
026710
026712

004037
002470
000310
052525

061374

JSR

WRFROM

200,
52525

RO,3#CLAREA

—

;CLEAR 200. WORDS, FROM WRFROM
;STARTING FROM WRFROM

;200. WORDS
JFILL WITH 52525

J1D0, RPO4/5/6 FCINL CTLRI
J10.PV1
28-MAR-79 09:03

026714
026720
026722
026724

004037
003310
000070
000377

MACY11

H 12
30A(1052)
25-MAY-79
10:30
PAGE
137
WRITE/READ DATA (052529)

JSR
RO,a#CLAREA
WRFROM+<200.¢2>
56.
377

041374

151

SEQ 0150

:CLEAR 56. WORDS, FROM WRFROM+<200.¢2>
:STARTING FROM WRFROM+<200.9+2>
:56. WORDS
SPILL WITH 377

;*NOW FILL COMMAND
026726
026732
026734
026735
026736
026740

004037
000000

026742
026744

000020
014000

0
ECIIFMT2?

026746

002446

READAT

JSR
0
0
0
-200.

043476

000
000
177470
00353¢

RO,3#RUN

:SETUP TO RUN FOR DATA COMMAND
:CYLINDER O
;5ECTOR O
:TRACK O
;WORD COUNT = 200.

REINTO

;BUS ADDRESS

;STARTING ADDRESS OF DATA

JSR
RHW(
SAVERE

;BUFFER = REINTO

;D0 NOT

;INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER (OMPARE

REGISTERS FOR COMPARISON AFTER READ DATA COMMAND

RO,aNSAVER

026750
026754
026756

004037
002272
004612

026760

000022

026762

004737

041604

JSR

PC,aNCHECKT

026766

104401

067033

TYPE

,CPHALT

026772

000000

026774

013777

041672

MOV

REGISTERS

:NUMBER OF

ARE

SAVED

REGISTERS

;SAVED = 18.

:CHECK DVA,RDY ,MOL,DPR,DRY,VV = 1
;AND THAT NO STATUS BITS ARE STUCK
; CANNOT

CONTINUE

TESTING

ANY Of

;THE FIRST SET OF BITS DON'T = 1

S¥RPGLVEC,BRPVEC

;SET RPO4& VECTOR ADDRESS

;70

"TIMEY'

;OR TO 'TIME2'
;'TIME'

P=CLOCK

IS PRESENT

iF P=-CLOCK S NOT PRESENIT

WILL ONLY

SAVE

;CURRENT CYLINDER ADDRESS
+AND

MOV

O#READAT ,-(SP)

027012

012677

153262

MOv

(SP)+ ,aRHCSI

MOv
Mov

aR1,R0
aR3,RS

—

027016
027020

e —=

002446
000101

013746
052716

-—

027002
027006

BIS

;STOP

HALT
153264

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

18.

004606

INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT

GET READY 1O DO A READAT
;READ DATA WITH 70 IN RH(CSI

;*NOW SAVE

NNV~

1
(1

#GO'1E, (SP)

LOOK

;GET READY

AHEAD

REGISTERS

TO MOVE COMMAND

:GET READY T0 SET °'GO' AND
;ENABLE INTERRUPT
;60 WITH

;70 IN RHCSY FOR READ DATA
:WITH INTERRUPT ENABLED

:SAVE RH(S1 DURING ABOVE OPERAT]ON
;SAVE RHDS! DURING ABOVE OPERATION

0, RPO&/ 5/6 FCTNL CTLRY
P
28-MAR-79 09:03

027022
027024
027026
027030
027032

MACY11

30A(1052)
25-MAY-79
10:30
PAGE
137
WRITE/READ DATA (052525)

106413

WAT
RHCST
ROY

002300
000200
001614
001507

152

SEa 0151

;WAIT FOR RDY BIT T0 SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RH(CS1

908.
839.

;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

;690 AND 17470 MICRO SECONDS

;*COMPARE CONTENTS OF

RHCS1

AND RHDS1

;*RO AND RS IMMEDIATELY AFTER GO
027034
027040
027044
027050

013746
052716
011637
022600

027052
027054
027060
027064

001405
010037

027066
027072
027076

012746
011637
022005

027100
027102
027106
027112

001405
010537
010337

010137
104021

106063

002446
004101
001124

Mov

8IS
Mov
cmp

010500
001124

67%:

027114

(SP)+,RS

027132
027134
027140
027142

BEQ

69%

MOV
ERROR

R3,a#REGADR
63

7240
72461
7242
72643
7244
7245

RS ,a#$BDDAT

IE:GO!DVA

;BAD DATA
;FAILING REGISTER RH(CSI
;DURING ABOVE OPERATION ONLY

. COMMAND AND IE!GO:DVA SHOULD BE SET
sSAVE BITS SET DURING OPERATION IN RHDSI
:SAVE

FOR PRINTOUT

;sDURING ABOVE OPERATION ONLY MOL:DPR.VV

; SHOULD BE SET

;BRANCH 1F

;BAD DATA

GOOD

;FAILING REGISTER RHDS!
;DURING ABOVE OPERATION ONLY
;MOL'!DPR!vV SHOULD BE

SET

SAVED REGISTERS 1O EXPECTED VALUES

061426

JSR

RO,a#F ILLRE

;MOV O INTO SAVED RMW(

041426

JSR

RO,a#FILLRE

MOV REINTO0+<200.#2> INTO SAVED RHBA

JSR

RO,a#F ILLRE

0641426

RHW(
0

RHBA
REINT0+<200.¢2>
?HDST

:SAVED REGISTER 10O CHANGE
DATA

:SAVED REGISTER TO CHANGE
:DATA

;MOV 1

INTO SAVED RHDST

:SA¥ED REGISTER 10 CHANGE
;DATA

; vCOMPARE REGIST ERS BEFORE READ DATA (OMMAND

7235
7236

7239

(SP) ,a#%GDDAT

COMMAND

;AND COMMAND SHOULD BE SET
;BRANCH If GOOD

cmp

MoV

ALREADY SAVED

;INCLUDE 1€!GO:!DVA
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY

#MOL ! DPR!VV,=(SP)

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

69%:

004037
002272
000000
004037
002274
004354
004037
002304
000001

;SAVE

Mov

: *CHANGE
027114
027120
027122
027126
027130

#1E'GO'DVA,(SP)
(SP) ,a#%GDDAT
(SP)+,RO

679

MOv

001126
004600

@FREADAT ,-(SP)

BeQ

MOV
MoV
ERROR

001126
004600

;*WlTH REGIS TERS AFTER

027144

004037

027150
027152
027154
027156
027160

004612
002354
000022
027162
027166

042512

JSR

SAVERE
Wi
18.

5%
6%

RO,a#COMREG

COMMAND

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘RHW('
;18. REGISTERS 10 BE COMPARED
;RETURN T0 5% ON ERROR
;RETURN 1O 6% ON NO ERROR

CIRJIDO, RPO4L/S/6 FCINL (TL R1
CIRJID.PIY
28-MAR-79 09:03
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
7271
7272

027162
027164

106033

000207

MACY11

30A(1052)

25-MAY-79

10:30

J 12
PAGE

137

WRITE/READ DATA (052525)

5¢:

ERROR
RTS

1>3

;READ DATA CAUSED

JREGISTER

027204
027206
027210

IMPROPER

INTO BUFFER

COMMAND

IS CHECKED FOR GOOD READ

6%:

027166
027166
027172
027174
027176
027200
027202

CHANGE

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

;*NOW READ

SEQ 0152

004037
002470
003534

JSR
WRFROM
REINTO

043542

104034

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

; INCORRECT

256.

000400
027204
027210

000207

RO,a#COMPAR

7%
10%

7%:
10%:

ERROR
RIS

;WRITE

DATA AFTER

DATA FOLLOWED BY

sREAD DATA

CIRJIDO, RPO4L/S/6 FCTINL CTLR)
28-MAR-79 09:03
CZRJID.PWY

MACY11

7273
7274
7275
7276
7277
7278
7279
7280
7281
7282
7283
7284
7285
7286
7287
7288
7289
7290
72N
7292
7293

SEQ 0153

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

SeTEST 40

WRITE/READ DATA USING UNIBUS B

.
Se

USES UNIBUS B

I1F

CONNECTED 10O THE

IF UNIBUS B IS NOT CONNECTED THEN THIS TEST IS NOT PERFORMED
THIS TEST GIVES A WRITE DATA COMMAND FOR CYLINDER 0
TRACK O, SECTOR 0, KEYS 0, 200 WORDS OF 052525
THIS SECTOR

IS FORMATED BY PREVIOUS TEST

THEN READ DATA COMMAND IS GIVEN FOR 256 WORDS IN
SAME CYLINDER,
THESE

TRACK,

SECTOR,

KEYS

COMMANDS USE UNIBUS B FOR DATA

WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH

200 OF 052525 AND 56 OF

377

THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE
ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DATA

e
S
W
Ve
e
Be
B
We

CHANGE,

IMPROPER

THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE

THEN READ INTO BUFFER 1S FILLED WITH 200 IF ZEROS
AND 56 ALL ONES, WRITE FROM BUFFER IS FILLED WITH 200
WORDS OF 52525 AND 56 WORDS OF 0
THE COMMAND EXCEPT
6O IS GIVEN

GO IS LOADED,

ALL REGISTERS ARE

SAVED

e
®

THEN ALL REGISTERS ARE COMPARED TO CHECK FOR

L 2NR SR BN

NN BN

7295
7296
7297
7298
7299

NE 2.2

IR JEE

THIS TEST

7294

7300
7301
7302
7303

K 12
PAGE 154
30A(1052)
10:30
25-MAY-79
140
WRITE/READ DATA USING UNIBUS 8

RN
ER | 222222223322 22282222223220220222200RRRRRRdRARRRRRRRSRRN)

ALL KEGISTER ARE CHECKED
READ DATA IS CHECKED

027210
027212
027220
027224

000004
012737
012706
012737

000001
001000
000040

027232

004737

041524

001212

15740:

004604

SCOPE
Mov
MOV
Mov

M ,STIMES
#STACK,SP
#L0,aNTSTNM

;.00 1 ITERATION
;RESET STACK
:SAVE TEST NUMBER

JSR

PC,a#CLDISK

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

;*CHECK TO SEE 1F THE PROGRAM IS RUNNING WITH AN RH70
027236
027242
027244
027250

005737
001402
000137

004750

027250

005037

004732

030360

1S1

SNRHTO

JMP

15141

CLR

afuBUSB

BEQ
30%:

30%

;TEST FOR RH70 CONTROLLER
;1F FLAG = 1, THIS TEST IS SKIPPED

JUMP 1O NEXT

TEST -==ccecccccccc-cc---

;1F FLAG = 1, DO THIS TEST
;CLEAR UNIBUS

INDICATOR

;*NOW FILL WRITE FROM BUFFER-200 OF 52525 AND 56 OF
027254

027260
027262
027264

004037

002470
000310
052525

041374

JSR

WRFROM

200,
52525

RO,a#CLAREA

377

;CLEAR 200. WORDS, FROM WRFROM
;STARTING FROM WRFROM

;200. WORDS
SFILL WITH 52525

CIRJIDO, RPO&L/S/6 FCTNL CTLR]
CIRJ1D.PIY
28-MAR-79 09:03
7329
7330
7331
7332

7333
7334
7335
7336
7337
7338
7339
7340
7361
7342
7343
7344
7345
7346
7347
7348
7349
7350
7351
7352
7353
7354
7355
7356
7357
7358
7359
7360
7361
7362

7363
7364
7365
7366
7367
7368
7369
7370
7371
7372
7373
7374
7375
7376
7377
7378
7379

7380

7381

7382
7383
7384

027266
027272
027274
027276

004037
003310
000070

MACY11

L 12
30A(1052)
25-MAY-79
10:30
PAGE 155
140
WRITE/READ DATA USING UNIBUS B

041374

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

;CLEAR 56. WORDS, FROM WRFROM+<200.¢2>
;STARTING FROM WRFROM+<200.¢2>

377

;FILL wWiTH 377

56.

000377

SEQ 0154

:56. WORDS

;*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
027300
027304
027306
027310

004037
003534
000310
052525

041374

027312
027316
027320
027322

004037
004354
000070
000377

041374

JSR

REINTO
200.

RO,3#CLAREA

52525

JSR
RO,3NCLAREA
REINTO+<200.¢2>

;CLEAR 56. WORDS, FROM REINT0+<200.¢2>
;STARTING FROM REINT0+<200.¢2>

377

sFILL WITH 377

56.

JSR

027334
027336

004037
000000
000
000
177470
002470

027340
027342

000000
010000

027344

002442

WRIDAT

027346

052777

027333

043476
.BYTE

.BYTE

0
0
0
-200.

RO,3#RUN

8IS

LOADED

;SETUP TO RUN FOR DATA (OMMAND

;CYLINDER O
;SECTOR 0
:TRACK 0
;WORD COUNT = 200.
;BUS ADDRESS

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

FMT22

152724

:56. WORDS

DATA COMMAND WILL BE

WRFROM

002000

;STARTING FROM REINTO
;200. WORDS

SFILL WITH 52525

;*NOW WRITE

027324
027330
027332

:CLEAR 200. WORDS, FROM REINTO

;16 BITS PER WORD FORMAT

;00 NOT INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE

;GET READY 10O DO A WRIDAT
;WRITE DATA WITH 60 IN RH(S1

NPSEL ,3RHCS

;SET PORT B

:THAT

IS UNIBUS B

;*NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA
027354
027360
027362

004037
002272
004612

027364

000022

027366

004737

027372

106401

041672

JSR
RHW(
SAVERE

RO,a#SAVER

;SAVE REGISTERS
;RHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS Of WHERE

:THE REGISTERS ARE SAVED
;NUMBER OF REGISTERS

18.

;SAVED = 18,

041604

JSR

PC,aNCHECKT

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

067033

TYPE

+CPHALT

: CANNOT CONTINUE TESTING IF ANY OF
:THE FIRST SET OF BITS DON'T = 1

;AND THAT NO STATUS BITS ARE STuCk =

CIRJIDO, RPO&/S5/6 FCTNL (LR
CIRJIID.PYY
28-MAR-79 09:03

013777

HALT

004606

152660

Mov

° 7424
7425
7426
7427
7428

7429
7430
7431
7432
7433
7434
7435
7436
7437
7438
7439
7440

;ST0P

S#RPLVEC,BRPVEC

;SET RPO4 VECTOR ADDRESS
;10 *TIMEY' IF P-CLOCK IS PRESENT
;OR TO 'TIME2' IF P-CLOCK IS NOT PRESENT
WILL ONLY SAVE

; CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

0276406
0276412

013746
052716

002442
002101

Mov

aPWRIDAT,-(SP)

027416

012677

152656

Mov

(SP)+ ,aRHCS]

027422
027424

BIS

Mov
Mov

#GO:1EPSEL, (SP)

aR1,RO
aR3,R5

;GET

READY

TO MOVE

COMMAND

;GET READY TO SET
;ENABLE INTERRUPT

°'GO' AND

;60 WITH

;60 IN RHCS! FOR WRITE DATA

;WITH

INTERRUPT ENABLED

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

: *ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 M]CROSEC
027426
027430
027432
027434
027436

WAT
RHCST

104413
002300
000200
001614
001507

;WAIT
;WAIT

RDY
908.
839.

FOR RDY BIT TO SET
FOR RHCS1 REGISTER

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

;690 AND 17470 MICRO SECONDS

;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN

746413

76414
7615
7616
7617
7618
7619
7420
7421
7622
7423

SEQ 0155

;"TIME'

—

7400
7401
7602
7403
7604
7405
76406
7607
7408
7409
7610
7611
7412

0276400

n12
30A(1052)
25-MAY-79
10:30
PAGE 156
140
WRITE/READ DATA USING UNIBUS B

(WY

7397
7398
7399

000000

—

7394
7395
7396

027376

7385
7386
7387
7388
7389
7390
7391
7392
7393

MACYT1

;*RO AND RS IMMEDIATELY AFTER GO
027440
027444
027450
027454

013746
052716
011637
022600

027456
027460
027464
027470

001405
010037
010137
104021

027472
027476
027502

012746
011637
022605

027504
027506
027512
027516
027520

001405
010537
010337
104063

002442
006101
001124

S#WRIDAT,=(SP)
;SAVE COMMAND
#1E!GO!DVA!PSEL, (SP)
¢ INCLUDE 1E!GO!DVA!PSEL

CMp

(SP)+ RO

MOV

64%:

649

MOV
ERROR

R1,3#REGADR
21

66%:

RO,3#$BDDAY

;SAVE FOR PRINTOUT

;DURING ABOVE OPERATION ONLY
:AND COMMAND SHOULD BE

:BRANCH IF
:BAD DATA

GOOD

SET

#MOL ! DPR!VV,=(SP)

8ea

66%

: SHOULD BE SET
;BRANCH IF GOOD

MOV
ERROR

R3,a#REGADR
63

;FAILING REGISTER RHDS]
;DURING ABOVE OPERATION ONLY

MOV
CMP

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

RS,aN$BDDAT

IE!GO!DVA!PSEL

;FAILING REGISTER RHCS1
:DURING ABOVE OPERATION ONLY
;COMMAND AND I1E!GO!DVA!PSEL SHOULD BE SET

Mov

001126
004600

(SP) ,a#$GDDAT

BEQ

Mov

001126
004600

1) 0500
1
001124

MOov
BIS

sSAVE BITS SET DURING OPERATION IN RHDS]

;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY MOL'!OPR:IVV
;BAD DATA

;MOL'DPR!VV

;*CHECK IF NEM NON EXISTANT MEMORY 1S SET

;*1F SET 1T MEANS UNIBUS B IS NOT CONNECTED
;*S0 THIS TEST IS NOT PERFORMED

SHOULD BE

SET

CIRJIDO, RPO&L/S/6 FCTINL CTLR]
CZRIID.P1N
28-MAR- 79 09:03

000425
104401
104401

000137

152550

177777

004732

027544

N 12

30A(1052)
10:30 PAGE 157
25-PMAY=-79
140
WRITE/READ DATA USING UN]BUS B

001223
001223
030360

027640

1044601
104600

104401
000424

67%:

#NEM,IRHCS2
118

BR
CASCIZ

67%
;.GET OVER THE ASCIZ
<15><12>/THE RH DOES NOT HAVE UNIBUS B CONNECTED/

TYPE

+SCRLF

JMP

an0s

;JUMP TO NEXT

TYPE

.70%

::TYPE

TYPE

11%:

;:708%:
69%:

SEQ 0156

8l
BEQ

MOv
TYPE

;. 68%:

027710
027710
027714

104401

004000

—

027616
027616
027622
027626
027632
027632
027636

032777
001441
012737

(a9 2,V

027520
027526
027530
027536
027542

[eX=]
OO

7641
7442
7443
7644
74645
76446
7447
7448
76449
7450
7651
7452
7453
7456
7655
74656
7457
7458
7459
7460
7461
76462
7463
7464
7665
7466
1667
7468
7469
7470
7671
7472
7473
7474
7475
7676
7677
7478
7479
7480
7481
7482
7483
7484
7485
7486
7487
7488
7489
7490
7491
7492
7493
7694
7495
7496

MACY11

#-1,30UBUSB
,68%

+JSCRLF

;TEST NEM
:BRANCH 1F UNIBUS B THERE
;UNIBUS B NOT THERE
::TYPE ASCIZ STRING

ASCIZ

TEST - NO UNIBUS B
STRING

BR
LASCIZ

69%
:.GET OVER THE ASCIZ
<15><12>/THE RH DOES HAVE UNI BUS B CONNECTED/

TYPE
TYPE

+SCRLF
»SCRLF

:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE
027720
027724
027726
027730
027734
027736
027740
027744
027746

004037
002272
000000
004037
002274
003310
004037
002304
000001

041426

JSR

RO,3#FILLRE

JSR

RO,a#F ILLRE

JSR
?HDST

RO,a#FILLRE

RHWC
0

061426

RHBA
WRFROM+<200.*2>

041626

;MOV O INTO SAVED RHW(C

:SAVED REGISTER TO CHANGE
:DATA

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

;SAVED REGISTER TO CHANGE
:DATA

;MOV 1 INTO SAVED RHDST
:3:¥ED REGISTER TO CHANGE

; *NOW CDMPARE REG!STERS BEFORE WRITE DATA WITH REGISTERS

027750

004037

027754
027756
027760
027762
027764

004612
002354
000022
027766
027772

027766

104074

027770

000207

042512

;*AFTER

COMMAND

JSR

RO,a#COMREG

SAVERE

;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHW(C’
:18. REGISTERS TO BE COMPARED

w(
18.
1%
2%
1%:

: COMPARE SAVED REGISTERS WITH
;PRESENT VALUE

;RETURN T0 1% ON ERROR

:RETURN TO 2% ON NO ERROR

ERROR

;WHILE USING UNIBUS B

RTS

: IMPROPER REGISTER CHANGE

;WRITE DATA COMMAND CAUSED
:ggOD DATA GIVES WHAT SHOULD
;RECEIVED DATA GIVES WHAT WAS
; THERE

AFTER

COMMAND

;*NOW WRITE FROM BUFFFR WlLL BE CHECKED FOR NO CHANGE
2%:

027772
027772

004037

043542

JSR

RO,a#COMPAR

. COMPARE

TWO BLOCKS OF MEMORY

CIRJIDO, RPO4/S5/6 FCINL CTLRI
CIRJID PN
28-MAR-79 09:03
1497
7498
7699
7500
7501
7502
7503
7506
7505
7506
7507
7508
7509
7510
7511
7512
7513
7514
7515
7516
7517
7518
7519
7520
7521
7522
7523
7524
7525
7526
7527
7528
7529
7530
7531
7532
7533
7534
7535
7536
7537
7538
7539
7540
7541
7542
7543
7544
7565
7546
7547
1548
7549
7550
7551
7552

027776
030000
030002
030004
030006

003534
002479
000400
030010
03001¢

030010

104075

030012

000207

MACY11

B 13

30A(1052)
25-PAY=79 10:30 PAGE 158
WRITE/READ DATA USING UNIBUS B
140
REINTO
WRFROM

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

;RETURN TO 4% ON NO ERROR

256.
3%

3%:

;256. WORDS TO BE COMPARED
;RETURN T0 3% ON ERROR

ERROR

RTS

;WHILE USING UNIBUS B

;WRITE DATA COMMAND CHANGED
;WRITE FROM BUFFER

;*NOW A READ DATA (OMMAND WILL BE GIVEN

;*FILL READ INTO BUFFER WITH 200 ZEROS AND 56 OF ALL ONES
4:

030014
030014

004737

041524

030020
030024
030026
030030

004037
003534
000310
000000

041374

030032
030036
030040
030042

004037
004354
000070
000377

041374

JSR

PC,amCLDISK

JSR

RO,aN#CLAREA

REINTO
200.

;SET R1-RHCST, R2-RH(CSZ
:R3-RHDS1, R4&-RHER1
;GIVE RH=11 INITIALIZE
sSETUP UNIT NUMBER

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

sFILL WITH O

RO,a#CLAREA
JSR
REINT0+<200.¢2>
56.
377

;CLEAR 56. WORDS, FROM REINT0+<200.+2>
;STARTING FROM REINT0+<200.¢2>
;56. WORDS
SFILL WITH 377

;*F1LL WRITE FROM BUFFER WITH 200 OF 52525 AND 56 OF 0
030044
030050
030052
030054

004037
002470
000310
052525

041374

030056
030062
030064
030066

004037
003310
000070
000377

0461374

JSR

WRFROM

RO,a#CLAREA

200.

;CLEAR 200. WORDS, FROM WRFROM
;STARTING FROM WRFROM

:200. WORDS

52525

JFILL WITH 52525

RO,a#CLAREA
JSR
WRFROM+<200.¢2>
56.
377

;CLEAR 56. WORDS, FROM WRFROM+<200.+2>
;STARTING FROM WRFROM+<200.¢2>
:56. WORDS
JFILL WITH 377

;*NOW FI1LL COMMAND
030070
030074
030076
030077
030100
030102

004037
000000

030104

000000

000
000
177470

003534

043476
.BYTE
.BYTE

JSR
0
0
0
=200,

REINTO

RO,3¥RUN

:SETUP TO RUN FOR DATA (COMMAND

;CYLINDER 0
sSECTOR O
;TRACK O
;WORD COUNT = 200.
;8BUS ADDRESS

;STARTING ADDRESS OF DATA
BULFER = REINTO
;DO NOT INHIBIT BUS ADDRESS INCREMENT

SEQ 0157

CIRJIDO, RPO4/S5/6 FCINL CTLRY
CIRJID.P1Y
28-MAR-79 09:03

7553

7554
7555
7556
;22;
7559
;gg?

MACYYT

c 13
30A(1052)
25-MAY-79
10:30 PAGE 159
140
WRITE/READ DATA USING UNIBUS B

030106

014000

ECI'FMT2?2

030110

002446

READAT

030112

052777

002000

152160

BIS

;zg%

FPSEL ,aRHCSY

004037
002272
004612

030130

000022

7571

030132

004737

0461604

JSR

PC,a#CHECKT

030136

104401

067033

TYPE

LCPHALT

;2;2

030142

000000

7577
7578
7579
7580
7581

030144

013777

041672

JSR
RHWC
SAVERE

7584

030152

013746

002446

MoV

SN#READAT,-(SP)

7587

030162

012677

152112

MOV

(SP)+,aRHCS)

030166
030170

011100
011305

MOV
MoV

aR1,RO
aR3,RS

030172
030174

104413
002300
000200
001614
001507

WAT
RHCSH

‘

7588
7589
7590
;gg;
7593

7594
7595

7596
7597
7598
7599

004606

152114

MOV

7607
7608

;CHECK DVA,RDY,MOL,DPR,DRY,VV = 1
:AND THAT NO STATUS BITS ARE STUCK =1
;CANNOT CONTINUE TESTING IFf ANY OF
:THE FIRST SET OF BITS DON'T =1
;ST0P

ONRPLVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS
;70 *TIMEY' IF P=-CLOCK ]S PRESENT?
:OR TO 'TIMEZ2' IF P-CLOCK IS NOT PRESENT
s'TIME® WILL ONLY SAVE
:CURRENT CYLINDER ADDRESS

sAND LOOK AMEAD REGISTERS

030156

030176
030200
030202

052716

002101

B1S

#GO'1E!PSEL, (SP)

:GET READY TO MOVE COMMAND

:GET READY TO SET 'GO' AND
;ENABLE INTERRUPT
;60 WITH
;70 IN RHCSY FOR READ DATA
:WITH INTERRUPT ENABLED
:SAVE RHCSY DURING ABOVE OPERATION
:SAVE RHDSY DURING ABOVE OPERATION
;WALIT FOR RDY BIT T0O SET
sWAIT FOR RHCS1 REGISTER

RDY
908.
839.

7600

:SAVE REGISTERS
;RHWC 1S THE FIRST REGISTER SAVED
:STARTING ADDRESS OFf WHERE
;THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS

:SAVED = 18,

HALT

7601
768%

7604
7605
7606

RO,3#SAVER

18.

;23%

7585
7586

:SET PORT B
; THAT 1S UNIBUS B

:*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA (OMMAND
030120
030124
030126

7572
7573
7574

:16 BITS PER WORD FORMAT

sINHIBLIT ECC CORRECTION
DO NOT INMIB]T HEADER COMPARE
;GET READY TO DC A READA1T
;READ DATA WiTH 70 IN RMCSI

7564
7565
7566
7567
7568

;g?g

SEQ 0158

;WAIT FOR RDY BIT IN RHCS! REGISTER
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN
:690 AND 176470 MICRO SECONDS

;:*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN
:*RO AND RS ]MMEDIATELY AFTER GO
030204
030210
030214

030220

013746
052716
011637

022600

002446
006101
001124

MOV
BIS
MOV

CMP

9#READAT,-(SP)
;SAVE COMMAND
#1E'GO'DVA!PSEL, (SP)
;INCLUDE 1E'GO'!DVA.PSEL
;SAVE FOR PRINTQUT
(SP) ,a#sGDDAT

(SP)+,RO

:DURING ABOVE OPERAT]ION ONLY [E'GO.DVA.PSEL
:AND COMMAND SHOULD BE SET

RPO4/5/6 FCINL CTLRI
0
DO,
2B-MAR-79 09:03
0.P1 1
9

03022¢
030224
030230
030234

001405
010037
010137

030236
030242
030246

012746
011637
022605

030250
030252
030256
030262

001405
010537
010337
104063

MACY11

30A(1052)
140

25-MAY-79

MOV
mMov

ERROR

71%:

71%
RO,a8#$BDDAT
R1,8#REGADR
2

GOOD
;BAD DATA
;FAILING REGISTER RHCS1

;DURING ABOVE OPERATION ONLY

; COMMAND AND JE'!GO!DVA!PSEL SHOULD BE SET

#MOL ! DPR!VV,=(SP)

CmMp

(SP)+ RS

Mov

Mov
Mov

ERROR

(SP) ,a#$GLDAT

;SAVE B]TS SET DURING OPERATION IN RHDSI

;SAVE FOR PRINTOUT

73%

;DURING ABOVE OPERATION ONLY MOL'!DPR:vV
; SHOULD BE SET
;BRANCH IF GOOD

;DURING ABOVE OPERATION ONLY

RS ,a¥$BDDAT
R3.3/REGADR

:BAD DATA
;FAILING REGISTER RHDS1
;MOL!DPR!VV SHOULD BE

73%:

030264

SEQ 0159

:BRANCH If

Mov

BEQ

001126
004600

D 13
PAGE 160

WRITE/READ DATA USING UNIBUS B

Bea

104021

10:30

SET

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES
030264
030270
030272
030274
030300
030302
030304
030310
030312

004037
002272
000000
004037
002274
004354
004037
002304
000001

0414626

JSR

RO,a#FILLRE

MOV O INTO SAVED RHW(

JSR

RO,a#FILLRE

MOV REINTO+<200.#2> INTO SAVED RHBA

JSR

RO,a#F ILLRE

RHW(
0

041426

RHBA
REINT0+<200.¢2>

0461426

?HDST

:SAVED REGISTER TO CHANGE
;DATA

;SAVED REGISTER TO CHANGE
;:DATA

;MOV 1

INTO SAVED RHDST

:g:¥§0 REGISTER TO CHANGE

;vCOMPARE REGISTERS BEFORE READ DATA COMMAND
;*WITH REGISTERS AFTER COMMAND
030314

004037

030320
030322
030324
030326
030330

004612
002354
000022
030332
030336

030332

104072

030334

000207

JSR

042512

RO,3#COMREG

SAVERE
W
18.
5%
6%
5%:

:G0O0D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHW(C'
:18. REGISTERS 1O BE COMPARED
;RETURN T0 5% ON ERROR
;RETURN TO 6% ON NO ERROR

ERROR

RTS

;*NOW READ

;WHILE USING UNIBUS B
;READ DATA CAUSED IMPROPER
;REGISTER CHANGE

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

INTO BUFFER

IS CHECKED FOR GOOD READ

6%:

030336

030336
030342
030344
030346
030350

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE

004037
002470
003534
000400
030354

0643542

JSR
WRFRQOM
REINTO

256.
%

RO,3#COMPAR

; COMPARE TWO BLOCKS OF MEMORY
.GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO

;256. WORDS TO BE COMPARED
;RETURN 10 7% ON ERROR

CIRJIDO, RPO4/5/6 FCTINL CTLR]
28-MAR-79 09:03

P11
CIRJID.P

7665
7666
7667
7668
7669
7670
7671
7672
7673
7674

7675
7676
7677
7678

030352

030360

030354

104073

030356

000207

030360

MACY11

E 13
10: 30
PAGE 161

30A(1052)
25-MAY-79
140
WRITE/READ DATA USING UNIBUS B

;RETURN TO 10% ON NO ERROR

10%
7%:

10%:

SEQ 0160

ERROR

;WHILE USING UNIBUS B

RIS

;WRITE

;INCORRECT DATA AFTER

DATA FOLLOWED BY A

;READ DATA

CIRJIDO, RPO&/S5/6 FCTINL CTLR 1
CIRJID.PNY
28-MAR-79 09:03

MACY11

7679
7680
7681
7682
7683
7684
7685
7686
7687
7688
7689
7690
7691
7692
7693
7694
7695
7696
7697
7698
7699
7700
7701
7702
7703
7704
7705
7706

140

25-MAY-79

10:30

F13

PAGE

162

SEQ 016!

WRITE/READ DATA USING UNIBUS B

‘;"""'0"'l"""'t"""'""'l""'t"t""""".."""."

IMPLIED SEARCH

ONLY NEW ADDITION IN THIS TEST IS AN IMPLIED SEARCH
SFURé;gSHEADER AND DATA IS GIVEN FOR MORE THAN ONE SECTOR

TYTEST 41
Ve

WRITE HEADER AND DATA (YLINDER O, FORMAT 16 BITS PER WORD

TRACK O,

N
W2

N
IR
NN

WORDS

THE GO BIT, AND ALL THE REGISTERS ARE SAVED
THEN GO 1S GIVEN FOR WRITE HEADER AND DATA

SECTOR O, xEYS=0, NUMBER OF

266 (& HEADER 256 DATA=0 4 HEADER 2 DATA=1
THEN READ HEADER AND DATA FOR ABOVE SECTOR 1 ONLY
WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH
10000,0,0,0 AND 256 OF 0, 10000,1,0,0, AND 2 OF 1
THE WRITE COMMAND IS THEN LOADED INTO THE REGISTERS EXCEPT

Ve
Ve
B

2R .2

NOW FOR THE READ COMMAND READ INTO BUFFER 1S FILLED

THEN ALL REGISIERS ARE COMPARED TO CHECK FOR IMPROPER CHANGE
THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED

WITH 377, WRITE FROM BUFFER IS FILLED WITH 10000,1,0,0,1,1

S e

AND 254 OF ZEROS COMMAND IS LOADED INTO REGISTERS EXCEPT
GO AND 1E THEN ALL REGISTERS ARE SAVED

we
%o
me

2NN NN

GO 1S GIVEN FOR THE READ COMMAND, 256 WORDS

030360
030362
030366

000004
012706
012737

001000
000041

030374

004737

041524

ALL REGISTERS ARE CHECKED FOR

L 2N

®e

7707
7708
7709
7710
7711
7712
7713
7714
7715
7716
7717
7718
7719
7720
7721
7722
7723
7724
7725
7726
7727
7728
7729
7730
7731
7732
7733
7734

30A(1052)

THEN THE READ DATA 1S COMPARED

S (2 2222222
s EEE

iéTLI:
004604

SCOPE

IMPROPER CHANGE

R0 R 24
202
232222202220
22222222222232232ZX2X222222

MOV
MOV

#STACK,SP
#61,3#TSTNM

;RESET STAC(K
;SAVE TEST NUMBER

JSR

PC,a#CLDISK

;SET R1=-RHCS1, R2-RH(CS?
:R3-RHDST, R&-RHER1

:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
;eF1LL WRITE FROM BUFFER WITH HEADER
030400
030404
030406
030410
030412
030414
030416

030420
030424
030426
030430

004037
002470
000004
010000
000000
000000
000000

004037
002500
000400
000000

041350

041374

JSR
WRFROM
4
10000
0
0
0

RO,aNFLHEAD

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

seflLL WRITE FROM BUFFER WITH DATA
:CLEAR 256. WORDS, FROM WRFROM+10
RO,a#CLAREA
JSR
;STARTING FROM WRFROM+10
WRFROM+10
:256. WORDS
256.
;PILL WITH O
0

CIRJIDO, RPO4/S/6 FCINL CTLRI
28-MAR-79 09:03

CIRJ1D. P IR

7743

7744
7745
7746
7747
7748
7749
7750
7751
7752
7753
7754
7755
7756
7757
7758
7759
7760
7761
7762

7763
7764
7765

7766
7767
7768
7769
7770
7N
7772
7773
7774

7775
7776
777
7778
7179
7780
7781
7782
7783
7784
7785
7786
7787
7788
7789
7790

30A(1052)
141

25-MAY-79

613
10:30 PAGE 163

IMPLIED SEARCH

;eFILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER
030432
030436
030440
030442
030444
030446
030450

004037
003500
000004
010000
000001
000000
000000

041350

030452
030456
030460
030462

004037
003510
000002
000001

061374

JSR

RO,a#FLHEAD

WRFROM+<260.¢2>
4
10000
1
0
0

;SAVE HEADER DATA IN WRFROM+<260.¢2>
sLOCATION 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
;CLEAR 2 WORDS, FROM WRFROM+<264.¢2>
RO,a#CLAREA
JSR
WRFROM+ <264 .¢2>
:STARTING FROM WRFROM+<264,.¢2>
2
1

;2 WORDS
SsFILL WITH 1

;*NOW READ INTO BUFFER WiLL BE FILLED WITH SAME DATA
;*AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPAR[SONS
;*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT
;*(HANGE WRITE FROM BUFFER.

JSR

RO,a#FLHEAD

030464
030470
030472
030474
030476
030500
030502
030504
030510
030512
030514

004037
003534
000004
010000
000000
000000
000000
004037
003544
000400
000000

041350

0461374

0
0
0
RO,3IN#CLAREA
JSR
REINTO+10
256.
0

030516
030522
03052¢4

004037
004544
000004
010000
000001
000000
000000
004037
004554
000002
000001

041350

JSR

030526
030530
030532
030534
030536
030542
030544
030546

REINTO
4
10000

RO,a#f LHEAD

REINT0+<260.¢2>
4
10000
1

0
0

RO,3#CLAREA
JSR
REINTO+<264.%2>

064137¢

— 0N

7735
7736
7737
7738
7739
7740
7741
7742

MACY11

: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 REINTO0+10
:STARTING FROM REINTO+10
:256. WORDS
JFILL WITH O

;SAVE HEADER DATA IN REINT0+<260.2>
;LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD
;SECOND DATA WORD
;THIRD DATA WORD

;FOURTH DATA WORD

;CLEAR 2 WORDS, FROM REINTOD+<264.92~
5
:STARTING FROM REINT0+<264,.02>
;¢

WORDS

JHILL WITH

;*NOW THE WRITE HEADER AND DATA (OMMAND WwiLL BE FILLED
030550
030554
030556

004037
000000
000

043476
BYTE

JSR
0
0

RO,a3#RUN

:SETUP TO RUN FOR DATA (OMMAND
:CYLINDER O
;SECTOR O

SEQ 0162

CTL R1

CZRJIDO, RPO4/S/6 FCINL
CZRJID.PN
28-MAR-79 09:03
7791

030557

MACY1Y 3?2%1052)

000

BYTE

25-MAY-79

10:30

IMPLIED SEARCH

:TRACK O

030560

177366

7794
7795
7796

030562

002470

WRFROM

030564
030566

000000
010000

0
FM122

030570

002444

WR1FOR

7806
7807
7808
7809
7810

030572
030576
030600

004037
002272
004612

030602

000022

7813
7814
7815
7816
;g}g

030604

004737

0416064

JSR

PC,aNCHECKT

030610

104401

067033

TYPE

,CPHALT

030614

000000

7819
7820
7821
7822
7823
7824

030616

013777

004606

7827

030624

013746

002444

7797
7798
7799
7800
7801

;gg%

7806

7805

;g};

7825
7826

7828

7829
7830
7831
7832
7833

;ggg

030630

052716

030636

012677

030640

011100

030642

011305

7839
7840

7861

7842

7843
7844

7845

7846

-262.-4

:WORD COUNT (DATA) = 262. +
:4 HEADER WORDS

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

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

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

;+NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DAT!

041672

JSR
RHWC
SAVERE

RO,3¥SAVER

18.

:SAVED = 18.

HALT

000101

151440

151442

:SAVE REGiSTERS
:RHWC 1S THE FIRST REGISTER SAVED
:STARTING ADDRESS OF WHERE
:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS

:CHECK DVA,RDY,MOL,DPR,DRY,VV = 1
:AND THAT NO STATUS BITS ARE STUCK = 1
:CANNOT CONTINUE TESTING IF ANY OF
:THE FIRST SET OF BITS DON'T =1
:STOP

MOV

SN¥RP4LVEC,aRPVEC :SET RPO4 VECTOR ADDRESS
:T0 "TIME1® IF P-CLOCK 1S PRESENT
:OR 10 'TIME2' IF P-CLOCK 1S NO PRESENT
;'TIME' WILL ONLY SAVE
:CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS

MOV

ANWRIFOR,-(SP)

BIS

MOV

#GO.1E, (SP)

(SPY+,aRHCST

aR1,RO

arR3,RS

:GET READY TO MOVE COMMAND

:GET READY TO SET 'GO' AND

;ENABLE INTERRUPT
;60 WITH
;62 IN RHCSY FOR WRITE HEADER AND DATA
:WITH INTERRUPT ENABLED
:SAVE RHCS1 DURING ABOVE OPERATION

:SAVE RHDS1 DURING ABOVE OPERATION

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

7g§9
7838

PAGE 164

7792

779%

H 13

030644
030646

030650

030652
03065«

104413
002300

WAT
RHCS!

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

002001

1025.

;ALLOW 10250 MICRO SECONDS

000200

001553

RDY

875.

:WALIT FOR RDY BIT IN RHCS1 REGISTER
;RDY MUST SET BETWEEN

;1500 AND 19000 MICRO SECONDS

;*COMPARE CONTENTS OF RACS1 AND RHDSY ALREADY SAVED IN

SEQ 0163

CIRJIDO, RPO4L/S/6 FCINL CTLRY
CIRJID.P
2B-MAR-79 09:03

MACY11

30A(1052)

161

;gzg
030656
030662
030666
030672

013746
052716
011637
022600

030674
030676

001405
010037

7857

030706

104021

7858
7859
7860
7861
7862
7863
7864

7865

7866
7867
7868

7869

030702

010137

002444
004101
00112¢

001126

004600

7873

7874

7875

7876
7877
7878
7879
;gg?

030710

012746

010500

030722
030724

001405
010537

001126

030714
030720

030730
030734

011637
022605

010337

106063

001124

669 :

004600

7886
7887

030736

004037

030744

000000

030742

030746

030752
030754
030756
030762
030764

002272

006037

002274
003514
004037
002304
000002

SEQ 0164

BEQ
MOV

643
RO,aNSBDDAT

;SAVE (OMMAND
;INCLUDE IE'GO'DVA
;SAVE FOR PRINTOUT
:DURING ABOVE OPERATION ONLY
:AND COMMAND SHOULD BE SET
:BRANCH IF GOOD
:BAD DATA

ERROR

;:DURING ABOVE OPERATION ONLY

R1,3/REGADR

1E.GO'DVA

;FAILING REGISTER RHCS?

MOV

:COMMAND AND [E'GO'DVA SHOULD BE SET
#MOL'DPR!VY,=(SP)
:SAVE BITS SET DURING OPERATION IN RHDS!I

BEQ
MOV

66%
RS,aNSBDDAT

ERROR

MOV
cMp

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

R3,3¥#REGADR

;SAVE FOR PRINTOUT
:DURING ABOVE OPERATION ONLY MOL.DPR'VV
;SHOULD BE SET
:BRANCH IF
:BAD DATA

GOOD

;FAILING REGISTER RHDS!

:DURING ABOVE OPERATION ONLY
:MOL'DPR!'VV SHOULD BE SE1T

041426

JSR

RHW(C

041426

JSR

RO,aNF ILLRE

RO,a#F ILLRE

RHBA
WRFROM+<266.42>
JSR
RO,a#F ILLRE
RHDST
2

041626

:MOV O INTO SAVED RHW(

:SAVED REGISTER TO CHANGE
;DATA

;MOV WRFROM+<266,#2> INTO SAVED RHBA

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

:«NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA
:+WITH REGISTERS AFTER CCMMAND

7888
7889
7890
7891
739§

030772
030774
030776
031000
031002

004612
002354
000022
031004
031010

7894
7895
7896
7897
7898
7899
7900

031006
031006

104027
000207

7901

165

;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES

004037

7902

PAGE

SFWRIFOR,=(SP)
#L1E'GO'DVA,
(SP)
(SP) ,a#$GDDAT
(SP)+,RO

66%:

030766

789

113

MOV
B1S
MOV
cme

MOV

7882
7883
7884
7885

IMPLIED SEARCH

MOV

;g;?

7872

10:30

;*RO AND RS IMMEDIATELY AFTER GO

7849
7850
7851
7852
7853
7854
7855

7856

25-MAY-79

042512

JSR

RO,3#COMREG

SAVERE
Wi
18.
1%
2%
1¢:

ERROR
RTS

: COMPARE SAVED REGISTERS WITH
:PRESENT VALUE

;600D DATA SAVED IN 'SAVERE'
:TEST DATA STARTING FROM 'RHWC'
:18. REGISTERS TO BE COMPARED
:RETURN T0 1% ON ERROR
:RETURN TO 2% ON NO ERROR
27
PC

;WRITE HEADER AND DATA
:CAUSED IMPROPER REGISTER
; CHANGE
;600D DATA GIVES WHAT SHOULD
:BE THERE
;RECEIVED DATA GIVES WHAT
:WAS THERE AFTER (OMMANT

;*NOW WRITE FROM BUFFER WlLL BE CHECKED TO SEE THAT

CIRJIDO, RPO&4/S/6 FCTINL CTLRI
CZRJ1D.PWY
28-MAR-79 09:03
7903
7904
7905
7906
7907
7908
7909
7910
7911
7912
7913
7914
7915

7916
7917
7918
7919
7920
7921
7922
7923
7924
7925
7926

7927
7928
7929
7930
7931
7932
7933
7934
7935
7936
7937
7938
7939
7940
7941
7942
7943

7944
7945
7946
7947
7948

7949
7950
7951
7952

7953
7954
7955
7956
7957
7958

MACY11

30A(1052)
25-MAY-79
10:30
141
IMPLIED SEARCH

J 13

PAGE

166

SEQ 0165

:*NOTHING GOT CHANGED
2%:

031010

031010
031014
031016
031020
031022
031024

004037
003534
002470
000412
031026
031032

031026

104030
000207

031030

JSR

043542

REINTO
WRFROM

RO,a3#COMPAR

266.

;RETURN 10 3% ON ERROR

ERROR
RTS

.GO0D DATA STARTS FROM REINTO
sTEST DATA STARTS FROM WRFROM

;266. WORDS TO BE COMPARED

; COMPARE TWO BLOCKS OF MEMORY

;RETURN TO 4% ON NO ERROR

;WRITE HEADER AND DATA

s CHANGED WRITE

FROM BUFFER

:*NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN
;*FOR SECTOR
4%:

031032

031036
031042
031044
031046

004737

004037
003534

JSR

041524

JSR

041374

1, 256 WORDS

;*READ INTO BUFFER IS FILLED WITH ONES

REINTO

PC,aNCLDISK

RO,a#CLAREA

260.
377

000404
000377

;SET R1-RHCS1, R2-RH(SZ

;R3-RHDS1, R4&=-RHERI

;GIVE RH=-11 INITIALIZE
;SETUP UNIT NUMBER
;CLEAR 260. WORDS, FROM REINTO
;STARTING FROM REINTO

:260. WORDS
SPILL WITH 377

;*WRITE FROM BUFFER IS FILLED WITH EXPECTED DATA
031050

031054
031056
031060
031062
031064
031066
031070
031072
031074
031100
031102
031104

004037
002470
000006
010000
000001
000000
000000
000001
000001
004037
002504
000254
000000

JSR
WRFROM
6
10000
1
0
0
1
1

041350

RO,a#F LHEAD

;*NOW FILL

031106
031112
031114
031115
031116

004037
000000
001

000
177374

s SECOND DATA WORD
:THIRD DATA WORD

;FOURTH DATA WORD

JSR
RO,3#CLAREA
WRFROM+<H.*2>
254
0

041374

043476
.BYTE
.BYTE

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

;F1FTH DATA WORD
:SIXTH DATA WORD

:CLEAR 254 WORDS, FROM WRFROM+<6.22>
:STARTING FROM WRFROM+<H,
22>
12564 WORDS
SFILL WITH O

COMMAND

JSR
RO,3#RUN
0
1
0
-256.-4

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 0
;SECTOR 1

;TRACK 0
;WORD COUNT

(DATA) - 256, ¢

7988
7989
7990
7991
7992
7993
7994
7995
7996
7997
7998
7999

8000
8001
8002
8003
8004
8005
8006
8007
8008
8009
8010
8011
8012
8013
8014

25-MAY-79

IMPLIED SEARCH

000000
014000

0
ECI!FMT22

002450

REFOR

—

REINTO

K13
PAGE

167

SEQ 0166

;& HEADER WORDS

003534

031126

10:30

:BUS ADDRESS

;STARTING ADDRESS OF DATA

;BUFFER = REINTO
;00 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
:GET

READY

TO DO A REFOR

;READ HEADER AND DATA WITH 72

IN RHCSI

:*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA
JSR

RO,a#SAVER

000022

031142

004737

041604

JSR

PC,a#CHECKT

031146

104401

067033

TYPE

LCPHALT

031152

000000

031154

013777

il
—

e
—

031140

004037
002272
004612

(Vv

*ro

7987

30A

031120

OO0

7959

7960
7961
7962
7963
7964
7965
7966
71967
7968
7969
7970
7971
7972
7973
7974
7975
7976
7977
7978
7979
7980
7981
7982
7983
7984
7985
7986

MACY11

[eY =]

CIRJ1IDO, RPO&4/S/6 FCINL CTLR]
CIRJ1D.PVY
28-MAR-79 09:03

041672

RHW(

SAVERE

HALT

151104

Mov

;RHWC

IS THE

FIRST REGISTER SAVED

;STARTING ADDRESS OF WHERE
:THE REGISTERS ARE SAVED
;NUMBER OF REGISTERS
;SAVED = 18.

18.

004606

;SAVE REGISTERS

S#RP4VEC,3RPVEC

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

;AND THAT NO STATUS BITS ARE STu(k - 1
;CANNOT CONTINUE TESTING IF ANY OF
;THE FIRST SET OF BITS DON'T = 1
;STOP

;SET RPO4 VECTOR ADDRESS

;70 "TIMEY' IF P=CLOCK IS PRESENT

:OR 1O 'TIME2'
;'TIME'

IF P-CLOCK

WILL ONLY

SAVE

IS NOT PRESENT

; CURRENT CYLINDER ADDRESS
;AND LOOK

031162
031166

013746
052716

002450
000101

MOV

a#REFOR,-(SP)

;GET READY

031172

012677

151102

Mov

(SP)+,aRHCS]

;60 WITH

011100
011305

BIS

Mov
MOV

#GC!1E, (SP)

aR1,RO
aR3,R5

AHEAD REGISTERS

TO MOVE

:GET READY TO SET
;ENABLE INTERRUPT

COMMAND

°'GO' AND

;72 IN RHCS1 FOR READ DATA

;WITH INTERRUPT ENABLED
;SAVE RHCS1 DURING ABOVE OPERATION
:SAVE RHDS! DURING ABOVE OPERATION

; *ONE REVOLUTION = 16670 MICRO SEC, ONE SECTOR 760 MICRO SECONDS
104413

002300
000200
001614
001507

WAT
RHCST

RDY
908.
839.

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

;WALT FOR RDY BIT IN RH(SY REGISTER
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

;690 AND 17470 MICRO SECONDS

;*COMPARE CONTENTS OF RHCS! AND RHDS1

;*RO AND RS IMMEDIATELY AFTER GO

ALREADY SAVED IN

CIRJIIDO, RPO&L/S5/6 FCTNL CTLRY
28-MAR-79 09:03

8043

8044
8045
8046
8047
8048
8049
8050
8051
8052
8053
8054
8055
8056
8057
8058
8059

8060

8061
8062

8063
8064
8065
8066

8067
8068

8069
8070

NN
—
O8O0
NN
r,1r0O8rNN

il
i
—

OOO0OOoO

031272

30A(1052)
141

002450
0046101
001124

NN
NN

OO0O0CO

——

OO0

8015

8016
8017
8018
8019
8020
8021
8022
8023
8024
8025
8026
8027
8028
8029
8030
8031
8032
8033
8034
8035
8036
8037
8038
8039
8040
8041
8042

VLV
IV 1V ]

CIRJ1D. P11

MACY1Y

104021

010500

001124

001405
010537
010337
106063

001126
004600

L 13
PAGE 168

MOV

8/REFOR,~(SP)

BEQ

e7%

Mov
ERROR

R1,3#REGADR
21

Mov

67%:

10:30

IMPLIED SEARCH

BIS
MOV
(mp

001126
004600

012746
011637
022605

25-MAY-79

MOv

MOv
cMP
BEQ
MOv

MOv
ERROR

; SAVE COMMAND

(SP) ; INCLUDE IE!GO!DVA
W1E'GO'DVA,
;SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
(SP)+ ,RO
;DURING ABOVE OPERATJON ONLY IE!GO.DvVA
RO,a#$BDDAY

:AND COMMAND SHOULD BE

SET

:BRANCH IF GOOD
;BAD DATA

;FAILING REGISTER RHCSI1
:DURING ABOVE OPERATION ONLY
; COMMAND AND IE!GO'DVA SHOULD BE SET
#MOL !DPR!VV,=(SP)
sSAVE BITS SET DURING OPERATION IN RHDSI
:SAVE FOR PRINTOUT
(SP) ,@#$GDDAT
(SP)+,RS
;DURING ABOVE OPERATION ONLY MOL!DPR:@VV
; SHOULD BE SET
69%
;BRANCH IF GOOD
RS,3#$BDDAT

R3,3#REGADR
63

69%:

031274

SEQ 0167

;BAD DATA

;FAILING REGISTER RHDSI1
:DURING ABOVE OPERATION ONLY
;MOL!DPR!VV SHOULD BE

SET

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
031274
031300
031302
031304
031310
031312
031314
031320
031322

004037
002272
000000
004037
002274
004544
004037
002304
000002

061426

JSR

RO,9#FILLRE

:MOV O INTO SAVED RHW(

041426

JSR
RHBA

RO,aNF ILLRE

MOV REINTO+<260.%2> INTO SAVED RHBA
:SAVED REGISTER 10 CHANGE

JSR
gHDST

RO,o#F ILLRE

SHUC

REINTO+<260.¢2>

061426

:g:¥i0 REGISTER TO CHANGE

;:DATA

;MOV 2 INTO SAVED RHDST
:3A¥ED REGISTER TO CHANGE

:DA

;*COMPARE REGISTERS BEFORE READ HEADER AND DATA

;*WITH REGISTERS AFTER COMMAND

031324

004037

031330
031332
031334
031336
031340

004612
002354
000022
031342
031346

031342
031344

104031

000207

JSR

062512

RO,3#COMREG

: COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM 'RHWC'
;18. REGISTERS 70 BE COMPARED
;RETURN TO 5% ON ERROR
;RETURN TO 6% ON NO ERROR

31
PC

;READ HEADER AND DATA CAUSED
; INPROPER REGISTER CHANGE
:G00D DATA GIVES WHAT SHOULD

SAVERE
W(
18.
5%
6%

5¢:

ERROR
RTS

;BE THERE

;RECEIVED DATA GIVES WHAT WAS
; THERE

AFTER

COMMAND

;*NOW READ INTO BUFFER WILL BE CHECKED 10 SEE

;*THAT READ WAS GOOD

CZRJIDO, RPO4/5/6 FCINL CTLR]
C7RJ1D.PN
28-MAR-79 09:03

8071
8072
8073
8074
8075
8076
8077
8078
8079
8080
8081
8082
8083
8084
8085
8086
8087

031346

30A(1052)
25-MAY=79
10:30
T41
IMPLIED SEARCH

ni3
PAGE

169

SEQ 0168

031346
031352
031354
031356
031360
031362

004037
002470
003534
000404
031364
031370

031364
031366

104032
000207

031370

MACY11

063542

JSR

WRFROM
REINTO

RO,3#COMPAR

;TEST

;RETURN 10 7% ON ERROR
;RETURN TO 10% ON NO ERROR

7$
10%

ERROR
RTS

10%:

DATA STARTS FROM REINTO

:260. WORDS TO BE COMPARED

260.

’%:

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

3¢

;WRITE HEADER AND DATA

;FOLLOWED BY A READ HEADER
;AND DATA GAVE

;ERROR MAY BE

A READ ERROR

IN READ OR WRITE

CIRJIDO, RPO4/S/6 FCTINL CTLR1
CZRJID.PVY
28-MAR-79 09:03

MACYT1

8088

30A(1052)
25-MAY-79
10:30
1 41
IMPLIED SEARCH

8089

ggg?

JeTEST 42

ggg%

A
.t
.
;e
X
M
o
M
M
M
o
A
M

g}gg

PAGE

170

SEQ 0169
N

R N R R N R R R R AR R R

R R L)

IMPLIED SEEK TO CvL 001

LSBTTL

8094
8095
8096
8097
8098
8099
8100
8101
8102
8103
8104
8105
8106

N 13

SEEK TESTS

ONLY NEW ADDITION IN THIS TEST IS AN IMPLIED SEEK FROM CYLINDER 0
TO CYLINDER 1, A WRITE HEADER AND DATA |S GIVEN FOR MORE THAN
ONE SECTOR OF WORDS
WRITE HEADER AND DATA CYLINDER 0, FORMAT 16 BITS PER WORD
TRACK 18, SECTOR 21, KEYS=0, NUMBER OF WORDS 266 WORDS
(&L HEADER, 256 DATA=1125, & HEADER 2 DATA = 2000
THEN READ HEADER AND DATA FOR ABOVE, TRACK 0O, SECTOR 0, CvL=1
WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH
10000,0,0,0 AND 256 OF 1125, 10001,0,0,0, AND 2 OF 2000
THE WRITE COMMAND IS THEN LOADED INTO THE REGISTERS EXCEPT
THE GO BIT, AND ALL THE REGISTERS ARE SAVED

THEN GO IS GIVEN FOR WRITE HEADER AND DATA

s e O
OO

o OO 0o 0o 0o 00 OB 0o Oo OB o GO GO G OO 0o OB OB 0o 0O OB OO Go 0D Cd b Co G OB OB O 01 O o 00

.Y
A

D i

X
bR4

T
M

B8P MM NN N AN N NN NN N NN
NONININ = o
s bt s
W= OOVBNO N NN —=O VN VNS NN OOV VNS NN

D sl

.
.
M
MR4

ALL REGISTERS ARE CHECKED FOR IMPROPER (HANGE

d e

P
il
D
D el e

NOW FOR READ COMMAND READ INTO BUFFER IS FILLED
WITH ALL ONES, WRITE FROM BUFFER IS LOADED WITH
10001,0,0,0 AND 2 OF 2000,2546 OF ZEROS COMMAND IS LOADED
INTO REGISTERS EXCEPT GO AND IE ALL REGISTERS ARE SAVED
GO 1S GIVEN FOR THE READ COMMAND

031370

000004

031372
031376

012706
012737

001000
000042

031404

004737

041524

THEN

15142:
004604

SCOPE

THE

READ DATA

ARl

#STACK,SP
#62,30TSTNM

SRESET STACK
TSAVE TEST NUMBER

JSR

PC.a#CLDISK

:SET R1-RHCS1, R2-RHCS?
;R3-RHDS1, R&-RHER]

e
D el

;*FILL WRITE FROM BUFFER WITH HEADER

)
D
v
e
D e
el i
o

COMPARED.

;GIVE RH=11 INITIALIZE
¢SETUP UNIT NUMBER

031410
0316414
031416
031420
031422
031424
031426

004037
002470
000004
010000
011025
000000
000000

041350

JSR
RO,3#FLHEAD
WRFROM
4
10000
<18.¢400>'<21.>
0
0

031430

004037

061374

JSR

i
—

MOV
MOV

)

THEN ALL REGISTERS ARE COMPARED TO CHECX FOR IMPROPER (MANGE
THEN WRITE FROM BUFFER 1S CHECKED TO SEE THAT NOTHING CHANGED

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

stFILL WRITE FROM BUFFER WITH DATA
RO,a#CLAREA

;CLEAR 256. WORDS,

FROM WRFROM+10

CIRJ1IDO, ?POA/S/b FCTNL CTLRY

28-MAR-79 09:03

P1
CIRJID.P

8144

8145
8146
8147

i wed
—

—

0o Oo Oo O 00 0o 0o OB OB 0o OO OB 00

cooo ALY ARV AV IV IV IV [V ]
(V.1
S P Y ) V0O~V
Wi

8148
8149
8150
51

031434
031436
031440

002500
000400
001125

MACY11

30A(1052)
25-MAY-79
SEEXK TESTS

10:30

B 14

gRFR0H010
<18.¢40>'21,

PAGE

171

SEQ 0170

:STARTING FROM WRFROM+10
S
WORD
:256.
FILL WITH <18.+40>'21.,

;eFILL WRITE FROM BUFFER WITH NEXT TRACK HEADER
031442
031446
031450
031452
031454
031456
031460
031462
031466
031470
031472

004037
003500
000004
010001
000000
000000
000000
004037
003510
000002
002000

041350

JSR
RO,a#FLHEAD
WRFROM+<260.¢2>

;SAVE HEADER DATA IN WRFROM+<260.¢2>

10001
0
0
0

;FIRST DATA WORD

0461374

sLOCATION WHERE SAVED
;NUMBER OF WORDS SAVED

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

;*FILL WRITE FROM BUFFER WITH NEXT TRACK DATA
JSR
RO,a#CLAREA
:CLEAR 2 WORDS, FROM WRFROM+<264,.22>

gRFROn¢<266.'2>

2000

:STARTING FROM WRFROM+<264.¢2>

:2 WORDS
;FILL WITH 2000

;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA
;*AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPAR]ISONS
;*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT
:*CHANGE WRITE FROM BUFFER,
004037
003534
000004
010000
011025
000000
000000
004037
003544
000400
001125

041350

004037
004544
000004
010001
000000
000000
000000
004037
0045564
000002
002000

041350

JSR

REINTO

RO,aN#FLHEAD

;NUMBER OF WORDS SAVED

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

;FIRST DATA WORD
:SECOND DATA WORD

JSR

REINTO+10
256.

sCLEAR 256. WORDS, FROM REINTO+10
:STARTING FROM REINTO+10
;256. WORDS
SFILL WITH <18.940>1!21,

JSR

:SAVE HEADER DATA IN REINT0+<260.+2>
;LOCATION WHERE SAVED

041374

:SAVE HEADER DATA IN REINTO
;LOCATION WHERE SAVED

RO,D#CLAREA

<18.+40>'21,

:THIRD DATA WORD
;FOURTH DATA WORD

——r

(VIIWTVIIV
VLV RV RV SV JV LV ]

il e

) il

—

il el

ncld cacd

176

031474
031500
031502
031504
031506
031510
031512
031514
031520

RO,I#FLNEAD

REINTO+<260.¢2>

10001
0

041374

RO,3#CLAREA
JSR
SE1N10‘<264.'2>
200¢

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

. FOURTH DATA WORD

;CLEAR 2 WORDS, FROM REINTO+<264.¢2>

;2 WORDS

;STARTING FROM REINTO+<264.2>

SFILL WITH 2000

;*NOW THE WRITE HEADER AND DATA CCMMAND WiLL BE FILLED

————

CIRJIDO, RPO4L/S5/6 FCTINL CTLRI
28-MAR-79 09:03
CIRJID P

8252
8253
8254
8255

004037

000000
025
022
177366

30A(1052)
25-MAY-79
SEEK TESTS

J3R

043476

.BYTE
.BYTE

0
21.
18.

10:30

¢ 14

PAGE 172

RO.,3#RUN

WRFROM

031574

000000
010C00

0
FM122

031600

002444

WRIFOR

SEQ 0171

:SETUP TO RUN FOR DATA (OMMAND
:CYLINDER O
:SECTOR 21.
;TRACK 18.
;WORD COUNT (DATA) = 262. +

-262.-4

002470

:4 HEADER WORDS
;BUS ADDRESS

;STARTING ADDRESS OF

DATA

;BUFFER = WRFROM
;00 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;00 NOT INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE
;GET READY TO DO A WRIFOR
;WRITE HEADER AND DATA WITH 62 IN RHCSI

;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA1
031602
031606
031610

004037
002272
006612

JSR
RHW(
SAVERE

041672

RO,3#SAVER

000022

031614

004737

041604

JSR

PC,a#CHECKT

031620

104401

067033

TYPE

LCPHALT

031624

000000

031626

013777

HALT

004606

150432

MOV

:SAVE REGISTERS
:RHWC 1S THE FIRST REGISTER SAVED
:STARTING ADDRESS OF WHERE

:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS
;SAVED = 18.

18,

031612

VYV = 1
:CHECK DVA,RDY,MOL,DPR,DRY,
STUCK - 1
ARE
BITS
;AND THAT NO STATUS
; CANNOT CONTINUE TESTING IF ANY Of

;:THE FIRST SET OF BITS DON'T =
;STOP

¥RP4VEC,IRPVEC ;SET RPO4 VECTOR ADDRESS

;70 "TIMEYT' IF P=CLOCK IS PRESENT
:OR TO 'TIMEZ2' IF P-CLOCK 1S NOT PRESENT
:'TIME'

WILL ONLY

SAVE

; CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

;GET READY T0 MOVE COMMAND

031644

012677

150430

MOv

(SP)+,aRHCS!

;GO WITH

MOV
MOV

aR1,R0
aR3,RS

—

OFWRIFOR,-(SP)

N —

MoV

002444
000101

—

013746
052716

—

031634
031640

8200
8201
8202
8203
8204
8205
8206
8207
8208
8209
8210
8211
8212
8213
8214
8215
8216
8217
8218
8219
8220
8221
8222
8223
8224
8225
8226
8227
8228
8229
8230
8231
8232
8233
8234
8235
8236
8237
8238
8239
8240
8241
8242
8243
8244
8245
8246
8247
8248
8249
8250
8251

MACY11

BIS

#GO'IE, (SP)

;GET READY TO SET 'GO' AND
;ENABLE INTERRUPT
;62 IN RH(ST1 FOR WRITE HEADER AND DATA
;WITH INTERRUPT ENABLED
; SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

;*ONE REVOLUTION = 16670 MICRO1 SEC, ONE SECTOR = 760 MICRO! SEC
104413

002300
000200

WAT
RHCSY
RDY

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

CIRJIDO, RPO&4/S5/6 FCTNL CTLRY
CIRJID.PI
2B-MAR-79 09:03

8256
8257
8258
8259
8260
8261
8262
8263
8264

8265
8266
8267
8268
8269
8270
8271
8272
8273
8274
8275
8276
8277
8278
8279
8280
8281
8282
8283
8284
8285
8286
8287
8288
8289
8290
8291
8292
8293
8294
8295
8296
8297
8298
8299
8300
8301
8302
8303
8304
8305
8306
8307
8308
8309
8310
8311

031662
031664

MACY11

30A(1052)
SEEK

003237
001515

TESTS

25-MAY-79

10:30

D 14
PAGE

1695.
845.

173

SEQ 0172

;ALLOW 16950 MICRO SECONDS
;RDY MUST SET BETWEEN

;8500 AND 25400 MICRO SECONDS

; *COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN
:*RO AND RS IMMEDIATELY AFTER GO
031666
031672
031676
031702

013746
052716
011637
022600

031704
031706
031712
031716

001405
010037
010137
104021

031720
031724
031730

012746
011637
022605

031732
031734

001405
010537
010337
104063

031740
031744

002444
004101
001124

mov

BIS
Mov
cmp

001126
004600

010500
001124

66%:

#1E'GODVA,(SP)
(SP) ,@a#$GDDAT
(SP)+,RO

Mov

#MOL !DPR!VV,=(SP)

cmMp

(SP)+,RS

Mov

(SP) ,a#$GDDAT

BEQ

669

Mov
ERROR

R3,3/REGADR
63

RS .,a#$BDDAT

COMMAND

;INCLUDE IE!GO:DVA
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY
;AND COMMAND SHOULD BE SET
:BRANCH If GOOD
:BAD DATA
;FAILING REGISTER RHCS1
;DURING ABOVE OPERATION ONLY

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

66%:

031746

;SAVE

BEQ
Mov
Mov
ERROR

MOV

001126
0046600

SMWRIFOR,=-(SP)

IE'!GO:!DVA

;COMMAND AND JE'!GO!DVA SHOULD BE SET
;SAVE BITS SET DURING OPERATION IN RHDSI
:SAVE

FOR PRINTOUT

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

:BAD DATA

GOOD

;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY
;MOL!DPR!VV

SHOULD BE

SET

; *NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES
031746
031752
03175¢4
031756
031762
031764
031766
031772
031774
031776
032002
032004
032006
032012
032014

004037
002272
000000
004037
002274
003514
004037
002312
000001
004037
002334
000001
004037
002304
000001

041426

061426

JSR

RHWC

4]
JSR

RHBA

RO,9#F ILLRE

:MOV 0 INTO SAVED RHWC

RO,a#F ILLRE

;DATA
MOV WRFROM+<266.%2> INTO SAVED RHBA

WRFROM+<266.12>

:SAVED REGISTER TO CHANGE

;SAVED REGISTER TO CHANGE
:DATA

JSR

RO,a#FILLRE

:MOV 1

INTO SAVED RHCA

041426

JSR

RO,a#F ILLRE

:MOV 1

INTO SAVED RMCC

041426

JSR

RO,9#FILLRE

;MOV 1

INTO SAVED RHDST

041426

$HCA

?HCC
?HDST

:g:¥io REGISTER TO CHANGE

:SA¥ED REGISTER TO CHANGE
;DA
:g:¥io REGISTER T0O (MANGE

; *NOW COMARE REGISTERS BEFORE WRITE HEADER AND DATA

;*WITH REGISTERS AFTER COMMAND
032016

004037

032022
032024
032026
032030

004612
002354
000022
032034

062512

JSR

SAVERE
W(
18.
1%

RO,a#COMREG

. COMPARE SAVED REGISTERS WITH
;PRESENT VALUE

;600D DATA SAVED IN 'SAVERE'
;TEST DATA STARTING FROM ‘'RHW('
;18. REGISTERS 10O BE COMPARED
;RETURN 10 1$ ON ERROR

s —

032034
032036

1064027
000207

MACY11

30A(1052)
25-MAY-79
SEEK TESTS

10:30

2t
1%:

ERROR
RTS

1/¢

SEaQ 0173

27
PC

;WRITE HEADER AND DATA
;CAUSED IMPROPER REGISTER
; CHANGE

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

(L IV RV LW LV

E 14
PAGE

:RETURN T0 2% ON NO ERROR

=P e o

00 0o 0o 0o OB OO OO OO OO oo

—= OV
~NO NN ~no

032040

LS V) (V]

032032

CIRJIDO, RPO4/S5/6 FCTINL CTLRI
CZRJID.PWY
28-MAR-79 09:03

THERE

AFTER

COMMANT

;*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT
;*NOTHING GOT CHANGED
2%:

032040
032040
032044
032046
032050
032052
032054

004037
003534
002470
000412
032056
032062

032056
032060

000207

043542

JSR
REINTO
WRFROM
266.

RO,3#COMPAR

;TEST DATA STARTS FROM WRFROM

;266. WORDS 10O BE COMPARED
;RETURN TO 3% ON ERROR
:RETURN T0 4% ON NO ERROR

3%:

104030

ERROR
RTS

:COMPARE TWO BLOCKS OF MEMORY
:GOOD DATA STARTS FROM REINTO

30
PC

;WRITE HEADER AND DATA
; CHANGED WRITE FROM BUFFER

;*NOW A READ HEADER AND DATA COMMAND WILL BE

;*READ INTO BUFFER IS FILLED WITH ONES

4%:

032062
032062

032066
032072

032074
032076

SFROOSANOOSMANOO SO

—
el
el
il
—
—r
—
—
)
i
il ol
—

WNWWNNITNON)
= =2 e a0 OO0 O

[efelelelolelelololololele]

8359
8360
8361
8362
8363
8364
8365
8366
8367

004737

004037
003534
000404
177 77

041524

041374

JSR

REINTO

PC,INCLDISK

;SET R1-RHCS1, RZ2-RHCS?

RO,a#CLAREA

;GIVE RH=-11 INJTIALIZE
;SETUP UNIT NUMBER
;CLEAR 260. WORDS, FROM REINTO

260.

;R3-RHDS1,

R&=RHERI1

;STARTING FROM REINTO

:260. WORDS

-1

SEILL WITH -1

;*WRITE FROM BUFFER 1S FILLED WITH 10001,0,0,0,2000,2000, AND 254 OF 0
L Lt e Lt Lt A L A W
AN
[S1.01 €1 V1 €7 V7 V7 V1 9] V] V1, V], ¥)

8353
8354

GIVEN

004037
002470
000006
010001
000000
000000
000000
002000
002000
004037
002504
000376
000000

041350

JSR
WRFROM
6
10001

RO,I#FLHEAD

0
0
2000
041374

2000

RO,3#CLAREA
JSR
WRFROM+<H*?2>
2564.
0

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

;CLEAR 254. WORDS, FROM WRFROMe+<o?>
,STARTING FROM WRFROM+<He?>
:254. WORDS
SPILL WITH O

(ZRJ1D0, RPO4/S/6 FCTINL CTLRY
28-MAR-79 09:03
CIRJID.PIY

8423

30AC1052)
SEEK

TESTS

25-MAY-79

10:30

PAGE

175

SEQ 0174

;*NOW FILL COMMAND

004037
000001
000
000

043476
.BYTE
.BYTE

177374

JSR
1

RO,a#RUN

REINTO

032152
03215¢4

000000
014000

032156

002450

REFOR

;SETUP TO RUN FOR DATA (OMMAND

;CYLINDER

;SECTOR O

0
0
-256.-4

003534

;TRACK O

:WORD COUNT (DATA) = 256. ¢

;4 HEADER WORDS
:BUS ADDRESS
;STARTING ADDRESS OF DATA
;BUFFER = REINTO

ECI!FMT22

;D0 NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
:GET READY T0O DO A REFOR

:READ HEADER AND DATA WITH 72 IN RH(SI

;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA
RO,a#SAVER

032160
032164
032166

004037
002272
004612

032170

000022

032172

004737

041604

JSR

PC.,aNCHECKT

032176

104401

067033

TYPE

,CPHALT

032202

000000

032204

013777

041672

JSR
RHW(
SAVERE

:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS
;SAVED = 18.

18.

150054

Mov

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

;AND THAT NO STATUS BITS ARE STuCk = 1

: CANNOT CONTINUE TESTING IF ANY Of
:;?E FIRST SET OF BITS DON'T -1
;STOP

HALT

004606

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

a¥RPLVEC,aRPVEC

;SET RPQO4& VECTOR ADDRESS

;70 "TIMEY'

P=-CLOCK

]S PRESENT

;OR T0 'TIMEZ2' IF P=-CLOCK IS NOT PRESENT
;'TIME' WILL ONLY SAVE
;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

032212
032216

013746
052716

002450
000101

MOV

BiS

d#REFOR,=(SP)
¥GO!1E, (SP)

;GET READY TO MOVE COMMAND

032222

012677

150052

MoV

(SP)+ ,aRHCS

;60 WITH

:GET READY T0 SET 'GO' AND
;ENABLE INTERRUPT
;72 IN RHCST FOR READ DATA

et
—

e —

—

:WITH
OO

8368
8369
8370
8371
8372
8373
8374
8375
8376
8377
8378
8379
8380
8381
8382
8383
8384
8385
8386
8387
8388
8389
8390
8391
8392
8393
8394
8395
8396
8397
2398
8399
8400
8401
8402
8403
8404
8405
8406
8407
8408
8409
8410
8411
8412
8413
8414
8415
8416
8417
8418
8419
8420
8421
8422

MACY11

104413

002300

INTERRUPT ENABLED

MOV
MOv

:SAVE RHCS! DURING ABOVE OPERATION
:SAVE RHDST DURING ABOVE OPERATION

WAl
RHCST

;WAIT FOR RDY BIT 10 SET
;WALT FOR RHCSY REGISTER

CIRJIDO, RPO&/S/6 FCTINL CTLRI
CIRJ1D P
2B-MAR-79 09:03

8479

30A(1052)
25-MAY-79
SEEK TESTS

10:30

G 14
PAGE

ROY
908.
839.

000200

001€14
001507

176

SEQ 0175

;WAIT FOR RDY BIT IN RH(S1
;ALLOW 9080 MICRO SECONDS
sRDY MUST SET BETWEEN

;690 AND 17470 MICRO SECONDS

; *COMPARE (ONTENTS OF RHCS! AND RHDS1 ALREADY SAVED IN
:*RO AND RS IMMEDIATELY AFTER GO
032244
032250
032254
032260

013746
052716
011637
022600

032262
032264
032270
032274

001405
010037
010137
104021

032276
032302
032306

012746
011637
022605

032310
032312
032316
032322

001405
010537

010337
1064063

002450
004101
001124

010500
001124

032324
032330
032332
032334
032340
032342
032344
032350
032352

MOV

afREFOR,-(SP)

; SAVE

COMMAND

Mov

(SP) ,a#3GDDAT

;SAVE

FOR PRINTOUT

BIS

cmp

67%:

(SP)+,RO

cmp

(SP)+ RS

: *CHANGE

JSR

061426

RHWC

041426

(SP) ,a#S$GDDAT

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

JSR

RO,a#F ILLRE

JSR

RO,a#FILLRE

?HDST

SET

;BRANCH IF GOOD

JE'GO!DVA

;BAD DATA
;FAILING REGISTER RHCSI
;DURING ABOVE OPERATION ONLY

;COMMAND AND JE!GO'!DVA SHOULD BE SET

;SAVE BITS SET DURING OPERATION IN RHDSI

:SAVE FOR PRINTOUT
;DURING ABOVE

. SHOULD BE SET

OPERATION ONLY MOL :DPR:!VV

;BRANCH IF GOOD
;BAD DATA
;FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY

sMOL'DPR!VV SHOULD BE SET

SAVED REGISTERS 10 EXPECTED VALUES

RO,a#FILLRE

RMBA
REINTD+<260.¢2>

061426

;AND COMMAND SHOULD BE

#MOL 'DPR!VV,=(SP)

Mov

IE!GO!DVA

;DURING ABOVE OPERATI!ON ONLY

Mov

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

69%:

004037
002272
000000
004037
002274
004544
004037
002304
000001

;iNCLUDE

67%

BEQ
Mov
Mov
ERROR

001126
004600

N1E!GO:DVA,(SP)

BEQ

Mov
Mov
ERROR

001126
004600

032324

;MOV O INTO SAVED RMW(

;SAVED REGISTER TO (MHANGE

:DATA

MOV REINTO+<260.22> INTO SAVED RHBA
;SAVED REGISTER
:DATA

TO C(MANGE

:3A¥ED REGISTER
;DA

TO C(HANGE

:MOV 1

INTO SAVED RMDST

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

032360
032362
032364
032366
032370

004612
002354
000022
032372
032376

~rrn

~nono

[V AV ]
~N N

03235¢4

8473
8474
8475
8476
8477
B478

032236
032240
032242

[V RV ]

8424
8425
8426
8427
8428
8429
8430
8431
8432
8433
8434
8435
8436
8437
8438
8439
8440
8441
8442
8443
8444
8445
8446
8447
8448
8449
8450
8451
8452
8453
8454
8455
8456
8457
8458
8459
8460
8461
8462
8463
8464
8465
8466
8467
8468
8469
8470
8471
8472

MACY11

104031

000207

JSR

042512

RO,3#COMREG

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

ERROR
RTS

;COMPARE SAVED REGISTERS wlTH
;PRESENT

VALUE

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

:READ HEADER AND DATA CAUSED
. IMPROPER REGISTER (MANGE
:GOOD DATA GIVES WHAT
;BE THERE

SHOULD

CIRJIDO, RPO4L/S5/6 FCINL CTLRY
CZRJID P
28-MAR-79 09:03

8497

8498
8499
8500
8501
8502

30A(1052)
25-MAY-79
SEEK TESTS

10:30

H 14
PAGE

177

SEQ 0176

;RECEIVED DATA GIVES WHAT
:THERE AFTER COMMAND

WAS

;*NOW READ INTO BUFFER WiLL BE CHECKED TO SEE
;*THAT

032376

WAS 6GOOD

6%:

032376
032402
032404
032406
032410
032412

004037
002470
003534
000404
032414
032420

032414
032416

1064032

032420

READ

000207

JSR

043542

WRFROM
REINTO

RO,3#COMPAR

ERROR

RTS

10%:

TWwO BLCCKS OF

MEMORY

;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;RETURN 10 79 ON ERROR

;RETURN TO 10% ON NO ERROR

10%

7%:

; COMPARE

;260. WORDS TO BE COMPARED

260.
7$

8480
8481
8482
8483
8484
8485
8486
8487
8488
8489
8490
8491
8492
8493
8494
8495
8496

MACY11

;WRITE HEADER AND DATA

;FOLLOWED BY A READ HEADER
:AND DATA GAVE A READ ERROR

;ERROR MAY BE

IN READ OR WR]TE

CIRJIDO, RPO&4/5/6 FCINL CTLRI
CIRJID P
28-MAR-79 09:03

T
T

TR
TR

%
%
»
%

2
8

10:30

PAGE

1/8

SEQ 0177

A2 2Z2 2222022222222
RRRRRRRR
SRRl RRRRRRRRRAR/

TeTEST 43

SEEK & WRT TEST (CYL = 0-10)

THIS TEST GETS THE HEADS OUT TO CYLINDER 10 NOT BY CNE
SEEK BUT BY TEN IMPLIED SEEKS ONE CYLINDER AT A TIME
THIS TEST STARTS WITH A (ALREADY TESTED) RECALIBRATE
THAT IS CYLINDER ZERO.
THEN ON CYLINDER O SECTOR
#21 TRACK #18 1T WRITES 266 WORDS THERE BY GETTING
THE HEAD TO CYLINDER 1 THEN [T WRITES 266 WORDS ON

CYLINDER 1

SECTOR #21

TRACK #18 THERE BY GETTING

THE HEADS TO CYLINDER 2
THIS 1S REPEATED 10 TIMES GETTING THE
HEADS TO CYLINDER 10
THEN A SEEK COMMAND IS GIVEN TO CYLINDER O
AND DATA ALREADY WRITTEN IS CHECKED

2222224222
R ERRRARAR ARl RN RN R
RRSRREN)

032420
0324622
032426

000004
012706
012737

001000
000043

032434

004737

041524

18143
004604

SCOPE
MoV
Mov

FSTACK,SP
#L3,3NTSTNM

SRESET STACK
;SAVE TEST NUMBER

JSR

PC,a#CLDISK

;SET R1-RHCS1, R2-RHCSZ

;R3-RHDS1, R&-RHERI
:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;*THE FOLLOWING MOVES ARE TO INITIALIZE TEST FROM
;*CYLINDER O
;*THESE LOCATIONS ARE CHANGED DURING TEST TO ENABLE

RV IV VLV IV RV LV LV ]

NNNNNTNNNNYNY

NNNNNNNNNN

—
—
)
-l
=
o
el
—

oD
NN N

032440
032446
032454
032462
032470
032476
032504
032512
032520
032526

[elelololaleolololole)

:*GOING TO NEXT CYLINDER
010000
001125
010001
002000
000000
000001
000001
010001
002000
000001

032616
032636
032650
032670
032676
033106
033116
033200
033220
033240

Mov

#10000,3#S511+10

MOV
MOV
MOV

#0,3#5715+4
#1,00576+46
#1,3#576+16

MOV
MOV
MOV

#<<18,¢40>121,>,a0572410
#10001,a#513+10
#2000,3#514+10

#10001,a#519+10
#2000,3#5110+10
#1,988T11+4

;*THIS 1S TO GEY THE HEADS TO CYLINDER O
032534

013777

004606

147524

Mov

#RPLVEC,BRPVEC ;SET RPO4 VECTOR ADDRESS
;10

"TIMEY®

;OR 10 'TIMEZ2'
s'TIME'

P-CLOCK

IS PRESENT

IF P=CLOCK

WILL ONLY

SAVE

~NTN

032542
032546

—a

: CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
OO

8557
8558

30A(1052)
25-MAY-79
SEEK TESTS
A

8503
8504
8505
8506
8507
8508
8509
8510
8511
8512
8513
8514
8515
8516
8517
8518
8519
8520
8521
8522
8523
8524
8525
8526
8527
8528
8529
8530
8531
8532
8533
8534
8535
8536
8537
8538
8539
8540
8541
8542
8543
8544
8565
8546
8547
8548
8549
8550
8551
8552
8553
8554
8555
8556

MACY11

002426
000101

MOV

BIS

S#RECAL],=(SP)

#G0!1E,(SP)

;GET READY

TO MOVE COMMAND

:GET READY TO SET 'GO' AND
;ENABLE

INTERRUPT

IS NOT PRESENT

CIRJIDO, RPO&L/S5/6 FCINL CTLR)
CIRJID.PI
28~MAR-79 09:03
8559
8560
8561
8562
8563
8564
8565
8566
8567
8568
8569
8570
8571
8572
8573
8574
8575
8576
8577
8578
8579
8580
8581
8582
8583
8584
8585
8586

8587

8588
8589
8590
8591
8592
8593
8594
8595
8596
8597
8598
8599
8600
8601
8602
8603
8604
8605
8606
8607
8608
8609
8610
8611
8612

8613
8614

032552

012677

MACY11

J 16

30A(1052)
10:30 PAGE 179
25-MAY-79
143
SEEK & WRT TEST (CvL = 0-10)

147522

Mov

032556
032560

011100
011305

MoV
mov

032562
032564
032566
032570
032572

1046413
002322
000200
076377
056701

WAT

032574

012737

000012

032602

004737

041524

(SP)+,aRHCST

;60 WITH

ar1,R0
aR3,RS

;WITH INTERRUPT ENABLED
;SAVE RH(S1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

;6 IN RHCS1

;WAIT

RHDS1
DRY

FOR RECALIBRATE

FOR DRY BIT

T0 SET

;WAIT FOR RHDS) REGISTER
;WAIT FOR DRY BIT IN RHDS1

31999.

;ALLOW 319990 MICRO SECONDS

24001,
001200

SEQ 0178

Mov

10, ,308THPI

;DRY MUST SET BETWEEN
;79980 AND 560000 MICRO SECONDS
;TEN COUNT TO GET TO CYLINDER 10

JSR

PC,a#CLDISK

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

R4-RHER!

;GIVE RH-11 INITIALIZE
:SETUP UNIT NUMBER
ST1:

032606

032606
032612
032614
032616
032620
032622
032624
032626
032626
032632

032634
032636

004037
002470
000004
010000
011025
000000
000000

004037
002500

032660
032660
032664
032666
032670

JSR
WRFROM
6
10000

041350

<18.¢400>!21.

041374

S12:

000400
001125

ST3:

004037
003500
000004
010001
000000
000000
000000

004037
003510
000002
002000

RO,a#FLHEAD

0
0

032640
032640
032644
032646
032650
032652
032654
032656

;*FILL WRITE FROM BUFFER WITH HEADER

041350

ST14:

. SECOND

DATA WORD

;THIRD DATA WORD
;FOURTH DATA WORD

;*FILL WRITE FROM BUFFER WITH DATA

JSR
RO,0#CLAREA
WRFROM+10
256.
<0.+2000>'<18.¢40>'21,

;CLEAR 256. WORDS, FROM WRFROM+1(0
;STARTING FROM WRFROM+10
:256. WORDS

FILL WITH <0.+¢2000>'<18,¢40>!21.

soFILL WRITE FROM BUFFER W]ITH NEXT TRACK HEADER

RO,3#FLHEAD
JSR
WRFROM+<260.,¢2>

:SAVE HEADER DATA IN WRFROM+<260.2>
;LOCAT]ON WHERE SAVED

0
0
0

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

4
10001

041374

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

;NUMBER OF WORDS SAVED
;FIRST DATA WORD

seFILL WRITE FROM BUFFER WITH NEXT TRACK DATA
JSR
RO,3#CLAREA
WRFROM+ <264, ¢2>
P4
1.¢20C0

:CLEAR 2 WORDS, FROM WRFROM+<264,¢2>
;STARTING FROM WRFROM+<264,902>
;2 WORDS
SFILL WITH 1.92000

CIRJ1D0, RPO4/S5/6 FCINL CTLRY
CIRJID.PIY
28-MAR-79 09:03
8615
8616
8617
8618
8619
8620
8621
8622
8623
8624
8625
8626
8627
8628
8629
8630
8631
8632
8633
8634
8635
8636
8637
8638
8639
8640
8641
8642
8643

MACY11

K 14
30A(1052)
25-MAY=-79
10:30 PAGE 180
143
SEEXK € WRT TEST (CyL =
0-10)

STS5:

032672

;*THE

WRITE

HEADER

004037
000000
025
022

032704

002470

WRFROM

;4 HEADER WORDS
:BUS ADDRESS

032706
032710

000000
010000

;D0 NOT

032712

002444

WRIFOR

043476

JSR

.BYTE
.BYTE

177366

0
21.

RO,3#RUN

;CYLINDER 0
;SECTOR 21,

18.

; TRACK

=262.-4

(DATA)

= 262.

¢+

;STARTING ADDRESS OF DATA
;BUFFER = WRFROM

FM122

INHIBIT BUS ADDRESS INCREMENT

;16 BITS PER WORD FORMAT

;D0 NOT INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE

;GET READY TO DO A WRIFOR
;WRITE HEADER AND DATA WITH 62 IN RH(SI

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA

000022

8645

032726

004737

041604

JSR

PC,aNCHECKT

8647
8648
8649
8650
8651
8652
8653
8654
8655
8656
8657
8658
8659
8660
8661
8662
8663

032732

104401

067033

TYPE

. CPHALT

032736

000000

032740

013777

041672

JSR
RHW(
SAVERE

RO,a#SAVER

;THE

18.

147320

Mov

REGISTERS ARE

:NUMBER OF

SAVED

REGISTERS

;SAVED = 18.

HALT

004606

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

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

;AND THAT NO STATUS BITS ARE STUCK =
:CANNOT CONTINUE TESTING IF ANY OF
;THE FIRST SET OF BITS DON'T = 1

;STOP

9#RPLVEC,ORPVEC

;SET RPO4 VECTOR ADDRESS

;70

"TIMEY'

:OR TO 'TIMEZ2'
;'TIME'

P-CLOCK

IS PRESENT

IF P-CLOCK IS NOT PRESENT

WILL ONLY

SAVE

; CURRENT CYLINDER ADDRESS
:AND LOOK

MOV

O#WRIFOR,-(SP)

032756

012677

147316

MOv

(SP)+,aRH(CS]

MOV
MOV

aR1,RO
aR3.RS

03 2762
032764

—

002444
000101

—

013746
052716

—

032746
032752

[=1e]

8665
8666
8667
8668
8669
8670

18.

;WORD COUNT

032724

8064

FILLED

;SETUP TO RUN FOR DATA COMMAND

004037
002272
004612

8646

AND DATA COMMAND WILL BE

032672
032676
032700
032701
032702

032714
032720
032722

8644

Sea 0179

BIS

#GO!1E, (SP)

AHEAD REGISTERS

,;GET READY TO MOVE COMMAND

;GET READY TO SET 'GO' AND
;ENABLE INTERRUPT
;G0 WITH
;62 IN RHCSY FOR WRITE HEADER AND DATA
sWITH

INTERRUPT

ENABLED

:SAVE RHCS1 DURING ABOVE OPERATION
:SAVE RHDS1 DURING ABOVE OPERATION

; *ONE REVOLUTION = 16670 MICRO SECONDS, ONE SECTOR - 760 MICRO SEC.
;*MAX TIME ALLOWED = ONE REVOLUTION + SEEK + 2 SECTORS
;*MIN TIME ALLOWED = 2 SECTORS ¢ SEEK

(ZRJIDO, RPOL/5/6 FCTINL CTLR)
28-MAR-79 09:03

CIRJID P

8671
8672
8673
8674
8675
8676
8677
8678
8679
8680
8681
8682
8683
8684
8685
8686
8687
8688
8689
8690
8691
8692
8693
8694
8695
8696
8697

8698
8699

G0 0o 0o O

Co Co Oo 0o 0o 0o 00

NNNNNNNNNNN
PNOMNVPONIMNOVPNIND
= bt —d b s

NN =000V
~NO W

8700
8701
8702
8703
8704
8705
8706
8707

MACYT

L 14
S?A(IOSZ)
25-MAY-79
10:30 PAGE 181
63
SEEK & WRT TEST (CyL = 0 -10)

106413

;WAIT FOR RDY BIT T0 SET

WAT
RHCSI
RODY
1695.

002300
000200
003237
001515

SEQ 0180

;WAIT FOR RHCS1

;WALT FOR RDY BIT IN RHCS1 REGISTER

;ALLOW 16950 MICRO SECONDS

;RDY MUST SET BETWEEN
;8500 AND 25400 MICRO SECONDS

845.

;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN
;*RO AND RS IMMEDIATELY AFTER GO
033000
033004
033010
033014

013746
052716
011637
022600

033016
033020
033024
033030

001405
010037
010137

033032
033036
033042

012746
011637
022605

033044
033046
033052
033056

104021

001405
010537
010337
106063

002444
004101
001124

afWRIFOR,-(SP)

Mov
(mMp

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

BEQ

649

BIS

001126
004600

010500
001124

Moy

MOV
MoV

ERROR

66%:

Mov
MOV

CMP

BEQ
Mov

001126
004600

Mov

ERROR

#1E!GO!DVA,(SP)

RO,a#$BDDAY

g}.alREGADR

;DURING ABOVE OPERATiON ONLY JE!GO:DVA

;AND COMMAND SHOULD BE

SET

;FAILING REGISTER RHCST

:BRANCH 1F GOOD
;BAD DATA

:DURING ABOVE OPERATION ONLY
; COMMAND AND IE!GO!DVA SHOULD BE SET
:SAVE BITS SET DURING OPERATION IN RHDSI
#MOL !DPR!VV,=(SP )
(SP) ,a#%GDDAT
;SAVE FOR PRINTOUT
(SP)+,RS
;DURING ABOVE OPERATION ONLY MOL'!DPR:IvV

66%
RS,a#$BODAT
Rg.alREGADR
6

66%:

033060

: SAVE COMMAND
+INCLUDE 1E'GO!DVA
;SAVE FOR PRINTOUT

: SHOULD BE SET
;BRANCH If GOOD

:BAD DATA

:FAILING REGISTER RHDS1
;DURING ABOVE OPERATION ONLY
;MOL!DPR!VY SHOULD BE SET

; *NOW CHANGES SAVED REGISTERS TO EXPECTED VALULS
033060
033064
033006
033070
033074
033076
033100
033100
033104
033106
033110
033114
033116
033120
033124
033126

004037
002272
000000
004037
002274
003514

041426

004037
002334
000001
004037
002312
000001
004037
002304
000001

041426

0461426

RO,a#FILLRE

JSR
RHBA

RO,a#F ILLRE

JSR
RHCC
1

RO,9#f ILLRE

041426

JSR
RHW(C

STé6:

WRFROM+<266.%2>

JSR
?HCA

RO,a#F ILLRE

JSR
?HDST

RO,3#F ILLRE

;MOV O INTO SAVED RHW(
;SAVED REGISTER 10O CHANGE

;DATA

MOV WRFROM+<266.2> INTO SAVED RHBA
;s SAVED RESA?LER 10 CHANGE
INTO SAVED RHCC
;MOV
:SAVED REGISTER TO CHANGE
:DATA

MOV 1 INTO SAVED RHCA

s SAVED REGISTER TO CHANGE
:DATA
MOV 1 INTO SAVED RHDST
:SAVED REGISTER TO CHANGE
:DATA

;*COMPARE REGISTERS BEFORE WRITE HEADER AND DATA
;*W]TH REGISTERS AFTER COMMAND

CIRJIIDO, RPO4L/S5/6 FCTINL CTLRY
28-MAR-79 09:03

CIRJID P11

8727
8728
8729
8730
8731
8732
8733
8734
8735
8736
8737
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
8773
8774
8775
8776
8777
8778
8779
8780
8781
8782

033130

004037

MACY11

14
30A(1052)
25-MAY=79 10:30 PAGE 182
143
SEEK & WRT TEST (CYL = 0-10)

JSR

042512

004612
002354
000022
033146
033152
104027
000207

RO,3#COMREG

sPRESENT VALUE

SAVERE
w(

;600D DATA SAVED IN °‘SAVERE'
;TEST DATA STARTING FROM 'RHW(C'

S17
S18

:RETURN TO ST7 ON ERROR
;RETURN TO ST8 ON NO ERROR

18.

S17:

:COMPARE SAVED REGISTERS WITH

ERROR
RTS

:18. REGISTERS TO BE COMPARED

:WRITE HEADER AND DATA CAUSED
;: IMPROPER REGISTER CHANGE

:?0?2EDA1A GIVES WHAT SHOULD BE
:TH

JRECEIVED DATA GIVES WHAT WAS BE
; THERE AFTER COMMAND

;*SETUP TO READ HEADER AND DATA FOR NEXT TRA(CK
;*FILL READ INTO BUFFER WITH ALL ONES
S18:

033152
033152

033156
033162
033164
033166

004737

004037
003534
000404

JSR

041524

JSR
REINTO
260.
-1

041374

177777

PC,asCLDISK

RO,a#CLAREA

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

;R3-RHDS1, R4&-RHERI

;GIVE RH=11 INITIALIZE
:SETUP UNIT NUMBER
;CLEAR 260. WORDS, FROM REINTO
;STARTING FROM REINTO
:260. WORDS
SFILL WITH <1

;eFILL WRITE FROM BUFFER WITH EXPECTED DATA
ST9:

033170

033170
033174
033176
033200
033202
033204
033206
033210
033210
033214
033216
033220

004037
002470
000004
010001
000000
000000
000000

041350

004037
002500
000002
002000

041374

033222
033226
033230
033232

004037
002504
000376
000000

041374

ST10:

063476

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

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

0
0
0

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

:CLEAR 2 WORDS, FROM WRFROM+<4e2>
:STARTING FROM WRFROM+<4#?2>

RO,a#CLAREA
JSR
WRFROM+<H*2>
254,
0

:CLEAR 254. WORDS, FROM WRFROM+<b*?2>
:STARTING FROM WRFROM+<6#2>
;254., WORDS
sFILL WITH O

2
1+2000

STV

004037

RO,aNFLHEAD

10001

033234

JSR
WRFROM
4

;2 WORDS
;FILL WITH 122000

;*F1LL COMMAND INTO REGISTERS
JSK

RO,3#RUN

;SETUP TO RUN FOR DATA (OMMAND

SeQ 0181

CIRJIDO, RPO4/5/6 FCINL CTLR 1
CZRJID.PI
28-MAR-79 09:03

8783

033240

000001

8784
8785

033242
033243

033244

177374

8788
8789
8790
8791
8792
8793
8794
8795
g;g?

033246

8786
8787

MACYT

000
000

.B¥lg
.BYTE

REINTO

033250
033252

000000
014000

0
ECI'FMT22

033254

002450

REFOR

;BUS ADDRESS
;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;D0 NOT INMIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT
JINHIBIT ECC CORRECTION
;DO NOT INMIBIT HEADER COMPARE
:GET READY T0 DO A REFOR
JREAD HEADER AND DATA WITH 72 IN RM(CSI

004037
002272
004612

033266

000020

8809

033270

004737

041604

033274

10464401

067033

033300

000000

033302

013777

004606

033310
033314

013746
052716

033320

012677

033324
033326
033330
033332
033334
033336
033340

8832
8833
883%
8835
8836
8837
8838

;WORD COUNT (DATA) = 256.
;4 HEADER WORDS

REGISTERS FOR COMPARISON AFTER READ HEADER

;*AND DATA
033256
033262
033264

8825
8826
8827
8828
8829
ggg?

-256.-4

s *SAVE

8802
8803
8804
8805
8806
gggg

8815
8816
8817
8818
8819
8820
8821
8822
8823
8824

;CYLINDER 1

003534

ggg?

SEQ 0182

;SECTOP O
:TRACK O

8798

8812
32}3

N 146
25-MAY-79
10:30
PAG £ 183
SEEK & WRT TEST (CyL = 0- 10)

0
0

8799

8810
8811

3?2;1052)

041672

JSR
RHWC
SAVERE

RO,3#SAVER

s SAVE REGISTERS
JRHWC 1S THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;THE REGISTERS ARE SAVED
;NUMBER OF REGISTERS
;SAVED = 16,

JSR

PC,aNCHECKT

sCHECK DVA,RDY
_ MOL,DPR,DRY,VY =

TYPE

,CPHALT

16.

HALT
146756

sAND THAT NO STATUS BITS ARE STUCK =
s CANNOT CONTINUE TESTING IF ANY Of
;THE FIRST SET OF BITS DON'T =1
;STOP

MOV

A#RPLVE(C,aRPVEC

;SET RPO4 VECTOR ADDRESS
;70 'TIMEY' IF P=CLOCK 1S PRESENT
sOR TO 'TIMEZ' IF P=-CLOCK IS NOT PRESENT
;'TIME® WILL ONLY SAVE
;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

002450
000101

MOV
BIS

S#REFOR,-(SP)
#GO!'I1E, (SP)

146754

MOV

(SP)+,aRHCST

011100
011305

MOv
MOV

oR1,R0
aR3,RS

;GET READY TO MOVE COMMAND
;GET READY T0O SET 'GO' AND
sENABLE INTERRUPT
;60 WITH
;72 IN RHCSYT FOR READ DATA
;WITH INTERRUPT ENABLED
;SAVE RHCS1 DURING ABOVE OPERATION
;SAVE RHDS1 DURING ABOVE OPERATION

104413
002300
000200
001614
001507

WAT
RHCSI
RDY
908.
839,

;WALIT FOR RDY BIT 1O SET
JWAIT FOR RMCST REGISTER
;WAIT FOR RDY BIT IN RHCS! REGISTER
;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN
;690 AND 17470 MICRO SECONDS

CIRJIDO, RPOL/S/6 FCTNL CTLRY
28-MAR-79 09:03

CIRJID.PIY

8839
8840
8841
8842
8843
8844
8845
8846
8847
8848
8849
8850
8851
8852
8853
8854
8855
8856
8857
8858
8859
8860
8861
8862
8863
8864
8865
8866
8867

8868

8869
8870
88/1
8872

8873
8874
8875
8876
8877

8878
8879
8880
8881
8882
8883
8884
8885
8886
8887
8888
8889
8890
8891
8892
8893
8894

B 15
MACY 1T S?A(1052)
25-MAY-79
10:30 PAGE 184
43
SEEK & WRT TEST (CvyL = 0-10)

SEQ 0183

:*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN
;*RO AND RS IMMEDIATELY AFTER GO
002450
006101
001124

010137
104021

033374
033400
033404

012746
011637
022605

033406
033410
033414
033420

001405
010537
010337
104063

Mov

B1S
MOV
cme

001126
004600

010500
001124

;INCLUDE IE:GO:!DVA
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY
;AND COMMAND SHOULD BE

GOOD

JE'!GO!DVA

#MOL !GPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS!
;SAVE FOR PRINTOUT
(SP) ,9#%GODAT
(SP)+,RS
;DURING ABOVE OPERATION ONLY MOL'DPR!VV

8tQ

66%

:BRANCH 1F

MoV
ERROR

R3,3/REGADR
63

;FAILING REGISTER RHDSI
;DURING ABOVE OPERATION ONLY

RS,a#$BDDAT

:BRANCH IF
;BAD DATA

SET

Mov
Mov
CHp

R1,3#REGADR
21

66%:

033422

: SAVE COMMAND

649
RO,a#SBODAT

MoV

001126
004600

#1E!GO!DVA,(SP)
(SP) ,3#$GDDAT
(SP)+,RO

BtQ
MoV

MoV
ERROR
64%:

S#REFOR,=(SP)

;FAILING REGISTER RH(S]
;DURING ABOVE OPERATION ONLY
;COMMAND AND

IE'!GO!DVA SHOULD BE

SET

; SHOULD BE SET
:BAD DATA

6GOOD

;MOL'!DPR!VV SHOULD BE SET

; vCHANGE SAVED REGISTERS TO EXPECTED VALUES
033422
033426

033430
033432
033436

033440
033442
033446
033450

004037
002272
000000
004037
002276
004544
004037
002304
000001

041426

JSR

RO,a#fF ILLRE

JSR

RO,a#F ILLRE

RHW(C
0

0461426

RHBA

REINTO0+<260.¢2>
JSR
RO,a#FILLRE

041426

?HDST

:MOV O INTO SAVED RHWC

:SAVED REGISTER TO CHANGE
;DATA

:MOV REINTO+<260.+2> INTO SAVED RHBA
: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
033452

004037

033456
033460
033462
033464
033466

004612
00235¢
000022
033470
033474

033470
033472

104031

000207

JSR

042512

RO,a#COMREG

SAVERE
W(
18.
ST12
ST13
ST12:

ERROR
RTS

; COMPARE SAVED REGISTERS WITH
;PRESENT

VALUE

;600D DATA SAVED IN ‘'SAVERE'
;TEST DATA STARTING FROM ‘'RHW(C'
:18. REGISTERS TO BE COMPARED
;RETURN T0 ST12 ON ERROR
;RETURN TO ST13 ON NO ERROR
31

;READ HEADER AND DATA CAUSED
; IMPROPER REGISTER CHANGE

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

THERE

AFTER

COMMAND

(IR 150, RPO4/S5/6 FCINL CTLR)
(ZRJ1D PN
28-MAR-79 09:03
8895
&R96

8897
8898
8899
8900
8901
8902

MACY 1T

ST13:

033474

033474
033500

8903
8904
8905
8906
8907
8908
8909
8910
8911
8912

3$A(1052)
25-MAY-79
10:30 PAGE 185
63
SEEK & WRT TEST (CyL = 0-10)

004037
002470
003534
000404
033512
033516

JSR

043542

WRFROM
REINTO

ST14:

104032

000207

8924
8925

8926
8927
8928
8929
8930
8931
8932
8933
8934
8935
8936
8937
8938
8939
8940
8941
8942
8943
8944
8945
8946
8947
8948
8949
8950

ERROR
RTS

; COMPARE TWO BLOCKS OF MEMORY

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

:260. WORDS TO BE COMPARED
;RETURN T0 ST14 ON ERROR
;RETURN TO ST15 ON NO ERROR
32
PC

;WRITE HEADER AND DATA
;WITH AN IMPLIED SEEK
;FOLLOWED BY A READ

;HEADER AND DATA ON THE

sNEXT TRACK GAVE A
;READ ERROR
;ERROR MAY BE READ OR WRITE

8913

8923

RO,a#COMPAR

260.
ST14
ST15

:';?EKHEADS HAVE ADVANCED ONE CYLINDER BY AN IMPLIED

8914
8915
8916
8917

8918
8919
8920
8921
8922

;*READ INTO BUFFER IS CHECKED FOR PROPER READ

;*CHANGES WILL BE MADE TO ENABLE GOING TO THE NEXT
;*CYLINDER AND THEN THE ABOVE WiLL BE REPEATED
;*TILL CYLINDER 10 IS REACHED
033516
033522
033530
033534
033542
033546
033552
033756
033562
033570
033574
033600
033602
033604

005237
062737
005237
062737
005237
005237
005237
005237
062737
005237
005337
001001
000402
000137

032616
002000
032650

002000
032676
033106
033116

033200
002000
03324C
001200
032606

032636

$T15:

032670

INC
ADD
INC
ADD
INC

aNsT1+10
#<1,.+2000>,3#572+10
ansT3+10
#<1,22000>,3#5T4+10
ANSTSH+4

INC
INC
ADD
INC

aNsST6E+16
ans19+10
#<1,+2000>,3#ST10+10
aFST11+4

INC

033220

ST16:

DEC
BNE
BR
JMP

a¥ST6+6

arsTmMpPl
ST16
S117
STH

;COUNT FOR TEN TIMES
:BRANCH 1F 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 SEEXK WILL BE GIVEN
;*T0 CYLINDER O

;*FILL REGISTERS FOR A SEEK COMMAND
ST17:

033610

004737

041524

JSR

PC,a#CLDISK

:SET R1-RHCS1, R2=RH(S?
;R3-RHDST, R&-RHER!?

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
033614
033620

004037
000000

041474

JSR

RO, QNSEEKCY

;SEEK FOR

;CYLINDER 0

;*SAVE REGISTERS FOR COMPARISON AFTER SEEK COMMAND

SEQ 0184

CIRJIIDO, RPO4/S/6 FCTINL CTLRY
CIRJ1D.P1
2B8-MAR-79 09:03

8951
8952
8953
8954
8955

033622
033626
033630

0064037
002272
004612

033632

000022

B9S8
8959

033634

013777

ggg?

MACY11

0D 15
30A(1052)
25-MAY-79
10:30 PAGE 186
163
SEEK & WRT TEST (CyL = 0-10)

041672

JSR
RHWC

RO,aNSAVER

SAVERE

146424

MOV

:SAVED = 18.

AfRPLVEC,aRPVEL

8960
8961

8962
8963
8964
8965
8966

8967
8968
8969
8970
8971
8972
33;3
4

ggg%

;CURRENT CYLINDER ADDRESS
;AND LOOK AMEAD REGISTERS

033642

013746

002452

MoV

SfSEECOM,-(SP)

033652

012677

146422

MOV

(SP)+ ,aRHCS

033656
033660

011100
011305

MoV
MOV

oR1,R0
aR3,RS

033646

052716

000101

BIS

033662
033664
033666
033670
033672

104413
002322
000200
(15530
000043

013746
052716
011637

033712
033714

001405
010037

8997

033726

012746

8999
9000

033736

022605

8998

9001
9002
9003
9004
9005

9006

;GET READY TO MOVE COMMAND

:GET READY T0 SET *6GO*' . ND
;ENABLE INTERRUPT
;60 WITH
:4 IN RHCSY FOR SEEK
:WITH INTERRUPT ENABLED
:SAVE RHCS! DURING ABOVE OPERATION
:SAVE RHDSY DURING ABOVE OPERATI]ION

WAT
RHDS1
DRY
7000.
35.

:WAIT FOR DRY BIT TO SET
:WAlT FOR RHDS1 REGISTER
;WALT FOR DRY BIT IN RHDS1 REGISTER
:ALLOW 70000 MICRO SECONDS
:DRY MUST SET BETWEEN

;169650 AND 70350 MICRO SECONDS

;*COMPARE CONTENTS OF RHCS! AND RHDS1 ALREADY SAVED IN
;*R0O AND RS IMMED]ATELY AFTER GO
033674
033700
033704

8990
8991
8992
8993
8994
8995
8996

NGO 1E, (SP)

;*SEEK FOR ONE CYLINDER=7MILI SEC., FOR TEN=70 MILI SE~

8984
gggS

8987
8988
8989

:SET RPO4L VECTOR ADDRESS
;70 "TIMET® IF P=-CLOCK ]S PRESENT

;OR TO 'TIMEZ2' IF P=-CLOCK 1S NOT PRESENT
;'TIME® WILL ONLY SAVE

gg;g
8977
8978
8979
8980
8981

;SAVE REGISTERS
sRHWC IS THE FIRST REGISTER SAVED

:STARTING ADDRESS OF WMERE
:THE REGISTERS ARE SAVED
:NUMBER OF REGISTERS

18.
004606

SEQ 0185

033710

033720
033724
033732

033740
033742
033746
033752
033754

022600

010137
104021

011637

001405
010537
010337
104063

002452
004301
001124

MOV
BlS
MOV

A#SEECOM,-(SP)
;SAVE COMMAND
#DVA'GO'IE'RDY, (SP)
;INCLUDE DVA!GO.]E!'RDY
(SP) ,a#SGDDAT
:SAVE FOR PRINTOUT

001126
(004600

BEQ
MOV
MOV
ERROR

64%
RO,a#$BDDAT

MOV

#PIP'MOL'DPR!VV,={SP)

CMP

(SP)+,RS

BEQ
MOV
MOV
ERROR

66%
RS,a#$BDDAT
R3,a#REGADR
63

030500
001124

CMP

64%:

001126
004600
66%:

MOV

(SP)+,RO

R1,3#REGADR
21
(SP) ,a#8GDDAT

:DURING ABOVE OPERATION ONLY DVA.GO'IE'!RDY
:AND COMMAND SHQULD BE SET
:BRANCH IF GOOD
;BAD DATA
sFAILING REGISTER RHCS1
:DURING ABOVE OPERATION ONLY
:COMMAND AND DVA'GO'IE'!RDY SHOULD BE SET

:SAVE BITS SET DURING OPERATION IN RHDSI

:SAVE FOR PRINTQUT

;DURING ABOVE OPERATION ONLY PIP . MOL'!DPR.VV
:SHOULD BE SET
;BRANCH IF GOOD
:BAD DATA
sFAILING REGISTER RHDSH
;DURING ABOVE OPERATION ONLY
;PIP!MOL.DPR!VV SHOULD BE SET

CIRJIDO, RPO&4/5/6 FCINL CTLR1
CZRJID.P
28-MAR-79 09:03

MACY11

30A(1052)

143

9007

gggg

25-MAY-79

10:30

£ 15

033754
033760
033762

004037
002334
000000

061426

9014
9015

033764

053737

004740

9018
gg;g

033772
033776

004037
002322

9021
9022
3852

034000
034002
034004

000001
000001
100000

9025
gggg

034006
034012

004037
002300

9028
9029
ggg?

034014
034016
034020

000001
000001
100000

004636

JSR
RHCC
0

RO,3#FILLRE

BIS

SFATTENT ,3NSAVERE+24

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

:SET APPROPRIATE ‘'ATA' BITS
:FOR WORKING DRIVE IN

:SAVED RHAS LOACTION

38}?
042404

JSR
RHDS1

RO,3¥CHREG

1
1
ATA

062404

JSR
RHCST

:CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

;1 BIT/BITS T0 BE CHANGED
:NEW VALUE OF ATA ]S 1
:CHANGE ATA BIT

RO,3¥CHREG

1
1
SC

:CHANGE BITS IN SAVED REGISTER
;CHANGE RHCS1 REGISTER
:1 BIT/BITS 1O BE CHANGED
:NEW VALUE OF SC IS 1
; CHANGE SC BI7T

:*COMPARE REGISTERS AFTER A SEEK COMMAND

38%%
034022

004037

9036
9037
9038
9039
384?

034026
034030
034032
034034
034036

004612
002354
000022
034040

9042
9043
9044
9045
9046
9047

034040
034042

104037
000207

SEQ 0186

:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE

9010
9011
gg}%

9034
9035

PAGE 187

SEEK & WRT TESY (CYL = 0-10)

042512

JSR

RO,/ COMREG

SAVERE
w(
18.
ST18

034044

;:GOOD DATA SAVED IN ‘'SAVERE'
sTEST DATA STARTING FROM 'RHW(C'
:18. REGISTERS TO BE COMPARED
;RETURN TO ST18 ON ERROR

ST19

ST18:

9048

ERROR
RTS

; COMPARE SAVED REGISTERS WITH
;PRESENT VALUE

:RETURN TO ST19 ON NO ERROR

37
PC

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

9049

:+AT THIS POINT THE CURRENT CYLINDER IS GOOD AND THERE ARE

9051
9052

:*A READ HEADER AND DATA WiLL BE DONE ON CYLINDER 0
;*SECTOR 21 TRACK 18, EXPECTED DATA IS 1125

9050

:*NO ERROR BITS

:«FOR 10 WORDS
;*CLEAR READ INTO BUFFER WITH ALL ONES

9053
9054
9055

9056

9057
9058
9059
886?
6

9062

034044

034044
034050
034052
034054

004037
003534
000404
177777

041374

ST19:

JSR
REINTO
260,
-1

RO,a#CLAREA

:CLEAR 260. WORDS, FROM REINTD
;STARTING FROM REINTO
1260, WORDS
FILL WITH =1

CIRJ1IDO, RPO&L/S/6 FCTINL CTLR)
CZRJID.PIY
28-MAR-79 09:03
9063
9064
9065
9066
9067
9068
9069
9070
9071
9072

9073
9074
9075
9076
9077
9078
9079
9080
9081
9082
9083
9084
9085
9086
9087
9088
9089
9090

0O N

——

i
i
e

F 15
30A(1052)
25-MAY-79
10:30
PAGE 138
143
SEEX & WRT TEST (CYL = 0-10)

SEQ 0187

seFILL WRITE FROM BUFFER WITH EXPECTED DATA
034056
034062
034064
034066
034070
034072
034074
034076
034102
034104
0364106
034110
034114
034116
034120

004037
002470
000004

010000
011025
000000
000000
004037
002500
000012
001125

004037
002524
000366

041350

JSR

WRFROM
4
10000

RO,3#FLHEAD

<18.¢400>'<21.»>
0
0

041374

IN WRFROM

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

:SECOND DATA WORD

;THIRD DATA WORD
:FOURTH DATA WORD

JSR

RO,3#CLAREA

:STARTING FROM WRFROM4<4,
*2>
:10. WORDS
SFILL WITH <18.¢40>'<21.>

JSR

RO,3#CLAREA

;CLEAR 246. WORDS, FROM WRFROM+<14,
2>

WRFROM+<14 ., 92>
246.
-1

177777

:SAVE HEADER DATA

WRFROM+<L . 2>
10.
<18.+40>'<21.>

;CLEAR 10. WORDS, FROM WRFROM+<4.
2>

;STARTING FROM WRFROM+<14,¢2>

; 246, WORDS
PILL WITH =1

;*F1LL READ HEADER AND DATA COMMAND FOR 10 WORDS
034122
034126
034130
034131
034132

004037
000000
025
022
177762

034134

003534

REINTO

034136
034140

000000
014000

0
ECI!FMT22

034142

002450

REFOR

034144

004737

041604

JSR

rC,aNCHECKT

034150

104401

067033

TYPE

+CPHALT

03415¢

000000

034156

013777

043476

JSR

.BYTE
.BYTE

0
2.
18.

RO,3#RUN

-10.-4

146102

MOV

;CYLINDER O
:SECTOR 21.
;TRACK 18.

(DATA)

;4 HEADER WORDS

10,

:BUS ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;DO NOT

INHIBIT BUS ADDRESS INCREMENI
;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
;GET

READY

TO DO A REFOR

;READ HEADER AND DATA WITH 72 IN RHCSI

HALT

004606

;SETUP TO RUN FOR DATA (OMMAND

:WORD COUNT

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

:AND THAT NO STATUS BITS ARE STuUCK
;CANNOT CONTINUE TESTING IF ANY OF
;THE FIRST SET OF BITS DON'T =1
;ST10P
270

"TIMEY'

:OR 10 'TIMEZ2'
s'TIME'

P=-CLOCK

WILL ONLY

;AND LOOK

002450
000101

MOV

BIS

IS PRESENT

[F P=-CLOCK IS NOT PRESENT
SAVE

;s CURRENT CYLINDER ADDRESS

034164
034170

S#RPLVEC,aRPVEC ;SET RPO4 VECTOR ADDRESS

et e

o
o
D

D it o

b
p
—

— e

N0V
0 0VO0 000 0

it b O (=}
NN
—- OO oo

9091
9092
9093
9094
9095
9096
9097
9098
9099
9100
9101
9102
9103
9104
9105
9106
9107

MACY11

a¥REFOR,-(SP)

#GOIE, (SP)

AMEAD REGISTERS

;GET READY TO MOVE

:GET READY T0 SET

;ENABLE

INTERRUPT

COMMAND

'GO' AND

?POA/S/b FCINL CTLRY
28-MAR-79 09:03

036174

012677

034200
036202
034204
034206
034210

104413
002300
000200

6 15

30A(1052)
10:30
PAGE 189
25-MAY-79
143
SEEX & WRT TEST (CvL = 0-10)

146100

MoV

(SP)«+ @RH(S 1

SEQ 0188

;60 WITH

;72 IN RHMCS1 FOR READ DATA
:WITH INTERRUPT ENABLED

)

D e

VOVIOOVOOVOY

TMS

MACY11

RDY

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS! REGISTER
;WAIT FOR RDY BIT IN RH(S1

839.

;RDY MUST

WAT

RHCST

;ALLOW 9080 MICRO SECONDS

908.

001614
001507

SET

BETWEEN

;690 AND 17470 MICRO SECONDS

;*CHECK READ WORDS
034212
0346216
034220
034222
034226
034226

004037
002470
003534
000404
034230
034234

034230
034232

104032

034234

000207

043542

JSR
WRFROM
REINTO

RO,a#COMPAR

260.
S126

;RETURN 10 ST26 ON ERROR
;RETURN T0 ST27 ON NO ERROR

S127
ST126:

S127:

ERROR

RIS

; COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;260. WORDS 10 BE COMPARED

;READ HEADER AND DATA

;FOLLOWING A SEEK

;FROM CYLINDER
;ERROR

TO CYLINDER O

10 GAVE

CIRJIDO, RPO4/S/6 FCTNL CTUR1T
CIRJID.P11
28-MAR-79 09:03

MACY1Y

9148
9149

H 15

30A(1052)
25-MAY-79
10:30 PAGE 190
143
SEEK & WRT TEST (CvL =
0-10)

SEQ 0189

9150

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

g}g;

SYTEST 44

9153
9154
9155
9156
9157
9158
9159
9160

i
i
i
i
i
i
i
i

THIS TEST DEPENDS ON HEADER AND DATA WRITTEN BY
PRE' "2JS TEST.
AT THIS POINT THE HEADS ARE ON
CYLINDER 0

18T44:

SCOPE
MOV
MOV

#STACK,SP
Nih,NTSTNM

;RESET STACK
:SAVE TEST NUMBER

JSR

PC.arCLDISK

;SET R1-RHCS1
R2-RHCS2
:R3-RHDS1, R4=-RHER1
:GIVE RH=1' INITIALIZE

9161

034234
034236
036262

000004
012706
012737

001000
000044

9iu6
9167
9168

034250

004737

041524

9172
9173
9174
9175
9176

03425

THE

ALL REGISTERS ARE SAVED
A SEEK IS GIVEN TO CYLINDER 9
ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE
DATA WRITTEN ON CYLINDER 9 IS CHECKED

004604

:SETUP UNIT NUMBER

013777

004606

146004

;*THIS GETS HEADS TO CYLINDER 0

MOV

9177

9178
9179

(CYL = 009)

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

9162
9163
g}gg

9169
9170
9171

SEEK & READ TEST

SNRPLVEC,3RPVEC ;SET RPO4 VECTOR ADDRESS
210 'TIME1' IF P=CLOCK 1S PRESENT
:OR 10 'TIME2' IF P=-CLOCK 1S NOT PRESENT
STTIME' WILL ONLY SAVE
:CURRENT CYLINDER ADDRESS
SAND LOOK AHEAD REGISTERS

9180

034262

013746

002426

MOV

ANRECALI,-(SP)

;GET READY TO MOVE (OMMAND

9182
9183

034272

012677

146002

MOV

(SP)+,3RNCST

:ENABLE INTERRUPT
:GO WITH

034276
034300

011100
011305

MOV
MOV

aR1,RO
aR3,RS

034302
034304

104413
002322

WAT
RHDS 1

9181

9184
9185
9186
913;
9N
9189

9190
9191

9192
9193
9194
9195

034266

034306
034310
034312

052716

000101

000200
076377
056701

9196

9199

gggo
1

9202
9203

#GO' IE, (SP)

:GET READY TO SET 'GO’ AND
6 IN
:WITH
:SAVE
:SAVE

RHCS1 FOR RECALIBRATE
INTERRUPT ENABLED
RHCS1 DURING ABOVE OPERATION
RHDS1 DURING ABOVE OPERATION

;WAIT FOR DRY BiT T0 SET
:WwAIT FOR RHDS1 REGISTER

DRY
31999,
24001,

9197

9198

BIS

:WAIT FOR DRY BIT IN RHDS! REGISTER
“ALLOW 319990 MICRO SECONDS
:DRY MUST SET BETWEEN
;79980 AND 560000 MICRO SECONDS

;eFILL REGISTERS FOR A SEEK COMMAND

RO,3#SEEKCY

;SEEK FOR

034314

004037

041474

JSR

034322

004037

041672

;*SAVE REGISTERS FOR COMPARISON AFTER SEEK (OMMAND
;SAVE REGISTERS
RO,3#SAVER
JSR

034320

000012

10.

:CYLINDER 10.

CIRJIDO, RPO4L/S/6 FCTINL CTLRI
(ZRJ1D.PY
28-MAR-79 09:03

RHWC
SAVERE

034332

000022

18.

034334

013777

004606

Mov

145724

Sea 0190

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

:SAVED = 18.
@#RPLVEC,3RPVEC

;SET RPO4 VECTOR ADDRESS
;70 'TIMEY® IF P-CLOCK [S PRESENT

;OR 1O 'TIME2' IF P-CLOCK IS NOT PRESENT
;'TIME'

WILL ONLY

SAVE

;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
002452
000101

MOV

d#SEECOM,-(SP)

034352

012677

145722

MOV

(SP)+ ,aRHCS]

BIS

MOV
MOV

N —

—

036356
034360

013746
052716

—

034342
034346

#GO!LE, (SP)

aR1,RO
aR3,RS

,;GET

READY

TO MOVE

;GET READY T0 SET
;ENABLE INTERRUPT

COMMAND

'GO'

AND

;60 WITH

;4 IN RHCS1 FOR SEEK

;WITH

INTERRUPT

;SAVE RHCS!
;SAVE RHDS1

ENABLED

DURING ABOVE OPERATION
DURING ABOVE OPERATION

;*SEEK FOR ONE CYLINDER=7 MIL] SEC., FOR TEN=70 MIL]
034362
034364
034366

034370
034372

WAT
RHDS1

106413
002322
000200

;WAIT
;WAIT

Dk ¥
7000.

015530
000043

SEC

FOR DRY BIT 10 SET
FOR RHDS! REGISTER

;WAIT FOR DRY BIT IN RHDS1 REGISTER
;ALLOW 70000 MICRO SECONDS

35.

;DRY MUST SET BETWEEN
;69650 AND 70350 MICRO SECONDS

; *COMPARE CONTENIS OF RHCS1 AND RHDS1 ALREADY SAVED IN
;*RO AND RS IMMEDIATELY AFTER GO
034374
034400
034404
034410

013746
052716
011637
022600

034412
034414
034420
0344264

001405
010037
010137
104021

012746
011637
022605

9253
9254
9255

034440
034442
0346446
034452

001405
010537
010337

9258

034454

9259

115
25-MAY-79
10:30 PAGE 191
SEEK & READ TEST (CYL = 0J09)

002272
004612

034426
034432
034436

9256
9257

3?A(1052)

034326
034330

9204
9205
9206
9207
9208
9209
9210
9211
9212
9213
9214
9215
9216
9217
9218
9219
9220
9221
9222
9223
9224
9225
9226
9227
9228
9229
9230
9231
9232
9233
9234
9235
9236
9237
9238
9239
9240
9241
9242
9243
9244
9245
9246
9247
9248
9249
9250
7251
9252

MACYI

104063

002452
004301
001124

001124

A¥SEECOM,-(SP)

,SAVE

COMMAND

MOV

(SP) ,a#$GDDAT

;SAVE

FOR PRiNTOUT

BIS

cMp

67%:

69%:

(SP)+,RO

; INCLUDE DVA!GO.IE'!RDY

Bea

67%

MOV
ERROR

R1,3#REGADR
21

;FAILING REGISTER RHCSH
;DURING ABOVE OPERATION ONLY

RO,a#$BDDAT

:BAD DATA

MOV

: COMMAND AND DVA!GO'!lE!RDY SHOLLD BE SET
#PIP'MOL'DPR!VV,=(SP)
;SAVE BITS SET DURING GPERATION [N RnDS!

Cmp

(SP)+,RS

MOV

(SP) ,d#8GDDAT

BEQ

69%

MOV
ERROR

R3,9#REGADR
63

MoV

001126
004600

#OVA!GO!IE!RDY, (SP?

;DURING ABOVE OPERATION ONLY DVA.GO.IE.RDY
:AND COMMAND SHOULD BE SET
;BRANCH IF GOOD

MOV

001126
004600

030500

MOV

RS,a#$BDDAT

:SAVE FOR PRINTOUT

:DURING ABOVE OPERATION ONLY PIP.MOL.DPR:!VV
; SHOULD BE SET
:BRANCH IF GOOD
:BAD DATA

;FAILING REGISTER RHDSI
;DURING ABOVE OPERATION ONLY
;PIP!MOL!DPR!VV SHOULD BE SET

CZRJIDO, RPO4/5/6 FCINL CTLRI

CIRJID.PI

28-MAR-79 09:03

MACY11

30A(1052)

146

g%g?

10:30

J 15

034454
034460
034462

004037
00233¢
000012

0461426

9266

034464

053737

004740

SEEX & READ TEST (CYL = 009)

004636

JSR
RHCC
10.

RO,3#FILLRE

BIS

QFATTENT ,@NSAVERE+24

gggg

SEQ 0191

:MOV 10. INTO SAVED RHC(
;SAVED REGISTER TO CHANGE
:DATA

;SET APPROPRIATE 'ATA' BITS
:FOR WORKING DRIVE

;SAVED RHAS LOACTION

9270
g%;;

034472
034476

004037
002322

9273

034500

00000

9277
g%;g

034506
034512

004037
002300

9280
9281
g%g%

034514
034516
034520

000001
000001
100000

9274
35;2

PAGE 192

;*NOW CHANGE SAVEE REGISTERS TO EXPECTED VALUE

9262
9263
g%gg
9267

25-MAY=79

034502
034504

042404

JSR
RHDSY

RO,3FCHREG

000001
100000

:1 BI1/BITS 10 BE CMHANGED

1
ATA
062404

JSR
RHCST

:CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

:NEW VALUE OF ATA IS 1
:CHANGE ATA BIT
RO,3¥CHREG

1
1
SC

;CHANGE BITS IN SAVED REGISTER
;CHANGE RHCSY REGISTER
:1 BIT/BITS T0 BE CHANGED
:NEW VALUE Of SC IS 1
;CHANGE SC BI7T

:*COMPARE REGISTERS AFTER A SEEK COMMAND

gsgg
9286
9287

034522

004037

9288
9289
9290
9291
ggg%

034526
034530
034532
034534
034536

004612
002354
000022
034540
034544

9294
< 9295
9296
9297
9298
9%98

034540
034542

104037
000207

JSR

042512

RO,3#COMREG

SAVERE
w(
18.
k3
2%
1%:

ERROR
RTS

:GOOD DATA SAVED IN °'SAVERE'
:TEST DATA STARTING FROM 'RHw '
:18. REGISTERS TO BE COMPARED
:RETURN T0 1% ON ERROR
:RETURN T0 2% ON NO ERROR
37
PC

930

:COMPARE SAVED REG'STERS WlTH
:PRESENT VALUE

:SEEX COMMAND CAUSED
:ERROR
;GO0D DATA GIVES WHAT SHOULD
:BE THERE
:RECEIVED DATA GIVES WHAT WAS
:TMERE AFTER A SEEK COMMAND

9301

;¢AT THIS POINT THE CURRENT CYLINDER 1S GOOD AND THERE ARE

9303
9304

;A READ HEADER AND DATA WILL BE DONE ON CYLINDER 9
:¢SFCTOR 21 TRACK 18, EXPECTED DATA IS 23125

;*NO ERROR BITS

9302

;*FOR 20 WORDS
:¢CLEAR READ INTO BUFFER WITH ALL ONES

9305
oggg
9

2%:

gggg

034544

9310
9511
9312
9313
9314
9315

034544

004737

041524

JSR

PC,aNCLDISK

034550
034556

004037
003534

041374

JSR
REINTO

RO,3#CLAREA

;SET R1=RHCS1, R2-RH(S?2
:R3=-RHDS1, R4&=-RHER!
:GIVE RH=11 INITIALIZE
:SETUP UNIT NUMBER
;CLEAR 260. WORDS, FROM REINT'O
:STARTING FROM REINTO

CIRJ1DO, RPOGL/5/6 FCTINL CTLRY
CZRJID.PYY
28-MAR-79 09:03
9316
9317
9318

034556
034560

MACY11

30 AC1052)
144

000404
177777

9319

9336
9337
9338
9339
9340
9341
9342

9343

9344
9345
9346
9347
9348
9349
9350
9351
9352
9353
9354
9355
9356
9357
9358
9359
9360
9361

9362
9363
9364
9365
9366
9367
9368
9369
9370
9371

004037
002470
000004
010011
011025
000000
000000
004037
002500

034614
034620
034622
034624

004037
002550
000372
177777

10:30

SEEK & READ TEST

PAGE

041350

000024

seFILL

WRITE FROM BUFFER WITH EXPECTED DATA

JSR
WRFROM
4
10011

RO,a#FLHEAD

<18.+400>'<21.>

0
0

JTHIRD DATA WORD
;FOURTH DATA WORD

JSR

041374

;SAVE HEADER DATA [N WRFROM
:LOCATION WHERE SAVED
;NUMBER OF WORDS SAVED
;FIRST DATA WORD
:SECOND DATA WORD

<9,+¢2000>!<18.,.240>'<21.>

023125

Sea 0192

:260. WORDS
SFILL WITH -1

JSR
RO,afCLAREA
WRFROM+<4, 22>
20.

041374

193

(CyL = 009)

260.
-1

9320

034562
034566
034570
034572
034574
034576
034600
034602
034606
034610
034612

25-MAY-79

RO,a#CLAREA

WRFROM+<24.¢2>
250.
-1

:CLEAR 20. WORDS, FROM WRFROM+<&
92>
:STARTING FROM WRFROM+<4,
2>
;20. WORDS

SFILL WITH <9.¢2000> <18.¢40> <2

:CLEAR 250. WORDS, FROM WRFROM+<24.92>
:STARTING FROM WRFROM+<24,22>
;250. WORDS
SFILL WITH =1

;*FILL READ HEADER AND DATA COMMAND FOR 10 WORDS

034626
034632
034634
034635
034636

0046037
000011

034640

003534

REINTO

034642
034646

000000
014000

0
ECI'FMT22

034646

002450

REFOR

034650

004737

034654

1046401

034660

000000

034662

013777

043476

025
022
177750

.BYTE
.BYTE

JSR
9.

RO,3#RUN

2.
18.
=20.-4

;SECTOR 21.
:TRACK 18.
;WORD COUNT

PC.a#CHECKY

067033

TYPE

.CPHALT

145376

MOv

;STARTING ADDRESS OF DATA
;BUFFER = REINTO
.00 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD fORMAT
;INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE
;GET READY 10O DO A REFOR

;READ HEADER ANTM DATA WITH 72 IN RHCS!

JSR

004606

(DATA) = 20. +

;&4 HEADER WORDS
;BUS ADDRESS

041604

HALT

;SETUP TO RUN FOR DATA (OMMAND
:CYLINDER 9.

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

;AND THAT NO STATUS BITS ARE STu(K
;CANNOT CONTINUE TESTING IF ANY OF
;THE FIRST SET OF BITS DON'T =1
;ST10P

a#RPLVEC,aRPVEC ;SET RPO4& VECTOR ADDRESS

;70 "TIMEY® IF P=CLOCK IS PRESENT
;OR TO 'TIMEZ®

IF P=-CLOCK IS NOT PRESENT

s'TIME® WILL ONLY SAVE
;CURRENT CYLINDER ADDRESS
;AND LOOK AMEAD REGISTERS

CIRJIDO, RPO&L/S/6 FCINL CTL R1
CZRJID.PYY
28-MAR-79 09:03
9372
9373
9374
9375
9376
9377
9378
9379
9380
9181
9382
9383
9384
9385
9386
9387
9388
9389
9390
9391
9392
9393
9394
9395
93956
9397
9398

9399
9400

9401
9402
9403
9404
9405
9406
9407

MACY1T

30A(1052)
144

L 15

25-MAY-79
10:30
PAGE 194
SEEK & READ TEST (CYL = 0J9)

034670
034674

013746
052716

002450
000101

MOV

9#REFOR,-(SP)

034700

012677

145374

MOV

(SP)+ ,@RH(ST

034704
034706
034710
034712
034714

104413

WAT
RHCST
ROY

002300
000200
001614
001507

034716
034722
034724
034726
034730
034732

004037
002470
003534
000404
034734
034740

034734
034736

1064032
000207

034740

8IS

#GO!'1E, (SP)

JSR
WRFROM
REINTO

RO,a#COMPAR

;WAIT
;WALIT

FOR RDY BIT TO SET
FOR RHCS) REGISTER
SET

BETWEEN

; COMPARE TWO BLOCKS OF MEMORY
;GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;260. WORDS TO BE COMr/RED
;RETURN 10 3$ ON ERROR

;RETURN TO 4% ON NO ERROR

4%:

ENABLED

;690 AND 17470 MICRO SECONDS
READ WORDS

ERROR

INTERRUPT

;RDY MUST

s *CHECK

RTS

:WITH

:WAIT FOR RDY BIT IN RH(S1 REGISTER

260.
3%

;GET READY 10 MOVE COMMAND
;GET READY TO SET 'GO' AND
;ENABLE INTERRUPT
.60 WITH
;72 IN RHCS1 FOR READ DATA

;ALLOW 9080 MICRO SECONDS

908.
839.

0643542

SEQ 0193

sREAD HEADER AND DATA

;sFOLLOWING A SEEX TO CYLINDER 9

;FROM CYLINDER O GAVE
:ERROR

CIRJIDO, RPO4/5/6 FCINL CTLR)
CZRJID.PVY
28-MAR-79 09:03
9408

9409

MACY11

30AC1052)
WRITE

25-MAY-79

10:30

PAGE

CHECK DATA § WRITE PROTECTY
.SBTTL

SEQ 0194

[ESTS

WRITE CHECK DATA & WRITE PROTECT

TESTS

————

——

CZIRJIID0O, RPO4/5/6 FCINL CTLRY
CIRJID.PY
28-MAR-79 09:03

MACYTY

N 15

30A(1052)
25-MAY-79
10:30
PAGE 196
145
WRITE CHECK HEADER AND DATA

y
SEQ 0195

9(,]0

;;"t'lt't"""t""""tt't'"0"'"""ttt"tt't't't't'tt"t't

g:};

seTEST 45

9413

9414
9415
9416

. ?
.
.

9417
9418
9419
9420
9421
9422
9423
9424
9425
9426
9427
9428
9429
9430
9431
9432
9433

o
.t
]
i
M
M

9(,34

9435
9436
ga%g

WRITE CHECK HEADER AND DATA

WRITE CHECK HEADER AND DATA CYLINDER S FORMAT

10
10
10
10
16
16

WORDS
WORDS
WORDS
WORDS
WORDS
WORDS

OF
OF
OF
OF
OF
OF

174 WORDS OF

000004
012706
012737

001000
000045

034754

004737

041524

FOR

SECTOR)

377

M
B

& WORDS OF
2 WORDS OF

A
X
.
.
i
X
M
2

FIRST THE ABOVE DATA [S WRITTEN BY A WRITE HEADER AND
DATA COMMAND
CHECK FOR NO ERRORS
THEN THE ABOVE DATA ]S READ BY A READ HEADER AND DATA
CHECK FOR NO ERRORS
THEN THE ABOVE WRITE CHECK HEADER AND DATA IS GIVEN

TST45:
004604

177777
0
052525
125252
LEFT ROTATING ZERO (EG 177776,177775)
LEFT ROTATING ONE (EG 1,2.4.,10)

HEADER
12345

AL AAA AR AR ARl el

034740
034742
034746

16 BITS PER WORD

TRACK 7, SECTOR &, KEYS O, NUMBER OF WORDS 266
CONSISTING Of
10 WORDS OF 12344 (6 BITS FOR CYL, S FOR TRACK,

R R

SCOPE
MoV
MoV

#STACK,SP
#45,a#TSTNM

;RESET STACK
;SAVE TEST NUMBER

JSR

PC,aNCLDISK

;SET R1-RHCST, R2-RH(S2
:R3-RHDS1, R&4&-RHER]

R A

R R R X R RN

9439
9440
9441

9442
9443
9444

9445
9446
9447
9448

;GIVE

034760

004737

041604

JSR

PC,aNCHECKT

034764

104401

067033

TYPE

,CPHALT

034770

000000

HALT

gagg

;*GET

HEADS

RH=11

INITIALIZE

;SETUP UNIT NUMBER
;CHECK DVA,RDY,MOL,DPR,DRY,VV =
;AND

THAT

NO STATUS BITS ARE

STUCK

;CANNOT CONTINUE TESTING IF ANY OF
sTHE FIRST SET OF BITS DON'T = 1
;ST0P

TO CYLINDER S

9651
gag%

034772
034776

004037
000005

0461474

035000

013777

006606

JSR
5

RO,I#SEEXCY

;SEEXK FOR
;CYLINDER S

MOV

O#RP4LVEC,IRPVEC

;SET RPO& VECTOR ADDRESS

9454

9455

9456
9457
9458
9459
9460
9461
9462
9463
94Lb4
96465

145260

;7O

"TIMEY®

P=CLOCK

sOR TO *TIMEZ' IF P=CLOCK
J'TIME' WILL ONLY SAVE
sCURRENT CYLINDER ADDRESS
sAND LOOK AHEAD REGISTERS

035006
035012

013746
052716

002452
000101

MOV
BIS

S¥SEECOM,-(SP)
#G0.1E, (SP)

035016

012677

145256

MOV

(SP)+ ,QRH(S]

:GET READY 1O MOVE COMMAND
;GET READY 10 SET 'GO' AND
sENABLE INTERRUPT
;60 WITH

PRESENT

1S NOT

PRESENT

CIRJIDO, RPO4/5/6 FCTINL CTLR]
CIRJID.P 11
28-MAR-79 09:03

MACY11

B 16

30A(1052)
¢5-MAY-79 10:30 PAGE 197
145
WRITE CHECK HEADER AND DATA
;4

035026
035030
035032
035034
035036

104413
002322
000200
015530
000043

035040

004737

—

Mov
mov

N —

035022
035024

9468
9469
9470
9471
9472
9473
9474
9475
9476
9477
9478
9479
9480
9481
9482
9483
9484
9485
9486
9487
9488
9489
9490
9491
9492
9493
9494

—
b

9466

9467

041524

IN RHCS1

FOR SEEK

:WITH INTERRUPT ENABLED
;SAVE RHCS1
;SAVE RHDS1

DURING ABOVE OPERATION
DURING ABOVE OPERATION

WAl
RHDS1

;WALT FOR DRY BIT 10 SET
;WAIT FOR RHDS1 REGISTER

35.

;DRY MUST SET BETWEEN
;69650 AND 70350 MICRO SECONDS

DRY
7000.

JSR

:WAIT 7OR DRY BIT IN RHDS1 REGISTER
;ALLOW 70000 MICRO SECONDS

PC,aNCLDISK

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

;*FILL WRITE FROM BUFFER WITH HEADER
035044
035050
035052
035054
035056
035060
035062

004037
002470
000004
010005
003404
000000
000000

0641350

JSR
WRFROM
4
10005

RO,a#fLHCAD

<7+400>'4

0
0

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

DATA WORD

;THIRD DATA WORD
;FOURTH DATA WORD

;*10 WORDS OF OF THE FOLLOWING DATA
;v 12344,17777,0,52525,125252

9495

035064
035070
035072
03507¢

004037
002500
000012
012344

0461374

035076
035102

004037
002524
000012

041374

004037
002550
000012
000000

041374

004037
002574
000012
052525

041374

004037
002620
000012

041374

125252

b
——

JSR

RO,3#CLAREA

WRFROM+<4r 2>
i0.

<5¢2000>'<7+40>'4

;CLEAR 10. WORLS, FROM WRFROM+<q*2>
:STARTING FROM WRFROM+<4e2>
:10. WORDS

sFILL WITH <5+2000>!<7+40>!4

RO,a#CLAREA
JSR
WRFROM+<14 ., ¢2>

;CLEAR 10. WORDS, FROM WRFROM+<14,¢2>
:STARTING FROM WRFROM+<14,.¢2>

RO,a#CLAREA
JSR
WRFROM+<24,.¢2>

4
. 92>
:CLEAR 10. WORDS, FROM WRFROM+<2
4
92>
:STARTING FROM WRFROM+<2

;FILL WITH O

10.
-1

177777

—-—

9496
9497
9498
9499
9500
9501
9502
9503
9504
9505
9506
9507
9508
9509
9510
9511
9512
9513
9514
9515
9516
9517
9518
9519
9520
9521

aR1,RO
eR3,R5

SEQ 0196

10.

;10. WORDS
;FILL WITH <1

;10. WORDS

JSR
RO,3#CLAREA
WRFROM+<34 ., 22>
10.
52525

;CLEAR 10. WORDS, FROM WRFROM+<34.*>
,
22>
:STARTING FROM WRFROM+<34

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

¢2>
;CLEAR 10. WORDS, FROM WRFROM+<44,
4
, v2>
:STARTING FROM WRFROM+<4

10.
125252

:10. WORDS
SFILL WITH 52525

:10. WORDS
sPILL WITH 125252

(IRJ1IDO, RPO4L/S5/6 FCINL CTL R1
CIRJ1D.PN
28-MAR-79 09:03
9522
9523
9524
9525
9526
9527
9528
9529
9530
9531
9532
9533
9534
9535
9536
9537
9538
9539
9540
9541
9542
9543
9544
9545
9546
9547
9548
9549
9550
9551
9552
9553
9554
9555
9556
9557
9558
9559
9560
9561
9562
9563
9564
9565

c 16

30A(1052)
25-MAY-79
10:3C
PAGE 198
145
WRITE CHECK HEADER AND DATA

SEQ 0197

;*FILL LEFT ROTATING ZEROS FROM WRFROM+<54.¢2.
177776
000020
002644
1%:

MOV
Mov
Mov
ggg

R1,-(SP)
;;PUSH R1 ON STACK
#77776,R0
;DATA
6. ,RS
. COUNT
FURFROM+<54,.¢2>
Rl ;WHERE DATA GOES

Mov
ROL

RO, (R1)¢
RO

DEC
BNE

035174

RS
1%

:STORE DATA
;GET ZERO ONE BIT LEFT

; COUNT 16
;BRANCH 1F

16 NOT DONE

;eFILL LEFT ROTATING ONE INTO WRFROM+<65.¢2>
035176
035200
035204
035206
035210
035212

000241
012700
010021
006300
103375
012601

000001

2%:

Mov
MOV
ASL
RrC
mov

f,RO
RO, (R1)+
RO
2%
(SP)+,R1

;.POP STACK INTO R

;vFILL REST OF DATA
035214
035220
035222
035224

004037
002744
000256
000377

041374

035226
035232
035234
035236
035240
035242
035244
035246
035252
035254
035256

004037
003500
000004
010005
003405
000000
000000
004037
003510
000002
012345

041350

035260
035264
035266

004037
003534

041374

035270

RO,3INCLAREA
JSR
WRFROM+<B86.v2>

;CLEAR 174. WORDS, FROM WRFROM+<86.92>
:STARTING FROM WRFROM+<86.%2>

377

;FILL WITH 377

174.

041374

;SAVE HEADER DATA IN WRFROM+<260.¢2>
;LOCATION WHERE SAVED

10005
<7+400>'5
0
0

;FIRST DATA WORD
:SECOND DATA WORD

RO,3#CLAREA
JSR
gRFROH0<264.'2>

<5+2000>'<7+40>!5

;*READ

JSR

REINTO

;NUMBER OF

WORDS SAVED

;THIRD DATA WORD
;FOURTH DATA WORD

;CLEAR 2 WORDS, FROM WRFROM+<264.%2>
STARTING FROM WRFROM+<264.2>

;2 WORDS'

SFILL WITH <5+2000>!<7¢40>'5

INTO BUFFER WILL BE CLEARED

RO,3#CLAREA

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

:266. WORDS

266.
177400

000412
177400

:174. WORDS

JSR
RO,a#FLHEAD
WRFROM+<260.¢2>
4

9566

9567
9568
9569
9570
9571
9572
9573
9574
9575
9576
9577

MACY11

SFILL WITH 1776400

;*THE WRITE HEADER AND DATA COMMAND WwitL BE LOADED
035272
035276

004037
000005

063476

gSfl

RO,a#RUN

;SETUP TO RUN FOR DATA (OMMAND
:CYLINDER 5

CIRJIDO, RPO4/5/6 FCTINL CTLR]
CIRJID.PYY
28-MAR-79 09:03
9578
9579
9580
9581
9582
9583
9584
9585
9586
9587

9588
9589
9590
9591
9592
9593
9594

9595
9596
9597
9598
9599

9600
9601
9602

9603
9604
9605
9606
9607

9608
9609
9610
9611
9612

035300
035301
035302

094
007
177366

035306

002470

MACY1T

D 16

30A(1052)
10:30
PAGE 199
25-MAY-79
165
WRITE CHECK HEADER AND DATA
.BYTE

.BYTE

;SECTOR &

=262.-4

:WORD COUNT (DATA)
;&4 HEADER WORDS

sTRACK

WRFROM

000000
010000

0
FMT22

002644

WRIFOR

= 262.

;BUS ADLCRESS

;BUFFER = WRFROM

DATA

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

;D0 NOT INHIBIT ECC CORRECTION
;D0 NOT INMIBIT HMEADER COMPARE

:GET READY TO DO A WRIFOR
;WRITE HEADER AND DATA WITH 62 IN RHCS!

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

006037
002272
004612

041672

JSR

RHW(

RO,a#SAVER

SAVERE

000022

035326

004737

061604

JSR

PC,aNCHECKT

035332

104401

067033

TYPE

LCPHALT

035336

000000

035340

013777

Mov

REGISTERS ARE

SAVED

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

;AND THAT NO STATUS BITS ARE STuCk
; CANNOT CONTINUE TESTING IF ANY OF
:THE FIRST SET OF BITS DON'T = 1

;ST0P

HALT

144720

:RHWC 1S THE FIRST REGISTER SAVED
:STARTING ADDRE
S OF WHERE

;NUMBER OF REGISTERS
;SAVED = 18.

18.

004606

;SAVE REGISTERS
:THE

035324

INRPLVEC ,ARPVEC

;SET RPO4 VECTOR ADDRESS

;70 "TIMEY1' JF
:OR 10 °'TIMEZ2'

P=-CLOCK 1S PRESENT
IF P=-CLOCK iS NOTU PRESENT

;"TIME' WILL ONLY SAVE
;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

035346
035352

013746
052716

002444
0oci1C1

MOv

afWRIFOR,=(SP)

035356

012677

144716

Mov

(SP)+ ,aRHCST

002300
000200
001732
001502

035374
035400

004037
002272

8IS

#GO!1E, (SP)

FOR RDY BIT 10 SET
FOR RHCS1 REGISTER

RDY

;WALT FOR RDY BIT

834,

¢RDY MUST

IN RHCS1

;ALLOW 9860 MICRO SECONDS

986.

061426

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

WAl
RHCSY

104413

9627

9628
9629
9630
9631
9632
9633

:STARTING ADDRESS OF

9613

9614
9615
9616
9617
9618
9619
9620
9621
9622
9623
9624
9625
9626

SEQ 0198

SET

BETWEEN

;1520 AND 18200 MICRO SECONDS

;*NOW (HANGE SAVED REGISTERS 10 EXPECTED VALUES

JSR

RHW(

RO,a#FILLRE

MOV 0

INTO SAVED RMW(

;SAVED REGISTER YO CHANGE

CIRJIDO, RPO4/5/6 FCTINL CTLR]
CIRJ1D.PVT
28-MAR-79 09:03
9634
9635

9636
9637
9638
9639

9640
9641
9642

035402
035404
035410
035612
035414
035420
035422

000000

004037
002276
003514
004037
002304

MACY11

E 16

30A(1052)
25-MAY=-79
10:30 PAGE 2U0
145
WRITE CHECK HEADER AND DATA
0

041426

9650
9651

905¢
9653
9654
9655
9656

;MOV WRFRUM4<266.%2> INTO SAVED RHBA

JSR

RO,8#FILLRE

;MOV 3406 INTO SAVED RHDST

0354264

004037

035430
035432
035434
035436
035440

004612

035442
035444

104027
000207

JSR

042512

RO,3#COMREG

SAVERE
W(
"8,
1%

9670
9671
9672
9673
9674
9675
9676
9677
9678
9679
9680
9681
9682
9683
9684
9685
9686
9687
9688
9689

;SAVED REGISTER TO CHANGE
;DATA

502354
000022

035442
035446

ERROR
RTS

:PRESENT

VALUE

:RETURN T0 &% ON NO ERROR

1%:

:COMPARE SAVED REGISTERS WITH

;GO0D DATA SAVED IN 'SAVERE'
:TEST DATA STARTING FROM 'RHW(C'
:18. REGISTERS 10 BE (OMPARED
;RETURN TO 3% ON ERROR
27
PC

;WRITE HEADER AND DATA
;CAUSED IMPROPER REGISTER
: CHANGE

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

9657

9658
9659
9660
9661
9662
9663
9664
9665
9666
9667
9668
9669

;SAVED REGISTER TO CHANGE
;DATA

:*NJW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA
;*wiTH REGISTERS AFTER COMMAND

9643

9644
9645
9646
9647
9648
9649

RO,@#FILLRE

RHDST
3406

003406

;DATA

JSR

RHBA
WRFROM+<266.¢2>

041426

SEQ 0199

:WAS THERE

AFTER COMMANT

;*NOW FILL COMMAND FOR READ
4%:

035446
035446

004737

041524

JSR

PC,aNCLDISK

:SET R1-RH(CS1, R2-RHCS?2
;R3-RHDS1, R4-RHERI
;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

035452
035456
035460
035461
035462

004037
000005
004
007
177366

043476

JSR
5

RO ,3#RUN

;SETUP 10 RUN FOR DATA (OMMAND
;CYLINDER 5

035464

003534

REINTO

035466
035470

00000
014000

0
ECIIFMT2?

035472

002450

REFOR

.BYTE
.BYTE

7
-262.-4

;SECTOR 4

;TRACK 7
:WORD COUNT

(DATA) = 262. ¢

;4 HEADER WORDS

;BUS ADDRESS

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

;READ HEADER AND DATA WITH 72 IN RH(SI

:eNOW SAVE REGISTERS FOR COMPARISON AFTER RFAD HEADER AND DATA

CIRJIDO, RPO4L/S/6 FCINL CTLR]
CZRJID.PIY
28-MAR-79 09:03
9690
9691
9692
9693
9694
9695

9696
9697
9698
9699
9700
9701
9702

9703
9704
9705
9706
9707
9708
9709
9710
9711
9712
9713
9714
9715
9716

9717
9718
9719
9720
9721
9722

9723
9724
9725
9726
9727
9728
9729
9730
9731
9732
9733
9734

9735
9736
9737
9738
9739
9740

9741
9742
9743
G744
9745

MACY 1

30A§1052)

25-MAY-=-79

WRITE

CHECK

10:30

HEADER

035474
035500
035502

004037
002272
004612

035504

000022

035506

004737

041604

JSR

PC,aN(HECKT

035512

104401

067033

TYPE

LCPHALT

035516

000000

035520

013777

041672

JSR
RHWC
SAVERE

PAGE 201

RO,a#SAVER

;SAVED = 18.

HALT

144540

Mov

;SAVE REGISTERS
:RHWC 1S THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;THE REGISTERS ARE SAVED
:NUMBER Of REGISTERS

18.

004606

Seq 0200

AND DATA

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

;AND THAT NO STATUS BIiTS ARE STuCk =1
:CANNOT

CONTINUE

:THE FIRST SET OF

TESTING

;ST0P

S¥RPLVEC,BRPVEC

ANY OF

BITS DON'T =1

;SET RPO4 VECTOR ADDRESS
;710 *TIMEY1' IF P=-CLOCK ]S PRESENT
;OR TO °*TIMEZ2® IF P-CLOCK IS NOT PRESENT

;'TIME" WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS
;AND LOOK

035526
035532

013746
052716

002450
000101

MOV

d¥REFOR,=(SP)

;GET

035536

012677

144536

Mov

(SP)+ ,3RHCST

;60 WITH

BIS

#GO:1E, (SP)

READY

WAT
RHCST
RDY

106413

002300
000200
001732
001502

035554
035560
035562
035564
035570
035572
035574
035600
035602

004037
002272
000000
004037
002274
004560
004037
002304
003406

COMMAND

'GO' AND

;72 IN RHCSY FOR READ DATA
INTERRUPT

ENABLED

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

986.
834.

; *CHANGE

TO MOVE

;GET READY TO SET
;ENABLE INTERRUPT
;WITH

035542
035544
035546
035550
035552

AHEAD REGISTERS

;ALLOW 9860 MICRO SECONDS
;RDY MUST SET BETWEEN
;1520 AND 18200 MICRO SECONDS
SAVED REGISTERS TO EXPECTED VALUES

JSR

RO,a#FILLRE

MOV O INTO SAVED RHW(

041426

JSR

RO,a#F ILLRE

MOV REINTO+<266.¢2> INTO SAVED RMBA

041426

JSR
RHDST
3406

RO,a#FILLRE

041426

SHUC

RHBA
REINTO¢<266.¢2>

;SA¥ED REGISTER 1O CHANGE
;DA

;SAVED REGISTER TO CHANGE
;DATA

MOV 3406 INTO SAVED RHDST
;SAVED REGISTER TO CMANGF
:DATA

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

035604

004037

035610

004612

0462512

JSR

SAVERE

RO,3#(OMREG

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

CIRJ1IDO, RPO4/5/6 FCTINL CTLR]
CIRJID.PVY
28-MAR-79 09:03

9801

000207

:
9%

104031

ERROR
RTS

;TEST DATA STARTING FROM ‘RHW('
;18. REGISTERS 1O BE (OMPARED
;RETURN TO 5% ON ERROR
;RETURN TO 6% ON NO ERROR
U1

;READ HEADER AND DATA CAUSED
; IMPROPER REGISTER CHANGE

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

AFTER

COMMAND

;*NOW READ INTO BUFFER WILL BE CHECKED TO SEE
:*THAT READ WAS GOOD

6%:

035626
035626
035632
035634
035636
035640
035642

004037
002470
003534
000412
035644
035650

035644
035646

104032

043542

7%:

000207

JSR
WRFROM
REINTO
266.
7%
10%

RO,a#COMPAR

;COMPARE TWO BLOCKS OF MEMOPY
:GOOD DATA STARTS FROM WRFROM
;TEST DATA STARTS FROM REINTO
;266. WORDS TO BE COMPARED
;RETURN 10 7% ON ERROR
;RETURN TO 108 ON NO ERROR

ERROR
RTS

32
PC

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

A READ ERROR

;ERROR MAY BE IN READ OR WRITE
;*A WRITE,READ HAS BEEN SUCCESSFULLY COMPLETED

;*NOW A WRITE (HECK HEADER AND DATA WiLL BE GIVEN

;*FILL THE WRITE CHECK HEADER AND DATA
10%:

035650

004737

JSR

041524

PC.a#CLDISK

;SET R1-RHCS1, R2-RH(S?
:R3-RHDS1, R4-RHERI

;GIVE RH-11 INITIALIZE
;SETUP UNIT NUMBER

-262.-4

002470

WRFROM

000000
014000

0
EC1.FMT2?2

;SECTOR &

s TRACK 7

;WORD COUNT (DATA) = 262. ¢
;& HEADER WORDS

;BUS ADDRISS

;STARTING ADDRESS OF DATA
;BUFFER = WRFROM
;DO NOT INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD fORMAT
:INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER C(OMPARE

;SETUP TO RUN FOR DATA (OMMAND
:CYLINDER S

RO,3#RUN

.BYTE
.BYTE

JSR
5

177366

043476

035666

004037
000005
004
007

035654
035660
035662
035663
035664

9792
9793
9794
9795
9796
9797
9798
9799
9800

035622
035624

Wl
18.
5%
6%

9775
9776
9777
9778
9779
9780
9781
9782
9783
9784
9785
9786
9787
9788
9789
9790
9791

002354
000022
035622
035626

SEQ 0201

9774

035612
035614
035616
035620

6 16
30A(1052)
25-MAY-79
10:30 PAGE 202
165
WRITE CHECK HEADER AND DATA

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
9773

MACY11

CIRJIDO, RPO&L/S5/6 FCINL CTLR 1
CIZRJ1D.PYY
28-MAR-79 09:03

9855
9856

9857

H 16
30A(1052)
25-MAY-79
10:30
PAGE 203
165
WRITE CHECK HEADER AND DATA

002440

WRCHDT

;GET

SEQ 0202
READY

TO DO A WRCHDT

;WRITE CHECK MEADER AND DATA WITH 52 IN RH(SI

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK
S125:

035676
035676
035702
035704

004037
002272
004612

035706

000022

135710

004737

041604

JSR

PC,aNCHECKT

035714

104401

067033

TYPE

LCPHALT

035720

000000

035722

013777

041672

JSR

RHW(
SAVERE

RO,a8#SAVER

18.

1464336

MOV

;RHWC IS THE FIRST REGISTER SAVED
;STARTING ADDRESS Of WHERE
:THE REGISTERS ARE SAVED

:NUMBER OF

REGISTERS

;SAVED = 18,

HALT

004606

;SAVE REGISTERS

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

;AND THAT NO STATUS BITS ARE STu(K
;CANNOT CONTINUE TESTING IF ANY Of

;THE FIRST SET OF BITS DON'T = 1
:STO0P

S#RPLVEC,IRPVEC

;SET RPO4 VECTOR ADDRESS
;10 'TIME1' IF P=-CLOCK [S PRESENT

;OR 10 'TIME2'
;'TIME®

WILL

IF P-CLOCK IS NOT PRESENT

ONLY

SAVE

; CURRENT CYLINDER ADDRESS
;AND LOOK

AHEAD REGISTERS

035730
035734

013746
052716

002440
000101

MOV

OFWRCHDT,-(SP)

,;GET READY

035740

012677

144334

MOV

(SP)+ ,aRHCST

;G0 WITH

MOV
MOV

aR1,RO
aR3,RS

woO

N —

106413

035750
035752
035754
035756
035760

—

035744
035746

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
9829
9830
9831
9832
9833
9834
9835
9836
9837
9838
9839
9840
9841
9842
9843
9844
9845
9846
9847
9848
9849
9850
9851
9852
9853
9854

035674

———d

9802

9803

MACY1Y

BIS

#GO:!1E, (SP)

WAT
RHCST
ROY

002300
000200
001732
001502

TO MOVE

:GET READY TO SET
;ENABLE INTERRUPT

;SAVE RHDS1

DURING ABOVE OPERATION

;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS1 REGISTER
;WAIT FOR RDY BIT IN RH(S1

986.
834,

;ALLOW 9860 MICRO SECONDS
;RDY MUST SET BETWEEN
;1520 AND

036000
036002
036006

001126
004600

ALREADY SAVED IN

MOV

AMWRCHDT,=(SP)

;SAVE COMMAND

MOV

(SP) ,a#$GDDAT

;SAVE FOR PRINTOUT

BIS

CMP

BEQ
MOv
MOV

#1E'DVA!GO,(SP)
(SP)+,RO

649
RO,a3#$BDDAT
R1.,3#REGADR

;INCLUDE

18200 MICRO SECONDS

:*RO AND RS IMMEDIATELY AFTER GO

002440
004101
001124

°'GO' AND

;52 IN RHCSY FOR WRITE CHECK HEADER AND DATA
;WITH INTERRUPT ENABLED
:SAVE RH(CS1 DURING ABOVE OPERATION

;*COMPARE CONTENTS OF RHCS1 AND RHDS1
035762
035766
035772
035776

COMMAND

IE!DVA!GO

;DURING ABOVE OPERATION ONLY
:AND COMMAND SHOULD BE

;BRANCH 1F GOOD
;BAD DATA
;FAILING REGISTER RHCS!

SET

[E .DVA!GC

9858
9859
9860
9861
9862
9863
9864
9865
9866
9867
9868
9869
9870
9871
9872
9873
9874
9875
9876
9877
9878
9879
9880
9881
9882
9883
9884
9885
9886
9887
9888
9889
9890
9891
9892
9893
9894
9895
9896
9897
9898
9859
9¢J0
9901
9902
9903
9904

036012

104021

036014
036020
036024

012746
011637
022605

036026
036030
036034
036040

001405
010537
010337
104063

CIRJ1D0, RPO&4/S/6 FCINL CTLR
CZRJID.PW
28-MAR-79 09:0

MACY11

116

30A(1052)
10:30 PAGE 204
25-MAY-79
165
WRITE CHECK HEADER AND DATA

MoV
MOV
(mp

;DURING ABOVE OPERATION ONLY
; COMMAND AND E'!DVA!GO SHOULD BE SET
#MOL 'DPR!VV,=(SP)
;SAVE BITS SET DURING OPERATION IN RHDS!
:SAVE FOR PRINTOUT
(SP) ,a#$GDDAT
(SP)+,RS
;DURING ABOVE OPERATION ONLY MOL:DPR:vVV

BEQ

€6%

Mov
ERROR

R3,3#REGADR
63

ERROR
6463

MOV

001126
0046600

RS.3#$BDDAT

66%:

036042

SEQ 0203

; SHOULD BE SET

;BRANCH 1f GOOD
;BAD DATA

;FAILING REGISTER RHDSI
;DURING ABOVE OPERATION ONLY
;MOL!DPR!VV SHOULD BE

SET

; *CHANGE SAVED REGISTERS TO EYPECTED VALUES
036042
036046
036050
036052
036056
036060
036062
036066
036070

004037
002272
000000
004037
002274
003514
004037
002304
003406

0461426

JSR

RO,a#FILLRE

;MOV O INTO SAVED RHW(

JSR

RO.,a#F JLLRE

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

JSR

RO,a#F ILLRE

RHWC
0

061426

RHBA
WRFROM+<266.¢2>

0461426

RHDST
3406

;SAVED REGISTER TO CHANGE
;DATA

;SAVED REGISTER TO CHANGE
:DATA

;MOvV 3406 INTO SAVED RHDST
;SAVED REGISTER TO CHANGE
;DATA

; *COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA
;*WITH REGISTERS AFTER COMMAND
036072

004037

036076
036100
036102
036104
036106

004612
002354
000022
036110
036114

036110
036112

106040

000207

JSR

042512

RO,3#COMREG

SAVERE
Wi

ERROR
RTS

;PRESENT

VALUE

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

18.
8%
9%

8%:

: COMPARE SAVED REGISTERS WITH

;18. REGISTERS TO BE COMPARED
;RETURN TO 8% ON ERROR
:RETURN TO 9% ON NO ERROR

40
PC

;WRITE CHECK CAUSED
;AN IMPROPER REGISTER
: CHANGE

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

036114

9%:

CIRJIDO, RPO&/5/6 FCINL CTLR
28-MAR-79 09:03
CIRJID.PU

J 16
30A(1052)
25-MAY-79
10:30
PAGE 205
1 45
WRITE CMECF HEADER AND OATA

SEQ 0204

$TEST

.
.

WRITE

CHECK

.
.

10 WORDS OF
10 WORDS OF

.
.
.

.
.
.
.

CONSISTING OF

12344 (6 BITS FOR CYL, 5 FOR TRACK, S FOR SECTOR)
177777

10 WORDS OF 0
10 WORDS OF 052525
10 WORD OF 125252

16 WORDS OF LEFT ROTATING ZERO (EG177776,177775)
16 WORDS OF LEFT ROTATING ONE (EG 1,2,4.10)
174 WORDS OF 377
2 WORDS OF 12345

.
.

FIRST THE ABOVE DATA IS FILLED INTO WRITE FROM BUFIER
THEN THE ABOVE WRITE CHECK DATA IS GIVEN

$T46:

SCOPE
MOV
MOV

FSTACK,SP
#46,38TSTNM

;RESET STA(K
*SAVE TEST NUMBER

;SET R1-RHCS1, R2-RH(S2
;R3-RHDST, R&-RHER!
:GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER
VYV = 1
;CHECK DVA,RDY,MOL,DPR,DRY,

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

036114
036116
036122

000004
012706
012737

001000
000046

036130

004737

041524

JSR

PC.aNCLDISK

036134

004737

041604

JSR

PC,aNCHECKT

036140

104401

067033

T1YPE

LCPHALT

036144

000000

004604

DATA

THE DATA FOR THIS TEST IS WRITTEN ON DISK BY PREVIOUS TEST
WRITE CMECK DATA CYLINDER 5, FORMAT 16 BITS PER WORDS
TRACK 7, SECTOR 4, KEYS 0, NUMBER OF WORDS 258

HALT

;AND THAT NO STATUS BITS ARE STuCK =
:CANNOT CONTINUE TESTING IF ANY OF
:THE FIRST SET OF BITS DON'T = 1

;STOP

;*GET HMEADS TO CYLINDER 5
036146
036152

004037
000005

041474

036154

013777

004606

1664104

;SEEX FOR
;CYLINDER 5

JSR
5

RO,aI#SEEKCY

MOV

I#RPLVEC,RPVEC ;SET RPO4 VECTOR ADDRESS
;70 "TIMEY'

P-CLOCK

IS PRESENT

;OR 1O 'TIME2' IF P=-CLOCK IS NOT PRESENT
;"TIME®

WILL ONLY

SAVE

;CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS
036162
036166

036172

013746
052716

012677

002452
000101
144102

MOV

ANSEECOM,-(SP)

Mov

(SP)+,aRH( ST

B1S

¥GO.1E, (SP)

;GET READY TO MOVE C(OMMAND

;GET READY TO SET 'GO' AND
;ENABLE INTERRUPT
;G0 WITH
;4

IN RHCS)

FOR SEEK

;WITH INTERRUPT ENABLED

’;""'"'"'""""'""""'"""""""""""'."""""

]

wd®
s Se

990%
9906
9907
9908
9909
9910
9911
9912
9913
9914
9915
9916
9917
9918
9919
9920
9921
9922
9923
9924
9925
9926
9927
9928
9929
9930
9931
9932
9933
9934
9935
9936
9937
9938
9939
9940
9941
9942
9943
9944
9945
9946
9947
9948
9949
9950
9951
9952
9953
9954
9955
9956
9957
9958
9959
9960

MACY11

(IRJ1D0, RPO4/S5/6 FCTINL CTLR]
CIRJID.PIY
28-MAR-79 09:03
996
9962

9963

9964
9965
9966
9967
9968
9969
9970
9971
9972

036176
036200
036202
036204
036206

002322
000200
004704
004706

036210

004737

MACYTI1

30A(1052)
146

9983
9984
9985

9986

9987
9988
9989

9990
9991
9992
9993
9994
9995
9996
9997

9998
9999
10000
10001
10002
10003
10004

10005
10006

)
)
el
i
—

O V)
—

il
i
el
D
—r

OO0
0
OOO0OOO0

10007
10008
10009
10010

WRITE

CHECK

10:30

DATA

WAT
RHDSY

104415

JSR

041524

16
PAGE 2V6

Sea 0205

:WAIT FOR DRY BJT TO SET
:WAIT FOR RHDS1 REGISTER

DRY
2500.
2500.

;WAIT FOR DRY BIT IN RHDST REGISTER
SALLOW 25000 MICRO SECONDS
;DRY MUST SET BETWEEN
;00 AND SQ0000 MICRO SECONDS

PC.a#CLDISK

;SET R1=-RHCST, R2-RH(S2
:R3I-RHDS1, R&=-RHERI

;GIVE RH=11 INITIALIZE
:SETUP UNIT NUMBER

9973
9974
9975

9976
9977
9978
9979
9980
9981
9982

25-MAY-79

;+10 WORDS OF EACH 12344,17777,0,52525,125252
036214
036220
036222
036224

004037
002470
000012
012344

041374

036226
036232
036234
036236

004037
002514
000012

061374

036240

004037
002540
000012
000000

061374

036252
036256
036260
036262

004037
002564

041374

036264
036270
036272
036274

004037
002610
000012

036244

036246
036250

JSR

WREROM
10.

RO,3NCLAREA

<5¢2000>'<7+40>'4

RO,a#CLAREA
JSR
WRFROM+<10.22>

177777

:CLEAR 10. WORDS, FROM WRFROM+<10.¢2>
:STARTING FROM WRFROM+<10.92>

JSR
RO.3#CLAREA
WRFROM+<20.¢2>

:CLEAR 10. WORDS, FROM WRFROM+<20.#?2>
;STARTING FROM WRFROM+<20,.¢2>

;FILL WITH O

:10. WORDS

RO,a#CLAREA
JSR
WRFROM+<30,.¢2>

:CLEAR 10. WORDS, FROM WRFROM+<30.22>
:STARTING FROM WRFROM+<30,¢2>

52525

SFILL WITH 52525

RO,3#CLAREA
JSR
WRFROM+<40.2>

;CLEAR 10. WORDS, FROM WKFROM+<40.*2>
:STARTING FROM WRFROM+<40,.22>

125252

SFILL WiTH 125252

10.

125252

SFILL WITH <5¢2000>!<7¢40>'4

;10. WORDS
SFILL WITH =1

10.

041374

:STARTING FROM WRFROM
:10. WORDS

10.
-1

10.

000012
052525

:CLEAR 10, WORDS, FROM WRFROM

:10. WORDS

;*FILL LEFT ROTATING ZEROS FROM WRFROM+<50,.%2>
036276
036300
036304

036310

036314
036316
036320
036322
036324

0
0
0

MOV

;;PUSH R1 ON STACK
R1,-(SP)
;DATA
M177776,R0
: COUNT
#16.,RS5
FWRFROM+<50.+2>,R1 ;WHERE DATA GOES

Mov
ROL

RO, (R1)¢
RO

MOv

MOV

177776
000020
002634

MOV
1$:

SEC

DEC
BNE

RS
1%

: STORE DATA
;GET JERO ONE BIT LEFT

: COUNT 16
;BRANCH IF 16 NOT DONE

sefFILL LEFT ROTATING ONE INTO WRFROM+<65.%2>

}DO. RPO4/5/6 FCINL CTLRY
28-MAR-79 09:03
0.PIN
036326
036330
036334
036336
036340
036342

000241
012700
010021
006300
103375
012601

MACY1Y

000001

30A(C1052)
146

2%:

25-MAY-79

L 16
10:30 PAGE 297

WRITE CHECK DATA
cLe
MOV
MOV
ASL
BCC
MOV

#1,R0
RO, (R1)+
RO
2%
(SP) ¢ RV

SEQ 0206 |

::POP STACK

INTO R}

;eFILL REST OF DATA
036344
036350
036352
036354

004037
002734
000256
000377

041374

036356
036362
036364
036366

004037
003470
000002
012345

041374

JSR
RO,3#CLAREA
WRFROM¢<B2.¢2>

:CLEAR 174, WORDS, FROM WRFROM+<82.¢2>
;STARTING FROM WRFROM+<82.¢2>

377

JFILL WITH 377

174,

JSR

:174. WORDS

RO,3#CLAREA

:CLEAR 2 WORDS, FROM WRFROM+<256.%2>

gRFR0H0<256.'2>

;2 WORDS

<5¢2000>'<7+40>'5

;STARTING FROM WRFROM+<256.2>
SFILL WITH <5¢2000>:<7¢40>'5

;*FILL THE WRITE CHECK HEADER AND DATA
JSR
5

004037
000005
004
007

002470

WRFROM

036404
036406

000000
014000

0
ECI!FMT22

036410

002436

WRCHEK

BYTE
.BYTE

177400

036412
036416
036420

004037
002272
004612

036422

000022

036424

004737

036430

104401

036434

000000

036436

043476

013777

;SETUP TO RUN FOR DATA COMMAND
;CYLINDER 5

RO,3#RUN

036370
036374
036376
036377
036400
036402

;SECTOR &

; TRACK 7
:WORD COUNT = 256.

7
-256.

:BUS ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = WRFROM

;D0 NOT INHIBIT BUS ADDRESS INCHEMENT
;16 BITS PER WORD FORMAT
;INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE

:GEY READY TO DO A WR(HEK
;WRITE CHECK DATA WITH S0 IN RH(S!

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE C(HECK

JSR
RHWC
SAVERE

041672

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

RO,a#SAVER

:THE REGISTERS ARE

18.

:SAVED = 18.

041604

JSR

PC,a#CHECKT

067033

TYPE

,CPHALT

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

:AND THAT NO STATUS BITS ARE STUCK =1
.CANNOT CONTINUE TESTING IF ANY OF

:THE FIRST SET OF BITS DON'T = 1

HALT
004606

143622

MOv

SAVED

;NUMBER CF REGISTERS

;S10P
.

SNRPLVEC,QRPVEC ;SET RPO4 VECTOR ADDRESS
;10 "TIMEY'

;OR T0 'TIMEZ2'

P=CLOCK

1S PRESENT

IF P=-CLOCK 1S NOT PRESENT

S'TIME' Wi_L ONLY SAVE

CIRJIDO, RPO&L/S/6 FCINL CTL R1
CIRJID.PIY
28-MAR-79 09:03
10073
1007¢
10075
10076
10077
10078
10079
10080
10081
10082
10083
10084
10085
10086
10087
10088
10089
10090
10091
10092
10093
10094
10095
10096
10097
10098
10099

10100

CONO VA WN—=OO0®NOWVEWNN—=O

e
il
it
i
D
i
el
i
D
D e
il
D el
i cnld
el el
—

sl
il
el
D el el el
e
il T
el
i
i
et
—

AOPUPNUPOVONIRNIRININD
s = —2
b b D b ot ot

e lolelololalelolelolelelolololelolelo]

10101
10102
10103
10104
10105
10106
10107

MACYTY

30A(1052)
146

25-MAY-79

WRITE

CHECK

n 16
10:30
PAGE 208

SEQ 0207 I

DATA

; CURRENT CYLINDER ADDRESS

:AND LOOK

036444
036450

013746
052716

002436
000101

MoV

SFWRCHEK,=/SP)

036454

012677

143620

Mov

(SP)+ ,@RHCST

036460
036462

011100
011305

Mov
MOV

aR1,RO
aR3,R5

036464
036466
036470
036472
036474

002300
000200
001732
001502

104413

WAT
RHCST
RDY

BIS

AHEAD REGISTERS

;GET READY TO MOvE COMMAND
;GET READY TO SET "GO’ AND

#GO'1E, (SP)

;ENABLE INTERRUPT
;G0 WITH
;50 IN RHCS1 FOR WRITE CHECK DATA
sWITH

INTERRUPT

;WAIT
sWAIT

FOR RDY BIT TO SET
FOR RHCS! REGISTER

;WAIT FOR RDY BIT IN RHCS1 REGISTER
;ALLOW 9860 MICRO SECONDS

986.
834.

;RDY MUST

SET

RH(CS1

AND RHDS1

;*RO AND RS IMMEDIATELY AFTER GO
013746
052716
011637
022600

036514
036516
036522
036526

001405
010037
010137

036530
036534
036540

012746
011637
022605

036542
036544
036550
036554

001405
010537
010337
104063

1046021

002436
004101
001124

MOV

8IS

MOV

001126
004600

010500
001124

001126
004600

#1E'DVA!GO,
(SP)

(SP) ,a#3GDDAT

(SP)+,RO

BEQ

67%

ERROR

67%:

INWRCHEK ,=(SP)

CmMp
MOV
MoV

MUV
MOV

RO,a#$BDDAT

g}.a#neeaoa

8taQ

69%

ERROR

RS.,3#$BDDAT

zg.Q#REGADR

69%:

036556

;DURING ABOVE OPERATION ONLY IE:DVA'GO
;AND COMMAND

SHOULD BE

;BRANCH 1f GOOD
:BAD DATA

SET

sFAILING REGISTER RH(S!

:DURING ABOVE OPERATION ONLY
; COMMAND AND

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

ALREADY SAVED IN

: SAVE COMMAND
; INCLUDE I1E!DVA!GO
:SAVE FOR PRINTOUT

IE!DVA!GO SHOULD BE

SET

;SAVE BITS SET DURING OPERATION IN RHDSI
;SAVE FOR PRINTOUT
;DURING ABOVE OPERATION ONLY MOL:DPR.VV

#MOL 'DPR!VV,=(SP)

cMp

MOV
MOV

BETWEEN

:1520 AND 18200 MICRO SECONDS

; *COMPARE CONTENTS OF

036476
036502
036506
036512

ENABLED

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

: SHOULD BE SET
;BRANCH 1F GOOD
:BAD DATA

;FAILING REGISTER RHDSI
;DURING ABOVE OPERATION ONLY
sMOL'!DPR!VV SHOULD BE SET

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES

036556
036562
036564
036566
036572

036574
036576
036602
036604

004037
002272
000000
004037
002274

003470
004037
002304
003405

041626

JSR
RHW(

RO,a#FILLRE

;MOV 0 INTO SAVED RHW(
:3:¥ED REGISTER TO C(HANGE

RO.a#FILLRE

MOV WRFROM+<256.2> INTO SAVED RMBA

041426

0
JSR

041426

WRFROM+<256.42>
RO.a#FILLRE
JSR

RHBA

RHDST

3405

;SAVED REGISTER 10 CHANGE
;DATA

MOV 3405 INTO SAVED RHDST
:3:¥ED REGISTER TO C(HANGE

CIRJID0O, RPO4/S/76 FCTNL CTALRY

R AR
QCLEM
10129
10130
10131
10132
10133
10134
10135
10136
10137
10138
10139
10140
10161
10142
10143
10144
10145
10146
10147
10148
10149
10150
10151

28-RAR-79 09:03

RMACYYY

30A(1052)
25-MAY=79
10:30
146
WRITE (WE(K DATA
;*COMPARE

1
PAGE 209

REGISTERS BEFORE

SEQ 0208

WRITE

(MECK MEADER AND DATA

;COMPARE

SAVED REGISTERS WITH

;W] TH REGISTER AFTER (OMMAND

036606

004037

036612
036614
036616
036620
036622
036624
036626

004612
002354
000022
036624
036630

104040
000207

042512

JSR

8%:

SAVERE
w(
18.
8%
9%

ERROR
RTS

RO,IFCOMREG

4«0
PC

PRESENT VALUE

;GOOD DATA SAVED N 'SAVERE'
;TEST DATA STARTING FROM °*RMHWC('
:18. REGISTERS TO BE COMPARED
:RETURN T0O 8BS ON ERROR
;RETURN T0 9% ON NO ERROR

;WRITE CHECK CAUSED
;AN

;WAS

036630

9%:

IMPROPER REGISTER

; CHANGE
;GO0OD DATA GIVES WHAT
: SHOULD BE THERE
RECEIVED DATA GIVES WHAT
THERE

AFTER

COMMANDS

CIRJIDO, RPOL/S/6 FCINL CTLRI
CZRJID.PY
28-MAR-79 09:03

MACY11

30A(1052)
146

25-MAY-79

WRITE

10:30

C(HECK DATA

PAGE 210

Sea 0209

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

WRITE CHECK DATA USING UNIBUS B
;eTEST 47
THIS TEST USES UNIBUS B IF CONNECTED TO THE RH
ot

WORD OF

125252

T
E T

N
PPN

16 6 WORDS OF LEFT ROTATING 2ERO (EG177776,177775)
16 6 WORDS Of LEFT ROTATING ONE (EG 1,2,6,10)

T R T

RRI

0 WORDS OF 0

i 8 WORDS OF 052525
174 WORDS OF

2 WORDS OF

5 FOR TRACK, 5 FOR SECTOR)

377

12345

036630
036632
036636

000004
012706
012737

001000
000047

036644

004737

061524

FIRST

THE ABOVE DATA IS FILLED INTO WRITE

THEN THE ABOVE WRITE

e
R P

CONSISTING Of
1 0 WORDS GF 12344 (6 BI1TS FOR CYL,
1 0 WORDS OF 177777

RSN

1F UNIBUS B 1S NOT CONNECTED THEN THIS TEST IS NOT PERFORMED
THE DATA FOR THIS TEST IS WRITTEN ON DISK BY PREVIOUS TEST
WRITE CHECK DATA CYLINDER 5, FORMAT 16 BITS PER WORDS
TRACK 7, SECTOR &, KEYS O, NUMBER OF WORDS 258

005737
001402
000137

004750

004737

041604

036666

104401

067033

036672

000000

036674
036700
036702

005737
001402
000137

037376

30$:

SCOPE

FSTACK,SP
#.7, 3N TSTNM

SRESET STACK
“SAVE TEST NUMBER

JSR

PC.a#CLDISK

:SET R1-RHCS1, R2-RHCS?2
:R3-RHDS1, R&=RHER!
“GIVE RH=-11 INITIALIZE
SSETUP UNIT NUMBE”

THE PROGRAM 1S RUNNING WITH AN RH70

181
BEQ
JMP

3IRHT0
30%
1s150

JSR

PC,aNCHECKT

-TEST FOR RH?0 CONTROLLER
S1F FLAG = 1, THIS TEST 1S SKIPPED
JUMP TO NEXT TEST ==cceecceccccececo-S1F FLAG = 1, DO THIS TEST
SCHECK DVA,RDY,MOL.DPR,DRY,VV = i

TYPE

CCPHALT

SCANNOT CONTINUE TESTING IF

HALT
181

004732

BEQ
JMP

037376

FROM BUFFER

MOV
MOV

S«CHECK TO SEE 1F
036650
036654
036656
036662
036662

IS GIVEN

XXXZEZ2 2222 X222 ZARARARERRRRRRRRRRRRRRRRRRRRRRRRRR
)

$T47:

004604

CHECK DATA

SAND THAT NO STATUS BITS ARE STUCK = 1
1ST0P

afUBUSB

18
3198

:1S UNIBUS B THERE

SUNIBUS B THERE SO CONTINUE
*NO UNIBUS B, GO 10 NEXT TEST

-eGET HEADS TO CYLINDER §
11%:

036706

036706
036712

004037
000005

041474

036714

013777

004606

143344

ANY OF

STHE FIRST SET OF BITS DON'T = 1

JSR
5

RO,a#SEEKCY

;SEEK FOR
:CYLINDER S

MOV

SWRPLVEC,ARPVEC

:SET RPO4 VECTOR ADDRESS

CIRJIDO, RPOL/S5/6 FCINL CTLRY
CIRJ1ID.PV
28-MAR-79 09:03

MACYT

S?A;IOSZ)

25-MAY-79

WRITE

10:30

1
PAGE 211

SEa 0210

CHECK DATA USING UNIBUS B

;70 "TIMEY'

s
il

VOO~
NS
P —

il ol
—

el
o
o
B
i
i
)
e

[e]eolololeolololola]

;OR 1O '"TIME2'
;'TIME®

P-CLOCK

1S PRESENT

IF P=CLOCK IS NOT PRESENT

WILL ONLY

SAVE

:CURRENT CYLINDER ADDRESS
:AND LOOK AHEAD REGISTERS
036722
036726

013746
052716

002452
000101

MOV

SFSEECOM,-(SP)

;GET READY

036732

012677

143342

MOv

(SP)+ ,aRH(ST

;60 WITH
:& IN RHCSY FOR SEEK
;WITH INTERRUPT ENABLED

036736
036740
036742
036744
036746

002322
000200
004704
004704

036750

004737

B1S

#GO:1E, (SP)

10220

WAT
RHDS1

104413

JSR

COMMAND

°'GO' AND

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

DRY
2500.
2500.

041524

TO MOVE

:GET READY TO SET
;ENABLE INTERRUPT

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

PC,anCLDISK

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

:R3-RHDS1, R&=-RHERI

;GIVE RH=11 INIT]ALIZE
;SETUP UNIT NUMBER

;+10 WORDS OF EACH 12344,17777,0,52525,125252
036754
036760
036762
036764

004037
002470
000012
012344

041374

036766
036772
036774
036776

004037
002514
000012
177777

0461374

037000
037004
037006
037010

004037
002540
000012
000000

041374

037012
037016
037020
037022

004037
002564
000012
052525

041374

037024
037030
037032
037034

004037
002610
000012

0641374

125252

JSR

WRFROM
10.

RO,a#LAREA

<5¢2000>'<7+40>'4

;CLEAR 10. WORDS, FROM WRFROM

;STARTING FROM WRFROM
:10. WORDS

sFILL WITH <5+2000>!<740>'4

JSR
RO,a#CLAREA
WRFROM+<10.¢2>
10.
-1

:CLEAR 10. WORDS, FROM WRFROM+<10.¢2>
:STARTING FROM WRFROM+<10.¢2>

JSR
RO,S#CLAREA
WRFROM+<20,¢2>

:CLEAR 10. WORDS, FROM WRFROM+<20.¢2>
:STARTING FROM WRFROM+<20.¢2>

;FILL WITH O

10.

;10. WORDS
SFILL WITH =1

:10. WORDS

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

:CLEAR 10. WORDS, FROM WRFROM+<30.*2>
:STARTING FROM WRFROM+<30,+2>

52525

sPILL WITH 52525

10.

RO,a”CLAREA
JSR
WRFROM+<40 .2 2>
10.
125252

:10. WORDS

;CLEAR 10. WORDS, FROM WRFROM+<4(Q,.¢2>
:STARTING FROM WRFROM+<40,¢2>
:10. WORDS
SFILL WiTH 125252

TLRY
CIRJIDO, RPO&/S/6 FCINL (TL
CIRJID.PIN
28-MAR-79 09:03
10264
10265
10266
10267
10268
10269
10270
10271
10272
10273
10
1 0275
1 0276
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

e
D
e
i
e
D
i
i
—

VN
N
= O

VIV LV RV LV LV IV JV [V 1V}

oD
i
il el
i
D
el
e
A

OCOO0OO0OO0O0OOOO

10309

MACYT1

)

30A(1052)
25-MAY-79
10:30
PAGE 212
147
WRITE CHECK DATA USING UNIBUS B

SEa 021

;eFILL LEFT ROTATING ZEROS FROM WRFROM+<50.¢2>
177776

000020
002634
$:

037062
037064

001374

MOv
Mov
Mov
ggg

R1,-(5P)
;;PUSH R1 ON STACK
#177776.R0
;DATA
#16. RS
s COUNT
FWRFROM+<50.¢2>
,R1 ;WHERE DATA GOES

Mov

RO.(R1)+

ROL
DEC
BNE

;STORE DATA

RO
RS
1%

;GET ZERO ONE BIT LEFT
. COUNT 16
;BRANCH IF 16 NOT DONE

;*FILL LEFT ROTATING ONE INTO WRFROM+<65.¢2>
037066
037070
037074
037076
037100
01,192

000241

012700
010021
006300

000001

2$:

103375
012601

037104
037110
037112
037114

004037
002734
000256
000377

0641374

037116
037122
037124
037126

004037
003470

041374

LC
MOV
Mov
ASL
8CC
Mov

# RO
RO, (R1)+
RO

2%
(SP)+,R1

;.POP STACK

;*FILL REST OF DATA
JSR
RO,3#CLAREA

WRFROM+<B2.*2>

;CLEAR 174, WORDS, FROM WRFROM+<82.¢?2>
;STARTING FROM WRFROM+<82.¢2>

377

;FILL WiTH 377

174,

; 174,

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

000002
012345

INTO R

<5¢2000>'<7+40>!'5S

WORDS

;CLEAR 2 WORDS, FROM WRFROM+<256.¢2>
;STARTING FROM WRFROM+<256.¢2>

;2 WORDS

SFILL WITH <5+2000>!<7240>!'5

;*FILL THE WRITE C(HECK HEADER AND DATA
JSR

RO,3#RUN

037130
037134
037136
037137
037140
037142

004037
000005
004
007
177400
002470

037144
037146

000000
014200

0
EC1.FMT22

037150

002436

WRCHEK

037152

052777

043476
.BYTE

.BYTE

002000

143120

;SETUP TO RUN FOR DATA (OMMAND

;CYLINDER 5

+SECTOR 4

WRFROM

;BUS ADDRESS

7
=256.

BIS

:TRACK 7
;WORD COUNT = 256.

:STARTING ADDRESS OF DATA
;BUFFER = WRFROM
;D0 NOT

INHIBIT BUS ADDRESS INCREMENT
:16 BITS PER WORD FORMAT

¢INHIBIT ECC CORRECTION
;00 NOT INHIBIT HEADER COMPARE

;GET READY 10 DO A WRCHEK
;WRITE CHECK DATA WITH 50 IN RH(S!

#PSEL ,ARHCS

;SET PORT B

; THAT

1S UNIBUS B

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE (HECK

0, RPO4/S5/6 FCTINL CYLRY
P
28-MAR-79 09:03

MACY1Y1

30A(1052)
25-MAY-79
10:30
PAGE 213
147
WRITE CHECX DATA USING UNIBUS B

037160
037164
037166

004037
002272
004612

041672

JSR
RHWC
SAVERE

RO,a#SAVER

037170

000022

037172

00464737

0461604

JSR

PC,afCHECKT

037176

104401

067033

TYPE

LCPHALT

037202

000000

037204

013777

143054

MOV

REGISTERS ARE

:NUMBER OF

SAVED

REGISTERS

;SAVED = 18.

HALT
004606

;SAVE REGISTERS
;RHWC 1S THE FIRST REGISTER SAVED
;STARTING ADDRESS OF WHERE
;THE

18.

SEQ 0212

;CHECK

DVA,_RDY, MOL,DPR,DRY, VvV =

;AND THAT NO STATUS BITS ARE STuCk = 1
;s CANNOT CONTINUE TESTING IF ANY OF
:THE FIRST SET OF BITS DON'T =1
;STOP

S/RPLVEC,3RPVEC

;SET RPO4& VECTOR ADDRESS

;70 "TIMEY®

IF P=-CLOCK IS PRESENT

:OR TO *TIME2'
;"TIME®

P=-CLOCK

WILL ONLY SAVE

1S NOT PRESENT

;CURRENT CYLINDER ADDRESS
;AND LOOK

AHEAD REGISTERS

;¢SET PORY SELECT
037212
037216

013746
052716

002436
002101

MOV
BIS

o¥WRCHEK ,=(SP)
:GET READY TO MOVE COMMAND
#GO'1E'PSEL, (SP)
;GET READY T0 SET 'GO*'

037222

012677

143052

MOv

(SP)+ ,3RH(S1

037226
037230

011100
011305

MOV
MoV

aR1.RO
aR3,RS

037232
03723&
037236

104413
002300
000200
001732
001502

WAl
RHCS
RDY

037240
037242

AND
RUPT
INTER
;ENABLE
;60 WITH
:50 IN RHCS1 FOR WRITE CHECK DATA
;WITH INTERRUPT ENABLED
:SAVE RHCS1 DURING ABOVE OPERATION
:SAVE RHDS!1 DURING ABOVE OPERATION

;WALIT FOR RDY BIT 10 SET
;WAIT FOR RHCSY REGISTER
;WAIT FOR RDY BIT IN RHCSY

986.
834.

;ALLOW 9860 MICRO SECONDS
;RDY MUST SET BETWEEN
;1520 AND 18200 MICRO SECONDS

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

037244
037250
0372564

037260

013746
052716
011637

022600

037262
037264
037270
037274

001405
010037
010137
104021

037276
037302
037306

012746
011637
022605

002436
006101
001124

MOV
BIS
MOV

(mMp

BEQ
MOV
MOV
ERROR

001126
00600
010500
001124

67%:

MOV
MOV
(mMp

IMMEDIATELY AFTER GO

SNURCHEK,=(SP)
;SAVE COMMAND
#1E.DVA'PSEL!GO, (SP)
sINCLUDE IE'DVA!PSEL'!GO
(SP) ,a#$GDDAT
:SAVE FOR PRINTOUT

(SP)+,R0O

67%
RO,3#$BDDAT
R1,3#REGADR
21

;DURING ABOVE OPERATION ONLY 1E.DVA!PSEL'!GO
;AND COMMAND SHOULD BE

SET

:BRANCH 1F GOOD
:BAD DATA
sFAILING REGISTER RHCSH
;DURING ABOVE OPERATION ONLY
;COMMAND AND JE'DVA!PSEL'GO SHOULD BE SEY
#MOL .DPR.VV,=(SP)
sSAVE BITS SET DURING OPERATION IN RHDS!
(SP) ,a#$GDDAY
:SAVE FOR PRINTOQUT
(SP)+,RS
;DURING ABOVE OPERATION ONLY MOL'DPR.VV
; SHOULD BE SET

CIRJIDO, RPO&L/S5/6 FCTNL (TR
CZRJID.PN
28-MAR-79 09:03
10376
10377
10378
10379
10380
10381
10382
10383
10384
10385
10386
10387

10388
10389

10390
10391
10392
10393
10394
10395
10396
10397
10398
10399
10600
106401
10402

10403
10404

037310
037312
037316
037322

001405
010537
010337
104063

037324
037330
037332

037334
037340

037342
037344
037350
037352

004037
002272
000000

004037
002274

003470
004037
002304
003405

R3,3/REGADR
€3

;BRANCH IF GOOC

;BAD DATA

;FAILING REGISTER RHDSI
:DURING ABOVE OPERATION ONLY

;MOL!DPR!VV SHOULD BE SET

0461426

JSR

RO,a#F ILLRE

JSR

RO,a#F ILLRE

JSR

RO,a#F ILLRE

SHU(

041426

RHBA
WRFROM+<256.¢2>

061426

RHDST
3405

:MCV 0 INTO SAVED RHW(

:SA¥ED REGISTER TO CHANGE
;DA

MOV WRFROM+<256.¢2> INTO SAVED RHBA
;SAVED REGISTER TO (HANGE
:DATA

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

;*WITH REGISTER AFTER (OMMAND
037356

004037

037360
037362
037364

004612
002354
000022

104076

106408
10409
10410

037374

000207

10415

MOov
ERROR

RS,a#$BDDAT

; *COMPARE REGISTERS BEFORE WRITE C(HECK HEADER AND DATA

037372

10416
10417
10418
10419
10420

69%

MOV

SEQ 0213

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES

10406

10611
10412
10413
10614

BEQ

69%:

037372
037376

10407

30A(1052)
25=MAY=79
10:30 PAGE 214
147
WRITE CHECK DATA USING UNIBUS B

001126
004600

037324

037366
037370

10405

MACY11

JSR

042512

RO,3#COMREG

;COMPARE SAVED REGISTERS WITH
;PRESENT VALUE
;GOOD DATA SAVED IN 'SAVERE'
:TEST DATA STARTING FROM ‘RHW('
:18. REGISTERS TO BE COMPARED
;RETURN T0 8% ON ERROR
;RETURN 10 9% ON NO ERROR

ERROR

;WHILE USING UNIBUS B

RTS

;AN 1MPROPER REGISTER
: CHANGE

SAVERE
w(
18.
8%
9%
:
8%

;WRITE

CHECK

CAUSED

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

037376

THERE

AFTER COMMANDS

9%:

P —

CIRJIDO, RPO&/S5/6 FCTNL CTLRY
28-MAR-79 09:03

CIRJ1ID.P

MACY11

10421
10422
10423
10424
10425
10426
10427
10428
10429
10430
10431
10432
10433
10434
10435
10436
10437
10438
10439

10457
10458
10459
10460
10461
10462
10463
10464
10465
10466
10467
10468

10469
10470
10471
10672
10473
10474
10675
10476

30AC1052)
25-MAY-79
10:30
PAGE 215
147
WRITE CHECK DATA USING UNIBUS B

SEQ 0214

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

SeTEST SO
;

WRITE PROTECT OPERATION

STARTING ADDRESS 220 1S USED THIS TEST WILL NOT BE PERFORMED

THE PROGRAM WORKS UNDER ACT-11 MONITOR

NO ACT-11 MONITOR

THEN THIS

TEST

IS NOT

PERFORMED

N
N
N
I
2N
BN
AR 2.2
N

TRIR

IR B

T E

IR I

T E

10440
104461
10442
10443
10644
104465
10446
10447
10448
10449
10450
10451
10452
10453
10454
10455
10456

1S PRESENT

THEN THIS TEST IS PERFORMED ONLY ON THE FIRST PASS
ON SUBSEQUENT PASSES THIS TEST IS NOT DONE
WRITE

FROM BUFFER

1S FILLED WITH ALL ONES AND

SECTOR O, TRACK O, CYLINDER O IS FILLED WITH

ALL

ONES

ALL REGISTERS ARE SAVED THEN WRITE LOCL¥ BUTTON
PRESSED AND ALL REGISTERS ARE CHECKED.

WRITE FROM BUFFER IS FILLED WITH 377 AND A WRiTC i)
ATTEMPTED TO SECTOR 0, TRACK O, CYLINDER O
70. WORDS
ALL REGISTERS ARE CHECKED
THE SAME SECTOR 1S READ AND DATA (OMPARED T0O SEE
THAT NOTHING GOT DESTROYED (READ DATA SHOULD BE ALL

377)

ONES AND NOT

THEN WRITE LOCK BUTTON IS PRESSED
WRITE LOCKS AND ALL REGISTERS ARE

TO UNLOCK
COMPARED

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

037376

15150:

000004

SCOPE

;*THIS (ODE
037400
037404
037406
037412
037414
037420
037422

037424
037424
037430
037430
037434
037442

005737
001007
005737
001004
005737
001001
000402

004724

000137

040622

012706
012737

001000
000050

004737

041524

1%:

5
004604

MANUAL

INTERVENTION TESTS ARE OK

9#NOPUSH

;1S THIS A 220 START ?

1581

T 1Y

;MONITOR (ACT 11) RETURN ADDRESS ?

18T
BNE
BR

INBPASS
1%
2%

JMP

15TH

MOV
MOV

#STACK,SP
#50,3#TSTNM

sRESET STACK
;SAVE TEST NUMBER

JSR

-PC,anCLDISK

;SET R1-RHCS1, R2-RH(S2

BNE

001100

IFf

181

BNE

000042

CHECKS TO SEE

;SKIP THIS TEST

;FIRST PASS ?
;SKIP THIS TEST IF NOT
;CONTINUE WITH THIS TEST

;

JUMP TO NEXT TEST =-vemccccccca=aa- )

;R3-RHDS1, R4&=-RHERI
;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

;eFILL SECTOR O, TRACK O, CyL O WITH ONES

N04037

002470
000400

041374

;eFILL WRITE FROM BUFFER
;CLEAR 256. WORDS, FROM WRFROM
RO,3#CLAREA
JSR

WRFROM

256.

;STARTING FROM WRFROM

;256. WORDS

CIRJ1IDO, RPOL/S/6 FCINL CTLRI

CZRJID.PIY
10677

10478
10479

28-MAR-79 09:03

037456

MACY1Y

30A(1052)

150

177777

10:30

SFILL WiITH -1

s*FILL WRITE DATA COMMAND

004037
000000
000
000
177400
002470

037474
037476

000000
010000

0
FMT22

10496
10495

037500

002442

WRIDAT

106498
10499
10500
10501
}828%

037502

004737

041606

JSR

PC,a#CHECKT

037506

104401

067033

TYPE

LCPHALT

037512

000000

10504

037514

013777

10505
10506
10507

043476
.BY1te
.BY'E

JSR
0
0
O
=256.
WRFROM

RO,a3#RUN

HALT
004606

142544

Mov

;70 'TIMET' IF P=-CLOCK 1S PRESENT
;OR TO 'TIME2' IF P=-CLOCK IS NOT PRESENT
;'TIME® WILL ONLY SAVE
; CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

037522

013746

002442

MOov

3fWRIDAT ,-(SP)

10515
10516
10517

037532

012677

142542

MOv

(SPY+ QRH{ST

037526

052716

000101

10518

10519

10520

10521
10522
10523
10526
10525
1052?

037536
037540
0375¢2
037544
037546

;GET READY TO MOVE COMMAND

;GET READY TO SET °'GO" AND
;ENABLE INTERRUPT

;60 WITH
;60 IN RHCS! FOR WRITE DATA
;WITH INTERRUPT ENABLED

;WAIT FOR RDY BIT 10 SET
;WAIT FOR RHCS1 REGISTER
:WAIT FOR RDY BIT IN RHCS) REGISTER
;ALLOW 25000 MICRO SECONDS
;RDY MUST SET BETWEEN
:00 AND 50000 MICRO SECONDS

;*SAVE REGISTERS FOR (OMPARISON AFTER WRITE PROTECT

;*BUTTON HAS BEEN HIT

185%9

10532

#GO.IE, (SP)

WAT
REIST
RCY
2500.
2500.

104413
002300
000200
004704
004704

1052

10531

BIS

;eTIME IS NOT (RITICAL

10528

10530

;CHECK DVA,RDY,MOL,DPR,DRY,VV - 1
;AND THAT NO STATUS BITS ARE STuCK - 1
; CANNOT CONTINUE TESTING IF ANY OF
:THE FIRST SET OF BITS DON'T = 1
;STOP

S#RPLVEC,3RPVEC ;SET RPO4 VECTOR ADDRESS

10512

10513
10514

;SETUP TO RUN FOR DATA (OMMAND
;CYLINDER O
;SECTOR O
;TRACK O
;WORD COUNT = 256.
:BUS ADDRESS
;STARTING ADDRESS OF DATA
;BUFFER = WRFRCM
;D0 NOT INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
;00 NOT INHIBIT ECC CORRECTION
;D0 NOT INHIBIT HEADER COMPARE

;GET READY 70 DO A WRIDAT
;WRITE DATA WITH 60 IN RHCSI

10508
10509

1011

PAGE 216

WRITE PROTECT OPERATION

037460
037464
037466
037467
037470
037472

10496
10497

-1

}82%?

10482
106483
10484
10485
10486
10487
10488
10489
10490
10491
10492
10493

25-MAY-79

037550

037554

004037

002272

041672

JSR

RHW(

RO,a#SAVER

:SAVE REGISTERS

;RHWC IS THE FIRST REGISTER SAVED

SEQ 0215

CIRJIDO, RPO4/S/6 FCINL (TLRY

(IRJ1D.PN

28-MAR-79 09:03

MACY 1Y

3?;6\052)

25-MAY-79

037556

004612

SAVERE

105935
10536
10537

037560

000022

18.

10538

10539
10540
10541

10542

10543
10544
10545

10546
10547

037562

037566
037606

037606

037612
037614
037620

104401

000407

013746
104405
104401
000442

10548

037726
037726

000000

10552

037730

004037

037736

000001

10549

}8223
4

10555

10556
}822;

037734

037740
037742

002322

037570

TYPE

::688:
67%:

004716
037622

;2708

69%:

042404

10565
10566
10567
18263

037750
037752
037754
037756
037760

004612
002354
000022
037762
037766

037762
037764

104041
000207

,68%

ASCIZ STRING

afUNIT , -(SP)

TYPDS
TYPE
BR

LASCIZ

,70%
69%

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

<15><12>/PUSH WRITE PROTECT BUTTON TO LOCK OUT WRITES THEN HIT CONTINUE/

HALT

RO,3#THREG

CHANGE

]S RHDS1 - BIT #11

:CHANGE BITS IN SAVED REGISTER

:CHANGE RHDSY REGISTER

;1 B1T/BITS 10 BE CHANGED

1
WRL

042512

JSR

;NEW VALUE OF WRL IS 1
;CHANGE WRL BIT

RO,3¥#COMREG

SAVERE
w(
18.
3%
4%
3%

ERROR
RTS

:COMPARE SAVED REGISTERS WITH

:PRESENT VALUE
:GO0OD DATA SAVED IN 'SAVERE'

:TESY DATA STARTING FROM 'RHW('
:18. REGISTERS 10 BE COMPARED
;RETURN TO 3% ON ERROR
:RETURN T0O 4% ON NO ERROR
&1
PC

;LOCKING OUT WRITE BY
;WRITE LOCK BUTTON CAUSED
;s IMPROPER REGISTER (HANGE
;600D DATA GIVES WHAT SKHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT
:WAS THERE AFTER WRITE

;WAS LOCKED OUT BY BUTTON

105

10579
10580

:*NOW A WRITE WiLL BE ATTEMPTED WITH WRITE LOCKED
;+0UT BY BUTION

10581

:eF1LL WRITE FROM BUFFER WITH 377

10583

037766

013737

037766

10586

037774

004737

041524

10587
10588

::TYPE

MOV

185;;

10584
10585

SAVED

:*0UT WITH REGISTER VALUES AFTER WRITE WAS LOCKED OUT

004037

10582

REGISTERS ARE

:NUMBER OF REGISTERS
;SAVED = 18.

;*(CMPARE ALL REGISTERS BEFORE WR]TE WAS LOCKED

037744

1056

;STARTING ADDRESS OF WHERE

;THE

¢7%
;;GET OVER THE ASCIZ
<15><12>/0ON DRIVE
/

RHDS1

000001
004000

10962

10570
10571
10572
10573
10574
10575
10576

SEQ 0216

B8R
LASCIZ

JSR

}826?

10563
10564

PAGE 217

:*THE ONLY REGISTER THAT SHOULD

10559
6

WRITE PROTECT OPERATION

10533
10534

10:30

001110

4%:

MOV

aNLS ,ANSLPERR

JSR

PC,a#CLD]ISK

:SCOPE LOOP STARTS FROM HERE

:SET R1=-RHCST, R2-RH(CS?

R3I=-RHDS1, R4&=-RHERI
;GIVE RH=11 INITIALIZE

CIRJIDO, RPO&L/S5/6 FCTINL CTLRY
CIRJID.PWY
28-MAR-79 09:03
10589
10590
10991
10592
10593
10594
10595
10596

10597

004037
002470
000400
000377

1
K
30A(1052)
25-MAY=-79
10:30
PAGE 218
150
WRITE PROTECT OPERATION

0641374

JSR

WRFROM

004037
000000
000
000

043476

8SR

040026
040030

000000
010000

040032

002442

WRIDAT

040034
040040
040042

004037
002272
004612

040044

000022

040046

013777

10633
10634
10635
10636
10637

10638
10639
10640
10641
10642
10663

10644

;SETUP UNIT NUMBER
;CLEAR 256. WORDS, FROM WRFROM
;STARTING FROM WRFROM

;*TRY A ONE WORD WRITE

10606
10607
10608
10609
10610
10611
10612
10613
10614
10615
10616

10620
10621
10622
10623
10624
10625
10626
10627
10628
10629
10630
10631
10632

SEQ 0217

:256. WORDS
SFILL WiTh 377

377

040012
040016
040020
040021
04002¢
040024

10617
10618
10619

RO,a#CLAREA

256.

10598
10599
10600
10601
10602
10603
10604
10605

040000
040004
040006
040010

MACY11

.BYTE
BYTE

177777

002470

RO,a#RUN

*SETUP TO RUN FOR DATA (OMMAND
:“YLINDER 0

0
0
-1,

:3ECTOR O
:TRACK O
:WORD COUNT = 1.

WRFROM

;BUS ADDRESS
;STARTING ADDRESS OF

FMT22

041672

;16 BITS PER WORD FORMAT

;DO NOT INHIBIT ECC CORRECTION
;DO NOT INHIBIT HEADER COMPARE
;GET READY

;*SAVE REGISTERS
JSR
RO,a#SAVER

;SAVE REGISTERS

SAVERE

;STARTING ADDRESS OF WHERE

RHW(

142212

TO DO A WRIDAT

;WRITE DATA WITH 60 IN RH(SI

MOV

;RHWC
;THE

18.
004606

DATA

;BUFFER = WRFROM
;00 NOT INHIBIT BUS ADDRESS INCREMENT

IS THE

FIRST

REGISTERS ARE

:NUMBER OF REGISTERS
;SAVED = 18.

I¥RP4LVEC,IRPVEC ;SET RPO4 VECTOR ADDRESS

;10 'TIME1®

IF P=-CLOCK IS PRESENT
IF P-CLOCK IS NGT PRESENT

:OR TO 'TIME2'
;"TIME'

WILL ONLY

SAVE

s CURRENT CYLINDER ADDRESS
;AND LOOK AHEAD REGISTERS

040054
040060

013746
052716

002442
000101

MOV

O/WRIDAT,-(SP)

040064

012677

142210

MCv

(SP)+,aRH(S]

BIS

;eTIME

040070
040072
040074
040076
040100

106413
002300
000200
004704
004704

WAT
RHCST
RDY

2500.
2500.

#GO!1E, (SP)

IS NOT

CRITICAL

;GET READY TO MOVE

COMMAND

;GET READY 10 SET 'GO' AND

;ENABLE INTERRUPT
;60 WITH

;60 IN RH(S1 FOR WRITE DATA
;WITH INTERRUPT ENABLED
;WAIT FOR RDY BIT TO SET
;WAIT FOR RHCS! REGISTER
;WAIT FOR RDY BIT IN RHCS! REGISTER

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

CIRJIDO, RPO&/S5/6 FCUINL CTLRY
CIRJIv.PN
28-MAR-79 09:03
10645
10646
10647
10648

10649

10650
10651
10652

10653

10654
10655
10656
10657
10658
10659
10660
10661
10662
10663
10664
10665
10666
10667
10668
10669
10670
10671
10672
10673
10674
10675
10676
10677
10678
10679
10680
10681
10682
10683
10684
10685
10686
10687
10688
10689
10690

10691
10692
10693
10694

10695
10696
10697
10698
10699
10700

MACY11

1
L
30A(1052)
25=MAY=79
10:30 PAGE 219
150
WRITE PROTECT OPERATION

SEaQ 0218

; *CHANGE SAVED REGISTERS TO EXPECTED VALUE
040102
040110
040116
040122
040126
0401346

017737
017737
017746
042716
042737
052637

040140
040144

004037
002300

040146
040150
040152
040154
040156
040160
040164
040166

000002
000001

040170
040174

004037
002302

040176
040200
040202

000001
000001
004000

040204
040210

004037
002322

040212
040214
040216
040220
040222

000002
000001

040224

053737

162164
142160
1462154

177477
000300
004616

004612
004614

dRHWC ,@FSAVERE
;RHWC IS UNPREDICTABLE
SRHBA ,@#SAVERE+2;RHBA 1S UNPREDICTABLE

aRH(S2,=(SP)

;GET RNCS2

JSR
RHCSI

RO,3#CHREG

:CHANGE BITS

81C
BIC
B1S

004616

042404

#AC<IR!OR>,
(SP) ,KEEP IR AND OR
#IR!OR,@#SAVERE+4;
CLEAR SAVED IR OR
(SP)+ @#SAVERE+«;SET OR IR AS REQUIRED

1
SC
1

TRE

041426

JSR

RHDST

IN SAVED REGISTER

; CHANGE PHCST REGISTER

;2 BIT/BITS 10 BE (HANGED

100000

000001
040000
004037
002304
000001

MOV
MOv
MOv

JNEW VALUE

;CHANGE SC BIT
;NEW VALUE OF TRE ]S 1
RO,a#FILLRE

;CHANOE TRE BIT
sMOV 1 INTO SAVED RHDST

:3A¥§D REGISTER 10O CHANGE

;DA

042404

JSR
RHER1

RO,a#(HREG

:CHANGE BITS

JSR
RHD S

RO,a#CHREG

ATA

1
ERR

004740

004636

BIS

WLE

CHANGED

;CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER

;2 BIT/BITS 10 BE CHANGED
;NEW VALUE OF ATA IS 1
; CHANGE ATA BIT
;NEW VALUE OF ERR IS 1
: CHANGE ERR BIT

000001
040000

10 BE

;s CHANGE WLE BIT

100000

BIT/BITS

sNEW VALUE OF

WLE

062404

IN SAVED REGISTER

; CHANGE RHER1 REGISTER

SFATTENT ,@¥SAVERE+24

:SET APPROPRIATE
:FOR

WORKING

°'ATA'

DRIVE

:SAVED RHAS LOACTION
;:*COMPARE REGISTERS BEFORE WRITE WAS ATTEMPTED

;*WITH REGISTERS AFTER ATTEMPT
040232

004037

040236
040240
060242
040244
040246

004612
002354
000022

040250
040252

042512

JSR

104042

5%
L}

ERROR

RTS

VALUE

;TEST DATA STARTING FROM °'RHWC'
:18. REGISTERS 10 BE COMPARED
;RETURN TO 5% ON ERROR
;RETURN TO 6% ON NO ERROR

18.

5¢:

. COMPARE SAVED REGISTERS WITH

¢PRESENT

;600D DATA SAVED IN 'SAVERE'

SAVERE

060250
04025¢
000207

RO,a3#COMREG

42
PC

SATTEMPTING TO WRITE WITH
JWRITE LOCKED OUT

; CAUSED IMPROPER REGISTER

BITS

CIRJIDO, RPOL/S/6 FCTNL CTLR)
CZRJID.PVY
28-MAR-79 09:03

MACY11

n
30A(1052)
25-=MAY-79
10:30 PAGE 220
150
WRITE PROTECT OPERATION

10701
10702
10703

; CHANGE

;6000 DATA GIVES WHAT SHOULD
;BE THERE
;RECEIVED DATA GIVES WHAT WAS
;THERE AFTER ATTEMPT

10704
10705
10706
10707

10708
10709
10710
10711
10712
10713
10714
10715
10716
10717
10718
10719
10720
10721
10722
10723
10724
10725
10726
10727
10728
10729
10730
10731
10732
10733
10734
10735
10736
10737
10738
10739
10740
10741
10742
10743
10744
10745
10746

10747
10748
10749
10750
10751
10752
10753
10754
10755
10756

SEQ 0219

:*NOW A READ WILL BE DONE TO DETERMIN THAT
;*READS CAN BE DONE WITH WRITE LOCKED QUT AND
:*THAT

040254
040254

NO DATA ON D]ISK

GOT

CMANGED,

BUT

FIRST

CLEAR

ERROR

6%:

004737

046152¢

JSR

PC,a3#CLDISK

;SET R1-RHCS1, RZ2=RH(S?
:R3-RHDS1, R4&-RHER]

;GIVE RH=11 INITIALIZE
;SETUP UNIT NUMBER

040260
040264
040266
040270

004037
003534
000400
000000

041374

040272
040276
040300
0403C2

00037
002470
000400

061374

;*FILL READ INTO BUFFER WITH O

JSR

REINTO

RO, .#CLAREA

256.
0

;CLEAR 256. WORDS,

FROM REINTO

;STARTING FROM REINTO

:256. WORDS
sFILL WITH O

;*FILL WRITE FROM BUFFER WITH EXPECTED DATA FROM READ

JSR

WRFROM

RO,a#CLAREA

256,

177777

;CLEAR 256.

WORDS,

FROM WRFROM

;STARTING FROM WRFROM

;256. WORDS

-1

SFILL WITH -1

;*FILL COMMAND
040304
040310
040312
040313
040314
040316

004037
000000
000
000
177400
003534

040320
040322

000000

014000

0
ECI!FMT2?

040324

00" <46

READAT

040326

013777

043476
.BYTE
.BYTE

JSR
0
0
0
-256.

RO,a#RUN

;SETUP 10O RUN FOR DATA (OMMAND
;CYLINDER O
;SECTOR 0
;TRACK 0
;WORD COUNT = 256.

REINTO

004606

141732

MOV

;BUS

ADDRESS

;STARTING ADDRESS OF DATA
;BUFFER = REINTO
;DO NOT

INHIBIT BUS ADDRESS INCREMENT
;16 BITS PER WORD FORMAT
:INHIBIT ECC CORRECTION

;D0 NOT INHIBIT HEADER COMPARE
;GET

READY

TO DO A READAT

;READ DATA WITH 70 IN RHCST
S#RPLVEC,aRPVEC

;SET RPO4 VECTOR ADDRESS

;10 "TIMET"
;OR TO

IF P=-CLOCK 1S PRESENT

'TIMEZ®

P=CLOCK

;'TIME® WILL ONLY SAVE

:CURRENT CYLINDER ADDRESS
;AND LOOK AMEAD REGISTERS

IS NOT

PRESENT

CIRJIDO, RPOL/S5/6 FCTINL CTLR)
CIRJID.PIY
28-MAR-79 09:03
10757
10758
10759
10760
10761
10762
10763
10764
10765
10766
10767
10768
10769
10770
10771
10772
10773
10774
10775
10776
10777
10778
10779
10780
10781
10782
10783
10786
10785
10786
10787
10788
10789
10790
10791
10792
10793
10794
10795
10796
10797

10798
10799
10800
10801

10802
10803
10804

10805
10806
10807
10808
10809
10810
10811
10812

MACYT1

N
1
30AC1052)
25-MAY-79
10:30
PAGE 221
150
WRITE PROTECT OPERATION

040334
040340

013746
052716

002646
000101

mov

BIS

@#READAT ,-(SP)
#G60.1E, (SP)

040344

012677

141730

MOV

(SP)«+ ,@RH(ST

040350
040352
040354
040356
040360

104413
002300
000200
001614
001507

SEQ 0220

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

;ENABLE INTERRUPT
;60 WITH

;70 IN RHCS1 FOR READ DATA
;WITH INTERRUPT ENABLED

;WAIT FCR RDY BI7 TO SET
;WAIT FOR RHCS! REGISTER

WAT
RHCSY
RDY

;WAIT FOR RDY BIT

IN RH(CST

;ALLOW 9080 MICRO SECONDS
;RDY MUST SET BETWEEN

908,

839.

;690 AND 17470 MICRO SECONDS

;*COMPARE READ DATA
0640362
040366
040370
040372
040374
040376

004037
002470
003534
000400
040400
040402

040400

104043

063562

JSR
WRFROM

RO,3#COMPAR

REINTO

256.

ERROR

TWO BLOCKS OF

MEMORY

:GOOD DATA STARTS FROM WRFROM
:TEST DATA STARTS FROM REINTO
:256. WORDS TO BE (OMPARED
;RETURN 10 7$ ON ERROR
;RETURN T0 8% ON NO ERROR

8%
7%:

; COMPARE

:WRITING WITH WRITE
;LOCKED CHANGED DISK

;GOOD DATA GIVES WHAT WAS
;ON DISK BEFORE WRITE WITH
;WRITE LOCK WAS ATTEPTED

"RECEIVED DATA GIVES WHAT

"WAS READ BACK AFTER WRITE
"WITH WRITE LOCKED WAS ATTEPTED

;*SAVE REGISTERS FOR COMPARISON AFTER WRITE LOCK HAS BEEN
;s *UNLOCKED
040402
040402

040406
040410

004037
002272
004612

040412

900022

040414

041672

8%:

JSR

RHW(

RO,3IN#SAVER

SAVERE

040416
040420

104401
000407

040422

040440
040440
040644
040446
040452

013746
104405
104401
000440

004716
040454

;.65%:
64%:

TYPE

;RHWC

IS THE FIRST REGISTER SAVED

ASCIZ

sSTARTING ADDRESS OF WHERE
; THE REGISTERS ARE SAVED
;NUMBER OF REGISTERS
;SAVED = 18,

18.

S120:

s SAVE REGISTERS

BR
JASCIZ

649
;3GET OVER THE ASCIZ
/
<15><12>/0N DRIVE

,65%

;TYPE

MOV

a#UNIT,=(SP)

;GET UNIT UNDER TEST

TYPE
BR

,67%
66%

s TYPE ASCIZ STRING

TYPDS

STRING

;:GEYT OVER THE ASCIZ

CZRJIDO, RPOG/5/6 FCINL (TL R1
CIRJID.PYY
28-MAR-79 09:03

040554
04055¢

MACY11

¥
B.Y4
66%:

000000

30A(1052)
25-MAY-79 10:30 PAGE 222
150
WRITE PROTECT OPERATION
<ASCIZ

<15><12>/PUSH WRITE

SEQ 0221
PROTCT

BUTTON TO UNLOCK WRITES THEN HIT

HALT

;*THE ONLY BIT THAT SHOULD CHANGE IS WRL-BIT #11 IN RHDSI
040556
040562

004037
002322

040564
040566
040570

000001
000000
004000

042404

JSR

RHDS1

RO,a#CHREG

: CHANGE BITS IN SAVED REGISTER
; CHANGE RHDS1 REGISTER
;1 BIT/BITS 10 BE CHANGED
;NEW VALUE Of WRL [S O
: CHANGE WRL BIT

WRL

;*COMPARE

ALL REGISTERS BEFORE WRITE

;*WITH REGISTERS AFTER WRITE

040572

004037

040576
040600
040602

040604
040606

004612
00235¢4
000022
040610
040614

040610
040612

104044
000207

042512

JSR

RO,3#COMREG

RTS

SAVED REGISTERS WITH

VALUE

:TEST DATA STARTING FROM

'RHW(C'

;18. REGISTERS TO BE COMPARED
;RETURN T0 9% ON ERROR

18.
9%
10%
ERROR

. COMPARE

;PRESENT

;GOOD DATA SAVED IN 'SAVERE'

SAVERE

:
9%

LOCK WAS UNLOCKED

WAS UNLOCKED

;RETURN TO 10% ON NO ERROR

&4
PC

;UNLOCKING WRITES BY WRITE
:LOCK BUTTON CAUSED AN ERROR
;G00D DATA GIVES WHAT SHOULD
:BE THERE
;RECEIVED DATA GIVES WHAT WAS
;THERE

AFTER WRITES WERE

sUNLOCKED

:ON THIS ERROR NO LOOPING

IS RECOMMENDED

;JUST A HALT ON ERROR WILL DO THE SAME
04064

012737

177777

047342

10$:

MOV

#-1,a#PRITEM

;THING AS ONLY

THE

REGISTERS ARE

;CLEAR PREVIOUS 17TEM NUMBER

READ

CONTINUE/<15

CZRJIDO, RPO4L/S/6 FCINL CTLRY
CZRJID.PN
28-MAR-79 09:03

MACYYY

10849
10850

30AC1052)
25-MAY-79
10:30
PAGE 223
150
WRITE PROTECT OPERATION

SEQ 0222

10851
10852
10853

R R X
R
R
R

Y
e
R R R
R Y
R XXy
LY

10854
10855

s*TEST

END OF

}832?

THIS 1S THE END OF TEST FOR ONE DRIVE

10858

JUMPS TO TEST & FOR TESTING THE NEXT DRIVE

18%2;

END PASS IS REACHEM ONLY AFTER ALL DRIVES ARE TESTED

10863

RR
R Ry

}8222

10864

1086°

}8369
6

10868
10869
10870

10871
10872
10873

10874
10875

10876
10877
10878
10879
10880
10881

10882
10883
}8ggg

040622

000004

060626

012737

000001

040640
060644

106401
0004264

040646

040716
040716
040722

013746
104405

004716

040632

012737

0640724
040730

104401
000402

040732

040736
040736
040742
040744
040750

0137646
104405
005037
005037

001112

040754
040760

005737
001413

10886
10887

040762
040766

005237
104401

}8%3}

041004

000137

10888
10889
10890

040772
040776
041000

013746
104405
104401

10893

041010

012737

10895
10896
10897
10898
10899
10900
10901

041022
041026
041030
041034
041036
041040
041062

001413
013700
012701
022100
001401
000775
011137

10894

10902

10903

000000

041016

041046

005337

000137

001212

TST5°:

177776

20659
64%:

::67%:
66%:

001102

004726

MOV
TYPDS

afUNIT,-(SP)

:GET READY TO TYPE UNIT NUMBER

TYPE
B8R

(ASCILZ

.,67%
66%
7/ =/

;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

MOV
TYPDS
CLR
(LR

SNSERTTIL,-(SP)

;GET READY TO TYPE NUMBER OF

ONSERTTL

sCLEAR TOTAL NUMBER OF

O¥SELECT
3%

;STARTING FROM 200 ?
;CHECK NEXT DRIVE IF SO
;CONTINUE WITH THIS ONE IF NOT

ITERATION

;REINSTATE PS T0 O

sCLEAR TEST NUMBER

NO./

ERRORS

JMP

FTARREY

sJUMP TEST § ==cesccccccccccccccn- >

3%:

MOV

#-1,a0PRITENM

sCLEAR PREVIOUS ITEM NUMBER

1%:

BEQ
MOV
MOV
(mp
BtQ
BR
MOV

$EOP
8FUNIT,RO
FUNITS,RY
(R1)+,R0
2%
1%
(R1) ,@#UNIT

BRANCH IF ALL DRIVES COMPLETE
;UNIT UNDER TEST
;TABLE POINTER
;1S THIS UNIT JUST TESTED ?
;BRANCH IF YES
;BRANCH IF NO
sMAKE THIS NEXT UNIT

TYPE

010102

,65%
;s TYPE ASCIZ STRING
649
;:GET OVER THE ASCIZ
<15><12>/TOTAL ERRORS ON THIS PASS ON UNIT

ANSTSTNM

::D0 1

AafSPASS
. SENDMG

041154

004716

TYPE
BR
LASCIZ

#0,PS

INC
TYPE
Mov
TYPDS

001100

004716
004676

THEN THE PROGRAM

#1,8T1IMES

TS7

047342

MOV

BEQ

001100
041157

177777

SCOPE

XA R

DRIVE

THERE ARE MORE DRIVES,

MOV

001112

004720

2%:

DEC

JMP

af#SPASS,-(SP)
LSENULL

9#NOUNLTS

s INCREASE PASS COUNT
;TYPE "'END PASS #"

sNO. OF UNJITS PRESENTY

STEST THE NEXT DRIVE ==evceccccccenea

CIZRJIDO, RPO4L/S/6 FCINL CTLRY
CZRJIID.PIY
28-MAR-79 09:03
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
10931
10932
10933
10934
10935
10936
10937
10938
10939
10940
10941
10942
10943
10944
10945
10946
10947

MACY11

30A(1052)

25-MAY-79
.SBTTL
.SBTTL
.SBTTL

.SBTTL

END OF

10:30

PAGE 226

SEQ 0223

#+SUBROUTINES®*

PASS ROUTINE

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

;*INCREMENT THE PASS NUMBER ($PASS)

;*TYPE "'END PASS #XXXXX'' (WHERE

;*]F
;*1F
041052
041052
041054
041060
0461064
041070
041076
041100
061102
041104
041106
041110
041112
041116
061122

0461124
041130
041134
041136
0641140
061142
061144
041146
041150
041150
061152

041154
041157
061164

061172

000004
005037
005037
005237
062737
005327
000001
003022
012737
000001
041100
104401
013746
104405
104401

013700
001405
000005
004710
000240
000240
000240
000137
006314

377

015
050040
000043

THERES A MONITOR GO TO IV
THERE ISN'T JUMP TO TST1

$EOP:

001102
001212
001100
100000

$EOP(CT:
$ENDCT:

041157
001100
$GET4L2:

$SENDAD:

$DOAGN:

377
062412
051501

000
042116
020123

SRTNAD:
SENULL:

SENDMG:

IS A DECIMAL NUMBER)

CLR
CLR
INC

$TSTNM
$TIMES
$PASS

;. lERO THE TEST NUMBER
;;JERO THE NUMBER OF ]JTERATIONS
:: INCREMENT THE PASS NUMBER

DEC
.WORD
BGT
MOV
.WORD
$EOPCT

(PC)+
1
$DOAGN
(PC)+,a(PC)
1

;. L00P?

,SENDMG
$PASS,-(SP)

;:TYPE "'END PASS #''
;s SAVE $PASS FOR TYPEOUT

BI1C

001100

041154
000042

SCOPE

XXXXX

TYPE
MOV
TYPDS
TYPE
MOV
BEQ
RESET

#100000,$PASS

L SENULL
anL? RO

$DOAGN

;;DON'T ALLOW A NEG. NUMBER

o YES
;sRESTORE

;.60 TYPE-=-DECIMAL ASCI]
;:TYPE A NULL CHARACTER
;:GET MONITOR ADDRESS

;:BRANCH IF

;s CLEAR THE

JSR

PC,(RO)

JMP

a(P(C)+

.ASCIZ

<15><12>/END PASS #/

NOP
NOP
NOP

.WORD
.BYTE

TSTI
-1,-1,0

COUNTER

NO MONITOR
WORLD

;G0 TO MON!ITOR
;s SAVE ROOM
::FOR
s ACTI

;s RETURN
:sNULL CHARACTER STRING

WITH SIGN

CIRJIDO, RPO&4/S/6 FCINL CTLRI
CZRJID.PYY
28-MAR=-79 09:03

MACY11

10948
10949
10950
10951
10952

.SBTTL

10976
10977
10978
10979
10980
10981
10982
10983
10984
10985
10986
10987
10988
10989
10990
10991
10992
10993
10994
10995
10996
10997
10998
10999

10:30

JAM CURRENT

PAGE 225

SEQ 0224

CYLINDER ROUTINE

;*THIS ROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER - °'RHCC’
:*BY GIVING A 'SEEXK' COMMAND FOLLOWED BY AN INIT WHICH WILL LOAD
:*'RHCC" WITH THE DESIRED CYLINDER VALUE.
THE ROUTINE THEN (HECKS

10953
10954
10955

10956
10957
10958
10959
10960
10961
10962
10963
10964
10965
10966
10967
10968
10969
10970
10971
10972
10973
10974
10975

30A(1052)
25-MAY-79
END OF PASS ROUTINE

;*THAT

THE

LOADED

VALUE

CORRECT.

L 4

TeCALL | S:
il

061174
0461174
041176
041202
041210
041212
041216
041222
0461230

RO, a#MAKECYL

MOV
MoV

RS,=-(SP)
RO,aNPCJUSR

MAKECYL:

041560
000004

041560

SuB

MoV
Mov

141074

1641062

002452
000001

041236
041242
041250
041252

004737
032737
001401

041254
041262
0461264
041266
041270

052777
000240
000240
000240
000240

000001

0461272
041276
041304
041306

004737
032737
001401

0463436
040000

04641310
0641314
041322
041326
041330
041334
041342

004737
017737
020537
001406
010537
013737

041524

041344
0461344
041346

JSR

043436
040000

CLR

161050
1641062

104103

1641016

2%:

002404

012605

000200

141014

001126

001124
002334

004600

001126

3%:

JSR+4

;SAVE PC OF JSR
;GETTING READY TO FILL DESIRED CYLINDER
;FILL DESIRED CYLINDER REGISTER
:MAKE

SURE

DESIRED

SECTOR

JSR
Bl1
BEQ
ERROR

PC,a#PUTREG
NERR,3#DS1

;TAKE A REGISTER SNAPSHOT
;CHECK FOR COMPOSITE ERROR

BIS
NOP
NCP

#GO,aRH(S]

2%
103

PC,afPUTREG
#ERR,a9#DS1

JSR

PC,a#CLDISK

(MP
BEQ

?2.GI$BDDA1

MOV

:NOT

3%
104

SRHCC,a#SBDDAT

MOV
Mov

RS,8#SGDDAT

mMov
RIS

(SP)+ RS
RO

?;RHCC.BIREGADR

TRACK

IS NOT

JLLEGAL

A-0OK

;REGISTER CONTENTS INCORRECT BEFORE A

:DIAGNOSTIC SEEK

;1SSUE 'GO' TO SEEK COMMAND

sALLOW
¢ALLOW
;ALLOW
sALLOW

JSR
BIT
BeaQ
ERROR

ERROR

1%:

;PC

#DMD ,3RHMR

NOP
NOP

104104

104077

(RO)+,RS
RS.,aRHCA
aRHDST
SNSEECOM,aRHCSY

;;PUSH RS ON STACK

sFILL SEEX COMMAND
:SET DIAGNOSTIC MODE

MOV
Mov

002404

¥4 ,30PCJSR

;DESIRED VALUE OF CURRENT CYLINDER

TIME
TIME
TIME
TIME

FOR
FOR
FOR
FOR

SEEK
SEEK
SEEX
SEEK

TO
TO
TO
TO

HANG
HANG
HMANG
HANG

UP
UP
UP
UP

;TAKE A 2ND REGISTER SNAPSHOT
;CHECK FOR ERRORS
;NOT = 1, A-0K

REGISTER CONTENTS INCORRECT AFTER
:A DIAGNOSTIC SEEK
;GIVE INIT TO FORCE THE TRANSFER
sTEST DATA
:COMPARE CURRENT CYLINDER
;BRANCH ]F 6GOOD
;600D VALUE OF RHCC
sFAILING REGISTER ADDRESS

:CURRENT CYLINDER DOES NOT MAT(H DESIRED CYLINDER
;REGISTER AFTER A SEEK AND AN INI1T

:;POP STACK INTO RS

“

oo
cn~uo~unh\nna-Chocl~40wal~uwha-ChOcn~eo~uhhtnha-aChoon~uanmJ~uunh~€§

F
o2
30AC1052)
25-MAY-79
10:30
PAGE 226
JAM CURRENT CYLINDER ROUTINE

SEQ 0225

»
B
%

XN TIMES

:DATA REPEATED XN TIMES

;DATA REPEATED

XD1
xD2

bt et et =t ed 0 s
W) N AMAN AN N AN H NN TONI N NNONINNIN) =

041350
041350
041352
041354
041356

010146
010246
012001
012002

FLHEAD:

Mov
Mov
Mov
Mov

041360
041362
041364
041366
041370
041372

012021
005302
001375
012602
012601

1%:

mov
DEC
BNE

Mov
MOV
RTS

000200

::;PUSH R1 ON STACK
::PUSKH R2 ON STACK
:R1 HAS ADDRESS OF WHERE
:R2 HAS NUMBER OF WORDS

R1,=-(SP)
R2,-(SP)
(RO)+,R1
(RO)+,R2

;*NOW FILL

DATA

(RO)+,(RY)
R2
1%
(SP)+ ,R2
(SP)+,R1
RO

; SAVE DATA
;DECREMENT COUNT

;BRANCH IF INCOMPLETE
;:POP STACK INTO RZ

:;POP STACK INTO R

;*THIS CLEARS ANY BLOCK OF MEMORY.
;*FILLING 17 WITH ANY DATA
;eCALL IS

A
.
.t

JSR

RO,3#CLAREA

F
N
D

:NUMBER Of WORDS
T1C BE

FILLED

:*R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED

“eR2 WILL HAVE NUMBER OF WORDS

-0 0

;*R3 WILL HAVE DATA

146

CLAREA:

N—O
O

061374
0641374
041376
041400
0461402
0641404
041406
041410
061412
061414
061416
061420
061422
0461424

[elelelelelololele
]
OO
et b e s =t b
. NONNNNOOO
OO wnN
[eleP
o o

ol o
o POl ol o

NO VNS W
N

W= OO0

WAV IV IV IV IV R o B 2E 2

MACY1T1

s*THIS FILLS MEMORY WITH GIVEN DATA
;*USED CHIEFLY FOR HEADER INFORMATION
seCALL IS
RO,a#FLHEAD
JSR
;FILL HEADER
ot
LoC
;LOCATION WHERE SAVED
XN
:NUMBER OF WORDS

2 O OO OO ODOOO

felel=lslelelelelecleloleololelclelelolololalololofoleloloflololelololololalololololalolololololololeololeleolelolele)

r~~

dd.—a—a—4—.—.d—.-‘-—‘_‘—l-—‘—.—‘_‘d—.—l—‘—‘—‘-—._‘—l—‘—‘—.-‘-‘—.—‘.‘—l—l—‘-‘_‘-—.—.-fl-‘-‘-‘—._‘-‘—.—._‘-‘_‘—ldd
—t e o o ol il i it D il D D il il el el ) D i el i D
D D D el e el e il il Sl sl Bl ol i D el D il s e il D e i e i D el it D sl

0, RPO4/5/6 FCINL (TL
P
28-MAR-79 0

003

1%:

MoV
MOV
MoV
MOV
MOV
MOV
MOV

DEC
BNE

MoV
MOV
MOV
RTS

R1,=-(SP)
R2.-(SP)

R3,-(SP)
R
(RO)¢+
(RO)+,R2
(RO)+,RY
R3,(R1)+
R2
1%

(SP)+,R3

{(SP)+ ,R2
(SP)+ R
RO

;:;PUSH R1

ON STA(K

;sPUSH R2 ON STA(K
;s PUSH R3 ON STA(X
s FROM

s NUMBER
;DATA
;MOveE

DATA

; COUNT
;BRANCH 1F NOT COMPLETE
;:POP STACK

INTO R3

;;POP STACK INTO R2
;;POP STACK INTO R1

;RETURN TO MAIN PROGRAM

10O SAVE

CIRJIIDO, RPO4L/S5/6 FCINL CTLRY
28-MAR-79 09:03
CZRJID.PY

~no

0
060
061
0

MACY11

;*THIS IS A SUBRCUTINE
;tWlITH GIVEN VALUE
;*CALL 1S

T
*

061426
041426

041436
061442
0461446
061450
0461452

JSR

RHXX

002272
006612
012601
000200

mov
MoV
MoV
MOV

SUB

MoV
MoV
MOV
RTS

227

SEQ 0226

TO FILL SAVED REGISTER LOCATION

RO,a#F ILLRE

;REGISTER NAME

FILLRE:

041630
0414632
0614346

30A(1052)
10:30
PAGE
25-MAY-T79
JAM CURRFNT CYLINDER ROUTINE

;DATA

R1,-(SP)
R2,-(SP)
(RO)
¢+, R

(RO)+ ,R2

#RHWC R

R2,SAVERE (R1)
(SP)+,R2
(SP)+ R
RO

::PUSH R1 ON STA(CK
:sPUSH R2 ON STA(K
;ADDRESS OF ADDRESS OF
;DATA

;OFSET

JOATA

IS MOVED

::POP STACK

INTO R?

;;POP STA(CK INTO RI
:RETURN

TO MAIN PROGRAM

CIRJIDO, RPO4/5/6 FCINL CTLR]
CZRJID.PVY
28-MAR-79 09:03

MACY11

30A(1052)

2S5-MAY-79

JAM CURRENT

10:30

CYLINDER ROUTINE

2
PAGE 228

SEQ 0227

;*THIS SUBROUTINE SETS UP FOR SEARCH
IS
RO,3#SRCH
JSR
.
sCYLINDER
C
M
;SECTOR
;*.BYTE S
seCALL

;e BYTE 1

041656
061460
061464

012077
012077
013777

041472

000200

140632
140620
002434

SRCM:
140606

MOV
Mov

;s TRACK

(RO)+,aRHCA
(RO)+,aRHDST

mOov

S¥SERCH,ARHCSY

RIS

;SET DESIRED CYLINDER ADDRESS
:SET DESIRED SECTOR/TRACK ADDRESS
;GET

READY FOR SEAR(CH

;WITH 30 IN RHCSI

00000000000
OOV NO N NN —O

;*TH]S SUBROUTINE SETS UP FOR $7:K COMMANDS
s*CALL IS

Y
s

JSR
C

RO,INSEEKCY
; CYLINDER

061474
041500
041506

012077
013777
000200

140612
002452

1640572

SEEKCY: MOV
MOV

RTS

(RO)+,aRHCA
S#SEECOM, ARHCST
RO

;SET DESIRED CYLINDER ADDRESS
;MOV & INTO RHCSI
;RETURN TO MA]IN PROGRAM

28-MAR=-79 09:03

MACY11

e o

D el il pond

P~ P~

R PO&/5/6 FCINL CTLRT

SEQ 02728

;*THIS SUBROUTINE SETS UP FOR OFFSET (OMMANDS
;eCALL IS
RO,a#OFSET
JSR
M
;MICRO INCHES OFSET
0
.t

el
D o

) i

D e

D D ol il i BB el il

s il il
D el

il o e e e

i
i

) il

30A(1052)
25-MAY-79
10:30
PAGE 229
JAM CURRENT CYLINDER ROUTINE

041510
04151«
061522

052077
013777
000200

140574
002454

041524

013701

002300

04641540

013704

(002302

0641530
0641534

013702
013703

041544

012712

041554
041556

005011
000207

041550

013712

002276
002322
000040

004716

140556

OFSET:

BIS
MOV
R1S

(RO)+,aRHOF
ANOFSETC,aRHCS|
RO

;SET OFSET REGISTER
;MOVI4& INTO RMCS)
:RETURN TO MAIN PROGRAM

CLDISK: MOV

S/RHCST,

:R1 WILL BE CONTROL AND STATUS]

MOV

S#RHERY,

;R4 wlLL BE ERROR REGISTER M

mMov
MOV
mov

MOV

CLR
RTS

9FRHCS2,
af#RHDST,
#CLR,3R?

AafUNIT ,aR?
skl
PC

RZ
R3

:R2 WILL BE CONTROL AND STATUSZ
:R3 WILL BE DISK STATUS REGISTER]
;CLEAR ALL REG.

:REINSTATE UNIT NO.

;CLEAR FUNCTION BITS

*
XN

b
-

— G

-t

NNNNNNNNOCOCOCQROGTOCOCRNVNNUNWMNWNWNMWNUE
D BB
N RN NN
NOWVE W
=0V
NOWNS W
=00
VNS NN = OV
~NO VNS WN =00
YOWVNER W
-

TLR
?POA/S/b FCTNL CTL
28-MAR-79 09:03

MACY11

—

e
— il
el

D il et

et D el el il il il ) D e il il el il
D e e el ol el el il il e Al BB sl el el ol D
D e e
il e e i i e ol el D ol il it el il

il el i =D s il il P
d il e il i D il
D il D D P sl D il D ) il i ol il D s
D sl e i D D e il D ol el D el i Al il

D e BB e
) el
D 2D ol WD il o i
D s e
B el el i

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

J
2
30AC1052)
25-MAY-79
10:30 PAGE 230
JAM CURRENT CYLINDER ROUTINE

;*THIS

CHECKS

THAT

DEVICE

AVAILABLE

;*AND CHECKS MEDIUM ON LINE
;* (DRY) IN RHDS! = 1

SEQ 0229

(DVA)

AND READY

(MOL), DEVICE PRESENT

;*1T ALSO CHECKS THAT THERE ARE NO BITS STUCK AT 1
041560

000000

041562
041566
041574
041576
041602

011637
162737
011346
052716
000406

041604
0641610
041616

011637
162737
011346

041620
041622
041626

011146
042716
022726

041632
041634
041640

001403
011137
104061

041560
000004

041560

041560
000004

173577
004200

041560

(HECK:

MOV
SuB
MmNy
BIS
BR

(SP),a#PCJSR
#4,30PCJSR
aR3,-(SP)
Vv, (SP)
CHECKC

;SAVE PC OF JSR+4
;GET PC OF JSR
;GET RHDS1
;DONT CHECK vv BIT
;6070 COMMON CHECK ROUTINE

CHECKT: MOV
SuB
MOv

(SP) ,3#PCJSR
#4,aNPCJSR
aR3,-(SP)

:SAVE PC OF JSR+4
;GET PC OF JSR
;GET RHDST1 & DO vv CHECK AT

CHECKC: MOV
BIC
CMP

aR1,-(5P)
#173577,(SP)
#OVA'RDY,(SP)+

:GET (S
: CLEAR UNWANTED BITS
;RHCS1 SHOULD HAVE DEVICE AVAILABLE

3%
aR1,a#$BDADR
ol

:BRANCH IF IT DOES
;BAD DATA REGISTER (RHCS1)
;RHCS1 DID NOT HAVE DEVICE
sAVAILABLE RIGHT AT THE START

001122

. AND BE

041646
041652
041654
041660
041662

042716

022726
001404
011337
104062

102000
010700

3%:

001122

000207

BIC

(mMP
Bta
Mov
ERROR
RTS

IN RHDSI

Bta
MOV
ERROR

(DPR), DEVICE READY

JSR

READY

;ALL OTHER BITS SHOULD BE

041642

IN RH(CS!

PCJSR:

000100

+PC OF

(RDY)

FATA!LBT, (SP)

;CLEAR UNWANTED BITS
#MOL 'DPR!DRY!VV,(SP)+ ;RHDS1 SHOULD HAVE THESE SET
7$
:BRANCH 1F GOOD
OR3,3#$BDADR
;BAD DATA IN REGISTER (RHDS1)
67
;RHDS1 HAS SOME BITS OTHER
;THAN MOL,

DRY,

DPR,vv

SET

;ALL OTHER BITS SHOULD BE 0

;RETURN TO TEST AND HALT/CONTINUE
:DEPENDING ON WHETHER THIS IS A
;"'FATAL'" ERROR

041664
041670

062716
000207

000006

7%:

ADD
RTS

86, (5P)
PC

;ADJUST STACK TO JUMP OVER HALT [N TEST
;RETURN T0 THE TEST AND CONTINUE

~ P~

e Cn
el o et e ol o o e rid

28-MAR-79 09:03

MACY1T 30A(1052)

PAGE 231

SEQ 0230

el e

;eTHE CALL IS

:
.

Z e

el sl i

;*JSR

D el ol el i

- ¥

:oF

;¢7

041672

061672
041674
041676

) i
)
D et

W= OOV

WANWRNRNI
NI RN NI NN NN N — — —

ND NN 2O VBN WVNE W~ OO®NOWVEHWMNN—=0O0

_._....--o—-oooooooooooog

B
D el
D il il e
b el
D o
D ol ih
D
el
it
il
il
sl
D e e
il
D i

10:30

:*THIS IS A SUBROUTINE TO SAVE REGISTERS
;*IN THE REGISTER TABLE TO ANY {OCATION

A I L Y L did NINIPNIRINOIRNININI PN NI NINI NI NI PRI NI N o ol i ol el e cd D o e o el e
I

D i o

N L LI

ep e i b o o e e i T o

25-MAY=79

JAM CURRENT CYLINDER ROUTINE

D ) wrad ) D e e o e sl i md ) D h e S - D el e el il il e i D i D sl el il D e il el i i il i il il il D h

Ofi‘?POGIS/O FCTNL CTLRY

012001
012002
012003

041722

000200

0641714
041716
041720

MUST

SAVER:

010146
010246
010346

041700
041702
0641704
041706
041710
041712

MUST

013122
005303
001375

1$:

;FROM

.10
:NUMBER OF WORDS SAVED

ALWAYS BE RH(S?
ALWAYS BE

SAVRE

Mov
Mov
MOv

R1,=(SP)
R2,=(SP)
R3,-(SP)

;:PUSH R1 ON STA(K
::PUSH R2 ON STACK
:;PUSH R3 ON STA(K

MoV
DEC
BNE

a(R1)+,(R2)+
R3
1%

;SAVE REGISTER CONTENTS
; COUNT
;BRANCH IF NOT DONE

RTS

Mov
MOV
MOv

(RO)+, R
(RO)+ ,R2
(RO)+,R3

(SP)+,R3
(SP)+ ,R2
(SP}+,R1

Mov
MOV
Mov

012603
012602
012601

RO,a#SAVER

;FROM
;10
: NUMBER

;;POP STACK INTO R3
;;POP STACK INTO RZ
;:POP STACK INTO Rt

;*WHEN AN EVENT IS TO BE TIMED THE RPO& VECTORS TO "‘TIME 1"
;*PRIORITY OF

PROCESS OR IS &

;*PRIORITY OF TRAPS MUST BE 6

;*PRIORITY OF RPO& INTERRUPTS IS 7
MR

0417264
041730
041736
041744
041752

005077
017737
017737
017737
000002

140414
140414
140372
140366

041762
004664
004662

TIMEY:

TIMEZ:

;STOP THE CLOCK
aPCLCSR
SPCLCTR,a#WAITTM ;GET TIME ON CLOCK
;GET CURRENT CYLINDER
IRHCC,aNF INATC
;GET LOOK AHEAD
SRHLA ,a#F INALA
;RETURN TO WAIT P OR WAIT.I

(LR
MoV
MOV
Mov
RTI

;eTH]S 1S A WAIT LOOP WwHEN AN EVENT
;eTHE

CALL

IS 10 BE TIMED

»
%

N
TR
LR

il
il
D o
D e

RO RO NI

OoO0DOOOB OO0
N NNNNNNNNNO
OWNOO N W= OV
NO VNS W00

roRoNUrRLRU DN RN RO

TA
10

SEQ 0231

;ABSOLUTE REGISTER ADDRESS
;817 WAITED FOR
;TIME ALLOWED GIVEN IN 10 MICROSEC

; TOLERANCE PLUS/MINUS IN 10 MICROSEC
IN 10 MICRO SECONDS

;*R2-WILL HAVE TOLERANCE PLUS/MINUS IN 10 MICRO SECONDS

el il
il el
) - e
D Al el
i
)
i
D
)
i
i
i
i
el
el
il
D
D
D
il
e
il

WAl
A

;*R1-WILL HAVE TIME ALLOWED

;*MINIMUM TIME THAT (AN BE MEASURED IS ABOUT
;*FOR THE

041756
041756
041760
041762
041764
041770
061774
042002
042004
042006
042010
042012
042016
042022
042030
042034
042040
042042
042044

000000
000000
000000
000000
005037
005077
012777
010046

042050
042054
042062
042064
042066
0642070
042074
042102

042104
042106
042110
042116
042124
042126
042130
042132

SLOWEST

PROCESSOR

WAITPC:
WA]TRE:
WAITBT:

041762
140352
000021

000010
061754
000002
041756
041760

062222
061760

177642

000100

P(C

;WAIT ON REGISTER ADDRESS

Mov
MoV
Mov
Mov

061754

SUB

MOV
Mov
MOV
MoV
Mov

SFWAITTM
;CLEAR WALITED TIME
aPCLBUF ;CLEAR COUNT SET BUFFER
#GO'BIT4,aPCLCSR ;COUNT UP, 100 KHZ,
RO, = (SP)
:;PUSH RO ON STACK
R1,-(SP)
;:PUSH R1 ON STACK
R2,-(SP)
;;PUSH R2 ON STA(K

177654

1$:

2%:

001126
140154

:;PUSH R3 ON STA(K

RO.3#WAITP(

;NOW WAITPC HAS WAT PC + 2

10(SP) ,RO

#2,0NWA]TP(
3(RO)+,3#WAITRE
(RO)+,aNWAITBT

(RO)+ ,R1
(RO)+,R2

RO,10(SP)

;RO HAS ADDRESS OF

;WAT PC IS IN WAITP(
;WAIT ON REGISTER ADDRESS
;WAIT ON BIT

;R1 HAS TIME IN 10 MSEC
:R2 HAS TOLERANCE IN 10 MSEC

;RESTORE RETURN ON STA(K

THROUGH TWO COUNT DOWNS

aN#TIMCNT R3S

;R3 1S A TEMPORARY COUNTER

BNE
DEC
BNE
MOV

;BRANCH

BIT

BNE
DEC
BNE
MOV

BEQ
ERROR
BR
ERRCR

SNWAITBT ,aWAITRE
Ré
1

(LOCK

LOCATION

MOV

BIT

1%:

START

R3,-(SP)

;*THIS SECTION WAITS FOR BIT,

177674

12 MICRO SECONDS

;WAIT ON BIT
;WALTED TIME

140342

000010
062222
041760

;WAT

WAITTM:
WAIT.P:

D o
D o
i il
il Al
el
D
il
D
D el
D s
d
D
el e e
e i e B
d wd o
) el ) il el il h e
D el
il et il el
i e ol i
D
e
it
e et

el i
D el
D
D
sl it
) il
D

47
48
49

i
D

D D
D i

30A(1052)
25-MAY-79
10:30
PAGE 2352
JAM CURRENT CYLINDER ROUTINE

28-MAR-79 09:03

MACY11

—

?POL/S/O FCINL CTLR]

el il o
h
D el D d

NN NI NNV N RN NNV NN
NN A
RN NI RO N S LAY NNNNNINNINNNNNDNN
oo oo [+ RV IV, IV IV IV TV YV IV IV | (v
~NOo W PV
1V ] [@XVeYe ENTe JV,} B NN =O

—

;1S REQUIRED BIT

;COUNT

YES

THERE

REQUIRED BIT NOT

THERE

S#TIMCNT ,R3
: TEMPORARY COUNTER
IfWAITBT ,aWAITRE ;1S REQUIRED BIT THERE
4%

;BRANCH IF

;COUNT

YES

IF REQUIRED BIT NOT THERE

AWAITRE ,d#$BDDAT ;REGISTER CONTENTS FOR TYPEOUT
#1E,aRKHCST
;01D ANY INTERRUPY OCCUR
1
:BRANCH IF YES
1
;RPO4 DID NOT INTERRUPT
7%

;0uUl

s 0UT

:RPO& INTERRUPTED BUT WAITED
;ON BIT DID NOT OCCUR
:EVEN AFTER TWO COUNT DOWNS
;FROM 177777 10 0

042134

042136
042146

;*NOW TIME AND TOLERANCE WltL BE CHECKED
MOV
SWAITRE ,a#$BDDAT ;REGISTER CONTENTS FOR TYPEOUT
M1E,aRHCSI
;01D ANY INTERRUPT OCLCUR
BIT

177614

000100

001126

140126

4%:

D e i d D e e ok

D e e e

D o

100, RPO4/5/6 FCTINL CTLrl
10.P11
28-MAR-79 09:03

)

— el e i e el D D d i D D e el el il il et D i il
B A e e h el ol el i e el D el e i e D e D D ed ad i D oD e
WM A U L U L A " A L Lot L L L e Lt W L W Lt U i A U W L L U Gl L L W A AN
U N
NN

D
D e e
h
d
D
D D
i

25-MAY-79

JAM CURRENT

CYLINDER ROUTINE

BEQ
ERROR

5¢:

041762

10:30

SUB
(mp

2
PAGE 233

SEQ 0232

:BRANCH JF YES
;INTERRUPT DID NOT OCCUR EVEN

5%
3

;AFTER ONE BNE AND ONE MOV

7%
RZ,R1
R
2VWAITTM,

:8FTTHE WAITED ON BIT SETTING
;0U
:R1 NOW HAS LOWER LIMIT OF

;FOR GOOD RESULTS, WAITTM
:MUST BE GREATER OR EQUAL
; TOR]
;BRANCH 1F GOOD
;817 DID OCCUR BUT TIMt
:TA#EN 1S BELOW LOWER LIMIT

042166
042170

103002
104004

BHIS
ERROR

062172

000406

;0U

042174
042176
0422CC

060202
060201
020137

ADD

:DOUBLE TOLERANCE

cmp

RZ,R2
R2,R1
R1,3NWAITTM

042204
042206

103001
104004

BHIS
ERRGR

042210
042210
042212
062214
042216
042220

012603
012602
012601
012600
000002

6%:

041762

7%:

ADD

MOv
MOV
MOV
MOV
RTI

;R1

NOW HAS UPPER LIMIT OF

TIME

;FOR GOOD RESULTS, WAITIM
;MUST BE LESS OR EQUAL T0 R1
;BRANCH [F GOOD
;BIT DID OCCUR BUT TIME TAKEN
;1S ABOVE UPPER LIMIT

R3
RZ
R!
RO
;RETURN TO MAIN TEST

::POP
;.POP
;:POP
:.POP

(SP)+ ,R3
(SP)+,R2
R
(SP)+
(SP)+,RO

INTO
INTO
INTO
INTO

STACK
STACK
STACK
STACK

Lol ol 2l

WA WA — DO

ol il SV TV VY

NOWVNE NN =O 0N

VWS AW

2O 0

YO NS W

=0 O

ot b o e b s et b et s el
Ghtd o PIPRONIPOMNOPOININININ

30AC1052)

001402
104003

042156
042160
042162

D
D i
D
D ol
i
il e
el ol e
) e
D il il
i
D il i
wmd el il
e
el e
e
T
i o
i e
D
e e
e
e

062152
042154

MACY11

;*THIS 1S A WAIT LOOP WHEN NO P-CLOCK
;*NO TIMING IS DONE

1S AVAILABLE

;eCALL ]S
o

WAT

it
L

A
B

o
L

042230
042234
042240
0642246
042252
042256
062260

; TIME-NOT

USED HERE

; TIME-NOT USED HERE

*R3-1S A TEMPORARY COUNTER
TIMCNT: 177777

042222
042224
042226
042226

TA
10

;ABSOLUTE REGISTER ADDRESS
;BIT WAITE) FOR

WAIT,T:

000004
041754
000002
041756
041760
000004

0461754

:COUNT FOR WAIT LOOP

MOV
MOV
MOV
MoV

RO,-(SP)
R3,-(SP)
4 (SP) ,RO

:;PUSH RO ON STACLK

RO,a¥WAITPC
#2,30WA]TPC

; sPUSH R3 ON STACK
;RO HAS ADDRESS OF NEXT LOCATION
WAT PC +2 1S IN WAITPC

a3(RO)+ ,afWAITRE

;WAT

MOV
MOV

;WAIT ON REGISTER ADDRESS

suB

(mp

MOv

(RO)+,aNWAlTBT

(RO)+, (RO)+
RO,& (SP)

,WAIT

IN WAITPC

ON BIT

:DUMP NEXT TWO WORDS-TA, 10

;RESTORE RETURN ON STACK

;*THIS HAS THE TWO COUNT DOWNS FROM 177777

OO0

0, RPO4/5/6 FCINL CTLRY

0O~NN~N
I~

[@X¥e1e
- ENT. XV 1 P

~ i

AN L AN LU U U L L U

N AN AN W A AN AN N AN W AN AN U

N N N N N

B B L Ak akeak e oo gl e Xo Xeo Ne No RV IV IV IV LV IV IV (W IV IV J
o o
[V] N = OOVRNO NS W
=0V
NN
NN~
0N

—

b -

~~
ek
el

D el
B
el

el
il
el
D

D
il

et
il

D
D el

i
D il
el

sl
i

il
D

i
D

D kD
D

e
D

e
e

el
el

i
D

D e

il
id

el
el

i
i

el Ch
)

o
b o

D et
el

— e

—

28-MAR-79 09:03

042264
042270
042276
062300
042302

013703
033777
001025
005303
001372

042222
041760

062310
042316
042320
062322
0623264
042332
042340
042342

033777
001015
005303
001372
017737
032777
001402
104001

042306

042344

042346

013703

1776460

041760

1776440

177426
000100

001126
137740

0642222

104002

000412

0462352
042356
04642362
042364
042372

000240
032777
001405
017737
104003

042374

000400

042376
0642400
042402

012603
012600
000002

25-MAY-79

10:30

JAM CURRENT CYLINDER ROUTINE

000414

042350

042376

MACY11 30A(1052)

000100

137716

1773u6

0921126

SEQ 0233

mov
B17
BNE
DEC
BNE

SfTIMCNT,R3
:RY HAS TEMPORARY (OUNT
SfWAITBT ,aWwAITRE ;1S REQUIRED BIT THERE
43
;BRANCH IF YES
R3
:COUNT JF REQUIRED BIT NOT THERE
1%

BIT
BNE
DEC
BNE
MOV
Bl
BEQ
ERKOR

e¥WAITBT,aWAITRE ;1S REQUIRED BIT THERE
(3 9
;BRANCH [F YES
R3
;sCOUNT |F REQUIRED BIT NOOT THERE
2%
aWAITRE ,a#8BDDAT :REGISTER CONTENTS FOR TYPEOUT
#1E,aRH(ST
:D1D ANY INTERRUPT OCCUR
1
:BRANCH IF YES
1
:RPO4 DID NOT INTERRUPT
;BIT DID NOT OCCUR
5%
;0Ul
P4
:RPO4 INTERRUPTED BUT
;WAITED ON BIT DID NOT OCCUR
;EVEN AFTER TwD COUNT DOWNS

MOV

ERROR

A ¥

PAGE 234

SFTIMCNT,RS

;SECOND COUNT DOWN FROM 177777

:FROM 177777 10 0

;0ul

:*B1Y DID SET SO CHMECK IF INTERRUPT OCCURED
;ALLOW TIME FOR INTERRUPT
NOP
BI7
#1E ,aRH(ST
:DID ANY INTERRUPT OCCUR
BEQ
5%
;BRANCH IF YES
OWAITRE ,a#$BDDAT ;REGISTER CONTENTS FOR TYPEOUT
MoV
; INTERRUPT DID NOT OCCUR
3
ERROR
:EVEN AFTER ONE BNE OF

5%:

;THE WAITED ON BIT

OCCURING

;0Ut

MOV
MoV
R11

(SP)+ ,RY
(SP)+ RO

::POP STACK INTO R3
::POP STACK INTO RO
:RETURN TO MAIN TEST

CIRJIDO, RPOL/5/6 FCINL CTLR)
(IR JID.PVI
28-RAR-79 09:03
11381
11382
11383
11384
11385
11386
11387
11388
11389
11390

042404
0424064

010146

11393
113964
11395
11396
11397

0426412
042414
062420
042422
062626

012002
162701
005720
001403
052061

11391
11392

11398

11399
11400
11401
11602
116403
}}Agg

0462406
042410

042430

042632
042436
042440
0642442
062444
042446

042061
005302
001367
012602
012601
000200

30A(1052)
25-MAY-79
10:30
PAGE 235
JAM CURRENT CYLINDER ROUTINE

SEQ 0234

s*THIS CHANGES REGISTER SAVED VALUE
seCALL IS
B
JSR
RO ,3#CHREG
;?
R
;REGISTER TO BE CHANGED
;Y
N
:NUMBER OF BI1S TO BE CHANGED
.t
NEW
sNEW VALUE OF BIT MUST BE 0O OR1
N
P
;POSITION OF BIT TO BE CHANGED
;*NEW AND P WILL BE REPEATED N NUMBER OF TIMES
(HREG:
MOV
R1,-(SP)
::PUSH R1 ON STACK

010246
012001

000402

MACY11

002272

1%:

004612
004612

2%:
3%:

MOV
MOV

R2,-(SP)
(RO)+,R1

:sPUSH R2 ON STACK
;R1 HAS ADDRESS OF

B8R

;BRANCH TO DECREMENT COUNT

MOV
sSuB
1$1
BEQ
BIS
BIC
DEC
BNE
MOV
MOV
RTS

ADDRESS OF REGISTER
(RO)+ ,R2
;R2 HAS NUMBER OF CHANGES
#RHWC R
;R HAS OFSET OF REQUIRED REGISTER
(RO)+
;19 A BIC OR A BIS TO BE DONE
2%
JBRANCH JF A BIC IS REQUIRED
(RO)+,SAVERE(R1) ;SET REQUIRED BI"

(RO)+,SAVERE(R1) ;CLEAR REQUIRED BI1
RZ
;DECREMENT NUMBER OF (HANGES
1%
;BRANCH JF NOT COMPLETE
(SP)+ ,R?
;;POP STACK INTO RZ
(SP)+ ,R1
:.POP STACK INTO R1
RO
;RETURN T0 MAIN PROGRAM

11406
11407
11408
11409
11410
11411
1412
613
414
415
416
417
418
419

042650

621

042452

420

622

423
424
425
426
&27
428

429
430
431
432
433
434
435
&3

c«THIS FILLS A BLOCK WITH
s*CALL IS
R
JSR
RO,asFILL
R
f
;v
N
o
S
1
|

042450

010146

0426454

010346

042456
0642460
0426462
042466
042466

042470
042472
042674
062476
042500
062502
0462506
042506

FILL:

010246

010321
060403
005302
001374
012604
012603
012602
012601

;FROM
sNUMBER OF WORDS
;STARTING VALUE OF

; INCREMENT DATA BY

MOV

R1,-(SP)

::PUSH R1

MOV

R3,=-(SP)

;sPUSH R3 ON STACK

MOV

010446
012001
012002
012003
012004

INCREMENTAL DATA

R2,-(SP)

DATA

ON STACK

:sPUSH R2 ON STA(CK

MoV
R4 ,-(SP)
;s PUSH R4 ON STACK
MOV
(RO)+,R1
;R1 HAS ADDRESS WHERE DATA [S 10 %0
MoV
(RO)+,R2
:R2 HAS NUMBER GF WORDS TO BE fILLED
MOV
(RO)+,R3
:STARTING VALUE OF DATA
Mov
(RO)+,R4
;R4 HAS INCREMENT
;*NOW DATA WILL BE FILLED

mov
ADDe
DEC
BNE
MOV
MOV
MOV
Moy

R3,(R1)+
R4 ,R3
R?
1%
(SP)+ R4
(SP)+,R3
(SP)+,R2
(SP)+ R

;FILL DATA
;GET NEXT VALUE OF DATA
;DECREMENT COUNT
;BRANCH [F ALL NOT DONE
;:POP STACK INTO R4
;;POP STACK INTO R3
;.POP STACK INTO R2
;;POP STALK INTO R

CIRJIDO, RPO&L/S5/6 FCINL CTLR]
CIRJID.PYY
28-MAR-79 09:03
116437
11638
11639
11440

042510

000200

MACYTY

]

30A(1052)
25-MAY=-79
10:30
PAGE 236
JAM CURRENT CYLINDER ROUTINE
RTS

;RETURN TO MAIN PROGRAM

SEQ 0235

CIRJIDO, RPO4/5/6 FCTINL CTLRY

CZRJID.PIY

28-MAR-79 09:03

MACY1T

30A(1052)

25-MAY-79

JAM (URRENT

)

10:30
PAGE 237
CYLINDER ROUTINE

SEQ 0236

11440
11442
11443
11444

:*THIS

11446
11447
11448
11449
11450
11451
11452
11453

;*TEST DATA IS IN THE REGISTERS
s*CALL IS
it
JSR
RO,a#COMREG
ot
SAVERE
:GOOD DATA
it
RHCST
;ADDRESS OF ADDRESS TEST DATA
.t
N.
;RETURN FOR ERROR
i
RG
;RETURN FOR GOOD COMPARISON
:*ON RETURN WITH ERROR 'SGDDAT' HAS GOOD DATA, 'S$SBDDAT' HAS BAD DATA

114645

}}:gg
116456
11457
11658
11459
116460
11661
116462
11463
116464
116465

010146
010246
010346
010446
010546
012001
012002
012003
012004

116468

042536

004737

043436

11471
116472
116473
1164764
116475
116476
116477
11478
11479

042554
042560
042562
042564
042570
042574
042602

062705
022122
001420
0164137
014237
016537
004714

000002

042604
042606
042612
042616
042622
042624
042626

022122
017746
042716
022726
001402
005303
001352

11669
116470

11480
11481
11482
11483
11484
11485
114%?
114

11488

11489
11490
11491
11692
11493
116496
11495

TO COMPARE

REGISTERS

:*"REGADR' HAS REGISTER ADDRESS
042512
042512
042514
042516
042520
062522
042524
042526
042530
042532

116466
11467

IS A SUBROUTINE

;*GOOD DATA IS ALREADY SAVED IN 'SAVERE'

042534

042562
042550

042630

042630
042632
042634
042636
0426640
042642
042644

COMREG:

011000

113737
012705

012605
012604
012603
012602
012601
000200
000000

004637
177776

001124
001126
002272

MOv
Mov
MOv
MOv
MOv
MOv
Mov
MOov
MOv

R1,=(SP)
R2,=(SP)
R3,-(SP)
R4, - (SP)
RS,=(SP)
(RO)+ ,R1
(RO)+,R2
(RO)+,R3
(RO)+ R4

;:PUSH R1 ON STA(CK
: :PUSH R2 ON STA(K
;:PUSH R3 ON STA(K
;:PUSH R& ON STACK
:;PUSH RS ON STACK
:R1 HAS ADDRESS OF GOOD DATA
:R2 HAS ADDRESS OF ADDRESS OF
;R3 HAS NUMBER OF WORDS
;R4 HAS RETURN FOR ERROR

PC,a#PUTREG

:SAVE REGISTERS

Mov
(RO) ,RO
:*NOW SAVE REGISTERS
JSR

002401

Mmove
MOV

1$:

004600

177177
000200
2s%:
3%:

6%:

DATA

;RO HAS RETURN ON NO ERROR

S#SAVERE+25,3#AS+1
;MAKE UPPER BYTE OF
#-2,R5
;PRESET RS 10 -2

RHAS SAME

s *NOw (CMPARES WILL MADE
ADD
#2,RS
; INCREMENT TO INDEX
(mp
(R1)+,(R2)¢
: COMPARE REGISTER CONTENTS
BEQ
2%
:BRANCH 1F GOOD
Mov
=(R1) ,a#8GDDAT
;SAVE GOOD DATA
MOv
=(R2),a#$BDDAT
;SAVE BAD DATA
MOV
RHWC (RS) ,@#REGADR
. SAVE ADDRESS OF FAILING REGISTER
JSR
PC.aR¢
sRETURN TO MAIN PROGRAM
;7O PRINT ERROR

(mp

136326

TEST

MOV

aSWR,-(SP)

#~C600, (SP)
#SW07,(SP)+
3%
R3
1%

:UNDO =(R1) AND =(R2) FOR ERRORS
;GET SWITCH SETTING
SKEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND 8 DOWN
;BRANCH OUT IF YES
:ARE ALL COMPARES DONE
;BRANCH 1F NOT COMPLETE

MOv
MOV
MOV
MOV
MOV
RTS
.WORD

(SP)+,RS
(SP)+ R4
(SP)+,R3
(SP)+,R2
(SP)+ R
RO
0

:;POP STACK INTO RS
;.POP STACK INTO R4
::POP STACK INTO R3
:;POP STACK INTO R?
;. POP STACK INTO R
;RETURN TO MAIN PROGRAM
; TEMP STORAGE

81C
CMpP
BEQ
DEC
BNE

(R1)+,(R2)¢

J100, RPO4/S/6 FCINL C(TLR)

JI1D.P1N

28-MAR-79 09:03

MACY11

496
697
498
499
500

30AC1052)

25-MAY-79

10:30

JAM CURRENT CYLINDER ROUTINE

;*HERE

PAGE 238

IS A DETAILED EXPLAINATION OF

;*ON HITTING AN ERROR

28;

Sea 0237

HOW THE LOOP ON ERROR WORKS.

THE LOOP ON ERROR SWITCH IS SET,

THE

. *PROGRAM GOES BACK = USUALLY BACK TO THE BEGINNING OF THE TEST.

503
504
505
506
507
508
509
510
511
512

;*WHEN THIS OPERATOR SELECTABLE SCOPE LOOP 1S USED THEN THE POINT
:*THE PROGRAM GOES BACK TO CAN BE CHANGED.
;*THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM (AN GO ARE: ;1.
17 MUST BE WITHIN THE TEST UNDER CONSIDERATION
:*2.
LOOP ON ERROR SWITCH MUST BE SET
:*3.
THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION
;*1F THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION
:*THE PROGRAM WILL REVERT TO NORMAL OPERATION.
HOWEVER, IF LOOP ON
;*TEST SWITCH 1S SET AND THIS OPERATOR SELECTABLE SCOPE LOOP 1S USED
;*THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN 1T

515

;*AFTER LOOPING FOR SOME TIME

g}z

:*COMES TO THE END OF THE TEST UNDER CONSIDERATION.
[

g}g
042646
042650
042650
04265&
062662
062666

525
526
527

042732
042732
0462736

013746
104402

529

062744

0006164

042776
042776
043002
063006
043010

013746
104402
104401
104401

628

530

531
5§32
533
536
535

536
537
538
539
540
561
542

543

564
545
546

547

548
569

550
551

THE LOOP SWITCH

IS PUT DOWN THEN

;FIRST ADDRESS OF

TEST

: *NORMAL OPERATION WILL CONTINUE.

518
519
520
521
522
523

524

062740

043016

063076
063076
043102

063164

043164

063170

043236
043236
0463240
063244

043250
06325¢

000000

005037
012737
104401
000421

104401

000430

177776
177777
042670

0:65%:

004604

001110

043172

062716
012637

104401
000417

66$%:

001223
043016

106401

;2698
68%:
2a718:
70%:

20738

72%:

000002
001106

043256

JASCIZ

PS
:MAKE PROCESSOR STATUS ZERO
#-1,3#PRITEM
:CLEAR PREVIOUS ITEM NUMBER
,65%
::TYPE ASCIZ STRING
643
;:GET OVER THE ASCIZ
<15><12>/THE PROGRAM WAS IN TEST NUMBER /

MoV
1YPOC

SNTSTNM,-(SP)

B8R

66%

MOV
TYPOC
TYPE
1YPE

SNSLPERR,=(SP)

BR
LASCIZ

::TYPE ASCIZ STRING
683
;:GET OVER THE ASCIZ
<15><12>/SET SWITCH FOR LOOP ON ERROR OR LOOP ON TEST/

TYPE
BR
JASCIZ

Ak
;:TYPE ASCIZ STRING
708
::GET OVER THE ASCIZ
<15><12>/TYPE THE FIRST PC OF THE TEST T0 BE LOOPED ON/

TYPE

2678

043104

104412

64%:

042746

104401
000430

000422

047342

TESTAD: 0
OPERSEL:
CLR
MOV
1YPE
BR

JASCIZ

TYPE

BR
UASCIZ
RDOCT

ADD
MOV

TYPE
B8R

,67%

;GET READY TO TYPE
:NUMBER

TEST

;s TYPE ASCIZ STRING

::GET OVER THE ASCIZ

<15><12>/THE LOOP BACK PC WAS /

:GET READY TO TYPE LOOP BACK P(

LSCRLF
,69%

L1738

::TYPE ASCIZ STRING

#2,(SP)
(SP)+,aWSLPADR

:GET LPADR

72%
::GET OVER THE ASCIZ
<15><12>/ FOLLOWED BY A CARRIAGE RETURN /<15><12>

L1758
74$

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

—

———d

AR AR AN [V TV SV 1V

e
s

o
o

57
58
59

i)
el

53
56

el
o

el o

) i i

) it
S

el e

el
il

b o

CIRIDO, RPO&/S5/6 FCTINL CTLR]
CIRJID.PWY
28-MAR-79 09:03

043314
043316
043320
063422
043622
043424
043430
063634

MACY11

%izss:
104601

000440
1064412

012637
013746

000002

043322

30A(1052)
25-MAY-79
10:30
PAGE 239
JAM CURRENT CYLINDER ROUTINE

'
%;zrs:

JASCIZ

TYPE

<15><12>/TYPE

178

76%

SEQ 0238

THE PC WHERE

;:TYPE ASCIZ STRING

LASCIZ

<15><12>/

THE

RDOCT
MOV
:?Y

(SP)+,a#SLPERR
SSLPADR, - (SP)

TIGET OVER THE ASCIZ

PROGRAM TO LOOP BACK

6%:

001110
001106

YOU WANT/

:GET

LPERR

TO FOLLOWED BY

A CARRIAGE

RETURN /<15

~ P~
0

JIDO, RPO4/5/6 FCINL CTLR]
J1D0.P1N
28-MAR-79 09:03

C
C

MACY11

25-MAY-79

30A(1052)

JAM CURRFNT

10:30
PAGE 240
CYLINDER ROUTINE

SEQ 0239

;*THIS SAVES THE (ONTENTS OF ALL HARDWARE REGISTERS

;*IN MEMORY LOCATIONS TAGED FROM 'WC'' 70 "'EC2"

;*THIS 1S 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

043436
063636
043440
043442
043444
043450
043454
043460
043462
043464
043466
043470
043472
063474

PUTREG:

002272
002354
000022

N
e RoRo
o

JV [, VE_Ja L oo

o No

V¥

o
VYo

(o N e e

el
el
D

il
el
i

e e o e

108:

10%
(SP)+ ,R2
(SP)+ ,R1
(SP)+,RO

;*THIS 1S A DATA
(A LtL

;eTHE

—

[aa]

RO,a#RUN

043534
043540

136610
136576
136560
136556

b - LI

-W

8
BAl
FMT22ECT!INC]

INTO R

:;POP STACK INTO RO

:CYLINDER

:WORD COUNT
;BUS ADDRESS
:BUS ADDRESS INHIBIT
;FMT122=1

(RO)+ ,aRHCA

004716
136546
136554

Mov
Mov

136540

MOV
RTS

d(RO)+,ARHCST

=16 BIT WORDS

;ECI = ECC CORRECTION INHIB 17
;HC1

(RO)+,aRHDST
(RO)+,3RHW(
(RO)
¢+ ,3RHBA
9#UNIT,-(SP)
(RO)+, (5P)
(SP)+ ,dRH(S?
)
¢+ ,aRHOF
(RO

BIS

::POP STA(K

;SECTOR

MOv
Mov
MoV
Mov
MOV

C
Z

0463476
043502
043506
043512
043516
0463522
043524
043530

::POP STACK INTO RZ

: TRACK

COM

ON STA(CK

;;PUSH R2 ON STA(CK
;STARTING ADDRESS OF REG

COMMAND SETUP SUBROUTINE

L
&

L I O R
2
% o »

R T
» L4

;+.BYTE

JSR
(
S

:;PUSH RO ON STAC(K

:;PUSH RT

;STARTING ADDRESS OF WERE SAVED
WRHCC-RHW(C42/2,R2 ;NUMBER OF REG. INTO RZ
¢
9(RO)+,(R1)
:SAVE HARDWARE REG.
R2
MWl ,R1

DEC
BNE

000207

o S A Al A A AR A
o0
- OBNCNE

1602
1603
1604
1605
1606
1607

RO, -(SP)
R1,-(SP)
R2,=(SP)
#RHW( RO

Mov
MoV
MOov
Mov
Mov
Mov
Mov

MoV
Mov
MoV
RTS

AR A A

AR A BV AV IV IV IV TV TV IV TV TV IV TV LV LV LV JV IV IV IV IV IV IV

D ) D D md d ) el e h vl ol e e el e il il el ) D Al ol el il il il D Al e il el il il e el D el i e i e D il D el i D s
il wld il el ol
) o il e e e el aoh el o e il il D D il il el el i D i el i D e D ot il e D i il D i

QOODOO0000
N~ NN NN~ SO o oo
D 0 0 0 0 0 0NN0 -02O
O 00DB
0o 0o O 00NE
WA —=OO®~O NI
R —O 00 ~NO

IV ] v

564

= HEADER COMPARE

INHIB 17

: COMMAND ADDRESS
s CYLINDER
;DESIRED SECTOR/TRA(K
;WORD COUNT
:BUS ADDRESS
;GEY UNIT NO
;SET BUS ADDRESS INHIBI!
;UNIT NO AND BA] TO RH(S?
;FORMAT, ECC INHIBIT, HEADER
;COMPARE, 1F THERE
: COMMAND IN RH(S]
;RETURN 10 MAIN PROGRAM

0, RPO&/S5/6 FCINL CTLRY
P1

28-MAR-79 09:03

MACYTY

30AC1052)
25-MAY=-79
10:30
PAGE 241
JAM CURRENT CYLINDER ROUTINE

SEQ 0240

;*THIS 1S A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY
:*R1
:*R2
:*RS
:*R3
;*R4

;*CALL

IS:

)
o.

G
T

1643
1644
1645
1646

1647

COMPAR:

043542
043542
043544
043546

043560

043562
043564
043566
043570
043572
043576
043600

1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673

043602
043606
043612
043616
043620
043622
043626
043632
043636
063640
063642
063644
043644
043646
043650
043652
043654
043656

022122
001417

016137
014237

160337

004715
022122
017746
042716
022726
001402
005393
001353
012605
012604
012603
012602
012601
000200

004602

1%:

MOV
MOV
MOV

R1,=-(SP)
R2,-(SP)
R3,-(SP)

MOV
MOV

RS,=-(SP)
(RO)Y+ R

(RO)+ ,R?2
(RO)+ R}
(RO)+,RS
(RO).RO
R3,R&

(mp
BEQ

(R1)+,(R2)+
2%

INC
MOV

MOV

SuB
JSR
(mMp
MOV

135312
177177
000200

2%:
1%:

R4 ,-(5P)

MOV
Mov
MOV
MOV
MOV

MOV

001124
001126
004602

RO.,af#(OMPAR

MOV

043550
043552
043554
0463556

1648
1649
1650
1651
1652
1653
1654

JSR

a'
;Y

639
640
641
642

GOOD DATA BUFFER ADDRESS
TEST DATA BUFFER ADDRESS
ADDRFSS OF RETURN ON ERROR
NUMBER OF WORDS TO BE COMPARED
ONE MORE THAN NUMBER Of WORDS 10 BE COMPARED

HAS
HAS
HAS
HAS
HAS

BIC
(MP
BEQ
DEC
BNE

R4
R4 ,INERWORD

-(R1),3#8GDDAT

=(R2),a#8BDDAT

R3,AFERWORD
PC,aRS
(R1)+,(R2)+
aSWR,-(SP)

#4600, (SP)
#SW07,(SP)¢
3%
RS
1%

:ADDRESS OF GOOD DATA
;ADDRESS Of TEST DATA
;NUMBER OF WORDS TO BE COMPARED
;RETURN ON ERROR
;RETURN ON NO ERROR

::PUSH R1 ON STA(K
:;PUSH R2 ON STA(CK

::PUSH R3 ON STACK

;:;PUSH R4 ON STACK
::PUSH RS ON STACK
:ADDRESS OF GOOD DATA BUFFER
:ADDRESS OF TEST DATA BUFFER
:NO OF WORDS 10 BE COMPARED
:RETURN ON ERROR
;RETURN ON NO ERROR

:NO OF WORDS TO BE C(OMPARED
:FOR ERROR WORD NO

; COMPARE GOOD WITH TEST DATA
;BRANCH 1F GOOD

:600D DATA
;BAD DATA
;ERROR WORD NO.
;RETURN TO PRINT ERROR

;UNDO -(R1) AND =-(R2) iOR ERRORS
;GET SWITCH SETVING
;KEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND 8 RESET
;BRANCH OUT

YES

; COUNT
;BRANCH JF ALL NOT DEVICE

MoV

(SP)+,RS

::POP STACK

INTO RS

MOV
MOV
MOV
RT1S

(SP)+,R}Y
(SP)+,R?2
(SP)+ R
RO

::POP STACK

INTO R3

MOV

(SP)+ R4

;POP STACK

:;POP STACK
::POP STACK

INTO R4

INTO R?
INTO R

;RETURN T0O MAIN PROGRAM

0, RPO4/S/6 FCTINL CTLRY
PN
28-MAR-79 09:03

3
1
MACY1Y 30A(1052)
25-MAY-79 10:30 PAGE 242
JAM CURRENT CYLINDER ROUTINE

M
o
043660

063660
043664

063740

002300

0637646
043752

106401
000425

043754

044026

004737

045734

044034
06440640
064064
044052
044056
044060

012700
012701
012737
021637
001407
005776

002270
000026
044644
002300

104412

044070
044072
044074

061620
005301
001375

002300

044076
044102

104401
000617

044104

0446142
044142

013746

002266

046150
044154

1066401
000437

044156

044076

066146

044254
0642564

064256
044262
0464266
064324

104402

104412

012637
1064401
000416

044340

oss.

013746

002266

0644602
0464606

106401
000417

046410

,65%
;:TYPE ASCIZ STRING
64%
;:GET OVER THE ASCIZ
<15><12>/PRESENT BASE ADDRESS OF REGISTERS IS

MOV

D#RHCST,=-(SP)

TYPE
B8R
JASCIZ

67$
,,TYPE ASCIZ STRING
6
:GET OVER THE ASCIZ
<15><12>/TYPE NEW BASE ADDRESS FOLLOWED BY '(CR' /

JSR

PC,aNSTKINT

;INITIALIZE THE TTY KEYBOARD

MOV
MOV
MOV
(mp
8EQ
181

#RHDB,RO
#22.,R1
FADTIMO,an&
aSP,afRHCST
1%
a0{sP)

;GET STARTING ADDRESS OF REGISTERS
:NUMBER OF REGISTERS
:SET TRAP CATCHER 10 CHECK THIS ADDRESS
:NEW ADDRESS?
:NO, OLD ONE JUST RETYPED.
;0K, SO ACCESS THIS NEW ADDRESS

ADD
DEC
BNE

aSP, (RO)+
R1
2%

AND PLUG IT IN.
:ONE LESS REGISTER 10 GO
:BUT WE'RE NOT DONE YET.

TYPE
BR

,69%
68%

;s TYPE ASCIZ STRING
;:GET OVER THE ASC]Z

MOV

3#RPVE(C ,-(SP)

:GET READY TO TYPE OLD VECTOR ADDRESS

TYPE
BR
LASCIZ

::TYPE ASCIZ STRING
ALY
:;GEY OVER THE ASCIZ
70%
<15><12>/TYFE NEW VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED BY "'CRTM /

SuB

LASCIZ

TYPOC

72%:

RDOCT

MOV
TYPE
BR

76%:

:GET THE ADDRESS OFFSET

<15><12>/PRESENT VECTOR ADDRESS IS /

(SP)+,a#RPVEC
,73%
72%

;SETUP VECTOR ADDRESS
::TYPE ASCIZ STRING
::GET OVER THE ASCI2

<15><12>/NEW BASE WILL REMAIN

Mov

AFRH(SY,=(SP)

TYPE
BR

,15%
74%

::TYPE ASCIZ STRING
::GET OVER THE ASCI2

JASCIZ

<15><12>/NEW VECTOR WiLL REMAIN - /

MOV

S8#RPVEC,=(SP)

TYPE
BR

178
76%

TYPOC

;2778

9#RH(S1 ,asSP

UASCIZ

:GET READY TO TYPE OLD BASE

LASCIZ

1YPOC

2758

066376

104402

1%:

20738

106401
000416

04646400

2%:

002266
044270

044332
0464336
044374

000004

70%:

002300

104402

TYPE
BR
ASCIZ

RDOCT

22718

0137646

044330

665.

:69%:

044324

THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE
ADDRESS FROM 176700 1O ANY TYPED VALUE

1YPOC

000000

163716

064064

6469%:

:678:

066026
0644032

NNNNNNNSNNNNNNNNNNNYNN

0658

013746
104402

BASECH:

043666

063740
0643744

(=]
POPNVRINONUNORORNONINY
— et et et b b =P od b
OO NOWNWER WM
= OO0V~
WV
—O 0

104401
000425

SEQ 0241

;:TYPE ASCIZ STRING
::GET OVER THE ASCI2

<15><12>/UNTIL PROGRAM 1S RELOADED./

IV IV VIV 0

ONOVE WOV

NO NS WOV

T T TP

T TP T

W=~

[

o
NNNNNNNNNNNNNNNNNNNNNNNNNNNNN

s
D
D
e
D el e e
il e el il d
B o e
d ol e
D i ol o
) el
D il il d s il
el
il
) D i e
o i e el
i
e
i
e
ol
e
sl el il il o
il ol Al o

0., RPO4/S/6 FCINL CTLRY
P11
28-MAR-79 09:03

0444466

064466
04446452

044460

066460
04644646

044536
04644536
044542
044620
0644620
064624
0464626

044632

0464640

044640
044644
066644
044650

044726

044726
044730

1064407

000402

104401

000424

104407
000426
012746

104402
104401

000402

0446454

044466

30A(1052)

044544

76%:
So79%:
78%:

80%:

;:83%:

000200

82%:

::85%:

104401
000426

044652

84%:

ADTIMO:

006598

669

043660

T(PE

BR
LASCIZ

10:30

TYPE

,19%

78%
<15><12>/

PAGE 243

SEQ 0242

;3 TYPE ASCIZ STRING
/

::GET OVER

THE

ASCIZ

BR
ASCIZ

208
::GET OVER THE ASCIZ
<15><12>/UNLESS HALTED AND MANUALLY RESTARTED,/

,B81%

;. TYPE ASCIZ STRING

TYPE
BR

.85%
82%

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

MOV

#RA,~-(SP)

849%

JMp

aNBEGIN

sRESTART,

TYPE
BR

,65%
64%

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

c(mp
JMP

(SP)+,(SP)¢
a¥#BASECH

;RESTORE THE STA(K
;AND DO THE WHOLE THING AGAIN

JASCIZ

1YPOC
TYPE

044634

005012

25-MAY-79

JAM CURRENT CYLINDER ROUTINE

;818

000137

022626
000137

MACY11

LASCIZ

<15><12>/PROGRAM WILL AUTOMAT]ICALLY RESTART FROM /

.85%

<15><12>/

s TYPE ASCIZ STRING
/

;:GET OVER THE ASCIZ
TO RUN ALL DRIVES

<15><12><377>/THE SELECTED ADDRESS DID NOT RESPOND'

C%SJIDO. RP0O4/5/7/6 FCINL CTLRY

CZRJ1D.PNN

28-MAR-79 09:03

MACY1Y 30A(1052)

11760
11761

064734

11765

0447664

11766

11767
11768
11769

11770
M7
11772
11773

044734
0447640
064764

044766
044774

106401
000411
104402

012777
000000

RPVEC(T:

044742

;:65%:

64%:

044734

10:30

JAM CURRENT CYLINDER ROUTINE

11799

11762
11763
11764

25-MAY-79

135272

T1YPE
BR
LASCIZ
TYPOC

MOV
HALT

PAGE 24&

SEQ 0243
R R

ARl

,65%
;s TYPE ASCIZ STRING
649
;:GET OVER THE ASCIZ
/TRAPED FROM PC = /

#RPVECT ,SRPVEC

;TYPE FROM P(

;RESTORE TRAP RPO& VECTOR
;CHANGE TO CONTINUE

R ARt
ns

MACY11

25-MAY-79

SCOPE HANDLER ROUTINE

22 X

10:30

3
PAGE 265

SEQ 0244

SCOPE HANDLER ROUTINE
X

R X

R XXX R

XXX ZXENRRZNZZSRNSASARAZAASANS
AR AR SRR RN A

:*THIS ROUTINE CONTROLS THE LOOPING OF

SUBTESTS.

IT WILL INCREMENT

;*AND LOAD THE TEST NUMBER‘STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW14=]
LOOP ON TEST
INHIBIT ITERATIONS
SeSWl1=1
. *SW09=1
LOOP ON ERROR

NN -0
NN — o000 NOWVMEB NN =2 OO0~

OBV

W= OV

NS WO 00 NO WV

NORNUPURNOPUTUNININI
N = et
b e b —d b oed b eJolololelololole)

0o 0o 0o OB 0o OB Co On 0o 0o OB 0o 0O OO OO O Go 0o O OB

30A(1052)
.SBTTL

-~
AV ]

fld“dd—‘-—.—.—.—.—.—.—.—‘_fl—..‘-—l—.—‘—l—l-‘—l—.-.—.—.-A-‘-.-‘—.—.—‘—‘—‘—‘—._‘—‘d—‘—._‘-fl-‘_‘-‘—.-‘daddd
et d e e e e o e ed e
) i D e e
i D ) h i i ol el i i i o D A i il D i s i D oD il el D D o el ol e e e e
PR
>
D el
ot
N

CIRJIDO, RPO&L/5/6 FCTINL CTLR]
CZRJID.P
28-MAR-79 09:03

LOOP ON TEST IN SWR<7:0>

. *SW08=1
s*CALL

Pe
044776
044776
045000
045006

032777
(VARRR!

045010

000416

045012
045016
045024
045030
045034
045036
045040
045044
045066
045046
045054
045056
045064
045066
045072
045074
045102
045104
045112
045114
045122
065124

013746
012737
005737
012637
000463
022626
012637
000423

000004
045036
177060
000004

032777
001404
127737
001462

000400

134064

134056

001102

045130
045134
045136
045144
065146
045152
045154
045160
045166
045170
045176
045204
045210

104407

105737

001421
123737
101015

032777
001404
013737
000443
105037
005037
000415
032777
001011

$SCOPE:

040000

134132

1%:

(K SWkK

BIT

BNE

SNANAASTART

$XTSTR: BR
000004

001103

001115

001103

001000

134026

001110

001106

001103
001212
004000

133774

001100
001104
001212

000001
045246
001102
001106

001104
001104
001212

MOV
MOV
1S7
MOV
BR

#BIT14,35WR

SOVER

CODE

FOR

THE

XOR

OF#ERRVEC,-(SP)
#5% ,9#ERRVE(
af177060
(SP)+ ,a#ERRVEC
$SVLAD

FOR CHANGE [N SOFT-SWR
::TEST
;:LOOP ON PRESENT TEST?
;. YES 1F SW14=1

TESTERANAAR

::1F RUNNING ON THE ''XOR'' TESTER (HANGE

;:THIS INSTRUCTION TO A ''NOP'" (NOP=240)
;:SAVE THE C(ONTENTS OF THE ERROR VECTOR
:+SET FOR TIMEOUT
:;TIME OUT ON XOR?
..RESTORE THE ERROR VECTOR
::60 TO THE NEXT TEST

::CLEAR THE STACK AFTER A TIME QUT
(SP)+,(SP)+
:‘RESTORE THE ERROR VECTOR
(SP)+ ,afERRVEC
::LOOP ON THE PRESENT TEST
7%
BR
TESTERNANAN
XOR
THE
FOR
6%:;ANNNNEND OF CODE
::LO0P ON SPEC. TEST?
#B1708,35WR
BIT
;:BR If NO
2%
BEQ
SWR<7:0>
;:ON THE RIGHT TEST?
aSWR,$TSTNM
(MPB
;:BR IF YES
SOVER
BEQ
;:;HAS AN ERROR OCCURRED?
SERFLG
1518
2%.
BEQ
3%
::BR IF NO
(MPB
SERMAX,SERFLG
::MAX, ERRORS FOR THIS TEST QCCURRED?
;:BR IF NO
3%
BHI
; ;LOOP ON ERROR?
#B1709,35WR
BT
;:BR IF NO
43
BEQ
LOOP ADDRESS TO LAST SCOPE
::SET
SLPERR,SLPADR
MOV
7%:
$OVER
B8R
(%
CLRB
$ERFLG
;IERO THE ERROR FLAG
;CLEAR THE NUMBER OF ITERATAONS 10 MAKE
$STIMES
CLR
..ESCAPE TO THE NEXT TEST
1%
BR
..lNHlBlT ITERATIONS?
#BIT11,a5WR
BIT
3%:
BNE
1%
:BR IF YES
.,IF FIRST PASS OF PROGRAM
$PASS
181
INHIBIT ITERATIONS
HH
1%
BEQ
ITERATION COUNT
..INCREHENT
$1ONT
INC
OF 1TERATIONS MADE
NUMBER
THE
;CHECK
$STIMES,$1CNT
(mp
:;BR 1F MORE ITERATION REQUIRED
$OVER
BGE
:sREINITIALIZE THE JTERATION COUNTER
#1,810NT
MOV
1%:
::SET NUMBER OF ITERATIONS T0 DO
SMXCNT,STIMES
MoV
;;COUNT TEST NUMBERS
$TSTNM
$SVLAD: INCB
::SAVE SCOPE LOOP ADDRESS
(SP),SLPADR
MOV
5%:

000004

;:SCOPE=101

SCOPE

cMp

MOV

Cl RJIDO, RPO4/5/6 FCTINL CTLRY

CIZRJ1D.PVY
11830
11831
11832
11833
11836
11835
11836

045214
045220
045224
045232
045240
0452644
045246

28-MAR-79 09:03
011637
005037

112737
013777
013716
000002
(G00004

001110
001214
000001
001102
001106

MACYT1 30A(1052)

25-MAY-79

SCOPE HANDLER ROUTINE

001115
133702

MOv
(LR

MOvB
MOV
MOv
RT]
SMXCNT: 4

SOVER:

10:30

PAGE 246

(SP) ,SLPERR
SESCAPE
N1, SERMAX
$STSTNM, BDISPLAY
SLPADR, (SP}

::SAVE ERROR LOOP ADDRESS
:;CLEAR THE ESCAPE FROM ERROR ADDRESS

;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER
;;FUDGE RETURN ADDRESS
s FIXES PS
;;MAX. NUMBER OF JTERATIONS

SEQ 0245

—

0, RPO&/S5/6 FCINL CTLRY

P11

28-MAR-79 09:03

MACY1Y1

30A(1052)

25-MAY=79

10:30

3
PAGE 247

CONVERT BINARY TO DECIMAL AND TYPt ROUTINE
LSBTTL

CONVERT BINARY T0 DECIMAL AND TYPE ROUTINE

SRR

SEQ 0246

RSRZZXSRXSERRRENRRAZSAZEAZZEARZARAREARSEA
AR SN 202N/

'THIS ROUTINE IS USED TO CHANGE A 16-B]T BINARY NUMBER T0 A 5-DIGIT
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE

:'NUHBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
:*BEFORE THE FIRSY DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;*REPLACED WITH SPACES.

;*CALL:

045250

045250
045252
0452564
045256
045260
045262
045266
045272
0645274
045276
045304
045306
045312
045316
045320
045324
0645326

045330
045332
045334
045336
0645340
045342

045344
045346
045350

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000
012703
112723
005002
016001
160105
002402

$TYPDS:

020200
000020

000055

045464
000040

4%:

5%:

116663
052702

000001
000060

045374
045400
045402

020027
002746
003002

000010

0645606
045410
045412
065614
045422

000764
105726
100003
116663
105013

045404

0645424
065426
045430

1%:

005202
000774
060105
005702
001002
105716

100407
106316
103003

052702
110223
005720

1%:
2%:

045454

045352
045360

045364
045370
045372

000001

177777

6%:

7%:

000040

NUM, - (SP)

::PUT THE BINARY NUMBER ON THE

MOV
mMov
MoV
MOV
MOV
MOV
MoV
BPL
NEG
MOvB
CLR
MOV
MOVB
CLR
MOV
SUB
BLY

RO,-(SP)
R1,=(5P)
R2,-(SP)
R3,-(SP)
RS,=(SP)
#20200,-(SP)
20(SP) RS
1%
RS
#'-,1(5P)
RO
#$DBLK ,R3
#' (R3¢
R2
$DIBL(RO) ,R1
R1,RS
4%

:;PUSH RO ON STA(CK
::PUSH R1 ON STACK
;;PUSH R2 ON STACK
;:PUSH R3 ON STA(K
:sPUSH RS ON STACK
::SET BLANK SWITCH AND SIGN
::GET THE INPUT NUMBER
;:BR IF INPUT IS POS.
::MAKE THE BINARY NUMBER POS.
::MAKE THE ASCI] NUMBER NEG.
::lERDO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER
::SET THE FIRST CHARACTER TO A BLANK
;:CLEAR THE BCD NUMBER
::GET THE CONSTANT
;;FORM THIS BCD DIGIT
::BR IF DONE

TYPDS

INC
BR
ADD

151
BNE
T¢18

BM]
ASLB
BCC
MOVB
BIS

B1S
MOVB
151
cmp
BLT
BGT

MOV

010502

012605
012603
012602

MOV

8%:
177777

177776

9%:

BR
1518
BPL
MOVB
CLRB

MOV
MoV
MoV

RC
3%
R1,RS
R?
5%
(SP)

7%
(SP)
6%
1(SP),=1(R3)
#'0,R2

" LR2
R2,(R3)+
(RO)+
RO,#10
2%
8%

RS5,R2

6%
(SP)+
9%
=1(SP),=2(R3)
(R3)

(SP)+,RS
(SP)+,R3
(SP)+,R?

::60 T0 THE ROUTINE

STA(K

::INCREASE THE BCD DIGIT BY 1
;;ADD BACK THE CONSTANT

;;CHECK JF BCD DIGIT=0
::FALL THROUGH IF O
:3STILL DOING LEADING 0°'S?
;:BR IF YES
;. MSD"
;:BR .F NO

s YES==SET THE SIGN
; sMAKE THE BCD DIGIT ASCII

::MAKE 1T A SPACE IF NOT ALREADY A DIGIT
;sPUT THIS CHARACTER IN THE OUTPUT BUFFER
;s JUST INCREMENTING
;:CHECK THE TABLE INDEX
;:G0 DO THE NEXT DIGIT
;:60 10 EXIT

::GET THE LSD

::G0 CHANGE TO ASCII
::WAS THE LSD THE FIRST NON-ZEROQ?
::BR 1F NO

;s YES==SET THE SIGN FOR TYPING
::SET THE TERMINATOR
;;POP STACK INTO RS
; ;POP STACK INTO R3
:;POP STACK INTO R?

(IRJI1IDO, RPOL/S/6 FCINL CTL
CIRJ1D.PVY
28-MAR-79 0

065632
045434
045436
065642
045450
045452
045454
045456
045460
045462
0465464

012601
012600
104401
016666
012616
000002
023420
001750
000144
000012

000004

000002

MACYT1

000004

&
30AC1052)
25-MAY-79
10:30
PAGE 248
CONVERT BINARY TO DECIMAL AND TYPc ROUTINE
8

MOv
mov
TYPE
Mov
Mov

RT1
10000.
1000.
100.
10.
.BLKW

(SP)+ R1
(SP)+,RO

2(SP),&(SP)
(SP)+,(SP)

;;POP STACK INTO R
:;POP STACK INTO RO

;:NOW TYPE THE NUMBER
::ADJUST THE STACK

J:RETURN 10 USER

SEQ 0247

CIRJIDO, RPO&L/S/6 FCINL CTLRY
PN
28-MAR-79 09:03

MACY11

30A(1052)

25-MAY-79

.SBTTL

TYPE ROUTINE

10:30

PAGE 249

SEQ 0248

";'t""""""""""""""""""""""""""'IQ'I".'

;*ROUTINE TO TYPE ASC1Z MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE,
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
;*NOTE:
SNULL CONTAINS THE CHARACTER T0 BE USED AS THE FILLER C(HARACTER.

V00000000 VOO0V OOVOOOVOOVOVOVOOOVOOVOOVOO
LA V]IV V] AN AN NN NI NI NI PO PRI NINI NS b et st ol e el st et O
OV ~
~NO W PN
OODNO NS NN OOV NO NS NN =O 0

908

941
9

;*NOTEZ:
;*NOTE3:

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

seCALL:

:*1) USING A TRAP INSTRUCTION

o
;*0R

ot
;e

TYPE

LMESADR

JsMESADR

FIRST

ADDRESS OF

$TPFLG
1%

:;1S THERE A TERMINAL?
;:BR IF YES
:oHALT HERE IF NO TERM]INAL

AN ASCIZ

STRING

TYPE
MESADR

045474
045500
045502
045504
045506
045510
045514
045516
045520
045522
045524

045530
045532
045536

045540

105737

163002
000000
000407

010046
017600

112046

001005
005726
012600
062716
000002
122716
001430
122716

045544
045546
045550
045552
045554
045560
045562
045566
045572
045574

001006
005726

045600
045604
045606
045612
045616

105366

001157

$TYPE:

HALT

000002

000011

045644
061156

001350
013746

2%:

move
BNE

(RO)+,-(SP)
4%

:;PUSH CHARACTER TO BE TYPED ONTO SiACK
::BR IF 1T ISN'T THE TERMINATOR

(SP)+,RO

;sRESTORE R0

002770
004737

MoV
1ST

60%:

MOV

4%:

RTI
(MPB

5¢:

6%:

001154
7%:

045644
045710

000040
045644

000007

(SP)+

ADD

#2,(SP)

FHT, (SP)

:;1F

TERMINATOR POP

1T OFF

THE

; ;RETURN
::BRANCH IF

<HT>

NOT <(CRLF>

(SP)+

:;POP
;:TYPE

CLRB
BR

$CHARCNT
2%

::CLEAR CHARACTER COUNT
::GET NEXT CHARACTER

(mpPB

$FILLC,(SP)¢

:31S 17 TIME FOR FILLER CMARS.?

MOV

$NULL ,~(SP)

DECB

1(SP)

JSR

BNE

PC,STYPEC
2%

STACK

::ADJUST RETURN P

;:BRANCH IF

<CR><LF> EQUIV
A CR AND LF

;.60 TYPE THIS CHARACTER

::1F NO GO GET NEXT (HAR.
::GET # OF FILLER CMARS.
;s AND THE NULL CHAR.
::DOES A NULL NEED 10 BE

NEEDED

TYPED?

BLT

::BR IF NO-=-GO POP THE NULL OFF OF

DE(B

$CHARCNT

::00 NOT COUNT AS A COUNT

B8R

045710

::GET ADDRESS OF ASCIZ STRING

8%
#CRLF, (SP)
5%

JSR

8%:
9%:

;s SAVE RO

BEQ
(MPB
BNE

:HORIZONTAL

045620
045624
045630
045636
045640

82(SP),R0O

TS7
TYPE
$CRLF

000001

s LEAVE

RO,-(SP)

104401

123726

MOV

000200

045710

B8R

1% :

000002

001223
105037

000755
004737

T1S18B
BPL

MOVB
JSR

PC,OTYPEC

A NULL

;.L00P

TAB PROCESSOR

8118

P L0SP)
PC,9TYPEC
#7,8CHARCNT

161

(SP)e

BNE

;:G0 TYPE

;:REPLACE TAB WITH SPA(E
::TYPE A SPACE
; ;BRANCH ]F

;. VTAB STOP

NOT

;s POP SPACE OFF

STA(K

STACK

CIRJIDO, RPO&L/S/6 FCINL CTLR)
CZRJ1D.PYY
28-MAR-79 09:03
11960
11961
11962
11963
11964
11965
11966
11967
11968
11969
11970
11971
}}g;%

045642
045644
045650
065652
045660
045666
045670
045674
045676
045704
045706
045710
045712

000724
105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

MACY11

133300
000002
000015

BR
1518
BPL
MovB
(mPB
BNE
CLRB
BR
1%:
(mPB
BEQ
INCB
$CHARCNT: .WORD
$TYPEX: RIS
$TyPeC:

133272
000002

045710
000012

30AC1052)
25-MAY=79
TYPE ROUTINE

000002

10:30

23
83T1PS
STYPEC
2(SP) ,a$1PB
#CR,2(SP)
1%
$CHARCNT
$TYPEX
MLE,2(SP)
STYPEX
(PC)+
0
PC

D &

PAGE 250
:.0ET NEXT CHARACTER
;;WAIT UNTIL PRINTER

SEQ 0249
IS READY

:;LOAD CHAR TO BE TYPED INTO DATA REG.
;:1S CHARACTER A CARRIAGE RETURN?
; ;BRANCH IF NO
,,YES--CLEAR CHARACTER COUNT
JEXTT
$:1S CHARACTER A LINE FEED?
: ;BRANCH 1F YES
;s COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

PO&/S5/6 FCINL CTLR]

28-MAR-79 09:03

MACY11

30AC1052)
TTY

INPUT

LSBTTL

25-MAY-79

ROUTINE

TTY

10:30

&
PAGE 251

SEQ 0250

INPUT ROUTINE

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

.ENABL
LSB
$TXCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRY: .BLKB
$TKQEND=.
.EVEN

000000
000000
000000
000011
045733
045734

O
O
O(
9.

;NUMBER OF ITEMS IN QUEUE
;s INPUT POINTER
;;OUTPUT POINTER
;. TTY KEYBOARD QUEUE

;1K INITIALIZE ROUTINE
:*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE

;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

;*CALL:

045734
045740
045746
045754
045762
045770
045774
046002

$TKINT:

JSR
RETURN

PC,STKINT

CLR

$TKCNT

$TKQIN,$TKQOUT
;:;QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRV,A#TKVEC ;;INITIALIZE THE KEYBOARD VECTOR
#200,a#TKVEC+2
;;''BR" LEVEL &

#100,3%7k$S

045714
045722
045716
046004
000200

000062

MoV
MoV
MoV

000100

133142

MoV

133152

045716
045720
000060

mMov

RTS

;*TK

;:CLEAR COUNT OF

ITEMS IN QUEUE

#STKQSRY,S$TKQIN ;;MOVE THE STARTING ADDRESS OF THE

33TkB

::CLEAR DONE

;;RETURN TO CALLER

SERVICE ROUTINE

;*THIS ROUTINE WILL SERVICE THE

FLAG

:;ENABLE TTY KEYBOARD INTERRUPT

T1Y KEYBOARD INTERRUPT

;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:*17T IN THE QUEUE.
;¢lF THE CHARACTER IS A ""CONTROL=C'' (*C) STKINT

IS CALLED AND

et e

ol ol ol o

O 0V0B~NO
NI
N —

[=]lelelolelelelolols]

000

roron
f V. 1\¥

i
D
il
i
)
) ol —
—

NN NN
oo NN

;*UPON RETURN EXIT IS MADE TO THE ''CONTROL-C'' RESTART ADDRESS (OPERS{L)

12025
12026
12027
12028
12029

046004
046010
046014
046020
046022
046026

117746

042716
021627
001007
104401

046032
046034
046040
046044
046046
046054

004737
005726
000137
021627
001004
022737
001500

046056
046056
046064
046066
046072
046074
046076
066102

022737
001004
104401
005726
000451
021627
001021

133136
177600

000003

046773
045734
062650
000007
000176

001140

000011

045714

$TKSRV: MOVB
BIC
Cmp
BNE
TYPE
JSR
TS
JMP
1$:
(Mp
BNE
(mp
BEQ
2%:

BNE

TYPE
Ts81

001216
000023

(mp

3%:

BR
(mp
BNt

a$TkB, - (SP)
#4C177,(5P)
(SP),#3
1%
LJOONTLC
PC,.STKINT
(SP)«
OPERSEL
(SP), &7
2%
#SWREG, SWR
6%
¥9,,8TK(NT

::PICKUP THE C(HARACTER
::STRIP THE JUNK
;19 1T A CONTROL C?
;:BRANCH IF NO
::TYPE A CONTROL=-C (*0)
;:INIT THE KEYBOARD
;s CLEAN UP STACK
;s CONTROL € RESTART
;1S IT A CONTROL G?

;;BRANCH IF NO
;1S SOFT-SWR SELECTED?

;.63 TO SWR C(HANGE

;:1S THE QUEUE FuLL?

b3 3

;:BRANCH IFf NO

5%
(SP),#23
32%

EXTT
;1S 1T A CONTROL=-S?
; ;BRANCH [F NO

LIBELL
(SP)+

;;RING THE TTY BELL
::CLEAN CHARACTER OFF

STA(K

CIRJIDO, RPO&/5/6 FCINL CTLRY
CIRJID.P 1
28-MAR-79 09:03
12030
12031
12032
12033
12034
12035
12036
12037
12038

12039
12040

12061
12042
12043
12044
12045
12046
12047
12048
12049
12050
12051
12052
12053
12054
12055
12056
12057

12058

12059
12060
12061
12062
12063
12064
12065
12066
12067
12068
12069
12070
12071
12072

046104
046110
046112
046116
046120
046124
046130
046134
046136
046144

046146
066152
046156
046160
046164
046166
046172
046176
046202
046210
046212
046220

005077
005726
105777

100375
117746

042716
022627
001366
012777
000002
005237
021627
002405
021627
003002
042716
112677

005237
023727
001003
012737
000002

133026

31%:

000021

000100

32%:

000175
000040
177520
045716
045716

045733

045722

045716

4%:

asTKs
s

;:WALT FOR A CHAR
;;L00P UNTIL ITS THERE

(SP)+

;:GET THE CHARACTER
::MAKE 1T 7-BIT ASCII

:;BRANCH IF NO

(SP)+ 921

;1S

INC
(mp
BLT
(mp
BGT
BIC

$TXCNT
(SP), 7140
4%
(SP) .75
4%
#40,(SP)

INC
cmp

$TKQIN
$STKQIN,#STKQEND

MOV
RTI

#STKQSRT,STKQIN

INTERRUPTS

STACK

8dT1KB,-(SP)
#°C177,(SP)
#100,8%7kS

RT]

TTY KEYBOARD

;:CLEAN CHAR OFFf

MOV

BNE

SEQ 0251

1518
BPL

MOVB

5% :

PAGE 252
2:DISABLE

cmp

045714
000140

8% 7ks

157

BNE

133000

10:30

CLR

MOovB
BIC

133022

177600

1T A CONTROL=-Q?

:;REENABLE

TTY

: sRETURN

KEYBOARD

INTERRUPTS

;;COUNT THIS CHARACTER
::1S 1T UPPER CASE?
;;BRANCH ]F YES
;:1S IT A SPECIAL (HAR?
; ;BRANCH IF YES
;:MAKE 1T UPPER CASE

(SP)+,a$TKQIN

;:AND PUT

:;UPDATE
; ;GO OFF

THE
THE

:;BRANCH [F

;;RESET THE
; ;RETURN

]N QUEUE

POINTER
END?

POINTER

2233232222222 22402332222232222243222223222322222232322222222R2R0
8]

'SOFTUARE SWITCH REGISTER CHANGE ROUTINE.

:*ROUTINE

1S ENTERED

FROM THE

TRAP HANDLER,

AND WILL

S¢SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
066222
046230
046232
046236
0462640
046244
046250
046254

022737
001124
105777
100121
117746

042716
021627
001300

000176

001140

;*CALL WHEN OPERATING

$CKSWR:

132706

IN TTY

(CMP
BNE
1518

#SWREG, SWR
15%
a%1kKsS

Mov8

a$1kB,-(SP)

BPL

132702
177600
000007

BIC
(MP
BNE

INTERRUPT MODE.

15¢%

¥2C177,(5P)
(SP), #7
2%

::1S THE SOFT-SWR SELECTED
;o EXIT IF NOT
::1S A CHAR WAITING?

;o
1F NOT, EXIT
I YES

s:MAKE 1T
7-BIT ASClI
;1S 1T A CONTROL-G?
;o
1F NOT, PUT IT IN THE TTY QUEUE
;. AND

EXIT

R
R
R R
R Ry

;*CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
;*ROUTINE OR FROM THE

001134

12074
12075
12076
12077

123727
001674
005726
004737
005077
112737

12079
12080
12081
12082
12083
12084
12085

046306
046312
046316
066322
046324
046330
046332

104401
104401

047005
047012
000176

12078

30A(1052)
25-MAY-79
TTY INPUT ROUTINE

133034

046256
046264
046266
046270
046274
046300

12073

MACY11

013746
1046402
104401

005046
005046

000001

6%:

047023

SWITCH REGISTER TRAP CALL,

AS A RESULT OF

(MPB
BEQ

$AUTOB, #1
2%

;;ARE WE RUNNING IN AUTO-MODE?
::BRANCH IF YES

JSR
CLR
MOvVB

PC,OTKINT
a%7KS
#1,8INTAG

::FLUSH THE TTY INPUT QUEUE
;:DISABLE TTY KEYBOARD INTERRUPTS
;:SET INTERRUPT MODE INDICATOR

TYPE

TS1

045734
132644
000001

SOFTWARE

;*(ONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGXSTER BEING SELECTED.

001135

$GTSWR:

19¢:

TYPE
MOV

TYPOC
TYPE
(LR
(LR

(SP)+

::CLEAR CONTROL=G OFF

STACK

LOONTLG

;;ECHO THE

(*G)

,OMNEW
-{SP)
-(SP)

;.60 TYPE-=-OCTAL ASCIIC(ALL DIGITS)
;:PROMPT FOR NEW SWR
;. CLEAR COUNTER
;. THE NEW SWR

LSMSWR
SWREG,-(SP)

CONTROL=-G

:;TYPE CURRENT CONTENTS
;:SAVE SWREG FOR TYPEQUT

CIRJIDO, RPO4L/S/6 FCTINL CTLRI
28-MAR-79 09:03
(ZRJ1D.PN
12086
12087
12088
12089
12090
12091
12092
12093
12094
12095
12096

12097

105777
100375

132604

046342
046346

117746

046352
046356
046360
046364
046370
046376
046400
046406

021627
001015

0466412
046416
046420
066424
046430

021627
001005

046432
046436
046440
046444
046446
046454
046460

021627
001022
005766
001403
016677
062706

0466472
066474
046502
046504
046510
046514
046516
066522
066524
046530
0646534
046536
046540
046542
046544
046550
066554
046556
0466562

001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000667

066464

042716

104401

062706
123727
001003
012777
000137

104401

062706
000737

104401
123727

104401

000720

30A(C1052)
TTY

INPUT

7%:

25-MAY-79

ROUTINE

10:30

PAGE 2>3

SEQ 0252

::CHAR THERE?

1518
BPL

a%1xs
7%

::1F

132600
177600

Mmove

a%1«kB,-(SP)
#AC177,(SP)

;:P1CK UP (HAR
;sMAKE IT 7-BIT ASCII

000003

(mp
BNE

(SP) ,#3

;1S 1T A CONTROL=-C?
::;BRANCKH IF NOT
;:YES, ECHO CONTROL-C (*(C)
;;CLEAN UP STACK
::REENABLE TTY KEYBOARD INTERRUPTS?
::BRANCH IF NO
::ALLOW TTY KEYBOARD INTERRUPTS
; s CONTROL=C RESTART

046773
000006
001135
000100
042650

BIC

TYPE
ADD
CMPB

000001

BNE

132536

MOV

JMP

000025

9%:

047000
000006

20%:

000015

108:

000004
132464

000002
000006
001223
001135

000001

000100

132442

0465644
000060

CMP

BNE
TYPE
ADD

B8R

(mp
BNE
157
BEQ

001222

18%:

.DSABL

(SP),#15

16%

22185 1T A <CR>?
: ;BRANCH IF NO

JSR
(mp
BLT
(mMP
861
BIC
181
Bta

PC,$TYPEC

; ;ECHO CMHAR

ASL

000002
177776

LSONTLY

¥6,SP
19%

;1S 1T A CONTROL-U?
; ;BRANCH [F NOT
;:YES, ECHO CONTROL-U ("L}
:; IGNORE PREVIOUS INPUT
;;LET'S TRY IT AGAIN

15%
#100,9%7KS

15%:

17%:

(SP) ,#25

10%

M
SINTAG

MoV
RT1

000060
000002

M
$INTAG.
8%
#100,a87ks
OPERSEL

(MPB
BNE

11%:
164%:

000067

CJOONTLC

n6,SP

TRY AGAIN

::YES, IS 1T THE FIRST (HAR?
:;BRANCH IF YES
;;SAVE NEW SWR
::CLEAR UP STACK
:;ECHO <CR> AND <LF>
;;RE-ENABLE TTYy KBD INTERRUPTS?
::BRANCH IF NOT
::RE-ENABLE TTY KBD INTERRUPTS

Mov
ADD
TYPE

16%:

NOT

ASL
ASL

INC
BIS

LS8

4L(SP)
1%

2(SP),aSWR
¥6,SP

LSCRLF

(SP),#60

18%

(SP) ,#67

18%
#60, (SP)+

2(SP)
17%
(SP)
(SP)

(SP)

2(SP)
=2(SP),(SP)
7%

,SQUES
20%

: sRETURN

::CHAR < 0?7

; ;BRANCH 1F YES
::CHAR > 7?
::BRANCH If YES
;:STRIP=-OFF ASCII
::1S THIS THE FIRST (HAR
:;BRANCH IF YES
::NO, SHIFT PRESENT
(HAR OVER TO MAKE
M
ROOM FOR NEW ONE.
1
;:KEEP COUNT OF (HAR
::SET IN NEW CHAR
::GET THE NEXT ONE
::TYPE

2<CR><LE>

::STMULATE CONTROL~-U

ot o

i e

PN, VT VY N

Y T N

) e

D i e

D e e

il el

) e

D e

il il e el el il ol

D el e

£ 2N U UMM N N N N NN NI RO TO RO NININININ
b et b et s it 2 0 2 O O O OO
OOV
NO NS NN 2O OV N NS NN =00
NO WV W —~O000 oW

e e o

Y VY VY VY VY, V1 VY V7 VY VT, V7 V1 VY VT ST, N1, V1 VT V] OT T, N1, ST N1, C L VT VY N7 V1, V], ST, V]

12098

046334
046340

MACY11

':""l""""""""""".'I"""I'l""'.l""'."""'l..'

SeTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTy
;eCALL:

JIDO, RPO&/S/6 FCINL CTLRI
J10. P 1
28-MAR-79 09:03

MACY1Y1

30AC1052)
TTY

INPUT

.
e

25-MAY=79

ROUTINE

10:30

RDCHR
RETURN MHERE

OO OOV OO0V OO NNNNNNNNNSNOCOOCOCOTOCOCOOOOO
NWNWVWVNWMIINWNIN
~NONE
W= OO
NN
WM
2O OO N VNS NN 2O OO VNS WN =00~V
W
—=O

046564
046566
046574
046600
046602
046606
046610
046610
046614
046616
046622
046630
046634
046642
046644
046652

011646
016666
005066
005046
012746
000002

005737
001775
005337

117766

005237
023727
001003
012737
000002

000004
000004

000002

$SRDCHR:

046610

045714
177072
045720
045720
045722

045733
045720

BRI

. :PUSH DOWN THE PC AND

197

$TKCNT

:WAIT ON A CHARACTER

MOVB
INC
CMp

a®T1KQoUT,&(SP)
$1KQOUT

; ;DECREMENT THE COUNTER
;:GET ONE CHARACTER
:sUPDATE THE POINTER

BNE

MOV
RT1

2$:

:;GET A CHARACTER FROM THE QUEUE
:;CHARACTER IS ON THE STA(K
;;WITH PARITY BIT STRIPPED OFF

(SP),=-(5P)
4 (SP),2(5P)
& (SP)
-(SP)

BEQ
DEC

000004

SEQ 0253

MOV
MOV
(LR
(LR
MOV
RT1

64%:
1%:

045714

PAGE 254

#6469 ,-(SP)

1%
$TKCNT

;. THE PS

;;GET
;:PUT
;:PUT
;:POP

READY FOR A (HARACTER
NEW PS ON STACK
NEW PC ON STACK
NEW PC AND PS

$TXQOUT,#STKQEND ;;DID IT GO OFF OF THE END?
2%
; ;BRANCH ]F NO
#STKQSRT,$TKQOULT ;sRESET THE POINTER

s sRETURN

XXX X222t
RRRRRRRRl R RN

:*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

;eCALL:
o
[

ROLIN
RETURN HERE

066654
046656
046662
046666
046670

046672
046674
046700
046702
066706
046710
0646714
046720
0466724
046726
046732
0466736
066740
066742
046750
066756
0466760
046761
046762
046773
047000
047005
047012

$RDLIN: MOV
1%:

046762
046773

2%:

MOV

CMP
8LOS

NSTTYIN+G,
R
49

MOVB
{mMPB
BNE

(SP)+,(RY)
M77,(RY)
3%

RDCHR

000177

10%:

001222

4%:

046760
046760
000015

3%:

177777

000004
046762

MOVB
TYPE

TYPE

MOV
000002
000004
9%:

005015

TYPE

(MPB
BNE
CLRB

001224

000012
000
000012
020122

$TTYIN:
SCNTLC:
SCNTLU:
SCNTLG:
SMSWR:

RY,=-(SP)

#$TTYIN,R3Y

. SQUES

(RY),9%
,9%

; :GET ADDRESS
;sBUFFER FULL?
;:BR IF YES
;G0 READ ONE CHARACTER FROM THE TTy
;:GET CHARACTER
;1S 1T A RUBOUT
::SKIP IF NOT
;:TYPE

::CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

;;CHECK FOR RETURN
;:LOOP IF NOT RETURN

(SP)+,R}

::RESTORE R3
::ADJUST THE STACK AND PUT ADDRESS OF
FIRST ASCI] CHARACTER ON 17
MM

LSLF

(SP),-(SP)
4(SP),2(SP)
#STTYIN,L(SP)

LBYTE

BYTE
.BLXKB
LASCIZ
ASCIZ2
.ASCIZ
LASCIZ

::SAVE R3

#15,(R3)+
2%
=1(RY)

MOV
MOV
MoV
RTI

;;INPUT A STRING FROM THE TTY
;s ADDRESS OF FJRST CHARACTER WILL BE ON THE STA(K
:;TERMINATOR WILL BE A BYTE OF ALL 0'S

0
9.
/7%0/7<15<A1
>
/7%U/<A15<12>
/7%G/<15><12>
<15><12>/5uR

;CLEAR RETURN (THE 15)

;:TYPE A LINE FEED

:;RETURN

::STORAGE FOR ASCI] CHAR. TO TYPE
;s TERMINATOR

:;RESERVE 9. BYTES FOR 1Ty
::CONTROL ''C”
::CONTROL "'u"

::(ONTROL ''G""

INPUT

THE

—

CIRIIDO, RPO4L/5/6 FCINL CTLRY
CZRJID.PIY
28-MAR-79 09:03
12198
12199
12200
12201

047020
047023
047030

020075
0640
036440

000
0670640
000040

MACY1Y

30A(1052)
25-MAY=-79
1Ty INPUT ROUTINE

053505

SMNEw:

.ASCIZ

10:30

4
PAGE 2>5

SEQ 0254

NEW = /
;FROM THE

TTY

CIRJIDO, RPO&L/S/6 FCINL (TLRY
(ZRJID.PIN
28-MAR-79 09:03

MACY1Y

&
J
30A(1052)
25-MAY-79
10:30
PAGE 216
READ AN OCTAL NUMBER FROM THL TT1yY

SEQ 0255

12202

.SBTTL

12204

R
R
R N

12205
12206
12207
12208
12209

:*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
:*CHANGE [T TO BINARY,
;*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL
;*OCTAL DIGITS. IF AN JLLEGAL CHARACTER IS READ A '"?"" WwlLL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST

}%g}?

s*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARR]JAGE RETURN.

.*CALL:

12212
12213
}%S}g

12216

047034

011646

12218
12219

047046
047046

010046
010146

047052
0647054
047056
047062
047064
047066
047070
047072
047076
047100
047106
047106
0647110
047112
047114
047116
047120

104411
012600
010037
005001
005002
112046
001420
122716
003026
122716
002623
006301
006102
006301
006102
006301
006102

12217

12220

12221
12222
12223
12224
12225
12226
12227
12228
12229
12230
12231
12232
12233
12236
12235
12236
12237

12238
12239
122640
122641
122642
122643
12244
12245
122646
12247
12248
12249
12250
12251

12252

12253
12254

READ AN OCTAL NUMBER FROM THE TT¥

047036

047050

047122
047126
047130
047132
047134
0471640
047164
047146
047150
067152
047154
047156
047160
047162

047164

047170
047172

016666

0000064

010246

042716
062601
000756
005726
010166
010237
012602
012601
012600
000002
005726
105010
104401
000000

104401

000730
000000

000002

L
.t
.t

RDOCY
RETURN HERE

:sREAD AN OCTAL NUMBER
.;LOW ORDER BITS ARE ON TOP OF THE
;;HIGH ORDER BITS ARE IN $4]0CT

$RDO{T:

MOV

(SP),-(SP)

. ;PROVIDE SPACE FOR THE

RO,-(SP)
Ri,=(SP)

;:PUSH RO ON STA(CK
;sPUSH R1 ON STA(CK

047162
2%:
000060
000067

177770
3%

6%:

001222

4&(SP),2(SP)

Mov

R2,=-(SP)

MOV
MOV
1%:

000012
047172

MOv

5% :

ROLIN
MOV
Mov
CLR
(LR
MovB
8EQ
(mPB
BGT
(MPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL

BlC
ADD
BR
187
MOV
MOV
MOV
MOV
MoV
RT1
151
CLRB
TYPE
WORD

TYPE

BR
$HIOCT: .WORD

(SP)+ RO
RO,5%
R1
R2
(RO)+ ,-(SP)
3%
#'0,(SP)
6%
#'7,(SP)
4%
R1
R
R1
R2
R1
R2

; : INPUT NUMBER

;sPUSH R2 ON STACK

;;READ AN ASCIZ LINE
;sGET ADDRESS OF 1ST
;s AND SAVE T
;s CLEAR DATA WORD

CHARA(CTER

;sPICKUP THIS CHARACTER
;.
1F ZERO GET OQUT
; ;MAKE SURE THIS CHARACTER
;.15 AN OCTAL DIGIT
HA
P
sovh

;.8

#C7,(SP)
(SP)+ R
2%
(SP)+
R1,12(SP)
R2,.$HIOCT
(SP)+ ,R2
(SP)+,R1
(SP)+,RO

;:STRIP THE ASCII JUNK
;.ADD IN THIS DIGIT
;.L00P
;CLEAN TERMINATOR FROM STA(K
;s SAVE THE RESULT

(SP)+
(RO)
0

;;CLEAN PARTIAL FROM STACK
::SET A TERM]INATOR
.. TYPE UP THRU THE BAD (HAR,
e e

1%
0

;;TRY AGAIN
;:HIGH ORDER BITS GO HERE

.$QUES

. ;POP STACK INI0O R2
;. POP STACK INTO RI
;;POP STACK INTO RO
s ;RETURN

"'LF

STACK

O D

RPO&/5/6 FCLINL CTLRY
28-MAR-79 09:03
.P1 1

MACY11

30A(1052)
25-MAY-79
10:30
ERROR HANDLER ROUTINE

PRON NN NN NN

LSBTTL

SEQ 0256

ERROR HANDLER ROUTINE

;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CAcLL
;*AND GO TO SERRTYP ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR
AL R
R
;*SW13=1
INHIBIT ERROR TYPEOUTS

;*SW10=1
;*SW09=1
srCALL

047322
047326
047332
047334
047340
047340

131640
020000

032777
001004
004737
104401

047344
001223

005777

131634

100092

000000
104407
032777
001402
013716
005737
001402
013716
000002

001000
001110

001214

0061214

~N~

REGSAY:
7%:

5¢:

ITEM NUMBER

;. TEST FOR CHANGE

IN SOFT-SWR

;SET ERROR FLAG

INCB
BEQ

SERFLG
7%
STSTNM, aDISPLAY
#81710,35WR
1%
LSBELL
SERTTL
(SP) ,$ERRP(
#2,%ERRPC
ASERRPC,SITEMB
#B1T13,3SWR

:.SET THE ERROR FLAG
;;DON'T LET THE FLAG GO TO ZERO

TYPE
INC
Mov

BIT

4%:

AND N=ERROR

#-1,3NERFLGS

SUB

3%:

; ;ERROR=EMT

Mov

MOvB

2%:

CKSWR

BIT
BEQ

20%:

131620

ERROR

MoV

1%:
)

117737

001112
001116
000002

BELL ON ERROR
LOOP ON ERROR

REGSAV:

AR
N e ]

001216

[V o e

104401

005237
011637
162737

—

001102
002000

001103

105237
001775
013777
032777
001402

004734

—

177777

——

012737

047176
047176
047204
047204
047210
047212
047220
047226
047230
047234
047240
047246
047252
047260
047266
047270
047274
047300
047300
047304
047306
047310
047312
047320

$ERROR:

104407

[ A

12281
12282
12283
12284
12285
12286
12287
12288
12289
12290
12291
12292
12293
12294
12295
12296
12297
12298
12299
12300
12301
12302

047174
047174

-0
woo

o0 OO~NOWVEUWN 2O~V

NT VT, VT, VT, V1, VT Y VT VT N1,
o~ NNNNNNN~yYy~NOOO
O
NN LN

NN NN

PAGE 2>7

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

265

—

20%

BNE
JSR

PC,$ERRTYP

1S7

asSwWR

TYPE

BPL
HALT
CKSWR
BIT
BEQ

LOCRLF

::SKIP TYPEOUTS

;.60 TO USER ERROR ROUTINE

;:HALT ON ERROR

$SESCAPE

;;CHECK FOR AN ESCAPE ADDRESS

BtaQ

RTI

ITEM (ODE

#81709,aS5wR
43
$LPERR, (SP)

MOV

;;STRIP AND SAVE THE ERROR
::SKIP TYPEOUT F SET

;:SKIP
:HALT
::TEST
;:L00P

MoV

1§71

;;DISPLAY TEST NUMBER AND ERROR FLAG
;;BELL ON ERROR?
;;NO = SKIP
s :RING BELL
:; COUNT THE NUMBER OF ERRORS
;;6GET ADDRESS OF ERROR INSTRUCTION

$ESCAPE, (SP)

1F CONTINUE
ON ERROR!
FOR CHANGE IN SOFT-SWR
ON ERROR SWITCH SET?

;B8R IF NO
::FUDGE RETURN FOR LOOPING

; sBR

NONE

;:FUDGE RETURN ADDRESS FOR ESCAPE
: ;RETURN

—

i
D e

.SBTTL

258

SEQ 0257

ERROR MESSAGE

TYPEOUT ROUTINE

;*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
;*ERROR ]S TO BE REPORTED.
IT THEN OBTAINS, FROM THE ''ERROR TABLE'' ($ERR1B),

D e

:*AND REPORTS THE APPROPRIATE INFIRMATION CONCERNING THE ERROR.
;*1T IS A COPY OF THE SERRTYP SUBROUTINE FROM SYSMAC.
s*WITH ONLY MINOR CHANGES

c*FIRST 1F SWITCH 6 IS SET AND SWITCH 8 RESET THEN
s*ALL REGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR
:*SECOND I1F THE CURRENT FRROR HAS THE SAME ITEM NUMBER

D il e
D id e
D el
)
d i
D
)
d

30A(1052)
25-MAY-79
10:30
ERROR HANDLER ROUTINE

;*AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL BE TYPED
:*AND NOT THE ERROR MESSAGE AND HEADER.
047342

000000

047344
047350
047354
047360
047362
047364

017746
042716
022726
001001
000402
000137

131570

177277

SERRTYP:

MOV
BIC
CMP
BNE
BR
JMP

aSWR,-(SP)
#*C500, (SP)
#SW06, (SP)+
1%

TYPE

,65%

000100

050304

;PREVIOUS ITEM NO. LOCATION

PRITEM:

1%:

;GET SWITCH SETTING
;KEEP ONLY SWITCH 8 AND 6
;15 6 SET AND B RESET
;1F NOT BRANCH

2%
af TYPERR

;BRANCH IF SW 6 1S SET AND B RESET
;JUMP IF SW 8 IS SET

;OR IF SW B IS RESET AND SW 6 IS RESET

2%:

047370

047370
047374
047612
047412
047416

104601

000406

047376

013746

002354

1044601

047426

104402

::65%:
64%:

.ASCIZ
Mov
TYPOC

6498

C15><12//RHMC

;:;TYPE ASCIZ STRING

;;GET OVER THE ASCIZ

afW(,-(SP)

;GET

READY

TO TYPE

L.67%

;s TYPE ASCIZ STRING

RHWC

CONTENIS

—

047420
067424

000406

047442
047462
047446

013746

002356

047450
04674564

104401
000406

0467456

047472
047472
047476

013746
104402

002360

047500
047504

000406

104401

047506

047522
047522

013746

104402

TYPE

1678
66%:

::69%:
68%:

¥
SEAR

002362

LASCIZ

66%

::GET OVER THE

<15><12>/RHBA =/

ASCIZ

MOV
TYPOC

a#BA,~-(SP)

:GET READY TO TYPE RHMBA CONTENTS

TYPE

,69%
68%

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

anN(se,-(spP)

:GET READY TO TYPE RH(SZ2 CONTENTS

L7118

s TYPE ASCIZ STRING

BR
<ASCIZ
MOv
TYPOC

TYPE
-~

i e

b ok

D e i

D S

el o

i el il

D e

D el el

MACY1Y

&
PAGE

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

D e

LY, VY. VY, V1, ¥ 1, V1. N7 GY V1 CY VY WY V] V] V) UY VL, VT NI NI, V] V1, VI VI,V V], VT,V], V1 .57 §Y.UY VT, VY. VY, V], V1, V7 . V), V1 VY N NI
NI rFON NI
e N L A
A bt s
[V VIV VAV VLV (W RV 1V V1V ] W A
st b
Al IV T IV T TV TV I P
P T IV P TP IV TP T P P e v TV
Ik 2P AV AV AV AV IV IV IV IV IV IV 1oV 1, %], 8] PNININIPNINININI
(Al VARV ] (W 1V
) WA
SN I f 2P ol
= b bt et et e et s s OO O
o
NTe3 [V WA 2O 00D~ o NS
e N—=2OOVONOWVNEWN
2OV
~NO VSN =00V~ N
NN = OO 00 -~J

CIRJIDO, RPO4L/S/6 FCINL CTLRY
PN
28-MAR-79 09:03

<15><12>/RH(S2 =

LASCIZ

70%
<15><12>/RHCSY

Mov

a#(S1,=-(SP)

:;6ET
=/

OVER THE ASClZ

;GET READY 10 TYPE RHCSY CONTENTS

A W NN N N
N
AN NN W
~~vocoooooorooro0ow
S OOV~
NS W —=0OP
U U U

047526

104602

047530
047534

000406

047552
047552
047556

013746
104402

002404

104401

047566

047560
047504

104401

000406

SEQ 0258

TYPOC

047536
2 73%:
72%:

5:75%:

047602
047602
047606

013746

002364

047610
047614

104401
000406

047616

104402

MACY11

764%:

133
72%

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

MoV
TyPOC

8#DS1,-(SP)

;GET READY TO TYPE RMDS! CONTENTS

TYPE

L15%
743

;. TYPE ASCIZ STRING
:.GET OVER THE ASCIZ

Mov
TYPOC

SNER1,-(SP)

;GET READY TO TYPE RHER!

TYPE
BR
LASC1Z

L1783
76%
<15><12>/RHER2

;s TYPE ASCIZ STRING
:;GET OVER THE AS(C1Z

MoV
TypPOC

INER2,-(SP)

;GET READY TO TYPE RHERZ CONTENTS

TYPE

,719%
78%

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

MoV
TypPoC

SN#ER3,-(SP)

;GET READY TO TYPE RHER3 CONTENTS

TYPE

,81%

TYPE
BR
LASCIZ

BR
.ASCI1Z

<15><12>/RHDST

<15><12>/RHER]

CONTENTS

002370

104401

047646

104402

000406

047662
047662
047666

013746

002376

047670
047674

104401
000406

047676

047712
047712

013746

002366

047720
047724

104401
000406

047726

067742
047742
047746

013746

002374

104401

047756

047716

104402

047750
047754

000406

067772
047772

013746

::79%:
78¢%:

::81%:
§0%:

;:83%:
82%:

;:85%:

002400

047640
047644

013746

FX3

395
396
397
3

047632
047632
047636

22778

76$%:

[e
1]

L8 LN A

A A A L A

N U A

U U

O O O 0o Oo O 0o 0O O Oo OO OO OO N NN~N~N N~

WN—-OOONO‘U‘#&N—- OOV ~NO W S

O ~O
=

NN 28 L

[en
N an]

100, RPO4/S/6 FCINL CTLR)
10 PN
28-MAR-79 09:03

L)
30AC1052)
25-MAY-79
10:30
PAGE 259
ERROR MESSAGE TYPEOUT ROUTINE

BR
.ASCIZ

<15><12-/RHER3

BR
.ASCIZ

80%

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

Mov
TYPOC

aNDST,-(SP)

;GET READY TO TYPE RHDST CONTENTS

TYPE

,83%
82%

::TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

MOV
TYPO¢

aNCA,-(SP)

:GET READY TO TYPE RHCA CONTENTS

TYPE

,85%
849

;. TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

a¥AS,-(5P)

:GET READY TO TYPE RHAS CONTENTS

BR
.ASC1Z

BR
CASCI2
Mov

<15><12>/RHDST

<15><12>/RHCA

<15><12>/RHAS

O D
N

NININ)
e b el e
s

fTamnrnrRNN
NN
P il 2l S S o o O N

D i o
) D el D i gl (A ol d e

?POQ/S/b FCTAL CTLRY

28-MAP-79 09:03

047776

104602

050000
050004

000406

104401

050006

002372

050030
050034

104401
000406

050036

050052
050052
050056

013746

002402

104401

050066

050060

050064

050102
050102
050106

050110
050114

000406

002420

1046401

050116

000406
013746

002416

050140
050144

104401
000406

050146

050162
050162
050166

013746

002412

104401

050176

050170
050174

050212
050212
050216
050220
050224

050242
050242

104402

000406

104401

050226

013746

90%:

SEQ 0259

92%:

948:

;GET READY TO TYPE RHOF

::GET OVER THE ASCIZ

<15><12>/RHOF =

CONTENTS

B8R
LASCIZ

88%
;:GET OVER THE ASC]Z
<15><12>/RHMR =/

,89%

;;TYPE ASCIZ

MOV
TYPOC

a#MR,-(SP)

;GET READY TO TYPE RHMR CONTENTS

TYPE
BR
LASCIZ

,91%
;:TYPE ASCIZ STRING
90%
:;GET OVER THE ASCIZ
<15><12>/RHLA =/

MOV
TYPOC

afLA,-(SP)

;GET READY TO TYPE RHLA CONTENTS

ASCIZ

STRING

BR
LASCIZ

92%
::GEY OVER THE ASCIZ
<15><12X/RHCC =/

,93%

;s TYPE

MOV
TYPOC(

a#C(,-(SP)

;GET READY TO TYPE RHCC CONTENTS

TYPE

,95%

;. TYPE

STRING

ASCIZ STRING

BR
LASCIZ

94%
<15><12>/RHECT

Mov

aNECY,-(SP)

;GET READY 10 TYPE RHEC1

;:0ET OVER THE ASCIZ
=/

,97%

;:;TYPE ASCIZ STRING

CONTENTS

..GET OVER THE ASCIZ

96%

MOV

aNEC2,=(SP)

;GET READY TO TYPE RHECZ2 CCNTENTS

TYPE
BR

.99%
98%

;s TYPE ASCIZ STRING

MOV

o#DT,=-(SP)

;GET READY TO TYPE RHDT CONTENTS

ASCIZ

TYPOCL

00998

002406

a#0f ,-(SP)

TYPE

08%:

::TYPE ASCIZ STRING

MOV
TYPOC

ASCIZ

TYPOC

96%:

,87%

B6$

TYPE

2:97%:

002414

000406

::898:
88%:

::99%:

013746

104402

TYPE

20938

050132
050132
050136

104402

86%:

::918:

013746
104402

TYPE

::87%:

013746

104402

30AC1052)
25-MAY-79
10:30
PAGE 260
ERROR MESSAGE TYPEOUT ROUTINE
TYPOC

050022
050022
050026

104402

MACY1T

LASCIZ

<15><12>/RHEC2 =

;.GET OVER THE ASCIZ

<15><12>/RHDY =/

D ®»

P~~~

J l 00, ?POA/SIO FCINL
J 1 0.P1
28-MAR-79

¢n

4 72

4 73

674

PORUPNIRNIRNINUN)
ot el et e e b eed o el 2 O
OCWVNEUWN—=OO0BNOWVNEWN—~0O0

VARV TV LV TV LV JU LU LV LV LV LV LS AV
(W RV RO RN

el
el
)
D e
i
e
i
el
i
el
i
D e
e
—

rororoNINRONON
NN NN NN N

CTL R1

09:03

050266

1046402

056250
050254

104401
000406

050256

050272
050272
050276

013746

002410

050300
050304
050304
050310
050312
050314
050320

005037

047342

104401

001223

050322

013746

050326
050330
050332
050334
050336
050340
050342
050346
050352
05035¢
050356
050360
050364
050370
050372
050374
050376
050402
050406
050410
050412
050414
050420
050422
050624
050426
050430
050432
050434
050436
050440
050442
050442
050444
050446
050450

1044602

010046
005000
153700
001004

MACYT1

104401
000000
104401

012037
001404

TYPERR:

001114

106401

010146
012001
001415
012000
105720
001003
013146

013146
106405

005711
001403

<15><12>/RHSN

Mov
TYPOC

/SN,
- (SP)

;GET READY TO TYPE RHSN CONTENTS

CLR

SfPRITEM

;CLEAR PREVIOUS ERROR ITEM

,SCRLF

:"'CARRIAGE RETURN'' & ‘"LINE FEED"

TYPE
MOV
CLR

BNE

RO,-(SP)
RO
afS1TEMB,RO
1%

Mov

$ERRPC,~(SP)

1YPOC

1%:

001226
047342

047342
050374

0012% 3
050412

001223

13%:

ASL
ASL
ASL
ADD

CMP
BNE
CMP
BR

MOV
MoV

2%:
3%:
4%:

5¢:

6%:

TYPE
.WORD
TYPE
Mov

BEQ

TYPE

.WORD
TYPE
MOV
MoV
BEQ
MOv
1S18

BNE

MOv
TYPOC

7%:

8%:

JPICKUP THE I1TEM INDEX
;1F 1TEM NUMBER IS ZERO, JUST
;TYPE THE PC OF THE ERROR
;SAVE SERRPC FOR TYPEOUT
;ERROR ADDRESS
;G0 TYPE--OCTAL ASCII(ALL DIGITS)
;ADJUST

:
RO
#SERRTB,RO
RO,3#PRITEM

13%
(20)’.(R0)0
5

THE

INDEX

SO THAT

WILL

WORK FOR THE ERROR TABLE

;FORM TABLE POINTER
;WAS PREVIOUS ERROR

SAME

;BRANCH 1F NOT
;POP RO OVER EM AND DH

:SAVE NEW ERROR ]TEM
;PICKUP ''ERROR MESSAGE'' POINTER
:SKIP TYPEQUT 1F NO POINTER

;"'ERROR MESSAGE'' POINTER GOES HERE

RO,3#PRITEM
(RO)+,2%

+SCRLF

(RO)+,4%
5%

LSCRLF

R1,-(SP)

(RO)+,R)
9%
(RO)+,RO
(RO)+
7%
a(R1)+,-(SP)

Mov
TYPDS
181

3(R1)+,=(SP)

BEQ

;SAVE RO

;GET 0UT

BR
DEC

BEQ

1046402

000402

JASCIZ

;. TYPE ASCIZ STRING
:jGET OVER THE ASCIZ

8158

001116

.101%

1008

TYPE

104401

000000

SEQ 0260

1YPOC

1064402

000454
005300
006300
006300
006300
062700
020037
001002
022020
000420
010037
012037
001404

30A(1052)
10:30
PAGE 26!
25-MAY-79
ERROR MESSAGE TYPEOUT ROUTINE

(R1)
9%

:TYPE THE "'ERROR MESSAGE"’

;""CARRIAGE RETURN'' & '""LINE FEED"

;P1CKUP "'DATA HEADER'' POINTER
;SKI1P TYPEOUT IF 0
:TYPE THE ''DATA HEADER''
:"'DATA HEADER'' POINTER GOES HERE

:'"CARRIAGE RETURN'' & ''LINE FEED"

: SAVE R1
;P1CKUP "'DATA TABLE'' POINTER
:BR IF NO DATA TO BE TYPED
;P1CKUP ''DATA FORMAT'' POINTER
;''OCTAL'' OR "'DECIMAL"’
;BR IF DECIMAL

;SAVE a(R1)+ FOR TYPEOUT
;60 TYPE-~OCTAL ASCII(ALL DIGITS)
:SAVE &(R1)+ FOR TYPEOUT
;G0 TYPE-=-DECIMAL ASCII WiTH SIGN
;1S THERE ANOTHER NUMBER?
;BR |F NO

CIRJIDO, RPO4/S5/6 FCTNL CTLRY
CZRJID.PI
28-MAR-79 09:03
12527
}%2%8

050452
050456

1064401
000764

12530
12531

050460
050462

012601
012600

12533

050466

020040

12532

}Sggg

050464

000207

050472

MACYI1

050466

000

30A(1052)
25-MAY=-79
10:30
PAGE 262
ERROR MESSAGE TYPEOUT ROUTINE

SE0 026!

TYPE
BR

18
63

;TYPE TWO(2)
.Loop

9% :
10%:

MoV
MoV

(SP)+,R1
(SP)+,RO

;RESTORE R
:""CARRIAGE RETURN'' & '"LINE

11%:

ASCIZ

;TW0(2)

RTS

.EVEN

;RETURN

SPACES

FEED"

d e e e el e med i
b

MACY1T

)

S
PAGE 263

30A(1052)
25-MAY=-79
10:30
ERROR MESSAGE TYPEOUY ROUTINE
.SBTTL

BINARY TO OCTAL

(ASCII)

SEQ 0262

AND TYPE

;:""""""""""""'"""""""'Q'It"'""lt"""'"'

:*THIS ROUTINE 1S USED TO (HANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
s*OCTAL (ASCII) NUMBER AND TYPE IT.
;*$TYPOS-=--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

swCALL:
o
;

Mov
TYPOS

NUM, - (SP)

.BYTE

]

5
5
551
5
p)
554
595
556
5
5
p)
5 60
5
5 62

73
76
75

i e

) el D ol Sl ol e el il D il il D e e el i L

) e

D D el i D el ) D

D D el el D il D ) i el ) D il i

~ P~

0, RPO4/5/6 FCTINL CTLR 1
L1
28-MAR-79 09:03

85
86

90
91

.BYTE

;;NUMBER 10 BE TYPED
;;CALL FOR TYPEOUT

::N=1 10 6 FOR NUMBER OF DIGITS TO TYPE
::M=1 0RO

::1=TYPE

LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

;'STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC
;eCALL:

i
*

MOV
TYPON

NUM, - (SP)

: :NUMBER T0 BE TYPED
;:;CALL FOR TYPEOUT

;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

;vCALL:

.
.t

000000
000001
050717
000002

050472
050476
050504
050510
050514
050516
050524
050532
050540
050542
050544
050546
050552
050554
050560
050564
050570

050574
050576
050600
050602
050604
050606
050610
050612
050614
050620
050622
050626
050630

000001
000006
000005

050715

050715
050717
05071¢

Mov
TYPOC

$TYPOS: MOV

$TYPO(C:

MOVB
MOVB
ADD
BR
MOVB
MOVB

$TYPON: MOVB

MOV

MOV
MOVB

050717

NEG

ADD

000006
050716
050715
000012

MOVB

1%:
2%:

050716
177770

005704

MOVB
MOV
CLR

ROL

BR
ROL
ROL
ROL
MOV

ROL
DECB

BPL
BIC
BNE
157

NUM, -(SP)

;;NUMBER 10 BE TYPED
:;CALL FOR TYPEOQUT

8(SP),~-(SP)

;:PICKUP THE MODE

#5,30CNT

;:SET THE ZERO FILL SWITCH
::SET FOR SIX(6) DIGITS
;;SET THE ITERATION COUNT

R4 ,-(SP)

;s SAVE R4

1(SP) ,$0F ILL
(SP)+,SOMODE+1
n2,(SP)
$1YPON
#1,80F1LL
#6,90MODE +1

R3,=-(SP)

RS,-(SP)
$OMODE+1,R4
R&

::;LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS T0 TYPE
;sADJUST RETURN ADDRESS

::SAVE R3

::SAVE RS
:;GET THE NUMBER Of DIGITS TO TYPE

¥6,RG

::SUBTRACT

$OFILL,RG
12(SP),RS
R3

;;GET THE ZERO FILL SWITCH
;:PICKUP THE INPUT NUMBER
;s CLEAR THE OUTPUT WORD

R4, $0MODE

::SAVE

IT FOR MAX, ALLOWED

1T FOR USE

;sROTATE MSB INTO ''C"

3%
RS
RS
RS
RS,R3

;:60 DO MSB
::FORM THIS DIGIT

143
#177770,R3

;:BR 1F NO
:sGET RID OF JUNK
;2 TEST FOR O
;s SUPPRESS THIS 0?

R3
$OMODE

4%
R4

:sGET LSB OF THIS DIGIT
;; TYPE THIS DIGIT?

12592

12593
12594
12595

12596
12
1 2598
1 2599

12600
12601
12602
12603
12604
12605
12606
12607
12608
12609
12610
12611
12612

12613

050632
050634
050636
050642
050646
050652
050656
050662
050664
050666
050670
050672
050674
050676
050700
050706
050710
050712
050713
050714
050715
050716

001403
005204
052703
052703
110337
104401
105337

003347
002402
005204
000744
012605
012604
012603
016666
01261¢
000002
000
000
000
000
000000

MACY11

4%:

000060
000040
050712
050712
050714

5%:
7%:

BEQ
INC
BIS
B1S
MOVB
T1YPE
DECB
BGT
BLT
INC

6%:

000002

30A(1052)
PAGE 264
10:30
25-MAY-79
BINARY TO OCTAL (ASCII) AND TYPE

000004
8%:
$OCNT:
$OFILL:
$OMODE:

Mov
Mov
MOV
MOov
MOv
RT1

.BYTE
BYTE
.BYTE
BYTE
.WORD

SEQ 0263

;:BR IF YES

::DON'T SUPPRESS ANYMORE 0°'S

R3,8%
,8%
$OCNT
2%
6%

::SAVE FOR TYPING
;.60 TYPE THIS DIGIT
:;COUNT BY 1
::BR IF MORE T0 DO
;:BR 1F DONE

#'0,R3
" R3

(SP)+,R5
(SP)+ ,R&
(SP)+,R3

2(SP),4(SP)
(SP)+,(SP)

OOOOO

CIRJIDO, RPO4/S/6 FCINL CTLR]
28-MAR-79 09:03

CZRJID.PIY

;;MAKE THIS DIGIT ASCI]
::MAKE ASCI] IF NOT ALREADY

;s INSURE LAST DIGIT ISN'T A BLANK
::6G0 DO THME LAST DIGIT
:;RESTORE RS
:;RESTORE

Ré&

::RESTORE R3

;;SET THE STACK FOR RETURNING
;;RETURN

::STORAGE FOR ASCII DIGIY
;: TERMINATOR FOR

TYPE

ROUTINE

:sOCTAL DIGIT COUNTER
;. lERD FILL SWITCH
; sNUMBER OF DIGITS T0 TYPE

CIRJIDO, RPO4L/S5/6 FCINL CTLR]
CZRJID.PVY
28-MAR-79 09:03
12614
12615
12616
12617
12618
12619
12620
12621
12622
12623
12624
12625
12626
12627
12628
12629

MACY1Y

12633
12634

12635

12636
12637
12638
12639
12640
12641
12642

12643

12644
12645
12646
12647
12648
12649
12650
12651
12652
12653
12654
12655
12656
12657
12658

25-MAY-79

.SBTTL

TRAP DECODER

X X

10:30

EERXR

]

PAGE 265

SEQ 0264

XXX EREEEEZRSXEZASRAZASSASEER
AR
RA

S+THIS ROUTINE WiLL PICKUP THE LOWER BYTE OF THE "‘TRAP'' INSTRUCTION
;*AND USE 1T TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:¢GO 7O THAT ROUTINE.
050720
050722
050726
050730
050732
050734
050740

010046
016600
005740

000002

006300
016000
000200

05075¢

$TRAP:

111000

MOV
MOV
181
MOvVB

RO,=-(SP)
2(SP),RO
-(R0O)
(RO),RO

MOV

$STRPAD(RO) ,RO

ASL

R1S

12630

12631
12632

30AC1052)

::SAVE RO

;;GET TRAP ADDRESS

; ;BACKUP BY 2

::GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING

::60 TO ROUTINE

;. INDEX TO TABLE

;:THIS IS USE TO HANDLE THE "'GETPRI'' MACRO
050742
050744
050752

011646
016666
000002

00000«

000002

$TRAP2: MOV
Mov
R11
LSBTTL

(SP) ,-(SP)
4 (SP),2(SP)

; MOVE THE P( DOWN
. MOVE THE PSW DOWN
: ;RESTORE THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

;*BY THE "'TRAP'' INSTRUCTION.

;

THE ROUTINES CALLED

ROUTINE

050754
050756
050760
050762
050764
050766

050742
045474
050516
050472
050532
045250

$TRPAD: .WORD

050770

046312

$GTSWR

050772
050774
050776
051000
051002

066222
066564
066654
047034
062226

$TYPE
$TYPOC
$1YPOS
$STYPON
$TYPDS

$TRAP2

;;CALL=TYPE
;;CALL=TYPOC
;. CALL=TYPOS
;;CALL=TYPON
;. CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (W]TH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST C(ALL)
TYPE DECIMAL NUMBER (WITH SION)

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT=-SWR SETTING

SCKSWR ;;CALL=CKSWR
SROCHR ;; CALL=RDCHR
SROLIN ;;CALL=ROLIN
;. CALL=RDOCT
$RDOCT
5 CALL=WAT
WAIT.T

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)

TEST FOR CHANGE IN SOFT-SWR
TTv TYPEIN (HARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
DONT ADD ABOVE THIS TRAP

CIRJIDO, RPO&L/S5/6 FCTINL CTLRY
28-MAR-79 09:03
CIRJID.PY
12659
12660
12661
126062

12663
12664
12665

12666
12667
12668
12669
12670
12671
12672

12673
12674
12675
12676
12677
12678
12679
12680
12681
12682
12683
12684

MACYTT1

30AC1052)
25-MAY-79
10:30
POWER DOWN AND UP ROUTINES

.SBTTL

5
PAGE 266

SEQ 0265

POWER DOWN AND UP ROUTINES

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

051004
051012
051020
051022
051024
051026
051030
051032
051034
051040
051044
051052
051054

051150
000340

000024
000026

"POWER DOWN ROUTINE

$SPWRDN:

246

637

130100

051154
051056

000024

Mov
Mov
Mov
Mov
Mov
MOV
mMov
mMov
Mov
Mov
Mov
HALT
BR

#O1LLUP ,8#PWRVEC

#340,9/PWRVEC+2
RO,-(SP)
RY,=-(SP)
R2,=-(SP)
R3,-(SP)
R&,-(SP)

;;SET

FOR FAST UP

;;PRIO:7
::PUSH RO
::PUSH R1
; sPUSH R2
::PUSH R3
:;PUSH R4

a8SWR,-(SP)
SP,8SAVRE

ON STACK
ON STA(CK
ON STACK
ON STACK
ON STACK
::PUSH RS ON STACK
:;PUSH 8SWR ON STACK
;:SAVE SP

. =2

; :HANG UP

RS,=-(SP)

#SPWRUP ,3#PWRVEC

;;SET UP VECTOR

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

051150
051154
051154
05115¢6

051056
051064
051070

000024

.POWER UP ROUTINE

$PWRUP:

1%:

130032

12685
12686
12687
12688
12689

12690
12691
12692
12693
12694
12695
12696
12697
12698
12699

051004
000340

000024
000026
$PWRMG:
$PWRAD:
$ILLUP:

051164

000122

047520

04257

Mov
Mov

CLR
INC
BNE

Mov
MOV
Mov
Mov
MOV
Mov
mMov
mov
Mov
TYPE

.WORD

Mov

.WORD

RT1
HALT

B8R
0O
$POWER: <ASCIZ

$SAVRG6:

.EVEN

NSILLUP ,Q#PWRVEC ;;SET FOR FAST DOWN
;:GET SP
$SAVRG,SP
::WAIT LOOP FOR THE T1y
$SAVR6
$SAVR6
:;WALIT FOR THE INC
1%
::0fF
WORD
::POP STACK INTO aSWR
(SP)+,aSWR

(SP)+,RS

(SP)+ R4

(SP)+,R3
(SP)+ ,R2
(SP)+ R
(SP)+,RO

::POP STACK INTO RS

::POP STACK

;:POP
:;POP
::POP
::POP

STACK
STACK
STACK
STACK

INTO R&

INTO
INTO
INTO
INTO

R3
R?2
R1
RO

#$PWRON,a#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340,3¥#PWRVEC+2 ;;PRIOD:7
$POWER
(PC)+,(SP)

;REPORT

THE

POWER FAILURE

:;POWER FAIL MESSAGE POINTER
. ;RESTART AT BEGIN

BEGIN

: sRESTART ADDRESS

.=2

;:THE POWER UP SEQUENCE WAS STARTED
;. BEFORE THE POWER DOWN WAS (OMPLETE
;;PUT THE SP HERE

<195><12>'"'POWER"’

w
WA
PONIPNINS b s b ad b s e e h et O o0Oo
l‘uN—‘OOQNO‘V'J“V‘N—'OOONO‘\I‘J‘WN—‘OOQNO'MJ*V‘N—‘OOONOU‘?
~NO W
= OO0
WM
OO~ YO N

[N ST N

-—

v‘

VY ST VT N, VY VY NY VI, N1 FL U] N V1 N1 V] N1 VY V] NT WA NI ST SR VI ST, V] VT VY N V1,1, V] N1, V7,V1 V1 N1, OY VY, V1,VT, VY N1, V1, V], V1 VT VY, V7 VY, VY CT

N NNNN NN N NN NNNNSNNNSNNNNNNNYNN
NN~ NN NN NN NN NNNNNCNNNNNNNNNNNSNNNN
WL Al A
AV IV IV 1ST N1 V], ¥ 1,V1,5
o
[V XV VIV IV IV IV IV AV IO P 2l ol P olF ol ol ol ol ol AW A

[aa X
~ P~

b
il
i
el
) o
D
e
e
i el e
i
s
il
i
i
il ol e
it
i
D
)
e
el el e
D o
D e
o
e
d e
b el
D e
d
i
D el
oy
e
e
i
e
b o
e

RPO4/S/6 FCINL CTLRY
1
28-MAR-79 09:03

MACYYY

30A(1052)
25-MAY-79
10:30
POWER DOWN AND UP ROUTINES

WS
PAGE 267

SEQ 0266

:""""'l'""""""""""""
M

:*ERROR AND MESSAGE TABLE CONDIMENTS
S

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

051166
051174
051202
051210
051215
051222
051230
051236
051244
051252
051260
051266
051274

050122
0642111
064440
052522
111
052522
040516
044502
047127
042440
042526
020126

032060
047040
052116
052120
052116
052120
046102
020124
06410640
050130
020104
044504

062040
052117
051105
000
051105
042440
020105
047504
052125
061505
044502
020104

EMI:

.ASCIZ

/RP0O4& DID NOT

INTERRLPT/

EM2:

LASCIZ

/INTERRUPT ENABLE BI1T DOWN BUT EXPECTED BIT DID NOT SET/

051302
051304
051312
051320
051326
051334
051342
051350
051356
051364

047516

020124

062523

050122
042111
044440
052522
042510
042520
041040
042111
000

032060
047040
052116
052120
020116
052103
052111
051440

042040
052117
051105
053440
056105
042105
042040
052105

EM3:

LASCIZ

/RPO& DID NOT

051372
051400
0516406
051414
051422
051430
051436
0516446
0516452
051460
0516466
051474

042524
020124
042523
020124
044440
042440
024040
044440
046440
042523
041505
000051

105

050130

020104
044504
020126
044524
020123
051122
044526
020116
041511
026103
046511

061505

044502
020104
052502
042515
047111
051117
042515
030061
047522
042040
066101

EMs4:

LASCIZ

/EXPECTED B11 DID SET BUT TIME IS IN ERROR (TIME IN 10 MICROSEC, DECIMAL

042040
047516

LASCIZ

/RHAS DOES NOT CLEAR BY MOVING IN ALL ONES/

0201264
020122
053117
047111
0476440

051501
020123

EMS:

051512
051520
051526
051534
051542

044122
042517

047514

042101

0471

EM6:

LASCIZ

/LOADING RHERY FOR ALL UNITS DID NOT SET ANY RHAS BIT1S/

051365

051476
051504

051550

051556
051564
051572

000124

020107
020061
046101

046103
054502
047111
040440
042516
(044122
047506
020114

040505
046440
020107
046114
000
0511
0201
04N

INTERRUPT WHEN EXPECTED BIT DID SET/

MACY1Y

30A(1052)
25-MAY-79
10:30
POWER DOWN AND UP ROUTINES

5
PAGE 268

SEQ 0267

LASCIZ

/NON EXISTENT REGISTER,

042520
053111
020123
044502
051040
051440

EMI10:

ASCIZ

/STOPPED DRIVE HAS MOL BIT

020110
046104
062527
047504
041510
047510
047117
053101
052111
040440
020122

EM1Y:

LASCIZ

/WITH SPINDLE

020122
0646104
042527
050125
050040
041501
066122
044123
064040
047515
053040

EMI12:

LASCIZ

/AFTER SPINDLE POWERED UP, NO PACK ACKN. RHDS!

EM13:

LASCIZ

/W1TH SPINDLE POWERED UP, NO INTIALIZE, RHCS! SHOULD HAVE GO=0, DvA=1, R

EM7:

PROGRAM ABORTED./

NNNNY
N NNNNNNNNNN N N N N N N N N N N SN N N

67
68
69

~O O O 0 O O O O 0o 0o OoD oo oo OB00OD
00 ~N~N~N~N~
NOWVWE
N 2,00~
NS WA 2O 0 ~NOWw

el el

D il el el el

D il il e

D il ey Tl

)

il e

el e

D e

il il

) il i

) el e el

D e

(A1 ST ST VT VT Y SIS LS T VI ST VT, V] N1 VT, V], UY Y V1 VT V1, V1, VY, VY W], V1, V1, ¥ VT V] V1, VY VY, VY, VT, VT, V7. ¥}

CIRJIDO, RPO&L/5/6 FCTINL CTLRY
CIRJID.PIY
28-MAR-79 09:03

798

051702

042105

000056

051706
051714
051722
051730
051736
051744
051752
051755
051762
051770
051776
052004
052012
052020
052026
052034
052042
052050
052056
052062
052070
052076
052104
052112
052120
052126
052134
052142
052150
052156
052164
052170
052176
052204
052212
052220
052226
052234
052262
052250
052256
052264
052272

052123
020104
020105
047515
020124
042110
052105
127
050123
020105
0642522
047127
031123
046129
054514
020105
047040
042116
042523
043101
050123
020105
042522
020054
041501
047113
051504
052517
053101
036514
036526
044527
044520
050040
042105
047040
066524
026105
030523
046125
042526
026060
030475

050117
051104
040510
020114
047111
030523
000
052111
047111
047520
020104
051040
051440
020104
044040

047125
027117
064440
000124
0642526
0647111
047520
020104
047516
020113
020056
020061
062114
020105
026061
000060
044124

062116
053517
052440
020117
046101
051040
051440
020104
043440
042040
020054

IN RHDS!

SET/

POWERED DOWN RH(S2 SHOULD ONLY HAVE UNIT NO. AND

IR SET/

SHOULD HAVE MOL=1, vv=0/

CIRJIDO, RPO4L/S5/6 FCINL CTLRY
CIRJID.PIY
28-MAR-79 09:03

052300
052306
052312
052320
052326
052334
052342
052350
052356
052364
052365
052372
052400
052406
052614
052422
052430
052436
052437
052644
052452
052460
0226466
052474
052502
052510
052516
052524
052526
052534
052542
052550
052556
052564
052565
052572
052600
052606
052614
052622
052630
052636
052644
052652
052654
052662
052670
052676
052704
052712
052720
052721
052726
052734
052742
052750

036531
036505
043101
050123
020105
042522
020054
051440
020104
000

026061
000060
042524
047111
047520
020104
046122
047510
042502

041501
042514
047503
020104
042105
051105

047113

120

012
107

MACY1T

25-MAY=-79
10:30
POWER DOWN AND UP ROUTINES

5
PAGE 269

SEQ 0268

064440
020122
046104
062527
050125

EMIG:

LASCIZ

/AFTER SPINDLE POWERED UP, RHCC SHOULD BE=0/

EM1S:

ASCL]

/PACK ACKNOWLEDGE

043504
0646515
040503
040440
047522

020113
053517
020105
047101
051525
020116
006522

<ASCIZ

/GO0D DATA

LASCII

/NO-QOP COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA

CASCLL

/DRIVE CLEAR COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES AFTER (OMMAND/

041501

0641503
04612 5
03007 5

040504
020123
042522
040515
042522
040524
043101
047503
000104
047516
047503
020104
042105
051105

047517
040524
042502
041440
042116
020103
0464440
042524
046515

020104
044440
047506
046517
02005¢
040504
020123
020122
047101

047455
046515
040503
040440
047522

020120
047101
051525
020116
006522

020123
042522
040515
042522
040524
0643101
047503

047517
04052¢4
062502
041440
042116
020103
044440
062524
046515

020104
0446440
047506
046517
020054
040504
020123
0201272
047101

053111
040505
046515
060503
040440
047522

020105
020122
067101
051525
020116
006522

047517
040524
051505
046125
020054

020104
043440
051440
020104
042522

012
107
040504

30A(1052)

EMI6:

EM17:

COMMAND CAUSED AN ERROR/<15><12>

IS BEFORE

1S BEFORE

COMMAND,

REC DATA

IS AFTER COMMAND/

REC DATA IS AFTER COMMAND/

CIRJIDO, RPO&/S/6 FCINL (TR
P11
CIRJID.P
28-MAR-79 09:03

0000 0

NN NI NI NI N

N et S md b b nd pary
oo
W — OOV
~NO WV N

00 VOO0

~No NN

PN
S
S SN

12872
12873
12874
12875
12876
12877
12878
12879
12880
12881
12882
12883
12884
12885
12886
12887
12888
12889
12890
12891
12892
12893
12894
12895
12896
12897
12898
12899
12900
12901
12902
12903
12904
12905
12906
12907
12908
12909
12910
12911
12912

12924
12925
12926
12927

052756
052764
052772
053000
053006

020103
043440
0460440
041440
042116

053011
053016
053024
053032
053040
053046
053052
053060
053066
053074
053102
053110
053116
05312¢
053132
053140
053146
053154
053155
053162
053170
053176

053204
053212
053220
053226
053230
053236
053244
053252
053260
053266
053274
053302
053303
053310
053316
053324
053332
053340
053343
053350
053356
053364
053372
053400
053406
053414
053422
053430

MACY11

040504
053111
052106
046517
000

040524
051505
051105
060515

040505
0461640
042116
062523
042440
005015
042117
020101
020123
062114
051040
052101
042526
027107
027124

026504
046517
041440
020104
051122

30A(1052)

25-PAY-79

10:30

POWER DOWN AND UP ROUTINES

EM20:

0642040
046507
046123
041040
041505
020101
020123
041440
040440
041640
042116

PAGE 270

SEQ 0269

LASCI]

/READ=IN COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA GIVES SHOULD BE,

REC DATA GIVES RFG.

CONT.

AFTER

COMMAND/

030523
042524
052504
041440
062116
044440

EM21:

LASCIZ

/RHCST

CONTENTS DURING COMMAND WAS

IN ERROR/

051504
052116
062040
020107
047101
020123
051122

020061
047105
051125

EM22:

.ASC1Z

/RHDS1

CONTENTS DURING COMMAND WAS

IN ERROR/

046116
047503
020104
042105
051105
012
047517
060524
051505

040517
046515
060503
040440
047522

EM23:

LASCl]

/UNLOAD COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/

047522

0646125
020054
040504
053111
043505

043101

052116
062524

047503
020104
047111
051117

020104
043440
051440
020104
042522
0640524
051505
020056
020056
020122

CIRJIDO, RPO&/S5/6 FCTINL CTLRI
CIRJID.PWY
28-MAR-79 09:03
12928
12929

12930
12931
12932
12933
12934

12935
12936
12937
12938
12939
12940
12941

12942

12943
12944
12945

12966
12947
12948
12949
12950
12951
12952
12953
12954
12955

12956
12957
12958
12959

12960
12961
12962

12963
12964
12965
12966
12967
12968
12969
12970
12971
12972
12973
12974
12975
12976
12977
12978

12979

12980
12981
12982
12983

053436
0534644
053446
053654
053462
053470
053476
053504
053506
053514
053522
053530
05353¢

053544
053552
053560
053566
053574
053602
053610
053611
053616
053624
053632
053640
053646
053654
053662

047503
000104
043117
061440
042116
042523
042440
005015
047507
052101
042526
052517
026105
0642040
044507
042522
047117

052106

046517

053670
053676
053704

053712
053720
053726
053734
053742
053750
053756
053764

053772
053773
054000
054006
054014
054022
054030
054036
054044
054052
054060
054063
054070
054076
054104
056112
054120

046515

047101

051506
0646517
041440
020104
051122

05210%

30A(1052)

25-MAY-79

10:30

POWER DOWN AND UP ROUTINES

EM24:

PAGE 2/1

SEQ

ASCLI

/OFFSET

COMMAND CAUSED AN ERROR/<15><12>

LASCIZ

/GO0D DATA GIVES SHOULD BE,

<ASCII

/RETURN TO CENTER LINE

.ASC1Z

/GO0OD DATA GIVES SHOULD BE,

042117
020101
020123
042114
051040
052101
042526
027107
027124
051105
060515

061440
062116

052105
047524
0642524
062516
040515
052501
047101
051117
062117
020101
020123
042114
051040
052101
042526
027107
027124
051105
040515

051125
041440
020122
041440
042116
042523
062440
005015
062040
044507
044123
041040
041505
020101
020123
041440
040440
041440
042116

EM25:

030060
042523

067440
020124
047101
042516
051105
047440
041440
020104
051122

EM26:

LASCIZ

/500 OFFSET

04625264
042504
020104
061440

EM27:

CASCII

/WRITE HEADER AND DATA CAUSED

046515

047440
052106
0642510
051105
042523
062440
000
044522

046511

MACY11

040505
047101
060524
062523
051120

020104

050117

REC

DATA GIVES REG.

CONT.

AFTER

COMMAND/

COMMAND CAUSED AN ERROR/<15><12>

COMMANDS ONE

REC

AFTER

DATA GIVES REG.

THE

CONT.

AFTER COMMAND/

OTHER CAUSED AN ERROR/

IMPROPER REGISTER CHANGE/<15><12>

0270

CIRJIDO, RPOL/S/6 FCTINL CTLR)
CZRJID.PY
28-MAR-79 09:03

e
il el
D el

g AN
U

el o
i

L L Lol U A

il ol el el
il
i
D
il e
il el

v vV
v vL2

D
il
e
e e
ol
el e
e
—h e

N
o OCOO0O00000 OOOOOOODOOCOO o
—
~N RO
NN RO NS ~N — ol ) il pl el ol mald
NO NS
Ny — o
0N
NS N
= o OV

3030
3031
3032
3033
3034
3035
3036
3037
3038
3039

054301
054306
056314
056322
054330
054336
054344
054352
054360
054361
054366
054374
054402
056410
054416
054424
054432
054440
054446
056447
054456
054462
054470
054476
054504
054512
056515
056522
054530
054536
054544
054552
054560
054566
054574

047
052

—S AN = \NO

0441
005

S2NOON=LEMONOO—O
O Wt NI O W = O =
N

051105
051511

042
052
0461

—Nno

N W

056126
056134
056142
056150
056152
056160
054166
054174
056202
056210
054216
054220
054226
054234
056242
054250
054256
056264
054272
054300

= ]ol=] o
»r&HO W

12984
12985
12986
12987
12988
12989
12990
12991
12992
12993
12994
12995
12996
12997
12998
12999
13000
13001
13002
13003
13004
13005
13006
13007

0534

000104

MACY11

30A(1052)

25-MAY=79

10:30

POWER DOWN AND UP ROUTINES

nS
PAGE 272

SEQ 0271

051040
042524
0647101

043505
020122
042507

062117
020101
020123
051440
020104
062510

062040
044507
044127
047510
062502
042522

ASCII

/GOOD DATA GIVES WHAT

042503
062040
044507
044127
051501
042522
051105
040515

053111
052101
062526
052101
052040
040440
04614640

.ASC1Z

/RECEIVED DATA GIVES WHAT

046522
040505
047101
060524
043516
064522
047522
0643106

062524
042504
020104
061440
042105
042524
020115
051105

EM30:

LASCIZ

/WRITE

040505
042101
0642116
020101
0642105
047522
062522
051105
043516

020104
051105
062040
040503
044440
042520
064507
041440
006505

EM31:

.ASC1]

/READ HEADER AND DATA CAUSED

047517
040526
051505
02012¢
042114
0446124
012
041505
020104
043440
053440
040527
051105
062524
0646515

020104
043440
053440
044123
0641040
051105

LASCl]

/GO0D DATA GIVES WHAT

<ASCIZ

/RECEIVED DATA GIVES WHAT

SHOULD BE

WAS

THERE/<15><12>

THERE

AFTER

COMMAND/

042116

HEADER

AND

DATA

(HANGED WRITE

IMPROPER REGISTER (HANGE/<15><12>

SHOULD BE

WAS

FROM BUFFER/

THERE/<15><12>

THERE

AFTER

COMMAND/

CIRJIDO, RPO&L/S5/6 FCINL €
CIRJID.P1Y
28-MAR-79 09:
3041

13042
13043
13044
13045
13046
13047

13048
13049
13050

13051
13052

13053
13054
13055
13056
13057
13058

13059

13060
13061
13062
13063
13064
13065
13066
13067
13068
13069
13070
13071
13072

13073
13074
13075
13076
13077
13078
13079
13080
13081
13082
13083
13084
13085
13086
13087

13088
13089
13090
13091
13092
13093
13094
13095

054576
054604
0564612
054620
054626
054634
054642
054650
054656
054664
0564672
054700
054705
054712
054720
054726
054734
054742

054750
054756

054760
054766
054774
055002
055010
055016
05502¢
055026
055034
055042
055050
055056
055064

055072
055100

055106
055107
055114
055122
055130

055133
055140
055146
055154
055162
055170
055176
055204
055212
055217
055224
055232
055240
055246
055254
055262

MACY11

051127
042510
042040
043040
062527
051040
042510
040440
052101
052501
040504
051122

122
040504
052501
046511
051105
051511
0464103
005015
047507
052103
062526
052101
046125
052040
005015
042522
042105
020101
020123
053440
042510
052106

046517

000
122
040504
041516
052103
127

30A(1052)

25-MAY-79

10:30

POWER DOWN AND UP ROUTINES

PAGE 2/3

Em32:

.ASCil

/WRITE

EM3T:

ASCLI

/READ DATA CAUSED

WEADER DATA,

SEQ 0272
FOLLOWED BY READ HEADER AND DATA,

IMPROPER REGISTER C(MANGE/<15><12>

042524
047101

020122
062507

042117
020101
020123

<ASC1]

/GOOD DATA GIVES WHAT

051440
020104
042510

062040
044507
0464127
047510
042502
042522

042503
062040
044507
044127
051501
042522
051105
040515

053111
052101
042526
052101
052040
0460440
041440
042116

.ASCIZ

/RECEIVED DATA GIVES WHAT

SNE
ALN
v

020104
044440
0642522

EM34:

.ASCIZ

/READ

EM35:

LASCl]

/WRITE DATA COMMAND CAUSED

LASCLI

/GOOD DATA GIVES WHAT

040524
051117
000
064522
052101
0646515

040503
044440
042520
044507
061440
006505
0647517
0640524
051505
020124
042114
044124
012

051105

DATA

CAUSED DATA ERROR/

SHOULD BE

WAS

THERE/<15><12>

THERE

AFTER

COMMAND/

INCORRECT/

IMPROPER REGISTER CHANGE/<15><12>

SHOULD BE

THERE/<15><12>

Rl MACY11 30A(1052)
25-MAY-79 10:30 PAGE 276
POWER DOWN AND UP ROUTINES
B

CIRJIDO, RPOL/S/6 FCTINL CY
CZRJID.PY
28-MAR-79 09 :03

044505

060524
051505

043440
051040
042524
052116

053111
043505
020122
047105

127

0446522

062524

LASCIZ

/RECEIVED DATA GIVES REGISTER (ONTENTS AFTER COMMAND/

EM36:

LASCIZ

/WRITE DATA (OMMAND CHANGED WRITE FROM BUFFER/

EM37:

LASCI1

/SEEK COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

LASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER SEEX COMMAND/

ASCII

/WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15><12>

LASCIT

/GO0D DATA GIVES WHAT SHOULD BE THERE/<15><12>

72 062526 020104 040504

06
14
22

055351

05
11

042524

047101

042040

055542

052040

042510

0425

042503

0531

0425
044507
041440
052116
042524
065505

055560

o
»

044127

020123

W
wn
W
v

042526

v
~N
~N

044507

055520

(=]

Y o)
VNS WO 0O~V PV

“ TS oTNO AR WA —~O VN
NO NS NN —=O 0B NOWNEWN
= OO

i
i e
o
i
e

VNS S EEEEDDEPMNMANWNNNANNNNINNINRNINNNIRNONN
bt et b et
b et et = O OO OO OCOO000

i i
i
i
o

i
s
D il
s
s

e
o
e
e

o il e
e

e o
e

D i
)
il
el

oy e e e

o
i
it
il

o
D e
i

D i

e
e

b o

D e

oy e
s o
s
b il

i e

s
s

i
el ot

50 5

055 65

062105
1

042040

0521

055632
055640

041440
062116

044507
0642522
051105
042524
043101
042523

055643

127

044522

042524

042040

044127

3
3
;

055650
055656
055664
055672
055700
055706

041440
041440
020104
050117
043505
020122

046517
000

042510
052501
046511
051105
051511
044103
01

ol
e o

—

M L

g L Ll A Ut Lo L L

e ok e o p

i AN Lt L A U LA L

8 Ul AN Lt U W A U L U U W U U U

e e

M U U

i o

A U L L

el o

N W

el ol ol o

el o

D i e

e N W U N NN
—

13096
13097
13098
13099

55750

046125

«0

020 064

060515

045503
042523
051120
051040
042526
047101
044507

047510

042502

EM&O:

SEQ 0273

]
|

RPO4/5/6 FCINL CTLRY
1
28-MAR-79 09:03

056162

052040
005015
042522
042105
020101
020123
052123
047117
020123
020122
047101
047514
020107
051127
054502
042524
020113
047117
042523
051120
051040
0425264
047101

047507

056170
056176
056204
056212
056220
056226

052101
042526
052101
046125
052040
005015

056236
056244
056252
056260
056266
056274
056302
056310
056316

042105
020101
020123
052123
047117
020123
020122
051505
020105

056230

056324
056332

056333

056340
056346
056354
056362
056370
056376
0564064
056412
056420
056426
056434
056442
056447

062510

042522

042503
0620640
044507
042522
051105
042524
063101
047503
000104
045503
052517
052111
053440
046040
052502
041440
020104
050117
043505
020122
042507

053111
052101
062526
044507
041440
052116
062524
066515

020101
020123
051440
020104
042510

044507
044127
047510
042502
042522

042117

/RECEIVED DATA GIVES REGISTER (CNTENTS AFTER COMMAND/

_ASCI]

/LOCKING OQUT WRITE BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER (HANGE/

0462040

LASCI1

/7GO0D DATA GIVES WHAT SHOULD BE THERE/<15><12>

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITES WERE LOCKED OUT/

.ASCI1

/ATTEMPTING TO WRITE WITH WRITES LOCKED OUT CAUSED IMPROPER REGISTER (HA

LASCIT

/600D DATA GIVES WHAT SHOULD BE THERE/<15><12>

047117
020124
020105
044522
041517
052126
052501
046511
051105
051511
044103
005015

042503

053111

042105
000

047640

052125

101

052120
047526
0425264
020110
051505
042513
0201264
042105
047522
0425 22
0511 05
0435 16
1 07

EM&Y:

052101
042526
044507
041440
052116
042526
052111
051105
045503

052124

046505

047517

047111
053440
053440
051127
046040
0201064
040503
044440
042520
044507
041440
006505

SEQ 0274

.ASCIZ

042522

042040
044507
042522
051105
042524
043101
051127
053440
047514

30AC1052)
25-MAY-79
10:30
POWER DOWN AND UP ROUTINES

020107
044522
052
0
O
O
O
0
O
0
O

EM&2:

RV, }

055756
055764
055766
055774
056002
056010
056016
056026
056032
056040
056046
056052
056060
056066
056074
056102
056110
056116
056124
056132
056140
056146
056154

MACYY1

6
PAGE 275

PRV, I AV TV LV P

—

O«

OO
VO NOWVNE WOV

NOWVEUWN 2OV

VSN

N NNNYNNNNNNOOCOCOTOCOCOOO
N NNNANNNN

—

OOOOO0O0 o 0 00O OO0V VO OB
O N ()
— o OO0 ~NO N
) — OOV®NO VNI INNN—O

el e

) e

D —d

il el

ol el

il e

el i il o

D il

il et

D el

il A

il oy il e

i il

D o

VvV
IV IV IV IV IV IV IV IV TRV
LV LV RV RV RV AV AV AV el
LV AV o
AV AN IVi
AV LVi AVo IVel VIV
IV vVDIVDIVD IVi Lyi VvDIV)IVe IV TPV
IV IV TV IVDTVel LVil TVil TV
TV T
i il aad D ool
e il il s
gy = e e o el e i )
o
D e
QU1 U V], V] V], ¥ TN el ol ol

eh __p

r~~

MACY11

040524
051505
020124
062114
0464124
012
041505
020104
043440
051040
042526
052116
040440
040440
052120
044522

063440
053440
046123
041040
051105

044522
053440
051127
046040
020104
044103
020104
062040

0464526
0521
052111
041517
052517
047101
064506
052101

047517
040524
051505
020124
047117
020113
042522
062526
064124
042526
042513
024524
020123
050115
012
041505
020104
043440
053440
040527
042101
020113
020122
006505
044527

AV
IV IV |(WA

AV IV VW LV v

IO LV IV IV Vv IV W VIV IV IV v IV IV IV [V [V [V ]

NP
NN N NNPONNIN
NN NN NP NN NN NN
= cd e e o e e ad el e
TRV
Y IV IV ] WPV PRI NI PUNIPNIPONININD
(Y RV1,8 OOV
NOWVEWN
=0V
NO NS W
=0

CIRJIDO, RPOL/S/6 FCTINL CTLR)
CIRJID. P\\
28-MAR-79 09:C3

040504
053111
040510
052517
020105
006505
122
042526
040524
051505
051511
047503
051524
051105
046505
053440

RV RV, ]

(¥,
N

012

N - OO0

[o Jo

D ——ld
el
el
D
) Sl
) —
)
—

L0 Lt L Lt e Lt Al L L L A A A
N NN

238
239

056454
056462
056470
056476
056504
056512
056515
056522
056530
056536
056544
056552
056560
056566
056574
056602
056610
056611
056616
056624
056632
056640
056646
056654
056662
056670
056673
056700
056706
056714
056722
056730
056736
056744
056752
056760
056766
056774
057002
057010
057016
057021
057026
057034
057042
057050

263

052124

30A(1052)

25-MAY=79
10:30
POWER DOWN AND UP ROUTINES

6
PAGE 276

SEQ 0275

ASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE/

LASCI]

/WRITING WITH WRITES LOCKED OUT CHANGED DISK DATA/<15><12>

020104
043440
053440
040527
042040
042502
053440
024040
053440
046040
020104
005015
052101
042524

LASCI1

/G00D DATA GIVES WHAT WAS ON DISK BEFORE WRITE

LASCIT

/WAS ATTEMPTED/<15><12>

044505
060504

JASCI1]

/RECEIVED DATA GIVES WHAT WAS READ BACK AFTER WRITE/<15><12>

LASCIZ

/(WITH WRITE LOCKED OUT) WAS ATTEMPTED/

044505
060504
053111
063505
020122
047105
052106
052124
042105
062524

EML3:

053111

(WwlITH WRITE LOCKED OUT)/<

CIRJIDO, RPO4L/S/6 FCINL CTLRY
CIRJ1D.PYY
28-MAR-79 09:03
13264
13265
13266
13267
13268
13269
13270
13271
13272
13273
13276

30A(1052)
25-MAY=79
10:30
POWER DOWN AND UP ROUTINES

000
040516
020107
051505
051127
047514
052125
040503
044440
062520
044507

046102
051127
041040
052111
045503
047526
051525
050115
020122
052123

EM64:

043440
053440
044123
061040
051105

6
PAGE 277

SEQ 0276

13278
13279
13280
13281
13282

057246
057254
057261
057266
057274
057302
057310

057316

062105
105
047111
052111
020131
020105
0410640
020116
042105
067522
042522
051105
043516
107
040506
0S3111
040510
052517

020105

040524
051505
020124
042116
044124

13284
13285
13286
13287
13288
13289
13290
13291
13292
13293

057327
057334
057342
057350
057356
057364
057372
057400
0576406
057414

122
042526
060524
051505
051511
047503
051524
051105
042524
020113

041505
020104
0636440
051040
042526
052116
040440
053440
046040
052502

064505
060504
053111
043505
020122
047105
052106
044522
041517
052126

.ASCI1

/RECEIVED DATA GIVES REGISTER CUNTENTS AFTER WRITE LOCK BUTTON/<15><12>

13295
13296

057426
057434

047105
020104

041101
051127

04251 A
05211 1

.ASCIZ

/ENABLED WRITES/

13298

(057445

126

0640522

051516

LASCI1

/TRANSFERRING ON LAST BLOCK - CYLINDER &10, SECTOR 21,

13300

057460

020107

047117

046040

13302
13303
13306
13305
13306
13307
13308

057474
057502
057510
057516
057524
057532
057540

041517
056503
051105
020054
051117
0520640
030440

020113
044516
032040
042523
031040
040522
006470

042523

LASCIIT

/CAUSED IMPROPER REGISTER CHANGE/<15><12>

042040

LASCIT

/600D DATA GIVES WHAT SHOULD BE THERE/<15><12>

13275
13276
13277

13299

13301

13309

13310
13311
13312
13313
13514

13315

13316
13317
13318
13319

057150
057153
057160
057166
057174
057202
057210
057216
0572264
057232
0572640

MACY11

057452

057466

057545

042506

051501

103

057552
057560
057566
057574
057602

020104
050117
043505
020122
042507

057614
057622
057630
057636

052101
042526
052101
046125

057606

047507

0641640
006505
047517

051122
020126

052501

046511
051105
051511
044103
005015

042117
020101
020123
051440
020104

040510
012
020104

047111

EM4S:

ASCI]

/ENABLING WRITES BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE/<1

LASCI1

/G0O0D DATA GIVES WHAT

SHOULD BE

THERE/<15><12>

046102

020055
042116
030061
052103
026061
045503
012
051120
051040
042524
047101
044507
044127
047510
042502

TRACK 18/<15><12>

s A O U U L
N N A
WL

U L

w (VY AV AV IV ]V ]
&» Pl ol olWXV
IV ] w
» W
= O 000 ~

U U U U U

355

361
362

057644
057652
057654
057662
057670
057676
057704
057712
057720
057726
057734
057741
057746
057754
057762
057770
057776
060004
060012
060020
060026
060034
060040
060046
060054
060062
060070
060076
060104
060112
060120
060126
060134
060142
060150
060156
060164
060172
060200
060206
060214
060222
060230

060236
060237
060244
060252
060260
060266
060274
060302
060310
060316
060324
060332

ONNNNONNIN =NONO O
W ALNNU R 8 WD LN
NN =2 N

U U

e AN

wwuuuuuuwgwwwwuwwu
rnono N

wny -0

CIRJIDO, RPO&L/5/6 FCTINL CTLRY
CZRJID.PIY
28-MAR-79 09:03

MACY11

062510

062522

062503

053111
052101
042526
046507
041440
052116
062526
047101
000
020101
043040
040514
047514
061440
042504
026060
047524
020054
020113

30A(1052)

041040
051105

042506

041505
020104
043440
051040
042524
052116
040440
0460440
052120
040522
000122

044505
040504
05311
043505
020122
047105
052106
052124
042105
051516

10:30

POWER DOWN AND UP ROUTINES

EMLG:

EM4L7:
020101
047040
051511
051440
020122
042105
047522
005015
052123
040510
043440
040504
053111
0640510
052517
020105
006505

25-MAY-79

PAGE 2/8

<EQ 0277

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER TRANSFER/

<ASCII

/DATA READ FROM LASY BLOCK - CYLINDER 410, SECTOR 21,

LASC1Z

/1S

<ASCII

/TRANSFERRING DATA FROM NONEXISTANT SECTOR CAUSED IMPROPER /<15><12>

LASCII

/REGISTER (HANGE, GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED TRANSFER/

TRACK

18/<15><12>

IN ERROR/

oTM

Lo
e
el
el
el
el Sl
il
el el

382
383

O O OO O

OV~

0 OO0 O0O
0 O ~NO V&

(v VLV
IV IV V"]
(V. (VI
IV IV IV ]

IV
TV oY

(I
IV TV

D
il ol
il
el
D il
el
)
)

MACY11

30A(1052)

EMSO:

051122

043123
063516
020115
044530
020124
051117
062523
040524
051117

042117
020101
020123
051440
020104
042510

RPO4/5/6 FCTINL CTLR!
28-MAR-79 09:03
P1

13400
13401
13402
13403
13404
13405
13406
13407
13408
13409
13410
13411
13412
13413
13414
13415
13416
13417
13418
13419
13420
13421
13422
13423
13424
13425
13426
136427
13428
13429
13430
13431

060336
060344
060352
060360
060366
060374
060402
060410
060416
060424
060426
0604 34
060442
060450
060456
060464
060472
060474
060502
060510
060516
060524
060532
060540
060546
060554
060555
060562
060570
060576
060604
060612
060620
060626
060634
060642
060646
060654
060662
060670
060676
060704
060712
060714
060722
060730
060736
060744
060752
060760
060766
060774
061002
061010
061016
061022

051124
051105
043040
047516
052123
042523
041440
020104
0642640
005015
047507
052101
042526
05210
046125
052040
005015
040502
040526
051505
020124
047111
042506
042524
047101
000
107
020107
040507
041516
041440
020104
050117
043505
020122
042507
047507
052101
042526

042526
051127

25-MAY-79

10:30

POWER DOWN AND UP ROUTINES

PAGE 279

SEQ 0278

LASCII

/TRANSFERRING $ROM NONEXISTANT SECTOR CAUSED DATA ERROR/<15><12>

042040
044507
044127
047510
042502
042522

LASCLI

/GOOD DATA GIVES WHAT SHOULD Be THERE/<15><12>

020104
043440
053440
040527
041040
020122
020122
043123

040504
053111
040510
020123
043125
043101
051124
051105

.ASCIZ

/BAD DATA GIVES WHAT WAS IN BUFFER AFTER TRANSFER/

053111

0471
042514

LASCI]

/GIVING ILLEGAL FUNCTION CAUSED IMPROPER REGISTER CHANGE/<15><12>

CASCL]

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

JASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER JLLEGAL FUNCTION IS GIVEN/

LASCL]

/WR1TE DATA COMMAND ON NONEX]STANT SECTOR CAUSED IMPROPER REG. (MANGE /<]

046111

020114
046524
052501
046511
051105
051511
044103
005015
0462117
020101
020123
051440
020104
042510

062503
062040
064507
042522
051109
042524
043101
046111
020114
044524
020123
000116
052111

EMST:

052506
047117
062523
051120
051040
062524
047101
062040
044507
044127
047510
042502
042522

044507

020105

EMS2:

CIRJIDO, RPO4/S/6 FCINL CTLR
CIRJ1D.PYY
28-MAR-79 09:03

13432

13433
13434
13435
13436
13437
13438
13439
13440
13441
13442
13443
13444
13445
13446
13447
13448
13449
13450
13451
13452
13453
13454
13459
13456
13457
13458
13459
13460
13461
13462
13463
13464
13465
13466
13467
13468
13469
13470
13471
13472
13473
13474
13475
13476
13477
13478
13479
13480
13481
13482
13483
13484
13485
13486
13487

061030
061036
061044
061052
061060
061066
061074
061102
061110
061116
061124
061130
061136
061144
061152
061160
061166
061174
061176
061204
061212
061220
061226
061234
061242
061250
061256
061264
061272
061277
061304
061312
061320
061326
061334
061342
061350
061356
061364
061365
061372
061400
061406
061414
061422
061430
061636
061444
061452
061460
061466
061474
061476
061504
061512
061520

040504
046517
047440
062516
047101
052103
052501
046511
051105
020056
042507
047507
052101
042526
052101
046125
052040
005015
042522
0642105
020101
020123
052123
047117
020123
020122
050115
051127
040504
122

042510
040440
052101
062524
062523
0461440
020104
042440
000
101

052120
047503
020104

MACY11

062510

042522

042503
042040
044507
042522
051105
0425264
043101
052101
042524
052111
0640524
040505
042101
042116
020101
020122
051101
052501
040504
051122

05311
052101
042526
044507
041440
052116
042524
042526
020104
020105
000
020104
051105

052124
0647111
046515
0464527
053116
060440
051523
042523
0511290
051040
0425264
047101

30AC1052)

25-MAY-79

10:30

POWE® DOWN AND UP ROUTINES

—\

PAGE 280

SeQ 0279

LASCI1

/GOOD DATA GIVES WHAT

SHOULD BE

THERE/<15><12>

LASCIZ

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE

EMS3:

.ASCIZ

/READ HEADER AND DATA AFTER A SEARCH CAUSED DATA ERROR/

EMSE:

LASCIT

/ATTEMPTING COMMAND WITH INVALID ADDRESS CAUSED

LASCIT

/7GOOD DATA GIVES WHAT SHOULD BE THERE/<15><1?2>

DATA/

062040
043101
020101

044103
0642523
040524
051117

0646505
020107
047101
044124
046101
062104
0616440
020104
050117
043505
020122
042507

042040
044507
066127
0647510

IMPROPER REGISTER CHANGE

CIRJIDO, RPO&/5/6 FCTINL CTLRY

MACYT1

136488
136489
13690
136491
13492
13493
13694
13495
136496
13497
13498
13499

061526
061534
061542
0615644
061552
061560
061566
061574
061602
061610
061616
061624

046125
0520640
005015
042522
0421
0201
0201
0521
067}
020
020 1
052 1

020104
042510

04
04

062503

13501
13502
13503
13506
13505
13506
13507
13508
13509

061640
061646
061654
061662
061670
061676
061704
061712
061720

020107
040505
053440
054105
042105
042522
042526
020127
006522

-—

061723

103

el el e
e
o
b o
PNIN) =

VAV IV TV IV I IV TeN v TV IV

W VTV
IV LV ]
i

N OO0
~NO N

W AV SV RV IV IV AV RV IV 3

1
1
1
|

533

543

062126
062134
062162
062150
062156
062164
062172
062200
062206
062214
062220

(V]

~no

LASCI1

/WRITING OR READING WITH EXPECTED ADDRESS OVERFLOW ERROR/<15><12>

LASCI]

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042522

062503

053111

LASC1Z

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/

040506

0640524

.ASCI1

/DATA READ WITH AN EXPECTED ADDRESS OVERFLOW ERROR 1S INCORRECT/<15><12>

CASCI]

/WORD NO. 1 TO 260 SHOULD BE READ, WORD NO 261 10 266 SHOULD/<19><12>

042105
020101
020123
052123
047117
020123
020122
052101

062120

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/

042040

062040
062046
062056
062062
062070
062076
062104
062112

532

LASCIZ

Sea 0280

042117

13524
13525
}3526
3527
1 3528
1 3529
1 530
| 531
1
!
|
|
1
1
1
1

EMSS:

6
PAGE 2381

/CAUSED IMPROPER REGISTER CHANGE/<15><12>

052101
042526
052101
046125
052040
005015

062032

051040
043516
020110
052103
042106
047440
047514
047522

047111

POWER DOWN AND UP ROUTINES

LASCI1

061772
062000
062006
062014
062022
062030

13523

051117
044504
052111
042520
040440
051523
043122
051105
012

052111

10:30

0425232

1
1
1
1
1
13522

061764

052116
042526
051105
000116

25-MAY-79

052501

0201064
050117
043505
020122
042507

26
043101
050117
047511

[

N
N AN AN —

0511

Nt PN

061632

061730
061736
061746
061752
061760

= OOV

1
1
1
1
1

YO NI NN — o

VAV IV IV IV VAV IV IV IV IV TP v
VRV
IV IV IV AV IV IV LV
TRV N

13500

28-MAR-79 09:03

NNOMNIN —-NINVO

CZRIID.P1N

30A(1052)

047507

040505
044124
054105
042105
042522
042526
020127
020122
0415
052!
0475

046511
051105
051511
044103
005015

020101
020123
051440
020106
042510

051120
051040
0462524
047101

044507
044127
047510
062502
042522

042040
044507
042522
051105
042524
043101
050117
047511

052101
042526
044507
041440
052116
042524
051105
000116

020104
040640
042520
040440
051523
043122
0511 05
051 11

044527
020116
052103
042104
047440
067514

};

0510640

EMS6:

047922

044440

042522

047040

CIRJIIDO, RPO&/S/6 FCINL CTLRI
CIRJID.PIY
28-MAR-79 09:03

D
i
i
el e
oy el
el

OOV
NO NS W

(P IV TeN vV IV TV IV IV V]
VAV VRV IV AV IV IV 2V 3
OO N~ NNNNN~N

el
e
-

(Sl A

VIV LWV LV IV [V 1V |
AN NN (W LV RV LV LV LV 1V ]
N
ook ok R AR Al
P o
N—=O00m

13544
13545
13546

062226
062234
062242
062250
062256
062264
062272
062300
062306
062314
062315
062322
062330
062336
062344
062352
062360
062366
062374
062402
062410
062416
062424
062432
062440
062446
062450
062456
062464
062472
062500
062506
062514
062516
062524
062532
062540
062546
062554
062562
062570
062576
062604
062612
062620

052101
046125
052040
005015
042522
042105
020101
020123
052123
047117
020123
020122
050115
040504
040522
000122

062622
062630
062636
062644
062652
062660
062666
062674
062702
062710

052101
044524
020117
054506
051511
052504
040440
051105
020116
0642105

MACY11

030440
033062
052517
020105
020054
047040
020061
033066
046125

052040
020060
062114
042522
047527
020117
047526
051440
006504

020105
062507
042524
043516
020101
047101
046124
063516
040515
02012¢4
042105
051120
051040
042524
047101

0644103
000104
050115
042040
047503
020104
053440
043040
020124
040503
005015
050117
063505
020122
062507

042117
020101
020123
051440
020104
042510

046127
047510
042502
042522

30A€1052)
25-MAY-79
10:30
POWER DOWN AND UP ROUTINES

6
PAGE 282

SEQ 0281

LASCIZ

/BE

LASCII

/ATTEMPTING DATA (OMMAND WITH WRONG FORMAT BIT CAUSED/<15><12>

LASCLI

/IMPROPER REGISTER CHANGE/<15><12>

042040
044507

<ASCI1

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><i2>

042503
062040
0464507
0462522
051105
042524
043101
052101
042524
040524
051516

053111
052101
062526
044507
0461440
052116
042526
042526
020104
052040
042506

LASC1Z

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTCD DATA TRANSFER/

062524
0643516
047515
051040
042524
044522
020116
052101
040503
044440

050115
052040

LASCII

/ATTEMPTING 10 MODIFY REGISTER DURING AN OPERATION CAUSED IMPROPER/<15><

EMS7:

EM60:

CHANGED/

CIRJIDO, RPO4/5/6 FCTNL (LR
CZRJID.PY
28-MAR-79 09:03

PRV Y

[pV] =

O O®C
NI

sgwwwwuwwu
- 22X
T- X s1=
~nNo PO
b od el e e

O R

QR P

13600
13601
13602
13603
13604
13605
13606
13607

062716
062724
062725
062732
062740
062746
062754
062762
062770
062776
063004
063012
063014
063022
063030
063036
063044
063052
063060
063066
063074
063102
063110
063116
063121
063126
063134
063142
063150
063156
063164
063172
063200
063206
063214
063222
063230
063233
063240
063246
063254
063262
063270
063276
063304
063312
063314
063322
063330
063336
063344
063352
063360
063366
063374
063375

067522

MACY11

30AC1052)

25-MAY-79

10:30

POWER DOWN AND UP RCUTINES

PAGE 283

SEQ 0282

062520

006522

063505
020122
062507
062117
020101
020123
051640
020104
042510

051511
044103
020056
042040
044507
044127
047510
042502
062522

LASCL]

/REGISTER (HANGE. GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503
062040
044507
042522
051105
042524
043101
050117
047511
020123
050115
012
062117
043516
043640
040440
051523
042522
051105
043516
043111

053111
052101
042526
044507
041440
052116
042524
051105
020116
052101
042524

CASCII

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION WAS ATTEMPTED/<1S

043111
051040
053111
0421064
047440
044507
0461040
046440
042511
041511
051525
051122

LASCIZ

/MODIFYING REG GIVES ADDRESS OF

030523
051440
047111
041505
052101
052111
026061
020075

EM61:

LASCIZ

/RHCS1

HAS

SOME

INCORRECT

STATUS BITS

OR -

020061

EM62:

LASCIZ

/RHDS1

HAS SOME

INCORRECT

STATUS BITS

OR -

036440

047523
041516
052103
052524
051524
020054
030040

042110

030523

EM63:

LASCIZ

/RHDST

CONTENTS DURING COMMAND WERE

IN ERROR/

]

CIRJIDO, RPOL/S5/6 FCTNL
CIRJID P
28-MAR-79

MACY11

063402
063410
063416
063626
063432
063440
063446
063651
063456
063464
063472
063500
063506
063514
063522
063530
063536
063544
063552
063560
063566
063574
063602
063604
063612
063620
063626
063634
063642
063650
063656
063664
063670
063676
063704
063712
063720
063726
063734
063742
063750
063756
063764
063772
064000

062524

13656
13657
13658
13659
13660
13661
13662
13663
13664
13665
13666
13667
13668
13669
13670
13671
13672
13673
13674
13675
13676
13677
13678
13679
13680
13681
13682
13683
13684
13685
13686
13687
13688
13689
13690
13691
13692
13693
13694
13695
13696
13697
13698
13699

064002

064010
064016
064024
064032
064040
064046
064054
064062
064070
064076

041440

30A(1052)

020104
062510

053111
052101
042526
044507
041640
052116
042526
046515

047522
046122
044507
051124
062502
051127
020116
040505
0414640
020054
030040

020122
051504

051122
040506
000107
051105
062040
047503
020104
042510
046105
047117
020124
042105

SEQ 0283

/RECALIBRATE COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12>

LASCL]

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

LASC1Z

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/

EM6S:

<ASCIZ

/INTERRUPT

EM66:

<ASCl]

/HEADER AND DATA (OMMAND FOR HEAD SELECTION TEST CAUSED/<15><12>

LASCII

/ERROR - RHDST GIVES TRACK BEING WRITTEN OR READ ON CyL 0, SCTR 0/<15>1

005015
062040
044507
044127
047510
062502
042522

042503
042040
044507
042522
051105
042524
043101
047503
000104
042524
020124
047111
042101
042116
020101
047101
020122
051440
044526
051505
051525

10:30

6
PAGE 284

LASCII

EM6L:

051040
042524
047101
047507
052101
042526
052101
046125
052040
005015
042522
042105
020101
020123
052123
047117
020123
020122
047101
047111
050125
046111
042510
060440
052101
0646515
047506
062101
041505
052040
040503
005015
051105
020055
020124
020123
020113
020107
042524
051040
047117
030040
051124

25-MAY-79

POWER DOWN AND UP ROUTINES

FAILING/

D 0, RPO&/S/6 FCINL CTLRY
) P11
28-MAR-79 09:03

MACY11

30A(1052)
25-MAY-79
10:30
POWER DOWN AND UP ROUTINES

2
3

0440640
120122

EM67:

0661064
066112

062101
042504

064120

047101

020104

040504

0664162

042510

042101

051440

S
6

064126
064134

8
9
0
1
22
723
7264

064150
064156
066166

042522
040505

060524
051117

PAGE 285

SEQ 0284

.ASCI1

/READ HEADER AND DATA ERROR IN HEAD SELECTION TEST./<12><15>

LASCI1

/FIRST FOUR WORD NUMBERS ARE

.ASCI1

/WORD NUMBERS % TD 260 ARE DATA WORDS,/<12><15>

.ASCIZ

/AND

LASCI]T

/READ HEADER AND DATA ERROR

051122
020116

3727
3728
3729
3730
3731
3732
3733
3736
3735
3736
3737
3738
3739
37640
37641
3742
13743

064234
064261
064246
064254
064262
064270
064276
064304
064310
064316
064324
064332
064340
064346
064354
0664362
064370

051

061505
052040
006612
0515 2
051
S
020
&
5
5
0
g

052
020123
0310640
042522
020101
026123
047101
0642040
047527
044502
032454
034054
020105
020113
051105

041115
020065
030066
042040
047527
006412
020104
052101
042122
051524
033056
063440
051124
052516
000056

137645
13746
13747
13748
13749
13750

064374
0664402
064410
064416
064424
064432

0462522
060505
047101
040524
051117
012

062101
042504
020104
062640
044440

044040
020122
040504
051122
006516

13752
13753
137564

064440
064446
064454

042522
046514
051505

106

063111

042506

.ASCI1

/DIFFERENCE LINE TEST/<15><12>

064466
064474
064502

127

041516
042516
006524

047516
020064
044040

051117

020104

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

725
726

13751

13755

13756
13757
13758

13759
13760
13761
3762
3763
3764
3765
3766
3767

066170

064176
064206

064212
064220
066226

064433

064461

064510
064513
064520
064526
064534
0645642
064550
066556
066564

046105
047117
027126

062440
064440

044506

047506
051117

041
051
020

006522
127
047516
033062
042526
020101
020110
042510
047111

020123
044507
060505

012
051117
020123
020060
042040
044127
051511
061440
042504

044524
051505

020124
053440

052516
020123
064124
062101
015
020104
051105
047526
040440
052101
042122
047111
020101
020123
032040
033454
05311
041501
041115

020105
052040
012
026461
042526
042504

EM70:

THE HEADER./<12><15>

IN DATA WORDS BITS 4,5,6,7,8 GIVE

TRA(CK NUMBER./

IN/<15><12>

CYLINDER ADDRESS/

CIRJIDO, RPO&/S5/6 FCTINL CTLR]
28-MAR-79 09:03
~~Oo
o
—00mTM

CIRJID.P11

772

064572
066600
064602
064610
064616
064624
064632
0646640
064641
064646
064654
064662
064670
064676
064702
064710
064716
064726

064732
064740
064746
064750
064756
064764
064772
065000
065006
065014
065022
065030
065036
065043
065050
065056
065064
065071
065076
065104
065112
065120
065126
065134
065142
065144
065152
065160
065166
065174
065202
065210
065212
065220
065226
065234
065242
065250

062101

042510

MACY11

051104

051505

041522
050117
031440
054105
062523

047111
020111
044640
050040
006523

052501
0646511

30A(1052)
25-PAY-79 10:30
POWER DOWN AND UP ROUTINES

PAGE 286

LASCII

/FORCING OP] BY 3 INDEX PULSES/<15><12>

042523
051120
051040
042524
047101

LASCII

/CAUSED IMPROPER REGISTER CHANGE/<15><12>

LASCL]

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042510

062040
044507
044127
047510
062502
042522

042503
042040
044507
0642522
051105
042526
043101
020063
020130
051505
044510
044523
046516
006502
040505
040524
062523
051120
051040
042524
047101

053111
052101
042526
044507
041440
052116
042524
047111
052520
000
0642514
043516
052502
012
020104
041440
020104
050117
043505
020122
062507

LASC1Z

/RECEIVED DATA GIVES REGISTER CONTENTS AFTER 3 INDEX PULSES/

.ASCl1

/WHILE USING UNIBUS B/<15><12>

LASCI]

/READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12>

042117
020101
020123
051440
020104
042510

LASCII

/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12>

042503
042040
044507
044127
051501
042522

JASCIZ

/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/

EMm71:

EM72:

SEQ 0285

mam
-

(IRJIDO, RPOL/S/6 FC WL 7 ILR
C(IRJID P
28-RAf -79 ,9:0
07 210¢

064440
062116

4
72660
052440
020123

0462514
063516
052502

4651
0y

Em73:

10:30

DOWN AND UP RCUTINES

7
PAGE 287

SEQ 0286

LASCH]

/WHILE

USING UNIBUS B/<15><12>

ASCIZ

/READ

ASCL]

/WHILE USING UNIBUS B/<15><*2>

<ASCII

/WRITE DATA COMMAND CAUSED

CASCII

/GO0OD DATA GIVES WHAT

LASC1Z

/RECEIVED

LASCI]

/WHILE USING UNIBUS B/<15><12>

LASC1Z

/WRITE DATA (OMMAND CHANGED WRITE FROM BUFFER/

LASCL]

/WHILE USING UNIBUS B/<15><12>

012

122

020104
064440
042522

127
052440
052440
020123
127
042040
047503
020104
042105
047522
042522
051105
043516
107
040504
053111
040510
052517
020105
006505

062514
063516
052502
012
042524

040504
061516
052103

EM7&:

DATA

INCORRECT/

IMPROPER REGISTER CHANGE/<15><12>

SHOULD BE

THERE/<15><12>

051105

044505
040504
053111
043505
020122
047105
052106
066517
000
062514
043516

122

042526
040524
051505
051511
047503
051524
051105
040515
127
052440
052440

EM75:

020123

127
042040
047503
020104
042507
052111
046517
042506
044127
051525
047125
041040

25-MAY-79

DATA GIVES

NNONOCO

13840
13841
13842
13843
13844
13845
13846
13847
13848
13849
13850
13851
13852
13853
13854
13855
13856
13857
13858
13859
13860
13861
13862
13863
13864
13865

065256
065264
065272
065273
065300
065306
065314
065321
065326
065334
065342
065345
065352
065360
065366
065373
065400
065406
065414
065422
065430
065436
065444
065452
065457
065464
065472
065500
065506
065514
065522
065525
065532
065540
065546
065554
065562
065570
065576
065604
065611
065616
065624
065632
065637
065644
065652
065660
065666
065674
065702
065710
065714
065722
065730
065736

30A(1052)
POWER

ENY, RV I JV] ¥
el

O O 0D 0o O O® OO 09

1
\
!
1
1
1
\

(V. IV AV IV IV IV IV IV ]

[Vl d Vad VAV IV IV IV ]

13826
13825
13826
13827
13828
13829
13830
\ 3831

MACY'1

005015

EM76:

CONTENTS AFTER

COMMAND/

ox
=t

044505
040504
053111
043505
020122
047105
052106
046517
000
047514
020107
023503
051117
047504
062516
051505
051505
050040
042503
042522
051505
012
042522
047040
042524

120
042101
051047
050040
052040

047111
052130
020124
047040
047522
041440
052103
046125

NNO
O —ON
B NWNN—-—ON

25-MAY-79

10:30

POWER DOWN AND UP ROUTINES

7
PAGE 288

SEQ 0287

LASCII

/WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15><12>

.ASCL]

/GO0OD DATA GIVES WHAT

LASCIZ

/RECEIVED DATA GIVES REGISTER

LASCII

/PRELOADING

LASCIZ

/THEREFORE NEXT

LASCIZ

/ADDRESS PLUG CHANGE RESULTED

SHOULD BE

THERE/<15><12>

051105

122

30A(1052)

-t B PUN) 2 IO =
N
ORI NN —

0475

042526
040524
051505
051511
047503
051524
051105
040515

— et O NNO
O
VO ILN—

066374
066402
066410
066416
066424
066432

051127
044103
040503
044440
962520
044507
041440
006505
107
040504
053111
040510
052517
020105
006505

065742
065750
065756
065764
065772
066000
066006
066014
066017
066024
066032
066040
066046
066054
066062
066065
066072
066100
066106
066114
066122
066130
066136
066144
066151
066156
066164
066172
066200
066206
066214
066222
066230
066236
066244
066252
066260
066265
066272
066300
066306
066314
066322
066330
066336
066344
066352
066360
066366

PNININ)

b ot

b o

ot d

b e

V000V OO0OOOVOOO0

N =2 OO 00NN
NN —

(W AV VRV TV IV v AV IV IV AV

13880
13881
13882
13883
13884
13885
13886

28-MAR-79

(=]

(ZRJIID.P1

MACY11

020110
042122
051047
0461440
052116

051505
040440
051525
053440
062522
052040
041510
047117
0001 23

051104
046120
040510
062522
062105
040502

051505
043525
063516
052523
064440
020104

EM77:

EM100:

°'RHCC'

PRIOR

CONTENTS

TO DOING NEXT

AFTER

TEST

COMMAND/

DOES NOT

PRODUCE

CORRECT

TEST RESULTS ARE SUSPECT WITH REGARD TO °'RHCC'

IN BAD REGISTER DATA/

RES

CONTENTS/

0, RPO4&/S5/6 FCTNL (TRl
AR
28-MAR-79 09:03

066456

066464
066472
066500
066506
066514
066522

066530
066536
066540
066546

066554
066562
066570
066576
066604
066612
066617
066624
066632
066640
066646
066654
066662
066670
066676

066703
066710
066716
066724
066732
066740
066746
066754
066762
066766
066774
067002
067010
067016
067024
067032

062522
051105
000101
047125
062111
043440
046106
046127
042104
050040
062522
000104
047125
052117
046111
040440
060440
051523
020107
041501

047040
040526
062514
051105
062522
052514
0646120
000
051511

122

062526
052116
044440
042522
063105
020101
046440
042523

122
042524
052116
044440
042522
052106
042040
047515
042505
050040
0646501
026505
020105
047040
020105
000

30A(1052)

25-MAY-79

10:30

POWER DOWN AND UP ROUTINES

7
PAGE 289

SEQ 0288

044507
042040

0647503

=IO =N =2 O = OO0 —-=0ONNOO =20~
—
WANNSVNWES = NN VNN NS WO

066440
066446
066454

MACY11

051524
051117
041040
020105
043501
020105
000
051511
047503
051524
051117
040440
0460440
020107
051440
051107
046102
05311

046114
041040
042105

EM101:

ASCIZ

/UNIT

DID NOT

EM102:

ASC1Z

/UNIT

NOT

AVAILABLE

AFTER

EM103:

ASCIZ

/REGISTER

CONTENTS

INCORRECT

BEFORE

EMI104:

LASCIZ

/REGISTER

CONTENTS

INCORRECT

AFTER

:
NOUSE

LASCIZ

GO OFFLINE

PROGRAMMABLE-DRIVE

WILL

WHEN ADDRESS

PLUG REMOVED/

ADDRESS PLUG REPLACED/

NOT

A DIAG MODE

USED/

SEEK/

067273
067300
067306
067314
067322
067330
067336
067344
067352
067360
067362
067370
067376
0474064
067412
067420
067426
067434
067442
067450

106

042440
026440
042040
047105
052123
006412
124
047117
062514
062040
020105
047507
043106
020054
005015
051047
026047
046517
053101
046102
020122
052123
061040
012
127
041440
020124
042516
000

120
020040

020124
052101
041040
020040
020040
043505
051040
005015
020040
020040
020040
020040
054105
020040
051505
052116
047503
000124

POWER

25-MAY-79

10:30

DOWN AND UP ROUTINES

PAGE 290

SEQ 0289

LASCII

/FATAL ERROR - SEE DOCUMENT LISTING/<15><12><15><12>

CASCLI

/THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12>

054504
041505
047125
040514
067640
020123
051525
006523

<ASCL]

/'READY', BECOME UNAVAILABLE, OR HAS STATUS BITS/<15><12>

044103
047516
061440
042105

LASCIZ

/WH1CH CANNOT

LASC1]

/PC

TEST

WAT

BI7T

REG

LASC1Z

EXPECT

ADDRESS CONTENT

CPHALT:

OOO0O0O0O

067033
067040
067046
067054
067062
067070
067076
067101
067106
067114
067122
067130
067136
067144
067152
067160
067162
067170
067176
067204
067212
067220
067226
067234
067242
067243
067250
067256
067264
067272

30A(C1052)

000

13981
13982
13983
13984
13985
13986
13987
13988
13989
13990
13991
13992
13993
13994
13995
13996
13997
13998
13999
14000
14001
14002
164003
164004
14005
14006
14007
14008
14009
14010
14011
14012
14013
14014
14015
14016
14017
164018
14019
14020
14021
14022
14023
14024
164025
16026
164027
14028
16029
14030
14031
164032
14033
164034
164035
14036

MACY11

LAY
R 2P MY (S P LRV IV IV,

CIRJIDO, RPO&L/S5/6 FCINL CTLRY
CIRJID.PV
28~MAR-79 09:03

020103
052040
020040
020040
052111
051040
020040
020040
0641510

020040
051505
053440
020040
020040
043505
051040
020040
030523

020040
0647516
020040
020040
042520

020040
020040
041520
020040
052103
051104
047503
020124
0647105

DH1:

CLEARED/

REG

RHCS1/7<15><12>

CONTENT/

CIRJIDO, RPOL/S5/6 FCTNL CTLRY
CIZRJID P11
28-MAR-79 09:03
14037
14038
14039
14040
14041
164042
14043
14044

14045

16046

14047

16048
14049
14050
14051
14052

14053
14054
14055

14056
14057
14058
14059
14060
16061
14062
14063
164064
14065
16066
14067
14068
14069
14070
1407
14072
14073
14074
14075
14076
14077
14078
14079
14080
14081
14082
14083
14084
14085

164086

164087

14088

14089
14090
1409
1409?2

0674652
067460
067466
067474
067502
067510
067516
067526
067532
067533
067540
067546
067554
067562
067570
067576
067604
067612
067613
067620
067626
067634
067642
067650
067656
067664
067665
067672
067700
067706
067714
067722
067730
067732
067740
067746
067754
067762
067770
067774
070002
070010
070016
070024
070031
070036
070044
070052
070060
070066
070071
070076
070104
070112
070120

041520
020040
020040
020124
044502
020040
020040
062515
012
040
020040
020040
020103
042440
020124
042522
020060
000
120

020040
020124
043505
063440
020040
044505
012
040

020040
020040
042104
042040
020040
000101
041520
020040
020040
020107
042522
062105
020040
020040
020040
051104
040504
120

0200«0
020124
043505
040440
051523
120

020040
020124
064501
0461440

MACY1Y

020040
042524
020040
020040
020124
042522
020040
044440

006516

020040
047040
020040
020040
050130
040640
051523
051515

020040
020117
050040
020040
041505
042104
030440
041505

020103
052040
020040
020040
047517
051040
042526

020040
051505
051040
020040
020104
041505
006504

020040
047040

020040
020117

020040
042526
020040
020040
042503
005015
020040
047516
020040
051505
040524
020103
052040

020040
052123
042522
020040
05311

020103
052040
020040
044514
067117

020040
051505
043040
063516
042524

020040
062522
052101
062040

020040
020040
042104
000

30AC1052)

25-MAY=79

10:30

POWER DOWN AND UP ROUTINES

DH&:

<ASC11

/PC

LASCIZ

DHS:

LASCl1

/PC

LASC1Z

7
PAGE 291

SEQ 0290

TIME

IN/<15><12>

TEST

WAT

BIT

REG

EXPECT

ADDRESS 10 MSEC/

TEST

REG

600D

RECEIVED/<15><12>

ADDRESS DATA

TEST

REG

ADDRESS DATA/

DATA/

0404490
051523
020101
052101

020040
020040
062101
020123
000
020040
051505
051040
020040
062522

DH6:

CASCLI

/PC

LASCIZ

RECEIVED/<19><12>

DM7:

<ASCI2

/PC

TEST

REG

ADDRESS/

DH10:

CASCII

/PC

TEST

FAILING CONTENT CONTENT CONTENT CONTENT/<15><12>

CZRJ1IDO, RPO&L/S/6 FCTINL CTLRY
CZRJID.PYY
28-MAR-79 09:03
14093
14094
14095
14096
14097
14098
14099
164100
164101
164102
14103
16104
14105
14106
14107
14108
14109
14110
164111
164112
164113

14114
164115
164116

164117
14118
164119
14120

14121
14122
14123
164124
14125
14126
16127
164128
14129
14130
164131
14132
164133
14134
164135
164136
164137
14138
14139
164140
16141
16142
164143
16144

16145
164146
16147
164148

070126
070134
070142
070150
070156
070162
070170
070176
070204
070212
070220
070226
070234
070242
070250
070256
070264
070272
070300
070306
070314
070322
070330
070336
070344
070351
070356
070364
070372
070400
070406
070414
070422
070430
070436
070444
070447
070454
070462
070470
070476
070504
070512
070514
070522
070530
070536
070544
070552
070560

052116
0462526
047117
041440
052116
020040
020040
020040
027107
046122
020040
020061
051504
044122
041520
020040
020040
052116
047503
020106
047440
052116
047503
020106
047440
040
020040
020040
041510
051040
020040
030523
042510
051040
020040
031522

070563
070570
070576
070604
070612

120

020040
020124
043505
N4 3440

30A(1052)

25-MAY-79

10:30

POWER DOWN AND UP ROUTINES

PAGE 292

SEQ 029

047117
041440
052116
062524
020040
020040
062522
020040
02006
051503
044122
020040
000061
020040
052123
047503
020106
047440
052116
047503
020106
047440
052116

LASCIZ

DHZ26:

012
020040
020117
051040
020040
031123
042110
051040
020040
031122
042510

120

020040
020124
051117
043440
020040
005015
020040
020040
020040
020040
040504
020040
005015

MACY11

041040

020040
051505
053440
020040
020104
042101

020040
047516
020040
020040
060524
040504
000

020040
020040
047516
020040
020040
040524

020103
052040

020040
051505
051040
020040
020104

020040

020040
067517

ASCL]

/P(

LASCIZ

DH30:

LASCII

/PC

LASCIZ

DHS1:

LASCL]

/PC

RHCS1

RHDS1

RHER1/

CONT OF

CONT OFf /7<15><12

RHCS?2

RHDS1

RHER]

RHER?

RHER3/

WORD

600D

BAD/<15><12>

DATA

DATA/<15><12>

TEST

RLG

600D

RECVD

REG.

TEST

CONT

RHCSI

TEST

RHCST

CONT

ILLEGL/<15><12>

0, RPO4&/5/6 FCTINL CTLR]

28-MAR-79 09:03

MACY1Y

051040
020040
0463505

041505
044440
006514

020040
047040
020040
042522
052101
042040
020040
052103

020040
020117
040440
051523
020101
052101
063040
000116

070722
070730
070736
070744
070752
070760
070766
070774
071002
071003
071010
071016
0710264
071032
071040
071046
071054
071057
071064
071072
071100
071106

041520
020040
020040
020107
047507
020040
020104
0643106
012
040
020040
020040
042104
062040
020040
020101
043505
120
020040
020124
020103
051040
005015
020040
020040
020040
020122
040527
041520
020040
020040
047440
044122
012
040
020040
020040
051123
053440
120
020040
020124
067117

020040
042524
020040
020040
042117
042522
020040
047111

020040
052123
042522
020040
020040
053103
047515
006507

020040
047040
020040
042522
052101
04c040
020040
000
020103
052040
020040
043117
041510

020040
020117
040440
051523
020101
052101
051040

020040
047516

020040
020040
051512
020040

-l ——
el
el
el ol
D
ld
D
)
i
e
el
sl
i
i o
) vl

N = b cd d et b e e b
o],
8] POPIPOPORUPNUNI

—t e

COOO0OOOOOOOOO0OOO0O0O0O000

=t s ONO O WNE BN — —
[+
3%, BN
(=1,
¥ VONESO —=ONS~OONOCONSO S~

020040
042126
0646116
012
040
020040
020040
042106
042040
020040
020101
047125

NNNNSNNSNSNNSINSNNSNNNNNSNSNYN

070620
070626
070634
070642
070643
070650
070656
070664
070672
070700
070706
070714

266

020040
020040
000123
020040
42524
020040
020106
051506
020040
047040
020040
020040
051501
020103
052040
020040
(020126

020040
051505
050040
020040
030523

020040

052123
041520
020040
006461
020040
020117
045040
020040
000
020040
051505
041440
020040

30AC1052)

25-MAY-79

10:30

POWER DOWN AND UP ROUTINES

DH60:

DHO1:

DHEZ:

SEQ@ 0292

LASCIZ

ADDRESS DATA

FUNCTN/

LASCIT

/PC

TEST

REG

MODF ING/<15><12>

CASCIZ

ADDRESS

LASCID

/PC

TEST

CASCEZ

JSR

LASCID

/PC

TEST

JSR

TEST

CONT

LASCLZ

DHES:

7
PAGE 293

LASCLL

/PC

OFf

>
RHCS1/7<15><1

2>
RHDS1/<15><1

2>
7<15><1

CIRJIDO, RPO4/5/6 FCINL CTLR]
(ZRJID.PY
28-MAR-79 09:03

MACY11

14205
14206
14207
164208
14209
14210
16211
14212
14213
16214
16215
16216
164217
164218
14219
164220
14221
164222
164223
14224
14225
14226
14227
164228
16229
14230
14231
14232

067117
041440
020040

020124
047117
006440

020040
047040
020040
030523
040510
051040
020040
020040
042524
020040
020124
051105
044122
020040
020063
051503
044122

020040
020117
051040
020040
020123
042110
000040
020040
052123
046122
020040
020061
051105
044122

14251
14252
164253
16254
14255
14256
14257
14258

16259
14260

040

020040
020040
051123
0460440
020040
020101
052101

SEQ 0293

LASCIZ

RHCST

RHAS

RHDS1

DH66:

<ASC1Z

/PC

TEST

RHDST

RHER1

RHER?

RHER3

DM77:

LASCII

/PC

TEST

REG.

600D

BAD/<15><12>

LASCIZ

JSR

ADDR

DATA

DATA/

001116
041760
002362
001116
041760

041762
001116
001124
001116

001126
001116
000000

071716

001116

RHCSZ/

Amam

020040
052123
041520
020040
020040
062117
040502

020040
042526
020040
020106
027107
047507
020040
012
020040
047040
020040
020040
042104
062040
020040
000101

mam

020040
020061
051503

020040
020117
045040
020040
02012¢
052101
042040
.EVEN

71620
71626
71634
71640
71646
71654
7

RHC(S!

020040
006504

294

071540
071543
071550
071556
071564
071572
071600
071606
071614

020040

PAGE

071524
071532

041520
020040
020040
047440
042522

10:30
POWER DOWN AND UP ROUTINES

14235
14236
14237
164238
164239
16240
14241
16242
16243
16244
164245
14246
14247
16248
16249
14250

071666
071474
071502
071510
071516

25-MAY-79

14233
164234

071464

041440
020040
020124
012
040
020040
020040
041510
051040
020040
030523
041520
020040
020040
051504
046122
020040
020062
051105
066122
020040
000062

30A(1052)

004604
041756
000000
004604
061756
000000
004604
001126
004604
000000
004604

041754
001126

DI11:

.WORD

SERRPC,TSTNM
WAITPC WAl TBT ,WAITRE,$BDDAT,(S1,0

041754
001126

DT4:

.WORD

SERRPC,TSTNM, WALTPC,WAITBT WAl TRE ,$BDDAT ,WA]TTM, 0

004600
000000
004600

D1S:

.WORD

SERRPC,TSTNM REGADR,$GDDAT,$BDDAT,0

DT6:

.WORD

$ERRPC,TSTNM, REGADR,$BDDAT,0

001200

D17:

.WORD

SERRPC,TSTNM, $TMP1,0

004604

001122

DT10:

.WORD

$ERRP(,TSTNM $BDADR,(S1,(S2,DS1,ERY,0

CIRJIDO, RPO4L/S5/6 FCINL CTLRY
CIZRJID.PIY
28-MAR-79 09:03
16261
14262

071726
071732

16264
14265
14266

0717644
071752
071760

14269
16270
}4%;;

071774
072002
072010

001116
001124
000000

004604
001126

072012
072020

164278
16279
14280
14281

072026
072030
072036
072042
072050
072054
072062

001116
001126

}Aggg

072104

14263

}:Sgg

071736

071766

002362
002364

002360
000000

002360
002370
001116

0024064
002376
004604

001116

30A(1052)
25-MAY-79
10:30
POWER DOWN AND UP ROUTINES

7
PAGE 295

002404

DT26:

.WORD

0T30:

.WORD

SERRPC,TSTNM ERWORD,$GDDAT,$BDDAT,0

004600
002464

DT51:

.WORD

S$ERRPC,TSTNM REGADR,$GDDAT,$BDDAT ,ILLEGL,O

004604
001126

004600
001122

DT160:

.WORD

$ERRPC,TSTNM,REGADR,$GDDAT
,$BDDAT ,$BDADR,(

041560

DT61:

.WORD

$ERRPC,TSTNM,PCJSR,$BDADR,O

001116
00i122
001116
002400

004604
000000
004604
000000
004604
002404

041560

DT62:

.WORD

$ERRPC,TSTNM,PCJSR,$BDADR,0

002362
000000

DT65:

.WORD

SERRPC,TSTNM,(S1,AS,DST,0

DT66:

.WORD

002360

000000

002364
002362

004604
001124

041560
001126

O0177:

.WORD

$ERRPC,YSTNM,PCJSR,REGADR,$GDDAT,$BDDAT,O

000

DF1:

.BY1¢

0,0,0,0,0,0.0

001126

0046064

MACY11

001126

002362

002364
000000
004602

000000

SERRPC,TSTNM,(S1,(S2,DS1,ERT,ER2,ER3.0

164273
162764
16275
14276
16277

14282
164283

072070
072076

000000
001116
001122

001116
002370

004604
002376

S$ERRPC,TSTNM,ERI,ER2,ER3 (S1,(S2.0

14286
14287

07211C
07211¢

001116
004600

14290

072126

000

14293

072135

000

DFf4:

.BY1e

0,0,0,0,0,1,0

000
000
000

000

DF5S:

.Bv1¢

0,0,0,0.,0

000

DOF6:

.BY1e

0,0.,0,0

14288
14289
146291
164292

14294
146295

072124
072131
072134

072140
072143

000000
000
000

000

000
000

000

000
001

14296
14297
14298

072144
072147
072151

14%8?

072155

000

©DF7:

.BYTE

0,0,0

072160
072163

000
000

DF10:

.BYTE

0,0,0,0,0,0.,0

14306

072167

000

DF26:

.BY'E

0,0,0,0,0,0.,0,0

14308
14309

072175

000

14311

072202

14299
14

14302
14303
}ngg
4

14307

072154

072166

072172

000

€00

14310

072177

000

DFf30:

.BY'E

0,0,0,0,0

14313

072204

000

oOfS5!':

,BY'E

0,0,0,0,0,0

072212

000

DFe60:

.BY'E

0,0,0,0,0,0

}Lg}g
4

14316

072207

000
000

000

SEQ 0294

000
000

0,0.0,0

000

DF62:

.BYTE

¢,0,0,0

000
000
000
000

000

DF6S:

.BYTE

0,0,0,0,0

000
00C

DF66:

.BYTE

0,0,0,0,0,0,0,0

000
000

DF77:

.BYTE

0:0'01000,0

000

.EVEN

000001

.END

_A_4

_A__a__A

_A&

07225¢4

__a__a__4
_a

.BYTE

DF61:

000
000

_aA

000
000

SEQ 0295

7
PAGE 296

14331
14332
14333
14334

072245
072250

POWER DOWN AND UP ROUTINES

16325
14326
16327
14328
14329
14330

10:30

14324

25-MAY-79

__A_A
_A _A
_a

000
000
000
000
000
000
000
000

30A(1052)

000
000

14317
164318
16319
14320
14321
14322
14323

MACY11

__A

CIRJIDO, RPO&/S5/6 FCINL CTLRY
CIZRJID.PIY
28-MAR-79 09:03

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

18094
18104
18114
18124
18134
18144
18154
18164
17524
17534

BI13 =
BI1T4
=
8115 =
BI116 =
68117 =
B118 =
8119 =
BPTVEC=
(A

002356
000010
043660
005012
004762
004776
020230
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004

000010
000020
000040
000100
000200
000400
001000
000014
002374

19944
17234
800
799
803
801
L4756
7594
7494
7484
7674
7460
7454
7640
7438
7424
7614
76404
7584
7394
7384
7374
7364
7354
7340
7574

7564
7554
7544
7534
75.4
7514
7504
7664
2003#

SEQ 0296

3433

12416

3617

2614+

14280

3858
3368

9014

9266

4019
11756
117649

12696

«898

5197

3442

3850

10682

BA
BAl
=
BASECH
BEGIN
BEGINY
BEGIN2
B1RD
B1T0
=
81700 =
81701 =
B1702 =
81103 =
81104 =
B1T05 =
81706 =
81707 =
B1108 =
81709 =
=
B111
B1T10 =
BIT11 =
81712 =
B1T13 =
BIT14 =
BI1T15 =
B112
=

=
=
=
=
=
=
=
=
=
=

C‘D\l

ATO
ATY
AT2
AT3
AT4
ATS
AT6
AT7
Al6
A17

5489

3366

O — &~ 00O

19074
18674
800#
11694
17894
20054
17774
2074n
2098#

30A(1052)
25-MAY-79
10:30
PAGE 298
CROSS REFERENCE TABLE =-- USER SYM3OLS

~N~
S -

19094

000040
100000
000204
044646
001000
002400
100000
004666
004740

el Y]

= 020000

NN ON N
[o JV N pXe o

ACE

ACL
=
ACU
=
ADDMOD
ADTIMO
AOE
=
AS
ATA
=
ATABLE
ATTENT

MACY11

ANND
NI N —

CIRJIDO, RPO&/S5/6 FCINL CTLR]
CIRJID.PVY
28-MAR-79 09:03

11804

2469

12406

11812

12294

=
=
=
=

DB
DCK
=
DCL
=
DCLEAR
DDISP =
DE
=
DFF20 =
=
DFFS
DF1
oF10
DF 26

DF 30
DF&

000015
000200
000002
000010
002362
002360

002352
100000
000100
002430
177570
000040
000002
000001
072126
072160
072167

2936

5313
7815

6740
6754

7682
10192
11964
11935

18564
19984
19954

3317
3290

20240
6814

3960
883

10065

18544

19924
17954
19084

17674
17634

8768
9547
10253

8773

2734
3749
5307
7112
9439

6263
6969

8347
9497

8164

8591

7522

10026
110424

2773
3894
5321

7309
9479

7530

9£02
10031

2833

7535

9507
10238

2881

4130
5614
513
9666

LGN
5640
7714
9784

6556

6746
9764

7730
8610
9512
10243

2930

4364

5672

7923
9930

7116
7747

3035

6428

6433

6610
7330
8143
9077
9982
10474

3435
5212

7121
7766

3161

7129
7779

9560
10258

3180

7134
7927
9057
9568
10286

3225

7325
7945
9072

9977

10291

3393

3539

4768
6411

10179

8526
10231

4749
6241
10467

10586

8746

6603
8942
10713

7257

7496

7660

7907

8074

6879

6715
7239
9887

4910
7476
10134

5227

7641
10398

5476

9646

4485
7076
9743

7886
10562

4370
6810
9445

6577
7005
9604

4798
7170
9699

4971
7383
9818

6999
7573
9936

1447

1556

1567

1598

1617

4527

5725
8127
9970

6546

6571

5907
8343

6067

8573

6792

8750
9517
10248

6253
6964

3991
5462

3428
5202

6420

6248
6954

3853

10819

5655
113894

3421

nin oam

6415

6074
6949

3412

6268

9277

3401
64673
10552

6196
8898
3375
6017
8467

114564

3231
5799
8229

10329
11974
11974

6394

9133

3449
6179
8727
3545
5948
8400

10500

6897

7095
116394
(313

3728
6375
8880

3865
6538

9034

10775
4079
6727
9286

3684
6110
8647

3800
6304
8811

3900
6469
9104

77
6656
9362

14260
14260

14263
14263

14280
14282

14282

1 4302 ’
1696

143064

1375

161

93N

13983

CR
(RLF
CSF
csu
s
(s2

067033

10673

4462

12358

3600

2161

955

1034

1660
1223

072177

966
1048
1672
1239

142904
1064
1684
1256

1317

1351

CPHALTY

10690

4900
10666

3354

4301
9270

7980
10190

042512

6037
8488
3118
5870
8306
10830
3041
5646

4893
10654

3343

4290
9025
126534

5797
8227
10327

7813
10063

oam

(OMREG

8327
2987
5598
8053

111224
11127

3361

3330
4067
9018
12293
5911
6774
7517
8192
9335
9997
10726

5644

5325
7571
9934

(LR
= 000040
COMPAR
043542

9697

9102

5497

5022
7381
9816

6762

9166
10989
17254
5891

2699
3678
4993
6942
9310

4969
7168

4965

10719

6796
7003
9602

2547
3590

6575
6808
9443

10590

9330
9992

3898
6654
9360

041524

(LDISK

7345

8179

3798
6467

7340

8160
9314
9987

3682
6302
8809

5575
11789
5743
6620

1114640

(KSWR = 104407
041374
CLAREA

2976

4002

5311

0462404

5256

CHREG

4997

8398

106498

3543
6108
8645
111504
3106
4012
5582
12270
5762
6766

4368

5946

6175

Akl

3229

SEQ 0297

smamam
s am

11148

4759
12446
3039
111544

£736
20124
2934

30A(1052)
10:30
PAGE 299
25-MAY-79
CROSS REFERENCE TABLE == USER SYMBOLS

020174
002416
041562
041620
041604

CAY
cc
CHECK
CHECKC
CHECKT

MACY11

oaa

CIRJIDO, RPO4L/S/6 FCINL CTLRI
CIRJI1D.PVY
28-MAR-79 09:03

072135

142934

1565

1596

1615

1169
1421

1192
14633

—

3181

3252

3440

4528

64547

4750

6769

10969

2898
6511
8997
2900
9231

3095
6700
9249
3095
9474

3315
6852

4681
7049
10107
4655
10225

4873
7212
10372
6855
11165

5160

5191

7614

5641
7859

5561
8026

5843
8273

5990
8442

6152
8663

5197

5615

5535

5663

5686

8567

8979

882
3315
2684+

2160
3319
4055

10984

12366

14260

14263

954
1033
1659
1222

965
1047
1671
1238

142604
1695
1316

142638
1350

1374

1555

1566

1597
1193
1634

Al
A

LMl

—

3162
45374

12277+

f¥

11833

2169«

2161+

O N —
O

1095
1276
1589

&> =

O~ N —
Hrow
W~

~NN)
—

—

1215
1460

P
N~

[+
BV
]

1158
1402

—

1149
1362

N —

1139
1340
140554

1194
1435

1081
1265
1576

140814

A
A
Al
AS
Al
A
PO NPV
P
N

nNO

——

1085
1266

9964

&> —

1073
1248

3319

—

142504

9860

7426
11165

[
JV]

12398

2169

142284

071640
071660

071760

1554

—

D14
D15

D130

1445

u.—‘

002366
= 177570
002404
002406
= 010000
= 001000
071620
071716
071736

1409

oo
AWM AN

DST
DSWR
DS
D1
DTE
DISY
D11
D110
D126

1373

—

= 000200

141074
1349

—

DRY

14088#
1689
1315

071466
000004
001142
000174
100000
000020
000001
017420
000400

1160
1404

DH77
=
DIGB
DISPLA
DISPRE
LY
=
DL64
=
=
om0
D06
DPR
=

070031

1141
1342
142964

—

DH?7

140374
1069
1247
1513
161640
140704
141624
141794
1641904
142014
142164

1134
1329
1648

—

070563
067732
070722
071057
071152
071245
071370

960

1126
1306
1629

1114

o ny
—
OO
~NO
O

DHS1
DH6
DH60
DH61
DH62
DH6S
DH66

1040
1665
1237

1292
1609

==t

067452
067613

142984
143164
143184
143204
143224
143244
143004
143284
948
1026
1653
1221

1581

SEQ 0298

127 8
1591

—

DM&
DHS

072245
067273
070071
070250
070447

072155

1086
1267

H~NO~

DF77
DH1
DH10
DH26
DH30

DF?7

1076
1269

1515
143134

ANV NS
-

072204
072151
072212
072220
072224
072230
072235

30AC1052)
25-MAY-79
10:30
PAGE 300
CROSS REFERENCE TABLE -- USER SYM3OLS

— i
S

DFS1
DF6
DF60
DF61
DF62
DF6S
Df 66

989

NN O SN0

072144

O N

DFS

MACY11

NOOO

CIRJIDO, RPOL/S5/6 FCINL CTLR]
CIRJID.PY
28-MAR-79 09:03

(IRJIDO, RPO&/S/6 FCINL (TLRY
(ZRJ1D.PN
28-MAR-79 09:03
D151
D16
0160
D161
D162
D165
D166
017
0177
OVA

071774
071676
072012
072030
072042
072054
072070
071706
072110
= 004000

ECh
EC1

= 000100
= 004000

39
EC2
EMTVEC=
em
EM10
EMI00
EMIOT
EM102
EMI03
EMI04
EM
EM12
Em13
EMI&
EM15
EM16
Em7
EM2
EM20

EM21
EM22
EM23
EM24
EM25
EM26
Em27
EM3
EM30
EM3
EM32
EM33
EM34
EM3S
EM36
Em37
EMé
EM&O

002412
002414
000030
051166
051706
066374
066456
066540
066617
066703
051755
052062
052170
052312
052365
052526
052654
051215
053011

053155
053230
053303
053446
053611
053773
054063
051304
054301
054361
054576
054705

055107
055133
055351
055426
051365
055643

1502

MACY11
1514

1389
998
16476
1485
1494
1526
1564
1006
1638
17554
6339
8844
17864
18804
6452
7555
9095

142694
142554
162734
142764
142784
142804
142820
142574
142864
2755
6502
8988

20104
20114
7698
936
1010
1662
1651
1663
1675
1687
1023
1337
1051
1067
1077
1089
1103
946
1117

124564
12462
2145+
127134
127734
139304
13939x
139484
139564
139654
127804
127924
12804#
128184
128264
128444
128604
127174
128784

10048

1130
1137
11646
1156
1163
11764
1186
958
1197
1207
1218
1226
1236
1242
1252
1259
969
1270

4297
6453
7799
9096

10049

128964
129044
129124
129304
129484
129684
129784
12727«
130054
130144
130404
130524
130764
130804
131054
131134
127364
131394

30A(C1052)
25-MAY-79
10:30
PAGE 30!
(ROSS REFERENCE TABLE -- USER SYmaoLsS
1580

2911

SEQ 0299

1590

1608

1628

1667

142534

3086

3317

4664

6691
9240

6843
9851

7040
10098

7203
10363

(864

7417
11156

5141

5426

7850

8017

8264

8433

5981

6143

6469
6639
7964
9097

5594
6762
7965
9353

5782
6793
7966
9354

5930
6794
8212
9355

5931
6988
8382
9587

5932
7152
8383
9681

6092
7153
8384
9682

6093
7156
8630
9683

6094
7364
8792
9799

6287
7553
8793
9800

6451
7556
8794
9801

10050

10308

10309

2146

2295+

2338+

10310

10492

7605

10608

10743

5544

10744

5834

10745

8684

30A(1052)
25-MAY-79
10:30
PAGE 202
CROSS REFERENCE TABLE -- USER SYMBOLS

8N
NN
NN
O~
0O
(28 Yo
o]
Qo
W
=

et s

SEQ 0300

Len

310
614
7
=

D SNIWNANN LS B
wo
rnO

(Vg

NSNS NNIO NN
OO
wro o

D o
il
ol
—
i
i
s
e
i
e

S6n

~N 00

1480

eoooru\a—-o
[WYP

004734
040000
000004
004602
002364
002370
002376
000001
000010
000002
000020
000004
000040
900200
000020
042450
0641426

——d

ERFLGS
=
ERR
ERRVEC=
ERWORD
ER1
ER2
ER3
=
EXT1
EXT10 =
=
ExT2
Ex120 =
=
ExT&e
ExT&0 =
FEN
=
FER
=
FILL
FILLRE

—

061277
061365
061632
062120
062330
051550
062622
063233
063314
063375
063451
063670
063712
064104
051636
064374
064602
065043
065273
065345
065611
065714

061022

EMS3
EMS4
EMSS
EMS6
EMS7
EM6
Em60
EM6Y
EM62
EM63
EM64
EM6S
EM66
EMG7
EM7
EM70
EM71
EM72
EM73
EM74
EM7S
EM76

EMm?77

)

057741
06005¢
051476
060336
060555

EMS?2

057445

—

EML6
EMG7
EMS
EmSO
EMSY

634
94n
5N
65

[o RV NV E IV IV Yo AV LV [V ] (U I I
[+
X¥e] O NNO
NN OO0

EM4LS

056052
056333
056611
057153

—

EMG
EMG?
EMG3
EMGG

MACY11

~O08 Eall ol P QW VIV R elV 1V LV TV 1V 1,919
o Owv N N = O ONCTOOWNSWNNOOe

CIRJ1IDO, RPO&L/5/6 FCTNL ) L
CIRJID.PVY
28-MAR-79 09:

138354

066151

36419
2159«
11658+

3981

6655

6009
6865
7630

8454

5667
2170+

14260
164263
164263

14266
14263
14282
14282

6024
6458

4027
4694

6165
6868
7633

8457

6168
6871

7872
8460

10680

2297

10972
2305+

10984

2340

11795

11798+

11801«

4033
4704
6361
7065
7878
8709

4036
4707

4039
4885

4051

4060
5859

6063
5862

7068

7225

7231

7462
8289

76465
8292
8872

14282

4030
4697

617

7062
7875

8706

6364

8039
8713

5856

6367

6527

8042
8716

8286
8866

6530

8869

6713

4283
6003
6716
7468
8295
9010

MACY11

9262
10385

= — OO
o S2ONEN
~n A NN
= NN
oo [VeYo JV IV T, 1, ST NY, . TUF]
~ NO WV ~NIWW~NO
00N

FUTABL

GNS

002422
seeree

1881#

6286
6988
7800
8792
9682

10493

20204
781

2617
2668
3308

= 000001

4988
11530
11733
12388
12646
17494
4664

5678
6823
8017

= 000010
GRV
GTSWR = 104406
HCE
HCl

HCRC
MY
HT.

= 000200
= 002000
= 000400
= 000011
= 003323

9181
10343
17654

2227

17874
18794
7365
10050
17884

= 002000
= 000100

6989
7964
8793
9683
10607

21N
2621
2674
3552
5179

11537
11737
12396
12647

9734

9873

10120

10123

10126

8151

8185

8355

8581

5931
6640

6092
6793
7555
8629
9587
10310

6093
6794

6094

8630

9588
10491

8631

9681
10492

2329
2623
3276

2336
2629
3282

2390
2662
3302

9876

2960

4845
5812

6843
8242

9219

10363

7936
110134

9879

2204
2486
2712
3576

2272
2579
2887
3649
10807

7183

8433
9463

8264

9240
10513

8383

9355
10308

3631
5121
5981

3065

6864
5834
7018

7553

9096
9801
10743

74647
11552
11753
12420
12651

12404
12648

10759

6645

7828

6438
5544
6669
7850

10078

10098

10216

9588

6794

6989
9683

7156
9801

18334
5019
59704

3838
52764
5975

39694
5281
61324
7197
85654
923
10087#

12668
6425
5524

6502

8967

9851

7799

4984
11524
11729
12380
12645

0870
1717
2364

8824

6987

4161
10876
11723
12372
12476

6150

11705
12348
12452
12656
4253
5404
6339
7585

7798

8988

5655
6691

7995
9117

126514

11933

11974
30754
4279

8570
93824

86734
9387
102234

10759

9731

6452
7154
8211

2195
2425
2704
3556
52645
11541
11741

6724
29684
3974
56130
6137

5981
7183
8433
9463

9728

11070#

7759
9486
5781

7721
9065
6467
6288
7152
7965
8794
9799
10608

6471
7800
10493

10092
17904
17500
5604

9638
10662

2220+

4299
7555
10310

74064

1AE
l¢

9635
10391

Sea 0301

NOONN
= —
O S~
N=NOMN
S =N
NN NN = O WO
SO

FM122 = 010000

20684
20674
2095#
6534
5733
8600

004664
006562
004736
017454
0641350

FINACC
FINALA
FIRST
FISH
FLHEAD

10:30
PAGE 93
30A(1052)
25-MAY-79
CROSS REFERENCE TABLE =-- USER SYMBOLS

CIRJIDO, RPO&L/S5/6 FCTNL CTLR)
CIRJID.PN
28-MAR-79 09:03

2973
L2744
5618
63284
7611

55334
6333
75944
8678
94724

10228

2783
5428
6143
7395
8660
9712

11289

5783
8213

5932
8384

34820

3487

10745

6451

56614
6496

88334
9477
10352#
4266

5629
6317
7417
8684
9831
11357

46530
5666

9624#
10357

9629
105214

10526

68324
8011
91244
9724
106384

4438
5524

L4645

4664

4668

7585

7605
8844
9955

8967

78394

8838

6339
8824

9851
11370

6680#
7844

89774

5544
6482

6453

6640
9355

37184
4858
5823#
6837

3723

9097

59548
6502

7828

10078

5549
6669
7850
8988

10098

50144

5828

82534
9129
98404
10643

8258
9190#
9845
107664

7034
84224
9195
99624
1071

4669

4845

4864

5655
6691

7995

9117

10216

70294

5678
6823
8017

9181
10343

5812
6843
8242
9219

10363

7192#

8427

92294
9967

5145
5834
7018
8264
9240
10513

5166
9961
7040

8413

9375

10631

000001
002664
000002
006752
000020
000100

K1PARL=

K1PDRS=

KIPDR6=

K1POR7=
LA

LB1
LFf

LY.

000105

12438
11164
11968

2973

L2740
5618
63284
7411

O —¢

86734

MAKECY
MOLK
MCPE
MHS
MINX
MMVEC
MOL

MSTCK
MWR
MXF
NED
NEM
NHS
NOPERA
NOPUSH

3996

4017

11974
3075#
4279

L44L6N

041174
000002
020000
001000
000004
000250
010000

000400
002402
000020
000020
000010
000040
001000
010000
004000
002000
002422
004724

55334
6333
75944
8678
94720

3080

5538
64914
7599

8833#
9477

9387
102234
3182

10228
4529

10352#
4548

2909

3341

3410

2700
5194

2714
5441
7859

2864
5561
8026

7614

MPE
MR
MRD
MSE

3619
2144+

10650

34824

4451

56614
6496
78394

8838

SEQ 0302

10651

5487
46534
5666

66804
7844

89774

36400

4658

56844
6685
80064
8982

96244
10357
4751

9629
10521#
4770

97194
10526
109614

2896
5843
8273

3095
5990
8442

4156

6152
8693

3723

3645
4853
5689

50144
5828
70294

68324
8011

8258

4000
3290
7442

3688
2123

3359

3600

3824
2842

3925

38334
5019
59704
7034
8u22#
9195
99624

10771

3838
52764
5975
71928
8427
92298
9967

39694
5281
61328
7197
85654
9234
10087#

5162

5163

91244
9724
106384

98404
10643

9190#
9845
107664

4168

4681

4873

4980

9249

9860

6348
8853

6511
8997

6700

12430

~ 0

K1PDR4=

3561+
2143y
2870

—_—y

K1PARG=

K1PAR?=
K1PDRO=
KIPDR1=
K1PDR2=
K1PDR3=

14269

K1PARS=

30A(1052)
10:30
PAGE 304
25-MAY-79
CROSS REFERENCE TABLE == USER SYMBOLS

KIPAR3=

MACY11

=
1L
TLLEGL
=
ILR
INUNTTY
10TVEC=
IR
1XE
K1PARO=
K1PAR1=
K1PARZ2=

NNNNTINNNSNNNN
NNNNA VYOO
w
W

CIRJIDO, RPO4/5/6 FCINL (
CZRJ1D.PY
28-MAR-79 0

137

4951

10453

6852

7049
10107

7212
10372

12622

PAR
=
PCJSR
PCLBUF
PCLCSR
PCLCTR
PGE
=
PIP
=

000010
041560
002346
002344
002350
002000
020000

PIRQ
= 177772
PIRQVE= 000240
PKACK
002460

PLU

= 020000

PRE
=
PRITEM
PROG
=
PRO
=
PR1
=
PRZ
=
PR3
=
PRG
=
=
PRS
PR6
=
PR7
=

PSEL
PSU

000020
047342
001000
000000
000040
000100
000140
000200
000240
000300
000340

8
8
5
7934

727
7834
963+
9
9
9

117 "
383
315 *

2518

2585¢

10894+

2519«

3844

4020

4665

5142

5403
5316+

5654
5618+

SEQ 0303

5209

5425

5545

14286

562¢

12099
10651
11144

11145

11150«

11151

14276

14278

4873

5160

5191

5441

5561

8997

9249

2959

3043

3064

3085

3472

3630

5005

5266

3586+

(336

5254

10848+

10893«

11521

123194

12481

10343

10363

111624
11251

10866+
7605

= 177776

= 002000
= 000001

PSW
= 177776
PUTREG 043436
PWRVEC= 000024
RA

19114

2512

20024
18784
5649
20344

2506+

(9ol
V]

26460
139744
2518«

004720
066766
004722
100000
002372
000200
041510
002454
004610
000004
000010
000001
000020
000002
000040
042650
020000
000200

(VP
o

2084#
2675
20864

NOUNIT
NOUSE
NUNIT
ocyL
=
Of
OfREV =
OFSET
OFSETC
OFSTVL
0F100 =
0F200 =
0F25
=
0fF400 =
0F50
=
0F800 =
OPERSE
oPl
=
OR
=

F
8
30A(1052)
25-MAY-79
10:30
PAGE 3205
CROSS REFERENCE TABLE =-- USER SYMBOLS

MACY11

(VL RV, B

CIRJIIDO, RPO&/5/6 FCTINL CTLR]
CZRJID.PVY
28-MAR-79 09:03

10971
12663

12498

12502+

L6646

12692+

000200

RDCHR = 104410

ROLIN = 104611
RDOCT = 104412
RDY
= 060200

1169

2783
9544
8008

3835
6493
8988

3971
6682

L4648

9126

6834

9240

7031
9384

6142

6822

6842

7155

7182

10354

READAT

002446

10746

4864
7194

9626
7202

CIRJIDO, RPO&L/S/6 FCINL CTLRI
CIRJ1D.PY
28-MAR-79 09:03
READIN
RECALL

REFOR

REGADR

REGSAV
REGSAY
REINTO

002462
002426

002450

004600

047176
047204
003534

RELEAS
002432
RESVEC= 000010
RETCL
002456
RHAS
RHBA

002316
002274

RHBAE
RHCA
RHCC

002340
002312
002334

RHCS

002300

20374
20234
2032#

9098

20524
5558+
6706
8023
9255¢

14286

122724
2295
20464
6395
6970
7632
8186
9135
20254
7630
2035#
19534
19414
7876
19654
19514
1960#

11226

19464
3827+

4625+

5383«
6133

7369+

8423
9377«

RHCS2
RHCSS
RHDB
RHDST

002276
002342
002270
002304

RHDS1

002322

10316+
11109+
19424
19664

19394
19484
7069
10127
19554
4302

5583

RHDT

002324

10553
19564

RHECY
RHEC2
RHER1
RMER2
RHERY
RHLA

002330
002332
002302
002306
002314
002336

19584
19594
19474
19494
19524
19614

2638

MACY11
6229
4625

5933
9116
2361¢
5567+
6849+
8032+

9857

122740
5756
6416
7096
7662

8193
9315

5502
2355
3982
8043
2325
4037
2920

11582

2938+
3834

64T
5406+
6319+
7397+
8559
9383
10345+
11118¢

2393

30A(1052)
10:30
PAGE 206
25-MAY-79
CROSS REFERENCE TABLE -- USER SYMBCLS
4252
6644

5960
9356
2922+
5840+
6858«
8270+
9866+

5763
6421
717
7760
8328

9349

4265
4663
5980
9374
3092+
5849+
7046
8279+

9180

8432

8795

8823

8843

4870+

4879+

5155
6354+

5171«
6508+

5638+
6517«

5447
6697+
7865+

6158+

7423+
8699+

6345
7432+

8850
11477

5926
6558
7230

6008
6621

6039
6747
7341

6088
6767

8459
9677

8490
9733

8751
9766

8788

4400+
6169
8710

5489
6365
8870

6528
9636

8293
3951

4695

10966+
4886

2962+
3963+

3043

5543

4228+

2924

3970
4825
5502+
6484
7559+
8674

9619+
10515+
11277

2593

3067

4003
68470

5526+
6492
7587
8826+
9625

10522
11289

3355

5685

4287
7879
11091«
3076
4854
8566

2459
2645

2461
2648

4025

10667

11125

3429

4040

4028
7634
10967+

2977

4708

4654
5667
10820

11124

2455
2643

8556
8412

5912
6529
7148
7773
8378
9569

4456

2969

(687
6149
7218¢
8690+
10378+

5677
8385

5892
6447
7122
7767
8348
9363

4284

11692
3598
7469
10663

7055+

8439

64637
4863
8016

10113

6007
8458

4705
5656
6329
7607
8662+
9465
10353
11122
2652+

3101+
5987«

4424
WR44
19
9711
LOTEe
5996+
7209«
8448
10369+

10104«

5523
2392
5860
8290

2922

4600
4825
7967
9684

SEQ 0304

7780

8717

3331

4068
4901
5576
6671+
7595
8834
9714
10633+
11357
3422

7259
7908

3402

4229+
5008+
5657+

10994«

7346
7960

14253

7620
8994

14255

7856+
9003
14269

6170
6788

6198
6870

6264
6899
7523
8173

7611¢

8859+

7518

9246
14273

6269
6965

10720

7497
8044
8871
10739

10777

6717
9732

6869
9877

7066
10124

10389

7229

7631
11609+

11090+

11108¢

11606+
9011

9263

10994

7928

8296

3675

4255

8714

3633

3688+

4268+

4401+

6833

7020«

5131
58264

8076
8900

3712+

44271
5203

9058

7549
8180
9091

3803

4647
5269+

10639
11370
1992

5099+
5680+
6825
7840
9026
9833+
10655
11615+
4013

7997«
9119«
9841
10761«
11684
7442

11695
10649

4459

5863
8299

6010
8461

6172
8720

6368
8873

9639

6531

6872
9880

4894

3344

3413
5015
9191

3483
5192
9230

3641
5277
9271

3854

5614
9473

6275

8978

4978
9019

10224

2464
2650

2466
2682

2494
2684

2594

2596

2603

2631

8046
11607+
3107

6681
7830+
8969+
9720

5123+
5814«

8007
9125
9957+
10767

5963

7030
8244
9183
10080+
0968+
1698

6125¢
7193

8415¢
9278

10218+
11092+

1123

9534

(ZRJ1D0, RPO4L/S5/6 FCINL CTLRI
(ZRJID.P1Y
28-MAR-79 09:03
19544
19504
19574
19404
4580
6102
7226

8639

RH70
RH70CK
RMR
=
RPIRP1
RPTRP2
RPVEC

RPVECT
RPOS
RPO6
RPLVEC

004750
006150
000004
011526
011634
002266

044734
004746
004744
004606

RIN
RUN

006642
043476

SAVER

041672

SAVERE

004612

10121

21034
22324

17824
2740
2779
17044
5112
7577
9454
11725

3162+

Sk}

000100
001000
000200
002000
000400
002452
041474
004726
010066
002434
040000

§528¢
11117

6547
11613+

4750

4769

10969+

3695
5028
6461

5106
6525

3753

3810
5330
6648
7873

3906
5389
6714

3979
5509
6802
8040

6179
5791

4236

4801
6296
7463

4832

10321

10386

10532

10616

27540
27934
2177
5395+

2739
5515¢

2778
5803«
8233

2951
5952+
8404+

8707

2234

7819+
9608+
11767+
117614
2602+

8803

2324+

7986+
9703+

6362
7565

8867

2326+

4698

7628

8952

3842

9822+

9946

3143
3141
3056
6114
8549

3214
3212
3701
6308
8651

5593

7807
9204
10647

3987

7974

7009+
9172
10750+

4733
6242
6814
9108
10622

6614
7009
9172
10750

4637
7174
9210

4837
7387
9366

5395
7819
9608

7354

7544

10504

4510

6083
8619

6277
8782

6462
9085

6783
9576

6978
9671

7163
9789

2944
5939
8391

3256
6295
8802

3694
6460
8951

3809
6647
9203

4407

6996
9690

4631
7161
9809

4831

20634

2989
3850+

3051
3867

3120
3951«

3368
3985+

6022+

111894

3811
4315
5390

6487

5478
6540
7808
9014+

10322
11076+

10058
10799
17584

3337

9030

5551

18404
18434

4633

5510
6649

7888
9036
10400
11397+
3406
9282

4833

3369+

7374
10056

3377

4045
4912
5941
7078

5388

5508
7973
10615

10320

36420

20334
8947
20904
2411
20264
19104

8966
9199
2124
25224
11092

8987
9451

2126+

9811
10682+

10692

5217

5¢31

5460

4905

5148

5239
10204

9462
11108#

9954

10215

10968

11109

2559

10882

2522

3730

4237
5229

8640
9745
10652+

L4671

2268

3696

4081

7261

6019

9648
10648+

18414

18444
18420

3651

10797

4057
5198+

6022

10659

7806
10531

4055
5107

3846

11399+

5790
8220

5105
7564

7163
8469
9692
10651«

8393

7954
10598

104682

9288
10617

5792
6881
8222

7788

10299

9266+
10564
11469
4007

5589+
6729
7975
9205
10533

11582

10039

4889
5872
6998
8308
9597
10647

4701+

10057
11608+

(837
7387«
9366+
11714

3816+
6473
8815
10333

10207

10734

7162

8455

CL14e

3701+
6308+
8651

10069

2331
5771
8201

6004

L4242
6814+
9108+
10622+

9691
11394
7316

3952
6660
8958
10504

7986
9703

4408

3952«
6660+
8958+

9633

10207+

6372
5940
7063
8392
9874

9810
11580

11075
6621

9596

6866
8221

5857
6997
8287

9729
1477
0186

10798
4249

11767
2608+
2599+
2951
5952
8404
9946

2178
2102#
21014
20554
5515

7566

=
SC1
SC10 =
sc2
=
$C20 =
SC4
=
SEECOM
SEEKCY
SELECT
SELTST
SERCH

4047

4632
6166
7375

2681
3050

SEQ 0305

3436

4291

2625
2945

8882

= 100000

3252¢
«463
2683
3257

4034

6377

3181+

no
S~ —

002320
002310
002326
002272

H
8
30A(1052)
25-MAY-79
10:30
PAGE 307
(ROSS REFERENCE TABLE =-- USER SYM3OLS

~O w4 00

RHMR
RHOF
RHSN
RHW(

MACY11

6103

5220+
6181
7376
8729

6297
7478

8804
9889

CIRJIDO, RPO4/S5/6 FCINL CTLRYT
CZRJID.PIN
28-MAR-79 09:03
SN
SND1
SRCH
SRO
SRY
SR2
SR

MACY11

2009#
2186
110904
8264
827#
8284
8294

2683«
22204

4057

12478

=
=
=
=

002410
006112
041454
177572
177574
177576
172516

6674
3675
13Zg£

2141
3891
6064

2294
6127
6238

2352
6361
6600

START
STKLMT=
ST
ST10
ST
ST12
ST13
ST14
ST15
ST16
S117
ST18
S119
ST2
$120
$125
$126
S127
S13
ST4
S15
S16
S17
S18
S19

005022
177774
032606
033210
033234
033470
033474
033512
133516
033604
033610
034040
034044
032626
040414
035676
034230
034234
032640
032660
032672
033100
033146
033152
033170

2125
6784
8536+
8544+
85645«
8885
8886
8902
8903
8931
8932
9039
9040
8537«
108044
98084
9137
9138
8538+
8539«
85460+
85641+
8732
8733
8543«

2128

2133

85794
B7674
87804
88884
88964
89064
89204
8933
89404
90420
90564
85904

8920+
8928+
B8929r

91414
91464
85984
B609N
B6174
8542+«
87340
87444
B7584

};7;?

};884

11806

11812

11819

12019

7834

2168

2225

12019

12058

12081

7210
7204
7194
7184
7174
7164
7154

731
730
729
728
727
726
725

12323
11483

11663

7124
7304
7118
7104
7094

722

2386

2409

STACK = 001000

SWR

SWREG
sw0

sw00
swo1
w02
sw03
swos
sw05
swo6

sw07
sw08
sw09
swl
swi0
Swil
swi2z

sSwi3

001140

000176

8824
6

= 000001

7314

000200
000400

7144
7134

=
=
=
=
=
=
=
=
=
=
=
=
=
-

000001
000002
000004
000010
000020
000040
000100
001000
000002
002000
004000
010000

= 020000

7084

2139

684

726
723

2232
2309

30A(1052)
25-MAY-79
10:30
PAGE 08
CROSS REFERENCE TABLE -~ USER SYM8OLS

2564
6526
6939

2732
6543
7306

27N
4568
771

SEQ 0306

2830
4746
8124

3032
4765
8523

3158
4789
9163

3177
4962
9436

3222
5304
9927

3536
5637
10176

3517

11481

11661

8933

89/ i

8922+
8923
8924+
87124

8927+

2160«

B925+

2162

8926+

2168+

2225

2232

12058

2309

12113«

2386

12278

2409

12285

12290

12294

12321

CIRJIDO, RPO4L/S/6 FCINL CTLR]
CIRJID.PY
28-MAR-79 09:03

TOTALA
TPVEC =
TRAPVE=
TRE
=
TRk1
=
TRK10 =
TRk2
=
TRk20 =
TRK4
=
TRP
TRTVEC=
TSTNM

004742
000064
000034
040000
004000
040000
010000
100000
020000
006602
000014
004604

006314
011644
0124264
012706
012746
013002
014014
015022
015460
006656
016246
017012
017340
017420

11351

4670
5547

5144
5548
30324
4362
W
6064
8125

5145
5550
3033

5147

112264
11696+

11997+«

PAREY
21144
95427+
2544N
3892
56374
7307

5635+
L4667+
5628+

5690+
4668+

L1274

6128

L3614

7114
10177

7712
106644

81244
10465

3779

3932

2147+

2148+
3339

2176+
3408

10661

101764

20994
7724

7704

17574
18454
18484
18464
18494
18474

2545

5638

2602+

2909

2323

23324

20544
3537+
5638+

2293¢
3676+
5723+

7654

10177«

ST
TST10
TST11
1S112
1STI3
1ST14
1ST15
1ST16
1ST17
1512
15120
1S121
15122
15123

11346

2262

10465¢
14278

2281
28294
30244
31764
32084
3246
351

43600

5630
2830#
57224

2604+

2353
3892«
6065+

11526
16280

22914

= 000050

309

113324

11266

O &~

8
PAGE

1127

2785

7718
21124

SEQ@ 0307

TABLE =-- USER SYM3OLS

2746

1122448

10:30

3517

VARV]

000014
000040
TESTAD
042646
TIMCNT
042222
TIMEY
041724
TIME2
041736
TKVEC = 000060
TMPO
004754
TMP
004756
TMPL
004760

7078
7064
7294
728#
7278
7264
7254
7240
7234
7220
7644
18584
11518#

25-MAY-79

CROSS REFERENCE

040000
100000
000004
000010
000020
000040
0035100
000200
000400
001000

30AC1052)

—_—

SWwl4
=
sWwiS
=
=
Sw2
Sw3
=
Sw&
=
SWS
=
swe
=
SW?
=
sw8
=
Sw9
=
1Bl TvE=
10F
=

MACY1Y

2831

5723

L5688

32224

4569

5161

3223

5162+

35364

5195

3537

36754
4963
69394
9437

3676
53044
6940

38914
5305
73064
9928

3178«

3223
5305
9928+

6239
91634

5365

4042

4209

4606

5078

2565+

2698y

2731+

2831«

6601+
14250
14286

6940«
14253

7307«
14255

2770+
6569+

4544

5193«

49624

62384
8524

£525

5192+

4790
6600#
9164

47894

6065
85234

4362

5164

7712«
164257

G747
8125+
14260

6601
96364

3033«

4766

8524+
14263

3159+

4790
9164
16266

99274

4963+
9437+
146269

14273

1ST31
19132
1S133
18134
1ST35
1S136
15137
1814
1S140
1ST41
1S142
15143

157144
TS145
187146
1S147
1815
1S150
1S151
1816
1817

TUFf

022112
023154
023326
024214
024530
025440
026300
010102
027210
030360
031370
032420

034234
034740
036114
036630
011070
037376
040622
011434
011544

= 000100

TYPDS =

104405

TYPE

104401

65674
G650
L7640
47884

2358

69664
4960

5625
5691
60634
62374
65994

25-MAY-79

CROSS REFERENCE

UBUSB
004732
UNIB = 000020
004716
UNIT

8
PAGE

210

SEQ 0308

TABLE =-- USER SYM8OLS

53024
56340
5721

2561

10891

10902

77104

104484
108644

2729
2756

2689

10810

2193
2423
2660
3231
3647
(971
6469

—

b
—

(VoV 1,8 ]

TYPON = 104404
TYPOS = 104403

23804

7815
10065

050304
TYPERR
TYPOC = 104402

10:30

WD W00 O

017454
020134
020174
020230
006732
020576

30AC1052)

O
WO NN
O S wooruron

15124
15125
15126
18127
1813
1S130

MACY11

DN
OMNN
WO

CIRJIDO, RPO&4/5/6 FCTINL CTLR]
(ZRJ1D.PNN
28-MAR-79 09:03

10196

2517
3587+

11128

25841
3619

2587
3985

2644
2282
5120

2902
4873

2970

2517
2524
5140

4980

2566

10897

3077

3095
5163

7049

6511

10107
11347
1424
1128
1425

041760
04175¢4
041756

WALTTM
041762
WAIT.P
041764
WAIT.T
042224
WAT
= 104413

7406
9382

002354

Ww(E

wCF
wCU

WLE

WRCHDT
WRCHEK
WRFROM

= 040000

= 000040
= 000001

= 004000

002440
002436
(002470

WRIDAT

002442

WRIFOR

002444

WwRL

= 004000

WwRU
=
=
wSU
Xg2
$SAUTOB
$BDADK

000400
000004
007464
001134
001122

2990
5601
8056

10693

10671
9802
10051

9830
10077

3833
5823
8253
9840

3969
5970
8422
9962

3731
6378
8883

3868
6561
9037

10342

10362

7097
7731
8207
8769
9503
9978
10254

7130
7739

10311
5861
6611
7258
7794

9508
9983
10259

9066
9518
9993
10287

10292

6289

6316

6641

5811

5734
6429

5744
6434

10512

10610

9616
10557

10824

5784

26384
2229+
2866+

12072

2874»

12201

2904+

5893
6634
7326
7877
8365
9073
9528
9998

6038
6718
7331
7909

Sea 0309

7614
11165
14250

3642
5441

6276
5561

4306
5843

6478

7426
11147
164247

3484
5278

8273

5990
8462

11347

11352

11356

11372

14247

14250

4274
6132

4446

4653
6491

4853
6680
8977
10521

5014
6832

5130

10638

4718
7242
9890

6913
76479
10137

6254
6950
7531
8135
8611
9336
9637
19125
10591

6282
6955
7536
8144
8625
9392
9765
10239
10603

9487
9795
10244
10727

3352
5194

6328

7859

8833

8565

8673
10223

4082

4316
6882
9649

9746

6197
6775

6249
6898

10087

6730
9289

6075
6748
7359
7937
8582
9134
9554
10027

7467
7946

10352

4488
7079

7498

8075
8601
9331

8026

9124

7029
9190
10766

5230

7644
104601

6366
6983
7661

8152
8711

10304

10390

8592
93264
9561
10032
10475

6668

6690

6990

7017

7039

7366

7394

76416

7801

7827

7849

8214

8241

8263

8632

8659

8683

2914

11159«

11167

14260

16273

14276

14278

8356

8291
8774

24640
2277
5099

—

1721
17224
19054
19044
18654
17684
4681

2082#
20914
20224
17944
17332
17204

30AC1052)
25-MAY-79
10:30
PAGE 2!l
CROSS REFERENCE TABLE =-- USER SYMaOLS

OO0~

WALTBY
WAITPC
WAITRE

004676
004730
002424
040000
020000
000001
000002
000004
000010
000002
010000
000100

MACY11

— PN s O NN
NPV ANLANN) = —
S NN
=D —
QOMNINININ—

UNITS
UNITSL
UNLOAD
UNS
=
UPE
=
=
ust
use2
=
=
us¢
UWR
=
VUF
=
vu30
=
Vv
=

—

CIRJIDO, RPO&4/S5/6 FCTINL CTLRI
(IZRJID.PU
28-MAR-79 09:03

8489
9078
9548
10008

9582
10044
10487

$CMS
SCNTLC
$CNTLG
SCNTLU
SCRLF

047005

047000
001223

$DBLK
$DOAGN
$DTBL
SENDAD
SENDCT
SENDMG
SENULL
$EOP
SEOPCT
SERFLG
SERMAX
SERROR

SERRPC

045464
041150
0465454
041140
041106
041157
041154
041052
041100
001103
001115
047174
001116

SERRTB
SERRTY
SERTTL
SESCAP
SFILLC
SFILLS
$GDADR
$GDDAT

001226
047344
001112
001214
001156
001155
001120
001124

1146767
908#
11940+

120584
8624
894H

894H
8924

900~

2359+
5566+
6848+
8031+
9856+
11657+
12025

11950+
12653

2136
895#

2924+
5839+
6857«
8269+
9865+
14247

4677
5995+
7208+
8447
10368+
16255

4686+
6148
7217+
8689+
10377+
164266

2137
896w
8964

2152
8994
8994

900#
900#

9024
121944

905#

9064

2503

7449
12507

3091+
5848¢
7045

12194
11957

12288
119034
109404

$LPADR

11836

12201

——

11826+
VNN

SITEMB
$LF

041130
046312
000000
047172
001104
051150
001135
001114
001224
001106

AN — L
OO0o
—
(VI
2l e N e )

10108+

$6ET42

4869+

4878+

76422+

7631+
8849+

6157

6344

5170«
6507+
7619«
8993«
11288+

5437+
6516+
7855+«
9002+
11356

54461
6696¢
7864
9245+
11372+

10991
14273

7450
12512

7457

7458

11534

11939

11974

12115

11837

122752

12302

12489
14280

14247
14282

14250
14286

164253

14255

14257

14260

14263

L682¢

4865

4874

5150
6349+
7606+
8854

5166
6503

5633«
6512+«

5442¢
6692+

12302

BL34r

$GTSWR
=
$HD
$HIOCT
$I1CNT
$ILLUP
$INTAG

SEa 0310

8698«
10990+
164269

12255
11549+

4673
5991+
7204

8443

10364

ono

$(M2
$SCM3

001216
045710
0646222
001100
000006
000014
000006
000006
046773

Bren
5557+
6705+
8022+
9054+

—no

$BELL
$CHARC
$CKSWR
S$CMTAG
(M1

001126

n 8
30A(1052)
25-MAY-79
10:30 PAGE 312
CROSS REFERENCE TABLE =-- USER SYMa0L
S

$BDDAT

MACY11

—

CIRJIDO, RPO4/5/6 FCTNL CTLR)
CIRJID.PI
28-MAR-79 09:03

6153

6340

€144
7213
8685
10373+

8694

10993

8845
11475

11656¢

11814«

11829«

11834

11836

7418

7427+

7615+«
9989+
14253

7851+
8998+
14266

7860«
9241
14269

CIRJIDO, RPO&4/5/6 FCTNL CTLR]
CIRJ1D.P1I
28-MAR-79 09:03

001110
teenen

047023

0479012

045246
001154
000001

8684
2172

10583+
11829

12083
12080
11827
8884

11559
12290

11974

7682
104224

4560
6052#
8091
108534

27624
3668
47794
6211
91504

12587«
11833#
6141

10886+

10921«

10943

$POWER
$PWRAD
$PWRDN
$SPWRMG
SPWRUP
$QUES
$ROCHR
$RODE(C=
SROLIN
$RDOCT
$RDSZ =
SREGAD

051156
051144
051004
051140
051056
001222
046564

12302

2149

126944
12673

12701#
12663

12691

126794
11974
12654

12134

12194

12681+

127004

2143
12053

2147

2152

2222

12017

656
2542

658
2730
6543

3025

seROCRTYE

2381

35021+

4765

0941

2285

1810

10865

O —00ry
D
—

7305

el eid

NIV )

11806

4361
6600
10920
11808
12265

908

—

= 000000
$SWRMK
$TIMES
001212

YRV 1, NIV 1

2152
3177

118284
794
619

)

167770

12276

— OV

177777

045204
000200

2142
12C23

—d
b

000000

12680
11788#

—

$SCOPE
064776
$SETUP= 000117

12655

12656

046654
0470354
000011
001160
001162
001164
001166
001170
001172
001174
041152

= reeerne
$R2A
$SAVRE
= teewee
$SAVR6
051154

$5S1
$STUP
$SVLAD
$SvP(
$SWR

11821
12694
126964

OO ~NWwWO VW
— OV

$REGS

SRTNAD

8634

—_

$REG4

12569+
12564+
11791

Vo0

$REGO
$REG!
$REG2
$REG3

65714
9152

oo
S ~NOorN
O
OO
MNO~NOWN

050714
050716
045232
001100

11836

2691
34924

4781
$OCNT
$OMODE
SOVER
$PASS

SEQ 0311

2530
31904
45394
56954

23440

2285#4
2764
38834

30A(1052)
10:30
PAGE 313
25-MAY-79
“ROSS REFERENCE TABLE -- USER SYMBOLS

N — — Q0
W00~
W

SLPERR

SHALL =
$ M
SMSWR
SMXCNT
SNULL
$NWIST=

MACY11

11824

CIRJIDO, RPO4/5/6 FCINL CTLRY
CIRJID.PIY
28-MAR-79 09:03

MACY1Y

11836
11977
11993+«
2384
12048
11994+
11995«
11994
11977
12009#
2448+t
2307«

$1x8
STKCNT
SIKINT
$TKQEN=
STKAIN
$TKQOU
$TKQSR
$1KS
$TKSRV
$TMPO
$TMP1
$1MP2
$TMP3
$TMP4
$TMPS
$TN
=

001146
045714
045734
045733
045716
045720
045722
001144
046004
001176
001200
001202
001204
001206
001210
000052

11827+
8854
119784
2182
119824
1197948
119804
119812
8844
11996
900N
9014
9024
903#
9044
905#
6094

$1PB
STPFLG
$1PS

001152
001157
001150

8914
8864

$TRAP

$TRAP2

$TRP

$STRPAD

050720

= 072254

6584

8644
12171
12650
118494
119214
11962
11967
125674
12566
125628
117934
109354
12563
11790

778
20464
23370
27194
108774
11977

124210

12009
12040¢
11690

12034
12156
119934

12062
12156¢
12014

12089

12046+
12158+«
12161
12030

12047+
12159

12048
12161

12050+

12032

12038+

12060

12076+

12086

2449¢
2746+

2747+

2785+

2786+

8571«

8930«

14257

2269

2281

2285

229208

2293

2344

23514

12075

12098+

12118¢

2353

2358

2544
2802
3177
3536
4539
4925
57228
7680
101764

2689
28304
3178
3666
L5430
L9678
6052
77114
10188

2698¢
2850
3190
36754
4544
4959
60648
8089
10622

2701
3015
32094
3883
4558
4962
6209
81244
104494

2721
30254
3218
38914
L0688
5283
6238¢
8504
10461

27304
3032
3222
4098
4742
53034
6571
85234
10464

2731
3145
3245
L1278
L7468
5304
66007
9150
10853

2367

2752
3147
3324
4145
4747
5625
6910
9163
108654

23814

126474

12648BN

126498

126508

12651

126528

12653

126544

126558

126564

126574

10881+
12172

10919«
12189

11779
12193«

11806

11828+«

11833

11837

12277

12302

12649
12637

12645

119614

11962

12120

7924
2156
26938
35B14
115534
121938

7948
2155
24994
36504
117064
12194

798#
21964
2580N
36544
117304
12201

802#
22014
26184
4985H
11742¢
12255

8544
22054
26634
52524
117544
12302

861#
22094
26694
74564
11836
123334

912
22184
26758
105414
11837
123414

20440
23154
27094
105474
119034
12405#

20458
2330¢
2713#
108084
11974
124134

11921
11961

1266460

12627

11998
12023
3029
12159
11995
12157
12050
11999«

SEQ 0312

25428
279
3173
3533
4525
L789¢
5695
7318
10153

}Sbggl

050754

2528
2770
3169
3519
65240
6779
5691
7306
99274
11974

126224

126334

001102
046762
seeeer
045250
045474
045644
045712
050516
050532
050472
045010
000000
050715
seeree

619

2523
27698
3159
3511
4520
4766
5637
73054
9906
11963+

2147

050742

= 000014

$STSTNM
STIVIN
STYPBN=
$TYPDS
STYPE
STYPEC
SIYPEX
$TYPOC
$TYPON
$TYPOS
$XTSTR
$$GET4=
$OFILL
$4OCAT=

2382
2762
31584
3502#
63614
G765
56354
7273
94364
8874

30A(1052)
25-MAY-79
10:30
PAGE 214
CROSS REFERENCE TABLE -- USER SYMJOLS

12644

126444

119649
11969
12646
125694
12647

11974
11974

11956
119724
12648

12567+
12287

12577

126124

1264290

789
20824
24224
35534
10947
11982

124370

790#
2140
24BTH
35714
115384
119834

7814
20634
2G1BN
28624
10943
11981#

2756
3154
3492
4339
4761
5628
6939#
9410

124658

124698

124774

125344

12675

12699

14331#

CKCNTY
CLEARA

(MPBLK
CMREGI
COMMEN
DATACO

DISREG
OUM
ENDCOM
ERROR

64LTH

6564
7247
8033
8860
9867
11160

6698
7265
8062
8888
9895
11168

95988

ESCAPE
FIHEAD
FILLBL
FLSVRE

14
6478
8758
647

6474
4455

6168
7065
8042
8866

GETPRI]
GE TSWR
600

10123

Y
14
6LTN
5119

7393
9615

3898
7571

6575

6074
6964

7747

8773
9977

7744
3063
5402

7826
9829

12433

3434

3848
5211
10653

3852
5218

3990
56454

3360

3400
4700
9024

4888
9265

4892
9269

4899
9276

5201
10551

4796
7980
10498

4969
8227

5644
8398

5797
8645

5946
8809

6108
9102

9360

6248
6969
7766
9056

6263
7121

6268

6420
7325
8160
9335
10031

6428
7330
8179
9497
10238

6433

792
9077
9992

7129
7945
9314
9997

8192
9502
10243

10248

9512
10253

6554

6895

7093

7496

7658

7905

8072

8325

6726

6312
7238
10397

4714
7640
10689

4909
7885
10829

5226
8052

56475
8305

846¢

7787

7953

8200

3353

9013

10190

4997

3411

3420

3427

9645

9742

4078
7075
10133

6276
9342

64641
9575

6782
9788

10038

6977

7353
10481

7543
10597

3803

6229

4625

4825

5383

5502

2757
3603
5439
6150
6754

2794
3736
5648
6159
6850
7504
8314

2875

4087

5559
6204
6887

2905

4321
5568

6346
6905

2925

4679
5669

6383

7056
7857

2995

4688
5841

6402
7084
7866
8691
9654

7340

10733

3093

10665

10672

6302

6467

6610
7345
8347
9507

6620

3102

6723

4871

7103
7894

7915

5850
6509

5878
6518
7210

9443

7517

8364

5597

3126

4880

5899
6546

8734

10838

8700
9752
10974

9773
10986

7219
8024
8851
9858
10995

9042
10370
11300

10406

11359

7649
8449
9256
10570
11362

7737
9552

7758

7935

8133

8171

818¢

835¢

8579

8598

4027
4704

4030
4707

4036

4039

4050

4060

4283

7231

7462

7468

5063
6006
6868

6286
6165
7062
8039

6524

7621

8440
9247

5992
6530

9262
10391

8295
9632

10662

8456
9638

3629
5653
8240

3708
5676
8411

3959
5959
8658
10511

8292

10126

12425

10774
3727

6367

6171
7068
8045
8869

12617

9762
3448

7484
8280
9004
10141
11291

397
4458

12409

12385

10590

6537

7742
S732
9064

12401

12377

9982
10719

6392

5997

7583
97°0

3798
7381
10063
4368

2938
629
2308
3322
5156

7740
6094
2958
5265

4472
9017

5588

5021

5256
5743
6774
7530
8609
9547
10286
5889
8896
2986
6016
8879
620
5770
8617

4461

3362

5468
10818
3229
6808
9697
2934

6678
6478
6766
7522
8590
9517
10258
64L78
8486
6478
5869
8726
1Y
6478
83N
647N
6478
1
6684
3293
918

4300

12393

12369

10076

10214

5856
6713
7627
8457
9728

4251
6121

8822

10629

8497

9399
10783

5862
6719
7633
8706
9734

6003
6865
7872
8709
9873

4435
6667
9179

7875

8712

9876

4643

6821
9217

6009
6871
7878
8716
9879

O~
&~
wO 0o
-~ —
[V TNV

CHKINY

12361

— 00 NV
WO W

CHECKY

12353
12473

SEQ 0313

—

CHECKD

5461
10681
6L
6654
9602
o478

12328
12449
2975
4010

30A(1052)
10:30
PAGE 216
25-MAY-79
CROSS REFERENCE TABLE -- MACRO NAMES

Lo
Yo ¥ ol

CHANGR

6478
12441
6478
4001

—

ALLREG

MACY11

CIZRJIDO, RPO&/S/6 FCTINL C
CIRJID.P1Y
28-MAR-79 0

8719

10120

5004

7181
9461

CIRJIDO, RPO&L/S/6 FCINL CTLR)
C(IRJ1D.PV1
28-MAR-79 09:03

OFFST

POP

PUSH
REPORT
RFORGC
RHCLEA

RH70CK
SAVE
SAVTST
SCH
SCOPE

SEEX(CO

SETPRI

SETTRA
SETUP
SK1P
SLASH

SPACE
SREGIS
STARS

2804

65714

6573

65564
6211
94104

6560

3666
6209
6678

3883
6571
5649

11J
4

11199
11 ]
11189
14
6L
6478
4129

6240
8940
6478
(Y]]
Y%/]
6678
6694
3890
6237

6LTH
»

12637#
i
14
\

7748
64678
6101
8951

2258

2689
3175
6339
4763

6236

STARTT

5349
3153
2839
2287
30144

5048
5355
3172
3234
23430
3017

9410
11776

6L78

777N

6199
6397
4807
5052

5357

4519
3522

2346
31894

4781
69104
9908

3759

3918
620N

6581
4808

5056
5359
4537
6134
23664
3192
69254
6912

3761
3920

3763
3922

4203
4583
4810

4225
4585
4812
5064

6741
6948

6759
10450

5060
5381

2369
34914
4927

25274
3494
52834

7275
106214

9
PAGE 317

SEQ 0314

=-- MACRO NAMES

3765
3924
6377
4586
(814
5068

2530
36654

5285
76794
104624

3767
3926

3769
3948

37N

0379
«588
4816

4381
4590
4818
5096

4382
6592
4820
5332

26884
3668
5628#

2691
3883«
5630
8088+
10855

27204
3885
56954
8091

5072

7682
108534

3773

4186
4384
6594
4822

4184

5335

2723

3795

4188

4386
4596
4823

5338

27614

5907
4189
4388
4598

5033
5340

2764

3909

6191
4390
4600
5037

5343

2802#

40974
5697

4100

8503«

60514
8506

6054

91494

4341
62084
9152

3154
5283

3173
5628

3190
5695

3492
6052

43374

101524

72734
10155

2367
4520
7680

4539
8089

6557
8504

L7462
9150

4761
9410

4778
9906

4925
10153

104622

10853

4618
11488
4602
11456

5090
11586
5074
11576

11667
5361
11639

5377

9542
11890
9525
11849

10022
12264

10283
12684
10266
12665

10997
12685
10961
12671

11024

11052

11077

11013

11042

11070

6760

4791
6941

49?2
7308
9782

7511
9929

3226
5319
7713

3391
5612

9969

7921
10178

3538
5639
8126

10230

3589
5671
8341

10466

3677
5724
8525

3747
5905

9478

2879
4964
7110
9664

10585

3893
6066
8744

2293

2382

2698

2731

2770

3159

3178

6525

6544

L747

4766

229N

2380

4523
7304
9450

2541
6562
7710
9942

2697

2729

4788
9435

6946
9926

3157
5302

10175

3176
5634
10448

3208
5670

10864

10202

2768
4764
9162

3024

8123

4745
8522

12648

12649

12651

12653

12654

12655

12656

12657

64L7H

2269

2281

2358

2523

2701

2752

2756

279N

5625

5691

2944
6295
9203
639
2285
2696
3190

3256
6647

3694
6801

3809
6996

6407
7374
10531
912

4631
7564
10615
1699

4831
7806
10796
1701

5388
8220

5508
839N

8638

1984

9412
7748
1744

1744
113N
7740
11252
7740

2546

6170
6409
9165
7313
12271

99054

2285

4098

6910

3791

11402

2733

2772
4570

6363
6602
9308
10183

6599
8946

7744
12646
7740

1740

6571

9434
11839
2546

3944

11377
3775
11334

6126

4359
779

2344

6339
7273

3928

11389

9438

9690
7744

6221
11633

6205
11419

2832

2528

2689

2928

6567

2344
2728
3211

L787
6598

9906
11906

2830

6515
6925

6910

9925
11976
3032

2721

3034
5306

2458
2828
3504

2762

2829

2802

10005

12218

3015

6561

5499
7680
10447
12163
3891

—

muLY
NEWTST

(Y%{]
667N
22844

6197
6396
4805

3758
31916

TABLE

10:30

PPN
NN
—
~NO QO
NN
— W ~
00 — O ONIINOD
N OL o
OO WM
OOWNO
— [V]

MAKECL
MANUAL
MSG

5041
5346

6195
4394
4803
5044

3756
3914

CROSS REFERENCE

4193
6392
6622

3754
3912

25-MAY-79

—
b

6678
3911

30AC1052)

WO
NN
LN
O~
O — D NN
N
N0
N — N
~NWNIOOWO
~NWVNION N
N OMNOWNW—=OOMNIONO
=

LOAD

MACY11

2610
3156
3889

4742

6052
8521

10911
12661
4962

8572

10711

3501
5721
10918

3674
6063

5790

5939
8802

1989

2236
2676
3173

2637
3156

6098
6744

6125
4761

11759
12677

11769

6062
9150

5304

6209
916)
9636

CIRJIDO, RPO4L/5/6 FCTINL CTLRI
CIRJID.P
28-MAR-79 09:03

9163

9436

10176

10464

3147

3169

3218

3265

3324

3511

3519

3533

4959

7318

10188

2831
6239

3033
6601

3223
6940

6128

4362
9164

4569
9437

6963
10177

10465

5305

5638

2631
2193
2486
2853
3647

12081
2198

2270
2621
3300
5177

2312
2627
3306

2334
2665
3554

2388
2671
3567

2414

2423
2710
3605

2625
2188
2627
2716
3611

10804
11715
12378

2951
6308

8958
10750
2967
5660

8252

10086

2973

5666
8258

10092

894

900
7740
7740

3883
6571

12646
7740
609

6094
609#
6094
6094
6594
6094

6094
609#

11721
12386

10868
11727
12394

9108

6660
9172

10811

3056
6473

3701

895
901

3481
5822
8564
10351
3487
5828
8570
10357
896
902

2285

2344

3074
5683
8421
10222
3080
5689
8427

10228

4098
6910
12647
664

818

2133
647
660
785

4339
7273
12648

2490
2859
3651

10874
11731
1246402

3816
6814

9210

3639
5969

8672

10520

3645
5975
8678
10526
897
903

2367

6520
7680
12649

2202
2496
2885

6148
1522
1735
12410

3952
7009
9366
3717
6131
8832

10637
3723
6137

8838

10643
898
904

2528

6539
8089
12651

3832
6327
8976
10765
3838
6333
8982
10771
899
905
2689

4558

8504

12653

7445
11679
12346
12666
5515
8404
10207

7652
11686
12354
126474

10538
11702
12362

10333

10504

6831
9228

4652
7028
9381

5013
7405
9623

5279
7593

5412

9718

7838
9839

4651

4658

5019
7611
9629

5281
7599
9724

5418
7844
9845

3173
5628

3190
5695

3492
6052

7819
9822

7174
9454

6444

7034
9387

6837
9234

2721

6742
9150
12656

2802

12655

2702
3574

5242
11550
12330
12450
5112
7986
9946

11543
11761
12442
4837

4779
9906
12656

~NWNW

10930

1740
7740
7740
1740
7740

8524

2545
6065
1748
7744

VAN

8523

—

SONEWT

8126

Wit

(AR

NO S
O~ 0O

7306

no £ N
— 00NN
Pol =2 NN
O NO
[a ] 000000 —NOo

$$SET
$$SK 1P
.EQUAT
-HEADE
KT
.SETUP
. oWRH]
. SWRLO
LSACT
.SAPTB
.SAPTH
.SAPTY
.SASTA
LSCATC
LSCMTA
.$082D

3666
6209
126378
1
1
14
14
1
14
6094
14
14
14
14
1
14
14
14

VECSET

6939

—

$SCMRE
SSCMTM
$SESCA

2619
2706
3578
10544
11709
12370
64674
6114
8815
10622
6L78
5532
8005
9961
64678
5538
8011
9967
855#
8554
14

6600

—

14
14
1
4
4
1L
1

2850

SEQ 0315

6238
21564
3145

—

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXY

5723

7740

TRMTRP
TSCLRZ
TSCLRS
T1STNO

6478
10461
126374
6L7H
6470
6474

6064

—d

5722
18

30A(1052)
10:30
PAGE 318
25-MAY-79
CROSS REFERENCE TABLE =-- MACRO NAMES

-—

SWRSU
TJUMP

MACY11

10853

5803
8549

5952
8651

ABS.

R BERRERERERERREREERRRE
R B
R
B
B
R
L E R

.$0820
.01V
.$tOoP
.$SERRO
.SERRT
LBMULT
. $POWE
. SRAND
.$SRODE
.$RDOC
.SREAD
.SR2AZ
.$SAVE
.$5B2D
.$5820
.$SCOP
.$S11E
.$SUPR
.STRAP
.$1YPB
.$1YPD
.STYPE
.$1YPO
.$40CA
L1170

-‘—.—.dd—‘—‘—dd—.—‘—.—.—‘—‘—J—.—.-—.—‘—‘—.—‘—O—.

CIRJIDO, RPO4/5/6 FCINL 1 R1
CZRJID.PIY
28-MAR-79 09: 03

072254

ERRORS DETECTED:

6094
6094
609#

10909

609#

12659

6094
609#

12202
11974

6098

11774

6094

12614

609¢
6094
6094

11837
11904
12537

MACYT1

F
9
30A(1052)
25-MAY-79
10:30
PAGE 219
CROSS REFERENCE TABLE ~-- MACRO NAMES

12255

000
0

OSK2:CZRJID.BIN,DSKZ:CZRJID.LST/CRF/SOL/NL:TOC:MD:MC:CND/LI1:ME=CZRJID.SML,CZRUID.P1]
RUN-TIME: 110 161 8 SECONDS
RUN-TIME RATIO: 569/281=2.0
(75 PAGES)
38k
CORE USED:

SEQ 0316