Digital PDFs

AH-9215D-MC

November 1979

275 pages

Original

12MB

view download

OCR Version

10MB

view download

Document:	CZRJHD0 RP04-5-6 RP04-5-6 DSKLS 2 NOV 1979 bw
Order Number:	AH-9215D-MC
Revision:	000
Pages:	275
Original Filename:	CZRJHD0__RP04-5-6__RP04-5-6_DSKLS_2__AH-9215D-MC__NOV_1979_bw.pdf

OCR Text

RP04/5/6

CZRIHDO

comacn o SIPOOED
EICHE

MADE

RP04/5/6

Sohgi R
E¢
OF
FIC2H

MADE

LS8

MACYTY

SOAC1052)

24-MAY-79

15:07

[

PAGE

S¢a 0001

.REM @

IDENTIFICATION

PRODUCT CODE:

AC-9213D-M(C

PRODUCT NAME:

CZRJHDO RPO4/S5/6 DISKLESS CONTROLLER

DATE CREATED:

MAY, 1979

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

PETE BLACKSTONE

THE

INFORMATION IN THIS DOCUMENT IS SUBJECT 10
(HANGE W]ITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS
A (OMM[TTMENT BY DIGITAL EQUIPMENT CORPOKATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS

MANUAL.

THE SOF TWARE DESCRIBED IN THIS DOCUMENT 1S FURNISHED
10 THE PURCHASER UNDER A LICENSE FOR USE ON A SINGLE
COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION Of

DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN

WRITING BY DIGITAL.

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

TEST=-PART

CIRIMDO,RPOL/S76 DSKLS C(TRLN?
(IRJnD. P
28-MAR-79 09:16

28-MAR-79 09:16

24-MAY-79

POP

DEC

DECUS
CONTENTS

ABSTRACT

REQUIREMENTS

2.1

EQUIPMENT

STORAGE

PREL IMINARY PROGRAMS

ME THOD
STARTING PROCEDURE

LOADING PROCEDURE

CONTROL

STARTING ADDRESS OR ADDRESSES

PROGRAM AND/OR OPERATOR ACTION

OPERATING PROCEDURE

OPERATIONAL SWITCH SETTINGS

SUB-ROLTINE

OO0

SWITCH SETTINGS

ABSTRA(CTS

O
~N

RESTRICTIONS

MISCELLANEOUS

N
wm

e
e

0
oo

STACK POINTER

OPERATOR SELECTABLE SCOPE LOOPS

EXECUTION TIME

ERRORS

'FATAL'

ERRORS

PROGRAM REVISION HISTORY
PROGRAM DESCRIPT]ON

15:07

1
PAGE

UNIBUS

DECTAPE

¥]

30A(1052)

DIGITAL

(IRJNHD.P

MACY11

SEQ 0002
MASSBUS

[

CIRJHDO ,RPOL/S/76 DSYLS CTRLR2

C(IRJMD.PYY

2B8-MAR-79 (09:16
1.0

MACY1Y

30A(1052)

24-MAY-79

15:07

1
PAGE ¢

SEQ 0003

ABSTRACY

THIS DIAGNOSTIC TESTS THE RH11 AND DCL OF AN RP0O4/5/6 SUBSYSTEM.
17 DOES NOT USE THE DISK SURFACE OR ANY SIGNALS FROM THE MDLI.
1T REQUIRES THAT THE DCL CABLE ot PLUGGED !NTO THE MDLI OR
BE APPROPIATELY TERMINATED.
IF THE DISK IS POWERED UP, 1T

1S REQUIRED TO GEY THE DISK TO THE "'MEADS UNLOADED'' POSITION.

AFTER A SUCCESSFUL RUN

(WITH NO ERRORS) OF

THIS DIAGNOSTIC

17 CAN BE ASSERTED THAT, ''THAT PARYT OF THE DCL THAT HANDLES
DATA OR DATA ASSOCIATED LOGIC 1S WORKING PROPERLY''.
THIS

IMPLIES THAT, THAT PART OF THE LOGIC WHICH HANDLES MECHAN]CAL
COMMANDS OR ITS ASSOCIATED LOGIC 1S NOT TESTED IN THIS
DIAGNOSTIC.
ALL DATA COMMANDS USE THE MAINTENANCE REGISTER
IN THE WRAPAROUND MODE.
THE DIAGNOSTIC DOES NOT DO ANY TESTING OF THE RH70 CONTROLLER
WHEN 1T 1S USED TO TEST RPO4/5/6 DISK DRIVES CONNECTED TO
THAT TYPE OF CONTROLLER.
[T IS ASSUMED THAT THE RH/0
SPECIF]C CONTROLLER DIAGNOSTICS HAVE BEEN SUCCESSFULLY RUN TO
COMPLETION BEFORE THIS PROGRAM [S RUN.
REQUIREMENTS

EQU]IPMENT

PDP-11 COMPUTER WITH CONSOLE TELETYPE, AND AN RP04/5/6 DISK SYSTEM,
THE RP0&/5/6 DISK SYSTEM WILL (ONSIST OF AN RH11/RH70 CONTROLLER,
AND DISK CONTROL LOGIC (DCL). THE CABLE FROM THE DCL CAN BE
CONNECTED TO THE MDLI, BUT IF NOT THAT CABLE MUST BE PROPERLY
TERMINATED.

STORAGE
THIS PROGRAM REQUIRES
PRELIMINARY

16K

WORDS OF

MEMORY,

PROGRAMS

TH]S PROGRAM ASSUMES THAT MAINDEC-11-DZIRJG(LATEST REV)

HAS BEEN RUN WITHOUT ERRORS

LOADING PROCEDURE

USE STANDARD PROCEDURE FfOR LOADING .ABS TAPES
STARTING PROCEDURE

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

1T CAN BE SET AT

SOFWARE SWITCH REGISTER |F

PARAGRAPH 5.1
OPERAT]ON.

FOR A DESCRIPTION OF

CONTROL SWITCH SETTINGS

SEE SECTION 5.1

THE FRONT PANEL, OR

THE OPERATOR SO DESIRES.

IN THE

SEE

SOFTWARE SWIT(H REG!STER

(Y]

CIRJHDO,RPOL/S576 DSKLS CTRLR2

6.2

MACYI1

30A(1052)

24-MAY-79

15:07

PAGE 5

SEQ 0004

STARTING ADDRESS

START AT ADDRESS 200---FOR NORMAL RUN
START AT ADDRESS 204=-=-T0 SELECT NON-DEFAULYT
START AT ADDRESS 210--=FOR UNIT SELECTION

PARAMETERS

200 START
ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN.

WITH THIS

STARTING ADDRESS ALL THE RP04/5/6'S ON THE SYSTEM WILL BE
TESTED ONE AT A TIME BEFORE ""END PASS'' IS PRINTED OUT.

TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE
THAT IS POWERED UP (THAT [S THE LOWEST UNIT NUMBER RHAS REGISTER
THAT RESPONDS)THEN GO ON TO THE NEXT HIGHER UNIT NUMBER
THAT

1S POWERED UP.

204 RESTART

SAME AS 200 START WITH FOLLOWING EXCEPTIONS:
PROGRAM
CSR AND VECTOR ADDRESS
WHEN TH]S ACTION HAS BEEN COMPLETED, THE
CONTROLLER.
WILL AUTOMATICALLY RESTART FROM ADDRESS 200, WITH THE
CONVENTIONS AS DESCRIBED FOR A 200 START.
QUERY OPERATOR FOR THE CORRECT

WILL
OF THE RHXX
PROGRAM
SAME

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

THE PROGRAM.

PROGRAM AND/OR OPERATOR ACTION
1.

LOAD THE PROGRAM

SET STARTING ADDRESS ON THE SWITCH REGISTER

PRESS '‘LOAD ADDRESS''.

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

WORST CASE

INTO MEMORY.

IS ALL SWITCHES DOWN.

PRESS "'START'.

FOR THE FJRST PASS EACH TEST wiLL BE EXECUTED ONCE
ON THE DRIVES PRESENT OR DRIVE SELECTED BEFORE ''END
PASS'' 1S PRINTED.

THE FIRST PASS WitLL REQUIRE OPERATOR

INTERVENTION 1F THE PROGRAM IS NOT RUN UNDER AN ""ACT-11"

MONITOR.
THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE
EACH TEST FOUR TIMES ON EACH DRIVES PRESENT OR DRIVE
THE SECOND
SELECTED BEFORE "END PASS'' 1S PRINTED.
AND SUBSEQUENT PASSED DO NOT NEED ANY OPERATOR INTERVENTION.
5.0

OPERATING PROCEDURE

5.1

OPERAT]IONAL SWITCH SETTINGS

If THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1.E.
AN 11/34) THE PROGRAM WiLL DETERMINE THAT THE WARDWARE SWITCH

[anNan]

CIRIHDO,RPOL/S/6 DSKLS CTRLR2
CZRJHD.PI
28-MAR-79 09:16

CIRJIHDO,RPOL/S/6 DSKLS CTRLR2

CIRJHD.PIN

28-MAR-79 09:16

MACYI1

30A(1052)

24-MAY-79

15:07

PAGE 6

REGISTER 1S NOT PRESENT AND WILL USE AN ‘'SOF TWARE' SWITCH
REGISTER.
THE SETTINGS Of THE °'SOFTWARE' SWITCHES ARE
CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH IS CALLED BY
TYPING A 'CONTROL G'.
THE PROGRAM WILL RECOGNIZE THE
‘CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM IS AT A
HIGHER PRIORITY PROCESSING AN RPO4/5/6 INTERRUPT,
THE
'SOF TWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN
RESPONSE T10 THE PROMPT FROM THE SWITCH ENTRY ROUTINE:
‘SWR = NNNNNN

NEW ='

EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH

REGISTER IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT
REQUIRED.
°‘RUBOUT' AND 'CONTROL U' FUNCTIONS MAY BE USED T0O
CORRECT TYPING ERRORS DURING SWITCH ENTRY

ON PROCESSORS WITH HARDWARE SWITCH REGISTCR, THE 'SOFTWARE'
SWITCH REGISTER MAY BE USED.
1F THE PROGRAM FINDS ALL 16
SWITCHES IN THE °'UP' POSITION, ALL SWITCH REGISTER REFERENCES
WILL BE TO THE °'SOFTWARE' REGISTER AND THE PROCEDURES
DESCRIBED ABOVE MUST BE FOLLOWED.

SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 ''OPERATIONAL
S:ITCH SETTINGS'' HOWEVER THE DETAIL DESCRIPTIONS ARE GIVEN

HERE.

SWITCH 15 - HALT ON ERROR

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

"CONTINUE'" WILL CONTINUE WITH THE PROGRAM TILL THE NEXT
ERROR 1S FOUND WHEN THE SAME THING WILL HAPPEN.

SWITCH 14 - LOOP ON TEST
WHEN THIS SWITCH IS SET THE PROGRAM WILL BEGIN TC 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 REPEATFDLY.
ONE WAY T0O BE SURE THAT THE PROGRAM IS IN THE EXPECTED
TEST IS TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR
DURING A PROGRAM HALT.

SWITCH 13 - INHIBIT ERROR 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'’ WitL BE TRUE, THAT IS, ALTHOUGH
PRINTOUTS WERE INHIBITED IF THAT PASS FOUND 6 ERRORS,
IT WiLtL 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 10 AN RH70
1T MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED
CONTROLLER,

SEQ 0005

[gnRan)

MACYY1

30A(1052)

24-MAY-79

ARE CONNECTED TO AN RH11

CONTROLLER.

SWITCH 11

= INMIBIT

15:07

1
PAGE 7

ITERATIONS

WHEN THIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL
SSEERSZECT EACH TEST FOUR TIMES BUT WILL DO EACH TEST
LY.

SWITCH 10 - BELL ON ERROR

WHEN THIS SWITCH IS SET, if THE PROGRAM FINDS AN ERROR
THE "BELL'' OR "ALARM'' WILL BE SOUNDED.
THIS SWITCH IS USEFUL
WHEN SWITCH 11 1S SET YET INFORMATION IS NEEDED WHEN ANY ERROR

IS DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH

SWITCH 11 SET TO HELP SLOPING.
THEN IF THIS SWITCH IS
SET AND THE BELL OR ALARM SOUNDS 1T MEANS THAT TH® ERROR
IS PRESENT BUT IF THE BELL OR ALARM STOPS [T MEANS THAT
THE ERROR

1S NOT

PRESENT.

SWITCH 9 - LOOP ON ERROR
WHEN THIS SWITCH IS SET, IF
THEN GENERALLY

THE

THE PROGRAM FINDS AN ERROR

PROGRAM WILL LOOP BACK

EXECUTED ''SCOPE’" STATEMENT.

TO THE

LAST

IF ON THE SECOND TIME

THROUGH AN ERROR IS FOUND 17 WILL AGAIN LOOP BACK 10
THAT "'SCOPE'' STATEMENT.
THIS LOOPING WILL CONTINUE AS LONG
AS THE ERROR IS PRESENT AND THIS SWITCH IS SET.
HOWEVER

IF THE ERROR IS NOT PRESENT AT ANY TIME THEN 1T 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

IS ALSO SET.

NOTE:

ALSO SEE SECTION 8.3

SWITCH 8 - LOOP ON TEST IN SWR <7:0>
THIS IS A SPECIAL SWITCH.
WHEN SET SWITCHES O TPRU 7
HAVE ONE MEANING AND WHEN RESET SWITCHES O THRU 7 HAVE
THIS MEANS THAT ANY SETTING OF SWITCH
ANOTHER MEANING.
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 B SET AND SWITCH 3 SET THE PROGRAM WiLL LOOP
ON TEST 10.
HOWEVER THIS SETTING MUS" BE DONE AT THE

BEGINNING OF THE PROGRAM THEN ALL THE TESTS FROM 1 TC 10

WwiLL BE EXECUTED AND THEN TEST 10 WiLL BE REPEATED OVER
AND OVER AGAIN.
WHEN THIS SWITCH IS NOT SET THEN SWITC.ES
0 THRU 7 HAVE THE MEAING ITS NAME INDICATES.
FOR EXAMPLE SWITCH 7 1S ''STOP FURTHER COMPARES: THAT IS

IF SWITCH 8 1S NOT SET AND SWITCH 7 IS SET THEN WHEN A
DATA ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE.
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN
ERROR THEN AFTER SEEING THE PRINTOUT FOR THE FIRST FEW
WORDS SETTING SWITCH 7 ONLY WILL STOP FURTHER PRINTOUTS
OF THIS ERROR AND GO ON WITH THE TEST RATHER THAN PRINT
ALL THE 256 WORDS. HOWEVER 1F THIS WAS DONE WITH SWli(H 1

Sea 0006

eSS

CIRJHDO,RPOL/S5/6 DSKLS CTRLR2
CIRJHD. P
28-MAR-79 09:16

MACY11

30A(1052)
THAT

24-MAY=79

THEN THE NEXT

ERROR

THE

THIS GROUP OF

DATA ERRORS ARE NOT

15:07

PROGRAM DETECTS

SEQUENT TEST WILL ALSO BE LOST.

PAGE 8
[N A SUB-

BUT WITH SWITCH 7, ONLY
PRINTED OUT.

ANOTHER

EXAMPLE OF SWITCH 8 BEING LOW IS WITH SWITCH 6, WHICH
1S "'ECC TEST-COMPARE END RESULY ONLY'.
THAT IS IFf SWITCH
8 1S NOT SET AND SWITCH 6 1S SET THEN ON ECC TESTS (TEST
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY C(LOCK,
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS.

NOTE:

ALSO SEE

SECTION 8.3

SWITCH 7 - STOP FURTHER COMPARES |F SWOB IS LOW.
IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED
IF SWITCH 8 IS NOT SET
IN THE DESCRIPTION OF SWITCH 8.
AND THIS SWITCH 1S SET THEN THE PROGRAM WILL DO AS THE
NAME INDICATES.
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL
THE WORDS ARE IN ERROR THEN AFTER SEEING THE ERROR PRINTOUTS
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8
NOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL
NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT
TEST.
IT IS EXPECTED THAT SWITCH 7 AFTER BEING SET FOR
A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS.

SWITCH 6 =~ ECC TEST-COMPARE END RESULTS ONLY IF SWO8 IS LOW
IF SWITCH B IS SET AND THIS SWITCH IS ALSO SET THEN THIS

SWITCH GIVES THE TEST NUMBER 1O BE LOOPED ON AS INDICATED
IN THE DESCRIPTION OF SWITCH 8.
IF SWITCH 8 IS NOT SET
AND THIS SWITCH IS SET THEN ON ECC TESTS (TEST 120 THRU
TEST 134) INSTEAD OF COMPARING CONTENTS OF THE POSITION AND
PATTERN REGISTERS AFTER EVERY CLOCK, COMPARES wiLL BE DONE
ONLY AT THE END OF ALL THE CLOCKS.
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 RPO4
IF THE ERROR OCCURRED IN A
REGISTERS OR GOOD/RECEIVED DATA,
SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL IS ALSO
GIVEN. REFER TO THE PROGRAM LISTING AT THE STATED
ADDRESS TO DETERMINE THE CAUSE OF THE ERROR.
6. 1

"FATAL'

ERRORS

IN THE EVENT THAT THE DISK DRIVE BECOMES UNAVAILABLE TO THE

SEQ 0007

(X
]

CIRJHDO ,RPOL/S/6 DSKLS CTRLR2
(ZRJHD.P
28-MAR-79 09:16

CIRJHDO,RPOL/S5/6 DSKLS CTRLR?
CIRJHD.PIY
28-MAR-79 09:16

MACYTY

30AC1052)

24-MAY-79

)

15:07

S
PAGE 9

Sea 0008

CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS
CANNOT BE CLEARED PRIOR TO THE START OF A T4ST SEQUENCE -

THIS INFORMATION WILL BE COMMUNICATED TO THE OPERATOR.
IN
ADDITION, THE TTY BELL WILL RING AND THE PROGRAM WILL HALT.

IS SUGGESTED THAT

I1F

THIS HAPPENS THE OPERATOR LOAD

ADDRESS 200 (210) AND RESTART THE PROGRAM AS A FIRST ATTEMPT
10 SOLVE THE PROBLEM.
1F THE FAILURE CONTINUES TO OCCUR,
THERE

ARE

TWO OPTIONS FOR

THE OPERATOR:

1.
LOOK IN THE TEST LISTING FOR THE 'HALT'
INSTRUCTION AND REPLACE IT PLUS THE TWO WORDS
("'TYPE
,CPHALT'') ABOVE WITH 'NOP'S.
WITH TTY ERROR

PRINTOUTS

INHIBITED,

TEST

A SCOPE

LOOP CAN BE

FOR

THE

IN QUESTION.

GO BACK AND RERUN DZRPS AS

THAT A HARD FAILURE HAS OCCURRED
HARDWARE REGISTERS.

INITIATED

IS QUITE POSSIBLE

IN ONE OF

THE

1T 1S ALSO POSSIBLE TO CONTINUE FROM THE HALT POINT, BUT THIS
1S NOT RECOMMENDED AS ALL FOLLOWING TESTS WILL EXHIBIT THE
SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS.
7.0

RESTRICTIONS

IF THERE 1S A DRIVE CONNECTED THEN THE OPERATOR MUST HAVE

THE DRIVE PORT SWITCH LOCKED EITHER ON PORT

A OR PORT B

BUT NEVER LEAVE ]T IN THE PROGRAMMABLE STATE,
IF THERE
FROM
GOING
NORMALLY
CABLE
THE
THEN
1S NO DRIVE CONNECTED
THE DCL TO THE MDL]

MUST BE PROPERLY

TERMINATED.

SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND
IT MUST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER.
BECAUSE OF THIS FACT, THE PROGRAM CANNOT BE RUN IN CHAIN MODE
WHEN USING THE SOFTWARE SWITCH REGISTER AS THE ROUTINE WHICH
ASKS FOR THE SWTI(H REGISTER SETTINGS
CHAIN MODE.

8.0

MISCELLANEOUS

8.1

EXECUTION TIME

IS NOT OPERABLE WHEN [N

THE FIRST PASS OF THE PROGRAM WwlLL TAKE 1,75 MINUTES PER
DRIVE.
SUBSEQUENT PASSES WILL TAKE 7 MINUTE.
8.2

STACK POINTER

THE STACK IS INITIALLY SET 10 1000
8.3

OPERATOR SELECTABLE SCOPE LOOPS

HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS.
FOR INSTRUCTIONS REGARDING USAGE OF THESE LOOPS, HIT CONTROL
C ANY TIME WHILE THE PROGRAM |S RUNNING. ON HITTING AN ERROR

1F THE LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BACK

= USUALLY BACK TO THE BEGINNING OF

THE TEST.

—

CIRINDO,RPOL/5/6 DSKLS CTRLRZ
CIRJHD.PVY
28-MAR-79 09:16

MACY11

30A(1052)

24-MAY-79

15:07

1
PAGE 10

Sea 0009

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

LOOP ON ERROR SW]TCH MUST BE SET
THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION
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 SCUPE LCOP IS USED
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN [T
COMES TO THE END OF THE TEST UNDER CONSIDERATION.

AFTER LOOPING FOR SOME TIME

NORMAL OPERATION WILL

CONTINUE.

8.6

PROGRAM REVISION HISTORY

9.0

PROGRAM DESCRIPTION

THE LOOP SWITCH IS PUT DOWN THEN

THE FOLLOWING SECTIONS DESCRIBE EACH TEST AND SUBROUTINES

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

THE LEFT MOST

WHERE
?

THAT

COLUMN IS THE LINE NUMBER WITHIN THE LISTING

]TEM wiiLL

FOUND.

CIRJIHDO,RPO4/S5/6 DSKLS CTRLR2

C(IRJHD.P1Y

28-MAR-79 09:16

L74

MACY1Y

30A(1052)

LTITLE

24-MAY-79

15:07

PAGE

SEQ 0010

CIRJMDO,RPOL/S5/6 DSXLS CTRLRZ

475
476

;*COPYRIGHT (() 1976,1978
;*DIGITAL EQUIPMENT (ORP.

478
:gg

o
;*PROGRAM BY PETE BLACKSTONE

481

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11

W77

;*MAYNARD, MASS. 01754
1

:g%

:*PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977,

’,

MAINDEC SYSMAC

X
3

484
485

AN A ANy A Ay
AN A
AN
N AN A A
AN

AN
Ay ANy A ANy AN A AN A AN L ANy AN A AN AN AV A AN A AR A AW
ANy A ANy ANy A ANy ANy Ay A ANy ANy AN A ARV ANV ARVA AN ASNA A
ANy ANy AN
Ay A AN A AR A A
AN A AV A AC VA ACVA ASFA ASNA ARWA A

:DRIVE MUST BE LOCKED ON PORT A OR PORT B
AAS VEAR VAN VAN VAAN VAN VAN FERN VAN FAAN VAN VAN VEAS AN VALY VAN FERAS FERY
AR VAR VAN VAR VAR VAN VAR FEAS VALY VAR FEAN VERY VAL VAAY VAN VALY VRN VRN |
AN VAR VAN VAR VAR FAAN VAR VAN FEAN FARN VAN VALY VAL VEASY FEAN VESN FEARY JRRN |
697
498
499

500

;INTERNAL PROGRAM MACROS BEGIN MERE

501

502

R A

50%

e
R AR R AR ARl

504

587

10 THE SOURCE PROGRAM AT ASSEMBLY TIME.

LSBTTL

OPERATIONAL SWITCH SETTINGS

505
506

203

510
S11

gl%

;*NOTE: ALL MACRO CALLS BEGINNING WITH ', $'" ARE SUPPLIED FROM AN
M
EXTERNAL SYSMAC.SML PACKAGE WHICH MUST BE MADE AVAI_ABLE

;:t'!'t"'t""'t"t'tt""'tfitt"tt't'lttt'tttt'ltt'ttt'tt'ttttt
MR

515

;¢

eeee==

523
524
525

.
.t
.

8
7
6

514

516
517
518
519
520
521
522

526

ot
..
A
.
o
ot
.

SWITCH

15
14
13
12
11
10
9

eecccccccccceccccca-

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>
STOP FURTHER COMPARES I1F Sw08 IS LOW
ECC TEST-COMPARE END RESULTS ONLY IF SWOB S LOW

CIRJIHDO,RPOL/S5/6 DSKLS CTRLR2
CIRIHD.PT

28-MAR-79 09:16

MACY11

30AC1052)

24-MAY-79

BASIC DEFINITIONS

.SBTTL

15:07

PAGE

3¢

SEQ 0011

BASIC DEFiINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER e#o+ 1000 ##e

001060

STACk=
.EQUIV
.EQulv

000011
000012
000015
000200
177776

HY=
LF=
(R=

1000
EMT ,ERROR
10T,SCOPE

;:BRASIC DEFINITION OF
;:BASIC DCFINITION OF

s*MISCELLANEOUS DEFINITIONS
1"
;. CODE FOR HORIZONTAL TAB
12
::CODE FOR LINE FEED
15
::CODE FOR CARRIAGE RETURN
(RLF=
200
::CODE FOR CARRIAGE RETURN=-LINE FEED
PS=
177776
;;PROCESSOR STATUS WORD
LEQUIV

STKLMT=
PIRQ=
DSWR=
DDISP=

PS,PSW

177774
177772
177570
177570

::STACK LIMIT REGISTER
::PROGRAM INTERRUPT REQUEST REGISTER
: :HARDWARE SWITCH REGISTER
:;HARDWARE DISPLAY REGISTER

:*GENERAL PURPOSE REGISTER DEFINITIONS

RO=
R1=
R2=
R3=
R4=
RS=
R6=

R7=
SP=

P(=

000000
000040
000100
000140
000200
000240
000300
000340
100000

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

ERROR CALL
SCOPE CALL

X0
8
X2
%3
X4
x5
16

:;GENERAL REGISTER
; ;GENERAL REGISTER

: ;PROGRAM COUNTER

1 ¥4
X6

; ;GENERAL REGISTER
;s GENERAL
:;GENERAL
;s GENERAL
: ,GENERAL

:;GENERAL REGISTER
;:STACK POINTER

:*PRIORITY LEVEL DEFINITIONS
PRO=
0
::PRIORITY
::PRIORITY
40
PR1=
PRZ=
100
::PRIORITY
PR3=
140
::PRIORITY
::PRIORITY
200
PRé&=
PRS=
240
::PRIORITY
PR6=
300
;sPRIORITY

PR7=

340

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

O
1
¢
3
&
S
6

::PRIORITY LEVEL 7

;o 'SWITCH REGISTER' SWITCH DEFINITIONS
100000
SW15=
40000
SWwis=
20000
swi3=
10000
Swi2=
4000
SWwil=
swi0=
2000
Sw09=
1000
400
Sw08=
200
sSwo7=
100
SW06=
&0
SW05=
20
Swos=
10
Sw03&
Sw02=

CIRJHD.P
584
585
586
587
588
589
590
591

28-MAR-79 09:16
000002
000001

.EQulv
.EQUlv

.EQUlv

.EQulv
.EQulv
.EOQUlvV
.EQulv

000004
000010
000014
000014
000014
000020
N00024
0 J030

635
636

000060
000064

634

637

638

000034

000240

15:07

PAGE

2
1
SW09,Sw9
SwW08,Sw8
SW07,Sw7
SW06,Sw6
SW05,SWS
SW04,SW4

SW03,Sw3
Sw02,Sw?
Sw01,sw1
Sw00,Sw0

;*DATA BIT DEFINITIONS (BIT00 TO BIT15)
81T15=
100000
B1T14= 40000
81713=
20000
81T12=
10000
B8IT11= 4000
81T10=
2000
B1709=
1000
81708= 400
B1707= 200
B1T06=
100
B1105= 40
B81704=
20
1703=
10
B1102=
&
BIT01= 2
81700= 1
.EQulv BI1709,B179
.EQulv B1708,B118

100000
040000
020000
010000
004000
002000
001000
000400
000200
00010G
0000¢0
000020
000010
000004
000002
000001

627
628
629
630
631
632
633

24-MAY-79

BASIC DEFINITIONS

.EQUIV
.EQUIV
.EQUIv
.EQulv

6264

625
626

30A(1052)
SWwo1=
swo0=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
LEQUIV

592
593
594
ggg

597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
6%3

MACY11

B1707,B117

B1106,.8176

BIT05,BITS

BI1T704,B114

BI103,B173
BI1702,B1IT2
B1T701,BIM
81700,8110

s*BASIC "'CPU'" TRAP VECTOR ADDRESSES
ERRVE(C= &
;. TIME OUT AND OTHER ERRORS

)

RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14
10TVEC= 20
PWRVE(C= 26
EMTVEC= 30

:sRESERVED AND JLLEGAL INSTRUCTIONS
ST BIT
:: TRACE TRAP
; ;BREAKPOINT TRAP (BPT)
;. INPUT/QUTPUT TRAP (10T) ¢+SCOPE®e
;s POWER FAIL
:;EMULATOR TRAP (EMT) e««ERRORee

60
664

;. 11y XEYBOARD VECTOR
;. 7YY PRINTER VECTOR
:;PROGRAM INTERRUPT REQUEST VECTOR

TRAPVE (=34
TKVEC=
TPVEC=

PIRQVE(=240

;3 'TRAP'' TRAP

SEQ 0012

CIRJHDO ,RPO4/S/6 DSKLS CTRLRZ

CIRJIHDO,RPOL/S/6 DSKLS CTRLR2
CIRIHD P
28-MAR-79 09:16
639
640
641
642
643
645

647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663

30A(1052)
24-MAY=-79
TRAP CATCHER
.SBTTL

000000

644

646

MACYYY

000174
000176

000174
000000
000000

DISPREG:
SWREG:
JSBTTL

TRAP CATCHER

=174

.WORD
.WORD

ACT11

0
0

.- SOF TWARE DISPLAY REGISTER
" 1SOF TWARE SWITCH REGISTER

HOOKS

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

000046

000052

"HOGKS REQUIRED BY ACT11

000200
000046
045000
0000%2
020000
000200

SAVE

‘E§2‘°

:1)SET LOC.46 TO ADDRESS OF

'WORD

TZ8SVPC

20000

SBTTL

STARTING ADDRESSES

.=200
mp

665

000204

000137

051550

667
668
669
670

000210

000137

017350

$5VPC=.
.-46

RA:

673
674
675
676
677
678

SEQ 0013

“«SEQUENCE TO CATCH 1LLEGAL pTRAPS AND INTERRUPTS
0 CONTAINS 0 10 CATCH INPROPERLY LOADED VECTORS
: +LOCATION

017360

671
672

PAGE 14

000200
000137

666

SeALL UNUSED LOCATIONS FROM & - 776 CONTAIN A **.+2,HALT"

000200

664

15:07

SENDAD IN .SEOP

::2)5ET LOC.52 TO 20000
"

"RESTORE PC

S¥BEGIN

-NORMAL START

ADDMOD: JMP

SWBASECH

SMODIFY DEVICE PARAMETERS

JMP

AWBEGIN2

SELECT DRIVE START

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

;*STARTING ADDRESS 204 WILL LOAD NON-DEFAULT PARAMETERS
;*AND AUTO RESTART AT 200 AFTER LOADING PARAMETERS.
;*STARTING ADDRESS 21C WiLL TEST ONLY ONE SPECIFIED DRIVE

CIRIHDO,RPOL/5/6 DSKLS CTRLR?
CIRJMD. P
28-MAR-79 09:16

30A(1052)

24=-MAY-79

MEMORY MANAGEMENT

15:07

PAGE

DEFINITIONS

CSBTTL

MEMORY MANAGEMENY DEFINITIONS

;*KT11

VECTOR ADDRESS

MMVEC=

250

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

177572
177574
177576
172516

RPN
NN

;*KERNEL ''I'" PAGE DESCRIPTOR REGISTERS
NN
N N N NN

700
701
702
703
704
705

000250

679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699

MACYT11

K1PDRO=
KIPDR1=
KIPDR2=

KIPDR3=
KIPDR&=
KIPDRS=
KIPDR6=
KIPDR7=

172300
172302
1723064

172306
172310
172312
172314
172316

;*KERNEL ‘'1'"" PAGE ADDRESS REGISTERS
KIPARO=
KIPAR1=
KIPAR2=
K1PAR3=
KIPAR4=
KIPARS=
KIPARG6=
K1PAR7=

001110

172340
172342
172344
172346
172350
172352
172354
172356

SEQ 0014

MACY11

30A(1052)
24=MAY-79
COMMON TAGS

.SBTTL
SRR

15:07

2
PAGE 16

SEQ 0015

COMMON TAGS

RtRRRRRRRRROORORRORRRRRRORRROORRORRRRRARAROROERREOEROROEORERRORORSY

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
. *USED IN THE PROGRAM,

001157
001160
001162
001164
001166
001170
001172
001174

002
012
000
000000

077

015

$REGO:
$REG!:
$REG?:
$REG3:
SREGS:
$REGS:
$TMPO:
$STMP1:
$STMP?:

$TMPY:
$TMPS4

000377

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

$TMPS:
$TIMES: 0
SESCAPE: 0
$BELL:
LASCIZ
$QUES:
LASCI1
$CRLF:
LASCII

Jolelololalele] )
[=lolololelelelololel

.WORD
.WORD

.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
$GDDAT: .WORD
$BDDAT: .WORD
.WORD
.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
177562
$TKB:
$TPS:
177564
177566
$1PB:
$NULL:
.BYTE
$FILLS: .BYTE
SFILLC: .BYTE
$TPFLG: .BYTE
$REGAD: .WORD

177560
177562
177564
177566
000

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

.WORD
.BYTE
.BYTE
.WORD

DSWR
DDISP

;sSTART OF COMMON TAGS
;s CONTAINS PASS COUNT
::CONTAINS THE TEST NUMBER
;:;CONTAINS ERROR FLAG
;s CONTAINS SUBTEST ITERATION COUNT
;sCONTAINS 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
;s CONTAINS 'BAD' DATA
; sRESERVED=--NOT 10 BE USED
:;AUTOMATIC MODE INDICATOR
: INTERRUPT MODE INDICATOR
::ADDRESS OF
;;ADDRESS OF

SWITCH REGISTER
DISPLAY REGISTER
.. 1TY KBD STATUS

;:T1Y KBD BUFFER
::TTY

001154
001155
001156

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570

.=1100

OO—MNO

001140
001142
001144
001146
001150
001152

SCMTAG:
$PASS:
$STSTNM:
SERFLG:
$ICNT:
$LPADR:
SLPERR:
$SERTTL:
$ITEMB:
SERMAX:
$ERRP(:
$GDADR:
$BDADR:

QOO0OO0ODOOOOO0OO

nNOOCSNNOoOWVENOO

WNNNINININ)
= b b s e O

001100

<207><377><377>
/?/
<15>

PRINTER

STATUS REG.

;:TTY PRINTER BUFFER REG.

ADDRESS

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

;s INSERT FILL CHARS. AFTER A ''LINE FEED"
s 'TERMINAL AVAJLABLE'' FLAG (BIT<07>=0=YES)
:;CONTAINS THE ADDRESS FROM
(SREGO) WAS OBTAINED
;sWHICH
;s CONTAINS ((SREGAD)+0)
;s CONTAINS ((SREGAD)+?2)
;;CONTAINS ((SREGAD)+4)
;s CONTAINS ((SREGAD)+6)
; ; CONTAINS ((SREGAD)+10)
:;CONTAINS ((SREGAD)+1?2)
;sUSER DEFINED
;sUSER DEFINED
;USER DEFINED
;sUSER DEFINED
;sUSER DEFINED
;USER DEF INED
s :MAX, NUMBER OF JTERAT]IONS
;sESCAPE ON ERROR ADDRESS
;:CODE FOR BELL
. QUESTION MARK
;s CARRIAGE RETURN

[ea
X en]

CZRJIHDO,RPO4/5/6 DSKLS CTRLR2
CIRJIHD P
28-MAR-79 09:16

772
773

001224

000012

MACY11

30A(1052)

24-MAY-79

COMMON TAGS

SLF:

ASCIZ

15:07

2
PAGE 1/
;s LINE

SEQ 0016
FEED

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

CIRIHDO,RPO4/S5/6 DSKLS CTRLRZ
CIRJHD.PIY
28-MAR-79 09:16

—

PAGE 18

SEQ 0017

;*THIS TABLE CONTAINS THE

INFORMATION FOR EACH ERROR THAT

CAN OCCUR.

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;*NOTEY:
1f SITEMB 1S O THE ONLY PERTINENT DATA IS (SERRP(C).

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

»®

:*NOTE2:

10
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:

001226

s 1TEMT

:WRONG DATA IN READING OR WRITING HARDWARE REGISTER

EM1
DH1

;PC

;REG. ADDR.
:GOOD DATA

;RECEIVED DATA

;SERRPC,$TSTNM, REGADR,$GDDAT ,$BDDAT

—

N —
N~

002136
005451

001226
001230

;;POINTS
;;POINTS
;;POINTS
;;POINTS

EM
DH
D1
OFf

001236

002221

001240

010463

:0,0,0,0,0

SITEM

EM2

;ERROR ON

DH33

JPC

;2C OF

DATA COMMAND

JSR

;TEST NO
:WORD NO.

;GO0OD DATA

AN LN

012350
012666

-~y —t

001242
001244

;CONTENTS OF RHCSI
:CONTENTS OF RHDS!
;CONTENTS OF RHER1
;SERRPC,PCJSR,$TSTNM,ERWORD ,$GCDAT,(S1,DST,ERY
:0,0,0,1,0,0,0,0

[

15:07

ERROR POINTER TABLE

OOV®W~NO NIl

QD Qo 0o 0o 0o O 0o Co Op GO

30A(1052)
24-MAY-79
ERROR POINTER TABLE
.SBTTL

774
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
805
806

MACY11

001246

002221

001250

010246

;1TEM3

Eme

;ERROR ON

DH3?

;PC

JSR

sTEST NO

;WORD NO.

;600D DATA

DATA (OMMAND

CIRJHDO,RPOL/S/6 DSKLS CTRLRZ
CZRJINHD P
28-MAR-79 09:16

MACY11

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

15:07

PAGE

SEQ 0018

:BAD DATA

; CONTENTS OF RH(SI
; CONTENTS OF RHDSI
;CONTENTS OF RHER1
01232¢4
012655

001256

002221

001260

010050

c1TEMG

D132
DFf 32

,ERY
NM,
,$BDDAT,(S1,DS1
R,$TST
ERWORD ,$GDDAT
:SERRPC,PCJS
;0,0,0,1,0,0,0,0,0,

EM2

;ERROR ON

DH31

DATA COMMAND

;PC

:TEST

;v JRD NO.
;GO0OD DATA
;BAD DATA

001262
001264

:CONTENTS OF RHCSI
;CONTENTS OF RHDSI
;CONTENTS OF RHER]
,ERI
STNM,
,$GDDAT ,$BDDAT,(S1,DS1
PC,$T
;SERRERWORD

302

:00011 lololololo'

645

001266
001270
001272
001274

000000
000000
012302
012645

001276

002250

001300

010246

;1TEMS

S$ERRPC,$TSTNM,ERWORD ,$GDDAT,$BDDAT,CS1,DS1,ERY
:0'0'1 00001000500
JITEMG

;ERROR ON WRITE HEADER AND CATA
;PC
;PC

JSR

;TEST NO

;WORD NO.

;600D DATA
;BAD DATA

;CONTENTS OF RMCSI
;CONTENTS OF RNDS!
;CONTENTS OF RHERI
001302
001304

001306
001310

002250
005567

J1TEMT7

D132
DF 32

NM
(S1,DS1,ERY
R,$TST
ERWORD ,$GDDAT,$BDDAT,
;SERRPC,PCJS
:0,0,0,1,0,0,0.0.0.

EM6

:ERROR ON WRITE HEADER AND DATA

DHZ

;PC

;TEST NO

;WORD NO.

CIRJHDO,RPO4/S5/6 DSKLS CTRLR?
CZRJNHD P11
28-MAR-79 09:16

921
922
923
924
925
926
927
928
929
$30
931
932

933
934
935
936
937
938
939
940
941

b
—

Fol
oV ]

PAGE 2V

Sea 0019

001316
001320
001322
001324

000000
000000
012012
012527

001326
001330

002307
005701

;1TEMI0

ESERRPC.$YSTNH.ERUORD,$GDDAT.$BDDAT

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

;1TEMYY

;g?N]ROLLER OR

;TEST

DRIVE

STATUS

;FAILING REG. ADDR
;CONTENTS OF RH(CS!

012026
012534

001336

002307

001340

005451

001342
001344

001346
001350
001352
0013564

000000
000000
011764
012516

001356
001360

002342
006056

J1TEMY?

;WRONG DATA

FROM

SILO

:PC

;REG.ADDR
;GO0D DATA
;RECEIVED DATA

;SERRP(C ,REGADR,SGDDAT
,$BDDAT

001332
001334

;CONTENTS OF RH(S?
;CONTENTS OF RHDS!
;CONTENTS OF RHER1
;SERRPC,$TSTNM, $BDADR,(S1,(S2,DS1T ,ER]
:0.0,0,0,0.0

:0,0.0.0

;TTEMIS
:SERRPC,TSTNM, REGADR,$GDPDAT ,$BDDAT

;1TEM1G

EM14
DH14

:gEGlSTER FAILED
FAILING REG.

ADDR

;CONTENTS OF FAILING REG.
; CONTENTS OF RH(S!
;CONTENTS OF RH(SZ
001362
001364

;CONTENTS OF RHDS!
: CONTENTS OF RHER!
S1
,ER!
; $SERRPC ,$BDADR,$BDDAT,CS1,(52,D
:0,0,0,0,0,0.0

[N
)

15:07

;000111():0'

—

916
97
98
919
920

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

;SERRPC,$TSTNM,
ERWORD ,$GDDAT ,$BDDAT

Ny —
NN

913
914
915

MACYT1

:GOOD DATA
;BAD DATA

(=
X o]

909
910
911
912

886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908

o0
oo

CIRJIHDO,RPO4/5/6 DSKLS CTRLRZ
CIRJHD P
28-MAR-79 09:16

CIRIHDO,RPO4/5/6 DSKLS CTRLR?
CIRJHD P
28-MAR-79 09:16

J1TEMYS

EM1IS

001370

006255

DH15

001372
001374

012070
012553

D115
DF15

001376
001400

002432
006305

S1TEMY7

—

002453
006443

001406
001410

EMI6
DH16

;1TEMIG

roro
A -

001402
001404

(=Y

—

002362

EM17
DH17

15:07

:SPECIFIED REG. NON EXISTANT SO ABORT

;PROGRAM
;PC

;ADDR. OF REG

;SERRPC,TEMPI
;0,0

:WAIT

;PC
sWAT

LOOP fAILED
P(

;817 WANTED
;REG. ADR.
;REG. CONT.
$BDDAT
;SERRPC,$TMP3,$TMP1,$TMPO,
:0,0,0,0

;WRITE
;PC

;TEST

CHECK

FAILING

;1TEM20

—

EM20
DH20

D120
0F20

nos

m—.

nono

—

001422
001424

002477
006620

[o
Y
wWo

001416
001420

[aV]
)

;CONTENTS OF RHCSI

001412
001414

;CONTENTS OF RH(CS2
;SERRPC,$TSTNM,$BA,DB,W(,(S1,(S¢

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

;REGISTER
;P
;TST NO

;CONTENTS
;CONTENTS
;CONTENTS
; CONTENTS
;CONTENTS

FAILING

OF
OF
OF
OF
OF

RHER]
RHERZ?
RMER3
RHAS
RHDS!

;SERRPC,TSTNM ER1,ERZ2,ER3,AS,DSH
:0,0,0,0,0,0,0

;1TEM21
001426
001430

002520
006774

EM21
DH21

;$N1ERRUPT FAILING
:PC
;TEST

—

ronno

012156
012601

;CONTENTS OF RNHCS!
:CONTENTS OF RHAS

001432
001434

——

SEQ 0020

;CONTENTS OF RHBA
;CONTENTS OF RHDB
s CONTENTS OF RHWC

997

30A(1052)
24-MAY=-79
ERROR POINTER TABLE

001366

[ole]

942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996

MACY11

2
PAGE 21

;CONTENTS OF RHDSI
:SERRPC,TSTNM,(ST,AS,DS?

:0,0,0,0,9

(X a]

——

CIRIHDO,RPO4/S/6 DSKLS CTRLR?
28-MAR-79 09:16
CZRJHD P
998
999

VNI NAN —

001436

001440

002542

1021

30A(1052)
24=-MAY-79
ERROR POINTER TABLE

;1TEM2?

EMm22

DH22

007110

15:07

PAGE 22

SEQ 0021

:MISSMATCH IN DRIVE PRESENT

:LOOKING AT RMAS AND RHCSZ2-NED(BIT#12)

;DRIVE PRESENT DO NOT AGREE
:NOTE: ON DUAL PORT SYSTEM
:DRIVE ON OTHER PORT WILL NOT GIVE NED
;HENCE THERE WILL BE A MISSMAT(CH
:177777-MEANS NOT PRESENT

;PC
;TEST NO
;RHAS UNIT

;RHCS2 UNIT

001442
001444

012172
012606

001446

000000

~NO

P
T Qe g Qv

el
il
S
i
e
il
D
D
i
—

OOOO0OO0ODOODO

1000
1001
1002
1003
1004
1005
1006
1007

MACY11

D122
DF22

;1TEM23

,
SBDDAT
"SERRPC,TSTNMS,$GDDAT
20,0,0.0

sMISSMATCH IN DRIVE PRESENT

;LOOKING AT RMAS AND RHCSZ2-NED(BIT#12)

;DRIVE PRESENT DO NOT AGREE
:177777-MEANS NOT

001450

PRESENT

:PC

000000

;TEST NO

;RHAS UNIT

;RHCS2 UNIT

D122

001452
001454

DFf 22

001456

003143

001460

007204

;1TEM 24

EM24

DH2&

*SERRPC,TSTNMS,$GDDAT,$BDDAT
20,0,0.0

;LO0K AHEAD REGISTER AT THE
;BEGINNING OF A SECTOR IS IN
:ERROR
:PC
;RHDST

:BAD RHLA

D124
DF24

001462
001464

JITEM 25

001466

001470

007204

;GO0D RHLA
;SECTOR NO
;SECTOR CLOCK
:SERRPC,DST,$BDDAT,$TMP1,8TMP2
,$TMPY
;:0,0,0,0,0

EM25

;LOOK AHEAD REGISTER IS
: IN ERROR

DH24

:PC
;RHDST

;BAD RHLA

;GOOD RMLA

JSECTOR NO

CIRIHDO ,RPOL/S/6 DSKLS CTRLRZ
CIRJHD P
28-MAR-79 09:16
1054
1055

001472
001474

012204
012612

001476

002307

001500

007362

MACY1Y

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

s 1TEM26

15:07

PAGE 23

SEQ 0022

D124
DF24

;SECTOR CLOCK
;SERRPC,DST,$BDDAT,$TMP1 $TMP2,$TMP3
:0,0,0.0.0

€M1

;CONTROLLER OR DRIVE STATUS

DH26

;PC

;PC OF JSR

sFAILING REGISTER ADDRESS

:CONTENTS
;CONTENTS
:CONTENTS
:CONTENTS
001502
001504

012224
012621

001506

002136

001510

007560

S 1TEM27

OF
OF
OF
OF

RHCSI
RH(SZ
RHDSI
RHER!

D126
DF26

;SERRPC,PCJSR,$BDADR,(S1,(S2,DS1,ER!

Emi

;ERROR IN READING OR WRITING HARDWARE REGISTER

DH27

:PC

:0,0,0.0,0.0,

;PC OF
;TEST

JSR

NUMBER

:1TEM30

~
~

—
-

012631

no N

—

003276
007716

001516
001520

012246

Hro

;FAILING REGISTER
;600D DATA
;RECEIVED DATA

£mM30
DH30

DAT
,$BDDAT
:SERRPC,PCJSR,TSTNM,REGADR,$GD

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

:gURRENT CYLINDER DOES NOT REFLECT DESIRED CYLINDER REG.
:PC
.PC

JSR

eloleololelalele]

OB ~NO N

;REGISTER ADDRESS
. GO00 DATA
:BAD DATA
001522
001524

012264

001526

003420

001530

010662

012637

;1TEM3T

0130
DF30

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

£Em3

;ECC GENERATED IS INCORRE(CT

DH34

;PC

;EVERY WORD IN THIS SECTOR 1S GIVEN IN ''DATA USED"
:TEST NUMBER
;6000 ECCN
;600D EC2C

JWRITTEN BCCY

30AC1052)
24=-MAY-79
ERROR POINTER TABLE

888NN NN N N N NN NP NI NI NI NI NI NI AI NI ) =t =D b o ol id o

)
sl

VNN = O OO0~

D D i s il
D A el ed Al
D D il gl
D il il el
sl
il
D
P

W=
O OB NO VNS WN = OOV

i el il
el D i
D el ) wnd
D i e
)
)
nd
mt D
d ol
S i il
)
i ol el el
)
it
el
el
) e
el

15:07

2
PAGE 24

SEQ 0023

SWRITTEN ECCZ
;DATA USED
001532

012372

D734

,WECC2,DISK
,WECCT,GECC2
;SERRPC,TSTNM,GECC

001534

012676

DF 34

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

001536

003543

EmM32

;ON READ COMMAND AFTER DATA AND ECC HAVE BEEN READ

;1TEM3?

;ECC REGISTER OR RHER1 IS IN ERROR
;ONLY LOWER 11 BITS OF PATTERN REGISTER
;CAN BE READ

; THIS SHUOLD MATCH LOWER

001540

DH35

011035

s PC
:TEST

BITS OF

NUMBER

;600D ECCH
;GO0D ECC2

;PATTERN REGISTER
:RHER1

001542

012412

D135

:SERRPC,TSTNM,GECCY,GECC2,EC2,ERY

001544

012705

DF 35

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

001546
001550

004032
011232

EM33
DH36

;PC

;1TEM33

:HIGH COUNT BIT NOT HIGH AFTER 38859 CLOCKS
:PC OF JUSR

;:TEST NUMBER
;RHMR

;POSITION REG.

;PATTERN REGISTER

[o XoXo Xo Yo Xeo SV IV TV IV TV TV TV LV LIV IV 2N
WNEBE W= OO0V
NO NS WNN—-0O0

)

012434

D136

:$ERRPC,PCJSR,TSTNM
MR ,ECT,EC?

001554

012715

DF 36

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

EM34

;IZERO DETECT BI7 NOT HIGH WHEN THE

001556

004104

J1TEM3SG

001560

011232

DH36

;32 BIT ECC REGISTER HAS ITS 21 BITS
;0fF ZEROS
;ERROR PRINTOUT WILL CONTINUE TILL
:gERO DETECT BIT IS HIGH
;PC OF

JSR

; TEST NUMBER

il el

—

001552

;RHMR
;POSITION REG.
sPATTERN REGISTER

el oD
D e
—r

_‘—l—.-—.—.-—‘—‘—.—.—.—.—‘—.—.—.-‘—l

1148

ECCH

001562

012434

D136

;SERRPC,PCJSR,
TSTNM MR, EC1,EC?

[en
¥ an)

MACY11

b b ——

D sl mad ——l
D e e ——

NN = o

CIZRJIHDO,RPO4/S/6 DSKLS CTRLR?
28-MAR-79 09:16
CIRJHD P

SEQ 0024

EM35

;POSITION REGISTER OR 11 BITS OF

D i

OOVO OOV OV OEOPCOOOCEODCO0D00
N NN~N~NNNNNNOOCO
NO VNS WN 2OV
VNV
NN =0V
NO NS NN -—-O 00~

i
el

D i

A el

i
D

Al el
il il

D o il

i
D

006177

2
PAGE 2>

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

;1TEM3S

;PATTERN REGISTER INCORRECT

;LOWER 11 BITS OF PATTERN REGISTER
;SHOULD MATCH LOWER 11 BITS OF GOOD ECC!
;DATA ENVELOPE AND N-CODE ZEROS ARE IN DECIMAL
00157C

DH37

011370

il i
il

el
ol
D

001566

DF 36

;PC

;TEST NUMBER
;ECC POSITION
;600D POSITION
;600D ECC
;GOOD ECC2
;ECC PATTERN
:DATA ENVELOPE
:N-CODE

il el
D

D e

)
D
)

ZEROS

001572

012452

D137

;SERRPC,TSTNM,EC1,POSITI,GECCT,GECC2,EC2,DATENV,ZCODE

001574

012723

DF37

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

001576

004476

EM36

001600

011035

:ON A READ COMMAND WITH NON CORRECTABLE
:ERROR INSERTED DCK AND ECH SHOULD BE SET

;1TEM36

DH35

;PC
; TEST

NUMBER

; GOOD ECCH
;600D ECC2

OOV

(=] DOV

012715

ERROR POINTER TABLE

15:07

sl ol
ol
i Sl
)
)

i o el wd oD it

) o

—

001564

24=-MAY-79

D ol el md

1166

30A(1052)

;PATTERN REGISTER

;POSITION REGISTER
; RHER]

b
o
=
)
s
D
)
)
D el
il
)
)
—r

PN
rDrs ORI NN
PONY =t it =t h e e =2 b =t 2 O o
—_- OOV
NO VS WN—=0O0 [+ ]

1207

001602

012412

D135

ER]
;SERRPC,7TSTNM,GECCT,GECC2,EC2,EC

001604

012705

DF 35

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

EmM37

;ERROR ON DATA (OMMAND
;WITH A16 A17 USED

DH3!

s PC
;TEST NO

001606

004664

001610

010050

J1TEM3?7

;WORD NO.
;GO0D DATA
;BAD DATA

CZRJHDO,RPO4/5/6 DSKLS CTRLR?
28-MAR-79 09:16

CIRJIHD.P "

MACY11

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

15:07

2
PAGE 26

SEQ 0025

:CONTENTS OF RHCSI
; CONTENTS OF RHDS!
; CONTENTS OF RHER1
;SERRPC,STSTNM
ERWORD ,$GDDAT,$BDDAT,(S1,0S1 ,ER1

000000
000000
012302
012645

001626

004752

001630

011607

—t

001632
001634

001616
001620
001622
001624

476

734

s1TEMGO

OOoOOO

.0.0,1,0,0,0,0,0,

[aF 1, ]

1246
1247
1248
1249
1250
1251
1252

28-MAR-79 09:16

oD
i
e
D
)
o
i
e
il e
oD
D
e
e
it
) e
e
e
ieh
e
—
—t

NN NN
NN NN NI NN NI A PO NI PO PN N nJ
H e Pol Pl O RV IV IV TVIPIV IV TV IV IV 1,07, U1 V1 U7 V1, V1, ¥} nJ
(V.0
o (V) = OO0
NO NS NN =—=O VOO NI N [a%4

CIRJMHD. P11

MACY11

3
F31

s TTEMG

;‘ERRPC,STSTNM,ERUORD,‘GDDAT,SBDDAT,CS‘,DS‘,ER]

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

EMG0

:THERE WAS A READ/WRITE HEADER £ DATA

DH4O

:PC

D140
DF&O

:ERROR DURING °'DTE* TEST SETUP - THE
;TEST 1S ABORTED AT THAT POINT
;TEST NO
:FAILING REGISTER ADDRESS

;CONTENTS
;CONTENTS
;CONTENTS
;CONTENTS

OF
OF
OF
OF

RHCSI
RH(CS2
RHDSI
RHER1

:SERRPC,$TSTNM, $BDADR,CS1,(S2,DSY,ERT
:0,0,0,0,0,0

[l
]

CIZRJHDO,RPO4/S5/6 DSKLS CTRLR2

NI
PO
NI NN N [a¥]
o OO O NN NN [V

w N=OO0O~NO NS w

CIRJHDO,RPO4/5/6 DSKLS CTRLR?
CZRIND. PN
28-MAR-79 06G:16

001636
001640
001642
0016446

012744
014410
014672
014730

MACY11

30A(1052)

24-MAY-79

ERROR POINTER TABLE

;1TEM 42

EMe?
DH&?2
D142
DF&2

15:07

2
PAGE 27

SEQ 0026

;ERROR PC,TEST NUMBER,

J1TEM 43
EM4L3
DH4&?2
DT&2
DF&2

001646

001650
001652
001654

JITEM 44

(V. Lt
Y =] OV

~NO VNS

= O

NN NN
RN NN NN
O® Oo 0o O NNNNNNNNYNN

269

1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302

1303

1304
1305
1306
1307
1308

EMab
DH44
D144
OF 44

001656
001660
001662
001664

001666
001670
001672
001674

JTTEM 65

. ERROR PC,TEST

NUMBER,

ACTUAL.

;ERROR PC,TEST

NUMBER,

ACTUAL.

;ERROR PC,TEST NUMBER,

CORRECT,

ACTUAL.

NUMBER,

;ERROR PC,TEST NUMBER, REGISTER ADDRESS CCRRECT,

ACTUAL.

EM4LS
DH&&
D164
DF &4

1TEM 46

001676
00.710
001702
001704

EMLb
DH44
DT44
DF 44

JITEM 47
EML7
DM&?2
D142
DF&2

001706
001710
001712
001714

;ERROR PC,TEST

;1TEM 50
EMSO

001716
001720
001722
001724

DH&4&
D144
DF &4

J1TEM 51
EMS1

001726
001730
001732
001734
4

DH4&
D144
DF &4

c1TEM 52

;ERROR PC,TEST NUMBER,

CIRIHDO,RPOL/S5/6 DSKLS CTRLR2

CIRJHD . P
1309

1310
1311
1312
1313
1314

001736
001740
001742
001744

28-MAR-79 09:16

1317
1318

1319
1320
1321

1322
1323
13264

1325
1326
1327

1328

001746
001750

001752
001754

013362
014471

EMS3
DH4G

014702
014733

D146
DF &4

001756

001760
001762
001764

013422

DH54
DT54
DF 54

1333

001772

014702

D144

001770
001774

0146471

DH44

014733

DF&44

1336
1337
1338
1339

001776
002000

013474
014471

EMS6
DH44

13641

002004

014733

DF4b

002002

014702

D144

002006

013511

EM57

13647

002012

014702

D144

1348

1349

002010

002014

014471

1352
1353

1354

1355

1356

DF &4

002016
002020

013540
014471

EM60
DH44

002024

014733

DF4é

002022

014702

D144

002026
002030

013627
014471

EM6T
DH&4

1362

002034

014733

DF&4

1364

;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

;1TEM 61

1359
1360

1361

;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

:1TEM 60

1357

1358

DH&4

014733

1350
1351

;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

S1TEM 57

1345

1346

;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

;1TEM 56

1343
1344

;ERROR PC, TEST NUMBER.

S1TEM 55

EMSS

1342

;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

EMS4

014603
014716
014740

013461

1340

3§
PAGE 28

;1TEM 54

001766

1334
1335

EMS2
DH&G
Dl14s
DF4s

1331

1332

15:07

S1TEM S3

1329

1330

24-MAY-79

tRROR POINTER TABLE

013322
014471
014702
014733

1315

1316

MACY11 30A(1052)

002032

D14

014702

J1TEM 62

;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

SEQ 0027

1411

1412
1413
1414

1415
1416
1417
1418

30AC1052)

24=-MAY-79

ERROR POINTER TABLE

15:0

PAGE 29

EM62

NAD =~y

Y
S

P ol ol SNV ]

O0O0O0O

67
47
70
73

MACYT1

DH&LG
D146
DF&4

;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRE(T, ACTUAL.

;1TEM 63

EM63

WA
—

Pl
o
W
NN
WO
W

b
el
i

002046
002050
002052
002054

—d

1369
1370
13N
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1363
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410

002036
002040
002042
002044

OOOO

1365
1366
1367
1368

e }

CIRJHDO,RPOL/S5/6 DSKLS CTRLRZ
CZRJHD P
28-MAR-79 09:16

DH&LG
D144
DF&4

;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

s1TEM 64
002056
002060
002062
002064

014032
014471
014702
014733

(3.1
DH&4
D144
DF&&

;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

;1TEM 65

002066
002070
002072
002074

EM6S

014066
01447
014702

DH&G
D144

014733

DF &4

;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

J1TEM 66

002076
002100
002102
002104

014150
014471
014702
014733

EM66
DH&4
D144
DF 44

: ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

;1TEM 67

EM67
DH54
D154

014222
014603
014716
014740

DF 54

;ERROR PC,

TEST

NUMBER,

;ERROR PC,

TEST

NUMBER.

J1TEM 70

EM70
DHS4
D154
DF 54

002116
002120
002122
002124

;1TEM 71
002126
002130
002132
002134

EM71

DH44
D144
N

;ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

SEQ 0028

16419
1420
1421
1422
1423
1424
1425
1426
1627
1428
1429

1430

1431
1432
1433
1434
1435
16436
1437
1438

1439
1440

1441
1442
1443
1444
1445
1446
1647
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1499
1460
1461
1462

1463

1464
1465
1466
1467
1468

1469
1470
147
16472
1473
16474

MACYT1

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

15:07

3
PAGE 30

SEQ 0029

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

"ERROR AND MESSAGE TABLE CONDIMENTS
[

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

002136
002144
002152
002160
002166
002174
002202
002210
002216
002221
002226
002234
002242
002250
002256
002264
002272
002300

002306
002307
002314
002322
002330
002336

002342
002350
002356
002362
002370
002376
002404
002412
002420
002426

002432
002440
002446
002453
002460
002466
002474
002477
002504
002512
002520
002526

051127
040504
020116
047111
053440
043516
053504
042522
051105

047117
040524
042522
020107
0446522

044040

051101
044507
000

020107
044440
042101
051117
046524
051101
020105
052123

EMI:

LASCIZ

/WRONG DATA

IN READING OR WRITING HARDWARE REGISTER/

DATA COMMAND/

105
047640
052101
046515
051105

051122
020116
020101
047101
047522

051117
042040
047503
000104
020122
044522
040505
047101
04052¢

EM2:

LASCIZ

/ERROR ON

EM6:

LASCIZ

/ERROR ON WRITE HEADER AND DATA/

103

047117
042514
042040
051440
000123
044507
043040
000104
020116
042524
043505
026122
051107
047502
000056
052111
020120
042105
044522
062510
044501
000
043505
020122
067111
062524
020124

051124
020122
044522
040524

EMIT:

LASCIZ

/CONTROLLER OR DRIVE

052123
044501

EMI4:

LASCIZ

/REGISTER

056105
052116
051511
050040
046501
052122

EM1S:

LASCIZ

/NON EXISTENT REGISTER, PROGRAM ABORTED./

046040
040506
000
042526
045503
0464514

EM16:

LASCIZ

/WALT

EM17:

LASCIZ

/WRITE

EM20:

LASCIZ

/REGISTER

EM21:

LASCIZ

/INTERRUPT

047117
042524
042504
020104
000
046117
051117
042526
052524
042522
051105
042514
047516
05151
051040
062524
047522
360440
042105
040527
047517

053440
044040
020122
040504

STATUS/

FAILED/

LOOP FAILED/

CHECK FAILING/

FAILLING/

FAILING/

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
2B-MAR-79 09:16
CIRJHD.PII

RN PORNUNURO NI PNOPON) =

b b

051503
042105
020124
012
033467
0642515
047516
020126
006504
052117
020116
050040
054523
020054
020105
064124
051117
046114
043440
012
042516
0642510
064124
044527
020105
052130
044522

041505

047517
040505
044507
040440
020105
047116
043117
047526

3
PAGE 31

SEQ 0030

/ERROR ON DRIVE PRESENT/<15><12>

LASCIHI

/THE UNIT NO'S FOUND 8Y SETTING RHAS/<15><12>

<ASCLI

/DO NOT AGREE WITH THE UNIT NO. FOUND FROM/<15><12>

026462
020047
030643

ASCL]

/RHCS2="NED'

033467
047101
052440
047506

LASCII

/177777-MEANS NO UNIT FOUND/<15><12>

LASCI1

/NOTE: ON DUAL PORT SYSTEM, DRIVE ON OTHER PORT WILL NOT GIVE/<15><12>

LASCIZ

/°NED', HENCE

LASCIZ

/LOOK AHEAD REGISTER AT THE BEGINNING OF

047125
046517

EM24:

020122

BIT #12/<15><"2>

THERE WILL BE

AN EXTRA DRIVE/

SECTOR IS IN ERROR/

15:07

LASCII

EM22:

051106

047111
047522
0642040
050040
052116
020105
0647040
047506
054502
044524
040510

OOOOO0OOO

002534
002542
002550
002556
002564
002572
002600
002606
002614
002622
002630
002636
002637
002644
002652
002660
002666
002674
002702
002710
002712
002720
002726
002734
002737
002744
002752
002760
002766
002773
003000
003006
003014
003022
003030
003036
003044
003052
003060
003066
003071
003076
003104
003112
003120
003126
003134
003142
003143
003150
003156
003164
003172
003200
003206
003214

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

-0
=S5O —=ON—O Q) —a
(9,1,
¥
—~ OSSN
NS WS

s et b —d =

NIV IV IV IV IV APV IV IV IV IV TV LV W YV SV YV TV TV RV 2V

—l—.—-—.-‘—‘_.—.-‘—l—l—.—.—._‘—.—.—.-l-‘—.—l

b b QO
OO®NOVE
NN = OOV
NOWVNEWN—-=O0 oo

1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
16491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507

MACY11

(VLI LRV RV AV AV

CIRJHDO,RPOL/S5/6 DSKLS CTRLRZ
CZRIHD.P1Y
28-MAR-79 09:1

CIRJHD. P

28-MAR-79 (09:1

MACY11

1531
1532
1533
1534
1535
1536
1537
1538

003222
003230
003236
0032446
003252
003260
003266
003274

051511
051105
047514
042510
043505
020122
020116
000122

044440
047522
0465517
042101
051511
051511
051105

020116
000122
040440
051040
042526
044440
047522

1540
1561
15642
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552

003304
00331
003320
003326
003334
003342
003350
003356
003364
003372
003400
003406
003414

020124
0642116
042517
020126
020110
042522
044514
051040
052123
043101
020101
040440
044516

051122

054503
051105
020123
040515
042506
020106
042116
043505
051105
042524
042523
062116
000124

0647105

1539

1553

003276

003420

052503

044514
042040
047516
041526
044523
056503
051105
044111
005015
020122
045505
064440

041505

020103

042507

053105

051105

020131

15564
1555
1556
1557

003426
003434
003442
003450

1559
1560
561
1562
1563
1564
1565
1564

003462 047527 042122 047440
003470 020116 044126
051511
003476 051440 041505 047524
003506 020122 051511
052040
003512
040510 020124
044507
003520 042526 020116
047111
003526 021040 040504
040524
003536 052640 _ 042523 _ 021104

1568

003543

1558

1567

VX
o (V] N—=OO0®NOWVNEwWN—=0O

o -]

—

(W YV U SV IV S

LV LV LV LV LU LV LV AV ]

A OOODOBOD
N ~NYNNNNNNNN

1569

1586

003454

042516
020104
061516
052103

003542

500

003550
003556
003566
003572
003600
003606
003616
003622
003630
003636
003646
003652
003660
003666
003674
003675
003702

042101
040515
063101
040504
062116
044040
042502
040505
041505
044507
020123
042510
042
051
0
|
0475

003710

117

030 4

040522
051511
051117
005015

020116

041440
042116
042524
040524
042440
053101
047105
026104
020103
052123
051117
030522
0444s0
047522

066116
062527
041040

042526
0444460
042522

042522

046517
020054
020122
040440
041503
020105
051
005
042
051
051
040
0201
0065

020131
020122
052111

30AC10592)

24-MAY-79

ERROR POINTER TABLE

15:07

3
PAGE 3¢

SEaQ 0031

EM25:

ASCIZ

/LOOK AMEAD REGISTER IS IN ERROR/

EM30:

.ASCI1

/CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER REGIHSTER/<15><12>
‘

EM31:

ASCIZ

/AFTER A SEEK AND INIT/

_ASCI1

/ECC GENERATED IS INCORRECT/<15><12>

LASCIZ

/EVERY WORD ON THIS SECTOR [S THAT GIVEN IN "'DATA USED'Y/

EM32:

)

]

LASCI1

/ON READ COMMAND, AFTE~ DATA AND ECC HAVE BEEN READ,/<15><12>

LASCI]

/ECC REGISTERS OR RHER! ARE IN ERROR/<15><12>

LASCI]

/ONLY LOWER 11 BITS OF PATTERN REG. (AN BE READ/<15><1?2>

CIRIJHDO ,RPOL/5/6 DSKLS (TRLRZ

CIRIHDO,RPO4/S5/6 DSKLS CTRLR?
. PN
CZRJIKD
28-MAR-79 09:16
020123
052101
051040
0640503
051040
012

063117
062526

OONION
=t =t bt —a Y
NS =PSSO
W

—‘N—.

0641524
042527
020061
047440
042117
006461

24-MAY-79

ERROR POINTER TABLE

15:07

3
PAGE

SEQ 0032

JASCIZ

/THIS SHOULD MATCH LOWER 1Y BITS OF GOOD ECC1/

EM33:

LASCIZ

/HIGH COUNT BIT NOT SET AFTER 38859 CLOCKS/

EM34:

JASCIZ

/ZERO DETECT BIT NOT HIGH WHEN 32 BIT ECC REG. HAS 21 ZEROS/

EM3S:

JASCI]

/POSITION REGISTER OR 11 BITS OF PATTERN REGISTER INCORRECT/<15><12>

051105
044502
020106
051105
044507
051440
020104
020110
006522

JASCIT

/LOWER 11 BITS OF PATTERN REGISTER SHOULD MATCH LOWER/<15><12>»

044502
020106
042440

JASCIT

/11 BIVS OF GOOD tCe1/<15><12>

020123
042114
046103
051105
044502
020106
042440

020116

047

30A(1052)

050040
047122
020056
062502
006504

041440
041040
052117
0460440
031440
061440
000123
042040
020124
047516
044107
020116
052111
051040
0640510
055040
000
052111
042522
051105
030461
020123
052101
051040
062524
047503
006524

VNN
O O MWW

003716
003724
003732
003740
003746
003754
003755
003762
003770
003776
004004
004012
004020
004026
004032
004040
004046
004054
004062
004070
004076
006104
004112
004120
004126
006134
004142
004150
004156
004164
004172
006177
004204
004212
004220
004226
004234
004242
004250
004256
004264
004272
004273
004300
004306
004314
004322
004330
004336
004344
004352
004360
004361
004366
004374
004402

OO0
P ¥ ARV
]

1587

1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642

MACY11

012

1643
1644
1645

1646

1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664

1665

1666
1667

1668
1669
1670

1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698

004407
004414
004422
004430
004436
004444
004452
004460
004466
004474
004476
004504
004512
004520
004526
004534
004542
004550
004556
004564
004572
004600
004604
004612
004620
004626
004634
004642
004650
004656
004664
004672
004700
004706
004714
004722
004730
004736
004744
004752
004760
004766
004774
005002
005010
005016
005024
005032
005040
005043
005050
005056
005064
005072
005100
005106

MACY11

30A(1052)

ERROR POINTER TABLE

051517
020116
052123
030061
051117
030464
051511
000104
047111
064124
040440
051523
042510
047101
0461440
020104
000122
020105
020101
053455
064040
020122
040524
051117
047111
042524

020124

064124

02012¢4
020120
020105
053640
047502
040440
052101

15:07

3
PAGE 24

SEQ 0033

LASCIZ

/DAT ENVLOP GOOD POSITION AND N-CODE ZEROS ARE

LASCI1

/ON READ COMMAND WITH NON-CORRECTABLE ERROR DCK AND ECH SHOULD BE SET/<1

LASCIZ

/1F POSITION REGISTER =10040 OR 10041

EM37:

LASCIZ

/WRITING WITH BUS ADDRESS HIGHER THAN 28K CAUSEL ERROR/

EM4O:

LASCI1

/THERE WAS A READ-WRITE HEA?FR £ DATA ERROR DURING °'DTE'/<15><12>

LASCIZ

/TESY SETUP - THE TEST WAS ABORTED AT THAT POINT/

062440
020120
050040
047511
020104
042504
051517
064440
040524
040505
046515
044527
047117
062522
0642514
051117
040440
044103
046125
051440

264-MAY=-79

EM36:

IN OCTAL/

}S GOOD/

CIRJHDO,RPO4/5/6 DSKLS (TRLRZ
CZRJIHD. P11
28-MAR-7 9 09:1

1699

1700

005114

005122

050040
000

044517

MACY11
052116

30A(1052)

24-MAY-79

ERROR POINTER TABLE

15:C7

PAGE 35

SEQ 0034

CIRJHDO,RPOL/5/6 DSKLS CTRLRZ
CIRJHD.P1Y
28-MAR-79 09:16

1701
1702
1703
1704

dfl—.—‘—‘-fl_‘—‘—.—‘—.—‘-—._.—.—.—‘—‘—‘—.—.-._.—.—.—.—.—.—‘—‘—._.—‘—.-J—‘-‘.—.d—.—‘_.—.—.-‘—‘dd
NN~ NN SN SN SN S N N SN SN SN SN SN SN
N SN SN SN SN N N SN SN
N N Ny N

P ol o o (WIIVIIVAIV VTNV LV IV TV ] S V] VY, BT U1, %1, 97, V] V] VPSS
i S R
o 1
N - VONOWVEWN
O OVBNOC VNS W
=0V
NS W —0O 0

1708

005123
005130
005136
005144
005152
005160
005166
005174
005202
005210
005211
005216
005224
005225
005232
005240
005246
005254
005262
005270
005276
005304
005312
005316
005324
005332
005340
005346
005354
005362
005370
005376
005377
005404
005412
005420
005426
005434
005442
005450

005451
005456
005464
005472
005500
005506
005514
005522
005530
005536
005544
005552
005560
005566
005567

106
042440
026440
062040
047105
020122
061440
020105
052103
012
040
103777
377
1264
047522
0446040

— et = OMN) = S NOO
— NN
S NON
—

052040
062502
020105
047522
005015
062040
020105
047514
0642522
02005«

062515
040526
062514

MACY11

30AC1052)
24-MAY-79
ERROR POINTER TABLE

15:07

PAGE

SEa 0035

JASCLI

/FATAL ERROR - SEE DOCUMENT FOR BEST COURSE OF

177607
177607

CASCIHI

/ 71<15><12><207><377><377><207><377><377><207><377><377>

050040
046501
0446040
020104
043516
05150%
0640503
047503
046114

LASCII

/THE PROGRAM HAS HALTED DURING A TEST BECAUSE CONTROLLER/<15><12>

053105
0640510

CASCLI

/OR DEVICE HAS LOST

LASCIZ

/GONE

LASCLI

/PC

TEST

REG.

600D

ACTUAL /<15><12>

LASCIZ

ADDR.

DATA

DATA/

LASCL]

/PC

TEST

WORD

600D

BAD/<15><12>

CPHALT:

ACTION/<15><12>

006516

°'READY', BECOME UNAVAILABLE,/<15><12>

052123

042101
042502

052440
046111
006454

047117
046106
047440
047116
062514
040524
044502

020103
052040
020040
020056
047517
040440
004514
020040
047516
020040
020056
040524
060504

020040

020103

020040

DH1:

OFFLINE,

CANNOT

CLEAR

STATUS BITS/

060524
DH2:

YTM

CIRJIHDO,RPOL/S5/6 DSKLS CTRLRZ
CIRJHD.PI
28-MAR-79 09:1

1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812

005574
005602
005610
005616
005624
005632

005634
005642
005650
005656
005664
005672
005700
005701
0C5706
005714
005722
005730
005736
005744
005752
005760
005766
005770
005776
006004
006012
006020
006026
006034
006042
006050
006056

020040
020124
051117
043440
020040
005015
020040
020040
020040
020040
040504
020040

006064

006072
006100
006106
006114
006122
006130
006136
006144
006152
006156
006164
006172
006200
006206
006214
006222
006230

006236
006244
006252
006255
006262

020040

MACY1Y

052040
020040
020104
047517
041040

051505
053440
020040
020104
042101

020040
047516
020040
020040
040524
04050¢

020040
020040
0647516
020040
020040
040524

020103
052040
020040
0464514
047117
041440
020040
027124
047117

020040
051505
043040
043516
027124
0647117
0461440
020040
027124

020040
047516
020040
0642101
051503
044122
020040
020061
051105
020040
042524
020040
047111
052116
047503
020040
020056
052116
047503
005015
020040
047516
020040
042101
020104
044122
020040

020040
020040
062522
020122
020061

020062
051504
044122
000
020103
052040

051503
064122
020040
000061
020040
052123
040506
020107
020056
052116
047503
020040
020056
vS52116

30AC1052)

TABLE

LASCIZ

DH11:

+ASCII

/PC

.ASCI1Z

DH14:

LASCII

/PC

<ASCIZ

020040
020040
042522
020122
042522
051503
044122
020040
020061
051105
020040
051505

24=-MAY-79

ERROR POINTER

DH15:

ASCIZ

/PC

15:07

3
PAGE

SEQ 0036

DATA

DATA/

TEST

FAILING CONT.

CONT.

CONT./7<15><12>

REG ADR RH(CS1

RH(S?

RHDS1

RHER1/

TEST

FAILING CONT,

CONT.

/<15><1?2

REG ADR BAD REG RH(S!

RHCS2

QHDS1

RHER

TEST

REG

ADR/

CIRJHDO,RPO4/S/6 DSKLS CTIRLRZ
28-MAR-79 09:16

CIRJHD.PII

= O D00 ~yO NI
WA

PIPVININ)
b b
o ol e

—

1859
1860
1861
1863
1864
1865
1866
1867
1868

006270
006276
006304
006305
006312
006320
006326
006334
006342
006350
006356
006362
006370
006376
006404
006412
006420
006426
0064346
006442
006443
006450
006456
006464
006472
006500
006506
006514
006522
006530
006532
006540
006546
006554
006562
006570
006576
006604
006612
006620
006626
006634
006642
006650
006656
006664
006672
006700
006706
006714
006722
006730
006736
006744
006752
006760

020124

30A(1052)

24-MAY-79

ERROR POINTER TABLE

15:07

3
PAGE 238

SEQ 0037

020040
060440

020103
052040
020040
020040
052111
051040
020040
005015
020040
047516
020040
020040
052116
042101
020123
047105

051501

MACY1T

DH16:

LASCII

/PC

REG/<15><12>

TEST

WAT

BIT

REG

WANTED

ADDRESS CONTENTS/

TEST

CONT.

CONT,

CONT.

(ONT./<15><12>

RHBA

RHDB

RHW(C

RHCST

RH(SZ/

TEST

CONT

CONT/<15><12>

RHER]

RHER?

RHER3

RHAS

RHDS1/

051040
020040
020040
0641520
020040
042105
051104
047503
05152¢

020103
052040
020040
027124
047117
041440
020040
027124
047117

020040
051505
041440
020040
027124

020040
047516
020040
020040
041104
044122
020040
020061
051503
020040
042524
020040
020040
052116
047503
020040
029040
052116
020040
047516
020040
020061
051105
044122
020040
020040

020040
020040
044122
020040
020040
041527
044122
020040

LASC1Z

DH17:

<ASCII

/PC

047117
0461440
020040
027124

000062
020040
052123
047503
020040
020040
052116
047503
020040
005015
020040
020040
044122
020040
020062
051105
044122
020040

.ASCIZ

DH2O:

.ASCI1

LASCIZ

/PC

CZRJIHDO,RPO4/5/6 DSKLS CTRLR?
CIRJHD.PYY
28-MAR-79 09:16

NO NS LN —
2 M= OV

T
N N N
e

VOOV NDOVOOVOOVOOOVO0O

PNORNURNIPUN)
b cad ek cmd oy = e e
b

1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885

006766
006774
007002
007010
007016
007024
007032
007040
007042
007050
007056
007064
007072
007100
007106
007110
007116
007124
007132
007140
007146
007147
007154
007162
007170
007176
007204
007212
007220
007226
007234
007242
007250
007256
007264
007272
007274
007302
007310
007316
007324
007332
007340
007346
007354
007362
007370
007376
007404
007412
007420
007426

007434
007442
007450
007456

0644122
041520
020040
020040
052116
047503
020040
005015
020040
020040
020040
051503
044122
020040
000061
041520
0200490
020040
051501
044122
012
040
020040
020040
044516

052440
041520
020040
020040
051504
040502
020040
020040
052103
042523
005015
020040
020040
020040
052116
0644122
020040
020040
020040
0646103
041520
020040
020040
047440
040506
020107
020056
052116
047503
020040
006456

MACY11

051504
020040
042524
020040
020040
052116
047503

000061
020040
052123
047503
020040
020040
052116

020040
047516
020040
020061
051501
044122

020040
020040
044122
020040
020040
051504

020040
042524
020040
020040
051503

020040

020040
047040
020040
020124

044516
020040
042524
020040
020124
020104
047507
020040
051117
052103

020040
047516
020040
020056
040514
044122
020040
020040
041517
020040
042524
020040
020106
046111
047503
020040
020056
052116
047503
012

052123

30A(1052)

2L-MAY-T79

ERROR POINTER TABLE

DH21:

DH2Z2:

15:07

n3
PAGE 29

SEQ 0038

LASCIT

/PC

TEST

CONT

CONT/<15><12>

LASCIZ

RHCST

RHAS

RHDS1/

LASCID

/PC

TEST

RHAS

RHCS2/<15><12>

LASCIZ

UNIT

UNIT/

LASCLL

/PC

TEST

RHDST

BAD

600D

SECTOR

SECTOR/<15><1¢2>

LASCIZ

CONT.

RHLA

cLoCk/

LASCID

/PC

TEST

FAJLING CONT,

CONT,

044122
020040
006462

020040
020117
052440
020040
000124
020040
052123
044122
020040
020040
042117
042523
020040
051117

020040
020040
047503
020040
020040
040514
047516
020040
000113
020040
052123
041520
020040
047111
052116
047503
020040
020056
052116

DH24:

DH26:

OFf

CONT./7<19><12>

~e
|

CIZRJHDO ,RPO4/S5/6 DSKLS CTRLR?
CZRJHD.PY
28-MAR-79 09:16

1940
1941
1942
1943
1944

1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958

1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971

1972
1973
1974

1975
1976
1977
1978
1979
1980

007461
007466
007474
007502
007510
007516
007524
007532
007540
007546
007554
007560
007566
007574
007602
007610
007616
007624
007632
007640
007641
007646
007654
007662
007670
007676
007704
007712
007716
007724
007732
007740
007746
007754
007762

S BN
—=O o
~N&S
OSSO o

1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939

040
020040
020040
051123
051040
042104
030523
041510
051040
020040
030522
041520
020040
020040
047440
040506
020107
020040
05252¢4
012
040
020040
020040
051123
051040
020040
020101
052101
041520
020040
020040
047440
042522
020040
020040
006504
040
020040
020040
051123
040440
020040
020101
052101
041520
020040
020040
042122

047507
020040
020040
052116
047503
020040
006456
040

MACY11

020040
047040
020040
020040
043505
051040
020040
031123
062110
051040
000011
020040
042524
020040
020106
046111
047507
020040
046101

020040
020117
045040
020040
040440
0641510
051040
020040
030523
062510

020040
047040
020040
020040
043505
042040
020040
000101
020040
042524
020040
020106
027107
047507
020040

020040
020117
045040
020040
020056
052101
042040

012

020040
052123
041520
020040
047111
042117
041501
006611

020040
052123
041520
020040
020040
062117
040502

020040 020040
047040 020117
020040 045040
020040 *020040
042104
020122
062040 052101
020040 042040
000101
020040 020040
052123
042526
020040 047527
020040 020040
062117 020040
040502 020104
020040 0647503
020056 020040
052116 020056
047503 052116
012
020040 020040

30A(1052)

24-MAY-79

ERROR POINTER TABLE

DH27:

3
PAGE &V

SEa 0039
RHER?

JSR

REG ADD RHCSI

RH(SZ

RHDS!1

LASCI1

/PC

TEST

PC Of

FAILING GOOD

ACTUAL

/7<15><12>

JSR

REG.

DATA

DATA/

TEST

PC OFf

REG.

600D

BAD/<15><12>

JSR

ADDR

DATA

DATA/

TEST

WORD

600D

BAD

CONT.

CONT.,

CONT./<15><c12>

DATA

RHCS1

RHDS!

RHER

<ASCI1

/PC

LASCIZ

DH31:

<ASCIZ

<ASCLZ

DH30:

15:07

LASCII

JASCIZ

/PC

CIRJHDO,RP04/5/6 DSKLS CTRLRZ
CIZRJHD.PIT
28-MAR-79 09:16

CIRIMDO,RPOL/S/6 DSKLS CIRLR?
CIRIMD.PTY
28-MAR-79 09:16
1981
1982
1983

1254

1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999

2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
20164
2015
2016
2017
2018
2019
2020
2021
2022
2023
20264
2025
2026
2027
2028
2029
2030
2031
2032
2033
2036
2035
2036

01015¢
010162
010170

010176

010204
010212
010220
010226
010234
010242
010246
0102564
010262
010270
010276
010304
010312
010320
010326

010334
010342
010350
010355
010362
010370
010376
010404
010412
010420
010426
010434
010442
010650
010456
010463
010470
010476
010504
010512
010520
010526
010534
010542
010550
010556
010563
010570
010576
010604
010612
010620
010626
010634
010642
010650
010656

020040
020040
020117
062040
020040
020101
041510
051040
020040
030522
041520
020040
020040
047440
047527
020040
020040
020104
047503
020040
004456
052116
040
020040
020040
051123
047040
020040
020101
052101
051040
020040
030523
042510
120
020040
020124
02003
053440
020040
020104
047117
061440
020040
0271264
040
020040
020040

051123
047040
020040
020101
061510
051040
020040
030522

047040
020040
020040
052101
062040
020040
030523
062110
051040
000011
020040
142524
020040
020106
062122
047507
020040
020040
052116
047503
020040
006456
020040
047040
020040
020040
020117
042040
020040
020101
041510
051040
020040
030522
020103
052040
020040
043117
051117
0463440
020040
027124
047117
041440
006411
020040
047040
020040
020040

020117
042040
020040
030523
062110
051040
000011

MACY1T

30A(1052)
24&-MAY-79
ERROR POINTER TABLE

15:07

&
PAGE

SEQ 0040

020117
047040
020040
020101
052101
051040
020040
030523
042510

020040
052123
041520
020040
020040
062117
040502
020040
020056
052116
047503

DH32:

012

020040
020117
045040
020040
020040
052101
062040
020040
030523
0642110
051040
000
020040
051505
050040
020040
020104
047517
041440
020040
027124
067117
012

020040
020117
045040
020040
020040
052101
051040
020040
030523
042510

LASCII

/PC

LASCIZ

DH33:

LASCI]

LASCIZ

/P(

TEST

PC OF

WORD

600D

BAD

CONT.

CONT./

JSR

DATA

RHCST

RHDS1

RHER1/

TEST

WORD

600D

CONT.

/7<15>¢<1?

JSR

DATA

RHCST

RHDS1

RHER]

30AC1052)
24-MAY-79
ERROR POINTER TABLE

b
il
el
sl
il
e
el
) il el

CONSCOWNITOONIOONONSOONSTOCOrRWVONESOON ~ OO WVNON

el
el
D
i
D
B
)
il
D
D
D
d
B
B
mh
el
D
o
ld ol
il
el
i
il

(PP RIVI I P TP TP T 1 U1 W1 N1 VY VY N, V1 V1, N1,V NNt et b b st e e et et 2 O OO OOODOOOOOO
RN =—=0OO~ND NN
NN —= O
NN
NNON) = = O NN WS SN
— QONOWVWVME

-l
i
D
il
D A
D =l v
D
D el
i)
il
el

2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092

0704
0712
0720

2069
2070
2071
2072
2073

041520
020040

s el

2065
2066
2067
2068

[elelolelelel=lolelcleclclalalalrleclolalololalalolalolalelololololololololalalololelolelololaleolololololo
)

2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064

020040
062524
020040
020040
042117
051127
020116
062524
040526
020040
047516
020040
020040
031103
041505
020040
020040
042105
020103
052040
020040
020104
047517
050040
047122
052111
047517
051040
006411
020040
047040
020040
020061
041503
051040
020040
020056
051517
051040

020040
052123
047507
020040
020040
0521
051127
020116
005015
020040
020040
041505
020040
020040
030503
041505
020040
000
020040
051505
063440
020040
020104
052101
050040
047117
020104
042510
012
020040
020117
042440
020040
020062
043505
051040
020040
052111
043505

DH36G:

020040
062117
047507
020040
042524
052111
040504
020040
020040
020040
030503
041505
020040
020040
031103
051525
120

020040
020124
0647517
043440
020040
042524
051517
0463440
020040

030522
040
020040
020040
041503
0426440
020040
020056
043505
050040
047117
000056
041520
020040
020040
047440
046122
020040
047524
052124
012
040
020040
020040
051123
041440
020040
020056

020040
042524
020040
020106
051115
047520
020116
051105

020040
052123
041520
020040
020040
064523
040520
006516

DH36:

020040
047040
020040
020040
047117
051040
020040

020040
020117
0645040
020040
027124
043505
051040

LASCLHI

/PC

<ASC1Z

DM35:

LASCII

/PC

LASCIZ

LASCL]

LASCIZ

/P(

15:07

PAGE &2

SEQ 0041

TEST

600D

WRITTEN WRITTEN DATA/<15><1?2>

Ecct

ECC?

ecci

TEST

600D

PATTERN POSITON GOOD

ECc

ECC?

REG.

TEST

RHMR

POSITON PATTERN/<15><12>

JSR

CONT.,

REG.

ECC?

REG.

REG./

USED/

RHERT

POSITON REG./

/<15><1?2

(afe)

MACY11

CIRJHDO ,RPO4/S5/6 DSKLS CTRLR?
CZRJHD. P
28-MAR-79 09:16

¥, Yol ]
W
Yol WP F. Nal SV No Yol FPV Yo Yol

v v 1]
SV 2P 2P
W
o
o
W
W

ow (W RV TV IV W IV IV IV IV IV D W
o~

N
NS~ [e J=1,0F

NN NNNNNYO

NN
S NN N —

b
o

o
o

e
e

i
e

e
e

b
S

e
e

e
i
i

ol e
b

e
e

e
s e

s e
o

e
e

e
o

e
e

s
D

D e
e

i e
o

b
e

o
e

OCOO0O0O0ODOO0OOOOOOOOODOOOOOOO

s
el ol el
ol
il el
i
D

o
el

o
e
D

)
il

oD
e
el

OOO0OOOOOOLOOO0OO0OOOOO

30AC1052)
24-MAY-79
ERROR POINTER TABLE

020040
052123
047520
020116
047524
062117
047507
020040
051105
04052¢
026516
005015
020040
020040

DH37:

043505
041520
020040
020040
044523
047520
020116
020040
042117
040520
020116
020040
047503
020040
020040
020040
020103
047507
020040
020040
031103
041505
020040
050117
047522

000056
020040
062524
020040
047524
044523
047507
020040
020040
052124
040504
020040
042504
020040
047516
020040
020040
042117
041505
020040
020040
020103
047105
020105
004523

120

020103
052040
020040
0464514
047117
041640
020040
027124
047117

020040
051505
043040
0643516
027124
047117
061440
020040
027124

020040
047516
020040
042101

020040
020040
042522
020122
020061
051503
046122
020040
000061

020040
020124
044501
041440
020040
027124
047117
041440
005015
020040
020040
020040
020107
064122
020040
020062
051504
046122

051503
046122
020040
020061
051105

e
o ot e
o ot e

15:07

&
PAGE 43

SEQ 0042

CASCII

/PC

TEST

POSITON POSITON GOOD

600D

PATTERN DATA

N-CODE/

LASCIZ

ECC

Ecct

ECCe

ECC

ZEROS

LASCII

/PC

TEST

FAILING CONT.

CONT.

CONT./7<15><12>

REG ADR RHCSI

RM(S?2

RHDSI

RHER1/

GOO0D

ENVLOPE

061505

020040
020040
030503
0641505
020040
020040
046126
062532
000

DH4LO:

LASCIZ

.EVEN

017330
001126
017330
000000
017330
001126

045662
000000
053130

DT1:

.WORD

SERRPC,TSTNM, REGADR,$GDDAT ,$BDDAT 0

DT2:

.WORD

$ERRPC,TSTNM, ERWORD,$GDDAT,0

053130
000000

D13:

.WORD

$ERRP(,TSTNM ERWORD,$GDDAT ,$BDDAT 0

017330

001122

DI11:

.WORD

$ERRP(,TSTNM,$BDADR,(S1,(S2,DST,ERY,O

[N ol

MACY1Y

e o

) ol

i e

D e ol e

b o

P e

el e

e e

D e

EEEAEDEEDDDD WNANNNNNNANENNNNNNNNNNNAN
=ttt et et et s OO OO o
NO NS UNWN—=O OO
NS NN —=O 0D -yO N
OO NO VN
NN
O 0D NN
NN — OOV

LY, YT, T VY, VT VY V] VY, VT, ST VY VT VY VT N ST CT Y ST N L VT N L S L N V1, V1 VT WY V1, V1, VT ,V1 V1, V1,V1,V1,V1, V1, V] VT Y, 91, N1, V]

1607
1614
1622
1630
1636
1644
1652
1660
1666

) il

2093

2096
2095

CIRJHDO,RPOL/S5/6 DSKLS CTRLN?
CIRJNHD.P
28-MAR-79 09:16

— et
el e et (O [o]olelele]
NN
== =00 -~ ~NO NS
oe N
Y ¥
P
¥
XY, N o~

PRI
=P b e el oo ed

S OONOIOWVVNE
N
[LSP 2 X =1, VW ¥
X W ¥

NRONNONONNNRONNNONPRONNONDNONON

NN rON
NI SN
F al e N 1 NP o

O~
OMN
o oo

N NN

364

ONOON

F ol ol o3 SNV
N=OO

el
il
D il
il
el el
il nd
el
i
D
il
)
D
el et
—

O
ON

VIV IV IV
RV
1,¥)
v [VIIVIVIPR

(L L, 1,1, V1, V1,1 N1 ,F1,C1 T, N] N1 V] N1,V

D e

s el el

i e

OOO0O0O0OO0OOCOOOOOOOOOOD

ol o

RN RN N AN NN

OOOOCOOOOOOOOO

034

D e

SO0 OOOOOOOOOOOCCOOOOOO0D

—

iy il

i oy

D el

)

D el el

D el o

NIRONIRLAL RN RNV RLRL NN PNV N RN NV PO

el e

D o

il e

B et o

D il

)

B o

D ol

i e

i —

VOO0V OO0V OOWPOBWOEEMWOOWA N NNYNNYNNYNOCTOTOTOOOCO
NN NN NN NN H
BN N W
OO0
YO NS W= OOV
VS NN 2O OO YO VNS WA = OV~
NS
— O0

NI PN NI PL PNV RV NI PV NI PV P NI PV PV PL PV PNV AL P RL P NI PO NI N nJ

015032
015034
001116
001126
015054
001116
000000
001116
001200
000000
001116
015022
015030
001116
015040
015054
001116
015050
001116
001126
001116
001126
001204
001116
001122
015054
001116

045662

MACY11

30A(1052)

26-MAY=-79

ERROR POINTER TABLE

15:07

&
PAGE &4

015054

.WORD

SERRPC,TSTNM,$BDADR,$BDDAT,CS1,CS2,.DSV,ER1,0

DT15:

.WORD

SERRP(,TSTNM,$TMP1,0

001204
001126

DT16:

.WORD

015026
015032

DY17:

.WORD

SERRPC,TSTNM,BA,DB,WC,(S1,(S2,0

015034
015050

0120:

.WORD

SERRP(,TSTNM,ERY,ER2,ER3,AS,DS1,0

015032
000000
001124

DT21:

.WORD

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

D122:

.WORD

SERRPC,TSTNM,$GDDAT,$BDDAT,0

015036
001202

DT26:

.WORD

SERRPC,TSTNM,DST,$BDDAT,$TMP1,$TMP2,$TMP3,0

015132
015030
000000
015132
001126

0126:

.WORD

S$ERRP(C,TSTNM,PCJSR,$BDADR,(S1,CS2,DS1,ERT,0O

D127:

.WORD

S$ERRPC,TSTNM,PCUSR,REGADR,$GDDAT
,$BDDAT,O

SERRP(C,TSTNM PCJSR,REGADR,$GDDAT ,$BDDAT,O

001122
015030
000000
001200

S$ERRP(C,TSTNM,$TMP3 $TMP1,$TMPO,$BDDAT,0

000000
001116
045662
000000

015132
001126

D130:

.WORD

001116
001124

053130
015032

DT31:

.WORD

015132

D132:

.WORD

015132
015032
000000
050620
055730

D133:

.WORD

DT34:

.WORD

S$ERRPC,TSTNM,GECC!,GECC2,WECCY ,WECC2,DISK,0

050620
015062
000000
015132
015064

DT35:

.WORD

$ERRPC,TSTNM GECCY,GECC2,EC2,ECY,POSITI,ERY,O

D136:

.WORD

$ERRP(C,TSTNM,PCISR,MR,ECY,EC2,0

015062
050622
050640

0137:

.WORD

SERRPC,TSTNM,EC1,POSITI,GECCY,GECC2,EC2,DATENY,ZCODE,O

015054
001116
053130
015032

000000
001116
053130
015054
001116
050622
054726
001116
050622
050632
001116
015052
000000
001116
050632
015064

000000

001126
015034

SERRPC,TSTNM,ERWORD,$GDDAT,$BDDAT,CS1,DS1,ERY,0
SERRP(,TSTNM,PC,SR,ERWORD,$GDTAT ,$BDDAT,CS1,DST,ERT,O

SERRP(,TSTNM,PCJUSR,ERWORD,$GDDA",CS1,LST,ERY,O

SEQ 0043

CIRIHDO,RPOL/5/6 DSKLS CTRLR?
CIRJHD PN
28-MAR-79 09:16

2205
2206
2207
2208
2209
2210
221
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
22264
2225
2226
2227
2228
2229
2230
2231
2232

2233

2234
2235
2236
2237
2238
2239
2240
2241
2242
2263
2246
2245
2246
2247
2248

2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260

24-MAY=79

30AC1052)

001122
01505¢

D140:

.WORD

$ERRPC,TSTNM,$BDADR,(S1,(S2,DST,ERT,0

ERROR POINTER

TABLE

15:07

MACY11

PAGE 45

012474
012476
012504
012512

000000
001116
015032
015034

012516
012521
012523
012526
012527
012532

000
000
000
000
000
000

00C

DF1:

.BYTE

0,0,0,0,0

001

DF2:

.BYTE

0,0,1,0

001

DF3:

.BYTE

0,0,1,0,0

012534
012537
012542
012543
012546
012551
012553
012556
012561
012563
012566
012571
012572

000
000
000
000
000
000
000
000
000
000
000
000
000

000
000

DF11:

.BYTE

0,0,0,0,0,0,0

000
000

DF14:

.BYTE

0,0,0,0,0,0,0,0

000
000

DF1S5:

DF16:

.BYTE
.BYTE

0.0.0
0,0,0,0.0

000
000

DF17:

.BYTE

0,0,0,0,0,0.,0

DF20:

.BYTE

0,0,0,0,0,0,0

012600

000

000
000

012601
012604
012606
012611
012612
012615
012620
012621
012624
012627
012631
012634
012637

000
000
000
000
000
000
000
000
000
000
000
000
000

000

DF21:

.BYTE

0.0,0,0.0

000

DF22:

.BYTE

0.0,0,0

000
000

DF2¢4:

BYTE

0,0,0,0,0,0,0

000
000

DF26:

.BYTE

0.0,0,0,0,0,0,0

000
000
000
000

DfF27:

BYTE

0,0,0,0,0,0

DF30:

.BYTE

0.,0,0,0,0,0

012645
012650
012653
012655
012660
012663
012666
012671
012674
012676

000
000
000
000
001
000
000
001
000
000

001
000

DF31:

.BYTE

0.0,1,0,0,0,0.,0

00
000
000

DF32:

.BYTE

0.0,0,1,0,0,0,0,0

DF 33:

.BYTE

0,0,0,1,0,0,0.,0

DF 34

.BYTE

0,0,0,0,0,0,0

012575

012642

000

017330
015030
000000

000

StEQ 0044

ala)

CIRJHDO,RPO4L/S5/6 DSKLS C(TRLR2
CIRJHD.PIY
28-MAR-79 09:16

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

2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
23164
2315

2316

012701
012704
012705
012710
012713
012715
012720
012723
012726
012731
012734
012737
012742
012746
012752
012760
012766
012774
013002
013010
013016
013024

000
000
000
000
000
000
000
000
000
000
000
000
000
012744
044122
043505
020122
042105
042522

MACY1Y

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

15:07

4
PAGE &6

SEQ 0045

000

DF35:

.BYTE

0,0,0,0,0,0.0.C

DF 36:

.BYTE

0.0,0,0,0,0

DF37:

.BYTE

0,0,0,0,0,0,0,0,0

DF4O0:

.BYTE

0.0,0,0,0,0,0

051040
042524
046111
020117
047117
040440
021124
040515

EM4L2:

.EVEN
.ASCIZ

/RH11 REGISTER FAILED TO RESPOND TO A "'TST'" COMMAND/

000
000
000
009
000
000
000
000
000
000

030461
051511
040506
052040
050123

0647524

051524
046517
000

013027
013034
013042
013050
013056
013064
013072

030510
0642514
0642522
051105
047520
042524

020061
040507
044507
051040
051516
052123

EM4LS:

LASCI2

/RH1T1

013073
013100
013106
013114
013122

020105
052040
042122
052116
000124

EM&4:

<ASCIZ

/MOVE BYTE TO WORD COUNT

052040

053117
042524
047527
052517
051505

013130
013136
013144
013152

044502
062524
047527
052517

020123
052040
062122
052116

054502
020117
061440
000

EMGLS:

LASC1Z

/B1S BYTE

TO WORD COUNT/

013157
013164
013172
013200

102

041040
047524
020104
000124

EM&G:

.ASCIZ

/BIC BYTE

TO WORD COUNT/

052131
053440
047503

013206
013214
013222
013230
013236

042522
051105
062522
046105
042526

EM4L7:

<ASC1Z

/REGISTER ADDRESS SELECT

0641505
052123

052123
042104
051440
020124
000

013243

116

047117

042440

EMSO:

ASCIZ

/NON EXISTANT DRIVE

TLLEGAL REGISTER RESPONSE

(NED)

TEST/

(K en)

CIRJHDO,RPO4/5/6 DSKLS CTRLRZ
CIRJIHD.PVI
28-MAR-79 09:16

052502
042104
051040
042524
040524
000124

62
370
376
6404

052502
042106
051040
042526

WO
N

OoO~NOWw
orves~or

— OO
SO0
—
[e VAR WXV IVT, N
oS~ ONY

b
i
o
i

AN NN NN

046530
020124
020105
020051
000

[V_JV V]

250

WHNAMNINLN LN

28-MAR-79 09:16
052123
051104
047050
042526

30A(1052)

24-MAY-79

ERROR POINTER TABLE

042526
000105

V1V]
(S AV ] 1V "]

AV
et b
\V LV, ]

—

—_roO

0404460
051523

OO0

0642522
051105
000124

044507
052040

042
0435
02012
052040

051523
042522
043505
020122
041040

PAGE ¢’

SEQ 0046

EMS1:

<ASCIZ

/AS REGISTER TEST/

EMS2:

.ASCIZ

/BUSS ADDRESS REGISTER DATA TEST/

EMS3:

LASCIZ

/BUSS ADDRESS REGISTER MOVE BYTE/

¢s15n
040504

051505

0404
0515
0515
0475
0521

013622

064122

030461

0464440

013436
813444
13452

052120
042514
0476440

043040
020104
041503

064501
047524
051125

0 13461
0 13466

122
052040

051505
051505

0 36476
0 3 2?8
0 3

0564115
020858

0
0
0
0

3 511
3 516
3 526
3 532

0
0
0
0
0
0
0
0
0
0

:
EMS4:

_ASCIZ

/RH11

INTERRUPT FAILED TO OCCUR/

052105
000124

EMSS:

LASCIZ

/RESET

TEST/

020106
042524

044502
052123

EMS6:

LASCIZ

/MXE BIT TEST/

125
020123
054524
052040

0464516
040520
041040
051505

052502
044522
052111
00012¢

EMS57:

.ASCIZ

/UNIBUS PARITY BIT TEST/

35640

047504

051505

051440

EM60:

.ASCIZ

/DOES SELECTING THE RH11 CLEAR THE UNIT SELECT RESISTER/

104

042517

02012 ;

EM61:

LASCIZ

/DOES TRE GET SET BY UNIBUS PARITY ERROR/

013430

0 13460

[a ¥

3546
3554
3562
3570
3576
3604
3612
3620
3626

—

612
3420

101

NN
NN
N

el
—

ol
i
i e
e

N NN NN

0
0
0
0
0

0
0 3634
o

2344

0
0
0
0
0
0

—

ad adyad Y LV TV AN AV AV AV IV IV TV LV LV LV TV LV

» S5

[V LY o

0
0
0

15:07

04
05
04
05

0
0
0
0
0

MACY11

0521'6

000

046105
043516
051040
046103
044124
052111
0641505
044507
000

051124

051105

0641505
052040
030510
040505
020105
051440
020124
052123

020105

052522

044524
042510
020061
0201
047
046
042
051

04250

0 o

HD.P11

LM AN AN N N NN NN N NI PO NI NV NV PO RO N RO N = b s
= OOV
NO VNS NN = OV
NV WO~y

NINIMRONININIANRONI NN NN PN NN PO NI NN NI NI N A

IV IV IV IV [V R T
N

HDO,RPO4/5/6 DSKLS CTRLR2

013642

677

014012
014020
014026

MACYTT

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

15:07

PAGE 48

020124
054502
052502
044522
051122

062523
052440
020123
054524
051117

020124

044530
020124
020105
020051
042105
0642523
042522

116

047117
052123
051104
047050
040506
052040
020124
000051

042440
047101
053111
042105
046111
020117
052050

EM62:

ASCIZ

/NON EXISTANT DRIVE

047516
051511
046440
020131
020051
042105
062523
042522

020116
040524
046505
047050
040506
052040
020124
000051

054105
052116
051117
046505
046111
020117
052050

EM63:

CASCIZ

/NON EXISTANT MEMORY

047520
046105

052122
041505

051440
020124
042105
046103

EM64:

<ASCIZ

/PORT

047522
0461440
043040
020104
062514
046517
051040
042524

EM65:

LASCIZ

/CONTROLLER CLEAR

EM66:

LASCIZ

/RESELECT

EM67:

LASCIZ

/INTERRUPT

044516
040520
042440
000

014032
014040
014046
014054
014062

040506

046111

014066
014074
014102
014110
014116
014124
014132
014140
014146

047503
046114
042514
044501
047524
051101
040515
0643505
000122

052116
051105
051101
042514
061440
041440
042116
051511

014150
014156
014164
014172
2146200
014206
0146214

062522
052103
0462514
0614640
041440
0462116
051511

042523
043040
020104
0642514
046517
051040
062524

000122

014222
014230
014236
014244
014252
014260
014266
014274

047111
050125
051525
020131
0466441
051524
043040
020104

042524
02012¢4
042105
051040
020105
051440
044501
047524

051122
040503
041040
054504
0644502
052105
042514
047440

052040
040505

020117
000122

SEQ 0047

SELECY

(NED)

(NEM)

FAILED TO SET

(TRE)/

FAILED TO CLEAR/

FAILED

FAILED TO CLEAR COMMAND REGISIER/

TO CLEAR COMMAND REGISTER/

CAUSED BY

RDY.JE BITS SET

FAILED TO OCCUR/

[an
N an)

CIRJHDO,RPOL/S5/6 DSKLS (TRLR?
CIRJHD P
28-MAR-79 09:16

2429
2630
263
2632
2633
2634
2435
24636
2L37
2438
2439
2640
2441
2442
2643
2644
2445
2646
2647
2448
2649
24650
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
24661
24662
2463
2464
2465
24666
2467
2668
2469
2470
2671
2672
2473
2674
2675
2476
2677
2478
2479
2480
2481
2482
2483
2484

014402

014410
014416
014426
014432
014440
014441
014446
014454
014462
014470

014471
014476
014504
014512
0146520
014526
014534
014537
014544
014552
014560
0146566
014574
014602
014603
014610
014616
014624
014632
014640
014641
014646
014654
014662
014670

MACYIY

061503

051125

000

QOO
=) et et =t
O
=t YN~
= =t

CIZRIMDO,RPOL/S/6 DSKLS CTRLRZ
CZRJHD.PIN
28-MAR-79 09:16

020105
062105
046103
047506
047111
044440
052522

0640506

101
044507
053440
052040

000124

041520
020040
020040
042514

020040
040507

020040
052123
046111
006514

020040
047040
020040
042522

020040
020117
0460640
051523

020103
052040
020040
051511
047117
0461440

020040
051505
051040
051124
020124
047117

012
040
020040
020040

042104
000

120
020040
020124
043505
0461440
020040
006524
040
020040
020040
042104
043440
020040
000
120
020040
020124
043505
061440

012
020040
047040
020040
042522
047517
041040

30A(1052)
24-MAY=79
ERROR POINTER TABLE

020040
051505
051040
051124
006524

020040
0647040
020040
042522

020040
020117
040440
051523

&
PAGE &9

SEQ 0048

EM70:

<ASCIZ

/1E

EM71:

LASCIZ

/AS REGISTER WRITE

DH&L?:

CASCL]

/PC

TEST

ILLEGAL/<15><12>

LASCIZ

ADDRESS/

LASCII

/PC

TEST

REGISTR CON1T

CONT/<15>¢<12>

LASCIZ

ADDRESS GOOD

BAD/

LASCL]

/PC

TEST

REGISTR CONT/<i5><12>

LASCIZ

ADDRESS/

DH4G:

020040
020117
040440
051523
020104
042101

020103
052040
020040
051511
047117

15:07

DHS4:

.EVEN

FAILED TO CLEAR FOLLOWING AN INTERRUPT/

TEST/

MACYT11

30AC1052)

017330

0645662

DT142:

.WORD

SERRPC,TSTNM REGADR,O

017330
001126
017330
000000

045662
000000
045662

DT44:

.WORD

SERRPC,TSTNM REGADR,$GDDAT,$BDDAT,0

D154:

.WORD

SERRP{,TSTNM REGADR,$GDDAT,0

CIRJHD P

2485
2486
2687
2488
2489
2490

014672
014700
014702

014710
014716
014724

001116
000000

001116
001124
001116
001124

24-MAY-7G

ERROR POINTER TABLE

15:07

PAGE 5V

]

SEQ 0049

CIRJHDO,RPO4L/S5/6 DSKLS CTRLR?
28-MAR-79 09:16

CIRJHDO,RPOL/S/6 DSKLS CTRLR2

CIRJHD.PYY

28-MAR-79 09:16

2691
2692
2693
2696
26495

000
000
000
000
000

014730
014733
014736
014740
014743

000
000
000
000

MACY1T

30A(1052)

24-MAY-79

ERROR POINTER TABLE

15:07

000
000

©Of42:
DF44:

.BY1E
.BYTE

0,0,0
0,0,0,0.,0

000

DOFS54:

.BYTE

(0,0,0,0

&
PAGE S|

SEQ 0050

2696
2497
2498
2499
2500
2501
2502
2503
2504

MACY11

30AC1052)

24-MAY-79

HARDWARE

.SBTTL

15:07

&
PAGE 52

DEFINITIONS

HARDWARE REGISTER BIT DEFINITIONS

;;'t"t"'""""t"'""""'"""""""""I'.""""""'

;RH11

REGISTERS

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

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

il
il ol
s
D
—

~NO VSN -

NN
NN
RV IV AV IV RV 1V

:BUS ADDRESS REGISTER (RHBA)

;EACH BIT IS CALLED BY BIT NUMBER

;CONTROL AND STATUS REGISTER 2 (RHCS?)
000001
000002
000004
000010
000020
000040
000100
000200

000400
001000
002000
004000
010000
020000
040000
100000

Us1=
us2=
USé=
BAl=
PAT=
CLR=
IR=
OR=
MPE =
MXF =
PGE=
NEM=
NED-=

UPE =
W(E=
DLT=

1
2
4
10
20

40
100
200
400
1000
2000
4000
10000
20000
40000
100000

;DATA BUFFER REGISTER (RHDB)
;EACH BIT

;UNIT SELECT (BIT #0)
JUNIT SELECT (BIT #1)
;UNIT SELECT (BIT #2)
;BUS ADDRESS INCREMENT INHIBIT (BIT #3)
: INVERT PARITY ON MASS BUS TO EVEN (BIT #4)
;CLEAR (BIT #5)
: INPUT READY (BIT #6)
;OUTPUT READY (BIT #7)
;MASS BUS PARITY ERROR (BIT #8)
;MISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)
:NON EXISTANT MEMORY (BIT #11)
;NON EXISTANT DRIVE (BIT #12)

;UNIBUS PARITY ERROR (BIT #13)
;WRITE CHECK ERROR (BIT #164)
;DATA LATE (BIT #15)

IS CALLED BY BIT NUMBER

SEQ 0051

(el
]

CIRJHDO,RPOL/5/6 DSKLS CTRLRZ2
CIRJHD.PYI
28-MAR-79 09:1+

2535
2536
2537
2538

MACY11

30A(1052)

24-MAY-79

HARDWARE REGISTER BIT

15:07

PAGE 53

SEQ 0052

DEFINITIONS

':"""!""""""""'"""""""""""""'t'"""""

*RPO4 REGISTERS

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

2539

2540
2541
2562
2543
2544

2545

<566
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
25
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590

:CONTROL AND STATUS 1 REGISTER.
000001
000100
000200
000400
001000
002000
004000
020000
040000
100000

GO=
1€=

ROY=
A16=
AY7=

PSEL=
DVA=
MCPE=
TRE=
SC=

1
100

200
400
1000

2000
4000
20000
40000
100000

(#00)

;G0 (BIT #0)

;INTERRUPT ENABLE

(BIT #6)

;READY (BIT #7}
;HIGH ORDER UNIKL'S BITS (BIT #8)
;HIGH ORDER UNIBUS BJTS (BIT #9)
;PORT SELECT .BIT #10)
;DEVICE AVAILABLE (BIT #11)
;MASSBUSS PARITY ERROR (BIT #13)
; TRANSFER ERROR (BIT #14)

;SPECIAL CONDITION (BIT #15)

:STATUS REGISTER (RHDS1) (#01)
000001
000002
000004
000010
000020
000040
000100

000200
000400
001000
002000
004000
010000
020000
040000

100000

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

DFS=
DFF20=
DIGB=

GRV-=
DLbG=
DE1=
V=
DRY=
DPR=

PROG=

LST=
WRL=
MOL=
PIP=

ERR=
ATA=

1
2

10
20
40
100

200

400
1000
2000
4000
10000
20000

40000
100000

;DRIVE FORWARD 5°'‘'/SEC.

(BIT #0)

(BIT #1)
;DRIVE FORWARD 20''/SEC.
;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 m1)
;MEDIUM ON-LINE (BIT #12)

;POSITIONING OPERATION IN PROGRESS (BIT #13)

; COMPOSIT ERROR. (BIT #14)
;ATTENTION ACTIVE (BIT #15)

;ERROR R%GISTER #01 (RHER1) (#02)
ILF=

ILR=
RMR-=
PAR=
FER=

WCF=
ECH=
HCE=
HCRC=
AQE =
1AE=
WLE=
DTE=

OPl=
UNS=
DCK=

P4
4

10
20
40

100

200
400
1000

2000
4000
10000
20000
40000
100000

;ILLEGAL FUNCTION (BIT #0)
;ILLEGAL REGISTER (BIT #1)
;REGISTER MODIF]CATION REFUSED (BIT #2)
;PARITY ERROR

(BlT #3)
;FORMAT ERROR (BIT #4)

;WRITE CLOCK FAIL (BIT #5)
;ECC HARD ERROR (BIT #6)
;HEADER COMPARE ERROR (BIT #7)
;HEADER CRC ERROR (B]T #8)
;ADDRESS OVERFLOW ERROR (BIT #9)
; INVALID ADDRESS ERROR (BT #10)
;WRITE LOCK ERROR (BIT #11)
:DRIVE TIMING ERROR (BIT #12)
;OPERATION INCOMPLETE (811 #13)
:DRIVE UNSAFE (BIT #14)
;DATA CHECK ERROR

(BIT

15)

(X e

CIRJHDO ,RPO4/5/6 DSKLS CTRLR?
CIRJHD.PY
28-MAR-79 09:16

CIRIHDO,RPO4/S/6 DSKLS CTRLR?
CIRJHD.PN
28-MAR-79 09:16

000001
000002
000004
000010
000020
000040
000200
000400
001000

000001
000002
000004
000010 000020 *
000040
000100
000200

DISY=

PAGE 54

AT0=
AT1=

SEQ 0053

DEFINITIONS

(RMMR)(#03)

;DIAGINOST]IC MODE (BIT #0)

;MAINTAINABILITY INDEX (BIT #2)

P4
10

200

400
1000

;MAINTAINABILITY CLOCK

;MAINTAINABILITY WRITE (BIT #5)
:DATA ENVELOPE (BIT #7)
;IERO DETECT (BIT #8)
;MAINTAINABILITY SYNC DETECTED
(RHAS)

(#04)

;DEVICE O (BIT ")

4
10
20
40
100

;DEVICE
;DEVICE
;DEVICE
;DEVICE
:DEVICE

200

2624
2625
2626
2627
2628
2629
2630

(BIT #1)

sMAINTAINABILITY SECTOR CLOCK (BIT #3)
;MAINTAINABILITY READ (BIT #4)

;DEVICE 1

2
3
4
S
6

;DEVICE 7

(817
(8171
(BI7
(817
(811
(BIT
(BIT

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

2619
2620
2621
2622
2623

AR,

"2)
’3)

nG)

n6)

”)

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

N0
= BN —
OO

200

Hwnn

000020
000040
000100
000200
000400
001000
002000
004000
010000

EXT
EXT
EXT
EXT

BN =N) =
OOO I U h

000001
000002
000004
000010

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

N— OO I

2646

lER=

ATTENTION SUMMARY PSEUDO-REGISTER

2614
2615
2616
2617
2618

2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645

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

RNV RV, mm

2613

15:07

;MAINTAINABILITY REGISTER

NV R

2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612

HARDWARE REGISTER BIT

— [T

2601

24-MAY-T79

30A(1052)

D0 CNOYOYO > >
RN
==L N —s =t —

2591
2592
2593
2594
2595
2596
2597
2598
2599
2600

MACY1T

100

1000

2000

4000
10000

ON |

EXTENSXON 2
JEXTENS] ON 3
;EXTENSIO N 4
;EXTENSION 5

1T #0)
1T M)
1T °#2)

1T #3)

1T #4)
1T #5)
:EXTENSION 6
1IELD O (BIT
;SECTOR COUNT
JELD 1 (BIT
;SECTOR COUNT
F
1ELD 2 (B1Y
COUNT
OR
;SECT
¢
1ELD 3 (BIT
COUNT
;SECTOR
¢
1ELD & (BIT
;SECTOR COUNT
s TRACK FIELD
(BIT M)
; TRACK FIELD 2 (BIT #12)

#6)
#7>
#8)
#9)
M0)

(BIT #9)

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
CIRJHD.PI
¢B-MAR-79 09:16
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662

2663
2664
2665

2666
2667
2668
2669
2670
2671
2672
2673
2674

2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702

020000

040000
100000

MACY11

30A(1052)
24-MAY-79
15:07
PAGE 55
HARDWARE REGISTER BIT DEFINITIONS
TRK4=
TRK1Q=
TRK20=

SEQ 0054

;TRACK FIELD 3 (BIT #13)

20000
40000
100000

;TRACK FIELD & (BIT #14)

;TRACK FIELD 5 (BIT #15)

;ERROR REGISTER #2 (RHER2) (#10)
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
100000

wCu=
(Sf=
WSU=

mSE=
1DF =
TUf =
FEN=
WRU=
MHS=
NHS=

20
40
100
200
400
1000
2000

PLU=
ACU=

20000
100000

(Sus=

IXE=
vu30=

000200
002000
004000
010000

(B1T #0)

;CURRENT SINK FAILURE (BIT #1)
;WRITE SELECT UNSAFE (BIT #2)
;CURRENT SWITCH UNSAFE (BIT #3)
;MOTOR SEQUENCE ERROR (BIT #4)

;TRANSITIONS DETECTOR FAILURE
: TRANSITIONS UNSAFE (BIT #6)

(BIT #%)

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

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

4,000
10000

JOFFSET REGISTER (RHOF)
000001
000002
000004
000010
000020
000040

;WRITE CURRENT UNSAFE

1
P4

;ACUNSAFE

(BIT M15)

(#11)

0F100=
0F200=

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

0F400=
0F800=

1
2
&
10
20
40

OFREV=

200

;OFFSET NEGATIVE (REVERSE) (BIT #7)
;HEADER COMPARE INHIBIT (BIT #10)
;ERROR CORRECTJON CODE INHIBIT (BIT #11)

0F25=
0FS0=

HCIl=

ECI=
FM122=

2000

4000
10000

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

;FORMAT BIT

;DESIRED CYLINDER ADDRESS (RHCA) (#12)
JEACH BIT 1S CALLED BY BIT NUMBER.

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

;SERJAL NUMBER REGISTER (RHSN) (#14)

JEACH 1S CALLED BY BIT NUMBER

(BIT

#12

2703
2704
2705
2706
2707
%;gg

;ERROR REGISTER #03 (RMER3)

2710
2711

000001
000002

S;}g'

100000

2712
2713
2714
2715
2716

2719

S;S?

2722
2723
2724
2725

2726
S;Sg

MACY!1

S
30AC1052)
24-MAY-79
15:07
PAGE 56
HARDWARE REGISTER BIT DEFINITIONS

000010
000020
000040
000100
040000

PSU=
VUF =

UWR=
PRE =
ACL=
DCL=
SKl=

oCvL=

(#15)

1
2
10
20
40
100
40000

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

:ANY UNSAFE EXCEPT READ/WRITE (BIT #3)
;DISK PACK ROTATION ERROR (BIT #4)
;AC LOW (BIT #5)
:DC LOW (BIT #6)
;SEEK INCOMPLETE (BIT #16)

100000

;OFF

.FCC POSITION REGISTER (RHEC1)

;tACH BIT

IS CALLED BY BIT

SF@ 0055

(#16)

NUMBER

;ECC PATTERN REGISTER (RMECZ) (#17)
SEACH BIT IS CALLED BY BIT NUMBER

CYLINDER

(BIT #15)

CIRJHDO,RPOL/S/6 DSKLS CTRLRZ
CZRJHD.PI
28-MAR-79 09:16

HARDWARE

26=MAY-79

15:07

5
PAGE 57

DEFINITIONS

—

ropofNororRONORO
RO NP
NN NN N N N N N NN
&5 BN NN
N N N N NN

30A(1052)

=L OV

~NP N

.SBTTL

ADDRESSES

;RP04/5/6 VECTOR ADDRESS

014744

00025¢

RPVEC:

256

;RP0O4/5/6 VFCTOR ADDRESS

:NOTE:

THE CONTENTS OF

RHDB:
RHWC:
RHBA:

176722
176702
176704
176710

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

176712
176726
176730
176744
176746
176720
176736

;DRIVE STATUS
;DRIVE TYPE
;SERIAL NUMBER SEC NOTE ABOVE
;ECC POSITION
;ECC PATTERN
.LOOK AHEAD
:CURRENT CYLINDER ADDRESS

2762

014746

014750
014752
014754
014756
014760
014762
014764
014766

014770
014772

176722
176702
176704
176710
176700
176714
176706
176740
176732
176734
176742

RHCS?2:
RMCST:
RHER1:
RHMDST:

RHERZ:
:
RHOF
RHCA:

RHERY:
RHAS:
RHMR:

RHDS1:

RHDT:
RHSN:

RHEC1:

RHEC?:

RHLA:
RHCC:

THESE LOCATIONS WILL BE DIFFRENT

1f THE "'CHANGE BASE ADDRESS'' ROUTINE IS USED.
THIS ROUTINE STARTS AT LOCATION TAGGED "BASECH'

176700
176714
176706
176740
176732
176734
176742
176716
176724

;CONTROL AND STATUS 1 SEE NOTE ABOVE
;ERROR #1 SEE NOTE ABOVE
;DESIRED SECTOR / TRACK ADDRESS
;ERROR #2
;OFFSET
;DESIRED CYLINDER ADDRESS
;ERROR #3
;ATTENTION SUMMARY SEE NOTE ABOVE
MAINTAINABILITY

;ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER
176752
176750

RHCSY:

:
RHBAE

176752
176750

:CONTROL AND STATUS REG #3

;BUS ADDRESS EXTENSION REGISTER

SEQ 0056

[ Nen}

CIRJIHDO,RPO4/5/6 DSKLS CTRLR?
28-MAR-79 09:16

C(IRJHD P

MACY11

2773

2774
2775
2776

30AC1052)

24-MAY-79

:THE

ADDRESSES

15:07

5
PAGE 58

SEQ 0057

FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SAVES

[=]

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

DB:

w(:
BA:

(se:

(S1:
ER:
pST:
ERZ:

:
OF
CA:

ER3:

AS:
MR:

DS1:
DT:
SN:

E(i:

EC?:
LA:
(C:

OOOOOOOOOOOOOOOO

000000
000000
000000
000000

OO0

¢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

2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2796
2795
2796
2797
2798
2799
2800
2801
2802

MACY11

;DATA BUFFER
;WORD COUNT

;BUS ADDRESS

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

;OFFSET

;DESIRED CYLINDER ADDRESS

:ERROR #3

CATTENTION SUMMARY
;MAINTAINABILITY

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

eo-o
o

[N e

CIRJIHDO,RPOL/S/6 DSKLS CTIRLR?
CIRJHD P
28-MAR-79 09:16

CIRIHDO,RPO4/S/6 DSKLS CTRLR?

2L=-MAY-T79

;FLAGS

INTERNAL

000010
000000
000000

UNITS:
UNIT:

NOUNIT:

.BLKW
.WORD

015116

000000

NUNIT:

.WORD

015120
015122

000000
000000

SELECT:
UN]JTSL:

.WORD
.WORD

01512¢

000000

ERFLGS:

015126

000000

SAVDT:

015130

000000

SAVSN:

.WORD

015072
015112
015114

AND

15:07

PAGE 59

SEQ 0058

PROGRAM CONTROL WORDS

;THIS

1S FILLED WITH =1

SUNIT 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 UNIT TO BE SELECTED
;UNIT NO. SELECTED
;ERROR FLAG

;SAVE DRIVE TYPE REGISTER
;FOR COMPAR]SON IN DRIVE
AND RH INIT TEST

CLEAR

;FOR COMPAR]SON IN DRIVE

CLEAR

:SAVE SERJAL NUMBER REGISTER
;AND RH INIT TEST

JUSR WHICH GAVE

015132

000000

PCJSR:

;SAVE PC OF

015134
015136

000000
000000

ATTENT:
TOTALAT:

;ATTENTION BIT

015140

000000

TMPILL:

; TEMPORARY JLLEGAL FUNCTION

015142

000000

TSECC:

015144

000000

TESDITE:

;TOTAL

2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2826
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842

28-MAR-79 09:16

30A(1052)

CZRJIHD.PIY

MACY11

000000

TAGDTE:

TEST

ERROR

FOR PRESENT UNIT

ATTENTION BITS

;FLAG TO SAY IF ECC TEST OR NOT

;WHEN =177777 11 IS AN ECC TEST
;WHEN =0IT IS NOT AN ECC TEST

:FLAG TO SAY IF DRIVE TIMING ERROR OR NOT

JWHEN = 177777 1T
;WHEN = 0

015146

THE

TEST

IS A DTE

TEST

IS NOT A DTE

; TEMPORARY TAG USED
;ERROR TEST

IN DRIVE

TEST

TIMING

24=MAY-79

ADDRESSES

15:07

5
PAGE ¢V

SEQ 0059

:TABLE OF COMMAND FUNCTIONS FOR RHCS

D
o
il
ol
e
i
il
i
o
s
il
D
D el
el
D
i

—- Q000 NNNNO
OO N NN
oo o rNNOOSTT
OO
NOO

;THEN "'60"" BIT
elolalolélololalolelalolelololels
o]

212

FUTABL:
NOPERA:
UNLOAD:
RECAL]:
DCLEAR:
RELEAS:
SERCH:
WRCHEK:
WR(CHDT:
WRIDAT:
WRIFOR:
READAT:
REFOR:
SEECOM:
OFSETC:

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

RETCL:
PKACK:
READIN:

ILLEGL:

HAS TO BE

SET

0
2
6

;NO OPERATI]ION
:UNLOAD (STAND BY)
;RECALIBRATE

12
30
50
52
60
62

:RELEASE (DUAL~PORT OPERATION)
;SEARCH COMMAND
;WRITE CHECK DATA
:WRITE CHECK HEADER AND DATA
;WRITE DATA .
:WRITE HEADER AND DATA (FORMAT)

;CRIVE

CLEAR

;READ DATA

;READ HEADER AND DATA

4
14

; SEEK COMMAND
;OFFSET COMMAND

2?2

;PACK ACKNOWLEDGE

;RETURNTO CENTERLINE

:READ IN
;COMPUTED JLLEGAL FUNCTION

20
.WORD

;DATA BUFFER FOR READ WRITE

BLKW

274.

:WRITE FROM THIS BUFFER

015220
016264

000422
000422

WRFROM:
REINTO:

017330
017332

000000
000000

TSTNM:
FIRST:

0
0

;TEST NUMBER
;1F ZERO witL TYPE HEADER

017334

000000

RH70:

;FLAG = 1 FOR RH70 CONTROLLER

017336

000000

SILOSZ:

.WORD

;TABLE

.BLKW

002
020
200

004
040

ATABLE:

274,

READ INTO THIS BUFFER

;1F ONES WILL NOT TYPE HEADER

JFLAG = 0 FOR RHIN

sRH SILO SIZE

FOR ATTENTION BITS

JATTENTION

—_O0
O =0

2853
285¢
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895

30AC1052)

;FUNCTION EQUATES

(O R N
SV LU LU LV LU LV AV LU LV LV LV LV LV VU LV V)
il
)
il el
il
il il el
il
el e
RN NN ) e

2843
2844
2845
2846
2847
2848
2849
2850
285
2852

MACYT1

TABLE

BYTE

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

[
X e

CIRJHDO ,RPO4L/S/6 DSKLS CTRLR?
28-MAR-79 09:16
CIRJHD.PIY

CIRJIND.PIN
2896
2897
2898
2899
2900

2901
2902
2903
2904

2905
2906
2907
2908

2909
2910
2911
2912
2913
2914
2915
2916

2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2936
2935
2936
2937
2938
2939
2940
2941
2942
5943
944

28-MAR-79 09:16

MACY1Y

30A(1052)

24=-MAY-79

Q17350
017356
017360

012737
000402
005037

017364
017364

000005

017366
017372
017374
017400
017402

012706
005026
022706
001374
012706

001100

017406
017414
017422
017430
017436

012737
012737
012737
C12737
012737

057530
000340
061746
000340
062516

000020
000022
000030
000032
000034

017452
017460

012737
012737

062606
000340

000024
000026

017444

012737

177777
015120

«++PROGRAM SETUP & SETUP TESTSeee

#-1 @FSELECT
START
SNSELECT

;SELECT UNIT
;00 NOT SELECT UNIT
;NORMAL RUN

RESET
INITIALIZE THE COMMON TAGS
;. CLEAR THE-COMMON TAGS (SCMTAG)=~AREA
LSBTTL

001140

001000

000340

005037
005C37
112737
012737
012737

0C1212
001214
000001
017504
017512

017520
017524
017532

017560
017546
017554

013746
012737
012737
012737
022777
001012

000004
017560
177570
177570
177777

017556
017560

000403
012716

000002
012737
012737
012637

BEGINZ2: MOV
BR
BEGIN:
(LR

15
PAGE 61|

START:

017466
017472
017476
017504
017512

017564
017566
017574
017602

015120

15:07

000036

001115
001106
001110

000004
001140

001142
161364

017566
000176
000174
000004

001140
001142

000000
057442
06050%

177776
175122

MOv
#SCMTAG,RE
;FIRST LOCATION 1O BE CLEARED
(LR
(R6) ¢
;s CLEAR MEMORY LOCATION
CmP
FSWR,R6 ; ;DONE?
BNE
.6
;.LOOP BACK IF NO
MoV
#STACK,SP
;:SETUP THE STACK POINTER
;oINITIALIZE A FEW VECTORS
MOov
#$SCOPE,9#10TVEC ; ;107 VECTOR FOR SCOPE ROUTINE

MOv
#340,a#10TVEC+2 ;;LEVEL 7
MOov
#SERROR,QNEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
MOv
#360,90EMTVEC+2 ;;LEVEL 7
MoV
#STRAP ,Q#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#3640, TRAPVEC+2 ;LEVEL 7
MOV
MOV
¥SPWRDN,a#PWRVEC ;;POWER FAILURE VECTOR
MOV
#340,2#PWRVEC+2 ; LEVEL 7
(LR
STIMES
;o INITIALIZE NUMBER OF ITERATIONS
CLR
SESCAPE
;:CLEAR THE ESCAPE ON ERROR ADDRESS
MOvB
#1,SERMAX
:;ALLOW ONE ERROR PER TEST
MOov
¥.,SLPADR
s INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
¥. SLPERR
.. SETUP THE ERROR LOOP ADDRESS
:;SI2ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR [T IS
;;EQUAL TO A "'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
SFERRVEC,-(SP) ;;SAVE ERROR VECTOR
MOv
MOov
#64S QNERRVEC
;;SET UP ERROR VECTCR
::SETUP FOR A HARDWARE SWICH REGISTER
#DSWR,SWR
MOV
#0DISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER
MOV
::TRY TO REFERENCE HARDWARE SWR
¥-1,3SwR
(mp
BNE
66%
;;BRANCH IF NO TIMEOUT TRAP OCCURRED
:AND THE HARDWARE SWR IS NOT = :;BRANCH [F NO TIMEOUT
65%
B8R
::SET UP FOR TRAP RETURN
¥65%, (SP)
MOV
64%:
RTI
65%:
MOV
NSWREG, SWR
;:POINT TO SOF TWARE SWR
#DISPREG,DISPLAY
MOV
66%:
MOV
(SP)+ ,@#ERRVEC
;;RESTORE ERROR VECTOR

2945

3007
[A

2948
2949
2950
2951

017606
017614
017622

017626

012737
012777
004737
005737

017332

STARTA: MOV
MOV
JSR
TSt

#0,PS
#RPVECT,aRPVEC
PC,e¥8TKINT
a#fIRST

;SET PROCESSOR STATUS 10 0
;THIS IS FOR UNTIMELY DRIVE INTERRUPTS
INITIALLIZE 1Ty KEYBOARD
;1S THIS FIRST TIME ROUND ?

SEQ 0060

CIRIHDO,RPOL/S/6 DSKLS CTRLR2

29%2
2953
2956
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972

2973
2976
2975
2976
2977
2978
2979
2980
2981
2982
2983
2986
2985
2986
2987

2988
2989
2990
2991
2992
2993
2994
2995
2996

2997
2998
2999
3000
3001
3002
3003

3004
3005
3006
3007

017632
017634

001001
000402

017636

000137

020660

017642
017642
017646

104401
000435

017650

2%:

;;253:

64%:

104401
000615

;;273:

66%:

104401
000433

(C20104

020172
020172
020176

104401
000436

020200

020274
020274
020300

000431

104401

020302

104401
000427

020372

020450
020450
020454

104401
000427

020456

020542

020574
020574

104401

020602

000427

76%:

5679‘:

104401
000415

020600

;;775;

020534
020534
020540

020666
020672
020674
020702

LASCIZ

TYPE

L67%

669%

JASCIZ

TYPE

::TYPE

,69%

ASCIZ STRING

DEC=-78/<15><12>

;:TYPE ASCIZ

STRING

68%
::GET OVER THE ASCI2
<195><12>/ALL DCL'S UNDER TEST MUST BE LOCKED ON CORRECT PORT/
L7118

70%
<15><12>/1F

72%

::;TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
CHANGES ARE REQUIRED ON PORT SWIT(CH, A CY(LE UP/

s TYPE ASCIZ STRING

::GET OVER THE ASCIZ

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

BR
JASCIZ

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

758

::TYPE ASCIZ STRING

TYPE

;;TYPE ASCIZ STRING

B8R

JASCIZ

TYPE

JASCIZ

TYPE

76%

::GEYT OVER THE ASCIZ

<1901/ etennsnensnenersnnenrrennssnvenseesnnnnnee/

,79%

78¢%

<15><12>/1F

;s VYPE ASCIZ

STRING

::GET OVER THE ASCI12Z

THIS 1S NOT DONE, ERRORS WILL RESULT ON/

.81%

;:;TYPE ASCIZ

5621$:

80%
:;GET OVER THE ASCIZ
<15><12>/'NED' TESTS (121 8 136,/

STRING

TYPE

,83%

;:TYPE ASCIZ STRING

829%

SND1:

MOV

#-1,9#F]RST

LSBTTL

GET VALUE FOR SOt TWARF SWITCH REGISTER
TS7
T 1Y
::ARE WE RUNNING UNDER XXDP/A(CT1?
BNE
6469
; :BRANCH IF YES

JASCIZ

;:GET OVER THE ASCI2

<150<12>/trsennsnenensanersnennastarnsnestntestnnense/

82%:

012737

005737
001006
023727
001005

177777

017332

000042
001140

000176

= (IRJH=D?

:;GET OVER THE AS(CIZ

<15><12>/REVISION DATE:

7T I 4.1

B8R

:DON'T TYPE HEADER ]F NOT
;TYPE HEADER JF SO

BR
JASCIZ

::B83%:

020660

,659%
s TYPE ASCIZ STRING
648
:;GET OVER THE ASCIZ
<155<12>7RP04/5/6 DISKLESS CONTROLLER TEST = PART

%6;15:

%;7551

020364
020364
020370

TYPE
BR
JASCIZ

B8R
JASCIZ

;éZSS:

SEQ 0061

8#5ND1

;5293:

PAGE €2

JMP

BR
JASCIZ

68%:

1%
29

TYPE

020010

020076
020076
020102

15:07

BNE
BR

TYPE

017750

020002

020002
020006

24-MAY-79

INITIALIZE THE COMMON TAGS

1%:

017742

017742
017746

30A(1052)

MACYT1

(mMpP

BNE

SWR,#SWREG

65%

sNEXT TIME DO NOT GIVE HEADER

;s SOFTWARE SWITCH REG SELECTED?

;:BRANCH IF NO

[

CZRIHDO,RPO4/S5/6 DSKLS CTRLRZ
CIRJHD.P
28-MAR-79 09:16

3008

3009
3010

3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029

020704

MACYT1Y

30A(1052)
GET VALUE

104406

020706
020710

000403
112737

020716
0207264
020726

GTSWR
BR
MOvVB

000001

001134

2%::

032777
001403
012737

010000

160214

000001

017334

RH70CK: 811
8tQ

020734
020740
020742
020746

005737
001434
1064401
000422

015120

021014
021014
021016
021022
021026

104412
042716
011637
012637

020716

3%:

020750
6649

177770
015112
015122

65%
#1,3A0108
#SW12,85WR
s

SEQ 0062

:.GET SOFT-SWR SETTINGS

::SET AUTO-MODE

INDICATOR

:LOOK TO SEE IF USING RM70
;IF SW12 = 0, SKIP NEXT

MOV

#),3#RHT70

187
BEQ

SFSELECT
TST1

;200 START?
;60 1O FIRST TEST 'F

B8R

64%

:;GET OVER THE ASCIZ

TYPE

::253:

24=MAY-79
15:07
PAGE €3
FOR SOFTWARE SWITCH REGISTER

JASCIZ

RDOCT

BIC

MOV
MOV

,65%

J1F SW12 = 1, CU IS AN RM70

::TYPE ASCIZ STRING

STARTING FROM 200

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

#177770,(SP)

(SP) ,8fUNIT
(SP)+ ,afUNITSL

sONLY KEEP LAST 3 BITS
:SAVE UNIT
;SAVE UNIT

T0 BE
10 BE

TESTED
TESTED

[N e

CZRJIHDO,RPO4L/S5/6 DSKLS CIRLR?
CIRJHD.PWY
28-MAR-79 09:16

3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085

24-MAY-79

15:07

S
PAGE 64

GET VALUE FOR SOFTWARE SWITCH REGISTER

SEQ 0063

;eTEST

REFERENCE EACH REGISTER

REFERENCE EACH REGISTER BY A MOVE INSTRUCTION

021062

OCO0O0

021032
021034
021042
021046
021054

OO00O0O
— ad rd et (O
NNV
O
NNNNO
o

Ry
R
R Y]

3052

3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069

30AC1052)

Ry
R R R R Y

WRORON)
—NNN

3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051

MACY1Y

000427
021224
02122¢
021230
021232
021234

021240
021246
021252
021256
021262
021266

021316
021316
021320
021322
021324
021330
021360
021360
021366

012746

000001
001000
000001
061756

001212

021110
000024
014746

000004

TST1:

017330
000030

1%:

000006

000004

177776

001200

020000

160002

2$%:

;;gss:

64%:

012737
005037
005777
005237
104401

000413

000420
005726
005726
104401

000413

012737
012737

MOv
MOV
MOV
MOV
DEC

#2$ ,ANERRVEC
#24 RO
#RHDB,R1
a(R1)+,R?
RO

TYPE

,65%

64%

MOV

#ADDMOD ,-(SP)

JASCIZ

4%:

021320
017334

000004

3%:

173542
017334
021270

;:27&:

66%:

TRP:
021332
;;gss:

061746
000006

000030
000004

648

RTN:

SAVED

:SET UP FOR BUS TIMEOUT
:THERE ARE 24 REG TO TEST
:R1 NOW HAS ADDR OF ADDR Of
:READ HARDWARE REG.
:COUNT DOWN

FIRST REG.

::TYPE ASCIZ STRING

::GET OVER THE ASCIZ

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

:GET READY TO TYPE

ADDRESS /

STARTING ADDKESS

:0F "'CHANGE OF BASE ADDRESS'' ROUTINE

TYPOC

044712

:NO REGISTERS ARE

1%
:BRANCH IF 24 NOT DONE
3%
:BRANCH IF 24 DONE
#ERRVEC+2,3#ERRVEC ;RESTORE TRAP CAT(HER
(SP)+,(SP)+
;CLEAN STACK
=2(R1), $TMP1
:STORE FAILING REG ADDR
:REGISTER NON EX]STANT
15
#SW13,35WR
:INHIBIT ERROR PRINTOUT ?
4%
:BRANCH IF YES

1064402

000000
000137

#1,8TIMES
;.00 1 ITERATION
#STACK, SP
;SET UP STACK POINTER
FTINO,@#TSTNM
;THIS SAVES TEST NUMBER
#REGSA1 ,Q#EMTVEC;ERROR VECTOR SO THAT!

BNE
BR
MOV
(Mp
MOV
ERROR
BIT
BNE

021146

00020¢

SCOPE
MOV
Mov
MOV
Mov

HALT
JMP

afSEOP

:STOP TO FORCE THE RESTART!
:6G0 TO END OF PROGRAM ~-=---cccccccc-- >

MOV
CLR

AT 28
RH70

sINITIALIZE VECTOR
;INIT RH INDICATOR ++ (.W

L67%
66%

;s TYPE ASCIZ STRING
;;GEYT OVER THE ASCI12

:ADDRESS RPBAE (RH11/RH70?)
:FOUND AN RH70

181
INC

aRHBAE
RH70

JASCIZ

<15><12>/RH70 CONTROLLER

TYPE
BR

BR
181
1871
TYPE

RTN
(SP)+
(SP)+
.65%

:SET MASK AND GET OQUT
:ADJUST THE STACK
;;TYPE ASCIZ STRING

6498

MOV

#S$ERROR,Q#EMTVEC;RESTORE ERROR VECTOR

MOv

NERRVEC+2,QNERRVEC ;RESTORE TRAP (AT(HER

JASCIZ

<195><12>/RHY1

:;GET OVER THE ASCIZ

CONTROLLER

;SO THA1 REGISTERS ARE SAVED

CIRJHDO,RPOL/5/6 DSKLS CTRLRZ
CIRJHD.PIN
28-MAR-79 09:16

MACYY1

3086

3089
3090
3091
3092
3093
3094
3095
3096
3097

021374
0214u0
021404
021412
021416
021426
021426
021434
021436

004737
005037
013777
005237
032777
001367
022737
001031
005037

046116
017336
017336
017336
000100

173334

000406

017336

3099
3100
3101
3102
3103
3106
3105
g}gg

021450
021456
021464
021470
021476
021504
021512
021520

062737
062737
005037
012737
062737
062737
012737
004737

000400
000400
032766
015220
000404
000404
052737
046116

3108

SEQ 0064

;FIND THE SILO SIZE

gggg

3098

30A(1052)
24=-MAY=79
15:07
PAGE €5
T
REFERENCE EACH REGISTER

021442

012737

032320

015220

138:

173330

032326

032774
032774
032774
033024

JSR
CLR
MoV
INC
BIT
BNE
CMP
BNE
CLR

PC,
S1L0SZ
S1LOSZ,
S1L0S2
VIR,
138
#262.,
14%
VAR1+2

ADD
ADD
CLR
MOV
ADD
ADD
MOV
JSR

#256.,
VAR2+¢?
#256.,
VAR2+2
VAR3+?
FWRFROM,
VAR4G+2
#260.,
VARG+?
#260.,
VARGLe?
#52737,VARS
PC,
ancLDISK

MOV

032326
032326

149 :

ITS A RH70C MODIFY TESTS S50 AND 51
aMCLDISK
SRHDB

SRN(S2
S1LOSZ

SURFROM,VAR2+?2

;:CONTROLLER CLEAR
;CLEAR SILO COUNTER
;LOAD SILO
:KEEP COUNT
:1S THE SILO FuLL?
:BRANCH IF NO
;RH70C?
:BRANCH IF NO
:VAR1 IN TEST 50

;VAR2 IN TEST 50
:VAR3 IN TEST 51
VARG IN TEST 51

:VARS IN TEST 1
;CONTROLLER CLEAR

CIRIHDO,RPOL/S/6 DSKLS CTRLR2
CZRJHD . P
28-MAR=-79 09:16

S
PAGE 66

SEQ 0065

REFERENCE EACH REGISTER

TeTEST 2

RHCS2-CONTROL AND STATUS 2

000001
001000
000002

001212

i§12:

017330

SCOPE
MoV
MOV
MO\

#1,8T1MES
#STACK,SP
STINO,S#TSTNM

::D0 1 ITERATION
TRESET STACK
:THIS SAVES TEST NUMBER

-«CHECK TO SEE IF PROGRAM 1S RUNNING WITH AN RH70
021546
021552
021554
021560

005737
001402
000137

017334

021560
021566
021572
021574
021576
021600

013737
004537
020017
000000

014754

151
8EQ

021602

045664

308
021574

JMP

8fRH70
308

:TEST FOR RH70 CONTROLLER
“1F FLAG = 1, SKIP THIS TEST

15713

TJUMP TO NEXT TEST =eemccmcccccocnocoae-

“1F FLAG = 0, DO THIS TEST

MOV

SIRHCS2,amun=2

UN:

20017
JWORD
ERROR
RTS

O
1
PC

XXX ZZ

XX ZXZEEERREEAARAEAARARAARRSRRRRRdR
R RRRRRRRRRRRARA

104001

000207

JSR

RS.a#B11sT

-TEST BITS !N REGISTER

“ONLY THESE BITS ARE TEST READ/WRITE
“ADDRESS OF REG. BEING TESTED
"IN CORRECT DATA RECE!VED
"RETURN T0 BLT3 ROUTINE

NOWVWES
NN =2 OOV ~NO NS

WM AN L AN N AN A NN PO NI PO NI NI POINI NI N

021524
021526
021534
021540

THIS PARTIALLY TESTS RMCS2 TO ENABLE DETERMINATION
OF THE NUMBER OF DRIVES PRESENT

TeTEST 3

PARTIAL TEST

RHAS: FOR UNIT NUMBERS PRESENT

':l".""'"'"'"'""""""""""""'l'l'ltll"tt""t"t

021602
021604
021612

3148

021620

~NO NS W

(W XV IV IV IV LV LV IV ]

—t

)

crdd oand

[PV
VIV
TV IV

3146
3145
31646

021624
021630

021634
021640
021642
021646
021652

000001
000003

014774
177777
001126
001126
001124
045662

1ST3:

SCOPE

MOV
MOV

#1,STIMES
PTINO,FTSTNM

;.00 1 ITERATION
;THIS SAVES TEST NUMBER

MOV
MOV
Mov
1518

S#RHAS R1

:R1 HAS ADDRESS OF RHAS

aR1,a#SBDDAT
a#$BDDAT

;TEST DATA

BEQ
CLR

MOV

ERROR

#-1,3R1
1874

a#$GDDAT
R1,9#REGADR
1

;THIS CLEARS RHAS
;BRANCH

(SURPRISED.)

GOOD

:GO0D DATA
;FAILING REG. RHAS
;RHAS DOES NOT CLEAR
;WITH ONES MOVED

INTO

s e e

-t

15:07

':'"'"'0"""'""l'"""""!"""""'Q"."."".'.'.""

b (=}
NN =000 ~JO NS NN —=O 0

24=-MAY-79

i
D

i AN N N

el
o
D

e WM W

o
D

G A

D i
i

)

d i

d il

L L Al A Ll Ll L U A L

U L A
Ul L L G

d e

30AC1052)

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

(V] W

puiN

MACY11

i
P

b =D d

CIRIHDO,RPO4/S5/6 DSKLS CTRLR?
CZRJHD.PI
28-MAR-79 09:16

CIZRJIHDO,RPOL/S/6 DSKLS CTIRLR?
CIRIND .PYY
28-MAR-79 09:16

MACYTY

3?;(1052)

24-MAY-79 15:07 PAGE 67
PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT

SEQ 0066

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

e N

SeTEST &

U AW

021654
021656

D e

i U

021664
021666

3
(V]

000 00O o

i Ud L

el e

D e

i U L Ll Ul U U A

U L

U A

L A8 U L L A

021672
021700
021702
021706

O 0o

el
el

s Lnd AU A

D el
—

Lol A

TEST FOR DRIVES PRESENT USING RHAS AND RH(S?

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

000004
012737
000005
004737

032777
001026
106401

000423

000001

020000

014774
0147564

022000
02200¢
022006
022010
022012

012714
005212
005300
001373
11137

177777

022016

105037
105711
001402

015137

000137

022416

032777
001402
000137

020000

022100
022100
022104

000436

104401

02210¢

022312
022312
022316

104401

000435

022210

022320

022412

000137

064712

#1,8T1MES

JSP

PC,afSTKINT

BIT

#SW13,aSWR
63

BNE
TYPE
BR

LASC1Z

Mov
Mov

CLR

1%:

157100

2%:

3%:

1678
66%:

;1698
68%:
¥
[ENAL
70%:

::D0 1 ITERATION
;START WITH AN INIT
sINITILIZE

TTY KEYBOARD

;INHIBIT ERROR TYPEOUT
;SKiP NEXT IF SO

,65%
643

:;TYPE ASCIZ STRING
::GET OVER THE ASCIZ

a#RHAS R

:R1

<19><12>¢15><12>/1L00KING AT RHAS = DRIVES PRESENT/

HAS ADDR. OF

RHAS

SN#RHCSZ,R2
aR?

;R2 HAS ADDR. OF RH(S?
;CLEAR RHCS?

S/RHER1 RS

;R4 HAS ADDR. OF RHER!

#8.,R0

; COUNT

INC
DEC
BNE
MOovB

#-1,aR4
aR?

:MOVE ERRORS INTO RHER]
:INCREMENT UNIT NO.

1%
SR1,aNTOTALAT

(LRB
1518

SATOTALAT#
aR1

;BRANCH IF 8 NOT DONE
;SAVE TOTAL ATTENTION
;USED IN DRIVE CLEAR TEST
:CLEAR UPPER BYTE
;TEST FOR ANY DRIVES PRESENT

BIT
BEQ
JMP

#SW13,3SWR

3%
SELTST

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

T1YPE
BR

,67%

;:TYPE ASCIZ STRING

Mov

BEQ
JMP

;. 73%:
72%:

022412

SCOPE

mov
RESET

Mov
MOV

022754

022054

000441

015136

104401
000412

104401

:165%:
64%:

000010
014760

022046
022046
022052

022202
022202
022206

157260

021710

013701
013702
005012
012700
013704

022032
022040
022042

1S14:

060506

021756
021756
021762
021766
021770
021774

022022
02202¢
022026

001212

LASCIZ

TYPE

ASCIZ

2%
XE2

66%

; COUNT

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

0OUT?

::;GET OVER THE ASCIZ

<15><12>/N0 DRIVES-RHAS=0/

,69%

689%

;s TYPE ASCIZ STRING

;:GET OVER THE ASClZ

<15><12>/WRITING ONES

INTO FRROR REGISTER #1

FOR ALL UNIT NUMBERS/

LASC1Z

AR
70%

;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

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

TYPE

LASCIZ

L 138
72%

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

<15><12>/10 LOOP ON THIS TEST WO PRINTOUT SET SWITCHES '3, B8 & ¢/

oMP

ANSEOP

;60 OQUT===mmmmcemmeccccccccocaaoacaans >

TYPE

IN THE ATTENTION REGISTER SO ABORT PROGRAM

[N an]

3214
3215
3216
3217
3218
3219

3220
3221
3222
3223
3224
3225
3226
3227
3228
gggg

3231
3232
3233
3236
3235
3236
32%7
3238
3239
32640
3241
3242
3243
32464
32645
3246
3247
3248
3249
3250
3251
3252
3253%
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3266

3265
3266
3267

ggbg
6

MACY11

30A(1052)
14

26-MAY-79
15:07 PAGE &8
TEST FOR DRIVES PRESENT USING RHAS AND RHC(S?

SEQ 0067

;*SET UP UNITS TABLE
022416
022416

022422
022426
022432
022434
022436
022442
022444
022450
022454
0226460

012700
012703
012723
005300
001374
012703
005005
005037
012700
011137
006037

022464
022466
022472
022500
022502
022510

103120
010577
022777
001503
022777
001477

XE2:
2%:

000010
015072
1177777

3%:

015072

BNE

#8. RO
#UN]TS,R3
#-1,(R3)¢
RO

3%
;gNITS.RS

s COUNTER
;POINTER
;PRESET BLOCK
;LOUNT

CLR

8/NOUNIT

sNO, OF UNITS PRESENT

aNSTMPO

;SET CARRY IF ONE

MOV
MOv
MOv
DEC
MOv
CLR

015114
000010
001176
001176

MOV
MOv
ROR

8CC

172262
024020

172302

020020

172272

Mov

cmp
BEQ
CMp
BEQ

TO ALL ONES

;BRANCH IF 8 NOT DONE
;POINTER

#8.,R0
aR1,3/8TMPO

; COUNTER
; TEMPCRARY STORAGE

0 BIT

5%
RS ,aRHCS?
#24020,3RHDT
6%

: INSERT UNIT NUMBER
;1S THIS A DUAL PORT RPO& ?
; TYPE DRIVE NO. IF SO

:TYPE DRIVE NO.IF

#20020,aRHDT

;1S THIS A SINGLE PORT RPO4 ?
YES

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

022512
022520
022522
022530

022777
001473
022777
001467

022532
022540
022542
022550

022777
001463
022777
001457

024021

172262

020021

172252

024022

172242

020022

172232

CMP

#24021,3RHDT

;1S THIS A DUAL PORT RPOS5 ?

#20021,3RHDT
6%

;1S THIS A SINGLE PORT RPO5 ?
;TYPE UNIT NO. IF SO

BEQ
CHP
BEQ

(MP
BEQ
(MP
BEQ

#24022,aRHDT
6%

#20022,3RHDT
6%

;TYPE UNIT NO.

OUT

;1S THIS A DUAL PORT RP0O6 ?
;TYPE THE NO IF SO

;1S THIS A SINGLE PORY RPO6 ?
;TYPE THE NO IF SO

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

;*NO...1T°'S NOT AN RPO4/RPOS/RPO6 DEVICE

;S0 TYPE OUT THE DEVICE TYPE

022592
022556

104401
000410

022600
022600
022602
022604
022610

010546
104405
104401
000406

022626

022626
022632
022634

022640

017746
104402
104401
000422

022560

TYPE

::65%:
6469

022612

172150

::67%:
66%:

022642
;699

,659%

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

BR
ASCIZ

649

MOV
TYPDS
TYPE

RS,-(SP)

:GET READY TO TYPE UNIT NUMBER

L67%
66%

::TYPE ASCIZ STRING

ASCIZ

MoV
1YPOC
TYPE

LASCIZ

<15><12>/UNIT

RHDY

aRHDT,=(SP)

NUMBER

;:GET OVER THE ASCIZ

;GET READY TO TYPE RMDT

.69%
;:TYPE ASCIZ STRING
68%
.. 0BT OVER THE ASCIZ
7 = NOT AN RPO4/RPO5/RP0O6 DEVICE !!?

aXa)

CIRJINDO,RPOL/S576 DSKLS CTRLRZ
CIRIHD.P
2B-MAR-79 09:16

3290

022706
022706
022710
022712
022716
022720
022722

000407
010523
104401

010546
106405
005237

6%:

001223
015114

5%:

005737
001403
013737

—
—

—

——

[V, 1V, ]

s O

— et
g

—

b
e
—

022734
022742
022750

022726
022730
022732

022754
022760
022762

68%:

OO0

3270
32
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289

30A(1052)

Mov
TYPE
MOov
TYPDS
INC

INC
DEC
BNE
MOV
Mov

DEC

SELTST:

015120
015122

D
6
24=-MAY-79
15:07
PAGE €9
TEST FOR DRIVES PRESENT USING RHAS AND RH(S?2

015112

1§71
BEQ

Mov

R5,(R3)+

LSCRLF

SEQ 0068

;NO RP04/5/6 FOUND SO BRAN(CH

RS ,=(SP)

;PUT DRIVE NO. ON STA(K

@#NOUNI T

;INCR TOTAL NO. OF UNITS

RS
RO

: "RHCS2' UNIT ADDRESS
;:DRIVE COUNTER DOWN ONE

SFUNITS,@WUNIT

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

;TYPE

DRIVE

NO.

;TEST AND DO NEXT UNIT

IF 8 NOT DONE

@#NOUNIT,@#NUNIT
[ SAVE NO. OF UNITS
;1F NUNIT = O THEN ONLY ONE UNIT
@/NUNIT
s1F NUNIT > O THEN MORE THAN ONE UNIT

SFSELECT
:STARTING ADDRESS 200 ?
1STS
;BRANCH IF STARTING FROM 200
SNUNITSL,3#UNIT ;CHANGE UNIT NUMBER TO SELECTED ONE

MACY11

CIRJHDO,RPOL/S/6 DSKLS CTRLRZ
CIRJHD.PI
28-MAR-79 09:16

CIRIHDO,RPO4/S5/6 DSKLS CTRLR?
CIRJHD P
28-MAR-79 09:16
32N
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301

3?A(1052)

264=MAY-79

15:07

PAGE

SEQ 0069

TEST FOR DRIVES PRESENT USING RHAS AND RH(S?

cratRRRERAROCLERERYRORROERRRRRCRRORROSOORRROROSORRRRNCORARRRORRNGROERRRRORANORERTRTYS

SeTEST 5

TYPE

SERLIAL NUMBER AND DRIVE

READ SERIAL
TYPE

17 OUT

TYPE

NUMBER REGISTER AND DRIVE
AND PROCEED

TYPE REGISTER

TO LOOP HERE SET SWITCH 8 AND THIS TEST NO AND RESTART
';""""""""'""""""""'"""".'Q""""'""""'

022770
022772
023000

000004
012737
012737

000001
023450

023006
023012

004737
005037

046116
015134

001 2 1 2
001 1 0 6

1$15:

SCOPE

MOV
MOV

M1 ,STIMES

;:00 T

ITERATION

#1$,SLPADR

::SET

JSR
CLR

PC,afCLDISK
SFATTENT

;FILL UNIT NO.
;CLEAR

SCOPE LOOP ADDRESS

NN —

023016
023022
023024
023030
02303¢
023036

005737
001022
012700

015112

005737

015120

023042

001012

122710
001015

A2 Lt g L L L L Lt L W A
A4 U L U e L L Lt A A N M
B B U U L L
L W AN
= OOV
NYO N NN
—

(MPB
BNE
1S1

SFUNIT
108
#41,R0
M1, (RO)
10$
SNSELECT

BNE

108

181

BNE

000041
00001

Mov

=S OOV

NO NS

NN—D_‘—.—‘—‘—O_‘—J-‘

;1S UNIT #0 NEXT

IN THE UNITS TABLE ?

;1F NOT, TEST THIS UNIT
;1F SO, CHECK THE LOAD MEDIA LOCATION
;WAS 1S AN RP04/5/6 ?

:NO... GO AHEAD AND TEST UNIT #0
:WAS UNIT #0 SELECTED ?

;CIE. WAS IT A 210 START ?)
:1F

;*INCREMENT THE UNITS TABLE

SO...TEST UNIT #0

TO NEXT DRIVE

(IF ANY)

;* & DECREMENT THE ''NOUNITS'' PRESENT (TO BE TESTED)

177777
d
—

Mov

1S7

(MpP
BEQ

oSN

022710
001404
011037
005337
013700

023052
023056
023060
0230064
023070

—h

015072

PRV

012700
005720

\V AV,
AV )

023044
023050

leolele]

(VLW R AV IV IV LV IV TV 1V 1V )
(LW AV IV IV VRV VW LV IV IV ]

;*TEST FOR UNIT #0

MOV

10%:

DEC
MOV

NFUNITS,RO
(RO) ¢

;LOAD UNITS TABLE POINTER
JSELECT THE NEXT UNIT IN THE TABLE

#-1,(RO)

. 1S THERE ANOTHER TABLE ENTRY PRESENI ?
;1F NOT (LOC = =1) .,.MUST USE UNIT #0
;SET UP 10 BE THE UNIT UNDER TEST
:DECREMENT BECAUSE UNIT #0 WON'T BE TESTED
;RO CONTAINS THE UNIT UNDER TEST

108
(RO) ,@#UNIT
@#NOUNITS
asUNIT RO

; (DOUBLE INCREMENT THE POINTER)

:;Q""t'"'"""""""'"t""'t"".'lt't'""'.l'l""t"tt

;
:

CLR
(mp

BEQ

.
.
;2%

BEQ
BR
MoV

;

(MpP

:CLEAR RPO6 DEVICE TYPE FLAG
:DUAL PORT RPO6 ?
sYES...SET THE FLAG
:SINGLE PORT RPO6 ?
sYES...SET FLAG

#-1,34RP06

;SET

;DON'T SET THE RPO6 FLAG
THE FLAG

;ASSUME THE NEXT UNIT IS AN RPO4

;3%

9#RPO6
#24022,8RHDT
2%
#20022,aRHDT
2%

::!'!'t"""""""""'""'"l"l"l..ttl""""'l'l"""'l

023074

116037

017340

015134

MOvB

LE
(RO) ,@FATTENT
ATAB

;SET APPROPRIATE ATTENTION BIT

[l o

MACYT

31398
31399
3400
3401
3402

[
ey

NN
VIV VIV [V R

013746

104405
106401
000410

023174

017746

TYPE

;.659%:

:
649

015112

023154
;679
66%:

171604

023210

023230
023230
023234

0177466

171546

023236
023244
023246
023254

022777
001425
022777
001621

024020

171536

020020

171526

023256
023264
023266
023274

022777
001434
022777
001430

024021

171516

020021

171506

023276
023304
023306
023314
023316

022777
001443
022777
001437
000454

024022

171476

020022

171466

;. 69%:
68%:

15:07

PAGE

SERIAL NUMBER AND DRIVE

BR
CASCIZ
Mov

TYPDS
TYPE
BR
LASCIZ

.65%
649

;:TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

efUNIT , -(SP)

;UNIT NO. TO STACK

,67%

;;TYPE ASCIZ STRING

<15><12>/TESTING DRIVE NUMBER/

ARHSN,=(SP)

MOV

aRHDT , = (SP)

TypPOC

;TYPE

DRIVE

NO.

66%
;:;GET OVER THE ASCI2
<15><12>/SERIAL NO, = /

Mov
TYPOC
TYPE
BR

LASCIZ

SEQ 0070

TYPE

,69%
68%

<15><12>/DRIVE

::SAVE @RHSN FOR TYPEOUT
::60 TYPE--OCTAL ASC!ICALL DIGITS)
;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

TYPE

. :SAVE aRHDT

FOR TYPEOUT

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

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

(Mp
BEQ
(MP
BEQ

#24020,3RHDT
4%

;DUAL PORT RPO4 ?
;TYPE ASC]] MSG OUT

;TYPE

(Mp
BEQ
Cmp

#264021,aRHDT

;DUAL PORT RPOS5 ?

BEQ

(Mp
BEQ
CMP

BEQ
BR

#20020,3RHDT

5%
#20021,3RHDT
5%

:SINGLE PORT RPO4 ?
THE

MESSAGE

:TYPE THE MESSAGE
:SINGLE PORT RPQS5
;TYPE THE MESSAGE

#24022,3RHD1T

;DUAL PORT RPO6 ?

#20022,aRHD"
6%
%

;SINGLE PORT RPO6 ?
;TYPE 1T OuT
:ORIVE 1S NOT RPO4/5/6 - SO

:TYPE

THE

MESSAGE

;00 NOT TYPE ANY MESSAGE OuT

;=SHOULD NEVER HAPPEN AT TH]S POINT
;UNLESS DRIVE GOT SICK WHILE TESTING
;WAS

023320
023320
023324
023354
023354
023356
023356
023362
023412

104401

000413

023326

¥
BNAR
70%:

000435
104401

000413

4%:

023364

5%:
;738
72%:

[N PROGRESS

TYPE

BR
JASCIZ

1S
70%
<15><12>/DRIVE

;SKIP NEXT ONES

TYPE

138
72%
<15><12>/DRIVE

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

B8R
LASCIZ

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

24=MAY-79

TYPE

104602
104401
000410

104402

5??(1052)

023110

AN
(VR

O000O0

104401

000414

MACY

3347
3348
3349
3350
3351
3352
335%
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
1IN
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3138%
3384
3385
31386
3387
3388
3389
3390
3391
3392
3393
3394
3395
31396
3397

NN
VTV

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
CIRJHD. P
28-MAR-79 09:16

3403
3404

36409

3406
3407
3408

5409

3410

3411
3612

36413
36,14

023412
0236146

000416

0236420

0004613

023414

104401

MACYIY

6%:

Q23422

2758
74%:

023450

023450
023454

023460
023466

3?;(1052)

24-MAY-79
15:07 PAGE 72
TYPE SERIAL NUMBER AND DRIVE TYPE
BR

T1YPE

BR
ASCIZ

:SKIP NEXT

,75%

;:TYPE ASCIZ STRING

748
<15><12>/DRIVE

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

.-:"""""'0"""""'"t""Q"'"'i't""""'0."""""0'

005777
005777

017737
017737

171330
171322

171320
171310

1%:

015130
015126

181
Ts81

MOV
MOV

SRHSN
SRNDT

SRHON,3#SAVSN
ORHDT ,a#SAVDT

:READ SERJAL NO. AND DRIVE TYPE
,THESE TWO ARE TO HELP SCOPE LOOPS

;SAVE TO CHECK IF CLR RHCS?2 BIT 5 CLEARS ANY BITS
:SAVE TO CHECK IF CLR RH(CS2 BIT 5 CLEARS ANY BITS

Sea oM

(IRJHDO,RPOL/S5/6 DSKLS CTRLR2
(IRJHD.PYI
28-MAR-79 09:16

3419
3416
3417
3418
3419
3420
34621
3422
3423
3424
3425
3426
3427
3428
3429
3430
3432
3432
3433
3434
3435
3436
3437
3438
3439
3440
3441
3442

34643
3444
3445
3446
3447
3448
3449
3450
3451
3452

MA(CYI1]

30A(1052)
1

24=-MAY-79

TYPE

15:07

PAGE 73

SERIAL NUMBER AND DRIVE

SEQ 0072

TYPE

ceaANReReRCESRSRECRERROCEROIYCRSCEORREROECRETRORRORCSRRRRERRRNCROTRNREROSRRORNOERESROOROREOTOTOTS

CMECK MOL 10 BE LOW

SYTEST 6

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

i
i
P
B

023474
023476

023504
023510
023514

000004
012737
0064737
032713
001550

023516
023522

104401
000621

023524

023566
023566
023572

104401
000424

02357¢

023644
023644
023650

104401

000430

000006

046115
010000

024036

1$16:

669

66%:

;é29

KRR AR R

RR XS

ZERERZRRRREARE AN

SRR

#TINO,@#T1STNM
PC.a#CLDISK
#MOL ,8R3
1517

;THIS SAVES TEST NUMBER
:GIVE INITILIZE
;CHECK MOL IN RHDSI
:BRANCH [F MOL LOW

TYPE

,65%

::TYPE ASCIZ STRING

B8R

LASCIZ

JASCIZ

TYPE

MOV
JSR
811
BEQ

TYPE

;;275:

023652

SCOPE

;:25&:

023732
023732
023736
023740
023744

017330

XX 2222 X

649

RAAN

:;6GET OVER THE ASCIZ

<15><12>/DRIVE 1S ON LINE - MOL 1S MIGH/
,67%

669%

<15><12>/W]1T
,69%

;:TYPE ASCIZ STRING

:;GET OVER THE ASCIZ

STOP ON DRIVE

TO GET

IT OFF

LINE/

;:TYPE ASCIZ STRING

BR
JASCIZ

68%
::GEY OVER THE ASCIZ
<19><12>/PROGRAM WILL HANG TESTING MOL

BIT

#MOL ,aR3
1%

B8R
JASCIZ

70%
::GET OVER THE ASCIZ
<15><12>/G00D - MOL 1S NOW LOW . PROGRAM wiLL NOw Bt EXECUTED/

TILL MOL

IS LOW/

68%:

032713
001375
104401

000434

010000

1$:

025746

(o718

BNE
TYPE

,718

;CHECK MOL IN RMDSI

;BRANCH JF MOL IS HIGH
::TYPE ASCIZ STRING

CIRJHDO,RPOL/S5/6 DSKLS CTRLR2
CZRJMD, P
28-MAR-79 09:16

A
LI
3472
3473
3474

3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
349N
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
31504
3505
3506
3507
3508

30AC1052)
16

26-MAY=-79

(HECK MOL

15:07

T0 BE LOW

PAGE 7«

SEQ 0073

';""" teeeC R R ROROROERRRROCSRRRCROROCRRRRRORROPRRRORTRRRRORRORCCORORCORROPRRORCECRORPOTRTETY

SeTEST 7

3493
3454
3455
3456
3457
3458
34959
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470

MACY11

PACK ACKNOWLEDGE COMMAND TEST

THE PACK ACKNOWLEDGE COMMAND WILL BE LOADED INTO RHCST WITM GO
THEN ALL REGISTERS WiLL BE CHECKED

RH CLEAR WILL BE GIVEN
THEN ALL REGISTERS WILL BE

;:""" CERPCRNR

024036
024040
026044

000004
012706
012737

001000
000007

026052

004737

046116

024056

012777

000001

0246064

013777

015206

024072
026076
024100
024102

004037
014750
016264
000023

046616

02641064

052777

000001

024112

052737

1517

RN R R RO EE O R RO

RO RROPROERNORRRNOERNRERERCEOORRROROEOPOEPTOROETTT

SCOPE
Mov
mov

#STACK,SP
FTTNO,@FTSTNM

SRESET STA(K
;THIS SAVES TEST

JSR

PC,aMCLDISK

sINIT AND SET UP GENERAL REG.

170712

Mov

#DMD,SRHMR

:SET

170664

Mov

S#PKACK,8RHCS1

017330

;AND UNI1

NUMBER

DIAGNOSTIC MODE

;LOAD PACK ACKNOWLEUGE COMMAND INTO RHCS!

:SAVE REGISTERS FOR COMPARISON AFTER GO

JSR

RHW(
REINTO

RO,a#SAVER

19.

000100

CHECKED

:SAVE

. FROM
.10

;NUMBER OF

REGISTERS SAVED

170644

;GIVE GO TO PACK ACKNOWLEDGE COMMAND
;G0 TO PACX ACKNOWLEDGE COMMAND
#GO,aRH(S]
BIS

016314

;CHANGE SAVED REGISTERS TO EXPECTED VALUES
#VV,I¥REINTO¢30 ;SAVED RHDSI
BIS
;AFTER GO HAS BEEN GIVEN 10O PACK ACKNOWLEDGE COMMAND

024120
0246126
024126
024130

004037
0146750
015220
000023

:SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN
.BE DONE

JSR

046616

RHWC

RO,a#SAVER

WRFROM

19,

; SAVE

; FROM

;NUMBER OF

REGISTERS SAVED

;AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT

;OPERATION TWE UPPER BYTE OF RHAS WILL BE SAVED AS IS

026132

113737

016311

;S0 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

MOvB

015245

SFREINTO+25,8#WRFROM+25;SAVE UPPER RHAS

;COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE COMMAND
024140
024144
024146
024150
024152

024154
024156
026160

004037
016264
015220
000023
024160
024160
024200
013705

;WITH AFTER GO

047020

053130

1%:

JSR
REINTO
WRFROM
19,
1%
1%

RO,a#COMPAR

MOV

a#ERWORD RS

. COMPARE

;GOOD BUFFER
;TEST BUFFER
. NUMBER

:RETURN FOR ERROR
: SAME

;RETURN FOR GOOD COMPARISON
;GETTING READY

TO INDEX

[N
)

CIRJIHDO,RPOL/S5/6 DSKLS CTRLR?
CIRJHD PN
28-MAR-79 09:16

CIRJHDO,RPO4L/S/6 DSKLS CTRLRZ
CIRJNHD. P
28-MAR-79 09:16
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534

MACYY

30;(1052)
1

26-MAY-79

06050%
016537

PAGE 75

0264174

1064001

ERROR

024176

000207

RTS

SEQ 0074

[EST

RS,RS
.DOUBLE ERROR WORD
RHW(-2(RS) ,@#REGADR ;FAILING REGISTER ADDRESS

ADD
Mov

045662

PACK ACKNOWLEDGE COMMAND

024164
0246166

014746

15:07

; IMPROPER REGISTER (HANGE
AFTER PACK ACKNOWLEDGE
;WITH GO IS GIVEN
;RETURN TO COMPAR]SION

COMMAND

2%:

024200

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

;*TEST
A

0246200
026202
024206
026214
026220
024226

012706
012737
006737
012777
004037

024232

G00000

000004

001000
000010
046116
000001
050476

1ST10:

MAKE

XXX

XA R R

SCOPE

017330

MOV
MOV

170550

MOV

JSR
JSR

0
.S81TL
.SBTTL
LSBTTL

CURRENT

#STACK,SP
#TTNO,a#TSTNM
PC,a#CLDISK
#DMD ,aRHMR

RO,a#MAKECYL

——————

CYLINDER
AR

;RESET

= 0
R

AR RSl

STA(CK

;THIS SAVES TEST NUMBER
;INIT DRIVE
;SET DIAGNOSTIC MODE
:SUBROUTINE 10O GIVE A SEEK

; COMMAND FOLOWED BY AN INIT
;THIS SHUOLD CHANGE RHCC TO O

¢+ +D]AGNOSTIC CODEses

000004

30AC1052)

24-MAY-79

15:07

6
PAGE

TA?OI;A
.REM
THE FOLLOWING TESTS WILL ATTEMPYT

SEaQ 0075

TO CATCH THOSE BUGS WHICH FAULT

INSERTION HAS SHOWN US WE MISSED IN THE FIRST PART OF

THIS TEST.

THIS TEST WILL ASCERTAIN THAT THE ALL RH11 RFGISTERS WIIL
RESPOND 10 1.E. NOT CAUSE A NON-EXISTANT MEMORY ERROR WHEN ACCESSED

27 A "'TST" INSRUCTION.
SR ALEA2222222222

SeTEST N

20X

0202220002220

RRRRRRRRRRARdRRRdR]

BCTA LEGAL REGISTER RESPONSE TEST

000004
012737
012737
012777

026260

012705

014756

0246264
024272

013737
012737

000004

024300

012706

001000

024304
024306
024312

011502

010237
005712

045662

0246314
024320
026324
024326

062705
020527

000002
015010

0246330

104042

024332

013737

101767

000001

177777

000040

024330

S Onre

026234
026236
024244
024252

NN
—

:;"t""""'"'t"'t'"""""'"""""t"'..ti."""""t'

—_O0O
~N—0O
O~
—
HwNro

3535
3536
3537
3538
3539
3540
3561
3542
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570

MACY11

TST11:

SCOPE
MOv
MoV
MoV

1 ,STIMES
#TTNO,BFTSTNM
NCLR,aRHCS?

;D0 1 ITERATION
;THIS SAVES TEST NUMBER
;CLEAR RH11 CONTROLLER

MoV

#RHCST,RS

;RS=LIST POINTER.

MOV
MOov

SFTIMOT,$TMPO
#E00,a#T1MOT

;SAVE TIMEOUT VECTOR.
;SET VECTOR 10 EOO

L00:

MOV

FSTACK,SP

;SET

100:

MOV

(RS) ,R2

:R2=RH11 ADDRESS.

001176
000004

000004

R2,REGADR
(R2)

ADD

"2 ,RS

cMp
8LOS
B8R

RS,#RHEC?
100
000

£00:

ERROR

000:

MOV

$TMPO,a¥#TIMOT

000401

001176

MOV
1S1

STACK POINTER.

;DOES THE RH1Y

;UPDATE ADDRESS

;AT THE END OF LEGAL RH11
;NOPE
:YES! 6OTO 000.

;RESTORE TIMEOQUT VECTOR.

REGISTERS?

alal

CIRJHDO,RPO4/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD P12

3571

MACY11

L
6
30A(1052)
24-MAY-79
15:07
PAGE 78
IRR
BCTA LEGAL REGISTER RESPONSE TEST

SEQ 0076

CIRJHDO,RPOL/S5/76 DSKLS CTRLRZ
CIRJHD.P12
01-MAR-79 09:10

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

MACY11

30A(1052)
m

15:07 PAGE 79
2L-RAY=-T79
BCTA LEGAL REGISTER RESPONSE TEST

.REM %
THE FOLLOWING 6 TESTS WILL TEST THE BYTE LOGIC FOR THE RH11 REGISTERS
NO ATTEMPT IS MADE 70 DETERMINE IF ALL POSSIBLE DATA PATTERNS (AN BE
LOADED, ONLY THAT THE RH11 HARDWARE WILL ALLOW THE PROGRAM TO SELECTIVLY
MANIPULATE BYTES USING THE

FOLLOWING COMMANDS:

1). MOVE BYTE BOTH TO AND FROM THE WORD COUNT REGISTER

2). BIT SET

INTO THE WORD COUNT REGISTER.

3). BIT CLEAR INTO THE WORD COUNT REGISTER.
4
I SE XXX

XXX

TeTCST 12

XXX 222N
RdRRRdldRdR
Rt AR A RRdd)

BCTA MOVB LO BYTE

TO WC

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

024340
024342
024350
024356

000004
012737
012737

012777

000001
000012
000040

024364

012706

024370
024374
024400

013702
010237
012737

024406

005012

024410

SCOPE

MOV
MOV
MOV

#1,8TIMES
#TTNO,a#TSTNM

#CLR,IRHCS?

::D0 1 ITERATION
;THIS SAVES TEST NUMBER
sCLEAR RH11 CONTROLLER

001000

MOV

#STACK,SP

:SET STACK POINTER.

014750

MOV
MOV
MOV

RHWC ,R2
R2 ,REGADR
#377,8GDDAT

:R2=RH11 WC ADDRESS.

CLR

(R2)

;CLEAR RH11 WC.

MOVB

#377,(R2)
(R2),$BDDAT

JSET wC 10 LO BYTE.
;$BDDAT=ACTUAL WAS

CMP

$BDDAT,$GDDAY
15713

. COMPARE RESULTS
SNEXT TEST

045662

000377

001124

L02:

024414

112712

011237

000377
001126

024420
024426
024430

023737
001601

001126

1040446

1ST12:

102:
001124

MOV

BEQ
ERROR

:REGISTER ADDRESS TO REGADR FOR TYPING.
:$GDDAT=S/B.

Sea 0077

CZRJHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD P12

3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638

MACY11

N
6
30A(1052)
264=MAY=-79
15:07
PA GE &0
112
BCTA MOVB LO BYTE TO wC

222

2202222222022

TeTEST 13

SeQ 0078

2X2222R2222222202

2222222

2222022222022

BCTA MOVB H]l B YTE TO WC

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

024432
024434
024442
024450

000004
012737
012737
012777

000001
000013
000040

024456

012706

024462
024466
024472

013702
010237
012737

0245090

005012

024502

005202

024504

112712

024510

005302

024512

011237

001126

024516
024524
024526

023737
001401

001126

104044

15113

SCOPE

MOv
MoV
mov

#1,87T1MES

;.00 1 JTERATION

001000

MOov

#STACK,SP

;SET STACK POINTER.

014750
045662

Mov
Mov
mMov

RHWC,R?2
R2 ,REGADR
#177400,8GDDAT

:R2=RH11

;$GDDAT=S/8B.

CLR

(R2)

;CLEAR RH11 WC.

INC

;R2=H] BYTE ADDRESS.

move

#377,(R2)

;SET WC HI

DEC

;R2=FULL WORD ADDRESS.

Mov

(R2),$BDDAT

;$BDDAT=ACTUAL.

(mp
BEQ
ERROR

$BDDAT,$GDDAT
1ST14

: COMPARE

1774600

001124

L03:

103:

000377

001124

#TTNO,8#TSTNM
#CLR,8RH(CS?

CLEAR AN1T CONTROLLER

SNEXT

WC H]

BYTE ADDRESS.

BYTE.

RESULTS.

TEST

CIRJHDO,RPO4/5/6 DSKLS CTRLR?
CIRJHD. P12
01-MAR-79 09:10

|
7

SEQ 0079

s*TEST 14

BCTA BISB LO BYTE T0 WC

‘:'""""'""t"'""""'"""""t""'tl"""""l"""t

024530
024532
024540
026546

000004
012737
012737
012777

000001
000014
000040

024554

012706

024560
026564
024570

013702
010237
012737

0246576

005012

024600
026604

012712

152712

000252
000125

0264610

011237

001126

024614
024622
024624

023737
001401
104045

001126

15114

#1,8TIMES
#TINO,SFTSTNM
#CLR,ARHCS2

;.00 1 ITERATION
:THIS SAVES TEST NUMBER
;CLEAR RH11 CONTROLLER

001000

Mov

#STACK,SP

;SET STACK POINTER.

014750
045662
000377

mMov
MOv
Mov

RHWC ,R2
R2,REGADR
#377,9G0DDAT

;R2=RH11

CLR

(R2)

;CLEAR RH11 WC.

MOv

B1SB

#252,(R2)
#125,(R2)

;SET UP W(C
;D0 A BISB

Mov

(R2) ,$BDDAT

; $BDDAT=WAS.

CMP
Bta
ERROR

$BDDAT ,$GDDAT

; COMPARE RESULTS
JNEXT TEST

MO NND

Ow—
oorn

SCOPE
MOv
MOv
MOv

00112¢
LOG:
106:

00112¢4

TST1S
45

WC ADDRESS

;$GDDAT=S/B.

30A(1052)
15:07 PAGE &1
26-MAY-T79
113
BCTA MOVB H] BYTE 10 wC
::"""""""'"""""""""""""0"."'"'t"t""""

—_O0
N—O
O ~N—

3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665

MACY11

Pt Pt

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
CLIRIHD.P12
01-MAR-79 09:10

26=MAY=79

15:07

7
PAGE &2

BCTA BISB LO BYTE 10 wC

TeTEST 15

BCTA BISB HI-BYTE TO WC

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

024656
026662
024666

013702
010237
012737

024674

005012

024676

005202

024700
024706

112712
152712

024710

005302

024712

011237

001126

024716
024724
024726

023737
001401

001126

NN~

012706

024652

104045

18115

SCOPE

mov
MOov
MOv

#1,8TIMES
#TINO,S¥#TSTNM
#CLR,ARHCS?

;:00 1 ITERATION
;THIS SAVES TEST NUMBER
;CLEAR RH11 CONTROLLER

001000

MOov

#STACK,SP

;SET STACK POINTER.

014750
045662
177400

Mov
Mov

:R2=RH11 WC ADDRESS.

MOV

RHWC,R2
RZ,REGADR
#177400,9GDDAT

CLR

(R2)

;CLEAR RH11 W(.

INC

;R2 =H] BYTE.

MOvB
B1SB

#125,(R2)
#252,(R2)

;SET UP RH1T WC.
;00 A BISB.

DEC

;R2=FULL WORD ADDRESS.

Mov

(R2) ,$BDDAT

;$BDDAT=WAS.

cmMp
BEQ
ERROR

$BDDAT,$GDDAT
1ST16
45

; COMPARE RESULTS.
JNEXT TEST

000001
000015
000040

-0
~N—O
O ~N—
—NP
O
—
[
],V ]

0 00
1 73
1 73
1 77

024626
02463C
024636
024644

001124

LOS:

000125
000252

105:

001124

;$GDDAT=S/B.

Sea 0080

~ e

3? A(1052)

‘;"""'"""Q""Q""""""""'l"""""'."""""""

[elolefe]

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

MACYN

~——
.

CIRJHDO,RPO4/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD.PY2

il
o
il

NN —

il o
ol
il
—

OO0~

NNNNNNNNNN

TV VTV
VIV 19

22X

A R

R A

S*TEST 16

SE@ 0081
AR

RRARRRR

BCTA BICB LO-BYTE TO WC

Rl d R

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

024730
024732
024740
0247646

000004
012737
012737
012777

000001
000016
000040

024754

012706

024760
024764
024770

013702
010237
012737

024776

005012

025000

012712

000377

025004

142712

000125

025010

011237

001126

025014
025022
025024

023737

001126

001401

104046

1ST16:

SCOPE

MoV
Mov
Mov

#1,8TIMES
PTINO,SFTSTNM
#CLR,IRHCS2

;CLEAR RH11 CONTROLLER

001000

Mov

#STACK,SP

;SET STACK POINTER.

014750
065662

Mov
Mov
Mov

RHWC ,R2
R2,REGADR

;R2=RH11

#252.8GDDAT

;$GDDAT=5/8.

CLR

(R2)

;CLEAR RH11 W(.

Mov

#377,(R2)

;SET w(=0000377

BI(B

#125, (R2)

.00 A BICB

Mov

(R2),$BDDAT

;$BDDAT-WAS,

CMP
BEQ
ERROR

$BDDAT,$GDODAT
1s117

. COMPARE RESULTS.
SNEXT TEST

000252

001124
106:

106:

001124

WwC ADDRESS.

[
X ]

3$A (1052)
15:07
PAGE 83
2L=-MAY-T79
15
BCTA BISB HI-BYTE T0 wW(
R

—_O0O
~N—0
O~N—
[ JU T N
O
—
oo

3697
3698
3699
3700
3701
3702
3703
3704

MACY Y

—

CIRJHDO,RPO4/S/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJNHD.P12

RAREREE R

SeTEST 17
BRI

025026
025030
025036
025044

012737
012737
012777

000001
000017
000040

025052

012706

025056
025062
025066

013702
010237
012737

045662
125000

02507¢

005012

025076

005202

025100
0251064

112712
142712

025110

005302

025112

011237

001126

025116
025124
025126

023737

001126

001401
104046

XXX

1$117:

CRRE

XXX R

SCOPE

XA E

Sea 0082

R RN RCEECLTERRRRRCOEROORRORERRRRARNRNRORNROGOEROOONROOORONY

BCTA BICB HI- BYTE TO WC

XXX NZZZEEAREARASASRANA
RS SRR
R
RRRd Rl A

MOv
Mov
MOv

M1, STIMES
#TINO,Q#TSTNM
#CLR,ARHCS?

;.00 1 ITERATION
;THIS SAVES TEST NUMBER
;CLEAR RH11 CONTROLLER

001000

MOov

FSTACK,SP

;SET

014750

MOV
MOv

RHWC ,R?
R2,REGADR

;R2=RH11 wC ADDRESS.

#125000,9GDDAT

;$GDDAT=S/8B.

CLR

(R2)

;CLEAR RH11 WC.

INC

;R2=H] BYTE.

MOVB
BIC(B

#377,(R2)
#125,(R2)

;SET WC-177400
.00 A BI(CB

DEC

;R2=FULL WORD.

Mov

(R2) ,$BDDAT

;SBDODAT=WAS,

(MP

$BDDAT,$GDDAT

ERROR

NN
O
—
o

000004

NN
-

3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755

30A(1052)
15:07 PAGE B4
24-MAY=79
116
BCTA B1(B LO-BYTE TO WC
P

— 00
o —O

3725
3726
3727
3728
3729
3730
3731

MACY11

Mov

001124
L07:

000377
000125

107:

001124

BEQ

15120

STACK POINTER.

. COMPARE RESULTS.

JNEXT

TEST

[an
N an]

CZRIHDO,RPOL/S76 DSKLS CTRLR?
CIRJHD.P12
01-MAR-79 09:10

CIRJHDO,RPOGL/S5/6 DSKLS CTRLR?
CIRJHD.P12
01-MAR-79 09:10
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783

3784

3785
3786
1787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
5799
3800

MACYN

264-MAY=79
15:07
PA GE 85
3? AC1052)
17
BCTA BICB HI- BYTE TO WC

Sea 0083

.REM
4
THIS TEST ATTEMPY 10 ACCESS AN ILLEGAL REGISTER WITHIN THE RANGE
OF ADDRESSES SELECTED By THE XOR'S. THE RH11 ADDRESS DECODE LOGIC WILL ALLOW UP TO 32

CONTIGUOUS REGISTERS 10 EX!ST, IN OUR CONFIGURATION ONLY 16 WILL REALLY
EXIST, THIS TEST ATTEMPTS TO ACCESS THE 20(8) REGISTER - IF [T RESPONDS
THE

TESY WILL TYPE OUT

AN ERROR.

FOR THE CASE OF THE RH70, THE CONFIGURATION AL.OWS 18 OR 32 REGISTERS, SO
WE WILL ATTEMPT TO ADDRESS REGISTER 23(8), 33(8) OR AS BEFORE THE LAST
REGlSIERz'

SeTEST 20
SR XX

025130
025132
025140
025146

000004
012737
012737
012777

025154
025160
025162
025166

005737
001403
013702
000402

017334

025170
025174
025200
025204
025210

013702
062702

010237
005037
005037

015010
000002
045662
001126
C0112¢4

025214
02522%

013737
012737

000004
025246

025230

012706

001000

025234

005712

025236
025242
025244

062702
005712
106047

00002¢

025246

013737

001176

000001

000020
000040

001212

XX RS

XXX

1$120:

017330
167600

SCOPE

MOV
MOV
MOV

181

8taQ

015016

Mov

1%:

2%:

L10:

000004

010:

BCTA TLLEGAL REGISTER TEST

EEZEASRSN R

RSS

RRRRRRdll)

RRRRARRRRRRARA

#),STIMES
#TTNO,a#TSTNM

;.00 1 ITERATION
;THIS SAVES TEST NUMBER
;CLEAR RHY1 CONTROLLER

ANRNH70

;CHECK TO SEE 1F RUNNING WITH RH70
;1F NOT...SKIP NEXT & DO FOLLOWING
;R2 = LAST LEGAL RH70 REG ADDRESS

#CLR,aRHCS2
1%
RHCSY,R?

;SKIP NEXT

MOV

RHEC?Z ,R?
"R
R2,REGADR
$BDDAT
$GDDAT

;$BDDAT=WAS.
:$GDDAT=S/8B.

Mov
MOov

S#TIMOT,$TMPO

;SAVE TIMEOUT VECTOR.

MOV

#STACK,SP

;SET

187

(R2)

sTEST

ADD
181

ERROR

824 ,R2
(R2)
&7

;THIS MIGHT BE THE CASE OF
STEST 1T AGAIN

MOV

$TMPO,a#1]MOY

;RESTORE TIMEOU! VECTOR.

ADD

MOV

(LR
(LR

001176
000004

SEEEEREZEE R

#010,a#T1MOT

;R2 = LAST LEGAL RH11 REG ADDRESS.
:R2 = FIRST

ILLEGAL

ADDRESS.

;SET TIMEOUT VECTOR 10 010.
THE

STACK POINTER.

ADDRESS.

32 REGISTERS

3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
31847
3848
3849
3850
3851
3852
3858
31854
3855
31856

SEQ 0084

'NOW WE ATTACK BTCB
.REM
X
THE FOLLOWING TWO TESTS DETERMINE IF ALL NON DRIVES SET
NED BIT AND THAT ALL EXISTING DRIVES CLEAR THE NED BIT.

THE TESTS LOOK AT TOTALAY

THE

TO DETERMINE WHICH DRIVES EXIST AND TEST

THAT

THESE DRIVES WILL CLEAR THE NED BIT. AND ALSO THAT NON EXISTANT DRIVES

WiLL

SET

THE NED BIT.

ON FIRST PASS ONLY, |F ALL DRIVES ARE ON LINE A MESSAGE WILL SO ADVISE THE
OPERATOR. THE TEST WILL CONTINUE REGARLESS OF THE OPERATORS ACTION.
)4

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

seTEST 21

BCTB (NED) NON-EXISTANT DRIVE TEST., (SET)

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

025254
025256
025264
025272

18121:

025300
025306
025310

023727

025316
025320

001002
000137

025326
025324
025330

104401

025406
025406
025612
025470
025470
025474

025550
025550
025554

000426
134401

000426

104401

000425
104401

000425

#1,8TIMES
#TINO,8FTSTNM

::D0 1 ITERATION
:THIS SAVES TEST NUMBER

000377

(MPB
BNE

SFTOTALAY ,#377
uil

;ARE ALL DRIVES ON LINE.
:NO GO RUN THE TEST.

000000

(Mp

$PASS,#0

BNE
JMP

Y\
x11

:1F PASS #0 THEN TYPE MESSAGE
;ADVISING OPERATOR

TYPE
BR

,65%
649

001212

015136
001100

017330

MoV

167656

025732

025332

Yil:

::255:

025416

649

;;27

025476

025556

SCOPE

MOV
MOV

000001
000021
000040

66%:

JASCIZ

TYPE

JASCIZ

TYPE

#CLR,SRNHCS?

;CLEAR RHM11 CONTROLLER

:THAT

THIS

TEST

WiLL

NOT Bt

:;TYPE ASCIZ STRING
;;GET OVER THE ASCI2

<195><12>/ALL DRIVES APPEAR 10O BE ON LINE THEREFORE/
,67%

;s TYPE

ASCIZ STRING

669%

::GET OVER TME ASCIZ

,69%

::TYPE ASCIZ STRING

<15><12>/THE NED NON-EXISTANT DRIVE

TEST

CANNOT BE/

;5293:

BR
JASCIZ

68%
::GET OVER THE ASCIZ
<15><12>/RUN. T0O RUN THIS TEST TAKE ONE OR MORE/

%6;15:

TYPE
BR
JASCIZ

L7118
;3 TYPE ASCIZ STRING
70%
::GEY OVER THE ASCIZ
<15><12>/DRIVES OFF=LINE AND RESTART THE PROGRAM/

ull:

MOV

#STACK,SP

:SET STACK POINTER,

:R2=RH11 RHCSZ2 ADDRESS.

68%:

025630

012706

001000

025634
025640

013702
010237

014754
045662

MOV

RH(S2.R?

025644
025650
025652
025654

013700
005001
006000

015136

MOV
(LR
ROR
BCS

S8 TOTALAT,RO
R1
RO
N

103423

RUN

MOV

S11:

RZ2,REGADR

|
1801
3802
3803
3804
38095
3806
3807
3808
3809
3810
3811
31812
3813
3814
3815
3816
3817
3818
31819
3820
1821
31822
3823
3824
3825
3826
3827
3828

3?!(1052)
24-MAY-79
15:07
PAGE 86
TESI
REGISTER
BCTA JLLEGAL
20

Pt P

CIRJIHDO,RPO4/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJIHD.P12

MACY 1

3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
3880
3881

025656
025662

010137
052737

001126
010000

025670

013705

014756

025674

010112

025676

011537

001176

025702
025706

011237
042737

001126
167770

001126

025714
025722

023737
001005

001126

00112¢

025724
025726
025732
025732
025734

005201
020127

025736

104050

001402
000746

001124

R11:

000010

30A(1052)
24-MAY-79
15:07
PA Gt &/
121
BCTB (NED) NON-EXISTANT DRIVE

X11:

E11:

Sea 0085

(SET)

ROV

R1,8GDDAT

;$GDDAT=5/8.

mov

RHCST,RS

;ADDRESS OF A DEVICE REGISTER.

Mov

R1,(R2)

:LOAD A NCN-EXISTANT DRIVE.

Mov

(RS),$TMPO

ATTEMPT

Mov

BIC

(R2) ,$BDDAT
. $SBODAT=WAS,
FAC<KNED'USL
. US2'UST> ,$BDDAT; SBDDAT-SAVED DATA,

(Mp

$BODAT,$GDDAT

INC
CMp

R1,#8.

;TESTED ALL

BtQ
BR

15122
SN

SNEXT

ERROR

BIS

BNE
N1

TEST.

#NED ,$GDDAT

e
R1

; COMPARE

TO READ FROM DEVICE

RESULTS.

TEST

DRIVES

YET.

[adal

MACY11

CIRJIHDO,RPOL/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD.PY2

AR R

;;TEST 22

012706

025770
025774
026000
026004
026006
026010

NN~

025764

0000
1273
1273
1277

N
—

025740
025742
025750
025756

158122:

RX RS

TEST.

SRR ZE RS EARARNES

SEQ 0086

(SET)
RARANAAR

R R
Ry

SCOPE

:.D0 1 ITERATION
;THIS SAVES TEST NUMBER

001000

Mov

#STACK,SP

:SET

013702
010237
013700
005001
006000

014754
045662
015136

MOV
MOV

RHCSZ ,R?
RZ,REGADR

;R2=RH11

026012

010137

026016

013705

026022

010112

026024

011537

001176

026030
026034

011237
042737

001126
167770

001126

026042
026050

023737
001005

001126

001124

026052
026054
026060

005201
020127
001402

026062
026064

000751

-0
o—0O
O~
—

#1,8TIMES
#TINO,8#TSTNM

Y1V,
V)

MOv
MOV

000001
000022
000040

104050

Mov

PCLR,BRHLS?2

:CLEAR RH11 CONTROLLER
STACK POINTER.

RH(S2 ADDRESS.

MOV

af#TOTALAT,RO

001124

[ [o]

R1,8GDDAT

014756

MOV

RHCST,RS

:ADDRESS OF

MOV

R1,(R2)

:SELECT UNIT.

MOV

(RS),$TMPO

:ATTEMPT

S12:

103020

Li2:

000010

(LR
ROR
BCC

MOV

N12:

R1
RO
N12

A DEVICE REGISTER.

TO READ FROM DEVICE.

8iC

#AC<KNED'USSLTUS2UST> ,$BEDAT

(R2) ,$BDDAT

:$BDDAT=WAS.

(Mp
BNE

$BDDAY,$GDDAT
£12

:COMPARE RESULTS.

INC
(Mp

R1
R1,#8.

BR
ERROR

S1¢2
S0

BEQ
E12:

RRRARdA

BCTB (NED) NON-EXISTANT DRIVE TEST. (CLEARED)

15123

:$BDDAT=SAVED DATA,.

;TESTED ALL DRIVES.

SNEXT TEST

~—

30AC1052)
24-MAY-79
15:07
PAGE 88
121
BCTB (NED) NON-EX]STANT DRIVE
SE

OO0
O

3882
3883
3884
3885
3886
3887
3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921

MACY1Y

([ea
X an)

CIRJIHDO,RPOL/5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRIHD .PY2

3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942

3943
3944
3945
3946
3947
3948
3949

3950

3951
3952

3953
3954
3955
3956
3957
3958
3959

122

24-MAY-79

BCTB

.REM
X
TEST 10 SEE

(NED)

A NED NO;-E!ISYANT
S22

SeTEST 23
SR

026066
026070
026076
026104

012737
012737
012777

000001
000023
000040

026112

012706

001000

026116
026122

013702
012737

014754
000007

026130

013705

014756

026134

012712

000007

026140

013702

026144

000004

KRR A X R

ZZ XXX

15123:

15:07

NON-EXISTANT DRIVE

CAN READ FROM THE
DRIVE ERROR

EEZ R

TEST.

'"AS'° REGISTER AND NOT CAUSE

SEQ 0087

(CLEARED)

RS RNl
dR

BCTB AS REGISTER TEST

RS2SR

SCOPE

7
PAGE &Y

RSN

RASRRRRRRRRRARAA)

MOV
MOV
MOV

#1,STIMES
FTTNO,@#TSTNM
FCLR,ARHCS2

;.00 1 ITERATION
;THIS SAVES TEST NUMBER
;CLEAR RH11 CONTROLLER

MOV

FSTACK,SP

;SET

Mov
Mov

RHCS2,R2

;R2=RH11

MOV

RHCST,RS

;ADDRESS OF

MOV

FUSL'US2'UST, (R2);LOAD A NON-EXISTANT DEVICE.

014774

MOV

RHAS ,R2

;R2= "'AS".

011237

001176

MOV

(R2),$TMPO

;ATTEMPT

026150
026152
026156

005012
013702
010237

014754
045662

(R2)

;CLEAR AS REGISTER.

MOV
MOV

026162
026166

011237
062737

001126
167770

001126

MOV

(R2) ,$BDDAT

;$BDDAT=WAS.

026174
026202
026204

023737
001401

001126

001124

104051

001212

017330
166642

001124

L13:

(LR

STACK

POINTER.

(S2 ADDRESS.

#USGL .US2'UST,9GDDAT
; $SGDDAT=5/B.

RHCS2,R2
R2,REGADR

;R2-RH11

A DEVICE

TO READ FROM DEVICE

AS.

(S2 ADDRESS.

BIC

#*C<KNED'US&L!US2'UST>,$BDDAT;SAVE NED AND DEVICE

cmMp
BEQ
ERROR

$BDDAT,$GDDAT
18124

; COMPARE RESULTS.
~INEXT TEST

SELECTED.

30AC1052)

[VY

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
CIRJHD.P12
01-MAR-79 09:10

MACYT

3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972

3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987

3988

3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999

4000
4001
4002
4003
4004
4005
<006

4007
4008
4009
4010
4011
4012
4013
6014
4015

MACY11

30A(1052)

123

24-MAY-79

SR 2XE 22222222

000004
012737
012737
012777

000001
000024
000040

026232

012706

026236
026242
026246

PAGE

SEQ 0088

TESTS WILL TEST THE BUS ADDRESS REGISTER IN BOTH WORD
THE PATTERNS ARE CHOSEN TO PICK UP ANY DROPPED OR STUCK

I SE 222X 22X XX

SeTEST 24
026206
026210
026216
026226

BCTB AS REGISTER TEST

.REM
4
THE NEXT THREE
AND BYTE MODE.
BITS.
X

1S124:

15:07

SCOPE

XSRS

RRSR

RRRRRlRRRRRR

BCTC BUS ADDRESS REGISTER

2RSSR

RSN RRRERRRRRRRRRARaRRR
SN

MOV

#1,8T1IMES

::00 1

001000

MOV

¥STACK,SP

;SET

013702
010237
012705

014752
045662
026306

MOV

RHBA,R?2

;R2=RH11 BA ADDRESS.

026252

012537

001124

L14:

MOV

(RS)+,8GDDAT

:$GDDAT=S/B.

026256
026262

013712
011237

001124

114:

MOV
MOV

$GDDAT, (R2)
(R2),$BDDAT

;SET BUS ADDRESS REGISTER.
:READ BUS ADDRESS REGISTER.

026266
026274
026276

023737
001401

001126

CMpP
BEQ
ERROR

$8DDAT,$GDDAT
N14
52

; COMPARE RESULTS.
;GET NEXT TEST DATA,

026300
026302
026304
026306
026310
026312
026314
026316
026320

005715
001363
000440
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

(RS)
L14
15125

;AT END OF LIST
;NO!
JNEXT TEST

026322
02632¢
026326
026330
026332
026334
026336
026340
026342
026344
026346
026350
026352
026354
026356
026360
026362
026364

001212
017330
166522

MOV
MOV

001126

104052

100000
177776

177774

N1G:

91
BNE
BR
LST14A: 2
4

40
100
200
400
1000

2000
4000
10000

20000

40000

100000
177776
177774
177772
177766
177756
177736
177676
177576
177376

#TINO,alTSTNM
#CLR,aRHCS?

R2 ,REGADR
#LST14A RS

ITERATION

;THIS SAVES TEST NUMBER
:CLEAR RH11 CONTROLLER
STACK POINTER.

:RS=TEST LIST ADDRESS.

[nNanl

CZRIHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR-79 C9:10
(IZRJHD.P12

CIRJHDO,RPO4/5/6 DSKLS CTRLRZ2

CIRJHD.P12
4016
4017
64018
6019
6020
4021
6022
64023
4024

026366
026370
026372
0263764
026376
026400
026402
026404

01-MAR-79 09:10
176776
175776
173776
167776
157776
137776
077776
000000

MACYM

S?A(lOSZ)

24=-MAY-79

15:07

7
PAGE 91

BCTC BUS ADDRESS REGISTER
176776
175776
173776
167776
157776
137776
077776
0

SEQ 0089

CIRJHD.P12

01-MAR-79 09:10

MACYY

4025

3?A(1052)

24-MAY=79

15:07

7
PAGE 9¢

BCTC BUS ADDRESS REGISTER

SEG 0090

4026

R
R
L AR
A it tidd)

6027

S*TEST 25

4028

6029
4030
6031

026406
026410
026416

000004
012737
012737

000001
0000625

28%?

026432

012706

64036
64037

0266436
026442

013702
010237

282?

026452

005012

282%

026654

012537

001124

60446
2842

0266460
026464

113712
011237

001124
001126

6047
48:8

026470
026476

023737
001401

001126

282?

026500

104053

64052
6053
64054
4822

026502
026504
026506

005715
001362
000417

R15:

4057
64058
6059
4060
4061

026510
026512
026514
026516
026520

000002
000004
000010
000020
000040

LST15A: 2
4
10
20
40

6063
4064
4065
64066
6067
<068
4069
64070
071

026524
026526
026530
026532
026534
026536
026540
026562
026544

000200
000376
000372
000366
000356
000336
000276
000176
000000

200
376
372
366
356
336
276
176
0

28%%

28%3

4062

0266264

026446

026522

012777

012705

000100

AR i AL

SCOPE
Mov
MOV

#1,STIMES
#TTNO,9#TSTNM

::00 1 ITERATION
;THIS SAVES TEST NUMBER

001000

Mov

#STACK,SP

;RESET STACK.

014752
045662

MOV
MoV

RHBA,R?
R2,REGADR

;R2=RH11 BA ADDRESS.

#LSTI5A,RS

;R5=TEST LIST ADDRESS.

CLR

(R2)

;CLEAR RH11 BA REGISTER.

MOV

(R5)+,$GDDAT

; $GDDAT=S/B.

MOvVB
MoV

$GDDAT, (R2)
(R2),$BDDAT

;SET BUS ADDRESS REGISTER.
sREAD BUS ADDRESS REGISTER.

CMP
BEQ

$BDDAT,$GDDAT
R15

; COMPARE RESULTS.
s

ERROR

000040

001212
017330

1S125:

BCTC BUS ADDRESS REGISTER LO-BYTE

1606322

Mmov

026510

mov
L1S:

115:
001124

187
BNE
BR
;THIS LIST WILL
.

100

#CLR,BRHCS?

(RS)
L15
15126
BE USED TO LOAD

;CLEAR RH11 CONTROLLER

;AT END OF TEST LIST.
:NO!
JNEXT TEST
THE LOWER BYTE OF THE BA REGISTER.

(e Nent}

C(IRJHDO,RPOL/S5/6 DSKLS CTRLR2

CIRIHDO,RPO4/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
(IRJHD.PY?

—t
—

o Pol
o

ol
e
e

aE aE o

d
o

AP
e

P
e
e

W
I

P ol

PNORNURLIPNORNOINUN)
b b e e e d e —t
VB M =00~
WS W ~N

30A(1052)
24-MAY-79 15:07 PAGE 93
125
BCTC BUS ADDRESS REGISTER LO-BYTE

SEQ 0091

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

J*TEST 26

BCTC BUS ADDRESS REGISTER HI-BYTE

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

15126:

SCOPE

026546
026550
026556
026564

000004

012737
012737
012777

000001
000026
000040

026572

012706

026576
026602
026606

013702
010237
012705

026612

005012

026614

012537

026620

005202

026622

113712

026626

005302

026630
026634

011237
000337

001126
001124

026640
026646

023737
001401

001126

026650

104053

026652
026654
026656

005715
001356
000420

R16:

026660
026662
026664
026666
026670
026672
026674
026676
026700
026702
026704
026706
026710
026712
026714
026716

000002
000004
000010
000020
000040
000100
000200

LST16A: 2

000376
000374
000376
000366
000356
000336
000276
000176
000000

-0
o=0
o~N—
—NN
O\
—
O

4072
4073
6074
6075
4076
4077
4078
4079
4080
4081
4082
4083
4084
4085
4086
4087
4088
4089
4090
4091
4092
4093
6094
4095
4096
4097
4098
4099
100
6101
4102
6103
4104
6105
6106
6107
4108
6109
£110
6111

MACY11

MOV
MOV
MoV

1,8TIMES
FTINO,@FTSTNM
#CLR,ARHCS2

::00 1 ITERATION
;THIS SAVES TEST NUMBER
;CLEAR RH11 CONTROLLER

001000

MOV

#STACK,SP

;RESET

014752
045662
026660

MOV
MOV
MOV

RHBA,R2

:R2=RH11 BA ADDRESS.

#FLST16A,RS

;RS=TEST LIST ADDRESS.

CLR

(R2)

;CLEAR BA REGISTER.

MOV

(R5)+,$GDDAT

;$GDDAT=5/B.

INC

;R2=H1 BYTE ADDRESS.

MOVB

$GDDAT, (R2)

:SET BUS ADDRESS REGISTER HI-BYTE.

DEC

¢R2=FULL WORD ADDRESS.

Mov

(R2) ,$BDDAT
$GDDAT

;READ BUS ADDRESS.
;ADJUST DATA FOR HI

Cmp
BEQ

$BDDAT,$GDDAT

; COMPARE RESULTS.

ERROR

151
BNE
BR

(RS)
L6
18127

L16:

001124

116:

SWAB

001124

R2,REGADR

R16

STACK.

BYTE.

;OKAY

;AT END OF
; NOPE
JNEXT TEST

TEST

LIST.

;THIS LIST WILL BE USED TO LOAD THE UPPER BYTE OF

THE BA REGISTER.

6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
6139
6140
4141

6142
6143
L1464

6145
6146
6147
6148
6149
6150
6151
6152
6153
6156
6155
6156

6157
6158
6159

MACY1T

PAGE 9«
30AC1052)
15:07
2L=PAY-79
126
BCTC 8US ADDRESS REGISTER HI-BYTE

SEQ 0092

4
.REM
THIS TEST CAUSE AN RW'i INTERRUPT vIp THE SPECIAL COMMAND SEQUENCE
#1E,9RHCS2. THIS TEST PROVES ONLY THAT THE HARDWARE CAN HANDLE
BIS
INTERRUPTS PROPERLY
3

AR X

tetest 27

R R

RH11

INTERRUPT

R XNEAEEESEERSRAREARRA
R
AR
RRdA)

TF 1

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

026720
026722
026730
026736

000004
012737
012737
012777

000001
000027
000040

026744

012706

026750
026754
026760
026764

1127

SCOPE

ITERATION

mav
Mov
Mov

,
5T TMES
M1
#TTNO,S#TSTNM

;.00 1

#CLR,aRHCS

;CLEAR RH11

001000

Mov

#STACK,SP

;SET

013702
010237
005037
005037

014756
045662
001126
001124

Mov
Mov

RHCS1,R?
R2,REGADR
$BODAT
$SGDDAT

;R2=RH11

026770
026776

017737
012777

165750
027022

Mov
Mov

aRPVEC,$TMPO
#021,aRPVEC

:SAVE RH11 INTERRUPT VECTOR.
;SET RH11 INTERRUPT VECTOR TO 021.

027004
027010
027012
027014

052712
000240
000240
011237

000100

BIS
NOP
NOP

N1E,(R2)

: CAUSE INTERRUPT,

MOV

(R2) ,$GDDAT

:SAVE (ONTENTS OF REGISTER.

027020

1064054

ERROR

027022

013777

Mov

$TMPO,IRPVEC

001212
017330
166010

(LR
CLR

001176
165740

L2l:

001124

001176

165714

021:

;THIS

SAVES

TEST

NUMBER

CONTROLLER

STACK POINTER.
ADDRESS.

:$SBODAT=WAS.
;$GDDAT=S/B.

;WAIT

FOR

INTERRUPT.

;RESTORE RH11

INTERRUPT vECTOR.

(e len)

CIRIHDO,RPOL/S/6 DSKLS CTRLR?
CIRJHD.P12
01-MAR-79 09:10

MACY11

4160

;TEST
.REM

6161
6162

6163

027030
027032
027040
027046

000001
000030
000040

6176

027054
027060
027064

014756
045662
001124

027070
027074
027100

001000
002000

027102
027106

001126

6177
6178
6179
4180
4181
6182
6183
6184
6185
4186
6187
4188

4189

THAT
X

RESET

CAN GENERATE

SEQ 0093

THE SIGNAL CLR L.

THE PROGRAM SETS THE PORT SELECT BIT

6164
6165
4166
67
6168
6169
6170
“nNn
6172

6173
L1764
6175

30AC1052)
15:07 PAGE 95
26-MAY-T79
127
RH11 INTERRUPT TEST

.THEN DOES A RESE’
THE SIGNAL CLR L WAS GENERATED THE PORT SELECT BIT WILL CLEAR.

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

.*TEST 30

BCTD CLR L TEST

027114
027122
027124

023737
001401
1064055

NANA
O
—
oony

-0
o —O

N~y
—

';lt'""""""""""""'"""'.""""".""""""i"'

15130:

001126

001124

::00 1 ITERATION
;THIS SAVES TEST NUMBER
:CLEAR RH11 CONTROLLER

#1,8TIMES

MOV
Mov

;R2=RH11

CLR

RHCST,R2
R2,REGADR
$GDDAT

Mov

Lee:

177677

SCOPE

MOV
MOV

#TTNO,SFTSTNM

NCLR,BRHCS?

(S1

ADDRESS

. $GDDAT=S5/8B

MOV

#STACK,SP

MOV
RESET

#PSEL, (R2)

;SET STACK POINTER.
;SET PORT SELECT FLOP.
;00 A BUSA INIT.

MOV

(R2) ,$BDDAT
#°C<1E>,$BDDAT

;SBDDAT=WAS,

$SBDDAT,$GDDAT
1S131

. COMPARE RESULTS.
SNEXT TEST

BIC
(MP
BEQ
ERROR

;SAVE ONLY

].E.

BIT.

CIRIHDO,RPOL/S/6 DSKLS CTRLR?
CZRJHD.PY?
01-MAR-79 09:10

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD.PY2
4190
6191
£192
6193
6194
4195
6196
6197
4198
6199
4200
4201
4202

6203

4204
4205
6206
6207
4208
4209
6210
6211
6212
6213
6214
6215
6216
217
6218
4219
4220
6221
6222
4223

MACYY

30A(1052)
24-MAY-79
15:07
130
BCTD CLR L TEST
.REM
X
SET THE :(F

8
PAGE 96

SEQ 0094

FLOP AND READ IT BACK.

';"""'t""""""'."'"'t""""""""."'"""'QQ"".

TRTEST 31
SR

027126
027130
027136

000004
012737
2737

X X

T$131:

000001
000031

MXF
A

SCOPE

MOV
MOV

AR R

TEST
AR

#1,STIMES
FTINO,QFTSTNM

RRRRRRRd

)

;.00 1 JTERATION
;THIS SAVES TEST NUMBER

;*CHECK TO SEE IF PROGRAM IS RUNNING WITH AN RH70
027144
027150
027152
027156
027156

005737
001402
000137

017334

012777

000040

027164
027170
027174
027200

012706
013702
010237
012737

001000
014754
045662
001000

027206

012712

001000

027212

011237

001126

027216

042737

176777

027224
027232
027234

023737
001401

001126

104056

1S1

8¥RNHT70

;TEST FOR RH70 CONTROLLER

JMP

30%
15132

MOV

#CLR,3RHCS?

MOV
MOV
MOV
MOV

#STACK,SP
RHCS2,R2
R2,REGADR
#MXF ,$GDDAT

;SET STACK POINTER.
;R2=RH11 (S2 ADDRESS.

MoV

Mxe, (R2)

;LOAD Mxf

MOV

(R2),$BDDAT

; $BDDAT=WAS.

001126

BIC

NAC<MXF>,$BDDAT

;SAVE

001124

Cmp
BEQ
ERROR

$SBODAT,$GDDAT

; COMPARE RESULTS

BEQ

027236
165570

30$:

001124
124

15132
56

;1F FLAG = 1,
;JUMP TO NEXT

SKIP THIS TEST
TES] -=ccccccccccccccnn--

;1F FLAG = 0, DO THIS TEST
;CLEAR RH11

CONTROLLER

;$GDDAT=S/B.

JNEXT

ONLY

TEST

MxF

YTM

—

MACY1

4224

.REM

ATTEMPT

{0 READ

15:07

8
PAGE 9/

SEQ 0095

SET THE UNIBUS PARITY ERROR FLOP DIRECTLY VIA A MOV WUPE TO RH(S?2

4225

XXX ZX2 2

TYTEST 32
C

027236
027240
027246

[eole]
— o O
oo
NNO
WNO
NN

4226
227
4228
4229
4230
623
4232
6233
6234
6235
4236
4237
6238
4239
4240
6261
4242
6243

30A(1052)
2L=MAY-79
MXF TEST
TM

000001
000032

BACK.

XXX

AN RNRIR O RO C TR

15132:

SCOPE

RZZARRARRZZAARAS

RRRRdRRARdallll

(SRB UNIBUS PAR[TY ERROR SET TEST

LR OO RRCRRRNRROCCORORERNOPRORORAROORCRROSOORORROORROOTOOEY

;.00 1

ITERATION

MOv

#1,8TIMES
FTINO,QFTSTNM

; *CHECK

TO SEE

1§17
BEQ
JMP

8¥RHT70
309
15133

s1F

MOV

#CLR,ARHCS?

sCLEAR RH11 CONTROLLER

;THIS SAVES

TEST

NUMBER

1F PROGRAM IS RUNNING WITH AN RH70
:TEST

FOR RH70 CONTROLLER

027254
027260
027262
027266

005737
001402
000137

017334

027266

012777

000040

4244

027274

012706

001000

Mov

¥STACK,SP

;SET STACK POINTER.

6246
4247
(248
4249
4250

027300
027304
027310

013702
010237
012737

016754
045662

Mov
MoV
MOV

RH(SZ,R2
R2,REGADR

:R2=RH(S2 ADDRESS.

WUPE ,3GDDAT

:$GDDAT-S/B.

027316
027322

001124

Mov

$GDDAT, (R2)

ATTEMPT

027324

013712
000240
000240

027326
027332

011237
042737

001126
157777

001126

BIC

(R2),$BDDAT
N4(<UPE>,$BDDAT

;SBDDAT=ACTUAL DATA,
; SAVE ONLY UPE.

027340
027346
027350

023737
001401

001126

001124

(mp
BEQ
ERROR

$BDDAT,$GDDAT
TS133
57

; COMPARE

6245

6251
6252
4253

6254
4255
4256
4257
4258
4259
4260
4261

104057

027352

020000

30%:
165460

001124

L30:

NOP
NOP
MOV

]

FLAG = 1, SKIP THIS TEST

;JUMP TO NEXT

TEST =ecccccecccccccnnan-

;1F FLAG = 0, DO THIS TEST

SNEXT

T0 SET

UPE.

RESULTS.

TEST

[N e

CZRJHDO,RPO4/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD. P12

4294

30A(1052)

24-MAY-79

15:07

8
PAGE 98

132

(SRB UNIBUS PARITY ERROR SET

.REM

SEQ 0096

TEST

SET THE UNIBUS PARITY ERROR FLOP AND ATTEMPT TO CLEAR IT WITH A
(ONIROLLER CLEAR.

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

TeTEST 33

CSRB UNIBUS PARITY ERROR (LEAR TEST

rraeReROEERRORRSRROICORRRRROCRRRORCROPRRRRRRRRNRRORRRRRRRRROROROEROROROTOOOY

027352
027354
027362
027370

000004
012737
012737
012777

000001
000033
000040

027376

012706

027402
027406
027412

TS133:

SCOPE

;00 1 ITERATION
;THES SAVES TEST NUMBER
;CLEAR RH11 CONTROLLER

001000

Mov

FSTACK,SP

:SET STACK POINTER.

013702
010237
005037

014754
045662
001124

MOV
Mov

:R2=RHCS2 ADDRESS.

CLR

RHCS2,R2
R2,REGADR
$GODAT

027416
027422
027424

012712
000240
000240

020000

MOV

FUPE
, (R2)

;SET UNIBUS PARITY ERROR SET.

027426

012712

000040

Mov

#CLR, (R2)

; CONTROLLER CLEAR,

027432
027636

011237
042737

001126
157777

001126

027444
027652
027454

023757

001126

001124

001401

106057

NN
S

o onrn

M1, STINMES
#TING,a#TSTNM
#CLR,BRHCS?

W~
—

Mov
mov
mov

O
0
1

o —-O

6262
6263
264
4265
4266
6267
4268
4269
4270
4271
4272
6273
6274
6275
4276
6277
4278
4279
4280
4281
4282
4283
4284
6285
4286
4287
4288
4289
4290
4291
4292
4293

MACY1Y

L31:

NOP
NOP

Mov

(R2) ,$BDDA1

:$GDDAT=S5/B.

;READ

STATUS

BIC

#*(<UPE>,$BDDAT

: SAVE ERROR.

(mp
8tQ
ERROR

$BDDAT,$GDDAT
15134

JNEXT TEST

; COMPARE

RESULTS.

[N enl

CIRJHDO,RPOL/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD.P1?

30A(1052)

24=-MAY-79

15:07

8
PAGE 99

133

CSRB UNIBUS PARITY ERROR CLEAR TEST

.REM

SEQ 0097

SET THE UNIT SELECT REGISTER TO DRIVE #7 ALL BITS SET. GENERATE A
CONYROLL%R CLEAR AND VERIFY THAT THE UNIT SELECT REGISTER 1S CLEARED.
e

XXX A

SeTEST 34

X2 X

XXX

RANAARARER

SRR

ARl

aRd

(SRB UNIT SELECT CLEAR TEST

)

027456
027460
027466
027474

000004
012737
012737
012777

000001
000034
000040

027502

012706

027506
027512
027516

NN
—

';'"""""'"""""""""""""""""!".""""'0"'

1S134:

SCOPE

:.D0O 1 ITERATION
;THIS SAVES TEST NUMBER
;CLEAR RH11 CONTROLLER

001000

Mov

FSTACK,SP

;SET

013702
010237
005037

014754
0465662
001124

Mov
MOV

:R2=CS2 ADDRESS.

CLR

RHCSZ,R2
R2,REGADR
$GDDAT

027522
027526
027530

012712
000240
000240

000007

MoV

PUSL'US2'UST,
(R2)

027532

012712

000040

MOov

#CLR,(R2)

sGENERATE

027536
027542

011237
042737

001126
177770

001126

(R2) ,$BDDAT

;READ RH(S2

027550
027556
027560

0237%7
001401

001126

001124

104060

O N

NN
=

#1,8TIMES
#TTNO,@#TSTNM
NCLR,ERHCS?

oS
XV T,

MOv
Mov
Mov

—0O0Q
o—O

6295
6296
4297
6298
6299
4300
4301
4302

MACYM

L36.

STACK POINTER.

;$GDDAT=5/B.

;LOAD RH(CS2 DRIVE

SELECT

NVOP
noP

MOV

BIC

(Mp
8taQ
ERROR

(LR,

#AC<USLIUS2.UST> ,$BDDAT;SAVE

DRIVE

$BDDAT,$GDDAT ; COMPARE RESULTS.
18135

TNEXT

TEST

SELECT BITS,

CIRJHDO,RPOL/S5/6 DSKLS CTRLRZ2
01-MAR-79 09:10
CIRJIHD.P12

CIRINDO,RPOL/S/6 DSKLS CTRLR?
01-MAR=-79 09:10

CIRJHD.PY?

MACYIY

6328
6329

6360
6361
6362

6363
6364
£365
6366
636/
4348
4349
4350
4351
6352
6353
6356
§355
4356
6357
6358
4359
4360
4361
6362
6363
4364
4365
4366

SEQ 0098

.REM

SET THE UPE FLOP UNIBUS PARITY ERROR. VERIFY THMAT THE SETTING OF

6330
6331

6332
6333
6336
6335
4336
4337
4338
6339

SOAC1052)
24-MAY=79
15:07
PAGE 100
TEST
134
CLEAR
(SRB UNIT SELECT

ALSO SET% THE

TRANSFER ERROR

CCRNRRRNROORT

SATEST 35
C

027562
027564
027572

000004
012737
012737

005737
001402
000137

017334

SCOPE

moy

MoV

027612

012777

000040

027620

012706

027624
027630

197

027676

30%:

(TRE)

- UPE

1 ,$TIMES

#F1INO,QFTSTNA

BEQ
IMP

;00 1
;THIS

ITERATION

SAVES

TEST

NUMBER

1f PROGRAM 1S RUNNING WITH AN RH70

9#RNHT70
30%
15136

:TEST

S1F

FOR RM70 CONTROLLER

FLAG = 1, SKIP THIS TEST

SJUMP TO NEXT

TEST

==cccccccmcccacacnn-

;1F FLAG - 0, DO THIS TEST
CONTROLLER

MoV

#(CLwn,IRHCS

;CLEAR RM11

001000

MOV

#STACK,SP

;SET STACK POINTER.,

013702
012737

014754
040000

MOV
MOv

RH(S?,R?

WIRE ,$GDDAT

;R2=RU(S2 ADDRESS.

027636

012712

020000

MOv

#UPE, (R2)

;SET UNIBUS PARITY ERROR.

027642

013702
010237

014756

MOV

;R2=RH(S!

045662

MoV

RHCS1,R?

027646

027652
027656

011237
042737

001126
137777

001126

MOV

(R2),$BDDAY

#~(<TRE>,$BDDAT

;READ REGISTER
;SAVE TRANSFER ERROR.

C27664
027672
027674

023737

001126

001124

(mp

$BDDAT ,$GDDAT
15136
61

. COMPARE RESULTS
SNEXT TEST

001401
104061

165134

001124

L35:

(UPE)

OO RO RERCRROORROROORORORORORRORNOERCEROROROERROCRRCECEOOORTOETSNTYE

(SRB TRANSFER ERROR

;r(HECK TO SEE
027600
027604
027606
027612

FLOP

RO CONNNRC RO ROSOROREONCEORRNOROCSOCROERORORORORRREQROCQRROCROSUTEROTPROCRTOOTCTS

15135:

000001
000035

(TRE)

BEQ
ERROR

. $GDDAT=5/8.

ADDRESS.

R2 ,REGADR

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR=-79 09:10
CIRJHD.P12
6367
4368
6369
6370
4371
6372
6373
6374
4375
6376
377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
4391
4392
4393
4394
4395
6396
4397
4398
4399
4400
(401
64602
6403
4604
4405

N
MACY

30A(1052)
24-MAY-79
15:07 PAGE 10}
135
CSRB TRANSFER ERROR (TRE) - UPE

SEQ 0099

X
.REM
SET TME :ED BIT NON EXISTANT DRIVE VERIFY THAT THIS SETS THE

(TRE) BIT.

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

SeTEST 36

CSRB TRANSFER ERROR (TRE) NED

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

15136:

027676
027700
027706
027714

000004

012737
012737
012777

000001
000036
000040

027722

012706

001000

027726
027732

013702
012737

014756
040000

027740
027744
027746
027750
027752

013700
005001
006000

015136

027754
027760

013702
010237

014756
045662

027764
027770

011237
042737

001126
137777

001126

027776
030004
030006
030010

023737

001406
104062
000404

001126

001124

030012
030014
030020

005201
020127
001352

001124

$36:

103420

L36:

010112

000010

SCOPE

MOV
MOV
MoV

#1,871MES
#TINO,a#1STNM
#CLR,ORHCS?

::;00 1 ITERATION
:THIS SAVES TEST NUMBER
;CLEAR RM11 CONTROLLER

MOV

#STACK,SP

:SET

MOV
MOV

RHCS2 ,R?
#TRE ,$GDDAT

:R2-CS2 ADDRESS.
;$9GDDAT-S/B.

MOV

3:1OTALAT,R0

;GET

ROR
BCS
MOV

RO
N36
R1,(R2)

MOV

RHCST,R?

;RZ2=RH(ST1

(R2),$BDDAT

;READ REGISTER.

(LR

MOV
MOV

RZ2,REGADR

BIC

#*C<"RE>,SBDDAT

(Mp

$BDDAT,$GDDAT

ERROR
B8R

6?
1S137

INC

B8EQ

N36:

(MpP
BNE

TST137

R1,#8.
536

STACK POINTER.

ALL AVAJLARLE

:SET NED.

;SAVE

ADDRESS.

TRE.

;COMPARE RESULTS.

JNEXT TEST
SNEXT

TEST

DRIVES DATA

4406
4407
4408
4409
4410
4411
6612
4613
6616
L61\S
4616
4617
4618
4419
4420
4621
6422

4423
L4624
4425
4426
0627
4428
4429
4630
4631
4432
44633
4434

BMACY1Y

30A(1052)
136

.REM

StT

24-MAY-79

SE XXX

000001
000037
000040

030046

012706

030052
030056
030062

8
PAGE

102

(TRE) NED

THE :ORT SELECT FLOP VERIFY THAT WE CAN READ IT BACK.

SeTEST 37
000004
012737
012737
012777

CSRB TRANSFER ERROR

rraERteRtee

030022
030024
030032
030040

15:07

1$137:

X2 Z

RO ORORRRRRREOSRCRRERRTYORRROTROEPRRRRRRRRRORRRRCRORORCRORRPROROTETSTY

XXX

S(OPE

CSRA PSEL CLEAP TEST

EEEEEEE AR

AR AR

R ANl
l A

MOV
Mov
MOV

#1,STIMES
FTINO,Q#TSTNM
FCLR,ARHCS?

;.00 1 ITERATION
;THIS SAVES TEST NUMBER
;CLEAR RH11 CONTROLLER

001000

MOV

#STACK,SP

;SET

013702
010237
005037

014756
045662
001124

MOV
MOV

RHCST ,R2

;R2=RHCS1

(LR

$GDDAT

;$GDDAT-S/B.

030066

012712

002000

MOV

#PSEL, (R2)

JSET

030072

012777

000040

1664654

Mov

#CLR,8RHCS?

;DO A CONTROLLER

030100
030104

011237
042737

001126
175777

001126

Mov

(R2) ,$BDDAT
;READ BACK
#AC<PSEL>,$BNDDAT;SAVE ONLY

023737

001126

001124

001401

104064

L40:

8IC
(mMp

BtQ
ERROR

RZ2,REGADR

$BDDAT,$GDDAT
15140
64

STACK POINTER.

ADDRESS.

P SELECT.
CLEAR.

P SELECT BIT.
PORT SELECT.

;COMPARE RESULTS.
JNEXT TEST

SEQ 0100

[anNen]

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
(IRJHD.P12
01-MAR-79 09:10

CIRIHDO,RPOL/S5/76 DSKLS CTRLRZ
01-MAR-79 09:10
CIRJHD.PY2

MACY1

4435
«63%6
37
4438
44639

4440
464
L4442
(NN3
G444

4445

4446

G467
4448
4449
4450
6451
4452
4453
4454
4455
L4656

4457
4458
4459
4460
4661
4462
4663

K
8
50A(1052)
24-MAY-79
15:07 PAGE
137
CSRA PSEL CLEAR TEST

103

Sea 0101

.REM
4
VERIFY T;AT CONTROLLER CLEAR WILL CLEAR THE COMMAND REGISTER.
RN EteRORRERRSORREOERRRRRRRRCRRRROROERORRRRORRRRRNROYRORRRRORNRROORERROROOEYS

E;IEST 40
R

15140:

CSRB COMMAND REGISTER CLEAR TEST
R

SCOPE
Mov
Mov
Mov

#1,STIMES
#TINO,S#TSTNM
#CLR,BRHCS?

;.00 1 ITERATION
;THIS SAVES TEST NUMBER
;CLEAR RH11 CONTROLLER

0301264
030126

030134
030142

000004
012737
012737
012777

000001
000040
000040

030150

012706

001000

Mov

FSTACK,SP

;SET

030154
030160
030164

013702
010237
005037

014756
045662
001124

Mov

RHCST ,R2

;R2=RHCS1

CLR

$GDDAT

;$GDDAT=5/8.

030170

012712

000011

Mov

”M1,(R)

:1SSUE A DRIVE CLR AND GO.

030174

012777

000040

Mov

FCLR,ARHCS?

;CONTROLLER CLEAR.

030202
030206

011237
042737

001126

177770

001126

030214
030222
030224

023737
001601

001126

001124

104065

001212
017330
166604

MoV

L&l:
164552

MOV

RZ2 ,REGADR

STACK POINTER.
ADDRESS.

BIC

#4C<7>,9BDDAT

(R2),$BDDAT

;READ COMMAND REGISTER.

(mMp
BtQ
ERROR

$BODAT,$GDDAT
15141
65

; COMPARE RESULTS.
SNEXT TEST

;SAVE ONLY THE

COMMAND BITS.

ala

MACYT1

4464

4465

4488
4489
4490
4491
4492
4493
4694
4495
4496

4497

4498

REM
)
THE COMMAND REGISTER IS SUPPOSED TO
RH11 IS SELECTED WHEATHER OR NOT WE
SHOULD CLEAR THE COMMAND REGISTER.
THIS IS TESTED BY LOADING A COMMAND
THAN RE1¥RNING TO CHECK THE COMMAND

4466

6467
4468
0469
4470
4671
4472
4473
4678
4475
4476
477
4478
4479
4480
4481
4482
4483
4486
4485
4486
4487

30A(1052)
24=MAY-79
15:07
PAGE 104
140
CSRB COMMAND REGISTER CLEAR TEST

SEQ 0102

BE SELF CLEARING THAT IS WHEN THE
ADDRESS IT DIRECTLY THE LOGIC
INTO IT7 READING ANOTHER REGISTER
REGISTER TO DETERMINE 1F IT CLEARED.

‘;'lIl'"""""'""""""""""""..'.."'."Ol"""".'

SeTEST 41

CSRB COMMAND REGISTER RESELECT CLEAR TEST

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

030226
030230
030236
030244

000004

012737
012737
012777

000001
000041
000040

030252

012706

030256
030262
030266

1ST41:

SCOPE

ITERATION

Mov
MOV
MOV

#1,87IMES

;.00 1

#CLR,3RHCSZ

;:CLEAR RH11 CONTROLLER

001000

Mov

#STACK,SP

;SET STACK POINTER.

013702
010237
005037

014756
045662
001124

MOV

CLR

RHCS1 ,R2
R2,REGADR
$GDDAT

;R2=RHCS1

MOV

030272

012737

000340

MoV

#340,PS

;SET PRIORITY T0 #7.

030300

012712

000011

MOV

11, (R2)

:ISSUE A DRIVE CLR AND GO

030304

011237

001176

MOV

(R2),$TMPO

;D0 A RESELECY OF THE REGISTER.

030310
030314

011237
042737

001126
177770

001126

Mov

(R2) ,$BDDAT
N2C</>,$BDDAT

;READ THE COMMAND REGISTEP.
;SAVE ONLY THE COMMAND BITS.

030322
030330
030332

023737
001401

001126

00112¢4

$BDDAT,$GDDAY
1ST4¢

. COMPARE RESULTS.
SNEXT TEST

104066

001212
017330
164502

177776

L42:

BIC

CMP
BEQ
ERROR

#TTNO,3#TSTNM

;THIS

SAVES

TEST

NUMBER

ADDRESS.

;$GDDAT=S/B.

[ga
X ]

CIRJHDO,RPOL/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD. P12

CIRJHDO,RPO4/S5/6 DSKLS CTRLRZ
01-MAR-79 09:10
CIRJHD.P12

30A(1052)
26-MAY-79 15:07 PAGE 105
141
CSRB COMMAND REGISTER RESELECT CLEAR TEST
.REM
4
HERE WE lEST T0 SEE IF
SR

A2 22X

SEQ 0103

SETTING (IE) AND (RDY) WILL CAUSE AN INTERRUPT.

2R X2 X222
AR
R 2R RRdRdtdndd ]

;*TEST &2

CSRB READY AND I1E !NTERRUPT TEST

030334
030336
030344
030352

000001
000042
000040

030360
030364
030370
030374

0146756
0645662
001126
001124
164340

030400
030406

017737
012777

030442

030414
030420

012706
005037

001000
177776

030424
030430
030432

052712
0002490
000240

000300

0304346
030440

011237
104067

001124

030442

013777

001176

£
—
AN
NN
S O

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

—00
o —O

6499
4500
4501
6502
4503
4504
4505
6506
4507
4508
4509
4510
6511
6512
6513
6514
6515
6516
6517
6518
4519
6520
6521
6522
6523
6524
6525
6526
6527
4528
4529

MACY11

15142:

001176

1646330

L43:

SCOPE

Mov
MOV
MOV

#1,8T1IMES
#TTNO,SFTSTNM

::DO 1 ITERATION

#CLR,ARHCS?

;CLEAR RH11 CONTROLLER

Mov
Mov

:R2=RPCS1

CLR
CLR

RHCST,R2
R2.,REGADR
$BDODAT
$GDDAT

Mov
Mov

aRPVEC,$TMPO
#043,aRPVEC

:SAVE RH11 INTERRUPT VECTOR.
;SET RH11 INTERRUPT VECTOR 043

MoV

#STACK,SP
PS

;SET STACK POINTER.

FIE!RDY,(R2)

;THIS WILL

CLR

B1S
NOP

;THIS SAVES TEST NUMBER
ADDRESS.

:SBDDAT=WAS.
:$GDDAT=5/8B.

CAUSE

INTERRUPT.

NOP

MOV

166276

043:

(R2) ,$GDDAT

ERROR

Mov

$TMPO ,aRPVE(

;RESTORE

RH11

INTERRUPT

VECTOR.

CIZRJHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD. P12

4551

4552
4553
4554
4555
4556
4557

4558
4559
4560
4561
4562
4563
4564
4565
4566
4567
4568

J0A(1052)
142

.REM

THE

3
R

"8
24=-PMAY=79 15:07 PAGE 106
CSRB READY AND IE INTERRUPY TEST

4
(1E) BIT

SEQ 010¢

1S SET CAUSING AN INTERRUPT. AT THE COMPLETION OF

CHECKxTO SEE

THE

(1E) BIT HAS CLEARED.

THE

XEZ XA R 2222222222202
R 2R
2R dRlRRRilldl )

SeTEST 43

(SRB BOES ''IE'' CLEAR AFTER AN INTERRUPT

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

030450
030452
030460
030466

000001
000043
000040

030474
030500
030504

014756
045662

030510
030516

164230
030546

—_O0
o -0
SN —
NONNY
O N —
OoOOoOny

4530
4531
64532
4533
+534
6535
4536
4537
4538
4539
4540
4541
4542
4543
4544
4545
4546
6547
4548
4549
4550

MACY1]

15743

001124

001176

166220

030524
030530

012706
005037

001000

030534

030540
030542

052712
000240
000240

000100

030544

000411

030546
030552

011237
042737

001126
177677

001126

030560
030566

023737
001401

001126

001124

030570

104070

030572

013777

L &6

177776

001176

SCOPE

MOV
Mov
mov

#1,8T1MES

;.00 1 ITERATION

#CLR,ARHCS?

;CLEAR RH11 CONTROLLER

MoV
MOV
CLR

RHCS1,R2
R2,REGADR
$GDDAT

;R2=RPCS1

Mov
Mov

aRPVEC,$TMPO

;SAVE RH11 INTERRUPT VECTOR.
sSET VECTOR T0 046.

Mov

CLR

FSTACK,SP
)

81s

#1E, (R2)

;THIS WILL

E4b

:NO INTERRUPT,

MoV

(R2),$BDDAT

:READ RHCST,

#TTNO,S#TSTNM

#0464 ,3RPVEC

;THIS SAVES TEST NUMBER
ADDRESS.

. $GDDAT=5/8B.

:SET STACK POINTER.
CAUSE

INTERRUPT

NOP
NOP

166144

044:

BIC

#2C<1E>,$BDDAT

(MP
BtaQ

$BDDAT,$GDDAT

E&4:

ERROR

RGG:

MOV

$TMPO,aRPVEC

R&4

:SAVE ONLY THE °*'lE'' BIT.

; COMPARE RESULTS.

. 0x!

;RESTORE

RH11

INTERRUPT

VECTOR.

INTERRUPT

30A(1052)
143

24-PAY-79

15:07

9
PAGE 107

SEQ 0105

CSRB BOES ""1E"' CLEAR AFTER AN INTERRUPT

.REM
4
HERE WE VERIFY THAT WRITING INTO THE ''AS’" REGISTER OWlLL NOT CAUSE
AN

(NED)

ERROR.

X2 XXX

TYTEST 44

22X

ZREEXASRRRASESEA

ALl RAdRddd)

BCTB 'AS'" WRITE TEST

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

030600
030602
030610
030616

000004
012737

012737
012777

000001
0000446
000040

030624

012706

001000

030630
030634

013702
012737

014754
000007

030642

013705

014756

030646

012712

000007

030652

013702

030656

012712

030662

005012

030664
030670

013702

010237

014754
045662

030674
030700

011237
042737

001126
167770

001126

030706
030714
030716

023737
001401

001126

001124

104071

15T44:

SCOPE

#1,8TIMES
FTINO,@FTSTNM
#CLR,ARHCS?

::00 1 ITERATION
;THIS SAVES TEST NUMBER
;CLEAR RH11 CONTROLLER

MOV

#STACK,SP

;SET

Mov
Mov

RH(CS2,R2

;R2=RH11 (S2 ADDRESS.

Mov

RHCS1,RS

;ADDRESS OF

Mov

#USL!US2'UST, (R2);LOAD A NON EXISTANT

014774

Mov

RHAS ,R2

;R2=""AS"" ADDRESS.

000377

MOv

#377,(R2)

;ATTEMPT

CLR

(R2)

;CLEAR

MOV
Mov

R2,REGADR

RHCS2,R2

;R2=RH11

NN
—

MOV
MOV
MOV

—O0
o —O
HN—
—N

4569
6570
6571
6572
6573
(574
6575
6576
6577
6578
6579
4580
4581
(582
4583
4584
6585
6586
4587
4588
4589
4590
5N
4592
4593
6594
6595
6596
4597
4598
4599
4600
4601
4602
4603
4604
4605
4606

MACY1Y

001124

L&S:

Mov

BIC
(Mp

BEQ
ERROR

STACK POINTER.

#USL!'US2'UST,8GDDAT; $GDDAT=S/B.

A DEVICE REGISTER.
DEVICE.

TO LOAD "'AS'’.

"'AS'',
(S2 ADDRESS.

(R2),$BDDAT
;$SBDDAT=WAS.
#*C<NED'US&!US2'US1>,$BDDAT;SAVE NEC AND DEVICE
$BDDAT,$GDDAT
;?TLS

: COMPARE RESULTS.
SNEXT TEST

SELECTED.

Sen

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD.PY?

CIRJHDO,RPO4/S5/6 DSKLS CTRLR?
CIRJHD. P12
01-MAR-79 09:10

MACY 11

.SBTTL

4607
4608
4609
4610
4611
4612

4613

6614

4615
6616
4617
6618
4619
6620
6621
6622
6623
4624
6625
4626
4627
6628
4629
4630
6631
4632

4638
4639
4640
4641
4642

(643

4644

4645

4646

(647
(648
L0649
4650
4651
6652
4653
4654
4655
6656

4657
4658

4659
4660
466
4662

EXTENDED MEMORY, DRIVE TIMING & SECTOR SELECT TESTS

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

MAKE CURRENT CYLINDER = 0

TETEST 45

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

030720
030722
030726
030734
030740
030746

000004
012706
012737
004737
012777
004037

030752

000000

001000
000045
046116
000001
050476

15145:

SCOPE

017330

Mov
MOV

#STACK,SP
#TTNO,@FTSTNM

;RESET STACK
;THIS SAVES TEST NUMBER

164030

MOV

NOMD ,3RHAR

;SET DIAGNOSTIC MODE

JSR

PC,aNMCLDISK

JSR

RO,8#MAKECYL

:INIT DRIVE

:SUBROUTINE TO GIVE A SEEK
; COMMAND FOLOWED BY AN INIT

; THIS SHUOLD CHANGE RHCC TO O

':'"""""""""""""""""""'.Il""ttt'ttt""l'ttt

RHCST = BITS 8 AND 9 - EXTENDED ADDR (A16 & A 17)

SeTEST 46
o

WRITE CYLINDER O, FORMAT 16 BITS PER WORD

e
it

DATA IS THE CONTENTS OF THE TTY READER STATUS REGISTER
THIS WILL USE BITS A16 AND A17 WHEN THERE 1S MORE THAN 28k OF MEMORY

4633

6634
4635
64636
4637

c 9
30A(1052)
24-MAY-79
15:07 PAGE 108
EXTENDED MEMORY, DRIVE TIMING & SECTOR SELECT TESTS

TRACK O, SECTOR O, KEYS O, NUMBER OF WORDS 256

':t"""""'""""'t""""""""'It""ttl't"""".t"'

030754

000004

030756
030762

012706
012737

1$146:
001000
000046

SCOPE

MoV

FSTACK,SP

FTINO,3#TSTNM

MOv

017330

;RESET

STACK

;THIS SAVES TEST NUMBER

;*CHECK TO SEE IF PROGRAM S RUNNING WITH AN RH70
030770
030774
030776
031002

005737
001402
000137

017334

031002
031006
031010
031012

004037
054726
055752
000000

046034

031306

30%:

;THESE

031014

012737

010000

053012
053014
053016
000400
000001

053010

053056
053020

151
BEQ
JMP

8/RH70

JSR
.WORD
.WORD
.WORD

RO,a#CLAREA
DISK
TOLGAP+16
O

ARE

30%
TST47

;TEST FOR RH70 CONTROLLER
;1F FLAG = 1, SKIP THIS TEST
;JUMP TO NEXT TEST esccccccccocccccaa=- )
;1F FLAG = 0, DO THIS TEST

;CLEAR SIMULATED DISK

;FROM
;10
;DATA

SETUP FOR DISKLESS USE ONLY

MOV

#EMT22,30CYL;CYLINDER O

CLR
(LR
(LR

a#SECOTR
AfKEY
ANKEY?2

MoV
MOV

#256.,8#NOWORD
" ,anx

;16 B17S PER WORD
:SECTOR 0 TRA(K O
KEYY O
KEY2 O

;NO OF DATA WORDS
;WRITE DATA

Sea 0106

4663

4664
6665
6666

03
031056
031

004537
053010
054710

MACY1Y

047332

JSR

CrL
WCRC

3,V
VP N

NO SO

MNP

(a9 X e X VW Nl

o
il

046116
177400
001144
150036
163646
010000
163642
046160
005123

e
d
DO
NN
= = O~
O

i
—

L LN

OO0OO0OOOOOOO

NN
AN

OOOO0OO

4684
4685
4686

RS, 9#CRC

;60 TO CALCULATE CRC

: THESE ARE REGULAR SETUPS

4667
4668

4669
4670
4671
4672
4673
4674
4675
4676
6677
4678
4679
4680
4681
4682
4683

D 9
PAGE 109
15:07
30A(1052)
24=-MAY-79
146
RHCSY = BITS 8 AND 9 - EXTENDED ADDR (A16 8 A 17)

000000
013746
052716
012611
052777
005037
004737

163654

163650

015140
163644

Mov

CLR

JSR

TYPE

015170
001400
000010
015126
052650

JSR

MOV
MOov
Mov

163574

HALT
MOV
BIS
Mov

B1S
CLR
JSR

PC,a#CLDISK

#-256.,8RHuC
afSTKS ,aRHBA
887KS ,@FTMPILL
SRHDST
FEMT22,aRHOF
SRHCA
PC,aNCHECKT

»CPHALT

SNURIDAT,-(SP)
FAL6.A17,(SP)
(SP)+ @R\
#BA],aRHCS?

SFERFLGS

PC,a#(OMHD

;SETUP GENERAL REGISTERS
:256 DATA WORDS
:STARTING ADDRESS OF WRITE BUFFEK
; TEMPORARY

STORAGE OF

DATA

:SECTOR O TRACK O
:16 B1TS PER WORD FORMAT

:CYLINDER O
:CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T
:CANNOT CONTINUE TESTING If ANY OF THE

:ABOVE BITS DON'T = 1 OR OTHERS ARE STU(K a !
:STOP THE TEST

;WRITE DATA=60

:SET HIGH ORDER UNIBUS BITS
;FILL RHCS?
:SET BUS ADDRESS INMIBIT
:CLEAR ERROR FLAG
;WRITE DATA

SEQ 0107

afa

CIZRJIHDO,RPOL/S5/6 DSKLS CTRLRZ
01-MAR-79 09:10
CIRJIHD P12

CIZRJHDO,RPO4/S5/6 DSKLS CTRLR?
CIRJHD. P12
01-MAR-79 09:10

£719
4720
&721

30A(1052)

146

9
E
15:07
PAGE 110
24-MAY-T79
RHCS! -~ BITS 8 AND 9 - EXTENDED ADDR (A16 & A 17)

;1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;FROM THE '‘COMHD'' ROUTINE ]T MEANS SECTOR GAP, SYNC BYTE
;HEADER, HEADER
;AND SYNCS WERE

o
o

VIV IV
—
b

VIV IV

TV IV

olololololololelololololole]
)

2 OOO
N
NNV
O SO

POALAI
NI NI R NI NI N
b =

;DATA

(W V RV IV IV IV IV

4687
(688
4689
4690
4691
4692
4693
4694
4695
4696
4697
4698
4699
4700
4701
4702
470%
4704
4705
4706
4707
4708
4709
4710
L7117
6712
6713
W74
4715
4716
“717
4718

MACY11

031262
031264
031270
031274
031300
031302
031304

004737
005737
001042
013700
012701
012702
012737
020021
001425
013737
016137
160237
005737
001002

IS T0 BE
JSR
181

BNE

053130

1%:

Mov
Mov
MOV

104037

Mov
CMp
BEQ
MOV
MOov
sus
181
BNE
ERROR

000401

001124

2%:

104040

005721
017746
042716
022726
001402
005302
001344

147650
177177
000200

646%:

1% :

ERROR

1S1

MOV

B1C
(mpP
BEQ
DEC
BNE

C(RC, HEADER GAP AND
CORRECTLY DETECTED.

SYNC BYTE HAVE

GONE BY

CHECKED.
PC,a#PUTREG

SFERFLGS
15147
S#TMPILL,RO

#D]ISK,R1
#256. ,R2
#257. ,8#ERWORD
RO, (R1)¢

:SAVE REGISTERS

HAVE ANY ERRORS OCCURED?

BRANCH OUT
GOOD DATA

YES

;DATA WRITTEN INTO ''DISK"
:COUNTER
;FOR ERROR WORD

; COMPARE GOOD DATA WITH DATA ON DISK
:BRANCH IF GOOD

3%
SNTMPILL ,8#$GDDAT;GOOD DATA
=(R1) ,a#3BDDAT
:BAD DATA

RZ,8NERWORD

SNERFLGS
2%
37
649
40

(R1)+
aSWR,=(SP)
M177177,(5P)
#SWO7,(SP)+
18147

R?
1%

;ERROR WORD NO
:ANY ERRORS ALREADY THERE?
;BRANCH IF YES

;ERROR ON WRITE CATA COMMAND

sSEE NEXT ERROR COMMENTS
:BRANCH TO AVOID PRINTING NEXT ERROR
:WORD NO GIVES WORD IN ERROR
;ERROR OCCURED WHILE WRITING

:WITH A16 A17 OF RHCSY SET
;UNDO =(R1) FOR BAD DATA

:GET SWITCH SETTING
:KEEP ONLY SWITCH 7 AND 8

-IS 7 SET AND 8 RESET
BRANCH OUT

YES

S1F NOT COUNT 256 WORDS
:BRANCH IF 256 NOT DONE

Sea 0108

30A(1052)

146

24=-MAY=79

15:07

ODRIVE

A READ HEADER AND DATA 1S STARTED ON CYLINDER O, SECTOR
0, TRACK 0, 260 WORDS.
AFTER THE HEADER IS READ IN CORRECTLY,
NO SYNC BYTE (DATA SYNC) IS GIVEN.
THEN NORMAL DIAGNOSTIC DATA CLOCKS AND DIAGNOSTIC

SECTOR CLOCKS ARE GIVEN FOR 24 BYTES.

%
%
®

THEN 536 BYTES OF SECTOR CLOCKS ONLY ARE GIVEN.
THIS IS TO TO BRING SECTOR PULSE UP WHICH SHOULD
SET ''DRIVE TIMING ERROR" -~ 'DTE'

RO
~N~NO
WO o
~Oo &~

[

V. LV ]
[V

T
e
e

(VI

~0r0O0

S 2222222222222
22222222222 A02d iRl
AR RARRRRdll A

001000
000047

i $147:
017330

053010

SCOPE

MOV

#STACK,SP

;*THESE

ARE

MoV

NEMT22 ,a8CYL

MOV

#TINO,@#T1STNM

4;4;

031330

005037

053012

CLR

a¥#SECOTR

4746
4747
64748
4749
4750

031336
031340
031344
031350
03135

005037
005037
005037
004537
053010

053014
053016
053020
047332

CLR
(LR

FXKEY]
INKEY?2

031356

CLR
JSR

4762
6763

4764

4765
4766

4767

4768
4769
&770

771
6772
4773
4774
4775
4776
&777

:16 B11S PER WORD

;CYLINDER O
:SECTOR O

JKEYY = 0
;KEY2 = 0

:THIS 1S A READ (OMMAND
;60 TO CALCULATE CRC

WCRC

THESE

ARE REGULAR

SETUPS

031360
031364
031372
031400

004737
012777
012777
005077

046116
177374
016264
163356

163356
163352

JSKR
MOV
MOV

PC,afCLDISK
#-260.,9RHW(
#REINTO,3RHBA

;SETUP GENERAL REGISTERS
:256 DATA WORDS, & HEADER WORDS
;STARTING ADDRESS OF BUFFER

031404

012777

014000

163354

Mov

NEMT22'ECI,aRHOF

031412
031416

005077
004737

163352
046160
005123

(LR
JSR
TYPE

SRHCA
PC,eNCHECKT
,CPHALT

;16 BITS PER WORD
;ECC CORRECTION INMIBITED
;CYLINDER = 0

015176

MOV

476

STACK

;THIS SAVES TEST NUMBER

;TRACK O

afX
RS,3#CRC

cyL

054710

;RESET

TO SETUP FOR DISKLESS USE

010000

4;6?

Sea 0109

TIMING ERROR

012737

64751
6752
6753
4754
4755
4756
G757
4;28

111

*TEST &7

031322

PAGE

RHCSY = BITS B AND 9 - EXTENDED ADDR (A16 & A 17)

4;4%
W74

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

(oo o)

6722
6723
6724
6725
6726
6727
6728
6729
6730
6731
6732
6733
6734
6735
£736
6737
4738
6739
4740
6741

MACY11

031422

031426

031430

104401

000000

013711

(LR

HALT

aRHDST

af#REFOR,aR!

TRACK = 0
;SECTOR = 0

:CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'1
:CANNOT CONTINUE TESTING IF

ANY OF

THE

:ABOVE BITS DON'T = 1 OR OTHERS ARE STu(k a !

;STOP THE TEST

;READ HEADER AND DATA = 72

;*READ § SAVE REGISTERS FOR COMPARISON AFTER SIMULATED °'DTE’
031434
031440
031442
031444

004037
014750
015024
0000283

046616

JSR
RHW(

w(
19,

RO,a#SAVER

¢READ [N SEQUENCE
:FROM HARDWARE REGISTER

:INTO CORE AT LOCATION
:NUMBER OF REGISTERS TO READ

;eNOW 'GO" wilL BE GIVEN, EVERYTHING WwiLL BE

TREATED

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
CIRJHD.P12
01-MAR-79 09:10

(IRJHD.P1?2

01-mAR-79 09:10

MACY1Y

30A(1052)

147

“778
4779
4780

DRIVE TIMING ERROR

9
PAGE

112

SEQ 0110

;*WITHOUT PUTTING "'READ'' DOWN HENCE
031446
031454

012737
012737

177777
177777

0316462

004737

052650

4791

031466

C17737

163264

(794
4795
6796

0315064

004737

045616

104040
000137

032000

4785
4;3?

15:07

s *NORMALLY FOR THE HEADER. BUT WHEN T IS TIME TO READ
;*DATA, ONLY SECTOR CLOCKS WiLL BE- GIVEN. NO DIAGNOSTIC DATA
:*CLOCKS WILL BE GIVEN. THIS SHOULD BRING SECTOR PULSE HIGH

2;2;

G783
G784

24-MAY-79

015144
015124

°‘DTE' wWiLL COME UP.

MoV
Mov

#-1,30TESDTE
#-1,3/ERFLGS

;SET DTE TEST
;THIS WILL BRING THE

JSR

PC,afCOMHD

;1SSUE *GO', SEARCH FOR THE SECTOR
:AND READ THE HEADER

ARHCS1,#8TMPO

;READ (S1

READ HEADER
:AND DATA PROCESS OUT AFTER THE
;HEADER MAS BEEN CORRECTLY READ

4788
a;gg
A

4792
4793

a;gg

037474
031502

031510
031512

032737
001405

100000

001176

SETCK1: MGV

s8Il
BEQ

JSR

ERROR
JMP

#SC,ansTmeo
8%
PC,afPUTREG

40
15150

TO CHECK FOR ANY READ ERRORS

;TEST FOR *'SPECIAL CONDITION' = *'SC’
;CONTINUE WITH TEST IF °'SC' = 0 (NO ERRORS)
:READ & SAVE ALL REGISTERS AGAIN IF AN
;UNDEF INED DATA TRANSFER ERROR OCCURRED
:READ/WRITE HEADER & DATA ERROR DURING
:
*DTE® TEST = ABORT THE TEST

[

4799

4800

031516

8%:

:NOW THE HEADER HAS BEEN READ 0K

;*NOW 560 SECTOR CLOCKS WiLL BE GIVEN

4801
t.ggg

:*GAP 11 BYTES, SYNC 1 BYTE, DATA 512, ECC & BYTES
;*GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 2

[

4804
4805
4289

-«

4808

4809
4310
4«81

4812
4813
4814
4815
4816
4817
4818
4819

4820
4821
4822
4353
6824

;¢THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA (CLOCKS
;*WHICH EQUALS 3 BYTES OF DATA
031516
031522
031526
031532
031536
031542
031546
031552

031556
031560
031562
031564

012701
013700
012710
052710
042710
012702
052710
042710

005302
001372
005301
001362

000030
014776
000001
000012
000012
000007
000002
000002

1%:
4%:

031566

012701

001030

4829
4830

031576
031602

042710
005301

000010

4831

«8%2

«8%3%

26, ,R1
a#RHMR,RO
#0MD ,aR0
PMSTCK'MCLK,BR0
FMSTCK'MCLK,BR0
#7,R2
#MCLX,8R0
#MCLK,aR0

R2
4%
R1
1%

:LOAD COUNTER
:GET RHMR ADDRESS
:SET DIAGNOSTIC MODE
:SET SECTOR CLOCK AND DATA (LOCK
;CLEAR SECTOR CLOCK AND DATA (LOCK
:LOAD COUNTER FOR DIAGNOSTIC CLOCKS
;SET CLOCK
;CLEAR CLOCK

;COUNT 10 7
:BRANCH 1F 7 NOT DONE
:COUNT 10 24
;BRANCH IF 24 NOT DONE

:*THIS GIVES 536 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA (LOCKS

4827

4828

MOV
mov
MoV
BIS
BIC
MOV
BlS
BIC

DEC
BNE
DEC
BNE

4825

4826

:*THESE 560 SECTOR CLOCKS ARE DIVIDED INTO TwO GROUPS
;224 SECTOR CLOCKS WITH NORMAL DIAGNOSTIC DATA (LOCKS,
. :*AND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC DATA (CLOCKS.

031572
031604

052710
001372

000010

5¢%:

MOV

#536. ,R1

:LOAD SECTOR CLOCK COUNTER

#MSTCK,aR0
R

;CLEAR SECTOR (CLOCK
: COUNT
;BRANCH IF S36 NOT DONE

BIS

#MSTCK,aR0

BNE

BIC
DEC

;SET SECTOR CLOCK

(¥ o)

CIRJHDO,RPOL/S/6 DSKLS CTRLR2

4846
6847
4848
4849
4850

4851
4852
4853

4854
4855
4856
4857
4858

24=MAY=79
15:07
DRIVE TIMING ERROR

PAGE

113

SEQ 011

N~
N
N
N
N
N

MM UM LN AN AN

i
s \JVNS
il \JV
i

015024
015026
015032

MOV

#=-256.,30uC

:SAVED RHW(

015054

BIS
gl1S
MOV
8IS
MOV

#SC!'TRE,a#CST
FDTE ,Q#ER]
#6401 ,39MR

;SAVED RM(SI
:SAVED RMER1
;SAVED RHMR

1776400
016276
140000
010000
000401

015034
015052

000100
000001
015134

015066
015036
015050

140000

MOV

MoV

Mov

FREINTO+<L
. 2> ,8#BA ;SAVED RHBA

NATA'ERR,a#DS1
#100,3#LA

;SAVED RHDSI
;SAVED RHLA

OFATTENT ,3FAS

;s SAVED RHAS

#1,30087

;SAVED RHDST

;*NOW READ & SAVE REGISTERS AGAIN SO THAT COMPAR]SONS
;*CAN BE DONE (USE THE 'WRFROM' SAVE BUFFER THIS TIME)
031674
031700
031702
031704

004037
014750
015220
000023

046616

031706

113737

015051

JSR

RHW(
WRfROM
19.

RO,a#SAVER

;READ

. *FOR RHAS UPPER BYTE

MOvB

015245

IN SEQUENCE

;FROM HARDWARE REGISTER
;INTO CORE BUFFER
;NUMBER OF REGISTERS TO READ

SFAS+] ,BFWRFROM+25

;UPPER RHAS

;*COMPARE THE HEADER READ

004037
053010

047020

JSR
ey

031734
031734
031740

4867

6%:

000207

6%
7%

;RETURN FOR ERROR

ERROR

RIS

; SAME
;RETURN FOR GOOD COMPAR]SON

;HEADER READ

; IN ERROR

IN DURING THIS TEST

:RETURN

:GOOD COMPARISON, CONTINUE

7%:

031740

; COMPARE
. 600D BUFFER
;TEST BUFFER
; NUMBER

1064010

031736

RO,a#COMPAR

REINTO
4.

016264
000004

4866

[V LV LV SV LV RV AV

OO0OO0O0O0O0O0O

; *COMPARE REGISTERS BEFORE (OMMAND WITH REGISTERS AFTER COMMAND

DOO0O0

(Y RV AV L ]

«88%
4884
4885
886
<887
4888
4889

WO
N

031606
031614
031622
031630
031636
031644
031652
031660
031666

4859
4860
4861
4862
6863
«864
4865

4868
4869
4870
(871
4872
4873
4874
4875
4876
877
«<878
4879
4880
4881
<882

3?2;1052)

;*NOW 'DTE' SHOULD BE SET
: *CHANGE SAVED REGISTERS TO EXPECTED VALUES
COOOOO0OOO

4834
4835
<836
4837
<838
839
4840
4841
6842
4843
(844
4845

MACY1Y

004037
015024
015220
000022
031760
031760
032000

047020

013705
060505
016537

053130

104001

0164746

JSR

RO,3#COMPAR

Moy
ADD
MOV

S/ERWORD,RS
:GETTING READY TO INDEX
RS,RS
;DOUBLE ERROR WORD
RHWC=2(RS) ,3#REGADR ;FAILING REGISTER

w(
WRFROM
18.
2%
2%
3

’%:

045667

ERROR

; COMPARE

sINITIAL SNAPSHOT BUFFER (CHANGED)
;TEST SNAPSHOT BUFFER
;NUMBER OF REGISTERS
;RETURN FOR ERROR
: SAME
;RETURN FOR GOOD C(OMPAR]SON

; IMPROPER REG]STER

[N e

CIRJHDO,RPOL/S/6 DSKLS CTRLR2
CIRJIHD P12
01-MAR-79 09:10

CIRJNHD.P12
4890
4891
4892
4893
4894
4895
4896

01-MAR-79 09:10

MACY11

30A(1052)
15:07
24-MAY-T79
167
DRIVE TIMING ERROR

PAGE

114

Sea 0112

;CHANGE AFTER FORCING

031776
032000

000207

RTS

3%:

:'DTE'

;RETURN

ERROR

;GO0D - REGISTERS Ok, GO ON TO NEXT

TEST

CIRJHDO,RPOL/S/6 DSKLS CTRLRZ

CIRJHDO,RPO4/S5/6 DSKLS CTRLRZ
CIRJHD.PY?
01-MAR-79 09:10
4897
4898
4899
4900
4901
4902
4903
4904
L905
6906
4907
4908
4909
4910
4911
6912
(913
4914
4915

MACY11

012737

010000

053010

032022

005037

4923
4924
4925
6926

032026
032032
032036
032046

005037
005037
012737
004537

DRIVE TIMING ERROR

ARl

RRRlA)

THE SECTOR IS SEARCHED FOR AND
AFTER THE HEADER 1S READ IN CORRECTLY,
NO SYNC BYTE (DATA SYNC) IS GIVEN.
NORMAL DIAGNOSTIC DATA CLOCKS AND DJAGNOSTIC

SECTOR CLOCKS ARE GIVEN FOR 2& BYTES,
THEN 536 BYTES OF SECTOR CLOCKS ONLY, ARE GIVEN.
THIS

1S TO TO BRING SECTOR PULSE upP

WHICH SHOULD SET ''DRIVE TIMING ERROR'' - °'DTE’

1S150:

SCOPE
MOV

#STACK,SP

:*THESE

ARE

032050
032052

053010
054710

MOV

#TTINO,a#TSTNM

S#SECOTIR

053014
053016
177777
047332

CLR
(LR
MoV
JSR

SNKE Y
afKEY?
f-1,98x
RS,8#CRC

053020

cYL
WCR(

SRESET

STACK

;THIS SAVES TEST NUMBER

TO SETUP FOR DISKLESS USE

CLR

;v THESE

:16 BITS PER WORD

;CYLINDER O
;SECTOR O

:TRACK O

KEY! = 0
;KEY2 = 0
:THIS IS FOR WRITE DATA (OMMAND
;60 TO CALCULATE CRC

ARE REGULAR SETUPS & C(HEC(KS

PC,a#CLD]ISK
#-256.,aRNHWC

CLR

#WRFROM,IRHBA
SRHDST

:SETUP GENERAL REGISTERS
:256 DATA WORDS

MOV

#ENT22,8RHOF

162656
046160
005123

CLR

SRh(CA

:TRACK = 0
;SECTOR = 0
:16 BITS PER WORD
;sECC CORRECTION INMIBITED
;CYLINDER = 0

TYPE

LCPHALT

:CANNOT CONTINUE TESTING If

015170

MOV

046116
177400
015220
162662

4937

032100

012777

012000

4939
4940
4941

032106
032112
032116

005077
004737
104401

4943
4944

032122
032124

000000
013711

4992

053012

004737
012777
012777
005077

6947
4948
9649
4950
4951

FEMT22,80CYL

032054
032060
032006
032074

6945
6946

XA X

MOV

4933
4934
43;5

6942

::t't""'t""'Qt't'tt"t"t"t'tt't'ttt'.'ttt'tttttt't'tt'tt'tt

032014

4938

L
.
.,
ot

4919
4920
43%;

6936

XXX

SEQ 0113

017330

4927
4928
6929
4930
4931
6932

115

A WRITE DATA COMMAND 1S STARTED ON CYLINDER O, SECTCR
0, TRACK 0, 256 WORDS.

ot
B

001000
000050

PAGE

v
v
b

000004
012706
012737

4918

SeTEST 50

032000
032002
032006

4916
917

30AC1052)
24-MAY-79
15:07
147
DRIVE TIMING ERROR

1626672

162656

162660

JSR
MOV

MOV

JSR

HALT

PC,af(HECKT

S#WRIDAT,aR1

:STARTING ADDRESS OF BUFFER

;CHECK DVA,RDY,DPR,DRY = 1 AND OTH4ERS DON'T
ANY OF

THE

;ABOVE BITS DON'T = 1 OR OTHERS ARE STu(x @ 1
:STOP THE

TEST

;WRITE DATA = 60

:*READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED °'DTE'’
032130
032134
032136
032140

006037
014750
015024
000023

046616

JSR
RHW(C

19.

RO,8#SAVER

;READ REGISTERS IN SEQUENCE
;FROM HARDWARE REGISTER
:INTO CORE BUFFER LOCATION
;NUMBER OF REGISTERS 10 READ

30A(1052)
26=MAY=79
15:07
150
DRIVE TIMING ERROR

9
PAGE

4963

6965
4966
4967
6968
6969
4970
4971
4972
4973
6974
4975

4976
4977
4978
4979
4980
4981
4982
4983
4984
4985
4986

4987
4988
4989
4990
499N
6992
4993
4994
6995
4996
6997
4998
4999

5000
5001
5002
5003
5004
5005
5006
50C7
5008

SEQ 0114

—

[p9F
o
s

—

(=X o]

—

~~nY

onrny

—

(YA

[aS 1V

Mov
Mov

#-1,30TESDTE
#-1,aNERFLGS

;SET DTE TEST
;THIS WILL BRING THE READ HEADER
;AND DATA PROCESS OUT AFTER THE
;HEADER HAS BEEN CORRECTLY READ

PC,afCOMHD

; ISSUE °'6GO°', SEARCH FOR SECTOR,
;READ HEADER AND DATA.

SRHCS1,a¥#$TMPO

;READ CS1

BEQ
JSR

6%
PC,a#PUTREG

ERROR

;CONTINUE TESTING IF NO ERROR
;READ & SAVE REGISTERS AGAIN IF UNDE;FINED ERROR HAS OCCURRED
: THERE WAS A READ/WRITE HEADER ERROR

JMP

1ST51

6962

6964

116

;*NOW 'GO’ wiLL BE GIVEN, EVERYTHING WILL BE TREATED
; *NORMALLY FOR THE HEADER. WHEN IT IS TIME TO WRITE
;*DATA, ONLY SECTOR CLOCKS WILL BE GIVEN, NO DIAGNOSTIC DATA
;*CLOCKS WILL BE GIVEN. THIS SHOULD BRING SECTOR PULSE HIGH
;*WITHOUT PUTTING READ DOWN, HENCE 'DTE' wILL COME UP.
oo

4953
6954
6955
4956
4957
4958
6959
4960
6961

MACYIN

032156

004737

052650

JSR

032162
032170
032176
032200

017737
032737
001405
004737

162570
100000

SET(KZ: MoV

032204

104040

032206

000137

811

045616

0372524
6%:

032212

#SC,ansTMPO

TO CHECK

FOR READ ERRORS

;TEST FOR "'SPECIAL CONDITION'" - *'SC'

;DURING °DTE' TEST SETUP
ABORT THE TEST

:NOW THE HEADER HAS BEEN READ,

;*560 SECTOR CLOCKS WiLL BE GIVEN -

;*GAP 11 BYTES, SYNC 1 BYTE, DATA 512, ECC & BYTES
;*GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 2

:*THESE 560 SECTOR CLOCKS ARE DIVIDED INTO TWO GROUPS
;%24 SECTOR CLOCKS WITH NORMAL DJAGNOSTIC DATA (CLOCKS

;*AND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC DATA LOLKS
;*THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA (LOCKS
032212
032216

032222
032226
032232
032236
032242
032246
032252
032254
032256
032260

000030
014776
000001
000012
000012

000007
000002
000002

1$:

4%:

Mov
MOV

ne4. R
S#RHMR RO

:LOAD SECTOR CLOCK COUNTER
;GET RHMR ADDRESS

B1S
81C
Mov
B1S
BIC
DEC
BNE
DEC
BNE

MMSTCK!MCLK,dR0
IMSTCK!MCLK,aRO
7 ,R2
MCLK,aR0
MCLK, 3RO
R2
4%
R1
1%

;SET SECTOR CLOCK AND DATA CLOCK
;CLEAR SECTOR CLOCK AND DATA (LOCK
;LOAD COUNTER FOR DIAGNOSTIC DATA (LOCKS
sSET CLOCK (DATA)
;CLEAR CLOCK (DATA)
; COUNT
:BRANCH IF 7 NOT DONE
: COUNT
;BRANCH IF 24 NOT DONE

MoV

#DMD ,aR0

sSET DIAGNOSTIC MODE

;*THIS GIVES 536 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS

032262
032266
032272
032276
032300

001030
000010
000010

5%:

MOV

BIS
8IC
DEC
BNC

#536. R

MSTCK,aR0
MSTCK ,aR0
R1
5%

;LOAD SECTOR (LOCKX COUNTER

;SET SECTOR CLOCK
;CLEAR SECTOR CLOCK
s COUNT
:BRANCH IF 536 NOT DONE

oTM

CIRINWDO,RPO4/S5/6 DSKLS CTRLR?
CIRJHD P12
01-MAR-79 09:10

CIRJHDO,RPO4
/576 DSKLS CTRLR2
01-MAR-79 09:10
CZIRJHD P12
5009
5010
5011
5012
5013
5014
5015
5016
5017
5018
5019
5020
5021
5022
5023
5024
5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
5036

5037
5038
5039
5040

5041
5042
5043
5044
5045
5046
5047
5048
5049
5050
5051
5052
5053
5054

5055
5056
5057
5058
5059
5060
5061
5062
5063
5064

032302

017737

162502

MACY1

24-MAY-79
15:07
S?A (1052)
50
DRIVE TIMING ERROR

PAGE

117

SEQ 0115

;*ECC PATTERN REGISTER IS NOT CMECKED

015064

Mov

aRHECZ ,aFEC2

;RHEC2 1S NOT CHECKED

;*NOW 'DTE' SHOULD BE SET, CHANGE SAVED REGISTERS TO EXPECTED VALUES
1S1
BEQ

8#RHT70
JP1

;CHECK FOR RH70 CONTROLLER
;SKIP RH70 CODE AND DO RH11

032310
032314

017334

032316
032324
032332
032340

177416
015254
000300

:
VAR
VARZ:

MOV

#-262. ,a0(

s SAVED RHWC

B1S
BR

#IR'OR,3#CS2
JP2

; SAVED RH(S2
;SKIP NEXT RH11 (CODE

177511

JP1:

MOv

#-183. ,a0u(

. SAVED RMWC

140000

JP2:

BIS
B1S

#SC!TRE,aNCS1
#DTE ,a#ER]

;SAVED RHCS1
; SAVED RHER1

BIS

#ATA'ERR,3#DST

;SAVED RHDSI

032342
032350
032356
032364

015442
000100
000200

032372
032400
032406
032414
032422
032430
032436

010000
000201

;RHWC AND RHBA WILL BE MODIFIED FOR RW70C

MOV

MOV
B1C
BIS

MOV

160000

MOV
MOv
Mov

000100
000001

015134

IF NOT

,@#BA ;SAVED RHPA
¢2>14,
FURFROM+<

FURFROM+<73.+¢2>,a#BA ;SAVED RHBA
#IR,aNCS2
:SAVED RH(CSZ
#OR,aNCS2
:SAVED RHCS2

#DENVL!DMD ,a#MR

#100,3/LA
#1,30DST
SFATTENT ,a#AS

;SAVED RHMR

:SAVED RHLA
;SAVED RHDST
;SAVED RHAS

;*NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS
;CAN BE DONE (USING 'WRFROM' BUFFER THIS TIME?
0324446
032450
032452
032656

032456

004037
014750
016264
000023
113737

JSR

046616

015051

RHW(
REINTO
19.

RO,a#SAVER

:READ IN SEQUENCE
;FROM HARDWARE REGISTER
:INTO CORE BUFFER LOCATION
:NUMBER OF REGISIERS TO READ

. *FOR RHAS UPPER BYTE

MOvB

016311

GFAS+1 ,Q#REINTO+25 ;UPPER RHAS

;*COMPARE CHANGED REGISTER SNAPSHOT BEFORE COMMAND WITH
; *SNAPSHOT AFTER COMMAND

032464

004037
01502¢

047020

016264

000022
032504
€32504
032524

013705
060505
016537

2%:

053130
0146746

045662

; COMPARE

JSR

RO,af#COMPAR

MOV
ADD
MOv

;GETTING READY TO INDEX
o/ERWORD,RS
RS.RS
:DOUBLE ERROR WORD
RHW(-2(RS) ,0#REGADR ;FAILING REGISTER

w(
REINTO
18.
2%
2%
3%

sCHANGED INITIAL SNAPSHOT BUFFER
:SNAPSHORT BUFFER AFTER COMMAND
:NUMBER OF REGISTERS 10 COMPARE
;RETURN FOR ERROR
; SAME
;RETURN FOR GOOD COMPAR]ISON

CZRJHDO,RPO4L/S/6 DSKLS CTRLRZ
CZRJHD.P12
01-MAR-79 09:10

MACYIY

S(T)Aflosz)
2L=MAY-79
15:07
50
DRIVE TIMING ERROR

5065
5066
5067
gggg

032520

104001

ERROR

032522

000207

RTS

gg;?

032524

5072

3%:

9
PAGE 118
; IMPROPER REGISTER
;CHAYGE AFTER FORCING
;'VTE' _RROR
;RETURN

.6G00D, REGISTERS OK - GN ON TO NEXT TEST

SEQ 0116

CIRJHDO,RPO4/5/6 DSKLS CTRLR?
CIRJMHD P12
01-MAR-79 09:10
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084
5085
5086
5087
5088

MACY 1Y

30A(1052)
24=-MAY=79
15:07
150
DRIVE TIMING ERROR

;*TEST 51
;e

i
*

i
i

A WRITE HEADER AND DATA COMMAND 1S GIVEN

T0 CYLINDER O, SECTOR 0, TRACK 0, 256. WORDS.

AFTER SECTOR 1S FOUND

b —
el
D el =D

(THE SECTOR FOUND FLOP IS HIGH),

NO MORE DIAGNOSTIC DATA (LOCKS ARE GIVEN,
ONLY SECTOR CLOCKS ARE GIVEN TILL SECTOR PULSE 1S HIGH.

THIS SHOULD SET 'DRIVE TIMING ERRORTM - °'DTE'

032524
032526
032532

000004
012706
012737

001000
000051

1§151:

017330

SCOPE
MOV

MOV

FSTACK,SP

FTINO,#TSTNM

;RESET

STACK

:THIS SAVES TEST NUMBER

;*THESE ARE TO SET UP FOR DISKLESS USE ONLY
032540

012737

01000C

032546
032552
032556
032562
032570
032574

005037
005037
005037
012737
004537
056146
056156

056150
056152
056154
000400
0647332

056146

MOV

NEMT22,3#WCYL

056206

CLR
(LR
CLR
MOV

SNWSECTR
aNWKEY
ANWKEY2
#256. ,a#FNWORD

JSR

weYL
GCRC

RS, a#CRC

;FORMAT 22=16 BITWORDS AND
:CYLINDER 0
:TRACK=0, SECTOR=0
sKEY1=0
:KEY2:0
;256 DATAWORDS
GO 10 CALCULATE CRC

ARE REGULAR SETUPS & CHECKS

032600
032604
032612
032620

004737
012777
012777
005077

046116

177374
015220
162136

JSR
MOV
MOV
CLR

PC,a#CLDISK
#-260.,aRHWC
#WRFROM,3RHBA
BRHDST

;SETUP GENERAL REGISTERS
:256 DATA WORDS & & HEADER WORDS
:STARTING ADDRESS OF BUFFER
STRACK = 0

032624

012777

014000

MOV

#FMT22'EC],3RHOF

032632
032636
032642

005077
004737

162132

(LR
JSR

SRHCA
PC,aNCHECKT

;16 BITS PER WORD
;ECC CORRECTION INHIBITED
sCYLINDER = 0

032646
032650

000000
013711

104401

046160
005123

TYPE

,CPHALT

SEa 0117

DRIVE TIMING ERROR

;¢ THESE

015172

HALT

MOV

a#WRIFOR,aR1

:SECTOR = 0

:CHECK DVA,RDY,DFR,DRY = 1 AND OTHERS DON'T
:CANNOT CONTINUE TESTING IF

ANY OF

THE

:ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK a !

:STOP THE TEST

;WRITE HEADER AND DATA = 62

D el

119

::..""""""""""""""""""t"""""ll""'.ttt't'

032576

NN
st = b b et et 2 2 2 OO OO
N—=CODNO
NS WO 000~

9
PAGE

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

5089

(G XV SV RV IV AV IV LV TV TV TV LV LV LV AV LV AV, AV ]

—

;*READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED 'DTE’
032654
032660
032662
032664

004037
0,64750
015024
000023

046616

JSR
RHWC
Wl
19.

RO,3#SAVER

sREAD IN SEQUENCE
:FROM HARDWARE REGISTER
; INTO CORE BUFFER LOCATION
;NUMBER OF REGISTERS TO READ

————

——d

30A(1052)
24-MAY-79
15:07
151
DRIVE TIMING ERROR

B 10
PAGE 120

SEQ 0118

;*NOW 'GO' WILL BE GIVEN. EVERYTHING WILL BE TREATED
; *NORMALLY TILL HEADER

IS TO BE GIVEN,

THEN ONLY

MOv
Mov

#-1,a#TESDTE
N-1,3NERFLGS

;SET DTE TEST
;THIS WILL BRING THE READ HEADER

JSR

PC,aN#COMWHD

055772

032706

017737

162044

032730

104040

032714
032722
032724

032732

177777

7ot

100000

—

004737

no £~
Pol
o

032702

012

—

012

032666
032674

[e]e]

;*SECTOR CLOCKS WILL BE GIVEN. NO DIAGNOSTIC DATA
;*CLOCKS WILL BE G!VEN. THIS SHOULD BRING SECTOR PULSE HIGH
;*WITHOUT PUTTING "'READ'' DOWN, HENCE 'DTE' wILL COME UP.

001176

SETCK3: MOV

;READ CS1

ERROR

;THERE WAS A READ/WRITE HEADER ERROR

JMP

1ST52

045616

BI1
BEQ
JSR

000137

033164
6%:

;1SSUE 'GO', SEARCH FOR SECTOR,

;WRITE HEADER AND DATA.

8RHCSY,afsTMPO

032737
001405
004737

032736

:AND DATA PROCESS OUT AFTER THE
sHEADER HAS BEEN CORRECTLY READ

NSC,ansTMPO
4%
PC,a3#PUTREG

TO CHECK FOR ERRORS DURING WRITE
;TEST FOR "'SPECIAL CONDIT(ON'' - 'SC'
;CONTINUE TEST IF NO ERROR ('SC' = 0)
;READ & SAVE REGISTERS AGAIN If ERROR

;:DURING 'DTE' TEST SETUP
:

ABORT THE TEST AT THAT POINT

;NOW SECTOR HAS BEEN FOUND OK

;*609 SECTOR CLOCKS WILL BE GIVEN,
;*39 BYTES FOR SECTOR GAP,

;*1

BYTE FOR HEADER SYNC,

;*8 BYTES FOR HEADER,

;*GAP 11 BYTES, SYNC 1 BYTE, DATA 512, ECC & BYTES
;*GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 3
;*THIS GIVES 609 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS

032736
032742
032746
03¢752
032754

012701
052710
042710
005301
001372

001141
(€00010
000010

5%:

Mov
BIS
BIC
DEC
BNE

#609. ,R1
#MSTCK ,aR0
#MSTCK ,aRO
R1
5%

;LOAD SECTOR CLOCK COUNTER
sSET SECTOR CLOCK
sCLEAR SECTOR (CLOCK
: COUNT
;BRANCH IF 536 NOT DONE

;*NOW 'DTE' SHOULD BE SET, CHANGE SAVED REGISTERS
;70 EXPECTED VALUES

032756
032762

005737
001407

017334

18T
BEQ

a¥RH70
JP3

:CHECK FOR RH70 CONTROLLER
;SKIP RH70 CODE AND DO RH11 IF NOT

032764
032772
033000

012737
012737
000406

177404
0152640

015024
015026

VAR3:
VARG:

MOV
MOV
BR

N-252.,30W(
: SAVED RHWC
NWRFROM+<B.*2>
,a#BA ;SAVED RHBA
JP4
;SKIP NEXT RH11 CODE

033002
033010

012737
012737

177477
015426

015024
015026

JP3:

MoV
MOV

#-193. a0
. SAVED RHW(
NWRFROM+<67.42>,a#BA ;SAVED RHBA

033016

052737

140000

015032

JP4:

BIS

#SC!TRE,a#(S1

;RHWC, RHBA AND IR BIT wILL BE MODIFIED FOR RH70C

;SAVED RHCSI

MACY1Y

NS [V
NS NN —=O 000~
NI NN = OV
NN =00V
VNE NN = O VYOV
WNO VB MR =2O VBN

d e

i e

d i

D e

vah

od eh D

D e

d e

D el o

)

D e

i el

D el

D e

il i

D ol o

il il

D -

NNNNNNNNNOOCOCCOOOCOOCOOC
NN NN
LS IS IS B0 0
0 I 2 U N W
N W N N
N PO O PO RO RO Y ~o

(T IV IV IV IV IV IV IV IV AV AV IV IV IV IV TV IV IV TV VU IV LAV IV IV TV IV IV IV IV LV TV IV IV IV TV IV TV IV, IV, 1V, IV, IV, IV IV TV, IV IV, IV IV TV IV, IV, IV 1V N

CIRJHDO,RPOL/S5/6 DSKLS CTRLR2
CIRJHD P12
01-MAR-79 09:10

NNNN~NN

NN
N
NN~

OCOOOOO

062737
052737
3
5
1
3
5
3
1
3
1
3
1
3

000100
000200
010000
000401
140000
000100
000091
015134

30A(1052)
26-MAY=79
15:07
151
DRIVE TIMING ERROR

030

c 10
PAGE 121

BIC
BIS

FIR,a#(CS2
#OR,¥#(S2

MOV
MOV
MOv

#100,3/LA
N ,aNDsT
AFATTENT ,QFAS

B1S
MOov
B1S

D e

SV RV SV LV SV SV LV JW LV SV LV IV IV LV ]

033024
033032
033040
033046
033054
033062
033070
033076

MACY11

#DTE,SERT
N601,34MR
NATA'ERR,3#DS1

:SAVED RH(SZ
:SAVED RH(S?2

:SAVED RHER1
: SAVED RHMR
;SAVED RHDS1

:SAVED RHLA
; SAVED RHDST
;SAVED RHAS

SO0

— ot
O

D
D
el

D
d md

046616

033116

113737

015051

OO0

004037
014750
016264
000023

JSR
RHWC
REINTO
19.

RO,3#SAVER

;READ IN SEQUENCE
;FROM HARDWARE REGISTER
;INTO CORE BUFFER LOCATION
:NUMBER OF REGISTERS TO READ

NN NN

WM AN NN

;*NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS (AN BE DONE

(VAL

d e

. *FOR RHAS UPPER BYTE

move

016311

—

dh
D wld

033124
033130
033132
03313¢
033136
033140
033142

004037
015024
016264
000022
033144
033144
033164

047020

033144
033150
033152
033160

013705
060505
016537
104001

053130

033162

000207

JSR
Wi
REINTO
18.
2%
2%

RO,a#COMPAR

MOV
ADD
Mov

3#ERWORD,R5
;GETTING READY TO INDEX
R5,RS
.DOUBLE ERROR WORD
RHWC-2(RS) ,#REGADR ;FAILING REGISTER

RTS

014746

2%:

045662

ERROR

QO ~NO

D
it
—

033164

3%:

; COMPARE
: CHANGED REGISTER SNAPSHOT
; SNAPSHOT AFTER COMMAND
;NUMBER OF REGISTERS TO COMPARE
;RETURN FOR ERROR
; SAME

;RETURN FOR GOOD COMPARISON

)

U LV LV LV ,]

;*COMPARE CHANGED REGISTER SNAPSHOT BEFORE COMMAND
;*WITH REGISTER SNAPSHOT AFTER COMMAND

oot
NN

(W NN AV IV LV

S¥AS+1,BFREINTO+25 ;UPPER RHAS

: IMPROPER REGISTER
: CHANGE AFTER FORCING
;'DTE' ERROR
; RETURN

.600D, REGISTERS COMPARE OK
;GO ON TO THE NEXT TEST

1
SEQ 0119

CZRJHDO,RPO4/S5/6 DSKLS CTRLR?
CIRJHD. P12
01-MAR-79 09:10

MACY11

30A(1052)
24-MAY-79
15:07
152
SECTOR SELECTION

222222222

SATEST 52
%
N

IS - 19 WORDS OF ZEROS - SYNC WORDS, & HEADER WORDS
CRC WORD, 5 WORDS OF 2EROS, 1 SYNC WORD, 100 ZEROS
(DATA), 1 SYNC WORD, 70 SECTOR NUMBER TO VARY

001000
000052
046116

033204

012737

000026

SECTOR SELECTION

®s

000004
012706
012737
004737

X222 2222222222222
2R dRR iRttt d)

DATA

THE WRITTEN DATA IS CHECKED

033164
033166
033172
033200

X222

Sea 0120

THE SECTOR SELECTION LOGIC IS CHECKED HERE
EACH SECTOR ON TRACK ZERO IS WRITTEN INTO.

2O 000~ NI

VAN NN UWN N NN AW
AN I A L
S L
N I A AN I
N NN
OO N AN NI N

D 10
PAGE 122

X222

1S752:

XEX2222222X222 2220220222222

SCOPE

#STACK,SP
#TINO,Q#TSTNM

017330

Mov
Mov
JSR

PC.a#CLDISK

015146

Mov

#22.,3#TAGDTE

IN MEMORY

R20020

20220 2dSRRaRRaRRRRRRRRRA

sRESET STACK
;THIS SAVES TEST NUMBER

;SETUP GENERAL REGISTERS & CLEAR
: THE DRIVE

;22 SECTORS

;THIS TEST REPEATS
s 1TSELF 22 TIMES

;*THE FOLLOWING INITIALIZES FOR SECTOR O
033212
033216
033224
033232
033236
033242
033246
033254
033262

5257
5258

5263
5264
5265
5266
5267
5268
5269
5270
5271
5272
5273
5274
5275

033266
033266
033272

033276
033300
033302

005037
012737
012737
005037
005037
005937
012737
012737
005037

033316
000025
000025
03335¢
033436
033466
000025
000025
033542

CLR
MOV
MOV
CLR
CLR
CLR

033322
033326

033474
033502

Mov
MOv

CLR

aNSS3+2
N21.,3K554+2

sHEADER (SECTOR)
;HEADER (KEY1)

aNsS7+2
aNSS10+2
anss12+2
#21.,8#551342
#21.,8M551442
aNSS15+2

;DATA (SECTOR)
;DATA
;SECTOR (SIMULATED DISK)
;KEY1 (SIMULATED DISK)
;KEYZ2 (SIMULATED DISK)
;SECTOR (RHDST)

#21.,a#555¢+2

;HEADER (KEY2)

;*CLEAR SIMULATED DISK AREA
012700
012701
005020
005301
001375

054630
000460

1%:

2$:

MOV
MOV

CLR
DEC
BNE

#SECGAP,RO

:POINTER

(RO)+
R1
2%

;CLEAR SIMULATED DISK AREA
; COUNT

#304. ,R1

; COUNTER

;¢SETUP WRITE FROM BUFFER
#WRFROM,RO

033304

012700

015220

MOV

033310

012720

010000

; *tHEADER
#EMT22,(RO)+
MOV

033314
033320
033324

012729
012720
012720

000000
000025
00002%

$S3:

MOV

$S5:

MOV

$Sh:

MOV

#0,(RO)+

#21.,(RO)+
#21.,(RO)¢

;FORMAT 16 BITS PER WORD
;CYLINDER O
:SECTOR TO VARY

;KEYY TO VARY
;KEYZ2 TO VARY

;*DATA [N WRITE FROM BUFFER ALTHOUGH THIS 1S DATA AND NOT
;*HEADER, THE SECTOR WITH SYNC BYTES WiLL BE GIVEN AS DATA,

CIRJHDO,RPO4/S/6 DSKLS CTRLR2
01-MAR-79 09:10
CZRJHD P12

CIRJHDO,RPOL/S5/6 DSKLS CTRLR?
01-MAR-79 09:10

CIRJHD. P12

=2O V0NN
WA —O O

d et O

000023

033370

012705
005020
005305
001375
013720
012720
012720
005020
005020
004537
015270
015300

033372

005720

033374
033400
033402
033404

012705
005020
005305
001375

000005

033406

013720

053112

033412
033416

012705
005020

000144

033424
033430
033434
033440
033442

013720
012705
012720
005305
001374

052112
000106
000000

033420
033422

6%:

053112
010060
000000

SS7:

047332

8%:

9%:

005305
001375

$S10:

E 10
PAGE 123

SEQ 012

MOV
719, RS
(RO)+
CLR
RS
DEC
BNE
6%
Mov
a3#RSYNC, (RO) ¢
Mov
#EMT22,(RO)¢
Mov
#0,(RO)+
(RO)+
CLR
¢
(RO)
CLR
JSR
RS,a¥CRC
WRFROM+50
WRFROM+60

;s COUNTER
;19 ZEROS
; COUNT
;19 DONE?
:SYNC = 14400
:CYLINDER O
;SECTOR TO VARY

181

(RO)+

: INCREMENT RO

MOV
CLR
DEC
BNE

#5.,R5
(RO)+
RS
8%

;5 WORDS OF ZEROS
: COUNT
:BRANCH IF S5 NOT DONE

Mov

SNRSYNC, (RO) +

:SYNC = 14400

MOV
CLR

#100.,R5
(RO)+

;100 WORDS OF

DEC
BNE

RS
9%

MOV
Mov
MOV
DEC
BNE

a#RSYNC,(RO)+
#70.,R5
#0, (RO)+
RS
$S10

<CALCULATE CRC FOR ABOVE & WORDS
:4 WORDS START FROM HERE
;PUT CRC HERE

ZEROS

:SYNC = 14400
;SECTOR TO VARY

;*CLEAR REST OF 256 WORDS THAT IS 54 WORDS Jf ZEROS
033444
033450
033452
033454

012705
005020
005305
001375

000066

11%:

MOV
CLR
DEC
BNE

#54.,R5
(RO)+
RS
1%

;*THESE ARE

TO BE SET UP FOR DISKLESS USE ONLY

MOV

NEMT22,90WCYL

000000
000025
000025
000312
047332

056150
056152
056154
056206

MOV
MOV

#0,aNWSECTR
#21, ,a0WKEY]

—

056146
£ waro

010000

wwwnnn

033456

[V R
NV,

—= OOV
N NS W

wiwforurorRD
PO
NORN PN

b e e

d o

ih e e

A L L Lol LU L L Lt L L L A L U L L AN U AN LM WM

30A(1052)
15:07
2L-MAY-79
152
SECTOR SELECTION

;*DATA 1S - 19 WORDS OF ZEROS - SYNC WORDS, & HEADER WORDS
:*1 (RC WORD, 5 WORDS OF ZEROS, 1 SYNC WORD, 100 ZEROS
;*(DATA), 1 SYNC WORD, 70 SECTOR NUMBER TO VARY

5276
5277
5278
5279
5280
5281
5282
5283
5284
5285
5286
5287
5288
5289

WXV IV IV IV IV YW AV TV LV TW LV LV LU LV TV LV TU RV LV AV IV AV ]

MACY11

MOV
MOV
JSR

weYL

GCRC

¥21. ,30WKEY2
#202.,3¥#FNWORD
RS,a#CRC

;FORMAT = 16 BIT WORDS
;CYLINDER = 0
;SECTOR TO VARY

;KEY1 TO VARY
:KEYZ2 TO VARY
;202 DATA WORDS
s CALCULATE (CRC
;FIRST WORD
:PUT HERE

CIRIHDO,RPO4/S5/6 DSKLS CTRLR2

CIRJHD.P12

01-MAR-79 09:10

MACY11

30A(1052)

152

2%%%
5336
5335
5336
5337
5338

24-MAY-79

15:07

SECTOR SELECTION

033524
033532
033560
033546

012777
012777
012777
013777

1776400
015220
000000
015172

161216
161212
161214
161202

SS15:

Mov
Mov
MOV
mov

#-256.,3RHWC
#WRFROM,aRHBA
#0,aRHDST
¥WRIFOR,IRHCST

033554
033562

012777
005077

010000
161202

2222

033566

005037

5345
5346
5347

033572
033576

004737
104401

gg:g

033602

000000

5350
5351
5352
gggz

033604

004737

055772

JSR

PC,a¥COMWHD

033610
033614

005737
001051

015124

15T
BNE

ANERFLGS
7ST53

5355
5356
2%2;

033616
033622
033626

004737
104401
000000

046350
005123

JSR
TYPE
HALT

PC,a#CHECKE
. CPHALT

5361
5362
5363
5364
5365
5366
5367
5368
5369
2%;?

033630

033634
033636
033640
033642
033644
033646
033650
033652
033654
033656

004037

015230
054726
000400
033650
033654
033660
104007
000207
104010
000207

MOV
CLR

#EMT22,aRHOF
IRHCA

015124

CLR

IFERFLGS

:CLEAR ERROR FLAG

046160
005123

JSR
TYPE

PC,aNCHECKT
,CPHALT

;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T
: CANNOT CONTINUE TESTING IF ANY OF THE
;ABOVE BITS DON'T = 1 OR OTHERS ARE STu(k 3 1

161204

HALT

16%:

17%:

005237
005337

033316
033322

5379

033700

005237

033436

5381
5382
gggS
4

033670
033674

033704

033710
033714
033720

005337
005237

005237

005337
005337
005237

5385

033724

005337

5387

033732

000402

5386

;1SSUE 'GO', COUNT SECTOR CLOCKS,
;WRITE HEADER AND DATA
;HAVE ANY ERRORS OCCURRED ?
:
EXIT IF YES======cc-ccccccccccem- )

;CHECK THAT DVA,RDY,DPR,DRY = 1
;CANNOT CONTINUE IF THEY DON'T
;STOP THE TEST AND RESTART PROGRAM

WRFROM+8.
D1SK
256.
16%
17
18%
7
ERROR
PC
RTS
ERROR
10
RTS
PC

;600D BUFFER
;TEST BUFFER
:NUMBER OF WORDS
;RETURN POINT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA
;RETURN FOR GOOD COMPARISON

;*THE FOLLOWING INCREMENTS ARE TO CHANGE THE ABOVE SET UP
;*T0 WRITE ON THE NEXT SECTOR

033660
033664

5380

;STOP THE TEST

;*NOW COMPARE ''DISK'* BUFFER WITH ''REINTO'' BUFFER
JSR
RO,a¥#COMPAR
; CHECK

047020

5375
5376

5377
5378

;202 DATA, 4 HEADER
;FILL BUS ADDRESS
;SECTOR TO VARY
;GET READY TO DO
;WRITE HEADER AND DATA

;WITH 62 FUNCTION CODE IN RH(CS!
;16 BITS PER WORD FORMAT
;CYLINDER = 0

5372
2%;3
4

10
PAGE 124

;*THESE ARE REGULAR SETUPS

5339
5340
g%z;

5359
5360

033736

001001

18%:

033326
033354

aNsSS3+2
aNSS4+?

INC

aN¥ss10+2

DEC
INC

INC

033466

DEC
DEC
INC

033474
033502
033542

015146

INC
DEC

§S2:

INSS5+2
aNSST+2

;HEADER (KEY?2)
;DATA (SECTOR)

3NS51242

;SECTOR (SIMULATED DISK)

3NSS13+2
aNS$S14+2
aNss15+2

DEC

¥ TAGDTE

TS153

BNE

;HEADER (SECTOR)
;HEADER (KEY1)

;DATA

;KEY1 (SIMULATED D]SK)
;KEY2 (SIMULATED DISK)
;SECTOR (RHDST)

; COUNT DOWN FOR 22 SECTORS

;BRANCH ]F 22 SECTORS NOT DONE
;ALL DONE - GO TO NEXT TEST

SEQ 0122

CIRJHDO,RPOL/S/6 DSKLS CTRLR2

CIRJHD.P12
2;&8
5390
5391

033734

01-MAR-79 09:10
000137

033266

MACY11

30A(1052)

24-MAY-79

15:07

152

SECTOR SELECTION

1$:

JMp

35S

6 10

PAGE

125
;G0 BACK TO NEXT SECTOR

1
SEQ 0123

CIRJHDO,RP04/5/6 DSKLS CTRLRZ
CIRJHD P12
01-MAR-79 09:10

9447

24-MAY-79

15:07

H 10
PAGE

126

DATA TRANSFER TESTS USING ECC
.SBTTL

SEQ 0124

DATA TRANSFER TESTS USING ECC

';t"""t"t"t"'t""'t"ti"'t"'"""t"'."".""'."."'

TRTEST 53

000053
054630
000402

OF ALL ZEROS.

034000
034006

034012
034020
034026
034032
034036
034042

017330

177777

1$:

046116

012737
005037
013737
013737
005037
005037
005037
005037

177777
050632

050626
050634
050620
050622
050636
050640

015142

050630
050642
\

TEST

M
S

033746
033754
033760
033764
033770
033772
033774

A WRITE ECC

WRITE CYLINDERO, FORMAT 16 BITS PER WORD

TRACK 0, SECTOR 1, KEYS O, NUMBER Of WORDS 256

X222

1S153:

001000

033740
033742

WRITE ECC TEST

THIS

X22X22X222222 2220220

SCOPE

RRRRRRRRRRR

MOV

#STACK,SP

;RESET

Mov
MOv
MOv
MOV
DEC
BNE
JSR

#TINO,@NTSTNM
#SECGAP,RO
#258. R

;THIS SAVES
;POINTER
: COUNTER

; *THESE

ARE

MOV
CLR
MOv
Mov
CLR
CLR

#-1,(R0O)+

PC,a#CLDISK
FOR ECC

dtRRiR

;FILL SIMULATER DISK WITH ONES
;THIS 1S USED TO SET GENERAL REGISTERS

TEST ONLY

#-1,aNTSECC

;THIS 1S AN ECC

TEST

CLR
CLR

;CLEAR ERROR POSITION COUNTER
a#POSITI]
9#NCODE ,a#NCOUNT
; TEMPORARY N-CODE COUNTER
; TEMPORARY HARD ERROR COUNTER
S#HARDER,3#HADTMP
INGECC]
;ECC LOW ORDER TO BE GENERATED
INGECC2
;ECC HIGH ORDER TO BE GENERATED
sCLEAR DATA ENVELOPE CLOCK COUNT
a#DATENV
;CLEAR LEADING ZEROS CLOCK COUNT
afZ2CODE

:*THESE

ARE TO BE SETUP FOR DISKLESS USE ONLY

MOV

NFEMT22,30WCYL

;FORMAT22=16BIT WORDS AND

034054
034062
034066
034072
034100
034104
034106

012737
005037
005037
012737
004537
056146
056156

000001
056152
056154
000400
047332

056150

Mov

056206

MOV

#1,3aNWSECTR
S¥WKEY
SNWKEY?
#256.,a#FENWORD
RS.,a#CRC

: TRACK=0, SECTOR-1
;KEY1=0
;KEY2=0
;256 DATA WORDS
;60 TO CALCULATE CRC

—

—d

—

056146

onronrn
QO~NN
~NO~N
~NO~N

010000

CLR
CLR

JSR
wlvL

;CYLINDER 0

GCRC

177374

015220
160624

160632

;*THESE

ARE

REGULAR

MoV
Mov
MOV

#-260.,3RHWC
#WRFROM,RO

RO,aRHBA

)

TEST NUMBER

012737

034110
034116
034122

iRl

STACK

034046

OO0

5392
5393
5394
5395
5396
5397
5398
5399
5400
5401
56402
5403
5404
5405
5406
5607
5408
5409
5610
5611
5612
5613
5614
5415
5616
5617
5418
5619
5620
5621
5622
5423
5624
5425
5426
5427
5428
5429
5430
5431
5432
5633
5634
5635
5436
5637
5438
5439
5440
5641
5442
5443
5444
5445
5446

30A(1052)

MACY1

SETUPS

;256 DATA WORDS & HEADER WORDS
;THESE TWO INSTRUCTIONS GETS

;ADOR. OF

WRFROM INTO RO AND

;BUS ADDRESS REGISTER

CIRJHDO,RPO4/S5/6 DSKLS CTRLR%
01-MAR-79 09:1
CIRJHD. P12
5448
5449

5450
5651
5652

5453
5454
5655

5456
5457
5458
5459
5460
5461
5462
5463
5464
5665
5466
5467
5468
5469
5470
56471
5472
5473
5474
5475

5476
5477
5478
5479

5480
5481
5482

5483
5484
5485
5486
5487
5488
5489
5490
5491
5492
5493
5694
5495
5496
5497
5498
5499
5500
5501
5502
5503

MACY11

30A(1052)
15:07
24-MAY-79
153
WRITE ECC TEST 1

034126

012720

010000

034132
034136
034140
034142
034146
034152
034154
034156

012720
005020
005020
012705
012720
005305
001374
012777

000001

2%:

000400
000000

3%:

034164
0346170

004737

046160
005123

036174

000000

034176

013711

015172

(34202
0346206
034214
0346220

005037
012777
005077
004737

015124
010000

1046401

000001

160576

110
PAGE 127

Mov

#ENT22,(RO) ¢

;FORMAT=16 BIT WORDS

Mov
CLR
CLR
MOv
ng

#1,(RO)+
(RO)+
(RO) ¢
#256.,RS5
;g,(RO)*

; TRACK=0, SECTOR=1, KEYS-0
:KEY1=0
:KEY2=(
;COUNTER
:MOVE ALL ZEROS FOR DATA

BNE
MoV

3%
#1,3RHDST

:BRANCH IF DATA NOT COMPLETE
; TRACK=0 SECTOR=1

JSR

PC,aNCHECKT

;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T

TYPE

. CPHALT

160550

055772

; CANNOT CONTINUE
;STOP THE

Mov

a#WRIFOR,aR1

CLR

SNERFLGS

Mov
CLR
JSR

;CYLINDER=0

TESTING IF

ANY OF

THE

;ABOVE BITS DON'T = 1 OR OTHERS ARE STU(K a1

HALT

160552

SEQ 0125

NFEMT22 ,3RHOF
dRHCA
PC.a¥COMWHD

TEST

;GET READY FOR WRITE HEADER AND

;DATA WITH 62 IN RH(SI
;CLEAR ERROR FLAG

;FORMAT BIT=1 (16 BIT WORDS)
;CYLINDER =0
;WRITE HEADER AND DATA

;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS

;*FROM THE "'COMWHD'' ROUTINE THAT MEANS ALL HEADER ON DISK
;*1S GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE
;*ALL ZEROS AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IFf
;*THEY

034224

005737

034230

001056

015124

ARE

ALL

ZEROS

181

INERFLGS

BNE

TST54

;HAS ANY ERRORS OCCURED?
;1F WRITE ERROR OCCURS ECC IS NUT CHECKED
; ;BRANCH IF VYES

;*COMPARE SOF TWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE
034232
034240
034242
036244
034246
034254
034256

034260
034260
034264

034270

023737

001402

050620

055726

050622

055730

104031

000405
023737
001401
104031

004737
104401
000000

046350
005123

6%:

7$:

CMP
BEQ
ERROR
BR
CMP
BEQ
ERROR

a¥GECCY ,9¥WECCT;COMPARE SOF TWARE ECC WITH HARDWARE ECC
6%
;BRANCH IF GOOD
;LOW ORDER ECC IN ERROR
31
7%
;BRANCH TO CONTINUE
SNGECC2,a#WECC2;: COMPARE SOFTWARE ECC WITH HARDWARE ECC
:BRANCH 1F GOOD
7$
;HIGH ORDER ECC IN ERROR
31

JSR
TYPE
HALT

PC,af(HECKE
.CPHALT

;CHECK THAT DVA,RDY,DPR,DRY = 1
: CANNOT CONTINUE IF THEY DON'T
;STOP THE TEST AND RESTART PROGRAM

;*F1LL "REINTO' BUFFER WITH EXPECTED DATA
034272
034276

004037
016264

046034

JSR

RO,8#CLAREA
REINTO

SFILL REINTO BUFFER
; FROM

CIRIHDO,RPOL/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD P12

= OOVRB~NONSWN—-O

(W U RV V. RV AV IV LV AV IV IV VW LV ]
[V XV VU RV YV VW SV SV LV LV YV IV TV ]
PION) ot e v o o e
D o o ed

5504
5505
5506

034300
034302

017262
000000

034304
034312
034320
034324
034326
034330

013737
013737
004037
017270
017324
000000

050620
050622
046034

034332

005037

015124

MACYT1

30A(1052)
24=MAY-79
15:07
153
WRITE ECC TEST 1

.WORD

J 10
PAGE 128

SEQ 0126

REINTO0+<255.¢2> ;10
0
:DATA

Mov
ANGECCT,INREINTO+<256.
%2> ;FILL ECCI
MOV
S#GECC2,ANREINTO+<257.
22> FILL ECC2
JSR
RO,a#CLAREA
sFILL REST
REINTO+<258.+2>
:FROM
REINT0+<272.2>
;10
:DATA
0

017264
017266

CLR

INERFLGS

:CLEAR ERROR FLAG

;*NOW COMPARE ‘'DISK'® BUFFER WITH '‘REINTO"
034336
034342
034344
0364346
034350
034352

004037
016264
054726
000402
034356
034362

034354

034366

034356
034360
034362

000207

JSR
REINTO
D1SK

047020

RO,3#COMPAR

258.

;NUMBER OF WORDS CHECKED

;RETURN POINT

15754
4%:

ERROR

104010

5%:

ERROR

RTS

FOR ERROR HEADER

;RETURN POINT FOR ERROR DATA

104007

; CHECK
:GOOD BUFFER
;TEST BUFFER

;RETURN FOR GOOD COMPARISON

;READ ERROR 10 NEXT

;RETURN TO COMPARE

;WORD NOS 1 TO 256 ARE
;DATA WORDS

;WORD NOS 257 AND 258
;ARE ECC WHICH ARE

;WORD NOS 259
;1S DATA GAP

CHECKED

;WORD NOS 260 10 273

034364

000207

RTS

;ARE TOLERANCE GAP
;RETURN TO COMPARE

CIRJHDO,RPOL/S5/6 DSKLS CTRLRZ2

CIRJIHD.PI2

01-MAR-79 09:10

MACY11

5545

5546

30A(1052)

153

24-MAY-79

15:07

WRITE ECC TEST 1

10
PAGE 129

Sea 0127

::tlttt"t"'tttttt""t't"tt"'ttt't'ttttt'tt""tt"'t'tt't'tt

gg:g

)

;*TEST 54

READ ECC ENABLED 1A

5549
5550
5551

*
ot
*

THIS 1S AN ECC READ DATA TEST
ERROR CORRECTION 1S ENABLED
NO ERROR IS INSERTED

222g

TRACK O, SECTOR 0 KEYS O

SSS()

1S154:

SCOPE
MOV

#STACK,SP

;RESET STACK

MoV

#TINO,I¥TSTNM

:THIS SAVES TEST NUMBER

5552
5553

i
i

5557
gggg

034366
034370

000004
012706

001000

ggg?

034374

012737

000054

017330

5562
55¢3

gggg

5566
5567
5568
5569
5570

5571
5672
5573
5576
5575
5676
5577
gg;g

5580

5581
5582

;

034402
034406
034412
034416
034420

034422
034424
034426
034430

012746
012705
012700
011620
005305

001375
005726
022020
012705

(034434
034436
034440

005020
005305
001375

034442

004737

000000
000400
054726

1%:

000017
2$:

051414

5583

5688
5589
5590
5691
5592
gggs
&4

5595
553?
55

5598
5599
5600

READ MEADER AND DATA

N NN AN T R R R R RN A A A AN RN TR R AR AN

SETUP FOR WHAT

NN AN RN

RAANRANOONS

IS TO BE READ

HEADER CRC 1S RESTORED FROM A SUBROUTINE
MOV
MOV
MOV
MOV
DEC

#0,-(SP)
#256.,RS
#DISK.RO
(SP), (RO)+
RS

CLR
DEC
BNE

(RO) +
RS
2%

JSR

PC,aNFILLEC

BNE
18T
CMP
MoV

1%
(SP)+
(RO)+, (RO)+
#15.,RS

:DATA TO BE READ
: COUNTER
:START OF SIMULATED DISK DATA
:MOVE IN DATA ON TO SIMULATED DISK
; COUNT

:BRANCH IF 256 NOT COMPLETE
:UNDO =-(SP)
:JUMP OVER THE TWO ECC WORDS
:1 DATA GAP
;14 TOLERANCE GAP
:CLEAR DATA GAP, AND
: TOLERANCE GAP
;:BRANCH IF NOT COMPLETE

;INSERT THE TWO ECC WORDS ON THE DISK
;:IN THE CORRECT PLACE

;«THESE ARE FOR ECC TEST ONLY

gggg

5586
5587

GOOD DATA USED IS 256 WORDS OF 0
COMMAND 1S GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD

034446
034454

034460
034466
034474
034500
034504
034510

012737
005037

013737
013737
005037
005037
005037
005037

177777
050632

050626
050634
050620
050622
050636
050640

015142
050630
050642

MOV
CLR

MOV
MOV
CLR
CLR
CLR
(LR

#-1,3¥#TSECC
aN#POSITI

:THIS IS AN ECC TEST
:CLEAR ERROR POSITION COUNTER

S#NCODE ,a#NCOUNT ; TEMPORARY N-CODE COUNTER
SNHARDER,3#HADTMP ; TEMPORARY HARD ERROR COUNTER
INGECCT
;ECC LOW ORDER TO BE GENERATED
S#GECC2
;ECC HIGH ORDER TO BE GENERATED
:CLEAR DATA ENVELOPE CLOCK COUNT
SFDATENV
:CLEAR LEADING ZEROS CLOCK COUNT
3#1CODE

:+THESE ARE TO SETUP FOR DISKLESS USE ONLY

034514

012737

010000

053010

MOV

#FMT22,30CYL

034522

112737

000000

053013

Move

#0,9#SECOTR+1

:16 B1TS PER WORD
:CYLINDER O, FORMAT 16 BITS
;TRACK O

5648
5649
5650
5651
5652
5653
5654
5655
5656

~ b

NN NN
OO0
O

000000
000000
000000
000400
053020
047332

034530
034536
034544
034552
034560
034564
034570
034572

L 10

30A(1052)
24-MAY-79 15:07 PAGE 130
READ ECC ENABLED 1A
154

MOvB
MOV
Mov
MOV
CLR
gSR
YL

SEQ 0128

#0,a#SECOTR
;SECTOR O
#0,9#KEY
;KEY1=0
#0,3/KEY2
;KEY2=0
#256.,
@NDAWORD ;NO. OF DATA WORDS
afx
sTHIS 1S A READ COMMAND
RS,a#CRC
;G0 TO CALCULATE CRC

WCRC

;*THESE ARE REGULAR SETUPS

JSR
MOV
MOV

PC,a#CLDISK
;SETUP GENERAL REGISTERS
#-256.-4.,9RHWC ;256. DATA & HEADER WORDS
#REINTO,3RHBA
;STARTING ADDRESS OF READ BUFFER

MOV
Mov

(SP)+,
@RHDST
FEMT22,aRHOF

034574
034600
034606
034614
034620
034626
034632

004737
012777
012777

034640

005077

160124

CLR

dRHCA

034644
034650

004737

046160
005123

JSR

PC,aNCHECKT

034654

000000

HALT

034656
034662
034666

013711
005037
004737

MoV

010000

160126

oro

NN~

O =

P QY

104401

000001

160130

[pS AV
LAV,]

012677
012777

OO0

112746
112766

046116
177374
016264
000000
000000

[

5601
5602
5603
5604
5605
5606
5607
5608
5609
5610
5611
5612
5613
5614
5615
5616
5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639
5640
5641
5642
5643
5644
5645
5646
5647

===}

MACY11

CZRJHDOfi$SOA/5/6 DSKLS CTRLR?
CIRJIHD.
01-MAR-79 09:10

160142
160136

MOvB
MOvB

TYPE

(LR
JSR

#0,-(SP)
#0,1(SP)

. CPHALTY

:JN LOWER BYTE GET SECTOR
;GET TRACK IN HIGHER BYTE

;TRACK/SECTOR IN RHDST
;16 BITS PER WORD

;ECC CORRECTION NOT INHIBIT
;BECAUSE ECC IS NOT GOING

;70 BE CHECKED

;CYLINDER 0

;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T
:CANNOT CONTINUE TESTING IF ANY OF
;STOP THE TEST

a#REFOR,aR1

SNERFLGS
PC,a#COMHD

;READ HEADER AND DATA=72

:CLEAR ERROR FLAG
;READ HEADER AND DATA

;1F THERE ARE READ ERRORS THEN

;ECC WILL NOT BE CHECKED

;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;*FROM THE ''COMHD'' ROUTINE THAT MEANS SECTOR GAP,

;*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND

;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY

;*DETECTED
; *HEADER AND DATA ARE TO BE CHECKED.
;*IN CHECKING READ DATA THE WRITE FROM BUFFER
;"'WRFROM"' IS FILLED WITH EXPECTED BA/A AND

;*COMPARISONS ARE MADE

034672
034676
034700
034704
034710
034712

005737
001102
004737
005737
001401
104032

01512¢
045616
015034

187

BNE
JSR
157
BEQ
ERROR

a#ERFLGS

1ST55
PC,O¥#PUTREG
aNERT
6%
32

THE

;ABOVE BITS DON'T = 1 OR OTHERS ARE STu(Kk @ 1

;ANY ERRORS ALREADY THERE

;BRANCH IF YES
:SAVE REGISTERS
:NO ERRORS SHOULD BE SET
;BRANCH IF NO ERRORS SET
;32 BIT ECC REGISTER SHCULD BE ZERO
;ONLY

11 OF

THE 32 BITS CAN BE

;IN THE PATERN REGISTER

SEEN

CIRIHDO,RPO4/S5/6 DSKLS CTRLR2
CIRJHD P12
01-MAR-79 09:10
5657
5658
5659
5660
5661
5662
5663

034714
034720
034724
034730
034732

013746
042716
022637
001401
104032

MACY11

n10
30A(1052)
24-MAY-79
15:07
PAGE
READ ECC ENABLED 1A
15¢
6%:

050620
174000

015064

Mov

B1C
CMP
BEQ
ERROR

a#GECC1,-(SP)

#174000, (SP)
(SP)+ ,aNEC2
7%
32

131

SEQ 0129

:DCK SHOULD BE SET IN RHERI1
;GET PATTERN REGISTER
:KEEP ONLY 11 BITS
;COMPARE PATTERN REGISTER

;BRANCH 1F GOOD
;11 BITS OF THE 32 B8IT ECC REGISTER INCORRECT

5664

5665
5666
5667
5668
5669
5670
5671
5672
5673
5674
5675
5676
5677
5678
5679
5680
5681
5682
5683

;*ADD 16 MAINTENANCE CLOCKS T0
; *BRING EBL DOWN
034734
034740
034746
034754
034756
034760
034764
034770

012700

052777
062777
005300
001370
004737

034772
034776
035002
035006
035014
035016
035022
035026
035032
035036
035040
035042
035044
035050

000020
000002
000002

7%:
8%:

000000
000000
000400
000000

MOV

#MCLK ,dRHMR
#MCLK,dRHMR

JSR
TYPE

+CPHALT

HALT

000001

3%:

015124
045616

#6.,R0

BIS
BIC

DEC
BNE

066350
005123
015220
010000
000000
000000

005037
004737

160030
160022

RO
8$
PC,a#CHECKE

MOV
Mov
MOvB
Move
Mov
Mov
MOV
Mov
MOV
MOV
DEC
BNE

#WRFROM,RO
#O'FMT22,(RO)+
#0,-(SP)
#0,1(SP)
(SP)+,(RO)+
#0,(RO)+
#0,(RO)+
#256. ,R1
#0,R2
R2,(RO)+
R1
3%

CLR
JSR

INERFLGS
PC.a#PUTREG

;COUNTER
;SET CLOCK
;CLEAR CLOCK
; COUNT
:BRANCH IF 16 CLOCKS NOT DONE
;CHECK THAT DVA,RDY,DPR,DRY = 1
;CANNOT CONTINUE IF THEY DON'T
:STOP THE TEST AND RESTART PROGRAM
:GETTING READY TO FILL EXPECTED DATA
;CYLINDER 0
:IN LOWER BYTE GET SECTOR
:GET TRACK IN HIGHER BYTE
:GET TRACK/SECTOR IN BUFFER
;KEY1 IN BUFFER
;KEY2

IN BUFFER

:DATA WORD COUNTER
;DATA
;DATA INTO BUFFER
; COUNT

:BRANCH IF 256 NOT DONE
;CLEAR ERROR FLAG
:SAVE REGISTERS

;*NOW READ DATA BUFFER WILL BE CHECKED

JSR

047020

035054
035060
035062
035064
035066
035070

004037
015220
016264

WRFROM
REINTO

035072

0351064

15155

035074
035076
035100

104004

;600D BUFFER
:TEST BUFFER

;RETURN FOR GOOD COMPARISON

4%:

ERROR

5¢%:

ERROR

RTS

s CHECK

;NUMBER OF WORDS CHECKED
;RETURN POINT FOR ERROR HEADER
:RETURN POINT FOR ERROR DATA

44256.
4%
5%

000404
035074
035100

000207
104005

RO,3#CCMPAR

;READ NEXT ERROR
;RETURN TO '‘COMPAR'’
;WORD NOS

TO & ARE

;HEADER WORDS

;5 T0 260 ARE DATA WORDS

CIRIHDO,RPOL/S5/6 DSKLS CTRLR?
CIRJHD.P12
01-MAR-79 09:10

il el
—

~NOS

(W LV IV, IV ]
~N~N~~

5713

035102

000207

N 10

MACY11 30A(1052) ZJ-HAY-79 15:07 PAGE 132
15 4

READ ECC ENABLED

RTS

;RETURN TO '‘COMPAR'’

SEQ 0130

01-MAR-79 09:10

MACYI1

VOO NOWVNES WA =O 00N

NS W00

(UL AN TV RV LV LV SV LV IV IV TV IV IV IV IV IV SV JV LV IV TV _JV IV ]

DSKLS CTRLR2

40
741

035104

000006

012706

001000

035112

012737

00C)55

035120
035126
035130

035134
035136
035140
035142
035144
035146

012746
012705
012700

004737

READ ECC ENABLED 1B

THIS IS AN ECC READ DATA TEST
ERROR CORRECTION IS ENABLED

TRACK O, SECTOR O KEYS O

A CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32
GOOD DATA USED 1S 256 WORDS OF 0
COMMAND IS GIVEN FOR CYLINDER O FORMaT 16 BITS PER WORD
XXX

15755:
017330

011620
005305
001375
005726
022020
012705

000000
000400
0564726

18:

000017
2$:

051414

56
57

SCOPE

READ HEADER AND DATA

XX RZRZZRRZEARZASSAREASRASSR
RS RRARRRRRRRRRR AR

MOV

#STACK,SP

;RESET STACK

MOV

#TINO.S#TSTNM

;THIS SAVES TEST NUMBER

MOV
Mov
Mov

MOV
DEC
BNE
1§71
(mp
MOV

#0,-(SP)
#256.,R5
#D1SK,RO

(SP), (RO) ¢
RS

:DATA TO BE READ
: COUNTER
;START OF SIMULATED DISK DATA

CLR
DEC
BNE

(RO) ¢
RS
2%

;MOVE IN DATA ON TO SIMULATED D]SK
: COUNT
;BRANCH 1F 256 NOT COMPLETE
:UNDO =(SP)
;JUMP OVER THE TWO ECC WORDS
;1 DATA GAP
;14 TOLERANCE GAP
;CLEAR DATA GAP, AND
: TOLERANCE GAP
;BRANCH IF NOT COMPLETE

JSR

PC.a#FILLEC

;INSERT ECC IN PROPER PLACE ON DISK

1%
(SP)+
(RO)+, (RO) ¢
#15.,
RS

;*THESE ARE FOR ECC TEST ONLY

035164
035172
035176

035204
035212
035216
035222
035226

012737
005037
013737

013737
005037
005037
005037
005037

177777
050632
050626

050634
050620
050622
050636
050640

015142

050630
0506642

5770
57

133

;*SETUP FOR WHAT ]S TO BE READ
:*HEADER CRC IS RESTORED FROM A SUBROUTINE

035160

5772
5773

B 1
PAGE

.
*

035106

722

68
5769

15:07

READ ECC ENABLED 1A

*
.
.

005020
005305
001375

5763
5764
5765
5766
2;67

154

TeTEST 55

035152
035154
035156

60
761
5762

24-MAY-79

craNRRRESARROCRRRROSRRRROROSOERORROEROYRRORRONRORRORCRRNROROEROROORARROEROOREROPOTETRYS

5742
5743
57644
5745
5746
5747
5748
5749
5750
5751

30A(1052)

MoV
(LR
MOV

MOV
CLR
(LR
CLR
CLR

M-1,90TSECC
;THIS 1S AN ECC TEST
S#POSIT]
;CLEAR ERROR POSITION COUNTER
S8#NCODE ,0#NCOUNT ; TEMPORARY N-CODE COUNTER

S#HARDER ,Q#HADTMP ; TEMPORARY HARD ERROR COUNTER
;ECC LOW ORDER TO BE GENERATED
S#GECCY
ONGECC2
;ECC HIGH ORDER TO BE GENERATED
;CLEAR DATA ENVELOPE CLOCK COUNT
SNDATENV
;CLEAR LEADING ZEROS CLOCK COUNT
S#1(0DE

;*THESE ARE TO SETUP FOR DISKLESS USE ONLY

035232

012737

010000

053010

Mov

NEMT22 ,900YL

;16 BITS PER WORD
;CYLINDER O, FORMAT 16 BI1S

SEQ 0131

[N el

P12

NNNSNNNNNNNSNSNSNSNSNNSNSNNNNYNNY
AU A AN LN N AN N LN NI N PO NI RO N RO NI PO A = e

OO0

0,RPO4/S5/6
HDO,

OO Mo

OOOOO

OOO0OO

000000
000000
000000
000000
000400
053020
047332

N AN AN NN

30A(1052)
26=MAY-79
15:07 PAGE
155
READ ECC ENABLED 18

134

SEQ 0132

MOvB

#0,9#SECOTR+1

;TRACK O

[ [0}

#0,37KEY2

:KEY2=0

MOvVB
Mov
MoV
CLR
gSR
YL

#0,8#SECOTR
#0,97KEYT

;SECTOR 0
:KEY1=0

#256.,
@SFDAWORD :NO. OF DATA WORDS
arx
:THIS IS A READ COMMAND
RS,8#CRC
;60 TO CALCULATE CRC

WCRC

;*THIS IS TO INSERT ERROR

;*THE DISK DATA IS IN LOCATION STARTING FROM °'DISK’
:'}H? PgSlglON OF
MOV
;*THIS

THE ERROR CAN BE CHANGED BY C(HANGING

035312

012737

100000

054730

Mov

#100000,a#015k+2 ;FORCE ERROR ON BIT NUMBER 32
:38 ERROR POSITION REGISTER WiLL SHOW

035320

012737

000026

035474

MOV

#22.,3088

“INSERT POSITION REG.

;*THESE ARE REGULAR SETUPS
035326
035332
035340
035346
035352
035360
035364

066116
177374
016264
000000
000000
157376
010000

157410
157404

000001
157374

JSR
Mov

PC,a#CLDISK
;SETUP GENERAL REGISTERS
#-256.-4.,aRHWC ;256. DATA 4 HEADER WORDS

MOvVB
MOvVB
Mov
MOov

#0,-(SP)
#0,1(SP)
(SP)¢,
@RHDST
#EMT22,aRHOF

Mov

#REINTO,8RHBA

;STARTING ADDRESS OF

READ BUFFER

:IN LOWER BYTE GET SECTOR
;GET TRACK IN HIGHER BYTE
;TRACK/SECTOR IN RHDST
:16 BITS PER WORD

CLR

aRHCA

035376
035402

004737

046160
005123

JSR

PC,aNCHECKT

;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T

035406

000000

HALT

035410
035414
035420

013711
005037
004737

MOV
CLR
JSR

osro

QOO

104401

NN~

157372

SV
b b

005077

[ACAV AN, ]

035372

;ECC CORRECTION NOT INHIBIT
:BECAUSE ECC IS NOT GOING
;710 BE CHECKED
;CYLINDER 0

TYPE

.CPHALT

; CANNOT CONTINUE
;STOP THE

S#REFOR,aR1
SNERFLGS
PC,a#COMHD

TESTING

ANY OF

TEST

;READ HEADER AND DATA-7?
;CLEAR ERROR FLAG
¢READ HEADER AND DATA

;1F THERE ARE READ ERRORS THEN
JECC WILL NOT BE CHECKED

;*1F THE PROGRAM COMES BACK HERE W]THOUT ERROR PRINTOUTS
;*FROM THE ''COMHD'' ROUTINE THAT MEANS SECTOR GAP,
;*FIRST

SYNC, HEADER, HEADER CRC, HEADER GAP AND

;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
;*DETECTED
. YHEADER AND DATA ARE

THE

;ABOVE BITS DON'T = 1 OR OTHERS ARE STuCk @ 1!

TO BE

CHECKED.

;vIN CHECKING READ DATA THE WRITE FROM BUFFER
;o 'WRFROM" IS FILLED WITH EXPECTED DATA AND

MACY11
[V RV IV LV, LV, ]

et ek el AV IV IV [V ]
O ONNNNN~IN

5774
5775
5776
5777
5778
5779
5780
5781
5782
5783
5784
5785
5786
5787
5788
5789
5790
5791
5792
5793
5794
5795
5796
5797
5798
5799
5800
5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5811
5812
5813
5814
5815
5816
5817
5818
5819
5820
5821
5822
5823
5824
5825
5826
5827
5828
5829

[elelolelelele
P Py
NWNOO
= b o od e
S WO
N
NOWONNNNN

CIRJHDO,RPO4/5/6 DSKLS CTRLR?
CIRJHD P12
01-MAR-79 09:10

5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854

MACY11

0 11

30A(1052)
15:07
PAGE
24-MAY-79
READ ECC ENABLED 18
155

1355

SEQ 0133

: *COMPARISONS ARE MADE
035624
035630
035632
035436
035444
035446

005737
001077
004737
022737
001401

015124
065616

100000

151

BNE
JSR
(MP
BEQ
ERROR

01503¢

1064032

035450
035454
035460
035464
035466

013746
042716
022637
001401

050620
174000
015064

035470
035474

004037
000026

051242

035476
035502
035506
035510
035514
035520
035524
035532
035534
035540
035544
035550
035554
035556
035560

004737

046350
005123

6%:

104032

620

015220
010000
000000
000000

7%:
8%:

000001

000000
000000
000400
000000

035562

012737

100000

035570
035574

005037
004737

01512¢
045616

3%:

015232

SNERFLGS
15156

:ANY ERRORS ALREADY THERE

sBRANCH IF

YES

;BRANCH IF

YES

#2CK.SIER1

;SAVE REGISTERS
sONLY DATA CHECK ERROR SHOULD BE SET

:%ERSIT ECC REGISTER SHOULD BE NON

PC,8#PUTREG

;ONLY 11 Of THE 32 B1TS CAN BE SEEN
:IN THE PATERN REGISTER
;0CK SHOULD BE SET IN RHERI
:GET PATTERN REGISTER

BIC
CMP
8taQ
ERROR

aMGECCY,-(SP)
#174000, (SP)
(SP)+,anEC?
7%
32

JSR

RO,a#ECORR

;60 10 ECC CORRECTION PROCESS

JSR

PC,aNCHECKE

;CHECK THAT DVA,RDY,DPR,DRY = 1
:CANNOT CONTINUE IF THEY DON'T

mMov

22.

TYPE
HALT
MoV
Mov
MovB
Move
MoV
MOv
MOV
Mov
MOv
Mov

DEC
BNE

,CPHALT

;KEEP ONLY

BITS

;BRANCH }F

GOOD

;COMPARE PATTERN REGISTER

;11 BITS OF THE 32 BIT ECC REGISTER INCORRECT
;EXPECTED POSITION REG. WHEN CORRECTION
;1S COMPLETE

:STOP THE TEST AND RESTART PROGRAM

#URFROM,RO
#O'FMT22,(RO)+
#0,-(SP)
#0,1(5P)
(RO)+
(SP)+,
#0,(RO)+
#0,(RO)+
R}
#256.,

:GETTING READY TO FILL EXPECTED DATA

R2,(RO)+

;DATA INTO BUFFER
: COUNT

#0,R2

sCYLINDER O

;IN LOWER BYTE GET SECTOR
;GET TRACK IN HIGHER BYTE
;GET TRACK/SECTOR IN BUTFER

sKEY1 [N BUFFER
;KEY2 IN BUFFER
;DATA WORD COUNTER
:DATA

:BRANCH 1F 256 NOT DONE

;*ONLY GOOD DATA HAS BEEN PUT IN 'WRFROM'
;*NOW THE INSERTED ERROR WILL BE PUT IN
#100000,3#WRFROM+<5¢2>
MOov
; INSERTED ERROR

CLR
JSR

SFERFLGS

PC,a8/PUTREG

:CLEAR ERROR FLAG
;SAVE REGISTERS

;*NOW READ DATA BUFFER wiLL BE CHECKED
0356G0
035604
035606
035610

004037
015220
016266
000404

047020

JSR
WRFROM
REINTO
44256.

RO,a#COMPAR

s CHECK

.GOOD BUFFER

STEST BUFFER
;NUMBER OF WORDS

C(HECKED

[ Xl

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
CIRJHD.P12
01-MAR-79 09:10

5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897

MACY1

302§1052)
1

2L-MAY-T79

READ ECC

15:07

ENABLED

11
PAGE

1356

SEQ 0134

035612
035614

035620
0356¢4

;RETURN POINT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA

035616

035630

15156

;RETURN FOR GOOD

035620
035622
035624

1046004
000207
104005

035626

000207

4%:

5%:

ERROR

RTS
ERROR

RTS

COMPAR]SON

;READ NEXT ERROR

;RETURN TO ''COMPAR'’

;WORD NOS 1 TO & ARE
;HEADER WORDS

;9 TO 2¢0 ARE DATA WORDS
;RETURN 10 ''COMPAR"’

CIRJHDG,RPOL/S/6 DSKLS (1 R L?S
CIRJHD.PY?
01-MAR-79 09:

5935
5936
5937
5938
5939
5940
5941
5942
5943
5944
5945
5946
5947
5948
5949
5950
5951
5952
5953

30A(1052)
264-MAY-79
15:07
PAGE
READ ECC ENABLED 18
155

137

SEQ 0135

':"l'"'t""'"'"'"""!"""""'t""'"'Q""""""t"'

READ ECC ENABLED 1¢C

TeTEST 56

035630
035632

000004
012706

001000

035636

012737

000056

A NON CORRECTABLE ERROR [S INSERTED IN BIT POSITION 21

THIS IS AN ECC READ DATA TEST
ERROR CORRECTION 1S ENABLED

GOOD DATA USED 1S 256 WORDS OF 0
COMMAND 1S GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
TRACK O, SECTOR O KEYS O
READ HEADER AND DATA

®»
%
>

we
%o
®e

5898
5899
5900
5901
5902
5903
5904
5905
5906
5907
5908
5909
5910
5911
5912
5913
5914
5915
5916
5917
5918
5919
5920
5921
5922
5923
5924
5925
5926
5927
5928
5929
5930
5931
5932
5933
5934

MACY11

XX ZE 2

15156:
017330

XXX

EEZAR

ERSR

SCopPt
Mov

FSTACK,SP

;RESET

Mov

FTINO,a#TSTNM

;THIS SAVES

THRU 32

NASERRRARRREA A

STACK
TEST

NUMBER

SETUP FOR WHAT ]S 1O BE READ
HEADER CRC ]S RESTORED FROM A SUBROUTINE

000000
000400
054726

035644
035650
03565¢4
035660
035662
035664
035666

1%:

MOV
Mov
Mov

#0,-(SP)
#256. RS
#D1SK,RO

;DATA TO BE READ
; COUNTER
;START OF SIMULATED DISK DATA

BNE

;BRANCH |F 256 NOT COMPLETE

Mov
DEC
1587

035670
035672

CMP

000017

035676
035700
035702

005020
005305
001375

035704

004737

2%:

051414

(SP),(RO)¢
RS
(SP)+

(RO)+, (RO

Mov

#15.,RS

CLR
DEC
BNE

(RO)+
RS
2%

JSR

PC.afF]LLEC

;MOVE IN DATA ON TO SIMULATED DISK
; COUNT
;UNDO -(SP)

:JUMP OVER THE TWO ECC WORDS
;1

;14

DATA GAP

TOLERANCE

GAP

:CLEAR DATA GAP, AND
; TOLERANCE GAP
:BRANCH I1F NOT COMPLETE

;INSERT THE TWO ECC WORDS ON THE DI1SK
;IN THE CORRECT PLACE

;*THESE ARE FOR ECC TEST ONLY
177777

050632
050626
050634
050620
050622
050636
050640

035752

15142

050630
050642

MOV

(LR
Mov
MOv
(LR
CLR
CLR
(LR

#-1,3M1SECC
;THIS IS AN ECC TEST
:CLEAR ERROR POSITION COUNTER
8#POSITI
S/NCODE ,@#NCOUNT ; TEMPORARY N-CODE COUNTER
;. TEMPORARY HARD ERROR COUNTER
SNHARDER,3#HADTMP
aNGECCY
;ECC LOW ORDER TO BE GENERATED
;ECC HIGH ORDER TO BE GENERATED
S#GECC2
;CLEAR DATA ENVELOPE CLOCK COUNT
S#DATENV
;CLEAR LEADING ZEROS rLOCK COUNT
s#1C0DE

;*THESE ARE 10 SETUP FOR DISKLESS USE ONLY

035756
035764

012737
112737

010000

053010

MOv

FEMT22,80CYL

000000

053013

MOvVB

#0,90SECOTR

;16 BITS PER WORD

;CYLINDER O, FORMAT 16 BIITS
;TRACK O

CIRJIHDO,RPO&L/S/6 LSKLS CTRLR?
01-MAR-79 09:10

CIRIHD. P12

S et

OO0

000000
000000
000000
000400
05302C
047332

N AN AN

035772
036000
036006
036014
036022
036026
036032
036034

5954
5955
5956
5957
5958
5959
5960
5961
5962
5963

MACY1T
OO0OO

CIRIHDO,RPO4/S5/6 DSKLS CTRLR?
CIRJHD P12
01-MAR-79 09:10

MOVB
MoV
MOV
MOov
CLR

SEQ 0136

:KEY2=0
;NO. OF DATA WORDS

;THIS 1S A READ COMMAND
;60 TO CALCULATE CRC

RS ,8#CRC

vt
WCRC

138

:SECTOR O
:KEY1=0

#0,3#SECOTR
#0,anKEY)
#0,NKEY?
#256.,8#DAWORD
afx

JSR

;*THIS IS TO INSERT ERROR
;*THE DISK DATA IS IN LOCATION STARTING FROM 'DIlSK’

5964

5965
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985
5986
5987
5988
5989
5990
59N
5992
5993
5994
5995
5996

6 11

30A(1052)
24-PMAY-79
15:07 PAGE
156
READ ECC ENABLED 1C

;*THE POSITION OF

036036
036044

012737

177760

010040

;*THIS MOVE

THE

ERROR CAN BE

054730

MOv

#177760,3¥D15K+2

036220

mov

#6128, ,308%

(HANGED BY

(HANGING

;FORCE ERROR ON BIT NUMBER 21 THRU 3¢
;SO ERROR POSITION REGISTER WliLL SHOW
;22

“INSERT POSITION REG.

; *THESE ARE REGULAR SETUPS
036052
036056
036064
036072
036076
036104
036110

046116
177374
016264
000000
000000
156652

010000

156664
156660

000001
156650

PC,a#CLDISK
#-256.-4. ,3RHW(

JSR
MoV
Mov

MovB
MOvB
Mov
MOv

FREINTO,3RHBA

#0,-(SP)
#0,1(SP)
SP)+,
@aRHDST
NEMT22 ,aRHOF

;SETUP GENERAL REGISTERS

:256. DATA & HEADER WORDS
;STARTING ADDRESS OF READ BUFFER
;IN LOWER BYTE GET SECTOR
;GET TRACK IN HIGHER BYTE
:TRACK/SECTOR

:16 BITS PER WORD
;ECC CORRECTION NOT INHIBIT
;BECAUSE ECC IS NOT GOING
;10 BE

036116
036122

036126
036132
036134
036140
036144

005077
004737
104401

000000
013711

005037
004737

156646

046160
005123
015176
015124
052650

CLR
JSR
TYPE
HALT

Mov
CLR
JSR

aRHCA
PC,a3MCHECKT
LCPHALT

CHECKED

;CYLINDER 0
; CHECK DVA,RDY,DPR,DRY - 1 AND OTHERS DON'T
; CANNOT CONTINUE TESTING IF ANY OF THE

;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1

;STOP THE TEST
;READ HEADER AND DATA-7?2
;CLEAR ERROR FLAG
¥ COMHD :READ HEADER AND DATA
:1F THERE ARE READ ERRORS THEN
;ECC WILL NOT BE CHECKED

S¥REFOR,aR1
SFERFLGS
PC,

IN RHDST

CIRJHDO,RPOL/S5/6 DSKLS CTRLR?
CIRJHD P12
01-MAR-79 09:10

;*DETECTED
;*HEADER AND DATA ARE TO BE CHECKED.
;*IN (HECKING READ DATA THE WRITE FROM BUFFER

;¢ 'WRFROM'' IS FILLED WITH EXPECTED DATA AND
:*COMPARISONS ARE MADE

036150
036154
036156
036162
036170
036172

005737
001106
004737
022737
001401
104032

015124
045616
100000

151
BNE
JSR
(MP
BEQ
ERROR

015034

036174
036200
036204
036210
036212

013746
042716
022637
001401

050620
174000
015064

6%:

036214«
036220

004037
000000

051242

7%:

036222
036226

004737
022737

045616

036234
036236

001401

104032

036240
036240
036244
036250

015034

9%:

046359

005123

036252
036256
036262
036266
036274
036276
036302
036306
036312
036316

100100

8%:

104036

5033
6034
6035
6036
6037
6038
6039
6040
6061
6042
6043
6044
6045
6046
6047
6048
6049
6050
6051
6052

Sea 0137

:*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY

6026
6027
6028
6029
6030
6031
6032

139

;*FROM THE '"COMHD'' ROUTINE THAT MEANS SECTOR GAP,
;*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND

6025

H 11
30A (1052)
24-MAY-79
15:07
PAGE
156
READ ECC ENABLED 1C

;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS

—

5997
5998
5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019
6020
6021
6022
6023
6024

MACY11

620

015220
010000
000000
000000
000000

000000
000400
000000

1%:

;ANY

ERRORS

ALREADY

THERE

15157

sBRANCH 1F

YES

6%
32

;32 BIT ECC REGISTER SHOULD BE NON

;BRANCH IF

YES

PC,afPUTREG
#DCK,aNER]

:SAVE REGISTERS
;ONLY DATA CHECK ERROR SHOULD BE SET
s LERO
;ONLY 11 OF

(SP)+ ,amEC?
7%
32

THE 32 BITS (AN BE SEEN
REGISTER
PATERN
:IN THE
SET IN RHERI
BE
:DCK SHOULD
ER
REGIST
N
:GET PATTER
;KEEP ONLY 11 BITS
; COMPARE PATTERN REGISTER
;BRANCH IF GOOD
;11 BITS OF THE 32 BIT ECC REGISTER INCORRECT

JSR
.WORD

RO,a#ECORR

:60 TO ECC CORRECTION PROCESS

JSR
CMP

PC,a#PUTREG

BEQ
ERROR

JSR

PC,a#CHECKE

;CHECK THAT DVA,RDY,DPR,DRY

movB
MOvB

SWRFROM,RO
#0.EMT22,(R0O)
#0,-(SP)
#0,1(SP)

:GET

mov
MCv
MoV
MOV
MOV
MoV

#0,(RO)¢
#0,(R0O)¢
#256. R
#0,R2
R2,(RQ)

MOV

BIC
Cmp
BEQ
£ RROR

TYPE
HALT
Mov
Mov

000001

SNERFLGS

a¥GECCT,~(SP)
#174000,(SP)

;EXPECTED POSITION REG. WHEN CORRECTION
;1S COMPLETE

#OCK'ECH,IMERT

LCPHALT

(SP)+,(RO)+

;SAVE REGISTERS

;WITH ERRORS INSERTED IN BIT POSITION 21
;THRU 32 HARD ERROR BIT

;BRANCH [F

GOOD

SHOULD SET

:WITH ERROR INSERTED IN BIT POSITION 21 THRU
;32 ECH SHOULD SET

|F THEY DON'T
;STOP THE TEST AND RESTART PROGRAM
;GETTING READY TO FILL EXPECTED DATA
:CYLINDER O
;IN LOWER BYTE GET SECTOR

;CANNOT CONTINUE

TRACK

IN HIGHER BYTE

;GET TRACK/SECTOR IN BUFFER
;KEY!

IN BUFFER

;KEYZ IN BUFFER

;DATA WORD COUNTER
;DATA

"DATA INTO BUFFER

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
CIRJHD.P12
01-MAR-79 09:10

6053
6056
6055

036320
036322

005301
001375

MACY11

l 1}
30A(1052)
15:07
PAGE
2L=-MAY-T79
READ ECC ENABLED 1€
156
DEC
BNE

14V

. COUNT
:BRANCH 1F 256 NOT DONE

SEQ 0138
[

6056
6057
6058
6059
6060

6061
6062
6063
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

MACY!Y

J 1

30A (1052)
15:07 PAGE
24=RAY-79
READ ECC ENABLED 1C
156

14!

SEQ 0139

;ONLY GOOD DATA WAS BEEN PUT IN 'WREROM'
; *NOW THE INSERTED ERROR wiLL BE PUT IN
036324

012737

177760

036332
036336

005037
004737

015124

015232

045616

Mov

#177760,30WRFROM+<S¢2>

CLR
JSR

SFERFLGS
PC,87PUTREG

;SAVE

;INSERTED ERROR

;CLEAR ERROR FLAG
REGISTERS

;*NCW READ DATA BUFFER WILL BE CHECKED
036362
036346
036350
036352
03635¢
036356

004037
015220
016264
000404
036362
036366

036360

036372

036362
036364
036366

000207

036370

JSR
WRFROM
REINTO
£4256.
3

047020

104005

5%:

ERROR
RTS
ERROR

RTS

s CHECK
;600D BUFFER
;TEST BUFFER
:NUMBER OF WORDS CHECKED
;RETURN POINT FOR ERROR HEADER

;RETURN POINT FOR FRROR DATA

18157

104004

000207

RO,a#COMPAR

;RETURN FOR GOOD COMPAR]SON

&
PC
S

;READ NEXT ERROR
;RETURN T0 "'COMPAR''
;WORD NOS 1 10 & ARE
;HEADER

WORDS

T0 260 ARE

DATA WORDS

;RETURN TO ''COMPAR'’

CIRJIHDO,RPOL/S5/6 DSKLS CTRLR?
01-MAR=-79 09:10
CIRJHD.P12

MACYT

6090

6091

036372
036374

012706

001000

036400
036406
036412
036416
036420
036422
036424

012737
012700
012701
005020
005301
001375
004737

000057
054630
000460

036430
036436
036442
036450
036456
036462
036466
036472

000004

012737
005037
013737
013737
005037
005037
005037
005037

1$:

066116

177777
050632
050626
050634
050620
050622
050636
050640

XX EE

1$157:
017330

15:07

PAGE 142

XA R

XXX

XIS

XREZREEE

WRITE ECC TEST

SEQ G140
A

AARAR

SRR R

SCOPE

XXX

MOV

#STACK,SP

JRESET

Mov
Mov
MoV
(LR

#TTNO,3#TSTNM
#SECGAP,RO

THIS SAVES
;POINTER

(RO) ¢

;CLEAR SIMULATED DISK AREA

7304, R1

DEC
BNE
JSR

;

; *THESE

ARE

015142

MoV

050630
050642

Mov
Mov

PC,CLDISK
TEST

#-1,a0TSECC

TEST

NUMBER

; COUNTER

;THIS

FOR ECC

STACK

IS USED TO SET GENERAL REGISTERS

ONLY

:THIS

IS AN ECC

TEST

(LR
(LR
CLR
CLR

:CLEAR ERROR POSITION COUNTER
8#POSIT]
@/NCODE ,@#NCOUNT ; TEMPORARY N-CODE COUNTER
; TEMPORARY HARD ERROR COUNTER
S/HARDER ,@#HADTMP
S#GECC]
;ECC LOW ORDER TO BE GENERATED
S#GECC?
;ECC HIGH ORDER TO BE GENERATED
;CLEAR DATA ENVELOPE CLOCK COUNT
a#DATENV
;CLEAR LEADING ZEROS CLOCK COUN
8#1(0DE

; ¢ THESE

ARE

CLR

TO BE

SETUP FOR DISKLESS USE ONLY

012737

010000

056146

MOV

NEMT22,90WCYL

;FORMAT22=16B1T WORDS AND

036504
036512
036516
036522

012737
005037
005037
012737
004537
056146
056156

000001
056152
056154
000400

05615¢C

MoV
CLR

#1 ,aNWSECTR

; TRACK=0,

056206

MOV

047332

(@], ¥],V]

O~~~
~NO~
~NO~

036556

012720

010000

—

OO0

177374
015220
156174

036562

012720

CLR

JSR
wlyL

IMWKEY]
SMWKEY?
#256. ,8#FNWORD
R5,3#CRC

;CYLINDER O

SECTOR=1
:KEY1=0
;KEY2=0
;256 DATA WORDS
;G0 TO CALCULATE CRC

GCRC

036540
036546
036552

0€0001

156202

2%:

AR ARl

036476

036530
036534
036536

THIS IS A WRITE ECC TEST
WRITE CYLINDER O, FORMAT 16 BITS PER WORD
TRACK O, SECTOR 1, XEYS O, NUMBER OF WORDS 256
OF ALL ONES.

o
.
X
M

6122
6123
6124

6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
6139
6140
6141
6162
6163
6144
6145

24-MAY-79

READ ECC ENABLED 1C

TCTEST 57

6096
6097

6118
6119
6120
6121

156
B2

6092
6093
6094
6095

6098
6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110
6111
6112
6113
6114
6115
6116
61i7

30A(1052)

:*THESE

ARE

REGULAR

MOv
MOV
MoV

#-260. ,aRHWC
#WRFROM,RO

MOV

NEMT2C, (RO) ¢

MoV

#1,(RO)

RO,aRHBA

SETUPS

;256 DATA WORDS 4 HEADER WORDS
:THESE TWO INSTRUCTIONS GETS

;ADDR. OF WRFROM INTO RO AND
:BUS ADDRESS REGISTER
;FORMAT=16 BIT WORDS

;CYLINDER=0
; TRACK=0, SECTOR=1, KEYS=0

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR-79 09:10

CIRJHD P12

)

K 1

CIRJHDO,RPOL/5/6 DSKLS CTRLR2
CIRJHD.P12
01-MAR-79 09:10
61646
6147
6148
6149
6150
6151
g}g%

036566
036570
036572
036576
036602
036606
036606

005020
012705
012720
005305
001374
012777

6154
2122

036614
036620

004737
104401

6157
6158

036624

000000

2}28

036626

013711

015172

6161
6162
6163
6164
6165

036632
036636
036644
036650

005037
012777
005077
004737

015124
010000
156120
055772

MACYI1

30A(1052)
24-MAY-79
15:07
157
WRITE ECC TEST 2

005020

CLR
CLR

000400
177777
000001

3%:
156146

046160
005123

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

(RO) ¢
(RO) ¢

;KEY1=0
;KEY2=0

:;1,(R0)0

#256. ,R5S

;COUNTER

BNE
MOov

3%
#1,3RHDST

;BRANCH I1F DATA NOT COMPLETE
: TRACK=0 SECTOR=1

JSR

PC,a#CHECKT

;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T

LCPHALT

HALT

156122

SEQ 0141

Sgg

TYPE

;MOVE ALL ONES FOR DATA

: CANNOT

CONTINUE

TESTING IF

THE

1 OR OTHERS ARE STUCK @ 1
HEADER AND

;STOP THE

TEST

3#WRIFOR,aR1

;GET SEADY

CLR
Mov

INERFLGS
NEMT22 ,3RHOF

;CLEAR ERROR FLAG
;FORMAT BIT=1 (16 BIT WORDS)

JSR

PC,9#COMWHD

aRHCA

ANY OF

;ABOVE BITS DON'T =

MOV

(LR

FOR WRITE

;DATA WITH 62 IN RHCS1
;CYLINDER =0

;WRITE HEADER AND DATA

:*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;*FROM THE ''COMWHD'' ROUTINE THAT MEANS ALL HEADER ON DISK
;*1S GOOD 1E. ONLY DATA ]S TO BE CHECKED TO SEE IF THEY ARE
;*ALL ONES AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF

6166

6167
6168
6169
6170
6171
6};%

MOv

L N
PAGE 143

;*THEY

036654

036660

005737

015124

001056

ARE

ALL

ZEROS

181

SNERFLGS

BNE

15160

;HAS ANY ERRORS OCCURED?

;1F WRITE ERROR OCCURS ECC IS NOT CHECKED
; ;BRANCH IF YES

; *COMPARE SOF TWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE
036662
036670
036672
036674
036676
036704
036706
036710
036710

036714
036720

023737
001402
104031
000405
023737
001401
104031

050620

055726

050622

055730

004737
104401
000000

040350
005123

6%:

7%:

(MP
BEQ
ERROR
BR
CmMp

A¥GECCT,a#WECCT; COMPARE SOF TWARE €CC WITH HARDWARE ECC
6%
;BRANCH IF GOOD
31
;LOW ORDER ECC IN ERROR
7%
;BRANCH TO CONTINUE
ANGECC2,a#WECC2; COMPARE SOF TWARE ECC WITH HARDWARE ECC

7%
31

:BRANCH IF GOOD
;HIGH ORDER ECC IN ERROR

JSR

PC,a#CHECKE

:CHECK THAT DVA,RDY,DPR,DRY = 1

BEQ
ERROR

TYPE
HALT

,CPHALT

;CANNOT CONTINUE 1F THEY DON'TY
;STOP THE TEST AND RESTART PROGRAM

;eF1LL "REINTO" BUFFER WITH EXPECTED DATA

036722
(036726
036730
036732

004037
016264
017262
177777

046036

JSR

RO,8#CLAREA

;FILL REINTO BUFFER

.WORD

-1

;DATA

;FROM
REINTO
REINT0+<255.¢2> ;10

6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214
~215
6216
6217
6218
6219
¢220
6221
6222
6223
62264
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238
6239
6240

036734
036742
036750
036754
036756
036760

3737
3737
4037

050620
050622
0

036762

005037

015124

MACY11

30A(1052)

157

017264
017266

24-MAY=79

15:07

WRITE ECC TESY 2

nn
PAGE 144

Mov
O#GECC) ,@#REINTO+<256.¢2>;FILL ECC)
MOV
SNGECC2 ,QNREINTO+<257.#2>
FILL ECC2
JSR
RO,37CLAREA
sFILL REST
REINTO+<258.¢2>
;FROM
REINTO+<272.+2>
;10
0
:DATA
CLR

SFERFLGS

:CLEAR ERROR FLAG

;*NOW COMPARE ''DISK'' BUFFER WITH "REINTO"’

036766
036772
036774
036776
037000
037002

004037. 047020
016264
054726
000402
037006
037012

037004

037016

037006
037010
037012

104007
000207
104010

JSR

REINTO

RO,a#COMPAR

D]SK
258.
3
5%

ERROR

5%:

ERROR

RTS

;600D BUFFER

;TEST BUFFER
;NUMBER OF WORDS CHECKED
RETURN POINT FOR ERROR HEADER
:RETURN POINT FOR ERROR DATA

15160
6%:

s CHECK

;RETURN FOR GOOD COMPARISON

:READ ERROR 10 NEXT

;WORD NOS 1 TO 256 ARE
;DATA WORDS

;RETURN TO COMPARE

;WORD NOS 257 AND 258
;ARE ECC WHICH ARE CHECKED
;WORD NOS 259
;1S DATA GAP
;WORD NOS 260 1O 273
037014

000207

RTS

:ARE TOLERANCE GAP
;RETURN TO COMPARE

SEQ 0142

CIZRJHDO,RPO4/S5/6 DSKLS CTRLR2
CIRJHD P12
01-MAR-79 09:10

30A(1052)
24-MAY-79
WRITE ECC TEST 2
157

145

SEQ 0143

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

READ ECC ENABLED 2A

TeTEST 60
IR

6261
6262
6243
6244
6265
6246
0247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
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
6291
6292
6293
6294
6295
6296

MACYI1

THIS

IS AN ECC READ DATA TEST

ERROR CORRECTION IS ENABLED

NO ERROR

INSERTED

GOOD DATA USED IS 256 WORDS OF 177777
COMMAND 1S GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
TRACK O, SECTOR O KEYS O

READ HEADER AND DATA

';Q"'"""""""'"""""""""."""""'lt"""t""'

037016
037020

000004
012706

001000

037024

012737

000060

15160:
017330

SCOPE
MOv

#STACK,SP

;RESET

MOV

#TINO,@#TSTNM

;THIS SAVES TEST NUMBER

STACK

SETUP FOR WHAT S TO BE READ
HEADER CRC IS RESTORED FRDM A SUBROUTINE
177777
000400
054726

037032
037036
037042
037046
037050
037052
037054
037056
037060

022020
012705

037064
037066
037070

005020
005305
001375

037072

004737

1%:

Mov
Mmov

#-1,-(SP)
#256.,R5

;DATA TO BE READ
; COUNTER

MoV
DEC

(SP), (RO)+
RS

;MOVE IN DATA ON TO SIMULATED DISK
: COUNT

181

(SP)+

;UNDO -(SP)

Mov
BNE

Cmp

MOV

000017
2%:

051414

CLR

#0]1SK RO
1%

(RO)+,(RO)+

#15..RS

(RO) ¢+

DEC
BNE

RS
2%

JSR

PC,aNFILLEC

;START OF SIMULATED DISK DATA
:BRANCH IF 256 NOT COMPLETE

;JUMP OVER THE TWO ECC WORDS
;1

DATA GAP

;14 TOLERANCE GAP
sCLEAR DATA GAP, AND
: TOLERANCE GAP
sBRANCH 1F NOT COMPLETE

;INSERT THE TWO ECC WORDS ON THE DISK
;IN THE CORRECT PLACE

;*THESE ARE FOR ECC TEST ONLY
037076
037104
037110
037116
037124
037130
037134
037140

005037
005037

177777
050632
050626
050634
050620
050622
050636
050640

015142

050630
050642

Mov

CLR
MOV
Mov

#-1,a#TSECC
;THIS 1S AN ECC TEST
;CLEAR ERROR POSITION COUNTER
afPOSITI
3/NCODE ,a#NCOUNT ; TEMPORARY N-CODE COUNTER
; TEMPORARY HARD ERROR COUNTER
I#HARDER ,@#HADTMP

CLR
CLR
CLR

S#GECC2
d¥DATENV
arZ2C0DE

CLR

SN¥GECC]

;ECC LOW ORDER TO BE GENERATED

;ECC HIGH ORDER TO BE GENERATED
:CLEAR DATA ENVELOPE CLOCK COUNT
:CLEAR LEADING ZEROS CLOCK COUNT

;*THESE ARE TO SETUP FOR DISKLESS USE ONLY
037144
037152

012737
112737

010000
000000

053010

MOV

NEMT22 ,30CYL

053013

MOvB

#0,a#SECOTR¢

;16 BITS PER WORD
;CYLINDER O, FORMAT

;TRACK O

16 BITS

([l

CIRJHDO,RPO4/5/6 DSKLS CTRLR?
01-MAR-79 09:10

CIRJIHD. P12

N1
15:07
PAGE

-~
—d

lololele]

NSNS

[=l=ll=}

et LM ANAMNAN
N

000000
000000
000000
000400
053020
047332

MACY11

B 12

30A(1052)
26=PMAY=-79
15:07 PAGE
160
READ ECC ENABLED 2A

146

SEQ 0144

Move
MOV
MOV

#0,3#SECOTR
#0,9/KEY
70 IFKEY?

;SECTOR 0
:KEY1=0
TKEY2:0

CLR
gsa

arx
RS,a#CRC

STHIS 1S A READ COMMAND
260 10 CALCULATE CRC

MOV

#256.,30DAWORD

:NO. OF DATA WORDS

WCRC

O ONNNN~N~N

OCOO0O0O0O0O—
WVNINO
O = et et ot
S oo
NOWVON~N~N~

NN = = O ~NO O
NOSONSOCO

NNNNNNN~N
NINIPNININ)
=t b b

OCOO0O0OO0O0O0O

;*THESE ARE REGULAR SETUPS
OCO—~=—=O000

037224
037230
037236
037244
037250
037256
037262

— el i el it et O
[aST V1 FT V1, V1, VP o
~NO NN~~~
NN
S NN
NNOO NN

6297
6298
6299
6300
6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333
6334
6335
6336
6337
6338
6339
6340
6341
6342
6343
6344
6345
6346
6347
6348
6349
6350
6351
6352

[T LV IV TV IV IV 1V IV R

CIRIHDO,RPOL/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD.P

046116
177374
016266
000000
000000

000001

010000

155476

155500

155512
155506

JSR
Mov

PC,aNCLDISK
;SETUP GENERAL REGISTERS
#-256.-4.,3RHWC ;256. DATA & HEADER WORDS

MOv
Mov

(SP)+ ,aRHDST
NFEMT22,aRHOF

MOV
MOVB
MOvB

PREINTO,9RHBA
#0,-(SP)
#0,1(SP)

037270

005077

155474

(LR

aRHCA

037274
037300

004737

046160
005123

JSR

PC,afCHECKT

037304

000000

HALT

037306
037312
037316

013711
005037
004737

Mov
CLR
JSR

104401

TYPE

+CPHALT

;STARTING ADDRESS OF READ BUFFER
:IN LOWER BYTE GET SECTOR
;GET TRACK IN HIGHER BYTE

; TRACK/SECTOR IN RMDST

;16 BITS PER WORD
;ECC CORRECTION NOT INHIBIT
;BECAUSE ECC IS NOT GOING
;10 BE

CHECKED

;CYLINDER 0

;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T
;CANNOT CONTINUE

TESTING IF ANY OF THE
;ABOVE BITS DON'T = 1 Ok OTHERS ARPE STUCK @ 1

;STOP THE

S/REFOR,aR1
SFERFLGS
PC,a”COMHD

TEST

;READ HEADER AND DATA=7?2
;CLEAR ERROR FLAG
;READ HEADER AND DATA
:1F THERE ARE READ ERRORS THEN
;ECC WILL NOT BE CHECKED

;*1F THE PROGRAM COMES BACK HERE W]THOUT ERROR PRINTOUTS
;*FROM THE "'CGMHD'' ROUTINE THAT MEANS SECTOR GAP,
;*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND
;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
;*DETECTED
;:*HEADER AND DATA ARE TO BE CHECKED.

:*IN CHECKING READ DATA THE WRITE FROM BUFFER
;"'WREROM'' IS FILLED WITH EXPECTED DATA AND
: *COMPAR]ISONS ARE MADE

005737
001102
004737
005737
001401
104032

015126
0645616
015034

181
BNE

JSR
1§71
BEQ
ERROR

SNERFLGS
15761

PC,8#PUTREG
SNERT
6%
32

:ANY ERRORS ALREADY THERE
;BRANCH IF YES

: SAVE REGISTERS
:NO ERRORS SHOULD BE SET

;BRANCH |F NO ERRORS SET
;32 BIT ECC REGISTER SHOULD BE ZERO
;ONLY 11 OF THE 32 BITS CAN BE SEEN
:IN THE PATERN REGISTER

6353
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
6368
6369
6370
6371
6372
6373
6374
6375
6376
6377
6378
6379
6380
6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
6391
6392
6393
6394
6395
6396
6397
6398
6399
6400
6401
6402
6403
6404
6405
6406
6407
6408

013746
042716
022637
001401
1064032

¢ 12

PAGE
30A(1052)
15:07
24-MAY-79
READ ECC ENABLED 2A
160
6%:

050620
176000
015064

MOV
B1C
(mp

BEQ
ERROR

SNGECCY,-(SP)
7174000, (SP)
(SP)+ aMEC?
7%
32

147

SEQ 0145

;DCK SHOULD BE SET IN RHERI1
;GET PATTERN REGISTER

;KEEP ONLY 11 BITS
;COMPARE PATTERN REGISTER
;BRANCH IF GOOD
;11 BITS OF THE 32 BIT ECC REGISTER INCORRECT

;*ADD 16 MAINTENANCE CLOCKS T0
: *BRING EBL DOWN
037364
037370
037376
037404
037406
037410
037414
037420
037422
037426
037432
037436
0374646
037446
037452
037456
037462

037466
037470
037472
037474
037500

012700

052777
042777
005300
001370
004737
104401

000000

000020
000002
000002

MOV

B1S
BIC
DEC
BNE
JSR

046350
005123

015220
010000
000000
000000

TYPE
HALT
Mov
Mov
MovB
MovB
Mov
MOV
MoV
Mov
MOV

000001

000000
000000
000400
177777
3%:

004737

0151264
045616

Mov

DEC
BNE
CLR
JSR

#16.,R0

s COUNTER

AMCLK, SRHMR
FMCLK ,aRHMR

;SET CLOCK
;CLEAR CLOCK
; COUNT

PC,aNCHECKE

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

RO
8$

»CPHALT

#WRFROM,RO
#O'FMT22,(RO)
¢
"0,
-(SP)
"0,
1(SP)
(SP)+,
(RO)+
"0,
(RO)¢+
"0,
(RO)+

#256.,

R2,

(RO)+

f-,

SFERFLGS

PC,8#PUTREG

;BRANCH IF

16 CLOCKS NOT DONE

; CANNOT CONTINUE IF THEY DON'T
;STOP THE TEST AND RESTART PROGRAM
;GETTING READY TO FILL EXPECTED DATA
;CYLINDER O
;IN LOWER BYTE GET SECTOR
;GET TRACK IN HIGHER BYTE
;GET TRACK/SECTOR IN BUFFER
;KEY1 IN BUFFER
;KEY2 IN BUFFER
;DATA WORD COUNTER
;DATA

:DATA INTO BUFFER
: COUNT
:BRANCH IF 256 NOT DONE
;CLEAR ERROR FLAG
:SAVE REGISTERS

;NOW READ DATA BUFFER WILL BE CHECKED
037504
037510
037512
037514
037516
037520

004037
015220
016264
000404
037524
037530

037522

037534

037524
037526
037530

104004

000207
104005

037532

000207

047020

JSR
WRFROM
REINTO

RO,#COMPAR

s CHECK

;6000 BUFFER
;TEST

BUFFER

44256,
3
5%

:NUMBER OF WORDS C(HECKED

1161

;RETURN FOR GOOD COMPARISON

4%:

ERROR

sREAD NEXT ERROR

5¢:

ERROR

RTS

:RETURN POINT

FOR ERROR HEADER

:RETURN POINT FOR ERROR DATA

:RETURN TO '‘COMPAR'’
:WORD NOS 1 T0 & ARE

;HEADER WORDS

;9 10 260 ARE DATA WORDS
;RETURN T0 ''COMPAR"

CIRIKDO,RPO4/5/6 DSKLS CTRLR?
CIRJHD.P12
01-MAR-79 09:10

MACY11

CIRJHDO,RPO4/5/6 DSKLS CTRLR?
CZRJHD P12
01-MAR-79 09:10
6409
6410

MACYTY

D 12

30A(1052)
15:07 PAGE
24=MAY=-79
READ ECC ENABLED 2A
160

148

SEQ 0146

MACY11

6411
6412

6433
6434
6435
6436
6437
6438
6439
6440

6441
6442

6443
6464

6445

6446

6647
6448
6449
6450
6651
6652

;*TEST 61

ot
I

037534
037536

000004
012706

001000

037542

012737

000061

BE X

TRACK O,

SECTOR O KEYS O

EZZ 22X AR

1$161:
017330

READ ECC ENABLED 2B

A CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32
GOOD DATA USED IS 256 WORDS Of 177777
COMMAND 1S GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD

ot
ot

SCOPE

READ HEADER AND DATA

SRR

RARRRARR

Mov

FSTACK,SP

;RESET

Mov

FTINO,I¥TSTNM

;THIS SAVES

NRRRRARARRRERN)

STACK

NUMBER

TEST

;*SETUP FOR WHAT IS TO BE READ

;*HEADER CRC IS RESTORED FROM A SUBROUTINE
177777
000470
054726

037550
037554
037560
037564
037566
037570
037572

037574
037576

005020
005305
001375

037610

004737

6465

037662

1$:

005037

012737

010000

;DATA TO BE READ
: COUNTER
;START OF SIMULATED DISK DATA

181

(SP)+

;UNDO -(SP)

MOv
DEC
BNE

(SP), (RO) ¢
RS
1%

(LR
DEC
BNE

(RO) ¢
RS
2%

JSR

PC.afFILLEC

;*THESE

ARE

015142

MOV

#-1,38TSECC

050630
050642

MOv
Mov
CLR

051414

050620
050622
050636
050640

#-1,-(SP)
#256.,R5
#D1SK,RO

(RO)+,(RO)+
#5.,
RS

2%:

177777
050632
050626
050634

MOv
MoV
Mov

(mp
Mov

000017

037602
037604
037606

037614
037622
037626
037634
037642
037646
037652
037656

64666

SEQ 0147

THIS 1S AN ECC READ DATA TEST
ERROR CORRECTION IS ENABLED

Mg
ot

6453
64654
6455
6456
6457
6458
6459
6460
6461
64662
6463
6464

149

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

6413

6414
6415
6416
6617
6418
64619
6420
6421
6422
6423
6424
6425
6426
6427
6428
6429
6430
6431
6432

E 12

30A(1052)
15:07 PAGE
26=MAY-79
READ ECC ENABLED 2A
160

053010

FOR ECC

:MOVE IN DATA ON TO SIMULATED DISK
;. COUNT
;BRANCH IF 256 NOT COMPLETE

:JUMP OVER THE TWO ECC WORDS
;1 DATA GAP

;14

TOLERANCE GAP

;CLEAR DATA GAP, AND
: TOLERANCE GAP
;BRANCH IF NOT COMPLETE
;INSERT ECC

TEST

IN PROPER PLACE ON DISK

ONLY

;THIS

IS AN ECC

TEST

CLR
CLR
(LR

;CLEAR ERROR POSITION COUNTER
arPOs1v]
SINCODE ,8#NCOUNT ; TEMPORARY N-CODE COUNTER
S/HARDER ,@#HADTMP ; TEMPORARY HARD ERROR COUNTER
S#GECC)
;ECC LOW ORDER TO BE GENERATED
;FCC HIGH ORDER TO BE GENERATED
S#GECC2
;CLEAR DATA ENVELOPE (LOCK COUNT
SFDATENV
;CLEAR LEADING ZEROS CLOCK COUNT
a#(0DE

;*THESE

ARE

MOv

FEMT22 ,900YL

(LR

TO SETUP FOR DISKLESS USE

ONLY

;16 BITS PER WORD
;CYUINDER O, FORMAT

16 BITS

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJIMD P12

6517
6518
6519
6520
6521
6522

QO £ NOWwW

OCOOOO

VA
A A IV,

[elololelo]

000000
000000
000000
000000
000400
053020
067332

(L LV LV LV LV ]

NN
NN
LA

30A(1052)
24-MAY-79
15:07
PAGE
READ ECC ENABLED 28B
T61

MOvB8
MOvB
Mov
Mov
Mov
CLR

gSR

150

SEQ 0148

M0, 3#SECOTR#
#0,80SECOTR

;TRACK O
;SECTOR 0

#0,8MKEY2
#256.,30DAWORD

;KEY2=0
;NO. OF DATA WORDS

#0,9/xEY]

;KEY1=0

arx

sTHIS

RS.,a#CRC

1S A READ COMMAND

;60 TO CALCULATE CRC

WCRC

;*THIS IS TO INSERT ERROR
;*THE DISK DATA IS

;*THE POSITION OF
;*THIS MOVE

IN LOCATION STARTING FROM

THE

ERROR

CAN BE

CHANGED BY

'D]SK’

CHANGING

037742

012737

077777

054730

MOV

#77777,9#D1SK+2 ;FORCE ERROR ON BIT NUMBER 3¢

037750

012737

000026

040124

MOV

#22..,348%

:39 ERROR POSITION REGISTER WILL SHOW

“INSERT POSITION REG.

;*THESE ARE REGULAR SETUPS
037756
037762
037770
037776
040002
040010
040014

046116
177374
016264
000000
000000

000001

010000

154744

1564746

oro

=2 =

000000
013711
005037
004737

005123
N
— -

040036
040040
040044
040050

104401

154742
046160

OO0

005077
004737

[p SRV, AV,

040022
040026
040032

154760
154754

JSR
Mov

PC,aNCLDISK
#-256.-4.,aRHWC

MOVB
MOV

#0,1(SP)
(SP)+ ,aRHDST

MOV
MovB

Mov

;SETUP GENERAL REGISTERS
;256. DATA & HEADER WORDS

FREINTO,aRHBA
#0,-(SP)

;STARTING ADDRESS OF READ BUFFER
;IN LOWER BYTE GET SECTOR

NEMT 2?2, BRHOF

:GET TRACK IN HIGHER BYTE
:TRACK/SECTOR IN RHDST

CLR

aRHCA

;16 BITS PER WORD
;ECC CORRECTION NOT INHIBIT
;BECAUSE ECC IS NOT GOING
;10 BE CHECKED
;CYLINDER 0

TYPE

.CPHALT

; CANNOT

JSR

HALT

PC,aNCHECKT

MOV

a#REFOR,aR1

JSR

PC,a¥#COMHD

CLR

INERFLGS

; CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T
CONTINUE

TESTING

I1F

ANY

;STOP THE

TEST

;READ HEADER AND DATA:=7?
;CLEAR ERROR FLAG

:READ HEADER AND DATA
;1f THERE ARE READ ERRORS THEN
SECC WILL NOT BE CHECKED

;v1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;*FROM THE "'COMHD'' ROUTINE THAT MEANS SECTOR GAP,
;*FIRST

SYNC,

HEADER,

HEADER CRC,

HEADER GAP AND

;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
;*DETECTED
; *HEADER AND DATA ARE

TO BE

CHECKED.

;tIN CHECKING READ DATA THE WRITE FROM BUFFER
;¢ "WRFROM"' IS FILLED WITH EXPECTED DATA AND
;*COMPAR]ISONS ARE MADE

1HE

;ABOVE 8ITS DON'T = 7 OR OTHERS ARE STu(k a !

[en
X an]

MACY11

— =

NOWVO~N~N~NN

OQONNNNN~

6467
6468
6469
6470
6471
6472
6473
6474
6475
6476
6477
6478
6479
6480
6481
6482
6483
6484
6485
6486
6487
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

COO0OOOOO
——

CZRJHDO,RPOL/S5/6 DSKLS CTRLRZ
CIRJHD P12
01-MAR-79 09:10

6573
6574
6575
6576
6577
6578

040054
040060
040062
040066
040074
040076

005737
001077
004737
022737
001401

G 12

15:07
PAGE
30A(1052)
2L-MAY-T9
READ ECC ENABLED ¢8B
161

015124
045616
100000

191

ONERFLGS

JSR
(mp
BEQ

PC,e/PUTREG
POCK ,QNERT
6%

BNE
015034

106032

ERROR

18162

1>1

SEQ 0149

;ANY ERRORS ALREADY

;BRANCH IF

YES

THERE

;SAVE REGISTERS

;ONLY DATA (HECK ERROR SHOULD BE SET

:BRANCH IF YES
:%ERSIT ECC REGISTER SHOULD BE NON

;ONLY 11 OF THE 32 BITS CAN BE SEEN
;IN THE PATERN REGISTER

040100
040104
040110
040114
040116

013746
042716
022637
001401

050620

040120
040124

004037
000026

051242

174000
015064

7%:

8%:

0646350
005123

040126
040132
040136
040140
040144
040150

040154
040162
040164
040170
040174
040200
040204
040206
040210

6%:

104032

620

[ Yo B R

652%
6524
6525
6526
6527
6528
6529
6530
6531
6532
6533
6534
6535
6536
6537
6538
6539
6540
6541
6542
6563
6544
6545
6546
6547
6548
6549
6550
6551
6552
6553
6554
6555
6556
6557
6558
6559
6560
6561
6562
6563
6564
6505
6566
6567
6568
6569
6570
6571
6572

MACYT1

015220
010000
000000
000000

[ [o]

ANGECCT,=(SP)

CmMP

(SP)+,QNEC2

BIC

000000
000000
000400
177777

;KEEP ONLY

BITS

; COMPARE PATTERN REGISTER

7%
32

;BRANCH 1F GOOD
;11 BITS OF THE 32 BIT

JSR
22.

RO,a#ECORR

;60 10 ECC CORRECTION PROCESS
;EXPECTED POSITION REG. WHEN CORRECTION
;1S COMPLETE

JSR

PC,aNCHECKE

:CHECK THAT DVA,RDY,DPR,DRY = 1

MoV
MOV

#WRFROM,RO
N#O'FMT22,(RO)¢

MOovB

3%:

:GET PATTERN REGISTER

BEQ
ERROR

TYPE
HALT

000001

#1764000, (SP)

;0CK SHCULD BE SET IN RHER!

MOVB
MoV
MoV
MoV
MoV
MoV
MOV
DEC
BNE

LCPHALT

#0,-(SP)

#0,1(5P)
(SP)+,(RO)+
#0,(RO)+
#0,(RO)+
#25A. ,R1
#-1,R2
R2,\R0O)+
R1
1

ECC REGISTER

:CANNOT CONTINUE 1F THEY DON'T
:STOP THE TEST AND RESTART PROGRAM
:GETTING READY TO FILL EXPECTED DATA
;CYLINDER O
:IN LOWER BYTE GET SECTOR
:GET TRACK IN HIGHER BYTE
:GET TRACK/SECTOR IN BUFFER
sKEY1 IN BUFFER
;KEY2 IN BUFFER

:DATA WORD COUNTER
;DATA
:DATA INTO BUFFER

; COUNT

:BRANCH 1F 256 NOT DONE

;*ONLY GOOD DATA HAS BEEN PUT [N 'WRFROM'
;*NOW THE INSERTED ERROR WiLL BE PUT IN
060212
040220
040224

012737
004737
005037

077777
045616
015124

015232

s INSERTED ERROR
:SAVE REGISTERS
;CLEAR ERROR FLAG

MoV

B77777,80WRFROM+<S*2>

JSR
(LR

SVERFLGS

PC.,a#PUTREG

;*NOW READ DATA BUFFER WiLL BE CHECKED
040230
040234
040236
040240
040242
040244

004037
015220
016264
000404
040250
040254

040246

040260

047020

JSR
WRFROM
REINTO

RO,a#COMPAR

; CHECK

. GO0D BUFFER
;TEST

BUFFER

44256,
6%
5%

;NUMBER OF WORDS C(HECKED

15162

;RETURN FOR GOOD COMPARISON

:RETURN POINT

FOR ERROR MEADER

;RETURN POINT FOR ERROR DATA

INCORRE(T

[Nl

CIRJHDO,RPOL/S5/6 DSKLS CTRLR?
CIRJKHD P12
01-MAR-79 09:10

6579
6580
6581
6582
6583
6584
6585
6586

MACY11

30A(1052)

24-MAY-79

15:07

161

READ ECC ENABLED 2B

1064004

ERROR

1064005

5%:

RTS

040250
940252
040254

000207

040256

000207

RTS
ERROR

PC
&

H 12
PAGE

152

;READ NEXT

SEQ 0150
ERROR

;RETURN TO ''COMPAR’’
;WORD NOS 1 TO & ARE
;HEADER WORDS
;9 T0 260 ARE DATA WORDS
;RETURN TO ''COMPAR'’

CIRJHDO,RPOL/S/6 DSKLS CTRLRZ
01-MAR-79 09:10
CZIRJHD P12

6617
6618
6619
6620
6621
6622
6623
6624
6625
6626
6627
6628
6629
6630
6631
6632
6633
6634
6635
6636
6637
6638
6639
6640
664
6642

1>3

SEQ 0151

READ ECC ENABLED 2C

ot
o

THIS IS AN ECC READ DATA TEST
ERROR CORRECTION 1S ENABLED

TRACK O, SECTOR O KEYS O

M
i
o

A NON CORRECTABLE ERROR 1S INSERTED [N BIT POSITION 32 AND 21
GOOD DATA USED IS 256 WORDS OF 177777
COMMAND 1S GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
READ HEADER AND DATA

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

040260
040262

000004
012706

001000

040266

012737

000062

1ST62:

017330

177777
000400
054726

040274
040300
040304
040310
040312
040314
040316
040320
040322

012705

040326
040330
040332

005020
005305
001375

040334

004737

1$:

SCOPE
MOv

#STACK,SP

SRESET

MOV

FTINO,a#7STNM

;THIS SAVES

SETUP FOR WHAT

2%:

NUMBER

]S TO BE READ

#-1,-(SP)
#256. RS

:DATA 10 BE READ
s COUNTER

MoV

(SP),(RO)+

:MOVE

Mov

#D]1SK,RO

DEC
BNE

RS
1%

(mp

(RO)+,(RO)+

CLR

(SP)+

#5.,R5

(RO)+

;START OF

SIMULATED DISK DATA

IN DATA ON TO SIMULATED DISK

; COUNT
:BRANCH IF 256 NOT COMPLETE

sUNDO =(SP)

;JUMP OVER THE TwO ECC WORDS
;1

;14

DATA GAP

TOLERANCE

GAP

:CLEAR DATA GAP, AND

DEC

: TOLERANCE GAP

JSR

PC,afr ILLEC

;INSERT THE TWO ECC WORDS ON THE DI1SK

BNE
051414

TEST

Mov
MOV

Mov

000017

STACK

HEADER CRC IS RESTORED FROM A SUBROUTINE

181

;BRANCH IF NOT COMPLETE

;IN THE CORRECT PLACE

;*THESE ARE FOR ECC TEST ONLY
040340
040346
040352
040360
040366
040372
040376
040402

e L N
NNSNN

6616

J*TEST 62

— ot ) W
NNO~N

6615

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

OOO0O

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

30A(1052)
26=-MAY-79
15:07
PAGE
161
READ ECC ENABLED 2B

005037
005037
005037
005037

V77777
050632
050626
050634
050620
050622
050636
050640

015142

MOv

#-1,301SECC

050630
050642

MOv
Mov
CLR
CLR
(LR

8/NCODE ,@#NCOUNT ; TEMPORARY N-CODE COUNTER
; TEMPORARY HARD ERROR COUNTER
@YHARDER ,@#HADTMP
S#GECC
;ECC LOW ORDER TO BE GENERATED
8¥GECC2
;ECC HIGH ORDER TO BE GENERATED
S#DATENY
;CLEAR DATA ENVELOPE (LOCK COUNIT

CLR

(LR

;CLEAR ERROR POSITION COUNTER

a#2(0DE

;CLEAR LEADING ZERQOS CLOCK COUNT

;*THESE ARE

040406
060414

012737
112737

010000

000000

;THIS 1S AN ECC TEST

ayPOS111

TO SETUP FOR DISKLESS USE ONLY

053010

MOV

FEMT22,80CYL

053013

Move

#0,a#SECOTR]

;16 BITS PER WORD
;CYLINDER O, FORMAT
;TRACK O

16 B8BTS

CIRJHDO,RPOG/S5/6 DSKLS CTRLR?
01-MAR-79 09:10

CZRJHD P12

MACY11

6647
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
6659
6660
6661
6662
6663

Nt
s

[T
o ¥ 0l oV

6646

0
0
0
0

000000
000000
000000
000400
053020
047332

QOO0

6645

NN NN

6644

040622
040430
040436
040444
040452
040456
040462
04604664

OOOO

6643

6666

6667
6668
6669
6670
6671
6672
6673
6674
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
6698

Move
MoV
Mov
Mov
CLR
gSR

154

SEQ 0152

#0,8#SECOTR
;SECTOR O
#0,9#KEY
;KEY1=0
#0,8WKEY?
;KEY2=0
#256. ,8#DAWORD ;NO. OF DATA WORDS
arx
;THIS IS A READ COMMAND
RS,8#(R(
;00 TO CALCULATE CRC

WCRC

;*THIS

INSERT

;*THE DISK DATA IS
;vTHE POSITION OF
;*THIS MOVE

ERROR

IN LOCATION STARTING FROM °*D]SK'

THE

ERROR

CAN BE

C(HANGED BY

C(HANGING

040466

012737

077757

054730

MoV

¥77757.30D1SK+2 ;FORCE ERROR ON BIT NUMBER 32 AND 21
;3(2) ERROR POSITION REGISTER WILL SHOW

040474

012737

010040

040650

MOV

#6128, ,a308%

SINSERT POSITION REG.

;*THESE ARE REGULAR SETUPS

6664

6665

J 12

30A(1052)
26-MAY-79
15:07
PAGE
READ ECC ENABLED 2C
162

046116
177374
016264
000000
000000
154222
010000

040502
040506
040514
040522
040526

040534
040540

000001

JSR
MOV
MOv
MOv8
Move

154220

MOv

156234
1564230

MOv

PC,a#CLDISK
#-256.-4.,3RHWC
#REINTO,@RHBA
#0,-(SP)
#0,1(SP)
BRHDST
(SP)+,
FEMT22 ,aRHOF

040546

005077

156216

CLR

SRHCA

040552
040556

004737

066160
005123

JSR

PC,afCHECKT

040562

000000

040564
040570
040574

013711
005037
004737

104401

TYPE

.CPHALT

HALT

015176
01512¢4
052650

Mov
CLR
JSR

;SETUP GENERAL REGISTERS
;256. DATA & HEADER WORDS
;STARTING ADDRESS OF READ BUFFER
;IN LOWER BYTE GET SECTOR
:GET TRACK IN HIGHER BYTE
;TRACK/SECTOR IN RHDST
:16 BITS PER WORD

;ECC CORRECTION NOT INHIBIT
;BECAUSE ECC IS NOT GOING
;10 BE

CHECKED

;CYLINDER 0

;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T
; CANNOT CONTINUE TESTING IF

ANY OF

THE

;ABOVE BJTS DON'T = 1 OR OTHERS ARE STuCK a 1
;STOP THE

a¥REFOR,aR]
SNERFLGS
PC,a”COMHD

MACYT1Y
[V LV LV IV, )}

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
CZRJHD P12
01-MAR-79 09:10

TEST

;READ HEADER AND DATA:=7?
;CLEAR ERROR FLAG
;READ HEADER AND DATA
:1F THERE ARE READ ERRORS THEN
;ECC WILL NOT BE CHECKED

;t1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS

;*FROM THE "'COMHD'' ROUTINE THAT MEANS SECTOR GAP,
;*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND
;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY

;*DETECTED
;*HEADER AND DATA ARE TO BE CHECKED.
;vIN CHECKING READ DATA THE WRITE FROM BUFFER
;¢ 'WRFROM"' IS FILLED WITH EXPECTED DATA AND
; *COMPARISONS ARE MADE

6699
6700
6701
6702
6703
6706
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
6736
6735
6736
6737
6738
6739
6740
6741
6762
6743
6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6756

040000
0460604
040606
040612
0460620
040622

005737
001106
0064737
022737
001401

MACY11

K 12
30A(1052)
24=MAY=79
15:07
PAGE
READ ECC ENABLED 2C
162

01512¢
045616
100000

187

BNE
JSR
CMP
BEQ
ERROR

01503¢

1064032

SFERFLGS
15163

PC,a#PUTREG
#DCK,FERT

6%
12

155

SEQ 0153

;ANY ERRORS ALREADY

THERE

;BRANCH IF YES
:SAVE REGISTERS
;ONLY DATA CHECK ERROR SHOULD BE SET

;BRANCH IF

YES

:%ERgIT ECC REGISTER SHOULD BE NON

;ONLY 11 OF THE 32 BITS CAN BE SEEN

040624
040630
040634
040640
040642

013746
042716
022637
001401
1064032

050620
174000
015064

040644

040650

0046037
000000

051242

040652

004737

045616

040656

022737

100100

040664
040666

001401
104036

040670
040670
040674
040700
040702
040706
040712
040716
040724

040726
040732
040736
040742
040746
040750
040752

004737
104401

6%:

7%:
8%:

015034

:
9%

046350
005123

015220
010000
000000
000000

Mov

81C
(MP
BEQ
ERROR

RO,a#ECORR

;60 TO ECC CORRECTION PROCESS
;EXPECTED POSITION REG. WHEN CORRECTION
;1S COMPLETE

JSR

PC.a#PUTREG

;SAVE REGISTERS

CMP

#OCK'ECH,aNER]

;WITH ERRORS INSERTED IN BIT POSITION 21

BEQ
ERROR

JSR

PC.aNCHECKE
+CPHALT

HALT
Mov
Mov

0000C2
000000
000400
177777

MOovB
MovB

3%:

JSR
.WORD

TYPE

000001

S#GECC1,-(SP)
#174000,(SP)
(SP)+,amMEC?
7%

:IN THE PATERN REGISTER
;0CK SHOULD BE SET IN RHER1
;GET PATTERN REGISTER
SKEEP ONLY 11 BITS
: COMPARE PATTERN REGISTER
;BRANCH IF GOOD
;11 BITS OF THE 32 BIT ECC REGISTER INCORRECT

mMov
MOV
MOV
MOV
MOV
MOV

DEC
BNE

#WRFROM,
RO
#0'FMT22, (RO)+
#0,-(SP)
#0,1(SP)
(SP)+, (RO)+

#0, (RO)+

#0,(RO)+
#256. R
#-1,R2
R2,(RO)+
R1

;AND 32 HARD ERROR BIT
;BRANCH If GOOD

;WITH ERROR INSERTED IN BIT POSITION 21

:32 HCE SHOULD SET

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

; CANNOT CONTINUE IF THEY DON'T
;STOP THE TEST AND RESTART PROGRAM
;GETTING READY TO FILL EXPECTED DATA
;CYLINDER O
:IN LOWER BYTE GET SECTOR
;GET TRACK IN HIGHER BYTE
;GET TRACK/SECTOR IN BUFFER
;KEY1 IN BUFFER
;KEY2 IN BUFFER
;DATA WORD COUNTER
:DATA
;DATA INTC BUFFER
s COUNT
;BRANCH IF 256 NOT DONE

;*ONLY GOOD DATA HAS BEEN PUT IN 'WRFROM'
;*NOW THE INSERTED ERROR WILL BE PUT

060754
040762
040766

077757
0645616
01512¢4

015232

MOV

JSR
CLR

SFERFLGY

; INSERTED ERROR
;SAVE REGISTERS
;CLEAR ERROR FLAG

#77757 ,80WRFROM+<S52>
PC,8#PUTREG

SHOULD SET

THRU

CIRIHDO,RPOL/5/6 DSKLS CTIRLR?
01-MAR-79 09:10
CIRJHD P12

6755
6756
6757
6758
6759
6760
6761
6762
6763
6764
6765
6766
6767
6768
6769
6770
6771
6772
6773

L 12

30A(1052)
26=MAY-79
15:07
PAGE
READ ECC ENABLED 2C
162

156

;*NOW READ DATA BUFFER WILL BE CHECKED

041004
041006

004037
015220
016264
000404
041012
041016

041010

041022

040772
040776
041000
041002

041012

104004

061014
041016

000207
104005

041020

000207

047020

JSR

WRFROM
REINTO

RO,a3#COMPAR

;NUMBER OF WORDS CHECKED
;RETURN POINT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA

44256,
6%
5%

;RETURN FOR GOOD COMPARISON

15163
49

5%:

ERROR

PC
5

RTS

s CHECK
;GOOD BUFFER
;TEST BUFFER

;READ NEXT ERROR

;RETURN TO '"'COMPAR'’
;WORD NOS 1 TO & ARE
;HEADER WORDS

;5 70 260 ARE DATA WORDS

;RETURN TO ''COMPAR'’

SEQ 0154

CIRJHDO,RPO&/5/6 DSKLS CTRLR?
01-MAR-79 09:10

CIRJHD. P12

MACY11

6774
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785
6786
6787
6788
6789
6790
6791
6792
6793
6794
6795
6796
6797
6798
6799
6800
6801
6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
6812
6813
6814
6815
6816
6817
6818
6819
6820
6821
6822
6823
6824
6825
6826
6827
6828
6829

MACY

30A(1052)
162

24-MAY-79

15:07

READ ECC ENABLED 2C

n12
PAGE 157

SEQ 0155

';'I'""i"'""'t""""'""""""'.""".""'.'0""""

SeTEST 63

WRITE ECC TEST 3

.*
ot

THIS IS A WRITE ECC TEST
WRITE CYLINDER O, FORMAT 16 BITS PER WORD

OF ALL 52525.

TRACK O, SECTOR 1, KEYS O, NUMBER OF WORDS 256

’;'".""""'"'""""""'""'""""t""""I""'.'."'

041022
041024

041030
041036
041042
041046
041050
041052
041054

041060
041066
041072
041100

041106
04641112
041116
041122

1$163:

001000
000063
054630
000460

004737

012737
005037
013737
013737
005037
005037
005037
005037

017330
1%:

050632
050626
050634
050620
050622
050636
050640

#STACK,SP

sRESET STACK

Mov
MOV
Mov
CLR
DEC

#TINO,3#TSTNM
#SECGAP,RO
#304. R
(RO)+

;THIS SAVES TEST NUMBER
;PGINTER
; COUNTER
sCLEAR SIMULATED DISK AREA

JSR

PC,CLDISK

sTHIS 1S USED TO SET GENERAL REGISTERS

BNE

; *TRESE

ARE

015142

Mov

050630
050642

Mov
Mov

CLR
CLR
CLR

#-1,3FT1SECC
:THIS IS AN ECC TEST
efPOSITI
sCLEAR ERROR POSITION COUNTER
@¥NCODE ,@#NCOUNT ; TEMPORARY N-CODE COUNTER
; TEMPORARY HARD ERROR COUNTER
8/HARDER ,@#HADTMP
S#GECC!
;ECC LOW ORDER TO BE GENERATED
S#GECC?
sECC HIGH ORDER TO BE GENERATED
;CLEAR DATA ENVELOPE CLOCK COUNT
S/DATENV
;CLEAR LEADING ZEROS CLOCK COUNi
a#2(0ODE

; *THESE

ARE

046116

177777

SCOPE

MOV

CLR

(LR

FOR ECC

TEST

ONLY

TO BE SETUP FOR DISKLESS ULSE ONLY

061126

012737

010000

056146

MOV

NFMT22,90WCYL

;FORMAT22=16BIT WORDS AND

041134
041142
041146
041152
041160
041164
041166

012737
005037
005037
012737
004537

000001
056152
056154
000400
047332

056150

Mov

#1,30WSECTR
INWKEY]

: TRACK=0, SECTOR=1
sKEY1=0

056206

Mov

CLR
CLR

JSR

INWKEY?2

#256.,30FNWORD
RS ,a#CRC

;CYLINDER O

;KEY2=0

;256 DATA WORDS

;G0 TO CALCULATE

(RC

wlyL

GCRC

15355¢

; *THESE

ARE

REGULAR

#-260.,3RHWC

;256 DATA WORDS 4 HEADER WORDS

;FORMAT=16 BIT WORDS

041170
0641176
041202

015220
153544

MOV
MOV
MOV

041206

010000

MOV

NEMT22, (RO)¢

041212

000001

MOV

#1,(RO)¢

177374

2%:

#WURFROM RO
RO,aRHBA

SETUPS

;THESE TWO INSTRUCTIONS GETS
;ADDR. OF WRFROM INTO RO AND
:BUS ADDRESS REGISTER

;CYLINDER=0

; TRACK=0, SECTOR=1, KEYS-0

CIRJHDO,RPO4/S/6 DSKLS CTRLRZ
CIRJHD P12
01-MAR-79 09:10

6830
6831
6832
6833
6834
6835
6836
6837
6838
6839
6840
6841
6842
6843
6844
0845
6846
6847
6848
6849
6850
6851
6852
6853
6854
6855
6856
6857
6858
6859
6860
6861
6862
6863
6864
6865
6866
6867
6868
6869
6870
6871
6872
6873
6874
6875
6876
6877
6878
6879
6880
6881
6882
6883
6884
6885

005020
005020
012705
012720
005305

001374
012777

000001

004737

041254

000000

041256

01371

015172

041262
041266
041274
041300

005037
012777
005077
004737

015124
010000

30A(1052)
15:07
24-MAY-79
163
WRITE ECC TEST 3

(LR
(LR

000400
052525

041244
041250

104401

MACY1T

3%:
153516

046160
005123

KEY1=0
:KEY2:=0

852525, (RO)+

;MOVE ALL 52525 FOR DATA

#256.,RS

DEC
BNE

RS
1%

MOV
JSR

TYPE

153470

055772

;s COUNTER

#1,3RHDST

;BRANCH 1F DATA NOT COMPLETE
: TRACK=0 SECTOR=1

PC,ONCHECKT

;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T

LCPHALT

;CANNOT CONTINUE

TESTING IF

ANY OF

THE

;ABOVE BITS DON'T = 1 OR OTHERS ARE 5TUCK & 1

HALT

153472

SEQ 0156

(RO)+
(RO)+

Mov

MOV

N 12
PAGE 158

;STOP THE

MoV

S/WRIFOR,aR1

CLR
MOv
CLR
JSR

SFERFLGS
#FNT22,9RHOF

dRHCA
PC.,e#(OMWHD

TEST

:GET READY FOR WRITE HEADER AND
:DATA WITH 62 IN RH(CSI
;CLEAR ERROR FLAG
;FORMAT BIT=1 (16 BIT WORDS)

;CYLINDER =0
;WRITE HEADER AND DATA

;*1F THE PROGRAM COMES BACKX HERE W]THOUT ERROR PRINTOUTS

;*FROM THE "'COMWHD'' ROUTINE THAT MEANS ALL HEADER ON DISK

:*1S GOOD JE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE
;*ALL 52525 AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF
;*THEY

041304

005737

041310

001056

041312
041320
041322
0461324
041326
041334
041336

023737
001402
104031
000405
023737
001401

050620

055726

050622

055730

004737

046350
005123

0461340
041340
041344
041350

01512¢

000000

ALL

ZEROS

187

SNERFLGS

BNE

15764

:HAS ANY ERRORS OCCURED?

;LF WRITE ERROR OCCURS ECC IS NOT CHECKED
; ;BRANCH IF YES

: COMPARE SOF TWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE

6%:

104031

104401

ARE

7%:

CMP
BEQ
ERROR
BR
(MP
BEQ
ERROR

SNGECCT,a#WECCT; COMPARE SOF TWARE ECC WITH HARDWARE ECC
6%
:BRANCH 1F GOOD
.LOW ORDER ECC IN ERROR
31
7%
:BRANCH TO CONTINUE
AFGECC2,aNWECC2 ;COMPARE SOFTWARE ECC WITH HARDWARE ECC
7%
;BRANCH IF GOOD
;HIGH ORDER ECC IN ERROR
31

JSR
TYPE

PC,aNCHECKE
+CPHALT

HALT

; CHECK THAT DVA,RDY,DPR,DRY = |
; CANNOT CONTINUE IF THEY DON'T

;STOP THE TEST AND RESTART PROGRAM

;eFILL "'REINTO' BUFFER WITH EXPECTED DATA

041352
041356
041360
041362

004037
016264
017262
052525

046034

JSR

LWORD

RO,@#CLAREA
REINTO

;FILL REINTO BUFFER
;FROM

REINTO0+<255.¢2> ;10

52525

:DATA

CIRJHDO ,RPOL/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CZRJHD.P12

CZRJIHDO,RPOL/S5/6 DSKLS CTRLR?
CIRJHD.P12
01-MAR-79 09:10
6886
6887
6888
6889
6890
6891
6892

6893
6894
6895
6896
6897
6898
6899
6900
6901
6902
6903
6904
6905
6906
6907
6908
6909
6910
6911
6912
6913
6514
6915
6916
6917
6918

041364
061372
041400
041604
041406
041610

013737
013737
004037
017270
017326
000000

050620
050622
046034

061412

005037

015124

MACY11

30A(1052)
264=MAY=79
15:07
163
WRITE ECC TEST 3

017 264
017 266

8 13
PAGE 159

SEQ 0157

MOV

MGECCY,IMREINTO+<256.
92> FILL ECCY

JSR

RO,a# CLAREA

MOV

QNGECC2 @MREINTO+<257.
42> FILL ECC2

REINTO+<258. ¢2>

SFILL REST

:FROM

REINTQ+<272.42>
0

;10
DATA

CLR

;CLEAR ERROR FLAG

SFERFLGS

;*NOW COMPARE ‘'DISK'' BUFFER WITH "REINTO"
061622
061624
041426
041430
041432

004037
016264
054726
000402
041436
061442

0461434

041646

0461636
041440
0461442

104007
000207

041416

104010

JSR

047020

REINTO
015K
258.
4%

RO,a#COMPAR

ERROR

5%:

ERROR

RTS

;GOOD BUFFER
;TEST BUFFER
;NUMBEK Of WORDS CHECKED
;RETURN POINT FOR ERROR HEADER

;RETURN POINT FOR ERROR DATA

15164
49:

s CHECK

;RETURN FOR GOOD COMPARISON

;READ ERROR 10 NEXT

;WORD NOS 1

RETURN TO COMPARE
:DATA WORDS

TO 256 ARE

;WORD NOS 257 AND 258
;ARE

ECC WHICH ARE

;WORD NOS 259

CHECKED

;1S DATA GAP
:WORD NOS 260 10 273

061444

000207

;ARE

TOLERANCE

GAP

;RETURN TO COMPARE

6947
6948
6949
6950

6951
6952
6953
6954
6955
6956
6957
6958
6959
6960
6961
6962
6963
6964
6965
6966
6967
6968
6969
6970
6971
6972
6973
6974

30A(1052)
163

24-MAY-79

WRITE ECC

15:07

TEST

¢ 13
PAGE 160

SEQ 0158

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

READ ECC ENABLED 3A

SRTEST 64

THIS

6919
6920
6921
6922
6923
6924
6925
6926
6927
6928
6929
6930
6931
6932
6933
6934
6935
6936
6937
6938
6939
6940
6941
6942
6943
6944
6965
6946

MACY
1

1S AN ECC READ DATA TEST

ERROR CORRECTION 1S ENABLED

NO ERROR

INSERTED

GOOD DATA USED IS 256 WORDS OF 52525
COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
TRACK O, SECTOR O KEYS O

READ HEADER AND DATA

':'t't"'""'"""'"""""""'"""'t""'l'IQ""""""

061446
041650
041654

001000
000064

15T64:
017330

SCOPE

MOV
MOv

#STACK,SP
STINO,@#TSTNM

;*SETUP FOR WHAT

¢RESET STACK
;THIS SAVES TEST NUMBER

IS TO BE READ

: *HEADER CRC IS RESTORED FROM A SUBROUTINE
052525
000400
054726

0461462
061466
041472
041476
041500
041502
041504
041506
041510

1%:

Mov
MOV

#52525,-(SP)
#256. RS

;DATA TO BE READ
: COUNTER

mov
DEC

(SP),(RO)+
RS

:MOVE IN DATA ON TO SIMULATED DISK
: COUNT

MOov
BNE
151

000017

041514
041516
041520

005020
005305
001375

041522

004737

2%:

051414

#D]1SK RO
1%

041534
041540
041546
041554
041560
0461564
041570

177777
050632
050626
050634

050620
050622
050636
050640

015142

050630
050642

;BRANCH IF 256 NOT COMPLETE

(SP)+

:UNDO =(5P)

(MP
MOov

(RO)+,(RO)
#15..R5

CLR
DEC
BNE

(RC)+
RS
2%

;JUMP OVER THE TWO ECC WORDS
:1 DATA GAP
;14 TOLERANCE GAP
:CLEAR DATA GAP, AND
: TOLERANCE GAP
;BRANCH IF NOT COMPLETE

JSR

PC,aNFILLEC

;INSERT THE TWO ECC WORDS ON THE D]SK

;*THESE ARE

0461526

:START OF SIMULATED DISK DATA

MOov

(LR
MOov
Mov
CLR
CLR
(LR
CLR

;IN THE

FOR ECC

TEST ONLY

#-1,9#1SECC

;THIS

IS AN ECC

TEST

;CLEAR ERROR POSITION COUNTER
s#POSITI
S/NCODE ,a#NCOUNT ; TEMPORARY N-CODE COUNTER
; TEMPORARY HARD ERROR COUNTER
SMHARDER ,3#HADTMP
S#GECC)
;ECC LOW ORDER TO BE GENERATED
#GECC?
;ECC HIGH ORDER TO BE GENERATED
;CLEAR DATA ENVELOPE (LOCK COUNT
S#DATENV
;CLEAR LEADING ZEROS CLOCK COUNT
8#1(0DE

;*THESE ARE

TO SETUP FOR DISKLESS USE ONLY

041574

010000

053010

MOv

FEMT22,90(YL

041602
041610

000000
000000
000000

053012
053014

053013

MOvB
MOvVB
Mov

#0,80SECOTR¢
#0,9#SECOTR
#0,30KEVT

041616

CORRECT PLACE

;16 BITS PER WORD

:CYLINDER O, FORMAT 16 BITS
:TRACK 0
;SECTOR O
JKEY1:=0

(¥

CIRJHDO,RPO4/S/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD P12

CIRJIHD.P12
6975

6976

6977
6978
6979
6980
6981
6982
6983
6984

01-MAR-79 09:10

041624

041632

041640
061644
041650
0641652

012737

005037
004537
053010
054710

000000

000400
053020
047332

MACY1Y1

30A(1052)

164

053016

053070

#0,QMKEY2

;KEY2=0

(LR
JSR
cyL
WCRC

arx
RS,a#CRC

THIS IS A READ COMMAND
;GO TO CALCULATE CRC

046116
177374
016264
000000
000000
153050
010000

bggg

041720

005077

153044

CLR

6999

041724

004737

066160

JSR

041734

000000

041736

013711

70064

7005
7006
7007
7008

#256.,30DAWORD

041730

061742
041746

104401

005937
004737

JSR
Mov
MOv
MOv8
MOVB
MOv
Mov

153062
153056
000001
153046

005123

TYPE

PC,8#CLDISK
sSETUP GENERAL REGISTERS
#-256.-4.,8RHWC ;256. DATA & HEADER WORDS
#REINTO,8RHBA
;STARTING ADDRESS OF READ BUFFER
#0,-(SP)
;IN LOWER BYTE GET SECTOR
#0,1(SP)
;GET TRACK IN HIGHER BYTE
(SP)+, @RHDST
;TRACK/SECTOR IN RHDST
NEMT22 ,8RHOF ;16 BITS PER WORD
;ECC CORRECTION NOT INMIBIT
;BECAUSE ECC 1S NOT GOING
;70 BE CHECKED

SRHCA

PC,aNCHECKT

015176

MOov

015124
052650

CLR
JSR

S¥REFOR ,aR1

;READ HEADER AND DATA=72

QFERFLGS
PC,9#COMHD

;CLEAR ERROR FLAG
;READ HEADER AND DATA
;1F THERE ARE READ ERRORS THEN
JECC WILL NOT BE CHECKED

;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;*FROM THE "'COMHD'' ROUTINE THAT MEANS SECTOR GAP,
;*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND
;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
;*DETECTED
;*HEADER AND DATA ARE T0 BE CHECKED.
;*IN CHECKING READ DATA THE WR!TE FROM BUFFER
;¢ 'WRFROM' IS FILLED WITH EXPECTED DATA AND
; *COMPAR]SONS ARE MADE

7021
7022
7023
7026
7025
7026

041752
041756
041760
041764
041770
041772

005737
001102
004737
005737
001401
104032

015124

7030

041774

013746

050620

7027
7028
7029

;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T

:CANNOT CONTINUE TESTING IF ANY OF THE
;ABOVE BITS DON'T = 1 OR OTHERS ARE STu(kx a1
;STOP THE TEST

7009

7011
7012
7013
7014
7015
7016
7017
7018
;819

;CYLINDER 0

CPHALT

HALT

7010

:NO. OF DATA WORDS

;*THESE ARE REGULAR SETUPS
004737
012777
012777
112746
112766
012677
012777

7000
7001
;88%

0D 13
PAGE 161

MOV

041654
041660
041666
041674
041700
0641706
041712

15:07

READ ECC ENABLED 3A
MOV

gggz

6987
6988
6989
6990
6991
6992
6993
6994
6995
6996

24-MAY-79

045616
015034

6%:

181
BNE
JSR
1§71
BEQ
ERROR

SFERFLGS
15165
PC,e#PUTREG
afER]
6%
32

;ANY ERRORS ALREADY THERE
;BRANCH IF YES
;SAVE REGISTERS
:NO ERRORS SHOULD BE SET
;BRANCH IF NO ERRORS SET
;32 BIT ECC REGISTER SHOULD Bt ZERO

Mov

S¥GECCY,-(SP)

;GET PATTERN REGISTER

;ONLY 11 OF THE 32 BITS CAN BE SEEN
:IN THE PATERN REGISTER
:DCX SHOULD BE SET IN RHERI

SEQ 0159

CIRJHDO,RPO4/5/6 DSKLS CYRLRZ

7031
7032
7033
7034
7035
7036
7037
7038
7039
7040
7041
7042
7043
7044
7045
7046
7047
7048
7049
7050
7051
7052
7053
7054
7055
7056
7057
7058
7059
7060
7061
7062
7063
7064
7065
7066
7067
7068
7069
7070
7071
7072
7073
7074
7075
7076
7077
7078
7079
7080
7081

042000
042004
042010
042012

042716
022637
001401
106032

MACY11

30AC1052)
164

174000
015064

264-MAY-79

READ ECC

81C

#174000, (SP)

ERROR

(MP
BeQ

SEQ 0160

ENABLED 3A

(SP)+ amEC?
7%

;KEEP ONLY 11 BITS

; COMPARE PATTERN REGISTER
;BRANCH 1F GOOD

;11 BITS OF

THE 32 BIT ECC REGISTER INCORRECT

;*ADD 16 MAINTENANCE CLOCKS TO
; *BRING EBL DOWN
042014
042020
042026
042034
042036
042040
042044
042050
042052
042056
042062
042066
042074
042076
042102
042106
042112
042116
042120
042122
042124
042130

012700
052777
042777
005300
001370
0064737

BNE

JSR

046350
005123
015220
010000
000000
000000

000000
000000
000400
052525

004737

Mov
BIS
BIC
DEC

000020
000002
000002

TYPE
HALT

JCPHALT

PC.,aNCHECKE

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

MOV
MOV

#WRFROM,RO
WO!FMT22,(RO)+

Mov
Mov
Mov
Mov
MOV
DEC

#0,(RO)+
#0, (RO)+
#256. ,R1
#52525,R2
R2,(RO)+
R1

;GET TRACK/SECTOR IN BUFFER
;KEY1 IN BUFFER
;KEY2 IN BUFFER
;DATA WORD COUNTER
;DATA
;DATA INTO BUFFER
: COUNT

BNE
CLR
JSR

015124
045616

; COUNTER
sSET CLOCK
;CLEAR (CLOCK
; COUNT
;BRANCH IF 16 CLOCKS NOT DONE

; CANNOT CONTINUE 1F THEY DON'T
;STOP THE TEST AND RESTART PROGRAM
;GETTING READY TO FILL EXPECTED DATA
;CYLINDER O

MOvB
MOvB
Mov

000001

#6.,R0
#MCLK,QRHMR
MCLK,IRHMR
RO
8$

#0,-(SP)
#0,1(SP)
(SP)+,(RO)+

SFERFLGS
PC,a#PUTREG

;IN LOWER BYTE GET SECTOR
;GET TRACK IN HIGHER BYTE

;BRANCH IF 256 NOT DONE
;CLEAR ERROR FLAG
;SAVE REGISTERS

;*NOW READ DATA BUFFER wiLL BE CHECKED
JSR
WRFROM
REINTO

042134
042140
0462142
062144
062146
042150

004037
015220
042154
042160

44256,
6%
5%

042152

042164

TS165

04215¢
042156
042160

000207

042162

047020

016264
000404

104004

104005

5%:

000207

ERROR
RIS

ERROR
RTS

RO,a# COMPAR

s CHECK
;600D BUFFER
;TEST BUFFER
;NUMBER OfF WORDS CHECKED
;RETURN POINT FOR ERROR HEADER

;RETURN POINT FOR ERROR DATA
;RETURN FOR GOOD COMPARISON

&
PC

;READ NEXT ERROR
;RETURN TO "'COMPAR'’

;WORD NOS 1 TO & ARE
;HEADER WORDS

:5 10 260 ARE DATA WORDS
;RETURN TO ''COMPAR"

CIRIHDO,RPOL/S/6 DSKLS CTRLRZ
01-MAR-79 09:10

CIRJND. P12

E 13
15:07
PAGE 162

7082
7083
7084
7085
7086
7087
7088
7089
7090
7091
7092
7093
7094
7095
7096
7097
7098
7099
7100
7101
7102
7103
7104
7105

-—

PROMNVNUNINDY
ettt bt b et
O
SN
—=OOVB NN WN—O0

NNNNNNNNNNNNNNNN

7108

30A(1052)
164

24-MAY-79

15:07

READ ECC ENABLED 3A

PAGE

163

SEQ 0161

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

;*TEST 65
ot
ot
0t
ot

.
ot
.t

READ ECC ENABLED 3B

THIS 1S AN ECC READ DATA TEST
ERROR CORRECTION IS ENABLED
A CORRECTABLE ERROR 1S INSERTED IN BIT POSITION 4128
THIS IS THE LAST BT OF THE ECC

600D DATA USED IS 256 WORDS OF 52525
COMMAND 1S GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
TRACK O, SECTOR O KEYS O READ HEADER AND DATA

;;'"'""""'""""""""""""""l"""""""'tt!"'

042164
042166
042172

000004
012706
012737

001000
000065

TST65:

017330

SCOPE

MOV
Mov

#STACK,SP
#TINO,@#TSTNM

;RESET STACK
;THIS SAVES TEST

NUMBER

IS TO BE READ
;*HEADER CRC IS RESTORED FROM A SUBROUTINE

;*SETUP FOR WHAT
042200
042204
042210
042214
062216
042220
062222
042224

052525
000400
054726

1%:

mov
Mov
MoV

#52525, =(SP)
#256. RS
#D15k,RO

:DATA T0O BE READ
. COUNTER
;START OF SIMULATED D]ISK DATA

DEC

: COUNT

181

(SP)+

Mov

BNE
000037

042226
042232
042234
042236

005020
005305
001375

042240

004737

2%:

0514614

(SP), (RO) ¢

;MOVE

IN DATA ON TO SIMULATED DISK

;BRANCH IF

:UNDO =(SP)

256 NOT COMPLETE

(MpP
MOov

(RO)+,(RO)+
#15.,
RS

:JUMP OVER THE
:1 DATA GAP

CLR
DEC
BNE

(RC) ¢
RS
2%

;CLEAR DATA GAP, AND
: TOLERANCE GAP
sBRANCH 1F NOT COMPLETE

JSR

PC.aMFILLEC

;INSERT ECC

;14

TOLERANCE

TWwO ECC WORDS
GAP

IN PROPER PLACE ON DISK

:*THESE ARE FOR ECC TEST ONLY
062244
062252
042256
042264

177777

050632
050626
050634
050620
050622
050636
050640

062272
062276
042302
0423006

015142

050630
050642

MOV
CLR

#-1,9#T1SECC
e/POSITI

;THIS 1S AN ECC TEST
;CLEAR ERROR POSITION COUNTER

(LR

S¥GECC

;ECC LOw ORDER TO BE GENERATED

S#DATENV

;CLEAR DATA ENVELOPE CLOCK COUNIT
;CLEAR LEADING ZEROS (LOCK COUNIT

MOv
MOV

CLR

S#NCODE ,@#NCOUNY ; TEMPORARY N-CODE COUNTER
SVHARDER,8#HADTMP
; TEMPORARY HARD ERROR COUNTER

SNMGECC?2

CLR

a#Z2(0DE

;*THESE

ARE

;ECC HIGH ORDER TO BE GENERATED

TO SETUP FOR DISKLESS USE ONLY

042312

012737

010000

053010

MOv

NEMT22,a0( YL

062320

112737

000000

053013

MOvB

#0,a#SECOTR+

:16 BITS PER WORD
;CYLINDER O, FORMAT
;TRACK O

16 BITS

(e Nen]

CIRIHDO,RPO&/5/6 DSKLS CTRLR2
CIRJHD. P12
01-MAR-79 09:10

MACY
T

o4 O]

N
b

[ Yo ¥

OOOO

LN AN NN

VARV
RV 1V )

OOOOo

164

SEQ 0162

MOVB
MOV
MOV

#0,3#SECOTR
80 . #KEY1
20 ANKEY?2

:SECTOR 0
SKEY1=0
SKEY2:0

CLR

anx

STHIS

MOV
gsn
YL

#256.,30DAWORD

RS, aNCRC

:NO. OF DATA WORDS

1S A READ COMMAND

260 10 CALCULATE CRC

;*THIS IS TO INSERT ERROR

;*THE DISK DATA IS IN LOCATION STARTING FROM °'DISK'
;*THE POSITION OF
;*THIS MOVE

THE

ERROR CAN BE

CHANGED BY

CHANGING

;*THIS CHANGES THE LAST BIT OF THE ECC
055730

062372
042376
042400
042404
042412

013746
005116
042716
042737
052637

077777

0462416

012737

010026

100000

055730

042572

Mov

SMWECC2,-(SP)

B1S

(SP)+ ,a#WECC2

COM
BIC
BIC

Mov

;GET LAST

ECC

(SP)
: INVERT ALL BITS OF WEC(?2
#~C100000,(SP)
;KEEP BIT 16
#100000,9#WECC2 ;CLEAR BIT 16 IN ECC

#6118, ,308%

;THIS WILL SET BIT 16 IF

;OR WILL SET NOTHING

IT WAS O

1T WAS A1

: INSERT POSITION REG.

;*THESE ARE REGULAR SETUPS
042424
0462430
042436
062444
042450
0462456
042462

046116
177374
016264
000000
000000
152300
010000

152312
152306

000001
152276

JSR
MOV

MOv
Move
mMove
MoV
Mov

PC,a#CLDISK
;SETUP GENERAL REGISTERS
#-256.-4,,8RHWC ;256. DATA & HEADER WORDS
#REINTO,dRHBA
;STARTING ADDRESS OF READ BUFFER
",
=(SP)
;IN LOWER BYTE GET SECTOR
",
1(SP)
:GET TRACK IN HIGHER BYTE
(SP)+,
@RHDST
;TRACK/SECTOR IN RHDST
#FMT122 ,aRHOF ;16 BITS PER WORD

042470

005077

152274

CLR

SRHCA

;ECC CORRECTION NOT INMIBIT
;BECAUSE ECC IS NOT GOING
.10 BE CHECKED
:CYLINDER 0O

042474
042500

004737

046160
005123

JSR

PC.,a#CHECKT

:CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T

042504

000000

HALT

042506
062512
042516

013711
005037
004737

MOV
CLR
JSR

osr o

—b

104401

RO
N

7151
7152
7153
7154
7155
7156
7157
7158
7159
7160
7161
7162
7163
7164
7165
7166
7167
7168
7169
7170
nn
7172
7173
7174
7175
7176
2177
7178
7179
7180
7181
7182
7183
7184
7185

613

30A(1052)
24-MAY=-79
15:07
PAGE
READ ECC ENABLED 38
165

WCRC

7144
7165
7146
7147
7148
7149
7150

N
— —e

7143

000000
000000
000000
000400
053020
047332

[pS RV AV )

7141
7142

042326
042334
062342
062350
042356
042362
042366
062370

OO0

7138
7139
7140

MACYT1

TYPE

,CPHALT

;CANNOT

CONTINUE

TESTING IF

ANY OF

;STOP THE TEST

97REFOR,aR1
afERFLGS
PC,a#COMND

:READ HEADER AND DATA:=7?2
;CLEAR ERROR FLAG
;READ HEADER AND DATA

:1F THERE ARE READ ERRORS THEN
;ECC WILL NOT BE C(HECKED

;*1F THE PROGRAM (COMES BACK HERE WITHOUT ERROR PRINTOUTS
;*FROM THE ''COMMD'' ROUTINE THAT MEANS SECTOR GAP,
;*FIRST

THE

:ABOVE BITS DON'T = 1 OR OTHERS ARE STu(k @'

SYNC, HEADER, HEADER (RC, HEADER GAP AND

CIRJHDO,RPO&/S/6 DSKLS CTRLR?
CIRJHD P12
01-MAR-79 09:10

MACY1Y

H 13
30A(1052)
24-MAY-79
15:07
PAGE 165
READ
ECC
ENABLED
38
165

SEQ 0163

7194
7195

:*SYNC BYTE HAVE GONE BY AND SYYCS WERE CORRECTLY

7198
7199
7200
7201
7202
7203
7204
7205
7206
7207
7208
7209
7210
7211
7212
7213
7214
7215
7216
7217
7218
7219

;' 'WRFROM'" IS FILLED WITH EXPECTED DATA AND

;*DETECTED
;*HEADER AND DATA ARE TO BE C(HECKRED.
;*IN CHECKING READ DATA THE WRITE FROM BUFFER

7196
7197

. *COMPARISONS ARE MADE
042522
042526
042530
042534
042542
042546

005737
001074
004737
022737
001401
104032

181
BNE

015124
045616
100000

JSR
CMP
BtaQ
ERROR

015034

SNERFLGS
15166

PC,3#PUTREG
#DCK,a¥ER]
6%
32

050620
174000
015064

6%:

Mov

a#GECCY,-(SP)

042566
042572

0064037
010026

051242

7%:
8s:

JSR
4118,

RO,a#ECORR

7228
72264
7225
7226
7227
7228
7229
7230
7231
7232
7235
7234

042574
062600
042604
042606
042612
042616
042622
042630
042632
042636
062642
042646

0064737
104401
000000
012700
012720
112746
112766
012620
012720
012720
012701
012702

046350
005123

JSR
TYPE

PC,a#CHECKE
,CPHALT

7236
7237
7238

062656
042656

005301
001375

7239
7240
7241
7262
7243

7244
7245

7246
7247

7248

7249

;SAVE REGISTERS
;ONLY DATA CHECK ERROR SHOULD BE SET
;BRANCH IF YES
:gERSII ECC REGISTER SHOULD BE NON
;IN THE PATERN REGISTER

013746
042716
022637
001401
104032

7235

THERE

;ONLY 11 OF THE 32 BITS CAN BE SEEN
042546
042552
042556
042562
042564

7220
7221
7222

;ANY ERRORS ALREADY
;BRANCH IF YES

042652

010220

015220
010000

000000
000000

000000
000000
000400
052525

000001

3%:

BIC
(MpP
BtQ
ERROR

HALT
MOV
MOV
movs
MOVB
Mov
MoV
Mov
Mov
Mov
MoV
DEC

BNE

#174000,(SP)
(SP)+ ,QWEC2
7%
32

#WRFROM,RO
#O'FMT22,(RO)+
#0,-(SP)
#0,1(SP)
(SP)+,(RO)+
#0,(RO)¢
#0,(RO) ¢
#256. ,R1
#52525,R2
RZ,(RO)¢
R1

;0CX SHOULD BE SET IN RHERI
;GET PATTERN REGISTER

;KEEP ONLY 11 BITS
;COMPARE PATTERN REGISTER
+BRANCH [F GOOD
;11 BITS OF THE 32 BIT ECC REGISTER INCORRECT
;60 TO ECC CORRECTION PROCESS
;EXPECTED POSITION REG. WHEN CORRECTION
;1S COMPLETE

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

; CANNOT CONTINUE IF THEY DON'T
;STOP THE TEST AND RESTART PROGRAM
:GETTING READY TO FILL EXPECTED DATA
;CYLINDER O
:IN LOWER BYTE GET SECTOR
:GET TRACK IN HIGHER BYTE
:GET TRACK/SECTOR IN BUFFER
;KEY1 IN BUFFER
;KEY2 IN BUFFER
:DATA WORD COUNTER
;DATA
:DATA INTO BUFFER
: COUNT

:BRANCH IF 256 NOT DONE

;*ONLY GOOD DATA HAS BEEN PUT IN 'WRFROM'
;*NOW THE

INSERTED ERROR wWiLL BE PUT

;*BUT INSERTED ERROR IS¢ IN ECC SO DATA IS NOT WRONG

042660
042664

004737
005037

045616
015124

JSR
CLR

PC,aNPUTREG
SFERFLGS

:SAVE REGISTERS
.CLEAR ERROR

;*NOW READ DATA BUFFER WwiLL BE

FLAG

(HE(KED

CIRJHDO,RPOL/S5/6 DSKLS CTRLR2
CIRJHD.P12
01-MAR-79 09:10

7250
7251
7252
7253
7254
7255
7256
7257
7258
7259
7260
7261
7262
7263
7264
7265

MACY11

113

30A(1052)
264-MAY-79
15:07
PAGE
READ ECC ENAB'FD 3B
165

062670
042674
042676
042700
042702
042704

004037
015220
016264
000404
042710
042714

047020

042706

042720

042710
062712
042714

104004

000207

104005

5%:

042716

000207

JSR

WREROM
REINTO

RG,34COME
AR

44256.
3
5%

ERROR
RTS

SEQ 0164

s CHECK

;6000 BUFFER
;TEST BUFFER

:NUMBER OF WORDS CHECKED
;RETURN POINT FOR ERROR MHEADER

:RETURN POINT FOR ERROR DATA
;RETURN FOR GOOD

15166

ERROR
RYS

166

&
Fe

COMPARISON

;READ NEXT ERROR

;RETURN TO ''COMPAR'’
;WORD NOS 1 TO & ARE
;HEADER WORDS

;5 10 260 ARE DATA WORDS

;RETURN TO ‘'COMPAR'’

ale

CIRJHDO,RPOG/S/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD P12

7266
7267
7268
7269
7270
7271
7272
7273
7274
7275
7276
7277
7278
7279
7280
7281
7282
7283
7284
7285
7286
7287
7288
7289
7290
7291
7292
7293
7294
7295
7296
7297
7298
7299
7300
7301
7302

7303
7304
7305
7306
7307
7308
7309
7310
7311
7312
7313
7314
7315
7316
7317
7318
7319
7320
7321

MACY11

30A(1052)
264-MAY-79
15:07
PAGE
165
READ ECC ENABLED 3B
S

X2 Z

22X

TeTEST 66
i

167

EXEXESARE SR RN

READ ECC ENABLED 3C

SEQ 0165

ARl

THIS IS AN ECC READ DATA TEST

ERROR CORRECTION 1S ENABLED

i
i
i
i

THIS 1S IN WORD NUMBER 19 AND 20
GOOD DATA USED 1S 256 WORDS OF 52525
COMMAND }S GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
TRACK 0, SECTOR 0 KEYS O READ HEADER AND DATA

A NON CORRECTABLE ERROR IS INSERTED IN BIT POSITION 296 THRU 308

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

042720
042722
042726

000004
012706
012737

001000
000066

15T66:

017330

SCOPE

MOV
MOV

#STACK,SP
#TINO,@#TSTNM

;*SETUP FOR WHAT

;RESET STA(K
:THIS SAVES TEST

NUMBER

TO BE READ

:*HEADER CRC 1S RESTORED FROM A SUBROUTINE

052525
000400
054726

042734
042740
042744
042750
042752
042754
042756
042760
042762

18:

MOV
MOV
MOV

#52525,-(SP)
#256. RS
#DISK RO

BNE

MOV
DEC
ST

000017

042766
042770
042772

005020
005305
001375

042774

004737

051414

;DATA T0 BE READ
:COUNTER
:START OF SIMULATED DISK DATA

(SP), (RO) ¢
RS

*MOVE IN DATA ON TO SIMULATED DISK
: COUNT

(SP)+

ZUNDO -(SP)

:BRANCH IF 256 NOT COMPLETE

(MP
MOV

(RO)+, (RO)+
#15.,
RS

:JUMP OVER THE TWO ECC WORDS
i1 DATA GAP

CLR
DEC
BNE

(RO) +
RS
2%

:CLEAR DATA GAP, AND
:TGLERANCE GAP
:BRANCH IF NOT COMPLETE

JSR

PC,aNFILLES

:INSERT THE TWO ECC WORDS ON THE DISK
“IN THE CORRECT PLACE

:14 TOLERANCE

GAP

:*THESE ARE FOR ECC TEST ONLY
043000
043006
043012
043020
043026
043032
043036
043042

177777

005037

050632
050626
050634
050620
050622
050636
050640

015142

MOV

050630
050642

MOV
MOV
(LR
(LR
(LR

#-1,a0TSECC

(LR

arPoOsSITl

CLR

a#1CODE

;THIS 1S AN ECC TEST

:CLEAR ERROR POSITION COUNTER

3#NCODE ,3#NCOUNT ; TEMPORARY N-CODE COUNTER
3/HARDER,@¥HADTMP ~; TEMPORARY HARD ERROR COUNTER
NGECC]
;ECC LOW ORDER TO BE GENERATED
SMGECC2
*ECC HIGH ORDER TO BE GENERATED
:CLEAR DATA ENVELOPE CLOCK COUNT
SMDATENY

:CLEAR LEADING ZEROS CLOCK COUNT

;+THESE ARE TO SETUP FOR DISKLESS USE ONLY

043046

012737

010000

053010

MOV

FEMT22,80CYL

;16 BITS PER WORD

043054

112737

000000

053613

MOVB

#0,3#SECOTR+1

;TRACK 0

SCYLINDER 0, FORMAT 16 BITS

CIZRJHDO,RPOL/576 DSKLS CTRLRZ
CZRJHD. P12
01-MAR-79-09:10

7364
7365
7366
7367
7368
7369
7370
7371
7372
7373
7374
7375
7376
7377

~ b
s

oo
nN

AN (NN
[eleolele]

NMANDANN

MOVB
MoV

#0,3/SECOTR
#0,3/KEY]

;SECTOR 0
:KEY1=0

MOV
CLR
JSR

#256.,8#0AWORD
anx
RS ,3#CRC

;NO. OF DATA WORDS
:THIS 1S A READ COMMAND
;60 7O CALCULATE CRC

;*THIS

Mmov

YL
WCRC

#0,3#KEY2

INSERT

:XKEY2=0

ERROR

;*THIS MOVE

043126

012737

152652

054772

mMov

043134

012737

052532

056774

Mov

043142

012737

010040

043316

Mov

046116
177374
016264
000000
000000
151554

043150
043154
043162
043170
043174
043202
043206

010000

043230
043232
043236
043242

000000
013711
005037
004737

104401

151550
046160
005123
W~
oro

005077
004737

O =

043214
043220
043224

[pE
RV LV ]

7363

SEQ 0166

;*THE DISK DATA IS IN LOCATION STARTING FROM 'D]SK’
:*THE POSITION Of THE ERROR CAN BE CHANGED BY C(HANGING

QOO

7331
7332
7333
7334
7335
7336
7337
7338
7339
7340
7341
7342
7343
7344
7345
7346
7347
7348
7349
7350
7351
7352
7353
7354
7355
7356
7357
7358
7359
7360
7361
7362

000000
000000
000000
000400
053020
047332

043062
043070
043076
043104
043112
043116
043122
043124

(W, PSP

7322
7323
7324
7325
7326
7327
7328
7329
7330

MACY11
OOoOO

CIRINDO,RPO4/5/6 DSKLS CTRLR%
01-MAR-79 09:1

CIRJHD. P12

)

K13
30A(1052)
24-MAY-79
15:07
PAGE 168
READ ECC ENABLED 3¢
156

151566
151562

000001
151552

#152652,8#D15K+44;
INSERT ERROR IN POSITION 296 THRU 304
:IN WORD NUMBER 19
#52532,3#D1SK+46;
INSERT ERROR IN POSITION 305 THRU 308
; IN WORD NUMBER 20
#4128.,308%

;*THESE

ARE

JSR

PC,a#CLDISK
#-256.-4. ,0RHWC
#REINTO,@RHBA
#0,-(SP)
#0,1(SP)
(SP)+,
@RHDST

MoV
Mov
MOVB
MOvB
MOv
Mov

CLR
JSR

TYPE

HALT
MOov
CLR

JSR

REGULAR

s INSERT

#FEMT22 ,aRHOF

POSITION REG.

SETUPS

;SETUP GENERAL REGISTERS
;256. DATA & HEADER WORDS
;STARTING ADDRESS OF READ BUFFER
:IN LOWER BYTE GET SECTOR
;GET TRACK IN HIGHER BYTE
TRACK/SECTOR IN RHDST

LCPHALT

;16 BITS PER WORD
;ECC CORRECTION NOT INHIBIT
;BECAUSE ECC 1S NOT GOING
;10 BE CHECKED
;CYLINDER O
;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T
:CANNOT CONTINUE TESTING IF ANY OF THE

a#REFOR,aR]

;STOP THE TEST
:READ HEADER AND DATA=7?2

aRHCA
PC,aNCHECKT

SFERFLGS
PC,a#COMHD

;ABOVE BITS DON'T = 1 OR OTHERS ARE STU(K @ 1
:CLEAR ERROR FLAG
;READ HEADER AND DATA

;IF THERE ARE READ ERRORS THEN
;ECC WILL NOT BE CHECKED

;+1F THE PROGRAM COMES BACK HERE WITHOUI ERROR PRINTOUTS
;*FROM THE "'COMHD'' ROUTINE THAT MEANS SECTOR GAP,

SYNC, HEADER, HEADER CRC, HEADER GAP AND
;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
c*DETECTED
; *HEADER AND DATA ARE 10 BE CHECKED.

s tFIRST

;¢IN CHECKING READ DATA THE WRITE FROM BUFFER
;¢ 'WRFROM 1S FILLED WITH EXPECTED DATA AND
; *COMPARISONS ARE MADE

CZRJHDO,RPO&/576 DSKLS (1RL?2
CIRJHD.P12
01-MAR-79 09:10
7378
7379

7380
7381
7382
7383

7384
7385
7386
7387

043246
043252

063254
043260
043266
043270

005737
001117
004737
022737
001401
104032

MACY11

30A(1052)
166

015124

045616
100000

013746
042716
022637
001401
104032

050620
174000
015064

6%:

043312
043316

004037
000000

051242

7%:
8$:

063320
0643324

004737
022737

045616
100100

7403
764064
7405
7406

043332
043336

001401
104036

76409
76410

043336
043336

004737

046350

76413

063350

012700

015220

7393
7394
7395
7396

7397
7398
7399
76400
;“8}
'A

7407
74608

76411
7612

7614
7615
7616
7617
76418
7419
7620
7621
7622
7623
7624

7425
76426
76427
76428

043342
043346

043356
043360
043364
063372
0433764
063400
043406
043610
043414
043416
043420

104401
000000

012720
112746
112766
012620
012720
012720
012701
012702
010220
005301
001375

01503¢

:
9%

SFERFLGS

JSR

PC,a8/PUTREG

MOv

000001

000000
000000
000400
052525

3¢%:

169

SEQ 0167

;ANY ERRORS ALREADY

THERE

:BRANCH 1F YES
s SAVE REGISTERS
;ONLY DATA CHECK ERROR SHOULD BE SET
;BRANCH IF YES
:%Eagll ECC REGISTER SHOULD BE NON

;ONLY 11 OF THE 32 BITS CAN BE SEEN
;IN THE PATERN REGISTER
;DCX SHCOULD BE SET IN RHERI
;GET PATTERN REGISTER
;KEEP ONLY

BITS

; COMPARE PATTERN REGISTER

;BRANCH IF GOOD
;11 BITS OF THE 32 BIT ECC REGISTER INCORRECT

;G0 TO ECC CORRECTION PROCESS
;EXPECTED POSITION REG. WHEN CORRECTION

;1S COMPLETE

JSR
Cmp

PC,a#PUTREG
#DCK'ECH,INERT

;SAVE REGISTERS

BEQ
ERROR

9%
36

;BRANCH IF GOOD

JSR

PC,a#CHECKE

Mov
MOV
MOVB
MOvB
MOv
Mov
MOV
MOv
Mov
MOV
DEC
BNE

#WRFROM,RO
#0'FMT22,(RO)+
#0,-(SP)
#0,1(SP)
(SP)+,(RO)+
#0,(RO)+
#),(RO)¢
#256. ,R1
#52525,R2
R2,(RO)+
R1
3%

. CPHALT

:WITH ERRORS INSERTED [N BIT POSITION 21
;THRU 32 HARD ERROR BIT

SHOULD SET

;WITH ERROR INSERTED IN BIT POSITION 21 THRU

;32 HCE SHOULD SET

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

;sCANNOT CONTINUE I1F THEY DON'T
:STOP THE TEST AND RESTART PROGRAM
sGETTING READY TO FJLL EXPECTED DATA
sCYLINDER 0O
;IN LOWER BYTE GET SECTOR
sGET TRACK IN HIGHER BYTE
;GET TRACK/SECTOR IN BUFFER
sKEY1 IN BUFFER
sKEY2 IN BUFFER
;DATA WORD COUNTER
:DATA
:DATA INTO BUFFER
; COUNTY
:BRANCH IF 256 NOT DONE

;*ONLY GOOD DATA HAS BEEN PUT IN 'WRFROM'
;*NOW THE INSERTED ERROR WILL BE PUT IN
012737

152652

015274

MOV

;“%}

043430

012737

052532

015276

MOv

7433

a#GECC],-(SP)

RO,a#ECORR

063422

FOCK,aFER]

6%
32

JSR

.WORD

PAGE

15167

#174000,(SP)
(SP)+ ,QmEC2
7%
32

74§3
74

L 13

BIC
CmMP
gea
ERROR

TYPE
HALT

005123

010000
000000
000000

187

9,14
BEQ
ERROR

015034

15:07

READ ECC ENABLED 3C

BNE

043272
063276
043302
063306
0643310

7388
7389
7390
7391
7392

24-MAY-79

INSERT ERROR IN POSITION 296 THRU 304
#152652,8#WRFROM+54;
: IN WORD NUMBER 19 [N DATA

#52532,3#WRFROM+
56 INSERT ERROR IN POSITION 305 THRU 308
: IN WORD NUMBER 20 IN DATA

CIRJHDO,RPO&L/S5/6 DSKLS CTRLR 2
CIRJHD.P12
01-MAR-79 09:10
7634
74635
7636
7437
7638
7439
76440
7641
7642
74643
7644
7645
7646
7647
7448
76449
7450
74651
7652
74653
7654
7455

043436
043442

004737
005037

MACY11

30A(1052)
166

045616
015124

24-MAY=-79

ni3
15:07
PAGE 170

SEQ 0168

READ ECC ENABLED 3C

JSR
CLR

PC,aNPUTREG
SFERFLGS

:SAVE REGISTERS
;CLEAR ERROR FLAG

;*NOW READ DATA BUFFER WILL BE CHECKED
043446
043452
043454
043456
043460
043462

004037
015220
016264
000404
043466
043472

043464

043476

043466
043470
043472

104004
000207
104005

043474

000207

047020

JSR

WRFROM
REINTO
£+256.
3

RO,a#COMPAR

5%:

ERROR

RTS
ERROR
RT1S

:GOOD BUFFER
;TEST BUFFER
;NUMBER OF WORDS CHECKED
sRETURN POINT FOR ERROR HEADER

sRETURN POJNT FOR ERROR DATA

15167
4%:

s CHECK

;RETURN FOR GOOD COMPARISON
4

PC
5
PC

;READ NEXT

ERROR

:RETURN T0 '"'COMPAR''
;WORD NOS 1 T0 4 ARE
;HEADER WORDS

;5 10 260 ARE DATA WORDS
:RETURN TO '"‘COMPAR"

CIRIJHDO,RPO4L/S/6 DSKLS CTRLR?
CIRJHD.P12
01-MAR=-79 09:10

MACY11

7656
7657
7458
7659
7460
7461
7662
7463
7664
7665
7666
7667

7468
7469
7470
7671
76472
7473
7674
746475
76476

7677
7478
7679
7480
7481
7482

7483

7484
7485
7486
7487
7488
7489
76490
7691
7492
7493
76494
7495
7496
7497
7498
7499
7500
7501
7502
7503
7504

7505
7506
7507

7508
7509
7510

7511

30A(1052)
166

24-MAY-79

READ ECC ENABLED 3C

;eTEST 67
ot
:*
.t

043476
043560

000004
012706

001000

043504

012737

000067

171

SEQ 0169

YRR

READ ECC ENABLED 3D

64096 1S THE LAST DATA BIT
GOOD DATA USED IS 256 WORDS OF 52525
COMMAND 1S GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
TRACK O, SECTOR O KEYS O READ HEADER AND DATA
A2 AR

15167:
017330

N 13
PAGE

THIS IS AN ECC READ DATA TEST
ERROR CORRECTION 1S ENABLED
A NON CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32 AND 4096

.t
ot
.t
o
MR

15:07

dRA R0
RRRARE ]

sCopPe
MOv

#STACK,SP

;RESET

mov

#TINO,S#TSTNM

;THIS

STACK
SAVES

TEST

NUMBER

;*SETUP FOR WHAT IS TO BE READ
;HEADER CRC IS RESTORED FROM A SUBROUTINE
043512
043516
043522

043526
043530
043532
043534
043536

052525
000400
054726

043540

022020
012705

043544
043546
043550

0059020
005305
001375

043552

004737

1%:

Mov
Mov
Mov
Mov

#52525,-(SP)
#256. RS
#D1SK,RO
(SP), (RO)+

;DATA TO BE READ
: COUNTER
;START OF SIMULATED DISK DATA
;MOVE IN DATA ON TO SIMULATED DISK

157

(SP)+

;UNDO -(SP)

DEC
BNE

cmMp

000017
2%:

051414

RS
1%

(RO)+,(RO)+

MOV

#15.,R5

(LR
DEC
BNE

(RO)+
RS
2%

JSR

PC,afFILLEC

; COUNT
;BRANCH IF

256 NOT

COMPLETE

:JUMP OVER THE TWO ECC WORDS

;1 DATA GAP
;14 TOLERANCE GAP
;CLEAR DATA GAP, AND
; TOLERANCE GAP

+BRANCH IF
;INSERT

THE

NOT

COMPLETE

TwO ECC

WORDS ON THE

:IN THE CORRECT PLACE

;*THESE ARE FOR ECC TEST ONLY
043556
043564
043570
043576
043604
043610
043614
043620

043624

012737
005037
013737
013737
005037
005037
005037
005037

012737

177777

050632
050626
050634
050620
050622
050636
050640

010000

0157142

Mov

050630
050642

MOV
MOV

:THIS

IS AN ECC

TEST

CLR

afPOSI1T]

CLR

a¥GECC]

;ECC LOW ORDER TO Bt GENERATED

a#DATENV
a#ZCODE

;CLEAR DATA ENVELOPE CLOCK COUNT
;CLEAR LEADING ZEROS CLOCK COUNT

CLR

(LR
CLR

053010

#-1,801SECC

;CLEAR ERROR POSITION COUNTER

a#NCODE ,@#NCOUNT ; TEMPORARY N-CODE COUNTER
d#HARDER ,@#HADTMP
; TEMPORARY HARD ERROR COUNTER

a#GECC2

;*THESE

ARE

MOv

NEMT22 ,30(0YL

;ECC HIGH ORDER TO BE GENERATED

TO SETUP FOR DISKLESS USE

ONLY

;16 BITS PER WORD
;CYLINDER O, FORMAT 16 BITS

DISK

CIRJHDO,RPO4/5/6 DSKLS CTRLRZ

CZRJHD.P12

01-MAR-79 09:10

7512
7513
7514
7515

043632
043640
043646
043654

112737
112737
012737
012737

000000
000000
000000
000000

7517
7518
7519
7520

043670
043674
043700
043702

005037
004537
053010
054710

053020
047332

7516

7521
7522

043662

012737

000400

MACY11 30A(1052)

167

053013
053012
053014
053016

053070

7523

043704
063712
043720

012737
012737
012737

152525
152525
0100640

054730
055724
044074

;ggz

043726
043732
043740
043746
043752
043760
043764

004737
012777
012777
112746
112766
012677
012777

046116
177374
0162664
000000
000000
150776
010000

043772

005077

7547
7548
7549
;gg?

043776
044002

004737
104401

044006

000000

7552

044010

013711

015176

7556
7555

044020

004737

052650

7556

7557
7558

7559
7560
7561
7562

7563
7564
7565
7566
7567

PAGE 172

MOvVB
MOov8
MOov
MoV

#0,3#SECOTR+1
#0,8#SECOTR
#0,90KEY]
#0,3/KEY?

s TRACK 0
;SECTOR 0
;KEY1=0
;KEY2=0

CLR
JSR
cyL
WCR(

arx
RS ,9#CRC

;THIS IS A READ COMMAND
;60 TO CALCULATE CRC

MOV

#286. ,8#DAWORD

SEQ 0170

:NO. OF DATA WORDS

MOov
MOV
Mov

#152525,8#D15K+2 ;FORCE ERROR ON BIT NUMBER 32
#152525,8#015K+<255.%2>;FORCE ERROR IN BIT 4096
76128, ,308%
s INSERT POSITION REG.

;*THESE ARE REGULAR SETUPS

7535
7536
7537
7538
7539
75640
7541
79542
7543
7544
;245

7553

READ ECC ENABLED 3D

B 14

;*THE DISK DATA 1S IN LOCATION STARTING FROM ‘DISK’
;*THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING
;*THIS MOVE

7532

15:07

;*THIS 1S TO INSERT ERROR

7526
7525
;g%?

7528
7529
;23?

24-MAY-79

044014

005037

JSR
MOov
MOV
MOvB
Move
MOv
Mov

PC,a#CLDISK
#-256.-4. ,dRHWC
#REINTO,aRHBA
#0,-(SP)
#0,1(SP)
(SP)+, @RHDST
NEMT22,3RHOF

150772

CLR

aRHCA

046160
005123

JSR
TYPE

PC.a#CHECKT
.CPHALT

;CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T
:CANNOT CONTINUE TESTING IF ANY OF THE
;ABOVE BITS DON'T = 1 OR OTHERS ARE STU(K @ 1
;STOP THE TEST

MOV

S#REFOR,aR1

;READ HEADER AND DATA=7?2

JSR

PC,a#(0OMHD

;READ HEADER AND DATA
;1F THERE ARE READ ERRORS THEN

151010
151004
000001
150774

HALT
015126

CLR

QNERFLGS

;SETUP GENERAL REGISTERS
;256. DATA & HEADER WORDS
;STARTING ADDRESS OF READ BUFFER
;IN LOWER BYTE GET SECTOR
;GET TRACK IN HIGHER BYTE
;TRACK/SECTOR IN RHDST
;16 BITS PER WORD
;ECC CORRECTION NOT INHIBIT
;BECAUSE ECC 1S NOT GOING
;10 BE CHECKED
;CYLINDER O

;CLEAR ERROR FLAG

;ECC WILL NOT BE CHECKED

;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;*FROM THE ''COMHD'' ROUTINE THAT MEANS SECTOR GAP,
;¢FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND
;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
;*DETECTED
;*HEADER AND DATA ARE TO BE CHECKED.
;*IN CHECKING READ DATA THE WRITE FROM BUFFER
;¢ 'WRFROM'' IS FILLED WITH EXPECTED DATA AND
; *COMPAR]ISONS ARE MADE

SE—

7623

044076
0464102

004737
022737

045616
100100

064110
0646112

001401

0646114
044114

046172
066174
064176

015034

9%:

766
620

d e

046350
005123

b cd

044166

7%:
8%:

104036

015220
010000
000000
000000
000000
000000
000400
052525

MOv

81(C
(mp
BEQ
ERROR

00K, QERT
6%
by

a#GECCY,-(SP)
#174000, (SP)
(SP)+,ame(?
’$

;ANY ERRORS ALREADY

THERE

BRANCH [F YES
:
:SAVE REGISTERS
;ONLY DATA (HECK ERROR SHOULD BE SET
;BRANCH IF YES
;%Eflng ECC REGISTLR SHOULD BE NON

;ONLY 11 OF THE 32 BITS CAN 8E SEEN
;IN THE PATERN REGISTER
;DCK SHOULD BE SET IN RHERI

;GET PATTERN REGISTER
;KEEP ONLY 11 BITS
; COMPARE PATTERN REGISTER
:BRANCH 1Ff GOOD
;11 BITS OF THE 32 BIT ECC REGISTER INCORRECT

RO,a#ECORR

;60 TO ECC CORRECTION PROCESS
;EXPECTED POSITION REG. WHEN CORRECTION
;1S COMPLETE

JSR
cmp

PC,a#PUTREG
#DCK
. ECH,INERT

:SAVE REGISTERS

BEG
ERROR

JSR

PC,a#CHECKE

Mov

3%:

PC,afPUTREG

SEQ 017N

JSR
.WORD

TYPE
HALT
MOV
MoV
MOvB
Movs
MOV
Mov

000001

¢ 14
PAGE 173

SFERFLGS
15170

MOV
MOv
Mov

DEC
BNE

;:AND 4096 HARD ERROR BIT
;BRANCH IF GOOD

;32 HCE SHOULD SET

L CPHALT

#WRFROM,RO
#O'FMT22,(RO)+
#0,-(SP)

#0,1(5P)

(SP)+,(RO)+
#0,(RO)+
#0,(RO)+
#256. ,R1
#52525,R2
R2,(RO)+
R1

b33

:WITH ERRORS INSERTED IN BIT POSITION 32
:WITH ERROR INSERTED

SHOULD

SET

IN BIT POSITION 21

:CHECK THAT DVA,RDY,DPR,DRY =1
;CANNOT CONTINUE 1F THEY DON'T
;STOP THE TEST AND RESTART PROGRAM
;GETTING READY TO FILL EXPECTED DATA

sCYLINDER O
:IN LOWER BYTE GET SECTOR
;GET TRACK IN HIGHER BYTE
:GET TRACK/SECTOR IN BUFFER
;KEYY

IN BUFFER

;KEYZ2 IN BUFFER
;DATA WORD COUNTER
;DATA

:DATA INTO BUFFER
; COUNT
;BRANCH 1F 256 NOT DONE

;*ONLY GOOD DATA HAS BEEN PUT IN ‘WRFROM’

044200
044206

~N~N

;*NOW THE
VLV

7614
7618
7616
7617
7618
7619
7620
7621
7622

051242

7612
7613

004037
000000

15:07

READ ECC ENABLED 3D

BEQ
ERROR

6%:

174000
015064

044070
044074

044120
066124
044126
064132
064136
066142
044150
064152
044156
046162

015034

050620

26-MAY-79

1571
BNE
JSR
(mp

104032

7605
7606
7607
7608
7609
7610
7611

013746
042716
022637
001401

—

7603
7604

044054
044060
044064
044066

045616
100000

(a1,
¥

7581
7582
7583
7584
7585
7586
7587
7588
7589
7590
7591
7592
7593
7594
7595
7596
7597
7598
7599
7600
7601
7602

044050

3?2;1052)

015124

044024
044030
044032
044036
0464044
044046

7568
7569
7570
7571
7572
7573
7574
7575
7576
7577
7578
7579
7580

MACY1

MOV
mov

INSERTED ERROR WlLL BE PUT

#152525,.30WRFROM+<5¢2>
INSERTED ERROR IN BIT 32
#152525,30WRFROM+
<259, 92> INSERT ERROR IN BIT 4096

THRU

[ea
X
n)

CIRJHDO,RPO4/S/6 DSKLS CTIRLR?
CZRJHD.P12
01-MAR-79 09:10

MACY11

30A(1052)

T67

7624
7625
7626
7627
7628
7629
7630
7631
7632
7633
7634

046224
044230
044232
044234
044236
044240

004037
015220
016264
000494
044244
044250

7636

044242

044256

7638

044244
044246
044250

104004

000207

104005

5¢:

044252

000207

7635

7637

7639
7640
7641
7642
7643

044214
044220

005037
004737

01512¢4
045616

24-MAY-79

15:07

READ ECC ENABLED 3D
CLR
JSR

SFERFLGS

PC,a#PUTREG

D 14
PAGE

174

SEQ 0172

;CLEAR ERROR FLAG
;SAVE

REGISTERS

:*NOW READ DATA BUFFER WILL BE CHECKED
047020

4+4256.
4%
5%

s CHECK
. 600D BUFFER (CHANGED)
;TEST BUFFER
;NUMBER OF WORDS CHECKED
;RETURN POINT FOR ERROR HEADER
RETURN POINT FOR ERROR DATA

18170

RETURN FOR GOOD COMPARISON

ERROR

;READ NEXT

ERROR

;WORD NOS 1

JSR
WREROM
REINTO

RIS

RTS

RO,a¥COMPAR

ERROR

;RETURN TO ''COMPAR'’

TO & ARE

;HEADER WORDS

10 260 ARE DATA WORDS

;RETURN TO ''COMPAR"’

CIRJIHDO,RPOL/S5/6 DSKLS CTRLRZ
CIRJHD. P12
01-MAR-79 09:10

MACYT

7661
7662

7663
7664
7665
7666
7667
7668
7669

7670
7671

7672
7673

7674
7675
7676
7677
7678
7679
7680
7681
7682

CURSORY

24-MAY-79

INTERRUPT

SBTTL

7644
7645
7646
7647
7648
7649
7650
7651
7652
7653
7654

7655
7656
7657
7658
;628

30A(1052)

X2 2

SOTEST 70

012737

000070

0464270
044276

004737
013700

046116
014764

0464264

044300
0644304
044310
044316
046322
044330
044336

012706

012720
012710
012737
012711
013737
005337
001375

044336
044342

004737
104021

044344

000410

044346
044350
044354
044362
0443064

022626
004737
022737
001401
104021

001000

044346
000340
000200
000300
046474
001200

SCOPE

JSR

SRR

AZZ AR

PROGRAM INTERRUPT

RASRS

SRR

1%:

RPTRP1:

ald

XXX

XZAZEER

IS SET

TO 4

RS2SRRSR

RRRRRRSRRRRRRRRRRN

#TINO,@#TSTNM
#STACK,SP

;THIS SAVES TEST NUMBER
;RESET STACK

PC,a#CLD]ISK

:CLEAR DISK

#RPTRP1,(RO)+
#340, (RO)

;SET INTERRUPT VECTOR
;SET SERVICE ROUTINE PRIORITY

MoV

a#RPVEC,RO

Mov
MOv
Mov
DEC

#200,PS
;SET PROCESSOR PRIORITY
#RDY!IE,aR!
;ROY, IE IN RHSC1 SHOULD CAUSE
S¥TIMCNY ,3#STMP1; COUNTER
afSTMPY
;WAIT FOR INTERRUPT

Mov
MOV

177776

015032

THIS SHOULD INTERRUPT THROUGH LOCATION 256

Mov
Mov

045616

045616
004200

CURSORY INTERRUPT LOGIC TESTS

THE PROCESSOR PRIORITY

017330

001200

SEQ 0173

1$170:

044256

175

TESTS

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

SR XL EE X222

000004

LOGIC

E 14
PAGE

ot
ot

044254

15:07

BNE

;GET VECTOR ADDRESS

;BRANCH IF NOT ZERO

JSR
ERROR

PC,a#PUTREG
21

:OCCUR
¢SAVE REGISTERS
s INTERRUPT DID NOT OCCUR

1S1T71

(MP

(SP)+,(SP)+

;RESTORE STA(K
:SAVE REGISTERS
;'IE' SHOULD BE LOW
:
BRANCH IF GOOD
;INTERRUPT OCCURRED BUT
;18" FAILED TO RESET

JSR
(MP
BEQ
ERROR

P(,a#PUTREG
#DVA'RDY,3#CS1
ST
2

INTERRUPI

;BEFORE THIS IS ZERO INTERRUPT SHOULD

BRANCH TO NEXT TEST

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
CIRJHD.P1?
01-MAR-79 09:10

7683
7684
7685
T6R6
768
7688
7689
7690
7691
7692
7693
7694
7695
7696
7697
7698
7699
7700
7701
7702
7703
7704
7705
7706
7707
7708
7709
7710
77N
7712

7713
7714
7715
7716
7717

MACY1

3$A(1052)
70

26-MAY=-79

PROGRAM

BE XXX 222X

TeTEST 71

15:07

INTERRUPT

PAGE

EEANZARS AN

176

SEQ 0174

RN SRRl
Rl

INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME

PROCESSOR PRIORITY
R

044366

000004

044370
046376

012737
012706

18171
000071
001000

XX AR R

017330

014744
044452
000340
000240
000300
066474
001200

044450

000404

064452
0464454
044460

022626
004737
104021

045616

JSR

Mov
Mov
MOv
MOV
Mov
MoV
DEC

177776

001200

RPTRP?2:

XA Z

XA AR E XA

R RAREE A

RARER

RRRRRANER

SCOPE
Mov
mov

046116

044402
044406
046612
044416
044622
0464430
046434
044642
044646

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

FTINO,Q#TSTNM
#STACK,SP

;THIS SAVES TEST
;RESET STACK

PC.aNCLDISK

;CLEAR DISK

FRPTRP2,(RO) ¢
#340, (RO)
#240,PS
#RDY'IE ,aR)

;SET INTERRUPT VECTOR
;SET SERVICE ROUTINE PRIORITY

S#RPVEC,RO

NUMBER

sGET VECTOR ADDRESS
;SET

PROCESSOR PRIORITY

BNE

;ROY, IE IN RHSC1 SHOULD CAUSE
SYTIMONY,Q#STMP1; COUNTER
VS TMP
:WAIT FOR INTERRUPT
13
:BRANCH IF NOT ZERO

18172

(MP
JSR
ERROR

(SP)+,(SP)+
PC,afPUTREG

[NTERRUPT

:BEFORE THIS IS ZERO INTERRUPT SHOULD

;O0CCUR
:

INTERRUPT

;RESTORE STACK
:SAVE REGISTERS

SO BRAN(CH

;INTERRUPT OCCURRED WITH
;PROCESSOR STATUS SAME
JAS DISK

(e Xan]

CIRJIHDO,RPO4L/S/6 DSKLS CTRLR?
CIRJHD P12
01-MAR-79 09:10

CIRJIHDO,RPO&/S5/6 DSKLS CTRLR?
CIRJND.PY?
01-MAR-79 09:10

7756
7757
7758
7759
7760
7761
7762
7763
7764
7765

IS THE

DRIVE

END OF

TEST

FOR ONE

DRIVE

THERE ARE MORE DRIVES THEN THE PROGRAM
S FOR NEXT DRIVE TEST
END PASS IS REACHED ONLY AFTER ALL DRIVES ARE
JUMPS 10 TEST

044462
044664
044472

000004
012737

044476
044504
044510
0464564
044564

044570

00000 1
046116

001212

012737
104401
000425

00000 0
04651 2

1727776

013746

01511 2

0064737

104405

i§172:

SCOPE
MOV

JSR
MoV
TYPE

::65%:
:
649

BR
LASCIZ

#0,PS

;REINSTATE PS 10 0
s TYPE ASCIZ STRING
..GET OVER THE ASCIZ

659
649

<15><12>/TOTAL

UNIT

NO./

;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

SFSERTTL,=(SP)

;sGET READY TO TYPE NUMBER OF

CLR

aFSFRITL
SFSTSTNM

BEQ

;CLEAR TOTAL NUMBER OF ERRORS
;CLEAR TEST NUMBER
;STARTING FROM 200 ?

;TEST

a#SPASS

; INCREASE PASS COUNT

001112

044630
044636
044640
044646
044646
044652

005237
104401
013746
104405
104401
000137

001100
04501 7
001100

INC
TYFE
MCV

045014
022770

TYPE
JMP

LSENULL
arists

044656
0644662
044664
044670
044674
044676
0464700
044702
044706

005337
001413
013700
012701
022100
001401
000775
011137
000137

015114

DEC
BtQ

@#NOUNITS
$EOP

BR
<ASCIZ
Mov
TYPDS

(LR

157

TYPDS

2%:

PASS

,67%
66%

013746
104405
005037
005037
005737
001413

1%:

THIS

;GET READY TO TYPE UNIT NUMBER

044604
0644604
064€10
044612
046616
044622
064626

01511 2
01507 2

ERRORS ON

8AUNIT,-(SP)

Mov
T1YPDS
TYPE

044600

3%:

ITERAT,ON

;.00 1

104401
000402

001
001
015

COMPLETE

AR ARl
RnAdA

#,STIMES
PC.arCLDISK

044572
044576

::;67%:
65%:

MOV
MOV

(MpP
BEQ
BR

rov

Jmp

AFSELECT

. SENDMG

SNSPASS ,-(SP)

RO
afUNIT
#UNITS ,R1
(R1)+,RO

1%
(R1) _aNUNIT

FTARYD

;TYPE

END

DRIVE

PASS

ERRORS

;CONTINUE TESTING THIS DRIVE ====cccoe--sNO.

UNITS PRESENT

DECREMENTED

;BRANCH IF ALL DRIVES (OMPLETE
sUNIT UNDER TEST
;TABLE

219 THIS UNIT JUST TESTED

;BRANCH IF
;BRANCH IF

YES
NO

sTESYT

DRIVE

sTHIS IS NEXT UNIT
NEXT

)

SEQ 0175

AR RS
RRRSRRRRR Rl R

END OF

THIS

oro

7795

SYTEST 72

N—.

7739
77640
7741
77642
7763
7764
77645
7766
7767
77648
7749
7750
7751
7792
7753
7754

7738

S?A (1052)
24=MAY-79
15:07
PAGE 177
n
INTIRRUPT AT PROCESSOR ANO DISK PRIORITY SAME
;:""""""""""""""""""""".""l"""."""'.

[p
SRV]

7718
7719
7720
7721
7722
7723
7726
7725
7726
7727
7728
7729
7730
73
7732
7733
7736
7735
7736
7737

MACY1

6 14

eve-ceccccccccccce- >

CIRJHDO,RPOL/5/6 DSKLS CTRLRZ2
CIRJHD.PY?
01-MAR-79 09:10

MA(Y1Y

7766
7767
7768
7769
7770
17N
7772
7773
7774
7775

399(1052)

26-MAY-79
15:07
END OF DRIVE
LSBTTL
LSBITL
LSBTTL

LSBTTL

END OF

7776

7777

;*INCREMENT

7779

;*]F

7778

044712
044712

000004

044714
044720
044724
064730
044736
044740
0464742
064744
0644746
044750

7796
7797
7798
7799
7800

044762
0464764
044770
044774
044776

104401
0137646
104405
10440
013700
001405
000005

045002
045006
045006

000240
000240
000240

7801

7802
7803
7804
7805

044752
064756

045000

045010

005037
005037
005237
042737
005327
000001
003022
012737
000001
044740

045010
045012

000137
021032

7810

045026
045032

050040
000043

7811

7812
7813
7814
7815
7816

7817

7818
7819
7820
7821

*eeSUBROUTINES
e

PASS ROUTINE
R

THE PASS NUMBER

THERES A MONITOR GO 10

045014
045017

$EOQP:

001102
001212
001100
100000

001100

045017
001100

377
015

SCOPE

CLR
CLR
INC
BIC
DEC
$EOPCT: .WORD
BGT
MOV
$ENDCT: .WORD
$EOPCT

TYPE
MOV
TYPDS
TYPE
$GETL2: MOV
BEQ
RESET

045014
000042

004710

7806
7807

7808
7809

SEQ 0176

($PASS)
I7

IS A DECIMAL NUMBER)

:*]1F THERE ISN'T JUMP T0 TSTI

7784
7785
7786
7787
7788
7789
7790
7791
7792
7793

7794
7795

PAGE 178

;*TYPE "END PASS #XXXXX'' (WHERE XxXXX

;;g?
7782
7783

H 14

$ENDAD: JSR

$DOAGN:

377
0642412
051501

000
042116

020123

NOP
NOP
NOP

$SRTNAD:

JMP
,WORD

SENULL: .BYTE
SENDMG: .ASCIZ

$TSTNM
$TIMES
$PASS
#100000,8PASS
(PC)+
1
$D0AGN
(PC)+,a(PC)+
1

;. LERQO THE TEST NUMBER
;s JERO THE NUMBER OF ]JTERATIONS
:: INCREMENT THE PASS NUMRER
;:DON'T ALLOW A NEG. NUMBER
;. LO0OP?

LSENDMG
$PASS,-(SP)

;s TYPE "END PASS #''
::SAVE $PASS FOR TYPEOQUT

JOENULL
aNse RO
$DOAGN

PC,(ROD)

a(P(C)+
TSN

DL YES
;;RESTORE (OUNTER

::G0 TYPE-=-DECIMAL ASCI] W!TH S,GN
;:TYPE A NULL CHARACTER
;;GET MONITOR ADDRESS
:;BRANCH IF NO MONITOR
;s CLEAR THE WORLD

;60 TO MONITOR
;s SAVE ROOM
;. FOR
soACT1

; sRETURN

-1,-1,0
;:NULL CHARACTER STRING
<15><12>/END PASS #/

A L

AR RS

;oHERE 1S A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS,
:*ON HITTING AN ERROR [F THE LOOP ON ERROR SWITCH IS SET, Twt
:*PROGRAM GOES BACK = USUALLY BA(K TO THE BEGINNING OF THE TEST,

CIRIHDO,RPOL/S5/6 DSKLS CTRLR?
CIRJHD. P12
01-MAR-79 09:10
7822
7823
7824
7825
7826
7827
7828
7829
7830
7831
7832
7833
7834
7835
7836
7837
7838
7839
7840
7841
7842
7843
7844
784°¢
7846
7847
7848
7849
7850
7851
7852
7853
7854

7855
7856
7857
7858
7859
7860
7861
7862

7863

7864

7865
7866
7867
7868
7869
7870
7871
7872
7873
7874
7875
7876
7877

MACY11

30A(1052)
END OF

24-MAY-79

PASS ROUTINE

15:07

14
PAGE

179

SEaQ 0177

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

17 MUST BE WITHIN THE TEST UNDER CONSIDERATION
;*1.
LOOP ON ERROR SWITCH MUST BE SET
;*2.
THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION
:*3.
ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION
THE
;*]F
:*THE PROGRAM WiLL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON
;*TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP 13 USED
;*THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT

;*COMES TO THE END OF THE TEST UNDER CONSIDERATION.
*

:*AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN
. *NORMAL OPERATION WILL CONTINUE.

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

045034
045036
045036
045042
045046
045112
045112
045116

045120
045124
045156
045156
045162
065164
045170
045174
045252
045252
045256

045320
045320
045324

TESTAD:

000000

005037
1064601

000421

013746
106402
104401
000414

013746

104402
104401
1064601
000426
104401

000420
104401

000423

045374
045374
045376
045402
045406
0456412

062716
012637

045452
065452
065456

104401

104412
104401

000417

000441

177776

OPERSEL:

045050

::65%:

017330

6498

045126

;2678

001110

669%:

001223
045176

::69%:

045260

68%:

;718

0645326

70%:

::73%3%:
72%:

B8R

649

mMov
TYPOC
TYPE

I#TSTNM,-(SP)

LASCIZ

2 15%:
74%:
;2778

:MAKE PROCESSOR STATUS ZERO

;. TYPE ASCIZ STRING

.65%

<15><12>/THE

..GET OVER THE ASCIZ

PROGRAM WAS

TEST

NUMBER

TEST

;GET READY T0O TYPE

: NUMBER

,67%

::TYPE ASCIZ STRING

66%

MoV
TYPOC
TYPE
TYPE

a¥SLPERR,-(SP)

;GET READY TO TYPE LOOP BACK P(

LOCRLF
,69%
68%

;s TYPE ASCIZ STRING
:;GET OVER THE ASCIZ

ASCIZ

LASCIZ

TYPE

B8R

<15><12>/THE

<15><12>/SET

<15><12>/1YPE

TYPE

,73%
72%
<19><12>/

8R
LASCIZ
RDOCT

BR
LASCIZ
TYPE

B8R
LASCIZ

::GEYT OVER TME ASC1Z

LOOP BACK

L1599

<15><12>/1YPE

78
76%
<15><12>/

WAS

SWITCH/

;s TYPE ASCIZ STRING
::GET OVER THE AS(ClZ

THE

FIRSY

THE

TEST/

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
FOLLOWED BY A CARRIAGE RETURN

#2,(SP)
(SP)+ ,a#SLPADR

74%

LOOP ON ERROR OR LOOP ON TEST

18
70%

LASCIZ

ADD
MoV
TYPE

000002
001106
065414

045460

(LR

TYPE

TEST

;FIRST ADDRESS OF

;GET

/<15><1¢2>

LPADR

;s TYPE ASCIZ STRING

::GEYT OVER THE ASCI2

THE

WHERE

YOU WANT/

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ
THE PROGRAM 10 LOOP BA(K TO FOLLOWED BY

A (ARR]AGE RETURN

012637
013746

045574
045600

005037
005037

045604

005037

045610
0465614

005037
000002

015146

30AC1052)
24=-MAY-79
END OF PASS ROUTINE
76%:

15:07

J 14

PAGE

130

SEQ 0178

(SP)+ ,@#SLPERR
a#SLPADR,-(SP)

CLR
CLR

S#NOSYNC
eFTSECC

;CLEAR FLAG FOR HEADER ERROR COMMANDS
;CLEAR FLAG FOR ECC TEST

050624

(LR

eFTSECCG

CLR

SFTESDTE

SEVEN IN AN ECC TEST EVERY (rOCK
;1S NOT TO GENERATE ECC
;1F =177777 GENERATE ECC
;1F =0 DO NOT GENERATE ECC
;DRIVE TIMING ERROR TEST

—

O—

RDOCT
Mov
MOv

10461¢

MACY1Y

no £~

7891
7892
7893

045562
045562
045564
045570

OO0
OO0

7878
7879
7880
7881
7882
7883
7884
788%
7886
7887
7888
7889
7890

OO
-

CIRIHDO,RPOL/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJND.PY2

;THIS CLEARS UP GARBAGE

RT]

;GET

LPERR

;WHEN =177777 11 |S AN ECC TEST
;WHEN =0 IT IS NOT AN ECC TEST

CIRJHDO,RPOL/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CZRJHD P12

MACY11

30A01052)
24=MAY-79
END OF PASS ROUTINE

7894

7895
7896
7897
7898
7899
7900
7901
7902
7903
7904
7905
7906
7907
7908
7909
7910
7911
7912
7913
7914
7915
7916
7917
7918
7919
7920

.SBTTL

15:07

14
PAGE

181

SEQ 0179

SAVE REGISTERS ROUTINE

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

;THIS SAVES THE CONTENTS OF

ALL HARDWARE REGISTERS

:IN MEMORY LOCATIONS TAGED FROM 'WC'' TO "EC2"’

STHIS 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

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

045616
0465616
045620
045622
045624
045630
045634
045640
045642
045644
045646
045650
045652
045654

PUTREG:

014750
015024
000023

000207

10%:

MOV
Mov
Mov
Mov
Mov
Mov
MOV

RO,=-(SP)

DEC
BNE

Mov
MOV
Mov
RTS

R1,=(SP)
R2,=(SP)
#RHWC RO
MC LR

:;PUSH RC ON STAC(K

:;PUSH R1 ON STACK
:;PUSH R2 ON STACK

;STARTING ADDRESS OF
;STARTING ADDRESS OF

#RHCC-RHW(+2/2,R2 ;NUMBER OF
3§R0)0,(R1)*
10%

(SP)+,R2
(SP)+ ,R1
(SP)+,RO

REG.

; SAVE HARDWARE

;;POP STACK
;.POP STACK
;:POP STACK

REG
SAVE

INTO R?2

REG.

INTO RZ
INTO R1
INTO RO

LOCATIONS

CIRIHDO,RPOL/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD. P12
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
7959
7960
7961

MACYT1

30AC1052)
24-MAY-79
15:07
SAVE REGISTERS ROUTINE

LSBTTL

FLOAT

L 14

PAGE

182

AND O

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

““FLOAT A ONE AND A ZERO THRU A DESIGNATED REGISTER
:«ABSOLUTE ADDRESS OF REG. UNDER TEST 1S IN R&

;;"""""'""""t'"""'"""""."I.'."""""""""

045656
045660
045662

000000
000000
000000

045664

012537
012504
010437
010537
062705
012703
004737
004737
0002461
006103
005703

045670
045672

045676
045702
045706
045712
045716
045722
045724
045726
045730
045732
045734
045736
045744
045750
045754
045762
045766
045772
045776
046002
046010
046014
046022
046024
046030
046032

045656
045662
065660
000004
000001
045734
045734

MpSK:
LERR:
REGADR:

0
0
0

BITST:

MOV
MOV

BLT1:

00C205
005103
012737
010337
005137
043737
005137
013714
011437
005137
043737
005137
023737
001403
004777
104413
000207

045744
001124
0645656
0645656
045656
001124
001126
045656
045656
045656
001124

046076

BLTZ:

BLT3:

001124

001126

177630
1$:

(RS)+,
(RS)+,

MASK
R4

;FETCH DATA MASK
;GET ADDRESS OF REG. UNDER TEST

RS,
",
n,

LERR
RS
R3

:GET ERROR RETURN ADDR.
;MODIFY RETURN ADDR. TO JUMP OVER RTS
;INITIALIZE DATA PATTERN

BLT?2

;OUTPUT FLOATING ONt

RG,

JSR

PC,
PC,

ROL
181

R3
R3

MOV
ADD
MOV

REGADR

BLTZ

;OUTPUT FLOATING ZERO
SSHIFT PATTERN

BNE
RTS
COM
MOv
MOV
0]
BIC
COM
MOv
Mov

;BRANCH IF NOT COMPLETE
BLTY
TO TEST
;RETURN
RS
R3
; COMPLEMENT PATTERN
#BLT3,
QNLAD
;SET SCOPE LOOP
:STORE GOOD DATA
R3,a#$GDDAT
¢AND MASK WITH PATTERN
I #MASK
AFMASK, IN#SGDDAT;CLEAR THE REST
;RESTORE MASK
AFMASK
8¥$GDDAT, (R4)
;OUTPUT TO REGISTER
(R4) ,aN$BDDAT
; INPUT FROM REGISTER

BlC
(oM
CMP
BEQ
JSR
SCOP1

SFMASK ,@7$BDDAT ;AND MASK OUT RECEIVED DATA
RESTORE MASK
afMASK
ANSGDDAT ,a#$BDDAT; 1S DATA CORRECT
;BRANCH 1f 6OOD
1%
;GO TO REPORT ERROR
8LERR
PC,
;LOCAL SCOPE LOOP

COM

001126

MOV

va1s70

;BITS UNDER TEST
;ERROR HLT ADDRESS

RTS

S¥MASK

SEQ 0180

CIRJHDO ,RPOL/5/6 DSKLS CTRLRZ
CIRJHD.PY2
01-MAR-79 09:10
7962
7963
7964
7965
7966
7967
7968
7969
7970
7971
7972
7973
7974
7975
7976
7977
7978
7979
7980
7981
7982
7983
7984
7985
7986
7987
7988
7989
7990
7991
7992

7993
7994
7995

7996
7997

MACY11

30A(1052)
24=MAY=79
FLOAT 1 AND O
.3BTTL
X

15:07

n s
PAGE

CLFAR MEMORY

2222222222222

183

SEQ 0181

ROUTINE
RRRRRARRRRRRRRRSRRRRRR Rt

THIS TLEARS ANY BLOCK OF MEMORY

RARRRE

FILLING 1T WITH ANY DATA

CALL

Pe
e

JSR
X

‘e

RO, CLAREA

:STARTING ADDRESS OF BLOCK

:DATA

FILLED

:*R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED
;*R2 AFTER SUBTRACTION WILL HAVE

:*R3 WILL HAVE DATA TO BE FILLED

:*70 AVOID DIVIDE ROUTINE

TWICE NUMBER OF

LOCATIONS

TwO DECREMENT R2 WILL BE USED

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

CLAREA:

046034
046034
046036
046040
046042
046044
046046
046050

046052
046056
046060
046062
046064
046066
046070
046072
046074

R3,-(SP)

::PUSH R1 ON STA(K
;sPUSH R2 ON STAC(K
:;PUSH R3 ON STACK

SUB
ADD

R1,R2
" ,R2

:NO. OF LOCATIONS MINUS TWO
:GET TWICE NO OF LOCATIONS

DEC
DEC
BNE
MOV
MOV
MOV

R
R2
1%
(SP)+ ,R3
+(SP)+ ,R?
(SP)+,R1

Mov
MOV

R1,-(SP)
RZ,-(SP)

MOV
MOV
MOV

(RO)+,R1
(RO)+,R2
(RO)+,RY

Mov

000002

000200

1%:

MoV

RTS

RI,(R1)+

;FROM
;10
sDATA
;MOVE

IN DATA

sBRANCH IF NOT COMPLETE
:;POP STACK INTO R3
;;POP STACK INTO R2
;:POP STACK INTO R1
;RETURN

CIRJIHDO,RPOL/5/6 DSKLS CTRLR2
01-MAR-79 09:10

CIRJHD P12
7998
7999
8000
8001
8002
8003
8004
8005
8006
8007
8008
8009

8010
8011
8012
8013
8014
8015
8016
8017
8018
8019
8020
8021
8022
8023
80264

8025

8026
8027

046076

000000

046100
046106
046110
046114

032777
001402
013716
000002

001000

MACYT1

133032

0466076

30A(1052)
24-MAY-79
LOCAL TRAPS

N 16
15:07
PAGE

LAD:

.SBTTL

LOCAL

1.5C0P:

BIT
BEQ

#Sw09,
1%
8MLAD,

1%:

MOv

RT1

186

SEQ 0182
TRAPS
aswR
(SP)

. *EXAMPLE OF THE USE OF THE ABOVE
;*THIS WILL LOOP BETWEEN X: AND SCOP!
",
SFLAD
;. *MOV

PROVIDED THERE

]S NO "'NEWTST'

JeX:
:'

;'
;t

046116
046122
046126
046132

014756
014754
015000
014760

046136
0461462

000040
015112

046146

046150
046156

012777

000207

177777

CLDISK:

SCoP1
LSBTTL

CLEAR DISK

Mov
MOV
Mov
Mov

R
S¥RHCST
SN#RH(S?
,R2
S8#RHDS1,R3
RS
S¥RHERT

#CLR,aR?

¢CLEAR ALL REG.
;REINSTATE UNIT NO.
;CLEAR FUNCTION BITS
;CLEAR ATTENTION BITS

MoV
MOV

146616

(LR

Mov
RTS

SNUNIT ,aR?
aR1
¥-1,3RHAS
PC

ROUTINE

wiLL BE

CONTROL

AND STATUS!

;R2 WILL BE CONTROL AND STATUS?
:R3 WILL BE DISK STATUS REGISTER!
;R4 WILL BE ERROR REGISTER #1

MACY1Y

8028
8029
8030
8031
8032

8033
8034
8035
8036
8037
8038
8039
8040
8041
8042
8043
8044
8045
8046
8047
8048
8049

8050
8051
8052
8053
8054
8055
8056
8057
8058
8059
8060

30A(1052)
24-MAY-T79
CLEAR DISK ROUTINE

.SBTTL
A

225X

B 15

15:07

PAGE

8070
8071
8072
8073
8074
8075
8076
8077
8078
8079
8080
8081
8082
8083

SEQ 0183

CHECK DISK STATUS ROUTINES

SRS

ZZARARAAR

RRRRR

RRRRRRRRERA)

T*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS! = 1
;*AND CHECKS THMAT DEVICE PRESENT (DPR), DEYICE READY (DRY) IN RHDS! =

= 0
:+1T ALSO CHMECKS THAT ALL OTHER BITS IN "ESE REGISTERS

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

046160
046164
0466172
046176

011637

015132

004737
022737

045616
0046200

046204

001423

046206
046214
046216
046222

032737
001004
010137

046224

000413

046226
046234
046236
046242

032737
001003
010137

0466244
046246
046252

000403
010137

162737

104026

000004

004000

015132

015032

CHECKT: Mov
SuB
JSR
cmp

015032

001122

000200

015032

1%:

001122

BIT
BNE
MOv
ERROR

#DVA, (S
1%
R1,8#$BDADR

BIT
BNE

#RDY,

Mov

ERROR

:SAVE PC OF JSR+4
:GET PC OF JSR
:SAVE REGISTERS
sRHCST

:AND BE

SHOULD MAVE DEVICE

AVAILABLE

READY

;BRANCH IF GOOD TO RHDS1 CHECK

ERROR

001122

#OVA!RDY,a#CS1

BEa

MoV

2%:

(SP) ,a#PCJSR

N, ,90PCJISR
PC,a#PUTREG

(ST

R1,3#$BDADR
26

3%
R1,3#$BDADR
26

;BAD SO TEST DEVICE AVAILABLE
;TEST READY IF DVA THERE

:ADDRESS O+ BAD REGISTER (RH(CS1)
;RHCSY DID NOT HAVE DEVICE
;AVAILABLE AT START OF TEST
:BRANCH TO RHDS1 CHECK
;TEST READY
;1F RDY THERE BRANCH
;ADDRESS OF BAD REGISTER (RH(S1)
;RHCST

DID NOT HAVE READY

;AT THE START OF TEST
:BRANCH TO NEXT

COMPARE

;ADDRESS OF BAD REGISTER (RH(S1,

;RHCS1 HAD SOME BITS OTHER
; THAN DVA AND RDY

SET

;ALL OTHER BITS SHOULD BE 0

8061
8062

8063
8064
8065
8066
8067
8068
8069

185

;AT

046256
046260
046264
046270

013746
042716
022726
001424

015054
001100
000600

046272
046300
046302
046306
046310
066312
046320
046322
046326
046330
046332
046336

032737
001004
010337
106026
000413
032737
001004
010337

000400

046340

104026

000403
010337
104026

000207

015054

001122

000200

C1505¢4

5%:

BIC
C(MP
BEQ

6%:

14 ¥

a#DsS1,=-(SP)

#VV'!PROG, (SP)
#DPR!DRY, (SP)+

BIT

ggpn,a:os1

MOv

R3,3#$BDADR
26
7%
#ORY,3#DS1
6%
R3,3#$BDADR
26
7%
R3,a#$BDADR
26

BNE

ERROR
BR

811
BNE

MOV

001122
001122

MOV

ERROR
BR

MOV

ERROR
RTS

START

TEST

;GET RHDS1
;CLEAR VV AND PROGRAMABLE BT
;RHDS1 SHOULD HAVE
;RETURN TO TEST If

THESE
GOOD

SET

;BAD SO TEST DRIVE PRESENT
:CHECK DRY I1Ff GOOD
:ADDRESS OF BAD REGISTER (RHDS1)
:RHDS1 DOES NOT HAVE DPR

;BRANCH OUT

;TEST DRIVE READY
:1F DPR WAS THERE SO BRAN(CH

;ADDRESS 0f BAD REGISTER (RHDS1)

;RHDS1 DOES NOT HAVE DRY
:BRANCH 0OUT

; ADDRESS OF BAD REGISTER (RHDS1)

;RHDS1 HAS SOME BITS OTHER
. THAN MOL,

DRY,

DPR,

SE1

;ALL OTHER B]TS SHOULD BE 0
;RETURN T0O TEST AND HALT - FATAL EPROR

CIRJHDO,RPO4/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD. P12

CIRJHD.PY/?

046342
046346

062716
000207

8s%:

000006

ADD
RTS

XXX

;ADJUST STACK PTR TO GET OVER HALT IN TEST
;RETURN TO TEST AND CONTINUE TESTING

76, (SP)
PC

SEQ 0184

ZRAZZRZASRASRS

RSttt

RRRld])

:#THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS! = 1
;*AND CHECKS THAI DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS! = 1

= 0
:+1T DOES NOT CHECK THAT OTHER BITS IN THESE REGISTERS

:;"tl""""""""""""""t"""""""l""""'"""

015132
000004
045616
000200

046350
066354
046362
046366
0466376
046376
0464602

001004
010137
106026

046404

0004c

046406

032737

004000

0466414
046416
046422

001004
010137

001122

046424
0466426
046434
046436
046462
0464446
0466446
046454
046656
046462
046464

000417
032737
001004
010337

0466466
046472

062716
000207

106026

000407
032737
001004
010337
106026

015132

CHECKE:

000200

015032

015054

18:

28:

015054

001122
L%

000207
000006

lh e

D
dh

177777

066476
046500
046504

010046
016600
010037

000002

001204

SHOULD HAVE

;AND BE READY

DEVICE

AVAILABLE

;BRANCH 1F GOOD
sFAILING REGISTER
sRHCS1 IS IN ERROR

:DOES NOT HAVE
;BRANCH

811

FOVA,ANCST

;RHCS1

BNE
MOV
ERROR

2%
R1.3#$BDADR
26

:BRANCH 1F GOOD
;FAILING REGISTER

BR
BI1
BNE

08
#DRY,a#DS1
3

;AND BE

DVA, RDY

SHOULD HAVE DEVICE

AVAILABLE

READY

;RHCST1

1S IN ERROR

;RHDS1

SHOULD HAVE DPR,DRY

R3.,3#$BDADR
26

;RHDS1

DOES NOT HAVE DPR,DRY

SOPR,3#DS1

;RHDS1

SHOULD HAVE

;DOES NOT HAVE DVA, RDY
:BRANCH OUT

;BRANCH IF THERE
;FAILING REGISTER RHDS!
;BRANCH OUT

‘s

BNE
MOV
ERROR

5%
R3.3N#$BDADR
26

;BRANCH IF THERE

;RHDS1 DOES NOT HAVE DPR,DRY
;RETURN TO TEST AND HALT = FATAL ERROR

ADD

"6, (SP)

;ADJUST STA(CK TO GET OVER HALT IN TEST

JSBITL

WAIT LOOP

DPR,DRY

;FAILING REGISTER RHDS!

;RETURN TO TEST

AND CONTINUE

TESTING

Rl
222
RRaRRl
RRRd R R
2222222222 X222 22222222222

WAIT LOOP

046474

;RHCS1

RTS

e
i
B

JSR+4

;GET PC OF JSR
;SAVE REGISTERS

RTS

5% :

FRDY,aNCS!

:SAVE PC OF

13
R1.3#$BDADR
26

BIT

(SP) ,a#PCJSR
¥4, aNPCJISR
PC.aN#PUTREG

BNE
MOV
ERROR

MOV
ERROR

001122

000400

MOV
SUB
JSR

BIT

015032

001122

e
P e
i el
o
o

c 15
PAGE 186

30A(1052)
15:07
24=-MAY=-T79
CHECK DISK STATUS ROUTINES

) id

D i

il e

D i

D el i

WU
8 U L N A AN PO NS PV PO RO NI PO PO AU N —t b e et b b b et et 0 O
OB NO VR NN 2O OB NO VB W
—=2O 0 NOWVEWN 00

O» On 09 On OB On O» O» O» OB O» OO 09 O» O» OB 09 09 GO OB OB OB OB O OB G 0O O OO O O

8084
8085
8086
8087
8088
8089
8090
8091
8092
8093
8094
8095
8096
8097
8098
8099
8100
8101
8102
8103
8104

('-"AR=79 09:10

MACY11

5.15 MICROSEC WITH BIPOLAR MEMORY (MIN)
ONE LOOP OR ONE COUNT
11.86 MICROSEC WITH CORE (MIN)
ONE LOOP OR ONE COUNT
WITH CORE ERROR 1S INDICATED AFTER ABOUT 650 MILLISEC (MIN)

222222222223 222222222

TIMCNT:

177777

WAIT,.T1:

Mov
Mov
MOov

2222222222222

RRdR

iRl

;WAITING COUNT

RO,-(SP)

2(SP) RO
RO,878TMP3

;SAVE RO

;GET ADRESS OF REG. ADDRESS
(WAT PC+2

IN $TMPS

CZRJHDO,RPOL/S
/¢ DSKLS CTRLR?

CIRJHDO,RPO4/S/6 DSKLS CTRLRZ
CZRJHD. P12
01-MAR-79 09:10

MACY11

000002
001176
001200
000002

001204

046474

001202

001200

132426

046510
046516
046522
046526
046532
046534

1%:

001202

811

BNE
DEC

132402

BNE

MOv

3$:

BIT

BNE
DEC

001202

ERROR
RT1

0D 15
PAGE 187

#2,308TMP3
(RO)+,3#8TMPO
(RO)+,3#8TMP1
RO,2(SP)

;WAT PC FOR TYPEOUT
;WAIT REGISTER ADDRESS
;WAIT ON BIT
sRESTORE RETURN ON STA(K

(SP)+ RO
;RESTORE RO
SFTINCNT,@#$TMP2; TEMPORARY COUNT

S¥STMPY a8TMPO
;1S REQUIRED BIT THERE?
2%
;BRANCH IF YES
: COUNT
afsTMP2
1%
;BRANCH IF NOT TIME UP
TEMPORARY COUNT
NCNT
308 TMP2;
SFTI
SNSTMP1 ,38TMPO
;1S REQUIRED BIT THERE?
2%
:BRANCH IF YES
COUNT
:
TMP?
NS
IF NOT TIME UP
;BRANCH
3%
8$TMPO,a#$BDDAT ;REGISTER CONTENTS
16
;WAITED ON BIT FAILED TO SET

CALL FOR THE ABOVE WAITLOOP

8A, 3%

:A CONTAINS REGISTER ADDRESS

;BIT WAITED FOR

Mov

SEQ 0185

;HENCE

X$ WILL HAVE

ABSOLUTE

REG.

ADR.

[ 4

MOV

15:07

®»

000002

BNE

001126

132366

046614

SuB

001202

046474
001200

LOOP

26=MAY-79

MOV
MOv
Mov
MOV
Mov

046542
046550
066552
046556
046560
046566
046574
046576
046602
046604
066612

037

WAIT

8140
8141
8142
8143

30A(1052)

WAT

.WORD

:ABSOLUTE REG. ADDRESS UNDER WAIT
: CONTINUE

————————

——d

CIRIHDO,RPOL/5/6 DSKLS CTRLR?
CIRJHD. P12
01-MAR-79 09:10

8215
8216
8217
8218
8219
8220
8221
8222
822%
8224
8225
8226

30A(1052)
WAIT

LOOP

24-MAY-79

.SBTTL

£ 15
PAGE 188

15:07

SEQ 0186

SAVE ROUTINE

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

;THIS IS A SUBROUTINE TO READ & SAVE REGISTERS
:IN THE REGISTER TABLE 70 ANY LOCATION
; THE

;JSR

CALL

RO,a3#SAVER

;FROM
;10
;NUMBER OF

WORDS SAVED

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

046616
046616
046620
046622
046624
046626
046630
046632
046634
046636
0466640
046642
0466644
046646

SAVER:

MOV
MOV
MOV

R1,=-(SP)
R2,=-(SP)
R3,-(SP)

::PUSH R1 ON STACK
;sPUSH R2 ON STA(K
::PUSH R3 ON STACK

MOV
MOV

(RO)+,R3
A(R1)+,(R2)+

:NUMBER
:SAVE REGISTER (CONTENTS

MOV
RTS

(SP)+ ,R1
RO

MOV
MOV

1%:

000200

DEC
BNE
MOV
MOV

.SBTTL

(RO)+ R
(RO)+ ,R2

;FROM
: 10

R3
1%
(SP)+ ,R3
(SP)+ ,R?

WRITE

;COUNT
;BRANCH IF NOT DONE
::POP STACK INTO R3
::POP STACK INTO R?
;;POP STA(CK

CHECK

[INTIO RI

ROUTINE

;:t"""""""""""""I'""""l"'.""t.'l"."""'Itt

;THIS IS A SUBROUTINE TO DO WRITE CHECK HEADER AND DATA
;CYLINDER O, TRACK 1, SECTOR 1, KtviS 0

;:"'.".'"""'"""""'"""."".l"'.""t"'l't"t"ttt'

;THESE

046650
046656
046664

046672
046676
046702
046710
046714
046720
046722

et
Ve b
Ao AV LY AV LV LV ]
OO NNNNNNNN

LARA
8172
8173
8174
8175
8176
8177
8178
8179
8180
8181
8182
8183
8184
8185
8186
8187
8188
8189
8190
8191
8192
8193
8194
8195
8196
8197
8198
8199
8200
8201
8202
8203
8204
8205
8206
8207
8208
8209
8210
8211
8212
8213
8214

MACYT

WRCHHD: MOV

010000
000001
000001
053014
053016
000044
053020
047332

ARE

TO SET

UP FOR DISKLESS USE ONLY

WEMT22 ,a0CYL

:CYLINDER O FORMAT

(LR
(LR

afKEY]
ONKEY?

KEY1:=0
:KEY2=0

CLR
JSR

ofX
RS,a#CRC

MOVB
MNyB
MOV

vt
WCRC

#,afSECOTR+1
#1,3#SECOTR
#36.,DAWORD

:TRACK
=1
:SECTOR=1
;NO OF

16 BIT WORDS

DATA WORDS

;THIS 1S A READ OPERATION
;60 TO CALCULATE (RC

;THESE ARE REGULAR SETUPS

066726

004737

046116

046730

012777

177730

1646012

JSR

PC,a#CLDISK

MOV

#-40.,3RHW(

;SET UP GENERAL REGISTERS
sAND CLEAR DISK REGISTERS
:36 DATA WORDS & HEADER WORDS

CIZRJIHDO,RPO4L/S/6 DSKLS CTRLR2

CIRJHD.P12

01-MAR=79 09:10

MACYY

264-MAY=-79

RITE CHECK ROUTINE

8227
8228
8229
8230
8231
8232
8233
8234

046736
0467644
046750
046756
046762

012777
1127646
112766
01267
012777

016264
000001
000001
146000
014000

046770
046774
047000

005077
0046737
104401

165774
046160
005123

CLR
JSR
TYPE

8238

047004

8235
8236
8237
8239
8240
8241
8242

8243

8244

000000

166006

30
AC10592)

000001
145776

MOV
MOVB
MOVB
MOV
MOV

HALT

15:07

15
PAGE 189

)

SREINTO,3RHBA
:STARTING ADDRESS OF READ BUFFER
" ,-(5P)
:SECTOR=1
#1,1(5P)
:TRACK=1 IN UPPER BYTE
(SP)¢,@RHDST
:TRACK=1, SECTOR=1 IN RHDST
NEMT22'EC],aRHOF ;16 BIT WORDS
;ECC CORRECTION INHIBIT BECAUSE
SECC LOGIC IS NOT CHECKED YET
aRHCA
:CYLINDER=0

PC,aNCHECKT
,CPHALT

:CHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T
:CANNOT CONTINUE TESTING IF ANY OF THE
:ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ |
:STOP THE TEST

047006

013711

015166

MOV

SNWRCHDT,aR1

047012

004737

052650

JSR

PC,aNCOMHD

;WRITE CHECK HEADER AND DATA=S5?2
S INTO RHCS1
:WRITE CHECK HEADER AND DATA

047016

000207

RTS

;RETURN TO WRITE CHECK TEST

:SAME AS READ HEADER AND DATA

SEQ 0187

CIRJHDO,RPOL/S5/6 DSKLS CTRLRZ2
CIRJHD, P12
01-MAR-79 09:10

8245
8246
8247
8248
3249
8250
8251
8252
8253
8254
8255
8256

8293
8294
8295
8296
8297

24-MAY-79

30A(1052)
WRITE

(MECK ROUTINE

.SBTTL
SR

XXX

:*THIS

15:07

615

PAGE 190

Sea 0188

COMPARE ROUTINE
XA RS2SR

SRR

RRRRRRdRldA

IS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY

.*R1 HAS GOOD DATA BUFFER ADDRESS
:*R2 HAS TEST DATA BUFFER ADDRESS

;*$TMPO HAS ADDRESS OF
;*$STMP1 HAS ADDRESS OF

RETURN ON ERROR TO PRINT HEADER
RETURN ON ERROR TO PRINT DATA

;*R3 HAS NUMBER Of WORDS TO BE COMPARED
:*R& HAS ONE MORE THAN NUMBER Of WORDS TO BE

COMPARED

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

047020
047020
047022
047024
047026
047030
047032
047034
047036
047040
047044
047050
047052
047054
047056
047062
047064
047066
047072
047076
047102
067106
04647110
067114
067116
047122
0647124
047130
047134
047140
0647142
067144
0471466
047146
047150
0647152
067154
047156

07160

COMPAR:

001176
001200

053130

1%:

001426

01.137
014237

160337
005737
001003
004777
000402

004777
022122
017746
042716
022726
001402
005303
001344

012605
012604
012603
012602
012601
000¢00

001124
001126
053130
015124

132010

INC

Mov

(MP
BEQ

MOv
Mov
suB
187

132062
132056

MOV
Mov
Mov
Mov
MOV
Mov
MoV
Mov
MoV
Mov
Mov
Mov

2%:
5%:

177177
000200

1%:
4%

BNE
JSR
BR
JSR
(MP
Mov

BIC
(MP
BEQ
DEC
BNE

MOV
MOV
MOV
MOV
MOV
RTS

R1,=-(SP)
R2,-(SP)
R3,~-(SP)
R4 ,-(SP)

RS,=(SP)
(RO)+,R1
(RO)+,R2
(RO)+,R}Y
(RO)+,8TMPD
(RO)+,8TMP1
(RO) RO

;;PUSH R1

ON STACK

::PUSH R2 ON STA(K
::PUSH R3 ON STACK

:;PUSH R4 ON STACK

::PUSH RS ON STA(K

:ADDRESS OF GOOD DATA BUFFER
:ADDRESS OF TEST DATA BUFFER
:NO OF WORDS TO BE COMPARED
:RETURN ON ERROR TO PRINT HEADER
:RETURN ON ERROR TO PRINT DATA
:RETURN ON NO ERROR

RI,R4

:NO OF WORDS TO BE COMPARED

(R1)+,(R2)¢

;FOR ERROR WORD NO
:COMPARE GOOD WITH TEST DATA
;BRANCH 1f 6OOD

=(R1),a#$GDDAT
=(R2) ,a#$BDDAT
R3,3¥ERWORD

;GOOD DATA
;BAD DATA
;ERROR WORD NO.

R&
R4 ,a#ERWORD

SFERFLGS
2%
PC,a$TMPO
5%
PC,asTMPY

(R1)+,(R2)+
aSWR,-(SP)
#*C600, (SP)
#SW07,(SP)+
43
R3
1%

(SP)+,RS

(SP)+ R4

(SP)+,R3
(SP)+,R2
(SP)+ ,R1
RO

;ANY ERRORS ALREAY
;BRANCH [F YES

THERE

;RETURN TO PRINT HEADER

;BRANCH TO AVOID PRINTING NEXT ERROR
;RETURN TO PRINT

DATA

:UNDO =(R1) AND =-(R2) FOR ERRORS
GET SWITCH SETTING
sKEEP ONLY SWITCH 7 AND 8

:1S 7 SET AND 8 RESET

JBRANCH QUT

s COUNT

;BRANCH

YES

ALL NOT

DEVICE

::POP STACK INTO RS
;;POP STACK INTO R4
::POP STACK INTO R3
::POP STACK

INTO R?

::POP STACK INTO R1

RETURN TO MAIN PROGRAM

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

MACY1Y

CIRJIHDO,RPOL/S/6 DSKLS C(TRLR?
CIRJHD. P12
01-MAR-79 09:10

MACY1]

8298
8299
8300
8301
8302

8325

8326
8327
8328
8329
8330
8331
8332
8333
8334
8335
8336
8337
8338
8339
8340
8341
8342
8343

H 15
PAGE

CHECK

WRITE C(HECK

DATA

191

SEQ 0189

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

;THIS 1S A SUBROUTINE TO DO WRITE CHECK DATA
;CYLINDER O,

TRACK 1, SECTOR 1, KEYS O

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

8304
8305
8306

il
—

N
O

OOO

047332

047226
047232
047234

010000
000001
000001
05301¢
053016
000040
053020

QOO

0467162
047170
047176
047204
047210
047214
047222

;THESE

(WL RV

8310
8311
8312
8313
8314
8315
8316
8317
8318
8319
8320
8321
8322
8323
8324

WRITE

15:07

24=-MAY-79

LSBTTL

8303

8307
8308
8309

I0A(1052)

053070

WR(HDA: MOV

MOVB
MOVB

(LR
(LR

MOV
(LR
JSR

CviL
WCR(

;THESE

047236

046116

067242
067250
0467256
047262
047270
067274

177740
016264
000C01
000001

0000C1

014000

1457 64

145466

047302
047306
047312

005077
004737

047316
047320
047324

000000
013711
004737

047330

000207

1044601

1456462

046160

005123
015164
052650

145500
165474

ARE

TO SET UP FOR DISKLESS USE ONLY

FEMT22,88CYL

;CYLINDER O FORMAT

aflKEY
9MXKEY?2

;KEY1:=0
;KEY2=0

#1,30SECOTR1
#1,3/SECOTR

#32..38#DAWORD

s TRACK
=1
;SECTOR=1

16 BIT WORDS

anx

:NO OF DATA WORDS
:THIS 1S A READ OPERATION

RS ,9#CRC

;60 10 CAL(ULA!E

ARE

REGULAR

CRC

SETUPS

JSR

PC,a#CLDISK

MOV
MOV
MOVB
MOVB
MOV

#-32.,8RuN(
#REINTO,aRHBA
#1,-(SP)
#1,1(5P)
(SP)+,3RHDST

(LR

aRHCA

:16 BIT WORDS
;ECC CORRECTION INHIBIT BECAUSE
;ECC LOGIC IS NOT CHECKED YET
:CYLINDER=0

TYPE

LCPHALT

;CANNOT CONTINUE TESTING IF

MOV

JSR

HALT

NEMT22'EC],QRKHOF

PC,aNCHECKT

MOV
JSR

afWR({HEK ,aR]
PC.,a¥COMHD

R1S

:SET UP GENERAL REGISTERS

;AND

CLEAR

DISK

REGISTERS

:36 DATA WORDS & HEADER WORDS
;STARTING ADDRESS OF READ BUFFER
:SECTOR=]
:TRACK=1 IN UPPER BYTE
:TRACK=1, SECTOR=1 IN RHDST

:CHECK DVA,RDY,DPR,DRY - 1 AND OTHERS DON'T
ANY Of

THE

:ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK a 1

:STOP THE TEST

:WRITE CHECK DATA=50 INTO RH(S!
;WRITE CHECK HEADER AND DATA
:SAME AS READ HEADER AND DATA
;RETURN TO WRITE

(HECK TEST

CIRJHDO,RPOL/S5/76 DSKLS CTRLRZ
CIRJHD.P12
01-MAR-79 09:10

MACY11

8344
8345

.SBTTL

8346
8347
8348
0349
8350
8351
8352
8353
8354

8355
8356
8357
8358
8359
8360
8361
8362
8363
8364
8365
8366
8367
8368
8369
8370
8371
8372
8373
8374
8375
8376
8377
8378
8379
8380
8381
8382
8383
8384
8385
8386
8387
8388
8389
8390
8391
8392
8393
8394
8395
8396
8397
8398
8399

30A(1052)
26=MAY-79
15:07
CRC GENERATION ROUTINE

I 15
PAGE 192

SEQ 0190

(RC GENERATION ROUTINE

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

;THIS IS A SUBROUTINE TO CALCULATE CRC FOR THE FOUR

;HEADER WORDS AND STORE THEM IN '‘WCRC'' AND "'GCRC"

:R1 - REGISTER FOR CRC, INCREMENTED CRC VALUE IS HERE
:R2 = THIS HAS BIT
;R3 = THIS HAS BIT
;RG = THIS HWAS BIT
;$TMPO - NUMBER OF
;$TMP2 - NUMBER OF
:$TMP3 - TEMPORARY

POSITION
POSITION
POSITION
WORDS
BITS PER
REG.

2 VALUE C
16 1.E. OUTPUT BIT
15 VALUE E

WORD =

VALUE B

;$TMP4L - TEMPORARY REG TO TRANSFER CARRY
;STMPS - THIS HAS DATA BIT
;FETCH DATA BIT

;B =D XOR 16
8 XOR 2
:C
B XOR 15
=
;€

;ROTATE

RIGHT

;CALL

RS,a#(RC
JSR
;FIRST LOCATION AT

;B GOES
;C GOES
:E GOES
;REPEAT
.X
.Y

TO
TO
TO
64

VALUE D

ONE

POSITION

POSITION 1
POSITION 3
POSITION 16
TIMES

;PUT

CRC

IN WCRC FOR READ GCRC FOR WRITE

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

047332
047332
047334
047336
047340
0467342
047344
047346
047350

010046
012500
010146
0102646
010346
010446
005001

(RC:

0473564
047362
047366
047374
047402
047406
067412
047416
047420
067626
047626
047430

005037
012737
012037
012737
013737
006037
006037
032701
001403
012703
000401
005003
063703

001210
00000«
001204
000020
001204
001204
001210
000001

047434
047440
067442
047446

032701
001403
012702
000401

040000

001176
001202
001206

16%:

15%:

1%:

100000

RO,-(SP)
(RS)+,RO
R1,=-(SP)
RZ.-(SP)
R3,-(SP)
R&,=-(SP)
R1
afsTMPS
¥4 ,ansTMPO
(RO)+,a#8TMP3
#16.,8TMP?
a¥STMPY,aNsTMPL
NS TMPY
afSTMPS

:;PUSH RO ON STACK
;GET POINTER T0 CryL NO.
::PUSH R1 ON STACK
:;PUSH R2 ON STACK
;sPUSH R3 ON STAC(CK
;;PUSH R4 ON STACK
;CLEAR WORKING LOCATION

MOV
BR
(LR
ADD

#B1T15,R3
2%

;GET POSITION 16

817
8€Q

100000

001210

MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
MOV
MOV
MOV
MOV
ROR
ROR

2%:

;GET LSB INTO ''C"
;GET ABOVE ''C'' INTO $TMPS

#B110,R1
1%

;1S POSITION 15 HIGH
;BRANCK IF POSITION 16 LOW

R3
NS TMPS ,R3

:GET POSITION 16
:XOR POSITION 16 WITH D

BI1
BEQ

#BITIL LR
3%

HSV

:WORD COUNT
: TEMPORARY WORD STORAGE
:B1T COUNT
; TEMPORARY WORD STORAGE

l21115,92

;10 GIVE B

;1S POSITION 2 HIGH
;BRANCH [F POSITION 2 LOW
;GEY POSITION 2

CIRJHDO,RPO4/S/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJIHD P12

8427
8428
8429
8430
8431
8432
8433
8434
8435
8436
8437

000002

#BIT1,R1

100000

MOv

#BITI5,RG

;1S POSITION 15 HIGH
:BRANCH IF POSITION 15 LOW
:GE1 POSITION 15

047474
047500
047502
047504
047506
047512
047514

006037
006001
005703

001206

042701
000402
052701
005702

100000

042701
000402
052701
005704

020000

042701
000402
052701
005337
001310
005337
001275
010135
012604
012603
012602
012601
012600
000205

000001

100403

SEQ 0191

;GET PGSITION 2
;XOR B WITH POSITION 2

032701
001403
01270
000401
0050064
060304

4%:

Bta

5¢:
6%:

000001

001202

001176

—a

020000

7%:
10%:

100000

—

100403

193

R2
R3,R2

047454
047460
0467462
047466
047470
047472

047520

PAGE

(LR

005002
060302

047522
047524
047530
047532
047536
047540
047542
047546
047550
047554
047560
047562
047566
047570
047572
047574
047576
047600
047602
047404

J 15

ADD

1%:

047450
0474652

100403

30AC1052)
24-MAY-79
15:07
CRC GENERATION ROUTINE

8400
8401
8402
8403
8404
8405
8406
8407
8408
8409
8410
8411
8412
8413
84614
8415
8416
84617
8418
8419
8420
8421
8422
8423
8424
8425
8426

MACY11

148

CLR
ADD

ROR
ROR
151
BM]
BlC
BR

B1S
151
BMI
BIC
BR
BIS
1581
BMI

B1C
BR
BIS
DEC
BNE
DEC

BNE

MOV
MOV
Mov
Mov
MOV
Mov
RTS

¢$
R&

R3,R¢

arsTmMps
R1
R3Y
7%
#BITIS,R
10%
#BITIS,R
R?
11%
#BITI3,
R
12%
#MIT13,RY
R

138
#8110,R1
149

#B81TC,RT

arSTMp?
15%

a¥sTMP0

16%
R1,8(RS)+
(SP)+ R4

(SP)+,RY
(SP)+,R?2
R
(SP)+
(SP)+ RO
RS

;10 GIVE

:GET POSITION 15
:XOR POSITION 15 WITH B
;10 GIVE €

;GET LSB INTO "'C"
;GET ABOVE ( INTO Ri

JJEST B
;BRANCH 1F

B=1

;SET B IN POSITION I
;SET B IN POSITION 1
STEST C

;BRANCH IF

(=1

:GET C IN POSITION 3

;GET C IN POSITION 3

JTEST E
;BRANCH IF

E=1

;GET E iIN POSITION 16
:GET E IN POSITION 16
;81T COUNTER
;BRANCH IF 16 NOT DONE
;WORD COUNTER
;BRANCH IF

& NOT DONE
;PUT CRC WHERE DESIRED
::POP STACK

:;POP STACK

INTO R4

INTO R3

;:POP STACK INTO R2
:.POP STA(K INTQ R
;.POP

STACK

INTO RO

CIRJHDO,RPOL/S/6 DSKLS CTRLRZ

CIRJHD.PY2

01-MAR-79 09:10

MACY1Y

8438
8439

30A(1052)

SIMULATED DISK SETUP
SBYTL

8441
8442
8443
BLLG
8445
8446

8450

047606

047606
047610
047612
047614
047620
047624
047630
047632
047634
047636

010046
010146
010246
012700
012701
012702
010022
005301
001375
012701

047642

005022

047644
047646

005301
001375

SETDSK:

177400
000400
054726

1%:

000021
2%:

047650
047656
047664
047672
047700
047706
047714
047720
047722
047724

012737
112737
112737
012737
012737
013737
004537
053010
054710
012602

8483

047732

000207

8484

JSR

MOV
MOV
MoV
MoV
MoV
MOV
MoV
DEC
BNE
MOV

RO,=-(SP)
R1,-(SP)
R2,=-(SP)
#177400,R0
#256. ,R1
#D1SK ,R?
RO, (R2)+
R1
1%
f7.,R1

CLR

(R2)+

DEC
BNE

R1
2%

PC,a#SETDSK
R

R R

::PUSH RO ON STACK
::PUSH R1 ON STACK
; sPUSH R2 ON STACK
;DATA IN THE DISK
; COUNTER
;START OF SIMULATCR DJ]SK
;MOVE N DATA
:COUNT FOR 256
:BRANCH IF 256 NOT COMPLETE
;2 ECC WORDS, 1 DATA GAP
;14 TOLERANCE GAP
;CLEAR ECC,.DATA GAP AND
:TOLERANCE GAP
; COUNT
;BRANCH 1F NOT COMPLETE

sNOW SET UP FOR DISKLESS USE

8471
8472
8473
B&74
8475
8476
8477
8478
8479
B480

B481
8482

177400

s CALL

gk?g
4

SEQ 0192

047726
047730

012601
012600

010000
000001
000001
000001
000001
000400
047332

053010
0530'3
053012
053014
053016
053070

MOV
MOVB
MOVB
MoV
MoV
MOV
JSR
cyL
WCRC
MOV

#EMT22,34CYL
#1,30SECOTR+1
#1,30SECOTR
#1,38KEY
#1,30KEY2
256. ,3#DAWORD
RS,3#CRC

RTS

MOV
MOV

(SP)+ ,R2
(SP)+ ,R1
(SP)+,RO

;CYLINDER O (16 BIT WORDS)
: TRACK=1
;SECTOR=1
JKEY1=1
(KEYV2=1
;NO. OF DATA WORDS
;60 TO CALCULATE CRC
;FIRST CRC WORD
;PUT CALCULATED CRC
:;POP STACK INTO R2

:;POP STACK INTO R1
::POP STACK INTO RO

e
e e

194

SIMULATED DISX SETUP

;256 WORDS Of

8448
8449

gkbg

K15
PAGE

:THIS IS A SUBROUTINE 1O SET UP THE SIMULATOR DISK FOR
sCYLINDER O (16 BITS PER WORD)
sTRACK 1, SECTOR I
(KEY1
(KEY2 1
;CRC THROUGH THE JSR RS,3#CRC

B44&7

8453
8454
8455
8456
8457
8458
8459
8460
8461
8462
8463
B464
8465
8466

15:07

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

8‘"’0

8451
8452

24=-MAY-79

CIRJHDO ,RP0O4/5/6 DSKLS CTRLR?

CIRJIKD.PY?

01-MAR-79 09:10

MACY11

8485
8486
8487
8488
8489
8490
8491
8492
8493
8494
8495

8504
8505
8506
8507
8508
8509
8510

15:07

L 15
PAGE 195

SEQ 0193

(CHECK HCE ROUTINE

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

;THIS IS A SUBROUTINE TO CHECK HEADER COMPARE ERROR
:(BIT #7) AND CRC ERROR (BIT #8)
:CALL JSR RO,a#HCCRCE

COM

Ix@DMI)

: COMMAND-READ HEADER AND DATA
-WRITE DATA

;

;CYLINDER
;SECTOR
: TRACK

:WORD COUNT

:RHBA BUFFER START
:1=WRITE DATA 0=READ

:H=1 HEADER C(MECK, H=0 CRC CHECK

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

047734
047740
047746
047752
047756

010037
162737
004737
004737
104401

047762

000000

047764
047770
047772
047776
050000
050002
050006
050010
050014

011037
012011
012077
112046
105720
112066
105720
012677
012077

8521
ggg%

050020
050024

gggg
8526
8527

8536
8537
8538
8539
8540

HCE ROUTINE

.SBTTL

8511
8512
8513
8514
8515
8516
8517
8518
gg;g

8528
8529
8530
8531
8532
8533
8534
8535

(HECK

24-MAY-79

8496
8497
8498
8499
8500
8501
8502
8503

30AC1052)

015132
000004
046116
046160
005123

015132

HCCRCE:

MOV

RO,a#PCJSR

;SAVE PC OF

PC,aNCHECKT

;CHECX DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T

SUB
JSR

¥4 ,a0PCISR
PC,aNCLDISK

TYPE

LCPHALT

JSR

HALT

001210

MoV

(PN: an3TMPS

144772

Mov

(RO)+,aRHCA

mov

MOvB

(RO) ¢+ ,3R1

(RO)+,=-(SP)

144746
144730

1S18
MOvVB
1STB
MOv
Mov

(RO)+
(RO)+,1(SP)
(RO)+
(SP)+ ,aRHDST
(RO) +,3RHWC

012077
012037

144726
053020

MOv
MOV

(RO)+,aRHBA
(RO)+,a¥X

050030

012777

014000

MOV

#FMT22!ECI ,aRHOF

050036
050042

005037
004737

01512«
052650

CLR

SNERFLGS

000001

144730

JSR

PC.,a#COMHD

JSR+4

;GET PC OF JSR
;INIT AND SETUP GENERAL REG.
*CANNOT CONTINUE TESTING IF

ANY OF

;STOP THE
: SAVE

TEST

COMMAND

: COMMAND

;CYLINDER

:SECTOR

:UP DATE RO
; TRACK
;UPDATE RO
s TRACK SECTOR
:NO. OF DATA WORDS +4& HEADER

:1F A READ HEADER AND DATA

;STARTING ADDRESS OF BUFFER
:X=0 READ HEADER AND DATA
;X=1

WRITE DATA

;16 BITS PER WORD

;ECC CORRECTION INHIBIT
:CLEAR ERROR FLAG

: COMMAND

;1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;FROM THE ''COMHD'' ROUTINE THAT MEANS SECTOR GAP,
;FIRST

SYNC, HEADER, HEADER CRC, HEADER GAP AND

;SYr. BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
;DETECTED
;HEADER AND DATA ARE TO BE CHECKED.

050046
050052
050056
050060
050064

004737
005737
001034
005737
001015

045616
015124
053020

JSR
181
BNE
TS1
BNE

PC,o#PUTREG
aNERFLGS
10%
afx
3%

THE

;ABOVE BITS DON'T = 1 OR OTHERS ARE STUCK @ 1

:SAVE REGISTERS
:ANY ERRORS ALREADY THERE
;BRANCH IF YES
;1S THIS A READ
;1F A WRITE DATA BRANCH

CIRJHDO,RPOL/S5/6 DSKLS CTRLRZ
CIRJHD.PY2
01-MAR-79 09:10
8541
8542
8543
8544
8545
85646
8547
8548
8549
8550
8551
8552
8553
8554
8555
8556
8557
8558
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

MACY11

30A(1052)

24=MAY-79

(HECK HCE ROUTINE

15:07

mn1s
PAGE 196

SEQ 0194

;NOW THE READ BUFFER WILL BE CHECKED
;HEADER SHOULD BE COMPLETELY READ AS WRITTEN
:NO DATA WORDS SHOULD BE READ

;REINTO BUFFER HWAS BEEN FILLED WITH 0

;WRFROM BUFFER HAS BEEN FILLED WITH EXPECTED DATA

050066
050072
050074
050076
050100
050102
050104
050106
050110
050112

004037
015220
016264
000400
050106
050112
050150

047020

JSR

WRFROM
REINTO

RO,a#COMPAR

1%
2%
1%:

104004

000207
104005

2%:

ERROR

RTS
ERROR

:GOOD DATA
;TEST BUFFER

;4 HEADER 252 DATA

256.
10$

s CHECK

;NETURN POINT FOR ERROR HEADER

;RETURN POINT FOR ERROR DATA

PC
5

050114

000207

RTS

050116

000414

108

sRETURN FOR GOOD COMPARISON

;READ NEXT ERROR 5

;RETURN TO COMPARISON SUBROUTINE
:WORD NO 1 THRU & ARE
;HEADER WORDS AND HENCE

;SHOULD BE READ AS WRITTEN ON
;:D1SK, WORD NOS. 5 ONWARDS
:SHOULD NOT BE READ AND HENCE
;READ INTO BUFFER
; SHOULD BE UNCHANGED
¢RETURN TO COMPARISON

; JUMP 0UT

;NOW THE DISK WILL BE CHECKED
;NO DATA SHOULD BE WRITTEN
;REINTO BUFFER HAS BEEN FILLED WITH EXPECTED DATA
:DISK HAS BEEN FILLED WITH 177400
;WRFROM HAS BEEN FILLED WITH 125252
050120
050124
050126
050130
050132
050134
050136
050140
050142
050144

004037
016264
054726
000400
050140
050144
050150

3%:

047020

106004

49:

104005

5%:

000207

050146
050150
050152
050154
050162
050164
050172

000207
005720
001442
022737
001417
017737
022737

050200
050202

001470
013737

JSR
REINTO
g%gk

3
5%
10%

ERROR

RTS
ERROR

000072

001210

RTS
151
BEQ
4,14

144570

000200

001126
001126

MOV
(mp

014760

045662

BEQ
MOV

10%:

BEQ

RO,a#COMPAR

PC
5

PC
(RO) ¢
6%
N72,308THPS

; CHECK
.600D DATA BUFFER
;TEST BUFFER

;RETURN POINT FOR ERROR HEADER
:RETURN POINT FOR ERROR DATA
;RETURN POINT FOR GOOD COMPARISON

;READ NEXT ERROR 5

;RETURN TO COMPAR]SON SUBROUTINE
;WORD NO ARE ALL DATA
;WORDS THE SHOULD NOT
;HAVE BEEN CHANGED BY
;WRITE COMMAND

;RETURN TO
;1S THIS A
:BRANCH If
;1S THIS A

THE

COMPAR]ISON SUBROUTINE
HCRC ON HCE CHECK?
HCRC
READ COMMAND
:BRANCH IF YES
1%
SRHER1 ,a¥#$BDODAT ;TEST DATA
;ONLY HEADER COMPARE BI1?
#HCE ,3#SBDDAT
: SHOULD BE SET
;BRANCH IF GOOD
7%
SNRHER1 ,@#REGADR ;REGISTER ADDRESS RHER!

CIRJHDO,RPOL/S5/6 DSKLS CTRLR?
CIRJHD.P12
01-MAR-79 09:10
8597
8598
8599
8600
8601
8602
8603
8604
8605
8606
8607
8608
8609
8610

8611
8612
8613
8614
8615
8616
8617
8618
8619
8620
8621
8622
8623
8624
8625
8626
8627
8628
8629
8630
8631
8632

050210
050216

012737
106027

050220
050222
050222
050230

000460

017737
022737

050236
050240
050246
050254

050256
050260
050266
050270
050276
050304
050306
050314
050322

000200

30A(1052)
24-MAY-79
(HECK HCE ROUTINE

001124

164532
100200

001126
001126

014760

100200

045662
001124

000072

001210

11%:

15:07

N 15
PAGE

MOov
ERROR

#HCE ,9#3GDDAT
27

MoV

SRHER1 ,@#$BDDAT

cmp

BEQ

Mov
MoV

ERROR

197
;GOOD DATA
AFTER AN ERROR ON THE
sHEADER ONLY HCE SHOULD

;BE

SET

;TEST DATA

#DCK!HCE,8#$BDDAT
7%

SEQ 0195

:ONLY HEADER COMPARE BIT?

:SHOULD BE SET
;0CK 1S SET BECAUSE ECC IS NOT READ
;BRANCH IF

GOOD

S¥RHERY ,3#REGADR ;REGISTER ADDRESS RMER!
#OCK!HCE ,8#S$GDDAT
;GOOD DATA
27
;AFTER AN ERROR ON THE
sHEADER ONLY HCE SHOULD
7%
N72,308TMPS
12%

:BE SET
;1S THIS A READ COMMAND?
;BRANCH IF A READ

000400

001126
001126

BR
Cmp
BtQ
MOV
CMpP

014760
000400

045662
001124

MoV
MOV

S#RHER1,3#REGADR ;REG. ADDR = RHERI

BR
MOV

SRHER1 ,8#$BDDAT

144466

106027

MACY11

6%:

8taQ

ERROR

SRHER1,a8#$BODAT
;:CRC.G'SBDDAT
#HCRC,3#3GDDAT

;TEST DATA
;ONLY CRC ERROR SHOULD BE
;GOOD DATA

sAFTER A CRC ERROR ONLY (RC

; SHOULD BE SET
sBRANCH 0UT

050324
050326

000416
017737

164426

001126

050334

022737

100400

N01126

cmp

#DCK!HCRC,a#$BDDAT;HCRC AND DCX

050342
050344
050352
050360

001407
012737
013737

1 ?0400

001124
045662

MOV
Mov

BEQ

7$
;BRANCH 1F GOOD
#OCK!HCRC,a#SCDDAT;GOOD DATA

050362

104027

000200

014760

12%:

ERROR

7%:

RTS

THERE

;TEST DATA

SHOULD BE

SET

;0CK IS SET BECAUSE ECC 1S NOT READ

SFRHER1 ,@#REGADR; FAILING REGISTER RHER1
27
sAFTER A CRC ERROR ON A READ
;DCK AND HCRC SHOULD BE

SET

;0CK IS SET BECAUSE ECC IS NOT READ

JRETURN T0 MAIN TEST

CIRJHDO,RPO4/S5/6 DSKLS CTRLR?
CIRJHD P12
01 -MAR-79 09:10

MACYIN

8633
8634
8635
8636
8637
8638
8639
8640

B 16
30A(1052)
24=-MAY-79
15:07
PAGE 198
EXIT WRT HEADER & DATA ROUTINE
LSBTTL

EXIT WRT HEADER & DATA ROUTINE

:;"""""""'""""""'"""""t"""'t"'t"""tt"'t

;THIS 1S A SUBROUTINE TO LEAVE AT THE MIDDLE OF
;A WRITE

HEADER AND

DATA COMMAND

;1T TRYS TO GET SECTOR 10, TRACK O, CYLINDER O
;BUT COMES OUT AFTER ONE SECTOR
: THE COMMAND 05 JSR PC,a#MIDDLE
;BAL 1§ SET

REL

8642
8643
8644
8645
8646
8647
8648
8649
8650
8651
8652
8653
8654
8655
8656
8657
8658
8659
8660
8661
8662
8663
8664
8665

SEQ 0196

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

050364
050364
050366
050370

MIDDLE:

015172

144360

050376
050404
050412
050420
050426
050434
050440

177766
015220
000010
000010
146330
000001

144344
146340
144342
144326
144332

050466

050446
050454
050462
050466
050470
050472
050474

000001
000001

144322
144274

010000

057056

000207

MGV

R1,-(SP)
SYWRIFOR,aRHCST

MoV
Mov

#-10.,3RHWC
#WRFROM,aRHBA

MOV

#DMD ,aRHMR

JSR

R1,a#SEARCH

mov
BIS
MOV
(LR
MoV

BIS
MID:

RO,=-(SP)

MOV
MOV

#10,aRHDST
#8A1,9RH(CS?
#FMT22,aRNHOF
aRHCA
#1,3/M1D

#60,a3RHCST

.WORD
MOV

0
(SP)+,R1

RTS

Mov

(SP)+,RO

:;PUSH RC ON STACK

::;PUSH R1 ON STACK
;WRITE HEADER AND DATA=6?2

;IN RHCSY

;10 WORDS
;BUS ADDRESS=WRFROM

;DESIRED TRACK=0 SECTOR=10
;BUS ADDRESS INCREMENT INMIBIT
;FORMAT 16 BIT WORDS
;s CYLINDER=0
:SECTOR 1S SET T0 1 SO THAT
;WE CAN GET OUT AT THE
;MIDOLE OF AN OPERATION
:LOOKING FOR SECTOR 10
;SET

DIAGNOSTIC MODE

:60 TO RHCS! WITH 62

;SECTOR
::POP STACK

INTO R1

::POP STACK INTO RO

CIRJIHDO,RPOL/S/6 DSKLS CTRLRZ
CIRJHD P12
01-MAR-79 09:10
8666
8667
8668
8669
8670
8671
8672
8673
8674
8675
8676
8677
8678
8679
8680
8681
3682
8683
8684
8685
8686
8687
8688
8689
8690
8691
8692
8693

8694
8695
8696
8697
8698
8699
8700
8701
8702
8703
8704

MACY1Y

C 16
30A(1052)
24-MAY-79
15:07
PAGE
EXIT WRT HEADER & DATA ROUTINE
LSBTTL

JAM CURRENT

199

Sea 0197

CYLINDER ROUTINE

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

;*THIS SUBROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER
;*THIS 1S DCNE BY GIVING A SEEK COMMAND THEN AN INIT

;*WHICH WILL LOAD THE CURRENT CYLINDER WITH THE DESIRED CYLINDER VALUE
- v

;vCALL IS:

M
1

JSR
XC

RO,3#MAKECYL

MOV

RS,-(SP)

;:PUSH RS ON STACK

sus

¥ ,9WPCJUSR

;SAVE PC OF JSR

;DESIRED VALUE OF CURRENT CYLINDER

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

050476
050476
050500
050504
050512
050514
050520
050524
050532
050540
050546
050550
050552
050554
050556
050562
050570
050574
050576
050602
050610
050612
050612
050614

MAKECYL:

015132
000004

MoV

015132

MOV
MOV
CLR
MOV
MOV
BIS
NOP
NOP
NOP
NOP
JSR
MOV
cMp
BEQ
MOV
MOV

144250

144236

015200
000001
000001

046116
1462¢6
001126

013737
104030

012605
000200

001124
01501¢

144224
1446236
1464210

001126

045662

ERROR

MOV
RTS

RO,8#PCJSR

(RO)+,RS
RS ,QRHCA
oRHDST
ONSEECOM,9RHCST
#DMD ,aRHMR
#60,3RHCST

;PC OF

JSR+4

:GETTING READY TO FILL DESIRED CYLINDER
sFILL DESIRED CYLINDER REGISTER
:MAKE SURE DESIRED SECTOR TRACK IS NOT ILLEGAL
;FILL SEEX COMMAND
;SET DIAGNOSTIC MODE
;60 10 SEEK
sALLOW TIME FOR SEEX TO HANG UP
:ALLOW TIME FOR SEEK TO HANG UP
;ALLOW TIME FOR SEEK TO HANG UP
;ALLOW TIME FOR SEEK TO HANG UP
PC,a#CLDISK
;GIVE INIT
oRHCC,a#SBDDAT
;TEST DATA
RS,a#$BDDAT
:COMPARE CURRENT CYLINDER
1%
;BRANCH If 6OOD
RS,a#SGDDAT
;600D VALUE OF RHCC
O#RHCC,a#REGADR ;FAILING REGISTER ADDRESS

(SP)+,RS

,CURRENT CYLINDER DOES NOT MAT(H DESIRED CYLINDER

:REGISTER AFTER A SEEK AND AN INIT

;:POP STACK

INTO RS

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD.PY2
8705
8706
8707
8708
8709
8710
8711
8712
8713
8714
8715
8716
8717
8718
8719
8720
8721
8722
8723
8724
8725
8726
8727
8728
8729
8730
8731
8732

D 16

30A(1052)
24=-MAY=-79
15:07
PAGE
JAM CURRENT CYLINDER ROUTINE

LSBTTL
Cr

RN ER N LT RN

200

SEQ 0198

ECC GENERATION AND COMPARISON ROUTINE
RS ERACERCERENOOROOERORROROROROOERORAROEROOORORORPOEORNOEROOOTEY

:+THIS SUBROUTINE GENERATES AND TESTS ECC
;v CALL
JSR PC,ECTEST

050616

000000

ECDATA:

050620

000000

GECCY:

050622

000000

GECC?:

050624

000000

TSECCG:

=10
—

PIE30
PIES
PI1E3?

0 WNO

= OO0V

VSN —O

=100000
=40000
=20000
=10000

~no

T
O

VOV UVVUVOVVVOVUVOVVOVOUVUTVOVOOVOVVOVOVOOUVOVOVODO

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

[aal

100000

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

[aalaalaalaalaalaslaalaalaslaalaakaalaalaalaalaalaskaslaslaalaslaslaslaslaskaslasl

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

—

8733
8734
8735
8736
8737
8738
8739
8740
87461
8742
8743
8744
8745
8746
8747
8748
8749
8750
8751
8752
8753
8754
8755
8750
8757
8758
8759
8760

MACY11

;DATA BIT

FOR ECC

;1F ALL ONES THEN CURRENT BIT IS A ONE
;1F JERO THEN CURRENT BIT IS A lERO

;LOW ORDER ECC WORD TO BE GENERATED MERE
H ORDER ECC WORD TO BE

GENERATED HERE

177777 CENERATE AND TEST ECC FOR THIS BI1
0 DO NOT GENERATE AND TEST ECC FOR THIS BIT

CIRJIHDO,RPOL/S5/6 DSKLS CTRLR?
CIRJHD P12
01-MAR-79 09:10
8761
8762
8763
8764
8765
8766
8767
8768
8769
8770
8771
8772
8773
8774
8775
8776
8777
8778
8779
8780
8781
8782
8783
8784
8785
8786
8787
6788
8789
8790
879
8792
8793
8794
8795
8796
8797
8798
8799
8800
8801
8802
8803
8804
8805
8806

8807
8808
8809
8810
8811
8812
8813
8814
8815
8816

MACY11

E 16
30A(1052)
26-MAY-79
15:07
PAGE 20!
tElC GENERATINN AND COMPARISON ROUTINE

050626
050630
050632
050634

113713
000000
000000
010041

NCODE:
NCOUNT:
POSITI:
HARDER:

38899.
0
O
4129.

050636

000000

DATENV: O

050640

000090

ILODE:

:N=-CODE WORD
: TEMPORARY N (ODE
;POSITION REGISTER
;HARD ERROR COUNT

:TRUE COUNT IS 4128 BUT AS (OMPARES ARE
;DONE ONE STAGE LATER SO 4129
:DATA ENVELOPE FOR TYPE OUT

:MAX FOR WRITE 1S 4096
;MAX FOR READ IS 4128

:LEADING ZEROS ENVELOPE FOR TYPE OUT

sTHIS

IS SHUT OFF

:IN ENABLED
sMAX COUNT

050642
050644
050646
050650
050652

000000
000000
000000
000000
000000

:gDTPP:

P12:
P2e:
P26

0
0
0

ECTEST:

050654

050654
050656
050660
050662
050664
050666
050670
050674
050700
050704

050620
050622
050616

RO,=-(SP)

Mov
MOV
MOV
Mov
Mov
MOV
187

R2.-(SP)
RY
(SP)
R4 ,-(SP)
RS,=-(SP)
afGECCY, R
ANGECC2,R2
SFECDATA

BFQ

]S 38859

R1,-(SP;

;;PUSH RO ON STALK

::PUSH R1

::PUSH
;:PUSH
:;PUSH
::PUSH

:1F CARRY IS NOT ZERO THEN D-1
:INVERY x32 10 GIVE RO
050706
050710
050714
050716
050720

010103
052703
005103
010300
000404

050722
050724
050730

010103
042703
010300

050732
050734

000241
006000

177776

1%:

MOV

BIS
(oM
MOV

177776

2%:

1%:

WHEN POSITION COUNTER

:TEMPORARY HARD ERROR COUNT

MOV

SEQ 0199

R1,R3

¥ (CP1E32.R3

R3,RO

:1F CARRY 1S ZERQ "HEN D=0
:X32 BECOMES RO
R1,R3Y
Moy
P CPIE3R,F3
8IC

MOV

R3,RO

CLc
ROR

ON STA(K

R2 ON STACK
R3 ON STACK
R4 ON STACK
RS ON STACK
sECCY WORD
;ECC2 WORD
;1S CURRENT BIT A ONE

:BRANCH IF CURRENT DATA D-0

CIRJHDO,RPO4/5/6 DSKLS CTRLRZ
CIRJHD P12
01-MAR-79 09:10
006000

ROR
Ts7

005700
001462

050744
050746
050752
050754
050760

8taQ

RO
RO

10%

137777

050644
050644

MoV

R2,R3

MOV
ASR

R3,a#P3}
af#P3

BIS
coM

SEQ 0200

;BRANCH ]F RO=0

s INVERT X2

P CP1E2,R3
R3

s INVERT x11
050764
050766
050772
050774
051000

010203
052703
005103
010337
006237

177737

050646
050646

MOV
BIS
COM
MOV
ASR

R2,R3
#*CPIEVT,R3
R3
R3,a#P1?
arpP12

: INVERT Xx21
051004
051006
051012
051014
051020

010103
052703
005103
010337
006237

173777

050650
050650

Mov

R1,R3

ASR

afrpP2?

BIS
com
MOV

#*CPIE21,R3
R3
R3,a#P22

:INVERT x23
051024
051026
051032
051034
051040

010103
052703
005103
010337
006237

176777

050652
050652

MOV

BIS
COM
Mov
ASR

R1,R3

#*CPJE23,R3
R3

R3,AFP24
arP2L

:NOW THAT RO
;
P3
:
P12
P22

1
3
12
22
P24 FOR POSITION 24

FOR
FOR
FOR
FOR

POSITION
POSITION
POSITION
POSITION

:ARE KNOWN THE ROTATE
;THESE BITS JAMED IN

050650
050652
1002400

— e s s ()

0500644
050646
120020

NNV
D

005000
053700
053700
042701
050001

ROR

NOVDND

006002
206001
053700
053700
042702
050002

DODODDODD
D

051044
051046
051050
051054
051060
051064

— Pt Gt s

8863
8864
8865
8866
8867
8868
8869
8870
8871
8872

050736
050740
050742

F 16
30A(1052)
24-MAY-79
15:07
PAGE 202
ECC GENERATION AND COMPARISON ROUTINE

8817
8818
8819
8820
8821
8822
8823
8824
8825
8826
8827
8828
8829
8830
8831
8832
8833
8834
8835
8836
8837
8838
8839
8840
8841
8842
8843
8844
8845
8846
8847
8848
8849
8850
8851
8852
8853
8854
8855
8856
8857
8858
8859
8860
8861
8862

MACY11

WwitL BE

R2
R1
a#P3,RO
a#P12,R0
#PIEVIPIE3!PIEYZ,R?
RO,R2

a#pP22,R0
a#P24 RO

#P1E22 .PIF24,R]

RO,R1

DONE

AND

CIZRJHDO,RPO4L/5/6 DSKLS CTRLR?
CIRJHD.P12
01-MAR-79 09:10

8923
8924
8925
8926
8927
8928

051106

6 16
30A(1052)
15:07
PAGE 203
24-MAY-79
ECC GENERATION AND COMPARISON ROUTINE

000404

SEQ 0201

12%

:THE PROGRAM (OMES HERE

RO=0

—

-—

108:
(=]

ororNO

WA
N — s s

el
el

e
il

il
)
)
—

il ool

DDA

)

;S0 AFTER ROTATE RO GETS PUT INTO POSITION 1

QCOOOOO

8873

8874
8875
8876
8877
8878
8879
8880
8881
8882
8883
8884
8885
8886
8887
8888
8889
8890
8891
8892
8893
8894
8895
8896
8897
8898
8899
8900
8901
8902
8903
8904
8905
8906
8907
8908
8909
8910
8911
8912
8913
8914
8915
8916
8917
8918
8919
8920
8921
8922

MACY'1

051134

001432

051136
051144
051146
051154
051156

032777
001005
032777
001401
000421

051160
051162
051166
051172

010146
062716

022677
001404

100000
050620
050622
050624

000400

127774

000100

127764

004737

045616

000407
023777
001403

050632

051214
051220

004737
104035

143574

R2
R1

MOv
MOv
ST

R1,9#GECCY
R2,9#GECC?

SMTSECCG

;SAVE ECCI
;SAVE ECC2

BeQ

149

;BRANCH IF

BIC

#PIEY,R2

s *CHECK HARDWARE
#SW8 3SR
817
15%
BNE
FSW6,85WR
BIT
15%
BEQ
149
BR
15%:

174000
143616

051174
051200
051202
051204
051212

104035

12%:

ROR
ROR

13%:

045616

MoV

R1,-(SP)

#174000, (SP)
BIC
CMp
(SP)+,aRHE(2
13%
BEQ
.10 SAVE TIME
JSR
ERROR
BR
CMP
BEQ

PC,a#PUTREG
35
14%

JSR

PC.a#PUTREG

S#POSIT],3RHECT
149
;10 SAVE TIME

ERROR

;1S HARDWARE 10 BE CHECKED
;1F 21777777 TEST HARDWARE
;1F = 0 DO NOT TEST HARDWARE
HARDWARE NOT

TO BE

CHECKED

;1S SWIT(H B SET
SW8 IS SET
;1S SWITCH 6 SET

;BRANCH ]F

;BRANCH IF

SW6 1S NOT SET

;1F SWITCH 8 IS NOT SET AND
;SWITCH 6 IS SET THEN
;D0 NOT DO COMPARES
:GOOC PATTERN REGISTER
;GET ONLY PATTERN BITS

;COMPARE PATTERN REGISTER

:BRANCH IF GOOD

:SAVE REGISTERS

;PATTERN REGISTER
;BRANCH 0OUT

IN 11

BITS

IN ERROR

; COMPARE POISTION REGISTER
;BRANCH IF GOOD
;SAVE REGISTERS
;POSITION REGISTER IN ERROR

;"'DATA ENVLOP'' GIVES NUMBER OFf (LOCK
:PULSES FROM BEGINING OF COMMAND
;THAT

IS THE

CLOCKS

IN THE R/W DATA FIELD ENVELOPE

"IN A WRITE THERE ARE 10000 OCTAL CLOCKS
"IN A READ THERE ARE 10040 OCTAL CLOCKS

1''N-CODE ZEROS'* GIVE THE NUMBER OF CLOCKS
" GIVEN FOR THE LEADING ZEROS FIELD
"MAX COUNT

1S 113713 OCTAL

600D POSITION'' GIVES NUMBER OF CLOCKS

“GIVEN AFTER LEADING IEROS WHiCH IS FOR THE DATA
"FIELD
"MAX COUNT

051222

14%:

10040 OR

10041

OCTAL

CIRJHDO,RPO4L/S/6 DSKLS CTRLR?
CIRJHD.PY?
01-MAR-79 09:10
8929
8930
8931
8932
8933
8934
8935
8936
8937
8938
8939
8940
8941
894°
8943

8944
8945
8946
8947
8948
8949
8950
8951
8952

8953
8954
8955
8956
8957
8958

8959
8960
8961
8962
8963
8964
8965
8966
8967
8968
8969
8970
8971
8972
8973
8974
8975
8976
8977

8978
8979
8980
8981
B982
8983
2984

051222
0512264
051226
051230
051232
051234
051236

MACY11

H 16
30A(1052)
24-MAY-79
15:07
PAGE 2U4
ECC GENERATION AND COMPARISON ROUTINE

012605
012604
012603
012602
012601
012600
000207

mov
mov
Mov
Mov
Mov
MOv
RTS

.SBTTL

SEQ 0202

(SP)+ ,RS

:;POP STACK [NTO RS

(SP)+ ,R3
(SP)+,R2
(SP)+ R
(SP)+,RO

;;POP
:;POP
;;POP
;;POP

(SP)+ R4

;.POP STACK

INTO R4

STACK INTO R3
STACK INTO R?
STACK [NTO R
STACK INTO RO

ECC GENERATION CONTROL ROUTINE

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

:+THIS SUBROUTINE WILL CONTROL THE ECC GENERATION ROUTINE
;*FOR ERROR CORRECTION PROCESS

;*CALL
.

JSR,
XpP

PC,a#ECORR

;EXPECTED POSITION REGISTER WHEN CORRECTION IS COMPLETE

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

051240

000000

051242
051246
051254
051260
051262
051266
051272

010037

ERPOS:

ECORR:

MOV
SuB
rov

RO,a#PCJSR
#6,30PCJSR
(RO)+,3MERPOS

;SAVE PC OF JSR + &
;SAVE PC OF JSR
;GET POSITION REG. WHEN CORRECTION IS COMPLETE

Mov

d#RHMR R

;MAIMTENANCE REGISTER

CLR

afECDATA

;ECC DATA IS ZERO

181

afPOSIT]

INC

a¥Z(0DE
3%

012037

015132
000004
051240

013701
012711
005037

014776
000001
050616

051276
051302
051304
051310
051312
051314
051320

005737
001007
005337
001001
000403
005237
000420

050632

050640

6%:

051322
051326
051334
051336

005237
023737

050632
051240

050632

2%:

050642

050632

051344
051346
051352

162737

010146

015132

MOv
Mov

050630

000400

BNE
DEC
BNE
BR
BR

INC
(MP
BHIS
(mp

045616

051362
051366
051372

000002
000002
050654

1%:

R1,-(SP)
#DMD,aR1

2%
d¥NCOUNT
6%
2%

::PUSH RY

ON >TA(CK

;SET DIAGNOSTIC MODE

;1S

BIT

SOFTWARE POSITION NON ZERO

;BRANCH IF N-CODE S COMPLETE
;DECREMENT N-CODE
;BRANCH IF N-CODE IS NOT COMPLETE
;BRANCH AS N-CODE IS COMPLETE

; INCREMENT CLOCKS GIVEN FOR LEADING ZEROS
;BRANCH AS N-CODE 1S NOT COMPLETE
;60 10 GIVE CLOCK AND TEST ECC
: INCREMENT SOF TWARE POSITION
afPOS1TI
aNERPOS ,a#POSITI;HAVE ENOUGH CLOCKS BEEN GIVEN TO DETECT ERROR
;BRANCH IF MORE CLOCKS TO BE GIVEN
3%
ENOUGH CLOCKS BEEN GIVEN FOR HARD ERROR
OSITI;HAVE
S¥HADTMP,3#P
;THAT

1S HAVE 4128 MORE CLOCKS BESN GIVEN

;BRANCH IF YES
;CHECK ZERO DETECT BIT IN RHMR

BEQ
Bl
BNE

5%
#ER,3R1

JSR
ERROR

PC,a#PUTREG
34

:SAVE REGISTERS
;LERO DETECT BIT NOT HIGH

B1S
Bl
JSR

MCLK, ekl
MMCLK,aR]
PC,aNECTEST

$SET CLOCK
;CLEAR (CLOCK
;60 TO GENERATE AND TEST ECC

;10 SAVE

051354
051360

;POSITION REG. WHEN CORRECTION 1S COMPLETE

TIME

;BRANCH IS ZER SET

;WHEN 21 BITS IN ECC 32 BIT REGISTER IS

CIRJHDO ,RPOL/S5/6 DSKLS CTRLR?
CIRJHD P12
01-MAR-79 09:10

8995

051376

30A(1052)
264=MAY=-79
15:07
PAGE 205
ECC GENERATION CONTROL ROUTINE

000737

BR
;THIS

1%
EXTRA

SEQ 0203

; CONTINUE
CLOCK

TO BRING ECH HIGH

051410
0514610
0514612

—

051400
051404

;AFTER THIS CLOCK POSITION REGISTER MAY BE
(=]
&H o

8985
8986
8987
8988
8989
8990
8991
8992
8993
8994

MACY11

012601
000200

000002
000002

5%:
4%

sSET (LOCK

BIS

IMCLK,aR]
AMCLK, 3R

sCLEAR CLOCK

MOv
RIS

(SP)+
R
RO

:.POP

BIC

STACK

INTO R1

10040 OR

10041

OCTAL

CIRJHDO,RPO4/S/6 DSKLS CTRLR2
CIRJHD.P1?
01-MAR-79 09:10

MACY11

J 16
30A(1052)
24-MAY-79
15:07 PAGE 206
SOF TWARE DISK DATA ECC GEN. ROUTINE

ggg?

LSBTTL

SOFTWARE DISK DATA ECC GEN. ROUTINE

8998

8999

c¢THIS SUBROUTINE GENERATES THE ECC FOR WHAT

9001

9000

9002
9003
9004

9005
9006
9007
9008
9009
9010
9011
9012
9013
90/,
9015
9016
9017
9018
9019
9020
9021
9022
9023
902&

XX e

;*ON LOCATIONS ‘'DISK+1000'" AND ''DISK+1002"

051614

051414
051416
051620
051422
051424
051426
051430
051434
051440
051444
051450
051454
051460
051462
051464
051466
051474
051476
051502
051506

010046
010146
010246
010346
010446
010546
005037
005037
005037
012701
012702
012703
012104
006004
103004
012737
000402
005037
004737
005303

9025
9026
9027
9028
9029
9030
9031

051510
051512
051514
051516
051524
051532
051534

001364
005302
001357
013737
013737
012605
012604

9036

051546

000207

9032
9033
9034
9035

SEQ 0204

051536
051540
051542
051544

012603
01260°2
012601
012600

FILLEC:

050632

(50620
050622
054726
000400
000020

9% :
10%:

177777

050616

050616
050654

050620
050622

11%:
12%:

055726
055730

MOV
Mov
Mov
MOV
MOV
MoV
(LR
(LR
(LR
MOV
MoV
MOV
MOV
ROR
BCC
MOV
B8R
CLR
JSR
0EC

X R R R AR

RO,-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
R&,-(SP)
RS,-(SP)
afPOSITI
e¥GECC)
S#GECC2
#D1SK R
#256. ,R2
#16.,R3
(R1)+ RS
R4
11%
#-1,a0ECDATA
12%
afECDATA
PC,eMECTEST
R3

:;PUSH RO ON STAC(CK
;sPUSH R1 ON STACK
:sPUSH R2 ON STA(K
;sPUSH R3 ON STA(K
::PUSH R4 ON STACK
; sPUSH RS ON STACK
;CLEAR POSITION
;CLEAR GECCH
; CLEAR
sPOINTER TO DATA FOR ECC GENERATION
;sCOUNTER FOR NUMBER OF DATA WORDS
;COUNTER FOR NUMBER OF BITS PER WORD
;DATA IN R4
;GET ONE DATA BIT IN CARRY
;BRANCH IF DATA BIT IS ZERO
;ECC DATA BIT IS A ONE
sBRANCH TO GENERATE ECC
;ECC DATA BIT IS A ZERO
;60 TO GENERATE ECC
;DECREMENT BIT COUNT

(SP)+,R3
(SP)+,R?
(SP)+ R}
(SP)+,RO

;.POP
;. POP
:;POP
::POP

BNE
DEC
BNE
MOV
MoV
MOV
Mov

109
;BRANCH [F 16 BITS NOT DONE
R2
;DECREMENT WORD COUNT
9%
;BRANCH IF 256 WORDS NOT DONE
INSERT ECCY ON DISK
INGECC) ,3#DISK*+<256.92>;
ANGECC2,aNDISK+<257
. ¢2>; INSERT ECC2 ON DISK
(SP)+ RS
;:POP STACK INTO RS
;s POP STACK INTO Ré&
(SP)+,R&

RTS

MOV
MOV
MOV
MCvV

IS ON DISK AND INSERTS THEM

STACK
STACK
STACK
STACK

INTO R3
INTO RZ2
INTO R1
INTO RO

CIRJHDO.RPO4L/S/6 DSKLS CTIRLRZ
C(IRJHD.P12
01-MAR-79 09:10
9037
9038
9039
9040
9041
9042
9043
9044
9045
9046
9047
9048
9049
9050
9051
9052
9053
9054
9055
9056
9057
9058
9059
9060
9061
9062
9063
9064
9065
9066
9067
9068

9069

9070
9071
9072
9073
9074
9075
9076
9077
9078
9079
9080
9081
9082

9083
9084
7085
9086
9087
9088
9089
9090
9091
9092

MACY1Y

30A(1052)
24-MAY-79
15:07
SOF TWARE D1ISK DATA ECC GEN.

.SBTTL

16
PAGE 2U7
ROUTINE

SEQ 0205

RH BASE ADDRESS CHANGE ROUTINE

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

o
.

THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE
ADDRESS FROM 17670C TO ANY TYPED VALUE

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

051550
051550
051554

000425

051630
051630
05163¢4
051636
051642

013746
104402
1046401
000425

004737

060506

012700
012701
012737
021637
001431
005776
163716
061620
005301
001375

014746
000026
052534
014756

051716
051716
051722
051724

051730
051734
051742
051746
051750
051754
051760
051762
051764
051766
051772
052032
052032
052036
052040
052044

052144
0521446
052146
052152
052156

052214
052214
052220
052222
052226
052264
052264

052270
052272

104401

1044612

104401

000417
013746
104402
104401

000437

BASECH.

051556

012637

104401
000416

?OV

afRHCST,-(SP)

;GET READY TO TYPE OLD BASE

051644

TYPE

,67%

:;TYPE ASCIZ STRING

000000
014756

66%:

013746
106402
104401

:GET STARTING ADDRESS OF

MOV

#ADTIMO,ans

JSET UP TO TEST THIS ADDRESS

55;5‘:

"
2:758:

749

::GET OVER THE ASCIZ

<15><12>/TYPE NEW BASE ADDRESS FOLLOWED BY °'CR' /

#22..R1

aSP,afRNHCSI
1%

80 (SP)

sNUMBER CF

REGISTERS

:NEW CSR?
:NO, THE OLD ONE WAS RETYPED
:ACCESS THE NEW ADDRESS

THE ADDRESS OFFSET
PLUG IT IN
LESS ADDRESS TO CHANGE
DO SOME MORE

Sus
ADD
DEC
BNE

SFRHCST Q5P
acP,(RO)+
R1
2%

;GET
;AND
sONE
;BUT

68%

;;6ET OVER THE ASCIZ

MOV

SNRPVEC.-(SP)

:GET READY TO TYPE OLD VECTOR ADDRESS

718

::TYPE ASCIZ STRING

JASCIZ

LASCIZ

RDOCT

MOV
TYPE

014744
052160

052300

#RHDB,RO

TYPE

S:718:

014744

MOV

TYPOC

052046

052230

INITIALIZE THE TTY KEYBOARD

TYPE

;529

104401

PC,afSTKINT

TS7

68%:

JSR .

Cmp
BEQ
2%:

REGISTERS

66%

CASCIZ

MOV

000004

;;GET OVER THE ASCiZ

<15><12>/PRESENT BASE ADDRESS OF

RDOC

051774

014744

LASCIZ
YPOC(

::275:

014756

000416

;s TYPE ASCIZ STRING

014756

éi25$:

013746
104402

,65%

6493

70%:

104412

TYPE

,69%

;:TYPE ASCIZ

STRING

<15><12>/PRESENT VECTOR ADDRESS

708

IS /

SIGET OVER THE ASCIZ

<15><12>/TYPE NEW VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED BY '‘CR"
(SP)+,a#RPVEC
738

:SETUP VECTOR ADDRESS
SSTYPE ASCIZ STRING

BR
CASCIZ

728
TiGET OVER THE ASCIZ
<15><12>/NEW BASE WILL REMAIN
= /

mov

= (SP)
IRHCST,

TYPE

BR
LASCIZ

,75%
s TYPE ASCIZ STRING
76$
“IGET OVER THE ASCIZ
<15><12>/NEW VECTOR WILL REMAIN = /

MOV

RPVEC ,=(SP)

T1YPE

178

T1YPOC

TYPOC

;s TYPE ASCIZ STRING

CIRJHDO,RPOL/S5/6 DSKLS CTRLR?
CZRJHD.P12
01-MAR-79 09:10
9093
9094
9095
9096
9097
9098
9099
9101
9101
9102
9103
9104
9105
9106

9107

)

) il

0 VOOV OVOOOOO

[aF] POPIN)
b b et b e b
(V) N OOVD~NO
N\ &

9108

052276

000417

052336
052336
052342

104401
000402

052364

052350
052350
052354

000424

104401

052356

152626

052626

052432

052510
052510
052514
052516
052522
052530
052530
052534
052536
052542
052614
052614

012746
104402

000200

000137
022626

RH BASE

:79%:
78%:

052524
6;255:

104401
000424

052544

000137

051550

ADDRESS

LASCIZ

TYPE

ADTIMO:

::2SS:

648

L 16
PAGE 208

15:07

CHANGE

JASCIZ

76%

::GET OVER THE ASCIZ

,79%

::TYPE ASCIZ STRING

<15><12>/UNTIL PROGRAM 1S RELOADED./

78$%

<15><12>/

;:GET OVER THE ASCI!Z
::TYPE

80%

ASCIZ

STRING

::GET OVER THE ASCIZ

<195><12>/UNLESS HALTED AND MANUALLY RESTARITED,/

,83%

;s TYPE ASCIZ STRING

829%

MOV
TYPOC

#RA,-(SP)

LASCIZ

SEQ 0206

ROUTINE

,818

B8R

TYPE

55235:

017360

24-MAY=79

TYPE

5621$:

052434

1044601

30AC1052)

%é;7$:

104401
000426

000402

MACY11

::GET OVER THE ASCIZ

<15><12>/PROGRAM WILL AUTOMATICALLY RESTART

TYPE
BR
JASCIZ

,85%
84%
<15><12>/ /

;;TYPE ASCIZ STRING
:;GET OVER THE ASCI2

JMP

S#BEGIN

:ALL DONE, NOW START OVER!

TYPE
BR
JASCIZ

,659%
::;TYPE ASCIZ STRING
649
;:GET OVER THE ASCIZ
<15><12>/SELECTED ADDRESS DID NOT RESPOND.

JMP

a#BASECH

(CmpP

(SP)+,(SP)+

FROM /

;*THIS 1S A LITTLE ROUTINE THAT TESTS NED BIT 11 IN RH(SZ
;*THIS LOOPS HERE

FOR EVER

;*T0 BE USED ONLY IF DRIVES PRESENT LOOKING AT NED DOES NOT AGRLE
052620
052622
052626
052632
052634
052640
052642
052644

000000
004737
013712
005714
032712
001401
000773
000772

;*WITH WHAT

046116
052620
010000

ERUNIT: 0
ERSTART:JSR
MOV
1%:
151
Bl1
2%:

BeaQ
BR
BR

1S REALY

THERE

PC,a#CLDISK
I#ERUNIT,aR?
aRé

#NED ,aR?
2%
1%
1%

;UNIT UNDER MANUAL TEST
:SET GENERAL REG.
sSELECT UNIT
;TEST RHERI
;TEST NED
;BRANCH IF GOOD
sNED NOT SET
;NED SET

9177
9178
9179
9180

9181
9182
9183
9184
9185
9186

9187
9188

9189
9190

R R

R X

DISK SIMULATION

RS XXX

AR XXX

XXX ARR2ARRR2RRARRARARZA)

XXX

NRANEARRA

;*WCLY=WITH CYLINDER TO BE ON DISK
;*WSECTR=WITH SECTOR AND TRACKX TO BE
;*WKEY1= WITH KEY1 TO BE ON DISK

RRRdR

ON DISK

;*WKEY2= WITH KEY2 TO BE ON DISK
: *FNWORD= NO OF DATA WORDS TO BE WRITTEN ON DISK
;*THE

COMMAND THEN

JSR PC,COMWHD

M
L4

*
*

;*IN A WRITE DATA COMMAND FILL

THE FOLLOWING

s*CYL=WITH CYLINDER TO BE FOUND ON D]SK

;*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK
;*KEY1= WITH KEY1 TO BE FOUND ON DISK
;*KEY2= WITH KEY2 TO BE FOUND ON DISK

;*X= 1

MUST BE ONE

;*THE

COMMAND THEN

®
»

we
ve

»
%

we
®e

1S JSR PC,COMHD

; *NOWORD= WITH NUMBER OF DATA WORDS TO BE WRITTEN

;*IN A READ HEADER AND DATA COMMAND FILL THE FOLLOWING
;oYL= WITH CYLINDER TO BE FOUND ON DISK

;*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK
;*KEY1= WITH KEY1 TO BE FOUND ON DISK
;*KEY2=WITH KEYZ2 TO BE FOUND ON DI5K
:*DAWORD= WITH NUMBER OF WORDS TO BE FOUND ON DISK

®e

2N
%
%

;o2 %X=0 MUST BE ZERO
;*THE COMMAND THEN IS JSR PC,COMHD

9167

9168
9169
9170
9171
9172
9173
9174
9175
9176

.SBTTL

9164
9165
9166

;*IN A WRITE HEADER AND DATA COMMAND FILL THE FOLLOWING

®e

9163

Sea 0207

9159
9160
9161
9162

n16
PAGE 209

9153
9154
9155
9156
9157
9158

o [X X

15:07

9140
9141
9142
9143
9144
9145
9146
9147
9148
9149
9150
9151
9152

30AC1052)
24-MAY-79
DISK SIMULATION

9136
9137
9138
9139

MACY1Y

CIRJIHDO,RPOL/S5/6 DSKLS CTRLRZ
01-MAR=-79 09:10
CIRJHD P12

;*IN A READ DATA COMMAND FILL THE FOLLOWING
;#CYL= WITH CYLINDER TO BE FOUND ON DISK

;*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK

TO BE FOUND ON DISK
BE FOUND ON DISK
TO
KEY2
;*KEY2=W]TH
; *DAWORD= W]TH NUMBER Of WORDS 10 BE FOUND ON DISK

;*KEY1= WITH KEY1

;*,X=0 MUST BE ZERO
;*THE

COMMAND THEN 1S JSR PC,COMHD

CIRIHDI,RPOL/S’6 DSKLS CTRLR?
(IRJIND.P1?2
01=-mAR-79 09:10

SeQ 0208

R R N NN N

;*THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES
:'léolsg?ES DIAGNOSTIC MODE, AND EXTRA DIAGNOSTIC INDEX, AND THE
..0

]

;*1T THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL
THE SUBROUTINES CALLED HERE ARE:

;*OTHER SUBROUTINES.

ot
ot

.t
it

052646
052650
052654
052662
052664
052606

000000
011637

162737
010046

015132
000004

RUNCTR:

015132

COMHD:

052670
052672
052674

052746

0527952
052756

:SAVE PC OF JSR ¢+ &
;SAVE PC OF JSR
;:PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK

MOV

RS,=(SP)

::PUSH RS ON STACK

#DMD ,aRNHMR
FMINX,aRHMR
FMINX, SRHMR

Mov
BIS
BIC

000113

052646

RUNWAT: MOV

053012
177740
052762
057056

142072
162064
162056
142030

052646

BIS

1%:

(SP),a#P(JSR
#4,3#PCJUSR
RO,=-(SP)
R1,=-(SP)
R2,=(SP)
R3,=-(SP)

MOV
SuB
L 101Y)
Mov
MOV
MOv

000001
000004
000004
000001

052726
052734
052740

052742

.WORD

s ISSUES SECTOR CLOCKS TO SET SECTOR FOUND FLOP
;READS THE SECTOR HEADER
;WRITES THE SECTOR DATA (WR]TE OPERATICON)
;READS THE SECTOR DATA (READ OPERATION)

WRDATA
REDATA

MoV

952676
052704
052712
052720

SEARCH
RDHEAD

WVASNIN

9244
9245
9246

~NNO O

9243

210

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

—

9241
9242

1
PAGE

——

“eOR READ COMMAND. 1.E DATA ONLY, OR HEADER AND DATA

O NN

9236
92%7
9238
9239
9240

“eWRITE DATA COMMAND

£ POPON

9235

15:07

—————.. _

[

9223
92264
9225
9226
9227
9228
9229
9230
9231
9282
9233
92%¢

30AC1092)
24-MAY-79
N
SIMULATIO
DISK

C =
-

9191
9192
9193
9194
9195
9196
9197
9198
9199
9200
9201
9202
9203
9204
9205
9206
92G?7
9208
9209
9210
9211
9212
9213
9214
92195
9216
9217
9218
9219
9220
9221
9222

MACY!Y

DEC

BNE

MOV

BIC
MoV
JSR

R4 ,=-(SP)

#GO,aRHCST

#75.,8#RUNCTR

SFRUNCIR

SECOTR, ~(SP)

#177740,(SP)
(SP)+,af#1RK
R1,88SEARCH

;:PUSH R4 ON STACK

;SET DIAGNOSTIC MODE
;ST DIAGNOSTIC INDEX
;CLEAR DIAGNOSTIC INDEX

:1SSUE *6GO* BIT & STALL 'TILL °‘RUN'

:FUNCTION CODE WAS

JSSUED BY THE

TEST

;LOAD STALL COUNT = APPROX. &50uUS FOR 11750 CPuU
;COUNT DOWN ONE

;CONTINUE UNTIL = 0
;GEY DESIRED SECTOR/TRA(K

;MAKE ONLY SECTOR
:SAVE SECTIOR
;1SSUE SECTOR (LO(KS (====cesccccccce- >

~es

9247
9248
9249
9250
9251

9252
9253
9254
92595

Q256

9257
9258
9259
9260
9261
9262
9263
9264
9265
9266
9267
9268
9269
9270
9271
9272
9273

052762
0527664
05277C¢
052774
03000
053004

000000
012701
010137
010137
010137
004137

053010
053012
053014
053016
053020

000000
000000
000000
000000
000000

000240
05302¢
053024
053026
053132

TRK :

.WORD
MoV
MoV
MOV
Mov

JSR

(ve:
SECOTR:
KEY1:
KEY?:
X:

.WORD
.WORD
.WORD
.WORD

.WORD

15:07

#+NOP R
R1,9#SSYN
R1,9#HEDGAP
R1,8#HEDSYN
R1,3#RDHEAD

Sea 0209

:GOING TO MOVE NOPS
;NOP
:NOP

INTO SSYN
INTO HEDGAP

;NOP INTO HEDSYN

READ THE HEADER (=<e====cc=--- >

;CYLINDER ADDRESS
:SECTOR/TRACK ADDRESS

;KEY1 WORD
;KEYZ2 WORD

;X=1 WRITE COMMAND
:X=0 READ COMMAND

053022

000240

SSYN:

NOP

;1F "ERROR 2'' INSERTED BY RDHEAD
; SUBROUTINE, THEN THE FIRST SYN(
;1S NOT DETECTED. NO BAD DATA
;1S GIVEN BECAUSE SYN(C=144000
WORD NUMBER
:CANNOT BE READ.
;1S ""1'" BECAUSE THIS IS THE FIRST
;WORD TESTED.

05302«

000240

HEDGAP:

NOP

:1F "'ERROR 3'' INSERTED BY
;RDHEAD SUBROUTINE, THEN THE
;HEADER GAP 0'S WERE NOT
;WRITTEN RIGHT.

9275
9276
9277

;1F "'WORD NO'' CONTAINS, SAY
;3(8), THEN 1T IS THE THIRD

9278
9279

9293
9294
9295
9296
9297
9298
9299
9300
9301
9302

PAGE 211

;DUMMY ERROR CALL LOCATIONS FOR THE READ HEADER OPERATION

9274

9280
9281
928?2
9283
9284
9285
9286
G287
9288
9289
9290
9291
9292

30AC1052)
2L4-PAY-T79
DISK SIMULATION

;WORD OF A 5 WORD HEADER
:GAP THAT

S WRONG.

:"'BAD DATA'" CONTAINS WHAT [S
:GOING ON THE DISK.

053026

000240

HEDSYN:

NOP

;1F "ERROR 3'' INSERTED BY RDHEAD
;SUBROUTINE, THEN THE HEADER SYNC
:GENERATED BY DCL
;OR THE LAST BYiE

IS WRONG,

;0f THE HEADER GAP 0'S 1S WRONG.
:IN EITHER CASE WORD NO-6,

;RIGHT BYTE

SLEFT BYTE

|S HEADER O,
1S SYNC.,

:"BAD DATA'' HAS WHAT [S GOING
;ON DISK.

053030
05303«

005737
001017

01512¢

1$1
BNE

QFERFLGS

;WERE ANY ERRORS DETECTED ?

05308%¢

005737

053020

181

afx

;1S 1T A DATA WRITE OPERATION ?

out

S1F

YES,

EXIT

=eeccemcececcmccccen- >

MACY11

OOOOO

CIRINDO,RPOL/S76 DSKLS CTRLR?
CIRJINMD P12
01-MAR-79 09:10

CIRJHDO,RPOGL/S5/6 DSKLS CTRLR?
CIRJHD P12
01-MAR-79 09:10
9303

053042
053044

001410
005737

053050

001011

053052
053056
053060
053062

0046137
000000
000000
000604

056376

053064
053070
053072

004137
000000

057332

053074
053074
053076
053100
053102
053104
053106
053110

000000

012605
012604
012603
012602
032601
012600
000207
-

MACY11

30A(1052)
DISK

SIMULATION

05312¢

NOWORD :
Y:

DAREAD:
DAWORD:

out:

J4=-MAY-79

15:07

8eaQ
151

DAREAD
S#NOSYNC

BNE

out

JSR
.WORD
.WORD
BR

Sl.alURDATA

0
out

1
PAGE 212

SEQ 0210

;NO...THEN DO A DATA READ
;1S THIS FORCED HEADER ERROR COMMAND ?
:1F YES NOSYNC==1 THEN WR]TE OR READ
SO BRANCH OUT
;1S SHUT OFfF
NOSYNC= O THEN CONTINUE
1f
SEXIT IF SET
;WRITE

DATA <

:NO OF WORDS TO BE WRITTEN

JSR
.WORD
.WORD

R1,3/REDATA

;READ DATA <

Mov
MOV
Mmov
MOV
MOV
MOV
RTS

(SP)+ RS

. POP
. POP
.POP
. POP
; 1POP
. POP
X117

0
0

(SP)+ R4

(SP)+ R3
(SP)+ ,R?
(SP)+ R

(SPY+ RO
P(

;NO OF

WORDS

STACK
STACK
STA(K
STACK
STACK
STACK

10O BE

INTO
INTO
INTO
INTO
INTO
INTO

Ré

R2
R1
RO

READ

CIRJHDO,RPOL/S/6 DSKLS CTRLR2

CIRJHD.P12

U1-MAR-79 09:10

9328

9329

MACY1Y

30A(1052)

24-MAY-79

DISK SIMULATION

15:07

1
PAGE 213

;;""'"0'"0""""""""""""""""Q""t'"l""'tt't

9330

3%%;

;vTHE DISK SECTOR 1S DEVIDED AS FOLLOWS

9333
gggg

:*19 WORDS OF 0, ONE WORD 144000
J*THESE MAKE 39 BYTES FOR SECTOR GAP AND ONE SYNC. BYTE

9336

9337
9338
9339
9340
9341

9342
9343

053112
053114
053116
053120
053122

014400
000000
000000
000300
000000

RSYNC:
RCYL:
RSETR:
RKEY1:
RKEYZ2:

14400
0
0
O
O

9346
9345
9346

:*S WORDS OF 0'S, ONE WORD 144000
;¢ THESE MAKE 11 BYTES FOR HEADER GAP AND ONE SYN(. BYTE
;*THESE ARE DCL GENERATED

9350

:*THERE ARE 256 WORDS OF DATA

9353

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

9347
9348
9349

9351
9352

9354
9355
9356
9357
9358
9359

:*THERE ARE 2 WORDS FOR ECC GENFRATED BY DCL
:+15 WORDS OF 0°'S FOR DATA GAP AND TOLERANCE GAP

SEQ 0211

MACY11

CIRJIHDO,RPOG/S/6 DSKLS CTRLR?
CIRJHD.P12
01-MAR=79 09:10
9360
9361
9362
9363
9364
9365
9366

DISK

24=-MAY=79

SIMULATION

0
p)
0
0
0
052
0427 0

053210

000404

012710
042710

000013
000012

9394
9395
9396
9397
9398
9399
348?

053222
053226
053232
053236
(053240
053242
053244

012702
052710
042710
005302
001372
005305
001362

000007
000002
000002

2%:
3%

053246
053252

012702
005037

000022
053720

9391
gggg

053212
053216

RO
O

ODOOO

)
)
——

el
il
il
il
——

b e

053174
053200
053204

ANV

053156

N—.—‘—.—J

9385
9386
9387
9388
9389
9390

053160
053164
053170

9382
9383
9384

PONINY
= =

OO0O0OO0O0O

7
7
7
7
7
6

VIV
AV IV IV ]

053132
053136
053142
053146
053152

NN NN AN

ERWORD: 0

000000
000000

- D

053126
053130

NOSYNC: O

9380
9381

9404
9405
9406

9407

9408
9409
9410
9411
9412
9413
9616
9415

SEQ 0212

053256
053262
053264

RDHEAD:

MOV
mov
Mov

(R1)¢ QNRCYL
(R1)+,Q#RSETR
(R1)+,@#RKEY]

MOV

(R1)+,3#COMPA

MoV

014776
000002
000001
000010
000002
000012

053266
053274
053300
053304
053306
053314
053322
053330

053724

013737
004737
032710
001012
012737
013737
0127%7
00057

053112
053724
001000

053720

000001
053112
104002

053130
001124

TYPE

NO.

;ERROR WORD NO.

(R1)¢ S#RKEY?2

;STORE CYLINDER ADDRESS
;STORE SECTOR AND TRA(CK ADDRESS
:STORE KEY]

:STORE KEY?
;STORE

COMPARE OR NOT

mov

R1,-(SP)

mov
Mov
Mov

Q¥RHMR , RO
#2,R5
#0MD,8R0

;RO CONTAINS MAINTANENCE REG.
;RS IS A COUNTER FOR WORDS
;SET DIAG. MODE

BR
MOV
BIC

2%
;DOON'T GIVE SECTOR CLOCK FIRST (IME
#MSTCK'MCLK!DMD,8R0O;SET SECTOR, CLOCK, DIAG. MODE, RESET
K ;RESET SECTOR & MAINT.(CLOCK
. MCLK,8RO
MSTC

mMov
BIS
8IC
DEC
BNE
DEC
BNE

N ,R2
MmCLK,aR0
MCLK,aR0
R?
33
RS
1%

;LOAD BYTE COUNTER
;SET MAINT, CLOCK
JRESET IT
;:BYTE COUNTER
:CONTINUE IF BYTE NOT COMPLETE
;WORD COUNTER
;CONTINUE IF WORD NOT COMPLETE

MOV
(LR
JSR
DEC

#18.,R2
S#WORD
P(,a#READ
R2

:LOAD NO OF WORDS OF ZEROS
;00 0'S
:READ 0'S (o=ececccccccanccana- >
;COUNT DOWN WORDS

MOV

SFRSYNC,3#WORD

;SYNC. WORD

BIT
BNE
MoV
Mov

sSYNC, BYTE DETECTED?
#D1SY,
;CONTINUE 1F SYNC DETECTED
5%
;ERROR WORD NO
#1,37ERWORD
SFRSYNC ,9#8GDDAT ; SYNC WORD

BNE

053022

;ERROR

;;PUSH R1 ON STACK

BIS
BIS
BIC

004737
005302
001372

;FORCED HEADER ERROR = =1
;NORMAL = 0

1v:

[

9402
9403

1
PAGE 214

;;"'Q""'"""""""""""""""'"""""""'."'.".

000000

9372
9373
9374
9375
9376
9377
9378
9379

S«READ DISK MEADER

0531264

9368
9369
9370
9371

15:07

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

OOOO0

9367

30A(1052)

JSR

MOV
BR

;SET SECTOR CLOCK FOR FIRST WORD
#MST(K,3R0
sSET MAINT,.CLOCK FOR FIRST WORD
MMCLK,8R0
LK ;RESET THEM
AMSTCKMC8RO

P(,@NREAD

@RO

; CONTINUE

JREAD 17 (eeeccecececccccecaans >

#1064002,8#SSYN ; INSERT ‘'ERROR 2'' IN SSYN
138

BRANCH OUT ==c===eccccoeeccceas >

INDEX

CIRJHDO,RPOL/S5/6 DSKLS CTRLR?

9441

9642

9443

9444
9445
9446

9447
9448
9449
9450
9451
9452
9453
9454
9455
9456
9457
9458
9459
9460
9461
9462
9463
9464
9465
9466
9467
9468
9469
9470
9471

5% :

053720

JSR
MOV

053720

MOV

054710
053724

053720

Y =

£SO

PORIRI
AU D — P —

30A(1052)
2L4-MAY-T79
DISK SIMULATION

053720

DDA
N
AN
e
N LN M
M N
AN

053332
053340
053344
0533%2
053356
053364
053370
053376
053402
053610

OCOOOOOOO

9616
9417
9418
9419
9420
9421
9422
9423
9424
9425
9426
9427
9428
9429
9430
9431
9432
9433
9434
9435
9436
9437
9438
9439
9440

01-MAR-79 09:10
o [elolololololalele]
C-0=-0=0-0=
PNV Y
XD
RV
AV Y
V]

CIRJHD.PY?2

MACY11

053720

JSR

Mov

JSR

1
PAGE 215

SEQ 0213

@FRCYL, @#WORD
PC,aNREAD
@SRSETR,3FWORD
PC,a#READ

;SETUP CYLINDER
TREAD I C(m=em=-emcccccccccaaaas >
;SETUP SECTOR/TRACK
‘READ THEM (m==-e-ecccecccccano- >

PC,aNREAD

READ [T Cm=mmmmemcamccccacaaoa- >

QYRKEY1,a#WORD

SFRKEY2,aPWORD

; SETUP KEY1

; SETUP KEY2

MoV

JSR

READ T Cemmmececccmcecacccca-o- >
;SETUP CRC
IREAD 1T Cemeemceccecccccccoaao- >

APTESDTE

;1S THIS A DRIVE

SFCOMPA
RE?

{15 THIS A READ OR WRITE COMMAND 2
:DO READ IF = 0

BNE

0537¢2

PC,aNREAD
SWWCRC,IWORD
PC.a#READ

JSR

015144

053414
053420
053422
053426

Moy

15:07

1§71

BtaQ

138

:BRANCH OUT

TIMING ERROR ?

YES ====-m=c=oac

;*CONTINUE WITH DIAGNOSTIC WRITE COMMAND
056712
000005

053430
053434
053440
053446
053452
053456
053460
053464
053470
053476
053504

000503

053506
053512
053514
053516
053522
053530
053532

013725
005302
001351
004737
023737
001426
005737

053536

001406

053540
053544
053546
053552
053554
053562

056154

053570
053576
053604

005737
001420
005037
000403
013737
013737
012737
012737
000443

093606
053612

013725
000440

05415¢

000006

054156
056154

053130

6%:

1S7

001126
053024

054154
054156
053112

7$:

001124
001124
001126
053130

164%:

15%:

053026

#6,3WERWORD
PC.aNWRITE
3#WWORD

RZ ,8#ERWORD

S7$GDODAT

;POINTER FOR HEADER GAP
INO OF WORDS OF ZEROS

:ERROR WORD NO SET
:FOR HEADER GAP
:TEST WRITTEN WORD

;CONTINUE

GOOD,

;WORD NO IN ERROR

THAT

;600D WORD SHOULD BE 0

mov

3;UU0RD,(R5)0

BNE
JSR
(MP
BEQ
s

Bta

14%

TS1
BEQ
(LR
BR

8#WWORD

MOV

MoV
Mov
MoV

10%:

B8R

DEC

054154

FHEGAP,
"S,R2

;BAD DATA
8/WWORD ,$BDDAT
#104003,3#HEDGAP;"'ERROR 2'' GOES IN HEDGAP
13%
;BRANCH QUT ==ecccccccccccacccan >

MoV
MOV

053124

053112
054154
000006
104003

MOV
JSR
BEQ
SuB
(LR

053130

001124
054154
104003

MoV
Mov

;SAVE HEADER GAP

PC,aNMWR]TE

;WRITE HEADER (DATA) GAP SYNC

SANOSYNC

;1S
;1F
;1S
:1F

?S:SYNC,GOUUORD

10$

THIS FORCED HEADER ERROR COMMAND ?
YES NOSYN(C==1 THEN WRITE OR READ
SHUT OFF SO BRANCH 0UT
NO NOSYNC=0 THEN CONTINUE
1T

;PRINT

;18 11 =02
;CONTINUE

TRUE ERROR

GOOD

8#3GDDAT
;17 SHOULD BE ZERO
15%
;BRANCH T0 TYPE ERROR
S/RSYNC ,3#%GDDAT;GOOD DATA
SVWWORD ,a#$BDDAT ;BAD DATA
#6 ,87ERWORD

#104003,3#HEDSYN

1 S‘

:aRAN(H

Mov

SFWWORD, (RS) ¢

SAVE DATA SYNC,

15‘

;Exl‘

OU‘

......... covoaconeonacew >

........ YL

ITITITIYTIYIYY S

CIRJIHDO ,RPOL/S5/6 DSKLS CTRLR2

CIRJHD.P12

01-MAR=-79 09:10

MACYT1

gz;g
9676
9475

9476
9477
9478
9479
9480
9481
9482

9483

9484
g«gs

486

053614
053620

0536264
053630
053632
053634
053642
053646
053652

053654

053660
053662
053664
053670
053672
053700

9492

053714

9493
9494

9495
9496
9497
9498
9499
9500
9501
9502

24=MAY=79

DISK SIMULATION

15:07

PAGE 216

:*READ COMMAND START FROM HERE

9487
9488
9489
9490

9491

30A(1052)

053706

053714

053716

012702
005037

004737
005302
001372
013737
004737
005737
001404

000005
053720

053724

053112
053724
053124

032710

001000

032710
000N
012737
013737

001000

001415
000403

012737
012601

000201

1'%
12%:

000006
053112

104002

053720

MoV
(LR

JSR
DEC
BNE
MoV
JSR
181

BEQ

PC,a#READ
R2
12%
SNRSYNC ,@#WORD
PC,aMREAD
3#NOSYNC
16%

:READ HEADER GAP (-====ccccccccca >
:ARE S HEADER GAP ZEROS COMPLETE 2
:1fF NOT CONT]NUE
;SYNC WORD
:READ HEADER (DATA) SYNC)
:FORCED SYNC ERROR ?
;1f NOT ERROR COMMAND CONTINUE

8EQ
8R

13%
17%

;1F 26RO BRANCH QUT =-==e=cccc--- >
:1F NOT 2ERO BRANCH TO ERROR

BIT
16%:
053130
0011264

053026

17%:
13¢:

»5,R2
WORD

811
BNE
MOV
MoV

MoV

MOV

RTS

#DT1SY,aR0

:SYNC. DETECTED

#DISY,
@RO
:SYNC. DETECTED ?
138
SEXIT 1F VES =eceececcccccccea- >
#6,30ERWORD
:ERROR WORD NO.
SVRSYNC ,a¥#SGDDAT; SYNC WORD

#104002,3#HEDSYN:MOVE "'ERROR 2"
(SP)+,R1

;:POP STACK INTO RI

(EX]T eemmcccccccccccccccecnaa- >

)

SEQ 0214

CIRJHDO ,RPOL/S/6 DSKLS CTRLR2

CIRJHD.P12

01=-MAR-79 09:10

MACY11 30A(10592)

9503
9504

9510

9511

9512
9513
9514
9515

053720

053722

9516

053724

9518
9519

053726
053732

9517

000000

010246

9520
9521
9522
9523
9524
9525
9526

053736
053742
053744
053750
053754
053760
053764

006037
103002
052710
012702
052710
005737
001411

9530

054002

9531

9532
9533

9534
9535
9536
9537
9538
9539
9540

9541
9542
9543
9544

9545
9546

9547

9548
9549
9550
9551
9592
9553
9554
9555
9556
9557
9558

053766
053772
053774

054004

054010
054014

054020
056022
054026
054030
054034
054036
054042

054046
054052
0564056
054060

054064
056066

054074

054076
054102
054106
054112
054114

054120
054122
054126
054130
054134

WORD :

000000

053724

9527
9528
9529

15:07

1
PAGE 217

R
A
A d e leg
:*READ ONE WORD IN ''WORD"
RR
R R
L]

9505

9506
9507
9508
9509

24=MAY=79

DISK SIMULATION

012705
012710

COMPA:

READ:

000002
000001

000020
000007
000012
050624

000020

005037

05066

000402

012746
006037

103002
012716
012610
005737
001404
005237
004737

052710
005737
001411
032710

001404
012737
000402

005037
012746
006037
103002
012716
012610
005737
001404
005237
004737

177777

1%:

5¢:

6%:

000020

2%:

050624

050636
050654
000002
05062¢

1%:

000020

050616
000001
053720

000021

0506264

050636
050654

MoV

R2,=-(SP)

;sPUSH R2 ON STACK

ROR
BCC
BIS
Mov
BlS

1S1
BEQ

a#WORD
1%
#MRD ,3R0
27,R?
AMSTCK'MCLK,8R0O
N TSECCG
6%

;CHECKING IF THERE 1S A ONE
:1F NO ONE BRANCH
:SET BIT & IF DATA HAS ONE
;BYTE COUNTER
;SET CLOCK,DATA IF ANY, SECTOR
;1S THIS BIT TO GENERATE AND TEST ECC ?
;BRANCH IF NO

MoV
ROR

#OMD ,-(SP)
S¥#WORD

Bl1
BEQ
MOV

050616

000001
053720

177777

MOV
MOV

053720

032710
001404
012737

CLR

B8C(C
MOV
MOV
181
8EQ
INC
JSR
8IS
181
BEQ
Bl

BEQ
MOV

050616

7%:
8%:

CLR
MoV
ROR
BC(
MOV

nov
1917
BEQ
INC
JSR

¥2,RS
#DMD ,aR0

#MRD,a3R0
5%
#-1,308ECDATA

SFECDATA

2%
#MRD 'DMD, (SP)
(SP)+,8R0
S#TSECCG
3%
SV¥DATENY
PC,ENECTEST

m(eLx,aRr0
SNTSECCO
8%
#MRD,aR0

7%
#-1,20ECDATA
8%
SFECDATA
#OMD , - (SP)
S#WORD
33
#MRD'DMD, (SP)
(SP)+,3R0
¥ 1SECCO
9%

SFDATENY
PC,aRECTEST

;WORD COUNTER
;SET DIAG. MODE

;1S DATA BIT A ONE ?
:BRANCH IF DATA B]T IS O
JECC DATA BIT IS A ONE
;BRANCH

;ECC DATABIT IS A O

:KEEP ONLY DIAG. MODE
;CHECKING IF THERE IS A ONE

:1F NO ONE BRANCH
sKEEP DATA AND DIAG. MODE
;PUT IN DATA,RESET CLOCK, SECTOR
;1S ECC TO BE GENERATED FOR THIS BI1
:BRANCH IF NO
sNUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE
:G0 TO GENERATE AND TEST ECC
:SET CLOCK
;1S THIS BIT TO GENERATE ECC
;BRANCH [F NO
;15 DATA BIT A ONE

:BRANCH I1F DATA BIT IS = 0
;ECC DATA BIT IS A PNE
:BRANCH

;ECC DATA BIT IS =0
JKEEP DIAG. MODE
:CHECKING 1F THERE 1S A ONE
;BRANCH IF NO ONE
JKEEP DIAG. MODE AND DATA
;SET DATA, DIAG. MODE, CLEAR CLOLK
1S THIS BIT TO GENERATE £ (
;BPANCH 1F NO
sNUMBER OF CLOCKS FOR DATA ENVELOPE
;60 10 GENERATE AND TEST E(C

SEQ 0215

CIRIHDO,RPOL/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD
9559
9560
9561
9562
9563
9564
9565

9566
9567
9568
9569
9570

054140
056142
054144
054146
056150
054152

005302
001341
005305
001300
012602
000207

MACYT1

30A(1052)

24-MAY=-79

D1SK

SIMULATION

9%:

DEC
BNE
DEC
BNE

MOov
RTS

15:07

RS
%

(SP)+ ,R?

1
PAGE

218

;BYTE COUNTER
;CONTINUE IF ONE BYTE NOT CCMPLETE
;WORD COUNTER
;CONTINUE IF ONE WORD NOT COMPLETE

;;POP STACK INTO R2
JEX]T seecccccccccccccncnccccccnra- >

SEQ 0216

CZRIHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR-79 09:10

CIRJHD. P12

9571
9572
9573
9574
9575
9576
9577
9578
9579
9580
9581

MACY1T

30A(1052)
26=MAY=-79
DISK SIMULATION

15:07

PAGE 219

SEQ 0217

CTRRINCRRNCCRENORERROERNOEROROCPOIOROOEORROORCECRORPRRRRORRRORNOSORCOCEROREOEOROEROTOTRY

:+WRITE ONE WORD WHICH COMES BACK

IN '"WWORD''

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

054154

000000

WWORD:

Q58?2

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

9613

9614
9615
9616
9617
9618

9619
9620
9621
9622
9623
96246
9625
9626

054156
054156
054160
054162
054164
054166
054172
054176
054202
054206

WRITE:

000002
000001
000007
000013
000040

054212
0546214
056222

056226
056226
054230
056234
054236
054240
056244
054250
054252
054256

177777

004737

054262
054266
054272
054274
054302
054304
054306
054310
054314
054316
054320
0543264
054330

054332
054336

052710
032710
001406
012737
000261
006003
000404
005037
000241
006003
012710
005737
001404
005237
004737

054342
054344

005302
001346

1%:

050616

000001
050624

3% :

000002
000040

000001
050624

4%:

050616

6%:

050636
05065¢
%:

RY,=-(SP)
RS,=-(SP)

::PUSH R3 ON STACK
::PUSH RS ON STACK

:sPUSH R2 ON STAC(K

"2 ,RS
;WORD COUNTER
#1,3R0
;SET DIAG. MODE
"7 ,R2
;BYTE COUNTER
MMSTCK'MCLX'DMD,9R0;SET SECTOR & MANT, (CLOCKS
YMUR ,3R0
sCHECK WRITEBIT IN MAINT, REG.

SEC
ROR

:SET CARRY
;MOVE 1 FORWARD

(LR

ANECDATA

;ECC DATA BIT

MOV

R3
#DMD ,aR0
SNTSECCO

cLc
ROR
181

#-1,30ECDATA

a¥#DATENY

PC,aMECTEST

ZERO

;ECC DATA BIT

A ONE

IS = 0
sCLEAR CARRY
sMOVE O FOR WWORD

;CLEAR SECTOR AND (CLOCK
;1S THIS BIT TO GENERATE ECC
;BRANCH

:NUMBER OF

TEST E((

MOV

;SET CLOCK
;CHECK WRITE BIT IN MAINT.
;BRANCH ]F ZERO
sECC DATA BIT IS A ONE

ROR

:MOVE

BR
(LR
CLC

MOV
151
BEQ
INC
JSR

#DMD,aR0

BIT
BEQ

ROR

DEC
BNE

QVECDATA

CLOCKS FOR DATA ENVELOPE

;G0 TO GENERATE AND

#MCLK,8R0
#MUR ,3R0
5%
#=1,30ECDATA

BIS

SEC

°Y:

;;PUSH RO ON STACK

RZ.=(SP)

;BRANCH 1F

BEQ
INC
JSR

050636
050654

RO,=-(SP)

MOV

2%:

050616

MOV
MOV

BIT
BEQ

050616

177777

MoV
MOV
MOV
MoV
MOV
MOV

C========

REG.

;SET CARRY
1

FOR WWORD

1S ZERO
:CLEAR CARRY
;MOVE 0 FOR WWORD

OMISECCO

;1S THIS BIT TO GENERATE ECC ?

SNDATENY
PC,e#ECTEST
R?
33

;ECC DATA BIT
;CLEAR CLOCK

:BRANCH 1F

sNUMBER OF CLOCKS FOR DATA ENVELOPE
;GO TO GENERATE AND TEST E(( K====ce=;COUNT FOR BYTE END
;1F NOT BYTE END CONTINUE

CIRJHDO,RPOL/5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD P12

9627

9628
9629
9630
9631
9632

9633
9634

9635
9636
9637
9638
9639
9640

056346
054350
056352
056356
056360
054362
054364
054366

005305
001312
010337
012605
012603
012602
012600
000207

056154

MACY11

30A(1052)
24-MAY-79
DISK SIMULATION
DEC
BNE

Mov
Mov
Mmov
MOv
MOov
RIS

15:07

RS
1%
R3,3#WWORD
(SP)+,RS
(SP)+,RS
(SP)+,R2
(SP)+,RO
PC

PAGE 220

SEQ 0218

:COUNT FOR WORD END
:1F NOT WORD END CONTINUE
;STORE

THE

1, POP STACK

WORD

INTO RS

::POP STACK INTO R3
::POP STACK INTO R?2
::POP STACK
JEX]T

INTO RO

meececssccccccccccccccecrcccco-

CIRJIHDO,RPOL/S5/6 DSKLS CTRLRZ
CIRJHD.P12
01-MAR-79 09:10

MACY11

9641
9642

T RARNTECR O

9687
9688
9689
9690
9691
9692
9693
9694
9695
9696

054500
054504
054510
054514
054516
054520
054522
054524
054530
054534
054536
054540
0565644
054550
054554
054560
054562
054564
054570

IWORDS:

WRDATA:

056370

053722

246

o~
>

OO0O0O0O0OO0OOOOOO X

054442
054446
054452
054456
054462
054464
056470
054472

[ X o B R
e il
= NN OOOOO NN —

9670
9671
9672
9673
9674
9675
9676

COUNTD:

:
FORMAT

QOO0 00O0
00
Ot et OO =t = O b ot

054370
054372
0564374
054376
054376
054402
054404
054410
054412
054414
054416
056420
056422
056426
054432
054436
054440

9681
9682
9683
9684
9685
9686

RO RO RRRRRORRCRROOROCRERRARRORORRRROORROERRROECEROTCEOTS

;;"'"""""""""""""""""""""'""""""""'

9644
9645
9646
9647
9648
9649
9650
9651
9652
9653
9654
9655
9656
9657
9658
9659
9660
9661
9662
9663
9664
9665
9666
9657

9677
9678
9679
9680

SEQ 0219

S«WRITE DATA HOUSEKEEPING ROUTINE

9643

9568
Y669

30A(1052)
2L-MAY-79
DISK SIMULATION

LI
15:07 PAGE 221

000016

055734

177777

1%:

MOV
Mov
Mov
mov
Mov
Mov
Mov
MOV
mMov
Mov
Mov
DEC
BNE

014776
054372
056370
054374

MOV
Mov

015142

187
8kQ

1772777
054726
054156

054154

SuB

MOV
MOV

050624

MOV
mMov

7%:

2%:

JSR

MOV

DEC
BNE
TST
BeaQ

001406

004737
013723
005304
001372
005037
012701
004737
013723
005301
001372
004737
013723

256.

056156
0561564

38:

050624
000002
0546156
054154

DEC
BNE
CLR

5%:

JSR

054156
054154

JSR

(R1),a3#COUNTD
(R1)+,R2
(R1)+ 4#COMPA
RO,=(SP)
R1.,-1SP)
R2,=(SP)
R3,-(SP)
R4 ,=(SP)

6. R
#TOLGAP ,RY
#-1,(R3)¢

::PUSH R1

ON STACK

;sPUSH R2 ON STACK
::PUSH R3 ON STA(K

::PUSH R& ON STACK
:NO. OF TOLERANCE GAP WORDS
:START OF TOLERANCE GAP TABLE

JMAKE 1T V77777

3#RHMR
RO

;RO CONTAINS MAINTANENCE REG.

AT
, - (SP)
SNFORM
a#COUNTD, (SP)
(SP) ,a#IWORDS
(SP)+,R&
aNTSECC
7%
¥-1 ,NTSECCG

:NO. OF ZERO WORDS TO BE WRITTEN

#DISK,R3

:1S THIS AN ECC TEST
;BRANCH IF NO
:THESE BITS ARE TO GENERATE ECC
;SIMULATED DISK AREA

a#WWORD, (R3)+

;STORE ON SIMULATED DISK

PC,e#WRITE

;WRITE ON SIMULATED DISK

;ANY

PC,afWRITE

;WRITE ZEROS ON SIMULATED DISK
;STORE THEM

MOV

INTSECCG
#2,R1
PC.afWRITE

Mov

IN R?

a#WWORD, (R3)+

DEC
.
BNE
JSR

;SAME

; COMPARE OR NOT
::PUSH RO ON STACK

;1S 14 COMPLETED ?
;1F NOT, CONTINUE

MOV

Mov

:STORE NO. OF WORDS TO BE WRITTEN

#WWORD, (R3)+
R1

PC.a#WRITE

S8MWWORD, (R3) ¢

JEROS TO BE WRITTEN ?

;BRANCH IF NONE TO BE WRITTEN

;NO MORE ECC TO BE GENERATED

;WRITE ECCY AND ECC2 ON SIMULATED DISK
;STORE IN WEEC) AND WEEC?
;WRITE DATA GAP

JSTORE

CIRIHDO,RPOL/S5/6 DSKLS CTRLR?
(IRJHD.P12
01-MAR-79 09:10
9697
9698
9699
9700
9701
9702
9703
9704
9705
9706
9707
9708
9709

9710

9711
9712
G713
9714
9715

054574
054600
054604
056610
054612
054614
054616
054620
054622
054624
056626

012701
004737
013723
005301
001372
012604
012603
012602
012601
012600
000201

000016
054156
054154

MACY11

30A(1052)
DISK

6%:

2L-AAY-T79

SIMULAT]ION
MoV
JSR
MOV
DEC

15:07

MOV
Mov

(SP)+,R3
(SP)+,R2

MOV
MOV
RTS

PAGE 222

94, R
PC,afuRITE
SFWWORD, (R3)+
R1

BNE

MoV

;WRITE

SeQ 0220
TOLERANCE GAP ZEROS

;STORE THEM

(SP)+,R4

:;POP STACK INTO R4

(SP)+
R
(SP)+,RO
R1

EX]]

::POP
::POP
;:POP
::POP

STACK
STACK
STACK
STACK

INTO R3
INTO R2
INTO R
INTO RO

meccececcececcncrccccccncnaaa

CIRJHD.PY?

01-MAR-79 09:10

MACY1Y1

30A(1052)

24=MAY=79

DISK SIMULATION

15:07

PAGE 223

9716
9717
9718

;*THIS 1S THE SIMULATED DISK
;*ONLY ONE SECTOR OF SPACE 1S ALLOCATED

9720

;;""""""0"'t"""0""""'t"'t"tQt.""""'t""t""

9719

9721
9722
972%
9724
9725
9726
9727

JLETRCREC

ILTRIRNSEEOIRROROOIRRROCERRROOCEOCERCCEORORROROROOEOCCEOOETROTEETRTY

9728
9729
9730

054630
054676
054700

000023
000001
000004

SECGAP:
WSSYNC:
HEADER:

.BLKW
.BLKW
.BLKW

19.
1
[

:SECTOR GAP 38 BYTES OF 0
:SECTOR GAP 1 BYTE OF O ONE SYNC BYTE
:HEADER = CYL, SECTOR/TRACK, KEY!1, KEY?

9732
9733
9734

054712
054724
(054726

000005
000001

HEGAP:
HDWSYN:
SILOTB:

.BLKW
.BLKW

5
1

9737
9738
3;58

055730
055732
055734

.BLKW
.BLKW

256.
1

;HEADER GAP 10 BYTES OfF O
:HEADER GAP 1 BYTE OF O ONE SYN(. BYTE
;(ALSO USED IN SILO TEST AS SILO TABLE)

9731

9735
9736

9741
9742
9743
9744
9745

054710

054726
055726

000001

000400
000001

000001
000001
000076

WCRC:

DISK:
WECCY:

WECC2:
DTAGAP:
TOLGAP:

.BLKW

.BLkWw
.BLXW
.BLKW

1
1
14,

s CRC

:DATA SPACE
;ECCT

JECC?
;DATA GAP 2 BYTES OF O
:TOLERANCE GAP 28 BYTES OF 0

SEQ 022!

TM~

CIRJHDO,RPOL/S/76 DSKLS CTRLR2

(IRJHD.PY2

01-MAR-79 09:10

MACY11

97406

15:07

PAGE 224

SEQ 0222

';"t'""""""'""""l""""""""'"'""""Q'Q"""

“eWRITE MEADER AND DATA

9747
9748
9749
9750
9751
9752
9753
975¢
9755
9756

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

;*THIS SUBROUTINE IS THE FIRST

IN A SERIES OF NESTED SUBROUTINES

:'léong?ES DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE
,'.

9757
9758
9759
9760

9761
9762
9763
9764
9765
9766
9767
9768
9769
9770
9771
9772
9773
9774
9775
9776
9777
9778
9779
9780
9781
9782
9783
9784
9785
9786
9787
9788
9789
9790
9791
9792
9793
9794
9795
9796
9797
9798
9799
9800
9801

30AC1052)
24-MAY=-79
DISK SIMULATION

;*1T THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL OTHER
THE THREE SUBROUTINES CALLED HERE ARE:
;*SUBROUTINES.

o
.
.t

; 1SSUES SECTOR CLOCKS TO SET SECTOR FOUND FLOP
;WRITES THE SECTOR HEADER
;WRITES THE ACTUAL SECTOR DATA

SEARCH
WRHEAD
WRDATA

;*ALL OF THE ABOVE MENTIONED "'WRITING'' IS ACTUALLY DONE INTO A CORE
;*BUFFER AREA CALLED 'DISK' VIA THE MAINTENANCE REGISTER (RHMR}

RNCTR1:

.WORD

;'RUN' LINE STALL COUNTER

(SP) ,a#PCJSR
#6,aNPCJSR
RO,-(SP)

:SAVE PC OF JSR ¢+ &
:SAVE PC OF JSR
::PUSH RO ON STACK
:sPUSH R1 ON STA(K
; ;PUSH R2 ON STA(K
::PUSH R3 ON STA(K
;:PUSH R4 ON STACK
::PUSH RS ON STACK

055770

000000

055772
055776
056004
056006
056010
056012
056014
056016

011637
162737
010046
010146
010246
010346
0104466
010546

015132
0000C4

056020
056026
056034
056042

012777
052777
042777
052777

000001
000004
000004
000001

136750
136742
136734
136700

Mov
B1S
BIC
BIS

056050

012737

000113

055770

RNWAT1: MOV

#75. ,9#RNCTR]

056056
056062

005337
001375

055770

i$:

DEC
BNE

S/RNCTRI

056064
056070
056074
056100

013746
062716
012637
004137

056150
177740
056104
057056

MOV
BIC
MOV

SAWSECTR,~(SP)

;GET DESIRED SECTOR/TRACK

R1,9#SEARTH

;1SSUE SECTOR CLOCKS 10 GET 10

056104

000000

015132

(OMWHD: MOV
SUB
Mov
MOov
MOV
Mov
Mov
Mov

2%:
WIRK:

JSR
LWORD

R1,-(SP)

RS,=(SP)
R3,-(SP)
R&,=(SP)
RS,=(SP)

#0MD ,aRHMR
FMINX,SRHMR
FMINX,RHMR
#G0,aRHC(S]

#177740,(SP)
(SP)+ , @MW TRK

;SET DIAGNOSTIC MODE
;SET DIAGNOSTIC INDEX
CLEAR DIAGNOSTIC INDEX
;SET '60' BIT & STALL 'TILL ‘RUN'
; (FUNCTION CODE WAS SET UP BY THE

;LOAD STALL COUNTER - APPROX 450US
;FOR 11/50 CPU

TEST)

:COUNT DOWN 1

TIMe
;CONTINUE UNTIL = 0

;MAKE ONLY SECTOR
; SAVE SECTOR

;DESIRED SECTOR (=ee=ccccccencnccce- >

;SECTOR NO.

" LCIRJIHDO,RPOG/S/76 DSKLS CTRLR?

9814
9815
9816
9817
9818
9819
9820
9821
9822
9823
9824
9825
9826
9827
9828
9829
9830
9831
9832
9833
9834
9835
9836
983%7
9838
9839
9840
9841
9842
9843
9844
9845
9846
9847
9848
9849
9850
9851
985°2

9853
9854
9855
9856
9857

NN
NN A NO

056146
056150
056152
056154
056156

000000
000000
000000
000000
000000

NN
NN

D i
el
—

i
D
e
e
—

—

006137

e e

056142

056106
056112
056116
056122
056126
056132
056136

OCOO0O0O00OO

9802
9803
9804
9805
9806
9807
9808
9809
9810
9811
9812
9813

COOOO0OON

CIRIHDO,RPO&/S5/6 DSKLS C!RLR%
CIRJHD. P12
01-MAR-79 09:1

MACY11

30A(1052)
26-MAY-T79
DISK SIMULATION

15:07

PAGE 225

SEQ 0223

;GOING TO
;NOP INTO
;NOP INTO
;NOP INTO

000240
056160
056162
056164
056166
056170
056172

MoV
MoV
MoV
MOV
Mov
MoV
MOV

#+NOP ,R1
R1 +OFSEGPER
R1 +OFFSYNER
R1 ,OFERHEAD
R1 LOFERCRC
R1 ,ONERHDGP
R1 +ONHDESYN

:NOP

056242

JSR

R1 OAWRHEAD

;WRITE

wlvL:
WSECTR:
WwKEY1:
WKEY?2:

GCRC:

0
0
O
O

MOVE NOPS
SEGAP
FSYNER
ERMHEAD

:NOPINTO ERCR(

;NOP INTO ERHDGAP
INTO HDESYN

THE HEADER <

;CYLINDER
:SECTOR AND TRACK
JKEYD

(KEVS

;600D CRC

;DUMMY ERROR CALL LOCATIONS FOR THE WRITE HEADER OPERATION
056160

000240

SEGPER:

NOP

:1F ""ERROR 6'' INSERTED BY

;WRHEAD SUBROUTINE,

THEN

;SECTOR GAP GOING ON DISK
;1S NOT RIGHT,
;WORD NO.

CONTAINS WHICH

;FIRST

TENTHM,

;WORD IS WRONG,
OF

;BAD WORD

056162

000240

FSYNER:

NOP

THAT IS
OR WMAT

IS WHAT

EVER,

| S GOING ON DISK

:1F "'ERROR 6" INSERTED BY
;WRHEAD SUBROUTINE, THEN
:THE LAST O BYTE Of SECTOR
:GAP OF FIRST SYNC. BYTE
;AFTER SECTOR GAP | S IN
:ERROR.
;WORD NO. CONTAINS 20
sRIGHT BYTE IS SECT OR GAP
JLEFT BYTE 1S SYNC. ByTe.

;BAD WORD IS WHAT | S GOING ON
;DISK
056164

00240

ERHEAD:

NOP

"ERROR 6" INSERTED BY
;WRHEAD SUBROUTINE, THEN
;HEADER GOING ON DISK

:1F

;1S WRONG.

;WORD NO 1 = CYLINDER NO
;WORD NO 2 = SECTOR/TRACK
;WORD NO 3 = KEY
:WORD NO & = KEY?

;BAD WORD |S WHAY

| S GOING ON

CIRJHDO,RPOG/S/6 DSKLS CTRLR2

(IRJIHD.P12
9858
9859
9860

9861
9862
9863

01-MAR=-79 09:10

MACY11

30AC1052)

24-MAY-79

DISK SIMULATION

15:07

PAGE 226

SEQ 02264

;D1SK
056166

000240

ERCRC:

NOP

;1F "'ERROR 6'' INSERTED BY
WRHEAD SUBROUTINE, THEN (RC WRITTEN
;ON DISK 1S IN ERROR.

9864

9865
332?

;600D DATA |S WHAT SHOULD BE ON DI]SK
:BAD DATA IS WHAT IS GOING ON DISK.

9868

:WORD NO IS 5

9869
9870

9871
9872
9873

056170

000240

ERHDGP:

NOP

:1F "'ERROR 6'‘ INSERTED BY
:WRHEAD SUBROUTINE, THEN HEADER
;GAP GOING ON DISK IS WRONG.

9874

9875
9876
9877

;WORD NO GIVES WHMICH OF
:THE HEADER GAP WORDS
;ARE WRONG. FOR EXAMPLE:

9879
9880

:WORD NO 1 = FIRST HEADER
;
GAP WORD

9878

:BAD WORD 1S WHAT |S GOING ON DISK

ggg;

9883

9884
9885
9886
9887

056172

000240

HDESYN: NOP

;1F "ERROR 6'' INSERTED BY
;WRHEAD SUBROUTINE, THEN | AST
:HEADER GAP BYTE OR HEADER
:SYNC BYTE GOING ON DISK IS WRONG.

9888

9889

;WORD NO = 5

9891
98972

:BAD DATA 1S WHAT S GOING
:ON DISK, RIGHT BYTE IS MEADER
:GAP 0°'S BYTE, LEFT BYTE |S HEADER
:GAP SYNC.

9890

9893
9894

9895
9896

9897
9898
gggg

056174
056200
056202

005737
001004
004137

9901
9902

056206
056210

000000
000000

9904

056212

9903

9905
9906
9907
9908
9909
9910
9911

056212
056214
056216
056220
056222
056224
056226

012605
012604
012603
012602
012601
012600
000207

015124

181
BNE
JSR

054376

FNWORD: .WORD
.WORD
FOUT:

MOV
MOV
MOV
MOV
MOV
MOV
RTS

SFERFLGS
FOUT
R1,3#WRDATA

:ARE ANY ERRORS DETECTED ?
:1F YES BRANCH
:WRITE THE CATA

0
O

;FORMAT (COMMAND NO. OF DATA

(SP)+,RS
(SP)+ R4
(SP)+ R}
(SP)+,R?
(SP)+ RI
(SP)+ RO
PC

::POP STACK
::POP STACK
::POP STACK
::POP STACK
;:POP STACK
::POP STACK
JEXLT

INTO RS
INTO R4
INTO R3
INTO RZ
INTO RI
INTO RO

CIRIHDO,RPO4/S5/6 DSKLS CTRLR?

CIRIND.PY?

01-MAR-79 09:10

9912
9913

2
PAGE 227

SEQ 0225

:*RO = MAINT.REG.
;*R1

SIMULATED DI1SK

;*R2 = BYTE COUNT
;*R3 = WRITE WORD
:*RS = WORD COUNT

056230
056232
056234
056236
056240

000000
000000
000000
000000
000000

056242
056246
056252
056256
056262
056266

032710
001403
000261
006003
000402
000241
006003
012710
012702
052710
032710

000040

056362
056364
056366
056370

000261
006003
000402
000241

el
il
il
il

NN NN
~N N

—

e
i
il
il
nd

)

NORNDRDWLIND

i
— AV

056320
056324
056326
056330
056332
056334
056336
056340
056344
056350
056354
056360

OOO0O0O0O0

056230
056232
056234
056236
056240

056270
056274
056300
056304
056310
056314

=
Bk = X =
P XV VIV
TV IV ]
ONNNNN
OOWVOO
—

9967

DISK SIMULATION

15:07

“*WRITE HEADER

OCOOO0OO0OO0O0

9932

24-MAY-79

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

9923

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
9961
9962
9963
9964
9965
9966

30AC1052)

et tRROEERRERRRSRCOROSORORORRRRRRCERROROERORRORRRRRRRORORRRCESROEOROEROEORNOROTETY

9914
9915
9916
9917
9918
9919
9920
9921
9922
9924
9925
9926
9927
9928
9929
9930
9931

MACY1Y

001403

054630
014776
000001
000002
000010
000013

SCYL:
SSECTIR:
SKEY1:
SKEY?2:
SCRC:

0
O
O
O
0

WRHEAD:

MOV

(R1)+,@#SCYL

Mov
MOV

(R1)+ ,@#SKEY
(RY)¢,a#SKEY?2

MOV

1%:

:;PUSH R1

MOV
MOV

#SECGAP,R)
S#RHMR, RO

sSIMULATED DISK INDICATOR
;RO NOW HAS MAINT. REG. ADDR.

MOV

FMSTCK'MCLK'DMD,QRO;SET SECTOR,

MOV
MOV
BlS

B8R
cLc
ROR
MOV
MOV
BIS
Bl1

BEQ
SEC
ROR

5%:

(R1)¢,a#SCRC

RY,-(SP)

BEQ
SEC
ROR

(R1)+,a#SSECTR

MOV

811

2%:
000001
000007
000002
000040

MOV

;
:

(L(

#0OMD , 8RO
#2.,RS
#MSTCK,aR0

FMUR ,aR0
2%
R3

ON STA(CK

;SET DIAG. MODE
:WORD COUNTER
;SET SECTOR FOR FIRST BYTE
;MODE, RESET

CLOCK, DIAG.
INDEX

:CHECK WRITE BIT IN MAINT. REG.

:SET CARRY
;MOVE ONE

FORWARD

7 ,R2
MK, aR0
#MWR ,aR0

:
;CLEAR CARRY
;MOVE ZERO FORWARD
;CLEAR CLOCK, SECTOR
;BYTE COUNTER
;SET BIT CLOCK
c(HECK WRITE BIT IN MAINT _REG.

;SET CARRY
;MOVE ONE FORWARD

#0MD,aR0

:BRANCH 1F 2ERO

CIRIHDO,RPOL/S/6 DSKLS CTRLR?
CIRJND.PY?
01-MAR-79 09:10

10019

000022
000024
054156
054154

005037
013737
012737
000554
005302
001353

6%:

000001

104006

057050

DEC
BNE
DF(
BNE
MOV
TST
BeQ

053130

MOv

056160

MOV
WP

053130

(LR
MOV

7%:
108:

MoV
MOov

2
PAGE 228

R3
#DMD,aR0
R

'3
RS
1%

R3,(R1)+
R3

#1 ,9#ERVORD

a$GDDAT
R3,a#SBODAT

#1046006,3#SEGPER
an7s
;BRANCH OUT

#18. R
#20. ,@#ERWORD

015144

DEC
BNE

THIS POINT

THE

SECTOR FOUND FLOP SHOULD

SO THAT THE HEADER SYNC BYTE CAN BE GIVEN.

PC.8/WRITE

;WRITE ONE SECTOR GAP 0 BYTE

056536
056542
056546
056550

054154
053112

Mov
(mp
BEQ
MOV

056600
056604
056610
056616
056622
056626

N—

JSR

053112
001126

001124

104006

Mov
Mov

000004
056230
000005
054156
05415¢

12%:

053130

13%:

17%

8#WWORD,{R1)

S#RSYNC,(R1) ¢

129
£20.,3¥ERWORD

;BRANCH QUT

TME ROUTINE

TIMING ERROR TEST

YES ==c=ecc-ccccecccc--- >

;AND ONE SYNC., BYTE - 230
:SAVE 0 BYTE AND SYNC BYTE
;1F SYNC. BYTE RIGHT

;1F YES CONTINUE OPERATION
;IF NOT GET READY FOR ERROR PRINT

S#RSYNC ,8#9GDDAT;GCOD WORD
-(R1),8#8BDDAT
;BADC WORD

B8R

INSERT "'ERROR 6'" IN FSYNER
,NF
SYNER;
#106006
17%
;BRANCH QUT =e-ccceccccccccccocncram- >

MOV

#,R2

MOV

056162

THE REST OF

;1S THIS A DRIVE

054156

056556
056564
056570
056576

TIMING ERROR TEST

SFTESDTE

056532

053130

;WRITE SECTOR GAP
;STORE SECTOR GAP WORD

151

BNE

00002¢

;COUNT NO. OF SECTOR GAP
;COUNT T0 GIVE ERROR WORD

#106006,8#SEGPER;
STORE "'ERROR 6'" IN SEGPER
;BRANCH 0OUT
17%
;HAVE 18 WORDS OF ZEROS BEEN WRITTEN ?
R
;1F NOT CONTINUE
108

;HOWEVER, IN THE DRIVE
;1S ABORTED
005737
001147

==seemcseecenemcmcmana- >

R2,8#ERWORD
;1F NOT GET ERROR WORD NO.
8#3GDDAT
:GO0D WORD
8/WWORD ,a#$BDDAT;BAD WORD

;BE HIGH,

056524
056530

SEQ 0226

SuB
CLR

Mov

11%:

PC,aFWRITE
?::UORD.(RI)O

Mov

001126
056160

15:07

JSR
Mov

8ea

053130

001124
056154
104006

ROR
MOv

;AT

O
W

el
-l
ol
ol
aml
ol
—

O ~O NN
—

e
el
) —
el
)
D

ololololelolole]
OOOOCOO0OO00O

10005
10006
10007
10008
10009
10010

012702
012737
004737
013721
001413
160237

Rowsroronrn

10004

056446
056452
056460
056464
056470
056472
056476
056502
056510
056516
056520
056522

10003

000001
001124
001126

10000
10001
10002

012737
005037
010337
012737
000137

30A(1052)
26-MAY-79
DISK SIMULATION

[

9993

9994
9995
9996
9997
9998
9999

056416
056426
056430
056434
056442

OO0OO0O0

9992

006003
012710
005302
001362
005305
001342
010321
005703
001414

N =t O bt
=

9988

9989
9990
9991

056372
056374
056400
056402
056404
056406
056410
056412
056416

OOOOOO0O

9968
9969
9970
9971
9972
9973
9974
9975
9976
9977
9978
9979
9980
9981
9982
9983
9984
9985
9986
9987

MACY11

MOV
Mov
JSR
MOV
(mp

#SCYL,R3
#5,80ERWORD
PC,oNWR]TE
S#WWORD, (R1)
(R3)¢,(R1)+

;FOUR HEADER WORDS

;POINTER FOR HEADER TABLE
;ERROR WORD NO SET
;WRITE & HEADER WORDS
;STORE WRITTEN WORD
;1S 17 CORRE(T

0014612

056632
056636
056642
056646
056654

056656
056660
056662
056666
056672
056676

0053
001353
004737
013711
022137
0014614

056700
056704
056712
056720
056726

MACYN

N
NNNN

NN
- N

VIV
P R V)

[V VIV
LY ]

1
1
1
1

012601
000201

104C06

104006

001124
053130
056166

053130

20%:
15%:

053112
053130
001124
056172
17%:

2
PAGE 229

SEQ 0227

;1F GOOD CONTINUE OPERATION
;1F NOT GET READY FOR ERROR PRINT

SUB

R2,aNERWORD

;WORD NO

MOV
BR

#104006,87ERHEAD;
INSERT "'ERROR 6"
17%
:BRANCH QUT ==e=e-ccecccccccccccccne-

DEC
BNE
JSR

-=(R3),9#S8GDDAT
=(R1),8#$BDDAT

R
13%
PC,afWRITE
afWWORD, (R1)
(R1)+ ,INGCRC

20%

;GOOD DATA
.BAD DATA

;ARE & HEADER WORDS DONE?
s 1F NOT CONTINE
;WRITE CRC
:STORE CRC
. COMPARE GOOD CRC

;1F GOOD CONTINUE OPERATION
;1F NOT GET READY FOR ERROR PRINT

Mov
MOV
MOV
MOV
BR

-(R1),8#8BDDATA ;BAD CRC WRITTEN
S#GCRC ,a#$GDODAT ;GOOD CRC
#5,aNERWORD
;ERROR WORD NO
#106006,8#ERCRC ; INSERT ERROR 6
17%
JEX]T eeeccccccccccccccecnmnnccocora-

mov

”5,R2

:NO OF HEADER GAP

JSR
MOV
BtaQ

PC.,a#WRITE
S8#WWORD,(R1)+¢
16%

;WRITE HEADER GAP
; STORE
;1F GOOD CONTINUE OPERATION
;1F NOT GET READY FOR PRINT

SuB
CLR

R2 ,a#ERWORD
afSGODAT

:ERROR WORD NO
.GO0OD DATA

Mov

#106006,a#ERHDGP;
STORE ''ERROR 6''

Mov

054154

149

Mov

056170

15:07

BtaQ

(MP
BtaQ

054156

104006

SIMULATION

mMov

16$:

000005
001126
053112

24=MAY-79

MOV
Mov

056164

Sl Y AV LV LV )
O NNNN
— NI NN O
N =t NN

[

VY o« P

[

OO0O0O0O

(@ 1,1
NIV P o
NN
—
—
NN
P NNNN

053130
00112¢4
001126

005302
001354
004737
013711
023721
001413

DISK

056156
054154
056156

160237

057000
057002
057004
057010
057014
057020

J0A(1052)

146%:

000005
000006
0564156
056154

005037
016137
012737
000424

057050
057050
057052

104006

001126
056156
000005

056754
056760
056764
056770
056776

057022
057030
05703¢4
057042

053130
001124
001126

QOO0

056730
056734
056742
056746
056752

VNN

056630

OOQ0O

10024
10025
10026
10027
10028
10029
10030
10031
10032
10033
10034
10035
10036
10037
10038
10039
10040
10061
10042
10043
10044
10045
10046
10047
10048
10049
10050
10051
10052
10053
10054
10055
10056
10057
10058
10059
10060
10061
10062
10063
10064
10065
10066
10067
10068
10069
10070
10071
10072
10073
10074
10075
10076
10077
10078
10079

OO
—
— s e O
(L% o o ]
I N—-Nrn
NN NN AN

CIRJHDO,RPO4L/S576 DSKLS CTRLR?
01-MAR-79 09:10
(IRJHD.P12

75,3/t RWORD

-(R1,,a#8BDDAT

;ERROR WORD NO SET

;BAD DATA

17%

;BRANCH QUT ==-<cccccccccncceocccn=- >

DEC
BNE
JSR
MOV
(MP
130]

R2
15%
PC,aNWR]TE
S87WWORD, (R1)
SFRSYNC,(R1)+
17%

;ARE 5 HEADER GAP ZERQOS DONE
:1F NOT CONTINUE

MOV
MOV
MOV
Moy

;1F NOT GET READY FOR ERROR PRINT
#5,8#ERWORD
=(R1),8#8BDDAT
SF/RSYNC ,8#SGDDAY
#104006 ,8/HDESYN

mov

(SP)e¢ R

RIS

:A=0K, EX]T secceccccccccccccncana >

::POP STACK INTO RI

(EX]] eecececcccnceccncnccccoca- >

CIRJHDO,RPOL/S/6 DSKLS CTRLR2
CIRJMHD.PY2
01-MAR-79 09:10
10080

10081
10082

MACYY1

30A(1052)
24=-MAY-=79
DISK SIMULATION

15:07

2
PAGE 230

SEQ 0228

CIRJHDO,RPOL/S/6 DSKLS CTRLR?

CIRJHD.P12

01-MAR-79 09:10

SIMULATION

15:07

2
PAGE 231

SEQ 0229

“«SEARCH SECTOR

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

RO-= RHMR

ADDRESS

R1-= PASSED

R2= CLOCK

ARGUMENT (SECTOR SEARCHED FOR)
COUNT (PER BYTE)

RS- BYTES

PER WORD COUNT

R3= SECTOR

;

COUNTER FROM R1

;*BEFORE INDEX IS GIVEN TWO SECTOR CLOCKS ARE GIVEN TO RESET
;*SECTOR PULSE IN CASE 1T
;AT

THC BE GINNING OF

IS SET.

EACH SECTOR, ONE SECTOR CLOCK HAS TO RISE

;*BEFORE MAINT. CLOCK, THEN EVERY EIGHT MAINT.CLOCKS, ONE SECTGR (LOCK
;*1S IDENTI CAL WITH THE MAINT. CLOCK
;*THE SECTOR CLOCKS ARE NUMBERED AS FOLLOWS:

;*THE SECTOR CLOCK UNDER INDEX - O
;*THE NEXT -1

;*TRE

N -0 o

JvETC.

;*THEN THE
;eTHE NEXT
;*THE NEX1

;*AND SO ON

LAST SECTOR CLOCK IN ONE SECTOR HAS NUMBER - 608
SECTOR WILL HAVE 608 SECTOR CLOCKS
SECTOR THEN HAS ANOTHER 608 SECTOR (CLOCKS

NS
N
NS WA~ OO0
N

=
ld —
il
)
il
el
i
D
il
il
il
i

NN = OO

DISK

24=-MAY=79

057054

SECTR:

000000

057056
057002
057064
057066
057070
057072
057074
057076
057102

057054

057106
057112
057116
057122
057126

000001
000010
000010
000010
000010

014776
057054

SEARCH:

MOV

000014
000014

(R1)¢,a#SECTR

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

RO,-(SP)
R1,=(SP)

MOV

#0MD , 38R0

BIS
BIC
B1S
8IC

N
BN

) ol
)
-

057132
057136

;SECTOR SEARCHED FOR

e e\

) o
il
D
)
) e
—r

30A(1052)

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

b e et et =0 O [=4
U U WM AN PUNI RO NI PRI RININ) =2 b b od b

D e

OO0

S el el il il

)

s T

el il ol k) il sl

D el —

o
OOOOOOO0O0O00O0O00O000
—
i
D il
il el el el
el
D

10083
10084
10085
10C86
10087
10088
10089
10090
10091
10092
10093
10094
10095
10096
10097
10098
10099
10100
10101
10102
10103
10104
10105
10106
10107

MACY1T

BIS
BI(

SECTOR SEARCHED FOR

s PUSH RO ON STAC(K
::PUSH R1 ON STACK

::PUSH R2 ON STACK

R2,=-(SP)

R3,-(SP)
R4 ,=(SP)

RS,=(SP)
o/RNMR, RO

O#SECTIR,R3
PMSTCK,
MST(K,
#MSTCK,
#MSTCx,

;SAVE

aRO
&R0
aRO
8RO

;:PUSH R3 ON STACK
;;PUSH R& ON STACK

:;PUSH RS ON STAC(K
:NOW RO HAS MAINTENANCE REG. ADR.

:LOAD SECTOR COUNTER
:SET DIAGNOSTIC MODE
SET SECTOR CLOCK
;CLEAR SECTOR (LOCK
:SET SECTOR (CLOCK
sCLEAR SECTOR CLOCK

: THE ABOVE TWO SECTOR CLOCKS ARE GIVEN FOR

JRESETING SECTOR PULSE
:IN CASE [T STARTS SET

MINXIMSTOK,@RO ;SET INDEX AND SECTOR (LOCK
FMINX MSTCK,8R0O ;RESET INDEX AND SECTOR (LO(K

CIZRIHDO,RPOL/S5/6 DSKLS CTRLRZ
01-MAR-79 09.10

CIRJHD P12

~ PN
NN —=O O

o D Py
e
e

NN H e~

D
el

ANN

b o o
b

il
-

N¥

td e
el
i
il
i
il
i
il
il
—

[elelolololelol—FWial
)o

10139
10140
10141
10142
10143
10144
10145
10146
10147

10160

057142
057144

MACY1Y

30AC1052)

24-MAY-79

15:07

DISK SIMULATION

151
BEO

005703
001461

b
s
ks
D
i
sl
sl
el
il
il

V00O O oo 0o o O» OB OO Op OB
o~ MO
— o V0D ~NO WV
Wi

—

SEQ 0230

;TEST FOR SECTOR 0
“1F SECTOR 0 1S REQUIRED, EXIT ===ea- >

;NOW 304 WORDS WILL START (608 BYTES)

;¢FOR FIRST BYTE MAINT, SECTOR CLOCK WILL GO HIGH, THEN MAINT. CLOCK WILL GO MIGH
;*BOTH WILL COME DOWN TOGETHER, THEN SEVEN MAINT, CLOCKS WiLL BE GIVEN
;*FOR SECOND BYTE,

AND ALL OTHER BYTES TILL NEXT

ceWlLL BE IDENTICAL WITH ONE MAINT. CLOCK

SECTOR,

SECTOR (LOCK

:ONE WORD ONLY
057146
057152
057156
057162
057166
057170
057174
057200
057204
057210
057212

001372

057214
057220
057222

012702
005305
001362

000010
000002
000010
000002

1$:

Mov

""8.,

000012
000012
000002
000002

2$:
3%:
8%:

B1S
B1S
BR
BIS
BIC
BIS
BlC
DEC
BNE

MSTCK,aR0
MCLK,aR0
3%
MMSTCK!MCLK
,aR0
MSTCK!MCLK,3RO
MCLK , 3RO
MCLK,aR0
R2
8%

;SET SECTOR CLOCK
sSET MAINT. CLOCK
;BRANCH TO CLEAR SECTOR AND (LOCK
;SET BOTH CLOCKS
;CLEAR BOTH CLOCKS
;SET MAINT. CLOCK
:CLEAR MAINT.CLOCK
:BYTE COUNTER
;CONTINUE IF BYTE NOT COMPLETE

"7 ,R2
RS

;SETUP FOR SECOND BYTE
;1S WORD COMPLETE?
:CONTINUE IF NOT COMPLETE

MOV

MOV
DEC

000007

BNE

000457
000002
000007
000012
000012
000002
000002

057224
057230
057234
057240
057246
057250
057254
OO0V OOOOO0OO

2
PAGE 282

R3
7$

057260
057262

5¢:

6%:

;BYTE COUNTER

;NOW 303 WORDS ARE

181

;BYTES PER WORD

;70 GIVE SECTOR TLOCK AND MAINT. (CLOCK

LEFT AND ALL ARE

IDENTICAL

MOV
BIS
BIC
BIS
BIC
DEC
BNE

#303. ,R1
¥2,RS

#7,R2
#MSTCK'MCLK,8R0
AMSTCK'MCLK,aR0
#MCLK,aRC
MLk, eR0
R?
6%

;WORDS PER SECTOR COUNTER
;BYTES PER WORD COUNTER

Mov
MOV

:BIT COUNTER (MAINT.CLOCK COUNTER)
;SET SECTOR CLOCK AND MAINT. (LOCK
; CLEAR CLOCKS
;SET MAINT. CLOCK
sRESET MAINT, (LOCK
;15 BYTE COMPLETE ?
;CONTINUE IF NOT COMPLETE

057264
057266

005305
001362

0EC
BNE

RS
5%

;1S WORD COMPLETE ?
JCONTINUE IF NOT

057270
057272

005301
001356

DEC
BNE

R1
6%

;1S SECTOR COMPLETE ?
;CONTINUE 1F NOT

057274
057300
057304
057306

052710

BIS

MSTCK,aR0

#MSTCK,8R0
R3
1%

sCLEAR SECTOR (LOCK
;1S REQUIRED NO OF SECTORS (OMPLETE °
;CONTINUE ]F NOT

MOV

(SP)+,RS

::POP STACK INTO RS

057310
057310

000010
000010

BIC
DEC
BNE
7%:

012605

:SET SECTOR CLOCK 1 MORE 1IME (FOR 609)

CIRJIHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR-79 09:10

CIRJIHD P12

10227
10228
10229
10230
10231
10232
10233
10234
10235

DISK SIMULATION

15:07

PAGE 233

SEQ 0231

: :POP STA(CK

MOv
mov
mov
Mov
MoV
RIS

+sPOP
;s POP
;s POP
; :POP

STACK
STACK
STA(CK
STACK

INTO Ré&

INTO
INTO
INTO
INTO

R3
R2
R1
RO

“«READ ONE SECTOR OF DATA

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

~ |V]

054726
053720
053724

N
LN et b

057326
057330

~N
[V) -~J
(V) o

057364
057370
057374
057400
057402
057404
057410
057412
057416
057422
057426
057432
057434
057436
057436
057440

OO0O0O0O0OO0O0
EE Y o o EP
PO
—OV

057332
057336
057342
057344
057350
057352
057360

000000
000000

— -—

057326
057330

OO WS N
N NN ~NO N~

N
no N
wnrno

10224
10225
10226

24-MAY-79

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

OOV

~NO NS

N —

NN
NN NN

[o R

=
D
sl
o ol
sl
o
)
el
—

COOOOOOO00O
[o]=]

—

10221

30A(1052)

012604
012605
012602
012601
012600
000201

10195

10196
10197
10198
10199
10200
10201
10202
10203
10204
10205
10206
10207

MACY11

004737
005302
001372
005737
001012
005037
012702
012337
004737
005302
001372
012601
000201

RNO:
RCOM:

0
0

REDATA:

MOV
Mov
Mov
181

015142
177777
000402

050624

BeaQ

1$:

2%:

015142

050624
000017
053720
053724

L3 ¥

49:

MOV
MOV

MOV

JSR
DEC
BNE
1587
BNE
(LR

MOV

JSR
DEC
BNE

MOV
RTS

:NO. Of WORDS READ
EXTRA STORAGE

(R1)+,3#RNO
(R1)+,3#RCOM
R1,-(SP)
aFTSECC
%
F=-1,30TSECCG

n258. ,R2

#D1SK,R3
(R3)+ ,3#WORD
PC,3#READ

afTSECC
6%
INTSECCO
”5.,R
(R3)+,3#WORD
PC,3#READ
R2

(SP)+ ,R1
R1

;SAVE NO. OF WORDS ONLY FOR INFORMATION
;EXTRA WORD ONLY FOR INFORMATION
::PUSH R1 ON STACK
;1S THIS AN ECC TEST
;BRANCH 1F NO

:THESE BITS ARE TO GENERATE ECC
;256 WORDS PER SECIOR
;PLUS 2 ECC WORDS
;POINTE TO DISK SIMULATION
;READY TO READ CONTENTS
sREAD

;1S 256 WORDS DONE?
;1F NOT BRANCH
;1S THIS AN ECC TEST
:BRANCH OUT IF YES
:NO MORE ECC BITS ARE TO BE GENERATED
;ONE DATA GAP,
;READY TO READ
sREAD

; COUNT

;BRANCH IF

14 TOLERANCE GAP
CONTENTS OF WORD

14 NOT DONE

;;POP STACK INTO Rl

;RETURN

CIRJHDO,RPO&L/S5/6 DSKLS CTRLR?
CIRJNHD.P12
01=-MAR-79 09:10
10236
10237
10238
10239
10240
10241
10242

10243
10244
10245

10246

MACY11

30A(1052)

DISK SIMULATION
C

057442
057442
057446
057516
057516
057520
057526

1064401

000423
104402

012777

000000

RN RE R RPN

RPVECT:

057450

;0659%:

649%:

057442

135216

24-MAY-79

RPN CRE RO RO RRP

TYPE

LASCIZ

TYPOC

MoV

HALT

15:07

2
PAGE 234

SEQ 0232

RO RRRRRRCECERRRRROERARARRRRRNORROROROROOROYR

659
¢4

JUNEXPECTED RPO&

::TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

INTERRUPT FROM PC = /
;TYPE

#RPVECT ,aRPVEC

FROM P(

;RESTORE

TRAP RPO4& VECTOR

:CHANGE TO CONTINUE

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

CZRJHDO,RPO4/S5/6 DSKLS CTRLR2

CIRJND.P12

01-MAR=-79 09:10

MACY11

10247
10248
10249
10250
10251
10252

30A(1052)

24-MAY-79
LSBTITL
JSBTTL
LSBTTL

15:07

PAGE 2355

SEQ 0233

eveSYSMAC LIBRARY ROUTINESeee

}g%gz

LSBTTL

10259

R L
R
X
AR R L Al

10259
10260
10261

;eSWl4=1
;eSWil=]

10256
10257
10258

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

10262
10263

;*SW09-=1
;*SW08=1

10265

10264

10266
10267

10268
10269
10270

1027

SCOPE MANDLER ROUTINE

seCALL

057530

057530
057532
057536

104407
005037
005037

$SCOPE:

053124
015142

LOOP ON TEST
INHIBIT ITERATIONS

LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>
SCOPE

CKSWR
CLR
CLR

.. SCOPE=101

a#NOSYNC
¥ TSECC

10279

10280
10281
10282

10283
10284
10285
10286

10287
10288
10289
10290
10291
10292
10293
10294
10295

10296

10297
10298
10299

10300
10301

10302

JWHEN =177777 1T 1S AN ECC TEST

sWHEN =0 IT 1S NOT AN ECC TEST

}85;%
10274
10275
10276
10277
10278

::TEST
FOR CHANGE IN SOFT-SWR
:CLEAR FLAG FOR MEADER ERROR COMMANDS
;CLEAR FLAG FOR ECC TESTY

057542

005037

0506264

057546

005037

015144

057552
057560

032777
001111

040000

057562

000416

057564
057570

013746
012737

057552

057576
057602
057606
057610
057612
057616
057620
057620
057626

057630
057636
057640
057646

CS7646
057656

057656

005737
012637
000463
022626
012637
000423

032777
001404

127737

001462
105737
001421

121360

a#T1SECCG

CLR

OFTESDTE

000004
057610
177060
000004

000004
.

000004

000400

121312

121304

001102

BIT
PBIT14,35WR
; ;LOOP ON PRESENT TEST?
ssYES IF SW14=1
SOVER
BNE
JNANNNSTART OF CODE FOR THE XOR TESTERANANA

001115

001108

032777

001000

121254

Mov
MOV

SNERRVEC,-(SP)
#5% ,QFERRVEC

::1F RUNNING ON THE ''XOR'' TESTER CHANGE
::THIS INSTRUCTION TO A ''NOP'' (NOP=240)
::;SAVE THE CONTENTS OF THE ERROR VECTOR
;sSET FOR TIMEOUT

cmpPB8

SSWR,STSTNM

;;ON THE RIGHT TE T?

(MPB

SERMAX,SERFLOG

187
a#177060
;. TIME OUT ON XOR?
MOV
{SP)+,Q#ERRVEC ;,RESTORE THE ERROR VECTOR
::60 TO THE NEXT TEST
$SVLAD
BR
5%:
(mMp
(SP)+,(SP)¢
::CLEAR THE STACK AFTER A TIME OU
MOV
(SP)+ ,Q#ERRVEC ;,RESTORE THE ERROR VECTOR
;;LO0OP ON THE PRESENT TEST
7%
B8R
6S::NNNNNEND OF CODE FOR THE XOR TESTERANAANA
;;LOOP ON SPEC. TEST?
#B1708,85«R
BI1
BEQ
2%
;:BR 1F NO

2$:

001103

;EVEN IN AN ECC TEST EVERY CLOCK
;1S NOT TO GENERATE ECC
1F =177777 GENERATE ECC
;1F =0 DO NOT GENERATE ECC
;DRIVE TIMING ERROR TEST

1$:

$XTSTR: BR

123737
101015

1$:

CLR

8EQ
TSTB
BEQ
BH]

BIT

$OVER
$IRFLG
3%
1%

#817109,aSwR

;:BR IF YES
;:HAS AN ERROR OCCURRED?
;s8R IF NO

SWR<7:0>

::MAX. ERRORS FOR THIS TEST OCCURRED?

;:BR IF NO

;. ;LOOP ON ERROR?

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR-79 09:10

CIRIMD P12

001404
013737
000443
105037

005037

001110

001106

001103
001212

004000

15:07
30A(1052)
24=-MAY-79
SCOPE MANDLER ROUTINE
7%:
4%

121222

3%:

001100

000004

01104
001212

000001
060020
001102
001106
001110
001214
000001
001102
001106

001104

—

001104
001212

N —

057664
057666
057674
057676
057702
057706
057710
057716
057720
057726
057726
057732
057740
057742
057750
057756
057762
057766
057772
057776
060004
060012
060016
060020

—

D ot o id e il i sl il e 0 O
OOBNO NS WN—0O0

[P LV AV IV LV IV LV JV IV 10 3

i
el
e
il
e
i
el
i
i
el
)

[=lolololelololololololo

10303
10304
10305
10306
10307
10308

MACY11

8tQ

ROV

BR
CLRB
(LR
B8R

811

BNE
187
8ta
INC
(MP

1%:
$SVLAD:

$SOVER:
SMX(NT:

8GE

Mov

MOv

INCB

MOV
Mov

CLR
Move
Mov
mMov
RT1
[

PAGE 236

SEQ 023«

3]
SLPERR _SLPADR
$OVER
SERFLG
$TIMES
1%
#BIT11, aSwWR
1%
$PASS
1%
$1CNY
$TIMES,SICNT
SOVER
M L,SICNT
SMXCNT ,STIMES
STSTNM
(SP) ,$LPADR
(SP) ,SLPERR
SESCAPE

;:BR IF NO

$TSTNM,QDISPLAY

;;DISPLAY TEST NUMBER

N1, SERMAX

SLPADR, (SP)

:2SET LOOP ADDRESS 10 LAST S(OPE
;;lERQO THE ERROR FLAG
::CLEAR THE NUMBER OF ITERATIONS TO MAKE
::ESCAPE TO THE NEXT TEST
;INHIBIT ITERATIONS?
;:BR IF YES
1F FIRST PASS OF PROGRAM
;o
INHIBIT JTERAT]ONS
N
JTERATION COUNT
ENT
INCREM
::
OF [TERATIONS MADE
NUMBER
THE
::CHECK
ON REQUIRED
ITERATI
::BR IF MORE
ION COUNTER
ITERAT
THE
ZE
;;REINITIALI
10 DO
NS
ITERATIO
::SET NUMBER OF
S
::COUNT TEST NUMBER
:;SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS
::CLEAR THE ESCAPE FROM ERROR ADDRESS
::ONLY ALLOW ONEC(1) ERROR ON NEXT TEST
;. FUDGE RETURN ADDRESS

¢ FIXES PS

;sMAX. NUMBER OF

ITERATIONS

(Xl

®.qa.

—_O
rnNoO

CIRJIHDO,RPOG/5/6 DSKLS CTRLR2
CIRJIHD.PY2
01-MAR-79 09:10

MACYTY

}8%%;

¢
3
30A(1092)
24-MAY-79
15:07 PAGE 237
CONVERT BINARY TO DECIMAL AND TYPr ROUTINE
.SBTTL

SEQ 0235

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

10329

10330
10331
10332

;*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER (0 A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE 1T. DEPENDING ON WHETHER THE
;*NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WiLL BE TYPED

10333
10334
10335
10336
10337
10338

;*BEFORE THE FIRST DIGIT OF
s*REPLACED WITH SPACES.
s *CALL:
.t
MOov
NUM,-(SP)
M
TYPDS

10339

060022

10343
10344

060030
060032

103640
10341
10342

10345

10346
10347
10348
10349
10350
10351

10352
10353
10354
10355
10356
10357
10358
10359
10360
10361
10362
10363
10364

10365
10366

10367

10368
10369
10370
10371
10372
10373
10374
10375
10376
10377
10378
10379

10380
10381
10382

060022
060026
060026

010046
010146
010246

060034

012746

060040
060046
060046
060050
060056
060060

060064
060070
060072
060076
060100
060102
0601064
060106
060110
060112
060116
060116
060120

060122
060124

060132

060136
060142
060144
060146
060152
060154
060156
060160
060162
060164
060166
06017«

060176
060200
060202

010346
010546

016605
100004
005405
112766
005000
012703

112723
005002
016001

160105

$TYPDS:

000020
000055

000001

060236
0C0040

18:

060226

100407
106316

052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105018

012605
012603
012602

000060

177777

000040

5%:

6%:

BIS

#'0,R2

7%:

8%:
177776

' L(RY)
R2
$DTBL (RO) R

;:GET THE INPUT NUMBER
;;BR IF INPUT IS POS.
;;MAKE THE BINARY NUMBER POS.
. sMAKE THE ASC]] NUMBER NEG.
;s LERO THE CONSTANTS INDEX
;sSETUP THE OUTPUT POINTER

;:BR IF YES
;. MSD?

000010

177777

;:SET BLANK SWITCH AND SIGN

20(SP) RS
1%
RS
n-,1(5P)
RO
#$DBLK R}

7%
(SP)

001002
105716

052702

#20200,=-(SP)

::PUSH R3 ON STACK
;sPUSH RS ON STAC(K

::ADD BACK THE CONSTANT
;s CHECK IF BCD DIGIT-0

6%:

000001

MoV

R3,-(SP)
RS,=(SP)

6%
RZ
33
R1,RS
R?

3%:

002402
005202
000774
060105
005702

103003
116663

:;PUSH RO ON STACK
:;PUSH R1 ON STA(K
; sPUSH R2 ON STA(K

MOVB
(LR
MOV
SUB
BLT
INC
BR
ADD
TST
BNE
STB
gM]
ASLB

RY,RS

5%
(SP)

BC(C
MovB

6%
1(SP),=-1(R3)

BIS
MOvVB
151
Cmp
BLT
BGT
MOV
8R
1ST18
BPL
Move
CLRB

fR2
R2,(R3)+
(RO)+
RO,#10
2%
8%
RS.R2
6%
(SP)+
9%
=1(SP),=2(RY)
(R3)

MOV
MOV
MOV

(SP)+,RS
(SP)+ RS
(SP)+ ,R?

;:PUT THE BINARY NUMBER ON THE STACK
;.60 TO THE ROUTINE

RO,=(SP)
R1,-(SP)
R2,-(SP)

MOV
BPL
NEC
MOvB
CLR
MoV

THE NUMBER. LEADING ZEROS WILL ALWAYS BE

MoV
MOV
MoV

MOV
MOV

020200

::SET THE FIRST CHARACTER 1D A BLANK
:CLEAR THE BCD NUMBER
;:GET THE CONSTANT
:;FORM THIS B(D DIGIT
;BR 1F DONE
;s INCREASE THE BCD DIGIT BY 1

;s FALL THROUGH IF O
;oSTILL DOING LEADING 0°S?

::BR IF NO
;s YES==SET THE SION

s sMAKE THE BCD DIGIT ASCII

sMAKE 1T A SPACE IF NOT ALREADY A DIGIY
+;PUT THIS CHARACTER IN THE OUTPUT BUFFER
s JUST INCREMENTING
;sCHECK THE TABLE INDEX
;:60 DO THE NEXT DIGIT
;.60 10 EXIT
;:6FT THE LSD
+ .60 CHANGE TO ASCII
;;WAS THE LSD THE FIRST NON-ZERO?
;:BR [F NO
JYES==SET THE SIGN FOR TYPING
;:SET THE TERMINATOQR

:sPOP STACK INTO RS
::POP STACK INTO RS
;. POP STACK INTO R?

CIRIHDO,RPOL/S5/6 DSKLS CTRLR¢
CZRJIMD P12
01-MAR-79 09:10
10383

10384
10385
10386

10387

10388
10389
10390
10391
10392
10393

060204
060206
060210
060214
060222
060224
060226
060230
060232
060234
060236

012601
012600

104401
016666
012616
000002
023420
001750
000144
000012
000004

060236
000002

MACY11

30A(1052)
26-MAY=79
15:07 PAGE 238
CONVERT BINARY TO DECIMAL AND TYPt ROUTINE

000004
$0TBL:

$0BLK:

MOv
Mov
1YPE
mov
mOov
RTI

}0000.
000.

100.
10.
.BLKW

(sP)¢+ R
(SP)+ RO
. $S0BLK
2(SP),&(SP)
(SP)+,(SP)

:POP STACK [NTO RI
;sPOP STACK INTO RO
; :NOW TYPE THE NUMBER
; sADJUST THE STA(CK

;:RETURN T0 USER

SEQ 0236

CIRJIHDO,RPOL/S5/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJHD.PY?

MACY11

10433
10434
10435
10436
10«37
10438
10439

10440
10441
10442
10643
10444
10645
10446

10447
10448
10449

TYPE

26-MAY-79

ROUTINE

.SBTTL

10394

10395
10396
10397
10398
10399
10400
10401
10402
10403
10404
10405
10406
10407
10408
10409
10410
10611
10412
106413
10414
10415
104616
106417
10418
10419
10420
104621
10422
10423
10424
10425
10426
10427
10428
10429
10430
10631
10432

30A(1052)

TYPE

15:07

PAGE 239

SEQ 0237

ROUTINE

:;'""""'""""""""""""""""""""""""""'

;*ROUTINE TO TYPE ASCI2 MESSAGE. MESSAGE MUST TERMINATE WwiTH A O BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHMARA(TER.
$FILLS CONTAINS THE NUMBER OF FILLER (HARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

;eNOTE:
s*NOTE?:
;*NOTE3:
[

seCALL:

;*1) USING A TRAP INSTRUCTION
s
;*0R
it

T1YPE

.MESADR

;;MESADR

IS FIRST

ADDRESS OF

$TPFLG
%

;1S THERE A TERMINAL?
;:BR IF YES
J:HALT HERE JF NO TERMINAL
;s LEAVE

AN ASCIZ

STRING

TYPE

MESADR

060246

060252
060254
060256
060260
060262
060266
060270
060272
060276
060276
060302
060304
060310
060312
060316
060320
060322
060324
060326
060332
060334
060340
060344
060346

060352
060356
060360
060364
060370

105737
100002
000000

000407
010046
017600
112046

001005
005726
012600
062716
000002
122716

001430
122716
001006
005726
104401
001223
105037
000755
004737
123726
001350
013746
105366

002770
004737
105337
000770

001157

$TYPE:

1%:

TS1B
BPL
HALT
BR
mov

2%:
60%:
1%

000002
000011

6%:

000200

MOV

(SP)+,RO

::GET ADDRESS OF ASCIZ STRING
;:PUSH CHARACTER TO BE TYPED ONTO STA(K
::BR IF 17T ISN'T THE TERMINATOR
::1F TERMINATOR POP |1 OFF THE STA(K
;:RESTORE RO

#HT, (SP)

::BRANCH [IF

#CRLF, (SP)

; :BRANCH IF NOT <(RLF>

(SP)+

;:POP <CR><LF> EQUIV
::VYPE A CR AND LF

(SP)+

151

#2,(SP)

ADD

RT]

(MPB
BEQ
(MPB
BNE
1581

1YPE

060462
5% :
6%:

060616
001156

001154

000001

7%:

$CRLF
CLRB
B8R
JSR
(MP8

000040
060416

000007

060462

8%:
9%:

SCHARCNT

PC,STYPEC
$FILLC,(SP)+

BNE
MOV

DE(B

1(sP)

BLT

JSR
DECB
BR

060416
060462

;s SAVE RO

MOvB
BNE

MOV

000002

;HORIZONTAL

060372
060376
060402
060410
0604612

RO,=(SP)
82(SP) RO
(RO)+,=(SP)
'3

MovB
JSR
BITB
BNE
151

$NULL ,-(SP)

PC,STYPEC
$CHARCNT
7%

::ADJUST

: :RETURN

RETURN PC

<HT>

::CLEAR CHARACTER COUNT
CHARACTER

;:GEY NEXT

::60 TYPE THM]IS CHARACTER
::1S 1T TIME FOR FILLER (MARS.?
1F NO GO GET NEXT CHAR,
;.
;:GET # OF FILLER CHARS. NEEDED
::AND

THE

NULL

C(HAR,

;:DOES A NULL NEED 10 BE TYPED?
::BR IF NO--GO POP THE NULL OFff OF STA(K
::60 TYPE A NULL
::00 NOT COUNT AS A COUNT

;. LOOP

TAB PROCESSOR
0 ,L(5P)
PC,STYPEC

;:REPLACE TAB WITH SPAC(E
;VTYPE A SPACE

(SP)

.. TAB STOP
;;POP SPACE

#7,8CHARCNT
9%

;;BRANCH 1F

NGCT AT
OFF

STA(K

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
CIRIHD.PY2
01-MAR-79 09:10
10450
104651
10452
10653
10456
10455
10456
10457
10458
10459
10460
10461
10462
10463

060414
060416
060422
060424
060432
060440
060442
060446
060450
060456
060460
060462
060664

000724
105777
100375%

116677

122766

001003
105037
000406
122766
001402
105227
000000
000207

MACY11

120526

000002
000015

30A(1052)
TYPE

060462

000012

ROUTINE

$TyYPe(:

120520
000002

000002

1%:

24-MAY-79

BR
1518
BPL
MOVB
(mMPB
BNE
(LRB
BR

(MPB

BtQ

INCB

SCHARCNT: .WORD
$TYPEX: RIS

2%
881PS

15:07

STYPEC
2(SP),as1PB
#CR,2(SP)
1%
$CHARCNT
STYPEX
WLE,2(SP)
STYPEX
(PC)e

3
PAGE 240

;:GET NEXT CHARACTER

;;WALIT UNTIL PRINTER [S READY

;;LOAD CHAR TO BE TYPED [NTO DATA REG.
;.19 CHARACTER A CARRIAGE RETURN?

; BRANCH |F NO

;;EE?;-(LEAR CHARACTER COUNT
s

::1S CHARACTER A LINE FEED?
::BRANCH IF YES
; ;COUNT THE CHARA(TER
:;CHARACTER COUNT STORAGE

SEQ 0238

CIRJIHDO,RPO4/S5/6 DSKLS CTRLR?
CZRJNHD P12
01-MAR-79 09:10
10464
10465
10466
10667

10468

10469
10470
106471
10472
106473
10474
10475
10476

MACY11

-—

il
el
el
el
S
—

o
OO
N
AN

[ RV SV RV _JU LV LV AV JV } (¥

b
i
i
i
el
e
e
—

folelolelelalelela) o

TTY

INPUT

JSBITL

24-AAY-79

ROUTINE

TTY

INPUT

15:07

PAGE

241

SEQ 0239

ROUTINE

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

060466

060470
060472
0606476

.ENABL
LSB
$IK(NT: .WORD
$IKQIN: .WORD
$1xQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=,
.EVEN

000000
000000
000000
000011
060505
060506

ITEMS IN QUEUE

;:NUMBER OF

O
O

;o INPUT POINTER

;:1TY

;:0UTPUT POINTER
KEYBOARD

QUEUE

s*TK INITIALIZE ROUTINE

;*THIS ROUTINE WILL INITIALIZE THE TTv KEYBOARD INPUT QUEUE
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

10477

NNNNNNNN

060506
060512
060520
060526
0605 34
060542
060546
06055¢

(@ J VRV ] N1 NIV 1, VAV, ]
NI NNNNNNO
O N NN
N

;eCALL:

[olelolololololo]

10478
10479
10480
10481
10482
10483
10484
10485
10«86
10487
10488
10489
10490
104691
10492
10493
10694
10495
10496
104697
10498
10499
10500
10501
10502
10503
10504
10505
10506
10507
10508
10509

30AC1052)

060466
060474
060470
060556
000200

060470
060472
000060
000062

000100

120370

120400

.
.®

JSR
RETURN

PC,OTKINT

$TKINT:

CLR
MoV
mov

$TKCNT
;s CLEAR COUNT OF ITEMS IN QUEUE
#$TKQSRT,$TKQIN :.MOVE THE STARTING ADDRESS OF THE
$TXQIN,$TKQOUT
;sQUEUE INTO THE INPUT & OUTPUT POINTERS.

MoV

#200,38TKVE(C+?

MOV

ST
MOV
RTS

#STKSRV,a#TKVEC(

8% TkB
#100,3%7kS
PC

::INITIALIZE THE KEYBOARD VECTOR
;:"'BR'' LEVEL &
;s CLEAR DONE FLAG

;ENABLE TTY KEYBOARD INTERRUPT
:;RETURN

CALLER

;*Tk SERVICE ROUTINE
;*THIS ROUTINE WILL SERVICE THE TTY KXEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;*]T

IN THE QUEUE.

;*]F THE CHARACTER IS A "'CONTROL=C'' (*C) STKINT IS CALLED AND
;*UPON RETURN EXIT 1S MADE TO THE ''CONTROL=C'' RESTART ADDRESS (OPERSCL)
060556
060562
060506
060572
060574
060600
060604
060606
060612
060616
060620
060626

060630
060630
060636
060640
060644
060646
060650
060654

117746

042716
021627
001007
104401

004737
005726
000137
021627
001004
022737
001500

022737
001004

1046401
005726

000451
021627
001021

$TKSRV: MOVB

120364
177600

8IC
cme
BNE

000003

TYPE

061545
0623506

JSR

045036
000007

000176

000011

1%:

2%:

000023

b1 ¥

JOCNTLC

PC,3TKINT
¢
(SP)
CPERSEL

::PICKUP

THE

::STRIP THE

C(HARACTER

JUNK

;218 1T A CONTROL (C?

: :BRANCH IF NO
::TYPE

A CONTROL-C

::INIT THE KEYBOARD
::CLEAN UP STA(CK

(*(O)

;;CONTROL € RESTART

SWR
#SWREG,
6%

;1S 1T A CONTROL G?
::BRANCH 1F NO
;215 SOFT=-SWR SELECTED?
;.60 TO SWR C(HANGE

(mMp
BNE

¥9.,8TK(NT
b33

;1S THE QUEUE FULL?
;:BRANCH ]F NO

1S17

(SP)+

::CLE?N CHARACTER OFF OF STA(K

(MP

TYPE

001216

#2C177,(5P)
(SP),#3
1%

BNE

(mMp
8taQ

001140

060466

191
JMP

@$TKB,=(SP)

B8R
(mp
BNE

(SP),#7

LJOBELL

5¢
(SP),#23%
329

;3RING THE

TTy BELL

sEX]

;1S 17 A CONTROL=S?

;;BRANCH [F

CIRIHDO,RPNG/S/6 DSKLS CTRLR?
01-MAR=-79 09:10
CIRIND.PY2
10520
10521
10522
10523
10524

10525

10526
10527
10528
10529
10530
10531
10532
10533

10534
10535
10536
10537
10538
10539
10540
10541
10542
10543
10544
10545
10546
10547
10548
10549
10550
10591
10552
10553
10554
10555
10556

060656
060662
060664
060670
060672
060676
060702
060706
060710
060716
060720
060724
060730
060732
060736
060740
060744
060750
060754
060762
060764
060772

005077
005726
105777

100375
117746

042716
022627
001366
012777
000002
005237
021627
002405
021627
003002
042716
112677
005237
023727
001003
012737
000002

MACY1Y

31%:

120256
120250
177600

000021

000100

120226

32%:

060466
000140
000175
000040
177520
060470
060470

060505

060474

060470

49:

10564
10565
10566
10567
10568
10569
10570

10671
10572
1057%
10574
10575

5%:

INPUT

24=-MAY=79

ROUTINE

15:07

CLR

1 31 &

1518
BPL
Move
B1C

F} 31 &
s
8% TKB,=-(SP
°C177,(5P)

1351

(mp
BNE
MOV
R11]
INC
(mp
BLT
(mp
BGT
BIC

MovB

INC

(mp
BNE
MOV
R11

3
PAGE

242

SEQ 0240

::DISABLE TTY KEYBOARD INTERRUPTS
STA(K

(SP)+

::CLEAN CHAR OFF

(SP)+, 021
31
#100,9%7xS

$TKCNT
(SP),#140
4%
(SP),M75
43
#40,(SP)

;1S 1T A CONTROL-Q?
; :BRANCH IF NO
::REENABLE TTY KEYBOARD
:;RETURN
::COUNT THIS CMHARACTER
::1S 1T UPPER CASE?
; ;BRANCH IF YES
;1S 1T A SPECIAL (HAR?
;;BRANCH ]F YES
J:MAKE IT UPPER (ASE

$TXKQIN

::UPDATE THE POINTER

(SP)+ ,a8TKQIN

;:WALT FOR A CHAR
;:LO0P UNTIL TS THERE
;;GET THE (HARACTER
::MAKE JT 7-BIT ASCIlI]

:sAND PUT

INTERRUPTS

IN QUEUE

$TKQIN,#STKQEND ;G0 OFF THE END?
5%
;:BRANCH IF NO
#STXKQSRTY,STKQIN ;;RESET THE POINTER
: ;RETURN

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

;*SOF TWARE SWITCH REGISTER (HANGE ROUTINE.

;*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP

060774
061002
061004
061010
061012
061016
061022
061026

0227%7
001124

105777
100121
117746

042716
021627
001300

000176

001140

;*CALL WHEN OPERATING IN TYY [NTERRUPT MODE.
$(KSWR: (MP
#SWREG, SWR
22 1S THE SOFT=-SWR SELECTED

120134

120130
177600
000007

BNE
1518
BPL
MOVB

15%
131 &3
15%
83T1kB,~-(SP)

J2EXIT IF NOT
;219 A CHAR WAITING?
;218 NOT, EXIT
DiYES

(mp

(SP) .07

;019

17 A CONTROL =-G?

:sAND

EXIT

BiC

BNE

#4C177,(5P)

;:MAKE IT

7-BIT ASCII

::1F NOT, PUT 1T IN THE TTY QUEUE

. ttt""'"""'"""""""t""'!"'t't"'ttt"tt"""'t't'

10559

10563

TTY

120262

10557
10558

10560
10561
10562

30A(1052)

001134

061030
061036
061040
061042
061046
061052

123727
001674

061060
061064
061070
061074
061076
061102
061106

104401
104401

061557
061564
000176

1064401

061575

005726
004737
005077

112737

013746
106402
005046
C05046

000001

'(ONYROL 1S PASSED TO THWIS POINT FROM EJTHER THE TTY INTERRUPT SERVI(E
:*ROUTINE OR FROM THE SOFf TWARE SWIT(H REGISTER TRAP CALL, AS A RESUL! OF A
:*CONTROL=G BEING TYPED, AND THE SOF TWARE SWIT(CH REGISTER BEING SELECTED.
;;ARE WE RUNNING IN AUTO-MOODE?
SAUTOB, l\
(MPB
b$

060506
120072
000001

001135

BEQ
181
JSR
(LR
MOvB

2%
(SP)¢
PC,TKINT
88 1k$
#1,8INTAG

:sBRANCH IF YES
;:CLEAR CONTROL=G OFF STA(CK
2:FLUSH THE TTY INPUT QUEUE
;:DISABLE TTY KEYBOARD INTERRUPTS
:.SET INTERRUPT MODE INDICATOR

TYPE

JOONTLG

:;ECHO THE CONTROL-G (*G)

MOV
1YPOC
T1YPE
(LR
(LR

SWREG,=(SP)

::;SAVE SWREG FOR TYPEOQOU!
;G0 TYPE==0CTAL ASCII(ALL DIGITSY
;:PROMPT FOR NEW SWR
:CLEAR COUNTER
. THE Ntw SwR

$0TSWR: TYPE

19%:

,9MSWR

LJIMNEY
-(SP)
«(SP)

J:TYPE CURRENT (ONTENTS

CIRJHDO,RPO4/S5/6 DSKLS CTRLR?
CIRJIHD P12
01-MAR-79 09:10
10576
10577
10578
10579
10580
10581
10582
10583
10584
10585
10586
10587
10588
10589
10590
10591

10592

10593
10594

10595
10596
10597
10598
10599
10600
10601
10602
10603
10604

10605

10606
10607
10608

10609

10610
10611
10612
10613
10614
10615
10616

10617
10618
10619
10620
10621
10622

10623
10624

10625
10626
10627
10628
10629
10630
10631

MACY1Y

26=-MAY-T79

30AC1052)
TTY

INPUT ROUTINE

7%:

1518

BPL

83%1xs
7%

061106
061112

105777
100375

120032

061114

061120

117746

042716

1200¢6
177600

move

33$TKB,

061124
061130
061132
061136
061142
061150
061152
061160

021627
001015

000003

(mp
BNE

062706

000006

061164

021627
001005

061170
061172
061176
061202

061204
061210
061212
061216
061220

061226
061232
061236
061244
061246
06125¢6

061256
061262

061266
061270
061274
061276

061302
061306
061310
061312
061314
061316
061322
061326
061330
061334

B1C

104401

061545

123727

001135

000001

000100
045036

117764

001003
012777
000137

104401

062706
000737
021627
001022
005766
001403
016677
062706
104401
123727

001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000667
104401

000720

= (SP)

#ACA77. (5P

:;CONTROL~C RESTART

;1S 1T A CONTROL-U?
; :BRANCH IF NOT
;. YES, ECHO CONTROL-U (*U)
;. IGNORE PREVIOUS INPUT
sLET'S TRY IT AGAIN

#100,8%7xS

061552
000006

(SP),#25
108

20%:

ADD

"o ,SP

000015

10%:

000001

000100

117670

060416
000060

15%:
16%:

B8R

cmp
BNE
151
g8EQ
Mov
ADD
TYPE
{mP8

001222

18%:

.DSABL

"6,5P

LSCRLF

RYI
JSR
(mp

PC,STYPEC

MOV

BIC
191
BEQ

17%:

19%

BNE

(mp

000002

LSONTLU

$SINTAG.
M
15%
#107,387kS

BGT

000060
000002

177776

TYPE

BLY

000067

;MAKE [T 7-B1T ASCI!

OPERSEL

LOONTLC

#6,5P
M
SINTAG,

(Mp
BNE

11%:
16%:

::PICK UP CHAR

JMP

Mov

(SP),#}%

9% :

117712

SEQ 0241

;s CHAR THERE?
1F NOT TRY AGAIN
;.

000025

000002
000006
001223
001135

PAGE 243

(MPB
BNE

000004

::1S IT A CONTROL=C?
::BRANCH ]F NOT
;JYES, ECHO CONTROL=-C (*(C)
;;CLEAN UP STACK
::REENABLE TTY XEYBOARD INTERRUPITS?
; ;BRANCH 1F NO

TYPE
ADD

8%:

15:07

ASL
ASL
ASL

INC
BIS
B8R
TYPE
8R

LSB

(SP),#60
18%
(SP) ,#67
18%

#60,(SP)+

2(SP)
179

(SP)
(SP)
(SP)

2(SP)
«2(SP),(SP)
7%
. SQUES

20%

;:ALLOW TTY KEYBOARD

INTERRUPTS

1S 1T A <CR>?
::BRANCH IFf NO
:2YES, IS IT THE FIRST (MHAR?
::BRANCH F YES
;. SAVE NEW SWR
;s CLEAR UP STACK
::ECHO <CR> AND <LF>

::RE-ENABLE TTY KBD INTERRUPTS?
::RRANCH JF NOT
:iRE-ENABLE TTY KBD INTERRUPTS

::RETURN

;;ECHO CHAR

::(HAR < (0?
::BRANCH F

YES

::(HAR > 7?
::BRANCK IF YES

;:STRIP=-0FF ASCII
;o 1S THIS THE FIRST (MAR
; ;BRANCH IF YES

::NO,

SHIFT PRESENT

;s TYPE

(HAR OVER TG MAKE
MM
ROOM FOR NEW ONE.
N
;:KEEP COUNT OF (MAR
::SET IN NEW CMHAR
;:GET THE NEXT ONE

s SIMULATE CONTROL=-U

TeTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM TWg T1v
;e(ALL:

CIRJHDO,RPOGL/S/6 DSKLS (3 RLR?
CIRJIND, P12
01-MAR-79 09:10
10632
10633
10634
10635
10636
10637
10638
10639
10640
10641
10642
10643
10644

10645

10646

10647

10648
10649
10650

10651
10652
10653
10654
10655

061336
061340
061346
061352
061354
061360
061362
061362
061366
061370
061374
061402
061406
061414
061416
0614624

011646
016666
005066
005046
012746
000002

005737
001775
005337

117766

005237
023727
001003
012737
000002

000004
000004

MACY
Y

000002

10684
10685
10686
10687

SRDCHR:

060466
177072
060472
060472

060474

1%:

060505

2%:

15:07

PAGE 244

SEQ 0242

RDCHR
RE TURN HERE

::GET A CHARACTER FROM THE QUEUE
:CHARACTER IS ON THE STA(K
;;WITH PARITY BIT STRIPPED OFF

MOV
MoV

::PUSH DOWN THE PC AND
::THE PS

(SP),=(SP)
L(SP),2(5P)

4 (SP)
-(SP)
#6498 ,-(SP)

::GET READY FOR A CHARA(CTER
::PUT NEW PS ON STACK
;:PUT NEW PC ON
STA(K

191

$TK(ONT

::WAIT ON A CHARACTER

DEC

$TK(NT

::DECREMENT THE COUNTER

INC
(mp

::UPDATE THE POINTER
$TKQOUT
$TKQNUT ,#STKQEND ;;DID IT GO OFF OF THE END?
2%
; ;BRANCH ]F NO
#STKQSRT,$TKQOUT ;:RESET THE POINTER
: :RETURN

RYI

BEQ
Mov8

000004

060472

ROUTINE

(LR
(LR
MOv

64Y:

060466

24-MAY-79

BNE
MoV
RT1

::POP NEW PC

98TKA0UT,4(SP)

;;GEYT ONE

AND PS

CMARACTER

:.'""""""""""""""""""'..""""".'Q""'I'.'"

:eTHIS ROUTINE WILL INPUT A STRING FROM THE TTY

;

o
X

061426
061430
061634
061440
061642
061444
061446
061452
061454

A E aad 2V 12V ]
SN~
—OO00O
[« XV TV TV ]

10665
10666
10667
10668
10669
10670
10671
10672
10673
10674
10675
10676
10677
10678
10679
10680
10681
10682
10683

INPUT

seCALL:

613

Ed A

10661
10662
10663
10664

TTY

061362

10656
10657
10658

10659
10660

30A(1052)

003

0614060
061462

061466

061472
061476
061500
061504
061510
061512
061514
061522
061530
061532

061533
06153%¢
061549
061552
061557
061564

2%:

000177

10%:

001222

061532
061532
000015

3%:

001224

061534

BNE

MovB
(mPB

TYPE
BR
MOvB
TYPE

000002
000004

000012
000
000012
020122

$TIVYIN:
SCNTLC:
SCNTLU:
SINTLG:
$MSWR:

;;BUFFER FuLL?

;B8R IF YES
::G0 READ ONE CHARACTER FROM THE TTv
::GET CHARACTER
;219 17T A RUBOUT

(SP)+,(RY)
#177,(RY)

;.SKIP 1F NOT

,9QUES
1%
(R3),9%

;TYPE A
;:CLEAR THE BUFFER AND LOOP
;.ECHO THE CHARACTER

(mPB
BNE

#15,(R3)
2%

;s CHECK FOR RETURN
::L00P IF NOT RETURN

1YPE

LSLF

‘:!YPE

(SP)0 RS

(SP), -(SP)
G(SP),Z(SP)

.BYTE
BYTE
.BLKB
ASCIZ
.ASCIZ
LASCIZ

0
0
9.
/7%C/7<15<12>
/7*U/<15><12>
/7%G/<19><12>

Moy
R11

L AS(1?

::CLEAR RETURN (THE 15)

-1(RY})

MOV
MOV

A LINE

:RESTORE R3

FEED

ADJUST THE STACK AND PUT ADDRESS OF
FIRST ASCI! C(HARA(CTER ON [T
;,

#STTYIN,L(SP)

<IS><12>/SUR

ALL 0°S

;s SAVE R3
:;GET ADDRESS

FOTTYIN+9, RS

MOV

9% :

005015

(mp

TTv

::TERMINATOR WILL BE A BYTE OF

R3,=(SP)
#STTIYIN,RD

BLOS
RDCHR

CLRB

171777

;2 INPUT A STRING FROM THE

::ADDRESS OF FIRST CHARACTER WiLL BE ON THE STA(K

RETURN MHERE

$SRDLIN: MOV
1%:
MoV

061534
061545

000004

ROLIN

;s RETURN

::STORAGE FOR ASCll C(HAR. 10 TYPt
::TERMINATOR
;:RESERVE 9. BYTES fOR 11y INPUT
;s CONTROL *°C"'
::(ONTROL ‘%"
;;CONTROL "'G"'

CIRJHDO,RPOL/S/6 DSKLS CTRLR2

CIRJHD.P1?
10688

10689
}868?
6

061572

061575
061602

01-MAR-79 09:10
020075

0640
036440

000

067040
000040

MACY11 30A(1052)
TTY

053505

24=-MAY=79

INPUT ROUTINE

SMNEw:

(ASCIZ

15:07

NEW

PAGE 245

SEQ 0243

/
LFROM

THE

TTv

CIRJIHDO,RPOL/S5/6 DSKLS CTRLR?2
CIRJHD.P1?
01-MAR-79 09:10

MACY1Y

10692
10693

10707

10711
10712
10713
10714
10715
10716
10717
10718
10719
10720
10721
10722
10723
10724
10725
10726
10727
10728
10729
10730
1073
10732
10733
10734
10735
10736
107%7
10738
10739
10740
10741
10742
107453
10744

24-MAY-79

AN OCTAL NUMBER

15:07

PAGE

FROM THE

TTY

246

READ AN OCTAL NUMBER FROM THE

SEQ 0244
TTvY

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

;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
;*CHANGE 17 T0 BINARY,

;*THE

10697
10698
10699
10700

10708
10709
10710

READ

.SBTTL

10694
10695
10696

10701
10702
10703
10704
1070%
10706

30A1052)

INPUT CHARACTERS WitL BE

CHECKED TO INSURED THEY ARE LEGAL

;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A '"?"' wilLL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
;*THEN BE RETYPED.

soCALL:

THE

INPUT

RDOCT

RETURN HERE

061606
061610
061616
061620
061622
061624
061626
061630
061634
061636
061640
061642
061644
061650

061652
061656
061660
061662
061664
061666
061670
061672
061674
061700
061702
061704
061706
061712
061716
061720
061722
061724
061726
061730
061732
061734
061736
061742
061744

000004

000002

$RDOCT:

MOV

4 (SP),2(SP)
RO,-(SP)

MOV

R2.-(SP)

MOV
MOV
(LR
CLR

(SP)+ RO
R0,SS
R1
R?

(MPB
BGT

#'0,(SP)
43

BLT

MOV
1%:

061734

2%:
000060

000000

$H10CT:

(RO)+,=-(SP)
3%

#'7,(5p)

RZ2.,.SHIOCY
(SP)+ ,R?
R
(SP)+
(SP)+,RO

(SP)e
(RO)

.WORD

1%
0

,WORD

. MAKE

SURE

THIS CHARACTER

;. 1S AN OCTAL DIGIT

:2ADD IN THIS D!GIT
;.LooP
::CLEAN TERMINATOR FROM STA(K
;:SAVE THE RESULT

187
(LRB
1YPE

;:PICKUP THIS CHARACTER
1F ZERO GET OUT
;.

(SP)+ R

2%
(SPY+
R1,12(5P)

TYPE

;;PROVIDE SPACE FOR THE
;s INPUT NUMBER
::PUSH RO ON STACK
::PUSH R1 ON STACK
;:PUSH R2 ON STAC(CK
::READ AN ASCIZ LINE
::GET ADDRESS OF 1ST CHARA(TER
;;AND SAVE 7
;;CLEAR DATA WORD

H P

BR
TS7
MOV

RY]

:;READ AN OCTAL NUMBER
;.LOW ORDER BITS ARE ON TOP OF THE STACK
;;HIGH ORDER BITS ARE IN $HIOCT

R1
RZ
R
R2
R1
R2

#4C7,(5P)

MOV
MoV
Mov
MOV

5¢:

R1,=-(5P)

BIC

ADD

'3 ¥

001222

MOvVB
BeaQ

ASL
ROL
ASL
ROL
ASL
ROL

177770

000012
061744

RDLIN

(MPB

000067

(SP),=(SP)

MOV
MOV

IS TERMINATED BY TYPING A CARRIAGE RETURN.

LSQUES

;.8
ASCII

;:STRIP THE

JuUNK

:;POP STACK INTO RZ2
;sPOP STACK INTO RI
;sPOP STACK

INTO RO

; sRETURN

;s CLEAN PARTIAL FROM STA(CK
;:SET A TERMINATOR
;. TYPE UP

THRU

::.C?ll

..(R'.

;:TRY

AGAIN

‘

THE BAD

(HAR.

..l'.‘

;:;H1GH ORDER B1TS GO HERE

CIRJHDO,RPO4/5/6 DSKLS CTRLRZ
01-MAR-79 09:10
CIRJHD.P1?

MACY1T

10745
10746
10747
10748
10749
10750
10751
10752
10753

10754
10755
10756
10757
10758
10759
10760
10761

10762

10763

10764
10765
10766
10767
10768
10769
10770
10771
10772

10773
10774

10775
10776
10777
10778
10779
10780
10781
10782
10783
10784
10785
10786

10787

10788
10789
10790
10791
10792

30A(1052)
2L-MAY-79
ERROR HANDLER ROUTINE
.SBTTL
B

X2 XX

n3
PAGE 247
15:07

SEQ 0245

ERROR HANDLER FOUTINE
X

R X X

XX E R

R XXXXZXANEAZAREEEEARRAARAAS
AR
RRARERARRRN SR

2*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
:*AND GO 10 SERRTYP ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR
;eSW15:=1
;eSW13=1
INHIBIT ERROR TYPEOUTS
;*SW10=1
BELL ON ERROR
;*Sw09=1
LOOP ON ERROR
e CALL
*

061746
061746
061750
061756

012737

062016
062024

062032
062040

062062
062064
062072
062074
062100
062104
062106
062112
062112

177777

015124

104401

005777
100002

REGSA1:
7%:

001103

061756
061762
061764
061772
062000
062002
062006
062012

062042
062046
062052
062052
062056
062060

SERROR:

104407

20%:
2$:

032777
001402
013716
005737
001402
013716
000002

001000

001110
00121¢
001214

117046

3s:
49

5%:

::TEST FOR CHANGE IN SOFT-SWR
;SET ERROR FLAG

SERFLG
7%

BIT
8ea

;N0 -

SERTTL

::COUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION

INC

Mov
SuB
MOvB

Bl
BNE

117062

ITEM NUMBER

INCB
8ta

TYPE

001223

AND N=ERROR

#-1,30ERFLGS

001216
001112
001116
000002
117066
020000
062114

:;ERROR=EMT

Mov

mov

19:

CKSWR

001102
002000

000000
104407

ERROR

;SET THE ERROR FLAG
;:DON'T LET THE FLAG GO TO ZERO
STSTNM,IDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG
#BIT10,9SuWR
;:BELL ON ERROR?
SBELL

(SP) ,$ERRP(

#2,8ERRPC
S8SERRPC,S1TEMB
#BIT13,aSuWR

20%

JSR
TYPE

PC,SERRTYP
CSCRLF

157

aSWR

8PL
HALT
CKSWR
Bl
BtQ

MOV
187

/81709, ,aSuR
3
SLPERR, (SP)
$ESCAPE

Mov

SESCAPE, (SP)

8eaQ

RT}

SK]IP

;RING BELL

;:STRIP AND SAVE

THE ERROR

;. SKIP TYPEOUT 1F SET
;s SK1P TYPEQUTS
::60 TO USER ERROR ROUTINE

]TEM (CODE

:;HALT CN ERROR
::SKIP IF CONTINUE
; HALT

ON FRROR!

IN SOFT-SWR
::LOOP ON ERROR SWITCH SET?
.:BR I1f NO
;;FUDGE RETURN FOR LOOPING

;:TEST FOR CHANGE

:;(HECK FOR AN ESCAPE ADDRESS

;:BR IF NONE
;. FUDGE RETURN ADDRESS FOR ESCAPE
;s RETURN

CIRJHDO,RPOL/S/6 DSKLS CTRLRZ
01-MAR-79 09:10
CIRJHD.P12
10793
10794
10795
10796
10797
10798
10799
10800
10801
10802
10803
10804
10805
10806
10807
10808
10809
10810
10811
10812
10813
10814
10815
10816
10817
10818
10819
10820
10821
10822

10823
10824
10825
10826
10827
10828
10829
10830
10831
10832

'0833
10834

10835
10836

10837

10838
10839
10840
10841
10842
10843
10844
10845
10846
10847

10848

MACY1Y1

N
3
15:07
PAGE 248
30A(1052)
2L=MAY-79
ERROR MESSAGE TYPEOUT ROUTINE
.SBTTL

SEQ 0246

ERROR MESSAGE TYPEOUT ROUTINE

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

2*THIS ROUTINE USES THE '‘ITEM (ONTROL BYTE' (SITEMB) TO DETERMINE WHICH
;*ERROR IS 1O BE REPORTED. 1T
:*AND REPORTS THE APPROPRIATE

062114
062114
062120
062122
062124

062130
062132

062136
062140
062142
062144
062146
062150
062152
062156
062162
062164
062166
062170

062174
062200
062202
062204
062206
062212
062214
062216
062220
062222
062224
062226
062230
062232
062234
062234
062236
062240
062242
062244
062250
062252
062254
062256
062262
0622664

104401

010046
005000
153700
001004
013746

001223

SERRTYP:

001114
001116

104401
000000
104401

012037
001404

104401
000000
104401
010146
012001
001415
012000
105720
001003
013146
104402
000402

1%:

001226
062166

001223
062204

001223

000764

012601
012600
104401
000207
020040
062270

5%:

7%:

1046405

106401

6$%:

013146

005711
001403

CLR
B1S8
BNE
MOv

$ERRPC,-(SP)

8%:

000

ASL
ASL
ASL
ADD
MoV

TYPE

.WORD

TYPE
MOV
8taQ
TYPE
.WORD
TYPE
MOv
MoV

BEQ
MOV
1518
BNE
MoV
T1YPOC

9%
:
108:
118:

109
RO
RO
RO
RO
#SERRTB,RO
(RO)+,2%

::1F

1TEM NUMBER IS ZERO, JUST

;:;TYPE

THE

PC OF

THE

ERROR

;s SAVE SERRPC fFOR TYPEOUT
:;ERROR ADDRESS
::60 TYPE-=0CTAL ASCIIC(ALL DIGITS)
:GET 0UT
,,ADJUSI THE
WORK

INDEX SO THAT
FOR THE FRROR

IT WlLL
TABLE

::;FORM TABLE POINTER

::PICKUP "'ERROR MESSAGE'' POINTER

:: 'ERROR MESSAGE'' POINTER GOES HERE
::"'CARRIAGE RETURN'' & ''LINE FEED"
::PICKUP '"'DATA HEADER'® POINTER
;:SKIP TYPEQUT IF O

LSCRLF

(ROY+,48
5%
0

LSCRLF

R1,-(SP)
(RO)+ R
9%
(RO)+,RO
(RO)+
7%
+
, =(SP)
a(R1)e¢

8(R1)+,-(SP)

BtQ

(R1)
9%
118

mov
Mov
T1YPE
RTS

(SP)+ R
(SP)+ RO

EVEN

;;PICKUP THE ITEM INDEX

MoV

LASCIZ

::"'CARRIAGE RETURN'' & '‘LINE FEED'’
:1SAVE RO

::SKIP TYPEOUT IF NO POINTER

T1YPDS
181

INFORMAT]ON CONCERNING THE ERROR.

TYPE

062264

001223

BR
DEC

BEQ

2%:

JSCRLF

RO,=-(SP)
RO
afS1TEMB,RO
1%

TYPOC

104402

000445
005300
006300
006300
006300
062700
012037
001404

TYPE
Mov

THEN OBTAINS, FROM THE '‘ERROR TABLE'' (SERRTB),

SCRLF

::TYPE THE '"'ERROR MESSAGE''

::TYPE THE ''DATA HEADER''

::"'DATA HEADER'' POINTER GOES HERE
;s 'CARRIAGE RETURN'' & ''LINE FEED"
::SAVE R
::PICKUP ''DATA TABLE'® POINTER
::BR IF NO DATA 10O BE TYPED
::PICKUP ''DATA FORMAT'' POINTER
::"'OCTAL'' OR "'DECIMAL"
::BR 1F DECIMAL
::SAVE a(R1)+ FOR TYPEOQU?Y

::60 TYPE=-=0CTAL ASCII(ALL DIGITS)
;;SAVE @(R1)+ FOR TYPEQUT
;.00 TYPE--DECIMAL ASCI! WITH SICN
+: 1S THERE ANOTHER NUMBER?
.:BR 1F NO
;s TYPE

.. LOOP

TWO(2)

SPACES

::RESTORE RI
; sRESTORE RO

:"'CARRIAGE RETURN'' & ""LINE FEED"
::RETURN

2. TW0(2)

SPACES

TO OCTAL

(ASCIL1)

AND TYPE

R RPN RPN

CPORNRNIIOETRIROIRRIOCIOCEOIRICRITRRERERNOERTOTS

:*THIS ROUTINE 1S USED TO CHANGE A 16-BlT BINARY NUMBER T0O A 6-DIGIT

10853

;*OCTAL

(ASCI1) NUMBER AND TYPE

1IT.

MOV
TYPOS

;:NUMBER T0O BE TYPED
:;CALL FOR TYPEOQUT

}8322

;'::YPOS--‘EN1ER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

108%6
10857

.t
;e

}822;

o®

10863

;*STYPON=-=-==ENTER HERE T0 TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

10865

seCALL:

JeCALL:

10858
10859
10860

M
X
.t

.BYTE
.BYTE

NUM, - (SP)

N
TM

;:N=1 T0C 6 FOR NUMBER OF DIGITS TO TvYPE
;:M-1 0RO
::1=TYPE LEADING ZEROS

; :0=SUPPRESS LEADING ZEROS

[

10864

;*$TYPOS OR $TYPOC

10866
10867

e
i

10868

MOV
TYPON

NUM, = (SP)

; ;NUMBER TO BE TYPED
;;CALL FOR TYPEOUT

10869

;*STYPOC-=-=ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

10871

s*CALL:

10870

}83;;

MOV

TYPOC

NUM,-(SP)

; :NUMBER T0 BE TYPED

;;CALL FOR TYPEQUT

10874
10875
10876
10877

062270
062274
062302
062306

017646
116637
112637
062716

000000
000001
062515
000002

$TYPOS: MOV
Move
MOvVB
ADD

8(SP) ,=-(SP)
1(5P),80FILL
(SP)+,80M0DE+1
#2,(SP)

:;PICKUP THE MODE
::LOAD ZERO FILL SWITCH
; ;NUMBER OF DIGITS TO TYPF
;s ADJUST RETURN ADDRESS

10879
10880
10881
10882
10883
10884

062314
062322
062330
062336
062340
062342

112737
112737
112737
010346
010446
0105646

000001
000006
000005

$TYPOC: MOVB
MOvB
$TYPON: MOVB
MOV
MOV
MOV

#,80F1LL
#6,30M00E +1
#5,80CNT
R3,=(SP)
R4 ,=(SP)
RS,=(SP)

;:SET THE ZERO FILL SWITCH
;:SET FOR SIX(6) DIGITS
::SET THE JTERATION COUNT
:SAVE RS
;s SAVE R4
s s SAVE RS

10878

10885

10886

062312

062344

062350

000406

113704

062515
000006
0625146
062513
000012

005404

10887
10888
10889
10890
10891

062352
062356
062362
062366
062372

062704
110437
113704
016605
005003

10893
10896
10895
10896
10897
10898

062376
062400
062402
062404
062406
062410

000404
006105
006105
006105
010503
006103

10892

10899
10900
10901
10902
10908
109064

062374

062412
062416
062420
062424
062426
062430

006105

105337
100016
042703
001002
005704
001408

MOvB
NEG

1%:
2%:

06251¢
177770

$TYPON

$OMODE+1 R4
R&

;:GET THE NUMRER OF DIGITS TO TYPE

ADD
MOvVB
MOVB
MOV
(LR

76, R4
R4, $OMODE
$OFILL,RG
12(SP),RS
RS

::SUBTRACT 1T FOR MAX. ALLOWED
::SAVE IT FOR USE
;:GET THE ZERO FILL SWIT(H
;:PICKUP THE INPUT NUMBER
;s CLEAR THE OUTPUT WORD

8R
ROL
ROL
ROL
MOV
ROL

3
RS
RS
RS
RS,RY
R3

::60 DO MSB
;:FORM TH]S DIGIT

ROL

DECB
BPL
BIC

BNE
151

gta

$OMODE
7%
#177770,R3
(33
R&
5%

;;ROTATE MSB INTO ''C"

;:GET LSB OF THIS DIGIT
;;TYPE THIS DIGIT?
;.BR IF NO
+:GET RID OF JUNK

;2 VTEST FOR O
;s SUPFRESS THIS 0?
J.BR IF YES

SEQ 0247

VOOV UVOVOVOVOVOOOVOIVO

PAGE 249

VOV OVUVUVIVOVUVIVVVOOOVO

BINARY

NP IR

10852

BINARY 10 OCTYAL (ASCI1) AND TYPE
LSBYTL

10851

15:07

10849
10850

24=MAY-79

EEEEE E E E R R

01-MAR-79 09:10

30A(1092)

E E T

CIRJND.PY?

MACY1Y

CIRINDO,RPOL/S/6 DSKLS CTRLR2

6%:
000002

8%:
$OCNT:
$OFiLL:
$OMODE:

MOV

(SP)+ R4

MoV

(SP)+ RS
(SP)+ RS

MoV
MOV

2(SP),6(SP)
(SP)+,(SP)

.BYTE
.BYTE
.BYTE

0
0
0

RY]

.BYTE
.WORD

0
0

;sMAKE

THIS DIGIT

ASCI)

;:MAKE ASCII IF NOT ALREADY
;. SAVE FOR TYPING
;.60 TYPE THIS DIGIT
;. COUNT BY 1
;;BR IF MORE TO DO
;.BR IF DONE
;s INSURE LAST DGl 1 JSN'T A BLANK
l I
;.60 DO THE LAST DIG
RS
TORE
;. ;RES
;;RESTORE R4
;;RESTORE R3
;:SET THE STACK FOR RETURNING
;:RETURN

VOVOD

RY, 8%
.89
$OCNT
P4
6%
R&
2%

::DON'T SUPPRESS ANYMORE 0°'S

#'0,R3
f” R

move
1YPE
DE(B
BGT
BLT
INC
BR

MOV

000004

0 ©

7%:

BIS
BIS

SEQ 0248

AND TYPE

0 D

5%:

PAGE 250

;:STORAGE FOR ASCII DIGIT
;s VERMINATOR FOR TYPE ROUTINE
:.0CTAL DIGIT COUNTER
;. ERO FILL SWITCH
; sNUMBER OF DIGITS T0 TYPE

pol
ol o]

062512
062513
062514

000
000
000
000
000000

000060
000040
062510
062510
062512

INC

(ASCI1)

o 0

062454
062460
062462
062466
062466
062470
062472
062474
062476
062504
062506
062510
062511

T0 OCTAL

15:07

D VOVPO®POODO

062450

005204
052703
052703
110337
104401
105337
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002

BINARY

26=MAY=79

10909
10910
10911
10912
10913
10914
10915
10916
10917
10918
10919
10920
10921
10922
10923
10924
10925

062432
062434
062440
0624644

30AC1052)

Pol
o]

10905
10906
10907
10908

MACYYI1

DDDDODDODVDDVDODHDDO

CIRJIHDO,RPOL/S/76 DSKLS CTRLR?
CIRJIMHD P12
01-MAR-79 09:10

006300
(16000
000200

$STRAP:

000002

MOV
MOV

RO,-(SP)
2(SP),RO

::SAVE RO
:;GET TRAP ADDRESS

move
ASL
MOV
R1S

(RO).RO
RO
$TRPAD(RO) ,RO
RO

:sGET RIGHY BYTE OF TRAP
;:POSITION FOR INDEXINUL
;o INDEX TO TABLE
;:60 TO ROUTINE

181

062552

-(R0Q)

;. THIS 1S USE TO HANDLE THE '""GETPRI'" MACRO
062540
062562
062550

011646
016666
(00002

000004

000002

$TRAP2:

MOV
mov

RTI1

LSBTTL

(SP) ,~(SP)

4(SP),2(SP)

.:MOVE

THE PC DOWN

THE

.;RESTORE

PSW DOWN

THE PSW

:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF
;*BY THE "'TRAP'' INSTRUCTION.
;

.WORD

STRAP?

060022

$TYPE
s CALL=TYPE
$TYPOC
;;CALL=TYPOC
$TYPOS
;.CALL=TYPOS
STYPON
;;CALL=TYPON
$TYPDS ., ,CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4L(104404)
TRAP+5(106405)

T1Y TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST (CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)
TRAP+15(1C4415)

TEST FOR CHANGE IN SOFT-SwR
TTY TYPEIN (HARACTER ROUTINE
TTv TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTyY
My LOCAL SCOPES
C(HECK DVA,RDY,CPR,DRY
WAIT LOOP

062552
062554
062556
062560

062540
060246
062314
062270

062564

062562

062330

$TRPAD:

061064

$GTSWR

10965

062570

060774

10969
10970
10971

062600
062602
062606

066100
046160
046476

SCKSWR ;; CALL=CKSWR
SROCHR ;; CALL=ROCHR
SROLIN
;;CALL=ROLIN
;; CALL=ROOCT
$RDOCT
1.5C0P
;;CALL=SCOPY
;;CALL=CHECKD
CHECKT
WALT.T ;.CALL=WAT

062572
062574
062576

THE ROUTINES CALLED

ROUTINE

0625066

10966
10967
10968

;.MOove

TRAP TABLE

10962
10963
10964

:;BACKUP BY ¢

061336
061626
061606

Ty
WY am
EREAEARCAIAITAIAIA
IR INA
A PA
A tArA TN
N
1N T
TN

062530
062532
062536

010046
(16600
005740
111000

BB IAIAIAIARIAIARIAIAIAIAIA
o

062516
062520
062524
062526

;%GO 10 THAT ROUTINE.

10958
10959
10960
10961

;¢THIS ROUTINE WiLL PICKUP THE LOWER BYTE OF THE ''TRAP'" INSTRUCTION
;*AND USE |71 TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN ULSING THE ADDRESS OBTAINED IT wWiLL

10953
10954
10955
10956
10957

;;'"""""""""'""""""""'00""'Q"'Q""""""Q'

10948
10949
10950
10951
10952

SEQ 0249

109645
10946
10947

PAGE 2>

10942
10943
10944

TRAP DECODER

10932
10933
10934
10935
10936
10937
10938
10939
10940
10961

.SBTTL

TRAP DECODER

15:07

10926
10927
10928
10929
10930
10931

24-MAY=79

01-MAR-79 09:10

30AC1052)

CIRJIND.PY2

MACY11

Lt A

CIRJHDO,RPO4/S5/6 DSKLS CTRLR2

el
el
i
B
ol
el
el
el
A
e
)

eleolelalolalolelolo
Lo
e ) i s e
o Oo
o JaV1e JV P YV T VE Jo} o) o

?2>2

POWER DOWN AND UP ROUTINES

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

062714
062716
062720
062722
062724
062732
062740
062742
062744
062746
062750
062752
062754
062756
062760
062766

2737
2737

1$:

116230

062606
000340

00002¢
000026
$PWRMG:

$PWRAD:

$ILLUP:

005015
000122
000001

047520

062527

$SAVRG:
$POWER:

: s HANG

UP VECTOR

;;SET

:sSAVE SP
UP

(LR
INC
BNE
MOV
MOV
mov
MOV
MOV
MOV
MOV
Mov
MOV
TYPE

FOR

FAST

DOWN

;;SET

..GET SP
;;WALT LOOP FOR THE
;sWALT FOR THE INC

(SP)+,dSWR

;;POP STACK

INTO a8SWR

(SP)+ ,R&

:;POP STACK

INTO R4

(SP)+,RS

(SP)+ ,R3
(SP)+ R?
(SP)+ R
(SP)+ RO

::0F

WORD

::POP STACK

::POP
::POP
;;POP
::POP

#S1LLUP ,@#PWRVEC

$SAVRG, SP
$SAVRE
$SAVRG

TTY

MOV

STACK
STACK
STACK
STACK

INTO RS

INTO
INTO
INTO
INTO

R3
R?2
R
RO

NSPWRDN,@#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340,8#PURVEC+?2 :;PRIO:?7

:REPORT THE POWER FAILURE

,WORD

$POWER

:;POMER FAJL MESSAGE POINTER

.WORD

BEGIN

s sRESTART ADDRESS

MOV
RT1

HWALID
B8R
0
.ASCI!?
.EVEN

.END

;:PUSH R4 ON STACK
::PUSH RS ON STACK

E PR RRCRRRRERRRRRORRCEORRRRNCEONORRNCNRRTORRNORRORRRROERRORNOOEROROEOETORTOTYS

"POWER UP ROUTINE

$PWRUP:

STA(K
STA(K
STACK
STACK

00002¢

;;PUSH @8SWR ON STACK

ON
ON
ON
ON

062752
062756
062756
062756

R R RO

a8SWR,=(SP)
#3PWRUP ,QW#PWRVEC

RO
R1
R2
R3

012737
013706
005037
005237
001375
012677
012605

RSN

:;PUSH
;;PUSH
;sPUSH
;:PUSH

SP,$SAVR6

FOR FAST UP

RO,=-(SP)
R1,=-(SP)
RZ2,-(SP)
RY,=-(SP)

R4 ,=-(SP)
RS,-(SP)

HALT

;;SET

;:PR]O:7

000024

062660
062666
062672
062676
062702
062704
062710
062712

#340,3#PWRVEC+2

MOv
MOV
MGV
Mov
Mov
MOV

116276

062756
062660

FOILLUP ,@#PWRVEC

MOV

MoV
MOV
Mov
MOV

NP NPYN

"POWER DOWN ROUTINE

$PWRDN:

WYY

000024
000026

7646

0637
012737

062752
000340

062606
062614
062622
062624
062626
062630
062632
062634
062636
062642
062646
062654
062656

737
737

(PC)+,(SP)

.=
<15><12>'"'POWER"’

CAIAIAIACAIA
A

SEQ 0250

&
PAGE

11001
11002
11003
11004
11005
11006
1 007
1
1
1
1
1
1
1
1
1
1

AND UP ROUTINES

10997
10998
10999
11000

.SBTTL

15:07

;sRESTART

10990
10991
10992
10993
10994
10995
10996

POWER DOWN

24-MAY=79

10972
10973
10974
10975
10976
10977
10978
10979
10980
10981
10982
10983
10984
10985
10986
10987
10988
10989

01-MAR-79 09:10

30AC1052)

CIRJMD. P12

MACY11

AT BEGIN

::THE

POWER UP SEQUENCE

::PUT

THE

WAS STARTED

:: BEFORE THE POWER DOWN WAS (OMPLETE
SP HERE

CIRJHDO,RPOL/S/6 DSKLS CTRLR?

CIRJHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR-79 09:10
(IRIHD P12
ACL
= 000040
ACU
= 100000
ADDMOD
00020¢

ADTIMO

05253¢

AOt
=
AS
ATA
=
ATABLE
ATTENT
AT0
=
AT
=
AT2
=
AT
=
ATG
=
A1S
=
AT6
=
AT7
=

001000
015050
100000
017340
015134
000001
000002
000004
000010
000020
000040
000100
000200

Al7

001000

= 000400
=

BA
=
BAl
BASECH
BEGIN
BEGIN2
817187
=
8110
81700 =
81701 =
B1102 =
81103 =
81104 =
B110S =
81106 =
81107 =
B1708 =
81109 =
=
811t
81110 =
BITY1 =
81112 =
81118 =
BIT14 =
81115 =
=
B112
=
8113

=
8114
=
8115
Bl116 =
=
8117
8118 =
8119 =
LN
BLY?
BLTS
BPIVEC=
(A

015026
000010
051550
017360
017350
045664
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
00000¢
000010

000020
000040
000100
000200
000400
001000
065712
0645734
065744
00001¢
015044

271448
26674
665#

9060

25834
2163
2571a
28934
28274
26054
26064
2607
2608#
2609
26104
PAARY
261248
25464
2547n

2159
2519#
665
66%
667
3130
6234
6134
6124

6114
6108
6098
608#
6078
6064
605#
604N
6228
6034
6024
6014
6004

599«
598#
(YAl
620#
6198
6184
6174
6164

6152
614H

79394
7939
7947

6308
27904

MACYT1

PAGE ?2>4
30A(1052)
15:07
2L=-MAY-79
(ROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0251

3060
9115#

2166
4842
3346
3306+

4682
4682

2781#

4684
9045#

29034
29014
79334
8389
623
622

27928
5034

4845

4857

5037+

3346¢

4845

5037

5186

4838+
8652
9120
9114

5022+

5027 v

5172

11009

8424

8426

8414

8416

5183

621

620
619
618

617

616
615
614

8403

10294

10302

10785

8421

10776

8398

8405

10769
10309

8419
8396
83N

7944
7940
7948#

10280

79468

5048

5176¢

5186+

5196

CIRJHDO,RPO4/S/6 DSKLS CTRLR2

CIRJHD P12

01-MAR-79 09:10

MACY1Y

30A(1052)

24-MAY-79

15:07

PAGE 255

(ROSS REFERENCE TABLE == USER SYM3OLS

SEQ 0252

015070
q¢
(HECKD= 104414

C(HECKE

046350

2800#
109704

3283

333?:

5675

585¢

6040

CHECKT

046160

6677

6763

6940

5111

5345

(KSWR = 104407
CLAREA 046034

10268
4649

10760
9502

10784
5509

10965#
6198

7547

80388

8235

833¢

6205

6881

6888

79814

7696

7730

80174

B224

8322

8506

8693

6445

6455

CLDISK

046116

6838

3089
5615

6999

3106
5798

(LR

= 000040

25214
6032

3550
4079

comMD

052650

4686

4788

6426
8241

COMPAR

047020

053722

9380«

(OMUHD
(OUNTD

055772
054370

6759
5135
96514

(OMPA

CPHALT
(R

{RC

005123

= 000015

8339

9430

7179

3305
5976

3592
4138

6964

8527

5634

92240

4509

5817

2159

2166

2173

2148
4656+
6296+

2151
L6064
6303

2159
47420
6665

2173
4750
6474

2206
4862
6640

050636

2202

56260

5592+

DAWORD

053070

33?4-

778+

5957+

015022

2159

27794
8624

6011

= 000100
DCL
D.LEAR 015'56

8608
27154
2854»

5835

9454
25998
25618
2557#

764
S033

2934

909

22204

920

927

949
960
973

22268
22278
2229¢

DOISP =
DENVL =
=
DE?
pFF20 =
Df 1
DF 11

177570
000200
000040
000002

DF 15
Dfle
DF17

012558
0125%6
012563

DF 14

012516

0125%¢

01254%

25898

801

940

22234

3819
6318

3889
6347

3933
6377

3972
4416

6330

6508

6685

7006

7186

7363

7554

5520

5699

5882

6069

6216

6392

6571

5628
6734

5676
6839

5811
6873

5855
7000

4580

8022

5328

6978

8041

= 100000

3775
4306

5289

6817

4926

7611

2151

oCx

3732
4285

5097

6648

3704
6273

9129

7358

10464

B7688

56414
7661

7224

10454

75064

5236
7535

5695
6679

7679

05306¢

5103
7346

5460
6546

2148

DAREAD

4932
7167

5356
6503

10464

DATENVY

6755
6987

5346
6372

5388

clle
9315#

4670
6793

5112
6324

764
6155

7519
9303

4616
6666

4941
6190

4678
6041

10425

015030
053010

6678

8574

5398
26548
26564

(se
v

6502

8548

8045

8219

9539+

8627

5360

7548

7410

6323

82584

= 000200
= 000002
= 000010

015032

5993

7223

6154

7629
97764

$201

663

4561

7047

10970

7440
6848

50%¢4

047332

CRLF
CSF
(Su

3673
6262

5987

6872

8507

7250
6164

17018
5988

4749

4478

3646
6206

3525
6491

5810

6733

7067
5669
9671

4878

7180

3616
6172

3467
6311

5627

6565

9657«

4861

7048

3427
6109

5459

63N

95114

3501

6899
5350
9655+«

7357

6189

7603

8316

83742

8477

5959

6133

6302

6473

2183

2186

2190

2206

2785»

4839+

5031

5178

27828
4919
6649

5023+«
£927
6970«
8478

5028¢
5598+
6979

92544

5029+
5607
7135«

5179+«
5772+
7144

5180
578!
7319«

5951
7328

$960
7510

5945¢

6119¢

628Be

6459

6636

6803c

6564

7129¢

7313e

6300

647Ve

66&br

6976

Tl4le

7325«

7516

8216

B8313e

BL76e

6031

6526

6703

6728%

7204

7381

7401

7872

7592

8603

8052

8308

5766+

9556+

22138

8098

8317

9606

8106

8471

9620+

5780

8508

8218

7327

5606

8335

7518

7143

5438

8236

CIRINDO,RPOL/S/6 DSKLS CTRLR?

DF2
0f20
Df 21

012523
012572
012601

Df3
Df 30
Df 31

012527
012637
012645

DF 33
OF 34

012666
012676

Df 22
DF 24
DF26
Df27

012506
012612
012621
012631

012655

DFf 32

012705

0Ff 39S

OF 36
OF 37
DF&O
DF&2
0F &4

012715
012723
012734
014730
014733

DFS
DFS&
DM
DH11
ORI
OH1S
DH16
DH17

= 000001
014740
005451
005701
006056
006255
006305
006443

DH20
DH2)
DH22

006620
006774
007110

DH26
DH27
DH30
DK3I
DH32
DM33
OH 34
DH3S
OH 36
OH37
DH&O
DH&2
DML

007362
007560
007716
010050
010246
010463
010662
011035
011232
011370
011607
014410
014471

SEQ 0253

986
997
1014
10463
1069
1084
889
1097

22384
22404
22174
1227
22548

1235

22514

22634
22664
1292
1285
1390

24910

1411
17420

26940

1334

1341

135%

1362

1369

246920

1520

1348

1418

1313

1297
1395

130¢
1416

1311
2457

1318

1332

1339

1346

1353

1360

1367

5362
6901
9029+

9922
6941
9677

5568
7104
9735#

5741
7289
10220

5790
7337«

9921
7339

5968+

6264
7529+

6434
8458

1299
1397

1306

005567

007204

DISPLA
DISPRE
=
DL
=
DLe4

001142
000174
100000
000020

19694
19914

et
e
P
R

014603
= 000004
054726

1895#

VNN NINON) — — — — 0D
VAN NSNS
&S NO —
OWNES OO0 H NOWNWVO

DH24&

DHS&
DIGB
DISK

30AC1052)
24-MAY-79
15:07
PAGE 256
CROSS REFERENCE TABLE == USER SYM3OLS

22154

[

DH2

01-MAR-79 09:10

WP NN — —s s —s OD OO oo
NN
OD SN NN
oNNEN
OO
VNOO0o [a V]

CIRJIMD.PY2

MACY1Y

244708

26714

10323

10768«

7480

331

000030
002136
002307
002342
002362
002432
002453

8066
8066
27874

8069
8074
(846
2933
2163
8074

8118

2151

DN
NS
o
OO~ £ — VOO
= W L B
B
3

8069

5032
9483
926

16
1 1

wOo

743

1 1

9946

8955

9233
9949

9385
9958

9391
9969

2206

27944

4840¢

¢
5034

5183¢

1333

1340

1347

1354

1361

1368

9531¢

95460

9548

9596+

9600+

9612+

9616

8524
7394
9607

7585
9623

89504

5660

5844

6020

6356

6535

6712

7032

7213

4990
9593

5033
Q603

8659
9619

2183

2186

2190

1305
1417

1312
2687

1319

8106
9022

9529+

8330
7217
9557

5012+«

4814
9592

[V]

64617
9549
wvoo

3526
9535

cony

3469
9532

SEQ 025¢4

5185

2173

8118

5181

9487

2141

(Y]

2183#

= NN

EMTVEC=
Em
Em1
EMI&
EM1S
Emie
EM17

014716
004000
050616
000100
006000
051242
050654
015062
015064

NN =

D154
DVA
=
ECDATA
=
ECH
=
ECI
€ CORR
ECTEST
ECY
€C2

25494

0
=

012476
014672
014702

012452

D140
D142
D144

D137

30AC1052)
24-MAY=79
15:07
CROSS REFERENCE TABLE == USER SYMEOLS

1234

—

012302
012324
012350
012372
012412
012434

985
996
1013
1042

—

DT31
D132
D133
0T34
D135
D136

214634

)

012026
012046
012070
012100
012116
012000
012136
012156
012172
012204
012224
012246
012012
012264

011764

DTN
0114
0115
D116
D117
D12
D120
DI21
D122
D124
D126
0127
D13
0130

LR R

= 001000

)

o1SY

27954
97384
25864
26014
800
908
939
948
959
972

)

01
015056
DYAGAP
055732
DYE
= 010000

25634
2170
Yy
2148
8064

)

= 000400
= 000200
015036
= 177570
015054

WNPOPNON)
— — —
D
N~ NNACD
S
—

DPR
DRY
DS
DSWR
DS

25934

9519
10129
2564

= 000001

omd

MACY1Y1

&
PAGE 2>7

CIRJIHDO,RPO4/5/6 DSKLS CTIRLR?
01-MAR-79 09:10

CIRJIHD.PY?

25804
26804
5848
87884
2196
2196
7390

6334

795
900
931
944
953
964

2485
1298
1396

24LBON
8045
9020+
76401

8231
6716

9540

2797#
2798¢#

3041
144890

7592

3082+

ERHDGP
ERHEAD
ERPOS
=
ERR
ERRVEC=
ERSTAR
ERUNIT
ERWORD

056170
056164
051240
040000
000004
052622
052620
053130

30A(1052)

24-MAY-79

CROSS REFERENCE

PAGF

-~ USER

2>8

SEQ 0255

SYMaOLS$

164382

3 =» L B

840

TABLE

15:07

= L R

el
il
il
D
il
il
il
s
el
e
il
i

—
=l
—"
)
=
S
=l
el
el
——l
el
il
=l
—
)
—r

014032
014066
014150
014222
014307
014361
056166
015124

013754

—

EM64
EMOS
EMO6
EM67
EM70
EM
ERCRC
ERFLGS

EM63

013422

—

EMS6
EmS7
EM6
Em60
EM6
EM62

013461
013474
013511
002250
013540
013627
013677

EMS54
EMSS

——

EMG2
EML3
EML4
EMLS
EMab
EMe7
EMS0
EmS1
EMS2
EMS3

—

004752

012744
013027
013073
013130
013157
013206
013243
013301
013322
013362

EmM40

0046104
006177
004476
004664

—

EM34
En3s
EM36
Em37

)

003420
003543
004032

002542
003143
003236
003276

—

EmM3
Em32
EM33

Em22
EM24
Em2S
EM30

]

002477
002520

002221

3,74V
3,73

w00 LN N N AN N N AN RO RO RO PO RO PO RO NI R
b s b s s 2 O O
wWwo L AN
= 2OV
NS = O~
N—0O 0
~ &~ V00
= £~ NOWOR ORI
ORI
= S S =000

Eme

MACYTY1
[0 X0 Ne Neo Neo BV IV LV LV TV I P o3 - -]
~ WN—=00O (o
JVIVIVIT
S VENENT V]
v] N Oo 0D — [e ] L
O NN
NO N

CIRIHDO,RPOL/S5/6 DSKLS CTRLR?
CIRJND.P12
01-MAR-79 (09:10

1644620

1359
1366
1373
1380

1387

1394
1401
1408
1415
9806+

28164
5649
6387+

7185+
9897
9807«
9805+
89464

25704
6264
91294
91284

2143
93714

10048+

10064
4696

5816+
6523

72450

4784

5876+
6684+
7378

56466

5992+
6700
7435

5151
6008
6754
7553

5343
6063+
6845
7569

5352
6161
6856

6172

76264

6894
8279

4960+

5677
6211

5515
6329

8526+

8537

7005+

5633¢
6365

7021

7062
9299

8272¢

8278
10043

10057
10030+

8969
5034
2932+

3043

3050+

3084

10285

10286+

10288+

10291

2183

2190

3508

4701
9978

4706+
§985¢

4886
998G

5062
10011

10020+

9437
10067

9465¢

9489+

5209

10027+

ER2
ERY
Ex11
ex110
eEx12
Ex120
ExXT4
EXT40
€00
g1
12
E&é
FEN

015040
015046
000001
000010
000002
000020
000006
000040
024330
025736
026064
030570
000200

2163
2163
26344
26374
26354
26384
26364
26394
3555
3871
3912
6557
26604

=
=
=
=
=
=

=
FER
= 000020
FILLEC
051414
FIRST
017332
FM122 = 010000

FNWORD
FORMAT
FOUT
FSYNER
FUTABL
GCRC

056206
054372
056212
056162
015150
056156

GECCY

050620

GECC2
GNS

7592

25784
5581
28804
26814
5632
6143
6846
8211
5096+

96524
9898
9804*
28504
5099
2193
6179
7127+

5754
2951

4656
56448
6162

6970
8231
5327+
9670

9904#
98324
5330

2196
6203
721N

2196
6633

eseeee

645

2960
3080
3401

=
GO
=
GRV
GTSWR =
HADTMP

000001
000010
104406
(050642

HARDER

050634

HCCRCE
=
HCE
=
M(C]
=
HCRC
HDESYN
HDWSYN
HEADER

047734
000200
002000
000400
056172
054724
054700

7845
9094
10965

256434
2559«
3008
5621

87784
5621
87654
85044
2581#
26794
25824
9808+
9733
97304

SEQ 0256

TABLE =-- USER SYM3OLS

2206

27864
7204

4840¢
7381

AR
N4

7302

7493

90044

5091

5108
5858
6640

5267
5951
6672

5285
5982
6737

5322
6044
6811

5340
6127
6827

5658
6710
8795
5765+

5764+
6801+
8881¢
5944
7503+

5842
6862

6018
6962+

6117

9012+

6118+
B756#

5943
6886
9028
6183
8796

6204
8882+

6287+
9013

2986
3257
3833
9048
10957

2990
3263
3837

10959

2998
3349
3845
9076

3021
3355
7735
9082

3058
3361

9054
10958

2996
3269
3841
9070

2163
6011

2173
6031

2183
6348

2186
6526

2190
6703

5934
3001
4675
56467
6294
6993
8308
95437+

6277

6447

6623

6953

6742

4760
5621

4919

4937

7026

5032+
7401

L5654

2193

3073
3395

PAGE 259

35684
38794
319194

050622

6L58¢
9029

-t

2148
5652

CROSS REFERENCE

15:07

01503¢

24-MAY-79

no O
wo

ERY

30A(1052)

o no

CIRJIHDO,RPOGL/S5/6 DSKLS CTRLR?
CIRJHD.P1?
01-MAR-79 09:10

MACY11

7851
9098
10966
3480

109634
5589+
8971
5589

8593

8615

9883«

5598
6317
7051
8330
6132+

6375

7135
8471
6816+

5679
6465
7173
8524

9901#

5772
6497
7227

8653

5804

65649
7319

7352

7614

7510

7541

7606

10015

5440
2202
6286+
7311+
2202
6802+

6135
5422+
6354
7388
5623+
6866

6819
56484
6457+
7502¢
5488
6887

98164

2965
N7
3407
7858
9102

2970
3198
3433

2974
32(2
3437

2978
3206
3441
7873

5507
6533
7579
5508
6963

10037

5590+
6632¢
87534
5591
7128+

2982
3210
3448

7877
10240
10971

10042

7312+

7030

7741
9088
10963

10967

7862
9106
10968

8688

7866
9112
10969
9236

9118
10970
9788

5763

5942+

6116¢

6285+

6456

6631«

6800+

6961

7126+

7310»

7501

5763

5942

6116

6285

6456

6631

6800

6961

7126

7310

7501

8597

8603

8608

8618

8624

8627

8660

10070+

10960

10961

&
L
30A(1052)
24-MAY=79
15:07
PAGE 260
CROSS REFERENCE TABLE =-- USER SYMBOLS

CIRJHDO,RPO4/S/6 DSKLS CTRLR?
CIRJUNHD.P12
01-MAR-79 09:1¢C

MACY11

HEDGAP
HEDSYN
HEGAP
HY
=

92724
92854
97324
10423

10464

6150

64183

6522

4553

2916+
3093

2917+
5023

5028

5179

5602+

5603*

1AE
=
=
1€
=
ILF
ILLEGL
ILR
=
10TVvEC=
IR
=
IXE
=
100
102
103
104
105
106
107
114
115
116
124
JP1
JP2
JP3
JP4

053024
053026
054712
0000

002000
000100
000001
015212
000002
000020
000100
004000
024304
024410
024504
0246604
024704
025004
025104
026256
026460
026622
027206
032342
032372
033002
033016

9250+
9251+
9435
S364
29844
25440
25744
28684

25754
6314
2522#
2664H
35594
36024
36284
36574
36864
37164
37454
39824

KEY

053014

(NTNN
4093
W13
5018
5024
5168
5173
4659+

KEY?

053016

46607

K1PARO=
KIPARY=
KIPAR2=
KIPAR3=
K1PARGL=
K1PARS=
K1PARG=
KIPAR7=
K1PORO=
KIPDR1=
KIPDR2=

172340
172342
172344
172346
172350
172352
172354
172356
172300
172302
172304

7054
7064
707#
708#
709#
7104
1ARY
7124

K1PDR3=
K1PDR&=
KIPDRS=
KIPDRS=
KIPDR7=
LA

LAD
LERR

LFf

172306
172310
172312
172314
172316
015066

046076
045660

= 000012

=
LS?
LST14A
LSTISA
LST16A
L00

002000
(026306
(026510
(026660
024300

9444
9466*

4923+

G747+

4924¢

7947
79304

4843
7999«
7936+
10458

4038
4085

“0574
41100

8215+

694N
6954
6964
6974
6984
6994
7004
7014

27994

537«
25664
3978

35574

9491+

6560

71666

7701

5776+

5955¢

6298+

6469

6644

6974

7139¢

7323

7514

5777+

5956+

6299+

6470

66457

6975

7140+

73240

7515¢

3565

50264
50314
51754
51784
(7660

8214+

SEQ 0257

8311

8312¢

39924

8474

92564

8675+

92574

5035+
8003

S184e

7959
10464

CIZRIHDO,RPOL/S5/6 DSKLS CTRLRZ
CIRJHD.P12
01-MAR-79 09:10

MASK
MCcLk

045656
= 000002

L&S
MAKECY

MCPE
=
MHS
=
MiD
MIDOLE
MINX
=
MMVEC =
MOL
=
MPE
=
MR

030646
050476

020000
001000
050466
050364
000004
000250
010000
000400
015052

MRD
= 000020
MSE
= 000020
msSTCKk = 000010
MUR
= 000040
MxF
= 001000
NCODE
050626
NCOUNT

050630

NED
=
NEM
=
NHS
=
NOPERA

010000
004000
002000
015150

36004
362464
36544

36814
37124
37400
37914
38634
39044
39424
39804
L040N
40874
L1504
4178#

3990

6053
4106

42504
42814

63144
63544
43884
(Y®IN|
4653
4L4LBBA
45194

4550
45894
3527
79294

25940

7043
9541
10178
2550#

26624
8655+
8644N

25954
683#

2568#
2524n
2199

25974
26574
25964

9391
10157

4618
7933e
4815
7044
9593

86794

7949+
«816
8982
9609

7950
4818
8983
9949

7951«
4819
8990
9960

7954
4991
8991
10155

7955
6992
9387
10157

9234

9235

9786

9787

10137

10138

3428

3446

27934

4841
9527

5033«
9535

5182+
9544

955¢2

4815
9392
10158
9594

4816
9524

4829
9948
10188
9961

10175
9610
6213
5762

¢<828
9593
10176
9951
6217
5961

9949
10189

6992
10130

6115

6284

6455

5762+

5941

6115¢

6284

6455

3868

3909

3953

4601

9132

86624

9522

6211

5588
5588+
8962+
3859

[V
e

030414
030524

SEQ 0258

—

Lée3
LbG4

024500
Q24576
024674
024776
025074
025230
025674
026022
026134
026252
026452
026612
027004
027070
027316
027416
027522
027636
027752
030066
030170
030300

15:07
PAGE 261
30A(1052)
2L4=-MAY-T79
CROSS REFERENCE TABLE =-- USER SYMBOLS

024406

L0¢2

LO3
L04
L05
LO6
L07
L10
L
L12
L13
LG
L5
L6
L2l
L22
L30
L3
L34
L3S
L36
L&0
L&
L&

MACY11

CZRJHDO,RPO4/5/6 DSKLS CTRLR?
CIZRIHD.P1?
01-MAR-79 09:10

PAR
= 000010
PAT
= 000020
PCJSR
015132

PGE

PIEY
P1E10
PIETY
PlE12
PIE1S
PIE1&
PIEYS
P1E16

PIE17
PI1E18
PIE19
PIE2
P1E20
PIE21
Ple22
P1E2S
Pl1€24
P1€25
PIE26
PIE27
Pl1e28
P1E29
PIEY
P1ES0

= 002000

=
=
=
=
=
=
=
=

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

100000
000100
000040
000020
000010
000004
000002
000001

100000
040000
020000
040000
010000
004000

002000
001000
000400
000200
000100
000040

000020
000010
020000
000004

SEQ 0259

TABLE
- USER SYM3OLS

9453
3283

9481
3328

10269+
7757+

2186
8951

2199
9224t

2199
9225

3284

46014

78414

10589

9300

5029
9313

25874
25234
3566
3789

6148
0517
64548

2577
2520#
2173
8681«
25264

2179
8950+

87164
8725#
87264
8727«
8728#
8729#
87304
8731#

8732#
87334
87340
8717«
8735#
87364
87374
8738#
87394
87400
876148
87420
87430
87448
8718s
8745#

8880

8823
88490
8871
8848
8871

8865

2825#4

9776+

024332
025246
027022
030442
030546

053074

PAGE 262

000
010
021
043
044

oult

2717«
27894
26784
2864H
26738
26740
26714
26754
267248
26764

93684
3276+

3226+
93114
3283
38734
39140
39894

100000
015042
000200
015202
000004
000010
000001
000020
000002
000040
045036
020000
000200

4661
2811#
3856
3898
3986
4387

9304

CROSS REFERENCE

15:07

~3 00

ocvL
=
Of
OFREV =
OFSETC
0fF100 =
0¢200 =
=
0F25
0F&00 =
0FSO0
=
PF800 =
OPERSE
orl
=
OR
=

7883«

2809#

24-MAY-79

015114
053056
015116
025724
026052
026300
030012

30A(1052)

~NO

053124

NOSYNC

NOUNIT
NOWORD
NUNIT
NY
N12
N1&
N36

MACY1T

8039+

8095+

8096+

8504+

8505+

000020
001000
000000
000040
000100
000140
000200
000240
000300
000340
177776
002000
000001
177776
045616

RCOM
RCYL
RDCHR =
RDMEAD
RDOLIN =
RDOCT
RDY

READ
READAT
READIN
RECAL]
REDATA
REFOR

REGADR

REGSAY

0000264
050646
050650
050652
050644
000200

057330
053114
104410
053132
104411

= 104412
= 000200

053724
015174
015210
015154
057332
015176

6798+

695Q¢

7124+

6064
76400
8908

6347

8536

6030
7380
8902

6388
7571

9426

9480

95164

10222

10230

6328
2489
3950+

6506
3154¢
3977+

7004
3560¢

7184

7361

79%¢

6210

8628+

8698+

£598¢

L175¢
4888+

56419+
864N

5587+
8905

5761
8960

5940¢
8968+

6114
8969

6283+
8971

64541
9011

6629

541
6179

2948+

L4L86¢
6429

4520

4551+

7665+

7700¢

7732+

7842+

4794

4970

5141
6720
7678
10976+
8864
8869

5651
6753
7710
10977«

5693
7023
7907#

5877
7203
8097

6010

10986+

5834
7063
8040
10992+

7879
7666
9418

9057

9078

109684
8041
9424

5632
2179
3784+

5815
2485
3851+

5991

2487
3894

8607

8617+

7499+

8065

4624

6565
7625

2922+
8834+
8842+
8850«
8825+
9108
10213
9376+

106664
93764
109674
7868
6522
9409

6702
7672
2923+
8835+

8843¢

8851+
8826+

11004+

7244

11005

7434

8977

8870
8863

9417

7679
9420

7701

9422

8052

4357«

8596+

6391

4421

4450

4483

4084
4566

3597
41630

3621

3651

5066

3678
Q247
5211

St 0260

8812

2202

045662

(0617%6

3671

p—,

PWRVEC=
P12
P22
P24
P3
RA

15:07
PAGE 263
30A(1052)
26-MAY-79
(ROSS REFERENCE TABLE =-- USER SYM3OLS

PRE
=
PROG
=
PRO
=
PRI
=
PR
=
PR3
=
PR4
=
PRS
=
PR6
=
PR?
=
PS
=
PSEL
=
=
PSU
PSW
=
PUTREG

880¢

~N O
N - NN
O
—
N —
WS
—e O N

000002
000001
010000
004000
002000
001000
000400
000200
020000
177772
000240
015206
020000
050632

—

P1E3Y =
P1ES2 =
Pl1E4
=
PIES
=
P1e6
=
P1E7
=
P1E8
=
P1E9
=
PIP
=
PIRQ
=
PIRQVE=
PKACK
PLU
=
POSITI

MACY11

O~NS WSO

CIRJIHDO,RPOL/S/6 DSKLS CTRLR?
01=MAR-79 09:10
CIRJIHD.PY?

30A(1052)

REINTO

3476
5503
6199
6882

3483+
5504
6200
6883

3496
3507«
6203«
6886+

3502
5508+
6204+
6887«

6757
5510
6206
6889

3148

3173

3944

6591

66720
6825+

8025

01-MAR-79 09:10

(ROSS REFERENCE TABLE -~ USER SYM80LS

016264

28764
5203
607
6761

RELEAS
015160
RESVEC= 000010
RETCL
015206

28554
627
28654

RHBA

27504
61641

3976
6313«

4036
6493+

4083
6668+

27570
6676%

4676
6847+

4762+
6997+

4939+
7177+

27524
4482

3471+
6511

3480+
6563

27514
3819«

3093
3850

RHAS

RHBAE

RHCA
RHCC

014774

014752
015020

014770
015014

RHCST

014756

RHCSZ2

014754

RHCS3

RHDB

RHDST
RMDS1

RHD1T

RHECY

015016

014746

014762

015000

015002

0150006

7442

27594

27724
27674

9050

3045

27714

4674%
6836

27628

3233

27614

3381

RHSN

015004

RHW(

014750

01733

RM70CK
RKEVY
RKEYZ
=
RMR
RNCTRY1

020716
053120
053122
000004
055770

RNWAT1

056050

RNO

5056
5800
6493
7169

5192
5884
6573
7252

5196+
5978
60668
7348

4757+
6989c

4934+
7169+«

5105+
7348+

5335«
7537«

S446e
8227+

5617«
8326+

5800r
8521+

5978
8650

5110¢
7356+

5341e
7545¢

5468+
B234e

5625+
B333+

5808+
BS13+

5986
B654r

6163+
BO6B4e

6321+

6501«

3552
(587

3861
79

3902
6967

3940
5138

41462
5337«

6174
8017

6356
8647+

4390
B660+

4620
B8686+*

4649
B688e

3174
3893

3232«
3933«

3550¢
3937

3592+
3949

3616+
3972«

3646+
4032+«

3673«
4079

3704
4138¢

3732¢
4172+

3775e
4206¢

8227

8698

9084

4277
4S541¢

4306
4580+

4310
4584

6367«
4597

4935+
7172+«

5106+
7351«

5336
7540+

5457«
8230c

5620+*
8329+

5803+«
8518+«

5981+
8651+t

6152+
B685e

6316+

6496¢

3245

3247

3265

3363

3371

3373

3376

3378

8628

7044

B6SOe

3091«

9058

3242

3564

3782

5012

8899

8596

8602

8607

8614

8617

8622

5671«

5672+

6367+

6368+

8592

3469+

3526+

4617+

4B13

4989

4760¢

4937+

5108e

5340+

8687+

8954

9233«

6672+

6846+

6993«

27638

27694
6852

8226+

28834

30134
934,08
93414
25764
97748

4675+
3357

3475

4888

3015+«

3068+

8325+

8519«

9378«
9379«

9421
9423

9790¢

9792«

(044346

76683

76774

RPVE (

016744

27398

2949

9072

3489

933

6139+«

RPIRPY

7698

5977+«

10212+

97904

4377+
8018

3240

8020

27568

4351
4684

3414

3177

27604

8575

9788¢

6273«
6509

3235

8550

9236+

4246
447Br

L758%
6992+

8326

5412

102074

044452

3129
3889+«

5048+
5701
6394
7069

3383

0578326

RPTIRP?

9064

5044
5617
6313
6989

2753

5799¢

RH70

8694

4863
5521
6217
6900

B90S

27554
27584
27664

014706

8019

7631

SEQ 0261

4838
5911
6207
6890

27644

014764
014772
015012

RHOF

3779

275640
6671+

RHER?2
RHERS
RHLA

014776

9061

276488

27654

RHMR

7913

62620
4655%

015010

014760

3069

4209
6645%

RHEC2

RHER1

7537

15:07

5
PAGE 264

MACY1T

CIRIND.PY2

24-MAY=79

CIRJHDO,RPOL/S/6 DSKLS CTRLRZ

7709

9079«

4147

9090

9234+
7173+
36413

9235«
7352+

G383

9669

9785«

7541«

B231«

B330+

3510

3596

6312+

6692+

6667+

3070«

3124

G168

4157

4949

B649r

10243¢

5043

3620

S467¢

5804+

B524+

3708

5982+

6162+

10126

6317+

6497

373¢

4772
H6160
7913

B6S3e

6823+

6988e

5211

7347

46710
S334e
e
75%

6756
S444r
7911

3777

4202

62%7

6362

L4644

5017

567

451

6517«

4529

4547

4548

(567

14.Y.Y4

7168+

4L426°

9945

9787+«

5191

5104+

3677

9786

7043+

LL16

5120

5004

3650

5621+

438
8652+

7¢97

CIRJIHDO,RPOL/S/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJIND.PY?
RPVECY
RSEIR
RSYNC

057442
053116
053112

RIN
RUNCTR
RUNWAT
R1Y
R1S
R16
RG&
SAVD1
SAVER

021360
052646
052726
025656
026502
026652
030572
015126
046616

SAVSN
=
SC
SCOPY =
SCRC
SCYL
=
s
=
SC10
=
sC2
=
sC20
sC&
=
SEARCH
SECGAP
SECOTR

015130
100000
104413
056240
056230
000100
001000
000200
002000
000400
057056
054630
053012

05705¢
SECTR
SEECOM 015200
056160
SEGPER
015120
SELECT
022754
SELTST
SERCH
015162
031466
SETCK1
SETCK2
032162
SETCK3 032706
047606
SETDSK
017336
SILOSZ
SILOTB 054726
056234
SKEY1
056236
SKEY2
= 040000
SK1
SN

SND1
=
SRO
=
SR1
=
SR2
SRY
=
SSECTR
SSYN
$S1
$S10
$S12

$513%
SSt1é

015060

020660
177572
177574
177576
172516
056232
053022
033266
033434
033464

033472
033500

2949
9339#
5284

MACY11

b
5
15:07
PAGE 265
2L=-MAY-T79
CROSS REFERENCE TABLE == USER SYM3OLS

30A(1052)

10243
9419
5307

10069

3075

92234
92384
3858#

SEQ 0262

9337#

9408

9413

9451

9463

9479

4851

L4948

5042

5119

5190

8184n

6839

4968

5031

5139

5178

9728#
5601+

9944

57740
7138+

77
5775«
7321¢

5953+
7322«

5954¢
7512+

3315

7747

9490

10009

10013

1006¢

9239

6048
AL
4563

2818«
3474
2821#
2552#

7960
99344
99304

c640N
26430
264614
2644
26420
8661
5256

10019

64658+

9245
5409
G744

101174

10119

6642
8310+

28634

9803+

28134
3192
28564

6643
8472

8686
98214
2901+
32874

9798

6104

(921

6972+
8473
10127

10119#

6788
5600+
6973
9242

7137+
92554

9981+

9992+

3017

3287

3091

3092+

3095

2903

«7914
49678

S138#
84524
2885#
97348

9932#

99334
271648
27964
2955
6874
6884
6894
6904
99314
9249
5255#
924L8¢e
5249
5250
5251

5090+
9939+«
9940+

3001#

9938
92644
5388

53094
53240
5325#
53264

9414

5311
5380
5381
5382+

5379¢

6296+

7513

6297+
8212

6467

8213

6468
8309¢

CIRJHD.PY2

$S15
592
SS3
$54
$SS
SS7

033540
033724
033314
033320
033324
033352

STACK = 001000

START
STARTA
STRLMTI=
SWR

017364
017606
177774
001140

SWREG
sw0
sw00
Sw0l
sw02
sw03
sSw04
sSw0S

000176
000001
000001
000002
000004
000010
000020
000040

sw06
Sw07
sw08

sw09

Sw
SWw10
sSwil
swi2
sw13
swi4a
Sw1S
Sw?

Sw3d
SWé

SWS

SWé6

Sw?
Sw8
SWw9
S1
$12
$36

=
=
=
=
=
=
=
= 000100
= 000200
= 000400

= 001000
=
=
=
=
=
=
=
=

000002
002000
004000
010000
020000
040000
100000
000004

MACY11

53364

5383¢

52694
52704

5375¢
5376+
5377
5378+
3039

52714

52864
29146
3848

4379
5606
7659
29064
2912
8892
10984
2941

15:07
PAGE 266
30A(1052)
2L=MAY-T79
CROSS REFERENCE TABLE =< USER SYMBOLS

3464
31974

3891
4418
5558
7694

4480
5911

3523

4081
6550

6140
4582

3013
10309

10509

10278

6101

10294

10296

2941y

3006
10302

3006

10509

10548

10571

718

8287

2935

3594

4034
6519

10280
10997

2933

3557

SEQ 0263

6254

6424

3054

595
594
593
592
591
590

589
588
587
586

3013
3054

8001

3167

3190

= 000010

= 000020
= 000040

= 000100

= 000200
= 000400
= 001000
025652
026006
027746

TAGDTE
181TvE=
=
10F
TESDTE

015146
000014
000040
015144

045034
TESTAD
046474
TIMCNT
TImoT = 000004

TkveEC = 000060
TTMMPILL
015140

8892

8890

3877
3918

4403

5238+

5385+

4783

4959

5130

7892+

9428

10003

7702
3554

81354
3555¢

8145
3570

8151
5788

5789+

3799+

10486+

4673

10487+
4698

6704

3618
64178
4614
6600

3167

10548

3648

3675

4737

6932

6716
10769

8001
10776

10781

3190

10603+

3734

4308
5086
7280

4244

6785

3706

627%
4915
7096

4208
4639

8285

CIRJHDO,RPO4/5/6 DSKLS CTRLR2

MACY11

30A(1052)

TPVEC = 000064
TRAPVE= 000034

4651
2828#
6364
634n

9664
3183

9739«
3185+

052762

9244

9247n

021320

3067

30764

CIRJHD.P12
TOLGAP
TOTALA

05573%¢
015136

TRE

= 040000

TRx1
TRX10
TRk2
TRx20
TRK&

=
=
=
=
=

TRK

T1RP

01-MAR-79 09:10

004000
040000
010000
100000
020000

TRIVEC= 000014

25514

26450
2648n
26460
26494
264L7N
6294

2920+

4352

TSECC

015142

2B32n

95418+

TSECCG

050624

TSINM

017330

1ST1

021032

TST10
1ST11
TST12

024200
024234
024340

7498+

(38?2

6394

4839

5031

5178

£113¢

6282

-6453r

6628c

6797«

6958«

7123¢

7307«

5760+

5939e

9604

9620

9676+

9689+«

10217«

10227+

2141
2176
28794
3731
4305+«
5087«

2143
2179
5040
37740
4338r
5235«

2165
2183
3120+
3818«
4376%
5408+

2148
2186
31461
3888+
4L15e
5560+

2151
2190
3426t
3932
L44br
5733+

2154
2193
3465
3971
G677+
5913«

2156
2196
3524+
4031e
650Be
6103e

2159
2199
3549«
4078
4540%
6256*

2163
2202
3591
4137«
4579+
6426+

2166
2206
1615
4171
4615+
6602+

2168
2485
3645+
4L198e
4640¢
6787+

2170
2687
3672+
4233e
4738
6933+

2173
2489
1703
42721
4916¢
7097

7281«
3018

35224
35470
3589

7472+«
3037

L135#
31440

030450

4384

9554

6107
3126
4169
4186
4204
42%9
&N
6324

15143

3895

9542

3969#
40294

027676
030022
021654
030124
030226
03033

3853

87594

3956
3991

113
15137
1514
15140
15161
1142

5586+

5821

18398-

026206
026406

026720
021602
027030
027126
027236
027352
027456
027562

2921«

4360

SEQ 0264

10270+

15124
15125

15127
1513
15130
1ST
15132
1S133
1S13¢
1S135

CROSS REFERENCE TABLE == USER SYmMsoLS

10225

36134
36430
36704
37014
37294

026546

PAGE 267

10215

3606
3635
3662
3693
3721
31174
3752
38164

15126

9674

024432
024530
024626
024730
025026
021524
025130
025254

025740
0260066

15:07

7884

TST13
TST14
TST1S
1S116
1ST17
1512
15120
18121

1S1¢e
1512%

24-MAY-79

31876
31916

64054

6344
«397
3152
6632
6661
6696

«538#

8883

7658+
7807

37724

38864
39304

L0764

“1964
6220
4258
«303#
43364
4363
4399
31624
464620
4e75#4
45064

W23\
&270n

L3740
“6138

9525

7693+

9537

7847

030600

030720
030754
031306
022770
032000
032524
033164
033740
054366
035104
035630
036372
023474
037016
037534
040260
041022
0461446
042164
042720
043476
024036
044254

\EXRA|

0464366

18172
0464462
TINO
= 000071

TUf
= 000100
TY
053126
TYPDS = 104405
= 1066
TYPE

4577

64604

46138

L64L6

4697

4797
6974

49140
5085#
52334

46378

3288

5144
5353
5479
5650
5833
6009
34254
6174
6346
6524
6701
6858
7022
7202
7379

3429

7570
7675
7707

3040
377440

643384
5235#
74724
26594

Q3704

3260
2958
3078
31393
(941

6190
7358
7856
9086
10570
TYPOC

1044072

10801

3063

TYPON = 104404
TYPOS = 10440%

10809
109604
109594

UN
UNIT
UNITS
UNITSL
UNLOAD
UNS
=
UPE

2808#
2807«
28144
2852#
25884
2529#4

1.5C0P

046100

021572
015112
015072
015122
015152
040000
020000

8001#
3129+

3301

30A(1052)

5387
5527
5706
5889
6076

564054
55574
57304
59104
61004

6223
6399
6578
6766
6906

6253
64234
6599«
6784
6931#

7074
7257
7647

34634

7636
7680
77284

SEQ 0265

L7368
7765

76564
7691

31464
318884
G415
5500#

3275
2963

3352
2968
3196
3405
5346
6372
7548

7693

3169
3399
5112
6324
7611
7860
9092
10573
10818

7864
9096
10584
10820

10833

109584

3266

15:07
PAGE 268
TABLE =-- USER SYMBOLS

7095#
72794
764694

31204
38184
“3760
54084
76584

2L-MAY=79

CROSS REFERENCE

15144

15145
15146
19147
1515
1S150
15161
15152
1S153
15154
TS155
15156
15197
1516
15160
15161
18762
18163
15764
15165
15166
15167
1517
1S170

MACYT1

~N N
I

CZRJIHDO,RPOG/S /6 DSKLS CTRLR?
CIRJIHD
. P12
01-MAR-79 09:10

3358

34260

39324

[YNNN|

5733«

364654
39714
La774
591"

55244
4031#
45084

61034

7744

7755
2980
3208

5495
6679
7739
8236

3364

95460
6546
7733
7875
9104
10605
10825
7848

7738

2972
3200
3.3
5356
6503

7603
7871
9100
10594
10823

2976
3204
3435

3439

9110
10626
10840
7854

“078#
45400

62564

31591
41378
45798
662648

36154
L1718
6154
66024

7796

10837

109614

3549

2984
3295
3446
5628
6734

2988
3261
3831
5676
6839

2992
3267
3835
5811
6873

366458

4198%
46408

67874

2996
3273
3839
5855

10668
10845
9051

7754
8508
10238
10671
10909
9073

7794
9046
10389
10675
109574
9085

7000
7797
9052
10428
10740
11006
9091

3329

3351

7737

7759

7751

8335
9116

36728
&3
4738%
6933

3019
3347
3843

3703%#

43054

3056
3353

3071
3359

4678

6041

3282+
3224
3269

3289+
3282

3310
3322

3327

4248

£255

4281

4288

4356

7760

5087
72818

4764

6159%

5988
7048
7843
9068
10503
10742

7180
7849
9074
10519
10771

9080
10569
10779

9109

10242

10872

77640

8023

10969

31314
3025
3220
3026+

317312

42728
49168
7097#

724

7855

CIRIHDO,RPOL/5/6 DSKLS CTRLR?
CIRJHD.PY?
01-YAR=-79 09:10

ust

= 000001

31909

319138

31942

36953

6314

6321

4585

4589

4601

25188

3868

3909

31938

3942

3953

6314

6321

4585

4589

6601

25174

UwR
U
VAR
VAR?
VAR3
VARG
VARS

= 000010
025630
032316
032324
032764
032772
033024

27124
3822
3097«
3068+
3101
3102
3105«

vUF

vu30
A"

= 000002

= 010000
= 000100

WRCHDA
WRCHDT
WRCHEK
WRCHHD
WRDATA

047162
015166
015166
046650
054376

WRFROM

(015220

5055

5121

5171«

5175«

5202

4665
8220

4751
8318

4928
8479

5608
9425

5782
9731#

5961

6304

6475

6650

6980

7145

7329

7520

5091«

5098

5632+

5439

6127+

6134

6811+

6818

9812#

5094
5095
2585#

5325¢
5326

;5?3

26538

2193
2193

9423'

10221+
8308#
28584

5322+«

9484
5488

gggg'

6862
6866

973648
7154
6814
6815«

7157«
G814n
9B15#4

7158«

9737«

9417

9419

9421

9423

94625

9475

9479

9510#

9520

9533

955Q0¢

3490
5290

3496
5291

3503
5335

4853
5361

4857+
5445

4880
5678

6934
5700

673%6
7621

5022
5857

6752+
7622+

5027
5872+

6760
7630

5105
5883

6824
8549

9698

9986

10006

197021

10039

10049

95808

9629+

9679

9686

969°2

9696

6472¢

6647

6977+

7142

7326+

7517

95635+«
5436+

28574

8239
8338

9310

96544

9899

6043
gogg

6059«
7068

6070
7226

82114

28754
5172
6

3098
5176

5329

6179
6183

3102
5264

6130
6131+

6140
7251

6374
76413

6393
7429

6548
76431

056242
015170

9810
2859«

99374
4681

6944

WRITE

054156

8338

9450

95854

9678

5464

6159

6843

8647

5324+

54340

6129+«

6813+

9795

9813

WRL
wRU

015172

= 004000

28604

10062

5114

26614

054676
WSSYNC
= 000004
wSu
056104
WIRK

97294
26554
9797«

9801#

9699

9987

056150

533,

Y685

969N

9695

6564
74461

6572
7605

25678

= 000400

WSECTR

4601

5026+

10971

WRHEAD
WRIDAT

WRIFOR

4589

5021

= 000001

053720

4585

4950

wCu

WORD

51724

6321

4879

25304
25794

WKE Y]
056152
WKEY2
056154
= 004000
WLE

3104

4314

4837+

= 040000
= 000040

055726
055730

50224

3953

4773

W(F
wCF

WwECC!
weC(2

3100

394?

27804

015024

056146

38484
S02#
3099+
S171#
3103
S179«#

1938

8065

wivL

1909

3483

81374
10971#

054710

3868

2711\

26654
25624

WALT.T
046476
WAl
= 104415

WCRC

SEQ 0266

3868

= 000002

= 000004

H
S
30AC1052)
24-MAY-79
15:07
PAGE 269
CROSS REFERENCE TABLE == USER SYMBOLS

25168

use2

us¢

MACY1Y

5093«

WWORD

054154

9439

053020

4602

022416

5188

8217+

9443

9447

4748

4925

8314e

32184

9451

9459

9464

9991

10008

10022

100%6

8522«

8539

92588

9302

5605

5779+

5958+

9469

10050

6301

10063

CIRJHDO,RPOG/S5/6 DSKLS CTRLR2

CIRJIWD.P12
x\1
Y
Y\l

1C0DE

01-MAR-79 09:10

025732
053060
025324

050540

= 000400
1ER
IWORDS 054376
$AUTOB 001134

$8DADR

001122

$BODAT

001126

3828
9312#
3827

$CKSWR

SCMTAG
scm1

38304

5593«

5767+

26004
96534
7640

8974
9672+
3010+

10562

10691

7505«

8:?2'

87714

g};g

| 4

6965+

7130+

7314e

2173

2206

8047+«

80S5S4+

8058+

8071«

8076

8079+

8101«

8109

2179
3692
3953«
4217+

2183
3718+«
3955
6219

2186
3720
3983«
62547

2487
3749+
3985
4255+

3150+
3751
4045
4257

8615

B622+

B624

8694+

8695

9443

9464+

9980+

9991+«

10014+

10029+

10041

10056¢

10779

10793

10801

10820

108¢5

10068+«

4288+
443
4603

4290
457
4705+

4320
44SBr
7953+

4321+
4460
7955«

4323
64692«
7957

7694
10430«
105484

10515
10440+
10965

10684
10447

10771
10456

10793
10461#

= 000006

7554

7564

2910

7574

2918

29264

2925

759

7608

7234

2909

060236
045010
060226

SENDMG
$ENULL
$EOP
$EOPCT

045017
045014
066712
044740

$GDDAT

6804c

2176
3690«
3952+«
4215«

$°8LK
$DOAGN
$DTBL

$FILLC
$FILLS
$GDADR

6635+

2170
3661
3911
4185

001223

SERTTL
SESCAP

6460t

2168
3659«
3909+
4183r

SCRLF

$ERRIB
$SERRTY

6289+

2156
3634
3908+
6182+

7624

SERRPC

6120¢

2151
3632«
3870
L1646

7614

$ERROR

2151

5946+

2145
3605
3868+
4100

= 000006

$ERFLG
SERMAX

BG6S

001216
060462
060774

001100

= 000006

061545
061557
061552

045000
044746

001103
001115

7534

755

7674

10429

10464

10605

10684

10745

7751
7754
3065
77894

7794
7797
3213
7793

78094
7808«
7758

77824

6393
4559+
8593

4394
4560+
8602+

4396
4562
8603

6428
4600
8616

78014

7264
7528

10258
2926+

10298
10300

10300
10322+«

10306+
10327

10327

10766+

10793

733
2173

2141
2176

2143
2179

2145
2183

2148
2186

2151
2190

2154
2193

2156
2196

2159
2199

2163
2202

2166
2206

2168
2485

2170
2687

2179

2183

2186

2190

2487

2489

3153

3082

2489
7884
10778
7304

10773«
10815
10800#

7514
7504
7340

10433
10464

1568

3605

001124

7664

10393«
7805#

001226
062114

001156
001159
001120

7654

10385
7799
103894

4362
6513«
8592+

761

7640

10351
7790
10354

655
77924

761#

7638

7855

760#

4360+
4495
B277+

758¢#

3273

10;7;1

7594

4359+
4493
8156+

7574

106844

2918

001112
001214

7584

10584
106864
106854

10503
10569
10594

061746

001116

SEQ 0267

2141
3603+
3867+
4097+

sCMs

SENDAD
SENDCTY

15
PAGE 270

7370
315
3785+
6047

7564

SCNTLC
$CNTLG
$SCNTLU

15:07

CROSS REFERENCE TABLE =< USER SYMBOLS

5425*

7554

$C(M3

24-MAY-79

38754

= 000014

sCM2

30A(1052)

2202

4287+
6629
4601+
$BELL
SCHARC

MACY11

7684

7364

107594

10774+

10775

10793

10807

7743
2925«

7745«
10321«

10772+«
10788

10793
10790

10793

2141

2143

2145

2168

2176

10464

3622t

3634

3652+

3661

3679«

31692

3710

3720

3738

3751

1786

CIRJHDO,RPOL/5/6 DSKLS CTRLRZ
(IRJHD.PY2
01-MAR-79 09:10
3858«

$GET42
$GT1SWR
$HD
=
$H10CT
$1O(NT
$1LLUP
$INTAG
$17emB
SLF
SLPADR
SLPERR
SMAIL =
SMNEW
$SMSWR
SMXCNT
SNULL
SNWTIST=

044770
061064
000000
061744
001104

062752
001135

001114
001224

001106
001110
teeeee

061575
061564

4089+
4279y
6495
8597
10028+
7798#
10570#
484
10733
7274
10976
7410
731#
7720
728#
7204

2945

10573

10570

10317
749#
3031#
3544
“073

060020
001154
000001

05354

53964
6414

$OCNT
$SOMODE
$OVER
$PASS
SPOWER
$SPWRAD
$SPWRON
SPUWRMG
SPWRUP
$QUES
$RDCHR
$RDDEC=
$ROLIN
$ROOCT
$RDSZ $SREGAD

$REGO
SREG!
$REG2

$REG3
$RE G4

$REGS

$SRTINAD

$R2A

76484
10881+
10876+
10281
7240
11007

062512
062514
060004
001100
062760

11009#
2922

062746

062606
062742
062660
001222
061336
[ EE XX

061426
061606
oooon
001160
001462
001164
001166
001170
001172
001174
045012
seseee

$SAVRE
=
062756
$SAVRG
057530
$SCOPE
eceeee

U
U

11007#
10986
7704
106374

10969

MACY1Y

3859+

24-MAY-79

CROSS REFERENCE

3870

3900+

3911

4098«
4312«
4526%

4100
4323
6545

10042«

10055+

10069

10314

10316+

10326

10586
10793
10675

10606
10804
10684

10691

10319

10417

10781

8608+

8618+

B627¢

15:07

5
PAGE 2/1

SEQ 0268

TABLE == USER SYMBOLS

4093
4290
6516

145¢
6352«
4562

B697+

3938+

4153
4362
(585

9413

3955

3980

3982

4176
(382+
4603

4185
6396
7060

211
4622«
7948

9442+

9461+

9463+

3985

4219
443)
7950

940Qe

4040+
4248
64651
7952

6044
4250
64660

6047
4257

9979«

9990

10013

34548
39274

3456
39664
L6728
52204
6244

35194

7957

(480

8276¢

10963
107440

10313«

10992

10567«
10775«
10464

2927+«
2928+
3006

106894
106874
103264
106435

3033
35864
G1320
65740
5398
6588¢
7650

10910«

10880+
10297

1?8%4

109764
109924

10464

10966

106604
107064
106534
7534
7554
7564
757«
758«
759
7600
78074

10967
10968

10985+
2916

10993

10969
10969

30A(1052)

10267#

110114

3303«
7853

10464

31100
36104
L1668
4610N
55464
6590

76854

10923#

10885

7870«
7880+«

3112
3640¢
L1938
4L62BF
5548
67754
7687

10888+«

10745

10793

7881
10304

10304
10320«

10319+
10326

10324
10787

10326

31410
36674
Q22BN
4630
57190
6777

31594
36984
42678
L7230
5721
69.04

32924
37264
L3004
4725
58994
652

3294
37694
43334
(8984
5901
70834

36178
38134
L3714
4900
60914
7085

3419
3883«
L4104
50744
6093
72674

10899+

109254

10311

10327

771794

7721

10315

10323«

7786

7787+

7795

7808

10626

10668

10684

10742

10745

10793

10994+

10995«

11013#

10305

7750«

775¢

11004

44350

5076
62420
7269

74578

40268

45034
5222
6461248
7459

6424

= 000000
$SWRMK
STIMES
001212

$1kB
$TKONT
$TKINT
$TKQEN=
$TKQIN
$TkQ0OU
$TKQSR
$7KS
$TKSRV
$TMPO

$TMPI

001146
060466
060506
060505
060470
060472
060474
001144
060556
001176
001200

001202
001204
$TMP4
001206
$TMPS
001210
= 000073
$IN

$TMP2
$TMP3

7806
10300
10776

523
7678
3730
4304

10317

7464
104684

2950

104720
104694
104704
104714
7452
10486
7614
4490

8152

7624

8283

7634
7640
7654
7664
NN|

3152
35234
pIYAY]
31731
3927

4077
204
4305
YAV|
4508
4640

50864
55646
6009
64240
6905
7281

658
484
2925
3614
4170

6614

6600
7808
10307
10781
524
2924+

3773
(337
10326
10467
10483+
3165
10538
104684
10485+
10484
4672

104994
2156
65160
8156
2154

2170
2156
8386+
8382+
4«84

3159
3524
3645
3752
39314

4078
4220
6326
6615
6535
6646

5087
55584

6075
6426
6920

7379

3302¢

3145¢
3931«

4030+
4507«

6443

10524
10644
10504

10536+
10648+
10651
10467

10537«
10649

10538
10651

10540+

10489+

10520+

10522

65470

8281
2170

2927

3003

7784

10268

10507

522
3302
3887

523
34626
3931

767
3464
3970
6676
5911
7779
10295
10754

768

769
3548
4077

7785
10298
10755

3644
6197
7785¢

42320
10307+

271
10314

3548«

3671¢

6254

7800
10299
10769

3702+

10550

10566+

10576

10588+

10608+

3570

791

8429
7667+

3788+

3865¢

3906+
5138+

3946
5139

L147¢
81461

6157
8147

3799

4792

4967

4968

7668+

7702+

7703

81462+

8147

8152

8268+

3120
3429
3610
37024
3875

3126
3454
36140

3141
36640
31615
3721
31887#
2031
6193

314654
3465
3635

3146
3519
3640
3730#
31916
407%
4198
L3040
4610
4507
“6388
507«

8427
5387+

8394
3031
3288
35484

8590
3040
3302#
3590#
3672
3813
3970#
6137
6239

8612
3110
36417
3591
3693
38174
3971

3118«
36264
3606
3698
3818
3991

7457

3590«

6101

10528+

8385
8386

5220
5650
6101#
6577
6933

7692
10292
10752

4539

61360
L4578

8154+
8384+

AR
Y.
42320
3370
4439
4540
4719

5558

6443
5731
7729
10294
10753

L4077+
6539

8149«
8139+

3667
3773«
3996

L6146

3523

4030
4507

10579

10499
10530+
10483#

3229

2925

4136
4578

2924

10792

2924
3590

2922
10784

TN|

2920

10760

~N SN
~N—O
N~
—
Pl
o

103184

6538

2918

10691

—

10289

294648
2907#

2916
10543

—

$STUP
$SVLAD
$SVP(
$SWR

000000
177777
057756
000200
167770

2915

10513

SEQ 0269

OO NS NN
NPV B NOD =N

$5S1

29074

10512

—

$SETUP= 000117

MACYY1Y

S
30AC1052)
24=-PAY=79
15:07
PAGE 272
CROSS REFERENCE TABLE =-- USER SYMBOLS

OO NI
N
W 8P~y
= W
N NN~
SN
WO
YWD

CIRJHDO,RPO4/S/6 DSKLS CTRLR?
01-MAR-79 09:10
CIRJNHD.PY2

6344
G444

65784
L7374

5235
5719
6174
6600#
7073
7472

4166
4258
4363
64661
6579

4738
5353
57314
€222
6602
7083
7570

1700
4267
4371
4672
4604
4797

5387
5733
6242
6701

710964
763%

4026
a7
027\
&375#
La76m
4610
4898

5396
5833
62544
6765
7097
7648

3703
1883

6030#
4186
6272
64376
&677

LO14n

4915#
56064

5888
6256
6775

7202
7657

29
4397
4496
4615
4916

5408
5899
6346

67854
7256
7658

3726
31888

64054

41970
4300
4399
6503
4628
4974
5479
59114

6398
6787
7267
7675

5526
5913
6412
6858

72802
7680

3
PAGE 2/3

CIRJHDO,RPO4/S5/6 DSKLS CTRLR2 ~ MACY11 30A(1052) 24=-MAY=79 15:07
CIRJIHD.PY2
01-MAR-79 09:10
CROSS REFERENCE TABLE == USER SYM3OLS
$1PB
$STPFLG
$1PS
STRAP
$STRAP2

$TRP

$STRPAD

$TSTNM

7685
7480
7524
7674
2920
109454

76920
10453+
10611
10451
10934#
10956

7693
10466
10464
10464

7707

7719

7729#

109714
109564

109594

109724

109604

109614

109628

10963

109644

10965

109664

062552

109704
10939

7784+

10258

10296

10318e

10323

10327

10768

10793

10949
10439
10459
10958
108814

10957
10446
104620

104514

10452

10610

10879+«
10778

10889

109244

653
28764
32584
7808
9731w
106467

6540
2913
32644
7812
97324
104718

6564
2927
3270#
78598
97334
10472

6584
2928
33504
78674
97354
104734

6620
29614
33964
78744
97364
106834

7154
29754
34024
78784
97374
10684

7220
29794
34084
90714
97384
10691

773
29914
34344
90954
97394
10765

001102

109494

7254

$STIYIN 061534
STYPBN= eerree |

10661
10962

$IYPE
STYPEC
STYPEX
$1YPOC
$STYPON
$1YPOS
SXTSTR
$$GET4=
SOFILL
SLOCAT=

106118
10432
10457
108794
10878
108744
102834
7800#
10875«
10280

$1YPDS

SEQ 0270

001152
001157
001150
062516
062540

- 000016

060022

060246
060416
060464
062314
062330
062270
057562
000000
062513
weeeee y

= 062770

103394

6414
2874m
31998
77364
97294
103934

11012

109584
7766+

10662
10961

10959

645N
28754
32034
77428
97308
10664

10679

10683#

)

10967#

10968#

109694

22758
30744
346388
91074
10241

24838
30814
36494
91198
10326

28074
31724
38428
97284
10327

10960

10793

108484

10988

30A(1052)

(HECKA
(HECKB

5675
6940
7547

5854
5111

8235

6039
5345

6188
5459

6371
5627

6545
5810

6732
5987

6871
6154

7047
6323

3155
6103

3 512
4 15%

3568
6187

3607
6221

3636
4259

3663
6292

3694
6325

3722
4364

(P RiV}
PNON~N

6527
5490
6080
6726
7383
8059
ESCAPE
GETPR]
GE TSWR

HCOMPR
H(OMPW
MAKECL

MSG

MULT

NEWTSY
POP

8619
4
L
10
S11a
S11a
5118

7179
4«86
493
3053
3987

6565
5529
6181
6768
7392
8072

8629
6384
6384
W74n

638s
3726
2371
5719
6388

RFORGC

S11e

5526

SAVTST

5118
5818

RH70CK
SAVE

SCOPE
SETPR]

638

7650

6384

9630
6388
9516

REPORT

8699

76478

9563
14
9381

PUSH

4605
5931
6185
6770
74606
8077

6610

3033
50734
6246

1
3698
6333
5546
18

7357
638#
6384
3133
4050

3519

3030#
4900
62418
7459

5493
4763

6384

4709
5656
6225
6864
7449
8080
8903

6227
6868
76451
8102

4796
5708
6350
6908
7574
8110

712

8334

5 662

8909

8978

8507

4868
5710
6358
6910
7583
8116

4889
5837
6401
7026
7595
8121

972
5846
6403
7034
7638
8157

5065
5891
6528
7076
7640
8555

JV_ )

6999
18
¥
532¢
3957

9359
4677

SEQ 0271

— D\

ENDCOM
ERROR

5114
S11M

CROSS REFERENCE TABLE == MACRO NAMES
7223
6502

3797

7609
6678

5879

7601
6838

3919

4433

6462

6497

5142
5893
6537
7078
7673
8557

6013
6580
7206
7681
8581

5367
6022
6582
7215
77
8583

(a9

COMMEN

01-MAR=79 09:10

15:07

S5
PAGE 275

MACYI1

CIRJUHD.P12

24-MAY-79

CIRJHDO,RPO4/S5/6 DSKLS CTRLR2

5369
6034
6705
7259
8048
8598

5486
6078
6714
7261
8055
8609

3003

31094
5076
66118

3112
52204
64614

32914
5222
65874

3294
53954
6590

36170
5398
67740

3419
55654
6777

364530
5548
69198

3456
57184
6922

66287
5721
7082#

4630
5898¢
7085

672¢8
5901
72668

4725
60908
7269

68972
6093
76564

3031
3769
4610
5899
7917

3110
3813
4439
6091
7994

314
3883
6472
6242
8194

3159
327
6503
6412
8291

3292
3966
6535
6588
8432

3417
6026
6574
6775
8480

3454
4073
4610
6920
8663

3519
6132
4628
7083
8701

3544
6166
«723
7267
8928

3586
4193
4898
7457
8993

3610
6228
5074
7648
9030

3640
6267
5220
7685
9319

3667
4300
5396
7719
9492
9226

9702
7907
9585

7687

77194

7721

9906
7981
9658

10072
8184
9778

10193
8258
9942

10233
8374
10120

10380
8377
10214

10734
8452
10339

10997
Bos4
10708

10998
8679
10978

8788
10984

8953

9004

St
S11e

3121
10761

6199

6234

5888

6075

6222

6398

6577

6765

6905

7073

7256

74646

7635

L4
6103

3040
3888

K77
6256

3120
3932

3626
403

3465
«078

3524
6137

3549
6171

3591
4198

3615
4233

3645
6272

3672
43095

3703
4338

3731
6376

3774
615

3037
5772
4613
5910

4508
6426

3146
3971

3117
3816
6442
6100

3144
5886
4475
6253

3162
3930
«506
6423

3301
3969
4538
6599

3425
4029
6577
6784

3463
4076
4613
6931

3522
6135
4637
7095

3547
6169
4736
7279

3589
6196
4914
7469

3613
3}
5085
7656

3643
6270
5233
7691

3670
4303
5409%
7728

3701
4336
5557
7783

533¢
5729
6374
5730

6388

5705

76840

10640

6540
660?

4339

6579
6787

6641

4615
6933

4640
7097

4738
7281

4916
7472

5087
7658

5235
7693

5408

5560

5733

5913

SETTRA

109494

10958

10959

10960

10961

10963

10965

10966

10967

10968

10969

10970

109N

SKIP

14
3956

5114
3991

6384
«05¢4

3018
6107

3152
4186

3288
4220

3429
4258

3606
6291

3635
6326

3662
6363

3693
6397

372
4399

3752
64632

3875
460!

3916
449

7379
6384

7570

7675

7680

7707

2499

2501

¢535

2537

3031

3036

3110

311e

SETUP

SLASH
SMORE
SPACE

STARS

6382

4604

4697

5114
6380

10269

7202
14

503

2908

719

509

5353

6384

5387

651

5479

718

5650

5833

6009

6174

6346

6524

6701

6858

7022

CIRJHDO,RPO4/S/6 DSKLS CTRLRZ
01-MAR=79 09:10
CIRJHD.P12
3141
3462
3726

4075
3N
4612

5719
6930
7817

8182
8669
9353

3143
3519
37.8

4132
4373
64628

5729
7083

7836

8204
8677
9360

10083
10747

10085
10795

TJUMP
TRRTRP

511
10949#

3126

TSCLRG

5114

SWRSU

TSCLR
TSCLRY
TSCLR?
TSCLR3

TSCLRS
TYPBIN
TYPDEC

TYPNAR
TYPNUN
TYPOCS
1YPOCT
TvpTXY

WDATAR
XREAD

$SCMRE
SSCMTH

$SESCA

SENEWT

$$SET
885 1P
.EQUAT
.FLOAY

S114
1
1

¥
1
19
19
18
3078
3431
7871
S11#
S11»

7164
168

1Y ]

1
3698
4333
5546
109497
19

.MEADE
N3AR
.SETUP
.SwRn]
.SWRLO
.SAP18

LSAPTH
LBAPTY
LBASTA

6134
6610
6636
5899
7094
7897

820/
8708
9362

10203
10851
29294
6204

3161
3544
377N

6166
6412
4723

30A(1052)
15:07
PAGE 276
2L-MAY-79
CROSS REFERENCE TABLE -- MACRO NAMES

3239
3546
3813

6168
4439

3249
3586
3815

6193
6641
4898

5909
1267
7905
8248
8’1
9503
10205

10928

6735
6091
7278
7924
8256
8938
9505
10236
10974

95N
10245
10990

6239

L3464

10571

6099
7457
7927

8300
8943

3292
3588
3883

4195
K72
6913

6242
7468

7966

8303
8998
9573

3300
3610
3885

4228
74

5074
6252
7648
7979
8346
9001

3333
3612
3927

6230
4503
5084
6412
7655
8031
8372
9040
9643

10255

9641
10329

10396

6646

4797

6974

5164

10807

10832

2980
3261
3843
9086

2984
3c67
7733
9032

6535

3417
6026
6574

4073
4610

10965

10966

SEQ 0272
3343
3640
3929

4267
4505
5220

6622
7685
8035
8440

9043
9719
104666

2988
3347

3370
3642
3966

6269
6535

5232
6588
7690
8089
8450
9137
9729

3409
3667
3968
4300
653%7

5396
6598
7718
8093
8487
9138

3417

3669

3424
3698

3454
3700

6026
4302
6574
5404

4028
4333
6576
95546

4073
6335
4610
5556

7719

7727
8133
8635
9200
9913
10653

9915
10694

3056
3398

3071
3406

6775

8128
8502

10543

9746
10558

9197
9748
10629

2992
3353

2996
3359

3392

6783

6920
7776
8174
8642
9329

S11#
ST
S511#
S11#

19
b RAY
19
14
19
19
(748

LBACTY

6384

3159
3521
3769

MACY11

\I ]

8
\X J
\r]

6384
6384
6384
6384
638#
6384
6384

7795

10835

3169
3435

3357
2957
3195
3439
9045

3363
2963
3200
3446

9052

755
761

756
762

763

6384
3726
WN
S719
10958
638s

3031
3769

5110
3813

7875

638s

4610

5899

10959

G468

528

&40
L7480
L74
«768
9248

679
2906

G748

529
649

757

4639

6091

10960

2968
3204
383¢
9068

2972
3208
3835
9074

2976
3255
3839
9080

758
764

759
765

760
766

3141
3883

3159
3927
4503
6612
10963

3292
3966

0472

6262

10961

6588

6775

3454

6920
10967

7739
9096

3519
6132
4628
7083

10968

7843
9100

3544

6166

6723
7267
10969

7849
9104

3586

4193
4898

7657
10970

3019

7856
9110

1610

4228

5074

7648
10971

7860
9116

7864
10237

3640

3667
4300
5396
ms

4267
5220
7685

LSCATC
LSCATA
.$0820
.$0820
.$01v
.SEOP
.SERRO
.SERRT
LSMULT
.SPOWE
.SRAND
.SRDDE
.$RDOC
.SREAD
.SR2AZ
.$SAVE
.$582D
.$SB20
.$SCOP

'8
10
.
4
1
14
.
.
¥
1L
1L
|1
IF
¥
1L
14
1L
X
L

.$SUPR
.STRAP
.$1YPB
.$TYPD
.STYPE
.$TYPO
.$40CA

11
14
1
14
1L
14
I

.$S11¢E

L1170

ABS.

W76
G746

MACYTY

639
76

G6n
G740
W76
G76H

W76n
W76

10253

G768

10926

G76N
G764
Q74N

10327
10394
10849

062770

ERRORS DETECTED:

000

DSKZ:CIRJHD.BIN,DSKZ:CZRIHD.LST/CRF/SOL/NL:TOC:MD:MC:CND/L:ME=CZRIHD.SML,CZRIHD.P11,CZRIHD.PT2
RUN-TIME: 72 108 8 SECONDS
RUN-TIME RATIO: 582/189=3.0
37k
(73 PAGES)
(ORE USED:

)

30A(1052)
24-MAY-79
15:07
PAGE 277
(ROSS REFERENCE TABLE == MACRO NARES

—

C(IRJHDO,RPOL/S5/6 DSKLS CTRLR?
(IRJHD P12
01-MAR-79 09:10

S€Q 0273