Digital PDFs

AH-9210D-MC

November 1979

317 pages

Original

173MB

view download

OCR Version

249MB

view download

Document:	CZRJGD0 RP04-5-6 RP04-5-6 DSKLS 1 NOV 1979 bw
Order Number:	AH-9210D-MC
Revision:	000
Pages:	317
Original Filename:	CZRJGD0__RP04-5-6__RP04-5-6_DSKLS_1__AH-9210D-MC__NOV_1979_gray.pdf

OCR Text

RP04/5/6

::ongj/étl);gs‘

NOV 1979

FICHE 1 OF 2

MADE IN USA

RP04/5/6

CZRIGDO

orviiont . SN
NOV 1979

FICHE 2 OF 2

MADE IN USA

CIRJGDO,RPOL/S/6 DSKLS CTRLRT
(IRJGD. P
10=-SEP=79 11:00

Tty

I
.
o T
e

MACY11

30A(1052)

10-SEP=79

11:11

Ry T~ 7=,

Uy~

Tepepeeen

P Y-

I T

e
PAGE ?

.REM 3

IDENTIFICATION

PRODUCT CODE:

AC=9208D-M(C

PRODUCT NAME:

CZRJGDC RPO4/5/6 DISKLESS CONTROLLER TEST-PART

DATE CREATED:

MAY, 1979

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

PETE

BLACKSTONE

THE INFORMATION IN THIS DOCUMENT 1S SUBJECT TO (HANGE
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS
A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
DIGITAL EQUIPMEMT CORPORATION ASSUMES NO

:ESPONSXBIL]TY FOR ANY ERRORS THAT MAY APPEAR IN THIS
ANUAL .

THE SOF TWARE DESCRIBED IN THIS DOCUMENT

IS FURNISHED

T0 THE PURCHASER UNDER A LICENSE FOR USE ON A SINGLE
COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION OF
DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN
WRITING BY DIGITAL.

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

DIGITAL
DEC

PDP
DECUS

UNIBUS
DECTAPE

MASSBUSS

MACY11

30A(1052)

10-SEP-79

CONTENTS
ABSTRACT
REQUIREMENTS

EQUIPMENT
STORAGE
PRELIMINARY

PROGRAMS

LOADING PROCEDURE
ME THOD

STARTING PROCEDURE
CONTROL SWITCH SETTINGS
STARTING ADDRESS OR ADDRESSES
6.3

~PROGRAM AND/CR OPERATOR ACTION

OPERATING PROCEDURE

OPERATIONAL SWITCH SETTINGS

5.2

SUB-ROUTINE ABSTRACTS
ERRORS

6.1

"FATAL'

ERRORS

RESTRICTIONS
M1SCELLANECUS

8.1

EXECUTION TIME

8.2

STACK POINTER

8.3

OPERATOR SELECTABLE SCOPE LOOPS

8.4

PROGRAM REVISION HISTORY

9.0

PROGRAM DESCRIPTION

LARRR

1
PAGE ?

SEQ 0002

TMTM

CIRJGDO,RPO4/S/6 DSKLS CTRLR1
(ZRJIGD.P1
10-SEP=79 11:00

1.0

MACY11

30A(1052)

10-SEP=79

11:11

1
PAGE &

ABSTRA(Y

THE DIAGNOSTIC

IS USED TO TEST RPO&/5/6 DEVICE CONTROL LOGIC

CONNECTED TO EITHER AN RH11 OR RM70 DISK DRIVE CONTROLLER

THIS DIAGNOSTIC TESTS THE RM11 AND DCL OF AN RJP04/5/6 SUBSYSTEM.
1T DOES NOT USE THE DISK SURFACE OR ANY SIGNALS FROM THE MDLI.
IT REQUIRES THAT THE DCL CABLE BE PLUGGED INTO THE MDLI OR
BE APPROPIATELY TERMINATED.
IF THE DISK IS POWERED UP, IT

1S REQUIRED TO GET THE DISK TO THE ''HEADS UNLOADED'' POSITION.

AFTER A SUCCESSFUL RUN (WITH NO ERRORS) OF

THIS DIAGNOSTIC

IT CAN BE ASSERTED THAT, "'THAT PART OF THE DCL THAT HANDLES
DATA OR DATA ASSOCIATED LOGIC IS WORKING PROPERLY''.
THIS

IMPLIES THAT, THE PART OF THE LOGIC WHICH HANDLES MECHANICAL
COMMANDS OR ITS ASSOCIATED LOGIC IS 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 ON AN RWP04/5/6 SYSTEM T0 TEST RP04/5/6 DISK DRIVES
CONNECTED TO THAT TYPE OF CONTROLLER.
IT IS ASSUMED THAT THE
RH70 SPECIFIC CONTROLLER DIAGNOSTIC HAVE BEEN SUCCESSFULLY
RUN TO COMPLETION BEFORE THIS DIAGNOSTIC IS RUN.
2.0

REQUIREMENTS

2.1

EQUIPMENT

PDP=11 COMPUTER WITH CONSOLE TELETYPE, AND A RP04/5/6 DISK SYSTEM,
THE RP04/5/6 DISK SYSTEM WILL CONSIST OF AN RH11/RH70 CONTROLLER,
AND DISK CONTROL LOGIC

(DCL), THE CABLE FROM THE DCL CAN BE

CONNECTED TO THE MDLI, BUT

TERMINATED.

2.2

IF NOT THAT CABLE MUST BE PROPERLY

STORAGE

THIS PROGRAM REQUIRES 16K WORDS OF MEMORY.

2.3

PREL IMINARY PROGRAMS

THIS CAN BE THE FIRST PROGRAM RUN ON AN RJP04/5/6 SYSTEM BUT THE
CONTROLLER DIAGNOSTICS MUST BE RUN FIRST IN THE CASE OF AN

RWP04/5/6 SYSTEM,
3.0

LOADING PROCEDURE

USE STANDARD PROCEDURE FOR LOADING .ABS TAPES
STARTING PROCEDURE

SWITCH 12 MUST BE SET WHEN THIS
RMH70 CONTROLLER.
1T CAN BE SET
IF THE
REGISTER
SWITCH
TWARE
SOF
PARAGRAPH 5.1 FOR A DESCRIPTION
OPERATION.

PROGRAM IS TO BE RUN USING AN
AT THE FRON PAEL, OR IN THE
SE
OPERATCR SO DESIRES.
OF SOF TWARE SWIT(H REGISTER

o ARG

SEQ 0003

TM~

CZRJGDO,RPO4/S/6 DSKLS CTRLR1
CZRJGD.PIN
10-SEP=79 11:00

CIRJGDO,RPO4/S5/6 DSKLS CTRLR1
CZRJGD.P1
10-SEP=79 11:00
6.1

MACY11 30A(1052)

10-SEP=79

11:11

PAGE 5

SEQ 0004

CONTROL SWITCH SETTINGS

SEE SECTION 5.1
6.2

STARTING ADDRESS

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

ALL SWITCHES MUST BE DOWN FOR WORST

CASE RUN.

WITH THIS

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

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

1S POWERED UP.

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

INTERROGATE

THE

THE OPERATOR FOR A NON-STANDARD

C.S.R. AND VECTOR ADDRESS BEFORE STARTING.

QUESTIONS MAVE BEEN CORRECTLY ANSWERED, AND

ONCE THE
IT

IS ALSO

NECESSARY T0 SELECT A PARTICULAR UNIT FOR TEST (TYPICAL
PROGRAM EXECUTION FROM ADDRESS 210), THE PROCESSOR MAY

BE HALTED AND RESTARTED FROM ADDRESS 210.

THE NEW

PARAMETERS WILL NOT BE CHANGED UNLESS THE PROGRAM IS AGAIN
RESTARTED FROM ADDRESS 204.
IF ALL UNITS ARE TO BE CHECKED,
THE PROCESSOR NEED NOT BE TOUCHED.
THE PROGRAM WILL
AUTOMATICALLY RESTART AT 200 AFTER RECEIVING THE NEW DEVICE

PARAMETERS.

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

WITH THIS

STARTING ADDRESS THE CONSOLE TELETYPE WILL ASK FCR THE UNIT
NUMBER TO BE TESTED.
THEN ONLY THAT UNIT wiLL BE TESTED
FOR EACH PASS OF

6.3

THE PROGRAM.

PROGRAM AND/OR OPERATOR ACTION
1.

LOAD THE PROGRAM INTO MEMORY.

SET STARTING ADDRESS ON THE SWITCH REGISTER

PRESS "LOAD ADDRESS'.

SET "OPERATIONAL SWITCH SETTINGS' (SEE SECTION 5.1)

WORST CASE

IS ALL SWITCHES DOWN.

PRESS "'START",

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

CIRJGDO,RPO4/S5/6 DSKLS CTRLRY
CZRJGD.PI
10-SEP=79 11:00

MACY11 30A(1052)

10=-SEP=79

11:11

E-%

PAGE ¢

SEQ 0005

INTERVENTION IF THE PROGRAM IS NOT RUN UNDER AN "“ACT=11"

MONITOR.

THE SECOND AND SUBSEQUENT PASSES wiLL EXECUTE

EACH TEST FOUR TIMES ON EACH DRIVES PRESENT OR DRIVE

SELECTED BEFORE "END PASS'TM 1S PRINTED.

THE SECOND

AND SUBSEQUENT PASSES DO NOT NEED ANY OPERATOR
5.0

OPERATING PROCEDURE

- %

OPERATIONAL SWITCH SETTINGS

INTERVENTION.

1F THE PROGRAM 1S BEING RUN ON A SWITCHLESS PROCESSOR (1. E.
AN 11/34) 1T WILL DETERMINE THAT A HARDWARE SWTICH REGISTER

1S NOT PRESENT, AND WILL USE A '"SOFTWARE'

SWITCH REGISTER.

THE SETTINGS OF THE '"SOF TWARE'' SWITCHES ARE CONTROLLED
THROUGAH A KEYBOARD ROUTINE WHICH IS CALLED BY TYPING A

"CONTROL G'.
THE PROGRAM WILL RECOGNIZE A "CONTROL G' AT ANY
TIME EXCEPT WHEN IT 1S AT A HIGHER PRIORITY PROCESSIHG A RP04/5/6
INTERRUPT.
THE ''SOFTWARE'' SWITCH VALUEA ARE ENTERED AS AN

ggT?; 2UHBER IN RESPONSE TO A PROMPT FROM THE SWITCH ENTRY
UTINE:

'SWR = NNNNNN

NEW ='

EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH

REGISTER IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT
REQUIREDP.
°‘RUBDUT' AND °‘CONTROL U' FUNCTIONS MAY BE USED TO
CORRECT TYPING ERRORS DURING SWITCH ENTRY,

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

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

AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED.

SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 ""OPERATIONAL
SgéTCH SETTINGS'' HOWEVER THE DETAIL DESCRIPTION ARE GIVEN

SWITCH 15 = HALT ON ERROR
WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR
THEN THE APPROPIATE INFORMATION WILL BE PRINTED OUT
AND THEN THE PROGRAM WILL HALT.
AFTER THIS HALT, PRESSING
PROGRAM TILL THE NEXT
THE
WITH
CONTINUE
WILL
“CONTINUE'"

ERROR 1S FOUND WHEN THE SAME THING WILL HAPPEN.

SWITCH 14 = LOOP ON TEST
WHEN THIS SWITCH 1S SET THE PROGRAM WiLL BEGIN TO LCOP
ON THE CURRENT TEST BEING EXECUTED. FOR EXAMPLE IF THIS

SWITCH IS SET WHEN THE PROGRAM IS IN TEST 10 THEN THE
PROGRAM WILL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY.
ONE WAY TO BE SURE THAT THE PROGRAM IS IN THE EXPECTED
TEST 1S TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR
DURING A PROGRAM HALT.

CZRJGD.P1

10-SEP-79 11:00

MACY11

30A(1052)

10-SEP=79

11:11

1
PAGE 7

SWITCH 13 - INHIBIT ERROR TYPEOUTS

WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL

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

WILL CONTINUE.
AT THE END OF PASS "'TOTAL NUMBER OF ERRORS
ON THIS PASS ON DRIVE Xx'' WiLL BE TRUE, THAT IS, ALTHOUGH
PRINTOUTS WERE

IT WiLL SAY SO.

INMIBITED

THAT

PASS FOUND 6 ERRORS,

SWITCH 12 = RH70 CONTROFLLER SELECT
THIS SWICH MUST BE SET

THE START OF

THE PROGRAM WHEN THE

DISK DRIVES TO BE TESTED ARE CONNECTED TO AN RH70
CONTROLLER.

ARE

1T MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED

CONNECTED TO AN RH11

CONTROLLER.

SWITCH 11 = INHIBIT ITERATIONS
WHEN THIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL
NOEERSPEAY EACH TEST FOUR TIMES BUT WILL DO EACH TEST
ON

NLY.

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

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

1S NOT PRESENT.

SWITCH 9 = LOOP ON ERROR
WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR
THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST
EXECUTED '"SCOPE'" STATEMENT.
IF ON THE SECOND TIME
THROUGH AN ERROR 1S FOUND IT WILL AGAIN LOOP BACK TO
THAT "'SCOPE'' STATEMENT.
THIS LOOPING WILL CONTINUE AS LONG
AS THE ERROR IS PRESENT AND THIS SWITCH IS SET.
HOWEVER

IF THE ERROR IS NOT PRESENT AT ANY TIME THEN IT WILL
EACH TIME THE ERROR
CONTINUE NORMALLY WITH THE PROGRAM.
1S ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11
1S ALSO SET.
DURING BEGUG, USING A SCOPE, IT IS RECOMMENDED
THAT

NOTE:

SWITCH 11

IS ALSO SET.

ALSO SEE SECTION 8.3

SWITCH 8 = LOOP ON TEST IN SWR <7:0>
THIS IS A SPECIAL SWITCH. WHEN SET SWITCHES 0 THRU 7
HAVE ONE MEANING AND WHEN RESET SWITCHES O THRU 7 HAVE
THIS MEANS THAT ANY SETTING OF SWIT(H
ANOTHER MEANING.
0 THRU 7 MUST BE DONE WITH SWITCH 8 IN THE APPROPIATE
POSITION. WHEN THIS SWITCH 1S SET THEN SWITCHES O THRU
7 GIVE THE TEST NUMBER TO BE LOOPED ON. FOR £XAMPLE
WITH SWITCH 8 SET AND SWITCH 3 SET THE PROGRAM wiLL LOOP

SEQ 0006

lalal

CIRJGDO,RPO4/5/6 DSKLS CTRLR1

MACY11

30A(1052)

10-SEP-79

11:11

1
PAGE &

SEQ 0007

ON TEST 10.
HOWEVER THIS SETTING MUST BE DONE AT THE
BEGINNING OF THE PROGRAM THEN ALL THE TESTS FROM 1 10 10
WwiLL BE EXECUTED AND THEN TEST
AND OVER AGAIN.

10 wiLL BE REPEATED OVER

WHEN THIS SWITCH 1S NOT SET

0 THRU 7 HAVE THE MEAING ITS NAME INDICATES.

THEN SWITCHES

FOR EXAMPLE SWITCH 7 1S "'STOP FURTHER COMPARES:

THAT

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

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

SEQUENT TEST WILL ALSO BE LOST.

BUT WITH SWITCH 7, ONLY

THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT.

EXAMPLE OF

ANOTHER

SWITCH 8 BEING LOW IS WITH SWITCH 6, WHICH
1S "ECC TEST-COMPARE END RESULT ONLY''.
THAT IS IF SWITCH
8 IS NOT SET AND SWITCH 6 IS SET THEN ON ECC TESTS (TEST
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY (LOCK,

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

NOTE:

ALSO SEE SECTION 8.3

SWITCH 7 = STOP FURTHER COMPARES IF SWO8 IS LOW.
IF SWITCH 8 1S 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 IS SET THEN THE PROGRAM WILL DO AS THE

NAME INDICATES.
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL
THE WORDS ARE IN ERROR THEN AFTER SEEING THE ERROR PRINTOUTS

"OR 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 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 IS SET THEN ON ECC TESTS (TEST 120 THRU

TEST 134) INSTEAD OF COMPARING CONTENTS OF THE POSITION AND
PATTERN REGISTERS AFTER FVERY (LOCK, COMPARES wiLL BE DONE
ONLY AT THE END OF ALL THE CLOCKS.
5.2

SUB=ROUTINE ABSTRA(TS

SEE SECTION 9 ""SUBROUTINES"

CIRJGDO,RPO4/5/6 DSKLS CTRLRT
CZRJGD.PT
10-SEP=-79 11:00

CZRJIGDO,RPO4/5/6 DSKLS CTRLR1

CZRJGD.P1

10-SEP=-79 11:00
6.0

MACY11

30A(1052)

10-SEP=-79

11:11

k.3
PAGE 9

SEQ 0008

ERRORS

ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER
PERTINENT

INFORMATION CONCERNING THE PARTICULAR FAILURE.

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

REGISTERS OR GOOD/RECEIVED DATA.,

THE ERROR OCCURRED

ADDRESS TO DETERMINE THE CAUSE OF

THE ERROR.

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

'FATAL'

IN A

ERRORS

IN THE EVENT THAT THE DISx DRIVE BECOMES UNAVAILABLE TO THE
CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS
CANNOT BE CLEARED PRIOR TO THE START OF A TEST SEQUENCE = THIS
INFORMATION WILL BE COMMUNICATED TO THE OPERATOR.
IN
ADDITION THE TTY BELL WILL RING AND THE PROGRAM WILL HALT.
IT

1S SUGGESTED THAT IF THIS HAPPENS THE OPERATOR LOAD

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

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

IS ALSO POSSIBLE TO CONTINUE FROM THE HALT

POINT, BUT

IS NOT RECOMMENDED AS ALL FOLLOWING TESTS WILL

EXHIBIT THE SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS.
7.0

RESTRICTIONS

IF THERE IS A DRIVE CONNECTED THEN THE OPERATOR MUST HAVE

THE DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B

BUT NEVER LEAVE IT IN THE PROGRAMMABLE STATE.
IF THERE
FROM
GOING
NORMALLY
CABLE
THE
THEN
CONNECTED
DRIVE
NO
1S
THE DCL TO THE MDL] MUST BE PROPERLY TERMINATED.

SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND
1T MUST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER.
BECAUSE CF THE REQUIREMENT FOR 1T TO BE SET WHEN USING AN
RH70, THE PROGRAM CANNOT BE RUN IN UHAIN MODE WHEN USING THE

SOF TWARE SWITCH REGISTER FEATURE WHILE RUNNING ON AN RK70.
THIS 1S BECAUSE THE ROUTINE WHICH GETS '""SOF TWARE' SWTICH
SETTINGS IS NOT OPERABLE WHEN IN CHAIN MODE.

8.0

MISCELLANEOUS

8.1

EXECUTION TIME

THE FIRST PASS OF THE PROGRAM wiLL TAKE 30 SECONDS PER
SUBSEQUENT PASSES WILL TAKE 1 MINUTE.
DRIVE.
8.2

STACK POINTER

THE STACK IS INITIALLY SET TO 1000

8.3

MACY11 30A(C1052)

10-SEP=79

11:11

1
PAGE 10

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

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

WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT
THE PROGRAM GOES BACK TO CAN BE CHANGED.
THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM (AN GO ARE: 1.
17 MUST BE WITHIN THE TEST UNDER CONSIDERATION

2.
LOOP ON ERROR SWITCH MUST BE SET
3.
THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION
I1F THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION

THE PROGRAM WILL REVERT TO NORMAL OPERATION.
HOWEVER, IF LOOP ON
TEST SWITCH 1S SET AND THIS OPERATOR SELECTABLE SCOPE LOOP 1S USED
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT
COMES TO THE END OF THE TEST UNDER CONSIDERATION.

AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH
NORMAL OPERATION WILL CONTINUE.

8.4

PROGRAM REVISION HISTORY

9.0

PROGRAM DESCRIPTION

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 COLUMN IS THE LINE NUMBER WITHIN THE LISTING

W74
475

476

77
4«78
479

480
481
482
483
484

WHERE
)

THAT

ITEM WiLL BE FOUND.

JTITLE

CZRJUGDO,RPO4/S5/6 DSKLS CTRLRI1

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

:*PROGRAM BY PETE BLACKSTONE
. %

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
:*PACKAGE

(MAINDEC-11-DZQAC-C3), JAN 19, 1977,

‘%

s/e\z/e\z/e\z/e\ e\ o\ e\ /e\ e\ e\ e\ e\ /e N/ e\ /e N/ e\ e\ e\
s/e\z/e\z/e\z /N e\ e\ e\ /e N\ e/
e\ / e\ e\ e\ e\ e\ e\ )\
\
e\ e\ e\ /e
e\/e
e\ e\ e\ e\
e\ e\ /e N\z/
\z/e
e\ e\
s/eN\z/e

;*DRIVE MUST BE LOCKED ON PORT A OR PORT B
/N \w/o\w/o e/ \w/ oo/ \o /o \e/ N0/ \w/ N/ e/ N/ N/ \e/\w/ i\ 2\
ALY AR VA VA VA VAN VAN VAN VAR VAR PAAL VAL VAR VAR VAR PRSP ARY
A
VAL VAN P AN VRN FARN VAN VAN VAN PAAN PR VRS AL VAR FAAL FAAL FARY)
ARV

SEQ 0009

TMTM

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P11
10-SEP=79 11:00

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.PIN
10-SEP=-79 11:00

MACY11

30A(1052)

496
L97

11:11

PAGE 1!

;*INTERNAL PROGRAM MACROS BEGIN HERE

L98

499

10-SEP=79

R
R R L

500

; TR PP R R R

501
502

'NOTE MACROS BEGINNING WITH ''.$'" ARE SUPPLIED BY AN

504
505
506

MUST BE MADE AVAILABLE TO THE SOURCE PROGRAM
AT ASSEMBLY TIME.

507

:*
‘e
te

R
R R R ARl

508
509
g}?

.SBTTL

OPERATIONAL SWITCH SETTINGS

503

R R R R R R RO R R R R

RO RO R TR RO R RRRRRRORRREROERROEROOEROEPTPOROPOROORTETY

EXTERNAL SYSMAC.SML SYSTEM MACRO PACKAGE WHICH

512

51¢
515
516
517
518

.
.*
o
..
B

513

519

520

521
522
523

SWITCH

USE

esssee

BELL ON ERRCR

8
7
6

LOOP ON TEST IN SWR<7:0>
STOP FURTHER COMPARES I1Ff SwO8 IS LOW
ECC TEST=-COMPARE END RZSULTS ONLY IF SwOB IS LOwW

A
o®
4

15
14
13
12
11
9

ecccecccccccccccceces

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
RH70 CONTROLLER SELECT
INHIBIT ITERATIONS
LOOP ON ERRSR

SEQ 0010

MACY11

30A(1052)
10-SEP=79
BASIC DEFINITIONS

.SBTTL

001000

000011

000012
000015
000200

177776

177774
177772
177570
177570

NNNNNN

573

1000
EMT_ERROR
107,SCOPE

PS,PSW
.EQUIV
STKLMY= 177774
PIRQ=
177772

DSWR=
DDISP=

177570
177570

SEQ 0011

;;BASIC DEFINITION OF ERROR CALL
;;BASIC DEFINITION OF SCOPE CALL

;sSTACK LIMIT REGISTER
::PROGRAM INTERRUPT REQUEST REGISTER

: ;HARDWARE SWITCH REGISTER
; ;HARDWARE DISPLAY REGISTER

:*GENERAL PURPOSE REGISTER DEFINITIONS

PRO=
PR =
Pk2=
PR3=

0
40
100
140

PR6=

300

002000
001000
000400
000200
000100
000040
000020
000010
000004

s*MISCELLANEOUS DEFINITIONS
Hl=
1"
::CODE FOR HORIZONTAL TAB
LF=
12
;:CODE FOR LINE FEED
(R=
15
::CODE FOR CARRIAGE RETURN
CRLF=
200
:;CODE FOR CARRIAGE RETURN=-L!NE FEED
PS=
177776
:;PROCESSOR STATUS WORD

000000
000040
000100
000140
000200
000240
000300

040000
020000
010000
004000

PAGE

;*INITIAL ADDRESS OF THE STACK POINTER w#e 1000 wwe

STACK=
LEQUIV
LEQulv

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

100000

BASIC DEFINITIONS

RO=
R1=
R2=
R3=
R&=
RS=
R6=
R7=
SP=
PC=

000340

11:11

%0
%1
%2
%3
%4
x5
%6
x7
%6
x7

;*PRIORITY LEVEL

PRé4=
PRS=
PR7=

200
240
340

; sGENERAL REGISTER
:;GENERAL REGISTER
; ;GENERAL REGISTER
:;GENERAL REGISTER
s sGENERAL REGISTER
:;GENERAL REGISTER
; ;GENERAL REGISTER
s ;GENERAL REGISTER
;:STACK POINTER
: ;PROGRAM COUNTER

DEFINITIONS

::PRIORITY
;:PRIORITY
::PRIORITY
::PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL

O
1
2
3

::PRIORITY LEVEL 4
::PRIORITY LEVEL S

::PRIGRITY LEVEL 6

::PRIORITY LEVEL 7

;*''SWITCH REGISTER' SWITCH DEFINITIONS
100000
Swi5=
SWwié=
40000
20000
swi3=
Swi2=
10000
4000
SWwil=
2000
swi0=
1000
sSw09=
400
Sw08=
200
swo7=
sSwo6=
100
40
swo5=
20
Swlsa=
10
swo3=
&
sSwo2=

[l
]

CZRJGDO,RPD4/5/6 DSKLS CTRLR]
10-SEP-79 11:00
CZRJIGD.P1

622
623
624
625
626
627
628

629
630
631
632
633
634

.EQUIV
.EQUIV

.EQUlvV

.EQUIV
.EQUIV
.EQUlvV

SW09,Sw9
Sw08,5w8
SW07,5w7
SW06, SWe

SW05, SW5

, Swé4
SW04
SW03,5w3
SWw02,Sw?
SW01,Sw1
Sw00, Sw0

BIT DEFINITIONS (BITOO TO BIT1S)
100000
40000

20000

10000
4000
2000
1000
400
200
100
40

20
10

000030
000034
000060
000064
000240

)
]
]
]
]
]

O =PI
N0 ~00 O

Bt Bt Pt bt b4 s
B

]
]
]
]

B0 Bt b

O
~

€D €D

D T

GO CD

D O

Bt Pt e

000004
000010
000014
000014
000014
000020
000024

—p—;
-R

et Bt ot P

P D

000001

n
PAGE 13

— AU &~

001000
000400
000200
000100
000040
000020
000010
000004
000002

11:11

bt b

100000
040000
020000
010000
004000
002000

616

617
618
619
620
621

Sw01=
Sw00=

610
611
612
613
614
615

000002
000001

30A(105 2 )
10-SEP-79
BASIC 0 EFINITIONS

oD OO0 CD D €D TD D T

580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609

MACY11

e l=l=l=l=l=l=l=1=1=
O==MNOWHr
VO N
O

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
CZRJGD.P1
10-SEP=79 11:00

;*BASIC "'CPU'" TRAP VECTOR ADDRESSES
ERRVEC= &
::TIME OUT AND OTHER ERRORS
RESVEC= 10
;;RESERVED AND ILLEGAL INSTRUCTIONS
TBITVEC=14
VT BIT
TRIVEC= 14

::TRACE TRAP

BPTVEC= 14
I0TVEC= 20

:;BREAKPOINT TRAP (BPT)
;: INPUT/0UTPUT TRAP (10T) ««SCOPEer

EMIVEC= 30
TRAPVE(=34

:;EMULATOR TRAP (EMT) w««ERRORe»
::"'"TRAP'" TRAP

PWRVEC= 24

TKVEC=
60
TPVEC= 64
PIRQVE(=240

;:POWER FAIL

;:T11Y KEYBOARD VECTOR
::TTY PRINTER VECTOR

; PROGRAM INTERRUPT REQUEST VECTOR

SEQ 0012

635

636
637
638
639
640
641
642
643
644

10-SEP=79

.SBTTL

TRAP CATCHER

000174
000000
000000

DISPREG:
SWREG:

.SBTTL

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

664

665

666

667
668
669
670
671

.WORD
.WORD

0
0

SEQ 0013

$SVP(=.
.=4b
$SENDAD

.=52
.WORD
20000
.=$SVP(

004244
0466356
004234

;;SOFTWARE DISPLAY REGISTER
;;SOF TWARE SWITCH REGISTER

ACT11 HOOKS

;HOOKS REQUIRED BY ACT11

000200
000046
041520
000052
020000
000200

000200
000137
000137
000137

2222222322222 2222222222222002222222
20202202222
iRRRRRRll )

.SBTTL

000200
000204
000210

1
PAGE

;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:'LOCATIOng‘CDNTAlNS 0O TO CATCH IMPROPERLY LOADED VECTORS

646

000052

;*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A "', 42 HALT"

645

000046

11:11

.=0

000000

000174
000176

30A(1052)

.=200

RA:
ADDMOD:

;SAVE PC

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

::2)SET LOC.52 TO 20000
:: RESTORE PC

STARTING ADDRESS
JMP
JMP

JMP

o#BEGIN
a¥BASE(H

a¥#BEGINZ

;NORMAL START

;MODIFY

ADDRESSES

;SELECT DRIVE START

;**STARTING ADDRESS 200 FOR NORMAL STARTS
;*«THIS WILL TEST ALL DRIVES ON THE SYSTEM A SINGLE DRIVE AT A iIME

;**STARTING ADDRESS 204 FOR PARAMETER MODIFICATION,

;**RESTART AUTOMATICALLY FROM 200 AFTER PARAMETER MODIFICATION.

;**STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE

CIRJGDO,RPO4/S5/6 DSKLS CTRLR]
10-SEP=-79 11:00
CZRJGD.P1N

MACY11

CZRIGDO,RPOG/S5/6 DSKLS CTRLRY

(ZRJGD.P1

10=-SEP=79 11:00

672
673
674

MEMORY MANAGEMENT DEFINITIONS

;*KT11

VECTOR ADDRESS

MMVEC=

SFQ 0014

250
STATUS RECISTER ADDRESSES

177572
177574
17757¢
172516

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR&=
KIPDRS=
KIPDR6=
KIPDR7=

NNNNNNNN

PR
G
g
——-

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

KIPARO=

w
wn

oo
N

i
i
il
ld

NNNNNN

;*KERNEL "'1'" PAGE

703
704
705
706
707
708
709

LSBTTL

SRO=
SR1=
SR2=
SR3=

701
702

30A(1052)
10-SEP=79
11:11
PAGE
MEMORY MANAGEMENT DEFINITIONS

;*KT11

693

694
695
696
697
698
699
700

000250

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

MACY11

172340

KIPAR1= 172342
KIPAR2= 172344
KIPAR3= 172346
K1PAR4= 172350

K1PARS= 172352
KIPARG= 172354
KIPAR7= 172356
e

001110

ADDRESS REGISTERS

2222222222222 2222222222222t
Al

=110

CZRIGDO,RPOL/5/6 DSKLS CTRLRI
—

10=-SEP=79 11:00

30A(1052)
10-SEP=-79
COMMON T AGS

SBTTL

PAGE

SEQ 0015

R TR

RN RN R R RN R RN RRRRRTRNTRRTRTRRTRORTRORRRORORRRORRORORORORORORREROEROEROEOEOROERTOETR

B el o

;*USED IN THE FROGRAM,

001100

$CMTAG:
$PASS:
$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
SLPERR:
SERTTL:
$ITEMB:
SERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000

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

177570
177570
177560
177562
177564
177566
000

002

012

001160

001162
001164
001166
001170
001172

001174
001176

000
000000

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

077
015

.=1100

$REGO:
$REGT:
$REG?Z:

$REGS3:

SREGS:

$REGS:
$TMPO:
$TMP1:
$TMP2:
$TMP3:

.WORD
.WORD
$TMPS:
.WORD
$TIMES: 0
$SESCAPE: 0
$BELL:
LASCIZ
$QUES:
LASCII
LASCLI
$CRLF:
$TMPSL:

000377

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

OO0 O0CODO0ODOO—~O0OO0COOOCOO

001100

DSWR
DDISP

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

;:START OF
;s CONTAINS
;;CONTAINS
;s CONTAINS
;s CONTAINS
;;CONTAINS
;s CONTAINS
;s CONTAINS
;;CONTAINS
;;CONTAINS
;s CONTAINS
;s CONTAINS

;sAUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR
;s ADDRESS OF SWITCH REGISTER
; ;ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS

;. TTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS
OO—=NO

il
il
il

:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

VO NONE
WN = OOV
NO VNS

11:11

COMMON TAGS

OCOO0OO0O0OODOOOOO0OD

NNNNNNNNNNNNNNNNNNNNNNNNNNNNN~N NNNNNNYNNN ~

:~t~t~t~t~t~t~t‘twh\nunungy;ufiunvufl\nhunnvnuAJh;mnvhuna
NN 2O 0N VN
W
=0 OO NO NN
-o

(ZRJGD.PT

MACY11

::TTY PRINTER BUFFER REG.

;2 'TERMINAL AVAILABLE'' FLAG (BIT1<07>=0=YES)
::CONTAINS THE ADDRESS FROM
;;WHICH (SREGO) WAS OBTAINED
::CONTAINS ((SREGAD)+0)
::CONTAINS ((SREGAD)+2)
:;CONTAINS ((SREGAD)+4)
::CONTAINS ((SREGAD)+6)
;;CONTAINS ((SREGAD)+10)
::CONTAINS ((SREGAD)+12)
:sUSER DEFINED
;USER DEFINED
;sUSER DEFINED
;sUSER DEFINED
;sUSER DEFINED
:sUSER DEFINED
::MAX. NUMBER OF

ITERATIONS

::ESCAPE ON ERROR ADDRESS
<207><377><377> ;:CODE FOR BELL
i1

<15

ADDRESS

::CONTAINS NULL CHARACTER FOR FILLS
;::CONTAINS # OF FILLER CHARACTERS REQUIRED
2 INSERT FILL CHARS. AFTER A ""LINE FEED"

:QUESTION MARK
;s CARRIAGE

RETURN

CIRJGDO,RPO4/5/6 DSKLS CTRLR]

C(ZRJGD.PN
766
767

001224

10-SEP=-79 11:00
000012

MACY11

30A(1052)

10-SEP=79

COMMON TAGS

$LF:

ASCIZ

<A1

11:11

2
PAGE

17
;sLINE FEED

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

SEQ 0016

CIRJIGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CIRJGD.P1Y

MACY11

30A(1052)
10-SEP=-79
ERROR POINTER TABLE
.SBTTL

11:11

PAGE

SEQ 0017

ERROR POINTER TABLE

;*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.
;*NOTE:
1F SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP().

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

;*NOTE2:

;s 0INTS TO THE ERROR MESSAGE
:;POINTS TO THE DATA HEADER
;:POINTS TO THE DATA

EM
DH
DT
DFf

067424
070142

001236

057¢5%

001240

066202

001242
001244

:WRONG DATA N READING OR WRITING HARDWARE REGISTER

Eml
DH1

;PC

;REG. ADDR.
;GOOD DATA
sRECEIVED DATA

sSERRPC,REGADR,$GDDAT
,$BDDAT

;0,0,0,0,0

o] TEM?

070004
070312

EM2

;ERROR ON

DH33

;PC

001232
001234

s+l TEMI

057572
063045

001226
001230

—
N

il el
s

s il

oo N PN el
N OV

Go
Oo 0oG0 Co O

SERRTB:

DATA COMMAND

sPC OF JUSR
;TEST NO
;WORD NO.
;GOOD DATA

;CONTENTS OF RHM(S!
;CONTENTS OF RHDSI
;CONTENTS OF RHER!
,ERY
$TSTNM,
ERWORD ,$GDDAT,(S1,DS1
SERRPC,PCJUSR,
;0,0,0,1,0,0,0,0

il ol i

G O G0 GO OO 0o Co

001226

;:POINTS TO THE DATA FORMAT

001246

057655

001250

065757

;o] TEM3

EM2

;ERROR ON

DM32

:PC
;PC

DATA (OMMAND

JSR

sTEST NO

;WORD NO.

;GO0D DATA
;BAD DATA

;CONTENTS OF

RM(S)

CIZRJGDO,RPO4/S5/6 DSKLS CTRLR]

CZRJGD.PY

824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844

845

10-SEP=-79 11:00

MACY!1

30A(1052)
12
ERROR POINT

2
PAGE 19

SEQ 0018

;CONTENTS OF RMDS!
;CONTENTS OF RHER!
001252
001254

067760
070301

001256

057655

001260

065554

sl TEMG

;SERRPC ,PCJSR,$TSTNM ERWORD ,$GDDAT ,$BDDAT,(S1,DS1,ERT

D132
DF 32

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

EM2

;ERROR ON

DH31

SPL
;TEST

DATA COMMAND

NO
;WORD NO.

;GOOD DATA

;BAD DATA

;CONTENTS OF RMCSI
;CONTENTS OF RHDSI
;CONTENTS OF RHERI
001262
001264

067736
070271

001266
001270
001272
001274

000000
000000
067736
070271

001276

057704

001300

065757

;SERRPC,$TSTNM
ERWORD ,$GDDAT ,$BDDAT,(S1,DS1,ER]

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

846

847
848
849
850
851

852
853
854

855
856
857
858
859
860
861
862

;*]1TEMS

SSERRPC,$TSTNM,ERWORD
, $GDDAT,$BDDAT,(S1,DS1,ERT
:0,0,1,0,0,0,0,0,

;*]TEMG

;ERROR ON WRITE HEADER AND DATA
:PC

;PC OF

;TEST

;WORD NO.
;GOOD DATA
;BAD DATA

863
864
865

;CONTENTS QF RHCS!
;CONTENTS OF RHDS!
;CONTENTS OF RHER!

866

867
868
869
870

001302
001304

067760
070301

001306
001310

057704
063170

871
872

87%
874

875
876
877

878
879

JSR

o] TEM7

D132
DF 32

ERY
NM,
,$BDDAT,(S1,DS1
R,$TST
ERWORD ,$GDDAT
;SERRPC,PCJS
:0000001' .0.0.0.0.0.

EM6

ERROR ON WRITE

DHZ

STEST NO

:WORD NO.

:G00D DATA
;BAD DATA

WEADER AND DATA

;

001314

067452
070153

885
886
887
888

001316
001320
001322
001324

000000
000000

892
893

001326
001330

057743
063313

;*1TEM10

067452
070153

900
901

001332
001334

067466
070160

905

001336

057743

907

001340

063045

911
912

001342
001344

067424
070142

916
917
918
919

001346
001350
001352
001354

000000
000000
067424
070142

923
9264

001356
001360

057776
063473

;*1TEM

;*1TEMI2

11:11

PAGE 20

SEQ 0019

,$BDDAT
STNM,
ERWORD ,$GDDAT
;SERRPC,$T

D13
Dt3

0
0
D13
DF3

’

"S$ERRPC.S$TSTNM,ERWORD,$GDDAT,
$BDDAT
;0'0'1 'o'ol

EM1
DH11

—

001312

881

——

880

10-SEP=-79 11:00

30A(1052)
10-SEP-79
ERROR POINTER TABLE

CZRJGD.PM

MACY11

CZRJGDO,RPO&/S /6 DSKLS CTRLRI

EM1
DH1

;gONIROLLER OR DRIVE

“PL
sTEST

;FAILING REG. ADDR
;CONTENTS OF RH(S!
;CONTENTS OF RHC(CSZ
;CONTENTS OF RMDSI
;CONTENTS OF RHER1

SERRPC,$TSTNM,$BDADR,(S1,(S2,.DS1,ER!
;0,0,0,0,0,0

;WRONG DATA FROM SILO
:PC

sREG.ADDR
;GOOD DATA
sRECEIVED DATA

DDAT
,$BDDAT
sSERRPC ,REGADR,$G
:0.,0.0.0

Je]1TEM13
;SERRPC,TSTNM, REGADR,$GDDAT ,$BDDAT
:0.0,0,0.0

;e1TEMIG

EM14
DH14

:SEGISTER FAILED

;FAILING REG. ADDR
;CONTENTS OF

931
932

001362
001364

STATUS

D114
DF 14

067506
070167

;e]TEMIS

;CONTENTS
:CONTENTS
;CONTENTS
;CONTENTS

OF
OF
OF
OF

FAILING REG.

RMCSI
RH(S?2
RHDS1
RHERT

ER]
;SERRP(,$BDADR,$BDDAT,(S1,(S52,DS1
:0,0,0,0.0,0,0

CIRJGDO,RPO&/5/6 DSKLS CTRLRI

CIZRJGD.PN

936
937
938
939

940
941
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

9R3
984
985
986
987

988
989
990

991

10-SEP=79 11:00

MACY11

30A(1052)
10=-SEP=79
ERROR POINTER TABLE

001366

060016

EM15

001370

063673

DH1S

001372
001374

067530
070177

DT1S
DF15

001376
001400

060067
063724

001402
001404

067540
070202

001406
001410

060110
064067

;1 TEMIG

11:11

2
PAGE 21

SEQ 0020

;SPECIFIED REG. NON EXISTANT SO ABORT
s PROGRAM

:PC

;ADDR.

REG

SERRPC,TEMPI
:0.

EM16

;WAIT LOCOP FAILED

DH16

;PC
JWAT

D116

:B1T WANTED
sREG. ADR.
;REG. CONT.
,
,$STMP(,$BDDAT
,$TMP3
SERRPCSTMP1

Em?z
DH17

;WRITE CHECK FAILING
sPL

DF16

;o] TEM17

:0,0,0,0

;TEST

sCONTENTS OF RHBA
;CONTENTS OF RHDB

;CONTENTS OF

001412
001414

067556
070207

001416

060134
064252

001420

D117

;CONTENTS OF RHC(CS!I
;CONTENTS OF RH(S2
;SERRPC,$TSTNM,
$BA, DB, WC,(S1,(CS2

Em20
DH20

:REGISTER FAILING
:PC

DF17

;*]TEM20

RHWC

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

:TST

;CONTENTS OF RHER!
;CONTENTS OF RHERZ

;CONTENTS OFf RHER3

001422
001424

:CONTENTS OF RHAS
;CONTENTS OF RHDSI
:SERRPC,TSTNM ER1,ER2,ER3,AS,DS!
;0,0,0,0,0.C.,0

D120
DF20

067576
0702'¢
;o] TEM21

001426
001430

060155
064435

EmM21

001432
001434

067616
070225

D121
DF21

;INTERRUPT FAILING

DH21

;TEST NO
;CONTENTS OF RHCS!
;CONTENTS OF RHAS
;CONTENTS OF RHDS!
sSERRPC,TSTNM,CST,AS,DST
;0,0,0,0,0

CIRJIGDO,RPO&L/S /6 DSKLS CTRLR!

CZRJGD.PY

992
993
994
995
996
997

001436

10-SEP=79 11:00

060177

MACY11

30A(1052)
10-SEP-79
ERROR POINTER TABLE

;v1TEM22

001440

064555

DH22

1003
1006

001442
001444

067632
070232

D122
DF22

1008
1009
1010
1011
12
13

001446
001450
001452
001454

000000
000000
000000
000000

001456

060657

J*1TEM 24
EM24

064660

DH24

14
15
16

17
18

001460

;*1TEM23

999

1024
1025

001462
001464

067640
070236

D124
DF 24

1028

001466

060752

;*1TEM 25
EM25

1031

001470

064660

DH24

PAGE 22

SEQ 0021

;ERROR IN DRIVE PRESENT -

;LOOKING AT RHAS AND RH(S2-NED(BIT#12)

;DRIVES PRESENT DO NOT AGREE
;NOTE: ON DUAL PORT SYSTEM
;DRIVE ON OTHER PORT WILL NOT GIVE NED
;HENCE THERE WILL BE A MISSMAT(H

;PC
sTEST NO
;RHAS UNIT (RHERY BITS §
;RHCS2 UNIT ('NED' BIT T

sSERRPC,TSTNM
;0,0

:NO LONGER USED DUE TO SPECIAL °NED'
;TEST TABLE TYPE OUT ROUTINE

;LOOK AHEAD REGISTER AT THE
;BEGINNING OF A SECTOR IS IN

:ERROR

sRHDST

;BAD RHLA
;GOOD RHLA
;SECTOR NO
;SECTOR CLOCK

:SERRPC,DST,$BDDAT,STMP1,$TMP2 ,$TMP3
;0,0,0,0,0

;LOOK AHEAD REGISTER IS
; IN ERROR
;PC
sRHDST

;BAD RHLA
;GOOD RHLA

001474

067640
070236

1040

001476

057743

1042

001500

065043

1037

1038

1045
1046
1047

001472

;*1TEM26

D124
DF24

;SECTOR NO
;SECTOR CLOCK
;SERRPC,DST,$BDDAT
,$TMP1 ,$TMP2 ,$TMP3

:0,0,0,0,0

EmM11

;CONTROLLER OR DRIVE

DH26

:PC

;PC OF

JSR

STATUS

;FAILING REGISTER ADDRESS
;CONTENTS OF RHMCS]
;CONTENTS OF RH(S2
;CONTENTS OF RHMDS!

CZRJGDO,RPO4L/S /6 DSKLS CTRLR1
10-SEP=-79 11:00
CZRJGD.PI
1048
1049

001502
001504

067660
070245

001506

057572

001510

065246

001512

067702
070255

1071

001516

001520

061012
065411

001522
001524

067720
070263

1079

30A(1052)
10-SEP-79
ERROR POINTER TABLE

11:11

2
PAGE 23

SEQ 0022

;CONTENTS OF RHER1

1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068

1072

MACY11

J*1TEM27

D126
DF26

;SERRPC,PCJSR,SBDADR,(S1,(S2,DS1.ERT

Eml

;ERROR IN READING OR WRITING HARDWARE REGISTER

DH27

:PC

50.0.0.0.0.0.

sPC OF JSR

:TEST NUMBER

sFAILING REGISTER
;GOOD DATA
JRECEIVED DATA

;] TEM30

D127
DF27

,$BDDAT
REGADR ,$GDDATTNM
;SERRPC ,PCJISR,TS

EmM30
DH30

:CURRENT CYLINDER DOES NOT REFLECT DESIRED CYLINDER REG.

:0.,0,0,0,0.,0

s PC

;PC OF JSR
;REGISTER ADDRESS
;GO0OD DATA
;BAD DATA

D130
DF 30

DDAT
,$BDLAT
sSERRPC ,PCJSR,REGADR,$G

EmM3

;ECC GENERATED 1S INCORRECT

DH34

:PC
;TEST

/
1084

001526

061133

001530

066405

;*1TEM3]

;EVERY WORD IN THIS SECTOR 1S GIVEN IN "DATA USED"
NUMBER

.G00D ECCY
.GO0OD EC2C

;WRITTEN ECC?
;WRITTEN ECC2

;DATA USED
1095

001532

070026

D134

,WECC2,DISK
;SERRPC,TSTNM,GECC1,GECC2,WECCY

001534

070322

DFf 34

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

001536

061256

EM32

;ON READ COMMAND AFTER DATA AND ECC HAVE BEEN READ

;] TEMZ?2

JECC REGISTER OR RHMERY

IS IN ERROR

;ONLY LOWER 11 BITS OF PATTERN REGISTER

CIRJGDO,RPO4/S5/6 DSKLS CTRLR1

10-SEP=-79 11:00

10-SEP-79

ERROR POINTER TABLE

11:11

001540

066570

Pn35

SEQ 0023

:PC

;TEST NUMBER

BB WAWWWWWNWWWHNWN
NN NN NPT NN
s bt e it s s s DO O

PAGE 24

:CAN BE READ
;THIS SHUOLD MATCH LOWER 11 BITS OF ECCI

32
OOO\IOU‘l‘U‘N-‘OOONO‘\IOJ“VJN—‘OOONO\I"‘UON—‘O'O@\Jg\I‘

C(ZRJGD.PY

MACY11 30A(1052)

;600D ECCI
.6G00D FCC2

001542

070046

D135

;SERRPC,TSTNM, GECCT,GECC2,EC2,ERT

001544

070331

nF 35

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

001546
001550

061545
066773

Em33
DH36

:HIGH COUNT BIT NOT HIGH AFTER 38859 (LOCKS
;PC

;*1TEM33

;PC OF JSR
:TEST NUMBER
s RHMR

i A

;PATTERN REGISTER
:RHERT

;POSITION REG.

001552

070070

D136

:$ERRPC,PCJSR,TSTNM
MR ,ECT,EC2

001554

070341

DF 36

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

001556

061617

el TEM2S

EM34

:ZERO DETECT BIT NOT HIGH WHEN iHE

:gg g%;ogcc REGISTER HAS IT1S 21 BITS

il Al

;PATTERN REGISTER

001560

066773

DH36

1
2
43

144
145

;ERROR PRINTOUT WILL CONTINUE TILL
;JERO DETECT BIT
=o
;PC OF JSR
;:TEST NUMBER

IS HIGH

:RHMR
;POSITION REG.

sPATTERN REGISTER

146

001562

070070

D136

:SERRPC,PCJSR,TSTNM
MR ECT EC?2

148

001564

070341

DF 36

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

147

149
150

152

153
154
155

001566

061712

;] TEM3S

‘

EM3S

156
157

158

159

:POSITION REGISTER CR 11 BITS Of
sPATTERN REGISTER INCORRECT
:LOWER 11 BITS OF PATTERN REGISTER

:SHOULD MATCH LOWER 11 BI1TS OF GOOD ECCH
;DATA ENVELOPE AND N-(CODE ZEROS ARE IN DECIMA|

001570

067132

DH37

:PC

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI]
CIRJGD.P1Y
10-SEP=79 11:00

MACY11

30A(1052)

10-S EP-79

ERROR POIN TER TABLE

11:11

PAGE 25

1160

;TEST NUMBER

1162
1163
1164
1165
1166

:GOOD POSITION
:GOOD ECCI
;600D ECC2
;ECC PATTERN
:DATA ENVELOPE

1161

SEQ 0024

;ECC POSITION

}}2{

:N-CODE ZEROS

‘}gg

001572

070106

D137

:SERRPC,TSTNM,EC1,POSITI,GECCY,GECC2,EC2,DATENV, ZCODE

}};;

001574

070347

DF37

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

001576

062211

EM36

001600

066570

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

1173
1174
1175

1176
177
1178
1179

;+1TEM36

DH3S

1180
1181
1182
1183
}}gg

:TEST NUMBER

;600D ECCI
;600D ECC2
:PATTERN REGISTER
;POSITION REGISTER
:RHER1

}‘gg

001602

070046

D135

:SERRPC,TSTNM,GECCY,GECC2,EC2,ECT,ERT

}}gg

001604

070331

DF 35

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

001606
001610

062322
063313

EM37
DH11

001612
001614

067466
070160

;PGE ERROR
:PC
:TEST NO
:FAILING REG. ADDR
;CONTENTS OF RHCS!
;CONTENTS OF RHCS2
;CONTENTS OF RHDS!
;CONTENTS OF RHER1

001616

062457

001620

067350

DH4O

001622
001624

070132
070360

D140
DF40

1190

1191
1192
1193
1194
1195
1196
1197
1198

1199
158?
1

1202

1203
1204
1205
1206
1207
1208
1209

:5:?
1212

1213

1214
1215

:+]1TEM37

DTN
DF 1
;*1TEMGD

EM&0

:SERRPC,$TSTNM,$BDADR,CS1,CS52,DS1,ERY
;0,0,0,0,0,0
:RHWC DID NOT = O AFTER A READ OR
:WRITE HEADER AND DATA
:PC
:TEST NO
:CONTENTS OF RHWC
:SERRPC,TSTNM,SBDDAT
:
:0,0,0

;:"tt.""".'.'"""""""""""'t'.tl"'lt""""""l"
;*RH11/RH70 REGISTERS

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

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
R o
L
T
T
T
N N
e Y N Y
YL e e—
N=OOVONOVEWN—=OOVONOWVESA WOV~ o

) e
R
Y
e
—
A
PR

NN
NN
NN
NN NN N ~

CZRJGD.PT

1243

}S:g

10-SEP=79 11:00

MACY11 30A(1052)

10-SEP=-79

ERROR POINTER TABLE

11:11

2
PAGE 26

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

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

;*CONTROL AND STATUS REGISTER 2 (RH(S2)
000001
000002
000004
000010
000020
000040
000100
000200

E
us2=
US&=
BAl=
PAT=
CLR=
IR=
OR=

4
10
20
40

200

;UNIT SELECT (BIT #0)
sUNIT SELECT (BIT #1)
:UNIT SELECT (BIT #2)
:BUS ADDRESS INCREMENT INWIBIT (BIT #3)
:INVERT PARITY ON MASS BUS TO EVEN (BIT #4)
:CLEAR (BIT #5)
: INPUT READY (BIT #6)
:OUTPUT READY (BIT #7)

001000
002000
004000
010000
020000
040000
100000

MXF =
PGE=
NEM=
NED=
UPE=
WCE=
DLT=

1000
2000
4000
10000
20000
40000
100000

: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 #14)
:DATA LATE (BIT #15)

000400

MPE =

1
2

100

400

:MASS BUS PARITY ERROR (BIT #8)

1246
1247

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

1251

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

]253

;.-tt""""'i't""'t"'t"'t""""ttt'tttt"0""""""."!

1248
1249
1250

1252

:*RP04 REGISTERS

1254
1255
1256

:*CONTROL AND STATUS 1 REGISTER. (#00)

‘52;
1259

000001

6G0=

;G0 (BIT #0)

1261
1262

000200
000400

RDY=
Al6=

200
400

;READY (BIT #7)
:HIGH ORDER UNIBUS BITS (BI1T #8)

002000
004000
020000

PSEL=
DVA=
MCPE=

2000
4000
20000

100000

S(=

100000

1260

1263

1264
1265
1266

1267

'§°3
126

1270
127

000100

001000

040000

l1E=

Al17=

1RE=

100

1000

40000

:*«STATUS REGISTER (RHDS1) (#01)

:INTERRUPT ENABLE (BIT #6)

:HIGH ORDER UNIBUS BITS (BI1T #9)

:PORT SELECT (BIT #10)
:DEVICE AVAILABLE (BIT #11)
:MASSBUSS PARITY ERROR (BIT #13)
:TRANSFER ERROR (BIT #14)

:SPECIAL CONDITION (BIT #15)

SEQ 0025

CIRJGDO,RPO4/5/6 DSKLS CTRLR1

CIRJGD.P1Y

10=-SEP=-79 11:00

:
MACY11 30A(1052)

10-SEP-79

ERROR POINTER TABLE

11:11

2
PAGE 27

SEQ 0026

1272
1273
1274
1275
1276
1277

000001
000002
000004
000010
000020
000040

DFS=
DFF20=
D1GB=
GRvV=
DL6&=
DE1=

1
2
4
10
20
40

:DRIVE FORWARD 5''/SEC.
(BIT #0)
:DRIVE FORWARD 20''/SEC.
(BIT #1)
:DRIVE TO INNER GAVRD BAND (BIT #2)
:6G0 REVERSE (BIT #3)
:DIFFERENCE LESS THAN 64 (BIT #4)
:DIFFERENCE EQUALS 1 (BIT #5)

1279
1280
1281
1282
1283
1284
1285
1286
}ggg

000200
000400
001000
002000
004000
010000
020000
040000
100000

DRY=
DPR=
PROG=
LST=
WRL=
MOL=
PIP=
ERR=
ATA=

200
400
1000
2000
4000
10000
20000
40000
100000

:DRIVE READY (BIT #7)
:DRIVE PRESENT (BIT #8)
:PROGRAMABLE (BIT #9)
:LAST SECTOR TRANSFERRED (BIT #10)
;WRITE LOCK (BIT #1171
:MEDIUM ON-LINE (BIT #12)
:POSITIONING OPERATION IN PROGRESS (BIT #13)
:COMPOSIT ERROR., (BIT #14)
ATTENTION ACTIVE (BIT #15)

1278

1289
1290
1291

000100

vvs=

100

:*ERROR REGISTER #01
ILF=
1
ILR=
2

1294

000001
000002
000004
000010
000020

RMR=
PAR=

4
10

1296
1297
1298
1299
1300
1301
1302
1303
1304
};82

000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

W(F=

ECH=
HCE=
HCRC=
AQOE=
JAE=
WLE=
DTE=
OPl=
UNS=
DCK=

1292
1293

1295

000040

}ggg

000001
000002
000004

1313

000020

1314
1315
1316
1;};
1

000010

000040
000200
000400
001000

100
200
400
1000
2000
40001000
2000
40000
100000

:REGISTER MODIFICATION REFUSED (BIT #2)
:PARITY ERROR (BIT #3)
:FORMAT ERROR (BIT #4)

:WRITE CLOCK FAIL (BIT #5)

:ECC HARD ERROR (BIT #6)
;HEADER COMPARE ERROR (BIT #7)
:HEADER CRC ERROR (BIT #8)
:ADDRESS OVERFLOW ERROR (BIT #9)
:INVALID ADDRESS ERROR (BIT #10)
:WRITE LOCK ERROR (BIT #11)
:DRIVE TIMING ERROR (BIT #12)
:OPERATION INCBMPLETE (BIT #13)
:DRIVE UNSAFE (BIT<#14)
:DATA CHECK ERROR (BIT 15)

DMD=
MCLK=
MINX=
MSTCk=
MRD=
MWR=
DENvVL=
lER=
DISY=

1
2
&
10
20
40
200
400
1000

:DIAGINOSTIC MODE (BIT #0)
:MAINTAINABILITY CLOCK (BIT #1)
:MAINTAINABILITY INDEX (BIT #2)
:MAINTAINABILITY SECTOR CLOCK (BIT #3)
:MAINTAINABILITY READ (BIT #4)
:MAINTAINABILITY WRITE (BIT #5)
;DATA ENVELOPE (BIT #7)
:lERO DETECT (B1T #8)
:MAINTAINABILITY SYNC DETECTED (BIT #9)

:*ATTENTION SUMMARY PSEUDO=-REGISTER (RHAS) (#04)

1;58
1

(RHMER1) (#02)
:1LLEGAL FUNCTION (BIT #0)
:ILLEGAL REGISTER (BIT #1)

:*MAINTAINABILITY REGISTER (RHMR)(#03)

1309
1310
1311

1312

FER=

:VOLUME VALID (BIT #6)

(B11
(BIT
(BIT
(BIT

#0)
#1)
#2)
#3)

1321
1322
1323
1324

000001
000002
000004
000010

AT0=
AT=
AT2=
AT3=

1
2
4
10

:DEVICE 0
;DEVICE 1
:DEVICE 2
:DEVICE 3

1326
1327

000040
000100

ATS=
AT6=

4«0
100

:DEVICE S (BIT #5)
;DEVICE 6 (BIT1 #6)

1325

000020

ATé4=

:DEVICE & (BIT #4)

]
;*EACH BIT

IS CALLED BY BIT NUMBER

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

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

(BIT #0)
;EXTENSION
(BIT ")
;EXTENSION
(BIT ")
;EXTENSION
(BIT #3)
;EXTENSION
(BIT )
ON
ENSI
;EXT
(BIT ")
ON
;EXTENSI
;SECTOR COUNT FIELD
;SECTOR COUNT FIELD
;SECTOR COUNT FIELD
;SECTOR COUNT FIELD
;SECTOR COUNT FIELD

EXT1=

EXT2=

EXT4=

EXT10
EXT20
EXT4&0
SC1=

SC2=
SC&=

SC10=
$C20=
TRK1=
TRK2=
TRK&=

TRK10=
TRK20=

20000

40000
100000

OO
I NNNNNNNN
W
= O 0VBNO
NS
Ny —

)
e
e
ndh
el el
il

NN NN NN

il
el
i
e
—

NN NN

; *RP0O4& ERROR REGISTER #2

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

100000

(SF=

WSu=

IXE=

vu30=

PLU=
ACU=

(RHER2)

FIE LD
FIE LD
FIE LD
FIE LD
FIE LD

2
3
&
5

(BIT

"7)
#8)
’9)
#10)

(BIT
(BIT
(BIT #14)
(BIT #15)

(#10)

;WRITE CURRENT UNSAFE (BIT #0)
;CURRENT SINK FAILURE (BIT #1)
;WRITE SELECT UNSAFE (BIT #2)
;CURRENT SWITCH UNSAFE (BIT #3)

wCU=

(Su=
MSE=
1DF=
TUF=
FEN=
WRU=
MHS=
NHS=

;TRACK
;TRACK
s TRACK
:TRACK
;s TRACK

10000

#6)

—

1
1

;*DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1)

1
1
1

;DEVICE 7 (BIT #7)

200

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

SEQ 0027

s ]

PAGE 28

mEBRSWANA—-O

AT7=

NNy —

1
1

WW W NN N W WWIWHNHWWN
NN N NN NN WS
VIV
AV . Dok 2k 2P b o o P
o &N
NN NN N NN NN
N=OOBNO WV w N=O 0N NS W
—=O

| 329
1

000200

30A(1052)
10-SEP-79
ERROR POINTER TABLE

1328

MACY11

:MOTOR SEQUENCE ERROR (BIT #4)

;TRANSITIONS DETECTCR FAILURE (BIT #5)
; TRANSITIONS UNSAFE

4000
10000

20000

100000

(BIT W6)

: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)
:ACUNSAFE (BIT m15)

TM
~ P~

CIRJGDO,RPO4/5/6 DSKLS CTRLR
10-SEP=79 11:00
CZRJIGD.PIY

1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414

3
PAGE 29

SEQ 0028

;*RPOS5/6 ERROR REGISTER #2 (RHER2) (#10)
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
020000

;WRITE CURENT UNSAFE _

wlU=

; CURRENT SINK FAILURE
; CURENT SELECT UNSAFE

(SF=

WSu=
(Su=
RAW=
=
TDF
=
TUF
ABS=
WRU=
MHS=
NHS=
IXE=
PLU=

;CURRENT SWITCH UNSAFE

sREAD AND WRITE
sTRANSITIONS DETECTOR FAILURE
sTRANSITIONS UNSAFE

;ABNORMAL STOP
:WRITE READY UNSAFE

:MULTIPLE HEAD SELECT
:NO HEAD SELECTION

20000

: INDEX ERROR
;PLO UNSAFE

;*OFFSET REGISTER (RHOF) (#11)
000001
000002
000004
000010
000020
000040
000200
002000
004000
010000

;OFFSET 25 MICRO INCHES

200
2000

4000
10000

:OFFSET
;OFFSET
OFFSET
:OFFSET
;OFFSET

200 MICRO INCHES (BIT #3)

400 MICRO INCHES

(BIT w4)

800 MICRO INCHES (BIT #5)

;ERROR CORRECTION CODE INWIBIT (BIT #11)

; FORMAT BIT

1415

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

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

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

(BIT #0)

SO MICRO INCHES (BIT #1)
100 MICRO INCHES (BIT #2)

;OFFSET NEGATIVE (REVERSE) (BIT #7)
;HEADER COMPARE INHIBIT (BIT #10)

1416

1417
1418
1419
1420
14621
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
16432
1433
1434
1435
1436
1437
1438
1439

11:11

(BIT #12

10-SEP=-79 11:00

30A(1052)
10-SEP=79
ERROR POINTER TABLE

oOoOO

CZRJGD.P1

MACY11

TMTM

CIRJGDO,RPO4/5/6 DSKLS CTRLRI

——
e
e

1440
1641
1442
1443
Tl
14645
1446

16447
1448
1449
1450
1651
1452
1453
1654

1455
1456
1657
1458
1459
1460
1461
1462
1463
1464

1465

1466

30A(1052)

10-SEP-79

ERROR POINTER TABLE

11:11

SEQ 0029

;*ERROR REGISTER #03 (RHER3) (#15)
000001
000002
000010
000020
000040
000100
040000
100000

PSUVUF =

1
2

PRE=

UWR=
ACL=
bCL=

SKl=
ocvL=

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

sANY UNSAFE EXCEPT READ/WRITE (BIT #3)

40
100

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

40000
100000

;DISK PACK ROTATION ERROR

;SEEK INCOMPLETE (BiT #14)
;OFF CYLINDER (BIT #15)

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

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

(BIT #4)

|
-y

MACY11

3
PAGE X0

([l el

C(IRJGDO,RPO4/S/6 DSKLS CTRLRI
10-SEP=79 11:00

(ZRJGD.PI

10-SEP=-79 11:00

1467
1468
1469
1470
1471
1472

}2;2

001626

000254

1480
1481
1482
&

001630
001632
001634

001636

176722
176702
176704

176710

1490
1491

1492
1493
1494

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

121%
151

001640
001642
001644
001646
001650
001652
001656
001656
001660
001662
001664
001666
001670
001672
001674

001676

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

176736

lg}g
1

1516

1517

RPVEC:

254

:RP0& VECTOR ADDRESS

THIS ROUTINE STARTS AT LOCATION TAGED ''BASECH'

RHDB:
RHWC:
RHBA:

176722
176702
176704

RHCS2:

176710

;DATA BUFFER SEE NOTE ABOVE
"WORD COUNT SEE NOTE ABOVE
:BUS ADDRESS SEE NOTE ABOVE

:CONTROL AND STATUS 2 SEE NOTE ABOVE

THIS ROUTINE STARTS AT LOCATION TAGED "'BASECH"

RHCS1:
RHER1:
RHDST:
RHER2:
RHOF:
RHCA:
RHERZ:
RHAS:
RHMR :
RHDS1:
RHDT:
RHSN:
RHEC1:
RHEC2:
RHLA:

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

RHCC:

:CONTROL AND STATUS 1 SEE NOTE ABOVE
"ERROR #1 SEE NOTE ABOVE
.
:DESIRED SECTOR/TRACK ADDRESS SEE NOTE ABOVE
:ERROR #2 SEE NOTE ABOVE
“OFFSET SEE NOTE ABOVE
:DESIRED CYLINDER ADDRESS SEE NOTE ABOVE
“ERROR #3 SEE NOTE ABOVE
:ATTENTION SUMMARY SEE NOTE ABOVE
:MAINTAINABILITY SEE NOTE ABOVE
:DRIVE STATUS SEE NOTE ABOVE
:DRIVE TYPE SEE NOTE ABOVE
;SERIAL NUMBER SEE NOTE ABOVE
;ECC POSITION SEE NOTE ABOVE
;ECC PATTERN SEE NOTE ABOVE
*LOOK-AHEAD SEE NOTE ABOVE
:CURRENT CYLINDER ADDRESS SEE NOTE ABOVE

:*ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC
001700

001702

176750

176752

RHBAE:

RHCS3:

176750

176752

:BUS ADDRESS EXTENSION REGISTER

“CONTROL AND STATUS REGISTER #3

il
SEQ 0030

PAGE 2!

:*RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC (DCL)
:*NOTE: THE CONTENTS OF THESE LOCATIONS WILL BE DIFFERENT
o
1F THE "'CHANGE BASE ADDRESS ROUTINE IS USED.

}685

496

:*RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE RHM11 CONTROLLER
:*NOTE: THE CONTENTS OF THESE LOCATIONS WILL BE DIFFRENT
o
1F THE "'CHANGE BASE ADDRESS'' ROUTINE 1S UZED.

}:gS

}Qgg

11:11

;*RP04 VECTOR ADDRESS

%77
1478
1479

1485
1486
1487

ERROR POINTER TABLE
LSBTTL

}:;2

10-SEP=79

~asa

CZRJGD.P11

MACY11 30AC1052)

oTM

CZRJIGDO,RPO4/S/6 DSKLS CTRLR1

PAGE

;*THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SAVES
;*ANY TIME THERE 1S 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

001704
001706
001710
001712

000000
00C000
000000
000000

001714
001716
001720
001722
001724
001726
001730
001732
001734
001736
001740
001742
001744
001746
001750
001752

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

DB:

w(:

BA:

(S2:

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

:CONTROL AND STATUS 1
:ERROR M

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

;DESIRED CYLINDER ADDRESS
:ERROR #3

ATTENTION SUMMARY
JMAINTAINABILITY

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

SEQ 0031

[Tl

11:11

30A(1 052)
10-SEP=-79
REGI STER ADDRESSES

OOoO0O

1546

MACY11

(olololeloleleolslelelslslelelo
o]

—

D
i
i
il
il
D
il
i
il
il
il
D
il
il
i
il
il
il
il
il
il
il
—,
s il

WV VAN

NN A NN N NN
AN NN NN N AN NN w
Lok
o o P ol ol SRV IV WWWIWWWWWNIN
NN NN
RO NN — —
v
w N=OO0VONO NN WNN~=OOONO VWA =00 oo

CZRJIGDO,RPO&/S /6 DSKLS CTRLRI
10-SEP=-79 11:00
CZRJGD.P11

CZRJGD.PI
1547

}gzg

10-SEP=-79 11:00

MACY11

30A(1052)

10-SEP=-79

11:11

3
PAGE 3

SEQ 0032

;*FLAGS & INTERNAL PROGRAM (ONTROL WORDS

1550

001754

000010

UNITS:

UNIT:
NOUNIT:

.BLkw

:TABLE OF DRIVES PRESENT TO TEST

1553
1554
1555

000000
000000

002000

000000

NUNIT:

.WORD

1556
}ggg

002002
002004

000000
000000

UNITSL:

.WORD

O
O

;USED TO KEEP TRACK OF UNIT UNDER TEST
:USED TO DETERMINE 1F THERE IS MORE
:THAN ONE UNIT

}gzg

002006

000000

ERFLGS: O

:ERROR FLAG

1561
1562
1563
1564

002010

000000

SAVDT:

002012

000000

SAVSN:

:SAVE DRIVE TYPE REGISTER
:FOR COMPARISON IN DRIVE CLEAR TEST
AND RH INIT TEST
:SAVE SERIAL NUMBER REGISTER

}gog

002014

000000

PCJSR:

:SAVE PC OF JSR WHICH GAVE THE ERROR

1570

002016

002020

000000
000000

ATTENT: O

ATTENTION BIT FOR PRESENT UNIT

}g;S

002022

000000

TMPILL: O

; TEMPORARY JLLEGAL FUNCTION

1575
1576
}g;g

002024

000000

TSECC:

:FLAG TO SAY IF ECC TEST OR NOT
CWHEN =177777 17 1S AN ECC TEST
:WHEN =0IT 1S NOT AN ECC TEST

1579

002026

000000

TESDTE: O

1551
1552

1565
}gbg
6

}2;;

1580

001774
001776

SELECT:

.WORD
.WORD

.WORD

O
0

:ALL ONES INDICATE UNIT TO BE SELECTED
UNIT NO. SELECTED

:FOR COMPARISON IN DRIVE CLEAR TEST
:AND RH INIT TEST

TOTALAT: 0

:TATAL ATTENTION BITS

:FLAG TO SAY IF DRIVE TIMING ERROR OR NO?
sWHEN = 177777 11 1S A DTE TEST

:WHEN = 0

}gg;

1583

:UNIT UNDER TEST
:NUMBER OF UNITS PRESENT

1T IS NOT A DTE TEST

002030

000000

TAGDTE: O

:TEMPORARY TAG USED IN DRIVE TIMING

}ggg

002032

000000

TSTNM:

:TEST NUMBER

1588

002034

000000

FIRST:

;1F 2ERO WiLL TYPE MEADER

1590

002036

000000

RPO6:

;1F 0 PROGRAM WwILL TREAT DRIVE AS RPO4

1592
1593

002040

000000

RH70:

002042

000000

SI1L0SZ: .WCRD

;1F 1 PROGRAM 1S RUNNING ON RH70
;1F 0 PROGRAM 1S ON AN RHW11

1232
1

1594

:ERROR TEST

;RW SILO SIZE

CIRJGDO,RPO4/S5/6 DSKLS CTRLR1

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

30AC0 052 )

10-SEP=79

11:11

REGI STE R ADDRESSES

3
PAGE

MACY11

SEQ 0033

;*FUNCTION EQUATES
;*TABLE OF
002044
002044
002046
002050
002052
002054
002056
002060
002062
002064
002066
002070
002072
002074
002076
002100
002102
002104
002106

FUTABL:
NOPERA:
UNLOAD:
RECALI:

000000
000002
000006
000010
000012

VCLEAR:
RELEAS:

000030
000050
000052
000060
000062
000070
000072
000004
000014
000016
000022
000020
000000

SERCH:

WRCHDT*
WRIDAT:
WRIFOR:
READAT:
REFOR:
SEECOM:

FUNCTIONS FOR RMCST,

0
2
6
10
12
30
50
52
60

THEN ''GO'" BIT HAS TC BE

:NO OPERATION
;UNLOAD (STAND BY)
sRECALIBRATE
;DRIVE CLEAR
:RELEASE (DUAL=-PORT OPERATION)
;SEARCH COMMAND
:WRITE CHECK DATA
:WRITE CHECK HEADER AND DATA
;WRITE DATA

:WRITE HEADER AND DATA (FORMAT)

70
72
4
OFSETC: 14
RETCL:
16
PKACK:
22
READIN: 20
TLLEGL: .WORD

;READ DATA
sREAD HEADER AND DATA
:SEEX COMMAND
;OFFSET COMMAND
;RETURNTO CENTERLINE
:PACK ACKNOWLEDGE
sREAD IN

;COMPUTED ILLEGAL FUNCTION

;*DATA BUFFERS FOR READ WRITE
002114
003160

WRFROM:
REINTO:

000422
000422

BLKW
BLKW

274,
274,

;WRITE FROM THIS BUFFER
;READ INTO THIS BUFFER

;*TABLE FOR ATTENTION BITS
*ATTENTION TABLE
004224
004227
004232

001
010
100

002
020
200

004

040

ATABLE:

.BYTE

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

SET

CZRJGDO,RPO4/S/6 DSKLS CTRLRI
10=SEP=79 11:00
CZRJGD PN

o 1

CIRJGDO,RPO4/5/6 DSKLS CTRLRI

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
16F7
1687
1688
1689

1690
1691
1662

000402
005037

004250
004250

000005

004252
004256
004260
004264
004266
004272
004300
004306
004314
004322
004330
004336
004344
004352
004356
004362
004370
004376

004404
004410
004416
004424
004432
004440

004442
004444
004450
004452
004460
004466

004472
004500

012737

177777

002002

001100

054332
000340
056550
000340
057320
000340
057410
000340
001212
001214
000001
004370
004376

012737
012737
012637

#+«D]AGNOSTIC CODEwe*

.SBTTL

SETUP TESTS

SEQ 0034

#=1,WSELECT

;SELECT UNIT

BEGIN:

OFSELECT

;D0 NOT SELECT UNIT
;NORMAL RUN

(LR

START

RESET

INITIALIZE

THE COMMON TAGS

MOv

#SCMTAG,RE

CMP

#SWR,R6 ;;DONE?

BNE
MOV

000020
000022
000030
000032

(R6)+

« =0
#STACK,SP

;sINITIALIZE A FEW VECTORS

000034

sFIRST LOCATION TO BE

;s CLEAR MEMORY LOCATION

CLEARED

::LOOP BACK IF NO
;;SETUP THE STACK POINTER

MOV
MOV
MOV
MOV
MOV
MOV

#$SCOPE,a#]JOTVEC ;;10T VECTOR FOR SCOPE ROUTINE
#340,a#10TVEC+2 ;;LEVEL 7
#SERROR,I#EMTVEC :;EMT VECTOR FOR ERROR ROUTINE
#340,9MEMTVEC+2 ;;LEVEL 7
#STRAP,O#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#3640,,3#TRAPVEC+2;LEVEL 7

MOV
CLR

#340,9#PWURVEC+2 ;;LEVEL 7
$TIMES
;s INITIALIZE NUMBER OF

MOVR
MOV
MOV

#1,8ERMAX
#.,5LPADR
#. . SLPERR

MOV

CLR

#SPWRDN,a#PWRVEC

$ESCAPE

;;POWER FAILURE

VECTOR

ITERATIONS
::CLEAR THE ESCAPE ON ERROR ADDRESS

::;ALLOW ONE ERROR PER TEST
:INITIALIZE THE LOOP ADDRESS FOR SCOPE
::SETUP THE ERROR LOOP ADDRESS

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

6468

001140
001142

MOV
MOv

OFERRVEC,-(SP)
#64% QNERRVEC

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR

65%

;;BRANCH IF NO TIMEOQUT

#SWREG, SWR

::POINT TO SOFTWARE SWR

(SP)+ ,a#ERRVEC

;;RESTORE ERROR VECTOR

#0,PS

;SET PROCESSOR STATUS Ty U

MOV
MOV
(MP
BNE

174500

004452

000000
054250

SBTTL
.SBTTL
LSBTTL

CLR

001000

000176
000174
000004

i3
PAGE 35

;:CLEAR THE COMMON TAGS (SCMTAG) AREA

000004
004444

000403
012716
000002

11:11

BEGINZ: HgV

001140

177570
177570
177777

10-SEP-76

.SBTTL

012706
005026
022706
001374
012706

001012

30A(1052)

START:

—_——~

1646

004234
004242
004244

1645

1644

OO0~ 0000O0O0O0O00O0
— it s ) ) b
i
il i

1637
1638
1639
1640
1641
1642
1643

10-SEP-79 11:00

—

CZRJGD.PT

MACY11

65%:

66%:

MOV
RTI]

MOv

MOV

STARTA: MOV

MOV

#DSWR, SWR
#DDISP,DISPLAY
#-1,3SWR
66%
¥65%, (SP)

#DISPREG,DISPLAY

#RPVECT ,@RPVEC

;:SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
;:TRY TO REFERENCE HARDWARE SWR
;;BRANCH IF NO TIMEOUT TRAP OCCURRED
:AND

THE HARDWARE SWR

IS NOT

= =1

::SET UP FOR TRAP RETURN

;THIS 1S FOR UNTIMELY LRIVE

INTERRUPTS

1693

1694
1695
1696

1697
1698
1699
1700
1701

004506
004512
004516
004520

004737
005737
001001
000402

055310
002034

004522
004526
004526
004532

000137

005332

104401

004534

000434

MACY11

JSR

=00
V0o~

& VB W= OO0 N

VB WN 2O 00O NS

NNNNN NNNNNNNNNNNNNNNNNNNNNNNNNNY
PO N
b o s
s
s s et
(=]
W wwwWrno
N PNININIRNOINI
(v
)

«0

104401

000417

004632

004670
004670
004674

104401

000433

004764
004764
004770

000427

005050
005050
005054

000430

005136
005136
005142
005176
005176
005202

005264
005204
005270

104401

000415
104401

000439
104401

000420

::69%:
68%:

004772

i
H
70%:

005056

::738:
72%:

005144

+:75%:
74%:

005204

22 77%:
76%:

005272

;:TYPE ASCIZ STRING

JASCIZ

,67%

;s TYPE ASCIZ STRING

,69%

;:TYPE ASCIZ STRING

66%

BR
JASCIZ

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

TYPE
BR
JASCIZ

L1718
;s TYPE ASCIZ STRING
70%
::GET OVER THE ASCIZ
<15><12>/1F CHANGES ARE REQUIRED ON PORT SWITCH THEN/

TYPE

JASCIZ

TYPE

,73%

::TYPE ASCIZ STRING

,15%

::TYPE ASCIZ STRING

72%

::GET OVER THE ASCIZ
<15><12>/A CYCLE UP SEQUENCE 1S REQUIRED FOR STROBING/
74%

::GET OVER THE ASCIZ

JASCIZ

<15><12>/THE PORT SELECT FLOP/<15><12>

TYPE
BR
JASCIZ

L1718
;:TYPE ASCIZ STRING
76%
::GET OVER THE ASCI2Z
<15><12>/ALL DCL'S NOT UNDER TEST MUST BE SWITCHED OFF/

::79%:

SND1:

MOV

#-1,3#FIRST

sNEXT TIME DO NOT GIVE HEADER

LSBTTL

GET VALUE FOR SOFTWARE SWITCH REGISTER

005340
005344
005346
005354
005356
005360
005362
005370

005737
001006
023727
001005

000042

112737

000001

001134

64%:
65%:

005370
005376

032777
001403

010000

173542

RH70CK:

TYPE

TS7

=Y v

GTSWR
BR
MOVB

65%
#1,8AUT08B

BNE
CMP
BNE

000176

104406

| = (ZRJG=D?

::GET OVER THE ASCIZ
DATE: 01-MAY=79/<15><12>
ION
<15><12>/REVIS

;s TYPE ASCIZ STRING

177777

000403

,65%

64%
::GET OVER THE ASCIZ
<15><12>7RP04/5/6 DISKLESS CONTROLLER TEST = PART

,79%

012737

001140

:SKIP OVERALL PROGRAM HEADEK

BR
LASCIZ

TIME ROUND ?

78%
::GET OVER THE ASCI12Z
<15><12>/0R LOCKED ON THE OTHER PORT/<15><12>

005332

002034

;SKIP HEADER IF NOT
:D0 HEADER IF SO

;1S THIS FIRST

BR
LASCIZ

78%:

005332

1%
2%

a#SND1

TYPE

004676

:INITIALIZE THE TTY KEYBOARD

JMP

TYPE

::67%:
66%:

PC,aN#STKINT

o#F IRST

TYPE

s 3858
64%:

SEQ 0035

187

BNE
BR

004624
004624
004630

30A(1052 )
10-SEP=79
11:11
INITIALI IE THE COMMON TAGS

g may

3
PAGE %6

BIT
BEQ

64%
SWR,#SWREG
65%

#SW12,a5uWR
1%

:;ARE WE RUNNING UNDER XXDP/ACT?

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

;:SET AUTO-MODE

INDICATOR

:LCOK 1O SEE IF USING RW70
:1F Sw12 = 0, SkIP NEXT

CIRJGDO,RPOL/5/6 DSKLS CTRLRI
10-SEP=79 11:00

CZRJIGD PN

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CZRJGD.P1 1
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762

005400

012737

000001

005406
005412
005414
005420

005737
001434

002002

005466
005466
005470
005474
005500

104401

000422
104412

042716
011637
012637

MACYT1

002040

3%:

005422

MOV

#1,3/RHT70

;1F SW12 = 1, CU IS AN RN70

187
BEQ

SfSELECT
1811

;200 START?
;SKIP NEXT IF STARTING FROM 200

#177770,(SP)
(SP) ,a#UNIT

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

TYPE

;165%:
64%:
177770
001774
002004

10-SEP=79
11:11
PAGE %7
30A(1052)
GET VALUE FOR SOFTWARE SWITCH REGISTER

BR
LASCIZ
RDOCT

BIC

MOV
MOV

;:TYPE ASCIZ STRING
,65%
64%
;:GET OVER THE ASCIZ
<15><12>/SELECT UNIT NUMBER TO BE TESTED ?/

(SP)+ ,@#UNITSL

SEQ 0036

MACYT

1763
1764
1765
1766
1767

30A(1052)

10-SEP=79

11:11

-3
PAGE 238

SEQ 0037

GET VALUE FOR SOFTWARE SWITCH REGISTER

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

;*TEST 1

REFERENCE EACH REGISTER

REFERENCE EACH REGISTER BY A MOVE INSTRUCTION

005504
005506
005514
005520

000004
012737
012706
012737

000001
001000
000001

005526

012737

005534
005542
005546
005552
00555¢
005556
005560
005562
005570
005572
005€¢00
005402
005610

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

005612
005616

104401
000427

001212

MOV

005562

000004

MOV

#REGSA1 ,a#EMTVEC;ERROR VECTOR SO THAT
:NO REGISTERS ARE SAVED
#2% ,Q¥ERRVEC
;SET UP FOR BUS TIMEOUT
#24 R0
;THERE ARE 24 REG TO TEST
#RHDB R
;R1 NOW HAS ADDR OF ADDR OF
a(R1)+,R2
;READ HARDWARE REG.

000024
001630

18:

000006

000004

177776

001200

020000

173330

2%:

;;253:

000000

00£706

000137

041432

005712
005720
005724
005730
005734
005740

012737
005037
005777
005237

005772
002040
173750
002040
005742

MOV
MOV
MOV
DEC

BNE
BR
MOV

000204

RO
1%

; COUNT DOWN
;BRANCH IF 24 NOT DONE

;BRANCH IF 24 DONE

MOV

#ADDMOD , - (SP)

;INHIBIT ERROR PRINTOUT ?
;BRANCH IF YES

;GET READY TO TYPE STARTING ADDRESS

;OF "'CHANGE OF BASE ADDRESS'' ROUTINE

;FORCE THE RESTART!

4%:

JMP

a¥SEOP

:G0 TO END OF PROGRAM ===eeccccccccc==

3%:

MOV
CLR
181
INC

#TRP ,a¥4
RH70
aRHBAE
RH70

sINITIALIZE VECTOR
sINIT RH INDICATOR ++ (.W
:ADDRESS RPBAE (RH11/RH70?)
:FOUND AN RH70-SET MASK

RIN

TYPE

655

TYPE

;;275:

66%:

TRP:

000030

FIRST REG.

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

HALT

056550

;:D0 1 ITERATION
;SET UP STACK POINTER
;THIS SAVES TEST NUMBER

TYPE
BR
LASCIZ

#SW13,aSWR
6%

006002

)

CMP
MOV
ERROR

TYPOC

000004

#ERRVEC+2 ,9#ERRVEC ;RESTORE TRAP (ATCHER
(SP)+,(SP)+
:CLEAN STACK
=2(R1), $TMPI
;STORE FAILING REG ADDR
;REGISTER NON EXISTANT
15

BIT
BNE

005620

005702
005704

012737

iRl

000030

104402

000417
022626
104401
000413

056560

012746

000413

R0l

002032

64%:

104401

SCOPE

2222222

#1,STIMES
#STACK, SP
#TTNO,@#TSTNM

005676

006030
006030

1§T1:

2222022222222

MOV
MOV
MOv

005676

005770
005770
005772
005774
006000

LASCIZ

(MP

673

..TVPE ASCIZ STRING

:GET OVER THE ASCIZ

<15><12>/RHT70 (ONTROLLER
(SP)+,(SP)+

:ADJUST THE STACKX

;s TYPE ASCIZ STRING

;;253:

BR
JASCIZ

6
::GET OVER THE ASCI1Z
<15><12>/RH1Y (ONTROLLER
/

RIN:

MOV

#SERROR ,Q#EMTVEC;RESTORE ERROR VECTOR

64%:

lalal

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP-79 11:00
CZRJGD.PY

1819

1820

1821
1822
1823
1824
1825
1826

1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837

006036

10-SEP=-79 11:00

012737

000006

3??(1052)

000004

10-SEP=-79

REFERENCE

MOV

006112
006116
006124

006132

006140
006146

004737
005037
013777
005237
032777
001367
012737
163737
005437
012737
063737
063737
062737
004737

042732
002042
002042
002042
000100
000412
002042
037416
002114
002042
002042
001000
042732

173546
173542

037416
037416
037424
037424
037424
037424

13%:

JSR
CLR

MOV
INC

BIT
BNE

MOV

SUB

NEG
MOV
ADD
ADD
ADD

JSR

PAGE 39

SEQ 0038

EACH REGISTER

;S0 THAT REGISTERS ARE SAVED

#ERRVEC+2,9#ERRVEC

;FIND THE

006044
006050
006054
006062
006066
006074
006076
006104

11: 11

;RESTORE TRAP CATCHER

SILO SIZE

;CONTROLLER CLEAR
;CLEAR SILO COUNTER
;LOAD SILO

afCLDISK
PC,
S1L0S2
SILOSZ, aRHDB

S1LO0SZ
fIR,
13%

#266.,
VAR1+2
SILOSZ, VAR1+?2
VAR142
#WRFROM,
SILOSZ, VARZ2+2
S1LOSZ, VAR2+2

#512.,

PC,

sKEEP COUNT
1S THE SILO FuLL?

aRH(S?2

VAR2+2

a#(LD]ISK

:BRANCH IF NO

;VAR1
‘
VAR242

IN TEST 116

:VAR2 IN TEST

116

sCONTROLLER CLEAR

~~a

CZRJGD.P1Y

MACYIT

(alal I

CIRJGDO,RPO4/5/6 DSKLS CTRLRI

CZRJGDO,RPO4/5/6 DSKLS CTRLR!

CIRJGD. P11

10-SEP-79 11:00

MACYT

1838
1839
1840
1841
1842
1843

10-SEP=79

11:11

3
PAGE &0

S€EQ 0039

REFERENCE EACH REGISTER

.';"'"'""""""""""""""""".""."" TR RRROERRY

;*TEST 2

1845

1846

006152
006154
006162
006166

000001
001000
000002

001212

A2 22

1§12:

2222222200222

006202
006%06

006206
006214
006222
006226
006230
006232
006234

005737

002040

000137

006236

013737
013737
004537
000000
000000

011054
001636
042404

001402

SCOPE

MOV

MOV
MOV

002032
v

006174
006200

RHCS2-CONTROL AND STATUS 2

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

Fo=
e

1844

1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857

30A(1052)

22200ttt

#1,8T1IMES

#STACK,SP
#TINO,I#TSTNM

;:00 1 ITERATION

;RESET STACK
:THIS SAVES TEST NUM" _R

:*CHECK TO SEE IF THE PROGRAM iS RUNNING WITH AN RH70
187

30%:

BEQ
JMP

MOV
MOV

006226
006230

UN:

JSR
.WORD
.WORD

ERROR

104001

000207

afRH70

30%
1813

S#PR(CS2+12,3#UN
OFRH(S2 ,aNUN+2

RS,a#B11ST
0
0
1

:TEST FLAG FOR RH70 CONTROLLER

:1F FLAG = 1, THIS TEST IS SKIPPED
:JUMP TO NEXT TEST eecccccccccccccccce-

;1 FLAG = 0, DO THIS TEST

;TEST BITS IN REGISTER
;ONLY THESE BITS TESTED FOR READ/WRITE
:ADDRESS OF REG. BEING TESTED
:IN CORRECT DATA RECEIVED

;RETURN TO BLT3 ROUTINE

:;tt't""""""t"""t"t""t"'t"'ttt""tttt.'t't'lt"t"

;*TEST 3

;

1890

PARTIAL TEST OF

RHAS FOR :UNIT NUMBERS PRESENT

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

000004

006236
006240

012737

000001

001212

006246

012737

000003

002032

006254
006260
006264
006270
006274
006276
006302
006306

013701
01271
011137

001656
177777
001126
001126

105737

001405
005037
010137
104001

001124
042402

1513:

SCOPE

MOV

#1,$TIMES

;:D0 1

MOv

#TINC,I#TSTNM

[ ini35 SAVES TEST NUMBER

MOV
MOV

9#RHAS R
#-1,9R1

;R1 HAS ADDRESS OF RHAS
;THIS CLEARS RHAS (SURPRISED!)

1518

a#$BDDAT

MOV

BEQ
CLR
MOV

ERROR

oR1,a#$BDODAT

ITERATION

;TEST DATA

1814
a¥$GDDAT

;BRANCH IF GOOD
:GOOD DATA

;RHAS DOES NOT CLEAR
;BY WRITING ONES IN

R1,3#REGADR

;FAILING REG. RHAS

CIRJGDO,RPO4/S5/6 DSKLS CTRLR]

CZRJGD.P1

10-SEP=-79 11:00

BACYT

S0AC1052)
13

10-SEP=79

11:11

&
PAGE &1

SEQ 0040

PARTIAL TEST OF RMAS FOR UNIT NUMBERS PRESENT

1891
1892

1893
189¢
1895
1896
1897
1698
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908

1909
1910
19N
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921

1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946

RN RN R TR R R PR RN R RRRRRTORTROPORRNRRRRCERORRORRRORRROROERRRROROEROEORROEROTRNTY

S*TEST

TEST FOR DRIVES PRESENT USING RMAS AND RMH(S?

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

006310
006312

000004
012737

006320
006322
006330
006334
006342

00000%
012737
004737

006344
006350

032777
001147
104401

000430

006432
006432
006436

000427

006516
006516
006522

000425

006576
006576
006602

104401

000427

000001

001212

000004
055310
020000

002032

JSR

BIT
BNE

006352

1 165%:

64%:

006440

;:67%:
66%:

006524

::69%:

68%:

006604

::718:
70%:

006662
006666
006672
006674
006700
006704
006710
006712
006714

013701
013702
005012
012700
013704
012714
005212
005300
001373

001656
001636

006716

111137

006722
006726
006730
006732

006736
006744
006746

4%:

000010
001642
177777

SCOPE

MOV

RESET
MOV

172576

006662

006752
006752
006756

1§14:

1%:

#1,8TIMES

;:00 1

#TINO,B#TSTNM
PC,afSTKINT

#SW13,aSuWR

ITERATION

;START WITH AN INIT

;THIS SAVES TEST NUMBER
sINITILIZE TTY KEYBOARD

:INHIBIT ERROR TYPEOUT?

;BRANCH IF

YES

TYPE

,65%
;s TYPE ASCIZ STRING
64%
::GET OVER THE ASCIZ
<15><12><15><12>/L00KING AT RHAS = DRIVES ASSUMED PRESENT/<15><12>

TYPE
BR
LASCIZ

,67%
66%

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

TYPE

,69%
68%

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

BR
LASCIZ

LASCIZ

TYPE

BR
.ASCI1Z
MOV
MOV
CLR
MOV
MOV
MOV

(]S)(]2)/'"'tt"""""'i'tllt't""I't""".."t/

<15><12>/

THIS MUST BE

VERIFIED BY OPERATOR

718
70%

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

@¥RHAS R
a¥RHCS2 ,R2

;LOAD R1 WITH ADDR. OF RHAS
;LOAD R2 WITH ADDR. OF RHMC(S?2

!'!/

C19DC12>/teeaseeneaeraeaeae
et eneeneaeeeeesreneerene/

aR?2

;CLEAR RH(S2 (ADDRESS UNIT #0)

OFRHERT R4

;LOAD R4 WITH ADDR. OF RHER1

#8..R0

#-1,3R4

;INITIALIZE DRIVE COUNTER

;MOVE ERRORS INTO RHER1 OF UNIT ADDRESSED

INC
DEC
BNE

aR?

002020

MOVB

aR1,a¥TOTALAT

;SAVE ALL RESULTING ATTENTION BITS

105037
105711
001402

002021

CLRB

AFTOTALAT+]

000137

007304

;CLEAR UPPER BYTE
;TEST RHAS FOR ANY DRIVES PRESENT
:NONE RESPONDING = TYPE THE MESSAGE
;SOME THERE - GO FILL "'UNITS'' TABLE

032777
001402
000137

020000

104401

000421

007642

006760

; INCREMENT UNIT NO.

(RH(CS2)

: COUNT DOWN DRIVE COUNTER

;TEST AND DO NEXT UNIT IF 8 NOT DONE

; (USED IN DRIVE CLEAR TEST)

1STB

akR1
2%
XE2

BIT
BEQ
JMP

#SW13,aSWR

3%
SELTST

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

TYPE

,73%
72%

;2 TYPE ASCIZ STRING
..0ET OVER THE ASCIZ

BEQ
JMP

172174

;INHIBIT ERROR TYPE OUT?

(ZRJGD. P11

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
1981
1982

1983

1984
1985
1986
1987
1988
1989
1990
1991
1992

1993
1994

1995

1996

1997
1998
1999

2000
2001
2002

10=SEP=79 11:00

007022
007022
007026

000430

007110
007110
007114

000430

007176
007176
007202

000436

106401

104401

MACY11

000137

,75%

::TYPE ASCIZ STRING

%izss:

748
S:GET OVER THE ASCIZ
<15><12>/WRITING ONES INTO RHER1 FOR ALL UNIT NUMBERS/

)

TYPE

778

::TYPE ASCIZ STRING

:
%ézos:

041432

XE2:

007304
007310
007314
007320
007322

000010
001754
177777

2%:

007324
007330
007332
007336
007342
007346
007352

001754

103120

007354
007360
007306
007370
007376

010577
022777
001503
022777
001477

TYPE

JASCIZ

TYPE

172266

S:GET OVER THE ASCIZ

IN RHAS SO ABORT PROGRAM/

788
T:GET OVER THE ASCIZ
<15><12>/70 LOOP ON THIS TEST WO PRINTOUT, SET SWITCHMES 13, 8 & 2/

,79%

::TYPE ASCIZ STRING

JMP

ANSEOP

:60 QUT===ee=ccccccccccccccccaccanccas >

:«SET UP DRIVES PRESENT TABLE

MOV
MOV
MOV
DEC
BNE

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

108:

MOV

FUNITS,R3

CLR

AFNOUNI

INO. OF UNITS PRESENT

MOV
ROR

aR1.3¥STMPO
NS TMPO

SADDR OF RHAS INTO TEMPORARY STORAGE
SSET CARRY IF 0 BIT = 1 (UNIT ATTEN.)

MOV
CMP
BEQ
(MP
BEQ

RS,ARHCS2
#26020,aRHDT
6%
#20020,3RHDT
6%

4$:

020020

76%

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

BR
CASCIZ

CLR

MOV

172276

<15><12>/ND DRIVES PRESENT = RHAS = 0/<15><12>

BR
JASCIZ

007204

172256

&
PAGE &2

JASCIZ

%ézrs:

024020

55;3::

007116

001776
000010
001176
001176

11:11

TEST FOR DRIVES PRESENT USING RHAS AND RHCS2

007304

10-SEP=79

007030

007300
007300

30A(1052)

TMTM

CZRJGDO,RPO4/S/6 DSKLS CTRLR)

118:

BCC

#8. R0
5%

:LOAD "UNITS'' TABLE COUNTER
TLOAD "'UNITS'' TABLE POINTER
*PRESET 1ST TABLE BLOCK TO ALL ONES
*COUNT DOWN
*PRESET NEXT BLOCK IF 8 NOT DONE
:RELOAD THE TABLE POINTER

SINITIALIZE UNIT NO. TO O

*RELOAD THE TABLE COUNTER

SCHECK NEXT UNIT IF ONE NOT IN BIT 0

:INSERT UNIT NO. INTO RHCS2 UNIT ADDR.
"READ RMDT = 1S IT A DUAL PORT RPO& 2
TYES...TYPE THE UNIT NO.
“READ RHDT = IS IT A SINGLE PORT RPO4 ?
“YES...TYPE THE UNIT NO.

.‘"""""'""""""""'""""""Il'.""""""'C"""'

007400
0074086
007410
007416

022777
001473
022777
001467

024021

172256

020021

172246

007420
007426
007430
007436

022777
001463
022777
001457

024022

172236

020022

172226

(mMp

BEQ
(MP
BEQ

(mp
BEQ
(mMp
BEQ

#24021,9RHDT
6%
#20021,aRNDT

:DUAL PORT RPOS ?
:TYPE UNIT NO. IF SO
:SINGLE PORT RPOS ?

#24022,aRNHDT
6%
#20022,aRNHDT
6%

:READ RHDT = IS
:YES...TYPE THE
:READ RHDT = IS
:YES...TYPE THE

sTYPE NO.

IT A
UNIT
IT A
UNIT

DUAL POR! RPO6 ?
NO.
SINGLE PORY RPO& ?
NO.

.';"""""""""'"'.""I"""."...'l'l."'lt"""""'l'

30A(1052)
14

2003

2004
2005
2006
2007
2008
2009
2010
201
2012

2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044

10-SEP- 79

TEST

11:11

PAGE &3

FOR DRIVES PRESENT USING RHAS AND RH(S2

;*NO... 1T'S NOT

AN RPO4/RPOS/RP0O6 DEVICE SO TYPE
TYPE
DEVICE
;*0UT THE

007440
007444

104401

000410

007446

TYPE

1:65%:
64%:

007466

007466
007470
007472
007476
007514
007514
007520
007522
007526

007574
007574

010546
104405
104401

000406

017746
104402
104601
000422

007500

11678
66%:

172144

007530
1 :69%:
68%:

000407

010523

007576
007600
007604
007606
007610

010546

007614
007616
007620

005205
005300
001252

007622
007630
007636

013737
013737
005337

001754
001776
002000

007642
007646
007650

005737
001403
013737

002002

1044601

104405

005237

6%:

001223

001776
5%:

002004

001774
002000

12%:

001774

;s TYPE ASCIZ STRING

BR
LASCIZ

64%

MOV
TYPDS
TYPE
BR

RS,=(SP)

;PUT THE UNIT NUMBER ON STA(CK

,67%

;s TYPE ASCIZ STRING

LASCIZ

<15><12>/UNIT

66%
/.,

RHDY

::GET OVER THE ASCIZ

NUMBER

;TYPE

::GET OVER THE ASCIZ

MOV
TYPOC
TYPE

aRHDT,=(SP)

BR
LASCIZ

,69%
::TYPE ASCIZ STRING
68%
::;GET OVER THE ASCIZ
? = NOT AN RPO4/RPOS/RPO6 DEVICE '!'?

:UNIT NOT AN RPO4/RPOS5/RP0O6 SO TEST NEXT ONE

MOV
TYPE
MOV
TYPDS

RS,(R3)+
JOCRLF
RS,=(SP)

:LOAD TABLE POSITION AND INCR IT
s CRLF
;PUT UNIT NO. ON THE STACK

INC

a#NOUNIT

;INCR THE TOTAL NO. CF UNITS

INC
DEC
BNE

:"RHCS2' UNIT ADDRESS

;TEST AND DO NEXT UNIT IF 8 NOT DONE

MOV
MOV

SFUNITS ,@#UNIT
;SET UNIT NO.
S#NOUNIT,@#NUNIT ;SAVE NO. OF
;1F NUNIT = O
@#NUNIT
;1F NUNIT > 0

DEC

SELTST:

,65%

187
BEQ

MOV

sPUT RHDT ON THE STACK

;TYPE

THE UNIT

NO.

:DRIVE COUNTER DOWN ONE

TO 7 IRST ONE FOUND/OR 0

UNITS
THEN ONLY ONE UNIT

THEN MORE THAN ONE UNIT

ONSELECT
;STARTING ADDRESS 200 ?
TSTS
;BRANCH IF STARTING FROM 200
SFUNITSL,@#UNIT ;CHANGE UNIT NUMBER TO SELECTED ONE

SEQ 0042

~NNN

MACYT1

lalal

CIRJGDO,RPO4/S5/6 DSKLS CTRLR]
CIRJGD. P11
10-SEP-79 11:00

2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
207
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086

2087
2088
2089
2090
2091
2092
2093
209¢
2095
2096
2097
2098
2099
2100

SEQ 0043

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

TYPE SERIAL NUMBER AND DRIVE TYPE

;*TEST S
g
i

SET APPROPRIATE ATTENTION BIT OF UNIT UNDER TEST IN
"ATTENT' AND TYPE THE UNIT UNDER TEST

READ SERIAL NUMBER REGISTER AND DRIVE

T0 LOOP HERE SET SWITCH 8 AND THIS TEST NO. AND RESTART

007656
007660
007666

000004
012737
012737

000001
010404

001212
001106

007674
007702
007706

012737
004737
005037

000005
042732
002016

002032

TYPE THEM OUT AND PROCEED

TYPE REGISTER,

A2 2222223 2222222202222 2222222222222022222iRRRRRtRRRRRRll
]l

7$15:

SCOPE

MOV
MOV

#1,STIMES
¥1$,SLPADR

;:00 1 ITERATION
;:SET SCOPE LOOP ADDRESS

MOV

#TINO,Q#TSTNM

;THIS SAVES TEST NUMBER

JSR
CLR

PC,aNCLDISK
AFATTENT

;FILL UNIT NO.
s CLEAR

;*TEST FOR UNIT #0
007712
007716
007720
007724
007730
007732

005737
001022
012700
122710
001015
005737

007736

001012

181

afUNIT

;1S UNIT #0 NEXT

000041
000011

MOV

#41,R0

:1F

002002

1817

ANSELECT

BNE

10%

001774

BNE

(MPB
BNE

10%

#11,(RO)
10%

IN THE UNITS TABLE

;1F NOT, TEST THIS UNIT
SO,

CHECK THE LOAD MEDIA LOCATION

;WAS IT AN RP04/5/6 ?
;NO...GO AHEAD WITH TESTING UNIT #0

;WAS UNIT #0 SELECTED ?
;CIE. WAS IT A 210 START

;1F SO...TEST IT

;*INCREMENT THE UNITS TABLE TO NEXT DRIVE

(IF

ANY)

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

007740
007744

012700
005720

001754

MOV
187

#UNITS,RO
(RO)+

007746
007752
007754
007760
007764

022710
001404
011037
005337
013700

177777

(MP
BEQ
MOV
DEC
MOV

#-1,(RO)
109
(RO) ,@#UNIT
9#NOUNITS
@fUNIT, RO

001774
001776
001774

10%:

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

; (DOUBLE INCREMENT THE POINTER, RO)
;1S THERE ANOTHER TABLE ENTRY PRESENT ?
;1F NOT (LOC = =1),..MUST USE UNIT #0
sSET UP TO BE THE UNIT UNDER TEST
;DECREMENT BECAUSE UNIT # 0 WONT'T BE TESTED
;RO CONTAINS UNIT NO.

;*SET UP THE PROPER DEVICE TYPE FLAG
::""""'!'"""""""""""""""'.""""""'."""

007770
007774
010000
010006
010010
010016
010020

010077
005037
022777
001405
022777
001401
000403

MOV

171642

002036
024022

171656

020022

171646

CLR
(MP
BEQ
(mpP
BEQ
BR

RO,aRHCS2

afRPO6
#24022 ,aRHDT
2%
#20022 ,aRHDT
2%
3%

;SET UP UNIT ADDRESS

;CLEAR RPO6 DEVICE TYPE FLAG
:DUAL PORT RPO6 ?
JYES...SET THE FLAG
;SINGLE PORT RPOS ?
JYES..SET FLAG
:NO...DON'T SET RPO6 FLAG

R -

30A(1052)
10-SEP=79
11:11
PAGE &4
14
TEST FOR DRIVES PRESENT USING RHAS AND RH(S?2

TM ]

MACY11

[

CZRJIGDO,RPO4/5/6 DSKLS CTRLR]
10-SEP=79 11:00
CZRJIGD P

2\0;

010022

2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
21642
2143
2144
2145
2146
2147
2148

010030

177777

010036
010042

104401
000414

010044

013746

001774

010130
010130
010134
010136
010142

2%:

MOV

#-1,3#RP06

JSET

10440%
104401

000410
017746
104402
104401

000410

010164
010164
010170

017746

010172
010200
010202
010210

022777
001425
022777
001421

010212
010220
010222
010230

010232
010240
010242
010250
010252

104402

002016

;ASSUME THE NEXT UNIT
MOVB
TYPE

;:65%:
64%:

010110

1:67%:
66%:

171532

IS AN RPO4

;:69%:
68%:

171474

;SET APPROPRIATE ATTENTION BIT

BR
JASCIZ

643
:GET OVER THE ASCI2
<15><12>/1EST!NG DRlvE NUMBER/

,65%

..TYPE ASCIZ STRING

MOV
TYPDS
TYPE

afUNIT,=(SP)

JUNIT NO. TO STACK
;TYPE
DRIVE NO.
;. TYPE ASCIZ STRING

,67%

BR
LASCIZ

66%
::GET OVER THE ASClZ
<15><12>/SERIAL NO. = /

MOV

aRHSN,=(SP)

TYPE

,69%

TYPOC

010144

ATABLE
(RO) ,@#ATTENT

::SAVE QRHSN FOR TYPEOUT

;.60 TYPE==OCTAL ASCIICALL DIGITS)
s TYPE ASCIZ STRING

BR
LASCIZ

68%
::GET OVER THE ASCIZ
<15><12>/DRIVE TYPE =

MOV
TYPOC

aRHDT ,=(SP)

::SAVE QRHDT FOR TYPEQUT
::60 TYPE=-=OCTAL ASCIICALL DIGITS)

::"ttt."""""""""""""""l"""""""t""""'!'

010254

010260

024020

171464

020020

171454

022777
001453
022777
001447

024021

171444

020021

171434

022777

024022

171424

022777
001420
000454

020022

171414

001424

104401

000413

(mp

010262

010320

5%:

:DUAL PORT RPOQS ?

;TYPE MSG

(MP
BEQ

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

:DUAL PORT RPO6 ?
;:TYPE MSG
:SINGLE PORT RPQO6 ?
;TYPE MSG

(MP

70%:

#264021,3RHDT

BEQ

22718

:DUAL PORT RPO¢& ?
;TYPE ASCII MSG OUT
?
:SINGLE PORT RPO4
:TYPE THE MESSAGE

(mp

6%:

#24020,3RHDT
4%
#20020,aRHDT
4%

BEQ

000435
104401

(Mp
BEQ
cmp
BEQ

#20021,3RHDT

:TYPE MSG

:SINGLE PORT RPOQS ?

:DRIVE 1S NOT AN RPO4&/RPOS/RPO6
;DON'T TYPE

THE ASCII MESSAGE

= SO

:=SHOULD NEVER HAPPEN Al THIS POINT
sUNLESS DRIVE GOT SICK WHILE TESTING
:WAS IN PROGRESS

TYPE

L7118

70%

;s TYPE ASCIZ STRING

::GET OVER THE ASCI2

LASCIZ

<15><12>/DRIVE 1S AN RP0O4/<15><12>

;SKIP NEXT MESSAGE

138

;s TYPE ASCIZ STRING

TYPE

72%

002036

SEQ 0044

::GET OVER THE ASCI2

30A(1052)
10-SEP=79
11:11
PAGE &5
15
TYPE SERIAL NUMBER AND DRIVE TYPE

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

004224

01007«
010074
010100
010102
010106

MACY11

3%:
116037

O0Oo

2150

012737

010030

O0OO0O000

21649

10-SEP=79 11:00

lalal

CIRJIGDO,RPO4L/5/6 DSKLS CTRLRI

CZRJGD.P

|
2157
2158
2159
2160
2161
2162

010346
010346
010350
010350
010354

2164

010404

2163

2‘6S

2166

2167
2168
2169
%};9
2172

010404
010410
010414
010422

c:738:
72%:

000416

104401
000413

6%:

010356

::75%:
76%:

LASCIZ

<15><12>/DRIVE 1S AN RP06/<15><12>

;SKIP NEXT

TYPE
BL

,75%
74%

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

JASCIZ

<15><12>/DRIVE 1S AN RP05/<15><12>

:;'t""""'"'t""""'""'"'t""t't""""t"'t"""lt"

005777
005777
017737
017737

1712%6
171250
171246
171236

1%:

002012
002010

181
181
MOV
MOV

ARHSN
aRHDT
ARHSN,A#SAUSN
ARMDT,a#SAVDT

:READ SERIAL NO. AND DRIVE TYPE
:THESE TWO ARE TO HELP SCOPE LOOPS
:SAVE TO CHMECK IF CLR RHCS2 BIT S CLEARS ANY BITS
:SAVE T0 CHECK IF CLR RHCS2 BIT S5 CLEARS ANY BITS

30A(1052)
10-SEP=-79
11:11
PAGE 46
15
TYPE SERIAL NUMBER AND DRIVE TYPE

SEQ 0045

(alal

MACY11

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
CIRJGD.PY
10-5EP=79 11:00

(ZRJGD.PT

10-SEP=-79 11:00

MA(CY1

30A(1052)
15

10-SEP=79

TYPE

11:11

PAGE &7

SEQ 0046

SERIAL NUMBER AND DRIVE TYPE

L
R
R
R
R

(HECK MOL TO BE iLOwW

;*TEST 6
2
21
21
21

2182
2183
2184
2185
2186
2187
2188

gl
190

2191
2192

2194

2195

2196

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

gl
L
ol
a

010430
010432
010440
010444
010450
010452
010456
010522

010522
010526

010600

010604

2198
2199
2200
2201
2202

010666
010666
010672
010674
010700

2204

010774

000004
012737

004737
032713
001551
104401

000421
104401

000424
104401

000430

032713
001375
104401

000435

000006
042732
010000

002032

Al 2222002222022 2220222222ttt
dl

1§16:

SCOPE

MOV

JSR

BI1
BEQ

TYPE

010460

010530

010606

010000

68%:
1%:

010702

2:71%:
70%:

TYPE

,67%

LASCIZ

TYPE

:8695:

66%

<15><12>/HIT
,69%

68%

BIT
BNE

#MOL ,aR3
1%

TYPE

LASCIZ

:THIS SAVES TEST NUMBER

;GIVE

INITILIZE
;CHECK MOL IN RHDSI
:BRANCH IF MOL LOW
::TYPE

ASCIZ STRING

::GET OVER THE ASCIZ

<15><12>/DRIVE 1S ON LINE - MOL IS HIGH/

JASCIZ

,65%

64%

;;27s:
66%:

#MOL ,aR3
1817

LASCIZ

::255:

646%:

FTINO,A#TSTNM

PC,a#CLDISK

::TYPE ASCIZ STRING

::GET OVER THE ASCIZ

STOP ON DRIVE

TO GET

IT OFF

LINE/

::TYPE ASCIZ STRING

::GET OVER THE ASCIZ

<15><12>/PROGRAM WILL HANG TESTING MOL TILL MOL IS LOW/

L7118

70%

;CHECK MOL IN RHDSH
:BRANCH IF MOL IS HIGH

;s TYPE ASCIZ STRING
::GEYT

)

OVER THE

ASCIZ

<15><12>/G00D = MOL 1S NOW LOW . PROGRAM WiLL NUW BE EXECUTED/<15><12>

~N~N

CZRJGDO,RPO4/S/6 DSKLS CTRLR1

30A(1052)
10-SEP=79
11:11
PAGE 4«8
16
CHECK MOL TO BE LOW

2205
%ggg

LSBTTL

SEQ 0047

2208

R
R R R R

2?09
2210

;*TEST 7
s

2211
2212

2213

2214

S%}z

s
M

010774

010776

000004

012737

000007

002032

1817:

SCOPE

MOV

#TINO,@#TSTNM

;THIS SAVES TEST NUMBER

:*(HECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RH70

2219
2220
2221
g%%g

011004
011010
011012
011016

005737
001402
000137

002040

%gsg

011016

004737

042732

2226
2227

011022

012706

001000

000007

002032

2230

011034

013737

001636

011056

2231
2232
2233
22%
2235
gggg

REGISYERS. USE A PETTERN OF WALKING 0'S (=2,-3,-5 ET(C.) AND
WALKING 1'S (1,2,4,10 ETO)

A
T

%S‘g

S%gg

RHCS2 = CONTROL AND STATUS 2
TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE

011026

011042
011050
011054
011056
011060
011062

012737

013777
004537
020017
176710
104001
000207

011064

001774
042404

30%:

170566

2238
2239
2240
2241
2242
2243
2244

151
BEQ
JMP

a#RH70
30%
1ST10

:TEST FLAG FOR RH70 CONTROLLER
J1F FLAG = 1, THIS TEST IS SKIPPED
:JUMP T0 NEXT TES] eeecccccccccccccana )
;1F FLAG = 0, DO THIS TEST

JSR

PC,a#CLDISK

;GIVE INITIALIZE

MOV

#STACK,SP

JRESET STACK

MOV

A#RHCS2,a¥#PR(S2+14

MOV
PR(S2:

MOV
JSR
.WORD
.WORD
ERROR
RTS

#TTINO,Q#TSTNM
O¥UNIT ,aRH(S2
RS,BITST
20017
176710
1
PC

;THIS SAVES TEST NUMBER

;GET REGISTER ADDRESS

sMOVE UNIT NO. UNDER TEST
;TEST BITS IN REGISTER
:ONLY THESE BITS ARE TESTED FOR READ/WRITE
:ADDRESS OF REG. BEING TESTED
s INCORRECT DATA RECEIVED
sRETURN T0 BLT3 ROUTINE

R
R
R
R el

RHCS1 = CONTROL AND STATUS 1 REGISTER
TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE

2245
2246

;«TEST 10
s

2249

L R
R R
Rl

A
s

2247
2248

552?

011064

000004

2252
5523

011066
011072

012706
012737

001000
000010

2255
2256
2257
2258

011100
011106
011114
011120

013737
013777
004537
001476

001640
001774
042404

2259
2260

011122
011124

176700
104001

1ST10:

002032

011122
170522

PRCS1:

REGISTERS. USE A PATTERN OF WALKING 0'S (=2,-3,=-5 ET() AND
WALKING 1'S (1,2,4,10 ETO)

SCOPE

sRESET STAC(K
;THIS SAVES TEST NUMBER

MOV
MOV

#STACK,SP
#TTINO,@#TSTNM

MOV
MOV
JSR
.WORD

;GET REGISTER ADDRESS
O#RHCST,a#PRCST1+14
sMOVE UNIT NO. UNDER TEST
SFUNIT QRH(CS2
;TEST BITS IN REGISTER
RS,BITST
sONLY THESE BITS ARE TESTED FOR READ/WRITE
1476

.WORD
ERROR

176700
1

;ADDRESS OF REG. BEING TESTED
:INCORRECT DATA RECEIVED

MACY11

CIRJGDO,RPO4/5/6 DSKLS CTRLRY
CIRJGD.P1Y
10-SEP=79 11:00

1
2261
2262
2263

011126

000207

30A(1052)
110

10-SEP-79

RHCST
RTS

11:11

PAGE &9

= CONTROL AND STATUS
PC

;RETURN TO BLT3 ROUTINE

SEQ 0048

lalal

MACY11

CIRJGDO,RPO&/5/76 DSKLS CTRLR!
CIRJGD.P1Y
10=-SEP=79 11:00

2264
2265
2266
2267
226R
2269
2270
2271
2272
2273
22764
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
2314

2315
2316

30A(1052)
110

10-SEP=79

RHCS1

11:11

PAGE 50

= CONTROL AND STATUS 1

SEQ 0049

A iii22200222202222202032200022022022
2
iRl
l
]

;*TEST

AND READING RHER1

gon
see

RHCS1

- BIT # 13 - MCPE

THIS FORCES A MASS BUS CONTROL PARITY ERROR
BY SETTING "PAT', LCOKING FOR 'PAR', WRITING RHCSI

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

7ST11:

011130

000004

011132
011136
011144

012706
012737
004737

001000
000011
042732

002032

011150

052777

000020

170460

011156

005077

170460

SCOPE

MOV

#STACK,SP

MOV
JSR

#TTNO,Q#TSTNM
PC.a#CLDISK

;RESET

STACK

;THIS SAVES TEST NUMBER
INIT AND SET UNIT NUMBER AND DEVICE =

;CPU REG. CORRESPONDENCE (R1-R&)

;*SET FORCED PARITY ERROR ‘'PAT’
#PAT ,aRH(S2
;SET "PAT' TO INVERT PARITY
:GENERATED

BIS
(LR

oRHER1

:WRITE DCL REGISTER USING BAD CONTROL PARITY

:*W1TH THIS PARITY ERROR NOTHING w!LL BE READ TILL IT IS
;*CLEARED
011162
011166

011137
022737

011174
011176
011204
011210

001406
012737
010137
104001

011212
011216
011222
011226
011232
011240
011242
011246

013746
052716

012637
011237
023737
001403
010237

011250
011254

011437
022737

001126
000010

011262
011264

001406
012737
010437

000010
042402

011272
011276
011300

104001

001126

104200

001126

104200

001124

042402

001774
000120
001124
001126
001124

MOV

(Mp

MOV
MOV

MOV

MOV
(mp
BEQ

MOV

001124

MOV
ERROR
3%:

SETTING PAT AND

afUNIT,=(SP)

:WITH 'PAT" BIT HIGH
;GET UNIT NUMBER

(SP)+,a#SGDDAT

;PUT ON STACK

aR2 ,a#$BDDAT

ERROR

00112¢

MOV

2%:

:BRANCH 1F SC!DVA!RDY=1

#PAT!IR,(SP)

(MP

042402

BIS

MOV

BEQ

===> $BDDAT

AFTER PARITY

#SC'DVA'RDY,a#$GDDAT ;GOOD DATA
R1,3#REGADR
:REGISTER ADDRESS RH(S!

ERROR

001126

:RHCS1

#SC'DVA'RDY,a#$BDDAT ;COMPARE RHCS1
:ERROR

BEQ

1%:

oR1,3#8BDDAT

sWRITING DCL REGISTER RMCS1
:DID NOT SET SC!DVA!RDY

s INCLUDE PAT AND IR
;RH(S2 ===> $BDDAT

a#$GDDAT ,a#$BDDAT ; COMPARE RH(S?2
;0K = SC!DVA!RDY ARE HIGH
2%
R2,3#REGADR

;REGISTER ADDRESS

R4 ,a#$BDDAT
#PAR,a#$BDDAT

;RHER1 ===> $BDDAT
;ERROR REGISTER RHER1 SHOULD

;A - 0k, IT DOES

#PAR ,a#3GDDAT

R4 ,#REGADR
1

;READING DCL REGISTER RHCS2 DID NOT
;SHOW UNITAH!PAT!IR BITS HIGH

;HAVE

'PAR'

;GOOD DATA

SET

;FAILING REGISTER RHER!
:::?lT; ERROR DID NOT
:

'PAR"

MACYTT

~e ]

CZRJGDO,RPO4/5/6 DSKLS CTRLR]
10-SEP=79 11.:00
CIZRJGD.P1Y

CZRJGDO,RPOL/S/6 DSKLS CTRLRT
CIRJGD.P1Y
10=-SEP=79 11:00

MACY11

30A(1052)
10-SEP=79
11:11
PAGE I
T
RHCS1 = BIT # 13 - M(CPE

SEQ 0050

2317

2318
2319
2320

AR R A A A A R A A

2321
2322

;*TEST 12
HAd

2324
2525
ggg?

011300

000004

s
WALKING 1'S (1,2,4,10 ETO)
;;t"""'t"""t"'"""t"t""".'"'t""t"'t'.t""tt""
1ST12:
SCOPE

2328
%ggg

011302
011306

012706
012737

001000
000012

2331
2332
2333
2334
2335
2336
ggg;

011314
011322
011330
01133¢
011336
011340
011342

013737
013777
004537
177777
176702
104001
000207

001632
001774
042404

2323

002032

011336
170306

2339
2340
2341
2342
2343

PRWC:

R A

R e A

R R

e A

A AR

A A

il dd

RHWC = WORD COUNT REGISTER
TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE

REGISTERS.

USE A PATTERN OF WALKING 0°'S (=2,-3,-5 ETC.) AND

MOV
MOV

#STACK,SP
#TINO,@#TSTNM

;RESET STACK
;THIS SAVES TEST NUMBER

MOV
MOV
JSR
.WORD
.WORD
ERROR
R1S

OfRHWC ,a#PRWC+14
:GET REGISTER ADDRESS
SFUNIT ,aRH(S2
;MOVE UNIT NO. UNDER TEST
RS,BITST
:TEST BITS IN REGISTER
177777
:ONLY THESE BITS ARE TESTED FOR READ/WRITE
176702
:ADDRESS OF REG. BEING TESTED
1
:INCORRECT DATA RECEIVED
PC
:RETURN 10 BLT3 ROUTINE

23“

.':"""""""'"""""""""t"""!"'tl"'t!"'."'tt"'

2345
2346

;*TEST 13
A

RHBA = UNIBUS ADDRESS REGISTER
TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE

2348

WALKING 1'S (1,2,4,10 ETC)

2347

23‘9

011344

000004

2352
gggs

011346
011352

012706
012737

001000
000013

2355
2356
2357

011360
011366
011374

013737
013777
004537

001634
001774
042404

2359
2360
%gbé

011402
011404
011406

176704
104001
000207

2358 011400
6

2363
2364

USE A PATTERN OF WALKING 0'S (=2,-3,-5 ETC.) AND

";""""""'"'t"""""t't'"'t""t't"lt't'.tt't"tl't"'

ggg?

REGISTERS.

177776

1ST13:

002032

011402
170242

PRBA:

SCOPE

MOV
MOV

#STACK,SP
#TINO,@#TSTNM

MOV
MOV
JSR

O#RHBA ,3#PRBA+14
;GET REGISTER ADDRESS
afUNIT ,aRH(S2
:MOVE UNIT NO. UNDER TEST
RS,BITST
;TEST BITS IN REGISTER

.WORD
ERROR
RIS

176704
1
PC

.WORD

177776

sRESET STACK
;THIS SAVES TEST NUMBER

:ONLY THESE BITS ARE TESTED FOR READ/WRITE
:ADDRESS OF REG. BEING TESTED
:INCORRECT DATA RECEIVED
;RETURN T0 BLT3 ROUTINE

2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387

MACY1]

3?A(1052)
10-SEP=79
11:11
PAGE 52
RHBA = UNIBUS ADDRESS REGISTER
13

SEQ 0051

';"'I"""'Q""""'"""""""""'.'"".'."""""."'

TRTEST 14

RHER1 = ERROR REGISTER #!
TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE

REGISTERS.
USE A PATTERN OF WALKING 0'S (=2,-3,-5 ETC.) AND
WALKING 1'S (1,2,4,10 ETC)

.
v

011410
011412
011416

012706
012737

001000
000014

011424

013737
013777
004537
177777

001642
001774
042404

011432

011440
011444
011446
011450

011452

176714
104001

000207

AAAAR AR

15114:

000004

002032
011446
170176

PRER1:

]

SCOPE

;RESET STACK
;THIS SAVES TEST NUMBER

MOV
MOV

¥#STACK,SP
#TTNO,QFTSTNM

MOV
MOV
JSR

@#RHER1 ,9#PRERT+14
;GET REGISTER ADDRESS
@FUNIT,aRHCS2
;MOVE UNIT NO. UNDER TEST
R5,BITST
;TEST BITS IN REGISTER
177777
;ONLY THESE BITS ARE TESTED FOR READ/WRITE
}76714
;ADDRESS OF REG. BEING TESTED

RTS

.WORD
.WORD
ERROR

; INCORRECT DATA RECEIVED
;RETURN TO BLT3 ROUTINE

(el el

CZRJGDO,RPO4/5/6 DSKLS CTRLR}
10-SEP=-79 11:00
CZRJGD P11

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
CIRJGD.P1Y
10=-SEP=79 11:00
2388
2389
2390
239
2392
2393
2394
2395
2396
gggg

2399
26400
2401
2402
26403
26404
2405
2606
26407
26408
2609
26410
26411
26412
26413
2414
2415
2416
2617
26418
26419
26420
26421
2422
2423
2424
2425
26426
26427
2428
26429
2430
2431
26432
2433

10-SEP=79

RHER1

11:11

PAGE 53

- ERROR REGISTER #1

AL2220222222222l
llldld )

RHMR = MAINTENANCE REGISTER
;*TEST 15
BIT O (DMD) MUST BE SET BEFORE THE OTHER BITS
oo

ARE READ WRITE

jve

ONLY 5 LOW ORDER BITS ARE TESTED (R2 HAS 5)

1$7115:

SCOPE

’:""""""""""""'.""'f""".""""."""."".."

011454

000004

011456
011464
011470
011474
011500
011504
011510
011512
011514
011520
011524
011526
011530
011534
011540

012737
004737
013700
012701
012702
012710
050110
010146
052716
011637
022610
001405
011037
010037
104001

011542
011544
011546
011552
011556
011560

000241
006101
052701
042701
005302
001351

000015
042732
00'660
000001
000005
000001

002032

MOv

1%:

CMP
BEQ
MOV
MOV

ERROR
CLC

ROL

BIS
BIC
DEC

000400
001000

;SET DIAGNOSTIC MODE BIT

R1,aR0

MOV

2%:

#DMD ,aR0

BIS

MOV

BIS

001126
042402

;THIS SAVES TEST NUMBER

PC,a#CLDISK
afRHMR, RO
#1,R1
¥5,R2

MOV

000401
001124

FTTNO,@#TSTNM

JSR
MOV
MOV
MOV

BNE

R1,-(SP)

#DMD 1400, (SP)

(SP) ,a#$GDDAT

(SP)+ ,aR0
2%

aR0,$BDDAT
RO ,3#REGADR

#400,R1
#B1109.R1
R2

;SET UNIT NUMBER AND INIT
;RO HAS MAINTENANCE REG. ADR.
;R1 HAS DATA
;R2 HAS COUNT OF NUMBER OF BITS
;SET DATA IN RHMR

;SAVE DATA FOR COMPARES

; INCLUDE BIT 0

;SAVE FOR ERROR PRINTOUT

; COMPARE DATA
;BRANCH IF GOOD

:BAD DATA
;FAILING REG. ADR.

sMAINTENANCE REGISTER
;FAILED TO SET INDICATED
;BITS
;CLEAR CARRY
;GET NEXT DATA

;SET UNUSED BITS
;CLEAR READ ONLY BIT
: COUNT

;BRANCH IF 5 BITS NOT DONE

;*NOW FLOAT A O

2434
26435

012701
012702
012710
050110
020110
001407
010137
011037
010037
104001

2437
26438
26439

011622
011626

000261
006101

26440
2441
26442
26443

114

011562
011566
011572
011576
011600
011602
011604
011610
011614
011620

2436

MACY1! 30A(1052)

011626
011632
011636
011640

042701
052701
005302
001354

000435
000005
000001

3%:

001124
001126
042402

#435,R1
#5,R2
#DMD ,aR0

:R1 HAS DATA
:R2 HAS COUNT BITS
;SET DIAGNOSTIC MODE BITS

B1S
(MP
BEQ

R1,3R0
R1,3R0
33

;SET DATA IN RHMR
: COMPARE DATA
:BRANCH IF GOOD

ERROR

;MAINTENANCE REGISTER
;DOES NOT ALLOW WRITING
: LEROS
:SET CARRY
;GET NEXT DATA

MOV
MOV
MOV

6%:

001340
000400

MOV
MOV
MOv

SEC
ROL

BIC
BIS
DEC
BNE

R1,3#%GDDAT
aR0,a#$BDDAT
RO,3#REGADR

:GOOD DATA
:BAD DATA
sFAILING REG. ADR. RHMR

;CLEAR READ ONLY BIT
#B1105!B1106!B1T07!BIT09,R1
#B1708,R1
;SET BIT ZEROED BY ROL
R2
;COUNT IF 5 BITS DONE
3%
;BRANCH ]F INCOMPLETE

SEQ 0052

30A(1052)
15

10-SEP=-79

RHMR

11:11

= MAINTENANCE

PAGE 54

SEQ 0053

[

|
PN
26465

MACY11

(IRJGDO,RPOL/S5/6 DSKLS CTRLRI
(ZRJGD.PI
10=-SEP-79 11:00

CIRJGD.P1Y

10-SEP=79 11:00

MACY11

2646
2647
2448

30A(1052)

115

10-SEP=79

11:11

5
PAGE 55

RHMR = MAINTENANCE REGISTER

SEQ 0054

2‘.‘.9

;;"i"t"""'""'""'"""0""'0".""'Q"'tt't"'l"'t"l

2651

26450
2652

2453

Jee

REGISTERS.

TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE

011642

000004

011644
011650

012706
012737

001000
000016

002032

26461

011656

013737

001644

011700

011664
011672
011676
011700
011702
011704

013777
004537
017437
176706
104001
000207

1ST16:

001774
042404

167744

2469
2470
2471
2472
2673
2674

PRDST:

USE A PATTERN OF WALKING 0'S (=2,-3,-5 ETC.) AND

WALKING 1'S (1,2,4,10 ETO)

AR A AR R AR A A A AR A A A A A A A

26455
2656
2657
26458
gzzg

RHDST = DESIRED SECTOR/TRACK ADDRESS

ZI,SI.

26462
2663
26464
26465
26466
§‘°§

;*TEST 16

A A A A A A

A A A

A AR A AR AR ARl Rl l)

SCOPE

MOV
MOV

#STACK,SP
#TINO,I#TSTNM

MOV

SFRHDST ,A#PRDST+14

MOV
JSR
LWORD
.WORD
ERROR
RTS

SFUNIT,3RHCS2
RS,BITST
17437
176706
1
PC

;RESET STACK
:THIS SAVES TEST NUMBER
:GET REGISTER ADDRESS

:MOVE UNIT NO. UNDER TEST
:TEST BITS IN REGISTER
:ONLY THESE BITS ARE TESTED FOR READ/WRITE
;ADDRESS OF REG. BEING TESTED
: INCORRECT DATA RECEIVED
:RETURN TO BLT3 ROUTINE

24,75

A AR A AR A A A A A A A A A A A AR A A A AR

2676
2677

ceTEST 17
Jee

2479
2‘!80
26481
2482
2483
2484

Jee
WALKING 1°'S (1,2.4,10 ETO)
:;i't"""t"'t"tt"'t""t'""'t"tttt"!'t".t"l"""'t!"
1S117:
SCOPE

2678

gagg
'A

26487
2488
26489
2690
26491
26492
26493

2694
2495

2496

2497

jee

011706

000004

011710

012706

001000

000017

002032

011722
011730
011736
011762
011744
011746
011750

013737
013777
004537
177777
176740
10400
000207

001646
001774
0462404

011744
167700

011714

012737

AR ARl

RHER2 = ERROR REGISTER #2
TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE

REGISTERS.

USE A PATTERN OF WALKING 0'S (=2,=3,-5 ETC.) AND

MOV

#STACK,SP

MOV
MOV
JSR
LWORD
.WORD
ERROR
RTS

ANRHER2 ,#PRER2+14
:GET REGISTER ADDRESS
SFUNIT,IRHCS2
:MOVE UNIT NO. UNDER TEST
RS,B1TST
;TEST BITS IN REGISTER
177777
:ONLY THESE BITS ARE TESTED FOR READ/WRITE
176740
;ADDRESS OF REG. BEING TESTED
1
; INCORRECT DATA RECEIVED
PC
;RETURN TO BLT3 ROUTINE

MOV

PRER2:

FTINO,I¥TSTNM

;RESET STACK

;THIS SAVES TEST NUMBER

lalal

CIRJGDO,RPO4/S5/6 DSKLS CTRLR1

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CZRJGD.P11

2698
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
253%7
2538
2539
2540
2541
2542

2543
2544

MACY1

30A(1052)
17

10-SEP-79

11:11

5
PAGE 56

RHER2 - ERROR REGISTER #2

RN R R RN R RN R TR R R R R R R R R R R R PR R RRNRRRRRRRERRORORRNRNORRRERROROEROERTRRTN
"R

SeTEST 20

RHOF = MARGIN/OFFSET REGISTER

REGISTERS.

TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE

USE A PATTERN OF WALKING 0°'S (=2,-3,=5 ETC.) AND

WALKING 1°S (1,2,4,10 ETC)

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

011752

000004

011754
011760

012706
012737

001000
000020

011766
011774
012002
012006
012010
012012
012014

013737
013777
004537
016277

001650
001774
042404

1§120:

002032
012010
167634

PROF:

176732
104001
000207

SCOPE

MOV
MOV

#STACK,SP
#TINO,OFTSTNM

SRESET STACK
:THIS SAVES TEST NUMBER

MOV
MOv
JSR
.WORD
.WORD
ERROR
RTS

S#RHOF ,a#PROF +14
;GET REGISTER ADDRESS
SFUNIT,aRHCS2
;MOVE UNIT NO. UNDER TEST
RS,BITST
;TEST BITS IN REGISTER
16277
;ONLY THESE BITS ARE TESTED FOR READ/WRITE
176732
;ADDRESS OF REG. BEING TESTED
1
; INCORRECT DATA RECEIVED
PC
;RETURN TO BLT3 ROUTINE

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

;*TEST 21
i
s
Jee

RHCA = DESIRED CYLINDER REGISTER
TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE
REGISTERS.
USE A PATTERN OF WALKING 0'S (=2,-3,=5 ETC.) AND

WALKING 1'S (1,2,4,10 ETC)

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

1§121:

012016

00000«

012020
012024

012706
012737

300021

012032
012040
012046
012052
012054
012056
012060

013737
013777

001652
001774
042404

004537
001777
176734
104001

000207

20100

167570

MOV

#STACK,SP

MOV
MOV

¥RHCA,Q¥PRCA+14
GET REGISTER ADDRESS
OFUNIT,QRH(S2
;MOVE UNIT NO. UNDER TEST

MOv

002032
012054

SCOPE

PRCA:

JSR
.WORD
LWORD
ERROR
RTS

FTINO,Q¥TSTNM

R5,BITST
1777
176734
1
PC

;RESET STACK

;THIS SAVES TEST NUMBER

;TEST BITS IN REGISTER
;ONLY THESE BITS ARE TESTED FOR READ/WRITE
;ADDRESS OF REG. BEING TESTED
; INCORRECT DATA RECEIVED
;RETURN TO BLT3 ROUTINE

SEQ 0055

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1
CIRJGD.P1Y
10-SEP=79 11:00

MACYN 3?5{1052)

2545
2546

5
E
10-SEP=79 11:11
PAGE 57
RHCA = DESIRED CYLINDER ReGISTER

SEQ 0056

2547

R
el

2548

s+ TEST 22

RHER3 = ERROR REGISTER #3

WALKING 1'S (1,2,4,10 ETO)

2549
2550

i
s

2551

2552

R
R
el

3222

012062

000004

2555

012064

012706

001000

000022

002032

2558

012076

013737

001654

012120

522?

2559
2560
2561
2562
2563
ggbg
6

2566
2567
2568
2569
2570

2571

2572

TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE
REGISTERS. USE A PATTERN OF WALKING 0'S (=2,-3,-5 ETC.) AND

012070

012104
012112
012116
012120
012122
012126

012737

013777
004537
177777
176742
104001
000207

15122:

001774
042404

167524

SCOPE
MOV

#STACK,SP

MOV

OFRHERI ,#PRER3Z+ 14

MOV

PRER3:

MOV
JSR
.WORD
.WORD
ERROR
RTS

#TINO,a#TSTNM

@FUNIT ,aRH(S2
RS,BITST
177777
176742
1
PC

RESET STACK

sTHIS SAVES TEST NUMBER

;GET REGISTER ADDRESS

;MOVE UNIT NO. UNDER TEST
sTEST BITS IN REGISTER
sONLY THESE BITS ARE TESTED FOR READ/WRITE
sADDRESS OF REG. BEING TESTED
;INCORRECT DATA RECEIVED
sRETURN TO BLT3 ROUTINE

LR
R A

;**0F THE TWENTY REGISTERS (& IN RH11, 16 IN RP0O4) ONLY 12 ARE

2573
2574

;**(HECKED IN THE ABOVE TESTS
;*+TWO ARE ALREADY TESTED (SERIAL NO. AND DRIVE TYPE)

2576

:**ARE READ ONLY REGISTERS.

2575

2577

:**THE OTHER 7 WHICH ARE RHDS1, RHLA, RHCC, RHEC1, RHEC!, RMEC?
R

ONE OR ZERO CANNOT BE WRITTEN
R

ARl

2578

e —————————

CZRJIGDO,RPO4/5/6 DSKLS CTRLRI

CZRJGD.PTY

2632
2633
2634

10-SEP=-79 11:00

30A(1052)
122

10-SEP=79

11:11

5
PAGE 58

SEQ 0057

RHER3 - ERROR REGISTER #3

;:'"""""""""""""'"""""..""""""."Q""'C'

;*TEST 23
CONTROL AND STATUS 2 (RHCS 2) = 'NED'
THE UNIT SELECT BITS #0-2 (US1-4)
TESTS
THIS
g
AND NON-EXISTENT DRIVE BIT #12 (NED)
;e
g

THE OTHER RHCS2 BITS ARE NOT TESTED HERE

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

000004

012706
012737

001000
000023

004737

042732

1§123:
002032

SCOPE

MOV
MOV

#STACK,SP
#FTINO,Q¥#TSTNM

SRESET STACK
;THIS SAVES TEST NUMBER

JSR

PC,a#CLDISK

:HERE

1S USED TO SETUP HARDWARE/

;CPU REGISTER CORRESPONDENCE
;R1=RHCSI
;R2=RH(S?2
;R3=RHDS1

012146

005037

002006

CLR

SNERFLGS

:R&=RHER1

:CLEAR ERROR FLAG

;*SIMULATED DISK AREA WILL BE USED AS A TEMPORARY

-, OO0 NN
o sNO0SOSN

N—-w

~NO
&~

a4
~Now
NO
—~NOwm

~NO oW
oo

R
—

il —
—

-l

eleleleleleleleBNelelelel-]

N RN
N PONINONINY
= —

s
s
s
s

;*STORAGE TABLE FOR DRIVES PRESENT DETERMINED FROM °'NED' = O IN RH(S?2

2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2596
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631

MACYTT

1%:

000010
051534

2%:

010000

7%:

001454
011246
042716
005216
013703
005203
112713

10%:

177770

MOV

#DIiSK,R1

;LOAD TABLE POINTER

BNE

;BRANCH IF 8 NOT DONE

MOV
MOV
DEC

000100

;LOAD TABLE LOCATION COUNTER
;FILL 8 LOCATIONS WITH =1
;COUNT DOWN ONE LOCATION

CLR

aR2

;SELECT UNIT NO.O (U2!U1!U0=0)

187
BIT
BEQ

aRé
#NED ,aR?
3%

;READ A DRIVE REGISTER (RHER1)
:NON EXISTENT DRIVE BIT = 0 ?
;YES...DRIVE PRESENT, (HECK THE TYPE

MOV
MOV

PEC

BEQ

#8.,RC
#DISK,R1

;RELOAD TABLE LOCATION COUNTER
;RELOAD THE TABLE POINTER

:NO...DECREMENT DRIVE COUNT

;CHECK RESULTS I1F 8 DRIVES DONE

MOV
BIC
INC

aR2,=(SP)
#eC7,(SP)
(SP)

;PUT RHCS2 ON THE STACK
sMASK ALL BUT THE UNIT NUMBER
; INCREMENT THE UNIT NUMBER

MOVB

#100,aR3

;SET

MOV
INC

001640

#8..R0
#=1,(R1)+
RO

a#RH(CST,R3
R3

012242

012612

MOv

(SP)+,aR2

012244

000757

;GET RHCS1 ADDRESS
;ADDRESS UPPER BYTE OF RH(S!
'TRE'

IN RHCSI

;WITHOUT ADDRESSING DRIVE

;RHCS2 HAS THE

INCREMENTED UNIT

;WITH "NED' CLEARED
;TEST FOR NEXT DRIVE

;*(HECK THE UNIT TYPE AND BUILD 'NED' DERIVED UNITS TABLE
012246

022777

024020

1674610

3%:

(MP

#264020,aRHDT

;1S THIS A DUAL PORT RPQ4 ?

020020

S?A(1052)

10-SEP=79

PAGE 59

SEQ 0058

CONTROL AND STATUS 2 (RHCS 2) = 'NED'
BEQ
(MpP
BEG

167400

11:11

8%
#20020,aRHDT
8%

JENTER IN TABLE IF SO
;1S THIS A SINGLE PORT RPO4 ?
;ENTER IN TABLE IF SO

022777
001415
022777

024022

167370

020022

167360

022777
001405
022777
001401

024021

167350

020021

167340

001411

160016

#2402¢ ,3RHDT
2%
#20022 ,aRHDT
8%

;1S THIS A DUAL PORT RPO6 ?
SENTER IN TABLE IF SO
;1S THIS A SINGLE PORT RPO6 ?
SENTER IN TABLE IF SO

(MpP
BEQ

#24021,3RHDT
8%

;1S THIS A DUAL PORT RPOS ?
;ENTER IN TABLE IF SO

BEQ

;ENTER IN TABLE

(MpP

8%:

000010

012621

005300
001402
005212
000716

;1S THIS A SINGLE PORT RPOS ?

:NO RPO4& FOUND SO CHECK NEXT UNIT

MOV
SUB
MOV

#8.,-(SP)
RO, (SP)
(SP)¢+,(R1)+

;LOAD MAX NO. CF DRIVES
; (SP) NOW HAS THE PRESENT DRIVE NO.
;LOAD TABLE, INCR TABLE LOCATION &

DEC

;DECREMENT THE DRIVE COUNT

INC
BR

aR?
2%

;SELECT NEXT UNIT
;60 TEST IT

BEQ

043626

000010
001754
051534
001124

;RESTORE THE STACK TO WHERE 1T WAS
;CHECK RESULTS I1F B UNITS CHECKED

'NED' DERIVED UNITS TABLE WITH THAT DERIVED USING RHAS [N T4

JSR

UNITS
DISk
8.
5%
6%
13%

RO,a#COMPAR

; COMPARE RESULTS

;RHER1/RHAS DERIVED DATA
;"NED' TEST DATA
:NO.OF WORDS TO COMPARE
;RETURN FOR ERROR HEADER
;RETURN FOR ERROR DATA
;RETURN FOR GCOD COMPARISON (NEXT TEST)

;*HENCE

IGNORES

INHIBIT ERROR TYPEOUT SWIT(H)

5%:

ERROR
MOV
MOV

22
#8. ,R3
SUN]TS ,RT

MOV

(R2)+,a#8BDDAT

Bl
BNE

#Sw13 aSwR
13%

14%:

001126

032777
001043
022737
001413

;*SPECIAL "NED'/'RHMAS' TABLE TYPE OUT ROUTINE

012416
012424
012426
012434

;*(OMPARE

004037
001754
05153¢
000010
012370
012416
012534

#20021,aRHDT

.'.'""""'""""""""'""'""""'."""""""""""

000732
012746

(mp
BEQ
(mp
BEQ

020000

166514

177777

001124

6%:

MOV
MOV

(MpP

BEQ

#DISK,R2
(R1)+,3#8GDDAT

#-1,a¥#8GDDAT
1%

(BYPASSES .SERRTYP AND

JLENGTH OF BOTH UNIT TABLES
;ADDRESS OF RHAS/RHER1 UNITS TABLE

;ADDRESS OF °'NED' RHCS2 UNITS TABLE
;LOAD RHAS UNIT NO.INTO ''SGDDAT'" AND
; INCREMENT THE TABLE LOCATION
;LOAD "NED' UNIT NO. INTO "'$BDDAT"
;8 INCR TABLE LOCATION

;INHIBIT ERROR TYPE QUTS ?
. EXIT
JYES.

;DOES RHAS UNIT TABLE LOCATION = =1 °?
JYES...DON'T TYPE

1T = (WECK

°'NED'

TABLE

(Nl

]
o
s

i
—

N
oo

001425
022777
001621

MACYTT

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

—

2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
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
267¢
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690

oOoo

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJIGD P11

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

12436
12642

12464
12470
12474

10-SEP=79 11:00
104401
104401
013746
104403
006
000
104401
000406

063034
063034

104401
104401
104401

063034
063034
063034

022737
001404
013746

177777

1046403
006
000

104401

005303
001327
062706

s$$§1osz>

063042

sNO...TAB OVER PC COLUMN

.BYTE
.BYTE

6
0

;:TYPE 6 DIGITS
; : SUPPRESS LEADING ZEROS

12%

TYPE

11%:

001126

12%:

001126

TYPE

000014

.SPACES
a#$GDDAT,=(SP)

. SPACE2
,SPACES

;:60 TYPE==OCTAL ASCII

;SPACE OVER TO THE NEXT COLUMN
;CHECK THE

"NED' UNIT TABLE

;TAB OVER THE PC COMUMN

.SPACESB

;TAB OVER THE TEST NO. COLUMN

BEQ

(mMpP

#-1,3#8BDDAT
9%
a#$BDDAT,=(SP)

;DOES °"NED' UNIT TABLE LOCATION = = 1
;YES...DON'T TYPE IT
;;SAVE aNSBDDAT FOR TYPEOUT

.BYTE
.BYTE

6
0

;:TYPE 6 DIGITS
: : SUPPRESS LEADING ZEROS

TYPE
DEC
BNE

LSCRLF
R3
14%
#16,SP

ADD

.SPACES

;TAB OVER THE RHAS UNIT COLUMN

;FOR THE NEXT LINE IN BOTH TABLES
;COUNT DOWN 2 TABLES LOCATION COUNTER
;1F NOT = 0 TYPE OUT NEXT 2 LOCATIONS
;ADJUST STACK FOR NO ''POP'' & RTS FROM '‘COMPAR"'

s/eN\z/e\s/e\s/e\/e\
/N /N e\ e\ e\ /N e\ e\ e\ e\ /w\ s/ e\ /e
s/e\s/e\s/e\/e\z/oe\
/N /N e\ e\ /e\/ o\ /N e\ /N / e\ /w\ s/ e\ /N
s/e\z/e\z/e\z/e\:/e\/e\s/e\/e\/o\/e\/e\
/X /N e\ /e\/u\2/e\/ o\

:*IN THE ABOVE TEST BITS 0,1,2, AND BITM 12 ARE TESTED
;*1F THE "DRIVES PRESENT'' TYPE OUT DOES NOT AGREE WITH WHAT WAS
;*FOUND USING RHER1 B RHAS, THEN THE ERROR IS IN THE LOGIC
;*FOR BITI12{NED), OR UNIT SELECT(BIT O 70 2), OR RHER1, OR RHAS

R
A AR
AR
R g

;1T IS NOT POSSIBLE BY PROGRAM TO CHECK IF A NON=EX]STENT
;*DRIVE 1S REALLY STANDING THERE OR NOT

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

: *MANUALLY LOAD LOCATION "ERUNIT' WITH A UNIT NUMBER
:*AND RESTART AT LOCATION "ERSTAR' THIS WILL LOOP FOR

:*EVER DOING EXACTLY AS TEST ON THAT ONE UNIT

;*70 GET BACK TO MAIN DIAGNOSTIC HIT HALT SWITCH AND
;*RESTART PROGRAM IN NORMAL MANNER
ALY A VAR VAR FEANY VAR VARY VAN VAR

AN VAN VAR

;.60 TYPE--OCTAL ASCII

13%:

SEQ 0059

;TAB OVER THE TEST NO. COLUMN
;;SAVE @N#SGDDAT FOR TYPEOUT

TYPE
TYPE

MOV
TYPOS

9%.

.SPACES

TYPE
T(PE
MOv
TYPOS

001124

001223

10-SEP=79
11:11
PAGE &0
CONTROL AND STATUS 2 (RHCS 2) = 'NED'

AL FARL

AL VAR FAAY.

e 1

CZRJGD. P11

MACY11

CIRJGDO,RPO&/5/6 DSKLS CTRLR]

|
10-SEP=-79 11:00

30A(1052)

123

10-SEP=-79

11:11

PAGE €1

CONTROL AND STATUS 2 (RHCS 2) = °NED'

slaN\e/a\e /o \e/ N/ \w/o\w/o\w/c\e/ N/ \0/ N0/ \e/\e/\e/\e/:\e/:\2/:\»
M EAS TEEN FERC T ARY FARN T AR IAAY PR
TARNFALT AR TR FART VAR FALY FERT FERY P AR

SEQ 0060

lalal

CZRJIGD.PIN

MACY11

CZRJGDO,RPO4/S5/6 DSKLS CTRLR1

30A(1052)
10-SEP=-79
11:11
PAGE €62
123
CONTROL AND STATUS 2 (RHCS 2) = "NED'

SEQ 0061

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

;*TEST 24

CONTROL AND STATUS 2 (RHCS2) = °'CLR'

:*THIS TESTS THE UNIT SELECT BITS (US1=4) AND CLEAR BIT #5 (CLR)
;*ALL REGISTERS ARE LOADED WITH ALL ONES EXCEPT BIT #0 AND #6

;*WHICH ARE ''GO'" AND "'INTERRUPT ENABLE'', THEN 'CLR' IS GIVEN
;*(RHDB 1S READ FIRST AS THIS WILL SET DTL IN RH(S2 AND

;*SC AND TRE IN RHCS1.)

;*ANOTHER CLR 1S GIVEN THEN ALL OTHER REGISTERS ARE READ

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

012534

000004

012536
012542

004737
005037

15124
042732
002006

SCOPE
JSR
CLR

PC,a#CLDISK
OFERFLGS

sSET REGISTERS AND CLEAR
;CLEAR ANY ERRORS

—

RN
NN

et \JN
—

012664
012670
012674

[elelelNelelelelelelelelelelelele]

;*FILL ALL POSSIBLE BITS WITH ONES
012546
012554
012562
012570
012576
012604
012612
012620
012626
012634
012642
012650
012656

000001
177777

167054
167050
167044
167040
167034
167030
167024
167020
167014
167010
167004
167002
166774

MOV
MOV
MOV

BIS

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

000040
001774
001630

BIS

MOV
MOV

#177777,8RHDB
#177777,8RHWC
#177777,8RHBA
#157010,9RHCS2
#1476 ,3RHCST
#177777,8RHER1

;BUS ADDRESS REGISTER GETS 177777
;WORD COUNT REGISTER GETS 177777
;BUS ADDRESS REGISTER GETS 177777
;CONTROL AND STATUS 2 GETS 157010
:CONTROL AND STATUS REGISTER/GETS 1476
;ERROR REGISTER1 GETS 177777

#CLR,

aR2

;CLEAR ALL POSSIBLE BITS

#RHDB,

;RO CONTAINS ADDR. OF

#17437 ,aRHDST
#177777 ,RHER2
#16277,3RHOF
#177777 ,8RHCA_
#177777 ,dRHER3
#DMD ,aRHMR
#177777,9RHMR

aFUNIT ,aR2

;DESIRED SECTOR TRACK
;ERROR REGISTER 2
;OFFSET REGISTER
;DESIRED CYLINDER
;ERROR REGISTER 3
;MAINTENANCE REGISTER
;MAINTENANCE REGISTER

sREINSTATE UNIT NO.

ADDR. OF

REG.

;*DATA BUFFER REGISTER
001124

MOV
MOV
MOV

001126

(Mp

BEQ
ERROR

—

elelelelele]

177777
042402
001126
001124

012734

052712

000040

013712

001774

2%:

#177777 ,a#8GDDAT;GOOD DATA FOR ERROR

aR0,a#REGADR
;REGISTER ADDRESS
a9(RO)+,a#$BDDAT ;TEST DATA
a#$GDDAT ,a#$BDDAT; COMPARE GOOD WITH TEST DATA
2%
:BRANCH IF GOOD
1
;RHDB DID NOT HAVE ALL ONES
;AFTER A CLR IN RH(S2

BIS

#CLR,aR2

MOV

a¥UNIT ,aR2

**WORD COUNT REGISTER

e 1

MACY11

;SET CLEAR AGAIN BECAUSE

:READING RHDB AFTER CLEARING
;SET DLT SC AND TRE
;REINSTATE UNIT NO.

WILL

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP-79 11:00
CZRJGD.P1Y

2808
2809

012740
012746

012737
013037

2811
2812
2813
2814
2815

012760
012762

001402
004737

2810

2818
2819
2820
2821

2822
2823

012752

022737

177777
001126

177777

001124

3%:

001126

013546

2841
2842
2B43
2844

2845
2846

012766
012774
013000
013006

013010

012737
013037
022737
001402

004737

000000
001126
000000

001124

4$:

001126

013546

2851
2852
2853
2854

2855
2856

013014
013020
013024
013030
01303¢
013042
013064

012746
053716
012637
013037
023737
001402
004737

000100
001774
001124
001126
0011264

5% :

001126

013546

: COMPARE DATA

:BRANCH IF GOOD
*JUMP TO ERROR FOR CLR (BIT §)
:IN RHCS2

MOV
MOV
CMP
BEQ

#0,3#$GDDAT
a(R0)+,a#SBDDAT
#0,3#$BDDAT
5%
PCLANERCS2C

:GOOD DATA FOR ERROR TYPEOUT
:TEST DATA
*COMPARE DATA
:BRANCH IF GOOD

*JUMP TO ERROR FOR CLR (BIT §)
SIN RHCS2

MOV
BIS
MOV
MOV
CMP
BEQ
JSR

#100,-(SP)
: INCLUDE IR
AFUNIT, (SP)
SSET UNIT NO.
(SP)+,a#$GDDAT
:GOOD DATA FOR TYPE OUT
3(R0)+,a#SBDDAT :TEST DATA
3¥SGDDAT,a#$BDDAT;
COMPARE DATA
6%
:BRANCH 1F GOOD

PC,ANERCS2C

“JUMP TO ERROR FOR CLR (BIT )
:IN RHCS2

-«CONTROL AND STATUS 1 REGISTER

013050
013056
013002
013070

013072

012737
013037
022737
001402

004737

004276
001126
004276

001124

68:

001126

013546

MOV
MOV
CMP
BEQ

JSR

#4276,3#$GDDAT
3(R0)+,a#SBDDAT
#4276 ,9#8BDDAT
7%

PCLINERCS2C

;GOOD DATA FOR ERROR TYPEQUT
:TEST DATA
:COMPARE DATA
:BRANCH IF GOOD

*JUMP TO ERROR FOR CLR (BIT 5)
SIN RHCS2

:+ERROR 1 REGISTER

013076
013104
013110
013116

013120

012737
013037
022737
001402

004737

000000
001126
000000

001124

7%:

001126

MOV
MOV
(mp
BEQ

JSR

013546

2857

2860

48
PC.ANERCS2C

#177777,3#$BDDAT

:«CONTROL AND STATUS 2 REGISTER

#0.3#8GDDAT
o(R0O)+,a¥SBDDAT
#0,3#8BDDAT
10$
PC,ANERCS2C

:GOOD DATA FOR ERROR TYPEOUT
;TEST DATA
:COMPARE DATA
:BRANCH 1f GOOD

SJUMP TO ERROR FOR CiR (BIT 5)
SIN RHCS2

-+DESIRED SECTOR/TRACK REGISTER

2858

2861

BEQ
JSR

JSR

2847
2848

2850

W177777,398GDDAT
;600D DATA FOR ERROR TYPEOUT
3(R0O)+,3#$BDDAT ;TEST DATA

;*BUS ADDRESS REGISTER

2825

2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838

MOV
MOV

CMP

2824

2826
2827

013126

012737

017437

001124

108:

MOV

#17437,398GDDAT

-GOOD DATA FOR ERROR TYPEOUT

B
SEQ 0062

MACY11 30A(1052)
10-SEP-79 11:11
PAGE €3
124
CONTROL AND STATUS 2 (RHCS2) = 'CLR'

[l 1

CZRJIGDO,RPO4/5/6 DSKLS CTRLR1
CZRIGD.P11
10-SEP=79 11:00

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

013132
013136
013144
013146

013037
022737
001402
004737

001126
017437

SQA (1052)
10-SEP-79
11:11
PAGE 64
CONTROL AND STATUS 2 (RHCS2) = °CLR'
24
MOV
(MpP

001126

BEQ
JSR

013546

a(RO)+ 3#SBDDAT ;TEST DATA
#17437 ,3#$BDDAT ; COMPARE DATA
11%

PC,afERCS2C

;BRANCH 1F

GOOD

:JUMP TO ERROR FOR CLR (BIT %)

:IN RHCS?2

;s *ERROR 2 REGISTER

013152
013160
013164
013172
013174

012737
013037
022737
001402
004737

000000
001126
000000

001124

11%:

001126

013546

MOV

#0,a#8GDDAT

;GOOD DATA FOR ERROR TYPEOUT

CMP
BEQ
JSR

ag.atsaoon1
12%

: COMPARE DATA
sBRANCH IF GOOD

MOV

a(RO)+ ,a#$BDDAT

PC,a#ERCS2C

;TEST DATA

:JUMP TO ERROR FOR CLR (BIT 5

:IN RHCS2

;*OFFSET REGISTER

013200
013206
013212
013220
013222

012737
013037
022737
001402
004737

116000
001126
116000

001124

12%:

001126

MOV
MOV

CMP
BEQ

013546

JSR

#116000,3#SGDDAT
;GOOD DATA FOR ERROR TYPEOUT
a(RO)+,a#$BDDAT ;TEST DATA
#116000,3#$BDDAT
; COMPARE DATA
13%
;BRANCH IF GOOD
PC,a#ERCS2C
:JUMP TO ERROR FOR CLR (BIT S)

:IN RHCS2

;*DESIRED CYLINDER ADDRESS REGISTER

2891
2892
2893
2894
2895

013226
013234
013240
013246
013250

012737
013037
022737
001402
004737

001777
001126
001777

001124

13%:

001126

CMP

#1777 ,3#8GDDAT
a(RO)+,a#$BDDAT
#1777 .9#%BDDAT

JSR

PC,a#ERCS2C

MOV
MOV

BEQ

013546

14%

;GOOD DATA FOR ERROR TYPEOUT
;TEST DATA
;COMPARE DATA

;BRANCH 1F

GOOD

:JUMP TO ERROR FOR CLR (BIT 5)

:IN RHCS2

; *ERROR 3 REGISTER

2901
2902
2903
2904
2905
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916

2917

013254
013262
013266
013274
013276

012737
013037
022737
001402
004737

000000
001126
000000

001124

14%:

MOV
MOV

Cmp
BEQ
JSR

001126

013546

#0,9#8GDDAT

:GOOD DATA FOR ERROR TYPEOUT

#0,3#8BDDAT
15%

:COMPARE DATA
;BRANCH IF GOOD

9(R0O)+,3#$BDDAT ;TEST DATA

PC,a#ERCS2C

:JUMP TO ERROR FOR CLR (BIT %)

:IN RHCS2

;*ATTENTION SUMMARY REGISTER
013302
013306
013314
013322
013324

013037
012737
123737
001402
004737

001126
000000
001124

013546

001124
001126

15%:

MOV
MOV

(MPB
BEQ
JSR

a(R0O)+ ,a#$BDDAT

;GET RHAS CONTENTS

PC,a#ERCS2C

:JUMP TO ERROR FOR CLR (BIT S
:IN RHCS?2

#0,3#8GDDAT
o#$GDDAT ,a#$BDDAT
16%

S*MAINTAINABILITY REGISTER

:GO0OD DATA FOR ERROR TYPE QUT
;s COMPARE FOR RHAS
;BRANCH 1F GOOD

SEQ 0063

[

MACY11

e ]

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P11
10-SEP=79 11:00

|
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
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2956
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964

2965
2966
2967
2968
2969
2970
2971
2972
2973

013330
013336
013342
013350
013352

012737
013037
022737
001402
004737

000400
001126
000400

001124

nS5
30A(1052)
10-SEP=79
11:11
PAGE ¢5
124
CONTROL AND STATUS 2 (RHCS2) = °CLR'

16%:

001126

MOV
MOV
CHP

BEQ
JSR

013546

#400,3#3GDDAT

:GOOD DATA FOR ERROR TYPEOUT

a(RO)+ ,a#SBDDAT ;TEST DATA
#400,9#8BDDAT

17%
PC,a7ERCS2C

:COMPARE DATA

;BRANCH IF GOOD
:JUMP TO ERROR FOR CLR (BIT 5)

:IN RHCS2

;*DRIVE STATUS REGISTER
013356
013364
013366
013372
013376
013402
013404

000600

001124

17%:

001126
001100
000600

MOV
MOV
MOV

BIC
CMP
BEQ
JSR

013546

#600,3#SGDDAT

a8(R0)+,=(SP)

;GOOD DATA FOR ERROR TYPEOUT

;GET RHDS1

(SP) ,a#$BDDAT

;TEST DATA

20%
PC,afERCS2C

;BRANCH IF GOOD
:JUMP TO ERROR FOR CLR (BIT %)

#VV!PROG,(SP)
lgOO.(SP)*

;CLEAR Vv AND PROG
; COMPARE DATA

:IN RHCS2

:*DRIVE TYPE
013410
013416
013422
013430
013432

013737
013037
023737
001402
004737

002010
001126
002010

001124

20%:

001126

MOV
MOV

(MpP

BEQ
JSR

013546

a#SAVDT ,a#$GDDAT
:GOOD DATA FOR ERROR TYPEOUT
a(RO)+ ,a#$BDDAT ;TEST DATA
;COMPARE DATA
a#SAVDT ,a#$BDDAT
21%
;BRANCH 1F GOOD
PC,a#ERCS2C
:JUMP TO ERROR FOR CLR (BIT 5)

s IN RHCS2

;*SERIAL NUMBER REGISTER

013436
013444
013450
013456
013460

013737
013037
023737
001402
004737

002012
001126
002012

001124

21%:

001126

MOV
MOV

(MP
BEQ
JSR

013546

¥ SAVSN,@#SGDDAT
.GOOD DATA FOR ERROR TYPEOUT
a8(R0O)+,3#SBDDAT ;TEST DATA
: COMPARE DATA
¥ SAVSN ,a#SBDDAT
22%
;BRANCH 1F GOOD

PC,aNERCS2C

:JUMP TO ERROR FOR CLR (BIT 95)
; IN RHCS2

;*ECCY POSITION
013464
013472
013476
013504
013506

012737
013037
022737
001402
004737

000000
001126
000000

013546

001124

001126

22%:

MOV
MOV

(MP
BEQ
JSR

#0,3#3GDDAT

;GOOD DATA FOR ERROR TYPEOQUT

#0,3#$BDDAT

s COMPARE DATA

9(RO)+,a#$BDDAT ;TEST DATA

23%
PC,aMERCS2C

;*ECC2 PATTERN

;BRANCH 1F GOOD
;JUMP 10 ERROR FOR CLR (BIT 5

:IN RHCS2

SEQ 0064

lalal

MACY11

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CZRJGD.PY

WIWNNINY
=
SsNoSsON

-y

[=]elelel]

2974
2975
2976
977
2978
2979
2980
2981
2982
2983

NN NN
oo

CZRJGDO,RPO4/5/6 DHKLS CTRLR]
10-SEP=79 11:00
CZRJIGD.P11

001402
004737

000000
001126
000000

MACY11

N 5
30A(1052)
10-SEP=79
11:11
PAGE 66
124
CONTROL AMD STATUS 2 (RHC32) = "CLR'

001124

23%:

001126

MOV

(MP
BEQ
JSR

013546

SEQ 0065

#0,3#S8GDDAT

;GOOD DATA FOR ERROR TYPEOUT

#0,3#$BDDAT
24%
PC.a#ERCS2C

; COMPARE DATA
;BRANCH IF GOOD

a(RO)+ ,a#SBDDAT

;TEST DATA

;JUMP TO ERROR FOR CLR (BIT 5)
; IN RHCS2

: *LOOK~-AHEAD REGISTER
013540

24%:

005720

181

(RO)+

;AS THE LOOK-AHEAD REG.
sAFTER AN

INIT

IS NOT

CANNOT BE PREDICTED
CHECKED

;*CURRENT CYLINDER ADDRESS REGISTER
013542

005720

013544
013544

000405

013546
013552

014037

013554
013556

005720
000207

104001

25%:

26%:

042402

187

(RO)+

;AS THE CURRENT REG.

15125

;BRANCH OVER J3R

=(RO),

Q#REGADR ;FAILING REGISTER ADDRFSS

ERCS2C: MOV

ERROR
181

RTS

(RO)+

CANNOT BE PREDICTED

sAFTER A INIT IT IS NOT CHECKED

;CLR (BIT 5) IN RH(CSZ2 DID
:NOT CLEAR APPROPIATE BITS
;OR CLEARED EXTRA BITS
:UNDD -(RO)

FOR BAD DATA

;RETURN TO TEST ABOVE

CIRJGDO,RPO4/5/6 DSKLS CTRLRI

CIRJIGD P11

3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016

3017
3018
3019
3020
3021
3022

3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058

10-SEP=-79 11:00

MACY1

30A(1052)
124

10-SEP-79

11:11

6
PAGE ¢7

SEQ 0066

CONTROL AND STATUS 2 (RW(S2) = 'CLR'

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

TYTEST 25
s

THE PACK ACKNOWLEDGE COMMAND WILL BE LCADED INTO RH(CST WITH GO

RH CLEAR WILL BE GIVEN

2222222222222 202222222202t
ldl

S
s

013560
013562
013566

000004
012706

001000

013574

004737

042732

013600
013606

012777
013777

000001
002102

004037
001632

043424

012737

000025

1§125:
002032

166052
166024

THEN ALL REGISTERS WILL BE CHECKED

THEN ALL REGISTERS wWILL BE

SCOPE

MOV

#STACK,SP

JSR

PC,a#CLDISK

MOv

MOV

FTINO,@#TSTNM

#DMD ,aRHMR

S¥PKACK ,aRHCST1

CHECKED

;RESET

STACK

;THIS SAVES TEST NUMBER

;INIT AND SET UP GENERAL CPU/DEVICE

;REGISTER CORRESPONDENCE AND UNIT NO.
;SET DIAGNOSTIC MODE

;LOAD "‘PACK ACKNOWLEDGE COMMAND'® INTO RH(CSI

;*SAVE REGISTERS FOR COMPARISON AFTER °'GO"' IS ISSUED

JSR

RHWC
REINTO
19.

003160

000023
013626

PACK ACKNOWLEDGE COMMAND TEST

052777

000001

166004

BIS

052737

000100

003210

BIS

RO,a#SAVER

#GO,aRH(ST

: SAVE

; FROM
;10
;NUMBER OF

REGISTERS SAVED

;1SSUE 'GO' TO PACK ACKNOWLEDGE COMMAND

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES
#VV,INREINTO+30 ;SAVED RHDS!

;*AFTER GO HAS BEEN GIVEN TO PACK ACKNOWLEDGE

;*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN
: *BE DONE
004037
001632

JSR

043424

RHWC
WRFROM

002114
000023

RO,a#SAVER

COMMAND

: SAVE

; FROM

;NUMBER OF REGISTERS SAVED

:*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
013654

113737

003205

002141

;*OPERATION THE UPPER BYTE OF RHMAS WILL BE SAVED AS IS
;*SO THAT THE COMPARES ARE QONLY VALID FOR THE LOWER BYTE

MOVB

SFREINTO+25,#WRFROM+25;SAVE UPPER RHAS
<2

;*COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE COMMAND

;*WITH AFTER GO

004037
003160
002114
000023
013702
013702

043626

JSR

REINTO
WRFROM
19.
1%
1%

RO,a#COMPAR

: COMPARE

;GO0D BUFFER
;TEST BUFFER
:NUMBER
;RETURN FOR ERROR
: SAME

013700

013722

013702
013706
013710

013705
060505
016537

013716
013720

013722

MACY11

C
6
30A(1052)
10-SEP=79
11:11
PAGE €38
125
PACK ACKNOWLEDGE COMMAND TEST

;RETURN FOR GOOD COMPARISON

047736

1%:

MOV
ADD
MOV

a#ERWORD,RS
;GETTING READY TO INDEX
R5,RS
;DOUBLE ERROR WORD
RHWC=2(RS) ,@#REGADR ;FAILING REGISTER ADDRESS

104001

ERROR

000207

RTS

001630

042402

2%:

; IMPROPER REGISTER CHANGE
;AFTER PACK ACKNOWLEDGE COMMAND

;WITH GO IS GIVEN

;RETURN TO COMPARISON

;CONTINUE WITH THE NEXT TEST

SEQ 0067

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD P11

CVNE W=00V
NS W =00

s
D
il
il
D
D il
il
il —h -l
—

10-SEP=79

11:11

6
PAGE €9

PACK ACKNOWLEDGE COMMAND

TEST

UNIBUS INIT TEST

;*TEST 26
e
g =
o
A2

000004
012706
012737
004737

001000
000026
042732

1§126:
002032

ALL POSSIBLE REGISTER BITS ARE FILLED WITH ONES
A RESET COMMAND IS GIVEN
ALL REGISTERS ARE CHECKED

SCOPE

MOV
MOV

JSR

2R R0l
d )

#STACK,SP
#TTNO,9#TSTNM

PC.,a#CLDISK

;RESET STACK
;THIS SAVES TEST NUMBER

;INIT AND SET UP GENERAL CPU/DEVICE
;REGISTER CORRESPONDENCE

014062

il il \ JN il

165662
165656
165652
165646
165642
165636
165632
165626
165622
165616
165614
165606

013742
013750
013756
013764
013772
014000
014006
014014
014022
014030
014036
014044

DN D AU D AU A
A AU AU A
NNNNNNNNNNNY
NNNNNNNNNNNY
NNNNNNNNNNNN

;*FILL ALL POSSIBLE REGISTER BITS WITH ONES

014052
014056
014060

N N N N N N N N N NN N NN

3?3;1052)

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

OO0 O0O0O0O0O0O0O0O0O

3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099

MACY1]

000005
004737
053777

014100

005037

MOV
MOV
MOV
MOV
MOv

MOV
MOV

#177777,9RHWC
#177777 ,aRHBA
#157010,8RHCS2
#1476 ,3RHCS]
#177777 ,8RHERT
#17437 ,9RHDST
#177777,dRHER2
#16277 ,aRHOF
#777,3RHCA

#177777 ,RHER3
#DMD ,aRHMR
#177777,9RHMR

;WORD COUNT REGISTER GETS 177777
;BUS ADDRESS REGISTER GETS 177777
;CONTROL AND STATUS 2 GETS 177430
;CONTROL AND STATUS REGISTER 1 GETS 21476
;ERROR REGISTERY GETS 177777
;DESIRED SECTOR TRA(K
;ERROR REGISTER 2
;OFFSET REGISTER
;DESIRED CYLINDER
;ERROR REGISTER 3

;MAINTENANCE REGISTER
;MAINTENANCE REGISTER

;*BEFORE RESET CAVE REGISTERS IN READ INTO BUFFER

JSR

004037
001632
003160
000021

014064
014066
014072

MOV
MOV
BIS
MOV
MOV

RHWC
REINTO
18

RO,a#SAVER

s SAVE

;FROM
;10
:NUMBER

é'GlVE RESET AND REINSTATE UNIT NUMBER
ESET

165536

003166

003176
000400

003206

JSR
BIS

PC,a¥#STKINT
SFUNIT,ARHCS2

sINITIALIZE TK

;*CHANGE ORIGINAL SAVED REGISTERS TO EXPECTED VALUES AFTER RESET
;CLEAR SAVED RHBA
SFREINTO+2
(LR
MOV
@#UNIT,=(SP)
:GET UNIT NUMBER FRO SAVED RM(S?2
; INCLUDE IR
#IR,(SP)
BIS
MOV
(SP)+ ,@#REINTO+4& ;SAVED RH(S?2
#DVA!RDY'!76,Q¥REINTO+6 ;SAVED RH(S!
MOV
: SAVED RHER!
S#REINTO+10
CLR
(LR
SFREINTO*14
: SAVED RHER?2
#116000,a#REINTO+16 ;SAVED RHOF
MOV
(LR
SFREINTO+22
;SAVED RHER3
(LRB
AFREINTO+24
: SAVED RHAS
#6400 ,9#REINTO+26,;SAVED RHMR
MOv

SEQ 0068

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CIRJGD. P

014176
014202
014206

003210
003216
003220

30A(1052)
10-SEP=79
11:11
126
UNIBUS INIT TEST

000700

COVBNO
VS WNN—=O

004037
001632
002114
000021

4%:

113737

003205

014232
014236
014240
014242
014244
014246
014250

004037
003160

043626

014252
014256
014260
014266

(SP)+ ,@#REINTO+30;SAVED RHDSI
@#REINTO+36
; SAVED RHEC!
IFREINTO+40
:SAVED RMEC?2

JSR

RO,a#SAVER

001630

;GET RHDSI
;CLEAR EVERYTHING EXCEPT PROG
;SET EXPECTED BITS = 'DPR', 'DRY' & 'wv'

;s SAVE

:FROM
10
:NUMBER

;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
MOvB
SFREINTO+25,3#WRFROM+25;SAVE UPPER RHAS

002141

;*COMPARE REGISTERS BEFORE RESET WITH REGISTERS AFTER RESET

JSR
REINTO

RO,a#COMPAR

1%:

MOV
ADD

MOV
ERROR

042402

;s COMPARE
;GO0OD BUFFER

sTEST BUFFER
:NUMBER
;RETURN FOR ERROR
; SAME

016537
104001

MOv
CLR
CLR

#*CPROG, (SP)
#700, (SP)

WRFROM
17.
1%
1%

047736

060505

SEQ 0069

a#REINTO+30,-(SP)

RHWC
WRFROM
.

002114
000021
014252
014252
014272

013705

;*AFTER RESET, SAVE REGISTERS FCR COMPARISONS TO BE DONE

043424

014224

6
PAGE

MOV

BIC
BIS

176777

005037

; *CHANGE RHDS1 WITHOUT CHANGING PROG BIT

B el

NN N

il
il

N N N NN

D
i
D
D
D o
i
—

003213

014212
0146216
014220
014222

o WA AN BNV
AN

WIWWWWW
W W W W

014162
014166
014172

MACYT1

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
C(ZRJGD.P11

:RETURN FOR GOOD COMPARISON
a¥ERWORD,RS
RS,RS

;GETTING READY TO INDEX
:DOUBLE ERROR WORD

RHWC=2(RS) ,a#REGADR ;FAILING REGISTER ADDRESS
1
REGISTER CONTENTS AFTER
;A RESET

THAT

IS AN

;UNIBUS INITIALIZE CAUSED
014270
014272

000207

2%:

RTS

;AN IMPROPER REGISTER (HANGE
;RETURN TO COMPARISON
;RETURN TO POINT ON GOOD COMPARISON

CIRJGDO,RPO4/5/6 DSKLS CTRLR]

CZRJGD. P11

10-SEP=79 11:00

MACYT

3165
3166
3167
3168
3169

30A(1052)
10-SEP-79
11:11
126
UNIBUS INIT TEST
LSBTTL

PAGE 71

SEQ 0070

SILO TESTS

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

SeTEST 27
o
g e
sew
A
LA

SILO TST 1

THIS TESTS THE SILO BUFFER IN THE RH11 CONTROLLER
A READ IS ATTEMPTED FROM AN EMPTY SILO
DATA LATE (DLT) (RHCS2), TRANSFER ERROR (TRE) (RWCS1),
SPECIAL CONDITION (SC) (RHCS1) SHOULD SET
THEN LOADING '"1'" INTO TRE SHOULD CLEAR DLT, TRE AND SC

;:'t'tt""'t"t""""t""""""""'lt't'tt'l'tl"'ttt"'t'

014272
014274
014300

000004
012706
012737

001000
000027

1S127:

002032

SCOPE
MOV
MOV

#STACK,SP
#TTNO,a#TSTNM

sRESET STACK
:THIS SAVES TEST NUMBER

:*CHECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RH70
£
BEQ

afRH70
30%

:TEST FLAG FOR RH70 CONTROLLER
:1F FLAG = 1, THIS TEST 1S SKIPPED

014306
014312
014314
014320

005737
001402
000137

002040

014320

004737

062732

JSR

PC,CLDISK

:CLEAR DISK AND LOAD R'S

0146324
014330
014334
014340
014344
014350
014352
014356

017700
013746
052716
004737
022637
001403
010237

165300
001774
100100

MOV
MOV

aRHDB,RO
a#UNIT ,-(SP)

sREAD FROM EMPTY SILO
:GET UNIT NO. IN

JSR
CMP

PC,a¥#PUTREG
(SP)+,an(S2

;SAVE REGISTERS
;1S DATA LATE BIT uP?

104011

014450

30%:

JMP

BIS

042336
001712

BEQ
MOV

001122

ERROR

1S130

#DLT!IR,(SP)
1%
R2,a#$BDADR

:JURP T0 NEXT

TEST eecceccccccccccccccea )

;1F FLAG = 0, DO THIS TEST

:GET DATA LATE BIT AND IR
;s 1F
;1F

YES BRANCH
NOT STORE FAILING REG.

sRHCS2 DID NOT HAVE DLT

sRHCS2 SHOULD HAVE ONLY

:DLT AND UNIT NUMBER (BIT 0-2)
:SELOO‘HER BITS SHOULD

014360

022737

014366
014370
014374

001403
010137
104011

144200

001714

1%:

(MP

#SC'TRE'RDY'DVA,9#CS1

BEQ

MOV
ERROR

001122

R1,3#%BDADR
1

;1S SPECIAL CONDITION, TRANSFER ERROR

:AND READY

;1F

UP?

YES BRANCH

;1F NOT STORE FAILING REG.
:RHCSY DID NOT HAVE SC, DVA
;TRE AND RDY.

AFTER A

:READ FROM EMPTY SILO ONLY
;THESE BITS SHOULD BE UP

014376

012711

040000

014402
014406

004737
022737

042336
004200

014414
014416
014422

001122

2%:
001714

sALL OTHERS SHOULD BE 0

MOV

#TRE ,aR1

JSR

PC,a#PUTREG

:ONE INTO TRE IN RHCST
;SAVE REGISTERS

BEQ

;BRANCH IF YES

(mMp

MOV
ERROR

#RDY'!DVA,a#(S1
R1,3#%BDADR
1M

;CLEAR ERROR BITS BY MOVING

;gELOBl1S BUT RDY AND DVA SHOULD
sSTORE FAILING ADDRESS
JAFTER A ONE IN TRE ONLY

—

CIRJGDO,RPO4/5/6 DSKLS CTRLRT
CIRJGD.PI
10-SEP=-79 11:00
3221
3222
3223
3224

014426
014430

013746
052716

3228

014446

10401

3225
3226
3227

014434
014440
014442

022637
001403
010237

001774
000100

001712
001122

MACY11

30A(1052)
10-SEP=79
127
SILO TST 1

3%:

11:11

MOV
BIS

aNUNIT ,-(SP)
¥IR,(SP)

ERROR

(mpP
BEQ
MOV

(SP)+,anCs?2
15130
R2,a#$BDADR

PAGE 72

SEQ 0071

;READY AND DVA SHOULD BE SET
sRHCST

;RHCS2 SHOULD HAVE IR AND UNIT ONLY
;BRANCH IF YES
;STORE FAILING ADDR
;AFTER A ONE

IN TRE ONLY

3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246

3247

3248
3249
3250
3251
3252

3253
3254
3255
3256
3257
3258
3259
3260
3261
3262

3263
3264
3265
3266
3267
3268
3265
3270
3271
3272
327%
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284

30A(1052)

127

10-SEP- {9
SILO TST

11:11

PAGE

MACY11

SEQ 0072

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

;*TEST 30

THIS TESTS THE IR AND "'OR'' BITS OF RHM(S?2
AT THE BEGINNING IR SHOULD BE SET AND 'OR'’ RESET

LOADING O IN SILO RESETS IR FOR ONLY 2 MICRO SECONDS

THIS TIME CANNOT BE

001000
000030

15130:
002032

22222222

SCOPE

MOV
MOV

#STACK,SP
#TINO,a#TSTNM

;s *(HECK

TO SEE

1871

afRH70
30%

1F¥

014476

004737

042732

JSR

PC,CLDISK

014502
014506
014512
014516
014522
014524
014530

013746
052716

001774
000100
062336
001712

MOV

AFUNIT,=(SP)

001122

MOV

004737
022637
001403
010237
104011

014532
014536
014544
014552
014554
014556
014560
014564
014570
014574
014600
014602
014606

005077
012777
013737

014610
014614
014620

017700
017705
022700

1046415

000000
000200
013746
052716
004737

022637
001403
010237
104011

BEQ

014676

165072
177777

001636

30%:

ERROR

1%:

014554
2%:

001774
000300
042336
001712

3%:

165010

000000

CLR

MCV
MOv

WAT
.WORD
OR
MOV

BIS

JSR
(MpP

BEQ

MOV

001122

165014

JMP

BIS
JSR
(MP
BEQ

165064

15819

#IR, (SP)

MOV
MOV

(me

JRESET STALK
:THIS SAVES TEST NUMBER

;TEST FLAG FOR RH70 CONTROLLER
;1F FLAG = 1, THIS TEST IS SKIPPED
;JUMP

TEST

=eeecccccccccccaca-

;1F FLAG = 0, DO THIS TEST

;CLEAR REGISTERS LOAD R'S

(SP)+,a(s2

;SAVE REGISTERS
;IR SHOULD BE SET "'OR'" RESET

?;.aosaonon

;FAILING REGISTER RHC(S?

PC,a#PUTREG
1%

:RHCS2 DOES NOT HAVE

;SET, UNIT NO. SET AND
aRHDB
#-1,3RHDB

AFRH(S2 ,an2%

:ALL OTHER BITS 0

:LOAD DATA BUFFER (SILO) WITH D
;LOAD SILO WITH ALL ONES
;ADDRESS OF RH(CSZ2
;WALIT

TRAP

:ADDRESS OF RH(SZ2
= (SP)
@FUNIT,
#OR!IR, (SP)
PC,afPUTREG

(SP)+,a#(S2

6%
?fi,atsaouon

ERROR

(%:

THE PROGRAM ]S RUNNING WITH AN RH70

002040

014470
014472
014476

IS CHECKED TO SEE

222222 222022t
llll

005737
001402
000137

014464

CHECKED
IN 30 MICRO SECONDS AGAIN TIME IS NOT
"'OR"" SHOULD BE SET
THE OUTPUT FROM THE SILO SHOULD BE O AND ALL ONES

000004
012706
012737

CHECKED BUT

1T DOES GO DOWN OR NOT
THEN ALL 1 IS LOADED IN SILO "'OR'" SHOULD BECOME SET

014450
014452
014456

SILO TEST 2

aRHDB,RO
oRHDB,RS
#0,R0

SIR AND "'OR"

*SAVE REGISTERS

S1R AND ''OR'* SHOULD BE SET
:SAVE RHCS2 ADDR. FAILING REG.
;'OR' IN RHCS2 SHOULD BE

:SET TOGETHER WITH IR AND
;UNIT NO.

:SAVE SI1LO DATA SHOULD BE 0
:SAVE SILO DATA SHOULD BE ALL !
;FIRST WORD 0?

xyZ DO MORE

TES!

CIRJGDO,RPO&/S5/6 DSKLS CTRLR]
10-SEP=79 11:00
C(IRJGD.P1

CIRJGDO,RPO4/5/6 DSKLS CTRLR]

CIRJGD.PIN

3285

3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300

10-SEP=79 11:00

014624
014626

001410
005037

001124

014632
014636
014644

010037
013737

001126
001630

0146406
014652
014654
014662
014666
014674

022705
001411
012737
010537
013737

177777

104001

177777

001126
001530

MACYT1

30A(1052)
10=-SEP=79
130
SILO TEST 2

042402
5%:

001124

042402

1:1

6
PAGE

SEQ 0073

;BRANCH IF YES
;GOOD DATA

BEQ
CLR

5%
a#$GDDAT

MOV
MOV
ERROR

RO,3#$BDDAT
;BAD DATA
@#RHDB ,@#REGADR ;SAVE RHDB FAILING REG.
1
:SILO DID NOT HAVE THE FIRST WORD

(MP

#-1,RS

MOV
MOV
MOV
ERROR

#-1,3#8GDDAT
RS ,a#$BDDAT
?lRHDB.ilREGADR

BEQ

1S131

;0" WHEN "'OR'" WAS SET
:SECOND WORD ALL ONES?
;BRANCH IF YES
:GOOD DATA
;BAD DATA
;SAVE

RHDB FAILING REG.

:SILO DID NOT HAVE THE SECOND

;WORD OF ALL ONES WHEN "'OR'’
;sWAS

SET

CIRJGDO,RPO4/5/6 DSKLS CTRLR]

CZRJGD.P1Y

10-SEP=-79 11:00

MACYT

3301
3302
3303

3?A(1052)
10-SEP=79
30
SILO TEST 2

NN -

B
D
il
il

VOOV

—

000004

012737

000031

002032

15731

014706
014712
014714
014720

005737
001402
000137

002040

014720
014724
014730
014732
014734
014736
014742
014744
014750
014754
014756
014760
014762
014766

012700
012705
005020
005305
001375
004737
005000
012705
010077
005200
005305
001373
013746
052716
004737
022637
001405
010237
104011
005037
012700
012705
017720
005305

051534
000103

001374
012700
012705
005046
021620
001425
014037
011637
013737
005737
001002

015136

30%:

18:

042732
000102

2%:

164654

THIS TESTS SILO BUFFER BY FILLING IT WITH A COUNT FROM

0 TO 65 AND THEN CHECKING IF

222222222022 2222220222222222RiRiRRRilRRRRlRl
iRl

SCOPE

MOV

181
BEQ
JMP

MOV
MOV

(LR
DEC
BNE
JSR
CLR

MOV
MOV

#TINO,@FTSTNM

001126
001124

001630
002006

#SI1LOTB,RO

SJUMP TO NEXT

TEST ==-emcccecccccacaaa-

s1F FLAG = 0, DO THIS TEST
;TABLE POINTER

#67.,RS
(RO)+
RS
1%

;s COUNTER
;CLEAR TOTAL TABLE
s COUNT
;BRANCH IF NOT COMPLETELY CLEAR

#66. RS

;s COUNT

sg.al(LDXSK
RO,aRHDB

:CLEAR ALL REG.

;LOAD SILO WITH COUNT FROM Q0 10 65

ERROR
CLR

3%
R2.,a#$BDADR
1M
ONERFLGS

;BRANCH IF YES
;SAVE RHCS2 ADR. FAILING REG.

DEC
BNE

RS
4%

MOV
MOV
MOV

MOV
MOV

042402

15132

;TEST FLAG FOR RH70 CONTROLLER
:1F FLAG = 1, THIS TEST IS SKIPPED

;SAVE

MOV

5%:

AIRHT0
308

PC,a#PUTREG

001122

051534
000102

THE PROGRAM 1S RUNNING WITH AN RH70

sNEXT COUNT
;1S 66 LOADS DONE?
;BRANCH IF NOT.

BIS
JSR
(MP
BEQ

4%:

;THIS SAVES TEST NUMBER

RO
RS
2%
o#UNIT ,-(SP)

INC
DEC
BNE

MOV

3%:

IR IS DOWN AND ‘'OR"’

1S HIGH AND COMPARING THE SILO OUTPUT.

001774
000200
042336
001712

002006
051534
000102
164576

SEQ 0074

SILO TEST 3

s *(CHECK T0 SEE

NN N NN NN
NN N NN NN
§

014676
014700

PAGE 75

R RN RN R R R RN R R RN R R RN RN RN RO RROETRRRRORRTRIRRRRRRRRORRRRROEOEOEROEROROROEORY

SeTEST 31

11:11

CLR
(MP
BEQ

MOV
MOV
MOV
181

BNE

#0k, (SP)

(SP)+ , an(sS2

#SILOTB,RO
#66. RS

aRHDB, (RO) +

#SI1LOTB,RO

¥6o. RS

REGISTERS

;"'OR"" SHOULD BE SET IR RESET

:"'OR"" WAS NOT SET, IR WAS NOT
JRESET AFTER SILO WAS FuULL
sPOINTER
;s COUNTER

sREAD SILO

s COUNT
:BRANCH IF

66 NOT DONE

;BRANCH IF

GOOD

sPOINTER

=-(SP)

(SP),(RO)+
7%
=(R0O) ,a#$BDDAT
(SP) ,a#$GDDAT

;BAD DATA
;GOOD DATA

:1F

o#RHDB,a#REGADR ;FAILING REG. RHDB
OFERFLGS
;1S THIS FIRST ERROR?
NOT BRAN(H

I
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375

015100
015102
015104

10-SEP=79 11:00
104012
000401
104013

6%:

ERROR
BR
ERROR

11:11

12
64%
13

PAGE 76

30A(1052)
10-SEP=79
131
SILG TEST 3

SEQ 0075

:THESE TWO ERROR CALLS ARE FOR
:BRANCH TO AVOID PRINTING NEXT ERROR
:THE SAME TYPEOUT.
SILO

;HAD A COUNT WRITTEN IN.
;ON READ OUT AN ERROR WAS

:DETECTED. THE TOTAL SILO
sREADOUT IS IN LOCATION
:'SILOTB'" TO THE NEXT 65

015106

005720

015110
015114
015120
015124
015126
015130
015132
015134

017746
042716
022726
001403
005216
005305
001346
005726

64%:
164024
177577

181
MOV

000200
7%:
10%:

(RO)+

:WORDS.

: INCREMENT

(RO)

aSWR,-(SP)

;ARE FURTHER COMPARES TO
;BE DONE

10%
(SP)
RS
5%

:1F NO MORE COMPARE THEN BRANCH
sNEXT GOOD WORD
: COUNT
;BRANCH IF 66 NOT COMPLETE

BIC
(mp

#*CSW07'SWOB,(SP) ;ONLY KEEP SW7 AND SW8
#SW07,(SP)+
:TEST SwO7

151

(SP)+

BEQ
INC
DEC
BNE

:POP STACK

CZRJIGD.P11

MACY11

CIZRJGDO,RPO4/S5/6 DSKLS CTRLRI

CIRJGDO,RPO4/S5/6 DSKLS CTRLRI

CZRJGD.PY

3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3610
3411
3412
3413
3414

10-SEP=-79 11:00

MACYT

30A(1052)

135

3~ (2222

10-SEP=-79

SILO TEST 3

TeTEST 32
A
015136
015140

000004
012737

000032

002032

2222222222222

005737
001402
000137

002040

2222222222202

1§132:

SCOPE

MOV

015160

004737

062732

015164
015166
015170
015174
015200
015202
015204

005000
005200
010077
022700
001401
000771
004737

015210
015216
015220
015224
015226
015234
015242
015250
015252
015260

032737
001003
010237

015160

104011

017737
012737
023737
001404
013737
104012

1%:

1646434

100000

2%:

001712

001126
001124
001126

001630

042402

3%:

dd)

220222l

#TINO,@#TSTNM

RRRRRdlldld)

;THIS SAVES TEST NUMBER

IF THE PROGRAM IS RUNNING WITH AN RH70

PC,a#CLDISK

;CLEAR DISK REG.

CLR

:CLEAR RO

:BRANCH IF

INC

BEQ
BR
JSR

MOV

164376
000001
001124

JSR

BIT
BNE

001122

ddRRt

JMP

CMpP

042336

:TEST FLAG FOR RH70 CONTROLLER
:1F FLAG = 1, THIS TEST 1S SKIPPED
:JUMP TO NEXT TEST eececccccccccccccceas )

MOV

000103

22222220

3¥RH70
30%
15133

1S7

30%:

2222222220202

SEQ 0076

EVEN AFTER THE 67TH. WORD INPUT THE FIRST WORD SHOULD NOT CHANGE

BEQ

015262

PAGE 77

SILO TEST4

;s *CHECK TO SEE

015146
015152
015154

NOW PUT 67 WORDS INTO SILO AND CHECK FOR DLT

ee
A2

11:11

ERROR
MOV

MOV

CMP
BEQ

MOV

ERROR

RO
RO,aRHDB
#67..R0
1%
PC,3#PUTREG

;1F FLAG = 0, DO THIS TEST

sADD 1
;LOAD SILO
;67 DONE?

YES

:NO SO BRANCH
;SAVE REGISTERS

#DLT ,aX(CS2

;DLT SET?

R2.a#$BDADR
1"

:FAILING ADDRESS RH(S?
:DATA LATE DID NOT SET AT 67TH.

#1,3#8GDDAT

:GOOD DATA

oRHDB ,a#$BDDAT

;BRANCH IF

YES

;INPUT TO SILO

a#$GDDAT ,a#$BDDAT ; COMPARE
15133
;BRANCH IF GOCD
o#RHDB,a#REGADR ;FAILING REG. RHDB
12
:WORD IN RHDB CHANGED
;AFTER THE 67TH INPUT,

1
3616
3617
3418
3419
3420
3421
3622
3423
3424
3425
3426
3627 015262
3428
3629 015264
3430
3431
3432
3433 015272
3434 015276
3435 015300
3436 015304
3437
3438 015304
,
3439
3440 015310
015314
3441
3442 015320
3443 015324
3464 015330
3445 015332
3446 015336
3447
3448 015340
3449 015344
3450 015346
3451
3452 015350

3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471

015352
015356
015360
015366
015370
015372
015374
015400
015404
015410
015414
015420
015422
015426
015430
015434
015440
015442

10-SEP-79 11:00

30A(1052)
10-SEP-79
132
SILO TEST4

11:11

PAGE 78

SEQ 0077

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

;*TEST 33
A

SILO TEST §
THE SILO IS LOADED WITH 0,1,2,3 THEN AFTER
'OR" IS UP A CLR IN RHCS2 IS DONE THEN &,
1S LOADED. AFTER "OR' IS UP 2 READS FROM

SILO ARE DONE, ON THE LAST, 'DTL"' IN RHCS2 SHOULD BE SET.
e

A22222222222222l
iRl
Rt Rl Rl d)

000004

012737

SCOPE

000033

002032

MOV

#TINO,Q#TSTNM

;*CHECK TO SEE

005737
001402

002040

151

BEQ
JMP

;THIS SAVES TEST NUMBER

IF THE PROGRAM IS RUNNING WITH AN RH70

afRH70
30%
15134

:TEST FLAG FOR RH70 CONTROLLER
:1F FLAG = 1, THIS TEST IS SKIPPED

000137

015562

004737

042732

JSR

PC.am#CLDISK

;CLEAR DISK

013746
052716
004737
022637
001403
010237

001774
000100
042336
001712

MOV

afUNIT ,-(SP)

;GET UNIT NO.

001122

MOV

013700

001630

1064011

005001
010110
005201
022701

103373
013737
104415
000000
000200
004737
013746
052716
004737
022637

30%:

BIS
JSR

(MP

BEQ

ERROR

1%:

MOV

2%:

MOV

INC
(MP
BHIS

000004

001636

015370

MOV

3%:

WAT
.WORD

JSR

042732
001774
000100
042336
001712

MOV

BIS
JSR
cMp
BEQ

001122

001630
000004

CLR

MOV

ERROR

4%:

MOV
MOV
MOV
MOV

#IR, (SP)
PC,a#PUTREG

%zP)’.il(SZ

?%.BISBDADR

‘ilRHDB.RO
R1
R1,3R0

:JUMP

;1F

TEST

FLAG = 0, DO THIS TEST

;SET INPUT READY
;SAVE REGISTERS
:1R SHOULD BE SET "'OR'" CLEARED

;BRANCH IF GOOD

;FAILING REGISTER RHCSZ

:RHCS2 DOES NOT HAVE IR SET
:AND ALL OTHER BITS O
;RO HAS RHDR ADDRESS
;DATA

;0, THEN 1 THEN 2 THEN 3

R1
¥, R1

;IN RHDB
;s INCREMENT DATA
;1S & DONE
;BRANCH 1F NO1

:RHCS2 ADDRESS

2%
SFRHCS2 ,an3%

PC,a#(LDISK

- (SP)
@#UNIT
¥1R, (SP)
PC,a#PUTREG

(2P)°.30CSZ

?%.SISBDADR
2#RHDB,RO

#4,9R0

aR2.R1
R0 ,RS

=ecccccccccccccccee

:WAIT FOR ''OR"

:WAIT ON OR.
:CLR IN RH(CS2
:UNIT NO.

:SAVE REGISTERS
;IR SHOULD BE SET "'0''=0
:BRANCH 1F GOOD

;FAILING REGISTER RH(S2
;RHCS2 DOES NOT HAVE IR SET
sAND ALL OTHER 8ITS 0
;RO HAS RHDB ADDRESS

:LOAD & IN SILO
:SAVE RH(S?2
;READ THE &

IN SILO

P—T-—-

CZRJGD.PIY

MACY11

lalal

CIRJGDO,RPO4/5/6 DSKLS CTRLRI

015504

005703

015506
015510
015514
015520
015524

001407
010037
005037
010337

11204

2701

000200

2705

000004
042492
000004
001126

14624

1410

04001

104001

032704
001013
013746
052716
012637
010437
010237
104001

100000

001774

100300

001124
001126
042402

BEQ
(mMp

(31
¥4 ,RS

:1F OR 1S NOT SET BRANCH
:SILO & 1S NOW COMPARED

MOV
MOV

RO,3#REGADR
#4 ,a08GDDAT

:SILO ADDRESS
;GOOD DATA

ERROR

:SILO DID NOT CONTAIN WORD
:PUT IN AFTER "'OR'" WAS UP

#0R,R1
5%

RS ,a3#$BDDAT

;TEST FOR OR IN RH(CS2

:BAD DATA

187

BEQ

;BRANCH IF GOOD

CLR
MOV
ERROR

a#$GDDAT
R3,a#$BDDAT
1

:GO0OD DATA
;BAD DATA
:SILO SHOULD Bt ZERO

MOV

6%:

SEQ 0078

sREAD SILO TO GET DLT
;:SAVE RHCS2

MOV

042402
001124
001126

PAGE 79

oR0,R3
aR2,R4

BEQ

5%:

MOV
MOV

BI1

001124

11:11

RO,3#REGADR

;1S

17 ZERO BECAUSE SILO

;1S DESTRUCTIVE READ
:SILO ADDRESS

;AFTER THE ONE WORD PUT

BIT

#DLT,RG

MOV
BIS
MOV
MOV

a#UNIT ,-(SP)
#DLT!OR'IR,(SP)
(SP)+ ,a#%GDDAT
R4 ,a#$BDDAT

:GET UNIT NO
;
;GOOD DATA
;BAD DATA

ERROR

:DATA LATE

BNE

MOV

TS134

R2.,9#REGADR

:HAS BEEN TAKEN OUT AS
:SILO IS A DESTRUCTIVE READ
-

;BRANCH IF DLT SET

:RHCS2 ADDRESS

ERROR

—T—

30A(1052)
10-SEP=79
133
SILO TEST S

MACY11

015444
015446
015450
015454
015456
015462
015464
015470
015476
015502

3472
3473
3674
3475
3476
3477
3478
3479

~OO000O0000O o
—
-t
2 OO W
—
o
o
o
w
o

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=79 11:00
C(ZRJGD.P11

CZRJGD. P

3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
3%
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537

10-SEP-79 11:00

10-SEP=79
30A( 1052)
133
SILO TEST 5

.SBTTL

11:11

PAGE &0

SEQ 0079

MORE REGISTER TESTS

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

;*TEST 34
e

TEST ODD BYTE INSTRUCTION ON RHCS1 = RH11

RDY (BIT 07) AND DVA (BIT 11) SHOULD ALWAYS BE SET

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

015562

000004

015564

012737

1S134:

000034

002032

SCOPE
Mov

#TINO,Q¥TSTNM

;THIS SAVES TEST NUMBER

;*CHECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RH70
187
BEQ

a¥RHT70
30%

;TEST FLAG FOR RH70 CONTROLLER
;1F FLAG = 1, THIS TEST IS SKIPPED

005737
001402
000137

002040

012706
004737

001000
042732

MOV

#STACK,SP

;RESET

012711
010146

003566

MOv
MOV

#3566 ,aR1
R1,-(SP)

;LOAD RHCS1 WITH ANY NUMBER
;GETTING READY TO FORM ODD BYTE

MOV

aR1,3#$BDDAT

BEQ
MOV

%
:BRANCH IF GOOD
#2566!DVA!RDY ,a#$GDDAT ;GOOD DATA

005216
112736

011137
022737
001406
012737
010137
104001

015720

000005
001126

30%:

JMP

JSR

INC
MOVB

006766

001126

006766
042402

001124

CMP

MOV
ERROR

TS135

PC,CLDISK

(SP)
#5,3(SP)+

IJURP 19 NERTY TE31 =emamewammmsnneiicom

;1F FLAG = 0, DO THIS TEST
STACK

:CLEAR DISK REG.

;SP NOW HAS ODD BYTE FOR RHCS!
;MOVE 5 INTO CuD BYTE FOR RHCS!
: TEST DATA

#2566 !DVA'RDY ,a#$BDDAT ;RHCS1 SHOULD HAVE 6766

R1,9¥#REGADR
1

;FAILING REGISTER RHCS1
;MOVING A NUMBER INTO

;0DD BYTE OF RHCS!1 GAVE
;WRONG RESULTS

3538
3539
3540
3541
3542
3543
3544

000032
001126
006632
006632
042402

3545

3546

3547
3548
3549
3550

MACY1]

015714

000137

016040

1%:

001126
001124

MOVB

#32,3R1

;MOVE

INTO EVEN BYTE

MOV
CMP
BEQ

aR1,a¥#$BODAY
; TEST DATA
#24632'DVA!RDY,a#$BDDAT ;RHCS1 SHOULD HAVE 6632
15136
;00 NEXT RH11 TEST IF GOOD =============c=-

ERROR

;MOVING A NUMBER INTO EVEN
;BYTE OF RHCS1 GAVE WRONG
;RESULT

15136

:SKIP RN70 TEST eeovccccccasccsnnsanscse

MOV
MOV

JMP

#2432'DVAIRDY ,a#$GDDAT ;GOOD DATA
R1,9#REGADR
;FAILING REGISTER RH(S!

latal

CIZRJGDO,RPO4/5/6 DSKLS CTRLRY

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00

CZRJGD P11

MACYTT

SEQ 0080

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

S+TEST 35
§oe

TEST ODD BYTE

INSTRUCTION ON RHCS1

= RH70

ROY (BIT O7) AND DVA (BIT 11) SHOULD ALWAYS BE SET

Al2222222222222ttt

15135:

000004

012737
012706
004737

000035
001000
042732

01271
010146
005216

003566
000005
001126

022737
001406
012737
010137

004766

001126

004766
042402

001124

104001

000032
001126
004¢32
004632
042402

MOV
MOV

#TTNO,QNTSTNM
FSTACK,SP
PC,CLDISK

;THIS SAVES TEST NUMBER
;RESET STACK
;CLEAR DISK REG.

MOV
MOV
INC
MOvVB
MoV

#3566 ,aR1

;LOAD RHCS1

CMP
BEQ

#566'DVA!RDY ,a#$BDDAT

JSR

112736

011137

016004
016010
016014
016022
016024
016032
016036

002032

SCOPE

MOV
MOV

001126

001124

WITH ANY NUMBER

;GETTING READY TO FORM ODD BYTE
:SP NOW HAS ODD BYTE FOR RHCS!
;MOVE 5 INTO ODD BYTE FOR RHCS1
;TEST DATA
;RHCS1

SHOULD HAVE 4766

1%
:BRANCH IF GOOD
#566'DVA!RDY ,a#$GDDAT ;GOOD DATA

R1,9#REGADR
1

;FAILING REGISTER RHCS1
;MOVING A NUMBER INTO

MOV

#32,3R1
aR1,a#$BDDAT

;MOVE INTO EVEN BYTE
; TEST DATA

MOV
MOV

R1,9#REGADR

ERROR

1%:

R1,-(SP)
(SP)
#5,3(SP)+
aR1,a#$BODAT

MOVB

(MP
BEQ
ERROR

;0DD BYTE OF RHCS1 GAVE
;WRONG RESULTS

#632'DVA'RDY,a¥#SBDDAT ;RHCS1 SHOULD HAVE 4632
15136
; ;BRANCH IF GOOD
#432'DVA'RDY ,a#$GDDAT
1

;GOOD DATA

;FAILING REGISTER RHCS]

;MOVING A NUMBER INTO EVEN

;BYTE OF RHCS1 GAVE WRONG
;RESULTS

lalal

7
30A(1052)
10-SEP=79
11:11
PAGE 81
134
TEST ODD BYTE INSTRUCTION ON RHCS1 = RH11
C

;*TEST 36
3 ve
e

016040

000004

016042

012737

000036

IR (BIT 06) AND THE UNIT SELECT (BIT 0-2) wWILL BE SET

2222222

15$136:
002032

TEST ODD BYTE INSTRUCTION ON RHCS2

22222222 2222222222222 2222222222222l

SCOPE

MOV

FTTNO,Q#TSTNM

;*CHECK TO SEE

016050
016054
016056
016062

005737
001402
000137

002040

016062

004737

042732

016066
016072
016074
016076
016100
016104
016110
016114

052712
010246
005216
105036
013746
052716
011237
022637

177000

016120
016122
016130
016136
016142

001411

NNNOoOOoON

001774
020110
001124
001126
001126

A
i

016206
016210
016214

001774
000010
020000

OONOENNO
WWW—=I
—

016160
016162
016166
016172
016176
016202

013746
052716
052712
==

016154

30%:

042402

;TEST FLAG FOR RH70 CONTROLLER
;1F FLAG = 1, THIS TEST IS SKIPPED
UMD 19 NERT TES| wwemeeacwewansmanes
;1F FLAG = 0, DO THIS TEST

JSR

PC,a#CLDISK

;GIVE INIT B SETUP REGISTER CORRES

BIS

#177000, (R2)
R2,=(SP)
(SP)
a(SP)+
aNUNIT, =-(SP)
#IR, (SP)
aR2,a#$BODAT
(SP)+,9#%BDDAT

;LOAD RHCS?2
;GETTING READY FOR ODD BYTE
;SP NOW HAS ODD BYTE FOR RH(S2
;CLERR RHCS2 ODD BYTE
;GET UNIT NO.
;INPUT READY AS IT IS SET
;TEST DATA
;COMPARE TO SEE THAT

MOV

BIS

MOV

CmMP

BEQ

MOV

BIS
MOV
ERROR
1%:

IF THE PROGRAM IS RUNNING WITH AN RH70

afRH70
30%
1S137

INC
CLRB

001124
001124

;THIS SAVES TEST NUMBER

TST
BEQ
JMP

MOV

001774
000100
001126
001126

001774
000100
062402

O00O00O-—
L
Y
L

016144
016150

016216

013737
052737
010237
104001

oS
OWO

3637
3638
3639
3640
3641

;;'"""""""""'""""""""""""""'"""""""

—-00
o_ao
SO

3589
3590
3591
3992
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
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

10-SEP=79 11:00

MOV

BIS
BIS
MOVB

QFUNIT, a#SGDDAT
FIR,

R2,
1

a#$GDDAT

;""CLRB"" DID CLEAR
;GOOD DATA

Q¥REGADR ;FAILING REGISTER RHCS?2
;CLEARING ODD BYTE OF RHCS2
:GAVE WRONG RESULTS

a¥UNIT, -(SP)
#BAI,

(SP)

(SP)+,

aR2

#UPE ,aR2

;HAVE UPE AND MPE IN RH(S2
;BESIDES UNIT SELECT
;MOVE INTO EVEN BYTE OF RH(S?2

MOV

aFUNIT, =(SP)

MOV
MOV
CMF

a#$GDDAT ;GOOD DATA
(SP),
;TEST DATA
aR2,a#$BODAT
(SP)+,3#%BDDAT
;COMPARE TO SEE THAT MOVB DID
;MOVE EVEN BYTE ONLY
15137
; :BRANCH IF GOOD
R2,a#REGADR
;FAILING REGISTER RH(S?2
;MOVING A NUMBER INTO EVEN
1
;BYTE OF RH(S2 GAVE WRONG
;RESULTS

BIS

BEQ

MOV

ERROR

,
(SP)
#UPE!IR!BAl

SEQ 0081

lalal

CZRJGDO,RPO4/S5/6 DSKLS CTRLRI

CZRJGD PN

7
MACY1 30A(1052)
10-SEP=79
11:11
PAGE &2
135
TEST ODD BYTE INSTRUCTION ON RHCST = RH70
0D

3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672
3673

MACY1T

30A(1052)
10-SEP-79
11:11
PAGE 83
136
TEST ODD BYTE INSTRUCTION ON RHCS2

SEQ (0082

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

CDD BYTE TEST ON RHWC

;*TEST 37

IN THIS REGISTER NO BITS SHOULD BE PERMANENTLY SET

v
R

1$137:

016216

000004

016220
016226
016232
016236
016242
016246
016250
016252
016256
016262
016270
016272
016300
016304

012737
012706
004737
013704
012714
112736
011437
022737
001406
012737
010437

000377
001126

016306
016312
016316
016324
016326
016334

112714
011437
022737
001406
012737
010437

000123
001126
177523

016340

010446

005216

104001

000037
001000
062732
001632
025252

002032

RN R R RN R PR RN R RE R RN RN RRRRTRERRRRRRRRROERRNRRRROEROERORRRERCERORRRTY

SCOPE

MOv
MOV

JSR
MOV
MOV
MOV
INC

MOvVB

177652

001126

177652
042402

001124

177523
042402

R RN

MOV
(MP
BEQ
MOV
MOV

ERROR

1%:

001126

001124

MOVB

MOV
(MP
BEQ

MOV
MOV
ERROR

FTINO,@#TSTNM
#STACK,SP

PC,CLDISK
ofRHW(C, R4
#25252, aR4
R4,
-(SP)
(SP)

;THIS SAVES TEST NUMBER
;RESET STACK

;CLEAR DISK REGISTERS
:R& NOW IS WORD COUNT REGISTER
;LOAD RHWC
:GETTING READY TO FORM ODD BYTE
:SP NOW HAS ODD BYTE FOR RHW(C
;MOVE 377 INTO ODD BYTE OF RHW(

#377,
@(SP)+
oR4 ,a¥#$BDDAT
;TEST DATA
#177652,a#%BDDAT; COMPARE TO SEE IF MOVB DID OK
1%
;BRANCH 1F GOOD
#177652,a#8GDDAT ;GOOD DATA
R&,
9#REGADR ;REGISTER FAILING RHWC

#123,

aR4

sMOVING INTO ODD BYTE OF RHWC
;GAVE WRONG RESULTS
;MOVE

INTO EVEN BYTE OF

R4 ,a¥#$BODAT
;TEST DATA
#177523 ,a#$BDDAT
15140
: ;BRANCH IF GOOD

#177523,a#8GDDAT ;GOOD DATA
?4.
OFREGADR ;REGISTER FAILING RHW(

RHWC

TMTM

CIRJGDO,RPD4/S5/6 DSKLS CTRLRY
10-SEP=79 11:00
(ZRJGD.PIN

—

Fo—r—

—

3674
3675
3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3693
3694
3695
3696

3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707

MACYTT

30A(1052)
10-SEP=79
11:11
PAGE &4
137
ODD BYTE TEST ON RHWC

il 2R A

TeTEST 40
gre
e

000004

016344
016350
016356
016362
016366
016372
016374
016376
016402
016406

012706
012737
004737
013704
012714
010446
005216
112736
011437
022737
001406
012737
010437

001000
000040
042732
001634
025253

112714

000125
001126

016414
016416
016424
016430

016432
016436

016442
016450
016452
016460
016464

104001

011437
022737

001406
012737
010437
104001

177652

001126

MOV
MOV
MOV
INC
MOVB
MOV
(MP

177652
042402

001124

177524

001126

177524
042402

001124

TEST ODD BYTE

INSTRUCTION ON RHBA

SCOPE

002032

JSR

BEQ

MOV
MOV

1%:

AR ARttt
ll

BIT 0 SHCULD ALWAYS BE 0

MOV
MOV

000377
001126

222222230222222322222322222220222222200222
2
Rl ll )

1§140:

016342

SEQ 0083

#STACK,SP
#TINO,@#TSTNM
PC,CLDISK

a¥RHBA, Ré&

;R4 HAS ADDRESS OF RHBA

R4 ,a#SBDDAT

;TEST DATA

#25253, aR4
R&,
-{$P)
(SP)
#377,
a(SP)+

R&,
1

MOvVB
MOV

aR4& ,a¥$BDDAT

MOV
MOV

ERROR

:LOAD RHBA
;GETTING READY FOR ODD BYTE
;SP HAS ODD BYTE ADR. OF RHBA
;LOAD ODD BYTE OF RHBA

#177652,a¥#%BDDAT; COMPARE MOVB RESULTS
%
;BRANCH IF GOOD
#177652,a#%GDDAT;GOOD DATA

ERROR

(MP
BEQ

;RESET STACK
;THIS SAVES TEST NUMBER

#125,

O#REGADR ;FAILING REGISTER RHBA
;MOVING INTO ODD BYTE OF
;RHBA GAVE WRONG RESULTS
R4

;TEST DATA

#177524 ,0#$BDDAT
18741
: :BRANCH IF GOOD
#177524 ,a#8GDDAT;GOOD DATA
R&,
O#REGADR ;FAILING REGISTER RHBA
1
;MOVING INTO EVEN BYTE OFf
;RHBA GAVE

WRONG RESULTS

1
(T
]

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00

CZRJGD PN

Ta————

JE,

|
10-SEP=-79 11:00

6 7
30A(1052)
10-SEP=-79
11:11
PAGE 85
140
TEST ODD BYTE INSTRUCTION ON RHBA

OOV
NI
N —

NN NNNNNNNN
[o P
I R R R

WL WWWWWN
NN NN W

.SBTTL

SEQ 0084

DCL COMMAND TESTS

R R
R

e
i
o
: ¥e
g o

FOUR GENERAL REGISTERS WILL BE RESERVED FOR HARDWARE
R1=RHCS1 CONTROL AND STATUS!
R2=RH(S2 CONTROL AND STATUSZ2
R3=RHDS1 DRIVE STATUS |
R4=RHER1 ERROR REGISTER1

o
g

WHENEVER ANY OTHER USE IS MADE OF THESE REGISTERS
APPROPIATE SAVING MUST BE DONE

L
R
Y

L R
R R
R

A i
s
§ o

ERROR REGISTER #01 (RHER1) TEST
BIT #1 (ILLEGAL REGISTER) CANNOT BE TESTED ON PDP11 THIS BIT
IS FOR PDP10 USE ONLY

R
R R

R
R
R
AL

STEST 41
st
A

TEST ILF BIT #0 IN REG. RHER1

ALL 3 ILLEGAL FUNCTION CODES SHOULD SET = ATA,ERR,ILF = AND ARE TESTED
A GO WITHOUT CLEARING ILF ERR SHOULD SET = MXF,DLT,TRE = BITS AND THEY ARE ALSO

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

3747
3748

3755
3756

3763

016466

000004

016470
016474
016502
016506
016514
016520
016524
016530
016534
016536
016544
016546

012706
012737
004737

016550
016552
016560
016562
016570

001367
032737
001077
013737
062737

012777
005037
012700
012705
023720
001004
062737
000765
005305

1ST41:

001000
000041

062732
000001
002022
002044
000021
002022
000002

163144

1%:

2%:

002022
000002

002106
002022

#STACK,SP

SRESET

(LR
MOV
MOV

afTMPILL
#FUTABL,RO
#7.,RS

;GET READY TO MAKE ILLEGAL FUNCTION
;LOAD FUNCTION CODE TABLE START
;COUNTER (16 GOOD FUNCTIONS)

{MP

BNE

ADD

002022

MOV

MOV
JSR
MOV

002032

3%:
000100

SCOPE

#TTNO,@#TSTNM
PC,a#CLDISK
#DMD ,aRHMR

:NO - DECR. FUNCT. CODE CTR

sTEST NEXT FUNCTION CODE

¥2,9fTMPILL

BNE

BNE
MGCv

ADD

;THIS SAVES TEST NUMBER
;CLEAR REGISTERS
;SET DIAGNOSTIC MODE

aFTMPILL,(RO)+
3%

DEC

STACK

#100,a#TMPILL
12%

;IS THIS A LEGAL FUNCTION CODE?
;YES MAKE NEXT FUNCTION CODE

;MAKE NEXT CODE IF 1ST 16
sLEGAL FUNCTIONS NOT DONE
;BRANCH IF 16 NOT COMPLETE
;ALL BITS UP T0 BIT IS COMPARED?
:VES = BN} wevenee

S#TMPILL,@#ILLEGL;NO = TEST THE lLLfGAL FUNCTION
#2,90TMPILL
;TEST NEW FUNCTION CODE NEXT TIME

r~NN~N

CZRJGD.PT

MACY1]

lalal

CIRJGDO,RPO4/5/6 DSKLS CTRLRI

3764
3765
3766
3767
3768
3769
3770
377
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787

3788

3789
3790
3791
3792
3793
3794
3795
3796
3797

3798
3799
3800
3801
3802

3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819

062732
000001
072106
016576
042336
001716

016576
016602
016610
016614
016622
016626
016632
016634
016640

MACY11

30AC1052)
10-SEP=79
11:11
PAGE 86
TEST ILF BIT #0 IN REG. RHER!
141

163050

JSR

PC,afCLDISK

MOV
MOV

af [LLEGL ,aR1

181

afER]
5%
R4 ,a#$BDADR

MOV

001110

JSR

BEQ

001122

MOV

ERROR

SEQ 0085

#DMD ,aRHMR

;SET DIAGNOSTIC MODE

#48 ,a#SLPERR
PC,a#PUTREG

;ERROR RETURN POINT
;SAVE REGISTERS

;ILLEGAL FUNCTION ===> RH(S1

;THERE SHOULD NOT BE ANY ERROR YET
sCONTINUE IF RMERT STILL = 0
;FAILING REGISTER ADDRESS RHERI1
sALTHOUGH AN 1LLEGAL FUNCTION

;HAS BEEN MOVED INTO RH(CS1
:NO ERRORS SHOULD SHOW TILL
;G0 IS SET RHER1 SHOULD BE
;ALL ZEROS

016642
016646
016652
016660
016662
016666

052711
004737

016670
016674
016700

013746
042716
022726

016704
016706
016714

022737
001403
010437
104011

001404
013737
104011

000001

042336
000001

5%:

001716

001122

#G0,aR1
PC,a#PUTREG
FILF ,QWER]

;G0 IN RHCS!
:SAVE REGISTERS
;ILLEGAL FUNCTION BIT

ERROR

;ILLEGAL FUNCTION DID NOT

MOV

6%:

001736
001000
140700

001662

BIS
JSR
(MP
BEQ

001122

MOV

6%
R4 ,a#$BDADR

a#DS1,=(SP)

;1T IS = CONTINUE
;FAILING REGISTER ADDRESS RHER1

;GET RHDS!

(MpP

BEQ

MOV

ERROR

SET

;SET ON AN ILLEGAL FUNCTION
;EXECUTION, THE ILLEGAL FUNCTION
;BEING EXECUTED IS IN RHCSI

#PROG, (SP)
;MASK PROG
#ATA'ERR!VV!DPR!DRY,
(SP)+

BIC

SHOULD BE

;ATTENTION (BIT 15)
;VOLUME VALID (BIT 6)
;:COMPOSIT ERROR (BIT 14)
;DEVICE READY (BIT 7) SHOULD

;BE SET ON RHDS!

;:THEY ARE = CONTINUE

a¥RHDS1,a#$BDADR ;FAILING REGISTER ADDRESS RHDS1
1"

;FOLLOWING BITS SHOULD BE SET
;WITH AN ILLEGAL FUNCTION

;ATTENTION (BIT

15)

;COMPOSIT ERROR (BIT 14)
;MEDIUM ON LINE (BIT 12)
;DEVICE READY (BIT 7)
016716

004737

7%:

045172

JSR

PC,a#MIDDLE

;GIVE A WRITE HEADER AND
;DATA COMMAND WiTHOUT

;CLEARING THE ERRORS

;USING '"MIDDLE'" SO THAT
;17T WwiLL COME BACK BEFORE
016722
016726
016730
016732
016734

010237

004737

042336

016740

032737

040000

104415
000000
001000

016730
10%:

11%:

001714

;THE END TO FIND OQUT
;STATE

MOV

R2.,a#10%

.WORD

JSR

PC,a#PUTREG

;SAVE

BIT

#TRE ,9#(S1

;TRANSFER ERROR (BIT

WAT

MxFf

ITS

;MOVE RHCS2 ADDRESS

;WAIT FOR 'MXF' BIT

;ADDRESS OF RH(S?
REGISTERS

14) RM(S! = "TRE’

;SHOULD SET DUE 1O '"Mxf'

lale

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CZRJGD.PY 1

|
10-SEP=79 11:00
001003
010137
104011

1461

10-SEP-79

PAGE &7

TEST ILF BIT #0 IN REG. RHER!

3820
3821
3822
3823

016746
016750
016754

BNE
MOV
ERROR

gggg

016756

000660

13%:

3828
3829

016760

000240

12%:

NOP

001122

11:11

13%
R1,3#$BDADR
11

gggg

;17T 1S = CONTINUE
FAILING REGISTER RHCS1
:TRANSFER ERROR (BIT 14) RHCS! = 'TRE’
;SHOULD BE SET DUE TO 'Mxf'

:LOCAL SCOPE RETURN POINT

;60 BACK & TEST NEXT FUNCTION CODE

SEQ 0086
:

CIRJGD.PI

MACY11 30A(1052)

[
]

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1

1
3830
3831
3832

30A(1052)
10-SEP=79
11:11
PAGE 88
T4
TEST ILF BIT #0 IN REG. RHER1

SEQ 0087

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

3833
3834
3835
3836
3837
3838

SeTEST 42
A
M

ALL
THE
THE
ALL

READ IN PRESET

POSSIBLE REGISTERS WILL BE FILLED WITH ONES
REGISTER CONTENTS WILL BE SAVED IN REINTO BUFFER
READ IN PRESET COMMAND WILL BE GIVEN
REGISTERS WILL BE CHECKED

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

016762
016764
016770

000004
012706
012737

001000
000042

016776

004737

042732

15142
002032

SCOPE
MOV
MOV

#STACK,SP
#TINO,@#TSTNM

;RESET STACK
;THIS SAVES TEST NUMBER

JSR

PC,a#CLDISK

;INIT AND SET GENERAL REGISTERS

;*FILL ALL POSSIBLE BITS WITH ONES

3870

3875
3876
3877

3881
3882

3885

[=lelolelelolelele)

177777

017002
017010
017016
017024
017032
017040
017044
017250
017054
017062
017066
017070
017072

004037
001632

043424

052777

000001

177777
017437

016377
000777
001400
002104
162564
000001

162622
162616
162620
162616
162612

MOV
MOV
MOV
MOV

162576

MOV

MOV
MOV
BIS
MOV

#177777,8RHWC
#177777 ,8RHBA
#17437 ,8RHDST
#16377,9RHOF

#777 ,8RHCA
#A16'A17,-(SP)
9#READIN, (SP)
(SP)+ ,aRHCS1
#DMD ,3RHMR

;WORD COUNT REGISTER GETS 177777
;BUS ADDRESS REGISTER GETS 177777
;DESIRED SECTOR TRACK GETS 17437
;OFFSET REGISTER GETS 16277
;DESIRED CYLINDER GETS 777
;GET BIT 9 AND 8

;FILL READ IN PRESET
;SET DIAGNOSTIC MODE

IN RHCS!

;*THE REGISTERS wiLL BE SAVED IN REINTO BUFFER

JSR

RHWC
REINTO
17.

003160
000021

162536

RO,a#SAVER

s SAVE

;FROM
;10
;NUMBER SAVED

;*GIVE READ IN PRESET COMMAND
:INCLUDE GO TO READ IN PRESET
#G0,aRHCST
BIS
;*NOW SAVED REGISTERS WILL BE CHANGED TO EXPECTED VALUE
;CLEAR SAVED RHDST
SFREINTO+12
CLR

005037
042737

003172

016000

003176

BIC

ECI IN
#FMT22'HCI'EC] ,@#REINTO+16 ;CLEAR FMT22,MCI

052737
005037

000100
003200

003176

BIS

#VV, IFREINTO+16 ;SET vv IN SAVED RHOF

CLR

s SAVED RHOF

9#REINTO0+20

:CLEAR SAVED RHCA

;*AFTER A READ IN PRESET COMMAND

;*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE

004037
001632
002114
000021

0463424

JSR

RHW(

WRFROM
17.

RO,a#SAVER

: SAVE

;FROM

;10
;NUMBER OF

REGISTERS SAVED

;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
;*OPERATION THE UPPER BYTE OF RHAS WiLL BE SAVED AS 1S

;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

[T
]

MACY11

[

CIRJGDO,RPO4/5/6 DSKLS CTRLR
10-SEP-79 11:00
CZRJIGD.PT

CIZRJGD.P11

017140

10-SEP=-79 11:00

3886
3887
3888
3889
3890
3891
3892
3893
3894
3895
3896
3897

113737

003205

017146
017152
017154
017156
017160
017162
017164

004037
003160
002114
000021
017166
017166
017206

043626

3899
3900
3901
3902

017166
017172
017174
017202

013705
060505
016537
104001

047736

3904

017204

000207

3906

017206

MACY11

30A(1052)
10-SEP=7%
11:11
READ IN PRESET
162

MOvVB

002141

7
PAGE 89

latal

CIRJGDO,RPO4/5/6 DSKLS CTRLRI

SEQ 0088

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

;*COMPARE REGISTERS BEFORE READ IN PRESET COMMAND
;*WITH AFTER COMMAND
JSR

REINTO
WRFROM
17.
1%
1%

RO,a#COMPAR

001630

1%:

042402

:GOOD BUFFER
;TEST BUFFER
;NUMBER OF REGISTERS
;RETURN FOR ERRGR
: SAME

;RETURN FOR GOOD COMPARISON

MOV
ADD
MOV

a#ERWORD,RS
;GETTING READY TO INDEX
RS .R5
;DOUBLE ERROR WORD
RHWC=2(R5) ,@#REGADR ;FAILING REG. ADDRESS

RTS

ERROR

2%:

; COMPARE

sREAD IN PRESET CAUSED IMPROPER
;REGISTER C(HANGE

;RETURN FOR FURTHER COMPARISONS

:NO ERRORS

- ———
e
e

CIRJGDO,RPO4/5/6 DSKLS CTRLR]
10-SEP-79 11:00
CZRJGD.PT

3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932

3633
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
3960
3961
3962
3963

MACY11

30A(1052)
10-SEP=79
11:11
142
READ IN PRESET

k¥

PAGE 90

SEQ 0089

::"""""""""""""""I""""""""'l"'"""i""'

NO OPERATION FUNCTION TEST
S*TEST 43
ies
ALL POSSIBLE REGISTERS ARE CLEARED THEN A''NOP''=0
pee

pee

1S GIVEN NO CHANGE SHOULD WAPPEN

ALL POSSIBLE REGISTERS ARE FILLED WITH ONES THEN A “NOP

IS GIVEN NO CHANGE SHOULD WAPPEN

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

017206
017210

000004
012737

017216
017222
017230
017234
017240
017244
017250
017252
017254
017256
017264
017270
017274
017276
017300
017302
017304

004737
012777
013711
012700
012703
012702
013023
005302
001375
013737
010137
052711

017306

000200

104415
000000

000043

042732
000001
002044
001632
001706
000021

001662
017304
000001

002032

1$143:

;*START
JSR
MOV
MOV

162430

18:

28:

104415
000000

MOV
MOV
MOV
MOV
DEC

BNE
MOV
MOV

017276

000200

SCOPE
MOV

38:

#TINO,@#TSTNM

;THIS SAVES TEST NUMBER

WITH CLR IN RHCS2 (BITS)
PC,aNCLDISK
:CLEAR ALL POSSIBLE BITS
#DMD,aRHMR
#NOPERA,aR1

:SET DIAGNOSTIC MODE
:PUT NOP OPERATION=0 IN RHCSI
#RHWC,RO
:STARTING ADDRESS OF REG
#W(,R3
:STARTING ADDRESS OF WHERE SAVED
WRWEC2-RWWC+2/2,R2 ;NUMBER OF REGISTERS
@(RO)+,(R3)+
;SAVE HARDWARE REG
R2
: COUNT
18
:BRANCH IF NOT COMPLETE

BIS

#RHDS1,a#2%
R1,aN3$
#G0,aR1

;GET ADDRESS OF DRIVE STATUS
:GET_ADDRESS OF RHCST
:60 10 RHCSI

.WORD

:ADDRESS OF DRIVE STATUS RHDSI

.WORD

WAT

DRY
WAT

:WAIT FOR DRY IN RHDS!

:DRY WILL BE WAITED ON
:WAIT FOR RDY IN RHCS1

:ADDRESS OF RHCS1 PUT HERE BY AN
:EARLIER MOV

RDY

:RDY WILL BE WAITED ON

;*AFTER A NO OP

COMMAND

:*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE
017310
017314
017316
017320

004037
001632

JSR

043424

RHW(
WRF ROM

002114
000021

RO,NSAVER

17.

; SAVE

: FROM
:10

:NUMBER OF REGISTERS SAVED

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

017322

113737

001733

002141

:*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS
:+SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
MOVB
@#AS+1,3#WRFROM+25;SAVE UPPER RHAS
; *COMPARE REGISTERS BEFORE
:eWITH AFTER COMMAND

017330
017334
017336
017340
017342

004037
001706
002114
000021
017350

043626

JSR
we
WRF ROM
17.
48

RO,3#COMPAR

NO OP COMMAND

: COMPARE
;600D BUFFER
:TEST BUFFER
:NUMBER OF REGISTERS
:RETURN FOR ERROR

1
017344
017346

017350
017370

017350
017354
017356
017364

013705
060505
016537

017366

000207

104001

143

10-SEP=79

NO OPERATION FUNCTION TEST

047736
001630

4%:

042402

; SAME
;RETURN FOR GOOD COMPARISON

MOv
ADD
MOV
ERROR

a#ERWORD,R5
;GETTING READY TO INDEX
R5,R5
;DOUBLE ERROR WORD
RHWC=2(R5) ,@#REGADR ;FAILING REG. ADDRESS
1
;NO OP COMMAND CAUSED IMPROPER

RTS

017376
042732
000001

001110
162250

14%:

;REGISTER CHANGE

;RETURN FOR FURTHER COMPARISONS

5%:

012737
004737
012777

n7
PAGE 91

11:11

3]
5%

017370

017370
017376
017402

30A(1052)

MOV
JSR

MOv

#148 Q#SLPERR
PC,a#CLDISK
#DMD ,aRHMR

:NO ERRORS
;SET SCOPE LOOP TO 14%
sINIT LAST ALL ZERO TEST
;SET DIAGNOSTIC MODE

;*NOW START WITH ALL ONES IN ALL POSSIBLE REGISTERS
001632
000021

017410
017414
017420
017424

017432
017434
017436
017442
017446
017452
017456
017460
017462

177676

001774

700

162204

002044
001632
001706
000021

001662
017512
000001

6%:

#RhWC,RO
;ADDRESS OF FIRST REGISTER
#RHEC2-RHWC+2/2
,R5 ;NO. OF REGISTERS
#177676,a(RO)+
FILL WITH ALL ONES
OFUNIT,3RHCS2
;REINSTATE UNIT NUMBER UNDER TEST

DEC
BNE
MOV

RS
6%
9#NOPERA,aR1

MOV
MOV
MOV
DEC

#WC,R3
;STARTING ADDRESS,
OF WHERE SAVED
#RHEC2-RHWC+2/2,R2 ;NUMBER OF REGISTERS
a(RO)+,(R3)+
: SAVE HARDWARE REG
: COUNT
R2

MOV

9#RHDS1,a#10%

MOV
7%:

BNE

017504

MOV

BIS
108:
11%:

000000

MOV
MOV
MOV
MOv

WAT

.WORD
DRY
WAT
.WORD

#RHWC,RO

;STARTING ADDRESS OF REG

;BRANCH IF NOT COMPLETE

R1,a#11%
#G0,aR1

;GET ADDRESS OF RH(S1
;G0 TO RHCSI

;ADDRESS OF DRIVE STATUS RHDS!
;:DRY WILL BE WAITED ON
;WAIT FOR RDY IN RHCSI
;ADDRESS OF RHCS1 PUT HERE BY AN
;EARLIER MOv.

RDY

000200

;KEEP INTERRUPT DISABLED

: COUNT
;BRANCH IF INCOMPLETE
;PUT NOP OPERATION:
=0 IN RH(CS1

;GET ADDRESS OF DRIVE STATUS

;WAIT FOR DRY IN RHDSI

;RDY WILL BE WAITED ON

;*AFTER A NO OP COMMAND

;*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE
004037
001632
002114
000021

043424

JSR

RHWC

WRFROM
17.

RO,3#SAVER

: SAVE

;FRCM

;10
;NUMBER OF REGISTERS SAVED

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

;*OPERATION THE UPPER BYTE OF RHAS WiLL BE SAVED AS IS

SEQa 0090

MACYTT

Ssns

CIRJGDO,RPO4/5/6 DSKLS CTRLR]
10-SEP=79 11:00
CZRJGD.P1Y

4020
4021
6022
4023
6024
4025
4026
4027
4028
4029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
6042

017530

113737

001733

30A(1052)
10-SEP-79
11:11
PAGE 92
143
NO OPERATION FUNCTION TEST

;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

002141

MOvB

SFAS+1 ,9FWRFROM+25;SAVE UPPER RHAS

;*COMPARE REGISTERS BEFORE NO OP COMMAND
;*WITH AFTER COMMAND
017536
017542
017544
017546
017550
017552
017554

004037
001706
002114
000021
017556
017556
017576

043626

017556
017562
017564
017572

013705
060505
016537

047736

017574

000207

017576

104001

JSR
Wi
WRFROM

RO,2#COMPAR

sTEST BUFFER
:NUMBER OF REGISTERS

i,
12%
12%
13%

001630

12%:

042402

13%:

MOV
ADD
MOV

: COMPARE

:GO0D BUFFER

;RETURN FOR ERROR

;s SAME
:RETURN FOR GOOD COMPARISON

a#ERWORD,R5
RS ,RS

;GETTING READY TO INDEX
;DOUBLE ERROR WORD

ERROR

RHWC=-2(RS5) ,@#REGADR ;FAILING REG. ADDRESS
1
:NO OP COMMAND CAUSED IMPROPER

RTS

;REGISTER CHANGE

;RETURN FOR FURTHER COMPARISONS

;NO ERRORS

SEQ 0091

MACYT1

~e 1

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=-79 11:00
CZRJGD.P1Y

|
MACY11

6043
6044

'TESl
A

4062
4063
4064
4065
4066
64067
4068
4069
4070
4071
4072
4073
4076
4075

017616
017624
017632
017640
017646
017654
017662
017670
017676
017704
017712
017720
017726

4084
4085
4086
4087
4088
4089
«090
4091

4092
4093
4094
4095

4096
4097

<098

11:11

PAGE 93

NO OPERATION FUNCTION TEST

SEQ 0092

DPRIVE CLEAR

ALL WRITE BITS OF ALL REGISTERS EXCEPT RHDB ARE FILLED WITH

ONES EXCEPT FOR BIT #0 AND BIT #6 WHICH ARE ''GO'" AND
"ENABLE INTERRUPT'' BITS

THEN A DRIVE CLEAR IS PERFORMED
THEN ALL REGISTERS EXCEPT RMDB ARE CHECKED

2222222222222 2222222232222222222222022222220
iRl d)

017576
017600
017604
017612

4076
4077
4078
4079
4080
4081
4082
4083

4055
4056
4057
4058
4059

000004
012706
012737
004737

001000
000044
042732

TSTLA

002032

SCOPE
MOV
MOV
JSR

#FSTACK,SP
FTTNO,aFTSTNM
PC,aNCLDISK

;RESET STACK

;THIS SAVES TEST NUMBER

;SET REGISTERS AND CLEAR

2004
2000
1774
1770

ccoococococococoocoo

MOV
MOV
MOV

BIS

MOV
MOV
MOV
MOV
MOV
MOV

1724

MOV

MOV
MOV

1764
1760
1754
1750
1744
1740
1734
—

ot
i el il \JN o
s
el
i
i
il
—

NNNNNNNNNNNNN
NN NN NNNNNNNNN
NNNNNNNNNNNNN

OO
OO
s
NONN=
Yt JOWVNNN

;*FILL ALL POSSIBLE BITS WITH ONES
NN
NN

4060
4061

143

10-SEP=79

. """"""""""""'"'"'"'"".""'""I"""'."""

OCOO0O0O0O0OO0OO0OOOO0O

6065
6046
6047
6048
4049
4050
4051
4052
4053
6054

30A(1052)

#177777 ,3RHDB
177777 ,3RHUC
#177777 ,8RHBA
#157010,aRHCS2
#14676,3RHCST
#177777 ,8RHER
#17437,3RHDST
#177777 ,aRHER2
#16277,aRHOF
#177777 ,aRHCA
#177777 ,QRHER3
#DMD ,aRHMR
#177777 ,9RHMR

;BUS ADDRESS REGISTER GETS 177777
;WORD COUNT REGISTER GETS 177777
:BUS ADDRESS REGISTER GETS 177777
;CONTROL AND STATUS 2 GETS 157010
;CONTROL AND STATUS REGISTER/GETS 1476
;ERROR REGISTERY GETS 177777
:DESIRED SECTOR TRACK

;ERROR REGISTER 2
;OFFSET REGISTER
;DESIRED CYLINDER
;ERROR REGISTER 3

;MAINTENANCE REGISTER

;*THIS SETS BITS FOR ALL PRESENT DRIVES
017734
017740
017742
017746
017750

017752
017756
017760
017762
017764
017766
017772
017776
020000
020006
020012
020016

013700
005012
012705
006000
103002
012714
005212

MOV

002020

CLR

060010

30%:

177777

31%:

27%:

000001
002052
000001
001630

161652

S#TOTALAT,RO

MOV

ROR
BCC

MOV

INC
DEC
BEQ
BR
MOV

B1S

309

afUNIT,=(SP)
#157010, (SP)

MOV

(SP)+,aR2

MOV
MOv

#DMD ,aRHMR

B1S

MOV

af/DCLEAR,IR1
#GO,aR1
#RHDB,
RO

;GET DRIVE PRESENT
;CLEAR RHCS2 AND CARRY BIT
: COUNTER
;GET BIT INTO CARRY
;BRANCH IF NO UNIT ON THIS BIT
;MOVE INTO ERROR REGISTER TO SET ATA
; INCREMENT RHCS2 = UNIT NO.
: COUNT
;BRANCH IF 8 DONE
;CONTINUE THIS ROUTINE
;REINSTATE

SET BITS

;SET DMD

;DRIVE CLEAR = 10 INTO RH(S!
: 60

;RO CONTAINS ADDR. OF

ADDR. OF

REG.

lala

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CIZRJGD.P1Y

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CIRJGD. P
4099
4100
4101
6102
4103
4104
4105
4106
6107
4108
4109
4110
ARR
6112
4113
4114
4115
4116
4117
4118
4119
4120
6121
6122
6123
4124
6125
4126
6127
4128
4129
4130
L3N
6132
4133
4134
4135
4136
4137
4138
4139
4140
6141
6142
6143
4144
6145
L1146

MACYTT

SOA(IOSZ)
T44

DRIVE CLEAR

11:11

PAGE 94

SEQ 0093

;*DATA BUFFER REGISTER
177777
001126
177777

020022
020030
020034
020042
020044

001124

28%:

001126

020702

MOV
MOV
(MP
BEQ

JSR

¥177777,3#8GDDAT
:600D DATA FOR ERROR TYPEOUT
3(R0O)+,a#$BDDAT ;TEST DATA

#177777,3#8BDDAT’
3%
PC,amERCLFC

: COMPARE DATA

;BRANCH IF GOOD
:JUMP TO ERROR FOR CLR (BIT 5)

; IN RHCS?2

; *WORD COUNT REGISTER
020050
020056
020062
020070
020072

012737
013037
022737
001402
004737

177777
001126
177777

001124

3%:

001126

MOV
MOV

CMP
BEQ
JSR

020702

#177777,3#8GDDAT
:GOOD DATA FOR ERROR TYPEOUT
a(RO)+,a#SBDDAT ;TEST DATA
#177777 ,8#$BDDAT
. COMPARE DATA
4%

PC,a#ERCLFC

;BRANCH 1F

GOOD

:JUMP TO ERROR FOR CLR (BIT 5)
:IN RHCS2

; *BUS ADDRESS REGISTER
177776
001126
177776

020076
020104
020110
020116
020120

001124

4%:

001126

MOV
MOV

CMP

BEQ
JSR

020702

177776 ,a#8GDDAT
.GOOD DATA FOR ERROR TYPEOUT
9(RO)+ ,a#SBDDAT ;TEST DATA
#177776,3#8BDDAT
: COMPARE DATA
5%
;BRANCH IF GOOD

PC,aNERCLFC

;JUMP TG ERROR FOR CLR (BIT 5)

;IN RHCS2

;*CONTROL AND STATUS 2 REGISTER

000110
001774
001124
001126
001124

020124

020130
020134
020140
020144
020152

5%:

001126

MOV
BIS
MOv
MOV
(MP
BEQ

JSR

020702

120154

6147

4148
4149
4150
4151
4152
4153
4154

10-SEP=79

#110,-(SP)

; INCLUDE

PC,a#ERCLFC

:JUMP TO ERROR FOR CLR (BIT 5)
:IN RHCS?2

afUNIT, (SP)
;SET UNIT NO.
(SP)+,a#SGDDAT
;GOOD DATA FOR TYPE OUT
a8(RO)+ ,a#$BDDAT ;TEST DATA
a#$GDDAT ,a#$BDDAT; COMPARE DATA
6%
;BRANCH IF GOOD

;*CONTROL AND STATUS 1 REGISTER
020160
020164
020166
020174
020176

005737
001404
012737
000403
012737

6%:

002000
104210

001124

004210

001124

32%:

187
BEQ
MOV
BR
MOV

;ARE THERE MORE THAN ONE UNIT
a#NUNIT
;BRANCH IF ONLY ONE UNIT
32%
;;04210,a#8$GDDAT;GOOD DATA
#4210,3#8GDDAT

;GOOD DATA

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1

CZRJIGD.P1Y

10=-SEP=79 11:00

:}32

020204

013037

001126

4157
4158
4159
4160

020210
020216
020220

023737
001402
004737

001124

MACYN! 3?A(1052)

11:11

8
PAGE 95

DRIVE CLEAR

33%:

MOV

a(RO)+,a#SBDDAT ;TEST DATA

(mp
BEQ

A¥SGDDAT,a#SBDDAT;
COMPARE DATA
7%
;BRANCH IF GOOD
PC,aMERCLFC
:JUMP TO ERROR FOR CLR BIT S
*IN RHCS2

001126

020702

JSR

4161
4162

164

10-SEP=79

;*ERROR 1 REGISTER

4165
4166

020224
020232

012737
013037

4168

020244

001402

4167

4169
4};?

020236
020246

022737

004737

000000
001126

000000

001124

7%:

001126

MOV
MOV

#0,3#8GDDAT
a(RO)+,a#SBDDAT

:GOOD DATA FOR ERROR TYPEOUT
;TEST DATA

BEQ

10%

:BRANCH IF GOCD

(mMP

020702

JSR

#0,3#$BDDAT

PC,a#ERCLFC

4172

174

: COMPARE DATA

:JUMP TO ERROR FOR CLR (BIT 5)
:IN RHCS2

;*DESIRED SECTOR/TRACK REGISTER

4175
4176
4177
4178

4179
4180

020252
020260
020264
020272

020274

012737
013037
022737
001402

004737

017437
001126
017437

001124

108:

001126

020702

JSR

4181

4182
6184

4186
4187
4188
4189
4190

020300

020306
020312
020320
020322

012737

013037
022737
001402
004737

000000

001126
000000

001126

11%:

001126

020702

4191

020326
020334
020340
020346
020350

012737
013037
022737
001402
004737

116000
001126
116000

001124

12%:

001126

020702

4201

4202

4205
4206

02035
020362

012737
013037

4208

020374

001402

4207

4209
«210

:JUMP TO ERROR FOR CLR (BIT 5)
s IN RHCS?2

MOV
(MP
BEQ

#0,a#8$GDDAT

;:GOOD DATA FOR ERROR TYPEOUT

PC,IMERCLFC

:JUMP TO ERROR FOR CLR (BIT 5)
;s IN RHCS?

a(RO)+,a#$BDDAT ;TEST DATA
#0,3#8BDDAT
:COMPARE DATA
12%
;BRANCH 1F GOOD

MOV
MOV
CMpP
BEQ
JSR

#116000,a#8GDDAT
:GOOD DATA FOR ERROR TYPEOQOUT
a(RO)+ ,a#8BDDAT ;TEST DATA
#116000,3#$BDDAT
:COMPARE DATA
13%
;BRANCH 1F GOOD
PC,a#ERCLFC
:JUMP TO ERROR FOR CLR (BIT %)
;IN RHCS?2

:*DESIRED CYLINDER ADDRESS REGISTER

4583

6204

PC,a#ERCLFC

;600D DATA FOR ERROR TYPEOUT
;TEST DATA
; CCMPARE DATA
;BRANCH IF GOOD

;*0FFSET REGISTER

L:gl

4195
4196
4197
4198
4199
4200

MOV

JSR

6192

L194

#17437,a#$GDDAT
3(RO)+.a#$BDDAT
#176437,3#8BDDAT
11%

;*ERROR 2 REGISTER

4}33

4185

MOV
MOV
CMpP
BEQ

020366

020376

022737

004737

001777
001126

001777

020702

001126

13%:

MOV
MOV

#1777 ,9#%GDDAT ;GOOD DATA FOR ERROR TYPEOUT
9(RO)+,a#8BDDAT ;TEST DATA

BEQ

14%

cmp

JSR

#1777 ,3#8BDDAT

PC,o#ERCLFC

;COMPARE DATA

;BRANCH 1F GOOD

:JUMP T0O ERROR FOR (LR (BIT 5
s IN RHCS2

SEQ 0094

CZRJGDO,RPO4/5/6 DSKLS CTRLRI

CZRJIGD PN

MACY1]

10-SEP-79 11:00

S?A(IOSZ)
L)

10-SEP=79

DRIVE CLEAR

11:11

PAGE 96

SEQ 0095

;*ERROR 3 REGISTER
12737
13037

000000
001126
000000

4737

020702

(=i=l=1=]

020402
020410
020414
020422
020424

22737
01402

001124

16%:

001126

MOV
MOV

(MP
BEQ
JSR

#0,3#8GDDAT

:GOOD DATA FOR ERROR TYPEOUT

#0,3#SBDDAT
15%

;CYMPARE DATA
;BRANCH IF GOOD

a(RO)+,3#$BDDAT ;TEST DATA

PC,aNERCLFC

:JUMP TO ERROR FOR CLR (BIT 9)

:IN RHCS?2

;*ATTENTION SUMMARY REGISTER
020430
020436
020444
020450
020456
020460

013737
043737
013037
123737

001402
004737

002020
002016
001126
001124

001124
001124

15%:

MOV

BIC

MOV

001126

(MPB

BEQ
JSR

020702

S¥TOTALAT ,a#SGDDAT;SET ALL BITS OF DRIVE PRESENT IN RHAS
SFATTENT ,@#SGDDAT
;CLEAR ONLY WORKING DRIVE BIT
@(RO)+,afSBODAT
:GET RHAS
; COMPARE DATA
a#$GDDAT ,a#$BDDAT
16%

:BRANCH IF

PC,aNERCLFC

GCOD

;JUMP TO ERROR FOR CLR (BIT 5)

;*MAINTAINABILITY REGISTER
020464
020472
020476
020504
020506

012737
013037
022737
001402
004737

000400
001126
000400

00112¢

16%:

001126

MOV
MOV

(MP
BEQ
JSR

020702

#400,3#8GDDAT

a(RO)+,a#$BDODAT
0420.303800AT
17

PC,a#ERCLFC

;GOOD DATA FOR ERROR TYPEOUT

;TEST DATA

; COMPARE DATA
;BRANCH IF GOOD

:JUMP TO ERROR FOR CLR (BIT 5)

:IN RH(CS2

;*DRIVE STATUS REGISTER
020512
020520
020522
020526
020532
020536
020540

012737

000700

011637
042716
022726
001402
004737

001126
001000
000700

013046

001124

17%:

MOV
MOV
MOV

BIC
(MP
BEQ
JSR

020702

#700,3#$GDDAT

;GOOD DATA FOR PRINTOUT

(SP) ,a#$BDDAT
#PROG, (SP)
#700, (SP)+

;TEST DATA
;CLEAR PROG BIT
; COMPARE DATA

a(R0)+,=(SP)

20%
PC,afERCLFC

:GET RHDS!

sBRANCH IF GOOD
;JUMP TO ERROR FOR DRIVE CLEAR

;*DRIVE TYPE
4253
4254

6257
258
4259
4260

020544
020552
020556
020564
020566

002010
001126
002010

001124

20%:

(MP
BEQ
JSR

001126

020702

a¥SAVDT ,a#SGDDAT

:GOOD DATA FOR ERROR TYPEQU!

9(R0O)+,a#8BDDAT ;TEST DATA
s COMPARE DATA
a#SAVDT ,a#$BDDAT
;BRANCH IF GOOD
21%
PC,a#ERCLFC
:JUMP TO ERROR FOR CLR (BIT S
:IN RHCS2

;*SERIAL NUMBER REGISTER

0020
oon

020572
020600

—=

4261
4262
4263

4264
4265
4266

MOV
MOV

001124

21%:

MOV
MOV

¥ SAVSN,a#SGDDAT
.GOOD DATA FOR ERROR TYPEOQUT
8(RJ)+ ,a#$BDDAT ;TEST DATA

IN RHCS?2

CZRJGD.P11

4267

4268

4269
4270

020604

020612

020614

10-SEP=79 11:00

023737

002012

004737

020702

001402

3?A(1052)

001126

DRIVE CLEAR

11:11

8
PAGE 97

@#SAVSN,aNS$BODAT

JSR

PC,ANERCLFC

BEQ

6271
W272

10-SEP=79

;*ECC1

22%

SEQ 0096

: COMPARE DATA

;BRANCH 1F GOOD

:JUMP TO ERROR FOR CLR (BIT 5)
*IN RHCS2

POSITION

4275
4276
4277
4278

4279
4280

020620
020626
020632
020640

020642

012737
013037
022737
001402

004737

000000
001126
000000

001124

22%:

001126

020702

JSR

4281

4282
020646

012737

000000

001124

4287

020660

022737

000000

001126

4288
4289
4290

020654

020666
020670

013037

001402
004737

001126

23%:

2333

4295
«ggg

PC,ANERCLFC

MOV

#0,a¥SGDDAT

CMP

#0,a¥SBDDAT

MOV

BEQ
JSR

020702

%291
4292

#0,a¥SGDDAT
:GOOD DATA FOR ERROR TYPEOUT
3(R0O)+,a#SBODAT :TEST DATA
#0,a#$BDDAT
:COMPARE DATA
238
:BRANCH IF GOOD

JUMP TO ERROR FOR CLR (BIT S)
:IN RHCS2

;*ECC2 PATTERN

4285

4286

MOV
MOV
CMP
BEQ

:GOOD DATA FOR ERROR TYPEOUT
3(R0O)+,3#$BDDAT :TEST DATA

24$
PC,ANERCLFC

:COMPARE DATA

:BRANCH IF GOOD
:JUMP TO ERROR FOR CLR (BIT 5)
SIN RHCS2

; *LOOK=AHEAD REGISTER

020674

005720

248:

T1S1

(RO)+

:AS THE LOOK=AHEAD REG. CANNOT BE PREDICTED
(17 1S NOT CHECKED AFTER AN INIT

4333

; *CURRENT CYLINDER ADDRESS REGISTER

4300
4301

4302
4303

‘§8§
&

4306

4307
4308
4309
4310
4311
4312
4313
4314
4315
4316
4317
4318

020676
020700

005720

020700

000413

020702

014037

020710
020712

005720
000207

020714
020716
020722

005720
004737
104401

020726

000000

020706

104001

25%:

T1S1

(RO)+

:AS THE CURRENT (YL REG. CANNOT BE PREDICTED
SAFTER AN INIT IT IS NOT CHECKED

1S145

;BRANCH OVER JSR

ERCLFC: MOV

<(RO),

Q#REGADR ;FAILING REGISTER ADDRESS

151
RTS

(RO)+
PC

TS
JSR
TYPE

(RO)+
PC,aNCHECKT
,CPHALT

268:

042402

042766
062562

ERROR

HALT

;CLR FUNCTION = 10 IN RHCS1 DID
*NOT CLEAR APPROPIATE BITS
:OR CLEARED EXTRA BITS
:UNDO =(RO) FOR ERROR
:RETURN TO ABOVE PROGRAM
:OR CLEARED EXTRA BITS
:UNDO =(R0) FOR BAD DATA
:CHECK THAT DVA,RDY,DPR,DRY = 1
SAND THAT NO OTHERS = 1. CANNOT CONSTINUE TESTING IF BOTH AREN'T TRUE
STOP THE TEST

MACYN!

CZRJGDO,RPO4/5/6 DSKLS CTRLR1

I——

CZRJGDO,RPO4/5/6 DSKLS CTRLRI

CZRJGD.PI

10-SEP=-79 11:00

MACYTT

4316
4320
(321
6322
6323
6324
4325

4361

4362
4363
4364
4365
4366
4367
4368
4369
4370
437
4372
437%
6374

144

10-SEP-79

DRIVE

CLEAR

11:11

PAGE 98

SEQ 0097

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

4326

4327
4328
4329
4330
433
4332
4333
4334
4335
4336
4337
4338
4339
4340
4361
4342
4343
4344
4345
4346
4347
4348
4349
4350
4351
4352
4353
4354
4355
4356
4357
4358
4359
4360

30A(1052)

;*TEST 45

SEEK COMMAND TEST

g
o
g
goe

COMMAND WILL BE LOADED INTO RM(CS1 WITH GO
REGISTERS wiLL BE CHECKED
WILL BE GIVEN
REGISTERS wiLL BE CHECKED

THE SEEX
THEN ALL
RH CLEAR
THEN ALL

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

020730
020732
020736
020744

000004
012706
012737

001000
000045

020750

012777

000001

020756
020762
020770

004737

005077
013777
017746

042732

160662

002074

160702

1ST45:

002032

SCOPE
MOv
MOV

#STACK,SP
#TINO,a#TSTNM

160702

MOV

#DMD ,aRHMR

JSR

CLR

MOV
MOV

160650

PC.,a#CLDISK

aRHDST

S#SEECOM,ARHCST
aRHCC,=(SP)

;RESET STACK
;THIS SAVES TEST NUMBER

;INIT AND SET UP GENERAL REG. CORRES.
;AND UNIT NUMBER

;SET DIAGNOSTIC MODE BIT
;THIS ENABLES COMMANDS WITHOUT MOL

sAND HOLDS RHLA FROM MOVING
;MAKE DESIRED SECTOR TRACK LEGAL

;LOAD SEEK COMMAND INTO CONTROLLER
;GET CURRENT CYLINDER

;*FOLLOWING ARE TwO BLOCKS OF CODE TO LCAD RHCA WITH THE PROPER
;*ADDRESS DEPENDING UPON WHETHER THE DRIVE IS AN RPO6 OR RPO&
020774
021000

005737

002036

021002
021006
021010
021016
021020
021026
021034

022726
001404
012737
000403
012737
013777
000415

001456

021036
021042
021044
021052

022726
001404
012737
000403
012737
013777

000632

021054
021062

001416

187

@#RP06

(MP
BEQ

#814.,(SP)+
9%

MOV
MOV
BR

#813. ,a#8TMPS
a¥STMPS ,@RHCA
14%

BEQ

001456

001210

001455
001210

001210

160616

9% :
108:

11%:

000632

001210

000631
001210

001210
160562

12%:
13%:

MOV
BR

11%

;MOVE DRIVE

TYPE FLAG TO ITSELF

TO TEST

;TREAT THE DRIVE AS AN RPO4

;TREAT THE DRIVE AS AN RPO6

;1S CURRENT CYLINDER SAME AS 814,
?
;BRANCH IF YES TO MAKE RHCA = 813,

#814. ,9#8TMPS
108

;GET READY TO MAKE RHCA = Bl4.
;FILL RHCA

(MP

#610.,(SP)+

:TREAT THE DRIVE AS AN RFO04
;1S CURRENT CYLINDER SAME AS 410,

MOV
BR
MOV
MOV

#6410, ,9#8TMPS
13%
#6409, ,a#8TMPS
a¥STMPS ,aRHCA

;GET READY TO MAKE RHCA = 410.
;FILL RHCA
;GET READY TO MAKE RHCA = 409.
;MAKE DESIRED CYLINDER 410., OR 409,

BEQ

12%

;GET READY TO MAKE RH(A = 813,
;MAKE DESIRED CYLINDER 814., OR 813,
:SAVE REGISTERS

;BRANCH IF YES 70 MAKE RH(CA = 409,

;*SAVE REGISTERS FOR COMPARISON AFTER GO
021070
021074
021076
021100

004037
001632
003160
000023

043424

14%:

JSR
RHW(
REINTO

RO,a#SAVER

19.

;*GIVE GO TO COMMAND

: SAVE
;FROM
.10

;NUMBER OF

REGISTERS SAVED

CZRJGD.PIN

021102

052777

000001

145

160530

10-SEP=79
11:11
SEEK COMMAND TEST

BIS

8
PAGE 99

#G0,aRHCST

052737
052737
042737

000001
020000
000200

BIS

SEQ 0098

;60 TO COMMAND

BIS
BIC

#GO,IFREINTO+6

;SAVED RH(S!

#PIP NFREINTO+30 ;SAVED RHDSI
#DRY ,@#REINTO+30 ;SAVED RHDS!

;*AFTER GO HAS BEEN GIVEN FOR SEEXK COMMAND
:'gAVE REG!STERS AGAIN SO THAT COMPARISONS (AN
*BE DON
.
021132
021136
021140
021142

004037
001632
002114
000023

043424

JSR

RHW(
WRFROM

RO,a#SAVER

s SAVE

; FROM
;10

;NUMBER OF

;:*AS UPPER BYTE OF

REGISTERS SAVED

RHAS (AN BE C(HANGING IN A DUAL PORT

;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS
:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
021144

113737

003205

MOvB

002141

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

;*COMPARE REGISTERS BEFORE SEEK COMMAND
;*WITH CONTENTS AFTER GO IS ISSUED
JSR
REINTO
WRFROM
19.
1%
1%

RO,3#COMPAR

MOV
ADD
MOV

o#ERWORD,RS
;GETTING READY TO INDEX
RS.RS
.DOUBLE ERROR WORD
RHWC=2(RS) ,a#REGADR ;FAILING REGISTER ADDRESS

104001

ERROR

000207

RTS

021152
021156
021160
021162
021164
021166
021170

004037
003160
002114
000023
021172
021172
021212

043626

021172
021176
021200

013705
060505
016537

047736

021206
021210

001630

1%:

042402

~Nror

NN
Y B

N
e
—

rnowno

021212
021216
021222

000040
001774
000001

2%:
160439

BIS
MOv

MOV

; COMPARE
:6GOOD BUFFER
;TEST BUFFER
: NUMBER
;RETURN FOR ERROR
; SAME

;RETURN FOR GOOD COMPARISON

;*NOW GIVE

; IMPROPER REGISTER (HANGE
;AFTER SEEK

;RETURN TO COMPARISON
INIT AND GET GO AND PIP DOWN

#CLR,3R2

#DMD ,aRHMR

;RH INITILIZE

;REINSTATE UNIT NUMBER

;SET DIAGNOSTIC MODE BIT
;THIS ENABLES COMMANDS WlTHOUT MOL
:AND HOLDS RHLA FROM MOVING

;*(HANGE REGISTERS TO EXPECTED VALUE
021230

062737

000001

003166

BIC

COMMAND

;WITH GO IS GIVEN

afUNIT ,aR?

#G0,9#REINTO*6

1
B

30A(1052)

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES

(= le e

4375
4376
4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399
4400
4401
4402
4403
4404
4405
4406
4407
4408
4409
4410
4611
4612
4613
4614
44615
AR
4617
4418
4419
4620
44621
44622
4423
4424
44625
LL26
4427
4428
4429
4630

10-SEP=-79 11:00

MACY11

—

;SAVED RH(S!

CZRJGDO,RPO4/5/6 DSKLS CTRLR!

——

(el

1
43
4432
4433
4434
4435
4436
4437
4438
4439
4440
L44
4442

4443
AN

021236
021244
021252
021260

0462737
052737
017737
013737

020000
000200

160416

001210

30A(1052)
10-SEP=79
11:11
145
SEEXK COMMAND TEST

003210
003210
003222
00322¢

BIC
BiS

MOV
MOV

021266
021272
021274
021276

004037
001632
002114
000023

043424

JSR

RHW(
WRFROM

4465

L4666

L467
4468
4469
4470
A4
4472
L67%
4674
44675
La76
44677
4478
4479
4480
44681
4L4LB2
4483
4484
4485
L4686

100

SEQ 0099

#PIP,QFREINTO+30 ;SAVED RHDS!
#ORY,Q#REINTO+30 ;SAVED RHDS!

SRHLA ,@#REINTO+42;SAVED RHLA
SNSTMPS ,Q#REINTO+44 ;SAVED RHCC

RO,a#SAVER

: SAVE

; FROM
;10

19.

4445

L4464

PAGE

s*AFTER INITILIZE SAVE REGISTERS SO THAT
;*COMPARES CAN BE DONE

;NUMBER OF

;*AS UPPER BYTE OF

4446

4647
4448
4449
4450
4451
4452
4453
4654
4455
4456
4457
4458
4459
4460
4461
4462
4463

REGISTERS SAVED

RMAS CAN BE CHANGING IN A DUAL PORT

;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
021300

113737

003205

MOvVB

002141

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

;*COMPARE REGISTERS AFTER INITIALIZE
021306
021312
021314
021316

004037
003160
002114
000023

021320
021322
021324

021326
021326
021346

021326
021332
021334
021342

013705
060505
016537

021344

000207

104001

JSR

043626

REINTO
WRFROM
19.

3%:

047736
001630

042402

004737

042732

021352

012777

000001

021360
021366

013777
005077

002074

004037
001632

160260

043424

;GO0D BUFFER
sTEST BUFFER
:NUMBER OF REGISTERS TO BE

MOV
ADD
MOV
ERROR

a#ERWORD,RS
:GETTING READY TO INDEX
R5,RS
:DOUBLE ERROR WORD
RHWC=2(RS) ,a#REGADR ;FAILING REGISTER ADDRESS
: IMPROPER REGISTER
1

RTS

;CONTENTS AFTER GIVING AN
;INITILIZE FOLLOWING A
; SEEK COMMAND
;RETURN TO COMPARISON

:GOOD COMPARISON

4%:

021346

; COMPARE

; COMPARED
;RETURN POINT FOR ERROR
: SAME
JRETURN POINT FOR GOOD COMPARISON

3%
3%
(31

021346

021372
021376

RO,a#COMPAR

JSR

PC,a#CLDISK

160300

MOv

#DMD ,aRHMR

160252

MOV
(LR

ON#SEECOM,ARHCST
aRHCA

;INIT AND SET UP GENERAL REG.
:AND UNIT NUMBER

;SE1

DIAGNOSTIC MODE BIT

;THIS ENABLES COMMANDS WITHOUT MOL
;AND HOLDS RHLA FROM MOVING
;LOAD SEEK COMMAND INTO RH(
;DESIRED CYLINDER ADDRESS

;*SAVE REGISTERS FOR COMPARISON AFTER GO
JSR
RO,3#SAVER
. SAVE

RHW(

. FROM

——————————————

MACYT1

P
Y-

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CIZRJGD.PIN

4487
4488
4489

4490
4491
4492

021402

021400

003160
000025

021404

052777

30A(1052)
10-SEP=-79
11:11
145
SEEK COMMAND TEST
REINTO
19.

000001

4540
4541
4542

113737

;10
;NUMBER OF

SEQ 0100
REGISTERS SAVED

BIS

#G0,aRHCST

;GO TO SEEK COMMAND

000001
020000
000200

BIS
BIS
BIC

003166
003210
003210

;*AFTER GO HAS BEEN GIVEN TO SEEK COMMAND
:'aAVE REGISTERS AGAIN SO THAT COMPARISONS CAN
:*BE DON

043424

003205

#GO,a#REINTO+6
;SAVED RHCSI
#PIP ,#REINTO+30 ;SAVED RHDSI
#DRY ,3#REINTO+30 ;SAVED RHDSI

JSR

RHW(
WRFROM
19.

RO,a#SAVER

: SAVE

:FROM
;10
;NUMBER OF

REGISTERS SAVED

;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS
:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

MOvB

002141

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

;*COMPARE REGISTERS BEFORE COMMAND
;*WITH CONTENTS AFTER GO IS GIVEN
021454
021460
021462
021464
021466
021470
021472
021474
021500
021502
021510
021512

004037
003160
002114
000023
021474
021474
021514
013705
060505
016537
104001

043626

5%:

047736
001630

042402

JSR
REINTO
WRFROM
19.
5%
5%
6%
MOV
ADD
MOV

ERROR
RTS

000207

RO,a#COMPAR

: COMPARE
:GOOD BUFFER
;TEST BUFFER
: NUMBER
;RETURN FOR ERROR
: SAME
;RETURN FOR GOOD COMPARISON
a#ERWORD ,R5
;GETTING READY TO INDEX
RS .R5
.DOUBLG ERROR WORD
RHWC=2(RS) ,a#REGADR ;FAILING REGISTER ADDRESS

: IMPROPER REGISTER CHANGE

;RETURN TO COMPARISON

;AFTER COMMAND

;WITH GO IS GIVEN

~Nrorno

021524

021514
021520

- —

;*NOWw GIVE INIT AND GET GO AND PIP DOWN
NNN

4537
4538
4539

021446

004037
001632
002114
000023

s \JN

4514
4515
4516
4517
4518
4519
4520
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536

021434
021440
021442
021444

052737
052737
042737

—

4512
4513

021412
021420
021426

rowro

4509
4510
4511

101

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES

oOOO

4501
4502
4503
4504
4505
4506
4507
4508

PAGE

;*GIVE GO TO SEEXK COMMAND

160226

4493

[AA-TA
4495
4496
4497
4498
4499
4500

000040
001774
000001

6%:
160126

BIS

MOV
MOV

#CLR,3R2

@fUNIT ,aR?
#DMD ,aRHMR

sRH INITILIZE

;REINSTATE UNIT NUMBER
;SET DIAGNOSTIC MODE BIT

;THIS ENABLES COMMANDS WITHOUT MOL
;AND HOLDS RHLA FROM MOVING

;*CHANGE REGISTERS TO EXPECTED VALUE

oo |

MACY11

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CIRJGD P11

CZRJGDO,RPO4L/5/6 DSKLS CTRLRY

CIZRJGD.PN
4543
4544
4545
4546
:2:;

021532
021540
021546
021554
021562

10-SEP=79 11:00
042737
042737
052737
017737
005037

000001
020000
000200
160114
003224

MACY11

30A(1052)

145

003166
003210
003210
003222

4558
4559
4560
426;
(56

021566

021572
021574
021576

021600

004037

001632
002114
000023

113737

043424

003205

JSR

RHW(
WRFROM
19.

002141

021606
021612

004037
003160

4569
4570
4571
4572
42;3

002114
000023

WRFROM
19.

021620
021622
021624

021626
021626
021646

7%
7%
8%

4575
4576

021626
021632

013705
060505

021644
021646

000207

4577
4578

4579

4580
4581

RO,a#SAVER

: SAVE

;FROM
: 10
;NUMBER OF REGISTERS SAVED

;*COMPARE REGISTERS AFTER INITALIZE

4566
4567

4574

#GO,3FREINTO+6
;SAVED RM(S!
#P1P ,SFREINTO+30 ;SAVED RMDS!
#ORY ,@#REINTO+30 ;SAVED RHDS!
SRHLA,SFREINTO+42;SAVED RHLA
SFREINTO+&A
s SAVED RHCC

;*AS UPPER BYTE OF RMAS CAN BE CHANGING IN A DUAL PORT
:*OPERATION THE UPPER BYTE OF RMAS WILL BE SAVED AS iS
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
MOVB
SFREINTO+25,a#WRFROM+25;SAVE UPPER RHAS

Lgbg

4568

8
PAGE 102

;*COMPARES CAN BE DONE

4563
456

s*AFTER INITIALIZE SAVE REGISTERS SO THAT

222;

4554
4555
t.gg?

11:11

SEEK COMMAND TEST
BIC
BiC
BIS
MOV
CLR

4549
4550
4553

10-SEP=79

021614
021616

021634
021642

016537
104001

043626

JSR
REINTO

047736

001630

7%:

042402

: COMPARE
:GOOD BUFFER

:TEST BUFFER
:NUMBER OF REGISTERS T0 BE
: COMPARED
:RETURN POINT FOR ERROR
: SAME
:RETURN POINT FOR GOOD COMPAR]SUN

MOV
ADD

@#ERWORD,RS
R5.RS

RTS

MOV
ERROR
8%:

RO,a#COMPAR

:GETTING READY TO INDEX
:DOUBLE ERROR WORD

RHW(=2(RS) ,@#REGADR ;FAILING REGISTER ADDRESS
1
:# CONTENTS AFTER GIVING AN
;'

COMMAND
:RETURN T0 COMPAR]SON
:GOOD COMPAR]SON

SEQ 0101

CIZRJGDO, 27047576 DSKLS CTRLR]
10-SEP-79 11:00
CZRJGD.P1Y

MACYTY

4582
4583
4584
4585
4586
4587
4588

4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602
4603
4604
4605
4606

4607

4608
4609
4610
4611
4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624

4625

4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
4637

30A(1052)
10-SEP-79
11:11
145
SEEK COMMAND TEST

g .
Fee
021646
021650
021654
021662

000004
012706

012737
004737

002032

021666

012777

000001

157764

021674

013777

002046

157736

SEQ 0102

2Rt

UNLOAD COMMAND TEST

)

THE UNLOAD COMMAND WILL BE LOADED INTO RHCS! WITH GO
THEN ALL REGISTERS wWILL BE CHECKED

RH CLEAR WILL BE GIVEN

A2 2222222222222

1§T46:

001000
000046
042732

8
PAGE 103

A22 2222222222220

SRTEST 46

SCOPE

MOV
MOV

JSR

2222222202222

#STACK,SP
#TINO,Q#TSTNM

ld)

;RESET STACK
;THIS SAVES TEST NUMBER

PC,a#CLDISK

sINIT AND SET UP GENERAL REG.

MOV

#DMD ,aRHMR

;SET DIAGNOSTIC MODE BIT
;THIS ENABLES COMMANDS WITHOUT MOL
sAND HOLDS RHLA FROM MOVING

MOV

@#UNLOAD ,@RHCST

sAND UNIT NUMBER

;LOAD UNLOAD COMMAND

INTO RH

;*SAVE REGISTERS FOR COMPARISON AFTER GO
021702
021706
021710
021712

004037
001632
003160
000023

043424

021714

052777

000001

157716

BIS

021722
021730
021736

052737
052737
042737

000001
020000
000200

003166
003210
003210

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES
;SAVED RH(S!
#GO,3#REINTO+6
BIS
#PIP,INREINTO+30 ;SAVED RHDS]
BIS
#DRY,3#REINTO+30 ;SAVED RHDS!
BIC

021744
021750
021752
021760

005737
001053
032777
001047

001100

021762
021766

104401
000441

021770

020000

104405

: SAVE

; FROM
;10
:NUMBER OF

REGISTERS SAVED

187

afSPASS

;1S THIS FIRST

BIT
BNE

#5W13,aSWR
5%

;INHIBIT ERROR PRINT HIGH?
;BRANCH ]F SW13 HIGH

BNE

157160

TYPE

64%:

013746

RO,a#SAVER

;*GIVE GO TO UNLOAD COMMAND
#G0,aRHCST
;GO TO UNLOAD COMMAND

::253:

022072

022072
022076

JSR

RHWC
REINTO
19.

001774

,65%

64%

MOV

9#UNIT,=(SP)

JASCIZ

TYPDS

PASS

;BRANCH IF NOT FIRST PASS

::TYPE ASCIZ STRING

;:GET OVER THE ASCIZ

<15><12>/1F DRIVE CONNECTED ''STAND BY'' LAMP SHOULD BE LIT ON DRIVE NO
;UNIT

UNDER TEST

;*AFTER GO HAS BEEN GIVEN TO UNLOAD (OMMAND
;*SAVED REGISTERS AGAIN SO THAT COMPARISONS CAN
;*BE DONE
022100
022104
022106

004037
001632
002114

043424

9%:

JSR

RHWC
WRFROM

RO,a#SAVER

:SAVE

;FROM
;10

L6464

022110

022112

30A(1052)
146

000023

113737

19.

003205

002141

MOvB

4645

000023
022140
022140
022160
013705
060505
016537

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

001630

1%:

042402

: COMPARE

JSR

RO,3#COMPAR

2%
MOV
ADD
MOV

sRETURN FOR GOOD COMPARISON
afERWORD,RS
;GETTING READY TO INDEX
RS.RS
;DOUBLE ERROR WORD
RHWC=2(RS) ,@#REGADR ;FAILING REGISTER ADDRESS

REINTO
WRFROM
19.
1%
1%

047736

.GOOD BUFFER
JTEST BUFFER
:NUMBER
:RETURN FOR ERROR
: SAME

022154

104001

ERROR

; IMPROPER REGISTER C(HANGE

022156

000207

RTS

;RETURN TO COMPARISON

022160
022164
022170

4669
4670
4671
4672
4673
4674
4675
4676
“677
4678
4679
4680
4681
4682
4683
4684
4685
4686
4687
4688
4689
4690
4691
4692
4693

043626

002114

000040
001774
000001

022176
022204
022212
022220

042737
042737
052737
017737

000001
020000
000200

—~ -

4667
4668

004037
003160

pm——

4666

022120
022124
022126
022130
022132
022134
022136
022140
022144
022146

W
NN~

4665

REGISTERS SAVED

;*COMPARE REGISTERS BEFORE UNLOAD COMMAND
;*WITH AFTER GO

(=1l

L4664

;NUMBER OF

SEQ 0103

:*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
;*OPERATION THE UPPER BYTE OF RMAS WiLL BE SAVED AS IS
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

4646

Lo4L7
4L64L8
4649
4650
4651
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661
4662
4663

n 8
10-SEP=79
11:11
PAGE 104
UNLOAD COMMAND TEST

157450

2%:
157462

003166
003210
003210
003222

sAFTER UNLOAD COMMAND
;WITH GO IS GIVEN

;*NOW GIVE INIT AND GET ALL GO AND PIP DOWN

BIS

MOV

#CLR,3R2
afUNIT ,aR?2

#DMD ,aRHMR

;RH INITILIZE

;REINSTATE UNIT NUMBER

;SET DIAGNOSTIC MODE BIT
;THIS ENABLES COMMANDS WITHOUT MOL
;AND HOLDS RHLA FROM MOVING

CHANGE REGISTERS TO EXPECTED VALUE
C
#GO,3#REINTO+6
;SAVED RHCS!
¢
#PIP,3#REINTO+30 ;SAVED RHDS!
S
#DRY ,3#REINTO+30 ;SAVED RHDS1
SRHLA,FREINTO+42;SAVED RHLA
v

;*AFTER INITIALIZE SAVE REGISTERS SO THAT
;*COMPARES CAN BE DONE
022226
022232
022234
022236

004037
001632

JSR

043424

RHWC
WRFROM

002114

RO,3#SAVER

19.

000023

: SAVE

:FROM
;10

:NUMBER OF REGISTERS SAVED

;:*COMPARE REGISTERS AFTER INITIALIZE

;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL POR!

;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS 15
022240

113737

003205

022246

004037

043626

002141

;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

MOVB

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

JSR

RO,a#COMPAR

; COMPARE

1
4638
4639
4640
L6461
4642
4643

MACYT1

lalal

CZRJGDO,RPO4/5/6 DSKLS CTRLR!
10-SEP-79 11:00
CZRJGD.P1Y

6694
4695
4696
4697
4698
4699
4700
4701
4702
4703
4704
4705
4706
4707
4708
4709
4710

MACY11

30A(1052)
146

022252
022254
022256

003160
002114
000023

REINTO
WRFROM

022260
022262
022264

022266
022266
022306

3%
3%

022266
022272
022274
022302

013705

047736

016537

001630

022304
022306

000207

060505’
104001

s COMPARED
;RETURN POINT FOR ERROR

; SAME

042402

(%:

MOV

ADD
MOV

SEQ 0104

;GOOD BUFFER
;TEST BUFFER
:NUMBER OF REGISTERS TO BE

19.

3%:

10-SEP-79
11:11
PAGE 105
TEST
UNLOAD COMMAND

;RETURN POINT FOR GOOD COMPARISON

S#ERWORD,RS
RS,RS

;GETTING READY TO INDEX
;DOUBLE ERROR WORD

ERROR

RHWC=-2(RS) ,@#REGADR ;FAILING REGISTER ADDRESS
1
; IMPROPER REGISTER

RTS:

;CONTENTS AFTER GIVING AN
;UNLOAD COMMAND
;RETURN TO COMPARISON

;GOOD COMPARISON

e < ————————

[l el

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CZRJGD.P1Y

CIRJGD.P1Y

4746
4747
4748
4749
4750

4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
476%
4764
4765
4766

30A(1052)
146

023274

10-SEP=79

6%:

11:11

UNLOAD COMMAND TEST

Bil
BEQ

156624

JMP

PAGE

FSW6 ,aSwWR

TST51

106

SEQ 0105

;TEST FOR NO OFFSET OR RTC
;1F = 0, DO THE NEXT TWwO TESTS
:KIP TIE NEXT

TWO TESVS wevsesasasenss )

;CONTINUE WITH NEXT TWO TESTS

;*TEST 47

.
e
§ e
P

OFFSET COMMAND TEST

THE OFFSET COMMAND WILL BE LOADED INTO RHCST WITH GO
THEN ALL REGISTERS wiLL BE CHECKED

RH CLEAR WILL BE GIVEN
THEN ALL REGISTERS wWiLL BE CHECKED

;:'lQ"""""'"'"""""""'."""""'.""""'.'Q."".

022322
022324
022330
022336

000004
012706
012737

1ST47:

004737

001000
000047
042732

002032

022342

012777

000001

157310

022350
022356

052777
042777

000004
000004

SCOPE

MOv
MOV

JSR

MOv

#STACK,SP
FTTNO,@#TSTNM

;RESET STACK
;THIS SAVES TEST NUMBER

#DMD ,aRHMR

:AND UNIT NUMBER
;SET DIAGNOSTIC MODE BIT

PC,afCLDISK

;INIT AND SET UP GENERAL REG.

;THIS ENABLES COMMANDS WITHOUT MOL
;AND HOLDS RHLA FROM MOVING

;*GIVE ONE INDEX PULSE TO CLEAR RHLA BEFORE THE START OF THIS TEST

BIS
BIC

#MINX , IRHMR
FMINX,aRHMR

;SET INDEX PULSE
;CLEAR INDEX

;*T0 ENABLE LOOP ON THIS TEST THE POSITIONER HAS TO
;*BE BROUGHT TO CENTER LINE
022364
022372
022376

017777
013711
005211

157306

002074

022400
022404
022412
022420
022422

000004
000011
000001

022424

042732

022430

000001

MOV
MOV
INC

157260

aRHCC,aRHCA
o¥SEECOM,aR1
aR1

;SET DESIRED CYLINDER TO RHCC
;SEEK COMMAND TO RHCS1
;60 TO SEEK COMMAND

;*FOUR SECTOR CLOCKS ARE GIVEN TO TAKE PCSITIONER OFF OFFSET POSITION

5%:

MOV

#4,R0

MOV

#DMD ,aRHMR

MOV

: COUNTER

:SET SECTOR CLOCK

;RESET SECTOR CLOCK

RO
5%

: COUNT
;BRANCH IF NOT COMPLETE

JSR

PC.a#CLDISK

;INIT AND SET UP GENERAL REG.

MOv

#DMD ,aRHMR

DEC
BNE

157222

#MSTCK ! DMD ,aRHMR

:AND UNIT NUMBER

;SET DIAGNOSTIC MODE BIT

;THIS ENABLES COMMANDS WITHOUT MOL

;AND HOLDS RHLA FROM MOVING
022436
022444

002076
000001

022452
022456

043424

004037
001632

MOV

ANOFSETC,ARHCST

#0OF 25 ,aRHOF

;LOAD AN OFFSET BIT

;SET AN OFFSET BIT

;*SAVE REGISTERS FOR COMPARISON AFTER GO
JSR
RO,a#SAVER
s SAVE

RHW(

;FROM

;;.ll""""""'""""""""""."""""""Q"""""'

4745

000020

4744

032777
001402
000137

6714
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725
4726
6727
4728
4729
4730
473
4732
4733
4734
4735
4736
&7%7
4738
4739
4740
4741
4762
4743

022306
022314
022316
022322

“713

«7T
4712

10-SEP=-79 11:00

MACY11

ale

CZRJGDO,RPO4/S/76 DSKLS CTRLR)

022460
022462

003160
000023

022464

052777

000001

022472
022500
022506

052737
052737
042737

000001
020000
000200

REINTO
19.

022514
022520
022522
022526

022526

004037
001632
002114
000023

;10
;NUMBER OF

REGISTERS SAVECD

O o~

— et
s

;60 TO OFFSET COMMAND

*CHANGE SAVED REGISTERS TO EXPECTED VALUES

oovwy

;

#G0,aRHCST

#GO,FREINTO+6
;SAVED RHCSI
#PIP SNFREINTO+30 ;SAVED RHDSI
#DRY ,#REINTO+30 ;SAVED RHDSI

113737

003205

JSR

RHW(
WRFROM
19.

RO,a#SAVER

; SAVE

; FROM
;10
:NUMBER OF

REGISTERS SAVED

:*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

MOvB

002141

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

;*COMPARE REGISTERS BEFORE OFFSET COMMAND
;*WITH AFTER GO

4804
4805
4806
4807
4808
4809
4810
4811
4812

022554
022560
022562
022570

013705
060505
016537

047736

022572

000207

4814
4815
«816

022574
022600
022604,

104001

001630

1%:

042402

JSR
REINTO
WRFRGM
19.
%
1%
2%

RO,3#COMPAR

MOV
ADD
MOV

O¥ERWORD,RS
;GETTING READY TO INDEX
RS, RS
.DOUBLE ERROR WORD
RHWC=2(RS) ,@#REGADR ;FAILING REGISTER ADDRESS

RTS

ERROR

; COMPARE
:GOOD BUFFER

;TEST BUFFER
; NUMBER
;RETURN FOR ERROR
: SAME

;RETURN FOR GOOD COMPARISON

; IMPROPER REGISTER CHANGE
;AFTER OFFSET COMMAND
;WITH GO IS GIVEN
;RETURN TO COMPARISON

~Nrorn

NNN
N
. —

s \ N
—

rnownro

OOO

;*NOW GIVE INIT AND GET ALL GO AND PIP DOWN
000040
001774
000001

2%:
157046

B1S

MOV
MOV

#CLR,3R2

afUNIT ,aR?
#DMD ,aRHMR

;RH INITILIZE

;REINSTATE UNIT NUMBER
;SET DIAGNOSTIC MODE BIT
:THIS ENABLES COMMANDS WITHOUT M

~N~

022612
022620

Ll
o
oo

:AND HOLDS RHLA FROM MOVING

000001
000001

003166
003176

:*CHANGE REGISTERS TC EXPECTED VALUE

BIC
BIC

#GO,INREINTO+6 ;SAVED RH(SI
#OF25,9#REINTO+16;SAVED RHOF

~e 1

SEQ 0106

;:*GIVE GO TO OFFSET COMMAND

BIS

043424

043626

4821
“822

107

. *BE DONE

004037
003160
002114
000023
022554
022554
022574

4«817
4818
4819
4820

;*AFTER GO HAS BEEN GIVEN TO OFFSET COMMAND
;*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN

022534
022540
022542
022544
022546
022550
022552

4813

30A(1052)
10-SEP=79
11:11
PAGE
147
OFFSET COMMAND TEST

(767
4768
4769
4770
&N
6772
4773
774
6775
6776
&777
4778
6779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
4791
4792
4793
6794
4795
4796
4797
4798
4799
4320
4801
4802

MACY11

CIRJGDO,RPO4/5/6 DSKLS CTRLR]
10-SEP=79 11:00
CZRJGD.PI

4823
4824
4825
4826
4827
4828
4829
4830
4831
4832
4833
4834
4835
4836
4837
4838
4839

4840
841

4842
4843
4844

4845
4846
4847
4848

4849

4850
4851
4852
4853
4854
4855
4856
4857
4858
4859

022626
022634
022642

062737
052737
017737

MACY11

30A(1052)
10-SEP=79
11:11
PAGE
147
OFFSET COMMAND TEST

BIC
BIS

020000
000200

157026

MOv

108

SEQ 0107

#PIP ,S#REINTO+30 ;SAVED RHDSI
#ORY,Q#REINTO+30 ;SAVED RHDSI
SRHLA ,S#REINTO+42;SAVED RHLA

s*AFTER INITIALIZE SAVE REGISTERS SO THAT
;*COMPARES CAN BE DONE
022650
022654
022656
022660

004037
001632

043424

002114
000023

02266¢

113737

003205

022670
022674
02267¢
022700

004037
003160
002114
000023

043626

022702
022704
022706

022710
022710
022730

022710
022714
022716
022724

013705
060505

022726
022730

JSR

RHW(
WRFROM
19.

016537
104001

RO,a#SAVER

;FROM
;10
;NUMBER OF

REGISTERS SAVED

;*AS UPPER BYTE OF RMAS CAN BE CHANGING IN A DUAL PORT
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

MOovB

002141

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

;*COMPARE REGISTERS AFTER INITIALIZE

JSR

REINTO
WRFROM
9.

RO,a#COMPAR

3%:

047736
042402

MOV
ADD
MOV

ERROR

RTS

000207
4%:

: COMPARE

:GOOD BUFFER
;TEST BUFFER
;NUMBER OF REGISTERS TO BE

; COMPARED
;RETURN POINT FOR ERROR

3%
3%
(31

001630

s SAVE

; SAME

;RETURN POINT FOR GOOD COMPARISON

afERWORD,RS
;GETTING READY TO INDEX
RS,RS
;DOUBLE ERROR WORD
RHWC=2(RS) ,¥#REGADR ;FAILING REGISTER ADDRESS

; IMPROPER REGISTER
;CONTENTS AFTER GIVING AN

;INITIALIZE FOLLOWING A
;OFFSET COMMAND
;RETURN TO COMPARISON

;GGOD COMPARISON

St
o
&

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CIZRJIGD.P11

oTM

———

CZRJIGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CIZRJGD.P11

MACY11

4860
4861
4862
4863

109

SEQ 0108

R R RN R RN RN RN R RRRTRTRRERTRRRRRRRRRRORORORRRRRRRCOERRRORORRORROROORRORORY

S+TEST 50

4864

RETURN TO CENTER LINE COMMAND TEST

THE RETURN TO CENTER LINE COMMAND WILL BE LOADED INTO RHCS! WITH GO

4865
4866

867

4868
4869
4870
4871
4872
4873
4874
4875
4876
«877
4878
4879
4880

10-SEP=79
11:11
PAGE
30A(1052)
147
OFFSET COMMAND TEST

Ai 2222

15150:

022730
022732
022736
022744

000004
012706
012737
004737

001000
000050
062732

002032

022750

012777

000001

156702

THEN ALL REGISTERS wiLL BE CHECKED
RH CLEAR WILL BE GIVEN
THEN ALL REGISTERS wiLL BE CHECKED
A0

SCOPE
MOV
MOv

JSR

MOv

FSTACK,SP
#TINO,@#TSTNM

;RESET STACK
;THIS SAVES TEST NUMBER

#DMD ,aRHMR

sAND UNIT NUMBER
;SET DIAGNOSTIC MODE BIT

PC,an#CLDISK

]

;INIT AND SET UP GENERAL REG.

;THIS ENABLES COMMANDS WITHOUT MOL
;AND HOLDS RHLA FROM MOVING

;*GIVE ONE INDEX PULSE TO CLEAR RHLA BEFORE THE START OF THIS TEST

4881

022756
022764

052777
062777

000004
000004

156674
156666

BIS
BIC

#MINX,aRHMR
FMINX,IRHMR

;SET INDEX PULSE
;CLEAR INDEX

4885
4886
4887
4888
4889
4890

022772

013777

002100

156640

MOv

S#RETCL,ORHCST

;LOAD RETURN TO CENTER LINE COMMAND INTO RH(CS!

4882
4883
4884

4891
4892
4893
4894

4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
4911
4912
4913
4914
4915

023000
023004
023006
023010

004037
001632
003160
000023

043424

023012

052777

000001

023020
023024
023032
023040
023042

012700
012777
012777
005300
001370

000004
000011
000001

JSR

RHW(
REINTO

RO,a#SAVER

19.

156626
156620

: SAVE

;FROM
;10

;NUMBER OF

REGISTERS SAVED

;*GIVE GO TO RETURN TO CENTER LINE COMMAND
BIS
#GO,aRHCST
;GO TO RETURN TO CENTER COMMAND

156620

5%:

;*FOUR SECTOR CLOCKS ARE GIVEN TO TAKE POSITIONER TO CENTER LINE
MOV
#4 RO
; COUNTER
MOV
#MSTCK!DMD ,9RHMR; SET SECTOR CLOCK
MOV
#DMD ,aRHMR
;RESET SECTOR CLOCK
: COUNT
RO
DEC

BNE

000001
020000
000200

023044
023052
02306C

;*SAVE REGISTERS FOR COMPARISON AFTER GO

;BRANCH IF NOT COMPLETE

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES
;SAVED RHCS!
#GO,a#REINTO+6
BIS
#P1P,#REINTO+30 ;SAVED RHDS!
BIS
#DRY ,@#REINTO+30 ;SAVED RHDS!
BIC
;*AFTER GO HWAS BEEN GIVEN TO RETURN TO CENTER LINE

023066
023072
023074

004037
001632
002114

043424

;*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN
; *BE DONE

JSR
RHW(C
WRFROM

RO,a#SAVER

; SAVE
;FROM
;10

COMMAND

——

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=79 11:00
CIRJGD. P11

19.

000023

113737

003205

P HEN
NN
=
a O
(S
ol S e S
ol N T T o 0 o W, 3

004037
003160
002114
000023
023126
023126
023146

043626

013705
060505
016537

047736

023144

000207

OO0O0O0O0O0O0

i
il
—

104001

;*AS UPPER BYTE OF RMAS CAN BE CHANGING IN A DUAL PORT
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

MOvB

002141

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

JSR

;*WITH AFTER GO
RO,3#COMPAR

; COMPARE

:RETURN FOR ERROR

:RETURN FOR GOOD COMPARISON

REINTO
WRFROM
19.

1%:

042402

;s SAME

MOV
ADD
MOV

ERROR

RTS

a#ERWORD,RS
;GETTING READY TO INDEX
RS ,RS
;DOUBLE ERROR WORD
RHWC=2(RS) ,@#REGADR ;FAILING REGISTER ADDRESS

; IMPROPER REGISTER CHANGE

;RETURN TO COMPARISON

~NrorNo

NN~
Nfld

]

OO O

000040
001774
000001

2%:
156474

BIS
MOV
MOV

#CLR,aR2

aFUNIT ,aR?
#DMD , aRHMR

4948

4949
4950
4951
4952
4953
6954
4955
4956
4957
4958
4959
4960
4961
4962
4963
6964
4965
4966

4967

4968
4969
4970
971

;GOOD BUFFER
sTEST BUFFER
;NUMBER

;AFTER RETURN TO CENTER LINE
;WITH GO IS GIVEN

COMMAND

;*NOW GIVE INIT AND GET ALL GO AND PIP DOWN
023146
023152
023156

023164
023172
023200
023206

023214
023220
023222
023224

042737
042737
052737
017737

004037
001632
002114
000023

000001
020000
000200
156462

003166
003210
003210
003222

;RH INITILIZE

;REINSTATE UNIT NUMBER
;SET DIAGNOSTIC MODE BIT

;THIS ENABLES COMMANDS WITHOUT MOL
;AND HOLDS RHLA FROM MOVING

CHANGE REGISTERS TO EXPECTED VALUE
C
#GO,3#REINTO+6
;SAVED RH(S!

C
S
v

lPlP,alRElNTO030 :SAVED RHDS!
#DRY,Q#REINTO+30 ;SAVED RHDS!
SRHLA,3#REINTO+42;SAVED RHLA

;*AFTER INITIALIZE SAVE REGISTERS SO THAT
;*COMPARES (AN BE DONE

JSR

0463424

RHW(
WRFROM

RO,a#SAVER

19.

: SAVE

;FROM
;10

;NUMBER OF REGISTERS SAVED

;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
:+OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS 1S
023226

023234
023240

113737

004037
003160

003205

043626

002141

———————

SEQ 0109

;NUMBER OF REGISTERS SAVED

0C1630

30A(1052)
10-SEP=-79
11:11
PAGE 110
RETURN TO CENTER LINE COMMAND TEST
150

;*COMPARE REGISTERS BEFORE RETURN TO CENTER LINE COMMAND
NN
NN
NN
NN

4928
4929
4930
4931
4932
4933
6934
4935
4936
4937
4938
4939
4940
6941
6942
64943
944
6945
6946
947

023100

NN
W

6924
4925
4926
4927

023076

OCOO0O0

6916
6917
4918
6919
4920
4921
4922
4923

MACYT1

;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

MOVB

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

;*COMPARE REGISTERS AFTER INITIALIZE

JSR
REINTO

RO,a#COMPAR

. COMPARE
;600D BUFFER

|
4972
4973
4974
4975

4976
4977

L978

4979
4980
4981
4982
4982
4984
4985
4986
4987
4988
4989
4990

10=-SEP=79 11:00

30A(1052)
10=-SEP=79
11:11
PAGE 111
RETURN TO CENTER LINE COMMAND TEST
150

SEa 0110

0232642
023244

002114
000025

WRFROM
19.

sTEST BUFFER

023246
023250
023252

023254
023254
023274

3%
3%

;RETURN POINT
; SAME
;RETURN POINT

023254
023260
023262
023270

013705
060505
016537

023272

000207

023274

104001

;NUMBER OF

: COMPARED

3%:

047736
001630

042402

(%:

MOV
ADD
MOV

a/ERWORD,RS

REGISTERS T0 BE
FOR ERROR

FOR GOOD COMPAR]ISON

;GETTING READY TO INDEX

ERROR

RS .RS
;DOUBLE ERROR WORD
RHWC=2(RS) ,@#REGADR ;FAILING REGISTER ADDRESS
1
; IMPROPER REGISTER

RTS

;CONTENTS AFTER GIVING AN
;INITIALIZE FOLLOWING A RETURN TO
;CENTER LINE COMMAND
;RETURN TO COMPARISON

.GOOD COMPARISON

CZRJGD.PI

MACY11

CIRJGDO,RPO&/S5/6 DSKLS CTRLR)

CZRJIGDO,RPO4/5/6 DSKLS CTRLR

CIRJGD. PN

10-SEP=79 11:00

MACYT

4991
499?
4993
499¢
4995
6996

4997
4998
4999
5000
5001
5002

5003

5004
5005
5006
5007
5008
5009
5010
5011
5012
5013
5014
5015
5016
5017
5018
5019
5020
5021
5022
5023
5024
5025
5026
5027
5028
5029

5030
5031
5032
5033
5034
5035
5036
503%7
5038
5039
5040
5041
5042

5045

5046

150

10-SEP=79

11:11

PAGE 112

SEQ 0111

RETURN TO CENTER LINE COMMAND TEST

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

E']ES‘ 51
g

il
g

RECALIBRATE COMMAND TEST

THE RECALIBRATE COMMAND WILL BE LOADED INTO RHCS! WITH GO

THEN ALL REGISTERS wiLL BE CHECKED
RH CLEAR wWILL BE GIVEN
THEN ALL REGISTERS wiLL BE CHECKED

R R
Y

023274
023276
023302
023310

000004
012706
012737
004737

001000
000051
042732

002032

023314

012777

000001

156336

1S151:

SCOPE
MOV
MOV
JSR

#STACK,SP
#TTINO,aN#TSTNM
PC,a#CLDISK

JRESET STACK
;THIS SAVES TEST NUMBER
;INIT AND SET UP GENERAL REG.

MOV

#DMD ,aRHMR

;SET DIAGNOSTIC MODE BIT
;THIS ENABLES COMMANDS WITHOUT MOL
;AND HOLDS RHLA FROM MOVING

;AND UNIT NUMBER

;*GIVE ONE INDEX PULSE TO CLEAR RHLA BEFORE THE START OF THIS TEST
023322
023330

052777
042777

000004
000004

156330
156322

BIS
BIC

FMINX,IRHMR
FMINX,IRHMR

;SET INDEX PULSE
;CLEAR INDEX

023336

013777

002050

156274

MOv

S#RECALI,3RHCS1

;LOAD RECALIBRATE COMMAND

023344
023350
023352
023354

004037
001632
003160
000023

043424

023356

052777

000001

023364
023370
023376
023404
023406

000004
000011
000001

023410
023416
023424

000001
020000

000200

RHW(
REINTO

RO,a#SAVER

; SAVE

;FROM
;10

;NUMBER OF

REGISTERS SAVED

;*GIVE GO TO RECALIBRATE COMMAND
;60 TO RECALIBRATE C(OMMAND
#G0,aRHCST
BIS

156254

;*FOUR SECTOR CLOCKS ARE GIVEN TO TAKE POSITIONER TO CYLINDER O

156262
156254

003166
003210
003210

5%:

MOV

: COUNTER

MOV

SET SECTOR CLOCK
#MSTCK!DMD,dRHMR;

DEC
BNE

RO
5%

MOV

#DMD ,aRHMR

;ReSET

SECTOR CLOCK

: COUNT
;BRANCH IF NOT COMPLETE

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES

BIS
BIS
BIC

#GO,9#REINTO+6 ;SAVED RHCSI
#PIP,9#REINTO+30 ;SAVED RHDS!
#DRY,Q#REINTO+30 ;SAVED RHDS!

;*AFTER GO HAS BEEN GIVEN TO RECALIBRATE

023432
023436

004037
001632

043424

INTO RH(SI

;*SAVE REGISTERS FOR COMPARISON AFTER GO

JSR

19.

5043
5044

30A(1052)

(OMMAND

;*SAVE REGISTERS AGAIN SO THAT COMPARISONS (AN
;*BE DONE

JSR

RHW(

RO,a#SAVER

s SAVE

;FROM

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CIZRJGD.P1Y
5047
5048

023440
023442

023444

MACY11

30A(1052)
10-SEP=79
11:17
RECALIBRATE COMMAND TEST
51

002114
000023

113737

WRFROM

;10

19.

003205

e
Se

9
PAGE 113

;NUMBER OF

SEQ@ 0112
REGISTERS SAVED

;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
;*OPERATION THE UPPER BYTE OFf RHAS WILL BE SAVED AS IS
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

MOvVB

002141

RFREINTO+25,3#WRFROM+25;
SAVE UPPER RHAS

;*COMPARE REGISTERS BEFORE RECALIBRATE COMMAND
023452
023456
023460
023462
023464
023466
023470

004037
003160
002114
000023
023472
023472
023512

043626

023472
023476
023500
023506

013705
060505
016537

047736

023510

104001

;*WITH AFTER GO

JSR

REINTO
WRFROM
19.
1%
1%

RO,a#COMPAR

:RETURN FOR GOOD COMPARISON

001630

1%:

042402

MOV
ADD
MOV

ERROR
RTS

000207

; COMPARE

;GOOD BUFFER
;TEST BUFFER
;NUMBER
;RETURN FOR ERROR
: SAME

o#ERWORD,RS
:GETTING READY TO INDEX
RS.RS
;:DOUBLE ERROR WORD
RHWC=2(RS) ,9#REGADR ;FAILING REGISTER ADDRESS

; IMPROPER REGISTER CHANGE
;AFTER RECALIBRATE COMMAND
;WITH GO IS GIVEN

;RETURN TO COMPARISON

5093
5094
5095
5096
5097
5098
5099
5100
5101
5102

~NrNoN

NNN

042737
042737
052737
017737

023560
023564
023566
023570

N s

023530
023536
023544
023552

023512
023516
023522

(= le o]

— et
\ N

;*NOW GIVE INIT AND GET ALL GO AND PIP DOWN

004037
001632
002114
000023

000040
001774
000001

000001
020000
000200
156116

2%:
156130

003166
003210

003210
003222

BIS

MOV
MOV

#CLR,3R2

3FUNIT ,aR?
#DMD ,aRHMR

sRH INITILIZE
;REINSTATE UNIT NUMBER
;SET DIAGNOSTIC MODE BIT

;THIS ENABLES COMMANDS WITHOUT MOL
;AND HOLDS RHLA FROM MOVING

CHANGE REGISTERS TO EXPECTED VALUE
C
#GO,a#REINTO+6
;SAVED RHCS!

C
S
v

#PIP,I#REINTO+30 ;SAVED RHDS!
#DRY,Q#REINTO+30 ;SAVED RHDSI
SRHLA ,@#REINTO+42;SAVED RHLA

;*AFTER INITIALIZE SAVE REGISTERS SO THAT
;*COMPARES CAN BE DONE

JSR

043424

RHW(
WRFROM

19.

RO,a#SAVER

: SAVE

: FROM
;10

;NUMBER OF REGISTERS SAVED

;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
;*OPERATION THE UPPER BYTE OF RHAS WiLL BE SAVED AS IS
023572

023600

113737

004037

003205

043620

002141

:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

MOVB

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

;*COMPARE REGISTERS AFTER INITIALIZE
. COMPARE
RO,a#COMPAR
JSR

NSRS T

CZRJGDO,RPO4/S5/6 DSKLS CTRLR!
10=-SEP=79 11:00
CIRJGD.P11

MACY11

30A(1052)
10-SEP=-79
11:11
PAGE
RECALIBRATE COMMAND TEST
151

5103
5104
5105

023604
023606
023610

003160
002114
000023

REINTO
WRFROM

5107
5108
5109
5110
5111
5112
5113
5114
5115
5116
5117
5118
5119
5120

023612
023614
023616

023620
023620
023640

3%
3%

023620
023624
023626
023634

013705
060505
016537

023636

000207

5106

023640

104001

: SAME
:RETURN POINT

3%:

001630

042402

MOV
ADD
MOV

ERROR

RTS

4%:

114

SEQ 0113

;GOOD BUFFER
;TEST BUFFER
;NUMBER OF REGISTERS TO BE
: COMPARED
:RETURN POINT FOR ERROR

19.

047736

FOR GOOD COMPAR]SON

:GETTING READY TO INDEX
a#ERWORD,RS
RS ,RS
:DOUBLE ERROR WORD
RHWC=2(RS) ,a#REGADR ;FAILING REGISTER ADDRESS
1
; IMPROPER REGISTER
;CONTENTS AFTER GIVING AN
;INITIALIZE FOLLOWING A
;RECALIBRATE COMMAND
PC

;RETURN TO COMPAKISON

.GOOD COMPARISON

——

(Tl

5121
5122

K
9
3?A(1052)
10-SEP=79
11:11
PAGE 115
51
RECALIBRATE COMMAND TEST

5123

AR AR A AR R AR A A A R A

g}gg

;*TEST 52

5126
5127
5128

s
Jee
Jee

5131

.':tt'tt"""""""""""l'i"""0"".""""'0.""tttl't

2}%8

5132
5133
5134
5135
5136
5137
5138

023640
023642
023646
023654

000004
012706
012737
004737

001000
000052
042732

002032

023660

012777

000001

g}:;

023666

013777

002054

5143
S144
5145
5146
g}:;

023674
023700
023702
023704

004037
001632
003160
000023

0434264

5149
5150
g}g;

023706
023714

052777
052777

000001
000001

3128

5153
5154
5155
g}gg

023722
023730

052737
017737

000001
155740

15152:

5166
5167
5168
21?8

023736
023742
023744
023746

023750

004037
001632
002114
000023

113737

5171

5172
5173
5174
5175
5176

023756
023762
023764

004037
003160
002114

043626

A A A R A

AR AR A AR AR

ARl

RELEASE COMMAND TEST

THE RELEASE COMMAND WILL BE LOADED INTO RHCS! WITH GO
THEN ALL REGISTERS WILL BE CHECKED
RH CLEAR WILL BE GIVEN

THEN ALL REGISTERS WILL BE CHECKED
*
#STACK,SP
#TINO,FTSTNM
PC,a#CLDISK

155772

MOV

#DMD , JRHMR

155744

MOV

SFRELEASE ,QRHCS1 ;LOAD RELEASE COMMAND INTO RMCS!

;RESET STACK
;THIS SAVES TEST NUMBER
;INIT AND SET UP GENCRAL REG.
;AND UNIT NUMBER
:SET DIAGNOSTIC MODE BIT
;THIS ENABLES COMMANDS WITHOUT MOL

;AND HOLDS RHLA FROM MOVING

;*SAVE REGISTERS FOR COMPARISON AFTER GO
JSR
RO,#SAVER
: SAVE
RHWC
: FROM
REINTO
;10
19,
:NUMBER OF REGISTERS SAVED

R
155724
155736

;*GiVE GO TO RELEASE COMMAND
BIS
#GO,aRHCS]
;GO TO RELEASE COMMAND
BIS
#DMD , 3RHMR
;SET DMD TO HOLD RHLA

003206
003222

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES
;*AFTER GO HAS BEEN GIVEN TO RELEASE COMMAND
BIS
#DMD,#REINTO+26;
SAVED RHMR
MOV
SRHLA,@NREINTO+42;
SAVED RHLA
;*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN
: *BE DONE
JSR
RO,3#SAVER
: SAVE
RHWC
; FROM
WRFROM
;10
19.
:NUMBER OF REGISTERS SAVED

043424

003205

SCOPE
MOV
MOV
JSR

5158

5159
5160
5161
5162
5163
g}gg

R R A

SEQ 0114

002141

;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS 1S
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
MOVB
Q#REINT0+25,3#WRFROM+25;SAVE UPPER RHAS
;*COMPARE REGISTERS BEFORE RELEASE COMMAND
;*WITH AFTER GO

JSR
REINTO
WRFRGM

RO,3#COMPAR

; COMPARE
:GOOD BUFFER
;TEST BUFFER

(alal

MACY1

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRIGD.PIN
10-SEP=79 11:00

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.PY
10-SEP-79 11:00
5177
5178

023766
023770

023772
023774

182

023776

024002
024004
024012

3?;51052)

10-SEP=79

RELEASE

023776
024016
960505
016537
104001

i
i

88
89

024014
024016

000207

PAGE

116

:NUMBER
:RETURN FOR ERROR

000023
023776

013705

11:11

COMMAND TEST

: SAME

;RETURN FOR GOOD COMPARISON

047736

001630

a#ERWORD,R5
;GETTING REAYD TO INDEX
R5,RS
;DOUBLE ERROR WORD
RHWC=2(RS) ,@#REGADR ;FAILING REGISTER ADDRESS

042402

83
84
85

oo
o

5179
5180

MACYN

2%:

; INPROPER REGISTER CHANGE
;AFTER RELEASE COMMAND

;WITH GO IS GIVEN

;RETURN TO COMPARISON

SEQ 0115

|
no
PAGE 117
10-SEP-79
11:11
3?A(1052)
52
RELEASE COMMAND TEST

SEQ 0116

-b ot

LV LV]

5191

a22222222222222
202
2Rttt Rdd ]

T+TEST 53
A

024016
024020
0246024
024032
024036
026044

000004
012706
012737
004737
012777
004037

024050

000000

001000
000053
042732
000001
045304

A2 2222

1§153:

002032
155614

MAKE CURRENT CYLINDER = 0
2220222022022

SCOPE
MOV
MOV
JSR
MOV
JSR

#STACK,SP
#TTNO,@#TSTNM
PC,aNCLDISK
#DMD , SRHMR
RO,I#MAKECYL

220l

d )

;RESET STACK
:THIS SAVES TEST NUMBER
:INIT DRIVE
:SET DIAGNOSTIC MODE
:SUBROUTINE TO GIVE A SEEK
:COMMAND FOLOWED BY AN INIT
:THIS SHOULD CHANGE RHC(

:CHANGE RHCC TO 0

::"""""""""""i."""'l"""'.""'.'..'.'."'l"l'.'

LOOX AHEAD REGISIER

;*TEST 54

sae

ae
ee

e
ae
e

A SEARCH COMMAND 1S GIVEN FOR CYLINDER 0, TRACK 0, SECTOR 21.
THE LOOK AHEAD REGISTER 1S CHECKED AFTER INDEX PULSE
THE EXTENSION FIELD 1S CHECKED IN EACH SECTOR AFTER

128 BYTES THEN AGAIN AFTER 128 MORE BYTES THEN AGAIN AFTER 256 MORE BYTES

THE SECTOR COUNT FIELD 1S CHECKED AFTER EACH SECTOR

THE END ALL REGISTERS ARE CHECKED

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

1§754:

024052
024054
024060
024066

000004
012706
012737
004737

001000
000054
042732

002032

SCOPE
MOV
MOV

024072

012777

000025

155544

MOV

#21.,3RHDST

024100
024104
024112

005077
012777
01371

155546
010000
002056

155536

MOV
MOV

(LR

ARHCA
#FMT22,3RHOF
S#SERCH, AR

024116

004037

043424

024122
024124
024126

001532
003160
000023

024130
024134

004737

024140

000000

104401

JSR

#STACK,SP
#TTNO,@#TSTNM

PC.aNCLDISK

:INIT AND SET UP GENERAL REGISTERS

:*THESE ARE REGULAR SET UPS FOR SEARCH COMMAND

:DESIRED SECTOR/TRACK REGISTER
:TRACK 0 SECTOR 21

:DESIRED CYLINDER =0
:FORMAT BIT=1 (16 BITS PER WORD)
:FILL SEARCH COMMAND IN RMCSI

:*NOW SAVE REGISTERS STARTING FROM RMWC IN WRITE FROM BUFFER

JSR

RO,#SAVER

RHWC
REINTO
19.

042766
062562

;RESET STACK
:THIS SAVES TEST NUMBER

JSR

TYPE

HALT

:SAVE REGISTERS FOR COMPARISON
:AT

THE END OF

THE SEARCH

:START SAVING FROM RHWC
:SAVE INTO REINTO
:NUMBER OF REGISTERS SAVED

PC,ANCHECKT
L CPHALT

;CHECK THAT DVA,RDY,DPR,DRY = 1
:AND THAT NO OTHERS = 1.

CANNOT (ON-

STINUE TESTING IF BOTH AREN'T TRUE
:STOP THE TEST

;*NOW THE DIAGNOSTIC MODE BIT WILL BE SET

;*AND THE SEARCH OPERATION STARTED

(alal

MACYT

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CIZRJIGD.P1Y

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=79 11:00
CIRJGD.P1

v ey
i

024146
024152
024156
024162
024166
024172
024200
024204
024210
024212
024216
024222
024224
024230
024234
024236

005037

024142

MACYT1

N 9
10-SEP=-79
11:11
PAGE 118
30A (1052)
154
LOOK AHEAD REGISTER

001200

CLR

afsTMP

;THIS WILL HAVE THE EXPECTED
;VALUE OF RHLA REGISTER

001660
155466

MOv
MOV

a#RHMR
, RO
aRHDST,R3
#177400,R3
R3,9#SECTR
#OMD,aR0
#G0,aRHCST
#MSTCK,aR0
#MSTCK,aR0

;NOW RO HAS MAINTENANCE REG. ADDR.
;GET DESIRED SECTOR/TRACK REG.

BIC
MOV

177400

053662
000001
000001
000010
000010

MOV

BIS
BIS
BIC
NOP
BIS
BIC
NOP
BIS
MOV
187
BEQ

155440

000010
000010
000014
000001

;GET SECTOR ONLY
;DUPLICATE SECTOR

:S
;60
;SET SECTOR CLOCK
;CLEAR SECTOR CLOCK
;ALLOW TIME BETWEEN SECTOR CLOCKS
;SET SECTOR CLOCK
#MSTCK,aR0
;CLEAR SECTOR CLOCK
#MSTCK,aR0
;ALLOW TIME BETWEEN SECTOR CLOCKS
#MINX!MSTCK,aR0O ;SET INDEX AND SECTOR CLOCK
#DMD,aR0
;RESET INDEX AND SECTOR CLOCK
R3
;1F SECTOR REQUIRED JUMP OUT
1%
;:BRANCH OF SECTOR ZERO REQUIRED

;*AFTER THE INDEX PULSE RHLA WILL BE CHECKED TO BE ZERO

001206
001126
001720
001126

024240
024246
024254
024262

024270
024272
024300
024304
024310
024314
024320

1%:

MOV

MOV
CMP

BEQ

MOV

001202

104024

;*AND $TMP4 WILL BE SET UP TO COUNT BYTES

MOV

SUB

Mov
SuB
MOV

001206
001204

ERROR

#608.,a#8TMP4

SRHLA ,a#$BDDAT

;THERE ARE 608 BYTES PER SECTOR
;SAVE RHLA

;SAVE DESIRED SECTOR TRACK
dRHDST ,a#DST
S#STMP1,a#SBDDAT ;RHLA SHOULD BE HAVE EXTENSION
;FIELD EQUAL TO ZERO
:BRANCH IF GOOD
2%
ON#SECTR,a#8TMP2 ;GET SECTOR SOUGHT
;$TMP2 NOW HAS PRESENT SECTOR
R3,a#$TMP2
#608.,-(SP)
:NUMBER OF BYTES PER SECTOR
; (SP)HAS PRESENT BYTE NUMBER
aNSTMP4, (SP)
(SP)+,a¥#$TMP3
;PRESENT BYTE NUMBER

;LOOK AHEAD REGISTER AT THE BEGINING OF A
;SECTOR IS IN ERROR

;*NOW THE 304 WORDS WILL START
;*FOR FIRST BYTE CLOCK WILL BE INDEPENDENT OF

;*SECTOR CLOCK THEN IT wILL COINCIDE FOREVER TILL
;*THE BEGINNING OF NEXT SECTOR

;*ONE WORD ONLY THAT IS TWO BYTES
024322
024326
024332
024334
024340
024344
024350
024354
024356
024360
024364
024370

012702
012705
000404
052710
042710
052710
042710
005302
001372
005337
012702
005305

000010
000002

2%:

000012
000012
000002
000002

3%:

001206
000007

4%:

MOV
MOV
BR

#8.,R2
#2,R5
(3]

MOV

#7,R2

BIS
BIC
BIS
BIC
DEC
BNE
DEC
DEC

;BYTE
;BYTES PER WORD

#MSTCK!MCLK,aR0
#MSTCK'MCLK,aR0
#MCLK, R0
#MCLK ,aR0
R2
4%
FLA LD

;SET SECTOR AND CLOCK
;CLEAR SECTOR AND CLOCK
:SET CLOCK
:CLEAR CLOCK
;BYTE COUNTER
:BRANCH IF BYTE NOT COMPLETE
:BYTE COUNT DOWN

:1S WORD COMPLETE?

:SETUP FOR SECOND BYTE

SEC 0117

CZRJIGDO,RPO4/5/6 DSKLS CTRLR!

CIRJGD. PN

8 10

10-SEP=-79
11:11
PAGE 119
30A(1052)
154
LOOK AHEAD REGISTER

001360

BNE

WVW00

;BRENCH IF NOT COMPLETE
;70 GIVE SECTOR CLOCK AND CLOCK

;*AND RHLA WILL BE MADE READY FOR NEXT SECTOR
;*AND RHLA WILL BE CHECKED

012705

000100

MOv

#64. ,R5

;RS WILL KEEP TRACK WHEN

024400

012701

000177

MOV

#127..R1

;FIRST TIME CHECK EXTENSION FIELD

024404
024410
024414
024420
024424
024430
024432
024434
024440
024442

012702
052710
042710
052710
042710
005302
001372
005337
001436
005301

000007
000012
000012
000002
000002

"7 ,R2
;CLOCKS PER BYTE COUNTER
#MSTCK!MCLK,QR0 ;SET SECTOR CLOCK AND CLOCK
#MSTCK!MCLK,aR0 ;CLEAR SECTOR CLOCK AND CLOCK

024444

001357

5%:

6%:

0
l
1
|
1
E

ocoOovoun<

024374

COOOD=T

WN=O VN

;*NOW 303 WORDS ARE LEFT ALL ARE IDENTICAL
;*THAT IS 606 IDENTICAL BYTES WILL BE GIVEN
;*RHLA WILL BE CHECKED STAR TO COUNT AFTER
;*BEGINNING OF SECTOR PULSE
;*AFTER 128 BYTES (2 BYTES ARE ALREADY GIVEN)
;*S0 127 MORE
;*THEN RHLA WILL BE CHECKED AFTER 128 MORE BYTES
;*THEN RHLA WILL BE CHECKED AFTER 256 MORE BYTES
;*THEN THE TOTAL OF 608 BYTES WILL BE COMPLETED

N LN N N N N N N N NN N NN W
W
PONIRIN b o
s e
s e OO

[V IV IV RV TV IV LV IV IV TV TV IV LW IV IV IV IV ]

024372

10-SEP-79 11:00

MACYT1

DEC
BEQ
DEC

R2
6%
NS TMP4
10%
R1

BNE

001206

#MCLK ,aR0
#MCLK,aR0

;EXTENSION FIELD IS TO BE CHECKED

;AFTER 127 MORE BYTES

;SET CLOCK
;RESET CLOCK

;COUNT DOWN CLOCKS PER BYTE
;BRANCH IF BYTE NOT COMPLETE
;COUNT DOWN BYTES
;BRANCHOUT IF 608 BYTES DONE
;COUNT DOWN NUMBER OF BYTES
;70 CHECK EXTENSION FIELD
;BRANCH IF EXTENSION FIELD NOT
;70 BE CHECKED YET

;*NOW THE EXTENSION FIELD OF THE LOOK AHEAD REGISTER
;*WiLL BE CHECKED
;GET TO THE NEXT EXTENSION
;GET RHLA FOR COMPARISON

024446
024454

062737
017737

000020
155214

001200
001126

ADD
MOV

#20,a¥8TMP]
ORHLA,a#$BDDAT

024462
024470
024476
024500
024506
024512
024516
024522
024526

017737
023737
001414
013737
160337
012746
163716
012637
104025

155156
001200

001720
001126

MOV

;:SAVE DESIRED SECTOR TRACK
aRHDST ,a¥#DST
;CHECK VALUE OF RHLA
DDAT
a¥STMP1,a¥#$B

053662
001202
001140
001206
001204

001202

MoV
SUB
Mov
SUB
MOV

024530
024532
024534

060505
010501
000723

7%:

062737
052710

10%:

024536
024544

CMP
BEQ

ERROR

ADD
MOV

000020
000010

001200

ADD

BIS

7%
¥#SECTR,a#STMP2
R3,a¥$TMP2
#608.,-(SP)

A¥STMPSL, (SP)
(SP)+,a#8TMP3
25
R5.R5

;:BRANCH 1F

GOOD
;GET SECTOR SOUGHT
;$TMP2 NOW HAS PRESENT SECTOR
;NUMBER OF BYTES PER SECTOR

: (SP) HAS PRESENT BYTE NUMBER
;PRESENT BYTE NUMBER
;LOOK AHEAD ERROR IN THE MIDDLE
:CF A SECTOR IS IN ERROR
;GET NEXT STEP TO CHECK EXTENSION FIELD

R5.R1
5%

;PUT IN COUNTER
;BRANCH BACK SECTOR

#20,a#8THP1
#MSTCK, QR0

;THESE TWO INSTRUCTIONS GIVE

;1S NOT COMPLETE

SEQ 0118

CIZRJGDO,RPO4/5/6 DSKLS CTRLRY
CIZRJGD.P11
10-SEP=79 11:00
024550
024554
024556
024562

042710
000240
052710
042710

024566
024570

005303
001223

MACY11

c10

30A(1052)
10-SEP-79
11:11
PAGE 120
154
LOOK AHEAD REGISTER

000010

BIC

NOP
BIS
BIC

000010
000010

DEC
BNE

#MSTCK,aR0

SEQ 0119

;ONE SECTOR CLOCK EXTRA

#MSTCK,aR0
#MSTCK,aR0

;ALLOW TIME BETWEEN SECTOR CLOCK
;THESE TWO INSTRUCTIONS GIVE
;ONE SECTOR CLOCK EARLY

R3
1%

;BRANCH IF NOT

;BEFORE THE NEXT SECTOR
;1S REQUIRED NO OF SECTORS COMPLETE

;*NOW THE REQUIRED SECTOR IS REACHED
;*ONE SECTOR CLOCK WILL BE GIVEN TO GET SECTOR PULSE
;*DOWN AND HENCE ATA UP

024616

000010
000002
000002

—

012702
052710
042710
005302
001372
052710
042710

024572
024576
024602
024606
024610
024612

MOV
BIS
BIC
DEC

BNE
BIS
BIC

000012
000012

#8.,R2
#MCLK,aR0
#MCLK 3RO
R2

12%

;8 CLOCKS
;SET CLOCK
;CLEAR CLOCKS
; COUND DOWN

;BRANCH IF 8 NOT DONE

#MSTCK!MCLK,aR0O ;SET SECTOR AND CLOCK
#MSTCK!MCLK,aR0 ;CLEAR SECTOR AND (CLOCK

;*NOW ALL REGISTERS WILL BE COMPARED
;*SO FILL EXPECTED VALUE INTO SAVED LOCATIONS
024622
024630

052737
053737

100000
002016

003166
003204

BIS
BIS

024636
024644
024652

052737
052737
013737

000001
100000
001200

003206
003210
003222

BIS
BIS

MOv

#SC,A¥REINTO+6 ; INCLUDE SC IN SAVED RHCS!
O¥ATTENT ,Q#REINTO+24 ;FILL APPROPIATE ATTENTION
;IN SAVED RHAS
#DMD ,@#REINT" 26 ;SET DMD IN RHMR SAVED
#ATA ,Q#REINTU+30 ;SET ATA IN RHDS1 SAVED
A¥STMP1 ,Q¥#REINTO+42 ;MOVE EXPECTED VALUE

;INTO RHLA SAVED

;*AFTER SEARCH COMMAND
;*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE
5393
5394
5395
5396
5397
5398
5399
5400
5401
5402
5403
5404
5405
5406
5407
5408
5409
5610
5611
5612
5413
5614

024660
024664
024666
024670

024672

004037
001632

JSR

043424

RO,a#SAVER

s SAVE

002114
000023

RHWC
WRFROM
19.

113737

;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
MOvVB
A¥REINTO+25,9¥#WRFROM+25;SAVE UPPER RHAS

003205

002141

;FROM
: 10
:NUMBER

;*COMPARE REGISTERS BEFORE SEARCH WITH AFTER
024700
024704

004037
003160

024706
024710
024712
024714
024716
024720

002114
000022

024720
024720
024740
013705

JSR

043626

047736

REINTO

13%:

WRFROM
18.
13%
13%
14%

MOV

RO,a#COMPAR

a¥ERWORD,RS

: COMPAR

;G0 BUFFER
;TEST BUFFER
: NUMBER
;RETURN FOR ERROR
: SAME
;RETURN FOR GOOD COMPARISON

;GETTING READY TO INDEX

]

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=79 11:00
CZRJGD.PIN

5615

5616

5417
56418
56419
5620

024724
024726

060505
016537

024736

000207

001630

£i

D 10

MACYT1

30A(1052)
10-SEP-79
PAGE 121
154
LOOK AHEAD REGISTER

042402

RHWC=2(RS) ,a¥#REG ADR

SEQ 0120

;DOUBLE ERROR WORD
;FAILING REG.

ADDRESS

;CONTENTS OF REGISTER

; CHANGED AT END OF

; SEARCH

5621
5622
5423
5424
5425
5626
5427
5428
5629

56430
5631
5632
5433

5634

MACY11

E 10

30A(1052)
10-SEP-79
11:11
PAGE 122
154
LOOK AHEAD REGISTER

SEQ 0121

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

;*TEST 55

MAKE CURRENT CYLINDER = 0

:""i'""'"'""""""'Q""""""""."'.".""""t""

024740
024742
024746
024754
024760
024766
024772

000004
012706

012737
004737
012777
004037
000000

001000
000055
042732
000001
045304

1ST55:

002032

154672

SCOPE
MOv

#STACK,SP

JSR

RO,a#MAKECYL

MOV
JSR
MOv

#TTNO,I¥#TSTNM
PC,a#CLDISK
#DMD ,aRHMR

;RESET STACK

;THIS SAVES TEST NUMBER
:INIT DRIVE
;SET DIAGNOSTIC MODE

;SUBROUTINE TO GIVE A SEEK

; COMMAND FOLOWED BY AN INIT
;THIS

SHOULD CHANGE

; CHANGE RHCC TO O

RHCC

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD P11

|
5635
5636
5437
5438
5439
5440
5441
5442
5443
5444

.SBTTL

10-SEP-79

11:11

10
PAGE 123

SEQ 0122

MAKE CURRENT CYLINDER = 0

READ/WRITE ADDRESSING VIA RHMR

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

;*TEST 56

e
g
P
e
e

5445
5446

5447
5448
5449
5450
5451
5452
5453
5454
5455
5456
5457
5458
5459
5460
5461
5462
5463
5464
5465
5466
5467
5468
5469
5470
5471
5672
5473
5474
5475
5476
5477
5478
5479
5480
5481
5482
5483
5484
5485
5486
5487
5488
5489
5490

3?9;1052)

024774
024776
025002

001000
000056

002032

051436
000460

025010
025014
025020
025024
025026
025030

1%:

177777

WRITE CYLINDER O, FORMAT 16 BIT PER WORD
TRACK 0, SECTOR O, KEYS O, NUMBER OF WORDS 256 OF 0°'S
AS EVERYTHING IS ZERO THIS PROVES VERY LITTLE
ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS)

2222222222222

15156:

SCOPE

22222222222222222222222

222220t

MOV
MOv

#STACK,SP
#TTNO,Q¥TSTNM

;RESET STACK
;THIS SAVES TEST NUMBER

MOV
MOV

#SECGAP,RO
#304. ,R1

;POINTER
; COUNTER

DEC
BNE

R1
1%

:
:

MOV
JSR

042732

WRITE HEADER AND DATA 1

#-1,(R0O)+

PC,CLDISK

;CLEAR ''DISK'" AREA TO ALL ONES
;THIS IS USED TO SET UP GENERAL

;REGISTER CORRESPONDENCE

;*THESE ARE TO SET UP FOR DISKLESS USE ONLY
025034

012737

010000

025042
025046
025052
025056
025064
025070
025072

005037
005037
005037
012737
004537
052754
052764

052756
052760
052762
000400
044140

052754

053014

MOV

HEMT22,3#WCYL

CLR
CLR
CLR
MOV
JSR

IFWSECTR
INWKEY!
ANWKEY?2
#256. ,9#FNWORD
RS ,a#CRC

wiyL

;FORMAT 22=16 BIT WORDS AND

;CYLINDER 0
: TRACK=0, SECTOR=0
;KEY'=0
;KEY2=0

;256 DATAWORDS
;G0 TO CALCULATE CRC

GCRC

;*THESE ARE REGULAR SETUPS FOR RH11 & "'WRFROM' QUTPUT BUFFER
177374
002114
154522

025074
025102
025106
025112
025116

025122
025124
025126
025130
025134
025140

154530

2%:
154510

004737

042766
062562

104401

#-260. ,aRHWC
#WRFROM,RO

;256 DATA WORDS & HEADER WORDS
;BUS ADDRESS T0 BE

CLR
DEC
BNE
CLR

(RO)+
RS
2%
adRHDST

;SECTOR=0, TRACK=0,kEYS=0, ALL DATA=0
;& CYLINDER=0....S0 CLEAR ALL ''WwRFROM"
;CONTINUE IF ALL 259 NOT COMPLETE
: TRACK=0, SECTOR=0

JSR

PC,a#CHECKT

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

MOv
MOV
MOV

000403
010000

005077

MOV
MOV

TYPE

RO,aRHBA
#259.,RS
#EMT22,(RO)+

,CPHALT

:BUFFER "'WRFROM''
: COUNTER
;FORMAT =16 BIT WORD

:AND THAT NO OTHERS = 1.

CANNOT CON-

MACY11

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CZRJGD.P1 1

—

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP-79 11:00
CZRJGD.PI

5691

5692
5493
5494

5495

5496
5497
5498
5499
5500
5501
5502
5503

025144

000000

025146

01371

002066

025152
025156
025164
025170

005037
012777
005077
004737

002006
010000

MACY11

6 10

30A(1052)
10-SEP=79
11:11
PAGE
156
WRITE HEADER AND DATA 1

154462

052600

;STOP THE TEST

MOV

a#WRIFOR,aR1

CLR

ANERFLGS

MOv
CLR
JSR

SEQ 0123

;TINUE TESTING IF BOTH AREN'T TRUE

HALT

154464

124

#FEMT22,aRHOF
aRHCA
PC,a#COMWHD

;GET READY FOR WRITE HEADER

;AND DATA WITH 62 IN RH(S!
;CLEAR ERROR FLAG

;FORMAT BIT=1 16 BIT WORDS

;CYLINDER 0

;WRITE HEADER AND DATA FROM ''WRFROM'
;INTO THE RHMR REGISTER AND BACK INTO
;CORE "'DISK'" AREA

;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR
;*PRINT OUTS FROM THE ''COMWHD'' ROUTINE THAT MEANS
;*ALL HEADER ON DISK IS GOOD IE. ONLY DATA IS
;*T0 BE CHECKED TO SEE IF IT IS ZERO
;*AND WRITE DATA GAP AND TOLERANCE GAP TO SEE

THEY

;*CHECKING RHWC FOR ZERO

s e

NO WV

s e

VLV IV LV IV IV IV IV AV

(W IV RV LV LV IV IV TV LV IV ]

;*ARE ALL ZEROS (ECC1 AND ECC2 MAY NOT BE 0) AS WELL AS
025174
025202
025204

017737
001401

154432

025206
025212
025214
025220
025224
025226
025232

005737
001034
004737

002006

005037
005037

052534
052536

001126

104040

104401
000000

MOV

dRHWC ,$BDDAT

;MOVE WORD COUNTER INTO BAD DATA

181

O¥ERFLGS

;HAVE ANY ERRORS OCCURED?

JSR

PC,a¥#CHECKE

CLR

IfWECC
INWECC2

BEQ
ERROR

5%:

043156
062562

BNE

TYPE
HALT
CLR

5%
40

18157

,CPHALT

; SHOULD HAVE COUNTED UP TO ZERO
;RHWC DID NOT = O AFTER A WRITE
;HEADER AND DATA
; ;BRANCH IF

YES
;CHECK THAT BITS = 1

: CANNOT CONTINUE TESTING IF
;STOP THE TEST
;CLEAR ECC

THEY DON'T

;*REINTO BUFFER IS FILLED WITH EXPECTED DATA OF ALL 0'S
025236
025242
025244
025246
025250

004037
003160
004220
000000
005037

042650

025254
025260
025262
025264
025266
025270
025272
025274
025276
025300

004037
003160
051534
000421
025274
025300
025304

043626

002006

RO,3#CLAREA

.WORD
CLR

REINTO+<272.%2> ;10
0
;FILL WITH ZEROS
O¥ERFLGS
;CLEAR ERROR FLAG

REINTO

:CLEAR "'REINTC"

;FROM

;*COMPARE "'REINTO'" BUFFER WITH "'DISK'' BUFFER

JSR
REINTO
DISK

RO,a#COMPAR

273.
3%

104007

3%:

104010

(%:

000207

JSR

4%
18157

ERROR
RTS
ERROR

: CHECK
:GOOD BUFFER
;TEST BUFFER

;NUMBER OF WORDS CHECKED
;RETURN POINT FOR ERROR HEADER

;RETURN POINT FOR ERROR DATA
;RETURN FOR GOOD COMPARISON

;READ ERROR10 NEXT
;RETURN TO '‘COMPAR"
;WORD NOS 1 TO 256 ARE
;DATA WORDS

;257 AND 258 ARE ECC

———

CZRJGDO,RPO4/S5/6 DSKLS CTRLR1
CZRJGD.P1
10-SEP=79 11:00
5547
5548
5549
5550

025302

000207

MACY11

H 10
30A(1052)
10-SEP=79
11:11
PAGE 125
156
WRITE HEADER AND DATA 1

RTS

s LER
3299

SEQ 0124
T

3 TOLERANCE GAP

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CZRJIGD P11

5551
5552
5553
5554
5555
5556
5557
5558
5559
5560
5561
5562
5563
5564
5565
5566
5567
5568
5569
5570
5571
5572
5573
5574
5575
5576
5577
5578
5579
5580
5581
5582
5583
5584
5585
5586
5589
5590

MACY1T

110
3?A(1052)
10-SEP=79
11:11
PAGE 126
WRITE HEADER AND DATA 1
56

SEQ 0125

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

SRTEST 57
MR
8

MRS

WRITE HEADER AND DATA 2

WRITE CYLINDERO, FORMAT

16 BITS PER WORD

TRACK O, SECTOR 1, KEYS O, NUMBER OF WORDS 256

OF ALL ONES.
ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS)

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

025304
025306
025312
025320
025324
025330
025332
025334
025336

001000
000057

15157:
002032

051436
000460
001375
004737

1%:

042732

SCOPE

MOV
MOV

#STACK,SP

;RESET

MOV
MOV

#SECGAP,RO
#304. ,R1

;POINTER
; COUNTER

CLR
DEC
BNE
JSR

#TINO,@#TSTNM

(RO)+

PC.,a#CLDISK

STACK

;THIS SAVES TEST NUMBER

;CLEAR SIMULATED ''DISK'" AREA IN CORE

:THIS IS USED TO SET GENERAL REGISTERS

s *THESE ARE TO BE SETUP FOR DISKLESS USE ONLY
025342

012737

010000

052754

MOV

025350
025356
025362
025366
025374
025400
025402

012737
005037
005037
012737
004537
052754
052764

000001

052756

MOV

053014

MOV

052760
052762
000400
044140

CLR
CLR

JSR

wiyL

FEMT22 ,a0ulYL
#1,9#WSECTR

AFWKEY1
afWKEY2

#256. ,a#FNWORD
RS,a#CRC

177374

154220

025422

010000

MOV

#EMT22, (RO)+

025426
025432
025434
025436
025442
025446
025450
025452

000001

2%:

MOV

000400
177777

3%:

MOV
MOV

#1,(RO)+
(RO)+
(RO)+

025470

000000

;256 DATA WORDS
;G0 TO CALCULATE

C(RC

#-260. ,aRHWC
#WRFROM,RO

154212

104401

SECTOR=1

ARE REGULAR SETUPS FOR THE RH11 AND "‘WRFROM'' BUFFER

002114

004737

sKEY1=0
:KEYZ2=0

;*THESE
MOV
MOV
MOv

025460
025464

;TRACK=0,

GCRC

025404
025412
025416

001374
012777

;FORMAT 22 = 16 BIT WORDS AND

;CYLINDER 0

000001

042766
062562

154164

CLR
CLR

RO,aRHBA

#256.,R5
l;l.(RO)‘

;256 DATA WORDS & HEADER WORDS
;THESE TWO INSTRUCTIONS GETS

;ADDR. CF WRFROM INTO RO AND

:BUS ADDRESS REGISTER
;FORMAT=16 BIT

;CYLINDER=0

WORDS

; TRACK=0, SECTOR=1, KEYS=0
sKEY1=0
sKEY2=0
: COUNTER
;MOVE ALL ONES FOR DATA

DEC
BNE

MOv

3%
#1,3RHDST

;BRANCH IF DATA NOT COMPLETE
; TRACK=0 SECTOR=1

JSR
TYPE

PC,a#CHECKT
.CPHALT

;CHECK THAT DVA,RDY,DPR,DRY = 1
;AND THAT NO OTHERS = 1,
(CANNOT (ON-

HALT

;TINUE TESTING 1F BOTH AREN'T
;STOP THE TEST

TRUE

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI]
CZRJGD.PI
10-SEP=79 11:00

MACYT1

J 10

30A(1052)
10=-SEP=79
11:11
PAGE
157
WRITE HEADER AND DATA 2

228;

025472

013711

002066

MOV

S/WRIFOR,
aR1

5609
5610
5611
5612
5613
5614
5615
5616
5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
5627
5628
5629
5630
5631
5632

025476
025502
025510
025514

005037
012777
005077
004737

002006
010000
154136
052600

CLR
MOV

OFERFLGS
NEMT22 ,aRHOF

JSR

PC,a#(OMWHD

5633
5634
5635
5636
5637
5638
5639
5640
5641
5642
5643
5644
5645
5646
5647
5648
5649
5650
5651
5652
5653
5654
5655
5656
5657
5658

5659

5660
5661
5662

154140

CLR

aRHCA

127

SEQ 0126

;GET READY FOR WRITE HEADER AND

;DATA WITH 62 IN RHCSIT
:CLEAR ERROR FLAG

;FORMAT BIT=1 (16 BIT WORDS)

;CYLINDER =0

;WRITE HEADER AND DATA INTO "DISK'" AREA

;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;*FROM THE ''COMWHD'' ROUTINE THAT MEANS ALL THE HEADER ON 'DISKTM
;*1S GOOD IE. ONLY THE DATA IS TO BE CHECKED TO SEE IF IT IS
;*ALL ONES AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF
;*THEY ARE ALL ZEROS, - ECC1 AND ECC2 ARE NOT CHECKED.
;*RHWC 1S CHECKED TO BE = 0
025520
025526
025530

017737
001401
104040

154106

025532
025536
025540
025544
025550
025552
025556

005737
001041
004737
104401
000000
005037
005037

002006

001126

MOV

BEQ
ERROR
6%:

043156
062562

18T

BNE
JSR
TYPE
HALT
CLR

052534
052536

CLR

aRHWC, $BDDAT

6%
40

O¥ERFLGS

;LOAD WORD COUNTER JUST

IN CASE

; SHOULD BE = 0
;RHWC DOES NOT = O AFTER A WRITE
;HEADER AND DATA IS COMPLETED

;HAVE ANY ERRORS OCCURRED?

15160
PC,a#CHECKE
LCPHALT

; ;BRANCH IF YES
;CHECK THAT BITS = 1
;CANNOT CONTINUE TESTING IF

ANWECC]
INWECC2

;CLEAR ECC

;STOP THE TEST
;CLEAR ECC

THEY DON'T

;*FILL ""REINTO' BUFFER WITH EXPECTED DATA OF ALL 1'S
025562
025566
025570
025572
025574
025600
025602
025604

004037
003160
004156
177777
004037
004160
004220
000000

042650

JSR

RO,a#CLAREA

042650

REINTO+<255.#2>
-1
.WORD
JSR
RO,2#CLAREA
REINTO+<256.+2>
REINTD+<272.%2>
0

;10
;DATA
sFILL REST
;FROM
;10
;DATA

025606

005037

002006

CLR

;CLEAR ERROR FLAG

REINTO

A¥ERFLGS

;FILL REINTO BUFFER
;FROM

;*NOW COMPARE ''DISK'* BUFFER WITH "REINTO'" BUFFER IN CORE
025612
025616
025620
025622
025624
025626
025630
025632
025634

025636

004037
003160
051534
000421
025632
025636
025642
104007
000207

104010

JSR

043626

REINTO

RO,a#COMPAR

4%:

5%:

ERROR

RTS

ERROR

:GO0D BUFFER

;TEST BUFFER
;NUMBER OF WORDS CHECKED

D1SK
273.

4%
5%
15160

s CHECK

;RETURN POINT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA
;RETURN FOR GOOD COMPARISON

;READ ERROR 10 NEXT

;WORD NOS 1 TO 256 ARE

;RETURN TO COMPARE
;DATA WORDS

;WORD NOS 257 AND 258
;ARE

ECC

WHICH WAVE

BEEN

1
10-SEP-79 11:00

10-SEP=79

K 10
PAGE 128

SEQ 0127

WRITE HEADER AND DATA 2

5663

5664
5665
5666
5667
5668
5669
5670
5671

11:11

; LEROED
;WORD NOS 259
;1S DATA GAP

;WORD NOS 260 10 273
025640

000207

RTS

;ARE

TOLERANCE GAP

;RETURN TO COMPARE

ISR
UL
.

ala

CIZRJGD.P11

MACYN 3?2;1052)

CZRJGDO,RPO4/5/6 DSKLS CTRLR1

CZRJGD. P

5672
5673
5674
5675
5676
5677
5678
5679
5680
5681
5682
5683
5684
5685
5686
5687
5688
5689
5690
5691
5692
5693
5694
5695
5696
5697
5698
5699
5700
5701
5702

10-SEP=-79 11:00

MACY11

L 10

30A(1052)
10-SEP-79
11:11
PAGE 129
157
WRITE HEADER AND DATA 2

SEQ 0728

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

;*TEST 60
MR
2

TRACK 1, SECTOR 1, KEY O, NUMBER OF WORDS 256

M24

025642
025644
025650

001000
000060

025656
025662
025666
025672
025674
025676

051436
000460
000377

1%:

042732

ALTERNATE ONES AND ZEROS (052525)
ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS)

2322232323222 2233232222323322223322223222222322222222222RR2RR2RR2
22 8}

15160:
002032

WRITE HEADER AND DATA 3
WRITE CYLINDER O FORMAT 16 BITS PER WORD

SCOPE

MOv
MOV

#STACK,SP
#TINO,@NTSTNM

;RESET STACK
:THIS SAVES TEST NUMBER

MOV
MOV
MOV

#SECGAP,RO
#304.,R1

;POINTER
: COUNTER

DEC
BNE
JSR

4377, (R0)+

:LOAD SIMULATED "DISK'' AREA WITH 377

PC,CLDISK

;
:
:THIS

R
18

s *THESE ARE

TO BE SETUP FOR DISKLESS USE ONLY

025702

012737

010000

052754

MOV

NEMT22,9#WCYL

025710
025716
025722
025726
025734
025740
025742

012737
005037
005037
012737
004537
052754
052764

000401

052756

MOv
CLR
CLR
MOV
JSR
wlyL

#401,9#WSECTR

052760
052762
000400
044140

053014

1S USED TO SET UP GENERAL

;REGISTER CORRESPONDENCE

IFWKEY]
INWKEY2
#256. ,9#FNWORD
RS ,a#CRC

;FORMAT 22=16 BIT WORDS AND

;CYLINDER 0

; TRACK=1, SECTOR=1

;KEY1=0
;KEY2=0
;256 DATA WORDS
;G0 TO CALCULATE CRC

GCRC

NOWVWS W

NN
VYWV
VWA WV
VAV VAW
NNNNNNNNNNNNNNNNNN
PORONO NI NN N N = o
cd
i b ed cd

=0V NOWVWESWNN—-O

;*THESE ARE REGULAR SETUPS FOR RH11 AND ''WRFROM'' BUFFER
MOv
MOV

#-260.,aRHWC
#WRFROM,RO

;256 DATA WORDS & HEADER WORDS
;THESE TWO INSTRUCTIONS GET

153652

MOV

RO,3RHBA

;AND BUS ADDRESS REGISTER

012720

010000

MOV

#FEMT22, (RO)+

025766
025772
025774
025776
026002
026006
025010
026012

012720
005020
005020
012705
012720
005305
091374
012777

000401

2%:

MOv

000400
052525

3%:

MOV
MOV

#401,(RO)+
(RO)+
(RO)+
#256.,R5

026020
026024

004737

042766
062562

025744
025752

012777
012700

002114

025756

010077

025762

026030

104401

000000

177374

000401

153660

153624

CLR
CLR

#052525,(R0O)+

;ADDR. OF WRFROM INTO RO

;FORMAT=16 BIT WORDS
;CYLINDER=0
:TRACK=1, SECTOR=1, KEYS=0
;KEY1=0
;KEY2=0
: COUNTER

sMOVE ALTERNATE ONES FOR DATA

DEC
BNE

MOV

RS
3%
#401 ,9RHDST

s COUNT
sBRANCH IF DATA NOT COMPLETE
:TRACK=1 SECTOR=1

JSR

PC,a#CHECKT

;CHECK THAT DVA,RDY,DPR,DRY = 1
;AND THAT NO OTHERS = 1.
CANNOT CON-

TYPE

HALT

.CPHALT

;TINUE TESTING IF BOTH AREN'T TRUE
;STOP THE TEST

026032

013713

002066

026036
026042
026050
026054

005037
012777
005077
004737

002006
010000
153576
05260v

m10

30A(1052)
10-SEP=-79 11:11
PAGE 130
160
WRITE HEADER AND DATA 3
MOV

d¥WRIFOR,aR1

CLR

aVERFLGS

CLR

aRHCA

MOV

153600

JSR

#FEMT22,3RHOF
PC.a#COMwED

SEQ 0129

;GET READY FOR WRITE HEADER

;AND DATA WITH 62 IN RHCS!
;CLEAR ERROR FLAG

;FORMAT BIT=1(16 BIT WORDS
;CYLINDER=0

;WRITE HEADER AND DATA INTO "DISK'" CORE

;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;*FROM THE "COMWHD'' ROUTINE THAT MEANS ALL HEADER IN
;*"'DISK' 1S GOOD. DATA IS TO BE CHECKED TO SEE
;*1F IT IS ALL 052525 AND WRITE DATA GAP AND
;*TOLERANCE GAP TO SEE IF THEY ARE ALL ZEROS.

;*RHWC IS CHECKED TO BE = 0
026060
02606,
026070

017737
001401

153546

MOV

001126

BEQ
ERROR

104040

oRHW( , $BODAT

6%
40

;LOAD AND TEST FOR ZERO

;RHWC SHOULD = 0
;RHWC DID NOT = 0 AFTER A WRITE
;sHEADER AND DATA WAS COMPLETED

;*ONLY ECC1 AND ECC2 ARE NOT CHECKED
026072
026076
026100
026104
026110
026112
026116

005737
001041
004737
104401

000000
005037
005037

002006

6%:

043156
062562

18T

O#ERFLGS

;HAVE ANY ERRORS OCCURED?

TYPE

»CPHALT

;CANNOT CONTINUE TESTING IF

BNE
JSR

HALT

052534
052536

CLR
CLR

157161
PC,a#CHECKE

INWECCT
ONWECC?

; :BRANCH IF YES
;CHECK THAT BITS =1
:STOP THE

;CLEAR ECC
;CLEAR ECC

TEST

THEY DON'T

s*FILL "REINTO' BUFFER WITH EXPECTED DATA
026122
026126
026130
026132
026134
026140
026142
026144
026146

004037
003160
004156
052525
004037
004160
004220
000000
005037

JSR

042650

REINTO

RO,a#CLAREA

REINTO+<255.+2>

.WORD
JSR

042650

CLR

002006

;10

;DATA
52525
RO,3#CLAREA
:FILL REST
;FROM
>
REINTO+<256.+*2

REINTO+<272.%*2>
.WORD

;FILL REINTO BUFFER

;FROM

OFERFLGS

;10

;DATA

;:CLEAR ERROR FLAG

;*NOW COMPARE "'DISK'' BUFFER WITH ''REINTO'* BUFFER IN CORE
026152
026156
026160
026162
026164
026166
026170
026172
026174
026176

004037
003160
051534
000421
026172
026176
026202
104007
000207
104010

JSR

043626

REINTO

RO,a#COMPAR

15761

ERROR

5%:

ERROR

RTS

:GOOD BUFFER

:TEST BUFFER
:NUMBER OF WORDS CHECKED
;RETURN POINT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA

D1SK
273.
4%
5%
4%:

; CHECK

;RETURN FOR GOOD COMPARISON

;READ ERROR 10 NEXT
;RETURN TO COMPARE

;WORD NOS 1 TO 256 ARE
:DATA WORDS

MACY11

o 1

CIZRJGDO,RPO4/5/6 DSKLS CTRLR
10-SEP=79 11:00
CZRJGD.P1

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P11
10-SEP-79 11:00

MACY11

N 10
30A(1052)
10-SEP=-79
11:11
PAGE 131
160
WRITE HEADER AND DATA 3

5784
5785
5786
5787
5788

;WORD NOS 257 AND 258
;ARE ECC WHICH HAVE BEEN

: LEROED
;WORD NOS 259
;1S DATA GAP
;WORD NOS 260 10 273

5789
5790
g;g;

5793
5794
5795

026200

000207

RTS

;ARE TOLERANCE GAP
;RETURN TO COMPARE

SEQ 0130

1
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
5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851

MACY1]

B 11
10-SEP-79
11:11
PAGE
50A(1052)
160
WRITE HEADER AND DATA 3

132

SEQ 013

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

;*TEST 61
s

WRITE CYLINDER O, FORMAT

WHILE GO BIT IS SET ANOTHER GO IS GIVEN THIS SHOULD SET

A
A
e

026202
026204
026210

001000
000061

026242

026250
026254
026260
026264
026272
026276
026300

002032

177777

1%:

042732

012737
005037
005037
005037
012737
004537
052754
052764

010000
052756
052760
052762
000400
044140

177374
002114

026302
026310
026314
026320
026324

052754

053014

153314

000403
010000
2%:

026330
026332
026334
026336

001375
005077

153302

026342
026346

004737
104401

042766
062562

026352

000000

026354

013711

002066

026360
026364

005037
012777

002006
010000

PROGRAM ERROR

222222

22222l ll

#STACK,SP
#TTNO,QFTSTNM

;RESET STACK
;THIS SAVES TEST NUMBER

MOV
MOV
MOV
DEC
BNE
JSR

#SECGAP,RO
#304. ,R1
#-1,(R0O)+
R1
1%
PC.CLDISK

;POINTER
; COUNTER
;CLEAR DISK AREA TO ALL ONES.

;*THESE

ARE

MOv

NEMT22,30WCYL

:FORMAT 22=16 BITWORDS AND

CLR
CLR
CLR

dFWSECTR
AFWKEY

;TRACK=0, SECTOR=0

‘REGISTERS

TO SET UP FOR DISKLESS USE ONLY

INWKEY?2

:CYLINDER 0
;KEY1=0

:KEY2=0

:256 DATAWORDS

#256.,a¥FNWORD
RS ,a#CRC

;*THESE

ARE REGULAR SETUPS

MOV
MOv
MOV
MOV
MOv

#-260.,aRHWC
#WRFROM,RO
RO,aRHBA
#259.,RS
#EMT22,(RO)+

CLR

DEC
BNE
CLR

;60 TO CALCULATE CRC

:256 DATA WORDS & HEADER WORDS
:FROM BUFFER ''WRFROM''
:IN BUS ADDRESS
;sCOUNTER
:FORMAT =16 BIT WORD

;CYLINDER=0
:SECTOR=0, TRACK=0,KEYS=0, ALL DATA=0
: COUNT
:BRANCH IF ALL 259 NOT COMPLETE
;:TRACK=0, SECTOR=0

PC,a#CHECKT
,CPHALT

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

MOV

aFWRIFOR,aR1

:GET READY FOR WRITE HEADER

CLR

ANERFLGS

:CLEAR ERROR FLAG
“FORMAT B1T=1_16 BIT WORDS

TYPE

HALT

MOV

)

“THIS 1S USED TO SET GENERAL

MOV

JSR

153256

2222222222222

SCOPE
MOV
MOV

JSR
wlyL
GCRC

153322

16 BIT PER WORD

TRACK 0, SECTOR 0, KEYS O, NUMBER OF WORDS 256 OF 0'S

2222222222222 2222322222

1$161:

051436
000460

026216
026222
026226
026232
026234
026236

PROGRAM ERROR RHCS2 #10

NEMT22 ,QRHOF

;AND THAT NO OTHERS = 1. CANNOT CON;TINUE TESTING IF BOTH AREN'T TRUE
;STOP THE TEST
“AND DATA WITH 62 IN RHCSI

lalal

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CIRJGD P

CZRJIGDO,RPO4/5/6 DSKLS CTRLR1
CZRIGD.P11
10-SEP=79 11:00

5852

026372

005077

153254

MACY11

5853
5854
5855
gggg

026376
026404
026412
026414

012777
052777
000240
052777

000001
000001

153254
153226

000001

153216

5858
5859
5860
S861
5862
5863
5864

026422
026426
026434
026436
026444

004737
032737
001404
013737
104037

042336
002000

001714

001636

001122

026446

¢ 11

30A(1052)
10-SEP=79
11:11
PAGE 133
161
PROGRAM ERROR RMCS2 #10

CLR

MOV
B1S
NOP
BIS

JSR
BIT
BEQ
MOV
ERROR
3%

ARHCA
#DMD , aRHMR
#GO,3RHCS

:CYLINDER 0
“SET DIAGNOSTIC MODE
160

#GO,aRHCS1

:THIS GO SHOULD SET PGE

713
SEQ 0132

PC,a#PUTREG
:SAVE REGISTERS
#PGE ,anCs1
1S PGE SET
38
"BRANCH 1F 600D
A#RH(S2,a#$BDADR
37
:PGE DID NOT SET WHEN A WRITE
:WAS ATTEMPTED WITH ONE IN PROGRESS

B TN

|
s

D 11

30A(1052)
10-SEP=79
11:11
PAGE
PROGRAM ERROR RHCS2 #10
161

134

SEQ 0133

5865

5866
5867
5868
5869
5870
5871
5872
5873
5874
5875
5876
5877
5878
5879
5880
5881
5882
5883
5884
5885
5886

::"."""""'""""'""'"""'""""."""""""l""
s TN

THESE TESTS ARE THROUGH THE MAINTAINABILITY REGISTER = RHMR

THE

SECTOR GAP AND SYNC BYTE

ARE ALWAYS READ AS

ZEROS AND 144000 NO MATTER WHAT IS IN THE SIMULATED DISK AREA
TAGGED SECGAP:

AND WSSYNC:

THE HEADER CONSISTING OF CYLINDER ADDRESS,
TRACK AND THE KEYS ARE READ FROM LOCATION

SECTOR,

CYL:, SECTOR:, KEY1:, AND KEY2 AND NOT FROM

HEADER:

ON SIMULATED DISK

CRC IS READ FROM SIMULATED DISK LOCATION WCRC:
HEADER GAP IS ALWAYS READ AS ZEROS NO MATTER
WHAT IS ON THE SIMULATED DISK AREA
THE DATA SYNC IS READ
ON SIMULATED DISK
ALL DATA

FROM HDWSYN:

IS READ FROM SIMULATED DISK DISK:

:;""""".'Q'Q"'.""""""'""'"t"l"""""".'"l'!'

MACYT1

lalal

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CZRJIGD.PY

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00

CZRJGD P11

S887
5888
5889
5890
5891
5892
5895
5894
5895
5896
5897
5898
5899
5900
5901
5902
5603
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
95934
5935
5936
5937
95938
5939
5940
5941
5942

MACY11

E NN

30A(1052)
10-SEP=79
11:11
PAGE
PROGRAM ERROR RH(S2 #10
161

135

SEQ 0134

LR
R Y

J*TEST 82
‘R

M24

A4
M24

READ HEADER AND DATA 1
READ CYLINDER O FORMAT 16 BITS PER WORD
TRACK O, SECTOR O, KEYS 0O, 256 WORDS OF 0
ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS)

‘:l"""""""""""'""""""'."!"'.""."""""".

026446
026450
026454

000004
012706
012737

001000
000062

15162:
002032

SCOPE

MOV
MOv

#STACK,SP
#TINO,Q@#TSTNM

SRESET STACK
;THIS SAVES TEST NUMBER

SETUP FOR WHAT IS TO BE READ
HEADER CRC IS RESTORED FROM A SUBROUTINE

026462
026466
026472

012746

012705

026476
026500
026502
026504
026506

012700
011620
005305
001375
005726
012705

026512
026514
026516

005020
005305
001375

026520

026526
026534
026542
026550
026556
026564
026570
026574
026576

026600
026604
026612
026620
026624

012737

000000
000400
051534

1%:

000021

MOV
MOV
MOV
MOV

DEC
BNE
181

MOV

2%:

#0,-(SP)

#256.,R5

#DISK,RO

(SP),(RO)+
RS
1%
(SP)+
#17..RS

(LR
DEC
BNE

(RC)+
RS

;*THESE

ARE

;DATA TO BE

;s COUNTER

;START OF

READ

SIMULATED DISK DATA

":MOVE IN DATA ON TO SIMULATED DISK
s COUNT
:BRANCH IF 256 NOT COMPLETE
;UNDO =(SP)
;2 ECC WORDS
:1 DATA GAP
:14 TOLERANCE GAP
sCLEAR ECC, DATA GAP,
: TOLERANCE GAP

;BRANCH 1F NOT COMPLETE

010000

047616

MOV

#O'FMT22,a#CYL

;16 BITS PER WORD

000000
000000
000000
000000
000400
047626
044140

047621
047620
047622
047624
047676

MOVB
MOvVB
MOV
MOV
MOV

#0,9#SECOTR+1
#0,a#SECOTR

;TRACK 0
;SECTOR 0

042732
177374
003160
000000
000000

AND

TO SETUP FOR DISKLESS USE ONLY

#0,3/kKEY]
#0,3#KEY?2

:CYLINDER O, FORMAT 16 BITS

:KEY1=0
JKEY2=0

CLR
JSR

#256. ,9#DAWORD
anx
RS,9#CRC

;NO. OF DATA WORDS
:Th!S 1S A READ COMMAND
;60 TO CALCULATE CRC

; *THESE

ARE REGULAR SETUPS FOR RM11 AND "'REINTO"

JSR

PC,a#CLDISK
#-256.-4. ,0RHWC
#REINTO,aRHBA
#0,-(SP)
#0,1(5P)

L
WCRC

153020
153014

000001

MOV
MOV
MOVB
MOVB

:SETUP GENERAL REGISTERS
;256. DATA & HEADER WORDS
:STARTING ADDRESS OF READ BUFFER
:IN LOWER BYTE GET SECTOR
:GET TRACK IN HIGHER BYTE

5943
5944
5945
5946
5947
5948
5949

5950
5951
5952

5953
5954
5955
5956
5957
5958
5959
5960
5961
5962
5963

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
5991
5992
5993
5994
5995
5996
5997
5998

026632
026636

012677
012777

153006
014000

026644

005077

026650
026654

004737

026660

000000

026662
026666
026672

013711
005037
004737

104401

F 1N
30A(1052)
10-SEP=79
11:11
PAGE
READ HEADER AND DATA 1
162

136

SEQ 0135

MOv
MOv

(SP)+ ,aRHDST
;TRACK/SECTOR IN RHDST
NEMT22'ECI,aRHOF ;16 BITS PER WORD

153002

CLR

aRHCA

042766
062562

JSR

PC,aN#CHECKT

153004

;ECC CORRECTION INHIBIT
;BECAUSE ECC IS NOT GOING

TYPE

;70 BE

: CHECK THAT DVA,RDY,DPR,DRY = 1

,CPHALT

;AND THAT NO OTHERS = 1.
;STOP THE TEST

MOv
(LR

d#REFOR ,aR1
ANERFLGS

JSR

;*1F

CANNOT CON-

;TINUE TESTING IF BOTH AREN'T TRUE

HALT

002072
002006
047456

CHECKED

;CYLINDER 0

;READ HEADER AND DATA=72
;CLEAR ERROR FLAG

PC,a3#COMHD

;READ HEADER AND DATA

THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS

;*FROM THE ''COMHD'' ROUTINE THAT MEANS SECTOR GAP,
;*FIRST

SYNC, HEADER,

HEADER CRC, HEADER GAP AND

;*RHWC

1S CHECKED TO BE

= O AFTER THE READ OPERATION

MOV

aRHW( ,$BDDAT

;LOAD AND

;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
;*DETECTED.

026676
026704
026706

017737

001401
104040

152730

001126

BEQ
ERROR

20%
40

TEST

RHW(

;SHOULD = 0
:RHWC DOES NOT = O AFTER A READ

;HEADER AND DATA

;*HEADER AND DATA ARE TO BE CHECKED.

;*IN CHECKING READ DATA THE WRITE FROM BUFFER
;*"'WRFROM'' IS FILLED WITH EXPECTED DATA AND
;*COMPARISONS ARE MADE.
026710
026714
026716
026722
026726
026730
026734
026740
026744
026752
026754
026760
026764
026770
026774
026776
027000

005737

20%:

002006

043156
062562

620

002114
01000C
000000
000000

000000
000000
000400
000000

187

INERFLGS

:ANY ERRORS ALREADY THERE

T1YPE

,CPHALT

:CANNOT CONTINUE TESTING IF THEY DON'T

BNE
JSR

HALT
MOV

000001

MOV
MOVB
MOVB
MOV
MOV
MOV
MOV
MOV
MOV
DEC

BNE

15163
PC,a#CHECKE
#WRFROM,RO
#O'FMT22,(RO)+
#0,-(SP)
#0,1(SP)
(SP)+,(RO)+
#0,(RO)+
#0,(RO)+
#256. ,R1
#0,R2
R2,(RO)+

;BRANCH IF YES
:CHECK THAT BITS =1

;STOP THE TEST
;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

;*NOW READ DATA BUFFER wliLL BE

CHECKED

MACY11

lala)

CZRJGDO,RPO4/S576 DSKLS CTRLR)
10=-SEP=79 11:00
CZRJGD.P1Y

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD P
5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016

027002
027006
027010
027012
027014
027016
027020
027022
027024
027026

004037
002114
003160
000404
027022
027026
027032

027030

000207

MACYT1

6 "
10-SEP=-79
11:11
30A(1052)
PAGE
162
READ HEADER AND DATA 1

043626

JSR

WRFROM
REINTO

104004

4%:

£4256.
6%
5%
15163
ERROR

104005

5%:

ERROR

000207

RTS

RO,a#COMPAR

137

SEQ 0136

s CHECK

;GO0D BUFFER
sTEST BUFFER

:NUMBER OF WORDS CHECKED

;RETURN POINT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA
:RETURN FOR GOOD COMPARISON
sREAD NEXT ERROR

;RETURN TO "'COMPAR''
;WORD NCS 1 TO & ARE

;RETURN T0O ''COMPAR"'

;HEADER WORDS

:5 10 260 ARE DATA WORDS

CZRJIGDO,RPO4/5/6 DSKLS CTRLR!
10-SEP=-79 11:00
CZRJIGD P11
6017
6018
6019
6020
6021
6022
6023
6024
6025
6026
6027
6028
6029
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
€063
6U44

6045
6046
6047
6048
6049
6050
6051
6052
6053
6054
6055
6056
6057
6058
6059
6060
6061
6062
6063
60064
6065
6066
6067
6068
6069
6070
607!
6072

MACY1Y

H 11
10-SEP-79
11:11
PAGE
30 A(1052)
162
READ HEADER AND DATA 1

138

SEQ 0137

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

READ HEADER AND DATA 2
;*TEST 63
O FORMAT 16 BITS PER WORD
CYLINDER
READ
s

s
e
e

TRACK O, SECTOR 1, KEYS 0O, 256 WORDS OF 177777
ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS)

;;t"t."""'"0"""""'t""""""""t'lt"t"t"'t"t"'

027032
027034
027040

000004
012706
012737

001000
000063

1S163:

MOV

002032

;@
:®
177777
000400
051534

027046
027052
027056
027062
027064
027066
027070
027072

027076
027100
027102

SCOPE
MOV

#=-1,=-(SP)

:DATA T0 BE READ

MOV
MOV
DEC

#D1SK,RO
(SP),(RO)+
RS

:START OF SIMULATED DISK DATA
:MOVE IN DATA ON TO SIMULATED DISK
: COUNT

187
MOV

2%:

005020
005305

#256. .,RS

(SP)+
#17..RS

;COUNTER

:BRANCH IF 256 NOT COMPLETE
:UNDO =(SP)
;2 ECC WORDS

:1 DATA GAP
:14 TOLERANCE

GAP

CLR
DEC
BNE

(RO)+
RS
2%

:*THESE

ARE

#O'FMT22,9#CYL ;16 BITS PER WORD
:CYLINDER O, FORMAT
;TRACK 0
#0,3#SECOTR+1
;SECTOR 1
#1,a#SECOTR

027104

010000

047616

MOV

027112
027120
027126
027134
027142
027150
027154
027160
027162

000000
000001
000000
000000
000400
047626
044140

047621
047620
047622

MOVB
MOVB
MOV

047676

MCV
CLR

047624

STACK

MOV

BNE

000021

;RESET

:THIS SAVES TEST NUMBER

SETUP FOR WHAT IS TO BE READ
HEADER CRC 1S RESTORED FROM A SUBROUTINE
MOV

1%:

#STACK,SP

#TINO,a#TSTNM

;CLEAR ECC, DATA GAP, AND
:TOLERANCE GAP
;BRANCH IF NOT COMPLETE

TO SETUP FOR DISKLESS USE ONLY

14 BITS

#0,9/KEY]

:KEY1=0

#256.,3#DAWORD
af X

:NO. OF DATA WORDS
:THIS 1S A READ COMMAND

MOV

#0,9#KEY?2

JSR

RS,a#CRC

;KEY2=0

;G0 TO CALCULATE

CRC

CyL

WCRC

:*THESE ARE REGULAR SETUPS FOR RH11 AND "“REINTO"
027164

027170
027176
027204
027210
027216
027222

042732
177374

003160
000001
000000
152422
014000

152434
152430

000001
152420

JSR
MOV

;SETUP GENERAL REGISTERS
PC,a#CLDISK
#-256.-4. ,0RHWC ;256. DATA & HEADER WORDS

MOVB

#,=-(SP)

MOV
MOV

TRACK/SECTOR IN RMWDST
(SP)+ ,aRHDST
#EMT22
' EC]1,9RHOF ;16 BITS PER WORD
SECC CORRECTION INMIBIT

MOV

MOVB

#REINTO,aRHBA

#0,1(5P)

:STARTING ADDRESS OF READ BUFTER

:IN LOWER BYTE GET SECTOR

:GET TRACK IN HIGHER BYTE

CIRJGDO,RPO&/S5/6 DSKLS CTRLR]

CZRJGD L1

6073
6074
6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088

10-SEP=-79 11:00

MACY1T

1 1

30=°1052)
10-SEP=79
11:11
PAGE
READ HEADER AND DATA ?2
163

6111

6112
6113
6114
6115
6116
6117
6118
6119
6120
6121
6122
6123
6124
6125
6126
6127
6128

SEQ 0138

027230

005077

152416

CLR

aRHCA

;BECAUSE ECC IS NOT GOING
;70 BE CHECKED
;CYLINDER 0

027234
027240

004737

042766
062562

JSR

PC,a#(CHECKT

:CHECK THAT DVA,RDY,DPR,DRY = 1

027244

000000

027246
0272952
027256

013711
005037
004737

104401

TYPE

,CPHALT

:AND THAT NO OTHERS = 1.
CANNOT CON:TINUE TESTING IF BOTH AREN'T TRUE

HALT

MOV
CLR
JSR

002072
002006
047456

;STOP THE

S/REFOR,aR1
OVERFLGS
PC,a#COMHD

TEST

:READ HEADER AND DATA=72
;CLEAR ERROR FLAG
:READ HEADER AND DATA

;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;*FROM THE "'COMMD'' ROUTINE THAT MEANS SECTOR GAP,
;*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND

6089

6290
6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110

o e

139

;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
s*DETECTED.

027262
027270
027272

017737
001401

152344

001126

;*RHWC

IS CHECKED TO BE

= O AFTER THE READ OPERATION

MOV

aRHW( ,$BDDAT

;LOAD AND TEST RHW(

BEQ
ERROR

104040

20%
40

;*HEADER AND DATA ARE

;SHOULD = O
;RHWC DOES NOT = O AFTER A READ
sHEADER AND DATA
TO BE

CHECKED.

;*IN CHECKING READ DATA THE WRITE FROM BUFFER

;*""WRFROM'' IS FILLED WITH EXPECTED DATA AND

;*COMPARISONS ARE MADE.
027274
027300
027302
027306
027312
027314
027320
027324
027330
027336
027340
027344
027350
027354
027360
027362
027364

005737
001046
004737

620

20%:

002006

043156
062562
002114
010000
000001
000000

000000
000000
000409
177777

187

BNE
JSR
TYPE

HALT

MOV
MOV

MOVB
MOVB

000001

3%:

MOV
MOV
MOV
MOV
MOV
MOV

DEC
BNE

ONERFLGS

15164
PC,a¥#(HECKE
,CPHALT

:ANY ERRORS ALREADY

:S10P THE

TEST

004037
002114
003160

043626

JSR
WRFROM
REINTO

THEY DON'T

:GETTING READY 10 FILL EXPECTED DATA
#WRFROM,RO
#O'FMT22,(RO)+ ;CYLINDER O
#,-(SP)
;IN LOWER BYTE GET SECTOR
#0,1(SP)
;GET TRACK IN HIGHER BYTE
(SP)+,(RO)+
#0,(RO)+

#0,(RO)+
#256. ,R1
#-1,R2
R2,(RO)+

R1
3%

;GET TRACK/SECTOR IN BUFFER
;KEY1 IN BUFFER
;KEY2 IN BUFFER
;DATA WORD COUNTER
;DATA
;DATA INTO BUFFER

: COUNT
:BRANCH IF 256 NOT DONE

;*NOWw READ DATA BUFFER wiLL BE CHECKED

027366
027372
027374

THERE

;BRANCH IF YES
:CHECK THAT BITS =1
;CANNOT CONTINUE TESTING 1F

RO,3#(OMPAR

; CHECK
.GO0D BUFFER
;TEST BUFFER

CIRJGDO,RPOL/S5/6 DSKLS C(TRLR]
CZRJGD.PI
10-SEP=79 11:00

6129
6130
6131
6132
6133
6136
6135
6136
6137
6138
6139

6140
6141
6142

027376
027400
027402
0276404
027406
027410
027412

000404
027406
027412
027416
104004
000207
104005

027414

000207

MACY11

J 1
30A(1052)
11:11
PAGE
10=-SEP=-79
READ HEADER AND DATA 2
163

140

;NUMBER OF

SEQ 0139
WORDS CHECKED

;RETURN POINT FOR ERROR HEADER
4%:

5%:

;RETURN POINT FOR ERROR DATA
;RETURN FOR GOOD COMPARISON

;READ NEXT ERROR

;RETURN TO ""COMPAR'’
;WORD NOS 1 TO & ARE
;HEADER WORDS

;5 10 260 ARE DATA WORDS
;RETURN TO "'COMPAR"’

[l
]

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD.PI

MACY11

6143

6144

6145
6146
6147
6148
6149
6150
6151
6152
6153
6154
6155
6156
6157
6158
6159
6160
6161
6162
6163
6164
6165
6166

6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185

6186
6187
6188
6189
6190

6191
6192
6193
6194
6195
6196
6197
6198

K 11
30A(1052)
10-SEP=79
11:11
PAGE
163
READ HEADER AND DATA 2

141

SEQ 0140

R R

;*TEST 64
READ HEADER AND DATA 3
P
READ CYLINDER O FORMAT 16 BITS PER WORD
s

S
g

TRACK

1, SECTOR 1, KEYS 0, 256 WORDS OF 052525

ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS)

R R
Y

027416
027420
027424

000004
012706

012737

001000
000064

1ST64:

002032

MOv

gTM
052525
000400
051534

027432
027436
027442
027446
027450
027452
027454
027456
027462
027464
027466

SCOPE
MOV

1%:

2%:

STACK

;THIS SAVES TEST NUMBER

MOV
MOV
MOV

#052525,-(SP)
#256. RS
#D1SK,RO

;DATA T0 BE READ
s COUNTER
;START OF SIMULATED DISK DATA

DEC

s COUNT

181

(SP)+

MOV

005020
005305
001375

#TTNO,a#TSTNM

RESET

SETUP FOR WHAT IS TO BE READ
HEADER CRC IS RESTORED FROM A SUBROUTINE

BNE
000021

#STACK,SP

CLR
DEC
BNE

(SP),(RO) ¢+

#17.,R5

(RO)+
RS
2%

;MOVE IN DATA ON TO SIMULATED DISK
;BRANCH I1F 256 NOT COMPLETE
sUNDO =(SP)

;2 ECC WORDS
;1 DATA GAP

;14 TOLERANCE

GAP

sCLEAR ECC, DATA GAP, AND
s TOLERANCE GAP
;BRANCH IF NOT COMPLETE

;*THESE ARE TO SETUP FOR DISKLESS USE ONLY
027470

027476
027504
027512
027520
027526
027534
027540
027544
027546

012737

010000

000001
000001
000000
000000
000400
047626
044140

047616

MOV

#O'!FMT22,9#CYL ;16 BITS PER WORD

047621
047620
047622
047624
047676

MOVB
MOVB
MOV
MOV
MOV
CLR
JSR

#1,9#SECOTR+1
;TRACK 1
#1,a¥SECOTR
;SECTOR 1
#0,3#KEY]
sKEY1=0
#0,aNKEY2
;KEY2=0
#256. ,a#DAWORD
;NO. OF DATA WORDS
X
;THIS IS A READ COMMAND
RS,a#CRC
;60 TO CALCULATE CRC

cyL
WCRC

;CYLINDER O, FORMAT 16 BITS

;*THESE ARE REGULAR SETUPS FOR RH11 AND "'REINTOTM
027550
027554
027562
027570
027574
027602
027606

042732
177374

152050
152044

003160
000001
000001

000001

014000

152034

152036

JSR
MOV

MOV
MOVB
MOVB
MOV
MOV

PC,a#CLDISK
;SETUP GENERAL REGISTERS
#-256.-4. ,QRHWC ;256. DATA & HEADER WORDS

#REINTO,aRHBA
;STARTING ADDRESS OF READ BUFFER
¥ ,-(SP)
:IN LOWER BYTE GET SECTOR
#1,1(5P)
;GET TRACK IN HIGHER BYTE
(SP)+,aRHDST
; TRACK/SECTOR IN RHDST
#FEMT22'EC] ,aRHOF ;16 BITS PER WORD

;ECC CORRECTION INHIBIT

CIRJGDO,RPO4/5/6 DSKLS CTRLRI]

CZRJGD.P n

6199
6200
6201

10-SEP=-79 11:00

MACY11

30A(1052)
164

10-SEP=79
11:11
PAGE
READ HEADER AND DATA 3

142

SEQ 0141

027614

005077

152032

CLR

aRHCA

;BECAUSE ECC IS NOT GOING
;10 BE CHECKED
;CYLINDER 0

027620
027624

004737

042766
062562

JSR

PC,afCHECKT

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

027630

000000

027632
027636
027642

013711
005037
004737

9#REFOR ,aR1
SNERFLGS
PC,a#COMHD

;READ HEADER AND DATA=72
;CLEAR ERROR FLAG
;READ HEADER AND DATA

104401

TYPE

LCPHALT

;AND THAT NO OTHERS = 1.
CANNOT CON;TINUE TESTING IF BOTH AREN'T TRUE
;STOP THE TEST

HALT

MOV
(LR
JSR

002072
002006
047456

;*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.

027646
027654
027656

017737
001401
104040

151760

001126

;*RHWC

1S CHECKED TO BE = O AFTER THE READ OPERATION

MOv

dRHWC ,$BDDAT

BEQ
ERROR

;LOAD AND TEST

20%
40

;*HEADER AND DATA ARE

RHW(

;SHOULD = 0
;RHWC DOES NOT = 0 AFTER A READ
;HEADER AND DATA
TO BE CHECKED.

;*IN CHECKING READ DATA THE WRITE FROM BUFFER
;*"'WRFROM'' IS FILLED WITH EXPECTED DATA AND
;*COMPARISONS ARE MADE.

027660
027664
0276¢€6
027672
027676
027700

005737
001046
004737

043156
062562
002114
010000
000001
000001

027704
027710
027714
027722
027724
027730
027734
027740
027744
027746
027750

20%:

002006

000000
000000
000400
052525

181

ONERFLGS

;ANY ERRORS ALREADY THERE

TYPE

LCPHALT

; CANNOT CONTINUE TESTING IF

BNE
JSR

HALT

000001

3%:

15165
PC,a#CHECKE

MOV
MOV
rOvB
MOVB
MOV
MOV

#WRFROM,RO
#0!FMT22,(RO)+
#1,-(SP)
#1,1(5P)
(SP)+,(RO)+
#0,(RO)+

MOV
DEC

R2,(RO)+
R1

MOV
MOV
MOV

BNE

#0,(RO)+
#256. ,R1
#052525.R2

;BRANCH IF YES
;CHECK THAT BITS =1
;STOP THE

TEST

THEY DON'T

;GETTING READY TO FILL EXPECTED CATA
;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

;*NOW READ DATA BUFFER WiLL BE CHECKED

027752
027756
027760

004037
002114
003160

043626

JSR

WRFROM
REINTO

RO,a#COMPAR

s CHECK
;600D BUFFER
s TEST BUFFER

PRESRSIEIE

CIRJGDO,RPO4/5/6 DSKLS CTRLR]
CZRJGD.PT
10-SEP=-79 11:00

6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265

6266

6267
6268

027762
027764
027766
027770
027772
027774
027776

000404
027772
027776
030002
104004
000207
104005

030000

000207

MACY11

30A(1052)
164

4%:

5%:

M "
10-SEP=-79
11:11
PAGE 143
READ HEADER AND DATA 3

44256,
4$
5%
15165
ERROR
RTS
ERROR
RTS

;NUMBER OF WORDS CHECKED
;RETURN POINT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA
;RETURN FOR GOOD COMPARISON
;READ NEXT ERROR

;RETURN TO '‘COMPAR"'

;WORD NOS 1 TO & ARE
;HEADER WORDS

;5 10 260 ARE DATA WORDS
;RETURN TO "'COMPAR"'

SEQ 0142

CZRJIGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P11
10-SEP=-79 11:00

6291
6292
6293
6294
6295
6296
6297
6298
6299

6300
6301
6302
6303
6304

AR AR A

;*TEST 65
e
AL
AL
;oo

144
SEQ 0143
R

2222222222223

WRITE DATA

WRITE CYLINDER O, FORMAT 16 BITS PER WORD
TRACK 0, SECTOR O, KEYS O, NUMBER OF WORDS 256 OF 377
ANY ERROR LOGIC INDICATION IS NOT CONCLUSIVE ON FIRST PASS
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED
A

15165:

AR A

SCOPE

2222222222222

030002

000004

030004

012737

000065

002032

MOV

#TTNO,a#TSTNM

sTHIS

030012
030016

012706
012737

001000
000065

002032

MOV
MOV

#STACK,SP
#TTNO,Q#TSTNM

JRESET STACK
;THIS SAVES TEST NUMBER

030024
030030
030032
030034

004037
051534
052560
000000

042650

JSR
.WORD
.WORD

RO,3#CLAREA
DISK
TOLGAP+16

;CLEAR SIMULATED DISK
;FROM
;10

.WORD

SAVES

TEST

NUMBER

;DATA

;*THESE ARE SETUP FOR DISKLESS USE ONLY
030036

012737

010000

047616

MOV

#O'FMT22,a#CYL;CYLINDER O

030044
030052
030060
030064
030070

112737
112737

000000
000000
047622
047624

047621
047620

MOVB
MOVB
CLR
CLR
MOV
MOV

#0,a#SECOTR+1;TRACK 0
#0,3#SECOTR
;SECTOR 0
ANKEY
;KEY1 0
afKEY2
JKEY2 0
#256. ,3#NOWORD
;NO OF DATA WORDS
AT )
;WRITE DATA

6305
6306

6307
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321
6322
632%
6324

N1
30A(1052)
10=SEP=79
11:11
PAGE
T64
READ HEADER AND DATA 3

6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290

MACY11

005037
005037
012737
012737
004537
047616
051516

000400
000001
0441490

047664
047626

éSR
YL

;16 BITS PER WORD

RS,a#CRC

;G0 TO CALCULATE

CRC

WCRC

;*THESE ARE REGULAR SETUPS

004037

042650

042732

020204

177400
002114
000000
000000
151460
010000
000000
062766
062562

030210
030212

002064

JSR

WRFROM

000001
151456
151452

sFILL WRITE BUFFER WITH 377

;FROM LOCATION

WRFROM+<256.+2>

;70 LOCATION

JSR
MOV
MOV

PC,a#CLDISK
#-256. ,3RHWC
#WURFROM,ARHBA

;SETUP GENERAL REGISTERS
:256. DATA WORDS
;STARTING ADDRESS OF WRITE BUFFER

MOVB
MOV
MOV
MOV
JSR
TYPE

#0,1(SP)
(SP)+ ,aRHDST
#EMT22 ,3RHOF
#0,3RHCA
PC,a#CHECKT
LCPHALT

sTRACK 0
sSECTOR 0 TRACK 0
;16 BITS PER WORD FORMAT
sCYLINDER O
;CHECK THAT DVA,RDY,DPR,DRY = 1
sAND THAT NO OTHERS = 1,
CANNOT

HALT
MOV

afWRIDAT,aR!

;STOP THE TESY
:WRITE DATA=60

377

151472
151466

RO,3#CLAREA

MOV

#0,-(SP)

;:DATA

;SECTOR 0

CON-

sTINUE TESTING IF BOTH AREN'T TRUE

|
6325
gg%?

030216
030222

005037
004737

002006
047456

CLR
JSR

6328
6329
6330
6331

030226
030232
030236
030240

004737
005737
001041
012700

042336
002006

6341
6342
6343

030254
030262
030264

012737
020021
001424

000401

6345
6346
6347
6348
6349

030272
030276
030302
030306
030310

014137
160237
005737
001002
104004

001126
047736
002006

030314
030316
030320
0303264
030330
030334

104005
005721
017746
042716
022726
001402
005302
001345

bgg?
6

6352
6353
6354
6355
6356
6357

6358
6359

6360
6361
6362
6363

OFERFLGS
PC,a#COMHD

;CLEAR ERROR FLAG
;WRITE DATA

;*AND SYNCS WERE CORRECTLY DETECTED, DATA IS TO BE CHECKED.

6334
6335
6336
6337

6344

B 12
PAGE 145

;*1F THE PROGRAM COMES BACr HERE WITHOUT ERROR PRINTOUTS
;*FROM THE ''COMHD'' ROUTINE 1T MEANS SECTOR GAP, SYNC BYTE
:*HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY

ggg%

6338
2228

11:11

030244
030250

030266

030312

030336
030340

012701
012702

010037

000377
051534
000400

JSR
18T
BNE
MOV

PC,afPUTREG
ANERFLGS
15166
#377,R0

MOV
CMP
BEQ

#256.+1,9#ERWORD;
FOR ERROR WORD
RO, (R1)+
; COMPARE GOOD DATA WITH DATA ON DISK
3%
:BRANCH IF GOOD

MOV
SuB
TST
BNE
ERROR

=(R1) ,a#$BDDAT
R2 ,a#ERWORD
ONERFLGS
2%
4

ERROR
TST
MOV
BIC
(MP
BEQ

5
(R1)+
aSWR,=(SP)
#177177,(SP)
#SW07,(SP)+
15166

MOV
MOv

047736

1%:

001124

MOov

000401

150614
177177
000200

2%:
64%:

3%:

DEC
BNE

#DISK,R1
#256.,R2

:SAVE REGISTERS
;HAVE ANY ERRORS OCCURED?
;BRANCH IF YES
;GOOD DATA

;:DATA WRITTEN INTO "'DISK"
; COUNTER

RO,a#$GDDAT

:GOOD DATA

64%

;BRANCH TO AVOID PRINTING NEXT ERROR

R2
%

;BAD DATA
;ERROR WORD NO
;ANY ERRORS ALREADY THERE?
;BRANCH IF YES
;ERROR ON WRITE DATA COMMAND

;WORD NO GIVES WORD IN ERROR
;UNDO =(R1) FOR BAD DATA
;GET SWITCH SETTING
;KEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND 8 RESET
:BRANCH OUT IF YES
:1F NOT COUNT 256 WORDS
;BRANCH IF 256. NOT DONE

SEQ 0144

lalal

MACY11 30A(1052)
10-SEP=79
165
WRITE DATA

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P11
10-SEP-79 11:00

6412
6413
6414
6415
6416
6417
6418
6419

A
M2

030342
030344

000004
012706

030350
030356
030362
030364
030366

012737
004037
051534
052532

000066
042650

030370
030374
030376
030400

004037
003160
004156
000000

062650

177400

030402
030410
030414
030422
030426
030432
030440
030444
030450
030452

~Oo N:NNNN

010000
047621
000001
047622
047624
000012
047626
0464140

005077
004737

ST VI VT NTVrD

il
—

LS N

N~
NN o
~ ~ o o NN

030524
030530
030534

h wt O

030454
030460
030464
030472
030500
030504
030512
030516

030540
030542
030546

002032

104401

000000
005037
004737

047456

READ CYLINDERO, FORMAT 16 BITS PER WORD
TRACKO, SECTOR 1, KEYS 0, 10 WORDS OF 17740C
ANY ERROR LOGIC INDICATION IS NOT CONCLUSIVE

BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET

(ON FIRST PASS)

SCOPE
MOov

#STACK,SP

sRESET

MOV

#TTNO,3¥#TSTNM

;THIS SAVES TEST NUMBER

DISK+776

;10

JSR
.WORD
.WORD
.WORD

RO,3#CLAREA
DISK
177400

STACK

sCLEAR SIMULATED DISK
;s FROM
;DATA

: 10
;DATA

;s *THESE

ARE

047616

MOV

FEMT22 ,a#CYL

:CYLINDER O 16 BITS PER WORD FORMAT

047620

MOVB

#1,¥SECOTR

;SECTOR 1

047676

MOV

REINTO

;FROM

TO SETUP FOR DISKLESS USE

ONLY

CLRB

ANSECOTR+1

CLR
CLR

afKEY]
INKEY2

;KEY1=0
;KEY2=0

CLR
JSR

RS,a#CRC

;60 TO CALCULATE

#10.,9#DAWORD
afx

;TRACK 0

;NO. OF DATA WORDS
;THIS IS A READ COMMAND

CRC

cyL
WCRC

151124

002006

READ DATA

REINTO+776
0

014000
151122

;CLEAR READ INTO BUFFER

000001

042766
062562

RRRRRRRR

RO,3#CILAREA

000000
151126

JSR
.WORD
.WORD
.WORD

042732
002070

177766
003160
000001

SEQ 0145

A2 2222222222222l
iRttt Rl

15766:

001000

c 12
PAGE 146

AL AR

TRTEST 66

11:11

s *THESE

ARE REGULAR SETUPS

JSR

PC,a#CLDISK

MOV

#-10. ,aRHWC
;10 DATA WORDS
#REINTO,9RHBA
;STARTING ADDRESS OF READ BUFFER
#1,-(SP)
;IN LOWER BYTE GET SECTOR 1
#0,1(SP)
;GET TRACKO IN UPPER BYTE
(SP)+,aRHDST
;TRACK/SECTOR IN RHDST
FEMT22'EC]I ,@RHOF ;16 BITS PER WORD

(LR
JSR
TYPE

aRHCA
PC,a#CHECKT
,CPHALT

;ECC CORRECTION INHIBIT BECAUSE
;ECC IS NOT CHECKED HERE
;CYLINDER O
;CHECK THAT DVA,RDY,DPR,DRY = 1
:AND THAT NO OTHERS = 1.
CANNOT (ON-

SFERFLGS

;STOP THE TEST
;CLEAR ERROR FLAG

MOV
MOV
MOV
MOvB
MOvVB
MOV

HALT

(LR
JSR

9#READAT ,aR1

PC,a#(OMHD

;SETUP GENERAL REGISTERS

;READ DATA INTO RH(S1=70

;TINUE TESTING IF BOTH AREN'T TRUE
;READ DATA

~N~

]
6411

30A(1052)
10=-SEP=79
165
WRITE DATA
A

OO0=—=00CO

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
6409
6410

MACYTT

latal

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CZRJGD. P11

10=-SEP=79 11:00

166

6420

READ DATA

11:11

PAGE 147

64621
22%%

:«1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUT
:*FROM ""COMHD'' ROUTINE IN MEANS DATA IS TO BE CHECKED

6424
6425
6426
gz%g

:*NOW THE DATA READ INTO "'REINTO' BUFFER WILL
:*BE CHECKED, ONLY 10 WORDS SHOULD BE CHANGED
:*ALL OTHER WORDS SHOULD REMAIN UNCHANGED
:*THE "WRFROM'' BUFFER 1S FILLED WITH EXPECTED DATA AND CHECKED

6429
6430
6431
6432
6433
g:gg

030552
030556
030560
030564
030566
030570

005737
001053
004037
002114
003112
000000

002006

6436
6437
6438
5228

030572
030576
030600
030602

004037
002114
002136
177400

042650

:HAVE ANY ERRORS OCCURED?
::BRANCH IF YES
:CLEAR BUFFER
:FROM
;10
:DATA

JSR
RO,3#CLAREA
WRFROM
WRFROM+22
177400

:FILL EXPECTED DATA
:FROM
;10
:DATA

:*NOW READ DATA BUFFER 1S CHECKED

2225
6443
6444
6445
6446
6447
6448
6449
6450
6651

187
AVERFLGS
BNE
15167
JSR
RO,a#CLAREA
WRFROM
WRFROM+776
0

030604
030610
030614
030620
030626
030630
030632
030636
030642

6452 030646
6453 030652
6456 0306564
6455 030656
6456 030660
6457
6458
6459
6460
64661 .
6462

012700
012701
012702
012737
022021
001424
014037
014137
160237

005737
001002
104004
000401
104005

002114
003160
000400
000401

047736

1%:

001124
001126
047736
002006

3%:

MOV
MOV
MOV
MoV
CMP
BEQ
MOV
MoV
SUB

181
BNE
ERROR
BR
ERROR

#WRFROM,RO
#REINTO,RI
#256.,R2
#257.,3#ERWORD
(RO)+,(R1)+
2%
-(RO) ,a#$GDDAT
-=(R1),a#$BDDAT
R2,a¥ERWORD

ANERFLGS
3%
&
X3
S

6474

:ANY ERRORS ALREADY THERE
:1F YES BRANCH DO NOT TYPE HEADER
“ERROR ON READ DATA
:BRANCH TO AVOID PRINTING NEXT ERROR
:WORD NO 1-10 ARE DATA
:WORDS
:WORD NOS 11-256 HAVE NCT BEEN
:READ AND BUFFER SHOULD BE
;ZERO IF OTHER THAN ZERO
:WRONG NUMBER OF WORDS HAVE
:BEEN READ IN THE DISK NOW

;SHOULD BE READ IN

6465

6467
6468
6469
6470
6471
6472
oa;s

:GOOD DATA
:DATA READ
; COUNTER
;FOR ERROR WORD NO
: COMPARE GOOD WITH READ BUFFER
:BRANCH IF GOOD
;GOOD DATA
;BAD DATA
;ERROR WORD NO

:CONTAINS 177400 ALL 256
:WORDS BUT ONLY 10 WORDS

6463
6464

6466

SEQ 0146

030662
030666
030670
030674
030700
030702
030704

022021
017746
042716
022726
001402
005302
001345

150250

(MP
MGV

BIC
(MP

177177
000200
2%:

BEQ
DEC
BNE

(RO)+,(R1)+
aSWR,=(SP)

#177177,(5P)
#SW07,(SP)+
15167
R2
1%

:UNDO =(R0O) AND =-(R1) FOR ERROR
:GET SWITCH SETTING
:KEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND 8 RESET
:BRANCH OUT IF YES
: COUNT
:BRANCH 1F NOT COMPLETE

6475

——————

10-SEP=79

oTM

CIRJGD.P1

MACY11 30A(1052)

CZRJGDO,RPO4/5/6 DSKLS CTRLRY

MRS

D 12

166

10-SEP=79

READ DATA

11:11

E 12

PAGE

148

SEQ 0147

30A(1052)

1
6476

MACYT1

CZRJGDO,RPO4/S5/6 DSKLS CTRLRI
CZRJGD.PI
10-SEP=-79 11:00

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJIGD PN

30A(1052)
166

10-SEP=-79

READ DATA

11:11

149

SEQ 0148

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

SRTEST 67
ve
.o
ve

e
ve
2

030706

000004

030710
030714

001000
000067

030722
030726
030732
030736
030740
030742
030746
030750
030752

003160
010000
000401

070707

030754
030760
030764
030766
030770
030772

012700
012701
010021
000261
006100
103774

177776
003240

030774
031000
031002
031004

004037
003300
004156
000000

042650

WRITE CHECY HEADER AND DATA

WRITE CHECK CYLINDER O, FORMAT 16 BITS PER WORD
TRACK 1, SECTOR 1, KEYS 0, 36 WORDS AS SHOWN BELOW
ANY DEVICE LOGIC ERROR INDICATION 1S NOT CONCLUSIVE ON FIRST PASS

BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS)
ONLY RH WRITE CHECK ERROR (RHCS2 BIT 14) IS TESTED HERE

2222222222222 222222222222

2222222222 22222220l
ll

$T67:

SCOPE

DATA TABLE

T0 LEFY

(EG. 177776,177775,177773 E10)

MOV
MOV

#STACK,SP
#TINO,a#TSTNM

i
;"

002032

20 WORDS OF 070707
THEN 16 WORDS WITH ZERO FLOATING FROM RIGHT
sRESET STACK
:THIS SAVES TEST NUMBER

:+SET UP "REINTO' FOR WHAT IS TO BE READ

MOV

MOV
MOV
CLR

CLR
JSR
.WORD

042650

.WORD
.WORD

1%:

#REINTO,R]

WEMT22,(R1)+
#401,(R1)+
(R1)+

(R1)+
RO,a#CLAREA
REINTO+<422>

REINTO+<23.+#2>
070707

;STARTING ADDRESS

:CYLINDER O FORMAT
:TRACK=1, SECTOR=1
:KEY1=0
;KEY2=0

;10
:DATA

MOV
MOV
MOV
SEC
ROL
BCS

#177776,R0
;GETTING READY T0 FLOAT 0
FREINTO+<24.+2>,R1:STARTING ADDRESS WHERE 177776 GOES
RO, (R1)+
:MOVE IN FLOATING O
:SET CARRY
:GET O ONE BIT LEFT
RO
;BRANCH IF 16 NOT DONE
1%

JSR

RO,a#CLAREA

.WORD
.WORD
.WORD

REINTO+<40.*Z2>
REINTO+776
0

JSR ~
.WORD
LWORD
.WORD

" RO,a#CLAREA
DISK
DISK+<19,¢2>
070707

700
701

177776
051604

MOV

#177776,R0

O— =i

~NWwVWWDBhWO

OO0O0O

042650

OO0OO0O0

[ T

—

OCOoOO

(oleleleBgelelels
— et
O
(v v ~no ~N
osrrno
OF o

—

s —

WWNWWWN

037
534
602
707

021
261

2%:

16 BIT WORDS

FILL "REINTO'" BUFFER
;FROM

:FILL THE REST OF BUFFER WITH O

;FROM
;10
:DATA

:*SET UP SIMULATED DISK WITH WHAT

OO0

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
6517
6518
6519
6520
6521
6522
6523
6524
6525
6526
6527
6528
6529
6530
6531
6532

MACY11

12
PAGE

MOV
MOV
SEC

IS TO BE READ

sFILL “'DISK' BUFFER
:FROM
;10
:DATA
:GETTING READY TO FLOAT ZEROS

#D1SK+<20.#2>,R1;STARTING ADDRESS WHERE 177776 GOES
RO, (R1)+
:MOVE IN FLOATING O
;SET CARRY

1
[alal

e
o
e

6533
gggg

031034
031036

006100
10377«

6536
6537
6538
2228

031040
031044
031046
031050

004037
051644
052532
177777

65641
gg:%

031052

004737

6 12

30A(1052)
10-SEP=-79
11:11
PAGE 150
167
WRITE C HECK HEADER AND DATA

ROL
BCS

RO
2%

;GET O ONE BIT LEFT
;BRANCH IF 16 NOT DONE

042650

JSR
.WORD
.WORD
LWORD

RO,a#CLAREA
DISK+<36.+2>
DISK+776
177777

;FILL THE REST OF BUFFER WITW 177777
; FROM
:10
;DATA

043456

JSR

PC,a#WRCHHD

;WRITE CHECK HEADER AND DATA
;CYLINDER O, TRACK 1, SECTOR 1

6544
gg:g

6547
6548

6549
6550
6551
6552
6553
6554
6555
6556

6557
6558
6559
6560
6561
626%

;*1F THE PROGRAM COMES BACK HERE THEN WRITE CHECK
;*HAS BEEN COMPLETED NOW WRITE CHECK ERROR BIT IS TO BE

031056
031062

031066
031072
031076
031100
0311064
031106
031110

031112

013746
052716

004737
022637
001406
032712
001402
104017
000401

001774
000100

MOV
BIS

042336
001712

JSR
(MP
BEQ
BIT
BEQ
ERROR
BR

040000

104017

3%:

656

6564

031114
031120
031126
031130
031132

012700
012720
012720
005020
005020

002114
010000
000401

6573
6574
6575
62;?

031134
031140
031142
031144

004037
002124
002172
070707

6578
6579
6580
6581
6582
6283

031146
031152
031156
031160
031162
031164

6585
6586
6587

031166
031172
031174

6584

6588

PC,aN#PUTREG
(SP)+,an(s2
6%
#WCE ,aR2
3%
17
6%

TESTED

;GET UNIT NUMBER
;ONLY BIT 6 SHOULD BE SET

;SAVE REGISTERS
: COMPARE RH(SZ2
;BRANCH IF GOOD
;WRITE CHECK ERROR HIGH?
;BRANCH IF ERROR NOT DUE TO "‘WCE'
;RHDB CONTAINS FAILING WORD
:RHBA CONTAINS ADDRESS+2
;:0F

THE WORD IN MEMORY FROM
;THE DISK THAT DID NOT COMPARE
;TRE AND SC WILL BE SET DUE 10
;WCE
;WCE CORRECTLY WAS NOT SET BUT SOME
;BITS OTHER THAN IR
;AND UNIT NO. WAS SET

;*FILL "'WRFROM'' WITH WHAT SHOULD BE IN "REINTO'" THEN CHECK

6567
6568
6569
6570
62;;
6

ERROR

afUNIT,=(SP)
¥IR,(SP)

;*NOW CHECK MEMORY TO SEE IF NOTHING GOT DESTROYED

6265

6566

SEQ 0149

031176

MOV
MOV
MOv
CLR
CLR

#WRFROM,RO
#EMT22,(RO)+
#401,(RO)+
(RO)+
(RO)+

;STARTING ADDRESS
s CYLINDER
;TRACK=1, SECTOR=1
;KEY1=0
;KEY2=0

042650

JSR
.WORD
.WORD
.WORD

RO,a#CLAREA
WRFROM+<4&*2>
WRFROM+<23,+2>
070707

;FILL "'WwRFROM'' BUFFER
:FROM
;70
:DATA

012700
012701
010021
000261
006100
103774

177776
002174

MOV
MOV
MOV
SEC
ROL
BCS

#177776,R0
;GETTING READY 10 FLOAT 0
#WURFROM+<24.¢2>
,R1 ;STARTING ADDRESS WHERE 177776 GOES
RO, (R1)+
;MOVE IN FLOATING 0
:SET CARRY
RO
;GET O ONE BIT LEFT
5%
;BRANCH 1F 16 NOT DONE

004037
002234
003112

042650

JSR
.WORD
.WORD

RO,a#CLAREA
WRFROM+<40,.*2>
WRFROM+776

000000

6%:

5%:

.WORD

;FILL THE REST OF BUFFER WiTH O
;FROM
;10
;DATA

MACY11

CZRJGDO,RPO4/5/6 DSKLS CTRLRT
CZRJGD.PI
10-SEP=79 11:00

|
043626

JSR
WRFROM
REINTO

D
s
b
s
>
s
s
s

NN
NN NN NN

004037
002114
003160
000400
031224
031230
031236

N NN NN

CLR

—

PAGE

151

CHECK HEADER AND DATA

;*NOW THE READ BUFFER WILL BE CHECKED
SFERFLGS
;CLEAR ERROR FLAG

002006

104004
000207
104005

H 12

RO,a#COMPAR

;NUMBER OF WORDS CHECKED
:RETURN POINT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA

7%:

;GO0D BUFFER
sTEST BUFFER

256.
6%

6%:

s CHECK

1S170
ERROR

;RETURN FOR GOOD COMPARISON

;READ NEXT ERROR S

;RETURN TO COMPARISON SUBROUTINE
:DATA IN REINTO BUFFER GOT
:CHANGED AFTER A WRITE

RTS

ERROR

;CHECK HEADER AND DATA (COMMAND

031232

000207

031234

000240

RTS

10%:

NOP

;WORD NO CONTAINS THE WORD
;NUMBER THAT GOT CHANGED

RETURN TO COMPARISON SUBROUTINE
;ONLY A BRANCH POINT

SEQ 0150

oTM

WRITE

11:11

167

10-SEP=79

005037

6599
6600
6601
6602
6603
6604
6605
6606
6607
6608
6609

30A(1052)

031200
OO0OO0O0O000000O

6589
6590
6591
6592
6593
6594
6595
6596
6597
6598

MACY11

WNINININ
= b s s ©O
oo
sSrNo s

CIRJGDO,RPO4/5/6 DSKLS CTRLR]
10-SEP=79 11:00
CZRJGD P11

112

S?A(1052)
10-SEP=79
11:11
PAGE 152
67
WRITE CHECK HEADER AND DATA

SEQ 0151

6610

6611

6641
6642

6643

6644

6645

6646

6647
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
6659
6660
6661
6662

6663
6664

6665

;*TEST 70
g
o
sk
; &e
; 0o

031236

WRITE CHECK DATA

WRITE CHECK DATA CYLINDER O FORMAT 16 BITS PER WORD
TRACK 1, SECTOR 1, KEYS 0, 32 WORDS OF DATA
ANY DEVICE LOGIC ERROR INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS
BECAUSE ERROR LOGIC HAS NOT YET (ON FIRST PASS) BEEN CHECKED
ONLY RH WRITE CHECK ERROR IS TESTED

i22222222220220ttt
l

1$170:

000004

SCOPE

;*DATA TABLE

;*TOTAL OF 32 WORDS CONSISTING OF
;*16 WORDS OF FLOATING ONES (EG. 1, 2, 4, 10)
;*16 WORDS OF FLOATING ZEROS (EG. 177776, 177775)
001000
000070

031240
031244

MOV
MOV

002032

#STACK,SP
#TTNO,@#TSTNM

;RESET STACK
;THIS SAVES TEST NUMBER

;*SET UP "REINTO' FOR WHAT IS TO BE READ
031252
031256
031262
031264
031256
031270
031274
031300
031302
031304
031306

000001
003160

1%:

177776

003220

2%:

006100
103774

004037
003260
0046156
000001

MOV
MOV
MOV
ROL
BCC
MOV

MOV
MOV
SEC
ROL
BCS

JSR
.WORD
.WORD

042650

.WORD

# RO
#REINTO,RI
RO, (R1)+
RO
%
#177776,R0

:GETTING READY TC FLOAT 1
;STARTING ADDRESS WHERE 1 GOES
;MOVE FLOATING 1
;GET 1 ONE BIT LEFT
;BRANCH IF 16 NOT DONE
;GETTING READY 10 FLOAT 0

RO
2%

;SET CARRY
;GET O ONE BIT LEFT
:BRANCH IF 16 NOT DONE

RO,3#CLAREA
REINTO+<32.%2>
REINTO+776

;FILL REST OF BUFFER WITH 1
;FROM
;10

#REINTO+<16.%2>,R1 ;STARTING ADDRESS WHERE
RO, (R1)+
:MOVE IN FLOATING O

1777/6 GOES

;WITH DATA

;*SET UP SIMULATED DISK WITH WHAT IS TO BE READ
- OO0
0O
OO
~ =t =

6612
6613
6614
6615
6616
6617
6618
6619
6620
6621
6622
6623
6624
6625
6626
6627
6628
6629
6630
6631
6632
6633
6634
6635
6636
6637
6638
6639
6640

B
R
R Y

000001
051534

3%:

021
261

6%:

#1,RO
#D1SK,R1

;GETTING READY TO FLOAT
;STARTING ADDRESS WHERE

;GET

MOV

RO, (R1)+

BCC

ROL

MOV

177776

051574

MOV
MOV

MOV
MOV
SEC
ROL
BCS

#177776,R0

;MOVE FLOATING 1

1
1 GOES

1 ONE BIT LEFT

;BRANCH IF

16 NOT DONE

;GETTING READY TO FLOAT O
#DISK+<16.¢2>,R1 ;STARTING ADDRESS WHERE 177776 GOES
RO,(R1)¢
:MOVE FLOATING 0
:SET CARRY
RO
;GET O ONE BIT LEFT
3)
;BRANCH IF 16 NOT DONE

MACY1

CIZRJGDO,RPO&/5/6 DSKLS CTRLR]
10-SEP=-79 11:00
CZRJGD P11

6688
6689

6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
6700
6701
6702
6703

J 12

PAGE

153

SEQ 0152

031360
031364
031366
031370

004037
051634
052532
000000

042650

JSR
.WORD
.WORD
.WORD

RO,a#CLAREA
DISK+<32.+2>
DISK+776
¢

:FILL REST OF BUFFER WITH O
:FROM
;10
;WITH DATA

031372

004737

043770

JSR

PC,a#WR(CHDA

;WRITE CHECK DATA

:CYLINDER O, TRACK 1, SECTOR 1
;KEYS 0, 32 WORDS.

;*1F THE PROGRAM COMES BACK HERE THEN WRITE CHECK
;*HAS BEEN COMPLETED NOW WRITE CHECK ERROR BIT IS TESTED
031376
031402
031406
031412
031416
031420
031426
031430
031432

013746
052716
004737
022637
001407
032737
001402
104017
000401

031434

104017

001774
000100
062336
001712

040000

MOV

@#UNIT,=(SP)

;GET UNIT NUMBER

JSR
(MP

PC,a¥#PUTREG
(SP)+,a#(s2

:SAVE REGISTERS
: COMPARE RH(SZ2

BIS

001712

#IR,(SP)

BEQ
BIT

6%
FUCE ,an(S2

ERROR

BEQ

5%:

ERROR

;ONLY BIT 6 SHOULD BE SET
;BRANCH IF GOOD
;WRITE CHECK ERROR HIGH?

;BRANCH IF ERROR NOT DUE T0 "'WCETM
;RHDB CONTAINS FAILING WORD

;RHBA CONTAINS ADDRESS+2

;OF THE WORD IN MEMORY FROM
;THE DISK THAT DID NOT COMPARE
;TRE AND SC WILL BE SET DUE TO WCE

;WCE WAS CORRECTLY NOT SET

;BUT SOME BITS OTHER THAN
;IR AND UNIT NO. WERE SET

;*NOW CHECK MEMORY TO SEE

ANYTHING GOT DESTROYED

;*FILL "WRFROM'' WITH WHAT SHOULD BE IN REINTO THEN CHECK IT
031436
031442
031446
031452
031454
031456

005037
012700
012701
010021
006100
103375

002006
000001
002114

6704
6705
6706
6707
6708
6;?8

031460
031464
031470
031472
031474
031476

012700
012701
010021
000261
006100
103774

177776
002154

6711
6712
6713
6714
6715
6716
6717
6718
6719
6720
6721

031500
031506
031506
031510

004037
002214
003112
000001

042650

10-SEP=-79
11:11
30A(1052)
WRITE CHECK DATA
170

6$:
7%:

CLR
MOV
MOV
MOv
ROL

ANERFLGS
#1,R0
#WRFROM,R1
RO, (R1)+
RO

MOV

#177776,R0

SEC
ROL
BCS

RO
109

;SET CARRY
;GET O ONE BIT LEFT
;BRANCH IF CARRY SET

RO,a#CLAREA
WRFROM+<32,.+2>
WRFROM+776

;FILL REST OF BUFFER WITH 1
;FROM
.10

BCC

10%:

MOv
MOv

JSR
.WORD
.WORD
LWORD

;CLEAR ERROR FLAG
;GETTING READY TO FLOAT 1
;START ADDRESS WHERE 1 GOES
;MOVE FLOATING 1
;GET 1 ONE BIT LEFT

;BRANCH IF

16 NOT DONE

JGETTING READY TO FLOAT 0
#WURFROM+<16.#2>
,R1 ;STARTING ADDRESS WHERE 177776 GOES
RO, (R1)+
;MOVE IN FLOATING 0

;WITH DATA

;*NOW THE READ BUFFER WILL BE CHECKED

031512
031516
031520
031522

004037
002114
003160
000400

043626

JSR

WRFROM
REINTO

256,

RO,3#COMPAR

; CHECK

;600D BUFFER
;TEST BUFFER

;NUMBER OF WORDS CHECKED

1
6666
6667
6668
6669
6670
6671
6672
6673
6674
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685
6686
6687

MACY11

CZRJGDO,RPO4/S5/6 DSKLS CTRLRI
CZRJGD.PI
10-SEP=79 11:00

20A(1052)
10-SEP=79
11:11
170
WRITE CHECK DATA

K 12
PAGE 154

031524
031526

031532
031536

11%
12%

;RETURN POINT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA

031530

031544

1S171

;RETURN FOR GOCD COMPARISON

031532
031534
031536

104004
000207
104005

11%:
12%:

ERROR
RTS

ERROR

&
PC

;READ NEXT ERROR 5

;RETURN TO COMPARISON SUBROUTINE
;DATA IN REINTO BUFFER GOT
; CHANGED AFTER A WRITE

;CHECK DATA COMMAND

;WORD NO CONTAINS THE WORD

031540

000207

031542

000240

RTS

13%:

NOP

;NUMBER THAT GOT CHANGED

sRETURN TO COMPARISON SUBROUTINE

;ONLY A BRANCH POINT

SEQ 0153

~Ga

|
6722
6723
6724
6725
6726
6727
6728
6729
6730
6731
6732
6733
6734
6735
6736
6737
6738

MACY11

lalal

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CIRJIGD.PY

|
30A(1052)
10-SEP=79
11:11
170
WRITE CHECK DATA

L 12

PAGE 155

SEQ 0154

6739
ERROR BIT

ATTENTION WITH ERROR TEST

THIS TESTS THE SETTING OF ATA BIT BOTH IN THE RHAS
AND THE RHDS1 REGISTERS WITH THE SETTING OF EACH
ERROR BIT ON THE THREE ERROR REGISTERS.

“

lNSghggTOF THE ABOVE CASES ERR IN RHDS1 SHOULD

"'G0"" SHOULD CLEAR ERR, ATA IN RHDS1 AND RHAS BUT NOT ERROR REG.
PUTTING '‘1'" IN RHAS DRIVE POSITION CLEARS DRIVE BIT IN ATA IN RHDSi
UPPER BYTE OF RHAS IS INVALIBD

cww

FUNCTIONAL TESTS

ARARt
RRRRRRllll Sl

SeTEST 71

2222222222202 2222220022022222220RR22RRRRRRRRRRRRRRRRRRRRl
RS

000004

031546
031552
031560
031564
031570

012706
012737
004737
004737

031574

000000

031576

012700

003160

MOv

#REINTO,RO

031602
031606
031612
031616
031622
031626

013720
012720

001642
000000
001646
000000
001654
000000

MOV
MOV
MOV
MOV
MOv
MOV

O#RHER1,(RO)+

kil

001656
002016
031670

MOV
MOV
MOv

R4
9#RHAS

i§T71:

031544

000003
003160

MOV
MOV

#3,308TMP1
#REINTO,RO

MOV
MOV

(RO)+,R2
#B170,R1
#CLR,QRHCS2

031650
031656

031662
031664
031670
031676
031704
031706
031712

OO0

NN~
oo

i
—

NV wrhow

OO0O0Oo

—
b
s

OO0

031632
031636
031642

104401

OO0

6778
6779
6780
6781
6782
6783
6786
6785
6786
6787
6788
6789
6790
6791
6792
6793
6794

—=OO0OO0000

6767

6768
6769
6770
6771
6772
6773
6774
6775
6776
6777

.SBTTL

720

704

N
= it \ N s =
OfHf oW

6740
6741
6742
6743
6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761
6762
6763
6764
6765
6766

001000
000071
042732
042766
062562

SCOPE
MOV
MOV

002032

JSR
JSR

TYPE

#STACK,SP

#TTNO,@¥TSTNM

PC,a#CLDISK
PC,aNCHECKT
,CPHALT

000001
000040
001774

062336
001732

001200
1%:

147740
147732

2%:

B1S

MOV
MOV

JSR

CMPB

;AND THAT NO OTHERS = 1.
CANNOT CON;TINUE TESTING IF BOTH AREN'T TRUE

;STOP THE TEST

HALT

001110

;RESET STACK
;THIS SAVES TEST NUMBER
;CLEAR DISK REGISTERS
;CHECK THAT DVA,RDY,DPR,DRY = 1

;BUFFER STARTING FOR 3 ERROR
;REGISTERS
;RHER1 STORED IN REINTO

#0,(RO)+

;BITS NOT TO BE CHECKED IN RHER1
;RHER2 STORED IN REINTO+4
;B1TS NOT TO BE CHECKED IN RHER?

#0,(RO)+

;BITS NOT TO BE CHECKED IN RHER3

#0,(RO)+

a#RHERZ2,(RO)+
(RO) +
@#RHER3,

a#ATTENT
RS

#2% ,0#SLPERR

FUNIT ,ARHCS2
R1,3R2

PC,a#PUTREG
RS ,aNAS

;RHER3 STORED IN REINTO+10

;R4 HAS RHAS

;RS HAS ATA BIT IN RHAS

: THAT SHOULD SET WITH ERROR

;RETURN POINT TO ERROR
;ERROR REGISTER COUNTER
;REGISTER BUFFER POINTER

;:R2 HAS ADDRESS OF ERROR REG
sR1

WILL HAVE BIT UNDER TEST

;CLEAR RHCS?2
sREINSTATE UNIT NO.
:SET ERROR BIT
;READ AND SAVE REGISTERS
:ONLY THE BIT IN RS SHOULD BE
;SET IN RHAS

oTM

MACY11

~~a

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CZRJGD.P1Y

mn12

PAGE 156

SEQ 0155

ATTENTION WITH ERROR TEST

3%
20

;LOOK @ RHDS1 IF GOOD
;WITH THE SETTING OF ONE

;ERROR BIT IN AN ERROR
;REGISTER, THE CORRESPONDING

013746
042716
022726
001401

001736
001100

3%:

140600

MOV
BIC
CMP

BEQ
ERROR

104020

a#Ds1,-(SP)
;GET RHDS1
#VV!PROG,(SP)
;REMOVE Vv AND PROG
#ATA'ERR!DPR!DRY, (SP)+;THESE BITS PLUS VvV SHOULD BE

3]
20

;CHECK "GO' NEXT, IF THIS WAS OK
;WITH THE SETTING OF ONE
;ERROR BIT, COMPOSITE ERROR
;OR ATTENTION ACTIVE, OR
;ONE OF THE OTHER
;PERMANENT BITS DID NOT

031742
031750
031754
031756
031760
031764
031770
031776

012777
004737
020112
001410
010237
010137
013737

032000
032004
032010
032014
032016

013746
042716
022726

104001

001401
104020

000001

042336
042402
001124
001712

147670

6$:

006301
103403
031001
001374
000717

032032
032034
032040

005720
005337
001310

#GO,aRHCS
PC,a#PUTREG
R1,aR2

:GIVE NO-OP
;SAVE REGISTERS
;G0 SHOULD NOT CLEAR ERROR

MOV
MOv
MOV

R2 ,@#REGADR
R1,3#8GDDAT
a#(S2,aNsBDDAT

;FAILING REGISTER
:GOOD DATA
;BAD DATA

MOV
BIC
CMP
8EQ
ERROR

a#Ds1,-(SP)
;GET RHDS1
#VV'!PROG, (SP)
:CLEAR VvV AND PROG
#ATA'ERR!DPR!DRY,(SP)+;G0 SHOULD NOT CLEAR ANY BITS
7%
;CHECK NEXT ERROR BIT IF A-OK
;"'60"" WITH NO-OP SHOULD NOT CLEAR
20

ERROR

5%:

001736
001100
140600

;*THIS

032020
032022
032024
032026
032030

MOV
JSR
CMP

BEQ
001126

7%:

108:

001200

SET

;FURTHER CHECK OF

'GO' FUNCTIONALITY

:"'60"" WITH NO-OP CHANGED
;ERROR REGISTER

;ATA AND/OR ERR

1S THE MAIN BIT

TESTING CONTROL LOGIC

ASL

;GET NEXT BIT TO THE LEFT

187
DEC

(RO)+
aNSTMPI

;ADVANCE RO TO NEXT ERROR REG.
;REGISTER COUNTER

BCS
BIT
BNE
BR

BNE

108
(RO) ,R1
7%
2%
:

;G0
;1S
:1F
;1F

ON TO NEXT REGISTER IF DONE
THIS BIT TO BE TESTED ?
NOT, GET NEXT ONE
TO BE TESTED, GO DO IT !

;DO NEXT ONE, IF 3 NOT COMPLETE

;*NOW AFTER SETTING ATA IN RHDST '"1'" IN RHAS AT THE
;*DRIVE POSITION SHOULD CLEAR ATA IN RHDSI
032042
032046
032054
032060
032066

001110
147570

11%:

JSR
MOV

MOV
MOV
JSR

PC,aNCLDISK
#11%,SLPERR

#-1,3R4
SFATTENT,9RHAS
PC,a#PUTREG

;CLEAR
;ERROR RETURN

:SET BIT IN RHAS AND ATA IN RHDS!
;WRITE 1 INTO DRIVE BIT POSITION
:SAVE REGISTERS

IN RHDS1

1
6847
6848
6849
6850

11:11

;RHAS BIT DID NOT SET

SNNNNN

6815
6816
6817
6818
6819
6820
6821
6822
6823
6824
6825
6826
6827
6828
6829
6830
6831
6832
6833
6834
6835
6836
6837
6838
6839
6840
6841
6842
6843
6844
6845
6846

10-SEP=79

BEQ
ERROR

104020

W N =
N
NNSNN

6814

3?9%1052)

001401

(=l=lele
L]
L
TM|
S wroro
s~

6795
6796
6797
6798
6799
6800
6801
6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
6812
6813

MACYTT

[l
]

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CZRJGD.PT

CZRJGDO,RPO4/5/6 DSKLS CTRLRY
10-SEP-79 11:00
CZRJGD.P11
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

105737
001401
104020

001732

013746
042716
022726

001736
001000
040700

MACY11

N 12
10-SEP=-79
11:11
PAGE 157
30A(1052)
ATTENTION WITH ERROR TEST
mm
1S1B

BEQ
ERROR

12%:

022737

032130
032132

001401

104020

BIC
CMP
BE"
ERnOR

001401
104020

032122

MOV

177777

001716

13%:

SEQ 0156

?5:5

;:THIS SHOULD BE ZERO

;MOVING A 1" INTO RHAS
;AT THE DRIVE BIT POSITION
;DID NOT CLEAR IT

aNDs1,=(sP)

;GET RHDS1

#PROG, (SP)
;MASK PROGRAMABLE
#ERR!VV!DPR!DRY,(SP)+
;RHDS1 SHOULD HAVE

13%

THESE BITS

;BUT ATA SHOULD BE CLEARED
;CHECK RHER1

IF GOOD

;MOVING ‘'1'" INTO RHAS AT THE
;DRIVE BIT POSITION DID NOT
;CLEAR ATA IN RHDS1

CMP

#-1,30ERT

;RHER1

SHOULD NOT CHANGE

BEQ
ERROR

18172
20

;BRANCH IF

:BY CLEARING RHAS

GOOD
;RHER1 WAS CHANGED BY CLEARING
;RHAS BY MOVING '1'' INTO
;:THE DRIVE BIT

POSITION

|
CIZRJGD.P11

10-SEP=79 11:00

MACY! 5?9%1052)

6878

10-SEP-79

11:11

B 13
PAGE 158

ATTENTION WITH ERROR TEST

SEQ 0157

6879

6882

READ CYLINDERO, FORMAT 16 BITS PER WORD

6884
6855

i
i

THIS 1S DONE WITH BUS ADDRESS INHIBIT SET
ANY ERROR LOGIC INDICATION IS NOT CONCLUSIVE ON FIRST PASS

;*TEST 72

ggg?
6883

§oe

BUS ADDRESS INHIBIT

AR e

TRACKO, SECTOR 1, KEYS O, 10 WORDS OF 177400

BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS)

ggg?

6888

RR
R

6889
ggg?

032134
032136

000004
012706

6892
6893
6894
6895
ggg?

032142
032150
032156
032156
032160

012737
004037
051534
052532
177400

000072
042650

6898
6899
6900
ggg;

032162
032166
032170
032172

004037
003160
004156
000000

042650

1S172:

001000

002032

gggz

6905
6906
6907
6908
6909
6910
6911
6912
6913
gg}g

032174
032202
032206
032214
032220
032224
032232
(32236
032242
032244

012737
105037
112737
005037
005037
012737
005037
004537
047616
051516

010000
047621
000001
047622
047624
000012
047626
044140

047616

047620
047676

032246

004737

042732

6921
6922
6923
6924
6925

032264
032272
032276
032304
032310

012777
112746
112766
012677
012777

003160
000001
000000
147334
014000

6926
6927
6928
6929
6930
6931
6932
6933

;RESET STACK

MOv
JSR
.WORD
.WORD
.WORD

#TTNO,Q¥TSTNM
RO,a#CLAREA
DISK
DISK+776
177400

;THIS SAVES TEST NUMBER
;CLEAR SIMULATED DISK
: FROM
;10
;DATA

JSR
.WORD
.WORD
.WORD

RO,a#CLAREA
REINTO
REINTO+776
0

;CLEAR READ INTO BUFFER
; FROM
:10
:DATA

MOv
CLRB
MOvVB
CLR
(LR
MOV
CLR
JSR
cyL
WCRC

NEMT22 ,a0CYL
INSECOTR+1
#1,a#SECOTR
aNKEY]
ANKEY?
#10.,9#DAWORD
X
RS,a#CRC

;CYLINDER O 16 BITS PER WORD FORMAT
:TRACK 0
;SECTOR 1
;KEY1=0
(KEY2=0
;NO. OF DATA WORDS
;THIS IS A READ COMMAND
;G0 TO CALCULATE CRC

;*THESE ARE REGULAR SETUPS

6918

6919
6920

#STACK,SP

;* HESE ARE TO SETUP FOR DISKLESS USE ONLY

63:?
6

SCOPE
MoV

032252
032256

013711
012777

002070
177766

032316
032322
032326

005077
004737
104401

147330
042766
062562

032332
032334

000000
052777

000010

147346
147342
000001
147332

147274

;SETUP GENERAL REGISTERS

JSR

PC,a#CLDISK

MOV
MOVB
MOVB
MOV
MOv

;STARTING ADDRESS OF READ BUFFER
#REINTO,aRHBA
LOWER BYTE GET SECTOR 1
;IN
#1,-(SP)
;GET TRACKO IN UPPER BYTE
#0,1(SP)
; TRACK/SECTOR IN RHDST
(SP)+ ,aRHDST
W#FMT22'ECI ,@RHOF ;16 BITS PER WORD

S#READAT ,aR1
#-10.,aRHWC

;READ DATA INTO RHCS1=70
;10 DATA WORDS

CLR
JSR
TYPE

ARHCA
PC,a#CHECKT
. CPHALT

HALT
BIS

#BAl,9RH(S?

;ECC CORRECTION INHIBIT BECAUSE
;ECC 1S NOT CHECKED HERE
;CYLINDER O
;CHECK THAT DVA,RDY,DPR,DRY = 1
;AND THAT NO OTHERS = 1. CANNOT CON;TINUE TESTING IF BOTH AREN'T TRUE
;STOP THE TEST
;SET BUS ADDRESS INHIBIT

MOV
MOV

latal

CZRJGDO,RPO4/5/6 DSKLS CTRLR1

——————C———

CIRJGDO,RPD4/5/6 DSKLS CTRLRI

CZRJIGD P11

6934
6935
6936
6937
6938
6939
6940
6941
6942
6943

6944
6945
6946
6947
6948
6949
6950
6951
6952
6953
6954
6955
6956
6957
6958
6959
6560
6961
6962
6963
6964
6965
6966
6967
6968
6969
6970
6971
6972
6973
6974
6975
6976
6977
6978
6979
6980
6981
6982
6983
6984
6985
6986
6987
6988
6989

032342
032346

10-SEP=79 11:00

005037
004737

MACY11

c 13

30A(1052)
10-SEP=79
11:11
PAGE 159
172
BUS ADDRESS INHIBIT

002006
047456

CLR
JSR

SNERFLGS

PC,3#COMHD

SEQ 0158

;CLEAR ERROR FLAG
;READ DATA

;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUT
;*FROM "'COMHD'" ROUTINE IN MEANS DATA IS TO BE CHECKED

;*NOW THE DATA READ INTO "'REINTO"' BUFFER WILL

;*BE CHECKED, ONLY ONE WORD SHOULD BE CHANGED
;*ALL OTHER WORDS SHOULD REMAIN UNCHANGED
;*THE "'WRFROM'' BUFFER IS FILLED WITH EXPECTED DATA AND CHECKED
032352
032356
032362
032364
032366

005037
004037
002114
003112
000000

002006
042650

032370

012737

177400

CLR
JSR

WRFROM

ANERFLGS
RO,a#Ci.AREA

WRFROM+776
0

:CLEAR FLAG
:CLEAR BUFFER

;FROM
+70
;DATA

;*EXPECTED DATA IS 177400 IN FIRST LOCATION ONLY

002114

Mov

;EXPECTED DATA

#1776400,3#WRFROM

:*NOW READ DATA BUFFER IS CHECKED
032376
032402
032406
032412
032420
032422
032424
032430
032434
032440
032444
032446
032450
032452

002114
003160
000400
000401

047736

1%:

BEQ

001124
001126
047736
002006

MOV
MOV

3%:

104005

MOV
MOv
MOV
MOV
CMP

SUB
181
BNE
ERROR
BR
ERROR

#WRFROM,RO
#REINTO,R1

#256.,R2
#257.,3/ERWORD
(RO)+,(R1)+
2%
=(RO) ,a#SGDDAT

=(R1) ,a¥$BDDAT
R2,3¥#ERWORD

ANERFLGS
3%
4

;GOOD DATA
;DATA READ

; COUNTER

;FOR ERROR WORD NO

;COMPARE GOOD WITH READ BUFFER
:BRANCH IF GOOD
:GOOD DATA
:BAD DATA
;ERROR WORD NO
;ANY ERRORS ALREADY

THERE

:1F YES BRANCH DO NOT TYPE HEADER
;ERROR ON READ DATA
;BRANCH TO AVOID PRINTING NEXT ERROR

;WORD NO 1-10 ARE DATA

;WORDS

;WORD NOS 11-256 HAVE NOT BEEN
;READ AND BUFFER SHOULD BE
;ZERO IF OTHER THAN ZERO
;WRONG NUMBER OF

WORDS HAVE

;BEEN READ IN THE DISK NOW

;CONTAINS 177400 ALL 256
;WORDS BUT ONLY 10 WORDS
: SHOULD BE READ IN
032454
032456
032462
032466
032472
032474
032476

022021
017746
042716
022726
001402
005302
001345

146456
177177

4%:

CMP
MOV

BIC

000200

(MP

2%:

BEQ
DEC
BNE

(RO)+,(R1)+
aSWR,=(SP)
#177177,(SP)
#SW07,(SP)+
18173
R2
%

;UNDO -(RO) AND =(R1) FOR ERROR
;GET SWITCH SETTING
;KEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND 8 RESET
;BRANCH OUT IF YES
: COUNT
;BRANCH IF NOT COMPLETE

1
D 13

30A(1052)
PAGE
10=SEP=79
11:11
172
BUS ADDRESS INHIBIT

160

SEQ 0159 |

6990
6991

ket

latal

MACY11

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
CZRJGD.P1
10-SEP=79 11:00

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJIGD P11

MACY1]

30A(1052)
172

10-SEP-79

11:11

BUS ADDRESS INHIBIT

E 13
PAGE 161

SEQ 0160

6992

6993

e
s
AL

6998
6999

7024

7025

7026
7027
7028
7029
7030
7031
7032

7033

7034
7035
7036

7037
7038
7039
7040

7041
7042
7043
7044
7045
7046
7047

001000
000073

005737
001402
000137

002040

032526
032532
032534
032536

004037
051534
052532

042650

032540
032546
032552
032560
032564
032570
032576
032602
032606
032610

012737
105037
112737

005037
005037
012737
005037
004537
047616
051516

032612
032616
032622
132630
032636
032642
032646
032654
032660

042732
002070

032666

005077

146760

177777
160000

READ CYLINDERO, FORMAT 16 BITS PER WORD
TRACKO, SECTOR 1, KEYS O, 1 WORD OF 177400
THIS IS DONE WITH BUS ADDRESS INHIBIT SET

BUS ADDRESS USED 1S 760000 THIS IS ALWAYS NON EXISTANT
THIS SHOULD SET NEM

SCOPE

#STACK,SP
FTINO,Q#TSTNM

s *CHECK

TO SEE

1S1
BEQ
JMP

AIRH70

JSR
.WORD
.WORD
.WORD

RO,3#CLAREA

sCLEAR SIMULATED DISK

DISK+776

;10

;s *THESE

ARE

047616

MOV

047620

MOVB

CLRB

NEMT22 ,a¥CYL
ANSECOTR+1

;CYLINDER 0,
; TRACK 0

047676

CLR
CLR

MOv

AfKEY]
INKEY2

;KEY1=0
;KEY2=0

002032

30%:

147002
146776

000001

014000

146762

;RESET STACK
;THIS SAVES TEST NUMBER

THE PROGRAM IS RUNNING WITH AN RH70

30%
15174

DISK

177400

;TEST FLAG FOR RH70 CONTROLLER

;1F FLAG = 1, THIS TEST IS SKIPPED
:JUMP TO NEXT TEST ==m===cmcccaaccaaa-

:1F FLAG = 0, DO THIS TEST

:FROM

:DATA

TO SETUP FOR DISKLESS USE ONLY

#1,aNSECOTR

;SECTOR

CLR
JSR

#1.,3/DAWORD
af X
RS,a#CRC

; *THESE

ARE REGULAR SETUPS

JSR

PC,a#CLDISK

cyL
WCRC

001400
000001
000000
146764

- NEM

MOV
MOV

033044

010000
047621
000001
047622
047624
000001
047626
044140

RHCS2 = BIT # 11

AL AR
RRRRRRRRRRRRRRl Rl S

1§173:

177400

it et O

7023

032514
032520
032522
032526

s \J) i

7019
7020
7021
7022

012706
012737

7017
7018

000004

7014
7015
7016

032500
032502
032506

—

7006
7007
7008
7009
7010
7011
7012
7013

RPN
N WS
NONNNNNNY
NN
YN —-N
NNOO
=, NN—-N

7004
7005

3 &

OO0 = —=00000

7000
7001
7002
7003

A2 ARl
Rldl ]

SATEST 73

6994
6995
6996
6997

MOV
MOV
MOV

S#READAT ,aR1

16 BITS PER WORD FORMAT

;NO. OF DATA WORDS
;THIS IS A READ COMMAND
;G0 TO CALCULATE CRC

;:SETUP GENERAL REGISTERS

;READ DATA INTO RH(CS1=70

MOvB
MOVB
MOV
MOV

#-1, ,aRHWC
;10 DATA WORDS
#160000,aRHBA
;STARTING ADDRESS OFf READ BUFFER
#A16'A17,8R1
;15 760000
¥ ,-(SP)
;IN LOWER BYTE GET SECTOR 1
#0,1(SP)
;GET TRACKO IN UPPER BYTE
(SP)+,aRHDST
s TRACK/SECTOR IN RHDST
#FEMT22'EC] ,@RHOF ;16 BITS PER WORD

CLR

QUHCA

BIS

;ECC CORRECTION INHIBIT BECAUSE
;ECC IS NOT CHECKED HERE
;CYLINDER 0

e ———— e+

e
e <~ D

CZRJGDO,RPO4/5/6 DSKLS CTRLRI

CZRJIGD P11

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
7082
7083
7084
7085
7086
7087
7088
7089
7090
709i

10-SEP=79 11:00

MACYT1

JSR
T1PE

032672
032676

004737
104401

032702
032704
032712
032716

000000
052777
005037
004737

000010
002006
047456

032722

011137

001126

032726
032734
032736
032744
032750

022737
001406
012737
010137

145670

001126

144270
042402

001124

032752
032756
032762
032766
032772
033000
033002
033006

013746
052716
012637
011237
023737
001403
010237

001774
004110
001124
001126
001124

033010

017737

146620

033016
033024
033026
033034
033042

022737
001407
012737
013737

033044

104001

F 13
30A(1052)
10-SEP=-79
11:11
PAGE 162
RHCS2 = BIT # 11 = NEM
173

042766
062562
146724

1%:

SEQ 0161

PC,afCHECKT
»CPHALT

;AND THAT NO OTHERS = 1.

BIS
CLR
JSR

#BA] ,aRHCS?
INERFLGS
PC,a#COMHD

;SET BUS ADDRESS INHIBIT
;CLEAR ERROR FLAG
;READ DATA

MOv

aR1,a¥#$BDDAT

;TEST DATA

(MP

#SC.TRE'!DVA!AT6!A17!RDY!70,a#$BDDAT ; COMPARE RH(SI

HALT

BEQ
MOV
MOV
ERROR

:CHECK THAT DVA,RDY,DPR,DRY = 1
CANNOT CON-

;TINUE TESTING IF BOTH AREN'T TRUE
;STOP THE TEST

2%
;BRANCH IF GOOD
#SC!TRE!DVA!RDY!70,a#$GDDAT ;GOOD DATA
R1,9#REGADR
;REGISTER RHCS1
NON EXISTANT
;REFERENCE
1

;MEMORY DID NOT SET
;REQUIRED BITS

MOV

@#UNIT,=(SP)

MOv

MOv
(MpP

(SP)+ ,a#$GDDAT

;

aR2,a¥#$BDDAT
;TEST DATA
g:‘fibbkl,al$BDDAT:(0HPARE RHCS?2

MOV
ERROR

R2 ,@#REGADR
1

;REGISTER ADDRESS
;REFRENCING NONEXISTANT MEMORY

001126

MOv

oRHBA ,a#$BDDAT

;TEST DATA

160000

001126

160000

001124
042402

(MP
BEQ
MOV
MOV
ERROR

: COMPARE RHBA
#160000,a#$BDDAT
IF GOOD
;BRANCH
4%
#160000,a#$GDDAT;GOOD DATA
¥RHBA ,#REGADR ;REGISTER ADDRESS RHBA
1
;AFTER A NON EXISTANT MEMCRY ERROR
;RHBA DOES NOT HAVE 160002

2%:

001126

BEQ

042402

001634

BIS

INEM!IR!BAIL, (SP)

;GET UNIT NUMBER

;INCLUDE NEM BAI AND IR

;CAUSED AN ERROR SHOULD SET NEM

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CZRJGD P11

MACY11

7092
7093
7094
7095
7096
7097
7098
7099
7100

7143

7144
7145
7146
7147

SEQ 0162

WRITE CHECK ERROR

WRITE CHECK DATA CYLINDER O FORMAT 16 BITS PER WORD

j e
e
e
g e
j e

FIFTH WORD IS CHANGED ON DISK TO GIVE WRITE (HECK ERROR
ANY DEVICE LOGIC ERROR INDICATIONS ARE NOT CONCLUSIVE
ON FIRST PASS
BECAUSE ERROR LOGIiC HAS NOT YET BEEN CHECKED
ONLY RM WRITE CHECK ERROR IS TESTED

see

TRACK

1, SECTOR 1, KEYS 0, 32 WORDS OF

DATA

R
Y

033044

1S174:

000004

SCOPE

:*DATA TABLE

;*TOTAL OF 32 WORDS CONSISTING OF
;*16 WORDS OF FLOATING ONES (EG. 1i 2 ’ ‘l
77776,
;:*16 WORDS OF FLOATING ZEROS (EG.
033046
033052
033060

012706
012737
004737

001000
000074
042732

MOV
MOV

002032

JSR

#STACK,SP
#TINO,Q#TSTNM

PC,a#CLDISK

SRESET STACK
;THIS SAVES TEST NUMBER

;INIT AND SET UP GENERAL REGISTERS

;*SET UP ""REINTO" FOR WHAT [S TO BE READ
033064
033070
033074
033076
033100
033102
033106
033112
033114
033116
033120

1%:

177776

003220

2%:

MOV
MOV
MOV
ROL

BCC
MOV
MOV

MOV
SEC
ROL

BCS
004037
003260
004156
000001

JSR
.WORD
.WORD
.WORD

042650

#1,R0
#REINTO,R1
RO, (R1)+
RO

:GETTING READY TO FLOAT
:STARTING ADDRESS WHERE
;MOVE FLOATING 1
;GET 1 ONE BIT LEFTY

1
1

GOES

1%
:BRANCH IF 16 NOT DONE
#177776,R0
:GETTING READY TO FLOAT O
#REINTO+<16.+2>,R1 ;STARTING ADDRESS WHERE
RO,(R1)+
:MOVE IN FLOATING 0O
:SET CARRY
RO

;GET O ONE BIT LEFT

RO,a#CLAREA
REINTO+<32.%2>
REINTO+776
1

;FILL REST OF BUFFER WITH 1
;FROM
;10
:WITH DATA

:BRANCH IF

177776 GOLS

16 NOT DONE

;*SET UP SIMULATED DISK WITH WHAT IS TO BE READ
WwWooOoNN
W=0ONN
NONOO
NO == O

033122
033126
033130
033132

000001
003160

b et =

7125
7126
7127
7128
7129
7130
7131
7132
7133
7134
7135
7136
7137
7138
7139
7140
7141
7142

S*TEST 74

oo
NNONN
oNOO
——t
et O

7124

163

R
R
Y

b
D
D ol
D o
i
— -

o PO
= it e s s s =
wnro - OVONOWVIW

NN NN NNNNNN

7101
7102
7103
7104
7105
7106
7107

G 13

10-SEP=79
11:11
PAGE
30A(1052)
173
RHCS2 = BIT # 11 - NEM

000001
051534

3%:

# RO
#D1SK,R1
RO, (R1)+

;GETTING READY TO FLOAT 1
;STARTING ADDRESS WHERE 1 GOES
;MOVE FLOATING 1

BCC

:BRANCH IF

MOv

177776

051574

MOV
MOV
MOV
ROL

6%:

MOV
MOV
SEC

#177776,R0

;GET

——

1 ONE BIT

LEFT

16 NOT DONE

:GETTING READY TO FLOAT 0
#DISK+<16,.¢2>
,R1 ;STARTING ADDRESS WHERE 177776 GOES
RO, (R1)+
;MOVE FLOATING 0
:SET CARRY

A
e

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
CIRJGD. P11
10-SEP=79 11:00
7148
7149
7150
7151
7152
7153
7154
7155
7156
7157
7158
7159
7160
7161
7162
7163
7164
7165
7166
7167
7168
7169
7170
"N
7172
7173

7174
7175
7176
7177

7178
7179
7180
7181
7182
7183
7184
7185
7186
7187

7188
7189
7190
7191
7192
7193

7194
7195
7196

7197

7198
7199
7200
7201
7202
7203

MACY11

10-SEP=79
11:11
30A(1052)
174
WRITE CHECK ERROR

ROL

006100
103774

004037
051634
052532
000000

B(S

JSR

042650

.WORD
.WORD
.WORD

H 13

PAGE

164

SEQ 0163

;GET O ONE BIT LEFT

16 NOT DONE

;BRANCH IF

RO,3#CLAREA

;FILL REST OF BUFFER WITH 0

DISK+¢<32.+2>
DISK+776
C

; FROM
;10
;WITH DATA

;*CHANGE FIFTH WORD TO O ON DISK

005037
005037
004737

051544
002006
043770

(LR
CLR
JSR

afDISK+10
ANERFLGS
PC,a#WRCHDA

;CLEAR FIFTH WORD ON DISK
;CLEAR ERROR FLAG
;WRITE CHECK DATA

:CYLINDER O, TRACK 1, SECTOR 1
;KEYS 0,

;*1F

32 WORDS.

THE PROGRAM COMES BACK HERE THEN WRITE CHECK

:*HAS BEEN COMPLETED, NOw WRITE CHECK ERROR BIT IS TESTED

;*ALONG WITH RHWC FOR PROPER WORD COUNT AND RHBA FOR ADDRESS

033220
033226
033230
033234
033240
033242
033250
033252
033254

013746
052716

004737

022637
001407
032737
001002

001774
040300
042336
001712

040000

MOV

afUNIT,-(SP)

BNE

BIS
JSR
(Mp
BEQ
BIT

001712

ERROR

104017
000401

;GET UNIT NUMBER

#IR!OR'WCE,(SP)
PC,a#PUTREG
(SP)+,anCs2
6%
PWCE ,a¥(S2

;ONLY BIT 6 SHOULD BE SET
:SAVE REGISTERS
; COMPARE RH(S?2
;BRANCH IF GOOD
;WRITE CHECK ERROR HIGH?

;RHDB CONTAINS FAILING WORD

;BRANCH IF ERROR NOT DUE TO "'WCE"
;RHBA CONTAINS ADDRESS+?
THE WORD IN MEMORY FROM
;THE DISK THAT DID NOT COMPARE

;OF

;TRE AND SC WILL BE SET DUE

;WCE WAS CORRECTLY NOT SET
;BUT SOME BITS OTHER THAN
;IR AND UNIT NO. WERE SET

TO WCE

ERROR

187

afRH70

16%

:SKIP RH70 CODE AND DO RW11

(MP

#=24, ,9MuC

001402

104017

BEQ
ERROR

17%
17

:COMPARE RHWC AFTER A FORCED
:WRITE CHECK ERROR
;CHECK RHBA IF GOOD
:WORD COUNT REGiSTER IN ERROR AFTER A

033300

000421

15%

033302

022737

(mMP

033310
033312

001415
104017

BEQ
ERROR

033314

000413

WREINTO+<B.+2>,9#BA ;(OMPARE RHBA AFTER A FORCED
;WRITE CHECK ERROR IN FIFTH WORD
;CONTINUE IF GOOD
15%
:BUS ADDRESS REGISTER IN ERROR AFTER
17
;FORCED WRITE CHECK ERROR ON FIFTH WORD
;SKIP RH11 CODE AND CONTINUE WITH TEST
15%

033316

022737

(mp

#=27.

033324

001402

BEQ

14%

5%:

033256

104017

033260
033204

005737
001414

002040

033266

022737

177750

033274
033276

003200

1777645

6%:

001706

001710

001706

17%:

16%:

BEQ

:TEST FOR RH70 CONTROLLER

IF NOT

:FORCED WRITE CHECK ERROR ON FIFT4 WORD
sBRANCH TO CONTINUE TEST

Wveesar

; COMPARE RHWC AFTER A FORCED

;WRITE (HECK ERROR
;(HECK RHBA [F GOOD

—-=

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI

CZRJIGD P11
7204

7205

10-SEP-79 11:00

MACYT

10-SEP=79
11:11
5?A (1052)
74
WRITE CHECK ERROR

113

PAGE

165

SEQ 0164

033326

104017

ERROR

033330

000405

15%

033332

022737

cmp

#REINTO+<5.+2>
,a#BA; COMPARE RHBA AFTET PORCED

033340
033342

001401
104017

BEQ
ERROR

15%
17

003172

001710

14%:

;*NOW CHECK MEMCRY

;WORD COUNT REGISTER IN ERROR AFTER A
;FORCED WRITE CHECK ERROR ON FIFTH WORD

;BRANCH TO CONTINUE TEST

;WRITE CHECK ERROR IN FIFTH WORD

;CONTINUE IF GOOD
;BUS ADDRESS REGISTER IN ERROR AFTER
;FORCED WRITE CHECK ERROR ON FIFTH WORD
TO SEE

ANYTHING GOT DESTROYED

;*FILL ""WRFROM' WITH WHAT SHOULD BE IN REINTO THEN (HECK

7230

7231
7232

7237

7238
7239
7240
7241
7242

7243

7244
7245
7246

7247
7248

7249
7250

7251
7252
725%
7254
7255
7256
7257

7258
7259

033344
033350
033354
033360
033362
033364

005037
012700
012701
010021
006100

002006
000001
002114

033366
033372
033376
033400
033402
033404

012700
012701
010021
000261
006100
103774

177776
002154

033406
033412
033414
033416

004037
002214
003112

042650

15%:
7%:

103375

10%:

CLR
MOV
MOV
MOV
ROL

BCC

ONERFLGS
#1,R0
#WRFROM,R1
RO, (R1)+
RO
7%

MOV
MOV
MOV

w177776 R0
:GETTING READY T0 FLOAT 0
#WRFROM+<16.%2>,R1 ;STARTING ADDRESS WHERE
RO, (R1)+
:MOVE IN FLOATING O

ROL

RO
10%

SEC

BCS
JSR
.WORD
.WORD
.WORD

000001

RO,a#CLAREA
WRFROM+<32.¢2>
WRFROM+776
1

;CLEAR ERROR FLAG
:GETTING READY TO FLOAT 1
:START ADDRESS WHERE 1 GOES
:MOVE FLOATING 1
;GET 1 ONE BIT LEFT
:BRANCH IF 16 NOT DONE

177776 GOES

;SET CARRY

:GET O ONE BIT LEFT
:BRANCH IF CARRY SET
sFILL REST OF BUFFER WITH 1
;FROM
;10

;WITH DATA

;*NOW THE READ BUFFER WiLL BE CHECKED
033420
033424
033426
03343C
033432
033434

004037
002114
003160
000400
033440
033444

033436

033452

033440
033442
033444

104004
000207
104005

JSR

043626

WRFROM
REINTO

RO,a#COMPAR

256.

118
12%:

s CHECK

:GOOD BUFFER
;TEST BUFFER

11%
12%

;NUMBER OF WORDS CHECKED
;RETURN POINT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA

18175

;RETURN FOR GOOD COMPAR]SON

ERROR

;READ NEXT ERROR 5

ERROR

;DATA IN REINTO BUFFER GOT

RTS

;RETUURN TO COMPARISON SUBROUTINE
:(HANGED AFTER A WRITE

;CHECK DATA COMMAND

;WORD NO CONTAINS THE WORD
033446

000207

033450

000240

RTS

13%:

NOP

:NUMBER THAT

GOT

CHANGED

;RETURN TO COMPARISON SUBROUT:NE

;ONLY A BRANCH POINT

CZRJGD. PN

7260
7261
7262
7263
7264
7265
7266
7267
7268
7269
7270
7271
7272
7273

10-SEP-79 11:00

MACYT1

30A(1052)
10-SEP-79
11:11
174
WRITE CHECK ERROR
A

AREA

J 13

PAGE

166

SEQ 0165

AR ARl
Rl
l ]

;*TEST 75
ERROR REGISTER #1-BIT & <~FORMAT ERROR
g
THE SIMULATED DISK IS FILLED WITH CYLINGER 0 TRACK 1
g
SECTOR O FORMAT=18 BITS PER WORD AND & WORDS
g e
OF 125252, A READ HEADER AND DATA COMMAND IS GIVEN WITH 16 BITS
s

PER WORD FORMAT, FER=BIT4 SHOULD SET BUT

A
e

000004

033454

012706

001000

033460

012737

000075

002032

012746
012705
012700
011620
005305
001375
005726
012705

033516
033520
033522

005020
005305
001375

125252
000400
051534

SHOULD BE

2222202222022

15175:

033452

033466
033472
033476
033502
033504
033506
033510
033512

READ

SCOPE

COMPLETE

22222222222

THE

R 2Rl
ll )

MOV

#STACK,SP

;RESET

MOV

#TINO,@#TSTNM

;THIS SAVES TEST NUMBER

SETUP FOR WHAT

STACK

IS TO BE READ

HEADER CRC IS RESTORED FROM A SUBROUTINE

1%:

MOV
MOV
MOV
MOV

#125252,-(SP)
#256. ,RS
#D1SK,RO
(SP), (RO)+

;DATA TO BE READ
; COUNTER
;START OF SIMULATED DISK DATA
;MOVE IN DATA ON TO SIMULATED DISK

BNE

;BRANCH IF 256 NOT COMPLETE

000021
2%:

DEC

181
MOv

(SP)+
#17.,R5

(LR
DEC
BNE

(RO)+
RS
2%

; COUNT

;UNDO ~(SP)
;2 ECC WORDS
;1 DATA GAP
;14 TOLERANCE

GAP

;CLEAR ECC, DATA GAP, AND
: TOLERANCE GAP
;BRANCH IF NOT COMPLETE

;*THESE ARE TO SETUP FOR DISKLESS USE ONLY

7301
7302

7307
7308
7309
7310
7311
7312
7313

7314
7315

033524

000000

047616

MOv

033532
033540
033546
033554
033562
033570

000001
000000
000000
000000
000004
047626
044140

047621
047620
047622
047624
047676

MOVB
MOVB

;16 BITS PER WORD
;CYLINDER O,
#1 ,9#SECOTR+1T
;TRACK 1
#0,d#SECOTR
:SECTOR 0

MOV

#4. ,a#DAWORD

033574
033600
033602

MOV
MOV
CLR

JSR

cyL
WCRC

#0:0,a#CYL

FORMAT

16 BITS

#0,3/KEY
#0,9#KEY2

:KEY1=0
(KEY2=0

o X

;THIS 1S A READ COMMAND

RS,.a#CRC

;NO. OF

DATA WORDS

;G0 TO CALCULATE CRC

:*THESE ARE REGULAR SETUPS FOR RH11 AND "'REINTO"
042732
177770
003160
000000
000001

146014
146010

000001

JSR

PC,a#CLDISK

:SETUP GENERAL REGISTERS

MOV
MCVB
MOVB

#REINTO,aRHBA
#0,=(SP)
#1,1(5P)

;STARTING ADDRESS OF READ BUFFER
:IN LOWER BYTE GET SECTOR
;GET TRACK IN HIGHER BYTE

MOV

#=4 .4, ,0RHWC

;4.

DATA & HEADER WORDS

(alea)

CZRJGDO,RPO4/5/6 DSKLS CTRLR1

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CZRJGD. P11
7316
7317
7318
7319
7320
7321
7322
7323
7324
7325
7326
7327
7328
7329
7330
7331
7332
7333
7334
7335
7336
7337
7338
7339
7340
7361
7342
7343
7344
7345

033636
033642

146002

014000

MACY11

K13

10-SEP-79
11:11
PAGE 167
30A(1052)
175
ERROR REGISTER #1-BIT & =fORMAT ERROR

146000

(SP)+,aRHDST
s TRACK/SECTOR IN RHDST
FEMT22'EC] ,aRHOF ;16 BITS PER WORD

;ECC CORRECTION INHIBIT
sBECAUSE ECC IS NOT GOING

005077

145776

CLR

aRHCA

033654
033660

004737

042766
062562

JSR
TYPE

PC,aNCHECKT
,CPHALT

033664

000000

033666
033672
33676

013711
005037
004737

002072
002006
047454

MOV

9/REFOR ,aR1

JSR

PC,a#COMHD

CLR

;10 BE

CHECKED

;CYLINDER 0

;CHECK THAT DVA,RDY,DPR,DRY = 1
;AND THAT NO OTHERS =

CANNOT CON-

;TINUE TESTING IF BOTH AREN'T TRUE

;STOP THE TEST

HALT

SFERFLGS

;READ HEADER AND DATA=72
;CLEAR ERROR FLAG
;READ HEAPER AND DATA

;*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.

033702
033710
033712

017737
001401

145724

001126

;*RHWC

1S CHECKED TO BE

= O AFTER THE READ OPERATION

MOV

dRHWC ,$BDDAT

;LOAD AND TEST RHWC

BEQ
ERROR

104040

7346

20¢
40

;SHOULD = 0
;RHWC DOES NOT = 0 AFTER A READ

;HEADER AND DATA

;*HEADER AND DATA ARE TO BE CHECKED.
;*IN CHECKING READ DATA THE WRITE FROM BUFFER
;¢ 'WRFROM'' IS FILLFED WITH EXPECTED DATA AND
;*COMPARISONS ARE MADE.
20%:

002006

620

il i

lh il

043156
062562

b i e

033750
033756
033760
033764
033770
313774
034000
034002
034004

005737

033714
033720
033722
033726
033732
033734
033740
033744

7347
7348
7349
7350
7351
7352
7353
7354
7355
7356

MOV
MOv

033650

104401

SEQ 01656

220

002114
000000
000000
000001

ANERFLGS

;ANY ERRORS ALREADY

JSR

PC,aNCHECKE

MOV
MOV
MOVB
MOVB
MOV
MOV
MOV
MOV
MOV
MOv
DEC

#WRFROM,RO
#0,(RO)+
#0,-(SP)
#1,1(5P)
(SP)+,(RO)+
#0,(RO)+
#0,(RO)+
#256. ,R1
#125252,R2
R2,(RO)+
R1

;CHECK THAT BITS = 1
;CANNOT CONTINUE TESTING IF THEY DON'T
;STOP THE TEST

TYPE
HALT

000001

000000
000000
000400
125252

1ST

BNE

3%:

BNE

15176

+CPHALT

;BRANCH IF YES

THERE

;GETTING READY TO FILL EXPECTED DATA
;CYLINDER 0
:IN LOWER BYTE GET SECTOR
;GET TRACK IN HIGHER BYTE
;GET TRACK/SECTOR IN BUFFER

;KEY! IN BUFFER
;KEY2 IN BUFFER

;DATA WORD COUNTER
:DATA
;DATA INTO BUFFER
: COUNT
;BRANCH IF 256 NOT DONE

;*NOW READ DATA BUFFER WwiLL BE CHECKED

034006
034012
034014
034016
034020
034022
034024
034026
034030
034032

004037
002114
003160
000010
034026
034032
034036
104004
000207

034034

000207

MACY11

L 13

30A(1052)
10-SEP=79
11:11
PAGE 168
175
ERROR REGISTER #1-BIT & -FORMAT ERROR

043626

JSR

RO,3#COMPAR

6%
ERROR
RTS
ERROR

&
PC
5

RTS

WRFROM
REINTO
444,
4%
5%
(%:

104005

5%:

SEQ 0167

; CHECK

:GOOD BUFFER
;TEST BUFFER
;NUMBER Gif WORDS CHECKED
;RETURN POINT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA

;RETURN FOR GOOD COMPARISON
;READ NEXT ERROR
;RETURN TO ""COMPAR'
;WORD NCS 1 TO & ARE

;HEADER WORDS
;5 10 260 ARE DATA WORDS
;RETURN TO ''COMPAR"’

;*NOW SEE THAT FORMAT ERROR BIT GOT SET
034036

004737

042336

034042
034050
N34052

022737
001401

100020

104020

6%:
001716

JSR

PC,a#PUTREG

;SAVE REGISTERS

(MP

#FER!DCK,a#ERT

;FORMAT ERROR SHOULD BE

BEQ
ERROR

15176
20

SET

;BRANCH IF GOOD
;A 16 BIT PER WORD READ WAS ATTEMPTED
;WHEN THE DISK HAD

;THE FORMAT BIT=0-= 18 BITS PER
;WORD THE

READ WAS

;COMPLETED BUT ERROR REG

;WAS NOT RIGHT

;NOTE DCK WILL BE SET BECAUSE
;ECC HAS NOT BEEN GENERATED

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P11
10-SEP=79 11:00

76403
7604
7405
76406
76407
7408
76409
76410
7611
7612
76413
7614
7615
76416
7617
76418
76419
76420
74621
7422
7423
7424
76425
7626
76427
7428
76429
7430

76431
7632
76433
7634
7435
7636
7637
7438
7439
7640
7441
7442
7443
7444
7445
7446
7447
7448
7449
7450
7451
7452
7453
7454
7455
7456

7457
7458

10-SEP-79 11:00

30A(1052)
10-SEP=79
11:11
PAGE 169
175
ERROR REGISTER #1-BIT & =FORMAT ERROR

SEQ 0168

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

;*TEST 76
MR
2

000004

034056

012706

001000

034062

012737

000076

034070

012737

177777

034076
034102
034104
034106

004037
05153¢
052560
000000

062650

034110
034114
034120
034124
034130
034134
034142
034150
034154
034156

005037
105037
105037
005037
005037
012737

047616
047621
047620
047622
047624
000004
000001
044140

ERROR REGISTER #1-BIT & -FORMAT ERROR

THE SIMULATED DISK HEADER 1S FILLED WITH CYLINDER 0
TRACK O, SECTOR O FORMAT 18 BITS PER WORD

A WRITE DATA COMMAND IS GIVEN WITH SAME HEADER
EXCEPT FORMAT BIT.
THE DATA SHOULD NOT BE WRITTEN.

AAE iR

iél?b:

034054

012737
004537
052754

RRRRRR2 Rl
Rl d

SCOPE

;*NOW A WRITE DATA WILL BE ATTEMPTED WITH
: *WRONG FORMAT BIT

MOV

#STACK,SP

;RESET STACK

002032

Mov

#TINO,QN¥TSTNM

;THIS SAVES TEST NUMBER

047732

MOV

#-1,3#NOSYNC

;SET FLAG SO THAT DATA SYNC
:AND DATA IS NOT READ

FRMAT:

047664
047626

JSR

DISK
TOLGAP+16
O

MOV
MOV

#4 ,9¥NOWORD
AT )

;CLEAR SIMULATED DISK
;FROM
;10
:DATA

;*THESE ARE SETUP FOR DISKLESS USE ONLY
CLR
oNCYL
:CYLINDER O, FORMAT 18 BIT WORDS
CLRB
AFSECOTR+]
:TRACK O
CLRB
o#SECOTR
;SECTOR O
CLR
OfKEY1
:KEY1 0
CLR
AFKEY2
:KEY2 0
JSR

WwCyYL

052764

RO,3#CLAREA

.WORD
.WORD
LWORD

RS,a#CRC

:NO OF DATA WORDS
;WRITE DATA

;60 TO CALCULATE CRC

GCRC

:*THESE AER REGULAR SETUPS
034160
034164
034166
034170
034172
034176
034204
034212

034216
034224
034230
034234

034240
034242
034246
034252

004037
002114
002122

042650

004737
012777
012777
005077
012777
005077
004737

042732

125252

177774
002114
145426

010000
145422

104401

062766
062562

000000
013711
005037
004737

002064
002006
047456

JSR

RO,3#CLAREA

;FILL WRITE FROM BUFFER WITH 125252

JSR
MOV

PC,a#CLDISK
#-4 ,dRHWC

:SETUP GENERAL REGISTERS
:256 DATA WORDS

CLR

ORHDST

WRFROM
WRFROM+6
125252
145426
145622
145424

MOV

CLR
JSR

TYPE

#WRFROM,aRHBA

#FMT22,3RHOF

aRHCA
PC,a#CHECKT
,CPHALT

;FROM
;10
:DATA

;STARTING ADDRESS OF WRITE BUFFER

:TRACK=0 SECTOR=0

:16 BITS PER WORD FORMAT

:CYLINDER 0
;CHECK THAT DVA,RDY,DPR,DRY = 1
:AND THAT NO OTHERS = 1.

CANNOT CON-

sTINUE TESTING IF BOTH AREN'T TRUE

HALT
;STOP THE TEST
:WRITE DATA=60
o#WRIDAT,aR1
MOV
CLR
ONERFLGS
;CLEAR ERROR FLAG
JSR
PC,a#COMHD
;WRITE DATA
;*]F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS

oo |

CZRJGD. P11

MACY11

CIRJGDO,RPO4/5/6 DSKLS CTRLRI

CIZRJGDO,KkPO4/5/6 DSKLS CTRLR1

CZRJGD.P11
7459
7460
76461
7462
7463
7464
7465
7466
7667
7468
7469
7470
7471
7472
7473
7474
7475
7676
7677
7478
7479
7480
7481

7482
7483
7484
7485
7486
7487
7488
7489
7490
76491
7492
7493
7494
7495
7496
7497
7498
7499
7500
7501
7502

10-SEP=79 11:00

MACY11 30A(1052)
1 76

N 13

10-SEP=-79
11:11
PAGE 170
ERROR REGISTER #1-BIT & =-FORMAT ERROR

;*FROM THE '"COMHD'’' ROUTINE IT MEANS SECTOR GAP, SYNC BYTE
: *HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY
;*AND SYNCS WERE CORRECTLY DETECTED
034256
034262
034266
034270
034274
034300
034304
034312
034314
034316
034322
034326
034332
034336
034340

004737
005737
001041
012700
012701
012792

012737

020021
001424
010037
016137
160237
005737
001002

:*DATA IS TO BE CHECKED
PC,aN#PUTREG
JSR
187
SNERFLGS
4%
BNE
MOV
#0,RO

042336
002006
000000
051534
000004
000005

047736

1%:

MOV
MOv
MOV

CMP

BEQ

001124
001126
047736
002006

MOV
Mov

SuB

181

BNE

ERROR

104004

;SAVE REGISTERS

3%
RO,a#$GDDAT

;HAS ANY ERRORS OCCURED?
;BRANCH IF YES
:GOOD DATA
;DATA WRITTEN INTO 'DISK"
: COUNTER
;FOR ERROR WORD
;COMPARE GOOD DATA WITH DATA ON DISK
;BRANCH IF GOOD
:GOOD DATA

ANERFLGS
2%

;ANY ERRORS ALREADY THERE?
;BRANCH IF YES

#DISK,R1

¥4 ,R2
#5,3#ERWORD
RO, (R1)+
=(R1) ,a#%BDDAT
R2 ,9#ERWORD

;BAD DATA
;ERROR WORD NO

;ERROR ON WRITE DATA COMMAND

;ON A WRITE DATA WITH
;WRONG FORMAT NO DATA

034342
034344
034346
034350
034354
034360
034364
034366
034370

000401
104005
005721
017746
042716
022726
001402
005302

29:
5%:

1446564
177177

000200
3%:

001345

BR
ERROR
18T

MOV

BIC
CMP
BEQ
DEC
BNE

: SHOULD BE WRITTEN
;WORD NO GIVES WORD IN ERROR

:BRANCH TO AVOID PRINTING NEXT ERROR

(R1)+

:UNDO =(R1) FOR BAD DATA

#177177,(SP)

;KEEP ONLY SWITCH 7 AND 8

3SWR,=(SP)

#SW07,(SP)+
4%

R2
1%

:GET SWITCH SETTING

1S 7 SET AND 8 RESET.
:BRANCH IF YES

:1F NOT COUNT 256 WORDS
:BRANCH IF 256 NOT DONE

:*NOW CHECK TO SEE THAT FORMAT ERROR BIT GOT SET
034372
034400
034402

022737

001401
104020

000020

001716

4%:

CMP
BEQ
ERROR

#FER,INERT
18177

:FORMAT ERROR SHOULD BE SET
:BRANCH IF GOOD

:A 16 BIT PER WORD WRITE DATA
;WAS ATTEMPTED WHEN THE DISK

;HAD THE FORMAT BIT =0=18
;:B1TS PER WORD THE WRITE
;WAS CORRECTLY ABORTED
:BUT ERROR REG. 1 WAS WRONG

SEQ 0169

|
4 R.GD.P1 1

10-SEP=79 11:00

MACY11

7503
7504
7505

B 14

3?A (1052)
10=-SEP=79
11:11
PAGE 171
76
ERROR REGISTER #1-BIT & =FORMAT ERROR
:;'.l"""'"""""'""""""""""'t"t""'""Q'."'t'

7531

7532
7533

7534
7535
7536
7537

7538
7539
7540
7561
7542
7543
7544

7545
7546

7547
7548
7549

7550
7551
7552
7553
7554
7555
7556
7557
7558

=N
%

%
%
%
%

%
2
%

»
»

.
»

=
»
%

»
»

®ewew.

%
»

7507

;*TEST 77

7506

7508
7509
7510
7511
7512
7513
7514
7515
7516
7517
751
7519
7520
7521
7522
7523
7524
7525
7526
7527
7528
7529
7530

SEQ 0170

RHER1 - BIT #2 - REG. MODIFICATION REFUSED

IN THIS TEST THE REGISTERS ARE IN TWO GROUPS
FIRST = RHCS1,RHDST,RHOF
,RHCA RHER1,RHER2 ,RHER3 = SETS RMR
SECOND = RHMR,RHAS = DOES NOT SET RMR
IF WRITING IS ATTEMPTED DURING AKX OPERATION

ONLY ONE REGISTER IS WRITTEN INTO THAT

IS RHCA

1 THE REGISTERS CONTENTS ARE SAVED IN ''REINTO'" BUFFER
2 WRITE HEADER AND DATA ]S STARTED
3 ATTEMPT 1S MADE TO WRITE INTO REGISTERS

& ALL REGISTERS ARE

COMPARED

S i222222222222200222220220222222222RR0RR2R
R
RRRRRdRRRl

034404

000004

034406
034412
034420
034424

012706
012737
004737
004737

034430

034434
034436
034442
034444
034452

104401

000000
012700
012005
052777
013777

15177
001000
000077
042732
042766
062562
001652
000040

001774

002032

SCOPE
MOV
MOV

#STACK,SP
FTINO,@#TSTNM

;RESET STACK
;THIS SAVES TEST NUMBER

JSR

PC,a#CHECKT

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

JSR

TYPE

HALT
MOv
MOV
BIS
MOv

PC,a#CLDISK
.CPHALT

#RHCA,RO
(RO)+,R5
#CLR,ARHCS2
SFUNIT,aRHCS2

;CLEAR DISK

;AND THAT NO OTHERS =

CANNOT CON-

;TINUE TESTING IF BOTH AREN'T TRUE
;STOP THE TEST

;RS HAS ADDRESS OF

REG. UNDER TEST

;REINSTATE UNIT NO.

;*SET UP FOR AN OPERATION (WRITE HEADER AND DATA)
034460
034466
034474
034502
N34510
034516
034524

002066

MOov

I#WRIFOR,ARHCS1

;WRITE HEADER AND DATA=62

177766

MOv
MOv

#-10. ,aRHWC
#WRFROM,aRHBA

;10 WORDS
;BUS ADDRESS = WRFROM

002114
000010
000010
010000
145122

MOV
BIS
MOV
CLR

#10,3RHDST
#BA],aRHCS?
NEMT22 ,aRHOF
aRHCA

;IN RHCSI

;DESIRED TRACK=0, SECTOR=10
;BUS ADDRESS INCREMENT INHIBIT
;FORMAT 16 BIT WCRDS
;CYLINDER =0

;*SAVE REGISTERS
034530
034534
034536
034540

043424

JSR
RHCST

RO,3#SAVER

REINTO

000016

14,

:SAVE
:FROM
s 10

sNUMBER OF

REGISTERS SAVED

;*NOW THE COMMAND IS GIVES TO
;*WRITE HEADER AND DATA FOR CyL=0, SECTOR=10
;*TRACK=0 [T COMES BACK AFTER ONE SECTOR
; *HAS PASSED

CZRJGDO,RPO4/5/6 DSKLS CTRLR1

7569
7570
757
7572
7573
7574
7575
7576
7577
7578
7579
7580
7581
7582
7583

——
—
et et

003200
003162
003202
003202
003160
003160

INC
MOV

000001
000004
000200
040000
000001
000200

MOv

145110

C 14

30A(1052)
10-SEP=-79 11:11
PAGE 172
RHER1 = BIT #2 - REG. MODIFICATION REFUSED
177

0D 0D O O O

000001
145064
177672

POV
NN
=N~
N

034560
034566
034574
034602
034610
034616

O0o0O
2O —

7567
7568

034542
034550
034554

RN
NNNNNN
WWWWNNW
NNNNNN

7559
7560
7561
7562
7563
7564
7565
7566

MACY11

OO0OO0O000
SOV EOWN

CIZRJGDO,RPO4/S5/6 DSKLS CTRLR]
10-SEP=-79 11:00
CZRJGD.P11

#DMD ,3RHMR

aRHCST
#177672,3R5

;SET DIAGNOSTIC MODE

;60 TO RHCST WITH 62
;égY ::éll?g ALL BITS EXCEPT

#OMD ,@#REINTO+20 ;SET DMD IN SAVED REGISTER RHMR
#RMR,IFREINTO+2 ;SET RMR IN SAVED REG. RHERI

#DRY ,@#REINTO+22
;CLEAR DRY IN RHDS1
FERR,QNFREINTO+22
;SET ERR IN RHDS1
#GO,a#REINTO
;SET GO IN SAVED REG. RHCSI1
#ROY,3#REINTO

;CLEAR RDY BIT

;*AFTER AN ATTEMPT TO WRITE INTO A REGISTER
;*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE
034624
034630
034632
034634

034636

004037
001640
002114
000016

113737

JSR
RHCS1
WRFROM
14.

043424

003177

RO,3#SAVER

: SAVE
;FROM
210
;sNUMBER

;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
s*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS
:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

MOVB

002133

QFREINTO+17 ,3#WRFROM+17;SAVE UPPER RHAS

;*COMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH AFTER
034644

034650
034652
034654
034656
034660
034662
034664
034670
034672
034700
034702

004037
003160
002114
000016
034664
034664
034704
013705
060505
016537
104001

043626

JSR
REINTO
WRFROM
14,
4%
4%

RO,a#COMPAR

047736

MOV

a#ERWORD,RS

001636

4%:

042402

000207

ADD
MOV
ERROR
RTS

; COMPAR
;GO BUFFER
;TEST BUFFER
:NUMBER
;RETURN FOR ERROR
; SAME

;RETURN FOR GOOD COMPARISON
;GETTING READY TO INDEX

RS5,RS
:DOUBLE ERROR WORD
RHCS1-2(RS) ,a#RECADR ;FAILING REG. ADDRESS
sCONTENTS OF REGISTER
1
; CHANGED WITH
PC
;AN ATTEMPT

TO WRITE

;DURING AN OPERATION
;*THE FOLLOWING CLEAR MAY SET THE ATA BIT BECAUSE GO IS HIGH
v

034704

004737

042732

5%:

ISR

PC,aNCLDISK

SCLEAR DISK

SEQ 0171

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD P11
7605
7606
7607
7608
7609
7610
7611
7612
7613
7614
7615
7616
7617
7618
7619
7620
7621
7622
7623
7624
7625
7626
7627
7628
7629

MACY11

30A(1052)
177

RHER1

TRTEST 100

11:11

PAGE 173

SEQ 0172

- BIT #2 - REG. MODIFICATION REFUSED

2220222022

RRRRRRRRRRldd

MAKE CURRENT CYLINDER = 1

AL AR ARt
RRRRRRRRRRl Rl

034710
034712
034716
034724
034730
034736

000004
012706
012737
004737
012777
004037

034742

060001

001000
000100
062732
000001
045304

TST100:

SCOPE

002032

MOv
MOV

144722

MOV

JSR
JSR

THE SIMULATED DISK IS SET TO READ CYLINDER=0, TRACK=1

A READ HEADER AND DATA COMMAND

7630

7634

7631
7632
7633

012706
012737
005037

ERROR REG1 - BIT #7 - HEADER COMPARE ERROR

§ o

034746
034752
034760

; COMMAND FOLOWED BY AN INIT

2222220222220 200222202220222222200222222
220022
RRRRRRRRl R

TRTEST 101

000004

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

: CHANGE RHCC TO 1

034744

#STACK,SP
#TTNO,a¥TSTNM
PC,a#CLDISK
#DMD ,aRHMR
RO,3#MAKECYL

;THIS SHOULD CHANGE RHCC

cee
jee
A
g
s

7635
7636
7637
7638
7639
7640
7641
7642
7643
7644
7645
7646
7647
7648
7649
7650
7651
7652
7653
7654
7655
7656
7657
7658
7659
7660

10-SEP=79

SECTOR=1, KEYS=1, 256 WORDS OF 177400

i2222232222222222222220222222202022222

1ST101: SCOPE
001000
000101
047732

002032

IS GIVEN TO READ

CYLINDER=1, TRACK=1, SECTOR=1, KEY1=1, KEY2=1
REINTO BUFFER 1S FILLED WITH 0
WRFROM 1S FILLED WITH 10000,401,1,1,1, AND ALL 177400
AFTER THE READ THE REINTO BUFFER IS EXPECTED TO
HAVE WHAT IS IN WRFROM - 10000,401,1,1 AND ALL 177400

MOV
MOV
CLR

#STACK,SP
FTINO,I#TSTNM

a¥#NOSYNC

22222t

;RESET STACK
;THIS SAVES TEST

NUMBER

;SET FLAG SO THAT DATA SYNC
READ
;AND DATA IS

s*FILL SIMULATED DISK
034764

004737

044414

JSR

PC,a#SETDSK

;SET UP SIMULATED DISK

;*FILL REINTO BUFFER WITH 0
034770
034774
034776
035000

004037

042650

JSR
REINTO

RO,a#CLAREA

REINTO+<256.¢2>
0

;FILL REINTO BUFFER

:FROM LOCATION
;10 LOCATION
:DATA

;*FILL WRFROM WITH 10000,401,1,1, AND ALL 177400
035002
035006
035012
035016
035022

002114
010000
000401
000001
000001

MOV
MOV
MOV
MOV
MOV

#WRFROM,RO
#EMT22,(RO)+

;10000 INTO WRFROM

#1,(RO)+
#1,(RO)+

;1
;1

#6401, (RO)+

;401=TRACK1,SECTOR]
INTO WRFROM+
INTO WRFROM+6

RRR

CIRJGDO,RPO4/S5/6 DSKLS CTRLRI
10-SEP-79 11:00
CZRJIGD P11
7661
7662
7663
7664
7665
7666
7667
7668
7669
7670
7671
7672
7673
7674
7675
7676
7677
7678
7679
7680
7681
7682
7683
7684
7685
7686

MACY1]

E 14
3?A ( 1052)
10-SEP=79
11:11
PAGE 174
101
ERROR REG! - BIT #7 = HEADER COMPARE ERROR

;eFILL ALL O
035026
035032
035034
035036

004037
002124
003114
177400

JSR

042650

RO,a#CLAREA

WRFROM+10
WRFROM+<256,.+2>
177400

;EILL WRFROM
;FROM
: 10

;DATA

;*NOW GIVE A READ HEADER AND DATA (OMMAND
;*CYLINDER=1
;*TRACK

JSR

RO,a#HCCRCE

;*SECTOR = 1
046542

035040
035044
035046
035050
035052
035054
035056
035060

004037
000072
000001
000001
000001

177400
003160
000000

;RHBA BUFFER
;READ

035062
035064

000001
000240

1
NOP

;HEADER C(OMPARE
;RETURN POINT FROM HCCRCE

72
1
1
1

=256.

REINTO

1%:

;READ HEADER AND DATA

sCYLINDER

;SECTOR
;s TRACK

;WORD COUNT

SEQ 0173

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CZRJGD.P1
7687
7688
7689
7690
7691
7692
7693
7694
7695
7696
7697
7698
7699
7700
7701
7702
7703
7704
7705
7706
7707
7708
7709
7710
7711
7712
7713
7714
7715
7716
7717
7718
7719
7720
7721
7722
772%
7724
7725
7726
7727
7728
7729
7730
7731
7732
7733
7734

7735
7736
77%7
7738
7739
7740
7741
7742

MACY11

F 14
30A(1052)
10-SEP=79
11:11_
PAGE 175
1101
ERROR REG1 - BIT #7 - HEADER COMPARE ERROR
e

22222222222222222222222220l
d

22222222222

TRTEST 102
035066
035070
035074
035102
035106
035114

000004
012706
012737
004737
012777
004037

035120

000000

001000
000102

062732
000001
045304

SEQ 0174

151102: SCOPE
MOV
MOv
JSR
MOV
JSR

002032
164544

MAKE CURRENT CYLINDER = 0
2222222222222 2222202l
l

#STACK,SP
#TTNO,@#TSTNM
PC,a#CLDISK
#OMD ,aRHMR
RO,3#MAKECYL

JRESET STACK
;THIS SAVES TEST NUMBER
;INIT DRIVE
;SET DIAGNOSTIC MODE
sSUBROUTINE TO GIVE A SEEK
; COMMAND FOLOWED BY AN INIT
;:THIS SHOULD CHANGE

; CMANGE RHCC TO O

RHCC

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

TRTEST 103
M

N24

AW
A4
M24
24

035122

000004

035124
035130
035136

012706
012737
005037

ERROR REG1 - BIT #7 - HEADER COMPARE ERROR

THE SIMULATED DISK IS SET TO READ CYLINDER=0, TRA(K=1
SECTOR=1, KEYS=1, 256 WORDS OF 177400

A READ HEADER AND DATA COMMAND IS GIVEN TO READ
CYLINDER=0, TRACK=0, SECTOR=1, KEY1=1, KEYZ2=1
REINTO BUFFER 1S FILLED WITH 0
WRFROM IS FILLED WITH 10000,401,1,1,1, AND ALL 177400
AFTER THE READ THE REINTO BUFFER IS EXPECTED TO
HAVE WHAT IS IN WRFROM - 10000,401,1,1 AND ALL 177400

1222222232222 2222223 2222222222222222222222l

157103: SCOPE
001000
000103
047732

002032

MOV
MOV

CLR

#STACK,SP
#TTNO,QN#TSTNM

a#NOSYNC

;RESET STACK
;THIS SAVES TEST NUMBER
;SET FLAG SO THAT DATA SYNC
;AND DATA

READ

;*FILL SIMULATED DISK
004737

04644614

JSR

PC,a#SETDSK

;SET UP SIMULATED DISK

;*FILL REINTO BUFFER WITH O
004037
003160
004160
000000

042650

JSR
REINTO

RO,9#CLAREA

REINT0+<256.%2>
0

sFILL REINTO BUFFER
;FROM LOCATION
;70 LOCATION
;DATA

;eFILL WRFROM WITH 10000,401,1,1, AND ALL 177400
002114
010000
000401
000001
000001

MOV

#WRFROM,RO

MOV
MOV

#1,(RO)+
#1,(RO)+

MOV
MOV

#FEMT122,(RO)+
#401,(R0O)+

;10000 INTO WRFROM
:401=TRACK1,SECTOR!
;1
:1

INTO WRFROM+
INTO WRFROM+6

CIZRJGDO,RPO4/5/6 DSKLS CTRLR]
10-SEP=79 11:00
CZRJGD P
7743
7744
7745
7746
7747
7748
7749
7750
7751
7752
7753
7754
7755
7756
7757
7758
7759
7760
7761
7762
7763
7764
7765
7766
7767

MACY1]

6 14

S?A ( 1 052)
10-SEP=79
11:11_
PAGE 176
1 03
ERROR REG! - BIT #7 - HEADER COMPARE ERROR

seFILL ALL O
004037
00212¢
003114

042650

JSR

RO,a#CLAREA

WRFROM+1(
WRFROM+<256.¢2>

177400

;FILL WRFROM
:FROM
;10

;DATA

;*NOW GIVE A READ HEADER AND DATA (COMMAND
s*CYLINDER=0

;*TRACK = 0

;*SECTOR = 1

004037
000072
000000
000001
000000

JSR

044542

72
0
1

0
=256.

177400
003160

REINTO

000000
035240
035242

000001
000240

0
1%:

1
NOP

RO,3#HCCRCE

;READ HEADER AND DATA
sCYLINDER
;SECTOR

:TRACK
:WORD COUNT

;RHBA BUFFER

;READ

:HEADER COMPARE
sRETURN POINT FROM HCCRCE

SEQ 0175

——

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1

CZRJGD. P11

7768
7769
7770
(444
7772
7773
7774
7775
7776
777
7778
7779
7780
7781
7782
7783
7784
7785
7786
7787
7788
7789
7790
7791
7792
7793
7794
7795
7796
7797
7798
7799
7800
7801
7802
7803
7804
7805
7806
7807
7808
7809
7810
7811
7812
7813
7814
7815
7816
7817
7818
7819
7820
7821
7822
7823

10-SEP=79 11:00

MACY11

——

H 14

30A(1052)
10-SEP=79
11:11_
PAGE 177
1103
ERROR REG! = BIT #7 - HEADER COMPARE ERROR
e

2222222222222

TRTEST 104

2222222222220

SEQ 0176

2222020l

)

MAKE CURRENT CYLINDER = 1

a2 2222222222222t
Rl

035244
035246
035252
035260
035264
035272

000004
012706
012737
004737
012777
004037

035276

000001

001000
000104
062732
000001
045304

1$1104: SCOPE
002032

MOV
MOV

144366

MOV

JSR

#STACK,SP
#TTNO,a¥TSTNM

PC,a#CLDISK
#OMD ,aRHMR

RO,3/MAKECYL

2222222222222

TRTEST 105
M
R

M
A

*Rw
cER

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

; COMMAND FOLOWED BY AN INIT
:THIS

;RESET STACK

SHOULD

CHANGE

; CHANGE RHCC TO 1

RHCC

2222222222222 2222222202222l
Rl

ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR

THE SIMULATED DISK 1S SET UP FOR CYLINDER=0, TRACK=1
SECTOR=1, KEYS=1, 256 WORDS OF 177400
A WRITE DATA COMMAND IS GIVEN TO WRITE CYLINDER=1
TRACK=1, SECTOR=1, KEY1=1, KEY2=]

WRFROM BUFFER 1S FILLED WITH 125252
REINTO BUFFER IS FILLED WITH 177400
AFTER THE WRITE COMMAND THE DISK
HAVE 177400

IS EXPECTED TO

':"t'""""""""""""""""."".""I"l"i.""l""

157105: SCOPE

035300

000004

035302
035306

012706
012737

001000
000105

035314

012737

177777

002032

MOV
MOV

#STACK,SP
#TINO,I#TSTNM

JRESET STA(K
;THIS SAVES TEST NUMBER

047732

MOV

#-1,3#NOSYNC

;SET

FLAG SO THAT DATA SYNC

sAND DATA

[S NOT

READ

;*FILL SIMULATED DISK
004737

044414

JSR

PC,a#SETDSK

sSETUP SIMULATED DISK

;*FILL WRFROM WITH 125252
004037
002114
003114

042650

JSR

RO,3#CLAREA

WRFROM
WRFROM+<256.+2>
125252

125252

;FILL WRFROM BUFFER
sFROM LOCATION
;710 LOCATION
:DATA

;*FILL REINTO WITH 256 WORDS OF 177400
;*THIS 1S WHAT 1S EXPECTED TO BE ON DISK EVEN AFTER
;*AN ATTEMPT TO WRITE

004037
003160
004160

042650

JSR

REINTO

RO,9#CLAREA

REINTD*<256,.%2>

125252

;FILL REINTO BUFFER
;FROM LOCATION

.10

ST——

———

CIRJGDO,RPO4/5/6 DSKLS CTRLR1

CZRJGD.P11
;gg;
7826
7827
7828
7829
7830
7831
7832

7833
7834
7835
7836
7837
;ggg

7840
7841
7842

03535C

10-SEP=79 11:00

MACY1] 3??6;052)

177400

10-SEP=-79

11:11

PAGE 178

ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR
177400
;*NOW GIVE A WRITE DATA COMMAND
;*CYLINDER = 1,
;*TRACK = 1
;*SECTOR
= 1

035352
035356
035360
035362
035364
035366
035370

004037
000060
000001
000001
000001
177400
002114

035374
035376

000001
000240

035372

044542

JSR
60
1
1
|
=256.
WRFROM

000001

1$:

1
NOP

RO,a#HCCRCE

1 14

;WRITE DATA
; CYLINDER
;SECTOR
; TRACK
;WORD COUNT
;RHBA BUFFER

;WRITE

;HEADER COMPARE
;RETURN POINT FROM MCCRCE

SEQ 0177

CZRJGDO,RPO4/5/6 DSKLS CTRLR!

CZRJGD. PN

10-SEP=79 11:00

MACY11

J 14

30A(1052)
10-SEP=79
11:11
PAGE 179
1105
ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR

SEQ 0178

7843

7844
7845
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
7878
7879
7880
7881
7882
7883
7884
7885
7886
7887
7888
7889
7890
7891
7892
7893
7894
7895
7896
7897
7898

2222222222222

SeTEST 106

22220222202t
lll)

MAKE CURRENT CYLINDER = 0

':""""""""l.""""""""'"."l"'.""'.l0."".""

035400
035402
035406
035414
035420
035426

000004
012706
012737
004737
012777
004037

035432

000000

001000
000106
042732
000001
045304

151106: SCOPE
MOV

002032

MOV
JSR
MOV
JSR

144232

#STACK,SP

#TINO,Q#TSTNM
PC,a#CLDISK
#DMD , aRHMR
RO,3#MAKECYL

2222222222222

e
Jo.

STACK

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

; COMMAND FOLOWED BY AN INIT

;THIS

SeTEST 107

SRESET

SHOULD

ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR

THE SIMULATED DISK IS SET UP FOR CYLINDER=0,

TRA(K=1

SECTOR=1, KEYS=1, 256 WORDS OF 177400
A WRITE DATA COMMAND IS GIVEN TO WRITE CYLINDER=0

TRACK=0, SECTOR=1, KEY1=1, KEY2=]
WRFROM BUFFER 1S FILLED WITH 125252

s
s

AFTER THE WRITE COMMAND THE DISK
HAVE 177400

RHCC

2222222222222222222l
ll)

s
L

CHANGE

s CHANGE RHCC TO O

REINTO BUFFER IS FILLED WITH 177400

IS EXPECTED TO

2222222222223 32222 2222222222222l
l)

1S1107: SCOPE

035434

000004

035436
035442

012706
012737

001000
000107

002032

035450

012737

177777

047732

MOV

#STACK,SP

SRESET

STACK

MOV

#TINO,@#TSTNM

;THIS SAVES TEST NUMBER

MOV

#-1,3#NOSYNC

JSET FLAG SO THAT DATA SYNC
;AND DATA IS NOT READ

s*FILL SIMULATED DISK
035456

004737

064414

JSR

PC,aNSETDSK

;SETUP SIMULATED DISK

:soFILL WRFROM WITH 125252
035462
035466
035470
035472

004037
002114
003114

042650

125252

RO,a#CLAREA
JSR
WRFROM
WRFROM+<256.%2>
125252

;FILL WRFROM BUFFER
;FROM LOCATION
;70 LOCATION
:DATA

;eFILL REINTO WITH 256 WORDS OF 177400
;*THIS 1S WHAT IS EXPECTED 10 BE ON DISK EVEN AFTER
;*AN ATTEMPT TO WRITE 125252

035474

004037

062650

JSR

RO,a#LLAREA

sFILL REINTO BUFFER

CIRJIGDO,RPO4/5/6 DSKLS CTRLRI
CZRJGD.P1
10-SEP-79 11:00
7899
7900
7901
7902
7903
7904
7905
7906
7907
7908
7909
7910
7911
7912

7913

7914
7915
7916
7917
7918
7919

035500
035502
035504

MACYT1

K 14
30A(1052)
10-SEP=-79
11:11
PAGE 180
1107
ERROR REG.1 = BIT #7 - HEADER COMPARE ERROR

003160
004160
177400

REINTO

;FROM LOCATION

REINTO+<256.¢2>
177400

;10

;*NOW GIVE A WRITE DATA COMMAND
;*CYLINDER = 0,

:*TRACK = 0

;*SECTOR

004037
000060
000000
000001
000000

035506
035512
035514
035516
035520
035522
035524
035526

002114
000CO01

035530
035532

000001
000240

044542

JSR
60
0
1
0

177400

RO,3#HCCRCE

;WRITE DATA
sCYLINDER
;SECTOR
;s TRACK

-256.

;WORD COUNT

1
NOP

sHEADER COMPARE
;RETURN POINT FROM HCCRCE

WRFROM
1

1%:

;RHBA BUFFER
;WRITE

SEQ 0179

MALTY?

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CZRJGD P11
7920
7921

7922

7967
7968
7969
7970
7971
7972
7973
7974
7975

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

TRTEST 110
A

RHER1 - BIT #8 - CRC ERROR (READING)

THE SIMULATED DISK IS SET TO READ CYLINDER=0, TRACK=1

see
j e
s
;o8
LA

SECTOR=1, KEYS=1, 256 WORDS OF 177400
A READ HEADER AND DATA COMMAND IS GIVEN TO READ
CYLINDER=0, TRACK=1, SECTOR=1, KEY1=1, KEY2=1
REINTO BUFFER IS FILLED WITH 0
WRFROM IS FILLED WITH 10000,401,1,1,1, AND ALL 177400

joe

HAVE WHAT IS IN WRFROM - 10000,401,1,1 AND ALL 177400

AFTER THE READ THE REINTO BUFFER IS EXPECTED TO

2222222222222 232322222222222222222222222222RRRiRiRiRRRRRRRll
Rl

035534

000004

035536
035542
035550

012706
012737
005037

1ST110: SCOPE
001000
000110

047732

002032

MOV
MOV

CLR

#STACK,SP
FTINO,@#TSTNM

a#NOSYNC

sRESET STACK
;THIS SAVES TEST NUMBER

;SET FLAG SO THAT DATA SYNC
;AND DATA IS READ

—_—

004737
005137

035554
035560

;*FILL SIMULATED DISK
oo

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
7962
7963
7964
7965
7966

L 14
30A(1052)
10-SEP=79
11:11
_PAGE 181
1107
ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR -

JSR
COM

PC,a#SETDSK
a#WCRC

;SET UP SIMULATED DISK
;CHANCE CRC TO GIVE HCRC

s*FILL REINTO BUFFER WITH O
035564
035570
035572
035574

004037
003160
004160
000000

042650

JSR

RO,a#CLAREA

REINTO
REINTO+<256.%2>
0

:FILL REINTO BUFFER

;FROM LOCATION
;70 LOCATION
:DATA

;*FILL WRFROM WITH 10000,401,1,1, AND ALL 177400
002114
010000
000401
000001
000001

035576
035602
035606
035612
035616

MOV

#WRFROM,RO

MOV
MOV
MOV

#401,(RO)+
#1,(RO)+
#1,(R0O)+

MOV

#FEMT22,(RO)+

;10000 INTO WRFROM

:6401=TRACK1,SECTOR1
;1 INTO WRFROM+

INTO WRFROM+6

s+FILL ALL O
035622
035626
035630
035632

042650

RO,3#CLAREA
JSR
WRFROM+10
WRFROM+<256.¢2>
177400

177400

sFILL WRFROM
;FROM
;10
:DATA

:*NOW GIVE A READ HEADER AND DATA COMMAND
:*CYLINDER=0
;*TRACK = 1
;*SECTOR = 1

035634

004037

044542

JSR

RO,3#HCCRCE

SEQ 0180

7976
7977
7978
7979
7980
7981
7982
7983
7984
7985
7986
7987

035640
035642
035644
035646
035650
035652
035654

000072
000000
000001
000001

035656
035660

000000
000240

10-SEP=79

RHER1

#8 = CRC ERROR

SEQ 0181

(READING)

;READ HEADER AND DATA

1
1

;SECTOR
; TRACK

REINTO

;RHBA BUFFER

-256.

0
1%:

M4
PAGE 182

177400
003160
000000

= BIT

11:11

30A (1
m 10

NOP

; CYLINDER

;WORD COUNT
:READ

:CRC ERROR

;RETURN POINT

e 1

MACY1T

FROM HCCRCE

Pad

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
CIZRJGD.P11
10-SEP-79 11:00

7988
7989
7990
7991
7992
7993
7994
7995
7996
7997
7998

8023
8024
8025

8026
8027
8028
8029
8030
8031
8032
8033
8034
8035
8036
8037
8038
8039
8040
8041
8042
8043

AR A

RHER1

THE

= BIT 8 - (RC ERROR

SIMULATED DISK

2222

2222222222¢2 3

(WRITING)

IS SET UP FOR CYLINDER=0,

SECTOR=1, KEYS=1, 256 WORDS OF

v
e
e
e
e
re

111

7999

8000
8001
8002
8003
8004
8005
8006
8007
8008
8009
8010
8011
8012
8013
8014
8015
8016
8017
8018
8019
8020
8021
8022

«TEST

177400

TRACK=1

A WRITE DATA COMMAND IS GIVEN TO WRITE CYLINDER=0
TRACK=1, SECTOR=1, KEY1=1, KEY2=1
WRFROM BUFFER IS FILLED WITH 125252
REINTO BUFFER 1S FILLED WITH 177400
AFTER THE WRITE COMMAND THE DISK IS EXPECTED TO
HAVE 177400
AR

i ST11i:

X 2222222222222

035662

000004

035664
035670

012706
012737

001000
000111

002032

MOV
MOV

#STACK,SP
#TINO,I#TSTNM

sRESET STACK
;THIS SAVES TEST

035676

012737

177777

047732

MOv

#=1,3#NOSYNC

;SET

SCOPE

NUMBER

FLAG SO THAT DATA SYNC

;AND DATA IS NOT READ
;*FILL SIMULATED DISK
035704
035710

004737
005137

044414
051516

JSR

(oM

PC,aN#SETDSK

afWCRC

;SETUP SIMULATED DISK

: CHANGE CRC

TO GIVE HCRC

;*FILL WRFROM WiTH 125252
035714
035720
035722
035724

004037
002114
003114
125252

042650

JSR

RO,a#CLAREA

WRFROM
WRFROM+<256.¢2>

125252

;FILL WRFROM BUFFER

sFROM LOCATION
;70 LOCATION

;DATA

;*FILL REINTO WITH 256 WCRDS OF 177400
;*THIS IS WHAT IS EXPECTED TO BE ON DISK EVEN AFTER
;*AN ATTEMPT TO WRITE 125252
035726
035732
035734
035736

004037
003160
004160
177400

042650

JSR

REINTO

RO,3#CLAREA

REINTO0+<256.+2>

;10

177400

s*NOW GIVE A WRITE
;*CYLINDER = 0,
;*TRACK = 1

;*SECTOR

035740
035744
035746
035750
035752
035754

004037
000060
000000
000001
000001
177400

044542

JSR
60
0
1
1

=256,

;FILL REINTO BUFFER

sFROM LOCATION

DATA COMMAND

z 1

RO,9#HCCRCE

JWRITE DATA
sCYLINDER

JSECTOR
;s TRACK

;WORD COUNT

SEQ 0182

e 1

N 14
MACY1L 3 0 A(1052)
10-SEP=-79
11:11
PAGE 183
1 110
RHER1 = BIT #8 - CRC ERROR (READING)

[

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
CZRJGD.P11
10-SEP=-79 11:00

10-SEP=79 11:00

CZRJIGD

8044
8045

8046
8047
8048
8049
8050

035756
035760

002114
000001

035762
035764

000000
000240

MACY11

B 15

30A(1052)
10-SEP-79
11:11
PAGE 184
mn
RHER1 = BIT 8 = CRC ERROR (WRITING)

1%:

WRFROM
1

;RHBA BUFFER
;WRITE

0
NOP

;CRC ERROR
;RETURN POINT

SEQ 0183

FROM HCCRCE

[ Tal

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI

CZRJGDO,RPO4/5/6 DSKLS CTRLR
10-SEP-79 11:00
CZRJGD.P11
8051
8052
8053
8054
8055
8056
8057
8058
8059
8060

MACY11

30A(1 052)
10-SEP=79
11:11
PAGE 185
"
RHER1 = BIT 8 = CRC ERROR (WRITING)

SEQ 0184

;*SET UP FOR THE TWO LAST SECTOR TRANSFERRED TESTS FOLLOWING
::""""""""""'"'"'t'"'"".l"""""'.."'I".""'

035766
035772
035774
035776
036002

005737
001401
000402
000137

181

002036

2%:
3%:

036452

BEQ
BR
JMP

a#RP06

2%
1%
a¥D0G6

;MOVE RPO6 FLAG TO ITSELF

TO TEST

;1F = 0 TREAT DRIVE AS RPO4
;TREAT AS RPO6 - DO NEXT ‘'MAKECL'' & TEST
;D0 SECOND FOLLOWING 'MAKECL'' AND TEST

;:"'!"'""'""""""""'""""'l't""""'lt"t"""'!

8061

8062
8063
8064
8065
8066
8067
8068
8069
8070
8071
8072
8073
8074
8075
8076
8077
8078
8079
8080
8081
8082
8083
8084
8085
8086
8087
8088

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

TRTEST 112

MAKE CURRENT CYLINDER = 814.

':""l"""""""""""""C""""""""".".'I".'tt'

036002
036004
036010
036016
036022
036030

000004
012706
012737
004737
012777
004037

036034

001456

001000
000112
042732
000001
045304

TST112: SCOPE
MOv
MOV
JSR
MOv
JSR

002032
143630

#STACK,SP
#TTNO,@#TSTNM
PC,a#CLDISK
#DMD , 3RHMR
RO,3#MAKECYL

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

; COMMAND FOLOWED BY AN INIT
:THIS SHOULD CHANGE RHCC

814,

:CHANGE RHCC TO 814.

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

:«TEST

113

s
e

WRITE CYLINDER 814., FORMAT 16 BITS PER WORD
TRACK 18., SECTOR 21., KEYS O, NUMBER Of WORDS

A
e
st
e

036040
036044

001000
000113

036052
036056
036060
036062

042650

002032

(BIT #10) = LAST SECTOR TRANSFERRED,

2222232222222

2222222222222222R222RRR

MOV

#STACK,SP

#TTNO,I#TSTNM

;THIS SAVES TEST NUMBER

JSR
.WORD
.WORD
.WORD

RO,a#CLAREA
DISK
TOLGAP+16
0

;CLEAR SIMULATED DISK
; FROM
;10
;DATA

MoV

;RESET

iRl

STACK

;*THESE ARE SETUP FOR DISKLESS USE ONLY

036064

012737

011456

047616

'LST'

256., OF 377
'LST' BIT # 10 - RHDS1, SHOULD SET AFTER WRITE
1S COMPLETE.

1ST113: SCOPE

036036

RHDS1

MOV

#B14, ' FMT22,a#CYL; CYLINDER 814,

;16 BITS PER WORD

CZRJGDO,RPO4/5/6 DSKLS CTRLR1

CZRJGD.PI

10-SEP=79 11:00

8107
8108
8109
8110
8111
8112

036072
036100
036106
036112
036116
036124

112737
112737
005037
005037
012737
012737

8114
g}}g

036136
036140

047616
051516

8113

036132

004537

000022
000025
047622
047624
000400
000001

044140

MACY11 30A(] 052)

T113

047621
047620
047664
047626

8120
8121
8122
8123
8124
8125

8126
8127
8128

8129

8130
8131
8132
8133
8134
8135
8136

g}g;

JSR

cyL
WCRC

036142

036146
036150
036152
036154
036160
036166

036174
036200
036206

036212

036220
036226
036232
036236
036240
036244

036250

004037

002114
003114
000377
004737
012777
012777

012746
112766
012677

012777

012777
004737
104401
000000
013711
005037

004737

042650

042732
177400
002114
000025
000022

143432
010000

001456
042766
062562

000001

143430

036276

8152

8154
8155
8156
8157

8153

8158
8159
8160
816;
816

;G0 TO CALCULATE CRC

RO,a#CLAREA

;FILL WRITE BUFFER WITH 377

MOV
MOvVB
MOV

#21.,-(SP)
#18.,1(SP)
(SP)+,aRHDST

;SECTOR 21.
; TRACK 18,
;SECTOR 21. TRACK 18.

MOV
JSR
TYPE

#814. ,aRHCA
PC,aNCHECKT
»CPHALT

HALT
MOV
CLR
JSR

#FEMT22 ,aRHOF

9#WRIDAT ,aR1
INERFLGS
PC.,a#COMHD

;FROM LOCATION
;70 LOCATION
;DATA
;SETUP GENERAL REGISTERS
:256. DATA WORDS
;STARTING ADDRESS OF WRITE BUFFER

;16 BITS PR WORD FORMAT

;CYLINDER 814,
;CHECK THAT DVA,RDY,DPR,DRY = 1
;AND THAT NO OTHERS = 1. CANNOT CON;TINUE TESTING IF BOTH AREN'T TRUE
;STOP THE TEST
;WRITE DATA=60
;CLEAR ERROR FLAG

;WRITE DATA

;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;*FROM THE ''COMHD'* ROUTINE IT MEANS SECTOR GAP, SYNC BYTE
;*HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY
;*AND SYNCS WERE CORRECTLY DETECTED, DATA 1S TO BE CHECKED.

042336
002006

g}g?

RS.,a#CRC

JSR

MOV

143424

002064
002006
047456

004737
005737
001062
012700

8149

#18.,9#SECOTR+1;
TRACK 18,
#21.,9#SECOTR
;SECTOR 21.
aNKEY]
;KEY1 0
aNKEY2
;KEY2 0
#256.,9#NOWORD
;NO OF DATA WORDS
#l,anx
;WRITE DATA

WRFROM
WRFROM+<256.%2>
377
JSR
PC,a#CLDISK
MOV
#-256. ,3RHWC
MOV
#WRFROM,QRHBA

143444
1463440

8139

D 15
PAGE 186

;*THESE ARE REGULAR SETUPS

8140
8141
8142
g}LS

8145
8146
8147
8148

11:11

RHDS1 (BIT #10) = LAST SECTOR TRANSFERRED, °'LST'
MOVB
MOvB
CLR
CLR
MOV
MOV

g}};

8119

10-SEP=79

036254
036260
036264
036266

000377

JSR
18T
BNE
MOV

PC,a#PUTREG
ANERFLGS
5%
#377,R0

:SAVE REGISTERS
;HAVE ANY ERRORS OCCURED?
;BRANCH IF YES
.
:GOOD DATA

012702

000400

MOV

#256. ,R2

; COUNTER

036302

012737

000401

036312
036314
036320
0363264

001424
010037
014137
160237

036272

036310

036330
036334
036336
036340

012701

020021

005737
001002
104004
000401

MOV

051534

001124
001126
047736
002006

047736

1%:

#DISK,R]

;DATA WRITTEN INTO "'DISK"

MOV

#256.+1 ,9#ERWORD; FOR ERROR WORD

BEQ
MOV
MOV
SuB

3%
RO,a#$GDDAT
-(R1),a#$BDDAT
R2,a#ERWORD

(MP

187
BNE
ERROR
BR

RO, (R1)+

; COMPARE GOOD DATA WITH DATA ON DISK

QNERFLGS
2%
&
64%

;ANY ERRORS ALREADY THERE?
;BRANCH IF YES
;ERROR ON WRITE DATA COMMAND
;BRANCH TO AVOID PRINTING NEXT ERROR

:BRANCH IF GOOD
:GOOD DATA
;BAD DATA
;ERROR WORD NO

SEQ 0185

8163

8164

8165
8166
8167
8168

8169

8170
8171
8172
8173
8174
8175
8176
8177
8178
8179
8180

8181
8182
8183
8184
8185
8186
8187
8188
8189
8190
8191

036342
036344
036346
036352
036356
036362
036364
036366

104005
005721
017746
042716
022726
001402
005302
001345

036370
036374
036400
036404
036406
036414
036422
036430

013746
042716
022726
001412
013737
012737
013737

036432
036440
036442
036444

013737
000000
000200

036446

000137

104001

104415

MACY11

30A(1052)
10-SEP=79
11:11
PAGE 187
RHDS1 (BIT #10) = LAST SECTOR TRANSFERRED,
1113

2%:
64%:

142566
177177

000200

3%:

001736
001000
002700
001662

002700
001736

001640

4%:

042402
001124
001126

036442

187
MOv

BIC
CMP
BEQ
DEC
BNE

MOv

BIC
CMP
BEQ

MOV
MOV
MOV

ERROR

5%:
6%:

037116

ERROR

MOV
WAT

;WORD NO GIVES WORD IN ERROR

aSWR,=(SP)
#77177,(SP)
#SW07,(SP)+

;GET SWITCH SETTING
;KEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND 8 RESET

(R1)+

R2
%

;UNDO =(R1)

FOR BAD DATA

;BRANCH OUT

YES

;1F NOT COUNT 256 WORDS
;BRANCH IF 256. NOT DONE

;GET RHDS1
a#DS1,=(SP)
#PROG, (SP)
; CLEAR PROG
#LST!DPR!DRY!VV,(SP)+;1S 'LST' HIGH ?
5%
;BRANCH IF GOOD
a#RHDS1,9#REGADR ;FAILING REG. ADDRESS

#LST!DPR!DRY!VV,a#$GDDAT ;GOOD DATA
;BAD DATA
a#DS1,a#$BDDAT
1
;'LST' DID NOT SET AFTER

ANRHCST ,an6$

;LAST SECTOR ON LAST TRACK
;ON LAST CYLINDER WAS
;WRITTEN
;VV BIT #6 MAY OR MAY NOT BE HIGH
;SET UP "'WAT'' SUBROUTINE
;RHCS1 ADDRESS
;WAIT FOR READY

RDY
JMP

SEQ 0186

'LST'

a¥CAT

;DON'T DO THE RPO&

"LST'

TEST FOLLOWING

TMTM

CZRJGDO,RPO4/5/6 DSKLS CIRLR1
10-SEP-79 11:00
CZRJGD.P1]

i
T

E 15

CIZRJGDO,RPO4/5/6 DSKLS CTRLRY

CZRJGD.P1

8192
8193
8194

8195
8196

8197
8198
8199
8200
8201
8202
8203
8204
8205
8206
8207

8208
8209
8210
8211

8212
8213
8214
8215
8216
8217
8218
8219
8220
8221
8222
8223
8224
8225
8226
8227
8228
8229
8230
8231
8232
82353
8234
8235
8236

8237
8238
8239
8240
8241
8242
8243
8244
8245
8246
8247

10-SEP-79 11:00

MACY11

036452

TRy

15
S?A (1052)
10-SEP-79
11:11
PAGE 138
13
RHDS1 (BIT #10) = LAST SECTOR TRANSFERRED,

SEQ 0187

'LST'

DOG:
';"""""'"'"""Q"""'".'""""".""."t'.l...""'t

SeTEST 114

MAKE CURRENT CYLINDER = 410.

':'""""'"Q"""""""'"""""".""l""i'f""""t'

036452
036454
036460
036466
036472
036500

000004
012706
012737
004737
012777
004037

036504

000632

001000
000114
062732
000001
045304

1ST114:

SCOPE

002032

MOv
MOv

143160

MOv

#STACK,SP
#TTNO,QN#TSTNM
PC,a#CLDISK
#DMD ,aRHMR
RO,3#MAKECYL

JSR
JSR

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

; COMMAND FOLOWED BY AN INIT
;THIS SHOULD CHANGE

: CHANGE RHCC TO 410.

410.

RHCC

';'l".""""""""""""'It""'Q'.'.""'.Q.'Q.""'l""

SeTEST 115

RHDST1

(BIT #10) = LAST SECTOR TRANSFERRED,

e
e

WRITE CYLINDER 410., FORMAT 16 BITS PER WORD
TRACK 18., SECTOR 21., KEYS O, NUMBER OF WORDS

WRITE

s
s
e

256., OF 377
'LST' BIT #10 - RHDS1 SHOULD SET AFTER THE
1S

COMPLETED

2222222222222 22222222222222222RRRRRRRRRR
iRl
Rl

1ST115: SCOPE

036506

000004

036510
036514

012706
012737

001000
000115

036522
036526
036530
036532

004037
051534
052560
000000

042650

002032

MOv
MOV

#STACK,SP
#TINO,a#TSTNM

sRESET STACK
;THIS SAVES TEST

JSR
.WORD
.WORD
.WORD

RO,3#CLAREA
DISK
TOLGAP+16

;CLEAR SIMULATED DISK
:FROM
* 10

;*THESE

ARE

SETUP FOR DISKLESS USE ONLY

012737

010632

047616

MOV

#610.'FMT22,a#CYL;CYLINDER 410,

036542
036550
036556
036562
036566
036574
036602
036606
036610

112737
112737

000022
000025
047622
047624
000400
000001
044140

047621
047620

MOVB
MOVB

#18.,3#SECOTR+1;TRACK 18.
#21.,9#SECOTR
:SECTOR 21.

047664
047626

CLR
(LR

MOV
MOV

:16 BITS PER WORD

OFKEY]

;KEY1

#256. ,9#NOWORD

;NO OF DATA WORDS

afKEY2

JSR

’l,anx
RS,a#CRC

;v THESE

ARE

cyL
WCRC

NUMBER

:DATA

036534

005037
005037
012737
012737
004537
047616
051516

'LST'

;KEY2 0

;WRITE DATA
;60 TO CALCULATE

REGULAR SETUPS

C(RC

8248
8249
8250
8251
8252
8253

8254
8255
8256
8257
8258
8259
8260
8261
8262
8263
8264
8265
8266
8267

036612
036616
036620
036622
036626

036630
036636
036644
036650
036656
036662
036670
036676
036702

036706
036710
036714
036720

004037
002114
003114
000377
004737

012777
012777
012746
112766
012677
012777
012777
004737
000000
013711
005037
004737

MACY1]

615

3?A (1052)
10-SEP=79
11:11
PAGE 189
115
RHDS1 (BIT #10) = LAST SECTOR TRANSFERRED,

JSR

042650

042732
177400
002114
000025
000022
142762
010000
000632
042766

RO,3#CLAREA

142774
142770

000001

PC,a#CLDISK
#-256. ,aRHWC
#WRFROM ,aRHBA
#21.,-(5P)
#18.,1(5P}

MOV

#EMT22 ,aRNHOF

JSR

PC,aNCHECKT

MOV

TYPE

062562

HALT

MOv
CLR
JSR

002064
002006
047456

:FROM LOCATION
;70 LOCATION

JSR
MOV
MOV
MOV
MOVB

MOV

142760
142754

SEQ 0188

;FILL WRITE BUFFER WITH 377

WRFROM
WRFROM+<256.t2>

377

'LST'

(SP)+ _,aRHDST

#410. ,8RHCA

:DATA

;SETUP GENERAL REGISTERS
:256. DATA WORDS
:STARTING ADDRESS OF
;SECTOR 21.
;TRACK 18.

;SECTOR 21.

TRACK

WRITE BUFFER

18.

;16 BITS PER WORD FORMAT
:CYLINDER 410.

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

LCPHALT

;AND THAT NO OTHERS =

CANNOT (ON-

;TINUE TESTING IF BOTH AREN'T TRUE

a/WRIDAT 3R]
ANERFLGS
PC,a#COMHD

;STOP THE

TEST

;WRITE DATA=60
;CLEAR ERROR FLAG
;WRITE DATA

;*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;*FROM THE ''COMHD'' ROUTINE

1T MEANS SECTOR GAP, SYNC BYTE

;*HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY
;*AND SYNCS WERE CORRECTLY DETECTED, DATA IS TO BE CHECKED.

8275
8276
8277
8278
8279
8280

036724
036730
036734
036736
036742
036746

004737
005737
001062
012700
012701
012702

8282
8283
8284
8285
8286
8287
8288
8289
8290
8291

036752
036760
036762
036764
036770
036774
037000
037004
037006
037010

012737
020021
001424
010037
014137
160237
005737
001002
104004
000401

8293
8294
8295

037012
037014
037016

037022
037026
037032
037034
037036

104005
005721
017746
042716
022726
001402
005302
001345

037040

013746

8296
8297
8298
8299
8300

8301
8302

8303

JSR

042336
002006

000401
‘

1%:

142116
177177

MOv

#256. ,R2

; COUNTER

6%:

ANY ERRORS OCCURED?

YES

;DATA WRITTEN INTO "DISK"’

#256.+1,a#ERWORD;FOR ERROR WORD
RO, (R1)+
. COMPARE GOOD DATA WITH DATA ON DISK

MOV
MOV

RO,a#$GDDAT
-(R1) ,a#$BDDAT

181

ONERFLGS

ERROR
151

;BRANCH 1F GOCD

R2,a#ERWORD

;ERROR WORD NO

2%
&
64%

THERE?

:BRANCH IF YES
;ERROR ON WRITE DATA COMMAND
;BRANCH TO AVOID PRINTING NEXT ERROR

#177177,(SP)
#SW07,(SP)+

SKEEP ONLY SWITCH 7 AND 8
;1S 7 SET AND 8 RESET

BEG

MOV

;ANY ERRORS ALREADY

;WORD NO GIVES WORD IN ERROR
;:UNDO =(R1) FOR BAD DATA

aSWR, = (SP)

DEC
BNE

:GOOD DATA
;BAD DATA

5
(R1)+

MOV

BIC
(MP

3%:

#D1SK,R1

;HAVE

MOV
(MP

BNE
ERROR
BR

000200

001736

:GOOD DATA

SUB

2%:
64%:

;BRANCH IF

#377,R0

BEQ

001124
001126
047736
002006

MOV

MOV
047736

: SAVE REGISTERS

O¥ERFLGS

BNE

000377
051534
000400

PC,aN#PUTREG

18T

;GET

SWITCH SETTING

;BRANCH OUT

YES

R2
%

;1F NOT COUNT 256 WORDS
;BRANCH IFf 256. NOT DONE

9#DS1,=(SP)

;GET RHDS!

TM~

CZRJGDO,RPO4/5/6 DSKLS CTRLR!
CZRJGD.PT
10-SEP=79 11:00

CIRJGDO,RPO4/S5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD P11

H 15
A1 052)
10-SEP=79
11:11
PAGE 190
30(
RHDST1 (BIT #10) = LAST SECTOR TRANSFERRED,
1115

001000
002700
001662
002700
001736

Bil
(MP
BEQ

042402
001124
001126

MOV
MOV

MOV

ERROR

#PROG, (SP)
;CLEAR PROG BIT
FLST!DPR!DRY!VV,(SP)¢
;IS "LST"

'LST'

HIGH ?

5%
;WAIT FOR 'RDY' IF GOOD
@#RHDS1 ,a#REGADR ;FAILING REG. ADDRESS
#LST!DPR!DRY!VV, 3#$GDDAT

;BAD DATA

;GOOD DATA

:'LST' DID NOT SET AFTER

:LAST SECTOR ON LAST TRACK ON LAST

:CYLINDER WAS WRITTEN = ‘vv' BIT #6
et

— it et O
sroornN

i
el
—

NNNN

:MAY OR MAY NOT BE

037044
037050
037054
037056
037064
037072
037100

OOO0O

1
1
1
1

NV
W

NN NN

o 0o oo 00 0o

8304
8305
8306
8307
8308
8309
8310
8311
8312
83 1

MACY1T

013737
106415
000000
000200

001640

037112

5%:
6%:

MOV
WAl

RDY

IFRHCST ,an6$

HIGH

;SET UP "'WAT'' SUBRGUTINE
sRHCST

;WAIT

ADDRESS

FOR

'RDY'

BIT

—

SEQ 0189

CZRJIGDO,RPO4/5/6 DSKLS CTRLRI]
10=-SEP=79 11:00
CZRJGD.P1Y

8364
8365
8366
8367
8368
8369
8370
8371
8372
8373
8374

037116

115

3?A (1052)
10=SEP=79
11:11
PAGE 191
115
RHDST (BIT #10) = LAST SECTOR TRANSFERRED,

'LST'

CAT:
;;.'"Q""'""""'""""""""""".'.'."".'.""0"'.'

;*TEST

116

A WRITE DATA COMMAND IS GIVEN TO CYLINDER 410./814.

;e
;e

ERROR REGISTER

= BIT

#9 AOE

SECTOR 21 TRACK 18, KEYS 0, DATA 377
WORD COUNT REGISTER FQR 522 (256+466+200) WORDS

MR
A

Jve
g

AFTER 256 WORDS HAVE BEEN WRITTEN
'AOE' SHOULD COME uP

;o
Sl
;e

RHWC WILL SHOW 200 BECAUSE THE SILO 1S 66 WORDS AND
256 WORDS HAVE BEEN WRITTEN - TOTAL 322
THIS 1S 200 SHORT OF 522

A 2222222222220l

037116
037120
037124
037132
037136
037142
037144
037146

000004
012706
012737
004737
004037
051534
052560

001000
000116
042732
042650

15T116: SCOPE
002032

MOV
MOV

#STACK,SP
#TINO,a#TSTNM

JSR

RO,a#CLAREA

JSR
.WORD

.WORD
.WORD

000000

PC,a¥#CLDISK
DISK

TOLGAP+16
0

;RESET STACK
;THIS SAVES TEST NUMBER

;INIT AND SET UP GENERAL REG. CORRES.
sCLEAR SIMULATED DISK

:FROM

: 10
:DATA

;*THESE ARE TO SETUP FOR DISKLESS USE ONLY
;*AND WILL HANDLE RPO& OR RPO6 DRIVES

037150
037154

005737
001404

002036

037156
037164

012737
000403

011456

047616

037166

012737

010632

047616

037174
037202
037210
037214
037220
037226
037234
037240
037242

OO NNNNNNN

8319
8320
8321
8322
8323
8324
8325
8326
8327
8328
8329
8330
8331
8332
8333
8334
8335
8336
8337
8338
8339
8340
8341
8342
8343
8344
8345
8346
8347
8348
8349
8350
8351
8352
8353
8354
8355
8356
8357
8358
8359
8360
8361
8362
8363

MACY1]

000022
000025
047622
047624
000400
000001

047621
047620

044140

181

9#RP06

MOV

#814,.'FMT22,9#CYL;CYLINDER 814.,

16 BITS PER WORD

10%:

MOV

#4610, ' FMT22,9#CYL;CYLINDER 410.,

16 BITS PER WORD

11%:

MOVB
MOvB
CLR

#18.,9#SECOTR+1
#21, ,9#SECOTR
a¥KEY]

MOV

#256.,9#NOWORD

BEQ

047664
047626

CLR

MOV

JSR

cyL

10%

;MOVE RPO6 FLAG TO ITSELF

11%

;TREAT DRIVE AS RPO6
;TREAT

INKEY?2
(AT}

RS,3#CRC

TO TEST

:TREAT DRIVE AS RPO4 IF = 0

DRIVE

AS RPO4

;TRACK 18.
;SECTOR 21.
JKEY1T 0

:KEY2 0
;NO OF

DATA WORDS

;WRITE DATA

;G0 TO CALCULATE CRC

WCRC

;*THESE ARE REGULAR SETUPS

037244

037250
037252
037254
037256

004037
002114

003114
000377
004737

042650

JSR

WRFROM

RO,3#CLAREA

WRFROM+<256.t2>

062732

377

JSR

PC,a#CLDISK

;FILL WRITE BUFFER WITH 377

;FROM

+10

:DATA

;SETUP GENERAL REGISTERS

SEQ 0190

——

CZRJGD.P11

8375
8376
8377
8378
8379
8380
8381
8382
8383
8384

8385
8386
8387
8388
8389
8390
8391
8392
8393
8394
8395
8396
8397
8398
8399
8400
8401
8402
8403
8404
8405
8406
8407
8408
8409
8410
8411
8412

8413

8414
8415
8416
8417
8418
8419
8420
8421
8422

8423
8424
8425
8426
8427
8428
8429
8430

10-SEP=-79 11:00

MACYT1

176766
002114
000025
000022

000001

010000

142326

142330

J 15

30A(1052)
10-SEP=79
11:11
PAGE 192
1116
ERROR REGISTER 1 - BIT #9 AOE

1642342
142336

MOV
MOV
MOV

#-522. ,aRHWC
#WRFROM ,aRHBA
#21.,-(SP)

MOV

NEMT22 ,aRHOF

MOvVB
MOV

#18.,1(SP)
(SP)+,3RHDST

SEQ 0191

:522. DATA WORDS
;STARTING ADDRESS OF
;SECTOR 21.

WRITE BUFFER

; TRACK 18.
;SECTOR 21. TRACK 18.
;16 BITS PER WORD FORMAT

;*(HECK TO SEE WHAT TYPE OF DRIVE IS BEING TESTED
;*AND LOAD CYLINDER ADDRESS REGISTER WITH THE PROPER NUMBER
037322
037326
037330
037336
037340
037346

005737
001404
012777
000403
012777

002036

037346
037352

004737

042766
062562

037356
037360
037364

000000
013711
005037

104400

001456

1642314

000632

142304

18T

a#RPO6

MOV
BR

#814. ,3RHCA
13%

JSR
TYPE

PC,aNCHECKT
LCPHALT

BEQ
12%:
13%:

MOV

HALT

Mov
CLR

002064
002006

12%

;MOVE FLAG TO ITSELF

#6410, ,3RHCA

ONWRIDAT,aR1
OFERFLGS

;*THE REGISTERS WILL BE

037370
037374
037376
037400

004037
001632
003160
000023

043424

JSR

RHWC
REINTO
19.

RO,a#SAVER

TO TEST

; TREAT AS RPO4 IF = 0
;CYLINDER 814.
; TREAT AS RPO6

;CYLINDER 410.

; CHECK THAT DVA,RDY,DPR,DRY = 1
;AND THAT NO OTHERS = 1.
(CANNOT CON-

;TINUE TESTING If BOTH AREN'T TRUE
;STOP THE

TEST

;WRITE DATA=60
;CLEAR ERROR FLAG
SAVED

IN REINTO BUFFER

s SAVE

;FROM
;10
;NUMBER SAVED

;*GIVE WRITE DATA COMMAND
037402

004737

JSR

047456

PC,a#COMHD

;WRITE DATA COMMAND

;*CHANGE SAVED REGISTERS TO EXPECTED VALUES

037406
037412

005757
001407

037414
037422

012737
012737

037430

000406

037432
037440

002040
177376

003134

177470

003322
000200
000100

140000

001000
1642142

181

a¥RH70

MOV
MOV

#-258.,9#REINTO ;SAVED RHWC SHOULD BE = 258.
FWURFROM+<2+256.>+<2+8,> ,a#REINTO+2

JP2

MOV
MOV

#-200.,9#REINTO ;SAVED RHWC SHOULD BE = 200.
PURFROM+<2#256.>4<2%66.> ,a#REINTO+2

BEQ
003160
003162

VAR1:
VARZ2:

003160
003162

JP1:

003164
003164
003166
003170
003172

JP2:

S
C
S
v
v

JP1

;CHECK FOR RH70 CONTROLLER

;:SKIP RH70 CODE AN DC RH11

IF NOT

;SAVED RHBA SHOULD BE WRFRCM+256+8
:SKIP NEXT RH11 CODE

;SAVED RHBA SHOULD BE WRFROM+?256+66

#OR,QFREINTO+4
;SAVED RH(S?2
#IR,INREINTO+4
;SAVED RHCSZ
#SC!TRE,O#REINTO+6;
SAVED RHCS1 SHOULD HAVE 'SC*' & 'TRE’
#AOE ,@#REINTO+10 ;SAVED RHER1 SHOULD HAVE "AOE'
SRHDST ,Q#REINTO+12;SAVED RHDST SHOULD HAVE:=
;RHDST

IS UNDEF INED

TMTM

CZRJCDO,RPO4/5/6 DSKLS CTRLR]

CZRJGD.PI

8431
8432
8433
8434
8635
8436
8437

8438
8439
8440
8441
8442
8443

8444
8445
8446
8447

8448
8449
8450
8451
8452
8453
8454
8455

8456
8457
8458
8459
8460

8461
Bub2
8463
8464
8465
8466
8467
8468
8469
8470
8471
B472
8473
8474
8475
8476
8477
8478
8479
8480
8481

8482
84B3
8484
8485
B84B6

10-SEP=79 11:00

MACY11

3CA(1
e

K 15

10=-SEP=79
11:11
PAGE 193
ERROR REGISTER 1 - BIT #9 AOE

SEQ 0192

;*CHECK TO SEE WHAT TYPE OF DRIVE 1S BEING TESTED

;*AND SET UP CYLINDER ADDRESS ACCORDINGLY

037504
037510

002036

037512
037520

001457

003200

037522

000633

003200

14§:

037530
037536
037544

002016
000001

003204
003206
003210

15%:

142000

181

a¥#RP06

MOV

l815 LOMREINTO+20; SAVED DESIRED CYLINDER ADDRESS

MOV

#4101, ,@#REINTO+20; SAVED DESIRED CYLINDER ADDRESS

MOV

ANATTENT,QNREINTO+24 ;SAVED RHAS SHOULD HAVE APPRO. BIT

BEQ
BR

BIS
BIS

14%

;MOVE RPO6 FLAG TO ITSELF

15%

TO TEST

; TREAT AS RPO4 IF = 0

; TREAT AS RP06

#DMD ,a#REINTO+26;
SAVED RHMR
#ATA'ERR!LST ,3#REINTO+30 ;SAVED RHDS!

;*AFTER A WRITE DATA COMMAND WITH 'AOE' ERROR
;*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE
037552
037556
037560
037562

004037
001632
002114

043424

JSR

RHW(
WRFROM
17.

000021

RO,a#SAVER

: SAVE

; FROM
;10
;NUMBER OF

REGISTERS SAVED

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

RHAS WILL BE

SAVED AS

;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
037564

113737

003205

MOvVB

002141

SNREINTO+25,a#WRFROM+25;SAVE UPPER RHAS

; *COMPARE REGISTERS BEFORE WRITE DATA COMMAND

;*WITH AFTER COMMAND

037572
037576
037600
037602
037604
037606
037610

004037
003160
002114
000021
037612
037612
037632

043626

037612
037616
037620
037626

013705
060505
016537

047736

037630

000207

037632

005037

104001

001630

JSR

RO,a#COMPAR

MOV
ADD
MOv

a#ERWORD,RS
;GETTING READY TO INDEX
RS,RS
;DOUBLE ERROR WORD
RHWC=2(R5) ,@#REGADR ;FAILING REG. ADDRESS

RTS

CLR

O¥ERFLGS

REINTO
WRFROM
17
1%
1%
2%

1%:

042402

ERROR

2%:

002006

: COMPARE

:GOOD BUFFER
: TEST BUFFER
:NUMBER OF REGISTERS
;RETURN FOR ERROR
: SAME
;RETURN FOR GOOD COMPARISON

;FORCED AOE ERROR CAUSED IMPROPER
;REGISTER CHANGE
;RETURN FOR FURTHER COMPAR]SONS

:NO ERRORS
;CLEAR ERROR FLAG

;*DATA 1S TO BE CHECKED HERE
037636
037642
037646
037652
037656
037664

042336
000377
051534
000400
000400

JSR
MOV
047736

3%:

MOV
MOV

PC,a¥PUTREG
#377,R0
#D1SK,R1
#256.,R2

:SAVE REGISTERS
;GOOD DATA
:DATA WRITTEN INTO "'DISK"
; COUNTER

(MP

RO, (R1)+

s COMPARE GOOD DATA WITH DATA ON DI SK

MOV

#256. ,a#ERWORD

;FOR ERROR WORD

oTM

CZRIGDO,RPO4/5/6 DSKLS CTRLRI

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00

CZRJGD. P11

037740
037742

005302
001345

037744

10-SEP=79
11:11
PAGE 194
30A(1052)
116
ERROR REGISTER 1 - BIT #9 AOE

BEQ

001124
001126
047736
002006

MOV
MOV

SUB

5%:

;BRANCH IF GOOD

R2 ,a#ERWORD

;ERROR WORD NO

:BRANCH IF

RO,a#$GDDAT
=(R1),a#$BDDAT

:GOOD DATA
;BAD DATA

NERFLGS

ERROR

:ERROR ON WRITE DATA COMMAND WITH FORCED *AOE"

BEQ

#177177,(SP)
#SWC7, (SP)+
7%

;KEEP ONLY SWITCH 7 AND 8
(1S 7 SET AND 8 RESET
:BRANCH OUT IF YES ======cmcccococaca- >

DEC
aNE

R2
38

;1F NOT COUNT 256 WORDS
:BRANCH IF 256. NOT DONE

fr
ERROR
151
MOV

BIC
CMP
6%:

SEQ 0193

18T

BNE
(%:

OoO~N—
o~

001424
010037
0146137
160237
005737
001002
104004
000401
104005
005721
017746
042716
022726
001402

N
— N

037666
037670
037674
037700
037704
037710
037712
037714
037716
037720
037722
037726
037732
037736

[
o~NS
O~N—

8487
8488
8489
8490
84691
8492
8493
8494
8495
8496
8497
8498
8499
8500
8501
8502
8503
8504
8505

MACY11

L 15

5%
5
(R1)+
ASWR ,={SP)

:ANY ERRORS ALREADY

YES

THERE?

:BRANCH TO AVOID PRINTING NEXT ERROR
;WORD NO. GIVES WORD IN ERROR
:UNDO =(R1) FOR BAD DATA
;GET SWITCH SETTING

7%:

e ————

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=79 11:00
CZRJGD

MACY11

PAGE 195
10-SEP=-79
30A (1052)
11:11
T 16
ERROR REGISTER 1 - BIT #9 AOE

SEQ 0194

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

;*TEST 117
A2

000004
012706
012737

004737
012777
004037

037776

001000
000117
042732
000001
045304

MAKE CURRENT CYLINDER = 0

AR AR A2
2020 20222
2R RRRRRRRRRE 2]

1ST117: SCOPE
002032

Mov
Mov

141666

MOV

JSR
JSR

#STACK,SP
#TTNO,aNTSTNM
PC,a#CLDISK
#DMD ,aRHMR
RO,3#MAKECYL

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

; COMMAND FOLOWED BY AN INIT

;THIS SHOULD CHANGE RHCC

; CHANGE RHCC TO 0

000000

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

;*TEST 120

5::
é::

ERROR REGISTER 1 - BIT #10 'IAE'

A READ HEADER AND DATA IS GIVEN
TO TRACK 20, SECTOR 0

AN INDEX PULSE IS GIVEN TO GET RHLA T0 0
i
IAE BIT SHOULD SET

2222202222222 222202220022022R2R2R
22022
RRRRRRRRRRRRRR Rl RS

040000
040002
040006
040014

000004
012706

012737
004737

001000
000120
042732

040020
040026
040034

012777
052777
042777

000001
000004
000004

1§1120: SCOPE
MOV
MOV
JSR

002032

#STACK,SP
#TTNO,a¥TSTNM
PC,a#CLDISK

;:*GIVE INDEX PULSE

141632
141624

MOV

BIS
BIC

161616

#DMD ,aRHMR

FMINX,QRHMR
#MINX,QRHMR

;RESET

STACK

;THIS SAVES TEST NUMBER
;CLEAR REGISTERS AND SET UNIT NO.

;SET DIAGNOSTIC MODE
;SET INDEX
:CLEAR INDEX

;*THESE ARE REGULAR SETUPS

8560
8561

141554

MOV
MOV
MOV

#-256. ,3RHWC
#REINTO,RO
RO,9RHBA

040060

010000

Mov

#FMT22,(RO)+

040064
040070
040072
040074
040100
040104
040106
040110

012000

MOov
CLR
CLR
MOV
MOV
DEC
BNE
MOV

#12000, (RO) +
(RO)+
(RO)+
#256. ,R5
#-1,(RO)+
RS
1%
#12000,3RHDST

JSR

PC,a#CHECKT

040042
040050
040054

177400
003160

040116
040122

141562

000400
177777

012777

012000

004737

042766
062562

104401

1%:
141526

TYPE

LCPHALT

;256 DATA WORDS & HEADER WORDS
:THESE TWO INSTRUCTIONS GETS
:ADDR, OF WRFROM INTO RO AND
;BUS ADDRESS REGISTER
;FORMAT=16 BIT WORDS

:CYLINDER=0

;TRACK=20 SECTOR=0 KEYS=0

;KEY1=0

:KEY2=0

;COUNTER
;sMOVE ALL ONES FOR DATA

;BRANCH IF DATA NOT COMPLETE
: TRACK=20 SECTOR=0
;CHECK THAT DVA,RDY,DPR,DRY = 1
;AND THAT NO OTHERS =

CANNOT CON-

SEQ 0195

;TINUE TESTING IF BOTH AREN'T TRUE

040126

000000

040130

01371

002072

MOV

a#REFOR,aR1

sGET READY FOR WRITE HEADER AND

040134
040140
040146

005037
012777
005077

002006
010000

CLR

AVERFLGS

sCLEAR ERROR FLAG

040152
040156
040160
040162

004037
001632
003160
000023

043424

141500

141502

MOV
CLR

;STOP THE

#FMT22,aRHOF
aRHCA

TEST

sDATA WITH 62 IN RHCST

sFORMAT BIT=1
;CYLINDER =0

(16 BIT WORDS)
R

HALT

;*THE REGISTERS WILL BE SAVED IN REINTO BUFFER
RO,3#SAVER
. SAVE

JSR

RHWC
REINTO

: FROM
;10

19.

sNUMBER SAVED

:*GO TO WRITE HEADER AND DATA
040164
040170
040174

013700
012710
052777

001660
000001
000001

040202
040210
040216
040224
040232
040240

052737
012737
012737
013737
052737
052737

140000

040246
040252
040254
040256

004037
001632
002114
000023

0402690

113737

002000
012001
002016
000001
140000

141436

BIS

d#RHMR , RO
#DMD,aR0

#GO,aRHCST

BIS

MOv
MOV
MOV
BIS
BIS

004037
003160
002114
000021
040306
040306
040326

043626

040306
040312
040314
040322

013705
060505
016537

047736

ADDR.

#1AE ,@#REINTO+10 ;SAVED RHER1
#12001,3#REINTO+12;
SAVED RHDST
OFATTENT ,@#REINTO+24 ;SAVED RHAS
#DMD ,@#REINTO+26 ;SAVED RHMR
#ATA'ERR,Q#REINTO+30 ;SAVED RHDS1

;*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE

JSR

RHWC
WRFROM

RO,a#SAVER

: SAVE

: FROM
;10

:NUMBER OF

REGISTERS SAVED

:*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
:*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS 1S
:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE

002141

MOvB

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

;*COMPARE REGISTERS BEFORE READ IN PRESET COMMAND
:*WITH AFTER COMMAND

JSR

REINTO
WRFROM

RO,3#COMPAR

17.
2%

2%:
062402

MOv

ADD
MOV
ERROR

s COMPARE

;GOOD BUFFER
sTEST BUFFER

sNUMBER OF REGISTERS
sRETURN FOR ERROR

2%
1%

001630

REG.

#SC!TRE ,@#REINTO+6 ;SAVED RHCS1

19.

003205

;NOW RO WAS MAINTENANCE
;SET DIAGNOSTIC MODE
H Y

: *CHANGE SAVED REGISTERS TO EXPECTED VALUE

003166
003170
003172
003204
003206
003210

043424

040266
040272
040274
040276
040300
040302
040304

104001

Mov
MOV

: SAME
sRETURN FOR GOOD COMPAR]SON
o#ERWORD,RS

sGETTING READY

T OMNITOAD

N 15

30A(1052)
10-SEP=-79
11:11
PAGE 196
1120
ERROR REGISTER 1 = BIT #10 'I1A€’

INDEX

R5,RS
;DOUBLE ERROR WORD
RHWC=2(RS) ,@#REGADR ;FAILING REG. ADDRESS
1
;PORCED AE CAUSED IMPROPER

JREGISTER CHANGE

=IO MT"TMOMNDZ R

8562
8563
8564
8565
8566
8567
8568
8569
8570
857
8572
8573
8574
8575
8576
8577

MACYT1

I O TMONDEZ
R R C =TT OTMONADZ
RN R =IO MTMOMNDZ B R

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
CZRJGD.P11
10-SEP=79 11:00

CZIRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P11
10-SEP-79 11:00
gg}g

040324

B 16

MACY11 30A(1052)
10-SEP=-79 11:11 PAGE 197
1120
ERROR REGISTER 1 - BIT #10 'IAE’

000207

RTS

gg%?
8622
8623

;RETURN FOR FURTHER COMPARISONS
:NO ERRORS

040326

004737

042732

3%:

JSR

PC,amCLDISY

;CLEAR GO BIT

SEQ 0196

Rplia st
L

CZRJIGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=79 11:00
CZRJGD.P11

8624
8625
8626
8627
8628
8629
8630
8631
8632
2633
8634
8635
8636
8637
8638
8639
8640
8641
8642
8643
8644
8645
8646
8647
8648
8649
8650
8651
8652
8653
8654
8655
8656
8657
8658
8659
8660
8661
8662
8663
8664
8665
8666
8667
8668
8669
8670
8671
8672
8673
8674
8675
8676
8677
8678
8079

MACY1]

C 16
30A(1052)
10-SEP-79
11:11
PAGE 198
1120
ERROR REGISTER 1 - BIT #10 'IAE’
R

R R R RN R RN R R R R PR R R R RN RN PR R R R R R R RN R RN AR RN

SeTEST 121

TRACK

RN RERRRERRROEROERNEONREY

ERROR REGISTER 1- BIT #10 'I1AE’

A WRITE HEADER AND DATA

sew

SEQ 0197

O CYLINDER O

IS GIVEN TO SECTOR 22

s
T

WORD COUNT

S SET

TO 256.

sEw

AN INDEX PULSE 1S GIVEN TO GET RHLA 10 0

ser

IAE BIT SHOULD SET

;;t"tt'tt"t""t't'tt"""""'tt't"tti"ttt'tt"t't'tt't'tt'

040332
040334
040340
040346

000004
012706
012737
004737

001000
000121
042732

040352
040360
040366

012777
052777
042777

000001
000004
000004

TST121:

002032

SCOPE
MOV
MOV

JSR

#STACK,SP
#TINO,a#TSTNM

PC,a#CLDISK

;*GIVE INDEX PULSE

MOV
BIS

BIC

#DMD ,aRHMR
#MINX,3RHMR

#MINX,aRHMR

;*THESE ARE

:CLEAR REGISTERS AND SET UNIT NO.
;SET DIAGNOSTIC MODE
;SET INDEX

:CLEAR INDEX

REGULAR SETUPS

MOV
MOV
MOV

#-256. ,3RHWC
#WRFROM,RO
RO,3RHBA

:256 DATA WORDS & HEADER WORDS
:THESE TWO INSTRUCTIONS GETS
:ADDR. OF WRFROM INTO RO AND

010000

MOV

#FEMT22,(RO)+

000026

MoV
CLR
CLR

#22.,(RO)+
(RO)+
(RO)+

:FORMAT=16 BIT WORDS
;CYLINDER=0

DEC

040374
040402
040406

177400
002114
141222

0460412

040416
040422
040424
040426
040432
040436
0460440
040442

141230

000400
177777

012777

000026

040450
040454

004737

042766
062562

040460

000000

040462

01371

002066

040466
040472
040500

005037
012777
005077

002006
010000

104401

;RESET STACK
;THIS SAVES TEST NUMBER

1%:
141174

MOV
MOV

#256. ,RS
3;1,(R0)o

;COUNTER
:MOVE ALL ONES FOR DATA

1%
#22.,3RHDST

:BRANCH IF DATA NOT COMPLETE
;TRACK=0 SECTOR=22

JSR

PC,a#CHECKT

:CHECK THAT DVA,RDY,DPR,DRY = 1

,CPHAL?Y

HALT

141140

:TRACK=0, SECTOR=22, KEYS=0
:KEY1=0
;KEY2=0

BNE
MOV
TYPE

141150

;BUS ADDRESS REGISTER

CANNOT (CON-

:TINUE TESTING IF BOTH AREN'T TRUE

:STOP THE TEST

MOV

O/WRIFOR,aR1

CLR

ANERFLGS

MOV
(LR

:AND THAT NO OTHERS = 1.

#FEMT22,3RHOF
oRHCA

:GET READY FOR WRITE HEADER AND

:DATA WITH 62 IN RHCSI
;CLEAR ERROR FLAG

:FORMA BIT=1 (16 BIT WORDS)
:CYLINDER =0

;*AS EXCEPTION IS ASSERTED BEFORE RUN IS

;*LATCHED RHWC,RHBA,RHCS1,RHCS2 CANNOT BE CHECKED
;*BECAUSE RHWC WILL VARY DEPENDING UPON GATE DELAYS
;*ON DIFFERENT UNITS

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
CZRJGD.P11
10-SEP=-79 11:00

040504
040510
040512
040514

004037
001642
003160
000015

3? A(1052)
1

D 16

10=-SEP=79
11:11
PAGE 199
ERROR REGISTER 1- BIT #10 'IAE’

;*THE REGISTERS WiLL BE SAVED IN REINTO BUFFER

043624

JSR

RHER1
REINTO

RO,3#SAVER

15.

: SAVE

:;SOH
:

;NUMBER SAVED

040602

N=—=O
~NOOoO
NN WKW
NNNNN

040572
040576
040600

roroWw
NN

040542
040550
040556
040564

001660
000001
000001

002000
000027
002016
000001

004037
001642

043424

NNNNN

040534

oW
N

040522
040526

oOoOO

040516

NN
b e
s

:*GO TO WRITE HEADER AND DATA

OCOO0CO

8680
8681
8682
8683
8684
8685
8686
8687
8688
8689
8690
8691
8692
8693
8694
8695
8696
8697
8698
8699
8700
8701
8702
8703
8704
8705

MACY1]

140000

MOV
MOv
BIS

1641104

3#RHMR ,RO
#DMD,aR0
#GO,aRHCS]

;NOW RO HAS MAINTENANCE REG. ADDR.
;SET DIAGNOSTIC MODE
;60

; *CHANGE SAVED REGISTERS TO EXPECTED VALUE
MOv
#1AE,3FREINTO
; SAVED RHER1
MOv
#23. ,3#REINTO+2;SAVED RHDST
MOv
ONATTENT ,@#REINTO+14 ;SAVED RHAS
BIS
#OMD ,@#REINTO+16 ;SAVED RHMR

003160
003162
003174
003176
003200

BIS

#ATA'ERR,G#REINTO+20 ;SAVED RHDSI

;*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE

JSR

RHER1
WRFROM

002114

RO,a#SAVER

13.

000015

: SAVE

; FROM
;10

;NUMBER OF REGISTERS SAVED

;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS

040604

113737

003175

040612
040616
040620
040622
040624
040626
040630

004037
003160
002114
000015
040632
040632
040652

043626

040632
040636
040640

013705
060505
016537

047736

040650

000207

040646

104001

;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
MOvB
SFREINTO+15,3#WRFROM+15;SAVE UPPER RHAS

002131

;*COMPARE REGISTERS BEFORE READ IN PRESET COMMAND
;*WITH AFTER COMMAND

JSR
REINTO
WRFROM
13.
2%

RO,a#COMPAR

: SAME

001640

2%:

042402

; COMPARE
:GOOD BUFFER
;TEST BUFFER
;NUMBER OF REGISTERS
;RETURN FOR ERROR

;RETURN FOR GOOD COMPARISCN

MOV
ADD
MOV

a#ERWORD,RS
;GETTING READY 70 INDEX
RS ,R5
.DOUBLE ERROR WORD
RHER1=2(R5) ,A#REGADR ;FAILING REG. ADDRESS

RTS

ERROR

;FORCED IAE CAUSED IMPROPER
;REGISTER C(HANGE

sRETURN FOR FURTHER COMPARISONS
;NO ERRORS

040652

004737

042732

3%:

JSR

PC,a#CLDISK

;CLEAR GO BIT

SEQ 0198

CIZRJGDO,RPO4/5/6 DSKLS CTRLR]

CZRJGD.P11

10-SEP-79 11:00

MACYT

E 16

3?A ( 1052)
10-SEP=-79
11:11
PAGE 200
121
ERROR REGISTER 1- BIT #10 "IAE’

SEQ 0199

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

;*TEST 122

ERROR REGISTER 1- BIT #10 'IAE'

s
g

A WRITE DATA 1S GIVEN TO SECTOR 0
TRACK O CYLINDER 411

§
;.

WORD COUNT IS SET TO 256.
AN INDEX PULSE 1S GIVEN TO GET RHLA T0 0

MR
A 4
A4

s
E

IAE BIT

SHOULD

SET

2222222022222222222222222002200222202R02R
2R RRRRRRRRRRRR R

1§1122: SCOPE

040656
040660
040664
040672

000004
012706
012737
004737

001000
000122
042732

002032

MOV
MOV

040676
040704
040712

012777
052777
042777

0V0001
000004
000004

140754
140746
140740

MOv
BIS
BIC

JSR

#STACK,SP
FTTNO,@#TSTNM

PC,a#CLDISK

;*GIVE INDEX PULSE

#DMD ,aRHMR
FMINX,3RHMR
#MINX,aRHMR

sRESET STACK
;THIS SAVES TEST NUMBER

;CLEAR REGISTERS AND SET UNIT NO.
;SET DIAGNOSTIC MODE
;SET INDEX
;CLEAR INDEX

;*THESE ARE REGULAR SETUPS

#-256. ,3RHWC
#WRFROM,RO
RO,aRHBA

;256 DATA WORDS & HEADER WORDS
;THESE TWO INSTRUCTIONS GETS
;ADDR. OF WRFROM INTO RO AND

000400
177777

MOv
MOV

#256. RS
1;1.(R0)*

; COUNTER
;MOVE ALL ONES FOR DATA

BNE
MOV

1%
#0.,3RHDST

;BRANCH 1F DATA NOT COMPLETE
; TRACK=0 SECTOR=0

JSR

PC,aNCHECKT

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

002114

040736
040742
040746
040750
040752

8789

140676

MOV
MOV
MOv

177400

040720
040726
040732

000000

140704

1%:
140664

040760
0407064

004737

040770

000000

040772

013711

002064

040776
041002

005037
012777

002006
010000

041010
041014

005737
001404

002036

041016
041024

012777
000403

001457

140626

041026

012777

000633

140616

104401

042766
062562

DEC

TYPE

,CPHALT

CANNOT CON-

;STOP THE TEST

MOV

A¥WRIDAT,aR1

;GET READY FOR WRITE

CLR
MOv

QNERFLGS

;CLEAR ERROR FLAG

187

a#RPO6

MOV
BR

#815. ,aRHCA
5%

;CYLINDER = 815 (ONE TOO MANY)
: TREAT DRIVE AS RPO6

MOV

#6411, ,QRHCA

;CYLINDER = 411 (ONE TOO MANY)
:TREAT DRIVE AS RPO4

BEQ

4%:

;AND THAT NO OTHERS = 1.

;TINUE TESTING IF BOTH AREN'T TRUE

HALT

140640

;BUS ADDRESS REGISTER

#FEMT22,aRHOF

;DATA WITH 60 IN RHCSI
;FORMA BIT=1

;MOVE FLAG TO ITSELF

(16 BIT WORDS)

TO TEST

;:TREAT DRIVE AS RPO& IF FLAG = 0

;*AS EXCEPTION IS ASSERTED BEFORE RUN IS

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP-79 11:00
CZRJGD.P11
8790
8791
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
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

MACY11 30A
11

F 16
10-SEP=79
11:11
PAGE 201
ERROR REGISTER 1- BIT #10 "IAE’

SEQ 0200

;*LATCHED RHWC,RHBA,RHCST,RHCS2 CANNOT BE CHECKED
;*BECAUSE RHWC WILL VARY DEPENDING UPON GATE DELAYS
;*ON DIFFERENT UNITS
041034
041040
041042
0461044

004037
001642
003160
000015

5%:

043424

;*THE REGISTERS WILL BE SAVED IN REINTO BUFFER

JSR

RHER1
REINTO
13.

RO,a#SAVER

: SAVE

;FROM
;10
;NUMBER SAVED

;:*G0 TO WRITE HEADER AND DATA
061046
041052
041056

013700

041064
041072
041100
041106
041114
0641122
041126
041130
061132

001660
000001
000001

140554

002000
000001
002016
000001

003160
003162
003174
003176

140000

004037
001642
002114
000015

MOV
MOV

BIS

d#RHMR ,RO
#DMD ,aR0

#GO,aRHCST

;NOW RO HAS MAINTENANCE
;SET DIAGNOSTIC MODE

REG.

ADDR.

; *CHANGE SAVED REGISTERS TO EXPECTED VALUE
MOV
#1AE ,3¥REINTO
: SAVED RHER1
MOV
MOV

#1.,9/REINTO+2;SAVED RHDST
OFATTENT ,@#REINTO+14 ;SAVED RHAS

BIS ~~

W#ATA!ERR,Q#REINTO+20 ;SAVED RHDSI1

BIS .

003200

#DMD,a#REINTO+16 ;SAVED RHMR

:'Sfihf REGISTERS AGAIN SO THAT COMPARES CAN BE DONE

043424

JSR °

RHER

RO,3#SAVER

WRGROM
15,

s SAVE

; FROM

;10
;NUMBER OF

REGISTERS SAVED

;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS

061134

113737

003175

:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
MOVB
SNREINTO+15,3#WRFROM+15;SAVE UPPER RHAS

002131

;*COMPARE REGISTERS BEFORE READ IN PRESET

0641142
041146
041150
0641152
041154
041156
041160

004037
003160
002114
000015
041162
041162
041202

043626

041162
041166
041170
041176

013705
060505
016537

047736

041200

000207

104001

;*WITH AFTER COMMAND
JSR ¢
RO,a#COMPAR

: COMPARE

;RETURN FOR ERROR

REINTO
WRFROM
13.

2%
35{_
2%:

001640 042402

:GOOD BUFFER
;TEST BUFFER
;NUMBER OF REGISTERS

: SAME
;RETURN FOR GOOD COMPARISCN

MOV
ADD
MOV

a#ERWORD,RS
;GETTING READY TO INDEX
RS ,RS
.DOUBLE ERROR WORD
RHER1-2(R5) ,@#REGADR ;FAILING REG. ADDRESS

RTS

ERROR

;FORCED 1AE CAUSED IMPROPER
;REGISTER CHANGE
;RETURN FOR FURTHER COMPARISONS
:NO ERRORS

041202

004737

042732

3%:

COMMAND

JSR

PC,a#CLDISK

:CLEAR GO BIT

CZRJGDO,RPO4/5/6 DSKLS CTRLR1

CIZRJGD.P1

10=SEP=79 11:00

MACYN

S?A(IOSZ)

123

88‘.5

10-SEP=79

END OF DRIVE

11:11

6 16

PAGE 202

SEQ 0201

::'ltt"'t'"Q"t"t't't"""""""'t"t"tti'tt't"ttt""tt'

8846

8847
8848

8849

8850

:*TEST 123
pew

Jee

END OF DRIVE

THIS 1S THE END OF

TEST FOR ONE DRIVE

IF THERE ARE MORE DRIVES THEN THE PROGRAM

JUMPS TO TEST S5 FOR NEXT DRIVE TEST

END PASS 1S REACHED ONLY AFTER ALL DRIVES ARE COMPLETE

ggg;

8853
8854
8855

.';Qtt't'ttt"'t""tt"""'tttt"'t"lttt.'"t't'tttttt"i't't!t
TST123: SCOPE
MOV
#1,8TIMES
::D0O 1 ITERATION

8856

R857
8858
8859
8860
8861
8862
8863
8864
8865
8866
8867
8868
8869
8870

gg;;

8873
8874
8875
8876
8877

041206
041210

000004
012737

041224
041230

104401
000425

041216

041304

012737

041232

001774

041312
041316

104401
000402

041320

041324

013746

001112

041332
041336

905037
005037

001112
001102

041346

001413

041350
061354
041360

005237
104401
013746

041324
041330

041342

104405

005737

041372

104405
104401
000137

8882
8883
8884

041376
041402
041404

005337
001413
013700

8886
8887
8888
8889

041414
041416
041420
041422

022100
001401
000775
011137

041410

04616426

012701

000137

001212

177776

MOV

::65%:

013746

041310

041364
041366

ggg?

000000

041304

8878
8879
ggg?

8885

000001

64%:

#0,PS

:REINSTATE PS 10 0

,65%
::TYPE ASCIZ STRING
64%
::GET OVER THE ASCIZ
<15><12>/TOTAL ERRORS ON THIS PASS ON

UNIT NO. /

MOV

AFUNIT,=(SP)

:GET READY TO TYPE UNIT NUMBER

TYPE
HR
LASCIZ

,67%
66%
/= /

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

MOV

ANSERTTL,-(SP)

:GET READY TO TYPE NUMBER OF ERRORS

CLR
CLR

ANSERTTL
ANSTSTNM

:CLEAR TOTAL NUMBER OF ERRORS
:CLEAR TEST NUMBER

BEQ

001100
041537
001100

INC
TYPE
MOV

ANSPASS
,SENDMG
ANBPASS,=(SP)

:TEST NEXT DRIVE IF NOT
:CONTINUE ON THIS ONE 1Ff SO
: INCREASE PASS COUNT
:TYPE END PASS #

041534
007656

JMP

,SENULL
AR S

:D0 NEXT TESTS ==eecccccccccccccccaae >

DEC
BEQ
MOV

S#NCUNITS
$EOP
afUNIT,RO

:NO. OF UNITS PRESENT DECREMENTED
:BRANCH IF ALL DRIVES COMPLETE
:UNIT UNDER TEST

CMP
BEQ
BR
MOV

(R1)+,R0
2%
1%
(R1),3#UNIT

;1S THIS UNIT JUST TESTED
:BRANCH IF YES
:BRANCH IF NO
:THIS 1S NEXT UNIT

TYPDS

;:67%:
66%:

TYPDS

002002

001776
001774
001754

001774

007656

TYPDS
TYPE

3%:
1$:
2%:

8892

MOV

JMP
LSBTTL
LSBTTL
LSBTTL

8893
889¢
£895

8896
8897

TYPE
BR
LASCIZ

ANSELECT

SUNITS,RI

:STARTING FROM 210 ?

: TABLE

;G0 FOR NEXT TESTS ==ececcccccccccccca= >

#+*SUBROUTINES*++

END OF PASS ROUTINE

8898

LSBTTL

8900

";'l..".""'.'..""""‘"""l""""t'l!"ltl'li!ill"""'

8899

CIZRJGDO,RPO4/S5/6 DSKLS CTRLRI

CZRJGD. P11

8901
8902
8903
8904
8905

30A(1052)
10-SEP-79
END OF PASS ROUTINE

11:11

H 16
PAGE 203

; *INCREMENT THE PASS NUMBER ($PASS)

;*TYPE ''END PASS #xxXxXX'' (WHERE XXXXX

;*1F THERES A MONITOR GO T0 IT
;*1F THERE ISN'T JUMP TO TST1
041432
041432
0461434
041440
041444
041450
0461456
041460
041462
0461464
041466

8918
8919
8920
8921
8922
8923
8924
8925
8926
8927
8928
8929
8930
8931
8932
8933
8934
8935
8936
8937
8938
8939
8940
8941
8942
8943
8944
8945
8946
8947
8948
8949
8950
8951
8952
8953
8954
8955
8956

10-SEP=79 11:00

MACY11

041470
061472
041476

041502
041504
041510
041514
041516
041520
041522
041524
041526
041530
041530
041532
0461534
041537
061544
041552

000004
005037

005037
005237
062737
005327
000001
003022
012737
000001
041460
104401
013746
104405
104401

013700
001405
000005
004710

$EOP:

001102
001212
001100
100000

001100

BIC

DEC
.WORD
BGT
MOV
$ENDCT: .WORD
$EOPCT
TYPE
MOV
TYPDS
$EOPCT:

041537
001100

041534
000042

TYPE

000240
000240
000240

000137
005504
377
015
050040
000043

SCOPE
CLR
CLR
INC

000
042116

020123

$TIMES
$PASS
#100000,8PASS
(PC)+
1
$DOAGN
(PC)+ ,a(PC)+
1

,SENDMG
$PASS,-(SP)
LSENULL

$GET42: MOV
BEQ

ars? RO
$DOAGN

$ENDAD:

PC,(RO)

$DOAGN:

377
042412
051501

$TSTNM

$SRTNAD:
$ENULL:

$SENDMG:

RESET
JSR
NGP
NOP

NOP

JMP
.WORD
.BYTE

.ASCIZ

2222222222222

"HERE

SEQ 0202
IS A DECIMAL NUMBER)

;;LERO THE

TEST NUMBER

;;lERO THE NUMBER OF ITERATIONS
:: INCREMENT THE PASS NUMBER
::DON'T ALLOW A NEG. NUMBER
;. L00P?
::YES
;sRESTORE COUNTER

::TYPE "'END PASS #''
::;SAVE $PASS FOR TYPEOUT

;:G0 TYPE--DECIMAL ASCII WITH SIGN
;. TYPE A NULL CHARACTER
::GET MONITOR ADDRESS

:;BRANCH IF NO MONITOR
::CLEAR THE WORLD
::G0 TO MONITOR
;:SAVE ROOM
;s FOR

ACTI

a(PC)+
TSTI
-1,-1,0

;s RETURN

::NULL CHARACTETM STRING

<15><12>/END PASS #/

22222222222222022R2R202RRRRRR

IS A DETAILED EXPLAINATION OF

RRRRRRRRRRRRRRRRR

HOW THE LOOP ON ERROR WORKS.

;**ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH 1S SET, THE
:"PROGRAH GOES BACK - USUALLY BACK TO THE BEGINNING OF

THE TEST.

;**WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT
;**THE PROGRAM GOES BACK TO CAN BE CHANGED.

;**THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: =
ies1,

1T MUST BE WITHIN THE

TEST UNDER CONSIDERATION

LOOP ON ERROR SWITCH MUST BE SET
;**2,
THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION
;**3,
;**]1F THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION
;**THE PROGRAM WILL REVERT TO NORMAL OPERATION.

HCWEVER,

LOOP ON

;*#*«TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED
ie«THEN THE PROGRAM WILL LOOP BACK 1O THE SELECTED POINT WHEN 1T
;**COMES TO THE END OF THE TEST UNDER CONSIDERATION.
e
w

;*+AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN
;**NORMAL OPERATION WILL CONTINUE.

S—

CZRJGDO,RPO4/5/6 DSKLS CTRLRI

CZRJGD.PT

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
8982
8983
8984
8985
8986
8987
8988
8989
8990
8991

8992
8993
8994
8995
8996
8997
8998
8999
9000
9001
9002

9003
9004
9005
9006
9007
9008
9009
9010
9011
9012

10-SEP=-79 11:00

MACYT1

30A(1052)

10-SEP=79

END OF PASS ROUTINE

11:11

1 16

PAGE 204

SEQ 0203

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

041554
041556
041556
041562
041566
041632
041632
0461636
041640
0461644
041676
041676
041702
041704
041710
061714

061776
04177¢
042002
042064
042064
042070

042136
042136
042140
0462144
042150
042154
062214
042214
042220

042322
0462322
042324
042330
042334

000000

005037
104401

000421

013746
104402
104401
000414

013746
104402
104401
104401

000430
104401

000422
104412
062716
012637
104401

000417
104401

000440
104412

012637
013746
000002

TESTAD:

177776

OPERSEL:

041570

002032

;:65%:
64L%:

041646

;:67%:

001110

66%:

001223
041716

042004

062072

;169%:
68%:
>+ 718z
70%:
::73%:
72%:

000002
001106

042156

042222

2 7582
764%:
s =T
76%:

;FIRST

CLR

BR
LASCIZ

64%

MOV
TYPOC
TYPE

AFTSTNM,=(SP)

TYPE

B8R
LASCIZ

MOV
TYPOC
TYPE
TYPE

BR
LASC1Z
TYPE
BR
LASCIZ
TYPE

LASCIZ

RDOCT
ADD
MOV
TYPE

ADDRESS OF

TEST

;MAKE PROCESSOR STATUS ZERO

;:TYPE ASCIZ STRING

,65%

<15><12>/THE

,67%
66%

<15><12>/THE

..GET OVER THE ASCIZ

PROGRAM WAS

LOOP BACK

LSCRLF

,69%
68%

<15><12>/SET

IN TEST NUMBER /

;GET READY TO TYPE TEST
; NUMBER
;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

OfSLPERR,-(SP)

WAS

;GET READY TO TYPE LCOP BACK PC
;;TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

SWITCH FOR LOOP ON ERROR OR LOOP ON TEST/

L7118

70%
<15><12>/TYPE
,73%

72%
<15><12>/

:;TYPE ASCIZ STRING

::GET OVER THE ASCIZ
THE FIRST PC OF THE TEST
;s TYPE

ASCIZ

TYPE

::TYPE ASCIZ

(SP)+ ,Q#SLPERR

;GET LPERR

.SBTTL

LOOPED ON/

STRING

BR
LASCIZ

RDOCT
MOV
MOV
RTI

TO BE

::GET OVER THE ASCIZ
FOLLOWED BY A CARRIAGE RETURN /<15><1¢>

#2,(SP)
:GET LPADR
(SP)+,a#SLPADR
,75%
::TYPE ASCIZ STRING
74%
.:GET OVER THE ASCIZ
<15><12>/TYPE THE PC WHERE YOU WANT/

BR
LASCIZ

STRING

76%
:.GET OVER THE ASCIZ
<15><12>/ THE PROGRAM TO LOOP BACK TO FOLLOWED BY A CARRIAGE RETURN /<15

a#$LPADR,=(SP)

SAVE REGISTERS ROUTINE

;*THIS SAVES THE CONTENTS OF

ALL HARDWARE REGISTERS

;*IN MEMORY LOCATIONS TAGED FROM 'wC'' 10 "'E(C2"

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD.P1
9013
9014
901"
9016
9017
9018
9019
9020
9021
9022
9023
9024
9025
9026
9027

9028
9029

9030
9031
9032
9033
9034
9035
9036
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

MACY11

30A(1052)

10-SEP=79

11:11

J 16

SAVE REGISTERS ROUTINE

PAGE 205

SEQ 0204

c e

;*THIS IS DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS
:*AND NOT THE REGISTERS THEMSELVES.
THIS WILL MAKE
;*ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT
042336
042336
042340
042342
042344
042350
042354
042360
042362
042364
042366
042370
042372
042374

PUTREG:

MOV
MOV

RO,=(SP)
R1,=(SP)

MOV
MOV
MOv
MOV
DEC

#RHWC RO
;STARTING ADDRESS OF REG
#uC,R1
;STARTING ADDRESS OF WERE SAVED
#RHCC-RHWC+2/2,R2 ;NUMBER Of REG. IN'O R2
d(RO)+,(R1)+
;SAVE HARDWARE REG.
R2

MOv

001632
001706
000023

10%:

BNE
MOV
MOV
MOV

000207

;*FLOAT

R2,=(SP)

;:PUSH R2 ON STACK

10%
(SP)+,R2
(SP)+ ,R1
(SP)+,RO

RTS

.SBTTL

FLOAT

A ONE

;:PUSH RO ON STACK
;:PUSH R1 ON STA(CK

;;POP STACK
;:POP STACK
;;POP STACK

1 AND O

AND A ZERO THRU A DESIGNATED REGISTER

;*ABSOLUTE ADDRESS OF REG. UNDER TEST
042376
042400
042402

000000
000000
000000

042404
042410
042412
042416
042422
042426

012537
012504
010437
010537
062705
012703
004737
004737
000241
006103

042432
042436
0462442

042444
042446

042450
042452
042454
042456
042464
042472
042474
042500
042502
042504
042512

MASK :

LERR:

042376
042402
042400
000004
000001
042454
042454

BITST:

MOV

(RS)+,

MASK

MOV

R&,

REGADR

JSR
JSR

PC.
PC.

BLT1:

042712

136446

001774
055310

BLT2:
BLT3:

137124

(R5)+,

RS,
ne,
",

BEQ

RESET

;OUTPUT FLOATING ZERO

;QUTPUT FLOATING ONE

;RETURN TO TEST

R3
#BLT3,

MOV
JSR

BLT?
BLTZ

;BRANCH IF NOT COMPLETE

Q#LAD

#5w09,aSwR
ANSERFLG

REG. UNDER TEST

;GET ERROR RETURN ADDR.
;MODIFY RETURN ADDR. TO JUMP OVER RTS
;INITIALIZFE DATA PATTERN

(OM
MOV
BIT

LERR
RS
R3

;GET ADDRESS OF

sSHIFT PATTERN

BLTI

RTS

;FETCH DATA MASK

R3
R3

BNE

1S1B

001103

;:BITS UNDER TEST

MOV
ADD
MOv

IS IN Ré

;ERROR HLT ADDRESS

REGADR:

ROL
181

042464
001000

001406
000005
013777
004737

MOv

INTO R2
INTO R1
INTO RO

; COMPLEMENT PATTERN
;SET SCOPE LOOP
;:LOOP ON ERROR

;BRANCH IF NO
s ANY ERRORS

;BRANCH 1F NO

O#UNIT,aRHCS2
PC,aN8TKINT

;START WITH AN INIT

;SET UNIT NUMBER UNDER TEST
SINITILIZE TK

RSB CS

062516
042522

042526
042534
042540
042544
042550
042554
042562
042566
042574
042576
042602
042606
042610
042616
042620
042624
042626
042630
042634
042640
062644
042646

o lolelelelelalelelelelele]

9069
9070
9071
9072
9073
9074
9075
9076
9077
9078
9079
9080
9081
9082
9083
9084
9085
9086
9087
9088
9089
9090
9091
9092
9093
9094
9095
9096
9097
9098
9099
9100
9101

N=O0ONOH
== Oro—
N = s
NN NN = (NN NN O
NSNS
Ny O NN N NN N N = NN NN
SN
NNNNNS NN

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD.P1

001004
052737
000410
023704
001005
011446
042716
052637
004777
000240
000207

001124
062376
062376
042376
00112¢4
001126
0642376
042376
042376
00112¢

MACY11

30A(1052)
10-SEP=79
FLOAT 1 AND O
4%:

001124

051636

S/MASK ,a¥#$BDDAT
IFMASK

;AND MASK OUT RECEIVED DATA
;RESTORE MASK

sBRANCH 1F GOOD

CMpP

A#RHCST,RG

sREGISTER UNDER TEST RH(CS1?

CmMpP

9#RHCS2,RG
3%

;BRANCH 1F NOT

BEQ

001126
001640

004200

BIC
com

CMP

001126

MOV

BNE
gés

001124

2%:

3%:
'

;INIT FOR SCOPING LOOPS

R3,3#8GDDAT
;STORE GOOD DATA
ANMASK
:AND MASK WITH PATTERN
ONMASK, A#SGDDAT
sCLEAR THE REST
afMASK
;RESTORE MASK
a#SGDDAT, (R4)
;OUTPUT TO REGISTER
(R4) ,a#$BDDAT
:INPUT FROM REGISTER

BNE

aNMASK

a¥#SGDDAT ,a#$BDDAT
(R&4) ,a#$BDDAT

:REGISTER UNDER TEST RH(SZ2?

aR4 ,=(SP)
#*C<IR'OR>,(SP)

RTS

.SBTTL

CLEAR MEMORY ROUTINE

BIS
JSR
NOP

;1S DATA CORRECT

2%
;BRANCH IF NOT
;20¥!DVA.3'$GDDAT;SE1 RDY AND DVA

MOV
BIC

(SP)+ ,3a#8GDDAT
PC.
oLERR

:GET RHCSZ
;KEEP IR AND OR BIT

;SET IR OR BITS IF NEEDED
;GO TO REPORT ERROR
:REPLACE BY 104420 FOR LOCAL SCOPE LOOP

THIS CLEARS ANY BLOCK OF MEMORY
FILLING Il WITH ANY DATA

CALL

JSR

RO,CLAREA

Y
z

;STARTING ADDRESS OF
:DATA

BLOCK

FILLED

S W= OO0VENO
WV
WNN=O

et
—

el el

il e

el e

VOOV OOVOOOVOOVOVOOO0O

TONURUNUND
= b i i
s e e e e

;*R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED
;*R2 AFTER SUBTRAZTION WiLL HAVE TWICE NUMBER OF LOCATIONS

;*R3 WILL HAVE DATA TO BE FILLED
;*T0 AVOID DIVIDE ROUTINE TwO DECREMENT R2 WILL BE USED

042650
042650
042652
042654
042656
042660
042662
042664
042666
042672
042674
042676
042700

CLAREA:

MOV

R1,=-(SP)

SuB

R1,R2

MOV
MOV
MOV
MOV
MOV

000002

001374

1%:

ADD
MOV
DEC
DEC
BNE

::PUSH R1 ON STACK

R2,=(SP)
RY,-(SP)
(RO)+ R
(RO)+,R2
(RO)+,R3

::PUSH R2 ON STACK
;:PUSH R3 ON STACK
;FROM
: 10
;DATA

¥2.,R2
R3,(R1)¢+
R?

;GET TWICE NO OF LOCATIONS
;MOVE IN DATA

SEQ 0205

MOV
COM
BIC
COM
MOV
MOV

COMm

001126

K 16
11:11
PAGE 206

:NC. OF LOCATIONS MINUS TWO

;BRANCH [F NOT COMPLETE

CZRJIGDO,RP0O4/5/6 DSKLS CTRLRI

CZRJGD.P11

9125
9126
9127
9128

042702
042704
042706
042710

10-SEP=79 11:00

012603
012602
012601
000200

MACY11

30A(1052)
10-SEP-79
CLEAR MEMORY ROUTINE
MOV
MOV
MOV
RTS

11:11

(SP)+,R3
(SP)+,R2
(SP)+ ,R1
RC

L 16

PAGE 207

::POP STACK INTO R3
;sPOP STACK INTO RZ2
;sPOP STACK INTO R1

;RETURN

SEQ 0206

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD.P11
9129
9130
9131
9132

9133
9134
9135
9136
9137
9138
9139
9140

042712

000000

062714
042722
062724
042730

032777
001402
013716
000002

001000
062712

136216

30A(1052)
10-SEP=-79
LOCAL TRAPS
LAD:

LSBTTL
0

LOCAL

1.S5C0P:

BIT

:2009,

aSWR

MOV

afLAD,

(SP)

1%:

BEQ
RTI

5§

c—-

; "

---

[

9143

9144
9145
914%

TRAPS

SCOP1
.SBTTL

CLEAR DISK R OUTINE

042732
042736
042742
042746

001640
001636
001662
001642

CLDISK: MOV

042752
042756
042762

000040
001774

MOV
MOV

#CLR,aR2

RTS

042764

MOv
MOv
MOov

CLR

IFRHCST,
a¥RHCS2,
9/RHDST,
9/RHERT,

OFUNIT ,aR?
aR1

k¢

R3
R4

A TR

SEQ 0207

;*EXAMPLE OF THE USE OF THE ABOVE
;*THIS WILL LOOP BETWEEN X: AND SCOP1 PROVIDED THERE IS NO '‘NEWTST"
afLAD
#x,
;*MOV

9141
9142

9147
9148
9149
9150
9151
9152
9153
9154
9155
9156

MACYT1

Mm16
11:11
PAGE 208

;R1

WiLL BE

CONTROL AND STATUSI

;R2 WILL BE CONTROL AND STATUS?
;R3 WILL BE DISK STATUS REGISTER]
;R4 WILL BE ERROR REGISTER #1

;CLEAR ALL REG.

;REINSTATE

UNIT NO.

;CLEAR FUNCTION BITS

CIRJGDO,RPO4/S5/6 DSKLS CTRLRY

CIRJGD.PI

10=-SEP=79 11:00

MACY11

30A(1052)

10-SEP-79

CLEAR DISK ROUTINE

11:11

1
PAGE 209

‘

9157

9158

9159

LSBTTL

161

9162
9163

9169

9170
g};;

9173
9174

9175
9176

9177
9178
9179
9180

9181
9182
9183
9184
9185
9186
9187

CHECK DISK STATUS ROUTINES

:*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS! = 1
:*AND CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS! = 1

:*]1T ALSO CHECKS THAT NO OTHER BITS IN THESE REGISTERS = 1

g}gg

9166
9167
9168

042766
042772
043000

043004

011637
162737
004737

022737

043012

001423

043014
043022

032737
001004

043032
043034
043042
043044
043050

000413
032737
001003
010137
104026

(43024
043030

043052

043054
043060

010137
104026

000403

010137
104026

002014
000004
042336

004200

004000

002014

001714

CHECKT: MOV
SUB
JSR

:SAVE PC OF JSR+4
:GET PC OF JSR
;:SAVE REGISTERS

BEQ

:AND BE READY
:BRANCH IF GOOD

BIT
BNE

#DVA,an(S1
1%

:BAD SO TEST DEVICE AVAILABLE
:BRANCH IF DVA THERE

BR
BIT
BNE
MOV
ERROR

3%
#RDY,aNCS
2%
R1,3#$BDADR
26

CMP

001714

001122
000200

(SP) ,a#PCJSR
#4,9#PCJSR
PC,a#PUTREG

MOV
ERROR
001714

18:

001122
2%:

001122

MOV
ERROR

#DVA'RDY,3#CS1

R1,3#$BDADR
26

9190
9191
9192
g}gs

043062
043066
043072
043076

013746
042716
022726
001424

001736
001100
000600

9195
9196

043100
043106

032737
001004

000400

9198

043114

104026

9197

9199

9200

9201

9202

9203

9204

9205

9206
9207

043110

043116

043120

043126

010337

000413
032737

001004

:ADDRESS OF BAD REGISTER (RHCS1)
:RHCS1 DID NOT HAVE DEVICE
:AVAILABLE AT START OF TEST
:BRANCH TO NEXT COMPARE
:TEST READY
:1F RDY THERE BRANCH

:ADDRESS OF BAD REGISTER (RHCS1)
:RHCS1 DID NOT HAVE READY
:RIGHT AT START OF TEST
:BRANCH TO NEXT COMPARE

:ADDRESS OF BAD REGISTER (RHCS1)
;RHCS1 HAD SOME BITS OTHER

:THAN DVA AND RDY SET

001736

3%:

MOV
BiC
CMP
BEQ

:GET RHDS1
arns1,=(sP)
:CLEAR VV AND PROGRAMABLE BIT
#VV'PROG, (SP)
#DPR'DRY, (SP)+;RHDS1 SHOULD HAVE THESE SET
:BRANCH IF THEY ARE
8%

4%:

BIT
BNE

#DPR,a#DS1
5%

;:TEST DRIVE PRESENT
:CONTINUE IF THERE

ERROR

:RHDS1 DOES NOT HAVE DPR

MOV

001122
000200

001736

5%:

043134

043136

043140
043144

104026

000403

010337

104026

043146

000207

9211
9212

043150
043154

062716
000207

001122

000006

6%:

R3,a#$BDADR

:ADDRESS OF BAD REGISTER (RHDS1)

:BRANCH OUT

BNE

:1F DPR WAS THERE, BRANCH IF GOOD

ERROR

B8R

BIT

MOV

043130 010337 001122

9208
9308
921

;RHCS1 SHOULD HAVE DEVICE AVAILABLE

:ALL OTHER BITS SHOULD BE 0

g}gg

SEQ 0208

MoV

ERROR

#DRY,a#DS1

R3,a¥#$BDADR

;TEST DRIVE READY

:ADDRESS OF BAD REGISTER (RHDS1)
:RHDS1 DOES NOT HAVE DRY

:BRANCH 0QUT

:RHDS1 HAS SOME BITS OTHER
:THAN MOL, DRY, DPR, SET

R3,3#8BDADR

:ADDRESS OF BAD REGISTER (RHDS1)

7%:

R1S

:ALL OTHER BITS SHOULD BE 0
:RETURN TO TEST AND HALT

8%:

ADD
RTS

#6,(SP)
PC

:ADJUST STACK TO GET OVER HALT IN TEST
;RETURN TO TEST AND CONTINUE TESTING

C(IRJGDO,RPO4/5/6 DSKLS CTRLRI
CIRJIGD.PYY
10-SEP=79 11:00
9213

MACY11

30A(1052)
10-SEP=-79
(HECK DISK STATUS ROU

1
PAGE 210

SEQ 0209

9214
9215
9216
9217
9218
9219
9220
9221
9222
9223
9224
9225
9226
9227
9228
9229
9230
9231
9232
9233
9234
9235
9236
9237
9238
9239
9240
9241
9242
9243
9244
9245
9246
9247
9248

MACYT

30A(1052)

10-SEP-79

11:11

CHECK DISK STATUS ROUTINES

1
PAGE 211

SEQ 0210

;*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RH(CS1 = 1
;*AND CHECKS THAT DEVICE PRESENT

043156
043162
043170
063174

002014
000004
042336
000200

043202
043204

001122

043212
043214

004000

043210

043222
043224
043230

001004
010137

043232
043234
043242
043244
043250
043252
043254
043262
043264
043270

000417
032737
001004
010337
106026
000407
032737
001004
010337

043272

000207

043274
043300

062716
000207

104026

002014

(HECKE:

001714

BNE

001714

1%:

001736

2%:

FRDY,aNCS1

;RHCS1

JSR+4

;GET PC OF JSR
;READ & SAVE REGISTERS

SHOULD HAVE DEVICE AVAILABLE

:AND BE READY

;BRANCH IF

GOOD

BNE
MOV
ERROR

2%
R1,3#$BDADR
26

BR
BIT
BNE

4%
#DRY ,a#DS1
3%
R3,a#$BDADR
26

:BRANCH IF GOOD
;FAILING REGISTER
;RHCST IS IN ERROR
;DOES NOT HAVE DVA, RDY
:BRANCH OUT
;RHDS1 SHOULD HAVE DPR,DRY
;BRANCH IF THERE
;FAILING REGISTER RHDS1
;RHDS1 DOES NOT HAVE DPR,DRY

#DPR,a¥DS1
5%
R3,a#$BDADR
26

;RHDS1 SHOULD HAVE DPR,DRY
;BRANCH OUT AND CONTINUE [F THERE
;FAILING REGISTER RHDS!
;RHDS1 DOES NOT HAVE DPR,DRY

BIT

ERROR

#DVA,aN(CS1

;FAILING REGISTER

;RHCST IS IN ERROR
;:DOES NOT HAVE DVA, RDY
:BRANCH OUT

;RHCST SHOULD HAVE DEVICE AVAILABLE
;AND BE

READY

6%:

RTS

;RETURN TO TEST

5%:

ADD
RTS

#6,(SP)
PC

;ADJUST STACK TO GET OVER HALT IN TEST
;RETURN TO TEST AND CONTINUE TESTING

3%:

001122

000006

;SAVE PC OF

IN RHDS!

R1,3#$BDADR

MOV

001736

(SP) ,a#PCJSR

¥, ,aNPCJISR
PC,a¥#PUTREG

(DRY)

MOV

ERROR

001122

000400

SUB
JSR

BIT

001122

000200

MOV

(DPR), DEVICE READY

BIT
BNE
MOV
ERROR

:BRANCH OUT

AND HALT

CIRJGDO,RPG4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJIGD P11

10-SEP-79
11:11
30A(1052)
CHECK DISK STATUS ROUTINES

000002
001204
000002
001176
001200
000002

043302
001200

»
%
%

MOv
MOV
SUB
MOV

001204

001202
135620

1%:

001202
1355 I

3%:

MOV
MOV
MOV
MOV
BIT
BNE
DEC
BNE
MOV
BIT
BNE
DEC
BNE
MOV
sfi?OR

001202

043302
001200
001202

2%:

=
-

MOV

oA,a¥X$

;A CONTAINS REGISTER ADDRESS

;HENCE X$ WILL HAVE ABSOLUTE REG. ADR.

RO,=(SP)
; SAVE RO
2(SP),RO
;GET ADRESS OF REG. ADDERSS
;WAT PC+2 IN $TMP3
RO,a#$TMP3
;WAT PC FOR TYPEOUT
#2,aN8TMP3
(RO)+,a#sTMPO
;WAIT REGISTER ADDRESS
;WAIT ON BIT
(RO)+ ,aNSTMPI
;RESTORE RETURN ON STACK
RO,2(SP)
(SP)+,RO
;RESTORE RO
; TEMPORARY COUNT
SNTIMCNT ,aNSTMP2
;1S REQUIRED BIT THERE?
a¥STMP1,38TMPO
2%
;BRANCH IF YES
; COUNT
aNSTMP?
;BRANCH IF NOT TIME UP
1%
; TEMPORARY COUNT
AFTIMCNT ,aNSTMP2
a¥$TMP1,38TMPO ;IS REQUIRED BIT THERE?
2%
;BRANCH IF YES
; COUNT
ANSTMP2
;BRANCH IF NOT TIME UP
3%
9$TMPO,a#$BDDAT ;REGISTER CONTENTS
;WAITED ON BIT FAILED TO SET
16

“e

;WAITING COUNT

CALL FOR THE ABOVE WAITLOOP 1S

%
%

000002

001126

135560

LOOP

TIMCNT: 177777
WAIT.T: MOv

043302
043304
043306
043312
043316
043324
043330
043334
043340
043342
043350
043356
043360
043364
043366
043374
043402
043404
043410
043412
043420
043422

WAIT

R
PAGE 212

ONE LOOP OR ONE COUNT = 5.15 MICROSEC WITH BIPOLAR MEMORY (MIN)
ONE LOOP OR ONE COUNT = 11.86 MICROSEC WITH CORE (MIN)
WITH CORE ERROR IS INDICATED AFTER ABOUT 650 MILLISEC (MIN)

MACY11

(I TETREIRL

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP-79 11:00
CZRJGD.P11

WAT

.WORD

;ABSOLUTE REG. ADDRESS UNDER WAIT
;BIT WAITED FOR
; CONTINUE

SE@ 0211

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJIGD P

9343
9344
9345
9344
9347

30A(1052)
10-SEP=79
11 11
JHECK DISK STATUS ROUTIN ES
.SBTTL

3
PAGE 213

SEQ 0212

SAVE ROUTINE

;*THIS 1S A SUBROUTINE TO SAVE REGISTERS
;*IN THE REGISTER TABLE TO ANY LOCATION

:*THE

;*JSR

CALL

; *FROM
:+T10

RO,a#SAV ER

; *NUMBER OF WORDS SAVED

043424
043424
043426
043430
043432
043434
043436
043440
043442
043444
043446
043450
043452
043454

SAVER:

1%:

MOV
MOv
MOv
MOV
MOV
MOV
MOV

DEC
BNE

R1,=(SP)
R2,=(SP)
R3,=(SP)
(RC)+,R1
(RO)+,R2
(RO)+,R3
a(R1)+,( R2)+
R3
%

(SP)+,R3

::PUSH R1 ON STACK
;sPUSH R2 ON STACK
;sPUSH R3 ON STACK

;FROM
;10

;sNUMBER
;SAVE REGISTER CONTENTS
s COUNT
;BRANCH IF NOT DONE
:;POP STACK
:;POP STACK

MOV
MOV
MOV
RTS

(SP)+,R2
(SP)+ ,R1
RO

.SBTTL

WRITE

;*THIS

IS A SUBROUTINE TO DO WRITE

INTO R3
INTO R2

;;POP STACK INTO R1

CHECK ROUTINE

CHECK HEADER AND DATA

043532

043536
043544
043552
043556
043564
043570

1273
1273
1273
wviroron

043456
043464
063472
043500
043504
043510
043516
043522
043526
043530

NNN

;*CYLINDER O, TRACK 1, SECTOR 1, KEYS 0
OC==O

9292
9293
9294
9295
9296
9297
9298
9299
9300
9301
9302
9303
9304
9305
9306
9307
9308
9309
9310
9311
9312
9313
9314
9315
9316
9317
9318
9319
9320
9321
9322
9323
9324
9325
9326
9327
9328
9329
9330
9331
9332
9333
9334
9335
9336
9337
9338
9339
9340
9341
9342

MACY11

05037
005037
012737
005037
004537
047616
051516

010000
000001
000001
047622
047624
000044
047626
044140

047616
047621
047620

047676

042732
177730

136066
136062

003160
000001
000001

000001

014000

136052

136054

;*THESE ARE TO SET UP FOR DISKLESS USE ONLY

WRCHHD: MOV

MOVB
MOvB
CLR
CLR
Mov
CLR
JSR
YL
WCRC

NEMT22 ,a0CYL
#1,2¥SECOTR+1

;CYLINDER O FORMAT
; TRACK=1

IFKEY
AFKEY2

;KEY1=0
;KEYZ2=0

;THIS 1S A READ OPERATION

#1,a¥SECOTR

#36. ,DAWORD

RS,a#CRC

16 BIT WORDS

;SECTOR=1
:NO OF

DATA WORDS

;60 TO CALCULATE CRC

; *THESE

ARE REGULAR SETUPS

JSR

PC,a#CLDISK

;SET UP GENERAL REGISTERS

MOV
MOV
MOVB

#-40, ,dRHW(C
#REINTO,aRHBA
#1,-(SP)
#1,1(SP)
(SP)+,aRHDST

;36 DATA WORDS 4 HEADER WORDS
;STARTING ADDRESS OF READ BUFFER
:SECTOR=1
;TRACK=1 IN UPPER BYTE
;TRACK=1, SECTOR=1 IN RHDST

MOVB

MOV
MOV

#EMT22'EC] ,@RHOF

;AND CLEAR DISK REGISTERS

;16 BIT WORDS

CZRJGDO,RPO4/5/6 DSKLS CTRLRI

CZRJIGD.PI

9348
9349
9350
§351
9352

9353
935¢
9355

9356
9357
9358
9359
9360
9361
9362

10-SEP=79

043576
043602
043606

005077
004737

11:00

MACY11

30A(1052)
WRITE

10-SEP=79
CHECK ROUTINE

11:11

o Ay s i

1
PAGE 214

SEQ 0213

:ECC CORRECTION INMIBIT BECAUSE
;ECC LOGIC IS NOT CHECKED YET
;CYLINDER=0
;CHECK THAT DVA,RDY,DPR,DRY = 1

104401

136050
042756
062562

CLR
JSR

043612
043614

00000C
013711

062062

MOV

dfWRCHDT ,aR1

043620

004737

047456

JSR

PC,a#COMHD

:STOP THE TEST
:WRITE CHECK HEADER AND DATA=52
;INTO RHCS!
:WRITE CHECK HEADER AND DATA

043624

000207

RTS

;RETURN TO WRITE

TYPE

HALT

aRHCA

PC,a#CHECKT

LCPHALT

:AND THAT NO OTHERS = 1.
CANNOT CON;TINUE TESTING IF BOTH AREN'T TRUE

:SAME AS READ HEADER AND DATA
CHECK

TEST

e —————————d]

CZRJIGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD L1

MACYT1

30A(1052)
10-SEP=79
WRITE CHECK ROUTINE

9363
9364

9365
9366
9367
9368
9369
9370
9371
9372
9373
9374
9375
9376
9377
9378
9379
9380

9381
9382
9383

9384
9385
9386
9387
9388
9389
9390
9391
9392
9393
9394
9395
9396
9397
9398
9399
9400
9401
9402
9403
9404
9405
9406
9407
9408
9409
9410
9411
9412
9413
9414
9415
9416
9417
9418

LSBTTL

11:11

1
PAGE 215

SEQ 0214

COMPARE ROUTINE

;*THIS 1S A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMGRY

;*R1 HAS GOOD DATA BUFFER ADDRESS
:*R2 HAS TEST DATA BUFFER ADDRESS
:*$TMPO HAS ADDRESS OF RETURN ON ERROR TO PRINT HEADER
;*$TMP1 HAS ADDRESS OF RETURN ON ERROR TO PRINT DATA
:*R3 HAS NUMBER OF WORDS TO BE COMPARED
:*R4 HAS ONE MORE

043626
043626
043630
043632
043634
043636
043640
043642
043644
043646
043652
043656
043660
043662
043664
043670
043672
043674
043700
043704
043710
043714
043716
043722
043724
043730
043732
043736
063742
043746
043750
043752
043754
043754
043756
043760
043762
043764
043766

(OMPAR:

001176
001200

047736

1%:

001426

014137
014237

160337
005737
001003

004777
000402
004777
022122
017746
042716
022726
001402
005303
001344
012605
012604
012603
012602
012601
000200

001124
001126
047736
002000

135202
177177

INC

MOV

CMP
BEQ

MOV
MOv

125254
135250

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOv
MOV
MOV
MOV
MOV

2%:
5%:

000200

3%:
6%

SUB
181
BNE
JSR
BR
JSR
CMP
MOV
BIC
(MP
BEQ
DEC
BNE
MOV
MOV

MOv
MOV
MOV
RTS

THAN NUMBER OF

WORDS

TO BE

COMPARED

R1,=-(SP)
R2,=(SP)
R3,=(SP)

::PUSH R1 ON STACK
::PUSH R2 ON STACK
;:PUSH R3 ON STACK

RS,=(SP)
(RO)+ R
(RO)+,R2
(RO)+,R3
(RO)+,8$TMPO
(RO)+,$TMPI
(RO),RO
R3,R4

;:PUSH R5 ON STACK

R4 ,=-(SP)

R&
R4 ,9#ERWORD

(R1)+,(R2)+

=(R1) ,a#$GDDAT
-(R2) ,a#$BDDAT
R3,a¥#ERWORD
ONERFLGS
2%
PC,a$TMPO
5%
PC,a$TMPI
(R1)+,(R2)+
aSWR,=(SP)
#*(600, (SP)
#SW07,(SP)+
3]

R3
%

(SP)+,RS

(SP)+ R4

(SP)+,R3
(SP)+,R2
(SP)+,R1
RO

;:PUSH R4 ON STACK
:ADDRESS OF

GOOD DATA BUFFER

;ADDRESS OF TEST DATA BUFFER
:NO OF WORDS TO BE COMPARED
;RETURN ON ERROR TO PRINT HEADER
;RETURN ON ERRCR TO PRINT DATA
;RETURN ON NO ERROR
:NO OF WORDS TO BE COMPARED
;FOR ERROR WORD NO

; COMPARE GOOD WITH TEST DATA
;BRANCH 1F GOOD
;GOOD DATA
:BAD DATA
;ERROR WORD NO.

;ANY ERRCRS ALREAY

;BRANCH
;RETURN
;BRANCH
;RETURN

IF
TO
TO
TO

THERE

YES
PRINT HEADER
AVOID PRINTING NEXT ERROR
PRINT DATA

;UNDO =(R1) AND =(R2) FOR ERRORS
;GET SWITCH SETTING
KEEP ONLY SWITCH 7 AND 8

;1S 7 SET AND 8 RESET

;BRANCH OQUT IF YES
: COUNT
;BRANCH IF ALL NOT DEVICE
;:POP
:sPOP
;sPOP
::POP

STA(CK
STACK
STACK
STACK

INTO RS

INTO R4

INTO R3
INTO R2
;s POP STACK INTO R1

;RETURN TG MAIN PROGRAM

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=79 11:00
CZRJGD.P11
9419
9420
9421
9422
9423
9424
9425
9426
9427
9428
9429
9430
9431
9432
9433
9434
9435
9436
9437
9438
9439
9440
9441
9442

9443
9444
9445
9446
9447
9448

9449

9450
9451
9452
9453
9454
9455
9456
9457
9458
9459

MACYT

30A(1052)

10-SEP-79

COMPARE ROUTINE

11:11

Y
PAGE 216

SEQ 0215

;*THIS IS A SUBROUTINE TO DO WRITE CHECK DATA
;*CYLINDER O, TRACK 1, SECTOR 1, KEYS 0

;*THESE ARE TO SET UP FOR DISKLESS USE ONLY
043770
043776
044004
044012

010000
000001
000001
047622
047624

044016
044022
044030

044034
044040
044042

000040
047626

004537
047616

044044

047616
047621
047620
047676

044140

044124
044126
0464132

000000
013711
004737

044136

000207

104401

135554
135550

003160
000001
000001

000001

014000

135540

135542

005077
004737

NEMT22 ,a0CYL
#1,aNSECOTR+1
#1,3#SECOTR

(LR

afKEY?2

CLR

afKEY1

sCYLINDER O FORMAT
s TRACK=1
:SECTOR=1

16 BIT WORDS

:KEY1=0

:KEY2=0

MoV
CLR

#32.,3#DAWORD
anx

;NO OF DATA WORDS
;THIS 1S A READ OPERATION

gsn

RS,a#CRC

;GO TO CALCULATE CRC
:

WCRC

177740

044110
044114
044120

MOV
MOVB
MOVB

042732

044050
044056
044064
044070
044076
044102

WRCHDA:

135536

042766
062562
002060
047456

;*THESE

ARE

JSR

PC,a#CLDISK

MOV

#-32. ,9RHWC

MOVB
MOVB
MOV

#1,-(SP)
#1,1(5P)
:
(SP)+ ,aRHDST

MOV

MOV
CLR
JSR

TYPE

HALT

REGULAR

SETUPS

;SET UP GENERAL REGISTERS

sAND CLEAR DISK REGISTERS
:36 DATA WORDS & HEADER WORDS

#REINTO,3RHBA

:STARTING ADDRESS OF

HFEMT22'EC] ,RHOF

;16 BIT WORDS
;ECC CORRECTION INHIBIT BECAUSE

dRHCA
PC,a#CHECKT
,CPHALT

MOV
JSR

AFWRCHEK ,aR1
PC,a#COMHD

RTS

READ BUFFER

;SECTOR=1
:TRACK=1 IN UPPER BYTE
:TRACK=1, SECTOR=1 IN RHDST

;ECC LOGIC IS NOT CHECKED YET
:CYLINDER=0
: CHECK THAT DVA,RDY,DPR,DRY = 1
;AND THAT NO OTHERS = 1.
CANNOT CON-

;TINUE TESTING IF BOTH AREN'T TRUE
;STOP THE

TEST

;WRITE CHECK DATA=50 INTO RHCS!
;WRITE CHECK HEADER AND DATA

;SAME AS READ HEADER AND DATA
;RETURN TO WRITE

CHECK

TEST

CZRJGDO,RPO4/5/6 DSKLS CTRLR!

CIZRJGD.PI1

10-SEP=79 11:00

MACYTT

30A(1052)
10-SEP=79
COMPARE ROUTINE

9460
9461
9462

.SBTTL

9463

°
(9481

9497

9498
9499
9500
9501
9502
9503
9504
9505

9507
9508
9509
9510
9511
9512
9513
9514
9515

PAGE 217

SEQ 0216

CRC GENERATION ROUTINE

;*$TMPO - NUMBER OF WORDS
;*$TMP2 - NUMBER OF BITS PER WORD = 16
;*$TMP3 - TEMPORARY REG.

;*$TMP4 - TEMPORARY REG TO TRANSFER CARRY
;*$TMPS = THIS HAS DATA BIT VALUE D

;*FETCH DATA BIT D

;*B = D XOR 16
;*C = B XOR 2
B XOR 15
. *E

;*ROTATE RIGHT

ONE

POSITION

;*B GOES TO POSITION 1
;*C GOES TO POSITION 3
;*E GOES TO POSITION 16

5482

9483
9484
9485
9486
9487
9488
9489
9490
9491
9492
9493
9494
9495
9496

;*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 POSITION 2 VALUE (
:*R3 =-THIS HAS BIT POSITION 16 1.E. OUTPUT BIT VALUE B
;*R4 = THIS HAS BIT POSITION 15 VALUE E

9464

9465
9466
9467
9468
9469
9470
9471
9472
9473
9474
9475
9476
9477
9478
9479
9480

11:11

;*REPET

MOV
MOV
MOv

RO,=(SP)
(R5)+ RO
R1,-(SP)

;:PUSH RO ON STACK
;GET POINTER TO CYL NO.
;:PUSH R1 ON STACK

MOV

R4 ,=(SP)

::PUSH R4 ON STACK

;*CALL
;X
.Y
CRC:

044140
044140
044142

044144
044146

MOV
MOV

044150
044152
044154
044156
044162
044170
044174
044202
044210
044214
044220
044224
044226
044232
044234
044236

005003
063703

044242
044246
044250
044254
044256

032701
001403
012702
000401
005002

001210
000004
001204
000020

001204
001204
001210
000001

001176
001202
001206

16%:

15%:

CLR
CLR
MOV
MOv
MOV
MOV
ROR
ROR

BI1
BEQ

001210

MOV
BR
CLR
ADD

040000

BIT

100000

BEQ
ggv

100000

3%:

(LR

TIMES

RS ,a#CRC
JSR
;FIRST LOCATION AT
;PUT CRC IN WCRC FOR READ GCRC FOR WRITE

R2,=(5P)
R3,=(SP)

::PUSH R2 ON STAC(X
; ;PUSH R3 ON STACK

R1
;CLEAR WORKING LOCATION
NS TMPS
#4,308TMPO
:WORD COUNT
(RO)+ ,a#8TMP3 ; TEMPORARY WORD STORAGE
#16.,8TMP2
:BIT COUNT
a¥STMP3
NS TMPL ; TEMPORARY WORD STORAGE
aNSTMP3
;GET LSB INTO "'C"
AN TMPS
;GET ABOVE ''C'" INTO $TMPS

#B1T0,R1
1%

#BIT15,R3
2%
R3
afSTMPS RS
#BITI4,R1

3%
lnglS.RZ

;1S POSITION 15 HIGH
;BRANCH IF POSITION 1¢ 10w
:GET POSITION 16

;GET POSITION 16
:XOR POSITION 16 WITH D
;10 GIVE B
;1S POSITION 2 HIGH

;BRANCH IF POSITION 2 LOW
;GET POSITION 2
;GET

POSITION 2

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD.P1Y
044260

060302

044262
044266
044270
0464274

032701
001403
012704
000401
005004
060304

000002

006037
006001
005703

001206

042701
000402
052701
005702
100403
042701
000402
052701
005704

100000

044322
044326
044330
044332
044336
044340
044346
044346
044350
044354
044356
044362
044366
044370
044374
044376

9551
9552
9553
9554
9555
9556
9557
9558
9559
9560
9561
9562
9563
9564
9565
9566
9567
9568
9569
9570
9571

044400
044402
0464404
044406
044410
044412

100403

042701
000402
052701
005337
001310
005337
001275
010135
012604
012603
012602
012601

5%:
6%:

100000

7%:

020000
020000

044320

100403

000001
000001
001202

ADD

R3,R2

BIT
BEQ

#BIT1,R1
5%
#BIT15,R4

MOV

044310
044312
044314

100000

L X

044302
044306

4%:

—

044276
044300

30A(1052)
10=-SEP=-79
11:11
CRC GENERATION ROUTINE

9516
9517
9518
9519

MACY11

13%:
14%:

001176

012600
000205

BR
CLR

ADD

R3,R4

ROR
ROR
181
BM1
BIC
BR
BIS
1§81
BMI
BIC
BR

NS TMPS
R1
R3
7%
#BIT15,R1
10%

18T
BM]
BIC

BIS

BR
BIS
DEC
BNE
DEC
BNE

!
PAGE 218

SEQ@ 0217

;XOR B W I7 H POSITION 2
;10 GIVE C
;1S POSI 11 ON 15 HIGH
15 LOW
PO
sBRANCH IF POSITION
15
10
;GET POS ITION

15
0
;GET POSI TION
0
15 5 WITH B
; XOR POSI TION
;10 GIVE E

1
;GET LSB INTO
''C"'

:GET ABOVE C INTO RI1
;TEST B
;BRANCH IF B=1
;SET B IN POSITION 1

;SET B IN POSITION 1
:TEST £
;BRANCH IF C=1
:GET C IN POSITION 3

#BIT15,R1

R2
1%
#BIT13,R1
12%
#BIT13,R1

;GET C IN POSITION 3
sTEST &
;BRANCH IF E=1
;GET E IN POSITION 16

13%
#B170,R1
14%
#BI1T0,R1

:GET E IN POSITION 16
;BIT COUNTER
:BRANCH IF 16 NOT DONE
;WORD COUNTER
;BRANCH IF & NOT DONE
;PUT CRC WHERE DESIRED
;:POP STACK INTO R&
::POP STACK INTO R3
::POP STACK INTO R?2
::;POP STACK INTO R1
:;POP STACK INTO RO

NS TMP?2

15%
a¥$TMPO

MOV
MOV
MOV
MOV
Mov
MOV
RTS

16%
R1,3(R5)+
(SP)+ R4
(SP)+,R3
(SP)+ ,R2
(SP)+ ,R1
(SP)+,RD
RS

;*THIS

IS A SUBROUTINE

TO SET

UP THE

;*CYLINDER 0 (16 BITS PER WORD)
;*TRACK 1,
s*KEY1 1

SECTOR

SIMULATOR DISK

J*KEY2 1
:*CRC THROUGH THE JSR RS,a#(RC
;256 WORDS OF 177400

044414
0464414
044416
044420
044422

SETDSK:

177400

s*CALL

JSR

MOV
MOV
MOV
MOV

RO,=(SP)

R1,-(SP)
R2,=(SP)

PC,a#SETDSK

#177400,R0

::PUSH RO ON STACK
::PUSH R1

ON STACK

;:PUSH R2 ON STACK

:DATA

IN THE

DISK

FOR

CIRJGDO,RPO4/5/6 DSKLS CTIRLRY
10-SEP-79 11:00
CZRJGD.P11
9572
9573
9574
9575
9576
9577
9578
9579

9580
9581
9582
9583
9584
9585
9586
9587
9588
9589
9590
9591
9592
9593
9594
9595
9596
9597
9598

044426
064432
044436
044440
044442

012701
012702

0464444

010022
005301
001375
012701

044450

005022

044452
044454

005301
001375

MACY11

000400
051534

30A(1052)

10-SEP=79

11:11

CRC GENERATION ROUTINE

1%:

000021

2%:

MOV
MOV
MOV

#256. ,R1
#DISK,R2
RO, (R2)+

MOV

nM7..R

DEC
BNE

PAGE 219

R1
1%

SEQ 0218

; COUNTER
;START OF SIMULATOR DISK
;MOVE IN DATA

;COUNT FOR 256
;BRANCH IF 256 NOT COMPLETE

CLR

(R2)+

;2 ECC WORDS, 1 DATA GAP
;14 TOLERANCE GAP
;CLEAR ECC,DATA GAP AND

DEC

; COUNT

BNE

; TOLERANCE GAP

;BRANCH IF NOT COMPLETE

;*NOW SET UP FOR DISKLESS USE
0464456
0464464
044472
044500
044506
044514
044522
044526
044530
044532
044534
044536
044540

010000
000001
000001
000001
000001
000400
044140

012600
000207

047616
047621
047620
047622
047624
047676

MOV

FEMT22 ,a¥CYL

sCYLINDER O

MOVB
MOV
MOV
MQv

#1,aNSECOTR
#1,aNKEY]
#1,aNKEY2
256.,9#DAWORD

;SECTOR=1
;KEY1=1
JKEY2=1
;NO. OF DATA WORDS

MOVB

JSR

cyL
WCRC
MOV
MOV
MOV
RTS

#1,aN#SECOTR+1

RS.,a#CRC

(SP)+ ,R2
(SP)+ ,R1
(SP)+ RO

s TRACK=1

(16 BIT WORDS)

;60 TO CALCULATE CRC

:FIRST CRC WORD
sPUT CALCULATED CRC
::POP STACK INTO R?
;:POP STACK INTO R!
;:POP STACK INTO RO

—————————

CZRJGDO,RPO4/S5/6 DSKLS CTRLR1
10-SEP=-79 11:00
(ZRJGD.P11
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
9624
9625

MACYT1

10-SEP=-79
30A(1052)
11:11
CRC GENERATION ROUTINE

n
PAGE 220

SEQ 0219

:*THIS 1S A SUBROUTINE TO CHECK HEADER COMPARE ERROR

;*(BIT #7) AND CRC ERROR (BIT #8)
;*CALL JSR RO,a#HCCRCE

COM

ot
A
ot
:®
o
:

C
-3
T
-N.
B
B

s CYLINDER
;SECTOR
;s TRACK
;sWORD COUNT
:RHBA BUFFER START
;1=WRITE DATA 0=READ

MOV

RO,a#PCJSR

;sSAVE PC OF

JSR

PC,a#CHECKT

;sCHECK THAT DVA,RDY,DPR.DRY = 1

044542
044546
044554
044560
0464564

010037
162737
004737
004737

044570
044572
044576
044600
044604
044606

000000

104401

011037

002014
000004
042732
0462766
062562

002014

HALT

MOV

135046

000001

012077

044626
044632

012077
012037

047626

044636

012777

014000

0464644
044650

005037
004737

002006
047456

SUB
JSR
TYPE

001210

044610
044614
044616
044622

HCCRCE:

#4 ,a#PCUSR
PC,a#CLDISK
,CPHALT

(RO) ,a¥#$TMPS

:H=1

-WRITE

sAND THAT NO OTHERS =
:STOP THE

sNO.

PC,a#COMHD

: COMMAND

MOV
MOV
MOV

CLR
JSR

CANNOT

TEST

;s SAVE COMMAND

(RO)+ ,aRHWC

135002

: COMMAND
sCYLINDER
;SECTOR
:UP DATE RO
;s TRACK
;UPDATE RO
;s TRACK

SECTOR

DATA WORDS +4 HEADER

:1F A READ HEADER AND DATA
(RO)+,3RHBA
;STARTING ADDRESS OF BUFFER
(RO)+ ,a#X
:X=0 READ HEADER AND DATA
;X=1 WRITE DATA
#FMT22'ECI,aRHOF ;16 BITS PER WORD
;ECC CORRECTION INMIBIT
ONERFLGS
;CLEAR ERROR FLAG

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

044654
044660
044664
044666
044672

004737
005737
001034
005737
001015

042336
002006
047626

TO BE

CHECKED.

JSR

PC,a#PUTREG

:SAVE REGISTERS

BNE

10%

;BRANCH IF

181

18T

BNE

O¥ERFLGS
o¥X

(ON-

:TINUE TESTING IF BOTH AREN'T TRUE

MOV

(SP)+ ,3RHDST

JSR+4

sGET PC OF JSR
sINIT AND SETUP GENERAL REG.

(RO)+,aR1
(RO)+,3RHCA
(RO)+,~(SP)
(RO)+
(RO)+,1(SP)
(RO)+

MOV

DATA

HEADER CHECK, H=0 CRC CHECK

MOV
MOV
MOVB
1STB
MOVB
1STB

135022
135004

135004

; COMMAND=-READ HEADER AND DATA

:ANY ERRORS ALREADY

YES

;1S THIS A READ

:1F

THERE

A WRITE DATA BRANCH

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=-79 11:00
CZRJGD.PT

MACY11

30A(1052)
10-SEP=79
11:11
CRC GENERATION ROUTINE

9652
9653
9654
9655
9656
9657

9658
9659
9660
9661
9662

9663
9664
9665

9666

9667
9668
9669
9670
9671
9672
9673
9674
9675
9676

9677
9678
9679
9680
9681

9682
9683
9684
9685
9686
9687

9688
9689
9690
9691
9692

9693
9694
9695

N1
PAGE 221

;*NOW THE READ BUFFER WILL BE CHECKED

;*HEADER SHOULD BE COMPLETELY READ AS WRITTEN
:*NO DATA WORDS SHOULD BE READ

;*REINTO BUFFER HAS BEEN FILLED WITH 0
;*WRFROM BUFFER HAS BEEN FILLED WITH EXPECTED DATA
044674
044700
044702
044704
044706
044710
044712
044714
044716
044720

004037
002114
003160
000400
0464714
044720
044756

044722

000207

RTS

044724

000414

109

043626

JSR
WRFROM

RO,a#COMPAR

s TEST BUFFER

;RETURN POINT FOR ERROR HEADER

256.

;4 HEADER 252 DATA

109

sRETURN POINT FOR ERROR DATA

104004

1%:

ERROR

104005

2%:

ERROR

000207

9699

9700
9701
9702
9703
9704
9705

9706
9707

: CHECK
:GOOD DATA

REINTO

RTS

;RETURN FOR GOOD COMPARISON

;READ NEXT ERROR 5

;RETURN TO COMPARISON SUBROUTINE

;WORD NO 1

THRU & ARE
AND HENCE
WORDS
;HEADER
AS WRITTEN ON
READ
BE
:SHOULD
5 ONWARDS
NOS.
;:DISK, WORD
; SHOULD NOT BE READ AND HENCE
;READ INTO BUFFER
: SHOULD BE UNCHANGED
sRETURN TO COMPARISON

s JUMP 0UT

;*NOW THE DISK WILL BE

CHECKED

:*NO DATA SHOULD BE WRITTEN

;*REINTO BUFFER HAS BEEN FILLED WITH EXPECTED DATA

;*D1SK HAS BEEN FILLED WITH 177400

;*WRFROM HAS BEEN FILLED WITH 125252

044726
044732
0464734
044736
044740
044742
044744
044746
044750
044752

004037
003160
051534
000400
044746
044752
044756

3%:

043626

JSR

REINTO
B%ZK

RO,a#COMPAR

5%
108

104004

4%:

ERROR

104005

5%:

ERROR

044754
044756
044760
044762
044770
044772
045000

000207
005720
001442

10%:

045006
045010

001470
013737

000207

RTS

022737
001417
017737
022737

000072

001210

134644

000200

001126
001126

001642

042402

BEQ
(MP
BEQ
MOV
(MP

6%
#72,048THPS
11%
oRHER1 ,a#$BDDAT
#HCE ,a#$BDDAT

MOV

(RO)+

FOR ERROR HEADER

;READ NEXT ERRCR 5

BEQ

;6GO0D DATA BUFFER
; TEST BUFFER

;RETURN POINT FOR ERROR DATA
;RETURN POINT FOR GOOD COMPARISON

RTS
181

s CHECK

;RETURN POINT

9696

9697
9698

SEQ 0220

;RETURN TO COMPARISON SUBROUTINE

;WORD NO ARE ALL DATA

:WORDS THE SHOULD NOT
;HAVE BEEN CHANGED BY THE
;WRITE COMMAND

;RETURN TO COMPARISON SUBROUTINE
;1S

THIS A HCRC

ON HCE

CHECK?

;BRANCH IF HCRC
;1S THIS A READ COMMAND
;BRANCH 1F YES
;TEST DATA
;ONLY HEADER COMPARE BIT?
: SHOULD BE SET
:BRANCH IF GOOD

O#RHER1 ,9#REGADR ;REGISTER ADDRESS RHER!

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CZRJIGD P11
012737

045026
045030
045030
045036

000460

104027

000200

045044
045046
045054
045062

001642
100200

012737
1046027

045132
045134

000416
017737

134502

001126

045142

022737

100400

001126

045150
045152
045160
045166

001407
012737
013737

045170

000200

104027

000072

001210

134540
000400

001126
001126

001642
000400

042402
001124

12%:

001124
042402

MOV

RHER1,3#$BDDAT

;TEST DATA

;GOOD DATA

BEQ

#DCK!HCE,a#$BDDAT ;ONLY
; SHOULD
;DCK IS
7%
;BRANCH

ERROR

HEADER COMPARE BIT?
BE SET
SET BECAUSE ECC IS NOT READ
IF GOOD

@¥RHER1 ,a#REGADR ;REGISTER ADDRESS RHER1
#OCK'HCE,a#SGDDAT
;GOOD DATA

;AFTER AN ERROR ON THE

sHEADER ONLY HCE SHOULD
;BE SET

MOV
g::

dRHER1 ,a#$BDDAT
;2(RC.0#$BDDAT

;TEST DATA
;ONLY CRC ERROR SHOULD BE

MOV
MOV
ERROR

#RHER1 ,a#REGADR ;REG. ADDR = RHERI
#HCRC ,a#$GDDAT
;GOOD DATA
27
;AFTER A CRC ERROR ONLY CRC

CMP
BEQ

N72,308THPS
12%

;1S THIS A READ COMMAND?
:BRANCH IF A READ

THERE

: SHOULD BE SET
:BRANCH OUT

MOV

RHER1 ,a#$BDDAT

cmp

#DCK!HCRC,an#$BDDAT;HCRC AND DCK SHOULD BE SET

BEQ

;TEST DATA

;DCK 1S SET BECAUSE ECC IS NOT READ
;BRANCH I1F GOOD

MOV
MOV

#DCK!HCRC,a¥#$GDDAT;
GOOD DATA
O¥RHER1 ,9#REGADR; FAILING REGISTER RHER]

RTS

ERROR

7%:

SEQ 0221

;AFTER AN ERROR ON THE
sHEADER ONLY HCE SHOULD
;BE SET

MOv
MOV

6%:

PAGE 222

#HCE ,a#SGDDAT

CmpP

042402
00112¢

MOV

ERROR

11%:

045064
045066
045074
045076
045104
045112
045114
045122
045130

100400
001642

30A(1052)
10-SEP=79
11:11
CRC GENERATION ROUTINE

001124

134606
100200

;AFTER A CRC ERROR ON A READ
;:DCK AND HCRC SHOULD BE SET
;DCK IS SET BECAUSE ECC IS NOT READ
;RETURN TO MAIN TEST

WO
NNNNN

—

wWwoo

NNNNN
NNNNN

045204
045212
045220
065226
065234

-‘\’d—.—.

045172
045172
045174
045176

N=—-O
NS

;*THIS IS A SUBROUTINE TO LEAVE AT THE MIDDLE Of
;*A WRITE HEADER AND DATA COMMAND
;*1T TRYS TO GET SECTOR 10, TRACK O, CYLINDER 0
;*BUT COMES OUT AFTER ONE SECTOR
;*THE COMMAND 0OS JSR PC,aW#MIDDLE
;*BAl IS SET

rorororN

9755
9756
9757
9758
9759
9760
97¢1
9762
9763

045016
045024

oleleleleBNelele]

9708

9709
9710
9711
9712
9713
9714
9715
9716
9717
9718
9719
9720
9721
9722
9723
9724
9725
9726
9727
9728
9729
9730
9731
9732
9733
9734
9735
9736
9737
9738
9739
9740
97461
9742
9743
9744
9745
9746
9747
9748
9749
9750
9751
9752
9753
9754

MACY11

MIDDLE:

002066

134434

177766
002114
000010
000010
010000

134420
134414
134416
134402
134406

MOV
MOv
MOV

RO,=(SP)
R1,=(SP)
O¥WRIFOR,ARHCST1

: ;PUSH RO ON STACK
::PUSH R1 ON STA(CK
;WRITE HEADER AND DATA=62

MOV

#-10.,aRHWC

;10 WORDS

MOv

#10,3RHDST

MOV

B1S
MOV

#WRFROM,aRHBA

#BA] ,aRHCS2

#EMT22 ,RHOF

: IN RHCS]

;BUS ADDRESS=WRFROM

;DESIRED TRACK=0 SECTOR=10

;BUS ADDRESS INCREMENT INHIBIT
;FORMAT

16 BIT WORDS

9764
9765
9766
9767
9768
9769
9770
9771
9772
9773

9774

9775
9776
9777
9778
9779
9780
9781
9782
9783
g;gg

045242
045246

005077
012737

134404
000001

045254
045262
045270
045274
045276

012777
052777
004137
000000
012601

000001
000001
053664

045302

000207

045300

MACY11

30A(1052)
10-SEP=-79
11:11
CRC GENERATION ROUTINE

045274

134376
134350
MID:

012600

¢
PAGE 223

SEQ 0222

CLR
MOV

aRHCA
#1,3#M1D

sCYLINDER=0
:SECTOR IS SET TO 1

MOV
BIS
JSR
.WORD
MOV

#DMD , ARHMR
#GO,aRHCST
R1,a#SEARCH
0
(SP)+,R1

;SECTOR
:;POP STACK

RTS

.SBTTL

JAM CURRENT

MOV

SO THAT
:WE CAN GET OUT AT THE
:MIDDLE OF AN OPERATION
:LOOKING FOR SECTOR 10
:SET DIAGNOSTIC MODE
;G0 TO RHCS1 WITH 62

(SP)+,RO0

INTO Ri

::POP STACK INTO RO

CYLINDER ROUTINE

;*THIS SUBROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER
:«THIS 1S DONE BY GIVING A SEEK COMMAND THEN AN INIT
:*WHICH WILL LOAD THE CURRENT CYLINDER WITH THE DESIRED CYLINDER VALUE
R]

9786
9787
9788
9789
9790
9791

9792
9793
9794
9795
9796
9797
9798
9799
9800
9801
9802
9803
9804
9805
9806
9807
9808

9809
9810
9811
9812

9813

9814
9815

9816
9817

9818

9819

;+CALL
;*JSR
i eXC

045304
045304
045306
045312
045320
045322
045326

045332
045340
045346
045354
045356
045360
045362
045364
045370
045376
045402
045404
045410
045616
045420

045420
045422

010546
010037
162737
012005
010577
005077
013777
012777
052777
000240
000240
000240
000240
004737
017737
020537
001406

010537
(13737
104030
012605
000200

IS
RO,3NMAKECYL
;DESIRED VALUE OF

MAKECYL:
002014
000004
134324
134312

002014

002074
000001
000001

134300
134312
134264

042732
134302
001126

001126

001324
001676

1%:

CYLINDER

MOV
MOV
SUB
MOV
MOV
(LR
MOV
MOV
BIS
NOP
NOP
NOP
NOP
JSR
MOV
CMP
BEQ

RS,=(SP)
RO,a#PCJSR
¥4, a#PCJSR
(RO) +,RS
RS,aRHCA
ARHDST
S#SEECOM,ARHCST
#DMD , aRHMR
#GO,aRHCS1

MOV
RTS

(SP)+,RS
RO

LSBTTL

ECC GENERATION AND COMPARISON ROUTINE

MOV
MOV
ERROR

042402

CURRENT

; ;PUSH RS ON STACK
:PC OF JSR+4
:SAVE PC OF JSR
:GETTING READY TO FILL DESIRED CYLINDER
(FILL DESIRED CYLINDER REGISTER
:MAKE SURE DESIRED SECTOR TRACK 1S NOT ILLEGAL
;FILL SEEK COMMAND
:SET DIAGNOSTIC MODE
;G0 10 SEEK
:ALLOW TIME FOR SEEK TO HANG UP
:ALLOW TIME FOR SEEK TO HANG UP
:ALLOW TIME FOR SEEK TO HANG UP
:ALLOW TIME FOR SEEK TO HANG UP
:GIVE INIT
;TEST DATA
:COMPARE CURRENT CYLINDER
:BRANCH 1F GOOD

PC,aNCLD]SK
ORHCC,a#$BDDAT
RS,a#$BDDAT
1%
RS,a#$GDDAT
:G0OD VALUE OF RHC(
ANRHCC,AFREGADR ;FAILING REGISTER ADDRESS
30
:CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER
:REGISTER AFTER A SEEK AND AN INIT

; ;POP STACK INTO RS

]

OTM

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P11
10-SEP=79 11:00

CZRJGDO,RPO4/S /6 DSKLS CTRLR]
10-SEP=79 11:00
CZRJGD.P1Y

MACYT1

30A(1052)
10-SEP-79
11:11
PAGE 224
ECC GENERATION AND COMPARISON ROUTINE

SEQ 0223

9820
9821

9822

9823
9824
9825
9826
9827
9828

:*THIS SUBROUTINE GENERATES AND TESTS ECC
:
JSR PC,ECTEST
s*CALL

9829
9830
9831

100000

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

9832
9833
9834
9835
9836
9837
9838
9839
9840

9841
98/.2
9843
9844
9845
9846
9847
9848
9849
9850
9851
9852

9853
9854
9855
9856
9857
9858
9859
9860
9861
9862
9863
9864
9865
9866
9867
9868
9869

9870
9871
9872
9873
9874
9875

PIE2
PIE3
PIEG
PIES
PIEG
PIE7
PIES
PIE9
PIET0
PIETl
PIE12
PIE13
PIETG
PIE1S
PIE16

=100000

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

PIE17
PIE18
PIE19
PIE20
PIE2]
PIE22
PIE23

=100000
=40000
=20000
=10000
=4000
=2000
=1000

000010
000004
000002
000001

PIE27
PIE28
PIE29
PIE3D
PIE31
PIE32

=40
=20
=10
=4

000000

ECDATA:

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020

045424

PIE]

PIE26¢
PIE2S
PIE26

=400
=200
=100

=2
=1

;DATA BIT FOR ECC
;1F ALL ONES THEN CURRENT BIT

;1F ZERO THEN CURRENT BIT

IS A ONE
IS A ZERO

045426

000000

GECC1:

:LO? ORDER ECC WORD TO BE GENERATED HERE

045430

000000

GECC2:

045432

000000

TSECCG: O

égfl ORDER ECC WORD TO BE GENERATED HERE

s1F

—

=177777 GENERATE AND TEST ECC FOR THIS BI!

;1F =0 DO NOT GENERATE AND TEST ECC FOR THIS BIT

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
CIRJGD.P11
10-SEP=79 11:00
9876
9877
9878
9879

045434
045436
045440
045442

113713
000000
000000
010041

MACY11

30A(1052)
10-SEP=79
11:11
PAGE 225
ECC GENERATION AND COMPARISON ROUTINE

NCODE:
38859.
NCOUNT: 0
POSITI: O
HARDER: 4129.

045444

000000

DATENV: 0

045446

000000

ICODE:

SEQ 0224

:N-CODE WORD
; TEMPORARY N CODE
;POSITION REGISTER
;HARD ERROR COUNT

; TRUE COUNT

IS 4128 BUT AS COMPARES ARE

;DONE ONE STAGE LATER SO 4129

;DATA ENVELOPE FOR TYPE OUT
;MAX FOR WRITE 1S 4096
;MAX FOR READ

1S 4128

;THIS

OFF

;LEADING ZEROS ENVELOPE FOR TYPE OUT

IS SHUT

WHEN POSITION COUNTER

: IN ENABLED
;MAX COUNT 1S 38859

9893
9894
9895
9896
9897
9898
9899
9900
9901
9902
9903
9904
9905
9906
9907
9908
9909
9910
9911
9912
9913
9914
9915
9916
9917
9918
9919
9920
9921
9922
9923
9924
9925
9926
9927
9928
9929
9930
9931

045450
045452
045454
045456
045460

000000
000000
000000
000000
000000

HADTMP:
P3:
P12:
P22:
P24:

ECTEST:

045462
045462
045464
045466
045470
045472
045474
045476
045502
045506
045512

0
0
0
0
0

MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV
1S1

045426
045430
045424

BEQ

; TEMPORARY

HARD ERROR

RO,=(SP)
R1,-(SP)
R2,=(SP;

;s PUSH RO ON STACK
;s PUSH R1 ON STA{K
::PUSH R2 ON STACK

R&,-(SP)

s sPUSH R4 ON STACK

R3,=(SP)

RS,=(SP)

afGECCT,R1
afGECC2,R2

: :PUSH R3 ON STACK
:;PUSH RS ON STACK

a#ECDATA

;*1F CARRY 1S NOT ZERO THEN D=1
;*INVERT Xx32 T0 GIVE RO
045514
045516
045522
045524
045526

177776

1%:
5

MOV
BIS
COM

MOV

045530
045532
045536

010103
042703
010300

045540
0645542
0465544

0002641
006000
006000

177776

2%:

MOV

1%:

R1,R3
#*CP1E32,R3
R3
R3,RO

;*1F CARRY IS ZERO THEN D=0
;*X32 BECOMES RO

MOV
BIC

cLc

ROR
ROR

COUNT

R1,R3

#*CPIE32,R3
R3,RO

RO
RO

;ECCY1 WORD
;ECC2 WORD
;1S CURRENT BIT A ONE
;BRANCH IF CURRENT DATA D=0

———

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD.P 11

9932
9933
9934
9935
9936
9937
9938
9939

9940
9941
9942
9943
9944
9945
9946
9947
9948
9949
9950
9951
9952
9953
9954
9955
9956
9957
9958
9959
9960
9961
9962
9963
9964
9965
9966
9967
9968
9969
9970
9971
9972

045546
045550

005700
001462

045552
045554
045560
045562
045566

9983
9984
9985
9986
9987

g
10-SEP-79
11:11
PAGE 226
ECC GENERATION AND COMPARISON ROUTINE

30A(1052)

187

MOV
BIS
COM
MOV

R2,R3
#*CPIE2,R3
R3
R3,3a#P3

BEQ
10%
;*INVERT X2
137777

045452
045452

ASR

SEQ 0225

;BRANCH IF RO=0

arpP3

; *INVERT x11
045572
045574
045600
045602
045606

177737

045454
045454

MOV
BIS

COM

MOV

ASR

R2.R3
#*CPIE11,R3

R3,a#P12

31912

s*INVERT x21

045612
045614
045620
045622
045626

173777

045456
045456

MOV

BIS

(oM
MOV
ASR

R1,R3

#*(P1E21,R3

R3
R3,a#P22
arpP2?2

;*INVERT Xx23
045632
045634
045640
045642
045646

176777

045460
045460

MOV

R1,R3

MOV
ASR

ANP24

BIS
COM

#*CP1E23,R3
R3
R3,a#P24

:*NOW THAT RO FOR POSITION 1

P3 FOR POSITION 3

P12 FOR POSITION 12

P24 FOR POSITION 24

P22 FOR POSITION 22

;*ARE KNOWN THE ROTATE WiLL BE DONE

9973

9974
9975
9976
9977
9978
9979
9980
9981
9982

MACY11

045652
045654
045656
045662
045666
045672

006002
006001
053700
053700
042702
050002

045674
045676
045702
045706
045712
045714

005000
053700
053700
042701
050001
000404

045452
045454

120020

045456
045460
002400

;*THESE

BITS JAMED

ROR
ROR

R2
R1

BIS
BIS

BIC
BIS

(LR

BIS
BIS
BIC
B1S
BR

a#P3,R0
a#P12,R0

#PIEVT!PIE3!PIET2,R?
RO,R2

a¥P22,R0
a¥P24 RO
R
#PIE22!PIE24
RO,R1
12%

AND

CZRJGDO,RPO4/5/6 DSKLS CTRLRI]

CZRJGD. P11

9988
9989
9990
9991
9992
9993
9994
9995
9996
9997
9998
9999
10000
10001

10002
10003
10004
10005
10006
10007
10008
10009
10010
10011
10012
10013
10014
10015
10016
10017
10018
10019
10020
10021
10022
10023
10024
10025
10026
10027
10028
10029

10-SEP=79 11:00

MACY11

SEQ 0226

:*THE PROGRAM COMES HERE IF RO=0
;*SO AFTER ROTATE RO GETS PUT INTO POSITION 1
045716
045720
045722
045726
045732
045736

006002
006001
042702
010137
010237
005737

045742

001432

045744
045752
045754
045762
045764

032777
001005
032777
001401
000421

045766

010146

10%:

100000

045426
045430
045432

12%:

000400

133166

000100

133156

045770
045774
046000

042716
022677
001404

174000
133672

046002
046006
046010
046012
046020

004737
104035
000407
023777
001403

042336

046022
046026

004737
104035

042336

045440

ROR
ROR
BIC
MOV
MOV
181

R2
R1

BEQ

14%

;*(HECK HARDWARE
BIT
BNE

#SW8,aSwR

15%

138%:

;BRANCH IF

HARDWARE NOT

TO BE

MOV
BIC
(MP
BEQ

R1,=(SP)

#174000, (SP)
(SP)+,aRHE(?
13%

; COMPARE PATTERN REGISTER

JSR
ERROR
BR

PC,a#PUTREG

:SAVE REGISTERS

14%

BEQ

14%

;BRANCH OUT
: COMPARE POISTION REGISTER
;BRANCH IF GOOD

15%
14%

(MP

a#POSITI,aRHEC]

;10 SAVE TIME

JSR
ERROR

PC,a#PUTREG

CHECKED

;1S SWITCH 8 SET
;BRANCH IF SW8 1S SET
;1S SWITCH 6 SET

FSW6 ,aSwR

;*T0 SAVE TIME

133650

;SAVE ECC!
;SAVE ECC2
;1S HARDWARE TO BE C(HECKED
;1F =1777777 TEST HARDWARE
;1F = 0 DO NOT TEST HARDWARE

BIT

BEQ
BR
15%:

#PIET,R2
R1,a#GECC]
R2,a#GECC2
AN TSECCG

;BRANCH IF Swé6 1S NOT SET
;1F SWITCH 8 IS NOT SET AND
;SWITCH 6 IS SET THEN
;D0 NOT DO COMPARES
:GOOD PATTERN REGISTER
;GET ONLY PATTERN BITS

:BRANCH IF GOOD

;PATTERN REGISTER

:SAVE

BITS

IN ERROR

REGISTERS

;POSITION REGISTER IN ERROR

;"'DATA ENVLOP'' GIVES NUMBER OF (LOCK
;PULSES FROM BEGINING OF COMMAND
;THAT

IS THE

CLOCKS

IN THE

R/W DATA FIELD ENVELOPE

“IN A WRITE THERE ARE 1000C OCTAL CLOCKS
"IN A READ THERE ARE

10030

10031
10032
10033
10034
10035
10036
10037
10038
10039
10040
10041
10042
10043

30A(1052)
10-SEP-79
11:11
PAGE 227
ECC GENERATION AND COMPARISON ROUTINE

10040 OCTAL CLOCKS

:"'N-CODE ZEROS'* GIVE THE NUMBER OF CLOCKS
;: GIVEN FOR THE LEADING ZEROS FIELD
;MAX COUNT

1S 113713 OCTAL

:"'GOOD POSITION'' GIVES NUMBER OF (LOCKS

;GIVEN AFTER LEADING ZEROS WHICH IS FOR THWE DATA
;FI1ELD
;MAX COUNT 1S 10040 OR 10041 OCTAL

046030
046030

012605

14%:

MOV

(SP)+ RS

;:POP

STACK

INTO RS

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP-79 11:00
CZRJGD.P11
10044
10045
10046
10047
10048
10049

046032
046034
046036
046040
046042
046044

012604
012603
012602
012601
012600
000207

MACY11

SEOIE

2
30A(1052)
10-SEP-79
11:11
PAGE 228
ECC GENERATION AND COMPARISON ROUTINE
MOV
MOV
MOV
MOV
MOV
RTS

(SP)+ R4

(SP)+,R3

(SP)+,R2
(SP)+ R
(SP)+,RO

;. POP STACK
;:POP STACK
: :POP STACK
;. POP STACK
;. POP STACK

SEQ 0227
INTO Ré

INTO
INTO
INTO
INTO

R3
R2
R1
RO

CZRJGDO,RPO4L/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CZRJGD.P11

MACY11

10050
10051
10052
10053

046046

000000

046050
046054
046062
046066
046070
046074
046100

010037
162737
012037
010146
013701

002014
000004
046046

046104
046110
046112
046116
046120
046122
046126

005737
001007
005337
001001
000403
005237
000420

045440

046130
046134
046142
046144

005237
023737

045440
046046

045440

023737

045450

045440

046152
046154
046160

001415
032711
001016

000400

046162
046166

004737

042336

046170
046174
046200
046204

052711
042711
004737
000737

012711
005037

103012

104034

JSR,

ERPOS:

002014

ECORR:

MOV

RO,a#PCJISR

¥4 ,aNPCJSR
(RO)+,9#ERPOS
R1,-(SP)
9#RHMR ,R1
#DMD ,aR)
A¥ECDATA.

:SAVE PC OF JSR
;GET POSITION REG. WHEN CORRECTION IS COMPLETE
;;PUSH R1 ON STACK
sMAIMTENANCE REGISTER
;SET DIAGNOSTIC MODE BIT
;ECC DATA IS ZERO

1%:

181
BNE
DEC
BNE
BR
INC
BR

a¥POSITI
2%
d#NCOUNT

;1S
SOFTWARE POSITION NON ZERO
;BRANCH IF N-CODE S COMPLETE
;DECREMENT N-CODE

INC
(MP

a#POSITI
QNERPOS ,a#POSITI;HAVE ENOUGH CLOCKS BEEN GIVEN TO DETECT ERROR
3%
;BRANCH IF MORE CLOCKS TO BE GIVEN
SFHADTMP ,@#POSIT1;HAVE ENOUGH CLOCKS BEEN GIVEN FOR HARD ERROR

001660
000001
045424

045436

6%:

045446

000002
000002
045462

2%:

SUB
MOV
MOv
MOV
MOv
CLR

BHIS
CmMp

PC,a#ECORR

;EXPECTED POSITION REGISTER WHEN CORRECTION IS COMPLETE

;POSITICN REG. WHEN CORRECTION IS COMPLETE

6%
2%
a#Z(ODE
3%

BEQ
5%
#ZER,aR1
BIT
4%
BNE
:*10 SAVE TIME
JSR
PC,a#PUTREG
34
ERROR

3%:

BIS
BIC
JSR
BR

#MCLK,aR1
#MCLK 3R]
PC,a#ECTEST
%

;*THIS EXTRA CLOCK

;SAVE PC OF JSR + &

;BRANCH IF N-CODE IS NOT COMPLETE
;BRANCH AS N-CODE IS COMPLETE
; INCREMENT CLOCKS GIVEN FOR LEADING ZEROS
;BRANCH AS N-CODE IS NOT COMPLETE
;60 TO GIVE CLOCK AND TEST ECC
; INCREMENT SOF TWARE POSITION

;THAT

1S HAVE 4128 MORE

;BRANCH IF YES
;CHECK ZERO DETECT BIT
;BRANCH IS ZER SET

—

046206
046212

000002
000002

5%:

BIS
BIC

#MCLK,aR]
#MCLK,aR1

CLOCKS BEEN GIVEN

IN RHMR

:SAVE REGISTERS
;ZERO DETECT BIT NOT HIGH

;WHEN 21 BITS IN ECC 32 BIT REGISTER IS

;SET CLOCK
;CLEAR CLOCK
;GO TO GENERATE AND TEST ECC
: CONTINUE
1S TO BRING ECH HIGH

;*AFTER THIS CLOCK POSITION REGISTER MAY BE
»
roro

10069
10070
10071
10072
10073
10074
10075
10076
10077
10078
10079
10080
10081
10082
10083
10084
10085
10086
10087
10088
10089
10090
10091
10092
10093
10094
10095
10096
10097
10098
10099

SEQ 0228

;*CALL

10068

;*THIS SUBROUTINE WILL CONTROL THE ECC GENERATION ROUTINE
:*FOR ERROR CORRECTION PROCESS

10054

10055
10056
10057
10058
10059
10060
10061
10062
10063
10064
10065
10066
10067

30A(1052)
10-SEP-79
11:11
PAGE 229
ECC GENERATION AND COMPARISON ROUTINE

JSET (LOCK
;CLEAR (LOCK

10040 OR 10041 OCTAL

~NoOwns WN=OO0VONOWVNSTWN—=0
00

h
i

s OO

i el
il

MOV
R1S

(SP)+,R1
RO

SEQ 0229

;:POP STACK

INTO R1

bbb s

D i
D
oy

10-SEP-79
11:11
PAGE 230
ECC GENERATION AND COMPARISON ROUTINE

4%:

012601
000200

;*THIS

i
i
il
D
i
e
2
s
2
—t

30A(1052)

SUBROUTINE

GENERATES

THE

ECC

FOR WHAT

IS ON DISK

:*ON LOCATIONS ''DISK+1000'" AND ‘'DISK+1002"

046222
046222
046224
0466226
046230
046232
046234

046236
046262
046246
046252
046256

066262
0466266
046270

046272
046274
046302
046304
046310
046314
046316
046320
046322
046324
046332
046340
046342
046344
046346
046350
046352
046354

010046
010146
010246
010346
010446
010546
005037
005037
005037
012701
012702
012703
012104
006004
103004
012737
000402
005037
004737
005303
001364
005302
001357
013737
013737
012605
012604
012603
012602
012601
012600
000207

FILLEC:

MOV
MOV
MOV

177777

045626
045430

R4 ,-(SP)

;sPUSH R4 ON STACK

R3,-(SP)

MOV
CLR

RS,=-(SP)
o¥#P0OSITI

CLR
CLR

AND

INSERTS

:sPUSH R3 ON STACK

:;PUSH RS ON STAC(CK
;CLEAR POSITION

a¥GECCT
a¥GECC?

:CLEAR GECC1
;CLEAR

10%:

MOV
MOV
MOV
MOV
ROR

11%:
12%:

CLR
JSR

a¥ECDATA
PC,a#ECTEST

MOV

(SP)+ R4

;:POP STACK

INTO R4

(SP)+,R2
(SP)+ ,R1
(SP)+,RO

;;POP STACK
;:POP STACK
::POP STACK

INTO R?
INTO R}
INTO RO

9% :

045424

045424
045462

;:PUSH RO ON STACK
;:PUSH R1 ON STACK
;:PUSH R2 ON STACK

MOV

045440
045426
045430
051534
000400
000020

RO,=-(SP)
R1,=-(SP)
R2.,-(SP)

052534
052536

BCC
MOV
BR

DEC
BNE
DEC
BNE
MOV
MOV
MOV

MOV
MOV
MOV
MOV

#D1SK,R1
#256.,R2
#16.,R3
(R1)+,R4
R4

11%
#-1,3a#ECDATA
12%

sPOINTER
:COUNTER
;COUNTER
;DATA IN
:GET ONE

TO DATA FOR ECC GENERATION
FOR NUMBER OF TAIA WORDS
FOR NUMBER OF BJTS PER WORD
R4
DATA BIT IN CARRY

:BRANCH IF DATA BIT IS ZERO
sECC DATA BIT IS A ONE
sBRANCH TO GENERATE ECC
sECC DATA BIT IS A ZERO
;G0 TO GENERATE ECC

R3
;DECREMENT BIT COUNT
10%
;BRANCH IF 16 BITS NOT DONE
R2
;DECREMENT WORD COUNT
3%
;sBRANCH I1F 256 WORDS NOT DONE
ANGECCT,aNDISK+<256.+2>;
INSERT ECC1 ON DISK
ONGECC2,aNDISK+<257,.22>;
INSERT ECC2 ON DISK
(SP)+,RS
;:POP STACK INTO RS

(SP)+,R3

;:POP STACK INTO R3

R1S

.SBTTL

RH BASE ADDRESS C(HANGE ROUTINE

AP
ALV
RN

e ———

[

10128
10129
10130
10131
10132
10133
10134
10135
10136
10137
10138
10139
10140
10141
10142
10143
10144
10145
10146
10147
10148
10149
10150
10151
10152
10153
54
(elelelele]

046216
046216
046220

MACY11

Lt
sk

il e
il
il
i
il
D
s
s
—s
—

NN NN

OO0O0O (e leolololololololelololelololele]

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CZRJGD.P11

58
10159
10160
10161

THIS ROUTINE

WILL

ALLOW THE

CHANGE OF

ADDRESS FROM 176700 TO ANY TYPED VALUE

THE

BASE

THEM

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=-79 11:00
CZRJGD.P11
10162
10163
10164
10165

10166

10167
10168
10169
10170
10171
10172
10173
10174
10175
10176

10177

10178
10179
10180
10181
10182
10183
10184
10185
10186
10187
10188
10189
10190
1019
10192
10193

10194

10195
10196
10197
10198
10199
10200
10201
10202
10203

046356
046356
046362

046436
046436
046442
046446
0466450
046524
046524
046530
046532
046536
046542
046550
046554
046556
046562
046566
046570
046572
046574
046574
046600
046640
046640
046644
046646
046652

046752
046752
046754
046760
046764
047022
047022
047026
047030
047034

047072
047072
047076
047100
047104
047144
0467144
047150

104401
000425

013746
104412
10440

000425

046452

$:67%:

012700
012701
012737
021637
001407
005776
163716
061620
005301
001375

001630
000026
047342
001640

104401

046602

013746
104402
104401

000437
104412

012637
104401

000416
013746
104402
104401

000417
104401
000402

64%:

001640

000000
001640

001626

66%:

000004

2%:
1%:

;:69%:
68%:

046654
2= Fils
70%:

001626
046766
72%:

047036

T
e

001626

745:

2
PAGE 231

SEQ 0230

€49

;s TYPE ASCIZ STRING
;;GET OVER THE ASCIZ

MOV
TYPOC
TYPE

@¥#RHCST,=(SP)

;GET READY TO TYPE OLD BASE

67%

;:TYPE ASCIZ STRING

TYPE

2778
76%:
;:79%:

,65%

<15><12>/PRESENT BASE

ADDRESS OF

REGISTERS

‘CR'

BR
.ASCI1Z

66%
::GET OVER THE ASCIZ
<15><12>/TYPE NEW BASE ADDRESS FOLLOWED BY

JSR
RDOCT
MOV
MOV
MOV
CMP

PC,aNSTKINT

;INITIALIZE THE TTY KEYBOARD

#RHDB,RO

;GET STARTING ADDRESS OF REGISTERS
:NUMBER OF REGISTERS
;SET UP TO CHECK NEW ADDRESS

BEQ
181
SUB
ADD

#ADTIMO a4

aSP,aNRHCST
1%
a0 (SP)
O#RHCS1 ,aSP
asSP, (RO)+
R1

;NEW CSR?
:NO=SKIP NEXT

;ACCESS THE NEW ADDRESS
;GET THE ADDRESS OFFSET
;AND PLUG

;DONE ALL OF THEM YET?
:NOT YET, SO DO MORE

TYPE
BR
LASCIZ

.69%
68%

::TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

MOV
TYPOC
TYPE

9#RPVEC,=-(SP)

;GET READY TO TYPE OLD VECTOR ADDRESS

DEC
BNE

<15><12>/PRESENT

VECTOR ADDRESS

BR
LASCIZ

::TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
<15><12>/TYPE NEW VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED BY "‘CR"

RDOCT
MOV

(SP)+ @#RPVEC

BR
LASCIZ

<15><12>/NEW BASE

MOov
TYPOC
TYPE

1%
70%

73%

728

;SETUP VECTOR ADDRESS
;s TYPE ASCIZ STRING
;:GET OVER THE ASC}Z
WILL REMAIN

O#RHCST,=(SP)

;s TYPE ASCIZ STRING
;.GET OVER THE ASCIlZ

.75%
74%

BR
.ASCIZ

<15><12>/NEW VECTOR WILL REMAIN -

MOV

9#RPVEC,=-(SP)

LI7%
76%

TYPOC
TYPE

047106

047152

11:11

BR
LASCIZ

TYPE

;:73%:
001640

10-SEP-79

RH BASE ADDRESS CHANGE ROUTINE

;:65%:

055310

000417

30A(1052)

BASECH:

046364

004737
104412

MACY11

LASCIZ

<15><12>/UNTIL.

TYPE

,79%
78%
<15><12>/

BR
LASCIZ

::TYPE ASCIZ STRING
:.GET OVER THE ASCIZ

PROGRAM 1S RELOADED./

::TYPE ASCIZ STRING
/

;:GET OVER THE ASCIZ

CZRJGDO,RPO4/5/6 DSKLS CTRLRI]
10-SEP=-79 11:00
CZRJGD.P11

047156
047156
047162

104401
000424

047164

047234
047234
047240

104401
000426

047242

012746

000200

047316

047322
047324
047330

047336
047336
047342
047342
047346
047420
047420
047422

104402
104401
000402

30A(1052)
RH BASE

78%:

047332

104401
000424

047350

80$

TYPE

,83%

—

::255:

64%:

046356

;*THIS

SEQ 0231

::TYPE ASCIZ STRING

S:GET OVER THE ASCIZ

<15><12>/UNLESS HALTED AND MANUALLY RESTARTED,/

;:TYPE ASCIZ STRING

g2%
::GET OVER THE ASCI1Z
<15><12>/PROGRAM WILL AUTOMATICALLY RESTART FROM /

MOV
TYPOC

#RA,=-(SP)

84%

JMP

O#BEGIN

;0K, NOW START OVER WITH NEW ADDRESS

TYPE
BR

,65%
643

..TYPE ASCIZ STRING
;GET OVER THE ASCIZ

CMP
JMP

(SP)+,(SP)+
9#BASECH

;RESTORE THE STACK
:AND DO 1T AGAIN.

LASCIZ

(%:

PAGE 232

ROUTINE

BR
LASCIZ

TYPE

6:25‘:

11:11

81%

LASCIZ

éé23$

004244

10-SEP=79

ADDRESS CHANGE

TYPE

5621‘

000137

022626
000137

MACY11

afio

k¥

LASCIZ

,85%

<15><12>/

;s TYPE ASCIZ STRING

::GET OVER THE ASCIZ

<1S><12><377‘/SPECIFIED ADDRESS DID NOT RESPOND.

IS A LITTLE ROUTINE

THAT

TESTS NED BIT

IN RH(SZ

;*THIS LOOPS HERE FOR EVER
;*T0 BE USED ONLY IF DRIVES PRESENT LOOKING AT NED DOES NOT AGREE
047426
047430
047434
047440
047442
047446
047450
047452

000000

004737
013712
005714
032712
001401
000773
000772

;*WITH WHAT

042732
047426
010000

ERUNIT: 0

1S REALY THERE

ERSTART:JSR

PC,aN#CLDISK

1%:

aRé&

2%:

MOV

18T

BIT

BEQ
BR
BR

OFERUNIT,aR2

#NED ,aR?2
2%
1%
%

sUNIT UNDER MANUAL TEST

;SET GENERAL REG.
sSELECT UNIT

;TEST RHER1

sTEST NED

;BRANCH IF GOOD
;NED NOT SET
;NED SET

RH BASE

10-SEP-79

11:11

ADDRESS CHANGE ROUTINE

.SBTTL

DISK SIMULATION

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

:*IN A WRITE HEADER AND DATA COMMAND FILL THE FOLLOWING
;*WCLY=WITH CYLINDER TO BE ON DISK
s*WSECTR=WITH SECTOR AND TRACK TO BE ON DISK
;*WKEY1= WITH KEY1 TO BE ON DISK
;*WKEY2= WITH KEY2 TO BE ON DISK
:*FNWORD= NO OF

DATA WORDS TO BE WRITTEN ON DISK

;*THE COMMAND THEN IS

JSR PC,COMWHD

s*IN A WRITE DATA COMMAND FILL THE FOLLOWING
;*CYL=WITH CYLINDER TO BE FOUND ON DISK
;*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK
;*KEY1= WITH KEY1

TO BE FOUND ON DI1SK

;*KEY2= WITH KEY2 TO BE FOUND ON DISK
MUST BE ONE
;*X= 1

;*NOWORD= WITH NUMBER OF DATA WORDS TO BE WRITTEN
;*THE COMMAND THEN IS JSR PC,COMHD
n,
e

e
e

»
%

;*IN A READ HEADER AND DATA COMMAND FILL THE FOLLOWING
;*CYL= 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

)
T
L

R
%R

R
R

%R
%
%

:*KEY2=WITH KEY2 TO BE FOUND ON DISK
:*DAWORD= WITH NUMBER OF WORDS TO BE FOUND ON DISK
;*;X=0 MUST BE ZERO
:*THE COMMAND THEN IS JSR PC,COMED

TR T

10300

10301
10302
10303
10304

30A(1052)

10258
10259
10260
10261
10262
10263
10264
10265
10266
10267
10268
10269
10270
10271
10272
10273
10274
10275
10276
10277
10278
10279
10280
10281
10282
10283
10284
10285
10286
10287
10288
10289
10290
10291
10292
10293
10294
10295
10296
10297
10298
10299

MACY11

2
PAGE 233

CIZRJGDO,RPO4/5/6 DSKLS CTRLR
10-SEP-79 11:00
CIZRJGD.P11

;*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
;*KEY1= WITH KEY1

TO BE FOUND ON DISK

;*KEY2=WITH KEY2 TO BE FOUND ON DISK
;*DAWORD= WITH NUMBER OF WORDS TO BE FOUND ON DISK
;*;X=0 MUST BE ZERO
;*THE

COMMAND THEN IS JSR PC,COMHD

—

SEQ 0232

CZRJGDO,RPO4/5/6 DSKLS CTRLRI

CZRJGD.P1

10-SEP-79 11:00

MACY11

30A(1052)
10-SEP-79
DISK SIMULATION

11:11

eSS

2
PAGE 234

SEQ 0233

;:'ll"""""""""""""""""'.'.l'.""l"lt"""""

;*WRITE DATA COMMAND
;*OR READ COMMAND I.E DATA ONLY OR HEADER AND DATA

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

;**THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES
s**]T

ISSURE DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE

;*+'G0' BIT

;*«]T THEN CALL THREE OTHER SUBROUTINES, WHICH IN TURN CALL OTHER
THESE ARE:
;**SUBROUTINES.

g
g
2.
;e

047454

047456
047462
047470
047472
047474
047476
047500
047502

047504
047512
047520
047526

000000
011637
162737
010046
010146

002014

0000064

002014

010246
010346
010446
010546
012777
052777
042777
052777

RUNCTR: .WORD
COMHD:
MOV
SUB
MOV
MOv

"
>

000001
000004
000004
000001

047534

012737

000113

047542
047546

005337
001375

047454

047550
047554
047560

013746
042716
012637

047620
177740
047570

132146
132140
132132
132104

047454

SEARCH
RDHEAD
WRDATA
REDATA

» MOV
MOV
MOV
MOV

MOV
BIS
BIC
BIS

RUNWAT: MOV
1%:

0
(SP) ,a#PCJ)SR
¥4, QNPCISR
RO,=(SP)
R1,-(SP)

R2,=(SP)
R3,=(SP)
R4 ,=(SP)
R5,=(SP)

sSAVE PC OF JSR + &
;SAVE PC OF JSR

;:PUSH RO ON STACK

::PUSH R1 ON STACK
;:PUSH R2 ON STACK

::PUSH R3 ON STACK
;:PUSH R4 ON STACK
;:PUSH RS ON STACK

#DMD
, 3RHMR
FMINX,IRHMR
#MINX,IRHMR
#G0,aRHCST

sSET DIAGNOSTIC MODE
sSET DIAGNOSTIC INDEX
;CLEAR DIAGNOSTIC INDEX

#75.,3#RUNCTR

;LOAD STALL COUNT = APPROX. 450US

DEC
BNE

a#RUNCTR
%

MOv
BIC
MoV

SECOTR, =(SP)
#177740, (SP)
(SP)+, Q#IRK

;1SSUE 'GO' BIT & STALL 'TILL 'RUN'
;: (FUNCTION CODE

ISSUED BY

THE

;FOR 11/50 CPU WITH CORE MEMORY

:COUNT DOWN ONE
;CONTINUE UNTIL = 0

:GET DESIRED SECTOR/TRACK
:MAKE ONLY SECTOR
:SAVE SECTOR

TEST)

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CIRJGD.P11

047570
047572
047576
047602
047606
047612

000000
012701
010137
10
10
04

004137

NN
NNN

047564

oOO0Oo

=lelelelelelelelelalele]

B YN~

10370
371

MACY11

30A(1052)

DISK SIMULATION

053664
000240
047630
047632
047634
047740

TRK:

379
382

10-SEP=-79

11:11

JSR

R1,3#SEARCH

.WORD

MOv
MoV
MOV
MoV
JSR

#+NOP,R1
R1,3#SSYN
R1,3#HEDGAP
R1,3#HEDSYN
R1,3#RDHEAD

]

PAGE 235

SEQ 0234

JISSIE BECTOR CLOCRS Sehsassescssnaben
;GOING TO
;NOP INTO
;NOP INTO
:NOP INTO

MOVE NOPS
SSYN
HEDGAP
HEDSYN

; *DUMMY ERROR CALL LOCATIONS FOR THE READ HEADER OPERATION
047616

.WORD
.WORD

047620
047622
047624
047626

000000
000000
000000
000000
000000

LYL:
SECOTR:
KEY1:
KEYZ2:
X:

.WORD
.WORD
.WORD

047630

000240

SSYN:

NOP

O
O

O
0
O

;CYLINDER ADDRESS
;SECTOR/TRACK ADDRESS

;KEY1 WORD
;KEY2 WORD
;X=1 WRITE COMMAND
;X=0 READ COMMAND

;1F "ERROR 2'' INSERTED BY RDHEAD
;SUBROUTINE THEN THE FIRST SYNC.
;1S NOT DETECTED. NO BAD DATA
;1S GIVEN BECAUSE SYNC=144000
; CANNOT BE READ.

WORD NO

;1S """ BECAUSE THIS IS THE FIRST
;WORD TESTED
047632

HEDGAP:

000240

NOP

;1F ""ERROR 3'' INSERTED BY
;RDHEAD SUBROUTINE THEN THE
;HEADER GAP 0'S WERE NOT
;WRITTEN RIGHT.

;1F "'WORD NO'' CONTAINS, SAY
:3(8), THEN IT IS THE THIRD
;WORD OF A 5 WORD HEADER
:GAP THAT

IS WRONG

:"'BAD DATA'' CONTAINS WHAT IS
;GOING ON THE DISK
047634

000240

HEDSYN:

NOP

;1F "ERROR 3'' INSERTED BY RDHEAD
:SUBROUTINE THEN THE HEADER SYNC.
;GENERATED BY DCL IS WRONG
;OR THE LAST BYTE
;0OF THE HEADER GAP 0'S 1S WRONG
;IN EITHER CASE WORD NO=6
;RIGHT BYTE 1S HEADER 0
;LEFT BYTE IS SYNC

:"'BAD DATA'' HAS WHAT 1S GOING
:ON DISK

047636
047642
047644
047650
047652

002006

047626

047732

151
BNE
151
BEQ
181

ANERFLGS
out
anx
DAREAD
AMNOSYNC

;ARE ANY ERRORS DETECTED
S1F YES, EXIT ==mcme=ccccccccnans >
1S 1T A DATA WRITE ?
iNO...THEN DO A DATA READ
$113 THIS FORCED MEADER ERROR COMMAND

:1F YES

NOSYNC==1 THEN WRITE OR READ

;1S SHUT OFF SO BRANCH OQUT

CZRJGDO,RPO4/5/6 DSKLS CTRLR!

CZRJGD. P11

10426
10427
10428
10429
10430
10431
10432
10433
10434
10435
10436
10437
10438
10439
10440
10441
10442
10443
10444
10445

10-SEP=79 11:00

047656

001011

047660

0046137

047664
047666
047670

000000
000000
000404

047672
047676
047700
047702
047702
047704
047706
047710
047712
047714
047716

004137
000000
000000
012605
012604
012603
012602
012601
012600
000207

MACY11

30A(1052)
10-SEP=79
DISK SIMULATION

051204
:
NOWORD
|£

054140

DAREAD:
DAWORD:
ouT:

11:11

PAGE 236

SEQ 0235

BNE

ouT

NOSYNC=0 THEN CONTINUE
J1F
GEXIT IF SET

JSR

R1,3#WRDATA

WRITE

.WORD
.WORD
BR

0
e
ouT

;NO OF WORDS TO BE WRITTEN

JSR
.WORD
.WORD

R1,3#REDATA

;READ DATA <

(SP)+,RS

: :POP STACK INTO RS
s POP STACK INTO Ré
;. POP STACK INTO R3
;. POP STACK INTO R?
: :POP STACK INTO R1
: :POP STACK INTO RO
JEXIT ROUT INE

MOv
MOV

MOV
MOV
MOV
MOV
RTS

0
0

(SP)+,R4

(SP)+,R3
(SP)+,R2

(SP)+ ,R1
(SP)+,RO

:NO OF

DATA Co=-ocmccccmcccccancanas >

WORDS

TO BE

READ

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=79 11:00
CZRJGD.P1
10446
10447
10448
10449
10450
10451
10652
10453
10454
10455
10456
10457
10458
10459
10460
10461

10462
10463
10464
10465

10466
10467
10468
10469
10470
10471

MACY11

30A(1052)
10-SEP=79
DISK SIMULATION

11:11

PAGE 237

SEQ 0236

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

;*THE DISK SECTOR IS DEVIDED AS FOLLOWS

:*19 WORDS OF 0, ONE WORD 144000
;*THESE MAKE 39 BYTES FOR SECTOR GAP AND ONE SYNC. BYTE
047720
047722
047724
047726
047730

014400
000000
000000
000000
000000

RSYNC:
RCYL:
RSETR:
RKEY1:
RKEY2:

1
0
O
O
O

:*5 WORDS OF 0 ONE WORD 144000
;*THESE MAKE 11 BYTES FOR HEADER GAP AND ONE SYNC. BYTE
;*THESE ARE DCL GENERATED

;*THERE ARE 256 WORDS OF DATA
;*THERE ARE 2 WORDS FCR ECC GENERATED BY DCL
;*15 WORDS OF O FOR DATA GAP AND TOLERANCE

GAP

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

CZRJIGDO,RPO4/5/6 DSKLS CTRLRI

CZRJGD. P11

—=O VNV NN

RV LV RV
NN RV IV R R
rororoN —, e B e e D e e —>

I
JE
—a [
-2
.
—_—

leolelele] lelelelelelelelele)

———

10524
10525
10526

10527

11:11

Fiiane

PAGE 238

SEQ 0237

R R ARl
dd)

:;""""'""Q'"'"'""""""""".."""'0".""t.""'

047732

000000

NOSYNC: 0

047734
047736

000000
000000

Ty
0
ERWORD: 0

047740
047744
047750
047754
047760
047764
047766
047772
047776
050002
050006
050012
050016
050020
050024
050030
050034
050040
050044
050046
050050
050052
050054

050060
050064
050070
050072
050074
050102
050106
050112
050114
050122
050130
050136
050140

-t 2 QO S NWNWNNW
OOOWVOO NINNNN

10494
10495
10496
10497
10498
10499
10500
10501
10502
10503
10504
10505
10506
10507

i22 2222222

“*READ DISK HEADER

~N NN
wWO NN N
~ NN N N
o

10493

30A(1052)
10-SEP=-79
DISK SIMULATION

——
w [, [P

10490
10491
10492

MACY11

o elelololelolelele
o]

10472
10473
10474
10475
10476
10477
10478
10479
10480
10481
10482
10483
10484
10485
10486
10487
10488
10489

10-SEP=79 11:00

047722
047724
047726
047730
050530

047720
050532
001000

MOV

2%:
3%:

MOV

#MSTCK'MCLK'DMD,aR0;SET SECTOR, CLOCK, DIAG. MODE, RCSET
#MSTCK'MCLK,aR0O ;RESET SECTOR, CLOCK
",
R?
:R2 1S A COUNTER FOR BYTES
#MCLK,
aRO
sSET CLOCK

050526

BIS
BIC
BR
BIC

B1S
BIC
DEC
BNE
DEC
BNE

104002

047736
001124
047630

047722

050526

",
RS
#DMD,
aRO
#MSTCK ,aR0
#MCLK,aR0
#MSTCK'MCLK,aR0

#MCLK,
R2

aRO

::;PUSH R1

ON STACK

:RO CONTAINS MAINTANENCE REG.
:RS

1S A COUNTER FOR WORDS

;:DIAG. MODE
;SET SECTOR FOR FIRST WORD
:SET CLOCK FOR FIRST WORD
;RESET SECTOR AND CLOCK

:BRANCH OVER GIVING SECTOR FOR FIRST TIME

sRESET CLOCK
sBYTE COUNTER

:BRANCH IF BYTE NOT COMPLETE

MOv

JSR
DEC
BNE

PC,
R2
4%

9#READ

;GO TO READ
;s COUNT

JSR

O#RSYNC,a#WORD
PC,
#DTSY,

o#READ
aRO

;SYNC. WORD

MOV
MOV
MOV

a/ERWORD

MOV

O#RCYL, Q#WORD

CLR

MOV

BNE

5%:

a¥RHMR, RO

; STORE KEY!1
; STORE KEY?
;STORE COMPARE OR NOT

RS
1%
#18.,

BIT

000001
047720

;

1%:

4%:

7
7

:STORE CYLINDER ADDRESS
;STORE SECTOR AND TRACK ADDRESS

(R1)+,
afRCYL
(R1)+,
9#RSETR
(R1)+,
a#RKEY]
(R1)+,
ANRKEY2
Q¥#COMPA
(R1)+,
R1,-(SP)

001660
000002
000001
000010
000002
000012

000022
050526
050532

;ERROR WORD NO.

MOV
MOv
MOV
MOV
MOV
MOV
MOV
MOV
MOv
BIS

RDHEAD:

000013
000012
000007
000002
000002

;FORCED HEADER ERROR = =1
;NORMAL = 0
;ERROR TYPE NO.

9#WORD

;WORD COUNTER
:BRANCH IF WORD NOT COMPLETE
:NO OF WORDS OF ZEROS

;READ O

sSYNC.

BYTE DETECTED?

;BRANCH 1F

SYNC DETECTED

;ERROR WORD NO

A#RSYNC ,a#SGDDAT
;SYNC WORD
#1064002,3#SSYN
; INSERT "'ERROR 2'' IN SSYN
13%
;BRANCH QUT
;SETUP CYLINDER

INDEX

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD.PY 1

050146
050152
050160
050164
050172
050176
050204
050210
050216
050222
050226
050230
050234
050236
050242
050246
050254
050260
050264
050266
050272
050276
050304
050312
050314
050320
050322
050324
050330
050336
050340

004737

050532
0647724
050532
047726
050532
047730
050532
051516
050532
002026

30A(1052)
10-SEP=79
DISK SIMULATION

050526

MOV

050526

MOV

050526

MOV

050526

MOV

o#WCRC,a#WORD

BNE

13%

047736

104003

001426
005737

050764
047720

047632

7%:

001406
005737
001420
005037
000403

013737
013737
012737
012737
000443
013725
000440

047720
050762

050422
050426
050432
050436
050440
050442
050450
050454
050460

012702
005037
004737
005302
001372
01373%7
004737
005737
001404

000005
050526
050532

000006
104003

001124

001126
047736

15%:

047634

10%:

050762

047720
050532
047732

14%:

O#RKEY1,3#WORD
PC,a#READ

OFRKEY2,3#WORD

;SETUP SECTOR/TRACK
;READ

;SETUP KEYI
;READ

;SETUP KEYZ2

sREAD
;1S THIS A DRIVE

;Eg

?:EOHPA

;1S THIS A READ OR WRITE

MOV
MOV

#HEGAP, RS
",
R2

;POINTER FOR HEADER GAP
:NO OF WORDS OF ZEROS

JSR
187

PC,a#WRITE
o#WWORD

;FOR HEADER GAP
sTEST WRITTEN WORD

MOV

#1064003,3#HEDGAP

MOV

BR
MOV
DEC
BNE

BEQ
ST
BEQ
CLR
BR
MOV

MOV
MOV

MOV
BR

#6,9¥ERWORD

;BRANCH OUT

TIMING ERROR

YES

COMMAND

;ERROR WORD NO SET

:BRANCH IF GOOD THAT IS O
;WORD NO IN ERROR
:GOOD WORD SHOULD BE 0
$BDDAT
;BAD DATA

13%
a#WWORD, (RS5) +
R2
6%

sBRANCH 0UT
:SAVE HEADER GAP

A #NOSYNC

;1S

:"'ERROR 2'' GOES IN HEDGAP

"
O¥WRITE ;WRITE HEADER
A#RSYNC ,a#WWORD
10%

:1F

(DATA)

GAP SYNC

THIS FORCED HEADER ERROR COMMAND

YES

NOSYNC==1

THEN WRITE OR READ

;1S SHUT OFF SO BRANCH OQuT
;1F NO NOSYNC=0 THEN CONTINUE
;:BRANCH 1F TRUE ERROR

14%
o9 #WWORD
2
10%
;BRANCH IF GOCD
a#$GDDAT
;17 SHOULD BE ZERO
15%
;BRANCH TO TYPE ERROR
a#RSYNC ,a#$GDDAT
;GOOD DATA
o/WWORD ,a#$BDDAT
;BAD DATA
o,
o#ERWORD

#104003 ,@#HEDSYN
JBRANCH QUT
13%

MOV
BR

?;:HORD.(RS)*

JSR

Pt.

181
BEQ

A#NOSYNC
16%

DEC
BNE
MOV
JSR

;SETUP CRC

7%
R2 ,3#ERWORD
af$GDDAT
o#WWORD,

;*READ COMMAND START FROM HERE
11%:
MOV
¥,
R2
12%:
CLR
WORD

050526

;READ

PC,a#READ
O#TESDTE

181

001124

9#READ

O¥RSETR,IFWORD

SEQ 0238

;READ

BEQ

050762

PAGE 239

PC,a#READ

JSR
(MP

050762

047732

050344
050346
050352
050354
050360
050362
050370
050376
050404
050412
050414
050420

PC,a#READ

BEQ
SUB
CLR
MOV

001126

050762

JSR

JSR
181

050762

047736
001124
050762

JSR

6%:

11:11

JSR

050530

051520
000005
000006
050764

MACY11

READ

R2
12%
O#RSYNC,a#WORD
READ
PC,

;SAVE DATA SYNC.

;READ HEADER GAP

;1S S HEADER GAP ZEROS COMPLETE
:1F NOT BRANCH
;SYNC WORD
sREAD HEADER (DATA) SYN()
;1F

NOT ERROR COMMAND BRAN(H

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CZRJGD. P11
10584

10585

10586
10587
10588
10589

10590
10591
10592
10593
10594
10595
10596

050462
050466
050470
050472
050476
050500
050506
050514
050522
050522
050524

032710

MACY 1

30A(1052)

10=-SEP=79
DISK SIMULATION

BIT

001000
001000

000006
047720
104002

16%:

047736
001124
047634

17%:
13%:

BEQ
BR
BIT
BNE
MOV

MOV
MOV

MOV
RTS

11:11

PAGE 240

#DTSY,aR0
13%
17%
#¥DTSY,
QRO
13%
¥6 ,a¥#ERWORD

SEQ 0239

;SYNC. DETECTED
;1F ZERO BRANCH OUT
;1F NOT ZERG BRANCH TO ERROR
:SYNC. DETECTED?
;BRANCH IF YES
;ERROR WORD NO.

@#RSYNC ,a#$GDDAT; SYNC WORD
#1064002 ,a#HEDSYN

(?P)’.R\

;:POP STACK

INTO R1

CZRJIGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJIGD.PI

MACY11

30A(1052)
10-SEP=79
DISK SIMULATION

11:11

]

PAGE 24!

SEQ 0240

10597

10598
10599
10600
10601

10602
10603

':'"'"'"'"""'"""""'"'""".""""'C""."""."'

“*READ ONE WORD IN '‘WORD"

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

10632
10633
10634
10635
10636
10637
10638
10639
10640
10641
10642
10643
10644
10645
10646
10647
10648
10649
10650
10651
10652

:;""""'."""I"".""""""'"'."Q'.'t""'.""""."

050526
050530

050532
050532
050534
050540
050544
050550
050552
050556
050562
050566
050572
050574
050600
050602
050610
050612
050616
050622
050626

050630
050634
050636
050642
050644
050650
050654
050660
050664
050666
050672
050674
050702
050704
050710
050714
050720
050722

000000
000000

WORD:

COMPA:

0
0

READ:

2705

MOV
MOV
MOV
ROR

000002
000001
050526
000020
000007
000012
045432

1%:

000020
177777

045424

0465424
000001
050526

2%:

045444
045462
000002
045432

3%:

012716

000021

045424

aR)

aRO

CLR

afECDATA

ANTSECCG

#MRD ,aR0

#-1,9¥ECDATA

;sPUSH R2 ON STACK
;WORD COUNTER

;SET DIAG. MODE
sCHECKING IF THERE IS A ONE
:1F NO ONE BRANCH
;SET BIT & IF DATA HAS ONE
;BYTE COUNTER
sSET CLOCK,DATA

aR0

;ECC DATABIT IS A O
;KEEP ONLY

sCHECKING

MOV
MOV
181

#MRD !DMD,

(SP)
;PUT

BEQ
INC
JSR
B1S
181

CLR

MOV
ROR

BCC

MOV

(SP)+,
QRO
a¥TSECCG

a#DATENV
PC,a#ECTEST
#MCLK,
QRO
ngSEC(G

$
#MRD ,aR0
7%
#-1,a0ECDATA

8%
afECDATA

#DMD,

=(SP)

a#WORD
4%
#MRD !DMD, (SP)

SECTOR

:BRANCH

a#WORD

ANY,

;BRANCH IF DATA BIT IS 0
sECC DATA BIT IS A ONE

#DMD,

-(SP)

;1S THIS BIT TO GENERATE AND TEST ECC
:BRANCH 1F NO
;1S DATA BIT A ONE

MOV
ROR

MOV

7%:
8%:

#DMD,
a#WORD
1%
#MRD,

FMSTCK!MCLK,

BEQ
Bl
BEQ

000020

BIS
151
BEQ
BIT
BEQ

BCC

045432

045424
000001
050526

MOV

5%:
6%:

000021

177777

BCC
BIS

R2,=(SP)

DIAG.

MODE

THERE

:1F NO ONE BRANCH

IS A ONE

;KEEP DATA AND DIAG. MODE
IN DATA RESET CLOCK, SECTOR

;15 ECC TO BE GENERATED FOR THIS BIT
:BRANCH IF NO
:NUMBER OF

CLOCKS GIVEN FOR DATA ENVELCPE

;GO TO GENERATE AND TEST ECC
;SET CLOCK
;1S THIS BIT TO GENERATE ECC
;BRANCH I1F NO
;1S DATA BIT A ONE

;BRANCH IF DATA BIT IS = 0
;ECC DATA BIT
;BRANCH

IS A ONE

;ECC DATA BIT IS = 0
;KEEP DIAG. MODE
sCHECKING

THERE

1S A ONE

;BRANCH IF NO ONE
;KEEP DIAG. MCDE AND DATA

CZRJGDO,RPO4/5/6 DSKLS CTRLRI]

CZRJGD.P1I
10653
10654
10655
10656
10657
10658
10659
10660
10661
10662
10663

10664
10665

050726
050730
050734
050736
050742
050746
050750
050752
050754
050756
050760

10-SEP=-79 11:00

012610
005737
001404
005237
004737
005302
001341
005305
001300
012602
000207

045432

045444
045462

MACY11

30A(1052)
10-SEP=-79
DISK SIMULATION
4%:

9%:

MOv
151

BEQ
INC
JSR
DEC
BNE
DEC

BNE

MOv
RTS

11:11

M o

PAGE 242

SEQ 0241

(SP)+,
@aRO
¥ TSECCG
9y
a#DATENV
PC,AWNECTEST
R2

:SET DATA, DIAG. MODE, CLEAR (CLOCK

RS
1%
(SP)+ ,R?

sWORD COUNTER

;1S THIS BIT T0 GENERATE ECC
sBRANCH IF NO
;NUMBER OF

smarc o s

CLOCKS GIVEN FOR DATA ENVELOPE

;G0 TO GENERATE AND TEST ECC
;BYTE COUNTER
;BRANCH 1F ONE BYTE NOT COMPLETE
:BRANCH IF ONE WORD NOT (OMPLETE
;;POP STACK INTO R2

CIRJGDO,RPO4/S5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CIRJGD.P11

050764
050764
050766
050770
050772
050774
051000

000000

WWORD:

WRITE:

010046
010246

PAGE 243

SEQ 0242

RN R R R RN R R R RN R AN PR R C R R RN AR N R PR RRRRRRERRNRRRNRRERPRORRROROPRORTRORTERTY

1%:

045424

000001

3%:

045444
045462

Ao SANO
oo

000002
000040

001404

005237

4%:

5%:

000001
045432

6%:

045444

MOV
181

3%
O¥ECDATA
R3
#DMD ,aR0

AN TSECCG
4%
a#DATENV
PC,a#ECTEST
#MCLK QR0
#MWR,aR0

MOV

#-1,9#ECDATA

BEQ
INC
JSR
BIS

SEC
ROR

065424

ROR

BR
CLR
CLC
ROR

BR
CLR
(LC

ROR
MOv
187

BEQ
INC

;:PUSH RO ON STA(K

;;PUSH R2 ON STACK
::PUSH R3 ON STACK
:sPUSH RS ON STACK

;WORD COUNTER
;SET DIAG. MODE

:RO HAS RHMR ADDRESS

"7 ,R2
:BYTE COUNTER
#MSTCK!MCLKIDMD
,@RO; SET SECTOR AND CLOCK
#MUR ,aR0
sCHECK WRITE BIT IN MAINT.
#-1,aNECDATA

BEQ

045424

RO,=(SP)
R2,=(SP)
R3,=(SP)
RS,=(SP)
#2,R5
#1,aR0

MOV

SEC

2%:

045432

MOV
MOV

BIT
BEQ

045424

177777

MOV
MOV
MOV
MOV
MOV

000007
000013
000040
177777

MOV

000002
000001

051004
051010
051014
051020
051022
051030
051032
051034
051036
051042
051044
051046
051052
051056
051060

—

10704
10705
10706
10707
10708
10709
10710
10711
10712
10713
10714
10715
10716
10717
10718
10719
10720
10721

050762

)

10703

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

10700
10701
10702

11:11

:*WRITE ONE WORD WHICH COMES BACK IN "WWORD'

S NWWNINON)
= -

10699

30A(1052)
10-SEP=-79
DISK SIMULATION

—

10666
10667
10668
10669
10670
10671
10672
10673
10674
10675
10676
10677
10678
10679
10680
10681
10682
10683
10684
10685
10686
10687
10688
10689
10690
10691
10692
10693
10694
10695
10696
10697
10698

MACY11

a¥ECDATA

R3
#DMD,
RO
¥ TSECCG
7%
a#DATENV

:BRANCH IF ZERO
;ECC DATA BIT IS A ONE
:SET CARRY

REG.

;MOVE 1 FORWARD

;ECC DATA BIT IS = 0
;CLEAR CARRY
;MOVE 0 FOR WWORD
;CLEAR SECTOR AND CLOCK
;1S THIS BIT TO GENERATE ECC

;BRANCH IF NO
:NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE

;GO TO GENERATE AND TEST ECC
;SET CLOCK IN RHMR
;CHECK WRITE BIT IN RHMR
:BRANCH IF ZERO
;ECC DATA BIT IS A ONE
:SET CARRY
;MOVE 1 FOR WWORD
;ECC DATA BIT
;:CLEAR CARRY

IS ZERO

;MOVE 0 FOR WWORD
;CLEAR CLOCK

;1S THIS BIT T0 GENERATE ECC
;BRANCH

;NUMBER OF (LOCKS GIVEN FOR DATA ENVELOPE

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=-79 11:00
CZRJGD.P1
10722
10723
10724
10725
10726
10727
10728

10729
10730
10731
10732
10733
10734
10735
10736

051144
051150
051152
051154
051156

004737
005302
001346
005305
001312

045462

051160

010337

050762

051164
051166
051170
051172
051174

012605
012603
012602
012600
000207

MACY11

30A(1052)
10-SEP=79
DISK SIMULATION

7%:

11:11

3
PAGE 244

SEQ 0243

JSR
DEC
BNE
DEC
BNE

PC,a#ECTEST
R2
4%
RS
%

;GO TO GENERATE AND TEST ECC
;COUNT FOR BYTE END
;1F NOT BYTE END BRANCH
;COUNT FOR WORD END
;1F NOT WORD END BRANCH

MOov

R3,3#WWORD

;STORE THE WORD

MOV
MOv
MOV
MOV
RTS

(SP)+,RS
(SP)+ ,R3
(SP)+,R2
(SP)+ RO

:;POP STACK INTO RS

::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK

INTO RO

MACY11

CIRJIGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CIRJGD.P1Y

30A(1052)
10-SEP=-79
DISK SIMULATION

11:1

PAGE 245

SEQ 0244

10737
10738
10739
10740
10741

» '."""""""""".'"""""I"'t""."""'"""'l""

'URIYE DATA = PUT DATA INTO "DISK'* AREA FROM "‘WWORD"

10742
10743
10744
10745
10746
10747
10748

;*ONE WORD AT A TIME

"ll'."""""'"'."""""""'".""""'."0"'.""'."'

10749
10750

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

051176
051200
051202
051204
051204
051210
051212

COUNTD:

000000
000400
000000

011137
012102
012137

: 0
IWORDS

WRDATA:

051176

050530

051216
051220
051222
051224
051226

051230
051234
051240
051244
051246
051250
051254
051260
051264
051270
051272
051276
051300
051306
051312
051316
051322
051324
051326
051330
051332
051336
051342
051344
051346
051352
051356

00001
05254
17777

1%:

001660
051200
051176
051202

177777

051534
050764
050762

MOV
MOV
MOV

(R1),a#COUNTD
(R1)+,R2
(R1)+,2#COMPA

;STORE NO. OF WORDS TO BE WRITTEN
:SAME IN R?
: COMPARE OR NOT

MOV
MOov
MOV
MOV
Mov

RO,=(SP)
R1,=(SP)
R2,=(SP)
R3,=(SP)
R& ,=(SP)

;:sPUSH RO ON STACK

#14. ,R1

sNO. OF TOLERANCE GAP WORDS

MOV
MOV
MOV

DEC
BNE

MOV
MOV

SUB

MOV
MOV

002024

012701
004737

FORMAT: 256.

~Nrhoo

10751
10752
10753
10754
10755
10756
10757
10758

187

045432

BEQ

7%:
2%:

#T10LGAP,R3
#-1,(R3)+
R1
1%

a#RHMR, RO
o#FORMAT,-(SP)
o#COUNTD, (SP)

(SP) ,a#ZWORDS
(SP)+ R4
ONTSECC

MOv
MOV

#-1,9#TSECCG

MOV

o#WWORD, (R3)+

JSR

#DISK,R3
PC,a#WRITE

::PUSH R1 ON STACK
;:PUSH R2 ON STACK

::PUSH R3 ON STACK

::PUSH R4 ON STACK

;START OF TOLERANCE GAP TABLE
sMAKE 11 177777

;1S 14 COMPLETED
:1F NO BRANCH
;RO CONTAINS MAINTANENCE REG.
;NO. OF

ZERO WORDS TO BE WRITTEN

;1S THIS AN ECC TEST ?
;BRANCH I1F NO
;THESE BITS ARE TO GENERATE EC(C

;ADDRESS THE ''DiSK'' AREA
;WRITE

INTO "‘WWORD"'

;STORE ON SIMULATED DISK
;COUNT DOWN
;CONTINUE IF ALL WORDS NOT WRITTEN
;ANY ZEROS TO BE WRITTEN ?

MOV

O¥WWORD,(R3)+

;WRITE ZEROS INTO "'WWORD"
:STORE INTO "'DISK"

MOV

ONT1SECCE
#2,R1
PC,WRITE

050764
050762

3%:

DEC
BNE
181
BEQ
JSR

045432
000002
050764

4%:

DEC
BNE
(LR

5%:

JSR

4%
PC,af#WRITE

;BRANCH IF NONE TO BE WRITTEN

:NO MORE ECC

TO BE GENERATED

;WRITE ECCT AND ECC2 ON SIMULATED DISK

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CZIRJGD.P11
10793
10794
10795
10796
10797
10798
10799
10800
10801
10802
10803
10804
10805
10806
10807
10808
10809
10810
10811
10812

013723

050762

MACY11

10-SEP=79
30A(1052)
DISK SIMULATION

9#WWORD, (R3)+

051362
051366
051370
051372
051376
051402
051406
051412
051416
051420

005301
001372
004737
013723
012701
004737
013723
005301
001372

051422
051424
051426
051430
051432

012604
012603
012602
012601
012600

MOV
MOV
MOV
MOV
MOV

(SP)+,R3
(SP)+,R2
(SP)+ ,R1

051434

000201

RTS

050764
050762
000016
050764
050762

MOV

DEC
BNE
JSR
MOV

MOV

JSR

MOV

DEC
BNE

n3
11:11
PAGE 246

PC,WRITE

¥WWORD, (R3) +
s, R1
PC,afWRITE

9¥WWORD, (R3)+
R1
6%

(SP)+,R4

(SP)+,RO

SEQ 0245

;STORE ON WEEC1 AND WEEC2
;WRITE DATA GAP INTO '"‘WWORD"'

;STORE INTO "'DISK"

;WRITE TOLERANCE GAP ZEROS
;STORE INTO ''DISK"’

;:POP
:;POP
;:POP
;:POP

STACK
STACK
STACK
STACK

INTO Ré

INTO R3
INTO R?

::POP STACK INTO RO

CIZRJIGDO,RPO4/S5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD.P1

MACY11

30A(1052)
10=-SEP=79
DISK SIMULATION

11:11

3
PAGE 247

SEQ 0246

ALAAAARAARRRR Rl
d A

T*WRITE MEADER AND DATA
-0

;*THIS 1S THE SIMULATED DISK
;*ONLY ONE SECTOR OF SPACE IS ALLOWED

::.l"t.""'"".""Q"""""'.""'..."Q".it't"..""""

000001
000016

SILOTB:
DISK:
WECCT:
WEC(c:
DTAGAP:
TOLGAP:

.BLKW
.BLKW

.BLKW
.BLKW
.BLKW

;SECTOR GAP 38 BYTES OF

56.

sSECTOR GAP 1 BYTE OF O ONE SYNC BYTE
:HEADER = CYL,
s CRC

— AN ced B

HDWSYN:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

it e N

000400
000001
000001

SECGAP:
WSSYNC:
HEADER:
WCRC:
HEGAP:

000023
000001
000004
000001
000005
000001

—

10843
10844
10845
10846

051436
051504
051506
051516
051520
051532
051534
051534
052534
052536
052540
052542

SECTOR/TRACK,

KEY1,

KEYZ

:HEADER GAP 10 BYTES OF 0
sHEADER GAP 1 BYTE OF O ONE SYNC. BYTE
;USED IN SILO TEST AS SILO TABLE
g

:DATA SPACE

RLLY
JECC2
;DATA GAP 2 BYTES OF 0

:TOLERANCE GAP 28 BYTES OF

MACY11

10847
10848
10849
10850
10851
10852
10853
10854
10855
10856
10857
10858

&
PAGE 248

SEQ 0247

R R R RN R R R R R RN RN NN R RN R RPN RERRNRRRRRRRRARRRRRRRRRRRORROERROERRRRERREY

;**THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES

;**]T ISSUES DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE
;t"GO'

BIT

;**]T THEN CALL THREE OTHER SUBROUTINES, WHICH IN TURN CALL OTHER
THESE ARE:
s **SUBROUTINES.
M

10867

10881
10882
10883
10884
10885
10886
10887
10888
10889
10890
10891
10892
10893
10894
10895
10896
10897
10898
10899
10900
10901
10902

:*WRITE HEADER AND DATA

10865
10866

10877
10878
10879
10880

11:11

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

10859
10860
10861
10862
10863
10864

10868
10869
10870
10871
10872
10873
10874
10875
10876

30A(1052)
10-SEP=-79
DISK SIMULATION

052576
052600
052604
052612
052614
052616
052620
052622
052624

002014
000004

052626
052634
052642
052650

052777

000001
000004
000004
000001

052656

012737

000113

052664
052670

005337
001375

052576

052672
052676
052702

013746
042716
012637

052706
052712

004137
000000

002014

SEARCH
WRHEAD
WRDATA

RNCTR1: .WORD
COMWHD: MOv
SUB
MOV
MOV
MOV
MOV
MOv
MOV

MoV

BIS
BIC
BIS

;'RUN' LINE STALL COUNTER

¥4 ,ANPCJISR
RO,=(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)

:SAVE PC OF JSR
:;PUSH RO ON STACK
;;PUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK

RS5,=(SP)

:sPUSH RS ON STACK

(SP) ,a#PCJSR

R4 ,=(SP)

:SAVE PC OF

JSR + &

::PUSH R4 ON STACK

#DMD ,aRHMR

:SET DIAGNOSTIC MODE

#MINX,3RHMR

;CLEAR

#MINX,QRHMR

#GO,aRHCST

:SET

DIAGNOSTIC

;SET

'GO' BIT & STALL

INDEX

'TILL

°'RUN'

RNWAT1: MOV

#75. ,9#RNCTRI

1%:

DEC
BNE

A#RNCTRY

052756

MOV

052712

ONWSECTR,=(SP)
#177740,(SP)

MOV

(SP)+ ,aMTRK

;GET DESIRED SECTOR/TRACK
;MAKE ONLY SECTOR

053664

JSR
.WORD

R1,3#SEARCH

;1SSUE SECTOR CLOCKS <======ee==a= >

052576

177740

B1C

WIRK:

;LOAD STALL COUNTER = APPROX. &50US

;FOR 11/50 CPU WITH CORE MEMORY
;COUNT DOWN 1

TIME

;CONTINUE UNTIL O

: SAVE

SECTOR

;SECTOR NO.

r\r\41

CIRJGDO,RPOL/5/6 DSKLS CTRLR!
10-SEP=-79 11:00
(ZRJGD.P1Y

052750
052754
052756
052760
052762
052764

30A(10 32)
10-SEP=79
DISK SIFULATION

NNNNNN
-

P
——

MACY11

NN
W WNWO

[
OCOoOO0OoOoON

OCOO0O0O0O0O

10903
10904
10905

KLS CTRLR]
P=79 11:00

7 LM

CZRJIGDO,RPO4/S /6
10CIZRJGD.P11

MOV
MOV
MOV
MOV
MOV
MOV
MOV

JSR
WwiyL:
0
WSECTR: 0

000000

WKEY1:
WKEYZ2:
GCRC:

O
0

11:11

SEQ 0248

#+NOP R

;GOING TO MOVE NOPS

R1,3/WRHEAD

:WRITE

R1,3#SEGPER
R1,3#FSYNER
R1,37ERHEAD
R1,37ERCRC
R1,37ERHDGP
R1,3#HDESYN

INTO SEGAP
INTP FSYNER
INTO ERHEAD
INTO ERCRC
INTO ERHDGAP
INTO HDESYN

:NOP
;NOP
;NOP
;NOP
:NOP
;NOP

THE HEADER (===cecccccccccna >

sCYLINDER
:SECTOR AND TRACK
SKEY

JKEY2

;600D CRC

; *DUMMY ERROR CALL LOCATIONS FOR THE WRITE HEADER OPERATION
052766

000240

SEGPER:

NOP

;1F ""ERROR 6'' INSERTED BY

;WRHEAD SUBROUTINE THEN
:SECTOR GAP GOING ON DISK
;1S NOT RIGHT.

;WORD NO. CONTAINS WHICH
;WORD IS WRONG, THAT IS
;FIRST OF

TENTH OR WHAT

EVER NO.

;:BAD WORD IS GOING ON DISK
052770

000240

FSYNER:

NOP

:1F "'ERROR 6'' INSERTED BY

;WRHEAD SUBROUTINE THEN
;THE LAST 0 BYTE OF SECTOR

;:GAP, OR FIRST SYNC. BYTE
;AFTER SECTOR GAP
;ERROR.

;WORD NO. CONTAINS 20
sRIGHT BYTE 1S SECTOR GAP
sLEFT BYTE IS SYNC. BYTE
:g?g WORD IS WHAT IS GOING ON
2

052772

000240

ERHEAD:

NOP

;1F "ERROR 6'' INSERTED BY
;WRHEAD SUBROUTINE

THEN

;HEADER GOING ON DISK
;1S WRONG.

sWORD NO 1 = CYLINDER NO
;WORD NO 2 = SECTOR/TRACK
;WORD NO 3 = KEYI

;WORD NO 4 = KEY?
:g?g WORD IS WHAT IS GOING ON
2

052774

000240

ERCRC:

NOP

;1F "'ERROR 6'' INSERTED BY
;WRHEAD SUBROUTINE

THEN (RC WRITTEN

&
C
PAGE 249

10959
10960
10961
10962
10963
10964
10965
10966
10967
10968
10969
10970
10971
10972
10973
10974
}83;5
6

10977

10978

MACY11

30A(1052)
10-SEP=79
DISK SIMULATION

11:11

PAGE 250

SEQ 0249

;ON DISK

052776

000240

IS IN ERROR.

;GO0D DATA 1S WHAT SHOULD BE ON DISK
;BAD DATA IS WHAT IS GOING ON DISK
;WORD NO IS 5.

ERHDGP: NOP

;1F "ERROR 6'' INSERTED BY
;WRHEAD SUBROUTINE THEN HEADER

sGAP GOING ON DISK

IS WRONG.

;WORD NO. GIVES WHICH OF
: THE HEADER GAP WORDS
;ARE WRONG. FOR EXAMPLE:
;WORD NO 1 = FIRST HEADER
:
GAP WORD
;BAD WORD 1S WHAT IS GOING ON DISK
053000

000240

HDESYN:

NOP

;1F "ERROR 6'' INSERTED BY

10979
10980
10981
10982

;WRHEAD SUBROUTINE THEN LAST
;HEADER GAP BYTE OR HEADER
;SYNC BYTE GOING ON DISK IS WRONG.

10983

;WORD NO = 5

10984
10985
10986
10987
10988
10989
10990
}838;

053002
053006

005737
001004

002006

ST
BNE

ANERFLGS
FOuT

;ARE ANY ERRORS DETECTED
$1F VES ER]T ecccssscessesccsesss)

10993

053010

004137

051204

JSR

R1,3#WRDATA

:WRITE THE DATA (==ecceccccccccacs

10996
10997

053020

MOV
MOV
MOV
MOV
MOV
MOV

(SP)+,RS
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO

;:POP
::POP
::POP
;:POP
;:POP
;:POP

RTS

10994
10995

10998
10999
11000
11001
11002
11883
11004

11005

;BAD DATA IS WHAT 1S GOING
;ON DISK, RIGHT BYTE 1S HEADER
;GAP 0 BYTE, LEFT BYTE 1S HEADER
:GAP SYNC.

053014
053016

000000
000000

053020
053022
053024
053026
053030
053032

012605
012604
012603
012602
012601
012600

053034

000207

FNWORD:
FOUT:

.WORD
.WORD

0
0

T
—

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.PIN
10-SEP=79 11:00

;FORMAT COMMAND NO. OF

STACK
STACK
STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO
INTO
INTO

RS
R4
R3
R?
R1
RO

DATA

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P11
10-SEP=79 11:00
11006

MACY11

30A(1052)
10-SEP=79
DISK SIMULATION

11:11

11007

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

11008

;*WRITE HEADER

1‘009

11010
11011
11012
11013
11014
11015
11016
11017
11018
11019
11020
11021
11022
11023
11026
11025
11026
11027
11028
11029
11030
11031
11032
11033
11034
11035
11036

11037
11038
11039
11040
110641
11042
11043
11044
11045

11046

11047

11048
11049
11050
11051
11052
11053
11056
11055
11056
11057
11058
11059
11060
11061

&
PAGE 251

SEQ 0250

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

:*RO
;*R1
;:*R2
;*R3
;*R5

053036
053040
053042
053044
053046

000000
000000
000000
000000
000000

053050
053054
053060
053064
053070
053074
053076

012137
012137
012137
012137
012137
010146
012701

053102
053106
053112
053116
053122
053126
053132
053134
053136

053140

053142

053144
053146
053152
053156
053162
053166
053170
053172
053174
053176
053200
053202
053206
053210

013700
012710
012705
052710
012710
032710
001403
000261
006003

053036
053040
053042
053044
053046

000013

000040

000402

000241

006003
012710
012702
052710
032710
001403
000261
006003
000402
000241
006003
012710
005302
001362

0
0
0
0
0

WRHEAD:

MOV
MOV
MOV
MOv
MOV
MOV
MOV

1%:

2%:

000001
000007
000002
000040

3%:
6%:

5%:

000001

MAINT.REG.
SIMULATED DISK
BYTE COUNT
WRITE WORD
WORD COUNT

sCvyL:
SSECTR:
SKEY1:
SKEY2:
SCRC:

051436
001660
000001

000002
000010

=
=
=
=
=

6%:

MOv
MOV
MOV
BIS
MOV
BIT
BEQ
SEC
ROR

BR
CLC
ROR
MOV
MOV
BIS
BIT
BEQ
SEC
ROR
BR
(LC
ROR
MOV
DEC
BNE

:
:
:
:
(R1)+,ansSCYL
(R1)+ Q#SSECTR
(R1)+ ,QNSKEY]
(R1)+ ,9#SKEY2
(R1)+,a#SCRC
R1,-(SP)
#SECGAP R

;:PUSH R1 ON STACK
:SIMULATED DISK INDICATOR
;RO NOW HAS MAINT. REG. ADDR.
;SET DIAG. MODE IN RHMR

9/RHMR ,RO
#DMD ,aR0
#2,RS
:WORD COUNTER
#MSTCK,aR0
;SET SECTOR FOR FIRST BYTE
#MSTCK!MCLK!DMD,aRO;SET SECTOR, CLOCK, DIAG. MODE, RESET
#MWR ,aR0
;CHECK WRITE BIT IN MAINT. REG.
2%
:SET CARRY
R3
:MOVE ONE FORWARD

R3
#DMD,aR0
"7 ,R2
#MCLK ,aR0
#MUR ,aR0
5%

R3
6%
R3
#DMD ,aR0
R2
6%

:
:CLEAR CARRY
;MOVE ZERC FORWARD
;CLEAR CLOCK, SECTOR
;:BYTE COUNTER
;SET CLOCK
;CHECK WRITE BIT IN MAINT.REG.
;BRANCH IF ZERO
:SET CARRY
;MOVE ONE FORWARD

:SET DIAG. MODE AGAIN IN RHMR

INDEX

CZRJGDO,RPO4/5/6 DSKLS CTRLRI]
10-SEP=79 11:00
CZRJGD.P11

—— —

11062
11063
11064
11065

0
0

072
0
0 74

0 75
076

077

079
080
081
082
083
085
086

30A(1052)
10-SEP-79
DISK SIMULATION

005305
001342

DEC
BNE

RS
%

010321
005703

MOV
181

R3,(R1)+
R3

MOV

#1,9¥#ERWORD

000001
001124
001126
104006

053250

053656

053254
053260
053266
053272
053276
053300
053304
053310
053316

000022
000024
050764
050762
047736
001124
050762

104006

053324

053326
053330

BEQ

047736
052766

047736

7%:
10%:

001126
052766

005302
001353

11%:

PAGE 252

SEQ 0251

; CONTINUE

(LR
MOv

a¥$GDDAT
R3,a#$BDDAT

JMP

arn7s

sORANCN QU1 ssesasessssssnesscnnen >

MOv

#18.,R2

;COUNT NO. OF

SuB
CLR

MOV

MOV
BR

R2 ,a#ERWORD
;1F NOT GET ERROR WORD NO.
a¥$GDDAT
:GOOD WORD
a#WWORD ,a#$BDDAT ;BAD WORD
#104006,a#SEGPER;
STORE "'ERROR 6'' IN SEGPER
178
:BRANCH QUT =====memcemccmccccaaaan >

DEC
BNE

R2
108

;:*AT

THIS POINT

MOV

MOv
JSR
ggx

#104006,3#SEGPER

#20.,a#ERWORD
PC,a#WRITE
?::HORD,(R1)0

;*BE HIGH.
;*HOWEVER

;COUNT
;WRITE
;STORE

SECTOR GAP

TO GIVE ERROR WORD
SECTOR GAP
SECTOR GAP WORD

;HAVE 18 WORDS OF
:1F NOT DO SO
THE

SECTOR

FOUND FLOP

ZEROS BEEN WRITTEN ?

SHOULD

SO THAT THE HEADER SYNC BYTE CAN BE GIVEN

IN THE DRIVE

TIMING ERROR TEST

THE

;*1S ABORTED = HEADER SYNC BYTE IS NOT GIVEN

THE

ROUTINE

005737
001147
004737

002026

050764

BNE
JSR

053344
053350
053354
053356
053364
053372
053376
053404

050762
047720

MOv
CMP

d#WWORD, (R1)
I¥RSYNC,(R1)+

MOV
MOV
MOV

#20.,9#ERWORD
;IF NOT GET READY FOR ERROR
@#RSYNC,a¥#$GDDAT;
GOOD WORD
-(R1),a#$BDDAT
:BAD WORD

178

:BRANCH OUT =======cemceomocccnoaaanas >

00000«
053036
000005
050764
050762

MOV

"4 ,R2

:FOUR HEADER WORDS

BEQ

14%

:1F GOOD CONTINUE
;1F NOT GET READY FOR PRINT
:WORD NO
;GOOD DATA

000024
047720
001126

104006

NN
NNN

053440
053444
053450

053406
053412
053416
053424
053430
053434
053436

elelolelelele Nelelelelelole]
Ottt
s OV

053332
053336
053340

B NNNNES
-

REST OF

a gy yNWNN

AR
A

—————————

st
il il il il s D s it ) il it i it
OO0

11:11

05
05

OOOOO
-ttt s st 2 QOO OOOOOOO
0O VO OO OO OO O
00
NV
W= OO0
NO VS W =00 XN VNS WN—-=O

078

MACYT1

047736
001124
001126

181

BEQ

047736
001124

MOV

052770
12%:

047736

13%:

MOV
MOV
JSR
MOV
(MP

SUB
MOv
MOV

O¥TESDTE

17%
PC,a3#WRITE

12%

:1S THIS A DRIVE

TIMING ERROR

:BRANCH OUT IF YES
;WRITE ONE SECTOR GAP 0 BYTE

;AND ONE SYNC. BYTE = 230

;SAVE O BYTE AND SYNC BYTE
:1F SYNC. BYTE RIGHT

;1F

YES BRANCH

#104006,2#F
SYNER; INSERT "'ERROR 6'* IN FSYNER

#SCYL,R3
#5, 3MERWORD
PC.aNWRITE
@#WWORD,(R1)
(R3)+, (R1)+

R2,a#ERWORD
-(R3),a#8GDDAT
-=(R1),a#%BDDAT

:POINTER FOR HEADER TABLE
:ERROR WORD NO SET
:WRITE & HEADER WORDS
:STORE WRITTEN WORD
1S 1T RIGHT?

;BAD DATA

OOV

NO VSR W= OO0V

NO NS W

=000~

V‘V‘V‘g

0,RP04/5/6 DSKLS CTRLR1
P11
10-SEP=79 11:00
053454
053462

012737
000475

053464
053466
053470
053474
053500
053504
053506
053512
053520
053526
053534

005302
001353
004737
013711
022137
001414
014137
013737
012737
012737
000450

053536
053542
053550
053554
053560
053562
053566
053572
053576
053604

012702
012737
004737
013721
001412
160237
005037
014137
012737
000424

053606
053610
053612
053616
053622
053626
053630
053636
053642

005302
001354
004 37
013/11
023721
001413
012737
014137
013737

053650
053656

012737

053656

012601

053660

000201

104006

052772

MOV
BR

#104006,a#ERHEAD; INSERT "'ERROR 6''
178
T L

DEC
BNE
JSR
MOV
CMpP
BEQ
MOV
MOV
MOV
MOV
BR

R2
138
PC,aNWRITE
@#WWORD,(R1)
(R1)+ ,a#GCRC
208
=(R1) ,a#$BDDATA
o#GCRC,a#S$GDDAT
#5,3FERWORD
#104006,a#ERCRC
178

208:
15%:

MOV
MOV
JSR
MOV
BEQ
SUB
(LR
MOV
MOV
BR

#5,R2
:NO OF HEADER GAP
#6,a/ERWORD
;ERROR WORD NO SET
PC,a#WRITE
sWRITE HEADER GAP
@FWWORD,(R1)+
:STORE
16%
;1F GOOD BRANCH
R2 ,a#ERWORD
sERROR WORD NO
a¥$GDDAT
;GOOD DATA
=-(R1),a#$BDDAT
:BAD DATA
#104006,9#ERHDGP;
STORE "'ERROR 6''
178
LT T
] A —————— >

16%:

DEC
BNE
JSR
MOV
CMP
BEQ
MOV
MOV
MOV

R2
sARE S HEADER GAP ZEROS
DONE
158
“1F NOT BRANCH
PC,a#wRITE
afWWORD, (R1)
@#RSYNC,(R1)+
17%
tEX]T eccssccacccecccscssscsnccccces >
#5,3#ERWORD
=(R1) ,a#$BDDAT
@#RSYNC,a#$GDDAT

MOV

(SP)+ ,R1

050764
050762
052764
001126
052764
000005
104006

000005
000006
050764
050762
047736
001124
001126
104006

00112¢
047736
052774

047736

052776

050764
050762
047720
000005
001126
047720

104006

30A(1052)
10-SEP=79
DISK SIMULATION

14%:

047736
001124

053000

MOV

17%:

11:11

MACY11

PAGE 253

sARE & HEADER WORDS DONE?
“1F NOT DO THEM
‘WRITE CRC
:STORE CRC
s COMPARE GOOD CRC
:BRANCH IF GOOD
;BAD CRC WRITTEN
;GO0D CRC
:ERROR WORD NO
: INSERT ERROR 6
{1
e

#104006.a#HDESYN

;:POP STACK INTC R1

SEQ 0252

——— >

———— >

MACY11

11:11

SEQ 0253

RO=RHMR ADDRESS
R1=PASSED ARGUMENT (SECTOR SEARCHED FOR)
R2=CLOCK COUNT (PER BYTE)

R3=SECTOR COUNTER FROM R1
R5=BYTES PER WORD COUNT

e
e
D il il il

e
ettt
D il il D Al il o

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

. il

;*BEBORE INDEX IS GIVEN TWO SECTOR CLOCKS ARE GIVEN TO RESET
;*SECTOR PULSE IN CASE IT IS SET
;*AT

BEGINNING OF

EACH SECTOR ONE

SECTOR

CLOCK

HAS

TO RISE

;*BEFORE CLOCK THEN EVERY EIGHT CLOCKS ONE SECTOR CLOCK IS
;*IDENTICAL WITH CLOCK
;*NUMBERING THE SECTOR CLOCKS AS FOLLOWS
;*THE SECTOR CLOCK UNDER INDEX = 0

;*THE NEXT - 1
;*THE NEXT
= 2

B i

S*ETC.

I
g
g
i
s

;*THEN THE LAST SECTOR CLOCK IN ONE SECTOR HAS NUMBER - 608
;*THE NEXT SECTOR THEN HAS 608 SECTOR CLOCKS

;*THE NEXT SECTOR THEN HAS ANOTHER 608 SECTOR CLOCKS
SO ON

SECTR:

R
R
o o

000000

053664

012137

053702

010546

201
202
203
204
205

206
207
208
209
21
21
21
21
21
21

O NP WN =00

[P
[P

———————————

053662

R
i
e
P
i

;*AND

053670
053672
053674
053676
053700
053704
053710
05371«
053720
053724
053730
053734

010046
010146
010246
010346
010446

013700
013703
012710
052710
042710
052710
042710

053662

SEARCH: MOV

;

001660
053662
000001
000010
000010
000010
000010

;SECTOR SEARCHED FOR
(R1)+,

Q#SECTR ;SAVE SECTOR SEARCHED FOR

RS,=-(SP)

;:PUSH RS ON STACK

MOV
MOV
MOV
MOV
MOV

RO,-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
R4 ,-(SP)

MOV
MOV
MOV
BIS
BIC
B1S
BIC

a/RHMR, RO
O#SECTR,R3
#DMD,
aR0
#MSTCK, aRO
#MSTCK, aRO
#MSTCK, aRO
#MSTCK, aRO

MOV

—9

PAGE 254

“*SEARCH SECTOR

e
I
el
I
i il i B e i

30A(1052)
10-SEP=-79
DISK SIMULATION

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

P
e
D it

OCVWOOVOOVOVOVOVO
OO
NNNNNNNNNYOT OO oo
RV
P o
NTNER NN 2O VN VR W
=00V
NOC UNER W
=00V NO VS W
=000~ (=

et
)
i
)
D il il il il il it

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
CIRJGD.P11
10-SEP=79 11:00

—

:sPUSH
::PUSH
::PUSH
::PUSH
::;PUSH

RO
R1
R2
R3
R4

ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STACK

;NOW RO HAS MAINTENANCE REG. ADR.
sSECTOR COUNTER
;SET DIAGNOSTIC MODE
JSET SECTOR CLOCK
sCLEAR SECTOR CLOCK
;SET SECTOR CLOCK
sCLEAR SECTOR CLOCK
:THE ABOVE TWO SECTOR CLOCKS ARE GIVEN FOR
JRESETING SECTOR PULSE

:IN CASE

17 STARTS SET

- o

052710
012710
005703
001461

A
——————————————
NL
L
N N N N
roNurNONUNY oo

o oo o Lo RV RV RV LW AV AV A
[+ ) NO VW —

OO@NO‘U‘I‘MN—OOOONO‘U\&VON-‘OOONK

P
e
R
————————— e
A

MACY11

30A(1052)
10-SEP-79
DISK SIMULATION

000014
000001

BIS

MOV

11:11

]

&
PAGE 255

SEQ 0254

FMINXIMSTCK,aR0O ;SET INDEX AND SECTOR CLOCK
#OMD,
aR0O
;RESET INDEX AND SECTOR CLOCK

;1F SECTOR REQUIRED JUMP OUT
;BRANCH OF SECTOR ZERO REQUIRED
;*NOW THE 304 WORDS WILL START

181
BEQ

R3
7$

:*FOR FIRST BYTE SECTOR CLOCK WILL GO HIGH THEN CLOCK WILL GO HIGH
;*BOTH WILL COME DOWN TOGETHER THEN SEVEN CLOCKS wILL BE GIVEN
;*;FOR SECOND BYTE

AND ALL OTHER BYTES

;*WiLL BE IDENTICAL WITH ONE CLOCK
:*ONE

053754
053760
053764
053770
053774
053776
054002
054006
054012
054016
054020
054022
054026
054030

012702
012705
052710
052710
000402
052710
042710
052710
042710
005302
001372
012702
005305
001362

000010
000002
000010
000002

1%:

000012
000012
000002
006002

2%:
8%:

TV et et et et D)

A e
N N
N N N N L N ST Y N N N N N L N N L N T ST ST NS L ST ST ST VT VT VT VT ¥
WWWWWWNINN
NN NN NN
- e
Al AR NE 2E ok 2E ok 2P 2F o SV TeTeT
VEWN
O OVONOVNWES WOV~

053740
053744
053750
053752

10-SEP-79 11:00

lalal

Go0,RP04/5/6 DSKLS CTRLRI]

GD.P1

"8.,
R2
",
RS
#MSTCK,aR0
#MCLK,aR0

:BYTE COUNTER
;BYTES PER WORD
sSET SECTOR CLOCK
:SET CLOCK

FMSTCK!MCLK,3R0
#MSTCK !MCLK 3RO
MCLK,
3RO
#MCLK,
aRO
R2

;SET SECTOR AND (CLOCK
;CLEAR SECTOR AND CLOCK
sSET CLOCK
;CLEAR CLOCK
:BYTE COUNTER
;BRANCH IF BYTE NOT COMPLETE
;SETUP FOR SECOND BYTE
;1S WORD COMPLETE?

054116
05«116
054120

000457
000002
000007
000012
000012
000002
000002

4%:

5%:

6%:

#303.,

;70 GIVE SECTOR CLOCK AND CLOCK

012605
012604

7%:

IDENTICAL

:WORDS PER SECTOR COUNTER

4%
#MSTCK,aR0
#MSTCK ,aR0
R3
%

(SP)+,RS

;:POP STACK

001317

AND ALL ARE

;BYTES PER WORD COUNTER
;BYTE COUNTER (CLOCK COUNTER)
:SET SECTOR CLOCK AND CLOCK
;CLEAR SECTOR CLOCK AND CLOCK
:SET CLOCK
SRESET CLOCK
;1S BYTE COMPLETE?
;BRANCH IF NOT COMPLETE
;1S WORD COMPLETE?
;BRANCH IF NOT
;1S SECTOR COMPLETE
:BRANCH IF NOT
sSET SECTOR
;CLEAR SECTOR
;1S REQUIRED NO OF SECTORS COMPLETE
;BRANCH 1F NOT

",
RS
",
R2
#MSTCK !MCLK 3RO
#MSTCK!MCLK ,aR0
MCLK,
aR0
#MCLK,
3RO
R2

6%
RS
5%

000010
000010

sBRANCH TO CLEAR SECTOR AND CLOCK

;BRANCH IF NOT COMPLETE

;*NOW 303 WORDS ARE LEFT

054032
054036
054042
054046
054052
054056
054062
054066
054070
054072
054074
054076
054100
054102
054106
054112
054114

SECTOR SECTOR CLOCK

WORD ONLY

"7,
RS

000007

TILL NEXT

(SP)+ R4

;.POP

STACK

INTO RS
INTO R4

ols

GDO,RPO4/5/6 DSKLS CTRLR1

WNWWIWNIWWWWWWIWW
W WO NN NN NN NN
VNV NN NN NNV
NNV

il i
il
il el e
D
s
il
il
il
il
s
B
il
il

i —
D
il

—

-l

il el el el

D el A

D
il
il
il
. —

il Al

D el

il il

60.P11
74
75

76
;;

056122

056126
054126

054130
054132

10-SEP-79 11:00

MACY11

30A(1052)

10-SEP=79

DISK SIMULATION

012603

012602
012601

MOV

(SP)+,R3

MOV
RTS

(SP)+,RO
R

MOV
MOV

012600
000201

11:11

(SP)+,R2
(SP)+.R1

&
PAGE 256

;;POP STACK INTO R3

::POP STACK INTO R2
::POP STACK INTO R1

::POP STACK INTO RO

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

:*READ ONE SECTOR OF

83
84

054134

000000

89
90
91
92
93
9%
95
96
97
98

054140
054144
054150
054152
054156
054160
054166

012137
012137
010146
005737
001403
012737
012702

054134
054136

012703

051534
050526

056206

01
02
03
04

05
06
07
08
09

11
}g
14

DATA

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

054136

0564172
054176
054202

054210
056212
054216
054220

056226
054230
054234
054240
056262
054264

056244
054246

RNO:

000000

012337
004737

005302

001372
005737
001012
005037

012702
012337
004737
005302
001372
012601
000201

RCOM:

002024

177777
000402

050532

045432

;NO. OF WORDS READ

:EXTRA STORAGE

REDATA: MOV
MOV
MOV
151
BEQ
MOV
18:
MOV

(R1)+,3#RNO
(R13+,3#RCOM
R1,-(SP)
IFTSECC
1%
#-1,9#TSECCG
#258. ,R2

MOV
MOV

#DISK,R3
(R3)+,aMWORD

;SAVE NO. OF WORDS ONLY FOR INFORMATION
:EXTRA WORD ONLY FOR INFORMATION
:;PUSH R1 ON STACK
;1S THIS AN ECC TEST
:BRANCH IF NO
;THESE BITS ARE TO GENERATE ECC
:256 WORDS PER SECTOR
:PLUS 2 ECC WORDS
;POINTE 1O DISK SIMULATION
:READY TO READ CONTENTS

DEC

;1S 256 WORDS DONE?

28:

002024
045432
000017
050526
050532

48:

JSR

PC,a#READ

BNE
151
BNE
(LR

2%
IMTSECC
4%
IMTSECCG

MOV
RTS

(SP)+ R
R1

MOV
MOV
JSR
DEC
BNE

#15. ,R2
(R3)+,3#WORD
PC,a#READ
R2
3%

;READ

:1F NOT BRANCH
1S THIS AN ECC TEST
:BRANCH OUT IF YES
INO MORE ECC BITS ARE T0 BE GENERATED

:ONE DATA GAP, 14 TOLERANCE GAP
:READY TO READ CONTENTS OF WORD
;READ
; COUNT
:BRANCH IF 14 NOT DONE
;:POP STACK INTO RI
:RETURN

SEQ 0255

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
CIRJGD.P11
10-SEP-79 11:00

MACY11

30A(1052)
10-SEP=79
DISK SIMULATION

11:11

—

PAGE 257

SEQ 0256

11315

11316
11317
11318
11319

054250
054250
054254

104401
000421

11322
11323
113264

054320
054320
054322
054330

104402
012777
000000

11320
11321

RPVECT:

054256

::65%:
64%:
054250

125276

TYPE
BR
_ASCIZ

,65%
;:TYPE ASCIZ STRING
64%
;.GET OVER THE ASCIZ
/UNEXPECTED RPO4 INTERRUPT @ PC = /

TYPOC
MOv
HALT

#RPVECT ,aRPVEC

;TYPE FROM P(
;RESTORE TRAP RPO4& VECTOR
; CHANGE TO CONTINUE

tEESIRENCEE AR

—_—

gpuuunvuuvunvuuuuuuufluufluunUflfluunuuuuunvuuuufluflflun
W
NN
NN NN

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP-79 11:00
CIZRJGD.P1T

MACY11

AN LA LN UM

N N NN AN NN

FEEFEFES

>
W YN NNNNNNNN
VNS WNN—=0 VN OCOWVSE W= O
OCOV®WYO
N
N - COVdNO

IV IV IV IV IV IV IV AV IV D VYO
NN S N NS
O S WO =00V~ :; VS W =00

30A(1052)
10-SEP-79
11:11
SYSMAC LIBRARY ROUTINES

SYSMAC LIBRARY ROUTINES

.SBTTL

SCOPE HANDLER ROUTINE

|
SEQ 0257

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

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

;eSW16=)
=1
;*SW1
;*SW09=1
;*SW08=1

;*CALL
:

$SCOPE:

054332
056332
054334
054340

005037
005037

047732
002024

054344

005037

045432

054350
054354
054354
054362

1046407

005037

002026

032777
00111

040000

054364

000416

054366
054372
054400
054404
054410
054412
054414
054420
054422
054422
054430
054432
054440
054442
054446
054450
054456
054460
054466
054470
054476
054500

013746
012737

005737
012637
000463
022626
012637
000423

000004
054412

177060

124556

5%:

000004
000400

124510

127737

124502

001102

105737

001103

032777
001404
001462

001421
123737
101015
032777
001404
013737
000443
105037

001115

001103

001000

124452

001110

001106

001103

;. TEST

FOR CHANGE

IN SOFT-SWR

a¥#NOSYNC

CLR

N TSECCG

;EVEN IN AN ECC

AFTESDTE

;1F =177777 GENERATE ECC
;1F =0 DO NOT GENERATE ECC
;:DRIVE TIMING ERROR TEST

#BIT14,3SWR

::LOOP ON PRESENT

CLR

MOV
MOV
TST
MOV

000004

;:SCOPE=10T

CKSWR
CLR

BIT
BNE
SHNRANST ART OF
$XTSTR: BR

000004

ARE:

LOOP ON TEST IN SWR<7:0>

(LR

1%:
1%:

THIS ROUTINE

LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR

SCOPE

B8R
CMP

MOV

;CLEAR FLAG FOR HEADER ERROR COMMANDS

afTSECC

$OVER

CODE

FOR THE

—y

PAGE 258

LSBTTL

:*THIS ROUTINE

;CLEAR FLAG FOR ECC TEST
;WHEN =177777 1T 1S AN ECC TEST
;WHEN =0 IT IS NOT AN ECC TEST

TEST EVERY CLOCK

;1S NOT TO GENERATE ECC

;:YES 1F

SW1é=1

TEST?

XOR TESTERWNNAN

SVERRVEC,=(SP)
#5%, aNERRVEC

an177060

(SP)+ ,@#ERRVEC
$SVLAD
(SP)+,(SP)+
(SP)+ ,@#ERRVEC
7%

;:1F RUNNING ON THE “'XOR'* TESTER CHANGE
::THIS INSTRUCTION TO A "'NOP'' (NOP=240)
;:SAVE THE CONTENTS OF
::SET FOR TIMEOUT

THE ERROR VECTOR

::TIME OUT ON XOR?

;;RESTORE THE ERROR VECTOR
;:G0 TO THE NEXT TEST
;;CLEAR THE STACK AFTER A TIME OuT
;:RESTORE THE ERROR VECTOR
::LOOP ON THE PRESENT TEST
CODE FOR THE XOR TESTERWNANNN
#B1T08,aSWR
::LOOP ON SPEC. TEST?

BR
6% :;#ANENEND OF
BIT
2%
BEQ
(MPB
ASWR,STSTNM
$OVER
BEQ
$ERFLG
2%:
1S1B
3%
BEQ
SERMAX ,SERFLG
(MPB
1%
BHI
#B1109,aSWR
BIT
4%
BEQ
:5P§:R,$LPADR
7%:
MOV
V
BR
4%:
$ERFLG
CLRB

::BR 1F NO
ssON THE RIGHT TEST?

SWR<7:0>

;:BR IF YES
:;HAS AN ERROR OCCURRED?
;:BR IF NO
:sMAX. ERRORS FOR THIS TEST OCCURRED?
::BR IF NO
;:LO0P ON ERROR?
;:BR IF NO
::SET LOOP ADDRESS TO LAST SCOPE
::LERD THE ERROR FLAG

CIRJGDO,RPO4/5/6 DSKLS CTRLRT
CZRJGD.P11
10-SEP=-79 11:00
11381
11382
11383
11384
11385
11386
11387
11388
11389
11390
11391
11392
11393
11394
11395
11396
11397

054504
054510
054512
054520
054522
054526
054530
054534
054542
054544
054552
054560
054564
054570
054574

005037
000415
032777
001011
005737
001406
005237
023737
002021
012737
013737
105237
011637
011637
005037

001212

11399
11400

054614

054620
054622

013716

001106

11398

054600
054606

112737
013777
000002
000004

004000

MACY11

124420

001100
001104
001212
000001
054622
001102
001106
001110
001214
000001
001102

001104
001104
001212

001115
124326

30A(1052)
10-SEP-79
11:11
SCOPE HANDLER ROUTINE
CLR
BR
38:
BIT
BNE
1871
BEQ
INC
CMP
BGE
1%:
MOV
MOV
$SVLAD: INCB
MOov
MOV
CLR
MOVB
S$OVER:
MOV

MOV

SMXCNT:

RTI
&

PAGE 259

SEQ 0258

S$TIMES
1%
#BIT11,3SWR
1%
$PASS
1%
$1CNT
STIMES,SICNT
SOVER
#1,81CNT
SMXCNT,STIMES
STSTNM
(SP) ,SLPADR
(SP) ,SLPERR
SESCAPE

;;CLEAR THE NUMBER OF ITERATIONS TO MAKE
;;ESCAPE TO THE NEXT TEST
s INHIBIT ITERATIONS?
::BR IF YES
::1F FIRST PASS OF PROGRAM
:s
INHIBIT ITERATIONS
;s INCREMENT ITERATION COUNT
;s CHECK THE NUMBER OF ITERATIONS MADE
::BR IF MORE ITERATION REQUIRED
;REINITIALIZE THE ITERATION COUNTER
;;SET NUMBER OF ITERATIONS TO DO
: ;COUNT TEST NUMBERS
;s SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS
;:CLEAR THE ESCAPE FROM ERROR ADDRESS
#1,SERMAX
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
$STSTNM, QDISPLAY ;;DISPLAY TEST NUMBER

$LPADR, (SP)

;:FUDGE RETURN ADDRESS
;s FIXES PS
;sMAX. NUMBER OF

ITERATIONS

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=79 11:00
CZRJGD.P11

MACY11

11401
11402
11403
11404
11405
11406

&
N
30A(1052)
10-SEP=79
11:11
PAGE 260
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

.SBTTL
AL AAAAA

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
A

AR ARttt
llll)

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
s *NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

s*REPLACED WITH SPACES.
s*CALL:

1
OCOVENOWVIW
—

i
il
s
il
i
i
i
i

bbbbl‘bbl‘fi
PON)
= i ad ad s

622

1624
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435

SEQ 0259

054624
054624
054626
054630
054632
054634
054636
054642
054646

054650

054652
054660

054662
054666
054672
054674
054700
054702
054704
054706
054710
054712
054714

054716
054720
054722
054724
054726

054734
054740
054744
054746
054750
054754
054756
054760
054762
054764
054766
054770
054776
055000
055002
055004

010046
010146
010246
010346
010546

012746
016605
100004

005405
112766
005000
012703
112723
005002
016001
160105

$TYPDS:

000001

055040
000040

3%:

002402
005202
000774
060105
005702
001002
105716

100407
106316
103003
116663

052702
052702

110223

005720
020027
002746
003002
010502
000764

105726
100003
116663
105013

012605
012603
012602

1%:

2%:

055030

4%:

5%:

000001
000060
000040

177777

6%:

7%:

000010

8%:
177777

177776

NUM,=(SP)

::PUT THE BINARY NUMBER ON THE STACK
;:G0 TO THE ROUTINE

MOV
MoV

RO,=(SP)
R1,-(SP)

R2,=(SP)
R3,=(SP)
R5,=(SP)
#20200,=-(SP)
gg(SP).RS

::sPUSH RO ON STACK
::PUSH R1 ON STACK
;:PUSH R2 ON STACK
:;PUSH R3 ON STACK
::PUSH R5 ON STACK
;sSET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER

: ;MAKE THE BINARY NUMBER POS.

TYPDS

MOV
MOV
MOV
MOV
MOv
BPL
NLG

020200
000020
000055

MOV

9%:

MOvB
CLR
MOV

¥'=-,1(SP)

RO
#$DBLK,R3

::BR IF

INPUT

IS POS.

:sMAKE THE ASCI] NUMBER NEG.

;;JERO THE

CONSTANTS

INDEX

;:SETUP THE OUTPUT POINTER
;:SET THE FIRST CHARACTER TO A BLANK

MOvVB
CLR
MOV
SuB
BLT
é:c

¥ L(R3)+
R2
$DTBL(RO) ,R1
R1,RS
4%
25

;sCLEAR THE BCD NUMBER
;:GET THE CONSTANT
::FORM THIS BCD DIGIT
::BR 1F DONE
;s INCREASE THE BCD DIGIT BY

ADD
187

R1,RS
R2

::ADD BACK THE CONSTANT
;sCHECK 1F BCD DIGIT=0

BIS

::MAKE

BNE
1STB
BM]
ASLB
BCC
MOVB
BIS
MOVB
181
CMP
BLT
BGT

MOV
BR
1STB
BPL
MOVB
CLRB
MOV
MOV
MOV

5%
(SP)
7%
(SP)
6%
1(SP),=1(R3)
#'0,R2
,R2

R2,(R3)+
(RO)+
RO, #10
2%
8%

RS.,R2
6%
(SP)+
9%
=1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP)+,R2

::FALL THROUGH IF 0
ssSTILL DOING LEADING 0'S?
s:BR 1Ff ¥ES
;:MSD?
;:BR IF NO
;:YES==SET THE SIGN
s sMAKE THE BCD DIGIT ASCII
IT A SPACE

NOT

ALREADY A DIGIT

;:PUT THIS CHARACTER IN THE OQUTPUT BUFFER
;2 JUST INCREMENTING
:sCHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT
::G0 TO EXIT

::GET THE LSD
::6G0 CHANGE TO ASCII
;:WAS THE LSD THE FIRST NON-ZERO?
;:BR IF NO
;iYES==SET THE SIGN FOR TYPING
;:SET THE TERMINATOR
::POP STACK INTO RS
:sPOP STACK INTO R3
::POP STACK

INTO R2

CIRJGDO,RPO4/5/6 DSKLS CTRLR)
10-SEP-79 11:00
CIRJGD P11
114657
11458
11459
11460
11461
11462
11463

11464

11465

11466
11467

055006
055010
055012
055016
055024
055026
055030
055032
055034
055036
055040

012601
012600
104401
016666
012616
000002
023420
001750
000144
000012
000004

055040
000002

MACYT1

30A(1052)
10-SEP=79
11:117
PAGE 26!
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

000004
$DIBL:

$DBLK:

MOv
MOV
TYPE
MOv
MOV
RT1

10000.
1000.
100.
10.
.BLKW

(SP)+ R
(SP)+,RO
. $0BLK

2(SP) ,4(SP)
(SP)+,(SP)

;;POP STACK INTO R1
;:POP STACK INTO RO
;:sNOW TYPE THE NUMBER

;sADJUST THE STACY

;:RETURN TO USER

SEQ 0260

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P
10-SEP=79 11:00

MACY11

11468
11469

30A(1052)
10-SEP-79
TYPE ROUTINE
LSBTTL

11:11

PAGE 262

R A R R

SEQ 0261

TYPE ROUTINE

1]470

1147
11472
11473

s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
;*NOTE:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

11477
11478
11479
11480
11481
11482
11483
11484
11485
11486
11487
11488

s*CALL:
:*1) USING A TRAP INSTRUCTION
M
TYPE
LMESADR
:*OR
i
TYPE
A
MESADR
o

11474
}}:;2

;*NOTEZ2:
J*NOTEZ:

e R R A ARl

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

11489
11490
11491
11492

11493

11494
11495

055050
055054
055056
055060

105737
100002
000000
000407

055062
055064
055070
055072

010046
017600
112046
001005

055076
055100

012600
062716

055074

055104
055106
055112
055114
055120
055122
055124
055126
055130

000002
122716
001430
122716
001006
005726
104401
001223
105037

11507

055142

123726

11508
11509
11510
11511
11512
11513
11514

}}2}5

055134
055136

000755
004737

055146
055150

001350
013746

055154
055160
055162
055166

105366
002770
004737
105337
000770

055172

$TYPE:

1%:

000002

2%:

005726

11496
11497
11498
11499
11500
11501
11502
11503
11504

11505
11506

001157

000002

60%:
3%:

000011

4%:

000200

055264

055220

5%:

001156

6%:

001154

000001

7%:

055220
055264

1121;
1151

055174
055200

112716
004737

11522
11523

055212
055214

001372
005726

11521

055204

132737

000040
055220

000007

055264

8%:
9%:

IS FIRST

ADDRESS OF

T1STB
BPL
HALT
Rp

$TPFLG
1%
3%

::1S THERE A TERMINAL?
::BR IF YES
::HALT HERE IF NO TERMINAL
;s LEAVE

1ST

(SP)+

::1F

MOV
MOV
MOVB
BNE

RO,=-(SP)
a2 (SP),R0O
(RO)+,=-(SP)
4%

MOV
ADD

(SP)+,RO
#2,(SP)

RTI
CMPB
BEQ
CMPB
BNE
187
TYPE
$CRLF
CLRB

#HT,(SP)
8%
#CRLF,(SP)
5%
(SP)+

AN ASCIZ STRING

::SAVE RO
::GET ADDRESS OF ASCIZ STRING
:;PUSH CHARACTER TO BE TYPED ONTO STAC(CK
::BR IF IT ISN'T THE TERMINATOR
TERMINATOR POP IT OFF

: ;RESTORE RO
;s ADJUST RETURN PC

:RETURN
; ;BRANCH IF

THE

STACK

<HT>

::BRANCH IF NOT <CRLF>
::POP
<CR><LF> EQUIV
;3 TYPE A CR AND LF

BR
JSR

$CHARCNT
2%
PC,$TYPEC

::CLEAR CHARACTER COUNT
;:GET NEXT CHARACTER
;G0 TYPE THIS CHARACTER

BNE
MOV

2%
$NULL ,=(SP)

::1F NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED
;sAND THE NULL CHAR.
::DOES A NULL NEED TO BE TYPED?
::BR IF NO=--GO POP THE NULL OFF OF
::G0 TYPE A NULL
;:D0 NOT COUNT AS A COUNT

(MPB

DECB
BLT
JSR
DECB
BR

:HOR]ZONTAL

11519
11520

::MESADR

$SFILLC,(SP)+

1(SP)
6%
PC,$TYPEC
$CHARCNT
7%

;1S 1T TIME FOR FILLER CHARS.?

;.L00P

TAB PROCESSOR

MOVB
JSR

¥ ,L(SP)
PC,$TYPEC

;sREPLACE TAB WITH SPACE
::TYPE A SPACE

BNE
151

9%
(SP)+

;. TAB STOP
s sPOP SPACE OFF STACK

BI11B

#7,5CHARCNT

:;BRANCH 1F NOT A1

STACK

o
NOWVS
W =00V
NO Lol

(W RV LV LV LW LW LV L
LV IV IV IV ) o
WINWWWWWWNI
NN oo

d
e
D e
e
e
e
D e
el el el
e

el
T I
R
——

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CZRJIGD P11

055216
055220
055224
055226
055234
055262
055244
055250
055252
055260
055262
055264
055266

MACY11

123724

000002
000015

30A(1052)
TYPE

ROUTINE

$TYPEC:

123716
000002

000002

BR
TS51B

BPL

MOVB
(MPB
BNE

055264
000012

10-SEP=-79

1%:

CLRB
BR

CMPB
BEQ
INCB
$CHARCNT
: .WORD
$TYPEX:

RTS

11:11

2%
as$T1Ps
$TYPEC

2(SP),a$1PB

#CR,2(SP)
1%
$CHARCNT
$TYPEX
WLF,2(SP)
$TYPEX
(PC)+

PAGE 263

SEQ 0262

;:GET NEXT CHARACTER
;:WALIT UNTIL PRINTER IS READY
;;LOAD CHAR TO BE TYPED INTO DATA REG.
;1S CHARACTER A CARRIAGE RETURN?

; sBRANCH IF

::EE?;-CLEAR CHARACTER COUNT
.

::1S CHARACTER A LINE FEED?
; sBRANCH IF

YES

;s COUNT THE CHARACTER
; sCHARACTER COUNT

STORAGE

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P1
10-SEP=79 11:00

MACY11

30A(1052)
10-SEP=79
TTY INPUT ROUTINE

}}ggg

LSBTTL

11540

11541
11542
11543
11544
11545
11546
11547
11548
11549
11550

055270
055272
055274
055276

;*CALL:
i
T

055310
055314
055322
055330
055336
055344
055350
055356

005037
012737
013737
012737
012737
005777
012777
000207

055270
055276
055272
055360
000200
123576
000100

055272
055274
000060
000062

11569

11586

11587
11588
11589
11590
11591
11592
11593

A R A

O
O
¢
9.

A R A A

AR AR ARl

;;NUMBER OF ITEMS IN QUEUE
:: INPUT POINTER
;:OUTPUT POINTER
::TTY KEYBOARD QUEUE

THE

TTY KEYBOARD

INPUT QUEUE

JSR

PC,STKINT

CLR
MOV
MOV
MOV
MOV
181
MOV

$TKCNT
#STKQSRT,$TKQIN
$TKQIN,$TKQOUT
#STKSRV,a¥#TKVEC
#200,a#TKVEC+2
asTKB
#100,387kS
PC

RETURN

RTS

::CLEAR COUNT OF ITEMS IN QUEUE
;:MOVE THE STARTING ADDRESS OF THE
;:QUEUE INTO THE INPUT & OUTPUT POINTERS.
;;INITIALIZE THE KEYBOARD VECTOR
;;"'BR' LEVEL &
::CLEAR DONE FLAG
;:ENABLE TTY KEYBOARD INTERRUPT
::RETURN TO CALLER

THE TTY KEYBOARD INTERRUPT
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:+]1T

11570
115;1

11574
11575
11576
11577
11578
11579
11580
11581
11582
11583
}}ggg

A A R A R A

;*TK SERVICE ROUTINE
:#«THIS ROUTINE WILL SERVICE

11568

11573

$TKINT:

123566

11566
11567

11572

SEQ 0263

;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

}}ggs

5
PAGE 264

;*TK INITIALIZE ROUTINE
;*THIS ROUTINE WILL INITIALIZE

11553
11554

AR A A

INPUT ROUTINE

.ENABL
LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=,
.EVEN

000000
000000
000000
000011
055307
055310

}}22;

11557
11558
11559
11560
11561
11562
11563
}}262

TTY

11:11

IN THE QUEUE.

:#]F THE CHARACTER IS A '"CONTROL=C'' (*C) STKINT IS CALLED AND
:*UPON RETURN EXIT IS MADE TO THE ''CONTROL-C'' RESTART ADDRESS (OPERSCL)
055360

055364
055370
055374
055376
055402
055406
055410
055414
055420
055422
055430
055432

055432
055440
055442
055446
055450
055452
055456

117746

123562

$TKSRV: MOVB

042716
021627
001007
104401
004737
005726
000137
021627
001004
022737
001500

177600
000003

000176

001140

022737
001004
104401
005726
000451
021627
001021

000011

055270

056347
055310
041556
000007

1%:

2%:

001216

000023

3%:

BIC
CMP
BNE
TYPE
JSR
181
JMP
CMP
BNE
CMP
BEu

CMP
BNE
TYPE
187
BR
CMP
BNE

a$TKB,=(SP)

::PICKUP THE CHARACTER

#9.,8TKCNT
3%
LSBELL
(SP)+
5%
(SP),#23
32%

;:1S THE QUEUE FuLL?
: :BRANCH IF NO
;:RING THE TTY BELL
;:CLEAN CHARACTER OFF OF STACK
siEXLT
;215 1T A CONTROL=S?
;:BRANCH 1F NO

#AC177,(SP)
(SP) ,#3
1%
LSCNTLC
PC,$TKINT
(SP)+
OPERSEL
(SP) ,#7
2%
#SWREG, SWR
6%

::STRIP THE JUNK
;215 1T A CONTROL C?
: :BRANCH I1F NO
::TYPE A CONTROL=C (*C)
;s INIT THE KEYBOARD
:CLEAN UP STACK
;;CONTROL C RESTART
::15S 1T A CONTROL G?
::BRANCH IF NO
;315 SOFT=SWR SELECTED?
::G0 TO SWR CHANGE

CZRJIGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.PI
10-SEP=79 11:00
11594
11595

055460
055464

005077
005726

11597

055472

100375

11599

055500

042716

11601
11602
11603
116064
11605

055510
055512
055520
055522
055526

001366
012777
000002
005237
021627

11607
11608
11609
11610
11611
11612
11613
11614
}}6}2

055534
055540
055542
055546
055552
055556
055564
055566
055574

021627
003002
042716
112677
005237
023727
001003
012737
000002

11596
11598
11600

11606

055466
0554764
055504

055532

123452

117746

123446

022627

000021

000100

055307

055276

055272

11624

055606

105777

123332

117746
042716

123326
177600

11625

11628
11629
11630

055612

055614
055620

055624
055630

100121

021627
001300

6%:

001140

11640

055650

11643
11644
11645
11646
11647
11648
11649

;;LO0P UNTIL ITS THERE

1S18B

a%1kKs

MOVB

a%71kB,-(SP)

cMP

(SP)+, #21

BNE
MOV
RTI
INC
CMP

CMP
BGT
BIC
MOVB
INC
CMP
BNE
MoV
RTI

#AC177,(SP)
31%
#100,3%7KS

$TKCNT
(SP),#140

(SP) 9175
4%
#40, (SP)
(SP)+,a$TKQIN
$TKQIN
STKQIN,#STKQEND
5%
#STKQSRT,$TKQIN

;:WAIT FOR A CHAR

;:GET THE CHARACTER
ssMAKE

1T 7-BIT ASCII

;215 IT A CONTROL=-Q?

; ;BRANCH IF NO
s sREENABLE TTY KEYBOARD INTERRUPTS
s sRETURN
;s COUNT THIS CHARACTER
;315 17T UPPER CASE?

;;BRANCH IF YES

;:1S IT A SPECIAL CHAR?
; ;BRANCH IF YES
:sMAKE 1T UPPER CASE
;sAND PUT IT IN QUEUE
;;UPDATE THE POINTER
; ;GO OFF THE END?
; sBRANCH IF NO
;;RESET THE POINTER
;;RETURN

BNE

15%

;sEXIT

IF NOT

TS18

a%7KsS

;:1S A CHAR WAITING?

MOVB
BIC

a$TkB,~-(SP)
#2C177,(SP)

E:YES
;sMAKE 1T

CMP
BNE

15%

(SP) ,#7
2%

;s
1F NOT, EXIT

7-BIT ASCII
;:1S 1T A CONTROL=G?
;:1F NOT, PUT IT IN THE TTY QUEUE
;sAND EXIT

'CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF

055632

11642

BPL

ttt't"t"tt'tt'tt"tt"ttt""t"tttttt't'tt'ltltttt'tt'tltt"

11636

11641

SEQ 0264

» "'it"""'"tt"t"""t"t"'t't't't.tttt'tttt'ttttt't""t'
'SOFTUARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE 1S ENTERED
FROM THE TRAP HANDLER, AND WILL
*«SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
$CKSWR: CMP
#SWREG, SWR
;:1S THE SOFT=-SWR SELECTED

000007

11633
11634

11637
11638
11639

5
PAGE 265

;;DISABLE TTY KEYBOARD INTERRUPTS
;s CLEAN CHAR OFF STACK

BPL

}}2;3

11635

5%:

a%1xs
(SP)+

BLTY

000040
177520
055272
055272

000176

11626
11627

32%:

000175

022737

001124

123424

11:11

CLR
1351

BIC

055270
000140

055576

055604

31%:

177600

116‘7
11618
11619
11620
11621
11622

11623

30A(1052)
10-SEP=79
TTY INPUT ROUTINE

123460

105777

002405

MACY11

123727

001134

055640
055642
055644

001674
005726
004737

055654

112737

000001

104401
104401
013746
104402
104401
005046
005046

056361
056366
000176

055662
055666
055672
055676
055700
055704
055706

005077

000001

055310

123270

056377

001135

:*CONTROL=G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.

CMPB

$AUTOB, 1

;sARE WE RUNNING IN AUTO-MODE?

CLR

CRALSS

;:DISABLE TTY KEYBOARD INTERRUPTS

BEQ
1§31
JSR

MOVB

TYPE
$GTSWR: TYPE
MOV
TYPOC
TYPE
19%:
(LR
(LR

2%
(SP)+
PC,STKINT

#1,8INTAG

JOONTLG
L SMSWR
SWREG,=(SP)
,SMNEW
=(SP)
-(SP)

;sBRANCH IF YES
;sCLEAR CONTROL=-G OFF STACK
;:FLUSH THE TTY INPUT QUEUE

;sSET INTERRUPT MODE INDICATOR

;;ECHO THE CONTROL=-G (*G)
s TYPE CURRENT CONTENTS
;:SAVE SWREG FOR TYPEOUT
;:G0 TYPE==OCTAL ASCIICALL DIGITS)
. sPROMPT FOR NEW SWR
;s CLEAR COUNTER
;s THE NEW SWk

|
|

CIRJGDO,RPO4/5/6 DSKLS CTRLRY
CIRJGD.P1Y
10-SEP=79 11:00
11650
}}g%;

055710
055714

11653

055716

055722

042716

11656
11657

11659

}}22;

11658
11660

11661
11662
}}ggz
11665

11666

11667
11668
11669

}}g;?

105777
100375

123230

117746

055726
055732

@%T1kB,~-(SP)

;:P1CK UP (HAR

021627
001015

000003

(mP
BNE

(SP),#3
9%

::1S 1T A CONTROL=-C?
::BRANCH IF NOT

055740

062706

000006

ADD

#6,5P

:sCLEAN UP STACK

055752
055754
055762

001003
012777
000137

055766

021627

055744

055772
055774
056000

056347

123727

001135

000001

000100
041556

123162

001005
104401
062706

20%:

10%:

005766

000004

056020
056022
056030
056034

001403
016677
062706
104401

11681
11682
11683
11684
11685
11686

056046
056050
056056
056060
056064
056070

001003
012777
000002
004737
021627
002420

056040

056072
056076
056100
056104
056110
056112
056114
056116
056120
056124
056130
056132
056136

123727

021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000667
104401
000720

8%:

056354
000006

056014

11676
11677
11678
11679

(MPB

9%:

11675

001022

TYPE

000025

000015

056012

BIC

104401

021627

11701
11702

SEQ 0265

MOVB

177600

056006

11687
11688
11689
11690
11691
11692
11693
11694
11695
11696
11697
11698
11669
11700

5
PAGE 266

123224

11673

11680

::CHAR THERE?
::1F NOT TRY AGAIN

055734

7%:

11:11

FL S
7%

000737

11674

30A(1052)
10-SEP=79
TTY INPUT ROUTINE
1518
BPL

056004

11672

MACY11

000002
000006
001223

123110

001135

000001

000100

123066

055220

000060

11%:
14%:

15%:
16%:

000067
000060
000002

000002
177776

17%:

001222

18%:
.DSABL

BNE
MOV
JMP

(mMp

BNE
TYPE
ADD

CMP

l‘(l?f,(SP)
LJOONTLC

$SINTAG, M

8%
#100,a%7xS
OPERSEL

::MAKE 1T 7-BIT ASCII
:sYES, ECHO CONTROL=-C (*C)
;;REENABLE TTY KEYBOARD INTERRUPTS?
:;BRANCH IF NO
:sALLOW TTY KEYBOARD INTERRUPTS
; s CONTROL=C RESTART

(SP) ,#25

;31S 1T A CONTROL=-UV?

19%

::LET'S TRY IT AGAIN

10%
LBCNTLU
#6,SP

: :BRANCH IF NOT
;:YES, ECHO CONTROL=U (*U)
: ; IGNORE PREVIOUS INPUT

(SP),#15

01S 1T A <CR>?

187

4&(SP)

::YES,

CMPB

$SINTAG, M

BNE

BEQ
MOV
ADD
TYPE

BNE
MOV
RTI
JSR
(mp
BLY

CMP
BGT
BIC
1S7
BEQ
ASL
ASL
ASL
INC
BIS
BR
TYPE
BR
LSB

16%

11%
2(SP) ,aSwR
#6,SP
LSCRLF

15%
#100,3%7KS
PC,STYPEC

(SP) ,#60
18%
(SP) ,#67
18%
#60,(SP)+
2(SP)
17%
(SP)
(SP)
(SP)
2(SP)
=2(SP), (5P)

7%
,SQUES
20%

::BRANCH 1F

IS IT THE FIRST (HAR?

:sBRANCH IF YES
::SAVE NEW SWR
::CLEAR UP STACK
:sECHO <CR> AND <LF>

:;RE=ENABLE TTY KBD INTERRUPTS?
; ;BRANCH IF NOT
::RE-ENABLE TTY KBD
: :RETURN
;sECHD (HAR
::CHAR < 0?
; ;BRANCH 1F YES

INTERRUPTS

::CHAR > 7?
::BRANCH IF YES
;sSTRIP=-0OFF ASCII
;1S THIS THE FIRST (HAR
; sBRANCH IF YES
;sNO, SHIFT PRESENT
33
CHAR OVER TO MAKE
33
ROOM FOR NEW ONE.
::KEEP (OUNT OF (MAR
;:SET IN NEW (HAR
;:GET THE NEXT ONE
2 TYPE 2<CR><LF>
;:SIMULATE CONTROL=U

11703

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

11704

:*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TT¥

11705

so(ALL:

011646
016666
005066
005046
012746
000002

11719
11720
11721
11722
11723
117264
11725

056170
056172
056176
056204
056210
056216
056220

001775
005337
117766
005237
023727
001003
012737

11718

11726

11727

M
;e
M
:

056164

056226

005737

000002

0000064
000004

000002

056164

055270
055270
177072
055274
055274
055276

000004
055307

055274

11728
11729
11730
1731

056230

010346

11736
11737
11738

056236
056242
056244

022703
101405
104410

11740
11741
11742
11743
11744
11745
11746
11747

056250
056254
056256
056262
056264
056270
056274
056300

122713
001003
104401
000763
111337
104401
122723
001356

000177

10%:

001222

4%:

056334
056334
000015

3%:

11749

056306

104401

001224

016666

0000064

11739

11748

11750

056232

056246

056302

012703

112613

105063

11751

056312
056314

012603
011646

11753
11754
11755
11756

056324
056332
056334
056335

012766
000002
000
000

11752

11757

056316

056336

11758 056347
11759
11760
11761

1871

BEQ
DEC
MOVB
INC
CMP
BNE
MOV
RTI

056354
0563&!
056366

$RDLIN: MOV

056336

1%:

056347

2%:

177777

::PUSH DOWN THE PC AND
::THE PS
;:GET READY FOR A CHARACTER
;:PUT NEW PS ON STACK
::PUT NEW PC ON
STACK
::POP NEW PC AND PS

$TKCNT

;:WAIT ON A CHARACTER

1%
$TKCNT
::DECREMENT THE COUNTER
9$TKQOUT,4(SP)
;:GET ONE CHARACTER
$TKQOUT
.2;UPDATE THE POINTER
$TKQOUT ,#STKQEND ;;DID IT GO OFF OF THE END?
2%
: :BRANCH IF NO
#STKQSRT,$TKQOUT ;;RESET THE POINTER
R N

N N

R R R N R

056336

INPUT A STRING FROM THE

9%:

000011

$TTYIN:

005015
006507
053523

000
000012
020122

T RN ORI OR PO

::INPUT A STRING FROM THE TTY
::ADDRESS OF FIRST CHARACTER WILL

;:TERMINATOR WILL BE A BYTE OF

#STTYIN+O, R3
4%

;sBUFFER FULL?
;:BR IF YES
::60 READ ONE CHARACTER FROM THE

CMPB
BNE
TYPE
BR
MOVB
TYPE
(MPB
BNE

#177.(R3)
3%
,$QUES
1%
(R3),9%
,9%
#15,(R3)+
2%

TYPE

LSLF

MOVB

#STTYIN,RSZ

(SP)+,(R3Y)

=1(R3)

(SP)+,R3
(SP) ,-(SP)

MoV

4&(SP),2(SP)

.BLKB

0
O
9.

MOV
RTI
.BYTE
BYTE

SCNTLU: .ASCIZ
SCNTLG: .ASCIZ
SMSWR:
LASCIZ

#STTYIN,L(SP)

/*C/<155<12>

BE ON THE

ALL 0'S

CMP
BLOS
RDCHR

136 006503 000012 SCNTLL: .ASCIZ

052536
136
005015

N R

TTY

::SAVE R3

MOV
MOV

000004

:;RETURN

A RN T PR R AR

R3,-(SP)

MOV

CLRB

000002

SEQ 0266

::GET A CHARACTER FROM THE QUEUE
:;CHARACTER IS ON THE STACK
;:WITH PARITY BIT STRIPPED OFF

11736

11735

5
PAGE 267

(SP),=(SP)
4(SP),2(SP)
4(SP)
-(SP)
648 ,-(SP)

'THIS ROUTINE WILL
s*CALL:
:'
ROLIN
i
RETURN HERE

11;%%

2%:

RDCHR
RETURN HERE

$RDCHR: MOV
MOV
CLR
CLR
MOV
RTI
64%:

1%:

11:11

———————

056140
056142
056150
056154
056156
056162
056164

30A(1052)
10-SEP=79
TTY INPUT ROUTINE

11706
11707
11708
11709
11710
11711
11712
11713
11714
11715
11716
1717

MACY11

STACK

;:GET ADDRESS

::GET CHARACTER

TTY

::1S 1T A RUBOUT
::SKIP 1F NOT
::TYPE A '
;:CLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER

;:CHECK FOR RETURN
::LOOP 1F NOT RETURN

::CLEAR RETURN (THE 15)
::TYPE A LINE FEED

::RESTORE R3
::ADJUST THE STACK AND PUT ADDRESS OF

FIRST ASCII CHARACTER ON 11

THE

s sRETURN
;:STORAGE FOR ASCI] CHAR., TO TYPE
: s TERMINATOR

; sRESERVE Q.HBVTES FOR TTY INPUT

: : CONTROL ;c“

/*Uu/<15<12>
::CONTROL ''U'
/‘G/<15><12>
::CONTROL ''G
<15><12>/SWR = /

A ——————

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P1Y
10-SEP=79 11:00

CIRJGDO,RPO4/S/6 DSKLS CTRLR1
CIRJGD.P1Y
10-SEP-79 11:00
11762
11763

}};gg

056374
056377

056404

020075
0640
036440

000
047040

000040

MACY11

30A(1052)
10-SEP-79
TTY INPUT ROUTINE

053505

S$MNEw:

.ASCIZ

1:1

NEW

PAGE 268

SEQ 0267

sFROM THE

TTY

——

CZRJGDO,RPO4/5/6 DSKLS CTRLRT
CIRJGD.PI
10-SEP=79 11:00

5
MACY11 30A(1052)
10-SEP=-79
11:11
PAGE 269
READ AN OCTAL NUMBER FROM THE TTy

}};g?

.SBTTL

11768

AAAA AR AR A A AR A A

1769
1770
177
1772
1773

1790

o
i
I
056410
056412
056420

056422
056424
056426
056430
056432
056436
056440

056442

011646
016666
010046

010146
010246
104411
012600
010037
005001
005002

056444
056446
056452
056454
056460
056462
056464
056466
056470

001420
122716
003026
122716
002423
006301
006102
006301
006102

1801

056474

006102

1802
1
1804
1805
1806
1807

1808
1809
1810
1811
1812
1813
1814
1815

1816

1817
1818

056472

056476
056502
056504
056506
056510
056514

056520
056522
056524
056526
056530
056532
056534
056536

056540
056544
056546

000004

056536

112046

1791
1792
1793
1794
1795
1796
1797
1798
1799

1800

READ AN OCTAL NUMBER FROM THE TTY
A A A R

A A

A A A A A A

A A A A

ARl ]

:*THEN BE RETYPED. THE INPUT 1S TERMINATED BY TYPING A CARRIAGE RETURN.

s*CALL:

1776
1777
};;3

1783
1784
1785
1786
1787
1788
1789

SEQ 0268

;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
;*CHANGE 1T TO BINARY.
:*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL
:*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "'?'' WwILL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST

};;g

1780
1781
1782

000067

006301

042716
062601
000756
005726
010166
010237

012602
012601
012600
000002
005726
105010
104401
000000

104401

000730
000000

000002

RDOCT
RETURN HERE

:;READ AN OCTAL NUMBER
::LOW ORDER BITS ARE ON TOP OF THE
::HIGH ORDER BITS ARE IN SHIOCT

MOV
MOV
MOV

::PROVIDE SPACE FOR
:: INPUT NUMBER
::PUSH RO ON STACK

MOV
MoV
ROLIN
MOV
MOV
CLR
CLR

MOVB
000060

000012
056546

001222

(SP),=(SP)
4(SP),2(SP)
RO,=(SP)

R1,-(SP)
R2,-(SP)

(SP)+,R0
RO,5%
R1
R2

(RO)+,=-(SP)

BEQ
CMPB
BGT
CMPB
BLT
ASL
ROL
ASL
ROL

3%
#'0,(SP)
4%
#'7,(5P)
4%
R1
R2
R1
R2

ROL

ASL

177770

BIC
ADD
Bk
TS1
MOV
MOV

MOV
MOV
MOV
RTI1
187
CLRB
TYPE
LWORD

T1YPE

RR
$HIOCT: .WORD

::PUSH R1 ON STACK
::PUSH R2 ON STACK
::READ AN ASCIZ LINE
::GET ADDRESS OF 1ST
:AND SAVE IT
::CLEAR DATA WORD

THE

CHARACTER

::PICKUP THIS CHARACTER

::1F ZERO GET OUT
::MAKE SURE THIS CHARACTER
::1S AN OCTAL DIGIT

L4
b

;.8

#AC7,(5P)
(SP)+,R1
2%
(SP)+
R1,12(SP)
R2,$HIOCT

::STRIP THE ASCI1 JUNK
::ADD IN THIS DIGIT
;:LO0P
::CLEAN TERMINATOR FROM STACK
::SAVE THE RESULLT

(SP)+ ,R2
(SP)+,R1
(SP)+,RO
(SP)+
(RO)

0
L,BQUES
1%
O

;;POP STACK INTO RZ2
::POP STACK INTO R
::POP STACK INTO RO
; sRETURN
::CLEAN PARTIAL FROM STACK
::SET A TERMINATOR
::TYPE UP THRU THE BAD (HAR.
e RIS

CR'

"'LF

::TRY AGAIN
::HIGH ORDER BITS GO HERE

STACK

CZRJGDO,RPO&L/5/6 DSKLS CTRLRI
CIRJGD.P11
10-SEP-79 11:00

MACY11

30A(1052)
10-SEP-79
11:11
ERROR HANDLER ROUTINE

PAGE 270

SEQ 0269

;}g;g

.SBTTL

11821

Re
L

11822

;*THIS ROUTINE WILL

11826
11827
11828
11829
11830

;*SW15=1
;*SW13=1
;*SW10=1
;*SW09=1
s*CALL

11823
11824
11825

11834
11835
11836
11837
11838
11839

11840
11841
11842
11843
11844
11845
11846
11847
11848
11849
11850
11851
11852
11853
11854
11855
11856
11857
11858
11859

11860
11861
11862
11863

INCREMENT

THE ERROR FLAG AND THE ERROR COUNT,

;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
:*AND GO TO SERRTYP ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THiS ROUTINE ARE:

}}gg}
11832

ERROR HANDLER ROUTINE

i
056550

056550
056552
056560
056560
056564
056566

056574
056602
056604
056610
056614
056620
056626
056634
056642
056644
056650
056654
056654
056660
056662
056664
056666
056674
056676
056702

056706
056710

056714
056714

104407
012737

105237
001775
013777
032777
001402
104401
005237
011637
162737
117737
032777
001004
004737
104401
005777
100002
000000
104407
032777
001402
013716
005737

001402
013716
000002

$ERROR:
177777

002006

001103
001102
002000
001216
003112
001116
000002
122264
020000

122346
122336
1%:

001116
001114
122276

056716
001223

20%:
2%:

122260

001000
001110
001214
001214

REGSA1:
7%:

122244

3%:
6%:
5%:

HALT ON
INHIBIT
BELL ON
LOOP ON

ERROR
ERROR TYPEOUTS
ERROR
ERROR

ERROR

; ;ERRGR=EMT AND N=ERROR ITEM NUMBER

CKSWR
MOV

#-1,30ERFLGS

INCB
BEQ
MOV
BIT
BEQ
TYPE
INC
MOV
SUB
MOVB
BIT
BNE
JSR
TYPE

SERFLG
;:SET THE ERROR FLAG
7%
;:DON'T LET THE FLAG GO TO ZERO
$TSTNM,aDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG
#BIT10,aSWR
;;BELL ON ERROR?
1%
;:NO - SKIP
,SBELL
;sRING BELL
SERTTL
;s COUNT THE NUMBER OF ERRORS
(SP) ,$ERRPC
s:GET ADDRESS OF ERROR INSTRUCTION
#2,SERRPC
oSERRPC,S1TEMB
;;STRIP AND SAVE THE ERROR ITEM CODE
#B1T13,aSWR
;:SKIP TYPEOUT IF SET
20%
;:SKIP TYPEOUTS
PC,SERRTYP
;:G0 TO USER ERROR ROUTINE
LOCRLF

181
BPL
HALT
CKSWR
BIT
BFQ
MOV
181
BEQ
MOV

aSWR
3%

RT1

#B1T09,3SWR
6%
$LPERR, (SP)
$ESCAPE
5%
$ESCAPE, (SP)

;s TEST FOR CHANGE
;SET ERROR FLAG

IN SOFT=-SWk

;;HALT ON ERROR
;:SKIP IF CONTINUE
;sHALT ON ERROR!
;s TEST FOR CHANGE IN SOFT-SWR
;:LOOP ON ERROR SWITCH SET?
;:BR IF NO
;:FUDGE RETURN FOR LOOPING
;s CHECK FOR AN ESCAPE ADDRESS

;:BR 1F NONE
;:FUDGE RETURN ADDRESS FOR ESCAPE
; ;RETURN

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP-79 11:00

ERORERES §OOCOOO
OV~
~

VOO
VNS W —=O

MACY11

ool

30A(1052)
10-SEP-79
11:11
PAGE 271
ERROR MESSAGE TYPEOUT ROUTINE
.SBTTL

EEEF

VNV WN=OYooNo

©o 0o 00 0o

NNNNNN NNNN

&%
o
[PRIIA———
R
R
—

OV OOVOOVOOVOVOOVOO O

—

D o

CZRJGD.P1Y

SEQ 0270

ERROR MESSAGE TYPEOUT ROUTINE

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

;*THIS ROUTINE USES THE "'ITEM CONTROL BYTE' (SITEMB) TO DETERMINE WHICH

;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ''ERROR TABLE'® (SERRTB),
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

056716
056716
056722
056724
056726
056732

104401

001223

153700
001004

001114

056734

013746

001116

056740
056742
056744
056746
056750
056752
056754
056760
056764
056766
056770
056772
056776
057002
057004
057006
057010
057014
057016
057020
057022
057024
057026
057030
057032
057034
057036
057036
057040
057042
057044
057046
057052

104402
000445
005300
006300
006300
006300
062700
012037
001404

057054
057056
057060
057064
057066

010046
005000

1%:

104401

010146
012001
001415
012000

001223

3%:
4%:

5%:

6%:

104402

7%:

013146

104405

012601
012600
104401
000207
020040
057072

8%:

057066

001223
000

11%:

+SCRLF

(RO)+,4%

.WORD

MOV
MOV

R1,-(SP)
(RO)+,R1
9%
(RO)+,RO
(RO)+

MOV
1STB

BNE
MOV
TYPOC
BR

LOCRLF

7%
9(R1)+,=-(SP)
8%

MOV
TYPDS

a(R1)+,-(SP)

BEG

181

ITEM NUMBER IS ZERO, JUST

;:TYPE

THE PC OF

(R1)

;:FORM TABLE POINTER
::P1CKUP "'ERROR MESSAGE'' POINTER
;:SKIP TYPEOUT

::"'ERROR MESSAGE'' POINTER GOES HERE
::"'CARRIAGE RETURN'' & "LINE FEED"
;:PICKUP ''DATA HEADER'' POINTER
::SKIP TYPEOUT IF 0
;s TYPE THE ''DATA HEADER"

::"'DATA HEADER'' POINTER GOES HERE
::""CARRIAGE RETURN'' & '"'LINE FEED"
;s SAVE R1
::PICKUP ''DATA TABLE'' POINTER
::BR IF NO DATA T0O BE TYPED
;:PICKUP "'DATA FORMAT'' POINTER

;:"OCTAL' OR "DECIMAL"
::BR IF DECIMAL
::;SAVE @(R1)+ FOR TYPEOUT
;360 TYPE=--OCTAL ASCIICALL DIGITS)

::SAVE @(R1)+ FOR TYPEOUT
::6G0 TYPE--DECIMAL ASCII WITH SIGN
::1S THERE ANOTHER NUMBER?

MOV
MOV
TYPE
RTS

(SP)+,R1
(SP)+,R0O

::RESTORE R1
;sRESTORE RO

;;RETURN
::TW0(2) SPACES

,SCRLF

NO POINTER

::TYPE THE ''ERROR MESSAGE''

;:BR IF NO
;s TYPE TWO(2)

LASCIZ

THE ERROR

::SAVE SERRPC FOR TYPEOUT
; ;ERROR ADDRESS

118

TYPE

9%:
10%:

#SERRTB,RO
(RO)+,2%

TYPE

;:1F

;:GET OUT
;sADJUST THE INDEX SO THAT IT WiLL
WORK FOR THE ERROR TABLE
HH

BEQ

TYPE

::"'CARRIAGE RETURN'' & "'LINE FEED"
;s SAVE RO
;:PICKUP THE ITEM INDEX

;:60 TYPE=--OCTAL ASCIICALL DIGITS)

TYPOC
BR
DEC

BEQ

000402

000764

$ERRPC,=(SP)

001223
057006

105720

104401

MOV

TYPE
.WORD
TYPE
MOV

001003
013146

005711
001403

BISB
BNE

BEQ

2%:

+SCRLF

RO,=(SP)
RO
a¥$1TEMB,RO
1%

001226
056770

104401

000000

TYPE
MOv
CLR

ASL
ASL
ASL
ADD
MOV

104401

000000
104401
012037
001404

SERRTYP:

;.LO00P

SPACES

::"'CARRIAGE RETURN'' & ""LINE FEED"

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
CIRJGD.PI
10-SEP=79 11:00

MACY11

n S5
30A(1052)
10-SEP=79
11:11
PAGE 272
BINARY TO OCTAL (ASCII) AND TYPE

SEQ 027

‘};gg?

.SBTTL

11922

AR AR AR A a2 A E

11923
11924

:*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER T0O A 6-DIGIT
;*OCTAL (ASCII) NUMBER AND TYPE IT.

}}ggz

BINARY TO OCTAL (ASCII) AND TYPE
R

e R

e A

e R A

:-:lvpos---turen HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:

11927
11928
11929
11930
11931
}:g%%

ie
i
i
.
i
X

MOV
TYPOS
BYTE
.BYTE

NUM, = (SP)

11934
11935
11936
11937

:*$STYPON====ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
:*$TYPOS OR $TYPOC
:*CALL:
i
MoV
NUM,=(SP)
: :NUMBER TO BE TYPED

N
M

: :NUMBER TO BE TYPED
::CALL FOR TYPEOUT
::N=1 TC 6 FOR NUMBER OF DIGITS TO TYPE
::M=1 0RO
::1=TYPE LEADING ZEROS
:;0=SUPPRESS LEADING ZEROS

}}ggg

i
b

11940
11941
11942
}}gzz
11945
11946

057072
057076

057104
057110
057114
057116
057124
057132

11954

057142

057140

11955
11956
11957

057144
057146
057152

11959
11960

057160
057164

11958

11961
11962
11963
11964
11965
11966
11967
11968
11969
11970
11971
11972
11973
11974
11975

::CALL FOR TYPEOUT

:*$TYPOC-=-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s*CALL:
i
MoV
NUM,=(SP)
: :NUMBER TO BE TYPED
;e
TYPOC
::CALL FOR TYPEOUT

11947
11948
11949
11950
11951
11952

11953

TYPON

057154

057170
057174
057176
057200
057202
057204
057206
057210
057212
057214
057220
057222
057226
057230
057232

017646
116637

112637
062716
000406
112737
112737
112737

010346

000000
000001

057315

000001
000006
000005

057315
057317
057314

057317
000002

$TYPOS: MOV
MOVB

MOVB
ADD
3
$TYPOC: MOVB
MOVB
S$TYPON: MOVB

MOV

010446

MOV

010546
113704
005404

057317

110437
113704

057316
057315

062704

000006

016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403

000012

MOV
MOVB
NEG
ADD

MOVB
MOVB

1%:
2%:

057316

177770

3%:

MOV
CLR
ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC
BNE
187
BEQ

3(SP),=(SP)
1(SP),$0FILL

(SP)+,$0MODE+1
#2,(SP)
$T1YPON
#1,80FILL
#6,90MODE +1
#5,80CNT

R3,-(SP)

R4 ,=(SP)

RS,=(SP)
$OMODE +1,R4
R4

::P1CKUP THE MODE
::LOAD ZERO FILL SWITCH

;:NUMBER OF DIGITS TO TYPE
::ADJUST RETURN ADDRESS

::SET THE 2ERO FILL SWITCH
::SET FOR SIX(6) DIGITS
::SET THE ITERATION COUNT

:;SAVE R3
::SAVE R4

: :SAVE RS
.
::GET THE NUMBER OF DIGITS TO TYPE

#6,RG

::SUBTRACT

12(SP) ,RS
R3

::PICKUP THE INPUT NUMBER
::CLEAR THE OUTPUT WORD
:;ROTATE MSB INTO ‘¢
::G0 DO MSB
::FORM THIS DIGIT

R4, $OMODE
$OFILL,RG

3%
RS
RS
RS
RS5,R3
R3
$OMODE
7%
#177770,R3
4%
R4
5%

IT FOR MAX. ALLOWED

::SAVE 1T FOR USE
::GET THE ZERO FILL SWITCH

::GET LSB OF THIS DIGIT
;:TYPE THIS DIGIT?
::BR 1F NO
;:GET RID OF JUNK
::TEST FOR 0
: s SUPPRESS THIS 07
;:BR IF YES

CZRIGDO,RPO4/5/6 DSKLS CTRLRT
CIRJGD.P11
10-SEP=79 11:00
11976
11977
11978

057234
057236
057242

005204
052703
052703

11980
11981
11982
11983
11984
11985
11986
11987

057252
057256
057262
057264
057266
057270
057272
057274

104401
105337
003347
002402
005204
000744
012605
012604

11990
11991
11992
11993
11994
11995
11996

057306
057310
057312
057313
057314
057315
057316

012616
000002
000
000
000
060
000000

11979

11988
11989

057246

057276
057300

110337

012603
016666

MACY11

S
30A(1052)
10-SEP-79
11:11
PAGE 273
BINARY T0O OCTAL (ASCII) AND TYPE
4%:

000060
000040

5%:

057312

057312
057314

6% :

000002

000004

INC
BIS
BIS

R4
#'0,R3
#'
,R3Y

::DON'T SUPPRESS ANYMORE 0°'S
;:MAKE THIS DIGIT ASCII
:sMAKE ASCII] IF NOT ALREADY

TYPE
DECB
BGT
BLT
INC
BR
MOV
MOV

8%
$OCNT
2%
6%
R4
2%
(SP)+,RS
(SP)+ R4

1:GO TYPE THIS DIGIT
*:COUNT BY 1
;:BR 1F MORE T0 DO
::BR 1F DONE
;s INSURE LAST DIGIT ISN'T A BLANK
::6G0 DO THE LAST DIGIT
*:RESTORE RS
:sRESTORE R4

MOVE

MOV
MOV

MOV
RT1
8%:
.BYTE
.BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD

R3,8%

(SPYs+ B3
2(SP) ,4L(SF)
(SPY:. (SP)

0
0
0
0
0

::SAVE FOR TYPING

::RESTORE R3
::SET THE STACK FOR RETURNING
; RETURN
::STORAGE FOR ASCII DIGIT
;:TERMINATOR FOR TYPE ROUTINE
;;O0CTAL DIGIT COUNTER
;slERO FILL SWITCH
: sNUMBER OF DIGITS 10 TYPE

ety o)

SEQ 0272

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CZRJGD P11

8N~NNNNN~NNNN
[=l=lelelolololelelolote) o

30A(1052)

10-SEP-79

.SBTTL

TRAP DECODER

1"m:1

6
PAGE 274

SEQ 0273

;;""""'Q""""""""""""""'0""""".'t'.""""

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP'" INSTRUCTION
:*AND USE 1T TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:*G0 TO THAT ROUTINE.
057320
057322
057326
057330
057332
057334
057340

010046
016600
005740

000002

006300
016000
000220

057354

$TRAP:

MOV
MOov

RO,=(SP)
2(SP),RO

;s SAVE RO
;:GET TRAP ADDRESS

RTS

RO
$TRPAD(RO)
,RO
RO

::G0 TO ROUTINE
-

1§71
MOvVB
ASL
MOv

111000

=(RO)
(RO) ,RO

; sBACKUP BY 2
;:GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;;INDEX TO TABLE

;s THIS 1S USE TO HANDLE THE ''GETPRI'" MACRO
057342
057344
057352

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV
RTI

.SBTTL

LSP) ,*L%P)
4(SP),2(SP)

::MOVE THE PC DOWN
: ;MOVE THE PSW DOWN
: RESTORE

THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF
;*BY THE '"'TRAP'' INSTRUCTION.

e
e
D e
D o
il e
i
e
D e

—o
N ~N [ L N O
w ~N = OV
NO WVWN—=O 0

—

11997
11998
11999
12000
12001
12002
12003
12004
12005
12006
12007
12008

MACY11

THE ROUTINES CALLED

ROUT INE

057354
057356
057360
057362
057364
057366

057342
055050
057116
057072
057132
054624

$TRPAD: .WORD

057370

055666

057372
057374
057376
057400
057402
057404
057406

055576
056140
056230
056410
042714
042766
043304

$TYPE
$TYPOC
$TYPOS
$STYPON
$TYPDS

STRAP2

;;CALL=TYPE
::CALL=TYPOC
::CALL=TYPOS
::CALL=TYPON
::CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

$GTSWR

::CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

$CKSWR
SRDCHR
SROLIN
$RDOCT
T.SCOP
CHECKT
WAIT.T

::CALL=CKSWR
::CALL=RDCHR
;;CALL=RDLIN
;;CALL=RDOCT
;;CALL=SCOPI
;;CALL=CHECKD
;;CALL=WAT

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)
TRAP+15(104415)

TEST FOR CHANGE IN SOF T-SWR

TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM T1y

MY LOCAL SCOPES
CHECK DVA,RDY,DPR,DRY
WAIT LOOP

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJGD.P1 1
12043
12044
12045
12046
12047
12048
12049
12050
12051
12052
12053
12054
12055
12056
12057
12058
12059
12060

MACY11

30A(1052)

10-SEP=79

11:11

POWER DOWN AND UP ROUTINES

.SBTTL

PAGE 275

SEG 0274

POWER DOWN AND UP ROUTINES

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

057410
057416
057424
057426
057430
057432

057554
000340

057434
057436
057440
057444
057450
057456
057460

121474
057560
057462

000024
000026

Mov
MOov
MOv
MOov
MOV
MOov
MOV
MOv
MOV
MOv
HALT
BR

000024

12061

12062
12063 057462
- 12064
057470
12065
057474
12066
057500
12067 057504
12068
057506
12069
057512
12070 057514
12071
057516
12072
057520
12073
057522
12074 (057524
12075
57526
12076
57534
12077 057542
12078 057544
12079 057546
12080 057550
12081
057552
12082
057554
12083 057556
12084
057560
12085
057562
12086
057570
12087

; POWER DOWN ROUTINE

$PWRDN: MOV

#SILLUP,@#PWRVEC

;;SET

FOR FAST UP

#340,9#PWRVEC+2 ;;PRIO:7
RO,-(SP)
::PUSH RO ON STACK
R1,-(SP)
::PUSH R1 ON STACK

R2,=-(SP)
R3,=(SP)
R4 ,-(SP)

RS,=(SP)
aSWR,=(SP)
SP,$SAVR6

:sPUSH R2 ON STACK
::PUSH R3 ON STACK

;

#SPWRUP ,3#PWRVEC

::PUSH R4 ON STACK

:sPUSH RS ON STACK
:;PUSH @SWR ON STACK
;s SAVE SP
;;SET UP VECTOR

: :HANG UP

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

012737
013706
005037
005237
001375
012677
012605
012604
012603

057554
057560
057560
057560

000024

:POWER UP ROUTINE

$PWRUP:
1%:

121426

057410
000340

000024
000026
$PWRMG:
$PWRAD:
$ILLUP:

000122

047520

042527

MOV
MOV
CLR
INC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TYPE

.WORD

MOV

.WORD

RTI

HALT
BR
$SAVR6: 0
$SPOWER: .ASCIZ

.EVEN

#SILLUP,a#PWRVEC

::SETSEOR FAST

DOWN

$SAVR6, SP
$SAVR6

::GET
;:WAIT LOOP FOR THE TTY

(SP)+,R5

;:POP STACK

$SAVR6
1%
(SP)+,3SWR
(SP)+ R4

(SP)+,R3
(SP)+,R2
(SP)+,R1

(SP)+ RO

#SPWRON ,a¥#PWRVEC

;;WAIT FOR THE INC
:;0F
WORD
::POP STACK INTO aSWR
:;POP STACK

INTO R5

INTO Ré&

:;POP STACK INTO R3
;:POP STACK
:;POP STACK

INTO R2
INTO R1

. :POP STACK INTO RO
;;SET

UP THE POWER DOWN VECTOR

#340,9#PWRVEC+2 ;;PRIO:7
$POWER

(PC)+,(S5P)
BEGIN
e ®d
<15><12>''POWER""

;REPORT THE POWER FAILURE

:;POWER FAIL MESSAGE POINTER

; ;RESTART AT BEGIN
; ;RESTART ADDRESS

;:THE POWER UP SEQUENCE WAS STARTED
:; BEFORE THE POWER DOWN WAS COMPLETE
;sPUT

THE

SP HERE

CZRJIGDO,RPO4/5/6 DSKLS CTRLRI

CZRJGD. P11

10-SEP=79 11:00

MACY11

12088

30A(1052)

10-SEP=79

11:11

POWER DOWN AND UP ROUTINES

6
PAGE 276

SEQ 0275

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

12089
12090
12091
12092

;*ERROR AND MESSAGE TABLE CONDIMENTS
cw

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

12093

12094
12095
12096

D i
D ol
D o
D =
b
cab
- e

D i

b cnd e

au)

b wub aud

b e

b cu

D sl

i —

BErEDPRUANHWHWWWWWWNINNNNNNNNNNNNN
= - i P b it b b s 2 OO0 0000000 o
W
= O VBN NS W= OOV
NO VNS WNN—=O VYOV
NN 2O 000 O VNS NN) — o

il
D i
D i
il
il
—

D o

D e

D i

D e

D il

il
D
D

oD
NN NN NN NN

12097
12098
12099

057572
057600
057606
057614
057622
057630
057636
057644
057652
057655
057662
057670
057676
057704
057712
057720
057726
057734
057742
057743
057750
057756
057764
057772
057776
060004
060012
060016
060024
060032
060040
060046
060054
060062
060067
060074
060102
060110
060116
060124
060132
060134
060142
060150
060155
060162
060170

051127
040504
020116
047111
053440
043516
053504
062522
051105
105

047440
052101
046515
051105
047117
042524
042504
020104

052522
044501

EM1:

LASCIZ

/WRONG DATA

EM2:

LASCIZ

/ERROR ON

EM6:

LASC1Z

/ERROR ON WRITE

IN READING CR WRITING HARDWARE REGISTER/

DATA

COMMAND/

HEADER AND DATA/

040504

040524

047117
042514
042040
051440
000123
044507
043040
000104
020116
042524

051124
020122
044522
040524

EM11:

LASCIZ

/CONTROLLER OR DRIVE

052123
044501

EMI14:

LASCIZ

/REGISTER

054105
052116
051511
020040
040522
051117
000
020124
043040
000104
020105
020113
047111

EM15:

LASCIZ

/NON EXISTENT

EM16:

LASCIZ

/WALT

EM17:

LASCIZ

/WRITE

052123
044501
000
051105
043040
043516

EM20:

LASCIZ

/REGISTER FAILING/

EM21:

LASCIZ

/INTERRUPT

STATUS/

FAILED/

RECISTER,

LOOP FAILED/

CHECK

FAILING/

PROGRAM ABORTED./

060176
060177
060204
060212
060220
060226
060232
060240
060246
060254
060262
060270
060276
060304
060312
060313
060320
060326
060334
060342
060350
060356
060364

026440
044126
052111
020123
020104
052105
051040
051525
044122
012
050
047504
040440
053440
044124
052111
020123
006504

060374
060402
060410
060416
060424
060432
060440

060367

000
105
047440
053111
042522

051
020
051
042
0050
020105
047040
047506
054502
044526
040510
047111
051105

MACY11 30A(1052)
10-SEP-79 11:11
POWER DOWN AND UP ROUTINES
7

EM22:

PAGE 277

.ASCI1

/ERROR ON DRIVES PRESENT =/<15><12>

/THE UNIT NO'S FOUND BY SETTING RHAS USING RHER1/<15><12>

0
6
— NN
- N

R e

e S R R R R R AR R

rF N S e S A e R R R L

LT AR AR ZS o

— et D D
e il i D s D i il i il il il D D ) D il il i i il D e D il i D il il il s D e D e il i i D il D D D il et D
OOV OV OO OVOOVOVOVOOEOEONNNNYNNNNNNOGCOCOCOCCTOCO
OO NV NS
S

dddd—._‘d—.d—‘—.dddd—-dd—.dd—l—.d-fld—.—‘d—.—‘d—.d—‘-‘—fi-—‘d_‘dd-fld-‘flfldd-‘flfldd‘d

NN NN RO N R

JGDO,RPO4/5/6 DSKLS CTRLR1T
GD.P11
10-SEP=-79 11:00

oDV

C
C

LASCI1

032124
047040
051107
052111
020105
047040
047506
012

02005
0521
0425
0201
047;
023
047 1

LASCI1

/7(T4) DO NOT AGREE WITH THE UNIT NO'S FOUND/<15><12>

045517
047506
042105
020060
041510
044502
024462

047111
020122
020047
047111
031123
020124
005015

047514

LASCI1

/BY LOOKING FOR 'NED' = 0 IN RHCS2 (BIT #12)/<15><12><15><12>

047117
020114
051440
026115
044522
020116
020122
053440
005015

0425264

020107
047047
020075
051040
024040
030443
005015

042040
047520
051531
040440
042526
052117
047520
046111

020072

LASCII

/NOTE: ON DUAL PORT SYSTEM, A DRIVE ON OTHER PORT WwlLL /<15><12>

042526
023504
020124
043440
044122
051505
051505

023440
020054
044527
053111
051501
047520
005015

102

020131

5
0

05
043 6
020123
020107
006461

060446

047516

060536

047516

020124

044507

LASCII

/NOT GIVE °'NED', BUT WILL GIVE RHAS RESPONSES/<15><12>

042510

041516

020105

LASCIZ

/HMENCE THERE WlLL BE AN EXTRA DRIVE/

047517

020113

,ASCIZ

/L00k AHEAD REGISTER AT THE BEGINNING OF SECTOR IS IN ERROR/

060454
060462
060470
060476
060504
060512
060520
060526
060534

060544
060552
060560
060566
060574
060602
060610

060614

060622
060630
060636
060644
060652

060657

044124
044527
020105
052130
044522

114

051105
046114
047101
040522
042526

040525
052122
042524
042040
047440
042510
052122
020114

042516
052502
046114
020105
051040
051516

020105
041040
042640
042040
000

EM24:

SEQ 0276

—

D — — — — — — el —

—h — —

— —

D ek

—

il - —d

)

) — —

241
242
243

040505
044507
040440
020105
047116
043117
047524
Ne

VIR

—

row -~

2l Pol
o

~N~
O et
O
VNN o

044101

oo oo

060664
060672
060700
060706
060714
060722
060730
060736
060744
060752
060760
060766
060774
061002
061010
061012
061020
061026
061034
061042
061050
061056
061064
061072
061100
061105
061112
061120
061126
061133
061140
061146
061154
061162
061167
061174
061202
061210
061216
061224
061232
061240
061246
061254
061256
061264
061272
061300
061306
061314
061322
061330
061336
061343
061350
061356

MACY11

—lh el

-l

D il el

D il il i

oD
NN NN NN
RN NN N NN
o oo
N NN
N NN
NNV oo
Hw NN N NN whorNrorRoNN PNOINININ b bt
e e e e e s O O [elelele]
o0 ONO
NS NN — OOV~NO
WV WN=O0VONOWVSIWN—-=000 ~Nownes

D il

CZRJGDO,RPO4/5/6 DSKLS CTRLRY
10-SEP-79 11:00
CIRJGD.P11

051525

043505
051522

051040
047503
026104
051105
020101
041505
042526
020116
006454
041503
051511
047440

020104
052123
020124
062502
047111
051440
020122
020116
000122
060440
051040

30A(1052)

10-SEP=79

11:11

POWER DOWN AND UP ROUTINES

PAGE 278

SEQ 0277

EM2S:

LASCIZ

/LOOK

EM30:

LASCII

/CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER REGISTER/<15><12>

.ASCI1Z

/AFTER

LASCII

/ECC GENERATED

LASCIZ

/EVERY WORD ON THIS SECTOR IS THAT GIVEN IN '"'DATA USED"/

LASCI]

/ON READ COMMAND, AFTER DATA AND ECC HAVE

LASCII

/ECC REGISTERS OR RHMER! ARE

AHEAD REGISTER

IN ERROR/

042524

044440
047522
047105
044514
042040
047516
041524
044523
054503
051105
051511
012
051105
042505
020104
000
043440
052101
020123
051122
012
054522
020104
044510
052103
020123
043440
044440
052101
042105

040505
046515
040440
042040
047101
020103
041040
062522
012

051040
042524
020122

EM31:

EM32:

A SEEK

AND

INIT/

INCORRECT/<15><12>

BEEN READ,/<15><1?2>

IN ERROR/<15><12>

PERERIS RIS

ARSIMR

MACY11

12256
12257
12258
12259
12260
12261
12262
12263
12264

061364
061372
061400
061406
061410
061416
061426
061432
061440

044122
051101
042440
005015
047117
053517
020061
047440
0521264

12266
12267
12268
12269
12270
12271
12272
12273
122764
12275
12276
12277
12278
12279
12280
12281
12282
12283
12284
12285
12286
12287
12288
12289
12290
12291
12292
12293

06146454
061462
061470
061476
061504
061512
061520
061526
061534
061542
061545
061552
061560
061566
061574
061602
061610
061616
061617
061626
061632
061640
061646
061654
061662
061670
061676
061704

047101
042522
0441264
047510
040515
047514
030461
020123
047517
030503
110
047503
044502
020124
043101
034063
046103
000
132
042506
041040
052117
020110
031440
020124
042522
051501
042532

043511
047125

020110
020124

051105
042524
052111
044040
044127
020062
041505
027107
031040
047522

020117
052103
047040
043511
047105
044502
020103
044040
020061
000123

12295
12296
12297
12298
12299

061720
061726
061734
061742
061750

047117
051511
051117
044502
020106

051040
0425264
030440
051524
040520

043505
020122
020061
047440
052124

2300
2301
2302
2303

2304

2305
2306
2307

2308
Sg?g
23

061712

061756
061764
061772
062000

062006

062014
062022
062030

062036
062044
062052
062060

042522

047520

054514
051105

046040
030440

044502
020106
051105
027107
041040
042101
051511
046125
041526
042527
041040
043117
020104
000
020126
042523
042526
032470
041517

044523

051105
044507
044440
042522

020116
0521
0415
0521

030461
020123
052101

0410
0431
0425

047514

051040
042524
052517
052101

SEQ 0278

LASCI1

/ONLY LOWER 11 BITS OF

LASCIZ

/THIS SHOULD MATCH LOWER

EM33:

_ASCIZ

/MIGH COUNT BIT NOT SET AFTER 38859 (LOCKS/

EM34:

.ASCIZ

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

EM35:

LASCI1

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

051524
040520
020116
041440
020105
005015
051440
020104
020110
020122
052111
043440
041505

PATTERN REG.

BITS OF

(AN BE READ/<15><12>

GOOD ECC1/

047516
020124
020122
020071
051513

044524

ZEROS/

,
|

042522

0425

043505
020122
042114
044103

6
PAGE 279

LASCI1T

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

051511
0644123
046440
046040

——

12294

061446

020061
047111
051117

[

12265

051105
020105
051122

30AC1052)
10-SEP-79
11:11
POWER DOWN AND UP ROUTINES

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
CZRJGD.PT
10-SEP-79 11:00

—

— —h

il il i

S i

i il i

D il i

D il

il il i

D i

D il

D it

NNV
NN NN RNV NN NN NN NN RO NV N N O N ~N
WU U U U U U g W U U U U U U U U
U U UM U U U i N N U N U U U U U WU U e N U U U U
U NN i W N N
N
W IV IV IV IV IV D O o o o o o O S
VTV NN NN NN W N A NNNNNNFJN-‘—‘—‘-“—‘—“—I:
oo [ XV RV LV LV QW
(o W I W] P COV®NOW P ANN=OOVENOVRWN
OOV NO VR WN =00V N VS NN OOV NO VW ~

CIRJGDO,RPO4/5/6 DSKLS CTRLRT
CIRJGD.PT
10-SEP=-79 11:00

062066
062074
062102
062110
062116
062122
062130
062136
062144
062152
062160
062166
062174
062202
062210
062211
062216
062224
062232
062240
062246
062254
062262
062270
062276
062304
062312
062320
062322
062330
062336
062344
062352
062360
062366
062374

062376
0626404
062412
062420
062426
062434
062442
062450
062456

062457

062464
062472
062500
062506
062514
062522
062530
062531
062536

053517
030467
020123
047517
030503
040504
046126
047517
044523
040440
041455
042532
051101
047440
000
117
042101
040515
052111
026516
041505
020105
020122
020047
042447
044123
041040
000124
051720
020115
020122
030443
051040
042040
052117
005015

MACY11

051105
041040
043117
020104
005015
020124
050117
020104
044526
042116
042117
047522
020105
052103

005015
052111
043440
041505

020116
041440
042116
020110
047503
040526
051105
042047
047101
044103
052517
020105

042522
046517
053440
047516
051122
046102
047522
045503
020104
020047
042114
042523

043517
051105
044502
020060
041510
042111
051440

040522
047522
020124
047111
031123
047040
052105

043111
052111
042522
051105
032060
030440
020054
020123
000

050040
047511
044507
036440
020060
030060
052111
047507

051517
020116
052123
030061
051117
030464
044440
042117

122

053510

020103

044504
020124
050125
046517
047511
051040
012
117
052111

30A(1052)
10-SEP-79
11:11
POWER DOWN AND UP ROUTINES

047516
020060
041440
052105
043117
006504

020122
020105

051127
042510

PAGE 280

SEQ 0279

LASCIT

/11 BITS OF

.ASC1Z

/DAT ENVLOP GOOD POSITION AND N-CODE ZEROS ARE

EM36:

.ASCIZ

:
/ON READ COMMAND WITH NON-CORRECTABLE ERROR 'DCK' AND "ECH' SHOULD BE SE

EM37:

LASCI1

/PROGRAM ERROR BIT #10 IN RH(S2 DID NOT SET/<15><12>

LASCIZ

/1F POSITION REGISTER =10040 CR 10041,

.ASCI1

/RHWC DID NOT = O UPON COMPLETION OF READ/<15><12>

LASC1Z

/OR WRITE WEADER AND DATA/
_

047105
043440
047520
047117
047040
020105
020123
047111
046101

020104
020075
047117
046120
020116
040505

EM40:

GOOD ECC1/<15><12>

IN OCTAL/

IS GOOD/

|
!

CIRJGDO,RPO4/5/6 DSKLS CTRLR1

MACY11

12368
12369
12370

040440
052101

CZIRJGD.P1

062544
062552
062560

10-SEP=79 11:00
042101
042116
000101

051105
042040

30A(1052)

10-SEP=-79

11:11

POWER DOWN AND UP ROUTINES

PAGE

281

SEQ 0280

JGDO,RP0O4/5/6 DSKLS CTRLR!
10-SEP-79 11:00
JGD.PIN

o-cno-g
N —=O 0

N
S

oo
N
[l o S o o o
N rRONNON —

s D il il il

D s D il il il

oo
NN LS LT ST ST NT ST ST ST

-l il il ol B ol D D D

D s D s

ST ST ST NT ST STNT. ST
NN NN LN NN LN AN NN N
S e NN
N
NN W N
COVOOVOOVOVOOO 0
OO0
00~ NN NNV~ -~
OOV
NO WV
NN - oV~
VBN
2O 00NO VSN —

C
C

426

062562
062570
062576
062604
062612
062620
062626
062634
062642
062650
062656
062664
062672
062700
062706
062714
062722
062723
062730
062736
062744
062752
062760
062766
062774
063002
063004
063012
063020
063026

040506
051105
020055
047504
052116
044524
006440
177607
0464124
052116
051105
042504
044040
047117
046106
046040
012
047
023531
047503
040516
041101
051117
051440
020123
005015
044127
040503
041040
040505

063034
063042

063045
063052
063060
063066
063074
063102
063110
063116
063117
063124
063132
063140
063146
063154
063162
063170
063176
063204
063212
063220

MACY11

30A(1052)

10-SEP-79

11:11

POWER DOWN AND UP ROUTINES

CPHALT:

6
PAGE 282

SEQ 0281

LASCILI

/FATAL ERROR - SEE DOCUMENT LISTING/<15><12>

LASCII

/ 1¢15><12><207><377><377><207><377><377><207><377><377>

LASCII

/THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12>

051517

026105
006524

042522
020054
042515
040526
042514
044040
040524
044502

042101
042502
052440
046111
020054
051501
052524
051524

LASCII

/'READY', BECOME

041511
047116
020105
042522

020110
052117
046103
000104

LASCIZ

/WHICH CANNOT

020040
020040

020040
000

020040

SPACES:
SPACEZ2:

LASCII
LASCIZ

/
R

120

020103
052040
020040
020056

020040
051505
051040
020040
020104
041505
006504

DH1:

LASCII

/PC

TEST

REG.

600D

RECEIVED/<15><12>

020040
047040
020040
027122
052101
042040
020040
020040
042524
020040
020040
062117

020040
020117
040440

LASCIZ

ADDR.

DATA

LASCI]

/PC

TEST

WORD

600D

BAD

/1<15><12>

020040
020124
043505
043440
020040
044505
012
040
020040
020040
042104
042040
020040
020101
041520
020040
020040
042122
047507

047517
051040
042526

020040
020101
052101
000040
020040
052123
047527
020040
020040

DHZ:

UNAVAILABLE,

OR HAS STATUS BITS/<15><12>

CLEARED/

—_——

CIRJGDO,RPO4/5/6 DSKLS CTRLRT
CIRJGD.P11
10-SEP=79 11:00

MACY11

126427
126428
126429
126430
126431
126432
12433
126434
12435
12436
12437
12438
126439
126440
126441
126442
126443
126446
126445
12446
126447
126448
12449
126450
126451
126452
126453
126456
12455

063226
063234
063242
063250
063256
063264
063272
063300
063306
063313
063320
063326
063334
063342
063350
063356
063364
063372
0636400
063405
063412
063420
063426
063434
063442
063450
063456
063464
063472

040502
020040
020040
047516
020040
020040
040524
040504
020040
020103
052040
020040
044514
047117
041640
020040
027124
047117
006440
020040
047040
020040
040440
041510
051040
020040
030523
042510

020104
005015
020040
020040
047516
020040
020040
040524
000
020040
051505
043040
043516
027124
047117
041440
020040
027124
012
020040
020117
051040
051104
030523
041510
051040
020040
030522

12457
126458
126459
126460
12461
12462
126463
126466
12465
126466
12467

063500
063506
063514
063522
063530
063536
063544
063552
063560
063566
063574

020040
052040
020124
020040
044501
044514
041440
047117
020040 041440
027124
020040
047117. 027124
041440 047117
020040 041440
027126
020040
012

120

020103

020040

063602
063610
063616
063624
063632
063640
063646
063654
063662
063670

020040
020040
043505
041040
043505
030523
041510
051040
020040
030522

040

020040

120
020040
020126
043505

020103
052040
020040
060440

020040
051505
051040
051104

126456

12468

12469
12470
126471
12472
12475
12474
12475
12476
12477
12478

12479
12480
12481
12482

063473

063575

063673
063700
063706
063714

020040
020040
020040
020040
020040
020040
040504
020040
020040
120
020040
020126
044501
041440

020040
027124
047117
041440
020040
040
020040
020040
043505
051040
020040
031123

042110
051040
000

047040
020040
040440
042101
051040
020040
031123
042110
051040
000

051505
043040
043516
027124
047117
041440
020040
027124
047117
006440

30A(1052)
10-SEP-79
11:11
POWER DOWN AND UP ROUTINES

DH11:

DH14:

020117
051040
051104
051040
041510
051040
020040
030523
042510

DH15:

e
—

PAGE 283

SEQ 0282

LASCIZ

DATA

.ASCII

/PC

TEST

FAILING CONT.

CONT.

LASCIZ

REG ADR RHCS1

RHCS2

RHDSI

RHER1/

LASCIT

/PC

TEST

FAILING CONT.

CONT.

CONT,

LASCIZ

REG ADR BAD REG RH(S!

RHC(S2

RHDSI

RHER1/

LASCIZ

/PC

TEST

REG ADR /

/<15><12>

/<15><1

R—

—

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CIZRJGD.P1Y
12483

063722

000040

020040
020107
005015
020040
020040
020040
020040
040527
020040
051505
052116
000

oDV
ND

NO VSR

N =00

NO WV

NN =0O

AWV AWV A WYV
YV WV
WA WWRIWRNINN
NN NN RN NN
b
i
b et

322
388

506

VWAV WV WV

W\I‘g VSN = OOV
N

d—dfld—‘ddfldd-‘dddddddddddd‘dddfl-flddddd

120
020040

064410

020124
047117
041440
020040
027124
047117
061440
020040
040
020040
020040
041110
051040
020040
020103
041510
051040
020040
041520
020040
020040
052116
047503
020040
020040
052116
047503
020040
020040
020040
020040
051105
044122
020040
020063

MACY11

30A(1052)

020040
042524
020040
020040
020124
042522
020040
020040

020040
052123
040527
020040
020040
020107
042522
020040

DH16:

020040
047516
020040
020040
052116
042101
020123
020056

020040
020040
041520
020040
042105
051104
047503
020040

020103
052040
020040
027124
047117
061440
020040
027124
047117
006440
020040
047040
020040
020101
042110
051040
020040
030523
041510
000040
020040
042524
020040
020040
052116
047503
020040
020040
052116
005015
020040
047516
020040
020061
051105
044122
020040

020040
051505
041440
020040
027124
047117
041440
020040
027124

LASCII

/PC

LASCI1Z

DH17:

012

020040
020040
044122
020040
020062
051105
064122

11:11

POWER DOWN AND UP ROUTINES

020040
020117
051040
020040
020102
053510
051040
020040
031123
020040
052123
047503
020040
020040
052116
047503
020040
020040

10-SEP-79

LASCII

/PC

LASCIZ

DH20:

LASCII

LASCIZ

/PC

6
PAGE 284

SEQ 0283
/<15><12>

TEST

WALT

BIT

REG

WANTED

ADDRESS CONT.

TEST

CONT.

/<15><12>

RHBA

RHDB

RHW(

RHCS1

RH(S2

TEST

CONT

/1<15><12>

RHER1

RHER?

RHER3

RMHAS

RWDS1

REG

CIR JGDO,RPO4/5/6 DSKLS CTRLRT
CIR JGD.P1N
10-SEP=-79 11:00

2539
25640
25641

064416
064426
064432

051501
044122
020040

2543
25644
2545
2546
2547
25648
2549
2550
2551
2552
2553
25564
2555
2556

064442
064450
064456
064464
064472
064500
064506
064507
064514
064522
064530
064536
064544
064552

020040
020124
047117
041440
020040
020124
012
040
020049
020040
041510
051040
020040
030523

064562
064570
064576
064604
064612
064617
0646264
064632
064640
064646
064654

2542

2557

2558
2559
2560
2561
2562
2563

569

064555

NN
N
VAWV
AV A WAV VWV VAV

2565
2566
2567
2568

064435

064660

2589

065043

570
71
72
75
74
75
76
77
78
79
80
81
82
83
84
85
86
87
2588

2590
5591
592
2 593
2 594

064666
064674
064702
064710
064716
0647264
064732
064740
064746
064752
064760
064766
064774
065002
065010
065016
065024
065032
065040

065050
065056
065064
065072
065100

120

MACY11 30A{1052)

020040
051504
000

020040
020061

052040
020040
020124
047117
041440
020040

051505
041440
020040
020124
047117
006440

020040

020040
047040
020040
030523
040510
051040
000

020040
020117
051040
020040
020123
042110

020040
020124
020040
020040
051503
040
020040
020040
020040
020123
052111

052040
020040
044122
020040
006462
020040
047040
020040
047125
020040
000123

051505
020040
051501
044122
012
020040
020117
020040
052111
047125

020040
020040
051504
040502
020040
020040
052103
042523
020040
020040
020040
020040
052116
044122
020040
020040
020040
046103
020040

042524
020040
020124
020104
047507
020040
051117
052103
005015
020040
047516
020040
020056
040514
044122
020040
020040
041517
000

041520

120

020040
020124
020103
043040
043516

020103

020040

052123
044122
020040
020040
042117
042523
020040
051117

DH21:

DH22:

DH24:

020040
020040
047503
020040
020040
040514
047516
020040
020113

020103

020040

044501
041440

044514
047117

052040
020040
043117

11:11

POWER DOWN AND UP ROUTINES

020103

120

10-SEP=-79

051505
050040
020040

DH26:

PAGE 285

SEQ 0284

.ASCII

/PC

TEST

CONT

/<15><12>

LASCIZ

RHCST

RHAS

RHDS1/

.ASCII

/PC

TEST

RHAS

RH(S2/<15><12>

LASCIZ

UNITS

UNITS/

LASCIT

/PC

TEST

RHDST

BAD

600D

SECTOR

/<15><12>

LASCIZ

CONT.

RHLA

Lotk

LASCID

/PC

TEST

PC OF

FAILING CONT.

CONT.

(CONT.

/<15><]

preeeen

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP-79 11:00

CIRJGD.P1N

065106
065114
065122
065130
065136
065144
065145
065152
065160
065166
065174
065202
065210
065216
065224
065232
065240
065246
065254
0652(2
065270
065276
065304
065312

065562
065570

027124
047117
041440
020040
027124
012
040
020040
020040
051123
051040
042104
030523
041510
051040
020040
030522
041520
020040
020040
047440
040506
020107
020040
042503
005015
020040
020040
020040
020122
042522
020040
020040
040524

020040
020040

MACY11

020040
027124
047117
041440
020040

041440

020040
047040
020040
020040
043505
051040
020040
031123
042110
051040
020040
020040
042524
020040
020106
046111
047507
020040
05311

020040
020117
045040
020040
040440
041510
051040
020040
030523
042510
000040
020040
052123
041520
020040
047111
042117
042522
042105

020040
047516
020040
020040
020107
040504
020040
020040

020040
020040
051512
020040
020040
040524
040504
020040

020103
0529040
020040
063117
043505
043440
020040
020040
012
020040

020040
051505
050040
020040
020056
047517
041040
020040

047040
020040
020040
042104
042040
020040
020101

020040
020117
045040
020040
042522
052101
042040
020040

020040
042524
020040

020040
052123
047527

30A(1052)

10-SEP-79

11:11

POWER DOWN AND UP ROUTINES

6
PAGE 286

SEQ 0285

020040
027124
047117
006440
.ASCI1Z

DH27:

LASCII

/PC

LASCIZ

DH30:

LASCII

/PC

LASC1Z

DH31:

LASCII

/PC

JSR

REG ADD RHCS1

RHCS2

TEST

PC OF

FAILING GOOD

RECEIVED/<15><12>

JSR

REG

DATA

TEST

REG.

GOOD

BAD

/1<15><12>

JSR

ADDRESS DATA

DATA

TEST

WORD

GOOD

CONT,

BAD

RHDSI

RHER1

CONT

1€15><]

065576
065604
065612
065620
065626
065634
065642
065650
065656
065664
065672
065700
065706
065714
065722
065730
065736
065764
065752
065757
065764
065772
066000
066006
066014
066022
066030
066036
066044
066052
066060
066066
066071
066076
066104
066112
066120
066126
066134
066142
066150
066156
066164
066172
066200
066202
066210
066216
066224
066232
066240
066246
066254
066262
066270
066276

042122
047507
020040
020040
052116
047503
020040
020040
020040

051503
044122
020040
020061
120
020040
020124
020103
053440
020040
020104
042101
0461440
020040
027124
047117
006440
040
020040
020040
051123
047040
020040
020101
052101
051040
020040
030523
042510
000040
041520
020040
020040
047440
047527
020040
020040
052116
047503
020040
020056

1 1 11
POWER DOWN AND UP ROU 1 l ES

020040
062117
040502
020040
020056
052116
047503
020040
020040
047516
020040
020040
040524
040504
020040
020061
051504
044122
020040
020103
052040
020040
063117
051117
043440
020040
020040
047117
041440
020040
027124

020040
027124
047117
041440
020040

041510
051040
020040
030522

020940
020117
045040
020040
020040
052101
042040
020040
030523
042110
051040
020040

012
020040
047040
020040
020040
020117
042040
020040
020101

020040
042524
020040
020106
042122
047507
020040
020056
052116
047503
020040

10-SEP-79

020040
020040
020104
047503
020040
020056
052116
005015
020040
020040
047516
020040
020040
040524

.ASCIZ

PAGE 287

TEST

JSR

TEST

SEQ 0286
VOOUVOOO0O00oe

12651
12652
12653
12654
12655
12656
12657

MACY11 30A(1052)

DATA

RHCS1

RHDS1

RHER1

WORD

600D

BAD

CONT.

DATA

RHCS1

RHDS1

RHER1

WORD

600D

CONT.

/<15><

044122

020040
020061
051105
000
020040
051505
050040
020040
020104
047517

DH32:

LASCII

/PC

041040

020040

LASCIZ

DH33:

LASCII

/PC

T OO VUV VUV OVO TN OVVVOVOVOVVOVTOVTVTOVVOVOVOVVVOVVVVVVOVOVOVVOVOOVVUVUUYY

CZRJIGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CZRJIGD.P11

066773
067000
067006

020061
120
020040
020124
047517
043440
020040
052124
044522
042040
020040
040
020040
020040
041503
042440
020040
020061
041503
052440
020040
041520
020040
020040
042117
047507
020040
051105
044523
047507
020040
020061
020040
020040
020040
030503
041505
020040
0425

020040
047516
020040
020040
020040
040504
020040
020061
051504
044122
020040
020103
052040
020040
020104
047517
053440
047105
052124
052101
006440
020040
047040
020040
020061
041503
062440
020040
020062
042523
000040
020040
062524
020040
020040
062117
040520
020116
047524
042117
044122
020040
020040
047516
020040
020040
031103
042522
107

OZOOEE-hgsGUAO
047520
020116
020040
120

020040
020124

044523
042522
020040
020103
052040
020040

020040

11:11

POWER DOWN AND UP ROUTINES

DH34:

PAGE 288

SEQ 0287

LASCIZ

JSR

DATA

LASCII

/PC

TEST

600D

WRITTEN WRITTEN DATA

/<15><12>

ECCI

ECC?

ECCI

TEST

600D

PATTERN POSITON GOOD

ECC

ECC2

REG.REG.

TEST

RHMR

POSITON PATTERN /<15><1?2>

LASCIZ

RHCST

ECC2

RHDST

USED

RHER]

020104
020040
052123
047507
020040
020040
052124
047520
020116
020040
051105
005015
020040
020040
041505
020040
020040
027107
020040
020040
047524
027107
000
020040
051505
050040

DH35:

LASCII

/PC

LASCIZ

DH36:

LASCII

/PC

RHER

POSITCN REG.

TTOTTTMTOTTTUOTTTUOTTUOTUOTTOTTOTTTOTMTOn

020040

10-SEP-79

D DIDIDTODIOHTVTOTENTN

066304
066312
066320
066326
066334
066342
066350
066356
066364
066372
066400
066405
066412
066420
066426
066434
066442
066450
066456
066464
066472
066477
066504
066512
066520
066526
066534
066542
066550
066556
066564
066570
066576
066604
066612
066620
066626
066634
066642
066650
066656
066664
066672
066700
066706
066714
066722
066730
066736
066744
066752
066760
066766

30A(€1052)

1
N=wOVo~N OWVES

NN = OOV NOVHNWNN

=0 VNV
W =0 VO NO VS WN =0 VOV

VS W

=00

NN NNNNNNNNNNNYNNNNNNNNNNNYNNNNNNNNNAYNNNNNNNNNYNNNNNNNNN~N
L
vy
W o T N V] ¥ VT V] VT N T V] V] T -,
oo WAV AVAVAVAVIVAVIVIVY2EoF 2F oF 2F oF 2k o o o

d_fl—‘—.ddddddu—._‘dddd‘—.dddflddflddfld-‘fld.‘dd-‘d-‘fld-‘-‘d—‘—.-‘dflddddd

NNV
NN NON NN N NN N NN RO NN N NN NN N NN

12707
12708

MACY11

/<15><

MDD

CZRJIGDO,RPO4/5/6 DSKLS CTRLRI
CZRJGD.P11
10-SEP=79 11:00

2 ouagaoaowa

0o 0o 0o 0o Qo 0o 0o Oo Co

i
D
—

i) —

00 NO WV

i
it
s —
e
—

.l — — — — —

) e

D —ld -

—h -

— — —

~o NN
N 10 N0 INU D U AU D D N D D A N N

D il

i el

D N A

D -l —ld el

D R0 N RO A

il il il

CZRJGDO,RPO4/5/6 DSKLS CTRL
10-SEP=79 11:
CZRJGD.P11

067014
067022
067030
067036
067044
067052
067055
067062
067070
067076
067104
067112
067120
067126
067132
067140
067146
067154
067162
067170
067176
067204
067212
067220
067226
067234
067242
067250
067256
067264
067272
067300
067306
067314
067322
067330
067336
067344
067350
067356
067364
067372
067377
067404
067412
067420

067424
067432
067440
067446
067452
067460

MACY11

30A(1052)

10-SEP=-79
11:11
POWER DOWN AND UP ROUTINES

PAGE 289

SEQ 0288

020103

LASCIZ

JSR

REG.

REG./

LASCII

/PC

TEST

POSITON POSITON GOOD

600D

PATTERN DATA

LASCIZ

346

ECC?

ECC

LASCII

/PC

TEST

CONT./<15><12>

LASCIZ

RHWC/

CONT.

051040

047522

041520
020040
020040
052116

020040
052123
047520
020116
047524
062117
047507
020040
051105
040524
026516
005015
020040
020040
041505
020040
020040
030503
041505
020040
020040
046126
042532

DH37:

020040
042524
020040
006456
020040
047040
020040
000103

020040
052123
047503

DH40:

002032
001126
002032
000000
002032
001126

04240¢
000000
047736

DT1:

.WORD

$ERRPC,TSTNM REGADR,$GDDAT,$BDDAT,0

D12:

.WORD

$ERRPC,TSTNM ERWORD,$GDDAT,0

047736
000000

DT3:

020105

000123

012
020040

020117
051040

600D

ECCt

$ERRPC,TSTNM ERWORD,$GDDAT,$BDDAT,0

ENVLOPE

N-CODE/

ZEROS/

067720
067726
067734
067736
067744
067752
067760
067766
067774
070002
070004
070012
070020
070026
070034
070042
070046

001116
042402
000000
001116
001124

001736
001116
047736
001714
000000
001116
047736
001736
001116
045430
051534
001116
045430
045440
001116
001734
000000
001116
045440

DT11:

.WORD

$ERRPC,TSTNM, $BDADR,(CS1,(S2,DS1,ERT,0

D114

.WORD

$ERRPC,TSTNM,$BDADR,$BDDAT,(S1,CS2,DS1,ERT,C

DT15:

.WORD

SERRPC,TSTNM,$TMP1,0

001204
001126

DT16:

.WORD

SERRPC,TSTNM,
STMP3 $TMP1,$TMPO,$BDDAT,0

002032
001706
000000

001710
001714

DT17:

.WORD

$ERRPC,TSTNM,BA,DB,WC,(51,052,0

002032
001730
000000
002032
001736
002032
002032
001200

001716
001732

D120:

.WCRD

$ERRPC,TSTNM,ER1,ER2,ER3,AS,DS1,0

001714
000000

DT21:

.WORD

$ERRPC,TSTNM,CS1,AS,DS1,0

000000

DT122:
DT124:

.WORD

$ERRPC,TSTNM,0

002032
001714
001716
002032
001124

002014
001712
000000
002014
001126

D126:

.WORD

$ERRPC,TSTNM,PCJSR,$BDADR,(S1,(S2,DS1,ER1,0

D127:

.WORD

$ERRPC,TSTNM,PCJSR,REGADR,$GDDAT
,$BDDAT,0

002032
001124

002014
001126

DT130:

.WORD

$ERRPC,TSTNM,PCJSR,REGADR,$GDDAT
,$BDDAT,0

002032
001126
001716
002032
001124
001736

047736
001714
000000
002014

DT31:

.WORD

$ERRPC,TSTNM,ERWORD
,$GDDAT ,$BDDAT,CS1,DS1,ERT,0

DT32:

.WORD

$ERRPC,TSTNM,PCJSR,ERWORD
,$GDDAT ,$BDDAT,CS1,DS1,ERT,0

002032
001124
001716
002032
052534
000000
002032
001746
001716
002032
001744

002014
001714
000000
045426
052536

DT33:

.WORD

$ERRPC,TSTNM,PCJSR,ERWORD ,$GDDAT,CS1,DS1,ERT,O

DT34:

.WORD

$ERRPC,TSTNM,GECC1,GECC2,WECCT ,WECC2,DISK,0

045426
001744
000000
002014
001746

DT35:

.WORD

$ERRPC,TSTNM,GECC1,GECC2,EC2,ECT,POS]IT]
ERT,O

DT36:

.WORD

$ERRPC,TSTNM,PCJSR,
MR, ECT,EC2,0

002032
045426

001744
045430

DT37:

.WORD

$ERRPC,TSTNM EC1,POSIT],GECCY,GECC2,EC2,DATENY,ZCODE,O

001126

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

.WORD

EF
P

001720
001202

SEQ 0289

_E _B_E_B_E_§E_§E_§E_§L_§B_§
_]

PAGE 290

POWER DOWN AND UP ROUTINES

002032
001176

000000

042402
000000

11:11

067576
067604
067612
067616
067624
067632
067640
067646
067654
067660
067666
067674
067702
067710
067716

10-SEP=79

002032
001712
000000
002032
001714
001716
002032

30A(1052)

001716

SAMIAIAIAIAIAIAIAIALA cAIALA

067466
067474
067502
067506
067514
067522
067530
067536
067540
067546
067554
067556
067564
067572

MACYT1

PR
N
N

CZRJGDO,RPO4/5/6 DSKLS CTRLR]
10-SEP=-79 11:00
CZRJGD. P11

MACYT1

12875
12876
12877
12878
12879
12880
12881
12882
12883
12884
12885

001746
000000

045644

045446

070132
070140

001116
000000

002032

001126

000
000
000
000
000
000

000
000
000

070263

POWER DOWN AND UP ROUTINES

PAGE 291

SEQ 0290

000

DF1:

.BYTE

0.0,0,0.,0

001

DF2:

.BYTE

0,0,1.,0

000
000

001

DF3:

.BYTE

0.0,1,0.0

000

DF11:

.BYTE

050'0'000.0'0

000
000
000
000
000

000
000

DF14:

.BYTE

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

000
000

DF15:
DF16:

.BYTE
.BYTE

000
000

DF17:

.BYTE

000
000
000
000
000
000
000

000
000

DF20:

.BYTE

0.,0,0,0,0.0.0

000
000
000

000

DF21:

.BYTE

0,0,0,0.,0

000

DF22:

.BYTE

0.0,0.0

DF24:

.BYTE

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

DF26:

.BYTE

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

DF27:

.BYTE

0,0,0,0,0,0

DF30:

.BYTE

0,0,0,0,0,0

DF:1:

.BYTE

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

DF32:

.BYTE

0,0,0,1,0,0,0,0,0

DF33:

.BYTE

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

DF 34:

.BYTE

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

$ERRPC,TSTNM,$BDDAT,O

Y
A
Y
P

NN
T
N
TN
N
B
T

w i

000

.WORD

PRV

070216
070221
070224
070225
070230
070232
070235
070236
070241
070244
070245
070250
070253
070255
070260

11:11

D140:

000

070215

10-SEP=79

070122
070130

30A(1052)

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
LIRJGU.P1Y

CZRJGD.P1

12931

12932
12933
12934
12935
12936
12937
12938
12939
12940
12941
12942
12943

070331
070334
070337
070341
070344
070347
070352
070355
070360

10-SEP=79 11:00

MACY11

30A(1052)

10-SEP=-79

11:11

POWER DOWN AND UP ROUTINES

PAGE 292

000
000

DF35:

.BY'¢

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

000
000
000
000
000

000
000
000 .
000
000

000
000
000
000
0C0

DF36:

.BY'E

0,0.0,0,0.0

©of37:

.8Yl&

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

000
070364

000

DF40:

.BYTE
.EVEN

0,0,0

000001

SEQ 0291

(END

CIRJGDO,RPO4/5/6 DSKLS CTRLRT

CIRJGDO,RPO4/5/6 DSKLS CTRLR]
10-SEP=79 11:00
CIRJGD.PYY
= 000200

= 000040
= 100000

AOQE

= 001000

ADDMOD
ADTIMO

ATA
=
ATABLE
ATTENT
ATO
=
AT
=
AT2
=
A13
=
AT4
=
ATS
=
AT6
=
AT7
=
A6
=
A17
=

BA
BAl
=
BASECH
BEGIN
BEGIN2
BITST
BI110 =
B1100 =
81101 =

000204
047342

001732

100000
004224
002016
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

001710
000010
046356
004244
004234
042404
000001
000001
000002

B1102 = 000004

B1103
B1104
B1105
B1106
B1107
BI1T08
B1109
BIT1
B11T10
BIT11
BI1112
B11T13
BIT14
B1T15

= 000010
= 000020
= 000040
= 000100
= 000200
= 000400
= 001000
= 000002
= 002000
= 004000
= 010000
= 020000
= 040000
= 100000
B112 = 000004
BITS = 000010
B1T14
= 000020
BIT5S = 000040
B116 = 000100
BI117
= 000200
B118 = 000400
B119 = 001000
0462432
BLTI
042454
BLT2
042464
BLY
BPIVEC(= 000014

1394#
16670
1383
660#
10178
1299#
1538#
1 2874
1 33n
1 70#
1
1
1
1
1
|
1
1
1

N NN NN NN N NN O
O NN
NN PO N
NOO NN NN
—
L ER R
R
R
R
B
B

ABS

ACL
ACU

12634
1527#
12324
660
659
661
1863

619#
6094
608#
6074
6064
605#
604
6034
602#
601#
600#
618#
599#
S98#
S97#
5964
S95#
594L#
617
6164
6154
6140
6134
6124
6118
610#
9053#
9053
9061

6264

MACY11

30A(1052)
10-SEP=-79
11:11
PAGE 294
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0292

1797
10234#

8427
3953
3790
2106
2065+

3854
3854

7194
3626
101634

16464
16444

2232
6788
619
618
617

616
615
614
613
612
611
610
9518
11840
11382

9534
9511
9506

9058
9054
90624

4021

5386

6793
6803

6851
6823

12835
8442

12838
8589

8698

8811

2106+

6225

5383

6781

6849

8440

. 8587

8696

8809

7040
7040
7208

7060
7060
12831

10240
10233

7052

7068

7543

9762

12080

2357

2381

2463

2489

2514

2539

2560

11376

11856

9529

9531

3631

2257

9504

2440
2440
2440
2441
2419

9536

11354
9513

90604

6933

2333

9539

11368

2440

9541

11847
9520

904748

(KSWR = 104407
CLAREA 042650

CLDISK

042732

5629
5239
7323

12041
11834

5637
6536
7423
8028
1837
3395

5571
7311

8374

COMPA
COMPAR

050530
043626

COMWHD
COUNTD
CPHALT

10251

2786
6084
9638

10539

3053

4926

6718
5612

5753
5489

5981
5602
7527

11855
5641

12036#

7451

6573

5761
6585

8098
2064
3438

8119
2184
3459

7441

6436

6505

6517

8341
2400
3608

8370
2593
3654

3018
3747
5135
6763
8070

3085
3764

8123

3190
3845
5223
6918
8202

3256
3922
5428
7036
8253

7745

4755
6191
7694

7889

7812

4874

7015
7898

5200
6846

7131
7950

7151
7965

6535

4666

4814
7054

6944

6789
8137

7533

8267

9153

8408

9357

3959
5102
7586

4027

4402
5406

4455
5535
8714

4566

5773
93764

6649

5999
9659

4693

6796

5734

10758+
3891
5058
7372
10877#

6321
8666

5520
6415
8771

5603
6765
9352

5630
6930
9452

5725

5754
7324
12372#

5951

7452

5982
7528

6078
8132

6109
8262

5702
8364

5826
9334

5932
9433

6059

6302

6912

7030

7305

7435

94894

6185
9592

3216

3818
12857
3261
12823

5859

9169

9173

9179

9221

9228

12820

12823

12831

3337

6817

10348#
106114
3148
4970
7238

11499
1388#
13904

11538

(s2

001712

12844

3196

12854

cyL

047616

DAREAD
DATENV
DAWORD
DB
DCK
=
=
pcL
DCLEAR

047672
(045444
047676
001704
100000
000100
002052

3225

12820

6051+
7306
9586+

5815

6326

6060
7428+
9593

4595

5938

6419

12861

3276

12831

6177+
8105+

6935

5174
8461

9439

6126
9685

6550

6681

6683

6294
8235+

6303
8244

6390+
8352+

6398
8355+

6905+
8365

9327+

7303+

9332¢

9430

9591«

10436#

12873
7028+

12831
7391

6910+

9714

9719

9735

9738

1677

7330

9340

3463

10721+

6395

7049
9619

91484

3447

10706+

6183+

8605

7775
8751

3405

10656+

10382#

8731

6312

12844
6186
8114

7297+
9434
104354
10639+

4095
738

6431
6946

4422

= 000200
= 000002
= 000010
001714

177570
000200
000040
000002

6378
6893

2800
6210

CRLF
CSF
csu
s

=
=
=
=

6308
6711

9451

8535

11538

6057

6929

9351

8513

11528
5581

7173

6764

7602
8622

= 000015
044140

5933

7730
8249
2276
3563

6666

6414
91664

7526

(R
CRC

3204

8228
2224
3524

6646
7664

6320
8770

4731
6065
7613
8641

10773
5490

8243

6287

9218#
6077
8560

G475

10756+
5240

6235
8561

7649

5765

7354
5950
8392

4334
5691
7445

052600
051176
062562

DDISP
DENVL
DE1
DFF20

SEQ 0293 |

8321#

4058

CLR
= 000040
047456
COMHD

10-SEP-79
1":n
PAGE 295
CROSS REFERENCE TABLE == USER SYMBOLS

dN‘

001726
037116
001752
104414
043156
042766

30A(1052)

wrhoO
- 5~ 00

CA
CAT
C
CHECKD=
CHECKE
CHECKT

MACYTT

[+
XV
Yo 3

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CIRJGD.P1Y

6913

9617

6252

7023+

9335

CIRJGDO,RPO4/5/6 DSKLS CTRLRT
CIRJGD.P1Y
10-SEP=79 11:00

DF1

DF 1N
DF14

070142

070160
070167

793%

901
932

MACY11

912

1200
12891»

30A(1052)
10-SEP=-79
11:11
PAGE 296
CROSS REFERENCE TABLE == USER SYMBOLS

919

12883#

DF1S
DF16
DF17
DF2
DF20
DF21
DF22
DF 24
DF26
DF27
DF3
DF 30
DF 31
DF 32
DF 33
DF 34
DF 35

070177
070202
070207
070147
070216
070225
070232
070236
070245
070255
070153
070263
070271
070301
070312
070322
070331

941
952
965
12883#
978
989
10064
1025
1051
1066
881
1079
844
828
81
1097
1116

12901#
12904»#
129064
1038
129114
12914#
888
12917#
852
B69
12925#
12928«
1188

12934»

DFS
DH1
DH11
DH14
DH1S
DH16
DH17
DH2
DH20
DH21
DH22
DH24
DH26
DH27
DH30
DH31
DH32
DH33
DH34

= 000001
063045
063313
063473
063673
063724
064067
063170
064252
064435
064555
064660
065043
065246
065411
065554
065757
066202
066405

12724
788
893
924
938
946
957
875
970
983
999
1018
1042
1058
1072
834
817
802
1087

1148
129364
129404

907
1192
124564
12479#
12484n
12502#
12422#
12522#
12542#4
12557«
1031
12589#
12612#
12630#
126484
858
126964
12718#

12407#
124364

1178
1139
12777«
12802#

12738#
127604

DISK

051534

2604
6380

2612
6525

2667
6526

DF 36
DF37
DF4&O

DH35
DH36
DH37
DH4O
DIGB

070341
070347
070360

066570
066773
067132
067350
= 000004

IRE}
n”n
1209

1107
1122
1159
1205
12744

DISPLA 001142
DISPRE 000174
pLT
= 100000

7017
8342
7384
6420
126440

pMD

1309¢

DL64

= 000020

= 000001

12764

SEQ 0294

12881«#

128944
12895#
12897«

7139
8483
1677+
1685
3194

2404

12908#
12885#
12919«
129224
12931»

125694

126704

2681
6530

5537

6537
7153
}?ggg

7145
9573
1685+

7152
9687
11397«

3405

3493

3496

2407

2428

2783

5652
6538
7158+
10746

5775
6654
7282
10145+«

5909
6660
7424
10779

6036
6667

7467
10840#

3020

3100

3748

3765

6162
6668

8099
11297

6288
6894

8149
12864

6338
6895

6379
7016

5857

3923

3980

6073

8229

8279

CIZRJGDO,RPO4/5/6 DSKLS CTRLRY
10-SEP=-79 11:00
CIRJGD.P1

MACY11

4094

4336
4900

5429
8580

DOG
DPR
DRY

036452
= 000400
= 000200

DSTY
DSWR
DS

= 177570
001736

001720

DY
001740
DTAGAP 052540
DTE
= 010000
DISY
D11
D111
D114

D115
D116
D117
D12
D120
D121
D122
D124
D126
D127
D13
D130
D131
D132
D133
D134
D135
D136
D137
D140
DVA

060016

4668
5078
7695
8754

4733
5137
7776
8803

4757

4816

4876

10068
11038

10357
11041

5201
8203
9799

5254
8441

5263
8514

10649

10652

10693

10886

6859
4381
6823

8175
4432
6859

8178
4497
7565

8305
6545
8175

9195
4776
8308

9192

4824

4908
9200

8303

9195

9200

9235

5342+

12841

6801

4597
5032
7614
8697

10635

5271+
737
3788

1676

6537
5031
7563
8690

SEQ 0295 |

10632
11218

6823
4004
6803

6821

12823

12835

10584
918
12820#

10587
12813#

6857

8173

8179

9240

12838

12844

12854

12857

3204
9169

3216
9173

3531
9228

3533

3541

3543

3571

3573

3581
10715

128414
128174
128544
12857#
128674
128704

2291
7062

045424
000100
004000
046050
045462
001744
001746

000030
057572
057743
057776

5853
8588

L4477
5007
7559
8644

6803
3936
5085

067530
067540
067556
067440
067576
067616
067632
067640
067660
067702
067452
067720
067736
067760
070004
070026
070046
070070
070106
070132
= 004000

EMTVEC=
EM1
EM11
EM14
EM15

6424
6946

3790
3790
5040

12820

30A(1052)
10-SEP=79
11:11
PAGE 297
CROSS REFERENCE TABLE == USER SYMBOLS

10505
10619
11059
11209
8195#-

= 001000
067424
067466
067506

ECDATA
=
ECH
=
ECl
ECORR
ECTEST
ECT
EC2

12121#
121244

3119
9084

10069+

10136+«

10138+

10629+

10631+

10646+

10648+

10696+

10700+

10711«

5944

6071

6197

6410

6925

7044

7317

9347

9447

9635

10640
12873
12873
1776+

10657

10707

10722

121164

1818+

OV
= QO N IS —
mEREuRR
-n

bl
L )

64179

4189

6199

4209

6219

6229

4238

2834
2968
2768+
5956+
6697+
8146

2855
2997#
2355
6083+
6945+
8266+
10990

2865

2875

2885

2895

2905

2914

2924

2935

5496+
6106
6965
8276

5531+
6232

5609+
6325+

5646+

6347

5731«
6418+

5751
6429

8397«

7217+
8476+

5627
6335

11835+

5517
6209+
7053
8288

8672+

8777+

6803
1675+

6859
1778+

7566
1785+

8442

1820+

8589
11359

11360+

11362+

11365+

3899
5066
8152+

4035

4410
5414

4464

6525

4656

4702

4804

4850
7469+

11079+

1101

11109+

9390+
11115

12820

11068+
12857
12823

4575
b4bbr
8490+
11075+
12861
12835

12844

12854

12857

12861

5696
6197

6238

—

4169
63064

15
91

8287+
10569+
12817
7494

6341
8469
10589+
12854

7159«

6346+
8485+

8698

7329+
8491

8811

6451+
8613

7352
8567+

6959+
8722

7656+

6964+
8835

S50#
53
3% 3 R

000200
000020
046222
002034
010000

4159
4289

~NNNO
w00

—_—
R
TR P
)

gy
g
R
R

12110#
6129
4269
11130+

3780

FEN
=
FER
=
FILLEC
FIRST
FM122 =

9w
2N
40N

10523+
11138+

001722
001730
000001
000010
000002
000020
000004
000040

SEQ 0296

832

9648
11141
11118+
10082

ER2
ER3
EXT1
EXT10
EXT2
EXT20
EXT4
EXT40

Li#

6107

001716

30A(1052)
10-SEP-79
11:11
PAGE 298
CROSS REFERENCE TABLE == USER SYMBOLS

052776
052772
046046
040000
000004
047430
047426
047736

ER1

=
=
=
=
=
=

993

00
£ N =N W
N NN NN
W= 00NV ND
WN
oW
OoOsroowm ~N

ERHDGP
ERHEAD
ERPOS
ERR
=
ERRVEC=
ERSTAR
ERUNIT
ERWORD

002006

ERFLGS

YOS

052774
013546

ERCRC
ERCS2C

060067
060110
057655
060134
060155
060177
060657
060752
061012
061133
061256
061545
061617
061712
062211
062322
062457
057704
020702

oo Nt b bt b i OO OO
w OOV NWVHWNNOOO
NN —
o WO NSt
a s 22 DW

EM16
Em17
EM2
EM20
EM21
Em22
EM24
EM25
EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37
EMLO
EM6
ERCLFC

uuNNNNxNN—-—-—-—-O—o-a
OOV
S N
NN

MACY11

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=-79 11:00
CIZRJGD.P11

7391

7494

1694

1735+
5229
5924

3870
5851

5481
5985

5713

5732

6294

7464

CIRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=-79 11:00
CIZRJGD.P11

053014
051200
053020
034076
052770
002044
052764
045426
045430

FNWORD
FORMAT
FOUT

FRMATI
FSYNER
FUTABL
GCRC

GECCI
GECC2
OGNS

MACY11

30A(1052)
10-SEP=79
11:11
PAGE 299
CROSS REFERENCE TABLE == USER SYMBOLS

6501
8129
9425
5701«

000001

GRV
GTSWR

000010
104406
045450
045442
044542
000200
002000
000400
053000
051532
051506
047632
047634
051520
000011
002000
000100
000001
002106
000002
000020
000100

nnunun

mTMm
o
nnn

m
—

—

HADTMP
HARDER
HCCRCE
HCE
HCl
HCRC
HDESYN
HDWSYN
HEADER
HEDGAP
HEDSYN
HEGAP

047624

TMm

KEY2

—

KEY1

004C00
037432
037446
047622

K 1PARO=
K1PAR1=
KI1PAR2=
K1PAR3=

6905
8259
9586
10994#

6925
8352
9635

7023
8355
9763

7044
8380

7317
8549

7449
8568

7544
8654

7657
8673

7738
8778

76437

10916#

11125

11128

10145
1716
1947

12864
1720
1951

12867
1724
1955

12873
1728
1959

1732
2009

1755
2016

1794
2022

1810
2110

1816
2116

10189
12030

10195
12031

10201
12032

10207
12034

10213
12036

10217
12037

6375
4906

4379
4951

4430
5026

9800

4491
5038

10360

6495
5083

10889

6543
5150

11104+

5704

9995+

9996+
1707
1915

641

2157
8987

6568
8235
9447
5825+

SEQ 0297

5828

10128+

10129+
1712
1919

2163
8994

10144

2189
8998

10231
12040

10237
12041

11320
12042

4673

L4774

7755
9704

7831
9708

7908
9714

7975
9719

9726
10977#

9729
11153+

9735

9738

103974

10550+
10570«

4614

5854

3778

5856

3866

6811

12864

2193
10166

12028

12867

2197
10172

12029

3933

4001

4096

7567

8581

8691

4821

4894

12873

2203

8804

4625

9770

8859

8865

8966

8972

120344
10084

3870

104084
108374
11497

8585

3780
3761+
1659
1828

6548

13984

84204
8424N
6055+
9589+
6056+
9590+

11538

8694

8038

96154

10591+

8807

3766
1660+

2298
6679

3117
7068

3194
7169

3224
8425

3259
9089

3274

3441

3461

3496

3615

3621

6181+

6298+

6393+

6908+

7026+

7301+

7431+

8109+

8239+

8360+

9330+

6182+

6299+

6394+

6909+

7027+

7302+

7432+

8110+

8240+

8361+

9331»

103844
10385#

K 1PARG=

CIZRJIGDO,RPO4/5/6 DSKLS CTRLRY
10-SEP=-79 11:00
CIRJGD.P11

MWR
=
MXF
=
NCODE
NCOUNT
NED
=
NEM
=
NHS
=
NOPERA
NOSYNC

NOUNIT
NOWORD
NUNIT
ocvL
=
Of
OFREV =
OFSETC
0F100 =

000040
001000
045434
045436
010000
004000
002000
002044
047732

001776
047664
002000
100000
001724
000200
002076
000004

0F200 = 000010
= 000001
0F25
0F400 = 000020

4739
10359

4881
10887

4882
10888

2185

2199

394

12870
10622

730

10627

10635

10644

4899

5031
5362
1212

5256
5376

384

4750
5359
11210
10694

3815

10075+

5361

1211

0709

2614

10254

3924
7640¢
1976+
76433
2037+

3992

7068
13974

7721+

2030+
8111+
2038+

4761
4762

4822

1042

7803+

2037
8241+

4150

5015

1213
1052

7880+

2087+

8362+

7940+

8882+

104314

8009+

9078+
—_—

4738
10358

13964
97724
97544

5324

1 0505
1 1240

wow
W — O

10502
11238

5296

8204

8072
9077

10104
11236

8442
7854
9076+
5323
10503
11239

—_—

= 000250
= 010000
= 000400
001734
= 000020
= 000020
= 000010

8308
7777
9073+
5297

7696
9072

MMVEC
MOL
MPE
MR
MRD
MSE
MSTCK

8305

7615
9071+
5295
10103
11051

10096
11061

020000
001000
045274
045172
000004

8178

MAKECY
045304
MASK
042376
MCLK
= 000002

9134
9091
11538

-— N

9130#
9050+
11532
8175
5630
9047+
5294

—_—

001750
042712
0462400
= 000012
= 002000

MCPE
=
MHS
=
MID
MIDDLE
MINX
=

SEQ 0298

172352
172354
172356
172300
172302
172304
172306
172310
172312
172314
172316

—

LA
LAD
LERR
LF
LST

N 7
30A(1052)
10-SEP-79
11:11
PAGE 200
CROSS REFERENCE TABLE == USER SYMBOLS

KIPARS=
KIPARG=
KIPAR7=
K1PDRO=
KIPDR1=
KIPDR2=
KIPDR3=
K1PDR4&=
KIPDRS=
KIPDR6=
KIPDR7=

MACY11

5325
0506

8515

5326

9791#

5372

5376
10641
11258

5377
10693

8646

8755

1241

10508
11255

10509
11256

5262

8539

8540

8645

5294
10506
11255

10624
11256

10693
11265

10558

10582

113430

5260
10503
11238

10423

104844

5295

53¢3

5324

11040
11266

000002
000040
041556
020000
000200
047702

PAR
= 000010
PAT
= 000020
PCJSR
002014

PGE
PIE1
PIE10
PIE11
PIE12
P1E13
P1E14
PIE1S
PIE16
PIE17
PIE18
PIE19
PIE2
P1E20
P1E21
P1E22

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

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

P1E24
P1E25
P1E26
P1E27
P1E28
P1E29
PIE3
PIE30
PIE31
P1E32
P1E4
PIES
PIE6
PIE7
PIE8
PIE9
PIP

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

000400
000200

P1E23 = 001000
000100
000040

000020
000010
020000
000004
000002
000001
010000
004000
002000

001000
000400
000200
020000
PIRQ = 177772
PIRQVE= 000240
PKACK
002102
PLU
= 020000
POSITI
045440
PRBA
011366
PRCA
012040
PRCS1
011106
PRCS2
011042
011664
PRDST
PRE
= (00020
PRERT
011432

1604#
16408#

89624

1303#
12364
10420
12934
12334
15684
10877+
12394
98304
98394
9840#
98414
98420
98434
9844H
98454
98464
98474

98484
98314
98494
9850#
98514
98524
98534
98544
98554
98564
98574
98584
98324
98594
98604
98614
98334
98344
98354
98364
98374

11580

11663

3272
10627
2308
2280
9166*

3274
10433
2311
2298
9167+

9979

999

10878+

30A(1052)
10-SEP=79
11:11
PAGE 21
CROSS REFERENCE TABLE == USER SYM3OLS

12804

SEQ 0299

3335
104388

3458

3474

3496

7169

8424

9089

9218«
12847

9219+
12851

9615¢
12857

9616+
12861

12870

9793+

9794+

10063+

10064+

10348+

10349+

4907

4952

5039

5084

9946
9979
T RBRYTTMMMNM

0f50 =
0F800 =
OPERSE
OP1
=
OR
=
oul

MACY® 1

9937
9954
9985
9962
9985

9979

9918

9926

4380

4631

4496

4566

4615

4674

6775

4823

10073

10081+

10082

10084

10127+

12867

12873

3021
13994

10019
23564
35384
2256#
2230¢
24620
23808

22314

PN
Y

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP=79 11:00
CIZRJGD.P11

537

1691+

8856+

8963+

3215
6680
9647

3260
6792
10016

3275
6812

3336
6850

8174

8304

9191

3403

7170

3442
7389

3462

7463

3768
8145

3779
8275

3816
8481

12057+

12063+

12075+

12076+

3940
10520
6404
3855
5017
112894
5955
2292+

3478+
3901+

118364

3026
3125+
3892

4456
4567
4767
4890

5038+

1666+
9949+
9957+
9965+
9940+

Ensn e

P NN
N

6858

10022
12047+
9978
9983
9984
9977

10090
12048+

10175
3119
7060
10530
7037

10197
3204
7062
10532

12039#

7328

8565
2634+
3544

5858
9018#

6334

9168

10527
PN

11290+
10492+
120374
106924

8615+

056560
(003160

6822

3216

7568
10534

3533
8318

10577

9084
10581

9169
106164

9179
11299

9221
11307

3573

3581

3063+
3622*

3158+
3637

3296+
3672+

3354+
3697+

8177+

12813

48521
8307+
12847

3122+
3872+
6433

3123
3873
4434

3541

3543

3571

1665+
9948+
9956+
9964+
9939+
10227

4982+

REGSA1
REINTO

6802

050532
002070
002104
002050
054140
002072
042402

4246

READ
READAT
READIN
RECALI
REDATA
REFOR
REGADR

3789

—

RDCHR =
RDHEAD
RDOLIN =
RDOCT =
RDY
=

054136
047722
104410
047740
104411
104412
000200

3129

SEQ 0300

RCOM
RCYL

000024
045454
045456
045460
045452
000200
000020

2
2
2

6208

2312+
3499+

2412+
3534

8837+

4306+
5184+
9045#

3047
3132+

3054
3133

4037+
5113+

4379+
4495¢
4614
4775
4907+

5040+

4380
4496
4615
4776+
4908+

5053

2997+
3584+
4527+

5416+
9049

7063+
9718+

L4577
7073
9728+

4658
7081+
9739+

3289+
3664
4704+
7595+
9810+

3106
3134

3118+
3149

3119+
3862

3120+
3869+
4431

3121+
3870+
4432+

4412

4381+
L4970
4616+
4790
4921
5059

4403
4519
4650
4821+
4951
5084+

4430+
4543

4673
4822+
4952+
5085+

6544
L4674
4823

4953
5086+

4545+
4675+
4824+
4954
5098

4806+

L5461
4676+

4825+
4966
5103

65470
4690
4838
4971
5146

PWRVEC=
P12
P22
P24
P3
RA
RAW
=

011730
012104
011774
001000
011322
000000
000040
000100
000140
000200
000240
000300
000340
177776
002000
000001
177776
042336

30A(1052)
10-SEP-79
PAGE 202
1m:
CROSS REFERENCE TABLE == USER SYMBOLS

PRER2
PRERY
PROF
PROG
=
PRWC
PRO
=
PR1
=
PR2
=
PR3
=
PR4
=
PRS
=
PR6
=
PR7
=
PS
=
PSEL
=
PSU
=
PSW
=
PUTREG

MACY11

CZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CZRJGD.P1Y

001700
001652

RHCC
RHCST

001676
001640

RHCS2

001636

RHCS3
RHDB

001702
001630

RHDST

001644

RHDS1

001662

RHDT

0016064

RHEC!
RHEC2
RHER1

001670
001672
001642

RHER?2

001646

RHERY
RHLA
RHMR

RHOF

001654
001674
001660

001650

7125

7567+
7900
8426+
8585+
8709

9686

1922

2774n
6406+
8762+
2781+
5948+
8387+

L4744

2622

4611+
7538+

9770+
1862

2513+
6933+

5385+
5762
6406
6720

5386+
5763

5387+
5766
6500
6785
7374
7731
8415+
8442+
8684
8811+

5401
5767
6506
6899
7551
7732
8416+
8456
8694+
8822

5407
5774
6507
6900

7563+
7761
8420+
8462
8695+
8828

5528
5940
6511
6921
7564+
7822
8421+
8546
8696+
9343

5940+
8255+

6067+
8376+

5228+
7450+
9624+

5498+
7531
9764+

5611«

4340
5150+
8691+
10889+

6375+
5255+
8804+

5175
5639
6193
6635
7132

5236
5642
6254
6640
7133

5382+
5643
6384
6647
7194

8427+
8586+
8715

8428+
8587+
8797

B436+
8588+
8807+

6849+
3688
7039+

3850+

9443+

7076
9632+

3853«
6201+
8569+
9806
3021+
4771+

4071+
6319+
8674+
9810
3030+
4885t

7568+
7951

7581
7952

7560
9800+
1982+

2559+
7533+

7587
7981

5383
5651
6385
6648
7208
7650
8029
8438+
8589+
8808+

7574
10168
2094+

2775+
7534+

7240
7651

8030
8440
8600
8809+

6444

6771
7313
7680
8403
8441
8606
8810+

RHBAE
RHCA

5169
5638
6128
6595

SEQ 0301

002054
000010
002100
001656
001634

10-SEP-79
1n:n
PAGE 203
CROSS REFERENCE TABLE == USER SYMBOLS

RELEAS
RESVEC=
RETCL
RHAS
RHBA

30A(1052)

~No~N

5155+
5529
6001
6518
6957

MACY11

cown

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=79 11:00
CIRJGD.P11

2356+

2380+
5861

3289

3296

3330

5342

56486

5600+
8128+

2788
3413

3986
2282+
9703
2779
2782+

5151+
8538+
9799«

0013
2777+
9713
4069
4072+
4825
3020+
4477+
4882+
5250
8540+
10357+«

54291
8579
10358+

5853
8644
10359+

10887+

2780+
6318+
9347+

3852+«
6925+
9635+

4070+
7044+
9763«

4762+
7317«

5732
8259+

4546

2783+

4336
4876+

4068+

5854+
9082

6065+

1826+
3399«
2778+
5943+
8428
3931
1985
2138

3851

L4681

2332+
3988+

9762+

3192
3448

7545+

9796+

6196+
8663+
8177

6317+
B768¢
8307

2168

2170

1996

2124
2645

2128
2647

2130

3094+

8724

8796

8815

3923+

3980+
4750+

10888+

4073
L4751+
5032+
8071
8756+
11037

5851
8380+

8568+

1993

7448
9797+

9718

6775
6777
4954

3100+

4537+
4899+

5086
3101+

6597+
4900+

4739
5015+
7776+

8754+

7542+

5031
7853+

8755

95944

SRR

Ioeee )

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
10-SEP=-79 11:00
CIZRJGD.P1Y
PHSN
RHWC

001666
001632

MACYT1

1508#
164864
3879

2167
2773+
3925

4412
4766

4370
4682
5046

2169
3025
3927

4441

002040

RH70CK
RKEY1
RKEY2
RMR
=
RNCTR1
RNO
RNWAT1
RPVEC
RPVECT
RPO6

005370
047726
047730
000004
052576
054134
052656
001626
054250
002036

RSETR
RSYNC
RIN
RUNCTR
RUNWAT
SAVDT
SAVER

SAVSN
SC
=
SCOP1 =
SCRC
SCYL
sC1
=
SC10
=
sC2
=
$C20 =
SC&
=
SEARCH

SECGAP
SECOTR

SECTR
SEECOM
SEGPER
SELECT
SELTST
SERCH
SETDSK
SILOSZ
SILOTB
SKEY1

051436
047620
053662
002074
052766
002002
007642
002056
044414
002042
051534
053042

4466

3063
3969

4486
4831

4806
5145
5939+

8760+
1807+

9022
1855

9024

10198+

10209

11323

6347

8055

8349

10556

10567

2943

4254

3090+
3985

6504
4852
5184
6066+
8254+
9342+
3185

SEQ 0302

3105
3986
4527

4889
5235
6096

3138
3993

4554
6914

3158
3995

4577
4936
5416

5477
6313+
8471

3849+
4037
4636
4982
5512
6405
8545+

3861
4063
4658
5021
5587+
6920+

3433

3518

3603

3655

4014
4606
4959

3251

5394
6192+
8402
9630+
3316

8385

8434

8780

10580

10590

11099

11102

11148

11152

4681

3860
4765

3945

4830
8401

4013
4888

4369

7549

4256
3878
4782
7573

4388
4958

4440
5020
8682

6485
5045
8701

4503
5090
8795

2955
3204

4265
5382

4267
7060

6392+
8358+

5906+

6907+
9328+

7024+
9329+

75401

5162
5969
8124

2219

8375+

9442+

6222
8448
9759+
3390

8573

10891+
11289+

1692+
113174

2095+

10493+
10519
1818#
10362+

047724
047720
006030
047454
047534
002010
043424

002012
100000
104413
053046
053036
000100
001000
000200
002000
000400
053664

3040
3946

4783
5113
5832+

74467

RH70

30A(1052)
10-SEP-79
1M1:1N
PAGE 204
CROSS REFERENCE TABLE == USER SYMBOLS

2170+
3039

3137

4605
5161
9303#

5393

2169+
2288

8447

4913
8572

7062

8426

8584

6296+
8108+

6297
8237+

6391+
8238+

8592

11034+
11030+

9771
5455
5926+
7025+
9426+
5253+

10370

5566
5927+

7299+
9427+

5275

10900

5686
6053+
7300+
9587+
5345

16144
10904+
15564
1941

6340
10921#
1644

4481
11071+
1646+

7645
15944

7726
1825+

7808
1826

1607#

3322

11025#

20414
5230

3342

11032+

3347

11200#
5810

6054+
7429+
9588+

11198#
L4745
11082+
1751
7885

1827+

10839#

10833#
6179+
7430+
10367
11200+
9798

2041

8871
9567#
1835

8359«

F
8
30A(1052)
10-SEP=-79
11:11
PAGE 205
CROSS REFERENCE TABLE == USER SYMBOLS

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
CIRJGD.PI
10-SEP=79 11:00

MACY11

SKEY2
Skl
=
SN
SND1
SPACE2
SPACE8
SRO
=
SR1
=
SR2
=
SR3
=
SSECTR
SSYN
STACK =

110264
16494

11033«

1698
2697
2691
680#
6814
6824
6834
110244
10374+
5278

17354
124044
2692

2700

11031«
10389%
1657

10525+
1773

053044
040000
001742
005332
063042
063034
177572
177574
177576
172516
053040
047630
001000

15424

2702

12403«

2590
4593
6027
7611
8225

1850
3015
4729
6153
7638
8338

2227
3083
4872
6284
7692
8511

2252
3180
5003
6375
7719
8533

2274
3246
5133
6496
7773
8639

2328
3523
5198
6629
7800
8749

2352
3562
5221
6761
7850

2376
3653
5426
6890
7877

2458
3685
5452
7004
7938

2484
3745
5563
7113
8006

2509
3842
5683
7273%
8068

1655
6354
11368

1676
6468
11370

1678
6981
11376

1684
7485
11383

1740
8165
11583

1747
8295
11622

1789
8497
11677+«

1902
9062
11840

1939
9132
11847

2687
9403
11852

3368
100064
11856

4620
10006
12055

1684

1740

11583

11622

11645

000002
000004
000010
000020

6434
5914
5814
580#
S79#
5784
S774

= 000100

5754

585

3369

3370

6356

6470

6983

76487

8167

8297

8499

9405

2687

4620

START
004250
STARTA 004472
STKLMTI= 177774

SWR

001140

SWREG
Sw0
Sw00
sw0l
sw02
sw03
Sw04

000176
= 000001
= 000001

=
=
=
=

Sw05

= 000040

sw07

= 000200

Sw06

Sw08 =
Sw09 =
swl
=
SWw10 =
=
SWwil
swi2 =
swi13 =
Swi4 =
=
swi15
sw2
=
sw3
=
Sws
=
=
SWwS
sw6
=
=
Sw7
Sw8
=
=
Sw9
TAGDTE

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

TESDTE

002026

TBI1TvE= 000014
1Df
= 000040

S576#

5740

S73#
5724
590#
S71n
S70#
5694
568
S67#
5664
5894
588#
S87#
5864
585#
584N
5834
5824
15834

624N
13744
1579#

2555
6332
5900
7524
8200
16494

591
590
589
588
587

586

584

583
582

3369
9062

9132

1747
1789

1902

1939

11094

11352+«

4712
10006
10004

1392#

10537

SEQ 0303

2701

2534
4056
5807
76417
8095
1645
16914
5384
7378
4712
};353

CIZRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P1
10-SEP-79 11:00
TESTAD
TIMCNT
TKVEC =
TAPILL
TOLGAP
TOTALA
TPVEC =
TRAPVE=
TRE
=
TRK
TRK1
=
TRK10 =
TRk2
=
TRk20 =
TRK4
=
TRP
TRTVEC=
TSECC
TSECCG

TSTNM

041554
043302
000060
002022
052542
002020
000064
000034
040000
047570
004000
040000
010000
100000
020000
005772
000014
002024
045432

002032

89604
92564
6314
15738
6289
15710
6324
6304
12670
10369+
13614
13640
13624
13654
1363
1804
6254
15754
98734

2377+
3386

15864

TST100
TST101
1S1102
1ST103
1ST104
TST105
1ST106
1ST107

034710
034744
035066
035122
035244
035300
035400
035434

TST115

036506

B8222#

1ST11
TST110
1ST111
1S1112
1ST113
1ST114
1ST116
1ST117
1s112
1571120
T1ST121
1871122
1ST123
TST13
18114
1ST15
1S116

011130
035534
035662
036002
036036
036452

037116
037744
011300
040000
040332
040656
041206
011344
011410
011454
011642

3759
8343
4224

3761
10767

3762+
10844ur

1663+
3204

1664+
3213

3818

7060

7062

8426

8584

10776
9997

11292
10625

11302
10637

11344+
10642

2399+
3429+«

2459+«
3514+

2485+
3561+

2510+
3599+

10654
2063+

10704
2183+

1 07
2215+

6281+

6285+

6377+

6497+

6630r

6762+

6892+

3016+
3843+
5564+
7005+

B339+

8512+

3534'

8640+

8750+

8968

12813

12815

103724

1813#

1774+

7639+«

12828

005504
011064

3754+
8230
4079

7612«

12867
1752
2221
76104
76354
76514
77164
77724
7797#
78494
78740

22724
79354
8003#
B0O67#
8092#
8199«

83374
85104
23264
85324
86384
B748#
8854N
2350#
23748
2397#
24554

SEQ 0304

9270
11561+
3752
8100
1934+

4873+

8226+

G 8
30A(1052)
10-SEP=79
11:11
PAGE 206
CROSS REFERENCE TABLE == USER SYMBOLS

9265
11560+
3749+
7425
1932+«

4730«

6154+

1S11
1ST10

MACY11

12831

12870
17717
22504

1851+

5004+
7693+

12835

12873
8931

1880+

5134+
7720+

} 838
2 878

1900+

5199+
7774+

12840

2535+
3652+

5222+«
7801+

12841

2556+
3686+
5427+

7851+

12844

2591+«
3746+
5453«

7878+

12847

10778+«
2228+

7939+

12851

10790+«
2253+

3084+¢
3919+

11294+«
2275+

7114«

3181+
4057«
5808+
7275+

12817

12820

5684+
8007+

12854

8069+

12857

11304+
2329+

3247«
4333+«
5901+«
74619+
8096+

12823
1286'

11348+
2353«

3312¢
4594
6028+
7525¢
8201«

12826
12864

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
(ZRJGD.P11
10-SEP=79 11:00
1ST17
1512
15120

15121
18122
15123
181264
15125
15126
18127
1513
TST30
1S131
15132
1S133
1S134
TS135

011706
006152
011752

012016
012062
012126
012534
013560
013722
014272
006236
014450
014676
015136
015262
015562
015720

15136 - 016040
1S137
016216
1574
006310
1S140
016342
1ST41
016466
15142
016762

1ST43
1ST44
15145
TST46
15147
1815
1ST50
TST51
15752
1S153
1S154
1S155
1ST56
1S157
1516
1ST60
1ST61
1ST62
1S763
1ST64
15765

017206
017576
020730
021646
022322
007656
022730
023274
023640
024016
024052
024740
024774
025304
010430
025642
026202
026446
027032
027416
030002

15170

031236

1ST66
15167
1517

TST71
15172
1S1735
15174
18175
15176
15177

TINO

030342
030706
010774

031544
032134
032500
033044
033452
034054
034404

= 000122

2481H
1848#
2507#
25324
25534
25894
27654
2994
3082#
3179#
1857
3187
3253
3318
3392
3435
3520
3542
3605
1886
3670
3703
38410
3918#
4055#
4304
65924
47284
2042
48714
6714
51324
5197#

MACY11

H 8
30A(1052)
10-SEP=79
11:11
PAGE %07
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0305

3014#
18774
3226
3293
3385#
3412
3494
35594
3549
3636
18964
36834
37430

32454
3311#

36274
35124
3582
36504

3597#

8880

8890

43314
2059#
5002#

5220#
56254

564514
5518
2182#
5628
5752
58994
5980

6107
6233
6336
6430
2186
6599
6725
6869
6984

7011
7245
7353
7495

177644

5541

55624

5656
5779

56824
58064

6005
6132
6258

60264
61524
62794

6357
6471
22144

63744
64894

66214

67594
6889#
7003#
71054
72704
7392
75224

18514

74134

18804

19004

2063#

2183x

22154

2228w

2253w

2275&

2329w

2%%%a

;

0%77w

2399#
34290

4873M

62814

006226

001774

UNIT

UNITS
UNITSL
UNLOAD
=
UNS
UPE
=
=
ust
us2
=
=
usé¢
=
UWR
VAR

001754
002004
002046
040000
020000
000001
000002
000004
000010
037414

vUF
=
vu30 =
Vv
=
WAIT.T

000002
010000
000100
043304

VAR?2

WAl

w(
WwCE
WCF
WCRC

037422

104415

001706
= 040000
= 000040
051516

= 000001
wCu
052754
wiYL
052534
wECC?
WECC2
052536
WKEY!
052760

24594
35140
S004#
62854

24850
3561
51340
63774

85124

8534#

76934

1393«

7720m

2029

1705
1913

310

15504
1557#
1603#
13044

12424
12294
12304
12314
14454
1830+
1833+
16440
13814
12784

92574
3270

15264

12434
12954
5934
9336
13694
5465+
5522+

5523
5668+

2707

12030#

3273

2036+
2488
3334

6536

8884
1969

25354
3652¢
52228
66308

25564
36864
54274
67624

25914
37464
56530
68924

4629
1714
1945

8862
1718
1949

8868
1722
1953

777644
86404

18644

4628

8889+
1974

1760+
4601

2043

3627

3631

78014
B750#

2187
5240
6235
8561
8981

78514

2191
5490
6321
8666
8985

7878#

SEQ 0306
30164
38434
55640

30844
3919#
56840

79394

8007#

1753
2014
269!
5630
6930
8863
9352

10215
11658
11891

2043+
2513
3440

2069
2538
3460

2086+
2559
3495

4945

2088
2787
3614
5077

2112
2803
3620
6547

2666

2680

8885

4667
9067
2036

84154

4815
9154
2081

8975

12032#
1792

2231
2829
3625
6678

Bal6H

3790

3872

6802

6822

6859

8175

8178

3934
3994
7169

3937
4028
7173

4002
7187

4005
7201

8186
9023

8316

12042#

10535

108364

6399

6914

7032

7307

7946+

8015

5582
108414

5696+
12864
12864
10914#

5703

5820+

5827

7436

10912#

6304

10842#¢
5823+

47308

61548
76124
8226#

1808

2027
2697
5754

1814

2108
2700
5844

7324
8879
9619
11318
11745
11680
10228

7355
8918
10164
11459
11749
12028#
11322

2297

2332

1905

2114

2701

5951
7452
8921
10170
11502

11814
12077
11646

2356
3223

3116
3988

3193
4089
7168

4138
7534

3305

8308

9191

8115

8245

8366

7067

1836+

12831

33864

3181»#

40574
58084
72750
80694

10229
1698
1911
0204

10211
11647
11889

8969

71140

11908

10205
11644
11872

2125

11904

12040
1862+
1759+
2462

25100
3599%
51998
64978

2161
4623
6204
8393
8977

2149
2711
6078
8132
8970
10193
2019

—‘V‘@O:

TYPON = 104404
TYPOS = 104403
T1.5C0P
042714

30A(1052)
10-SEP=-79
11:11
PAGE 208
CROSS REFERENCE TABLE == USER SYMBOLS

11589
11842

ooroOwVoo
W

104402

1700
1909

—_—

TYPOC =

2013

O
NN =
OMNUN) et s e O
O NWWNOD
=0 O00~N0OWw

Tuf
= 000100
TY
047734
TYPDS = 104405
TYPE
= 104401

7639#
8339#
1375#
104864

MACY11

O—= =000
VN — — 00
—
N ONS V= O~
OO = O~N—=NOWVN~N
OHOON—=NOWN~NO
00

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI
10-SEP-79 11:00
CIRJGD.P

6671

053050
002064
002066
050764

WRL
WRU
WSECTR
WSSYNC
wSu

WTRK
WWORD

004000
000400
052756
051504
000004
052712
050762

047626

XE2

$AUTOB
$BDADR

007304
0476066
0465446
000400
051202
001134
001122

$BDDAT

001126

WRITE

ZCODE

lER
IWORDS

5824+

10915#

10527+

10529+

10531«

10533«

10535+

SEQ 0307

10576+

10580+

10610#

10620+

10633+

10650+

94254

16094
1608#

6561

10429
16254

10993
3041
4021+
4568
4915
5169+

3961

4555
4LB38+
5104
6111
6574
6952+
7575
7891
| WRHEAD
WRIDAT
WRIFOR

5700+

6237
6579
7219
7588

3047

4029
4637
4921+

5176
6253
6586

7078

8251
8651

10797

8112+

8242+

8363

9333«

9202+

3339+

3445
9224+

3465
9231«

3771
9237+

9242+

2307+
2831+
2893
2966
3540
3669

2611
2842
2903
2977
3569+
3694

2433
2843
2910+
3288+
3571
3701«

2684+
2852+
2912
3295+
3580+
3702

12873

5744+

8607

10793

10078+
10087
10774+
1744
3198+
3821+
12823
1884+

6196+
L266*
5969+
7342+

7541
7890

10787

10556
11098

4116

7647
7837
8250

6443
6947

5098+
6000
6567
6948

10781

10552
11081

4115
4187
4256

3953«

4520
4832

10728+

10549
11077
6058+
9633«
19664

2872+
2942+
3480+
3633+

5833
6438
6719

3947

6512+
4798
5092
5984

11135

5822+

2794+
2863
2931+
3611
3617

5053+
5709
6437
6713

3893

4505
4790+
5060

11123

8265
5848
10786

5698+

12844
1885
2795

5047
5588
6433
6712
7373

3886+

4457
4784

11110

8135
5729

3207+
5861+

5478
6432
6705

3880

644650+
4695

11096

7455
5607

11636

5409
6314
6699
7239
7737
8021
8449
8829

3150

4442
4690+
4972

11076

8376
8761

6184+
9650

6310
6594
7233

31450

4404
4683
4966+

8594

7957
8372
8716

10780

13894
109014

5395
6309
6587

3139

L4397«
4651
4960
5401+

7443
7814
8i25
8600+

106844

13954
5577«

3055

4390
4643
4928

7232
7665
7967
8416
8816

7225
7656
7966

6301+

10386#

002114

5579+

WRCHHD
WRDATA
WRFROM

1301»
10515+
11298+

—

WRCHEK

043770
002062
002060
043456
051204

5469+

—

WRCHDA
WRCHDT

052762
004000
050526

WKEY2

WLE
WORD

10-SEP=79 11:00

30A(1052)
10-SEP=79
11:11
PAGE 209
CROSS REFERENCE TABLE == USER SYMBOLS

-—~

CIRJGD.P1Y

MACY11

NSO
NON

CZRJGDO,RPO4/S5/6 DSKLS CTRLR1

7666
8020
8421
8822+

8396

7538
10792

7357
7746
8044

7747

8120
8463

8456+
9660

9760

10796

9757
10799

10572
p)
1136
70 29

106794
11147
7304+

8775
8670

7442
7813
8121

10913#

4155+
6217
4287

6817+
8309+

76434+

6166

6227
5272
7058+
9075

4167
4235+
5340
7060
9077

176+

4236
5343

7070¢
9079

3782+

2704
2853
2921+
3352+
3581

6104+
6177
6265
5512
707
9081

$GET42
$GTSWR
$HD
=
SHIOCT
$ICNT
$ILLUP
$INTAG
$ITEMB

041510
055666
000000
056546
001104
057554
(01135
001114

759#

760

761#

11503

11538

11679

11372
11396+

11380+

11401

11864

11846
12840

11878
12844

12813
12847

12817

12820
12857

2682+
2881+
3353

2689
2891+
3410
3671
4185
6344
8488+

11819

11850

12828

9807

10549+
12841

11864

11872

11891

12854

12826
12864

12828
12867

2792+
2911+
34790
3704+

2755
2912
3487

11843+
11859

2301
2841
2964+
3583+

4141
4234+
7080+
9394+
11102+

4152+
4243
7472+
9708+
11116+

11390+

11400

11680
11875

11765

89220

— —

2299+
2832
2953
3573+

116444

484
11807+
7214
12047
7354
7258

11758

9806+
12823

89064

89334
89324
8883

4114
4224+
7062+
9079
10590+
12854

7554
755#

9725+

114674
8929#

1802

2808+
2920+
3497+

1668
7548
7540

= NN
WD —

001226
056716
001112
001214
001156
001155
001120
001124

1667
7534
7534

ONES

SERRTB
SERRTY
SERTTL
SESCAP
$FILLC
$FILLS
$GDADR
$GDDAT

9733
12813

11140+

2711

89134
7208

7264
1661
727H
12831
12870
7820
11849
724H
7620
7458
76440
7284
7304

SEQ 0308

9714
11127+

055040
041530
055030
041520
041466
041537
041534
041432
041460
001103
001115
056550
001116

9713+
N
1 1 17+
12 8 78
il 8 64
" 5 35#

9704

000 M SHwrnonror
= N = O D 00N

$OBLK
$DOAGN
$DTBL
SENDAD
SENDCT
SENDMG
SENULL
$EOP
SEOPCT
SERFLG
SERMAX
SERROR
S$ERRPC

9703+

—
—

001216
055264
055576
001100
000006
000014
000006
000006
056347
056361
056354
001223

9275+
10568+
12847
7630
11504+
116220
778
7498
7490
7478
755#
11577
11643
11668
7654
11896
11425
8914
11428
651
89164
8876
8879

30A(1052)
10-SEP=-79
11:11
PAGE %10
CROSS REFERENCE TABLE == USER SYMBOLS

p——

$BELL
SCHARC
SCKSWR
$SCMTAG
$CM1
=
$CM2
=
$CM3 =
$CMs
=
SCMTLC
SCATLG
SCATLU
SCFLF

MACY11

—

CIRJGDO,RPOG/S /6 DSKLS CTRLR1
10-SEP-79 11:00
CZRJGD.P11

2408+
2861
3286+
3621+
4157
62651
8178+
9729+
11139

2432+
2871+
3294+
3632+
4165+
4275+
8285+
9738+
11152+

3663

4175
4285+

8308+

9809+
12813

10524+
12815

2693
2901+
3411
3696+

4195+

5449+

9070+
10548+
12817

6205+

6816+

9072+
10565+
12847

64103+
6215+
6962
9074
10567+
12851

001224
001106
001110
LA

222

056377
056366
054622
00115¢
000001

7664
7220
7234
1688
11647
11644

11391
7430
17654
2244

26754
3007
35064
3834

711

11398
9001+

114004
11509
1767

11538
18641#

1843

18740

18934

20474

24677

2501¥

2528

25470

2049
23684
2549
3303#
3646

4995
57978

51238
5799

3074#
3508
3910#

2268

23200

2322

23440

3076
35534
3912

3169
3555
60650

3171
3591#
4047

32318
3593
63220

2503

5125
58914

25260

5194#
5893

52064
6018¢

6482

66114

6613

67450

83224

8324

8507

B8522¢

8524

11951+
11371
4618
12085#

11956
11379
8875+«

11959+«
11389
8877

11970+«
11397«
8910+

119964

1206474

12075

120634
11538
12037

11698

11742

11758

12064

12065+

12066+

12084#

1658
11587

1659
11617

1661
11765

514
1670

515
1671

7640640
784604

7406
7861¥

75040
7863

7506
7922¢

6747

76078
7924

2346

3233
36440
4324
5211
6020

6879

76224
79904

45840
56224
61440
6881
7624

11394+

47194
5443

62704
6995
7703%

11400

11858

2208#
2393
27540
3381
37364

22440
2451
3005#

3421
3832#

4721

4864

70934
7705
8084
88454

72614
77844
8212#

56734
6367

55524
6272

8625#

8627

7992

80644
87354

8082#
8737

8911+

8919

8932

11385

11401

11816

11819

11864

1663
11834

1665
11855

1667
11863

1668

1670

1737

8908

516
1772

517
1849

518
1878

520
2060
2554

)

LA2222

12038

056230
056410
000011
001160
001162
001164
001166
001170

12039

001172
001174
041532

SRTNAD
= ttteEe
SR2A
$SAVRE= (22222
$SAVR6
057560
054332
$SCOPE

11341#

$SETUP= 000117

000000
177777

11581

2327

2351

2375

2398

2456

2482

2508

2215
2766

OO~

1667

654
484
1668

11392#

054560
000200
167770

11342

oo~

$551
$STUP
$SVLAD
$SVP(C
$SWR

11393«
8974

wry

SREGS

764N

11864
11378+
6847+

~O 0o Ny
QOwN—

SREG4

12057

11819
9002
6782+
11852

SREG3

120804
1665
120784

11758
8991+
3978+
11491

oMo

$REGO

SREG!
S$REG2

057314
057316
054606
001100
057562
057550
057410
057544
057462
001222
056140

11749
2061+
3767+
11393

SEQ 0309

CROSS REFERENCE TABLE == USER SYMBOLS

—

$OCNT
$OMODE
S$OVER
$PASS
$POWER
$PWRAD
$PWRDN
$PWRMG
$PWRUP
$QUES
SRDCHR
$RDDEC=
SRDLIN
$RDOCT
$RDSZ =
$REGAD

4993#
5675
6480#
7263
7786
8214
11952+
11947+
11355
718#
12078

11538
1670«
1671+
17640
11763
117614

22660

PAGE 211

SLF
SLPADR
SLPERR
SMAIL =
$MNEW
SMSWR
SMXCNT
SNULL
SNWTIST=

11:11

30A(1052)

10-SEP-79 11:00

CIZRJGD.P11

10-SEP=79

MACY11

N 00N
WO
—
w0

CIRJGDO,RPO4/5/6 DSKLS CTRLR]

"8
30A(1052)
10-SEP=79
11:11
PAGE 312
CROSS REFERENCE TABLE == USER SYMBOLS

CZRJGDO,RPO4/5/6 DSKLS CTRLR1
CZRIGD.P11
10-SEP=79 11:00

MACY11

3180
4056

3246
4332

3312
4593

7614

7523

7611

5807

8093
8932

$SWRMK=
$TIMES
$1kB
$TKCNT
$TKINT
$TKQEN=
$TKQIN
$TKQ0U
$TKQSR
$1kS
$TKSRV

$STMPO
$TMP1

$TMP2
$TMPS
$STMPL
$TMPS

$IN

000000
001212
001146
055270
055310
055307
055272
055274
055276
001144
055360

001176
001200
001202
001204
001206
001210

= 000124

11381
11852
521
761
76404
115620
1693
115460
115630
115448
11545#4
7304
11560

7554
7568
9386+
7578
7580
7504
oJOO8

GT4W
1886

2221
2353
2501
27668
3231
36284
3582
3703
4322
4993

$TPB
$TPFLG
$1PS
$TRAP
$TRAP2

$TRP

001152
001157
001150
057320
057342

= 000016

54268
56834
60278
6336
6630
7011
7495
7703
78754
8096
8522
7420
7468
7410

1663
120160

120204

5900

8200
11333

11382
11856
522
1667+
11541
11557+
1901
11612
11558:
11559«
11558
11541
115734

3386
4729

6027

6153

6280

6375

6490

3598
5198
6622

8223
11334

8338
11335

8511
11336

8533
11337

8639
11354

8749
11366

8855
11368

8903
11369

8909
11372

8924
11373

8930
11374

11370
1878+
11598
11718
10174

1897+
11626
11720+
11557#

2060+
11653

8855«

8909+«

11381+

11388

11391«

11400

11578

11639

927

763

3428
4872
7692

7717

7773

6890

8068

7106

11602+«

11624

11640%

11650

11662+

11682+

1978+
1787+
9401
5275+
5279+
5269+
4353+

1979+
S247+
12826
5276*
5349+
5278
4355e

9261+
5272
12828
5345+
9259+
5300%
4356

9266
5339«
12841
53u6e
9260*
5329+
A362r

9271
5343

9275
5357+

9385+
5387

9399
6784+

9498+
6839+

9544+
9262«

12828
9266

9265+
9499+
5348
aledr

9268+
9501
9501+
4365

9270+
9502+«
9525s
443k

9273+
12828

9500+
12841

9542+

12841

9497+

9503+

9509

9622+

9701

4B
1893

1752
1897#
2246
2375M

1765
1900
2251W
2377

17720
2042

1774
2047

1841
20608

18494
2063

1851
2174

1857
21834

1874
2186

18784
2208

1880
22154

5427
5684
6028
6357
6725
7093
7504
7717
7878
8196
B5334
11527+
11485
11525

120294

120304

120054
12027

120314

5453
5797
614k
6377
6762
7245
7607
777%
7939
8212
86394

12032¢

7990
B8223#
864D

5541
5808
6154
6471
6879
727\
7612
7784
80044
8226
8735

120334

12034

5552
5891
6233
6480
68904
7275
7622
77984
8007
8322
87494

120354

11840

727

11596

2526
30154
3253
3494
3599
3746
4586
5123
56520
5779
6132
63754
6760
7114
7525
7769
7934
8201
8625

11829

8004

11614s

2275
2449
2554M
3084
3318
3520
36514
3910
4719
S1984

11828

793

3919
5683

11612
11725+

22734
2399
2547
30834
33124
3514
364k
3843
4714
5194

11827

7875

3842
5563

11611¢
11723

2266
2398N
2535
3074
3303
35134
3636
3842#
4594
513
5518
58074
61538
6430
6869
7261
76114
7774

11826

6760

3744
5452
7004

7850

3684
5426

11610+
11722+
11725
1159+

2510
3005
3247
3435
35984
3744#
4333
5006
5441
5752
6107 .
6365
6745
71060
75234
7720
7922
82004
853¢
11538
11538
11538

11825

7798

3651
3221

11394
12081
11338
1849«
11573
11604¢
9068

2253
2391
2533#
3016
3293
3506
3605
3832
4S593M
51334

11400

3560
5133

11383
11864
11337
1772+
11562
11587
3111
11723
11559
11721
11614
11563+

2228
2368
25084
2993
32460
3429
3591
3736
43320
50034

11397

3513
5003

SEQ 0310

11847

2320
2456M
2556
3169
3379
3542
3652
39194
47298
5199
55634
59004
6258
64908
6892
7353
76364
7801

23278
2459
2581
3180
33864
3549
3670
4045
4730
5209

2344
24824
2591
3187
3412
3560#
36844
4057
4B72#
5222

8064
8338¢
8750

5564
5901
6270
6497
6984
7392
7639
7846
80684
8339
8845

2329
2475
2590
3181
3392
3553
3677
40564
4B62
S22

12036

120374

12038#

120394* 120408

5628
5980
62804
6599
4993
7404
7688
78504
8069
8507
885K

5656
6005
6281
6611
70044
7414M
76928
7851
8082
85114

Yini

23514
2485
2754
3226
3419
3561
3686
4303
4873
5422

5673
6018
6285
66224
7005
7419
7693
7861
8093#
8512

CIRJGDO,RPO4/5/6 DSKLS CTRLR1
CIRJGD.P1Y
10-SEP=-79 11:00

MACY11

1206410
12010
719#
11735
12033
1164134

120420
12027#
8870+
11736

$STRPAD
$ISTNM
$TTVYIN
STYPBN=
STYPDS
STYPE
STYPEC
STYPEX
$TYPOC
STYPON

057354
001102
056336
weeees |
054624
055050
055220
055266
057116
057132

$1YPOS 057072
SXTSTR
054364
$$GET4= 000000

S$OFILL
057315
$L0CAT= sveeer |

= 070364

11485¢
11506
11531
119504
11949

12032
12020
11513
11533
12029
11952¢
12030

11946+
11356

11950+
11849

11945#
11357#
89240

6370
16264
19604

8932

108404
11757#

N 8
30A(1052)
10-SEP=79
11:11
PAGE 213
CROSS REFERENCE TABLE == USER SYMBOLS
120434
8908+

11332

11370

11392+«

12028
11520
115364

11525#

11526

11684

6524
17034
21114

6544
1708¢
2152#

11753

11757

11397

11401

11839

11864

658#
17214
21584

708#
17254
2164M

7164
18114
21904

767
18174
2194w

12031

11960

11995#

6414
1656
20104

649
1670
20174

6504
1671
2023

108414
11758

108420
11765

108434
11819

8936

SEQ 0311

89804

89954

101904

10844#
11864

102144
11400
11919#

102264
11401
12059

108334

114674
12083

10834

11538
129414

108354
11541

15500
1908#
22044
108364
115454

16244
19484
46264
108374
11546

16254
1952#
BBOON
10838#

115474

—

(ZRJGDO,RPO4/5/6 DSKLS CTRLR1
CIRJGD.P11
10-SEP-79 11:00
CHECKA
(HECKB
COMMEN
ENDCOM

ERROR

ESCAPE
GETPRI

GETSWR

HCOMPR
HCOMPW
MAKECL

MSG

MSGA
MSGB
MULT

NEWTST

POP

PUSH
REPORT

RFORGC
RH70CK
SAVE

SAVTST

SCOPE

MACY11

B 9
30A(1052)
10-SEP-79 11:11
PAGE %15
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0312

5097
5097
7323
"
1L

5519
4314
7451
485
692

5629
5239
7527
6348
6340

5753
5489
8131
2721
2746

5981
5602
8261

6108
5724
8392

6234
5843
8560

7354
5950
8665

6077
8770

6203
9351

6320
9451

6414
9618

6764

6929

7048

2492
3290
3585
Gtk
5617
6133
6727
7180
8160
9198

2517
3297
3623
4467
5514
6135
6729
7190
8163
9203

2542
3340
3638
4528
5542
6224
6796
7197
8180
9206

2563
3357
3665
4578
5544
6259
6805
7204
8290
9225

2235

2678
3359
3673
4660
5624
6261
6818
7211
8293
9232

2260

2797
3408
3698
4705
5657
6349
6825
7247
8310
9238

2293

2304

2313

2336

2360

2384

26413

2435

2466

1L
1L

6340
6340

7688

7769

2049
23904
2756
3505#
3912
5208¢
6146
7092#
8524

7846

21748
2393
3004#
3508
L044H
5211
6269¢
7095
86244

8064

8195

8507

2210
264740
3076
3590
4324
55514
6367
764034
8737

22434
2477
3168¢
3593
45838
5554
64L77H
7406
88454

2246
25004
3171
36434
4586
56728
6482
7503%
8847

22650
2503
32304
3646
47188
5675
66104
7506

2268
25250
3233
36764
4721
57964
6613
8081#

2319
2528
3302#
3679
48614
5799
67430
8084

1893

2047

2174

2208

2244

2266

2320

3303
4862
6480
7846

2344

3379
4993
6611
7861

2368

3419
5123
6745
7922

2391

3506
5194
6879
7990

10106

10146

10438

10592

9902
12055

10066

10120

10350

5284

9740

509¢
5094
509¢

1764#
2322
25468
3305
3735¢
4864
5890#
6747
82114
76228

1788

9811

LT74N

7637
7799
5194

1767
23438
2549
33784
3738
49928
5893
6878#¢
8214

77834
1L

7624
7786
6344

2449
3553
5209
6993
8064
I

2475
3591
5622
7093
8082
6344

6344

10662

10730

6340

"
10497

509#
509¢
509¢

509
2459
3599
5427
7005
8069
529¢

6344
10616

5541
1852
11835

1774
2485
3652
5453
7114
8096
1771

1866

10017

6340

7718
7876
5422

18404
2346
25804
3381
3831¢
4995
60174
6881
83204
7705
7863

1765

2501
3644
5441
7261
8196
9028

1889

10023

10091

2998
3414
3706
4807
5659
6352
6853
7249
8472
9243

3065
3446
3772
4853
5746
6454
6863
7344
8493
9276

3159
3466
3783
4937
5780
6456
6870
7379
8495
9666

3199
3481
3798
4983
5782
6554
6967
7381
8616
9668

3208
3489
3822
5069
5862
6560
6969
7393
8725
9692

3220
3500
3902
5114
5971
6600
7064
76477
8838
9694

3228
3535
3970
5185
6006
6602
7074
7483
9176
9709

3264
3545
4038
5280
6008
6685
7082
7496
9182
9720

3279
3575
4307
5350
6098
6690
7175
7596
9186
9730

1737

7937
8005
7607

1843
23674
2583
3418¢
3834
51224
6020
6992¢
8324
7924
7992

1841

2526
3677
5552
7404
8212
9125

20464
2370
27528
3421
3909
5125
616434
6995
85214

1874

2547
3736
5673
7504
8321
9313

2581
3832
5797
7607
8507
9409

2754
3910
5891
7622
8522
9547

2176
2L4BN
3007
35524
4047
564400
6272
72604
B627

3005
4045
6018
7688
8625
9595

2208#
2451
3073#
3555
63214
5443
63648
7263
87344

3074
4322
6144
7703
8735
9773

3169
4584
6270
7769
8845
9813

3231
4719
6365
7784

10804

10997

11155

11270

11310

11454

11808

12068

9754
11782

10042
12069
9791
12049

5656
2216

5779
3182

6005
3248

6132
3313

6258
3387

6599
3430

6725
3515

7245
3600

7006

1851
2510
3686
5564
7275
8201
1848

1880
2535
3746
5684
7419
8226
1877

1900
2556
3843
5808
7525
8339
1896

2063
2591

2183
3016

2215
3084

2228
3181

2253
3247

2275
3312

2329
3386

2353
3429

2377
3514

2399
3561

5901
7612
8512
2059

6028
7639
8534
2182

6154
7693
8640
2214

6281
7720
8750
2250

6285
7774
;
2272

6377
7801

6497
7851

6630
7878

6762
7939

6892
8007

2326

2350

2374

2397

2655

9018
10684

9112
10760

9303
10879

9376
11035

3919

9489
11201

4057

9492
11291

4333

9567
11413

4594

4730

4,873

5004

5134

5199

5222

———

CZRJGDO,RPO4/5/6 DSKLS CTRLR
10-SEP=-79 11:00
CZRJGD.P11

$SCMTM

$SESCA
SENEWT

2160
10163
5094
S09#
710#

710#
1
J
24649

3412
6357

3542
6471

3582
6869

3636
6984

1765
2165
2391
2588
3303
3682

1770
2174
2396
2639
3310
3711

2181
2449
2649
3379
3721

5441
6151

5450
6270

12032

12034

12036

12037

1886

2042
5752

2186
5980

2993
6107

647

Co00~ NO NV W N NN N N —
O Moo VIO —=0WVNOWVINOO~N
D CNN=DODNS
VM=
~NOVO
-~ —- — et e \NNOWWNO
O~

3226
6233

8748

712
2000
2320
2531
3074
3558
3910
5131
5866
6620
7607
7873
8322

767
2047
2325
2547
3081
3591
3917
5194
5886
6745
7609
7922
8336

5628

7691

7716

7935

7849

3559
5220

3512
5197
6889
8003

8067

7003

6340

11343

500

1874

2213
2475
2736
3419
3732

507
1876
2244

4870

7269
7784
8091

7404
7796

8845

10670
11403

634N

1857

2807
2940

6102
4253

2827

2266
2506
3005
3511
3832

2480
2754
3426
3736

4862

5561
6365

1895

4584

5624
6144
7002
7703
8060
8625
10476

5001
5797
6488
7504
7848
8212
8938
10744
11617

10819
11632

10260
10825
11703

10261
10851
11727

10320
10853
11768

11866

2221

3253

3318

3392

3435

3520

3605

4714

7011

2817
2952

2850

2860

2870

2880

2890

2919

2963

2974

L164

6174

4184

4194

4204

4233

4274

4284

11903
1718
1957

1722
2007

10215

1726
2014
8964
10219

2174
3005

2208
3074

5673
6373
8196
8853

10672
11470
16724

6113
4264

8507

11169
11999

4591

7093
7715
8064

8637

10478
11280
12045

1841

4719

7104
7769

8066
8735
10603
11282
12061

4136

6344
6344
634N
6340
6340
6340
6340

1913

2187

10170

6283
5903
749
755

6340
6340
2475

8919

11906

2693
2118

2706
2124

2191

2195

1699
1917

1705
1944

8094
6030
750
756

10193
8224
6156
751
757

1765

1841

10186

2501

2526

8857

10211

8863

— 0 N\ —
w0
— 00
—ornoO
~NwVO
oo

WDATAR
XREAD
$SCMRE

"
"
"
1
"
1909

12042

8638

7635

3311

4871

oOoony
—
OO~
noO~NNO
N
WOOO

SWRSU

TJUMP
TRMTRP
TSCLR
TSCLR1
TSCLR2
TSCLR3
TSCLRG
TSCLRS
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

7261
77N
8082
8747
10605
11329
"
S09#
120204
S09#
S09#
509#
509#
509#
509#
1T
1

12040

8532

3179
4592
6279
7772
8854

O —=0O'n

6278

12038

3082
4331
6152

4727
5552

6489

7610
8510

3014
4055
6026

~N&S

2208
2654
2733
3384
3728

7392

SEQ 0313

3427
5132
6759

2765
3918
5899

—NOO~NO

»
1847

3703

2589
3841
5806

—

SLASH
SMORE
SPACE
STARS

12029
6340
509#

2532

—

SETPRI
SETTRA
SETUP
SK1P

8092
"
12020#
1
"
3670
7353
"
509#
6348

—

30A(1052)
10-SEP=-79
1n:n
PAGE %16
CROSS REFERENCE TABLE == MACRO NAMES

ON)
=t =
s

7105

2507
3650
5651
7270
8199
6340

OO WWVIN
=N —

2481
3597
5425

MACYT1

2148
8992

2154
8996

2344
3379

2368
3419

2391

1814

1905

754
760

2047
2754

3506

CIZRJGDO,RPO4/5/6 DSKLS CTRLRI]
10-SEP=79 11:00
CZRJGD.P11

.SD1V
. SEOP

.$SERRO

509#
1L
1L
1L}
w
L74N
1L
»
»
»
1L
1L
e

1L
”
»
»

.SERRT
.SMULT
. $POWE
. SRAND
.SRDDE
. SRDOC
.SREAD
.SR2AZ
.$SAVE
.$582D
.$5820
.$SCOP

1L
»”
»
"
1
1L
”
”
”
4
”
»

.$SUPR
.STRAP
.$TYPB
.$TYPD
.STYPE
.$TYPO
.$40CA

”
#
”
TM
»
”
1L

. ABS.

070364

.$SI1ZE

1170

”

6340
L7460
2226
L7460
L7460
L74N

76404

3736
5673
7504
8322

3832
5797
7607
8507

3910
5891
7622
8522

4045
6018
7688
8625

4322

6144
7703
8735

12031

12032

120%

12036

12037

12038

524
2251

2327

2351

2375

2457

2483

2508

L7640

672
1649
510

L7460

645

G746H
L74H

710

G740
L7460
G760

11819
11864

L7408

12043

L7460
G740

L7460

11327

G740

11997

W740
G740
L7640

11401
11468
11920

5220

8212

523

8898

.$0B2D
.$DB20

12029

3677
5552

30A(1052)
10-SEP-79
11:11
PAGE 217
CROSS REFERENCE TABLE == MACRO NAMES

7261
8196
12030

—_—

LSACTI
.$APTB
.SAPTH
SAPTY
+SASTA
.SCATC
LSCMTA

7093
8082

3644
5441

Re|

.FLOAT
.HEADE
K111
.SETUP
. SWRH!
. SWRLO

120204
1L
1L

3591
5622

—_——

$SSET
$$SKIP
.EQUAT

3553
5209
6993
8064

MACYT1

ERRORS DETECTED:

000

CZRJGD.BIN,CZRJGD.LST/CRF/SOL/NL:TOC:MC:MD:CND/L]:ME=CZRJGD.SML,CZRJIGD.P1]

RUN=TIME: 86 126 9 SECONDS
RUN-TIME RATIO: 416/223-1.8

SEQ 0314
4584

6365

6480
7846

4993
6611
7861

12039

12040

12041

12042

2533

2554

6270
7769
8845

4719
7784

4862

5123
6745
7922

5194
6879
7990

—————

CZRJIGDO,RPO4/5/6 DSKLS CTRLR1
CZRJGD.P11
10-SEP=79 11:00
(ORE USED:

38k

(75 PAGES)

MACY11

9
30A(1052)
10-SEP=79
11:11
PAGE 18
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0315