Digital PDFs

AH-9215E-MC

April 1982

198 pages

Original

102MB

view download

OCR Version

139MB

view download

Document:	CZRJHE0 RP04,RP05,RP06 RP04-5-6 DSKLS 2 APR 1982 bw
Order Number:	AH-9215E-MC
Revision:	000
Pages:	198
Original Filename:	CZRJHE0__RP04,RP05,RP06__RP04-5-6_DSKLS_2__AH-9215E-MC__APR_1982_gray.pdf

OCR Text

RPO4

RPO5.RP0O6

RP04/5/6

DSKLS

CZRJHEO

AH-9215E-MC

RPR 1982

FICHE 1 OF 1 e
usa EUEW

SEQ@ 0001

N U

]

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND
SHOULD = NOT
BE _ CONSTRUED AS A COMMITMENT BY
DIGITAL
EQUIPMENT
CORPORATION.
DIGITAL EQUIPMENT CCRPORATION ASSUMES NC RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

BB
SDW
VI
S w 2Ve)

NN PN P NN

NN =

b ed b d e

d ed e

B R N R A RN NS S0 0 N1~ NN — O 0 00 O N £ (N —s

.REM

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16.37:12 PAGE 1

IDENTIFICATION

PRODUCT CODE:

AC=9213E-MC

PRODUCT NAME:

CZRJHEO

PRODUCT DATE:

NOVEMBER 1981

MAINTAINER:

CX DIAGNOSTIC GROUP

AUTHOR:

PETE BLACKSTONE

REVISED BY:

MIKE LEAVITT

DIGITAL EQUIPMENT
g;%}?fi{LITY OF ITS

RP04/5/6 DISKLESS TEST, PT 2

CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR
SOFTWARE
ON EQUIPMENT
THAT
IS NOT
SUPPLIED BY

CONTENTS
ABSTRACT
REQUIREMENTS

EQUIPMENT
STORAGE
PRELIMINARY PROGRAMS

b b d b d d d D

5.1
§
2.

LOADING PROCEDURE
3.1
METHOD

PONIND = =

N =S OV NOWNESWN
= OV
NONN
NN -

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 2

OPERATING PROCEDURE
.1
OPERATIONAL SWITCH SETTINGS

wvwn

STARTING PROCEDURE
4.1
CONTROL SWITCH SETTINGS
4.2
STARTING ADDRESS OR ADDRESSES
4.3
PROGRAM AND/OR OPERATOR ACTION

]
0
o

SUB-ROUTINE ABSTRACTS

6.1

'FATAL' ERRORS

RESTRICTIONS
MISCELLANEOUS

8.1
8.2
8.3
8.4

EXECUTION TIME
STACK POINTER
OPERATOR SELECTABLE SCOPE LOOPS
PROGRAM REVISION HISTORY

PROGRAM DESCRIPTION

SEQ 0002

=S OV NPWVISNN
= OOV NO NS WN

1.0

2.0

REQUIREMENTS

2.1

EQUIPMENT

SEQ 0003

ABSTRACT

THIS DIAGNOSTIC TESTS THE RH11 AND DCL OF AN RP04/5/6 SUBSYSTEM.
IT 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

IS _REQUIRED TO GET THE DISK TO THE ‘MEADS UNLOADED'*

POSITION.

AFTER A SUCCESSFUL RUN (WITH NO ERRORS) OF THIS DIAGNOSTIC

IT CAN BE ASSERTED THAT,

°'‘THAT PART OF THE DCL THAT HANDLES

d ed e wd b

DATA OR DATA ASSOCIATED LOGIC IS WORKING PROPERLY''.
THIS
IMPLIES THAT, THAT 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.

b d = e
PON) =

THE DIAGNOSTIC DOES NOT DO ANY TESTING OF THE RH70 CONTROLLER
WHEN IT IS USED TO TEST RP04/5/6 DISK DRIVES CONNECTED TO
THAT TYPE OF CONTROLLER.
IT IS ASSUMED THAT THE RH70
SPECIFIC CONTROLLER DIAGNOSTICS HAVE BEEN SUCCESSFULLY RUN TO
COMPLETION BEFORE THIS PROGRAM IS RUN.

PDP=11 COMPUTER WITH CONSOLE TELETYPE, AND AN 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 IF NOT THAT CABLE MUST BE PROPERLY
TERMINATED.

2.2

STORAGE
THIS PROGRAM REQUIRES 16K WORDS OF MEMORY.

2.3

PRELIMINARY PROGRAMS

THIS PROGRAM ASSUMES THAT MAINDEC-11-DZRJG(LATEST REV) HAS BEEN RUN WITHOUT ERRORS

3.0

LOADING PROCEDURE
USE STANDARD PROCEDURE FOR LOADING .ABS TAPES

4.0

STARTING PROCEDURE

SWITCH 12 MUST BE SET WHEN THIS PROGRAM IS TO BE RUN USING AN
RH70 CONTROLLER.
IT CAN BE SET AT THE FRONT PANEL, OR IN THE
SOFWARE SWITCH REGISTER IF THE OPERATOR SO DESIRES.
SEE
PARAGRAPH
OPERATION.
4.1

5.1 FOR A DESCRIPTICN OF SOF TWARE SWITCH REGISTER

CONTROL SWITCH SETTINGS

SEE SECTION 5.1
4.2

STARTING ADDRESS

b < )

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 3

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 3-1

SEQ 0004

58
59
60
g}

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

200 START

65
66
67

STARTING ADDRESS ALL THE RP04/5/6'S ON THE SYSTEM WILL BE
TESTED ONE AT A TIME BEFORE 'END PASS'' IS PRINTED OUT.
TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN.

WITH THIS

THAT IS POWERED UP (THAT IS THE LOWEST UNIT NUMBER RHAS REGISTER

THAT RESPONDS) THEN GO ON TO THE NEXT HIGHER UNIT NUMBER

THAT IS POWERED UP.

72
73
74
75
76
;g

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

210 START

80
81
82
gz
gg

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

PROGRAM AND/OR OPERATOR ACTION

LOAD THE PROGRAM INTO MEMORY.

SET STARTING ADDRESS ON THE SWITCH REGISTER

3,19_

PRESS ''LOAD ADDRESS''.

93
glso

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

Ran-o38IRRRIC28Y

97
98

PASS''

IS PRINTED,

THE FIRST PASS WILL REQUIRE OPERATOR

INTERVENTION iF THE PROGRAM IS NOT RUN UNDER AN

MONITOR.

‘‘ACT-11"

THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE

EACH TEST FOUR TIMES ON EACH DRIVES PRESENT OR DRIVE

SELECTED BEFORE

'END PASS''

IS PRINTED.

THE SECOND

AND SUBSEQUENT PASSED DO NOT NEED ANY OPERATOR INTERVENTION.

5.0

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS
IF THE_PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E.
AN 11/34) THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH
REGISTER IS NOT PRESENT AND WILL USE AN °'SOFTWARE' SWITCH
REGISTER.
THE SETTINGS OF THE 'SOFTWARE' SWITCHES ARE

SEQ@ 0005

CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH IS CALLED BY
TYPING A 'CONTROL G'.
THE PROGRAM WILL RECOGNIZE THE
'CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM IS AT A
HIGHER PRIORITY PROCESSING AN RP04/5/6 INTERRUPT.
THE
'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN
RESPONSE TIO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:

'SWR = NNNNNN

NEW ='

EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH

CORRECT TYPING ERRORS DURING SWITCH ENTRY

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

=S OOV NOWVBWN=O

—

e ol

)

D e

D -

D e

)

D D

Dl e

) e

)

go«gogOOOO\n\n\nvnvav\mmmmbbbbbbbb&bugtflgtfl&
VNN WN=OVRNO
NS W =O
VNIV
NN = OV

) e

) D d e

D i

WWWWNI
NI NN NN NINININ) = = b s

NO VNS WN =200V~
WD

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 3-2

SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 ‘‘'OPERATIONAL
ngECH SETTINGS'' HOWEVER THE DETAIL DESCRIPTIONS ARE GIVEN

SWITCH 15 = HALT ON ERROR

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

"'CONTINUE'' WILL CONTINUE WITH THE PROGRAM TILL THE NEXT

ERROR IS FOUND WHEN THE SAME THING WILL HAPPEN.

SWITCH 14 - LOOP ON TEST

WHEN THIS SWITCH IS SET THE PROGRAM WILL BEGIN TO LOOP
ON THE CURRENT TEST BEING EXECUTED.
FOR _EXAMPLE IF THIS

SWITCH IS SET WHEN THE PROGRAM IS IN TEST 10 THEN THE
PROGRAM WILL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY.
ONE WAY TO BE_SURE THAT THE PROGRAM IS IN THE EXPECTED

TEST IS TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR

DURING A PROGRAM HALT.

SWITCH 13 = INHIBIT ERROR TYPEOUTS

WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL

CEASE, HOWEVER
OPERATOR INSTRUCTIONS SUCH AS ''STOP DRIVE X'
WILL CONTINUE. AT THE END OF PASS '‘TOTAL NUMBER OF ERRORS
ON THIS PASS ON DRIVE X' WILL BE TRUE, THAT IS, ALTHOUGH
?¥Ifi}EET§A¥E25 INHIBITED IF THAT PASS FOUND 6 ERRORS,

SWITCH 12 = RH70 CONTROLLER_SELECT

THIS SWITCH MUST BE SET AT THE START OF THE PROGRAM WHEN THE

DISK DRIVES TO BE TESTED ARE CONNECTED TO AN RH70
CONTROLLER.
IT MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED
ARE CONNECTED TO AN RH11 CONTROLLER.
SWITCH 11 = INHIBIT ITERATIONS

NN IS NN
WA = OV

SEQ 0006

WHEN THIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL
gg&flg:ch EACH TEST FOUR TIMES BUT WILL DO EACH TEST

SWITCH 10 - BELL ON ERR

WHEN THIS SWITCHIS §ET

lF THE PROGRAM FINDS AN ERROR

THE "BELL'* OR "ALARM’' WILL BE SOUNDED.

THIS SWITCH IS USEFUL

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

THROUGH AN ERROR IS FOUND IT WILL AGAIN LOOP BACK TO

IASIASIASIASLUS
IS LS LN LN TS TN LN 1N TN 1NN ] AIRIRINININIAINY — e
N
WN=OVONOWVSWN—=OVY

-A—n—b-n-b-n-n—n—b-aog QEGRECS8 3@*‘

d d d e e

D e e

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

D D

d e

D e

D e e

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 3-3

EXECUTED

°''SCOPE''

STATEMENT.

IF ON THE SECOND TIME

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
CONTINUE NORMALLY WITH THE PROGRAM.
EACH TIME THE ERROR

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

NOTE: ALSO SEE SECTION 8.3

SWITCH 8 - LOOP ON TEST IN SWR <7:0>

THIS IS A SPECIAL SWITCH.
WHEN SET SWITCHES O THRU 7
HAVE ONE MEANING AND WHEN RESET SWITCHES O THRU 7 HAVE
ANOTHER MEANING.
THIS MEANS THAT ANY SETTING OF SWITCH

0 THRU 7 MUST BE DONE WITH SWITCH 8 IN THE APPROPIATE

POSITION.
WHEN THIS SWITCH IS SET THEN SWITCHES 0 THRU
7 GIVE THE TEST NUMBER TO BE LOOPED ON. FOR EXAMPLE

WITH SWITCH 8 SET AND SWITCH 3 SET THE PROGRAM WILL LOOP
ON TEST 10.
HOWEVER THIS SETTING MUST BE DONE AT THE
BEGINNING OF THE PROGRAM THEN ALL THE TESTS FROM 1 TO 10
WILL BE EXECUTED AND THEN TEST 10
WILL BE REPEATED OVER
AND OVER AGAIN.
WHEN THIS SWITCH IS NOT SET THEN SWITCHES
0 THRU 7 HAVE THE MEAING ITS NAME INDICATES.
FOR EXAMPLE SWITCH 7 IS ''STOP FURTHER COMPARES: THAT IS

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

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

ssouenr TEST WILL ALSO BE LOST.

BUT WITH SWITCH
7

HIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT.

ONLY

ANOTHE

EXAHPLE OF SWITCH 8 BEING LOW IS WITH SWITCH 6, uuxcu

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 3-4

SEQ@ 0007

NN NN
W
NNWWNWWNND
WN—=OO

IS "ECC_TEST-COMPARE END RESULT ONLY''. THAT IS IF SWITCH
8_IS _NOT SET AND SWITCH 6 IS SET THEN ON ECC TESTS (TEST
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE

POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK,

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

NOTE: ALSO SEE SECTION 8.3

SWITCH 7 = STOP FURTHER COMPARES IF SWO8 IS LOW.
IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED
IN THE DESCRIPTION OF SWITCH 8.
IF SWITCH 8 IS NOT SET

AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO AS THE

NAME INDICATES.

FOR EXAMPLE IN A 256 WORD BUFFER IF ALL

THE WORDS ARE IN ERROR THEN AFTER SEEING THE_ERROR PRINTOUTS
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8
NOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL
NOT _STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT
TEST.
IT IS EXPECTED THAT SWiTCH 7 AFTER BEING SET FOR

A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS.

SWITCH 6 - ECC TEST=COMPART END RESULTS ONLY IF SWO08 IS LOW
IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED

IN THE DESCRIPTION OF SWITCH 8.

IF SWITCH 8 1S NOT SET

AND THIS SWITCH IS SET THEN ON ECC TESTS (TEST 120 THRU
TEST 134) INSTEAD OF COMPARING CONTENTS OF THE POSITION AND
PATTERN REGISTERS AFTER EVERY CLOCK, COMPARES WILL BE DONE

ONLY AT THE END OF ALL THE CLOCKS.

5.2

SUB-ROUTINE ABSTRACTS

SEE SECTION 9 ''SUBROUTINES''
6.0

ERRORS

ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER

PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE.
THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RPO4
REGISTERS OR_GOOD/RECEIVED DATA.
IF THE ERROR OCCURRED IN A

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

6.1

'FATAL' ERRORS

IN THE EVENT THAT THE DISK DRIVE BECOMES UNAVAILABLE TO THE
CONTROLLER, POWERS DOWN, OR_CERTAIN CRITICAL STATUS BITS

CANNOT BE CLEARED PRIOR TO THE START OF A T4ST 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

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 3-5
286

SEQ@ 0008

ADDRESS 200 (210) AND RESTART THE PROGRAM AS A FIRST ATTEMPT

287
%gg

TO SOLVE THE PROBLEM.
IF THE FAILURE CONTINUES TO OCCUR,
THERE ARE TWO OPTIONS FOR THE OPERATOR:

290

291

LOOK IN THE TEST LISTING FOR_THE °'HALT'

INSTRUCTION AND REPLACE IT PLUS THE TWO WORDS

292

("TYPE

,CPHALT'") ABOVE WITH *NOP'S.

WITH TTY ERROR

293

PRINTOUTS INHIBITED,

296
297

2. GO BACK AND RERUN DZRPS AS IT IS QUITE POSSIBLE
THAT A HARD FAILURE HAS OCCURRED IN ONE OF THE

%82

A SCOPE LOOP CAN BE INITIATED

FOR THE TEST IN QUESTION.

ggg

HARDWARE REGISTERS.

300

IT IS ALSO POSSIBLE TO CONTINUE FROM THE HALT POINT, BUT THiS

ggg

SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS.

301

%8;

IS NOT RECOMMENDED AS ALL FOLLOWING TESTS WILL EXHIBIT THE

7.0

306

IF THERE IS A DRIVE CONNECTED THEN THE OPERATOR MUST HAVE

VOO
NS W -

307
308
309
310

NN
N NN W NN

RESTRICTIONS
THE DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B
BUT NEVER LEAVE IT IN THE PROGRAMMABLE STATE.
IF THERE
IS NO DRIVE CONNECTED THEN THE CABLE NORMALLY GOING FROM
THE DCL TO THE MDLI MUST BE PROPERLY TERMINATED.

SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND
* IT MUST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER.

BECAUSE OF THIS FACT, THE PROGRAM CANNOT BE RUN IN CHAIN MODE
WHEN USING THE SOFTWARE SWITCH REGISTER AS THE ROUTINE WHICH
ASKS FOR THE SWTICH REGISTER SETTINGS IS NOT OPERABLE WHEN IN
CHAIN MODE.

8.0

MISCELLANEOUS

%s;

8.1

EXECUTION TIME

323
gglso
g?z.‘g

%%g
%‘1’

THE FIRST PASS OF THE PROGRAM WILL TAKE 1.75 MINUTES PER
DRIVE.
SUBSEQUENT PASSES WILL TAKE 7 MINUTE.
8.2

STACK POINTER

8.3

OPERATOR SELECTABLE SCOPE LOOPS

THE STACK IS INITIALLY SET TO 1000

332
333

HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS.
FOR INSTRUCTIONS REGARDING USAGE OF THESE LOOPS, HIT CONTROL

335
g;g

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

338
339

WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT
THE PROGRAM GOES BACK TO CAN BE CHANGED.

334

340
341
342

C ANY TIME WHILE THE PROGRAM IS RUNNING.

ON HITTING AN ERROR

THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE:
1. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION
2. LOOP ON ERROR SWITCH MUST BE SET

wvwnun
DAAANNIAN
R R RRRER
NOr

VIS NN = OV~
IS W

358

3.
_THE_ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION
IF_THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION

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

AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN
NORMAL OPERATION WILL CONTINUE.

8.‘

PROGRAM REVISION HISTORY

9.0

PROGRAM DESCRIPTION
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
WHERE THAT ITEM WILL BE FOUND.

SEQ@ 0009

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 3-6

SEQ@ 0010

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV=-81 16:37:12 PAGE &

;*LAST REVISION 02-NOV-81

1
540
561

.TITLE CZRJHEO RPQ4/5/6 DSKLS PT2
s*COPYRIGHT (C) 1976, 1978, 1981
:*DIGITAL EQUIPMENT CORPORATION

*COLORADO SPGS., (0. 80919

tPROGRAH BY PETE BLACKSTONE

*THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC
*PACKAGE (MAINDEC=11-DZQAC~C5), 18-MAR-81
542

.SBTTL
*

o®

OPERATIONAL SWITCH SETTINGS

SWITCH

......

I3
i*
%
%

13
12
1
10

i
o
i*
H
.SBTTL

001100
104000

000004
000011

9
8
7
6

USE
HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS

RH70 CONTROLLER SELECT
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST IN SWR<7:0>
STOP FURTHER COMPARES IF SWO08 IS LOW
ECC TEST-COMPARE END RESULTS ONLY IF SW08 IS LOW

BASIC DEFINITIONS

s*=INITIAL ?gggESS OF THE STACK POINTER *#x 1100 wx=«

STACK
ERROR
SCOPE

=
= EMT
= JOT

s:BASIC DEFINITICN OF ERROR CALL
;;BASIC DEFINITION OF SCOPE CALL

*HISCELLA?EOUS DEFINITIONS

LF
CR
CRLF
PS

=
=
=
=

STKLMT

= 177

DSWR
DDISP

= 177
= 177

PSW=PS

PIRQ

12
15
200
177

s 177

::CODE FOR HORIZONTAL TAB
::CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN-LINE FEED
; ;PROCESSOR STATUS WORD
ssSTACK LIMIT REGISTER
: :PROGRAM INTERRUPT REQUEST REGISTER
: sHARDWARE SWITCH REGISTER

: HARDWARE DISPLAY REGISTER

: *GENERAL PURPOSE REGISTER DEFINITIONS

R1
R2
R3
R&
RS
Ré
R7
SP
PC

= %0

=
=
=
=
=
=
=
=
=

%1
%2
13
%%
%5
%6
%7
%6
X7

2 :GENERAL
2 2GENERAL
3 3GENERAL
2 GENERAL
s 3GENERAL

; ;GENERAL REGISTER

::GENERAL REGISTER
sGENERAL REGISTER

..STACK POINTER
3 sPROGRAM COUNTER

CZRJHEOQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV=81 16:37:12 PAGE 4~1

SEQ 0011

nmunwnnnnwnnunnn

0
P

000000

:*PRIORITY LEVEL DEFINITIONS

o
0

€

100000

nnnnunuunnnnnennnnnnx

000340

SW9=Sw09
Sw8=sw08
SW7=Sw07

40
100
140
200

240
300
340

PRIORITY LEVEL
LEVEL
LEVEL

..PRIORITY
ssPRIORITY
::PRIORITY
:sPRIORITY

LEVEL
LEVEL

:sPRIORITY LEVEL
ssPRIORITY LEVEL
J:PRIORITY LEVEL

400

200
100

20
10

2
1

SW0=Sw00
BHERBHUERN ll"'

100000
40000

20000

10000
4000

2000
1000
400
200

100
40

SN
O

WS VNNNDOOVO—=NoWsn

*DATA 8IT DEFINITIONS (BITOO TO BIT1S)

20
10
4

001000

NOWnNMS W= O

BASIC DEFINITIONS

SEQ@ 0012

BASIC DEFINITIONS

547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562

563
64
565
66
567
568
569
570,
571
572
573
574
575

577
578
579

;*BASIC ''CPU'" TRAP VECTOR ADDRESSES
&

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240

BITO=BITO00
ERRVEC
RESVEC
TBITVEC
TRTVEC
BPTVEC
IOTVEC

PWRVEC

EMTVEC
TRAPVEC
TKVEC

TPVEC
PIRQVEC

.SBTTL

O o&o&&ao

000400
000200
000100
000040
000020
000010
000004
000002
000001

240

TIME OUT AND OTHER ERRORS

..RESESYED AND ILLEGAL INSTRUCTIONS
..TRACE TRAP
; ;BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (IOT) *«SCOPE+*+
; sPOWER FAIL
:sEMULATOR TRAP (EMT) **ERROR**
::"'TRAP'' TRAP

;s TTY KEYBOARD VECTOR
3:TTY PRINTER VECTOR

2 sPROGRAM INTERRUPT REQUEST VECTOR

RH11/RH70 REGISTERS

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

;*CONTROL AND STATUS REGISTER 2 (RHCS2)
000001
000002
000004
000010
00002
000040
000100
000200
0004
001000
002000
0040
010000

020000
040000
100000

Us1=
use=

USé4=

BAl=
PAT=
CLR=
IR=
OR=
MPE=
MXF =
PGE=
NEM=

NED=

UPE=

WCE=

DLT=

1
2
&
1
2
4
1

&
1
2
4

1
20000

40000

100000

sUNIT SELECT (BIT #0)
sUNIT SELECT (BIT #1)
JUNIT SELECT (BIT #2)

;BUS ADDRESS INCREMENT INHIBIT (BIT #3)

s INVERT PARITY ON MASS BUS TO EVEN (BIT #4)

:CLEAR (BIT #5)
:INPUT READY (BIT #6)

:OUTPUT READY (BIT #7)

:MASS BUS PARITY ERROR (BIT #8)

:MISSED TRANSFER ERROR (BIT #9)
:PROGRAM ERROR (BIT #10)
:NON EXISTANT MEMORY (BIT #11)

:NON EXISTANT DRIVE (BIT #12)

:UNIBUS PARITY ERROR (BIT #13)
:WRITE CHECK ERROR (BIT
#14)
:DATA LATE (BIT #15)

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

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 4-2

SEQ 0013

RH11/RH70 REGISTERS

615
616

617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632

633
634
635
636
637

s*CONTROL AND STATUS 1 REGISTER.
GO=
IE=
RDY=
Al6=
Al17=

PSEL=
DVA=
MCPE=
TRE=

SC=

1
10

(#00)

;GO _(BIT #0)
: INTERRUPT ENABLE (BIT #6)

et =d=l=l=]
oo

000001
000100
000200
000400
001000
002000
004000
020000
040000
100000

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

40
10 0

:HIGH ORDER UNIBUS BITS (BIT #9)
:PORT SELECT (BIT #10)

20
40
0 00
40 000
1 00000

:DEVICE AVAILABLE (BIT #11)

:MASSBUSS PARITY ERROR (BIT #13)
s TRANSFER ERROR (BIT #14)

:SPECIAL CONDITION (BIT #15)

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

DF 5=

;DRIVE FORWARD 5°''/SEC.
(BIT #0)
:DRIVE FORWARD 20'‘/SEC.
(BIT #1)
:DRIVE TO INNER GAVRD BAND (BIT #2)
:GO REVERSE (BIT #3)
:DIFFERENCE LESS THAN 64 (BIT #4)
;DIFFERENCE EQUALS 1 (BIT #5)
:VOLUME VALID (BIT #6)
:DRIVE READY (BIT #7)

DFF20=
D1GB=
GRV=

DL64=
DE1=
Vy=

DRY=
DPR=

:DRIVE PRESENT (BIT #8)

:PROGRAMABLE (BIT #9)
sLAST SECTOR TRANSFERRED (BIT #10)

PROG=

LST=

WRL=
MOL=
PIP=
ERR=
ATA=

sWRITE LOCK (BIT #11)

;MEDIUM ON-LINE (BIT #12)

: *ERROR REGISTER #01
000001
000002
000004
000010
000020
000040
000100
000200
00040
001000
002000
00400
010000
020000
040000

100000

ILF=
ILR=

RMR=
PAR=
FER=
WCF=

DCK=

;POSITIONING OPERATION IN PROCGRESS (BIT #13)

40
100000

N =

607
608
609
610
611
612
613
614

;*RP04 REGISTERS

— BNV
N=2DN =N =2
o OO0 O0OOOOOOOO0O
o OO0 OOO0OOO
o == =l=l=le=]
=3 OO0
o

581
582
583
584
585
586
587
88
589
90
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605

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

(#02)

sILLEGAL FUNCTION (BIT #0)
sILLEGAL REGISTER (BIT #1)
sREGISTER MODIFICATION REFUSED (BIT #2)
;PARITY ERROR (BIT #3)
:FORMAT ERROR (BIT #4)

sWRITE CLOCK FAIL (BIT #5)
sECC HARD ERROR (BIT #6)
:HEADER COMPARE ERROR (BIT #7)
:HEADER CRC ERROR (BIT #8)

:ADDRESS OVERFLOW ERROR (BIT #9)
s INVALID ADDRESS ERROR (BIT #10)
;WRITE LOCK ERROR (BIT #11)

:DRIVE TIMING ERROR (BIT 012)

:OPERATION INCOMPLETE (BIT #13)
:DRIVE UNSAFE (BIT #14)
:DATA CHECK ERROR (BIT 15)

s*MAINTAINABILITY REGISTER (RHMR) (#03)
000001

DMD=

;DIAGINOSTIC MODE (BIT #0)

—-a

CZRJHEO _RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 4-3

CZRJHEO_RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 4=4

SEQ@ 0014

RH11/RH70 REGISTERS

638
639
640
641
642
643
644
645
646

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
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694

000002
000004
000010
000020
000040
000200
000400
001000

MCLK=

MSTCK=
MRD=

10
20

MINX=

MWR=
DENVL=
ZER=
DTSY=

sMAINTAINABILITY CLOCK (BIT )

;MAINTAINABILITY INDEX (BIT #2)

40
200
400

;MAINTAINABILITY WRITE (BIT #5)
:DATA ENVELOPE (BIT#7)
:ZERO DETECT (BIT #8)

1000

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

;MAINTAINABILITY SYNC DETECTED (BIT #9)

s*ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04)
000001
000002
000004
000010
0000
000040
000100
0002

ATO=
AT1=
AT2=
AT3=
ATé4=
AT5=
ATé=
AT7=

1
2
4
10

40
100
200

;DEVICE
:DEVICE
sDEVICE
sDEVICE
;DEVICE
;DEVICE
sDEVICE
:DEVICE

0
1
g
3
&
5
6
7

(BIT
(BIT
(BIT
(BIT
(BIT
(BIT
(BIT
(BIT

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

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

;*DRIVE TYPE REGISTER (RHDT) (#06)

s*EACH BIT IS CALLED BY BIT NUMBER

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

EXT1=

EXT2=
EXTé=
EXT10=
EXT20=
EXT40=
SC1=
SC2=
SCé=
SC10=
$C20=

1
2
&
10
20
40
100
200
400
1000
2000

(BIT #0)
:EXTENSION 2 (BIT #1)
sEXTENSION 3 (BIT #2)
SEXTENSION & (BIT #3)
sEXTENSION 5 (BIT #4)
;EXTENSION 6 _(BIT #5)
sSECTOR COUNT FIELD O
sSECTOR COUNT FIELD 1
sSECTOR COUNT FIELD g
sSECTOR COUNT FIELD 5
sSECTOR COUNT FIELD 4

TRK20=

100000

:TRACK FIELD 5 (BIT

TRK1=
TRK2=
TRK4=
TRK10=

4000
10000
20000
40000

sEXTENSION 1

sTRACK
sTRACK
sTRACK
sTRACK

FIELD
FIELD
FIELD
FIELD

1
5
5
&

(BIT
(BIT
(BIT
(BIT

(BIT
(BIT
(BIT
(BIT
(BIT
#11)
01;)
#13)
#14)
#15)

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

:*RP04 ERROR REGISTER #2 (RHER2) (#10)
000001
000002
000
000010
00002
000040
000100

WCU=

sWRITE CURRENT UNSAFE (BIT #0)

10
20

sCURRENT SWITCH UNSAFE (BIT #3)
MOTOR SEQUENCE ERROR (BIT #4)

CSF=
WSu=

2
4

TDF=

(SU=
MSE=

TUF=

100

:CURRENT SINK FAILURE (BIT #1)
:WRITE SELECT UNSAFE (BIT #2)
sTRANSITIONS DETECTOR FAILURE

:TRANSITIONS UNSAFE (BIT #6)

CZRJHEO_RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 4=5

SEQ@ 0015

RH11/RH70 REGISTERS

706

000001

704
705

707
708
709
710

[4)!

712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736

FEN=
WRU=
MHS=
NHS=
IXE=

VU30=
PLU=
ACU=

sFAILSAFE ENABLED (BIT #7)

:WRITE READY UNSAFE (BIT #8)

8°°°

000200
000400
001000
002000
004000
010000
020000
100000

A
S
b
e
OO0 O00O

695
696
697
698
699
700
701
702
703

:MULTIPLE HEAD SELECT (BIT #9)
:NO HEAD SELECTION (BIT #10)
s INDEX_ERROR (BIT #11)

:30VOLT UNSAFE (BIT #12)
:PLO UNSAFE (BIT #13)

20000
100000

:ACUNSAFE (BIT #15)

;*RP05/6 ERROR REGISTER #2 (RHER2) (#10)
000002
0000
000010
00002

000040

000100
000200
000400
001000
002000
004000
020000

WCu=

CSF=
WSu=
CSuU=
RAW=
TDF=
TUF=
ABS=
WRU=
MHS=
NHS=
IXE=
PLU=

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

s*OFFSET REGISTER (RHOF)

sWRITE CURENT UNSAFE

s CURRENT SINK FAILURE

sCURENT SELECT UNSAFE

s CURRENT SWITCH UNSAFE
sREAD AND WRITE
sTRANSITIONS DETECTOR FAILURE
sTRANSITIONS UNSAFE

sABNORMAL STOP
sWRITE READY UNSAFE
sMULTIPLE HEAD SELECT
sNO HEAD SELECTION
s INDEX ERROR
sPLO UNSAFE
(#11)

000001
000002
000004
000010

000020
000040

0F25=
OF50=
0OF100=
0F200=
0F400=
OF800=

1
2
&
10
20
40

sOFFSET
:OFFSET
sOFFSET
;OFFSET
;OFFSET
;OFFSET

000200
002000
004000
010000

OFREV=
HCI=
ECI=
FMT22=

200
2000
4000
10000

sOFFSET NEGATIVE (REVERSE) (BIT #7)
:HEADER COMPARE INHIBIT (BIT #10)
sERROR CORRECTION CODE INHIBIT (BIT #11)

%5 MICRO INCHES (BIT #0)
50 MICRO INCHES (BIT #1)
100 MICRO INCHES (BIT #2)
200 MICRO INCHES (BIT #3)
400 MICRO INCHES (BIT #4)
800 MICRO INCHES (BIT #5)

:FORMAT BIT (BIT #12

s*DESIRED CYLINDER ADDRESS (RHCA) n2)
s*EACH BIT IS CALLED BY BIT NUMBER.

737
738
739
740
741

s*CURRENT CYLINDER ADDRESS (RHCC) (#3)
s*EACH BIT IS CALLED BY BIT NUMBER

742

743
744
745

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

747
748
749
750
751

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

746

000001
00000
00001

PSU=

VUF =
UWR=

2
10

sPACK SPEED UNSAFE (BIT 00)

:VELOCITY UNSAFE (BIT #1)

;ANY UNSAFE EXCEPT READ/WRITE (BIT #3)

)

SEQ@ 0016

RH11/RH70 REGISTERS

752
753

000020
000040

PRE=
ACL=

20
40

sDISK PACK ROTATION ERROR (BIT #4)
:AC LOW (BIT
#5)

755
;gg

040000
100000

SKI=
ocyL=

40000
100000

:SEEK INCOMPLETE (BIT #14)
:OFF CYLINDER (BIT #15)

754

000100

758
759

OPDCL=

100

;*ECC POSITION REGISTER (RHEC1)

;2?

:DC LOW (BIT #6)

(#16)

s*EACH BIT IS CALLED BY BIT NUMBER

762

763
;gg

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

766

.SBTTL

MEMORY MANAGEMENT DEFINITIONS

;*KT11 VECTOR ADDRESS
000250

MMVEC

= 250

;*KT11 STATUS REGISTER ADDRESSES

177572
177574
177576
172516

SRO
SR1
SR2
SR3

=
=
=
=

177572
177574
177576
172516

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

KIPDRO
KIPDR1
KIPDRZ
KIPDRS
KIPDRG
KIPDRS
KIPDR6
KIPDR?

=
=
=
=
=
=
=
=

172300
172302
172304
172306
172310
172312
172314
172316

s*KERNEL °'I'' PAGE ADDRESS REGISTERS
172340
172342
172344
172346
172350
172352
172354
172356

767

KIPARO
KIPAR1
KIPARZ2
KIPARS
KIPARG
KIPARS
KIPARG
KIPAR?

=
=
=
=
=
=
=
=

172340
172342
172344
17 gk
17235
172352
172354
172356

CZRJHEO _RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 4-6

TRAP CATCHER

.SBTTL

=0
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A '‘,+2,HALT'

000000

000174
000176

:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
*LOCATION9 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG: HORD
SWREG:
.WORD
.SBTTL

000137
000137
000137

TRAP CATCHER

004620
035506
004626

s SOFTWARE DISPLAY REGISTER
:;SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)
JMP
JMP

JMP
.SBTTL

0
0

a#BEGIN
ABASECH

GNBEGIN2

:;JUMP TO STARTING ADDRESS OF PROGRAM
sMODIFY ADDRESSES

sSELECT DRIVE START

ACT11 HOOKS

sRRRRA kR FAAAAAAAAAAAAAARAAARAAARAAAR
AR R AR AR AR R AR AR AR ARy

000214

HOOKS REgUIRED BY ACT
SVPC=.

000046

SENDAD

000052

"WORD

“=$SVPC

;SAVE PC

221)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

20000

::2)SET LOC, sz T0 20000
:"RESTORE
P

SEQ 0017

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 5

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 6

SEQ@ 0018

COMMON TAGS

.SBTTL
A

COMMON TAGS

AR AR A

it i

ad i

it iidi

i dddddiddddd

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

001100

000000

001104
001106
001110
001112
001114

000000
000000
000000
000000
000

001116
001120
001122
001124
001126
001130

000000
000000
000000
000000
000009
000000

001102
001103

001115

001132
001134
001135
001136
001140
001142
001144
001146

001150
001152

001154
001155
001156
001157

.WORD

$ICNT:
SLPADR:
SLPERR:
$ERTTL:
$ITEMB:

.WORD
.WORD
.WORD
.WORD
.BYTE

$ERRPC:
$GDADR:
$8DADR:
$GDDAT:
$BDDAT:

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

001

SERMAX: .BYTE

0
000
000
00
177570

.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD

177564
177566

$TPS:
$TPB:

177570
177560
177562

DISPLAY: .WORD
$TKS:
177560
$TKB:
177562

000
002
012
000

001162
001164
001166
001170
001172
001174
001176
001200
001202
001204
001206
001210
001212
001214

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000600
000000
000000
000000

00122§

077

001224

$PASS:

$TSTNM: .BYTE
$ERFLG: .BYTE

000000

00122

.=1100

000
000

001160

001216

$CMTAG

207
015

012

SNULL:
$FILLS:
$FILLC:
$TPFLG:

000

377

0
0
0
0
0
0
O

0
0
0
0
0
0

0
0
0
0
DSWR

DDISP

::START OF COMMON TAGS
: sCONTAINS PASS COUNT

s sCONTAINS THE TEST NUMBER
s :CONTAINS ERROR FLAG
s sCONTAINS
: sCONTAINS
s sCONTAINS
: sCONTAINS
s sCONTAINS

SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CCNTROL BYTE

: sCONTAINS MAX. ERRORS PER TEST

s sCONTAINS PC OF LAST ERROR INSTRUCTION
:CONTAINS ADDRESS OF °'GOOD' DATA
s sCONTAINS ADDRESS OF 'BAD' DATA
: sCONTAINS 'GOOD*' DATA
:;CONTAINS °'BAD' DATA
: RESERVED==NOT TO BE USED

s sAUTOMATIC MODE INDICATOR
s INTERRUPT MODE INDICATOR
:;ADDRESS OF SWITCH REGISTER

: ;ADDRESS OF DISPLAY REGISTER
::TTY KBD STATUS
::TTY KBD BUFFER

;s TTY PRINTER STATUS REG. ADDRESS
s:TTY PRINTER BUFFER REG. ADDRESS

.BYTE
.BYTE
.BYTE
.BYTE

0
2
12
0

SREGO:
.WORD
$REG1:
.WORD
SREgi
WORD
SRE
.WORD
SREG4:
.WORD
SREG5:
.WORD
$STMPO:
.WORD
$TMP1:
.WORD
$TMP2:
.WORD
$TMP3:
.WORD
$TMP4:
.WORD
$TMP5:
.WORD
STIMES: 8
$ESCAPE:

0
0
0
0
0
0
O
0
0
0
O
0

$QUES:

/%/

s sQUESTION MARK

<12

s:LINE FEED

EGAD:

377

177564
177566

.WORD

s sCONTAINS NULL CHARACTER FOR FILLS
s;CONTAINS # OF FILLER CHARACTERS REQUIRED
s INSERT FILL CHARS. AFTER A °'LiNE_FEED''
2 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
s sCONTAINS THE ADDRESS FROM

s:WHICH

(SREGO) WAS OBTAINED

s sCONTAINS ((SREGAD)+0)
s CONTAINS ((SREGAD)+2)
s sCONTAINS ((SREGAD)+4)
s sCONTAINS ((SREGAD)+6)
s sCONTAINS ((SREGAD)+10)
:sCONTAINS ((SREGAD)+12)
s sUSER DEF INED
s USER DEF INED
:sUSER DEF INED
: sUSER DEF INED
s sUSER DEF INED
s sUSER DEF INED
:
. NUMBER OF ITERATIONS
:sESCAPE ON ERROR ADDRESS

S$BELL:

.ASCIZ

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

$CRLF:

LASCII

<15

SLF:

.ASCII

ASCIZ

: :CARRIAGE RETURN

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 6-1

COMMON TAGS

RRRAAAARAAAAAAAAAAAAARTAARAAAARAAAAAAAA
AR
ARAACRACAAAAAAR RS

SEQ 0019

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 7

SEQ@ 0020

USER DEFINED TAGS

001226

.SBTTL

USER DEFINED TAGS

000254

RPVEC:

254

;RP04/5/6 VECTOR ADDRESS

176722

RHDB:

176722

;DATA BUFFER

176704
176710
176700

:BUS_ADDRESS
:CONTROL AND STATUS
sCONTROL AND STATUS 1 SEE NOTE ABOVE

176706
176740
176732
176734
176742
176716
176724

:DESIRED SECTOR / TRACK ADDRESS
.ERROR i
sOFFSET
:DESIRED CYLINDER ADDRESS
;ERROR #3
;ATTENTION SUMMARY SEE NOTE ABOVE
IMAINTAINABILITY

RHWC:

176702

RHER1:

176714

RHBA:
RHCS2:
RHCS1:
RHDST:
RHER2:
RHOF:
RHCA:
RHER3:
RHAS:
RHMR:

RHDS1:

RHDT:
RHSN:
RHEC1:
RHEC2:
RHLA:
RHCC:

176712

176726
176730
176744
176746
176720
176736

:WORD COUNT

:ERROR #1 SEE NOTE ABOVE

:DRIVE STATUS

:DRIVE TYPE
sSERIAL NUMBER SEE NOTE ABOVE
sECC POSITION
sECC PATTERN
:LOOK AHEAD
:CURRENT CYLINDER ADDRESS

;ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER
RHCS3:
RHBAE:

176752
176750

;CONTROL AND STATUS REG #3
sBUS ADDRESS EXTENSION REGISTER

sTHE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SAVES
sANY TIME THERE IS AN ERROR ALL THESE WILL BE FILLED

$838388888888888s 8888

SEERREe R

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

000000
000000
000000

DB:

:DATA BUFFER

0
0

:BUS_ADDRESS
;CONTROL AND STATUS 2

wC:

CS1:
ER1:

0
0

ER2:
OF :
CA:
ER3:

0
0
0
0

BA:
cs2:

DST:

AS:
MR:

0
0

DS1:

SN:
EC1:

0
0

DT:

EC2:
LA:
cC:

0
0

:WORD COUNT

sCONTROL AND STATUS 1
:ERROR
#1

:DESIRED SECTOR/TRACK ADDRESS

* ZERROR
"2
sOFFSET
:DESIRED CYLINDER ADDRESS
:ERROR
#3

SATTENTION SUMMARY
SMAINTAINABILITY
sDRIVE STATUS

DRIVE TYPE

: SERIAL NUMBER
:ECC POSITION

:ECC PATTERN

: LOOK=AHEAD
s CURRENT CYLINDER ADDRESS

CZRJHEOQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 7-1

SEQ@ 0021

USER DEFINED TAGS

001354
001374
001376

000000
000000

UNITS:
UNIT:

NOUNIT:

.BLKW
.WORD
.WORD

001400

000000

NUNIT:

.WORD

001402
001404

000000
000000

SELECT:
UNITSL:

.WORD
.WORD

000000
000000

ERFLGS:

000000

SAVSN:

OO
O
OO

sFLAGS AND INTERNAL PROGRAM CONTROL WORDS

sTHIS IS FILLED WITH =1
;UNIT UNDER TEST

*NUMBER OF UNITS PRESENT

*USED TO KEEP TRACK OF UNIT UNDER TEST
.lTlSED (r)geosrgmm IF THERE ARE MORE
HAN

UNIT

sALL ONES INDICATE UNIT TO BE SELECTED

:UNIT NC. SELECTED

:ERROR FLAG
sSAVE DRIVE TYPE REGISTER
sFOR COMPARISON IN DRIVE CLEAR TEST
sAND RH_INIT TEST
sSAVE SERIAL NUMBER REGISTER
:FOR COMPARISON IN DRIVE CLEAR TEST
sAND RH INIT TEST
sSAVE PC OF JSR WHICH GAVE THE ERROR

SAVDT:

PCJSR:
ATTENT:

sATTENTION BIT FOR PRESENT UNIT

0
000000

TOTALAT:
TMPILL:
TSECC:

sTOTAL ATTENTION BITS

000000

TESDTE:

sFLAG TO SAY_IF DRIVE TIMING ERROR OR NOT

000000

TAGDTE:

;E:PORARY ILLEGAL FUNCTION
G TO_SAY IF ECC TEST OR_NCT
:WHEN =177777 IT IS AN ECC TEST
:WHEN =0IT IS NOT AN ECC TEST

:WHEN = 177777 1T 1S A DTE TEST
:WHEN
= 0
IT IS NOT A DTE TEST

: TEMPORARY TAG USED IN DRIVE TIMING

:ERROR TEST

sFUNCTION EQUATES
sTABLE OF COMMAND FUNCTIONS FOR RHCS1

UNLOAD:
RECALI:
DCLEAR:
RELEAS

Y
Y
Y
Y
Y
Y
N

READIN.

ILLEGL:

NN = = B NYNOVONWVWNIN
= =2 ONNVO
OOV
NNONHONIOONO

:
FUTABL
NOPERA:

NNSERRBFRNSE
R RSHRRN

S888838888883888838

s
W

:THEN *'GO'* BIT HAS TO BE SET

.WORD

;DATA BUFFER FOR READ WRITE

sNO OPERATION
sUNLOAD (STAND BY)

sRECALIBRATE

:DRIVE CLEAR

:RELEASE (DUAL-PORT OPERATION)
:SE ARCH COMMAND
:WRITE CHECK DATA

3:}}2 SHECK HEADER AND DATA

WRITE HEADER AND DATA (FORMAT)

:READ DAT

:READ HEADER AND DATA
:SEEK_COMMAND
OFFSET _COMMAND
sRETURNTO CENTERL INC

PACK ACKNOWLEDGE
sREAD IN

:COMPUTED ILLEGAL FUNCTION

CZRJHEQ RPQ4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 7-2

SE@ 0022

USER DEFINED TAGS

001500
002544

WRFROM: .BLKW
REINTO: .BLKW

003610
003612

000000
000000

TSTNM:
FIRST:

0
0

003614

000000

RH70:

003616

000000

SILOSZ:

.WORD

274,
274.

sWRITE FROM THIS BUFFER
sREAD INTO THIS BUFFER
:

s TEST _NUMBER
+IF ZERO WILL TYPE HEADER
:IF ONES WILL NOT TYPE HEADER
sFLAG = 1 FOR RH70 CONTROLLER

sFLAG = 0 FOR RH11
sRH SILO SIZE

;TABLE FOR ATTENTION BITS ATTENTION TABLE

003620

001

002

004

ATABLE:

.BYTE

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

|
CZRJHEO RP0O4/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 8

ERROR POINTER TABLE

.SBTTL

SEQ 0023

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
:*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN

*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
TE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERR
*NOTEZ
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:

003630

JERROR 1
047474
053655

03634
03636

:ggONG DATA IN READING OR WRITING HARDWARE REGISTER
sREG. ADDR.
:GOOD DATA
sRECEIVED DATA
; SERRPC ,$TSTNM,REGADR,
$GDDAT , $BDDAT

060144
060676

g 8

EMI
DH1

03630
03632

047557

;ERROR ON

056650

;PC

:0,0,0,0,0

g g

DATA COMMAND

:PC OF JSR

JTEST NO

NN/ =

=OVRNO
NS WN=OV NN W =

;POINTS
:;POINTS
:;POINTS
::POINTS

060530
061046

Dr33
DF33

JWORD NO.
;GOOD DATA
JCONTENTS OF RHCS1
;CONTENTS OF RHDS1
JCONTENTS OF RHER1
JSERRPC ,PCJSR,$TSTNM,

ERWORD ,$GDDAT,CS1,DS1,ERT

;ERROR 3
047557

EM2

;ERROR ON

056434

DH32

:PC
PC OF JSR

DATA COMMAND

; TEST NO
:WORD NO.

: GOOD DATA
:BAD DAT

:CONTENYS OF RHCS?
sCONTENTS OF RHDS1
sCONTENTS OF RHER1

060504
061035

:SERRPC ,PCJSR, STSTNM, ERWORD , SGDDAT , SBDDAT, CS1.DS1,ER1

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

CZRJHEG RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 8-1

SEQ 0024

ERROR POINTER TABLE

2§

:ERROR &

29 003660

047557

EM2

48 003662

056237

DH31

50
51
52
53
54

060462

STEST NO

DT31

:$ERRPC,$TSTNM,

ERWORD , $GDDAT, $BDDAT,CS1,DS1,ER1

0
DT31

:
;
*$ERRPC,$TSTNM,

ERWORD , $GDDAT, $BDDAT,CS1,DS1,ER1

DF31

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

:ERROR §

22 003676

:CONTENTS OF RHER1

gg 003666 061025

62 003670
63 003672
64 003674

DATA COMMAND

*WORD NO.
:GOOD DATA
:BAD DATA
:CONTENTS OF RHCS1
*CONTENTS OF RHDS1

57 003664

;ERROR ON

000000
000000
060462

061025

DF31

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

;ERROR 6

9% 003700

047606

EM6

:ERROR ON WRITE HEADER AND DATA

71 003702
72
73

056434

DH32

:PC
;PC OF JSR
STEST NO

74
75

*WORD NO.
1G0OD DATA

*CONTENTS OF RHER1

76
77
78

81 003704

gg 003706

;BAD DATA
*CONTENTS OF RHCS1
*CONTENTS OF RHDS1

060504

061035

gg
86 003710
87 003712
as
8°

047606
053772

33 003714 060172

060707

gg
97 003720
98 003722
99 003724

:$ERRPC ,PCJSR,$STSTNM,

EM6
DH2

;ERROR ON WRITE HEADER AND DATA
PC
*TEST NO
*WORD NO.

DF32

:0,0,0.1,0,0.0,0.0,

ERWORD , SGDDAT , $8DDAT,CS1,DS1,ER1

JERROR 7

32 003716

DT32

DT3
DF3

1GOOD DATA

:gfigng?rérsrnn ERWORD , $GDDAT , SBDDAT
:0,0,1.0,0,

:ERROR 10
000000
000000
060172

0
0
DT3

;
:
s SERRPC,STSTNM,ERWORD
,$GDDAT ,SBDDAT

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 8-2

SEQ 0025

ERROR POINTER TABLE
j=lele)

100 003726

060707

D
)

S
nNO

o
88
WW

D
D e

EM11
DH11

D
D
D
D
d

003734
003736

060206
060714

pT11
DF11

:S?NTROLLER OR DRIVE STATUS
sTEST NO
sFAILING REG. ADDR
sCONTENTS OF RHCS1

:CONTENTS OF RHCS2
sCONTENTS OF RHDS1
;CONTENTS OF RHER1

sSERRPC , STSTNM, $BDADR,(CS1,(S2,DS1,ERT

;ERROR 12

) D

047645

EM11

;WRONG DATA FROM SILO

003742

053655

DH1

;PC

003744
003746

060144
060676

W
~

o
o

) —d

000000
003756

D
D

0
0
DT1
DF1

003760
003762

047700
054257

EM14
DH14

003764
003766

060226
060723

)
)
D
)
ed e
D e cd D
)

sSERRPC,TSTNM

:0,0,0,0,0

_REGADR,SGDDAT ,$BDDAT

JERROR 14

WWWWWWWWW

:0,0,0.0

D —d

VIS
S BB
D

—

sREG.ADDR
;GOOD DATA
JRECEIVED DATA
sSERRPC ,REGADR,SGDDAT ,$SBDDAT

;ERROR 13

D e cd

)

D e

003740

:0,0,1,0,0,

;ERROR 11

NNV
S b b b b DBl 2 e =2 000

DF3

;REGISTER FAILED
:PC

sFAILING REG. ADDR
sCONTENTS OF FAILING REG.
sCONTENTS OF RHCS1
sCONTENTS OF RHCS?2
sCONTENTS OF RHDS1
sCONTENTS OF RHER1
: SERRPC , $BDADR, $BDDAT ,(S1,(S2,DS1,ERT

. eV '60 eV

;ERROR 15
003770

047720

EM15

sSPECIFIED REG. NON EXISTANT SO ABORT

003772

054455

DH15

:PC

003774
003776

060250
060733

DT15
DF15

sERROR 16

; PROGRAM

;ADDR. OF REG

:SESRPC.T'HPI

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 8-3

SEQ@ 0026

ERROR POINTER TABLE

o oo
VNN
W
=00

157 004000
8 004002

:WAIT LOOP FAILED

047770
054505

:PC

‘WAT PC

*BIT WANTED

004004
004006

060260
060736

DT16
DF16

EM17
DH17

004014
004016

060276
060743

04020
04022

050
055

EM20
DH20

D e

pT1?7
DF17

d
d
D
D
D
d

004024
004026

060316
060752

SESRSCOSBSTNH.$BA,DB,W(C,(CS1,(S2

sREGISTER FAILING

:PC
sTST _NO

D120
DF20

:CONTENTS OF RHDS1

:SERRPC,TSTNM ER1,ER2,ER3,AS,DS1

:0.0,0.0.0.,0,

;ERROR 21

d e

sCONTENTS OF RHCS1
:CONTENTS OF RHCS2

:CONTENTS OF RHAS

EM21
DH21

200 004034
201 004036
202
203
204
205 004040
206

060336
060761

DT21
DF21

sTEST NO
:CONTENTS OF RHBA
:CONTENTS OF RHDB
:CONTENTS OF RHWC

:CONTENTS OF RHER1
:CONTENTS OF RHER2
:CONTENTS OF RHER3

050056
055171

'gngE CHECK FAILING

;JERROR 20

d e

D e

050011
054642

004030
004032

—

;REG. CON

sEgRSCOSTflPS.$STMP1,$TMPO, $BDDAT

sERROR 17

)

SR RS RN 2RI R R RAR B IZINANANIITEIEAR

D e

:REG. ADR

JTEST NO
JCONTENTS OF RHCS1
JCONTENTS OF RHAS
;CONTENTS OF RHDS1
sSERRPC,TSTNM,CS1,AS,DST

:0,0,0,0.0

;ERROR 22
050100

EM22

508

209
210
2n
5}% 004042

:;?TERRUPT FAILING

sM! SMATCH IN DRIVE PRESENT

;LOUKING AT RHAS AND RHCSZ-NED(BITO1Z)

:DRIVE PRESENT DO NOT AGREE

INOTE: ON DUAL PORT SYSTEM
:DRIVE ON OTHER PORT WILL NOT GIVE NED
H;NS; THERE WILL
BE A MISSMATCH

055304

DH2?2

7777-MEANS NOT PRESENT

YEST NO

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04 00 17-NOV=81 16:37:12 PAGE 8-4

SEQ 0027
sRHAS UNIT

8RR

000000

[« ¥

060352
060766

RHCSZ UNIT

052

»
D

sERROR 23
0

SERRPC TSTNMS ,$GDDAT ,$BDDAT

:0,0,0,0

sMISSMATCH IN DRIVE PRESENT

sLOOKING AT RHAS AND RHCSZ-NED(BITI12)

:DRIVE_PRESENT DO NOT AGR
:177777-MEANS NOT PRESENT

000000

:PC

:TEST NO

:RHAS_UNIT

RHCSZ UNIT

g VO~ NN
VIS
N = OV

d b cd d

~NONWNS

ERROR POINTER TABLE

060352
060766

D122
DF22

* SERRPC, TSTNMS
, SGDDAT , SBDDAT
:0,0,0,0

;ERROR 24

244 004064
004066

050473

EM24

055377

DH24

060364
060772

DT24
DF 24

050566

EM25

004072

055377

DH24

W=D

249 004070

3ESR5C6037.SBDDAT ,$TMP1 ,$TMP2 ,$TMP3

sLOOK AHEAD REGISTER IS
ERROR

GOOD RHLA

004074

S
o

wviviunwnawnawnawnawna
0 ONOWVS

:GOOD RHLA
:SECTOR NO
:SECTOR CLOCK

;ERROR 25

sLOOK AHEAD REGISTER AT THE
:gsgégNlNG OF A SECTOR IS IN

060364
060772

DT24
DF24

:SECTOR NO
:SECTOR CLOCK
858R8C6087.SBDDAT ,$TMP1,$TMP2 ,$TMP3

;ERROR 26
047645

EM11

sCONTROLLER OR DRIVE STATUS

055554

DH26

:PC
:PC OF

FA!LING REGISYER ADDRESS

:CONTENTS OF RHCS)
;CONTENTS OF RHCS?
:CONTENTS OF RHDS1

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 8-5

SEQ@ 0028

ERROR POINTER TABLE

;CONTENTS OF RHER1

271

578 004104 060404

273

004106

061001

:$SERRPC ,PCJSR,$BDADR,(S1,CS2,DS1,ERT

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

;ERROR 27

576

278 004110

D126
DF26

047474

sERROR IN READING OR WRITING HARDWARE REGISTER

055751

DH27

:PC
sPC OF JSR

sTEST
NUMBER
FAILING REGISTER
GOOD DATA
RECEIVED DATA

D127
DF27

:$ERRPC ,PCJSR,TSTNM, REGADR,SGDDAT ,$BDDAT

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

;ERROR 30
050626
056106

EM30
DH30

'C%RRENT CYLINDER DOES NOT REFLECT DESIRED CYLINDER REG.
:PC OF JSR
REGISTER ADDRESS

:GOOD DATA
:BAD DATA

060444
061017

DT30
DF30

s$ERRPC ,PCJSR ,REGADR,$GDDAT ,$BDDAT

:0,0,0,0.0

;ERROR 31
050747

EM31

057046

DH34

sECC _GENERATED IS INCORRECT
sEVERY WORD IN THIS SECTOR IS GIVEN IN "DATA USED"
;PC

:TEST NUMBER

:GOOD ECC1
:GOOD EC2C

:WRITTEN EC 1
sWRITTEN EC c2

:DATA USED
060552

DT34

sSERRPC,TSTNM,GECC1,GECC2,WECCT
,WECC2,DISK

061056

DF 34

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

;ERROR 32
051071

EM32

sON READ COMMAND AFTER DATA AND ECC HAVE BEEN READ

:ECC REGISTER OR RHER1 IS _IN ERROR

:ONLY LOWER 11 BITS OF PATTERN REGISTER
: CAN BE READ

:THIS SHOULD MATCH LOWER 11 BITS OF ECC1
057220

DH35

:PC

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 8-6

SEQ 0029

ERROR POINTER TABLE

sTEST NUMBER
+GOOD ECC1
+GO0OD ECC2
sPATTERN REGISTER
sRHER1
060572

DT35

061065

DF35

s$ERRPC,TSTNM,GECC1,GECC2,EC2,ERT

;ERROR 33
EM33
DH36

:g%GH COUNT BIT NOT HIGH AFTER 38859 CLOCKS

‘PC OF JSR

*TEST NUMBER
*RHMR

*POSITION REG.

*PATTERN REGISTER
060614

DT36

sSERRPC ,PCJSR,TSTNM,MR,EC1,EC2

061075

DF36

:0.0,0,0,0,0

;ERROR 34

wvivinawn

WWWWWW

RERRRPRRY

=2 O VOOV
NN -

340 004

051427

057414

EM34

DH36

sZERO DETECT BIT NOT HIGH WHEN THE

232 BIT ECC REGISTER HAS ITS 21 BITS
:0F ZEROS
sERROR PRINTOUT WILL CONTINUE TILL
s ZERO DETECT BIT IS HIGH

:PC

sPC OF JSR
sTEST NUMBER
JRHMR

JPOSITINN REG.

JPATTERN REGISTER

060614

D136

:SERRPC,PCJSR,TSTNM_
MR EC1,EC2

061075

DF36

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

;ERROR 35
051522

EM35

;POSITION REGISTER OR 11 BITS OF
sPATTERN REGISTER INCORRECT

;LOWER 11 BITS OF PATTERN REGISTER
sSHOULD MATCH LOWER 11 BITS OF GOOD ECC1
sDATA ENVELOPE AND N-CODE ZEROS ARE IN DECIMAL
057551

DH37

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 8-7

SEQ 0030

ERROR POINTER TABLE

sDATA ENVELOPE
sN-CODE ZEROS

385
060632

D137

061103

DF37

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

;ERROR 36
052016

EM36

057220

DH35

sON A READ COMMAND WITH NON CORRECTABLE

ERROR INSERTED DCK AND ECH SHOULD BE SET
;PC

;TEST NUMBER
:GOOD ECCI

;600D ECC2

sPATTERN REGISTER

:POE{{ION REGISTER
404 004204

060572

DT35

JSERRPC,TSTNM,GECC1,GECC2,EC2,ECT1,ERT

406 004206

061065

DF35

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

09
410 004210
412

004212

;ERROR 37
052203

EM37

¢ERROR ON DATA COMMAND
:WITH A16 A17 USED

056237

DH31

JPC
sTEST NO
HORD NO.

:GOOD DATA
:BAD DATA

sCONTENTS OF RHCS1
:CONTENTS OF RHDS1

:CONTENTS OF RHER1

060462
061025

DT31
DF31

SERRPC6$5$TNH SRUORD.$GDDAT,$BDDAT,CS1,DS1,ERT

JERROR 40
000000
000000

060462
061025

0
0
D131
DF31

ESERRPC $TSTNM_ERWORD ,$SGDDAT ,$BDDAT ,CS1.DS1,ER1

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

;ERROR 41
05227

EM4O

057767

DH40

sTHERE WAS A READ/WRITE HEADER & DATA

:ERROR DURING 'DTE' TEST SETUP = THE

;EST IS ABORTED AT THAT POINT
:TEST NO

:FAILING REGISYER ADDRESS

:CONTENTS
OF RHCS?

: CONTENTS OF RHCS2

SEQ 0031

ERROR POINTER TABLE
4b
44
444 004234

445 004236

446

447
448
449 004240

JCONTENTS OF RHDS1

DT40
DF40

CONTENTS OF RHER
SERRPC STSTNM, SBDADR €S1,CS2,pS1,ER1
:0,0,0,0,0,0

;ERROR &2

sERROR PC,TEST NUMBER, REGISTER ADDRESS.

sERROR PC,TEST NUMBER, REGISTER ADDRESS.
;ERROR &4
EM4S
DHé44
DT44
DFé&4

sERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

sERROR 45
EM4S
DHé44
DT44
DF&é

sERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

sERROR 46
EM46

sERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

sERROR PC,TEST NUMBER, REGISTER ADDRESS.

sERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

498 004330

;ERROR 51
EM51

—

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 8-8

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 8-9

ERROR POINTER TABLE

DH44
DT44
DF &4

oONSNO

gEms
FRER

sERROR 52

gEss

oSN
O

;ERROR 53
EM53
DHé44
DT44
DFé&é4

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

8332
333

W
o
o

;ERROR 54
EM54
DH54
DT54
DF 54

;ERROR PC, TEST NUMBER.

;ERROR 55

s33%

283

i
i
i
U!\GU! wvivivi
PNONINIPONININININD
= b b e ) b cd b d d

CONOWVSWN=O
VN NS WN=O

I8IKK

504

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

EM55
DH44
DT44
DFé&4

sERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

;ERROR 56

sERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

;ERROR 57
EM57
DH44
DT44
DFé&4

sERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

;ERROR 60
EM60
DHé44
DT44
DF &4

;ERROR 61
EM61
DHé&4

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

SEQ 0032

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 8-10

ERROR POINTER TABLE

559 004434
557 004436
558

063059
06310

561 004440

062057

DT44
DF &4

sERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

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

567
568 004450

570 004454
571 004456

;ERROR 63
062134
062650
063056
063107

EM63
DH44
DT44
DF&4

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

;ERROR 64
575 004460

062212

EM64
DHé44
DT44
DFé&4

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

;ERROR 65
EM6S
DH&44
DT44
DFé&4

sERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

;JERROR 66
EM66
DHé44
DT44
DF &4

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

S
o~

b cnd cub b

[« XVo)

SR SRARRRRS 8RR
822
8828
888

;ERROR 67
:ERROR PC, TEST NUMBER.

sERROR 70

;ERROR PC, TEST NUMBER.

;ERROR 71
EM71
DHé44
DT44

sERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL.

SEQ 0033

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 8-1{
ERROR POINTER TABLE
613 004536

063107

DF&4

SEQ 0034

SEQ@ 0035

BADTMO: MOV
004554

éiggs:

:SAVE PC WHERE THE TIME OUT OCCURED

(SP)+,(SP)+

"ASCIZ

65%
43

*RESTORE STACK POINTER
..rvpe ASCIZ STRING
GET OVER THE ASCIZ

<CRLF>/UNEXPECTED BUS TIMEOUT. PC=/

?9¥oc

RO,=(SP)

;SETUP FOR TYPING OUT PC

CMP
TYPE
BR

-(ROJ

NOP

005037
000403

001402

012737

177777

005227

000000

001402

START OF PROGRAM

BEGIN:

CLR
BR

SELECT
START

:DO NOT SELECT UNIT, NORMAL RUN

BEGIN2: MOV

#-1,SELECT

;SELECT UNIT

START:

;TTY LOOP, WAIT FOR INCREMENT

ON)
=D
d
e

043422

#$CMTAG,R6
(R6)+

;sFIRST LOCATION TO BE CLEARED
2 :CLEAR MEMORY LOCATION

BNE

-6

H::LOOP BACK IF NO

000020

#SWR,R6

#STACK , SP

..INITIALIZE A FEW VECTORS

d e e
— e

:;SETUP THE STACK POINTER

#$SCOPE ,a#10TVEC ..IOT
V;CTOR FOR SCOPE ROUTINE

#340,a#I0TVEC+?
;
#SERROR ,aEMTVEC® ..enr VECTOR FOR ERROR ROUTINE

MOV
MOV

#STRAP, S#TRAPVEC : ; TRAP vecron FOR TRAP CALLS
#340.
a# TRAPVEC+2: LEVEL
7

MOV
CLR

CLR
MOVB
MOV

b b

; sDONE?

nov
MOV

MOV

—

*0F WORD
*RESET THE WORLD

MOV
CLR

MOV

#340, #EMTVEC+

siLEVEL 7

#SPURDN, @#PWRVEC ; ;POWER_FAILURE VECTOR

#3640, 3#PURVEC+2 ;:LEVEL 7
STIMES
s:INITIALIZE NUMBER OF ITERATIONS
$ESCAPE
#1,SERMAX
0..8LPADR

"SLPERR

*:CLEAR THE ESCAPE ON ERROR ADDRESS
*:ALLOW ONE ERROR PER TEST
::INITIALIZE THE LOOP ADDRESS FOR SCOPE
“SETUP THE enaon LOOP ADDRESS

::SIZE FOR A HARDUARE SWITCH REGiSTER IF NOT FOUND
OR IT IS

s;EQUAL TO A "'-1"', SETUP FOR A SOFTWARE SWITCH REGISTER.

l=lelelala)

MOV

@NERRVEC, = (SP)

MOV

pooxsfi DISPLAV *ANDA HARDWARE DISPLAY REGISTER

MOV
MOV
CMP

BNE

INITIALIZE THE COMMON TAGS

CMP

001140

001100

INC

BNE
RESET

::CLEAR THE COMMON TAGS (SCMTAG) AREA

001100

2706
001374

SADJUST PC =2

;PUT "HALT(0)' INSTRUCTION HERE IF YOU WISH
*TO STOP ON UNEXPECTED TIMEOUT.

.SBTTL

58 S

N
~

(SP) ,RO

oSN

$2Re serew

NONSNVO

;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

NN
NS

W= OV

POPONIN)
= e b e e b e ed e

NO NS WSO

00~

OSSN
=

CZRJHEO RP04/5/6 DSKLS PT2 MACRC V04.00 17-NOV-81 16:37:12 PAGE 9
ERROR POINTER TABLE

005044

648:

MOV

..SAVE ERROR VECTOR

2648 alefinvec
#DSWR,S

SET UP ERROR VECTOR
*:SETUP FOR A HARDWARE SWICH REGISTER

#-1,3SUR

..rnv TO REFERENCE HARDWARE SWR

668"
658

#658$, (SP)

:BRANCH IF NO TIMEOUT TRAP OCCURRED

"AND

THE HARDWARE SWR IS NOT = =1

::BRANCH IF NO TIMEOUT

*3SET UP FOR TRAP RETURN

CZRJHES RPO4/5/6 DSKLS PTZ MACRO V04.00 17-NOV=-81 16:37:12 PAGE 9-1

SEQ 0036

000004
000006

004540
000300

—_—

000176
000174
000004

[=3=
(=1

nNOo

INITIALIZE THE COMMON TAG

000425

66$:

BNE

005114

- 688:

.SBTTL

000042

001140

000001

000176

001134

177777

052441
177776
043342
044620

36 005234
g; 005242
39 005246
40 005254
2} 005256

173664

000001

003614

NN
— —

005300

49 005356

173764

0710000

001402

177770
001374
001404

#SWREG, SWR

#DI1SPREG,DISPL

..POINT TO SOF TWARE SWR

<sp)+.aaénnvec ..RESTORE ERROR VECTOR

;SETUP "gécEOUT" TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS
#BADTMO , ERRVEC
sSETUP FOR UNEXPECTED TIMEOUT
#PR6, RRVEC+2
MoV
sLEVEL 6

698
005737
001006
023727

RTI
MoV
MoV
MoV

.SBTTL
_TYPE PROGRAM NAME
;s TYPE T?ECNAHE 0F1THE PROGRAM IF FIRST PASS

177777
104401

65%:

TYPE
BR

678
688

¢ ’$

;FIRST TIME?

*BRANCH IF NO

..rvpe ASCIZ STRING
OVER THE ASCIZ

.ASCIZ <CRLF>3CZRJHEOD - “P04/5/6 DISKLESS TEST, PT 2a@<CRLF>

GET
VALUE'zgR SOF TWARE SUITCH REGISTER
ARE WE RUNNING UNDER XXDP/ACT?
69$
: ;BRANCH IF YES
SWR,#SWREG
::SOFTHARE SWITCH REG SELECTED?
708
¢ ;BRANCH IF NO
708

:sGET SOFT-SWR SETTINGS

#1,8AUTOB

::SET AUTO-MODE INDICATOR

#-1
18
.PREAMB
PS
#RPVECT ,aRPVEC

sFIRST TIME THRU ?

PC,STKINT

;INITIALIZE THE TTY KEYBOARD

RH70CK:

#SW12,3SWR
1$
#1 ,RH70

LOOK TO SEE IF USING RH70

1$:

SELECT

;200 START?

69%:
708:

1%:

643

:BR _IF NO
:TYPE PRE-AMBLE MESSAGE

:SET PROCESSOR STATUS TO 0

:THIS IS FOR UNTIMELY DRIVE INTERRUPTS

F SW12 = 0 SKIP NEXT
IF SW12 = 1, CU IS AN RH70
26O TO FIRST TEST IF STARTING FROM 200

..TYPE ASCIZ STRING

GET OVER _THE ASCIZ

<CRLF>/SELECT UNI?NUHBER TO BE TESTED ?/

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

;ONLY KEEP LAST 3 BITS

sSAVE UNIT TO BE TESTED
sSAVE UNIT TO BE TESTED

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10
n

SEQ 0037

REFERENCE EACH REGISTER

JokRAAARAANAAAAAAAAAAAAACAAAAAAAAAAAAAAAA A AR AR AR AAAA AR

REFERENCE EACH REGISTER
s*TEST 1
s *REFERENCE EACH REGISTER BY A MOVE INSTRUCTION

005362

000004

005364

012737

000001

001212

9 005376

012737

000001

003610

8 005404
9 005412
10 005416
11 005424
12 005430
13 005434
1% 005436
15 005440
16 005442
}; 005446

012737
013746
012737
012700
012701
013102
005300
001375
012637
000455

046106
000004
005450
000024
001230

000030

19 005450

012716

005456

012637

000004

§ 005372 012706 001100

20 005454
21 005456
005456

22 005462

23 005470
24 005472
25 005500
26 005502

000002

016137

104015
032777
001036
104401

005506 000427
012746

18:

000004

28:
38:

177776

001200

020000

173440

3i25"

000204

48:

33 005602
005602
005606

013746
015737

000004
005664

5%:

005620
37 005624
38 005630

005777
005237
104401

173456
003614
005636

005634

000412

005662

41 005664
42 005670

012716
000002

000004

668:
005672

68:

b3 T 104401 005700

005676 000412

005724

MOV

#1,TSTNM

::698:

68s:

::D0 1 ITERATION

#STACK,SP

*SET UP STACK POINTER

MOV
MOV
MOV
MOV
MOV
MOV
DEC
BNE
MOV
BR

#REGSA1,EMTVEC
ERRVEC,-(SP)
css.snavec
#24.RO
#RHDB,R1
a(R1)+,R2
RO
1$
(SP)+,ERRVEC
53

:;ERROR VECTOR SO THAT NO REGISTERS ARE SAVED
::PUSH ERRVEC ON STACK
:SETUP FOR BUS TIMEOUT
*THERE ARE 24 REG TO TEST
*R1 NOW HAS ADDR OF ADDR OF FIRST REG.
*READ HARDWARE REG.
:COUNT DOWN
:BRANCH IF 24 NOT DONE
:;POP STACK INTO ERRVEC
*BRANCH IF 24 DONE

MOV

#38, (SP)

:SETUP RETURN ADDRESS

(SP)+,ERRVEC

::POP STACK INTO ERRVEC

EMT
BIT
BNE
TYPE

15
#5W13,aSWR
13
658

;INHIBIT ERROR PRINTOUT ?
*BRANCH IF YES
2:TYPE ASCIZ STRING

LASCIZ

<CRLF>/TO CHANGE BASE ADDRESS, RESTART AT ADDNESS /

RTI

MOV

B8R

TYPOC
HALT

<2(R15,8TMPT

648

#204,~(SP)

*MOVE #1 TO TEST NUMBER

:STORE FAILING REG ADDR

S:GET OVER THE ASCIZ

:GET_READY TO TYPE STARTING ADDRESS
:OF "'CHANGE OF BASE ADDRESS'® ROUTINE
:FORCE THE RESTART!

JMP

S$EOP

MOV
MOV

ERRVEC,=(SP)
#6$ ERRVEC

;:PUSH ERRVEC ON STACK
*INITIALIZE VECTOR

TST
INC
TYPE

@RHBAE
RH70
678

*ADDRESS RPBAE (RH11/RH70?)
*FOUND AN RH70-SET MASK
*:TYPE ASCIZ STRING

CLR

::678:

23 005662 000420

#1,8TIMES

MOV

104402
000000

i ddiiRiddiiaiididdiiiidiiidiidiiiiidiiiiiiiiididddd]

MOV

005510

005037 003614

ScCoPE

MOV

g} 005576 000137 030660

35 005614

22222222

000004

27 005566
28
29 005572
30 005574

T§T1:

BR
JASCIZ

RH70

MOV
RTI

#78,(SP)

B8R

688

.ASCIZ

SINIT RH INDICATOR ++ C.W

668
S:GET OVER THE ASCIZ
<CRLF><LF>/RH70 CONTROLLER /

B8R

‘GO TC END OF PROGRAM

;SETUP RETURN ADDRESS

TYPE ASCIZ STRING

*:GET OVER THE ASCIZ

<CRLF><LF>/RH11 CONTROLLER /

——————

RJHEO RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
REFERENCE EACH REGISTER

44 005724
45 005732

046072
000004

000770

16:37:12 PAGE 10-1

MOV
MOV

#SERROR,EMTVEC
(SP)+ ,ERRVEC

SEQ@ 0038
;RESTORE ERROR VECTOR SO REGISTERS ARE SAVED
:sPOP STACK INTO ERRVEC

THE SILO SIZE
TS A RH70 C MODIFY TESTS 50 AND 51

JSR
CLR
MOV
INC

173254

W
~N

NIV
NNO

go8ggessesoges

N W = N =NN

032054

000100

173250

000406

003616

PC,CLDISK

sCONTROLLER CLEAR

#1IR,3RHCS2

*1S THE SILO FULL?

éILOSZ
IL0SZ ,aRHDB
SILOSZ

*CLEAR SILO COUNTER
*LOAD SILO
*KEEP COUNT

*BRANCH IF NO

#262.,5S1L0S2

*RH70C?

10$
VAR142

016270
001500
000400
000400
016736

*BRANCH IF NO
*VAR1 IN TEST 50

#WURFROM, VAR2+2

*VAR2 IN TEST 50

#256. ,VAR2+?2
#256. VAR2+2

VAR3+2

:VAR3 IN TEST 51

#52737 ,VARS

:VARS IN TEST 51

#WRFROM, VARG +2
#260. ,VARG+2
#260. ,VARL+2

032054

JSR
IR

*VARG IN TEST 51

PC,CLDISK
AR AN AN RN

*CONTROLLER CLEAR

R RN

RR AR

RHCS2-CONTROL AND STATUS 2
;*TEST 2
s*THIS PARTIALLY TESTS RHCS2 TO ENABLE DETERMINATION
+*0F THE NUMBER OF DRIVES PRESENT
e AR AR

000001
001100
000002

AR AN AR AR AT

SCOPE
MOV
MOV

001212

MOV

003610

AR AR

#1,$TIMES
#STACK,SP

#2,TSTNM

RAAAA AR RR

AAA

;:D0 1 ITERATION
*RESET STACK

*MOVE #2 TO TEST NUMBER

NOSRERN Rara

SE8REE SRR

SRERB2SIIY

:CHECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RH70
003614

ST
BEQ

006144

001236
031622

006136

:TEST FLAG FOR RH70 CONTROLLER
“IF FLAG = 1, THIS TEST IS SKIPPED
SJUMP TO NEXT TEST

MOV
JSR

RHCS2,UN+2
RS, BITST

;TEST BITS IN REGISTER

éggno

*ADDRESS OF REG. BEING TESTED

LWORD

RTS

*IF FLAG = 0, DO THIS TEST

20017

SONLY THESE BITS ARE TEST READ/WRITE
:RETURN TO BLT3 ROUTINE

:'ttttttttttttt'ttttt't".t"lt.'t'Qt.ttt'tt't.t.tt't'ttt't...lt.

S*TEST 3
& RER

8 88

JMP

RH70
64$
TST3

PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT

3233333333333 33333332333333333333333333311333331333333323323232232233

SCOPE

000001
000003

MOV

#1,8TIMES

001256

MOV

RHAS,.R1

MOV

#3.TSTNM

::D0 1

*MOVE #3

ITERATION

TO TEST NUMBER

:R1 HAS ADDRESS OF RMAS

N
¥4 RJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-2
13
PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT

89 006166
90 006172
91 006176
92 006202
93 006204
9% 006210
95 006214

012711
011137
105737
001405
005037
010137
104001

177777
001126
001126

MOV
MOV
TSTB

BEQ
CLR
MOV
EMT

001124
031620

#<1,3R1
aR1,$BDDAT
$BDDAT
TST4
$GDDAT
R1,REGADR
1

SEQ@ 0039

;THIS CLEARS RHAS (SURPRISED!)
STEST DATA
;BRANCH IF GOOD
$GOOD DATA
*FAILING REG. RHAS

;WITH ONES MOVED INTO IT

:;tttttttttttttttltttttttt.ttttttttt.tttttttttttttttttttttttttttt

S*TEST &

006216

000004

006220

012737

000001

}8? 006230

004737

044620

032777
001024
104401

020000

99 006226

102 006234
103 006242
104 006244

006250
p—<

000005

000421

001256

107 006324
108 006326

9005012
012700

000010

;gg 006332

111 006336
112 006342
113 006344
114 006346

115 006350

013704

012714
005212
005300
001373

TST4:

172676

4$:

001236

SCOPE

MOV

#1,8TIMES

::00 1 ITERATION

JSR

PC,STKINT

SINITILIZE TTY KEYBOARD

BIT
BNE
TYPE

#SW13,aSWR
43
,65$

LASCIZ

<CRLF>/LOOKING AT RHAS - DRIVES PRESENT/

RESET

gz25’=

013701

013702

001212

006252

105 006314

106 006320

TEST FOR DRIVES PRESENT USING RHAS AND RHCS2

‘;ttttttttttQtttttttttttt"tttttt'tttttt.tttttttttttttttttttttttt

001242

MOV

RHAS ,R1

CLR
MOV

aR2
#8. RO

MOV

177777

18:

648

MOV
INC
DEC
BNE

SSTART WITH AN INIT

;INHIBIT ERROR TYPEOUT ?
*SKIP NEXT IF SO
*:TYPE ASCIZ STRING

*:GET OVER THE ASCIZ

:R1 HAS ADDR. OF RHAS

RHCS2,R2

*R2 HAS ADDR. OF RHCS2

RHER1,R4

‘R4 HAS ADDR. OF RHER?

*CLEAR RHCS2
*COUNT

#-1,3R4
aR2
RO
1$

;MOVE ERRORS INTO RHER1
*INCREMENT UNIT NO.
: COUNT
*BRANCH IF 8 NOT DONE

116
117 006354
118 006360
119 006362

111137

001420

MOVB

105037
105711
001402

001421

000137

006414

CLRB
TSTB
BEQ

TOTALAT+1
aR1
2

*USED IN DRIVE CLEAR TEST
*CLEAR UPPER BYTE
STEST FOR ANY DRIVES PRESENT
*NONE RESPONDING = TYPE THE MESSAGE

122 006370
123 006376
124 006400

032777
oo1ao;
000137

020000

BIT
BEQ
JMP

#SW13,aSWR
$
SELTST

;INKIBIT ERROR TYPE OUT?
*"NO DRIVES'' MESSAGE IF NO
:CHECK FOR SELECTED UNIT START AND LOAD

104401

053107

}5? 006364

;gg

127 006404

;23 006410

000137

13§ 006414
133 006414

012700

}ig

134 006420
135 oo«4§3

01 702
012723

JMP

172542

2%:

006742

030660

000010

1354
177777

133 Qs 001300
138 oooa§4 012703 001354

3$:

TYPE

oR1,TOTALAT

XE2

NDRVAS

3s:

*SOME THERE - GO FILL 'UNITS'' TABLE

S"UNITS' TABLE WITH DESIRED DRIVE IF SO
:TYPE

*NO DRIVES PRESENT IN RHAS'

JMP

$E0P

16O OuT

MOV

#8. .RO

: COUNTER

b
MOV

o
FUNITS.R3

SERMNEH IF § NOT DONE
*POINTER

;SET UP UNITS TABLE
XE2:
28:

sSAVE TOTAL ATTENTION

MOV
MOV

#UNITS R3
#-1,(R%)+

*POINTER
*PRELET BLOCK TO ALL ONES

’

CZRJHEO RP04/5/6 DSKLS
T4

PT2 MACRO V0400 17-NOV-81 16:37:12 PAGE 10-3

SEQ 0040

TEST FOR DRIVES PRESENT USING RHAS AND RMC

139 006440
140 006442
141 ooe4ag
14§ 006452

005005
005937
012700
011137

001376
000010
001176

145 006462
146 006464

103114
010577

172546

148 006476
149 006500

001477
022777

}2‘ 006456

147 006470

}gg 006506

006037 001176

022777
001473

48:

024020

172566

020020

172556

152 006510
153 006516
154 006520
}gg 006526

022777
001467
022777
001463

024021

172546

020021

172536

157 006530
158 006536
159 006540
}g? 006546

022777
001457
022777
001453

024022

172526

020022

172516

162

CLR
CLR
MOV
MOV

RS
NOUNIT
#8. RO
aR1.$TMPO

:NO. OF UNITS PRESENT
+COUNTER
*TEMPORARY STORAGE

BCC
MOV

RS, BRHCS?2

s INSERT UNIT NUMBER

BEQ
CMP

6$
#20020,3RHDT

:TYPE DRIVE NO. IF SO
IS THIS A SINGLE PORT RPO4 ?

ROR

CMP

BEQ

$TMPO

#24020,3RHDT
6$

*SET CARRY IF ONE IN 0 BIT
;IS THIS A DUAL PORT RPO4 ?
*TYPE DRIVE NO.IF YES

CMP
BEQ
CMP
BEQ

#264021,3RHDT
6%
#20021,3RHDT
6$

;IS THIS A DUAL PORT RPOS ?
:TYPE UNIT NO. OUT
1S THIS A SINGLE PORT RPOS ?
:TYPE UNIT NO. IF SO

CMP
BEQ
CMP
BEQ

#264022,8RHDT
65
#20022,3RHDT
6

;IS THIS A DUAL PORT RP06 ?
:TYPE THE NO IF SO
;IS THIS A SINGLE PORT RP06 ?
:TYPE THE NO IF SO

:NO...IT'S NOT AN RP04/RPOS/RP0O6 DEVICE

}gz

2SO0 TYPE OUT THE DEVICE TYPE

165 006550

006554

006574

166 006574
167 006576
168 006600

006604

006620
169 006620
170 006624
171 006626
006632

104401
000407
010546
104405
104401

000405

017746
104402
104401

006556

::658:

648:
006606

::67%:

668
:

172440

006634

g§g9s=

172 563274 000407
173 006676

010523

175 006704
176 006706

010546
104405

174 006700 104401

001223

};; 006710

001376

005237

68:

130 006716 oos%oo

179 006714

005205

5%:

}31 006720

001256

183

006722

013737

001354

185 006736
186

005337

001400

001374

184 006755 013737 001376 001400

TYPE
BR

,65$
648

::TYPE ASCIZ STRING

MOV
TYPDS
TYPE

RS,=(SP)

:GET READY TO TYPE UNIT NUMBER

67$

::TYPE ASCIZ STRING

*:GET OVER THE ASCIZ

.ASCIZ <CRLF>/UNIT NUMBER /

668

MOV
TYPOC
TYPE

@RHDT , = (SP)

:GET READY TO TYPE RHDT

::TYPE ASCIZ STRING

LASCIZ

,698
688

? = NOT AN RP04/RP0S/RP06 DEVICE?

:NO RP04/5/6 FOUND SO BRANCH

LASCIZ

B8R

/., RHDT =/

MOV

RS, (R3)+

MOV
TYPDS

RS,=(SP)

TYPE

,SCRLF

+:GET OVER THE ASCIZ

--sgr OVER THE ASCIZ

:PUT DRIVE NO. ON STACK
STYPE DRIVE NO.

INC

NOUNIT

DEC

INC

:"RHCS2® UNIT ADDRESS

BNE

RO
4

*TEST AND DO NEXT UNIT IF 8 NOT DONE

MOV

UNITS,UNIT

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

DEC

NUNIT

SIF NUNIT = 0 THEN ONLY ONE UNIT
*IF NUNIT > 0 THEN MORE THAN ONE UNIT

MOV

NOUNIT,NUNIT

*INCR TOTAL NO. OF UNITS

*DRIVE COUNTER DOWN ONE
:SAVE NO. OF UNITS

C
CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV=81 16:37:12 PAGE 10-4
14

SEQ 0041

TEST FOR DRIVES PRESENT USING RHAS AND RHCS

187
188 006742
189 006746

}3? 006750

005737
001403

013737

001402

001404

001374

198

SELTST: TST
BEQ

SELECT
TST

MoV

UNITSL,UNIT

sSTARTING ADDRESS 200 ?
sBRANCH IF STARTING FROM 200

s CHANGE UNIT NUMBER TO SELECTED ONE

T T

'T ST 5

TYPE SERIAL NUMBER AND DRIVE TYPE

;*READ SERIAL NUMBER REGISTER AND DRIVE TYPE REGISTER
tTYPE IT OUT AND PROCEED

*TO LOOP HERE SET SWITCH 8 AND THIS TEST NO AND RESTART

006756

000004

SRARAAAA AR

006760

012737

000001

199 006774

004737

032054

006766

001212

t475:

012737 007426 001106

53? 007000 005037

AR AR AR

SCOPE

#1,8TIMES

::D0 1 ITERATION

JSR

PC,CLDISK

sFILL UNIT NO.

CLR

gg%

AAAAAAAAAR

MOV

001416

RA AR

#1$,SLPADR
ATTENT

;CLEAR

::SET SCOPE LOOP ADDRESS

;TEST FOR UNIT #0

204 007004
205 007010
206 007012
207 007016
208 007022

005737 001374
001022
012700 000041
122710 000011
001015

209 007024 005737 001402

ST
BNE
MOV
CMPB
BNE

UNIT
10$
#41,R0
#11.(RO)
108

;1S UNIT #0 NEXT IN THE UNITS TABLE ?
:IF NOT, TEST THIS UNIT
:IF SO,"CHECK THE LOAD MEDIA LOCATION
ms IS AN RP04/5/6?
GO AHEAD AND TEST UNIT #0

BNE

108

*IF SO...TEST UNIT #0

210

gs 007030 001012
213
g;g

SELECT ;WAS umf#0° SELECTED?

;(IE. WAS IT A 210 START ?2)

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

216 007032 012700 001354

MOV

SUNITS,RO

:LOAD UNITS TABLE POINTER

219 007040 022710 177777
220 007044 001404
221 007046 011037 001374

BEQ

CMP
MOV

#-1,(RO)
108"
(RO) ,UNIT

:1S THERE ANOTHER TABLE ENTRY PRESENT ?
:IF NOT (LOC = =1) ...MUST USE UNIT #0
*SET UP TO BE THE UNIT UNDER TEST

MOV

UNIT,RO ;RO CONTAINS THE UNIT UNDER TEST

217 007036
218

005720

222 007052 005337 001376

532 007056

013700

001374

236
237 007062
238 007070

116037
104401

003620
007076

239 007124 013746

001374

007074

kol

000413

108:
001416

MOVB
TYPE

MOV
z’,i,%"‘

242 007160 o1mg 172102
007164
243 oonga

10440
104401

007172 000410

007174

*SELECT THE NEXT UNIT IN THE TABLE
: (DOUBLE INCREMENT THE POINTER)

nounirs :DECREMENT BECAUSE UNIT #0 WON'T BE TESTED
ATABLE(RO) ,ATTENT -ser mnopame ATTENTION BIT
658
:;TYPE ASCIZ STRING

648

GET OVER me ASCIZ

iig”: LASCIZ <CRLF>/TESTING okive NUMBER/

240 oonio 104402
241 007132 104401 007140
007136 000410
aaial

DEC

(RO) +

TYPDS
TYPE

UNIT,=(SP)

BR
LASCIZ

6$
*GET OVER THE ASCIZ
<CRLF>/SERIAL NO. = /

MOV

@RHSN, = (SP)

TYPOC
TYPE

67$

gos

688

;UNIT NO. TO STACK

STYPE
DRIVE NO.
..rm ASCIZ STRING

::SAVE @RHSN FOR TYPEOUT

;160 rvps--ocm. ASCII(ALL DIGITS)
SSTYPE ASCIZ
S

::GET OVER me ASCII

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-2
T

SEQ 0042

TYPE SERIAL NUMBER AND DRIVE TYPE

:698:

853:

007214
244 007515
007220

017746
104402

172044

246 0072

022777

024020

172034

020020

172024

47 0072
48 007232
%gg 007240

001425
022777
001421

251 007242
252 007250
253 007252
ggg 007260

022777
001433
022777
001427

024021

172014

020021

172004

256 007262
257 007270
258 007272
259 007
260 007302
261
262
263
264
265
266
267 007304
0073
007310

022777
001441
022777
001435
000451

024022

171774

020022

171764

007336
007336
269 007340
007340
007344
007372
270 007372
271 007374
007374
007400
007426
27;
27 007456
274 0074

5;6 007644

+ASCIZ

<CRLF>/DRIVE TYPE =

MOV
TYPOC

@RHDT,=(SP)

CMP
BEQ
CMP
BEQ

z§4020.3RHDT

CMP
BEQ
CMP
BEQ

g§4021.3RHDT

CMP
BEQ
CMP
BEQ
BR

zgkOZZ.iRHDT

#20020,3RHDT
4%

#20021,3RHDT
5%

#20022,3RHDT

::SAVE @RHDT FOR TYPEOUT
::60 TYPE=--OCTAL ASCII(ALL DIGITS)
;DUAL PORT RPO4 ?

:TYPE ASCII MSG OUT

?
:SINGLE PORT RPO04

:TYPE THE MESSAGE
;DUAL PORT RPOS ?

:TYPE THE MESSAGE
:SINGLE PORT RPOS ?

;TYPE THE MESSAGE

;DUAL PORT RPO6 ?

:TYPE THE MESSAGE

SIgGLE PORT RPO6 ?
;TYPE IT OUT

:DRIVE IS NOT RP04/5/6 = SO
;DO NOT TYPE ANY MESSAGE OUT

s=SHOULD NEVER HAPPEN AT THIS POINT
sUNLESS DRIVE GOT SICK WHILE TESTING
:WAS IN PROGRESS
104401
000412

48:

007312

:718:

503:

000433
104401
000412

58:

007346

:73%:

b58:

000415
104401
000412

6$:

007402

:75%:

bis:
005777
005777
017737
017737

171634
171656
171624
171614

18:

001615
00141

283

718

..TVPE ASCIZ STRING

TYPE
BR
.ASCIZ

708

JGET OVER THE ASCIZ
IS AN RP04/<CRLF>

:SKIP NEXT ONES

TYPE
BR
.ASCIZ

723

73s

..TYPE ASCIZ STRING

sSKIP NEXT

TYPE
BR
.ASCIZ

743

758

.,TYPE ASCIZ STRING

<CRLF>/DRIVE IS AN RP06/<CRLF>

TST
TST
MoV
MOV

aRHSN
@RHDT
SRHSN, SAVSN
SRHDT, SAVDT

<CRLF>/DRIVE

sGET OVER THE ASCIZ

IS AN RPO5/<CRLF>

;GET OVER THE ASCIZ

READ SERIAL NO. AND DRIVE TYPE
THESE TWO ARE TO HELP SCOPE LOOPS

SAVE TO CHECK IF CLR RHCS
:SAVE TO CHECK IF CLR RMCS

BIT 5 CLEARS ANY B ITS
BIT 5 CLEARS ANY B ITS

SRR RRRAAAAAAAAARAAAANARNERRRAAAAARANAAAAAAAAARARIRRAAARANARRANRSY

aresr 6
CHECK MOL TO BE LOW
s*MAKE SURE THAT DRIVE IS OFF LINE BEFORE STARTING PROGRAM
;«IF DRIVE IS ON LINE THEN AFTER TYPE OUT THE PROGRAM WILL

:*HANG FOR EVER WAITING FOR DRIVE TO GO OFF LINE

"t.t'..Q..ttt'..l....'t"t"..t..fi....t.l.!ti.'l't'ttltt..t'.."

007452
284 007454

012737

000006

003610

t516:

SCOPE
MOV

#6,TSTNM

sMOVE #6 TO TEST NUMBER

CZRJHEO RP04/5/6 DSKLS PTZ MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-6
16

SEQ 0043

CHECK
MOL TO BE
L

285 007462
286 007466

ogm?
032713

032054
010000

JSR
BIT

287 007472 001542
288 007474 104401 007502

BEQ
TYPE

007500 000420
o

289 007542

104401

007550

007624

007546 000423

7704

i,i.g”‘

000430

CASCIZ

TYPE

ST
658

;GIVE INITILIZE
:CHECK MOL IN RHDS1

*BRANCH IF MOL LOW
..rws ASCIZ STRING

*GET OVER THE ASCIZ

<CRLF>/DRIVE IS ON LINE < MOL 1S HIGH/
678

;i TYPE ASCIZ STRING

393

;3 TYPE ASCIZ STRING

668

GET OVER THE ASCIZ

'278: +ASCIZ <CRLF>/HIT STOP bN DRIVE TO GET IT OFF LINE/

b4s:

i 5‘,’?"

032713 010000

292 007710 001375
293 007712 104401
007716 000430
. 010000

B8R

PC,CLDISK
#MOL , 3R

1$:

007720

..718:

708 :

301

TYPE

688

BIT

#MOL , aR3

ASCIZ

<CRLF><LF>/MOL 15°NOW LOW. PROGRAM WILL NOW BE EXECUTED/<CRLF>

CASCIZ

BNE
TYPE
BR

*GET OVER THE ASCIZ

<CRLF>/PROGRAM WI{L HANG TESTING MOL TILL MOL IS LOW/

1$
718
70s

;CHECK MOL IN RHDS1

*BRANCH IF MOL IS HIGH
..rvpe ASCIZ STRING
GET OVER THE ASCIZ

ttttttttttt'tttttt.'t'"ttttttt.t.tttttttttttt.ttttttt.tttttttt

RTEST 7
PACK ACKNOWLEDGE COMMAND TEST
*#THE PACK ACKNOWLEDGE COMMAND WILL BE LOADED INTO RHCS1 WITH GO
*#THEN ALL REGISTERS WILL BE CHECKED

**RH CLEAR WILL BE GIVEN

;*THEN ALL REGISTERS WILL BE CHECKED

010000

000004

305 010014

004737

ttttttt.'.tttttttti'ttttttttt‘ttttlt.tttttttttttttttttfi'ttttttt

302 010002 012706 001100
3382 010006 012737 000007 003610

t817:

032054

306
3385 010020 012777 000001 171232
ggg 010026 013777 001470 171204
311
§1§ 010034

004037

1% 010042

002544

010040 001232

}2 010044
17

171164

321 010054

002574

000100

's'

JSR

PC,CLDISK

sINIT AND SET UP GENERAL REG.

MOV

#DMD , SRHMR

MOV

PKACK,@RHCS1

*AND UNIT NUMBER
*SET DIAGNOSTIC MODE
;LOAD PACK ACKNOWLEDGE COMMAND INTO RHCS1

RHWC

*FROM

19.

*NUMBER OF REGISTERS SAVED

:T0

:GIVE GO TO PACK ACKNOWLEDGE COMMAND

BIS

#G0, 3RHCS1

;G0 TO PACK ACKNOWLEDGE COMMAND

:CHANGE SAVED REGISTERS TO EXPECTED VALUES
BIS
#VV,REINTO+
:SAVED RHDS1

;AFTER GO HAS BEEN GIVEN TO PACK ACKNOWLEDGE COMMAND
:s:ws ozgsxsreas AGAIN SO THAT COMPARISONS CAN

26 010062
7 810066
28

;RESET STACK
*MOVE #7 TO TEST NUMBER

REINTO

fig 010046 052777 000001

#STACK, SP
#7,TSTNM

;SAVE REGISTERS FOR COMPARISON AFTER GO
JSR
RO, SAVER
: SAVE

032554

000023

052737

SCOPE

MOV
MOV

010070

037 032554

JSR
RHWC

WRFROM

RO, SAVER

:SAVE
*FROM

F
% RJHEO RP04/5/6 DSKLS PT2 MACRO vgg.oo 17-NOV=-81 16:37:12 PAGE 10-7

SEQ 0044

PACK ACKNOWLEDGE COMMAND TEST

.; 9 010072
gm
3§
33
gg 010074

000023

113737

19.

002571

001525

33%
337

;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
REINTO0+25,WRFROM+25;SAVE UPPER RHAS

:COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE COMMAND

338
339 010102 004037 032756
gzo 010106 002544
1 010110 001500

:WITH AFTER GO
JSR
RO, COMPAR
REINTO
WRFROM

342 010112
343 010114
344 010116
345 010120

000023
010122
010122
010142

346 010122 013705 037030
1$:
347 010126 060505
3323 010130 016537 001230 031620

MOV
ACD
MOV

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

350 010136
351

104001

EMT

000207

RTS

352
ggz 010140

19.
1$
1$
2

: COMPARE
$GOOD BUFFER
STEST BUFFER

*NUMBER
*RETURN FOR ERROR
+ SAME
*RETURN FOR GOOD COMPARISON

JAFTER PACK ACKNOWLEDGE COMMAND
*WITH GO IS GIVEN
JRETURN TO COMPARISION

ggg 010142

28:

357

23 L 33 3333333333333 3333332333333 3333 3333333333333 333333333333333333]

S*TEST 10

MAKE CURRENT CYLINDER = 0

;;tttttttttttttttttttt'ttttttttttttlttt.tlt't.tttttttittttttttttt

010142

010144

000004

012706

7ST10:

001100

010150 012737 000010 003610
010156 004737 032054
010162 012777 oooogz 171070
010170 004037 0344

369

010174

000000

SCOPE

MOV

MOV
JSR
MOV
JSR

WORD

#STACK,SP

#10,TSTNM
PC,CLDISK
#DMD , aRHMR
RO, MAKECYL
O

;RESET STACK

*MOVE #10 TO TEST NUMBER
*SET DIAGNOSTIC MODE
:DO SEEK COMMAND FOLILOWED BY AN INIT TO
SINIT DRIVE

*CHANGE RHCC TO CYLINDER 0

22 LA 3232333323333 3233333333333 3333333333333 3333331333333333333

SATEST 11

BCTA LEGAL REGISTER RESPONSE TEST

*#THE FOLLOWING TESTS WILL ATTEMPT TO CATCH THOSE BUGS WHICH FAULT
;*INSERTION HAS SHOWN US WE MISSED IN THE FIRST PART OF THIS TEST.
s«THIS TEST WILL ASCERTAIN THAT THE ALL RH11 REGISTERS WIIL

:*RESPOND TO I.E. NOT CAUSE A NON-EXISTANT MEMORY ERROR WHEN ACCESSED
S#BY A "TST"* INSRUCTION.
e

010176

010200 012737

70 owgoo
;1 010214

12737
012777

1
0

oomg
381
171014

;g 010222 012705 001240
75 010226 013737
001176
7 mozia 012737 31"0“5702i 000004

tS111:

3333333333323

score

33333333333 33 333333333333333333333333333333%3

MOV

#1,STIMES

::D0 1

MOV
MOV
MOV

#RHCS1,RS
TIMOT,$TMPO
#E00, TIMOT

:RS=LIST POINTER.
:SAVE TIMEOUT VECTOR.
*SET VECTOR TO EOO

MOV
MOV

#1,TSTNR
#CLR,BRHCS2

ITERATION

*MOVE #11 TO TEST NUMBER
*CLEAR RH11 CONTROLLER

CZRJHEO
RP04/5/6
DSKLS PT2 MACRO V04.T00 17~NOV-81 16:37:12 PAGE 10-3
m
BCTA LEGAL REGISTER RESPONSE
g;g 010242

012706

380 010246

011502

001100

381 010250 010;37 031620
ggg 01025¢ 005712
384 010256
385 010262

062705
020527

386 010266 101767
ggg 010270 000401

100:

MOV

E00:

001176

000004

l.os

000:

SEQ 0045

#STACK,SP

:SET STACK POINTER.

(RS) ,R2

;R2=RH11 ADDRESS.

MOV
ST

R2,REGADR
(R2)

ADD
CMP

#2.RS
RS ,#RHEC2

EMT

MOV

$TMPO, TIMOT

BLoS
BR

3900022104042
013737

MOV

000002
001272

389 010272

§35 010274

L00:

100
000

:DOES THE RH11 REGISTER RESPOND?
;UPDATE ADDRESS
AT THE END OF LEGAL RH11 REGISTERS?

OPE
ves' GOTO 000.

;RESTORE TIMEOUT VECTOR.

tttttttttttttttttttttt'itttttttttttttQttttttttttttttttttttttttt

RTEST 12

BCTA MOVB LO BYTE 70 WC

*«THE FOLLOWING 6 TESTS WILL TEST THE BYTE LOGIC FOR THE RH11 REGISTERS

'NO ATTEMPT IS MADE TO DETERMINE IF ALL POSSIBLE DATA PATTERNS CAN BE
'LOADED ONLY THAT THE RH11 HARDWARE WILL ALLOW THE PROGRAM TO SELECTIVLY

.:HANIPULATE BYTES USING THE FOLLOWING COMMANDS:
::
1). MOVE BYTE BOTH TO AND FROM THE WORD COUNT REGISTER
I:
2). BIT SET INTO THE WORD COUNT REGISTER.
It
010302

000004

010306

012737

000001

001212

23; 010320

012777

000040

170710

2?3 010326

012706

001100

411 010332

013702

001232

406 010312

412

010336

012737

010237

3). BIT CLEAR INTO THE WORD COUNT REGISTER.

i3 3333233333323 33

000012

t8712:

003610

417 010352

2}3 010356

112712
011237

000377

420 010362
421 010370
25% 010372

023737
001401
104044

001126

#1,STIMES

..oo 1 ITERATION

MOV

#CLR,BRHCS2

CLEAR RH11 CONTROLLER

MOV

#STACK, SP

:SET STACK POINTER.

MOV

RHWC ,R2

:R2=RH11 WC ADDRESS.

MOV

#377.$GDDAT

*$GDDAT=S/B.

MOV

2howuzonnrowV7omna
005012

MOV

031620

2}2 010350

SCOPE

#12,TSTNM

g REGADR

E #12 TO TEST NUMBER

*REGISTER ADDRESS TO REGADR FOR TYPING.

L02:

CLR

(R2)

:CLEAR RH11 WC.

102:

MOv8

#377.(R2)

;SET WC TO LO BYTE.

CMP
BEQ

$BDDAT,$GDDAT
TST13
4

;COMPARE RESULTS
JNEXT TEST

MOV

001124

EMT

424

3333333333333 333333333 333333333333333333333333]

(R2) ,$BDDAT

*$SBDDAT=ACTUAL WAS

tttttttttttttttttttt't"ttt!tS 3 3333333332333 3 333333333333 33333]

S4TEST 13
010374

010376

425 010404
259 010412

000004

012737

012737
012777

000001

000013
000040

001212

003610
170616

t§713:

SCOPE

MOV

MOV
MOV

BCTA MOVB HI BYTE TO WC
I

#1,STIMES

M8 TSTNM
#CLR,BRHCS2

333333333333 333333333%]

oo 1 {rsnarxon

E
#13 TO TEST NUMBER
CLEAR RH11 CONTROLLER

C
T

JHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-9
BCTA MOVB HI BYTE TO WC
428 010420
429

012706

001100

MoV

#STACK,SP

;SET STACK POINTER.

013702

1
001232
031620

MOV

RHWC ,R2

;R2=RH11 WC HI BYTE ADDRESS.

012537 177400 001124
LO3:

005012

005202
439
440 010452
441
442 010454
443
444 010460
445 010466
446 010470
447
448

112712

103:

000377

005302
011237

001126

023737
001401
104044

001126

001124

S e AR

TST14:

000001

454 010522
455 010526

456 010532
457
458 010540
459

460 010542
461 010546

462
463 010552
464
46° 010556
466 010564
467 010566
468
469

R2 ,REGADR
#177400,$GDDAT

:SGDDAT=S/B.

CLR

(R2)

;CLEAR RH11 WC.

INC

:R2=HI BYTE ADDRESS.

MOVB

#377,(R2)

;SET WC HI BYTE.

DEC

;R2=FULL WORD ADDRESS.

Mov

(R2) ,$BDDAT

;$SBDDAT=ACTUAL.

CMP
BEQ
EMT

$BDDAT,$GDDAT
TST14

;COMPARE RESULTS.
*NEXT TEST

AR AR AR AR

S*TEST 14
e R AR

453

SEQ 0046

AR A AR AR

AR AR AR R AR AR AR AR

BCTA BISB LO BYTE TO WC

AR AN A AR AN

SCOPE

AR AR R

A AR AR AR AR AR

AAR

A AR

#1,$TIMES

::D0 1

012777

Mov
MOV
MOV

#CLR,3RHCS2

:CLEAR RM11 CONTROLLER

012706

Mov

#STACK, SP

:SET STACK POINTER.

013702
010237
012737

MOV
MoV
MoV

RHWC ,R2
ag REGADR

:R2=RH11 WC ADDRESS

#377.,$GDDAT

:$GDDAT=S/B.

LO&:

CLR

(R2)

;CLEAR RH11 WC.

104:

Mov
BISB

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

:SET UP WC
:D0 A BISB

MoV

(R2) ,$BDDAT

:$SBDDAT=WAS.

CMP
BEQ

$BDDAT,$GDDAT
I§T1S

;COMPARE RESULTS
*NEXT TEST

001124

005012

012712
152712

000252

011237

001126

023737

001126

000125

001124

EMT

SRR

#14,TSTNM

RAAARAAARRAAA AR

S*TEST 15

AR
AR

ITERATION

*MOVE #14 TO TEST NUMBER

AR RRAAARAAARAAAARARARAAARRAARRAARRR
AR RS

BCTA BISB HI-BYTE TO WC

e AARAAARARARAAAAARAA
AR T AR AAAAAAAAAAARRARRAAARAAARRRAR AR AR

000001
000015
000040

Ts115:

SCOPE
MoV
MoV
MOV

#1 STIMES

;D0 1

ITERATION

#15, TSTNM

*MOVE #15 TO TEST NUMBER

#CLR,RHCS2

*CLEAR RH11 CONTROLLER

001100

Mov

#STACK, SP

:SET STACK POINTER.

001232
031620

MOV
Mov

R2,REGADR

RHWC ,R2

;R2=RH11 WC ADDRESS.

I &
CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-10
115

SEQ 0047

BCTA BISB HI-BYTE TO WC

2;; 010630

012737

177400

001124

gmmmmz
23} 010640

005202

483 010642
232 010646

112712
152712

239 010652

005302

L05:
000125
000252

105:

233 010654 011237 001126
490 010660
491 010666
23; 010670

023737
001401
104045

001126

001124

49‘

MOV

#177400,8GDDAT

;SGDDAT=S/B.

CLR

(R2)

;CLEAR RH11 WC.

INC

:R2 =HI BYTE.

MOVB
BISB

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

;SET UP RH11 WC.
‘DO A BISB.

DEC

:R2=FULL WORD ADDRESS.

MOV

(R2) ,$BDDAT

;$SBDDAT=WAS.

CMP
BEQ
EMT

$BDDAT,SGDDAT
TST16

;COMPARE RESULTS.
*NEXT TEST

;;ttttttttttttQlttttttttit'tttttttttttttttltttttttttttttttttttt't

SRTEST 16

BCTA BICB LO-BYTE TO WC

;:ttttt*ttttttttttfittttt'ttttttttfittttlttttlttttttttttttttttttttt

010672
010674
495 010702
239 010710

000004
012737
012737
012777

000001
000016
000040

283 010716

012706

500 010722
501 010726

013702
010237

ggg 010740

005012

ggg 010732

012737

SCOPE
MOV
MOV
MOV

#16,TSTNM
#CLR,BRHCS2

#1,STIMES

;:D0 1 ITERATION
*MOVE #16 TO TEST NUMBER
*CLEAR RH11 CONTROLLER

001100

MOV

#STACK,SP

JSET STACK POINTER.

001232
031620

MOV
MOV

RHWC ,R2
R2 ,REGADR

;R2=RH11 WC ADDRESS.

TST16:

MOV

#252,$GDDAT

:$GDDAT=S/8.

L06:

CLR

(R2)

:CLEAR RH11 WC.

ggg 010742 012712 000377

MOV

#377.,(R2)

;SET WC=0000377

ggg 010746

106:

BICB

#125,(R2)

;D0 A BICB

MOV

(R2) , SBDDAT

:SBDDAT=WAS.

CMP
BEQ
EMT

$BDDAT,$GDDAT
TST17
46

;COMPARE RESULTS.
*NEXT TEST

142712

000252

001212
003610
170320

001124

000125

219 010752 011237 001126
512 010756
513 010764
g}g 010766

023737
001401
104046

001126

001124

516

:;ttttttttttttttttttttt'tttttttttt.tttttl.'tttltttttttttttt.t't'fi

S*TEST 17

BCTA BICB HI- BYTE TO WC

;:lttttttttttt'ttt.tttt't'!'ttttttt!lttttttttlttt.ttttt.ttil't'tt

010770
010772

517 011000

000004
012737

012737

000001

000017

001212

003610

ggonwcomnrowmo1m&z

TST17:

ScoPe
MOV

#1,STIMES

::D0 1 ITERATION

#CLR,3RHCS2

*CLEAR RH11 CONTROLLER

MOV

#17,TSTNM

MOV

*MOVE #17 TO TEST NUMBER

ggg 011014

012706 001100

MOV

#STACK, SP

:SET STACK POINTER.

522 011020

013702

MOV

RHWC ,R2

:R2=RH11 WC ADDRESS.

523 011026
ggg 011030

010237
012737

001232

031620
125000

001124

MOV
MOV

R2 nScaon
#125000,$GDDAT

;$GDDAT=S/8B.

SEQ 0048

BCTA BICB HI- BYTE TO WC

ggg 011036

005012

L07:

253 011040

005202

§30 011042
ggg 011046

112712
142712

ggz 011052

005302

ggz 011054

011237

001126

5§37 011060
538 011066
gzg 011070

023737
001401
104046

001126

000377
000125

107:

001124

CLR

(R2)

sCLEAR RH11 WC.

INC

;R2=HI BYTE.

MOVB
BICB

#377.(R2)
#125.(R2)

;SET WC=177400

DEC

sR2=FULL WORD.

MOV

(R2) ,$BDDAT

s SBDDAT=WAS.

CMP
BEQ
EMT

$BDDAT ,$GDDAT
TST20
46

s COMPARE RESULTS.
sNEXT TEST

IIRRRRRRRRRARNRR”

552

S*TEST 20

:;D0 A BICB

AAAdRddd

il diiddiddidididisddy]

A ILLEGAL REGISTER TEST

s*THIS TEST ATTEMFT TO ACCESS AN ILLEGAL REGISTER WITHIN THE RANGE

s*OF ADDRESSES SELECTED BY THE XOR'S. THE RH11 ADDRESS DECODE LOGIC WILL .ALLOW UP 7O 32
s*CONTIGUOUS REGISTERS TO EXIST, IN OUR CONFIGURATION ONLY 16 WILL REALLY
s*EXIST, THIS TEST ATTEMPTS TO ACCESS THE 20(8) REGISTER = IF IT RESPONDS
:*THE TEST WILL TYPE OUT AN ERROR.

:*FOR THE CASE OF THE RH70, THE CONFIGURATION_ALLOWS 18 OR 32 REGISTERS, SO
s*WE WILL ATTEMPT TO ADDRESS REGISTER 23(8), 33(8) OR AS BEFORE THE LAST
**REGISTER + 2
s e

011072
011074

000
012737

000001

001212

ggg 011110 012777 000040

170120

553 011102

012737

000020

556 011116
557 011122
558 011124
ggg 011130

005737
001403
013702
02

003614

561 011132
562 011136
563 011142
564 011146
;gg 011152

013702
062702
010237
005037
005037

001272
000002
031620
001126
001124

567 011156

013737

00000&

g;? 011172

012706

001100

g;g 011176

005712

574 011200

062702

ggg 011164

575 011204

012737

005712

RAA A AR

7ST20:

003610

1%:
2ot

001176

589

013737

L10:

000024

001176

#1,$TIMES

MOV

#CLR.,BRHCS2

010:
fe R

AR ARy

::00 1 TERATION
JMOVE #20 TO TEST NUMBER
sCLEAR RH11 CONTROLLER

RH70
1$
RHCS3,R2
28

sCHECK TO SEE _IF RUNNING WITH RH70

MOV
ADD
MOV
CLR
CLR

RHEC2,R2
#2.R2
R2.REGADR
$BODAT
$GDDAT

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

:IF NOT...SKIP NEXT & DO FOLLOWING

*R2 = LAST LEGAL RH70 REG ADDRESS
*SKIP NEXT

.
;SBDDAT=WAS
:$SGDDAT=S/8.

MOV

#010, TIMOT

TIMOT,$TMPO

sSAVE TIMEOUT VECTOR.
sSET TIMEOUT VECTOR TO 010.

MoV

#STACK, SP

sSET THE STACK POINTER.

(R2)

sTEST ADDRESS.

ADD

#24 ,R2

sTHIS MIGHT BE THE CASE OF 32 REGISTERS

EMT

MOV

$TMPO, TIMOT

000004

#20,TSTNM

AAA

ST
BEQ
MOV
BR

MOV

000004

ggonmo1mm7
g;g 011210

SCOPE
MOV

MOV

001300

011210

AR AR RAAARAA AR AR AAARAAA A AR

(R2)

sTEST IT AGAIN

sRESTORE TIMEOUT VECTOR.

ARR AR AR RARAAAAAA R TR R AR R R UAARAAARARRRRRARAAARCAAAARRRRARRANS

—

JHEO RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 10-11

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17 NOV-81 16:37:12 PAGE 10-12
121

BCTB (NED) NON-EXISTANT DRIVE TEST.

SEQ 0049

(SET)

s*TEST 21

BCTB_(NED) NON-EXISTANT DRIVE TEST.

(SET)

;*THE FOLLOWING TWO TESTS DETERMINE IF ALL NON DRIVES SET THE
;*NED BIT AND THAT ALL EXISTING DRIVES CLEAR THE NED BIT.
:*THE TESTS LOOK AT TOTALAT TO DETERMINE WHICH DRIVES EXIST AND TEST THAT
:*THESE DRIVES WILL CLEAR THE NED BIT. AND ALSO THAT NON EXISTANT DRIVES

;«WILL SET THE NED BIT,
s*ON FIRST PASS ONLY, IF ALL DRIVES ARE ON LINE A MESSAGE WILL SO ADVISE THE
;*OPERATOR. THE TEST WILL CONTINUE REGARLESS OF THE OPERATORS ACTION.
M

A A2

f§r21:

000001
000021
000040

11260
28? 011262

001002
000137

602 011266
011266
011272

104401
000426

011274

011350
603 011350
011354

104401
000426

011356

011432
604 011432
011436

104401
000424

011440

011672
Yil:

58:

66$:

:698:

104401
000425

011516

011570
606
28; 011570

012706

001100

609 011574
2}9 011600

01370
01023

612 011604
613 011610
614 011612
g}g 011614

::00 1 ITERATION

MOV

#CLR,3RHCS2

*CLEAR RH11 CONTROLLER

éBs:

#21,TSTNM

TOTALAT,#377

*MOVE #21 TO TEST NUMBER
;ARE ALL DRIVES ON LINE.

BNE

Tik|

:NO GO RUN THE TEST.

CMP

$PASS, #0

:IF PASS #0 THEN TYPE MESSAGE
sADVISING OPERATOR

BNE
JMP

Yl
X1

TYPE

L.ASCIZ

TYPE

;;678:

011510
605 011510
011514

#1,8TIMES

CMPB

000000

diddiddddiiiiii il iiiiidiiiiiiiiiiiidds]

MOV

001420
001100

scoPe

,65%

648

sTHAT THIS TEST WILL NOT BE RUN

..TYPE ASCIZ STRING

GET OVER THE ASCIZ

<CRLF>/ALL DRIVE§ APPEAR TO BE ON LINE THEREFORE/
,678

..TYPE ASCIZ STRING

66$

TYPE
BR
.ASCIZ

,69%
..TYPE ASCIZ STRING
68$
;GET OVER THE ASCIZ
<CRLF>/RUN. TO RUN THIS TEST TAKE ONE OR MORE/

.ASCIZ

TYPE

;GET OVER THE ASCIZ

<CRLF>/THE NED NON-EXISTANT DRIVE TEST CANNOT BE/

718

..rvps ASCIZ STRING

70s

MoV

#STACK, SP

:SET STACK POINTER.

001236
031620

MoV
MOV

RHCS2,R2
R2,REGADR

;R2=RH11 RH(CS2 ADDRESS.

013700
005001
0060g0
103423

001420

MoV

;?TALAT.RO

$i1:

ROR
BCS

RO
N11

617 011616
2}3 011622

010137
052737

001124
010000

R11:

MOV

25? 011630

013705

001240

622 011634

010112

56;!"
ull:

001124

L1:

JASCIZ

CLR

GET OVER THE ASCIZ

<CRLF>/DRIVES OFFZLINE AND RESTART THE PROGRAM/

BIS

#NED, SGDDAT

R1,$GDDAT

:$GDDAT=S/8.

MOV

RHCS1,RS

;ADDRESS OF A DEVICE REGISTER.

MoV

R1,(R2)

sLOAD A NON-EXISTANT DRIVE.

OOy

23 2zess &%

—

OO0
— b

O0O0O0O0
—_—
k2

O
3t

624 011636

011537

001176

011237
042737

001126
167770

001126

023737
001005

001126

001124

005201
020127

MoV

X11:

001402
000746

E1:

104050

SRR

(R5) ,$TMPO

sATTEMPT TO READ FROM DEVICE REGISTER.

BIC

#*C<NED!US4 !US2!(S1>,$BDDAT; SBDDAT=SAVED DATA.

(R2) ,$BDDAT

; SBDDAT=WAS.

CMP
BNE

g??DAT.SGDDAT

s COMPARE RESULTS.

INC
cMP

BEQ
BR

TST22
s

EMT

MOV

N11:

000010

SEQ@ 0050

AR AP AR AR A AR AR AR

'TEST 2 2

R1.,48.

sTESTED ALL DRIVES YET.
sNEXT TEST

AR AR A AR R AR AR AR AR

BCTB (NED) NON-EXISTANT DRIVE TEST.

(CLEARED)

—_—

FERXRRREX

®NONE W=D

b -

AR ARAAAAAAAAAAAAAAAREAAARAAAACAAR
AR AA AR R AR AR AR
AR

000004

TSTZZ

000001

ITERATION

#CLR,3RHCS2

*CLEAR RH11 CONTROLLER

MOVE #22 TO TEST NUMBER

012777
012706

001100

#STACK, SP

;SET STACK POINTER.

013702
010237
013700
005001
006C00
103020

001236
031620
001420

RHCS2,R2
R2,REGADR
TOTALAT,RO
R1
RO
N12

:R2=RH11 RHCS2 ADDRESS.

010137

001124

R1,$GDDAT

013705

001240

RHCS1,RS

;ADDRESS OF A DEVICE REGISTER.

R1, (R2)

;SELECT UNIT.

(RS) ,$TMPO

;ATTEMPT TO READ FROM DEVICE.

S12:

L12:
001176

011237
042737

001126
167770

001126

#~C<NED'US4'US2'US1>,$BDDAT

(R2), $BDDAT

:SBDDAT=WAS.

023737
001005

001126

001124

g?goAr.scooAr

;COMPARE RESULTS.

OO0

005201
020127
001402

000010

R1
R1,48.

;TESTED ALL DRIVES.

000

000751

011537

2382828

NOWN

:;00 1

#22,TSTNM

010112

= OV

#1,$TIMES

000022
000040

104050

N12:

INC

BEQ

E12:

1sf23’

$12
EMT

"NEXT TEST

:$BDDAT=SAVED DATA.

L 4
gs?JHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-13
BCTB (NED) NON-EXISTANT DRIVE TEST. (SET)

L
CZR JHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-14
123
BCTB AS REGISTER TEST

677

AR AR AR

AR R

SEQ@ 0051

R AR

R RS

BCTB AS REGISTER TEST
s*TEST 23
s*TEST TO SEE IF WE CAN READ FROM THE 'AS'' REGISTER AND NOT CAUSE
s*A NED NON-EXISTANT DRIVE ERROR
soARAA

~rn
Ep
N
o
oo
oMo

012026
012030
678 012036
679 012044
680
681 012052
682
683 012056
684 012062
685
686 012070
687
688 012074

000004

012777

000001
000023
000040

012706

001100

013702
012737

001236
000007

013705

001240

012712

000007

013702
011237

AR AR AARAAAAAA AR AR AN

18723:

AAARRAA A AR

AR AR AR ARy

SCOPE
MOV

#1,$TIMES

::D0 1 ITERATION

MOV

#CLR,3RHCS2

*CLEAR RH11 CONTROLLER

MOV

#28, TSTNM

*MOVE #23 TO TEST NUMBER

MOV

#STACK,SP

sSET STACK POINTER.

MOV

RHCS2,R2

:R2=RH11 €S2 ADDRESS.

MOV

RHCS1,RS

;ADDRESS OF A DEVICE REGISTER.

MoV

#US4!US2'US1,
(R2) ;LOAD A NON-EXISTANT DEVICE.

001256

MOV

RHAS ,R2

;R2= "'AS".

001176

MOV

(R2) ,$TMPO

;ATTEMPT TO READ FROM DEVICE AS.

005012
013702
010237

031620

CLR
MOV
MOV

(R2)
RHCS2,R2
R2,REGADR

;CLEAR AS REGISTER.
:R2=RH11 €S2 ADDRESS.

011237
042737

001126
167770

001126

MoV
8IC

(R2) ,$BDDAT
: SBDDAT=WAS.
#*C<NED'!US&!US2!US1>,$BDDAT;SAVE NED AND DEVICE SELECTED.

023737
001401

001126

001124

CMP
Efi?

$BDDAT,$GDDAT
1ST24

MOV

001124

L13:

104051

S*TEST 24

#US&'US2'US1,$GDDAT
; SGDDAT=S/B.

AR RN

;COMPARE RESULTS.
sNEXT TEST

RPN R AR AR R AR RN RN R RN RNR AR RRRAR ORISR

BCTC BUS ADDRESS REGISTER

s*THE NEXT THREE TESTS WILL TEST THE BUS ADDRESS REGISTER IN BOTH WORD

s*AND BYTE MODE. THE PATTERNS ARE CHOSEN TO PICK UP ANY DROPPED OR STUCK

OO00Oo

TS.
::§£tftttt.tttttttttttt't'tttttttlQ.tttttlttt'ttt'tt.tttt.l'.ttt'

N
o
o
N

720 012212
721
722 012216
722 012222
72
725 012226

001212
003610
167044

TS124:

SCOPE
MOV

#1,STIMES

::00 1

MOV

#CLR,IRHCS2

*CLEAR RH11 CONTROLLER

MOV

#24 , TSTNM

ITERATION

*MOVE #24 TO TEST NUMBER

001100

MOV

#STACK, SP

:SET STACK POINTER.

MOV

RHBA ,R2

:R2=RH11 BA ADDRESS.

012705

001234
031620
012246

012537

001124

01371
01123

001124
001126

023737

001126

P
Pur
e

b
e
e
i
e
— e

VNN
W -

NNNNNNNNN

000001

001124

MoV
MOV

R2 ,REGADR
#LST14A
RS

L14:

MOV

(R5) +,$GDDAT

:$GDDAT=S/8B.

114:

MOV

$GDDAT, (R2)

sSET BUS ADDRESS REGISTER.

CMP

$8DDA.[,$GDDAT

s COMPARE RESULTS.

MOV

(R2)
, SBDDAT

sR5=TEST LIST ADDRESS.

sREAD BUS ADDRESS REGISTER.

N14:

005715

LST14A:

776

777 012414
778

TST
BNE

;AT END OF LIST
:NO!
sNEXT TEST

b SN
d wd e PN\
d e
d e e
d
e wd e
b d
=
O
SRR

AR AR AR AR

s*TEST 25
oo

e AR

7S125:

SCOPE
MoV
MOV

AR AARRANAARAARAARATRRRAARARRRARRAARESY

BCTC BUS ADDRESS REGISTER LO-BYTE

AR AN AR

RN R AR AAARARAANAARARARAARARAARARARR
AR

MoV

#25 TSTNM

#CLR,IRHCS2

::D0 1 ITERATION
sMOVE #25 TO TEST NUMBER
sCLEAR RH11 CONTROLLER

012706

001100

MOV

#STACK,SP

sRESET STACK.

01370
OIO;S
012705

0?1?34

MOV
MOV
MOV

RHBA ,R2
R2,REGADR

;R2=RH11 BA ADDRESS.

#LSTISA,RS

;R5=TEST LIST ADDRESS.

CLR

(R2)

;CLEAR RH11 BA REGISTER.

MOV

(R5)+,8GDDAT

:$GDDAT=5/B.

—

012777

031620
012450

L1S:

005012

012537

001212
003610
166644

AR AR AR

AR AR AR AR

000001
000025
000040

N
~
W
~

766 012356
767 012364
768
769 012372
770
771 012376
772 012402
773 012406
774
775 012412

sGET NEXT TEST DATA.

= SN

735 012254
736 012256
737 012260
738 012262
739 012264
740 012266
741 012270
742 012272
743 012274
744 012276
745 012300
746 012302
747 012304
748 012306
749 012310
750 012312
751 012314
752 012316
753 012320
754 012322
755 012324
756 012326
757 012330
758 012332
759 012334
760 012736
761 012..0
762 012342
763 012344
764
765

012346
012350

BEQ
EMT

S NOD

001401
104052

=2 SN =

726 012234
727 012236
728
7%3 012240
730
012242
731 012244
732 012246
733 012250
734 012252

001124

#1 STIMES

SEQ 0052

—

N &
RP04/5 /6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 10-15
BCTC BU S ADDRESS REGISTER

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00
125

BCTC BUS ADDRESS REGISTER LO-BYT

779 012420

780 012424
781
782 012430
783 0124

784

785 012440
786

11371
01123

001124
001126

023737
001401

001126

27-NOV-81 16:37:12 PAGE 10-?6
115:

001124

104053
R1S:

005715
001362
000417

SEQ 0053

MOVB

S$GDDAT, (R2)

;SET BUS ADDRESS REGISTER.

CMP
BEQ

$BDDAT,$GDDAT
R1S

;COMPARE RESULTS.

EMT

TST
BNE
BR

(RS)
L15
TST26

MOV

(R2) ,SBDDAT

*READ BUS ADDRESS REGISTER.

;AT END OF TEST LIST.
*NO!
“NEXT TEST

;THIS LIST WILL BE USED TO LOAD THE LOWER BYTE OF THE BA REGISTER.
(ST15A: 2

10
20
40
100
200
376
372
366
356
336
276
176
0

29222292222

8820850283392

33 1 3233333232333 2233333222233 233333333333 33333333 3333333333333 333323

S*TEST 26

BCTC BUS ADDRESS REGISTER HI-BYTE
#1,.$TIMES

::D0 1 ITERATION

MOV

#CLR,3RHCS2

*CLEAR RM11 CONTROLLER

001100

MOV

#STACK, SP

;RESET STACK.

001234
031620
012620

MOV
MOV

:R2=RH11 BA ADDRESS.

MOV

RHBA,R2
R2,REGADR

#LST16A,RS

;RS=TEST LIST ADDRESS.

CLR

(R2)

;CLEAR BA REGISTER.

MOV

(R5)+,$GDDAT

;$GDDAT=S/B.

INC

:R2=HI BYTE ADDRESS.

2
b b d —d ed —d ek =D b

001212

T§726:

003610

MOV

166504

L16:

113712

829 012566
82
828 012570
829 012574
830
831 012600

005302

purs

824 012562

012537
005202

SCOPE
MOV

000001
000026
000040

=OVo~ wVHWN=0O

R
RORRR
OIOIGNDCIODGMDODGNDgg

::tttttttt.ttttt.t.tt'titti'tt'.fit!t.tttfitltttti'tt'ttttttt.ttttt

001124

011237
000337

001126
001124

023737

001126

116:

001124

MOVB

#26, TSTNM

$GDDAT, (R2)

SMOVE #26 TO TEST NUMBER

;SET BUS ADDRESS REGISTER HI-BYTE.

DEC

;R2=FULL WORD ADDRESS.

MOV
SWAB

(R2) ,$BDDAT
SGDDAT

;READ BUS ADDRESS.
*ADJUST DATA FOR HI BYTE.

CMP

$BDDAT,$GDDAT

;COMPARE RESULTS.

RJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-?7

SEQ@ 0054

BCTC BUS ADDRESS REGISTER HI-BYTE

832 012606

001401

BEQ

R16

ggg 012610

104053

EMT

836 012612
837 012614
838 012616

005715
001356
000420

R16:

TST
BNE
BR

(RS)
L16
1sT27

841 012620

000002

(sT16A: 2

853 012650
854 012652
855 012654
856 012656

000336
00027
000176

839

842 012622
843 012624
844 012626
845 012630
846 012632
847 012634
848 012636
849 012640
850 012642
851 012644
852 012646

; OKAY

;AT END OF TEST LIST.
:NOPE
TEST

;THIS LIST WILL BE USED TO LOAD TNE UPPER BYTE OF THE BA REGISTER.

000004
000010
000020
000040
00010
000200
000376
000374
000376
000
000356

4
10
20
40
100
200
376
374
376
366
356

336
276
176
0

863

3 'ttt.'fiit't*.*'tfi.tt!"'.i"'ttt..ttt.'t'tfiii.t.l.tttfit.'ti'it'.

SRTEST 27
RH11 INTERRUPT TEST
:*TKIS TEST CAUSE AN RH11 INTERRUPT VIA THE SPECIAL COMMAND SEQUENCE

;%'BIS

#IE,@RHCS1'. THIS TEST PROVES ONLY THAT THE HARDWARE CAN HANDLE

: *INTERRUPTS PROPERLY

012660

000004

'tttlt.'t.'tttttttttt"ttttttttttQttttt.tfifitl.itttttt'.t'ti.".

012662

012737

000001

865 012676

012777

000040

864 012670

012737

000027

001212

t§7127:

003610

SCOPE

MOV

#1,STIMES

:;D0 1

MOV

WCLR,3RHCS2

:CLEAR RM11 CONTROLLER

MOV

168332

#2/,TSTNM

ITERATION

:MOVE #27 TO TEST NUMBER

867 012704

012706

001100

MOV

WSTACK,SP

;SET STACK POINTER.

869 012710
870 012714
871 012720

013702
010237
005037

001240
031620
001126

MOV
Moy
CLR

RHCS1,R2
R2 REGADR

:R2=RH11 ADDRESS.

ELR

SGoDAT

:$GDDAT=S/B.

874 012730

017737

012777

012772

MOV

@RPVEC,$TMPO

;SAVE RH11 INTERRUPT VECTOR.

877 012744
878 012750

012706
005037

001100
177776

MOV
(LR

WSTACK,SP
PS

;SET STACK POINTER.

880 1275¢
881 012760
882 012762
883 012764

052712
000240
s9
011257

000100

BIS
NOP
NOP
MOV

#IE,(R2)

;CAUSE INTERRUPT,
:WAIT FOR INTERRJPT.

(R2) ,$GDDAT

:SAVE CONTENTS OF REGISTER.

885 012770
886

104054

EMT

87¢ 012724

875 012736

005037

001124

166272

001124

001176

166262

MOV
L21:

#021,3RPVEC

: SBDDAT=WAS.

:SET RH11 INTERRUPT VECTOR T0 021.

D 5
CZRJHED
IR
RPO4/5/6 DSKLS PT%THACRO V04.00 17-NOV-81 16:37:12 PAGE 10-18
127

RH11

SEQ 0055

INTERRUPT TE

ggz 012772

013777

001176

166226

893

021:

MoV

$TMPO,SRPVEC

sRESTORE RH11 INTERRUPT VECTOR.

;;ttt.tttttttttt&ttttttt'tt"'ttttttttt.tttt.tttttttttttttttttttt

SATEST 30

BCTD CLR L TEST

:#THE PROGRAM SETS THE PORT SELECT BIT .THEN DOES A RESET
:#IF THE SIGNAL CLR L WAS GENERATED THE PORT SELECT BIT WILL CLEAR.

013000

013002

012737

000001

897 013024
898 013030
333 013034

013702
010237
005037

001240
031620
001124

901 013040
902 013044
38‘ 013050

012705
012712
S

001100
002000

905 013052
389 013056

011237
042737

001126
177677

001126

908 013064
909 013072

023737
001401

001126

001124

13010 012737 000030
895 013016 012777 000040

001212

233333333333 3132333333233 33333333 3333333333333 33333332333333213

T§130:

003610
166212

SCOPE

MOV

#1,$TIMES

::D0 1

MOV
MOV
CLR

RHCS1,R2
R2,REGADR
$GDDAT

;R2=RH11 CS1 ADDRESS

MOV
MOV
RESET

#STACK,SP
#PSEL , (R2)

JSET STACK POINTER.
*SET PORT SELECT FLOP.
;D0 A BUSA INIT.

MOV
BIC

(R2) ,$BDDAT
#°C<IE>,$BDDAT

;SBDDAT=WAS.
:SAVE ONLY I.E. BIT.

CMP
BEQ

$BDDAT,$GDDAT
TST31

;COMPARE RESULTS.
*NEXT TEST

MOV
MOV

L22:

gwouwa1mws

EMT

915

#30, TSTNM
#CLR,BRHCS2

ITERATION

*MOVE #30 TO TEST NUMBER
*CLEAR RH11 CONTROLLER
;$GDDAT=$/8

22 1 33 3333333333333 33233 3223333233333 3333333333333 3 3333333333333 3332]

;«TEST 31

MXF TEST

:«SET THE MXF FLOP AND READ IT BACK.

:: 1 33 3333333333333 3333223333333 3333333333333 33323333333 3333333333%1%

013076
013100

3}9 013106

000004
012737

000001

012737 000031

001212

7ST31:

003610

SCOPE
MOV

MOV

#1,$TIMES

#31,TSTNM

::D0 1

ITERATION

*MOVE #31 TO TEST NUMBER

JCHECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RH70
013114
013120

013122

005737
001402

003614

ST
BEQ

RH70
648

MOV

#CLR,ARHCS2

MOV

#STACK,SP

aucsz.é3

*R2=RH11 CS2 ADDRESS.

MOV

#MXF ,SGDDAT

:$GDDAT=S/B.

MOV

#MXF , (R2)

:LOAD MXF

MOV

(R2) ,$BDDAT

:SBDDAT=WAS .

137

013206

3}3 013126

012777

000040

920 013134

0127

1100

MOV

922

013144

010237

031620

MOV

352 013156

012712

001000

013126

921 013140 01570

gg‘ 013150 012737

166102

648 :

1236
001000 001124
124:

35; 013162 011237 001126

JMP

TST32

R2,REGADR

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

:JUMP TO NEXT TEST

*IF FLAG = 0, DO THIS TEST
*CLEAR RH11 CONTROLLER
sSET STACK POINTER.

3§3 013166

042737

176777

001126

BIC

#C<MXF>,$BDDAT ;SAVE ONLY MXF

931 013174

023737

001126

001124

BEQ

CMP

$BDDAT,$GDDAT

932 013202 001401

93§ 013204 104056

EMT

rsrgz

;COMPARE RESULTS

*NEXT TEST

CZRJHEO R :9‘42§? DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 10-19

SEQ@ 0056

SRR AAAARRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AR AR AR AR AS

S*TEST 32

CSRB UNIBUS PARITY ERROR SET TEST

s*SET _THE UNIBUS PARITY ERROR FLOP DIRECTLY VIA A MOV #UPE TO RHCS2
s*ATTEMPT TO READ IT BACK.
A

Ts132:

000001
000032

SCOPE
MOV

MOV

iR iddddiddiiiiiididididiiiiiidiiiiiiiiidds]]

#1,$TIMES

#32, TSTNM

;:D0 1

ITERATION

*MOVE #32 TO TEST NUMBER

;CHECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RH70
003614

013322

945 013244
946
947 013250
950
951 013266
952 013272
953 013274
954
955 013276
956 013302
957
958 013310

648:

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

ST
BEQ
JMP

RH70
64$
TST33

:JUMP TO NEXT TEST

MOV

#CLR,ARHCS2

:CLEAR RH11 CONTROLLER

:IF FLAG = 0, DO THIS TEST

012777

000040

012706

001100

MOV

#STACK,
SP

;SET STACK POINTER.

RHCS2,R2
R2,REGADR
#UPE
, SGDDAT

;R2=RHCS2 ADDRESS.

020000

MOV
MOV
MOV

:$GDDAT=S/B.

MoV

$GDDAT, (R2)

sATTEMPT TO SET UPE.

MOV
BIC

(R2)
, SBDDAT
sSBDDAT=ACTUAL DATA.
#*C<UPE>, SBDDAT sSAVE ONLY UPE.

CMP
gsg

$BDDAT
, SGDDAT
TST33

01370
01023
012737

165772

001124

L30:

013712
009240
000240

001124

011237
042737

001126
157777

001126

023737
001401
104057

001126

001124

NOP
NOP

s COMPARE RESULTS.
sNEXT TEST

S NARARRARARRAAAAAAAAAA
AR RRRAAAAAAAAARAAAAARAAAAAAA AR
RAARRAAS

S*TEST 33

CSRB UNIBUS PARITY ERROR CLEAR TEST

;*SET THE UNIBUS PARITY ERROR FLOP AND ATTEMPT TO CLEAR IT WITH A
s*CONTROLLER CLEAR.
PIRRARRARAARAAAAAAAAAAAR
AR AAAAAAAAAAAAARAAAAAAAARAAAAANIAROAARAES

012727
37
0127
012777

SCOPE
MoV
MoV
MoV

#3585 TSTNM
#CLR,BRHCS2

012706

MOV

#STACK,SP

;SET STACK POINTER.

01370

MoV
MOV
CLR

RHCS2,R2

:R2=RHCS2 ADDRESS.

#UPE, (R2)

sSET UNIBUS PARITY ERROR SET.

MOV
NOP
NOP

012712

MoV

#CLR, (R2)

sCONTROLLER CLEAR.

97
976

40
9f9 013
013;93 012712

978 013374
979
980 013376

75133:

L31:

#1,STIMES

R2,REGADR
$GODAT

::00 1

ITERATION

:MOVE #33 TO TEST NUMBER

*CLEAR RH11 CONTROLLER

;$GDDAT=S/8.

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-20
133
CSRB UNIBUS PARITY ERROR CLEAR TEST

981
982 01%202
983 013406
984
985 013414
986 013422
987 013424
988
993

157158 001126
001126

001124

SEQ 0057

MOV
BIC

(R2) ,$BDDAT
;READ STATUS
#C<UPE>,$BDDAT :SAVE ERROR.

CMP

$BDDAT,SGDDAT

EMT

BEQ

TST34

COHPARE RESULTS.

*NEXT

tttttttfitttttttttttttt't"t'titt'tttttttttt'tt.ttt.ttttttt"ttt

LRTEST 34
CSRB UNIT SELECT CLEAR TEST
:#SET THE UNIT SELECT REGISTER TO DRIVE #7 ALL BITS SET. GENERATE A

'CONTROLLER CLEAR AND VERIFY THAT THE UNIT SELECT REGISTER IS CLEARED.
ttttttttt'tttttttttttt'tt'tttttttttttQtttt.ttttttttittttttttttt

013426
013430
994 013436
995 013444
996
997 013452
998
999 013456
1000 013462
1001 013466
1002
1003 013472
1004 013476
1005 013500

001212

003610

001124

000007

1007 013502
1008
1009 013506
1010 013512

012712

000040

011237
042737

001126
177770

001126

101% 013520
1013
013526
1014 013530
1015
1020

023 737
001 401

001126

001124

1011

SCOPE

MOV

#1.$TIMES

::D0 1

MOV

#CLR,3RHCS2

:CLEAR RH11 CONTROLLER

MOV

165564

012712
000240
000240

1006

8734:

L34:

#34,TSTNM

ITERATION

*MOVE #34 TO TEST NUMBER

MOV

#STACK, SP

;SET STACK POINTER.

MOV
MOV
CLR

RHCS2,R2
az REGADR

;R2=CS2 ADDRESS.

zgx

#US4'US2'US1,(R2)

:$GDDAT=S/8.

;LOAD RHCS2 DRIVE SELECT

NOP

MOV
MOV

104060

#CLR, (R2)

:GENERATE CLR.

BIC

#AC<US4L'US2'US1>.$BDDAT; SAVE DRIVE SELECT BITS.

(R2) ,$BDDAT

;READ RHCS2

CMP
BEQ
EMT

$BDDAT,$GDDAT
TST35

;COMPARE RESULTS.
SNEXT TEST

tttt.tttttt.tttttttt'tt'.tttt.ttt.ttt'tlttt'.ttttttttttt.tt!ttt

SRTEST 35
CSRB TRANSFER ERROR (TRE) = UPE
*«SET THE UPE FLOP UNIBUS PARITY ERROR. VERIFY THAT THE SETTING OF
*#ALSO SETS THE TRANSFER ERROR (TRE) FLOP
CHARRARRARARRRARAARAARAAARARRNRARAARARAARAAAARAARAARAAAAAAAAAAAAAAAAANLS

013532
013534
1021 013542
1022

013550
013554
013556
013562

012737
012737

oo1215

t§735:

00361

SCOPE

MOV

#1, $TIMES

#35, TSTNM

:D0 1

ITERATION

‘HMOVE #35 TO TEST NUMBER

;CHECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RW70
005737
00140
00013

003614

012777

000040

012706

001100

TST
BEQ

013646

648:
165446

JMP

nuro
64%

TST36

:TEST FLAG FOR RH70_CONTROLLER
*IF FLAG
= 1,
THIS TEST IS SKIPPED

:JUMP TO ueXt TEST

:IF FLAG
= 0, DO THIS TEST

MOV

#CLR,BRHCS2

:CLEAR RH11 CONTROLLER

MoV

#STACK,SP

:SET STACK POINTER.

(UPE)

CZRJHEO
RP04/5/6
DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-31
135
CSRB TRANSFER ERROR (TRE) = UPE
1028 013574

013702

001236

}g%} 013606

012712

020000

1033 013612
}ggg 013616

013702
010237

1036 013622

1039 013634
1040 013642
}3'4'5 013644

SEQ 0058

MOV

RHCS2,R2

#TRE, SGDDAT

*$GDDAT=S/B.

MOV

#UPE, (R2)

JSET UNIBUS PARITY ERROR.

001240
031620

MOV
MOV

RHCS1,R2
R2,REGADR

;R2=RHCS1 ADDRESS.

011237

001126

MOV

023737
001401
104061

001126

}3§3 013600 012737

}83; 013626 042737

040000 001124

MOV
L35:

137777 001126
001124

1046

;R2=RHCS2 ADDRESS.

BIC

0‘C<fRE>.$BDDAT 2SAVE TRANSFER ERROR.

(R2) ,$BDDAT

;READ REGISTER

CMP
BEQ
EMT

$BDDAT,SGDDAT
TST36

;COMPARE RESULTS
JNEXT TEST

::tttttttttttttttttttttttt'ttttttt.ttt'.tttttt!tt'ttttttttttttttt

s*TEST 36
CSRB TRANSFER ERROR (TRE) NED
s*SET THE NED BIT NON EXISTANT DRIVE VERIFY THAT THIS SETS THE (TRE) BIT.

013646

013650

000004

SRR ARRAR

1047 013656

}323 013664

012737
012737
012777

000001
000036
000040

}8%? 013672

012706

001100

1052 013676

013702

001236

1055 013710
1056 013714
1057 013716
1058 013720
}323 013722

013700
005001
006000
103420
010112

001420

1061 013726
}325 013730

013702
010237

001240
031620

1064 013734

011237

001126

137777

001126

1067 013746
1068 013754
1069 013756
}8;? 013760

023737
001406
104062
000404

001126

001124

1072 013762
1073 013764

005201
020127

}3§2 013702

}822 013740

}852 013770

012737

042737

001352

040000

001212
003610
165344

7§736:

001124

L36:

1079

N36:

AARAAAAAARARRA

MOV
MOV
MOV

#1,STIMES
#36, TSTNM
#CLR,ARHCS2

;:D0 1 ITERATION
*MOVE #36 TO TEST NUMBER
*CLEAR RH11 CONTROLLER

MoV

#STACK,SP

JSET STACK POINTER.

MOV

RHCS2,R2

:R2=CS2 ADDRESS.

MOV
CLR
ROR
BCS
MOV

TOTALAT,RO
R1
RO
N36

:GET ALL AVAILABLE DRIVES DATA

MOV
MOV

RHCS1,R2
R2.REGADR

;R2=RHCS1 ADDRESS.

MOV
$36:

000010

SCOPE

#TRE, $GDDAT

R1,(R2)

MOV

*$GDDAT=S/B.

:SET NED.

BIC

#~C<TRE>,$BDDAT :SAVE TRE.

(R2) , $BDDAT

:READ REGISTER.

CMP
BEQ
EMT
BR

$BDDAT,$SGDDAT
1ST37
62
TST37

;COMPARE RESULTS.
*NEXT TEST

INC
CMP

R1
R1,.48.

RNE
SRR

S*TEST 37

:NEXT TEST

$36

AR AR AR AR AR AR RN AR AR RN RRRRRRRAROR AR

CSRA PSEL CLEAR TEST

+#SET THE PORT SELECT FLOP VERIFY THAT WE CAN READ IT BACK.

CrRRRARARARARRARAANARRARRAAR
AR R RN
AARAARANAARAAAANARAAAARRR AR

93778 9%9% 000001 00121 ¥s1s7: I3
S
MOV

1080 014002 012737 000037 00361

p—

#37,TSTNM

DO 1 ITERATION

*MOVE c§7 TO TEST NUMBER

014010

SEQ@ 0059

MOV

#CLR,RHCS2

;CLEAR RH11 CONTROLLER

001100

MOV

#STACK, SP

;SET STACK POINTER.

01370
01023
005037

001240
031620
001124

MOV
MOV
CLR

RHCS1,R2
R2,REGADR
$GDDAT

;R2=RHCS1 ADDRESS.

012712

002000

MOV

#PSEL, (R2)

;SET P SELECT.

012777

000040

165166

MOV

#CLR,IRHCS2

;DO A CONTROLLER CLEAR.

011237
042737

001126
175777

001126

MOV
BIC

(R2) ,$BDDAT
;READ BACK P SELECT BIT.
#~C<PSEL>,$BDDAT:SAVE ONLY PORT SELECT.

023737

001126

001124

CMP
BEQ
EMT

$BDDAT,$GDDAT
TST40

000040

012706

165220

L40:

012777

pun

persd

EEEREGEER
R

o
oo

H 5
CZRJHEO RPO4/5/6 DSKLS PT2 S?ACRO v04.00 17-NOV-81 16:37:12 PAGE 10-22
137
CSRA PSEL CLEAR TE

:$GDDAT=$/B.

; COMPARE RESULTS.
*NEXT TEST

33 1333 332333333333 3333233333333 3 3333333323333 3333333333333 33333333

SRTEST 40
CSRB COMMAND REGISTER CLEAR TEST
:*VERIFY THAT CONTROLLER CLEAR WILL CLEAR THE COMMAND REGISTER.

011237
042737

16144

OO0
—_— e —d

SCOPE
MOV

#,STIMES

MOV

#CLR,3RHCS2

MOV

OO0
©
©

012777

OO0
— D

2ERNE S EIanr

012712

14140

S
P

OOCo

2o 3RIRAR

Y
N
N
S

s S

e S
e

sD
e S
T

012706

012777

YIS Wy

.':tt'.tttttttttttttttt"'ttt*ttttttttt'tl..*tt.ttt'ttt.ttlttt'tit

TST40:

L4é1:
165064

001126
177770

001126

001124

::D0 1 ITERATION

#40,TSTNM

*MOVE #40 TO TEST NUMBER

MOV

#STACK, SP

;SET STACK POINTER.

MOV
MOV
CLR

RHCS1,R2
R2.REGADR
$GDDAT

;R2=RHCS1 ADDRESS.

MOV

#11,(R2)

;ISSUE A DRIVE CLR AND GO.

MOV

#CLR,ARHCS2

;CONTROLLER CLEAR.

MOV

*CLEAR RH11 CONTROLLER

;$GDDAT=$/8B.

BIC

#4C<?>,$BDDAT

(R2) ,$BDDAT

;READ COMMAND REGISTER.

cMP
BEQ
EMT

$BDDAT,$GDDAT
TST41

;COMPARE RESULTS.
INEXT TEST

:SAVE ONLY THE COMMAND BITS.

32 L 3 3333333313333 3333333333333 3333333333333 3313333333333 33333333%23%3

S*TEST 41
CSRB COMMAND REGISTER RESELECT CLEAR TEST
:#THE COMMAND REGISTER 1S SUPPOSED TO BE SELF CLEARING THAT IS WHEN THE
*#RH11 IS SELECTED WHEATHER OR NOT WE ADDRESS IT DIRECTLY THE LOGIC
:#SHOULD CLEAR THE COMMAND REGISTER.
*«THIS IS TESTED BY LOADING A COMMAND INTO IT READING ANOTHER REGISTER
**THAN RETURNING TO CHECK THE COMMAND REGISTER TO DETERMINE IF IT CLEARED.
':tttttttttttt.lttt.tt'lttttttttt'tfittttttttt.t.ttt'.ttttt!ttlttt

000001
000041
000040

TS141:

ScoPe

MOV

MOV
MOV

#1,STIMES

241, TSTNM
#CLR,3RHCS2

::D0 1 ITERATION

*MOVE #41 TO TEST NUMBER
*CLEAR RH11 CONTROLLER

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-53
1LY

SEQ 0060

CSRB COMMAND REGISTER RESELECT CLEAR TEST

1134

}}%2 014222

012706

1137 014226
1138 014232

01370
01023

001100

Mov

#STACK,SP

sSET STACK POINTER.

001124

RHCS1,R2
R2,REGADR
$GDDAT

;R2=RHCS1 ADDRESS.

005037

MOV
MoV
CLR

}}25 014242

012737

000340

MoV

#PR7 ,PS

;SET PRIORITY TO #7.

1143 014250

012712

000011

MoV

#11,(R2)

s ISSUE A DRIVE CLR AND GO

011237

001176

Mov

(R2) ,$TMPO

;DO A RESELECT OF THE REGISTER.

1147 0146260

011237

001126
177770

001126

1150 014272
1151 014300
1152 014302
1153
1157

023737
001401
104066

001126

001124

}}23 014236

1144
1145 014254
1146

}}23 0146264

042737

177776

Lé2:

8IC

#*C<?>,$BDDAT

(R2) ,$BDDAT

;READ THE COMMAND REGISTER,

CMP
BEQ
EMT

$BDDAT,SGDDAT
TST42

;COMPARE RESULTS.
sNEXT TEST

MoV

s AR

:$GDDAT=5/8B.

:SAVE ONLY THE COMMAND BITS.

RARRA R AR A AR A AAAAAAE AR AAAARARAAARAA

*TEST 42

AR RA R AR AR AR

CSRB_READY AND IE INTERRUPT TEST

s*HERE WE TEST TO SEE IF SETTING (IE) AND (RDY) WILL CAUSE AN INTERRUPT.

014304
014306

000004
012737

}}gg 014322

012777

1158 014314

012737

000001
000042
000040

001212
003610
164706

AR A

TS142:

AR AR AN A AR

MOV
MOV
CLR
CLR

RHCS1,R2
R2.REGADR
$BODAT
$GDDAT

; SBDDAT=WAS.
:$GDDAT=S/B.

MoV
Mov

@RPVEC,$TMPO
#043,3RPVEC

:SAVE RH11 INTERRUPT VECTOR.
*SET RH11 INTERRUPT VECTOR 043

MOV

ggTACK.SP

:SET STACK POINTER.

sTHIS WILL CAUSE AN INTERRUPT.

::D0 1

#CLR,ARHCS2

*CLEAR RH11 CONTROLLER

005037

001240
031620
001126
001124

1166 014350
}}gg 014356

017737
012777

164652
014412

1169 014364
}};? 014370

012706
005037

001100
177776

1172 014374
1173 014400

052712
00024

000300

BIS
NOP
NOP

#1E'!RDY, (R2)

1176 014404
}};‘ 014410

011237
067

001124

MOV
EMT

(R2) ,$GDDAT
67

1179 014412

013777

001176

MoV

$TMPO,SRPVEC

}};g 014402

1180

L43:

000240

164606

1185

043:

#1,STIMES

013702
010237
005037

001176
164642

AR R AR

#45,TSTNM

1161 014330
1162 014334
1163 014340

}}gg 014344

RA AR AR AR

SCOPE
MoV
MOV
MOV

CLR

ITERATION

*MOVE #42 TO TEST NUMBER
:R2=RPCS1 ADDRESS.

sRESTORE RH11 INTERRUPT VECTOR.

SRR ARARAAAAAAAAAAAARAARARAARRRAARAAAAAAAARAAARAAAAAAAARAARRAATRS

CSRB BOES ''IE'* CLEAR AFTER AN INTERRUPT
s*TEST 43
s*THE (IE) BIT IS SET CAUSING AN INTERRUPT. AT THE COMPLETION OF THE INTERRUPT
s*WE CHECK TO SEE IF THE (IE) BIT HAS CLEARED.
PIRRARRAARAARARARANAAAAN
AR AR AAAANRAAAAARAAARAAAIRAAAAAARARA AR RS

014420
014422

1186 014430

000004
01%737
012757

000001
000043

0031

T57143:

SCOPE
MOV
MOV

#1, STIMES

#8, TSTNM

::00 1 irenArxou

*MOVE # #43 TO TEST NUMBER

CZR JHEOQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37: 12 PAGE 10-24
143
CSRB BOES "'IE'* CLEAR AFTER AN INTERRUPT

}}gg 014436

012777

000040

1189 014444
1190 014450

013702
010237

0J1240
031620

1193 014460

017737

012777

164542
014516

1196 0144746
}}gg 014500

012706
005037

001100
177776

1199 014504
1200 014510

052712
000240

000100

}%82 014514

000411

1205 014516
}%89 014522

011237
042737

001126
177677

001126

1208 014530
}%?8 014536

023737
001401

001126

001124

1211 014540
1212 014540

104070

;%}2 014542

013777

}}g} 014454

}}32 014466

}gg} 014512

005037

164572

001124

001176

164532

L&4:

000240

SEQ 0061

MOV

#CLR,3RHCS2

;CLEAR RH11 CONTROLLER

MOV
MOV

;R2=RPCS1 ADDRESS.

CLR

RHCS1,R2
R2,REGADR
$GDDAT

MOV
MOV

aRPVEC,$TMPO
#044 ,aRPVEC

;SAVE RH11 INTERRUPT VECTOR.
sSET VECTOR TO 044.

MOV
CLR

ggTACK.SP

sSET STACK POINTER.

BIS
NOP

#IE, (R2)

sTHIS WILL CAUSE AN INTERRUPT

E4é

sNO INTERRUPT.

MOV
BIC

#*C<IE>,$BDDAT

(R2) ,$BDDAT

sREAD RHCS1.

CMP
BEQ

$BDDAT,$GDDAT
R44

;COMPARE RESULTS.
s0K!

EM.

MOV

$TMPO,aRPVEC

:$SGDDAT=5/8.

NOP

044:

E44:

001176

164456

Ré44:

NN
s o RRRRRR

1219

TRTEST 44

AR AR

;SAVE ONLY THE '‘IE'' BIT.

sRESTORE RH11 INTERRUPT VECTOR.

AR RN

AR AR

BCTB '"'AS'' WRITE TEST
;*HERE WE VERIFY THAT WRITING INTO THE “'AS'* REGISTER OWILL NOT CAUSC
s*AN (NED) ERROR

014550

000004

e NRRR A AR AR AR

014552
1220 014560
1221 014566

012737
012737
012777

000001
000044
000040

1223 014574

012706

001100

1225 014600 013702
1226 014604

012737

001236

1228 014612

013705

001240

1230 014616

012712000007

1232 014622

013702

123 014626

012712

1236 014632

005012

1238 014634
1239 014640

013702
010237

001212
003610
164442

TST44:

SCOPE

AR AR RAR AT AR AAAAA RN

AAAAR R

AR AR AR

MOV
MOV
MOV

#1,STIMES

::D0 1

#CLR,3RHCS2

*CLEAR RH11 CONTROLLER

MOV

#STACK, SP

:SET STACK POINTER.

MOV

#6h , TSTNM

ITERATION

*MOVE #44 TO TEST NUMBER

MOV

#US& '0S2'US1,$GDDAT
; SGDDAT=S/B.

RHCS2,R2

:R2=RH11 €S2 ADDRESS.

MOV

RHCS1,R5

;ADDRESS OF A DEVICE REGISTER.

MOV

#USL!US2!UST,(R2);LOAD A NON EXISTANT DEVICE.

001256

MOV

RHAS ,R2

;R2=""AS'" ADDRESS.

000377

MOV

#377,(R2)

;ATTEMPT TO LOAD "'AS'‘.

CLR

(R2)

;CLEAR

MOV
MOV

RHCS2,R2
R2.REGADR

;R2=RH11 (S2 ADDRESS.

000007

001236
031620

001124

L45:

''AS"'.

CZRJHEO RP04/5/6 DSKLS PTZ MCRO V04.00 17-NOV-81 16:37:12 PAGE 10-25

T4k

SEQ@ 0062

BCTB "'AS'* WRITE
T

1241 014644

011237

001126

1244 014656
1245 014664
}gzg 014666

023737
001401
104071

001126

}gzg 014650 042737

MOV

167770 001126
001124

1248

BIC

c*c<~£o'us4'usz'us1>.saonAr SAVE NED AND DEVICE SELECTED.

(R2) ,$BDDAT

;SBDDAT=WAS.

CMP
BEQ
EMT

$BDDAT,SGDDAT
TST45

;COMPARE RESULTS.
*NEXT TEST

R R
Y

SATEST 45

014670

000004

MAKE CURRENT CYLINDER
= 0

ttttttlttfittt'ttttt'ttttt'tttti...tt.ttt.Q..ttlttt't"ttttt."'

014672

012706

001100

014704

004737

032054

014716
s 014722

004037
000000

034434

t4745:

014676 012737 000045

003610

014710 012777

164342

000001

1256

SCOPE

MOV

#STACK, SP

sRESET STACK

JSR

PC, CLDISK

SINIT DRIVE

RO, MAKEC YL
0

‘DO SEEK COMMAND FOLLOWED BY AN INIT TO
*CHANGE RHCC TO CYLINDER 0

MOV
MOV

JSR
LWORD

#45,TSTNM
#DMD , SRHMR

MOVE #45 TO TEST NUMBER

*SET DIAGNOSTIC MODE

tttttllttl.ttitfitt.ttt't'ttt..ttti'fitfi..t't.ttfitttt'ttt.t'tt.tl

RTEST 46
nncs1 - BITS 8 AND 9 - EXTENDED ADDR (A16 & A 17)
:«WRITE CYLINDER
0, FORMAT 16 BITS PER WORD

*#TRACK 0, SECTOR 0, KEYS 0, NUMBER OF WORDS 256

*#DATA IS THE CONTENTS OF THE TTY READER STATUS REGISTER
-rnxs WILL USE BITS A16 AND A17 WHEN THERE IS MORE THAN 28K OF MEMORY

014724

1257 014726
}ggg 014732

000004

012706
012737

ttt..ttt'ttttl‘tttttt'ttt.ttttt.tlfit.ttl.tfifi.'tt'l.t'ittttttt'tt

001100
000046

t4746:
003610

SCOPE

MOV
MOV

#STACK, SP
#46,TSTNM

:RESET STACK
*MOVE #46 TO TEST NUMBER

;CHECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RH70
014740
014744
014746
v 014752

005737
001402
000137

003614

1261 014752
1262 014756
1263 014760
}ggg 014762

004037
040626
041652
000000

031772

015256

648 :

}529
012737

010000

1270 014772
1271 014776
1272 015002
1273 015
1274 015014

005037
005037
005037
012737
012737

036712
036714
036716
000400
000001

1276 015026
}g% 015030

036710
040610

1275 015022

004537

023270

}5;8
1281 015032

RH70
64$
TST47

sTEST FLAG FOR RH70 CONTROLLER
*IF FLAG = 1, THIS TEST IS SKIPPED
:JUMP TO NEXT TEST
:1F FLAG = 0, DO THIS TEST

JSR
.WORD
"WORD
WORD

RO, CLAREA
DISK
TOLGAP+16
O

;CLEAR SIMULATED DISK
*FROM
:T0
:DATA

:THESE ARE SETUP FOR DISKLESS USE ONLY

1208 014764

1269

ST
BEQ
JMP

036710

MOV

#FMT22,CYL

036756
036720

CLR
CLR
CLR
MOV
MOV

SECOTR
E
Y1
EY2
ozss..nouoao

JSR

cYL
WCRC

as cnc

:CYLINDER 0

216 BITS PER WORD

*SECTOR 0 TRACK 0
:KEY1'0
KEY2 0
*NO OF DATA WORDS
*WRITE DATA

160 TO CALCULATE CRC

:THESE ARE REGULAR SETUPS
004737

032054

JSR

PC,CLDISK

:SETUP GENERAL REGISTERS

CZRJHED RP04/5/6 DSKL PT2 MACRO V04.00 17-NOV=81 16:37:12
146
RHCS1 - BITS 8 AND 9 = EXTENDED ADDR (A16 & A 17)
1282 015036
1283 015044
1284 015052
1285 015060
1286 015064
1287 015072
1288 015076
015102

012777

164166
164162
001422

#-256. ,aRHWC

164156

#FMT22 ,aRHOF

$TKS, 3RHBA
a$TKS, TMPILL
aRHDST
@RHCA
PC,CHECKT

L CPHALT

015106

1289 015110
1290 015114
1291 015120
1292 015122
1293 015130
1294 015134
1295
1296
1297
1298
1299
1300
1301
1302 015140
1303 015144
1304 015150
1305 015152
1306 015156
1307 015162
1308 015166
1309 015174
1310 015176
1311 015200
1312 015206
1313 015212
1314 015216
1315 015222
1316 015224
1317
1318 015226
1319 015230

WRIDAT,=(SP)

000010
001406
036550

#A16'A17, (SP)
(sP)+,ar1

164106

PC,COMHD

SEQ 0063

;256 DATA WORDS

sSTARTING ADDRESS OF WRITE BUFFER
: TEMPORARY STORAGE OF DATA

sSECTOR 0 TRACK 0
:16 BITS PER WORD FORMAT
sCYLINDER 0

sCHECK THAT DVA,RDY,DPR,DRY = 1

sAND THAT NO OTHERS = 1. CANNOT CONsTINUE TESTING IF BOTH AREN'T TRUE
:STOP THE TEST
sFILL RHCS1
sSET BUS ADDRESS INHIBIT
:CLEAR ERROR FLAG
sWRITE DATA

:IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;FROM THE ''COMHD'' ROUTINE IT MEANS SECTOR GAP, SYNC BYTE
sHEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY
sAND SYNCS WERE CORRECTLY DETECTED.
;DATA IS TO BE CHECKED.
004737

031554
001406

001422
040626
000400
000401
001422
001126
037030
001406

JSR
TST

163700
177177
000200

PC,PUTREG

sSAVE REGISTERS
sHAVE ANY ERRORS OCCURED?
:BRANCH OUT IF YES
:GOOD DATA
sDATA WRITTEN INTO ‘DISK'’

#257. ' ERWORD

:FOR_ERROR WORD

BNE
'
MOV

037030

MOV
MOV

1$:

MOV
CMP

gg.(&i)o

MOV
MOV

-(R1), $BDDAT

BEQ

001124

sus
TST

BNE
EMT

TMPILL ,SGDDAT

R2, ERWORD

ERFLGS
28
37
1064$

2$:

015230

1320
1321
1322 015232
1323 015234
1324 015240
1325 015244
1326 015250
1327 015252
1328 015254
1329
1341

PAGE 10-26

:
10648

(R1)+
aSWR,=(SP)

#1772177,(sp)
#5407, (SP) +

TST47
R2
18

38:
e

A A AR AR

; COUNTER

s COMPARE GOOD DATA WITH DATA ON DISK
sBRANCH IF GOOD
:GOOD DATA
:BAD DATA
<ERROR _WORD NO
sANY ERRORS ALREADY THERE?
sBRANCH IF YES

sSEE NEXT ERROR COMMENTS
sBRANCH TO AVOID PRINTING NEXT ERROR
sERROR OCCURED WHILE WRITING
sWITH A16 A17 OF RHCS1 _SET
sUNDO =(R1) FOR BAD DATA
sGET SWITCH SETTING
sKEEP ONLY SWITCH 7 AND 8
:1S 7 SET AND 8 RESET
:BRANCH OUT IF _YES
:IF NOT COUNT 256 WORDS
;BRANCH IF 256 NOT DONE

NN T RN AR AR

ARAAA AR

AR A AR

AR AR RS

DRIVE TIMING ERROR
s*TEST 47
:*A READ HEADER AND DATA IS STARTED ON CYLINDER O, SECTOR
2#0, TRACK 0, 260 WORDS. AFTER THE HEADER IS READ IN CORRECTLY,

“+NO SYNC B (3 (DATA SYNC) IS GIVEN.

n.S5
CZRJHEO RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-27
147
DRIVE TIMING ERROR

SEQ 0064

s*THEN NORMAL DIAGNOSTIC DATA CLOCKS AND DIAGNOSTIC

'SECTOR CLOCKS ARE GIVEN FOR 24 BYTES

tTHEN 536 BYTES OF SECTOR CLOCKS ONLY ARE GIVEN.

;*THIS IS TO TO BRING SECTOR PULSE UP WHICH SHOULD

*SET "DRIVE TIMING ERROR''
= °'DTE'

015256

1342 015260

}gzz 015264

000004

012706

012737

001100

000047

t4747:
003610

}%22

AR AR

A AR AR AR AR

SCOPE

MOV

#STACK, SP

MOV

#47,TSTNM

R AR AR R AR

;RESET STACK

*MOVE #47 TO TEST NUMBER

;THESE ARE TO SETUP FOR DISKLESS USE

1347 015272
1348

012737

010000

}ggg 015300

005037

036712

1351 015304

005037

036714

1352 015310
1353 015314
1354 015320
1355 015324
}ggg 015326

005037
005037
004537
036710
040610

036710

036716
036720'
033270

;
004737

032054

1362 015342

012777

002544

1361 015334

};gz 015350

1365 015354
1366

012777

005077

177374
163670

012777 014000

1367 015362 005077
1368 015366
015372

004737
104401

015376

000000

#FMT22,CYL

CLR

SECOTR

CLR

KEY1

CLR
CLR
JSR
cyL
WCRC

}ggg
1360 015330

MOV

163670
163664

163666

163664

-xev1 =0

xsvz =0
THIS IS A READ COMMAND
:GO TO CALCULATE CRC

PC,CLDISK

SET up GENFRAL REGISTERS

MOV

#REINTO, 3RHBA

.srnnrxns ALURESS OF BUFFER
.TgACSR _oo

#-260.,9RHWC

CLR

@RHDST

:256DATA \ DS, 4 HEADER WORDS

MOV

#FMT22'ECI,@RHOF ;16 BITS PER WORD

CLR

SRHCA

gpmmmm1mm

MOV

HALT

PC, CHECKT
,CPHALT

REFOR,aR1

:ECC CORRECTION INHIBITED

*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

*READ HEADER AND DATA = 72

;READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED °DTE’

1373 015404
1374 015410

004037
001232

};;g 015414

000023

032554

JSR

RHWC

001306

RO, SAVER

;READ IN SEQUENCE
*FROM HARDWARE nssxsrsn

SINTO CORE AT LOCATION

19.

1378
1379
1380
1381
1382

*NUMBER OF assxsrsns TO READ

;NOW "GO* WiLL BE GIVEN, EVERYTHING WILL BE TREATED
:NORMALLY FOR THE HEADER. BUT WHEN IT IS TIME TO READ
:DATA, ONLY SECTOR CLOCKS WILL BE GIVEN. NO DIAGNOSTIC DATA
:CLOCKS WILL BE GIVEN. THIS SHOULD BRING SECTOR PULSE WIGH

}ggz

1335 015416
1386 015424
1387

JSR

MOV

JSR
TYPE

1375 015412

;SECTOR b

THESE ARE REGULAR SETUPS

032116
053407

};;}

KEY2
X
RS.CRC

16 BITS PER WORD
CYLINDER 0

:WITHOUT PUTTING
012737
012737

177777
177777

001426
001406

MOV
MOV

'READ'* DOWN HENCE °‘DTE' WILL COME UP.

#-1,TESDTE
#-1.ERFLGS

:SET DTE TEST
:THIS WILL BRING THE READ HEADER
*AND DATA PROCESS OUT AFTER THE

———— ——————— e————

CZR JHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-28
147
DRIVE TIMING ERROR

}ggg

;HEADER HAS BEEN CORRECTLY READ

1390 015432

004737

036550

1393 015436
1394 015444
1395 015452
1396 0154564
1397

017737
032737
001405
004737

163576
100000

}233 015462

000137

}gg;

1398 015460

SEQ 0065

104040

JSR

001176
001176

031554

SETCK1: MOV
BIT
BEQ
JSR
EMT

015750

JMP

PC, COMHD

;ISSUE 'GO', SEARCH FOR THE SECTOR

BRHCS1,$TMPO
#SC.$TMPO
8%
PC,PUTREG

;READ CS1 TO CHECK FOR ANY READ
ERRORS
*TEST FOR ‘'SPECIAL CONDITION" = °SC°
*CONTINUE WITH TEST IF *SC' = 0 (NO ERRORS)
*READ © SAVE ALL REGISTERS AGAIN IF AN
*UNDEF INED DATA TRANSFER ERROR OCCURRED

TSTS0

:AND READ THE HEADER

:*DTE® TEST = ABORT THE TEST

1401
1402

:NOW THE HEADER HAS BEEN READ OK
*NOW 560 SECTOR CLOCKS WILL BE GIVEN

}zgg

*GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 2

1403

*GAP 11 BYTES, SYNC 1 BYTE, DATA 512, ECC & BYTES

1406
1407

;THESE 560 SECTOR CLOCKS ARE DIVIDED INTO TWO GROUPS
224 SECTOR CLOCKS WITH NORMAL DIAGNOSTIC DATA CLOCKS,

1410

:THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA CLOCKS

}283

SAND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC DATA CLOCKS.

}2}5

*WHICH EQUALS 3 BYTES OF DATA

1413 015466

012701

000030

1415 015476
1416 015502
1417 015506
1418 015512
1419 015516
1620 015522
1421 O1SS§6
1422 015530
1423 015532

012710
052710
042710
012702
052710
042710
005302
001372
005301

000001
000012
000012
000007
000002
000002

1414 015472

}2§§ 015534

013700

8s:

001260

18:
48:

001362

}2§§ 015554

012701
052710
042710
005301

001030
000010
000010

5%:

001372

:SET DIAGNOSTIC MODE
:SET SECTOR CLOCK AND DATA CLOCK
;CLEAR SECTOR CLOCK AND DATA CLOCK
:LOAD COUNTER FOR DIAGNOSTIC CLOCKS
*SET CLOCK
:CLEAR CLOCK
:COUNT TO 7
*BRANCH IF 7 NOT DONE
*COUNT TO 24

*BRANCH IF 24 NOT DONE

MOV
BIS
BIC
DEC

#536. ,R1
#MSTCK,aR0
#MSTCK . aRO
R1

:LOAD SECTOR CLOCK COUNTER
*SET SECTOR CLOCK
*CLEAR SECTOR CLOCK
+ COUNT

*BRANCH IF 536 NOT DONE

W
~

:CHANGE SAVED REGISTERS TO EXPECTED VALUES

012737

1440 015572

052737

1444 015622

#DMD , 30
#MSTCK'MCLK,@R0O
#MSTCKiMCLK,
3RO
#7.R2
#MCLK , 3RO
#MCLK . RO
R2
4
R1

:NOW 'DTE®' SHOULD BE SET

1438 015556

144; 015606
1443 015614

MOV
BIS
BIC
MOV
BIS
BIC
DEC
BNE
DEC

BNE

}236

1441 015600

:LOAD CO. .TER

RHMR.RO ;GET RHMR ADDRESS

;THIS GIVES 536 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS

1434
1435

1439 015564

#24. .R1

MOV

BNE

}259
1428 015536
1429 015542
1430 015546
1431 015552

MOV

177400

0157 7

002554

052737

010000

012737

000100

012737
05 7g7

01
40000

001306

MOV

#-256. ,4C

:SAVED RHWC

1314

BIS

#5C
' TRE,CS1

;SAVED RHCS1

001310
001316

001 ;4
001336

001350

MOV
BIS

MOV

#REINTO+<4,%2>,BA ;SAVED RHBA
#0TE ERT

*SAVED RHER!

#601
MR ;SAVED RHMR
#ATATERR.DS1 :SAVED RHDS!

#100,LA ;SAVED RMLA

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-29
147

SEQ 0066

DRIVE TIMING ERROR

012737

000001

01%737 001416 801382

D b

[=lelela)

W
W
B
W
G

OOOOOOOOS

NO O
O O O28
O 0oRN
Co Co On GR Go
o Co 0o IV
SNINSNNN
SR
RN
RERRE
N S 2ELESR

#1,DST

:SAVED RHDST
s SAVED RHAS

ATTENT,AS

004037
001232
001500
000023

032554

113737

001333

JSR

RHWC
WRFROM

RO, SAVER

19.

001525

sREAD IN SEQUENCE

:FROM HARDWARE REGISTER
s INTO_CORE BUFFER

sNUMBER OF REGISTERS TO READ

;FOR RHAS UPPER BYTE

MOvB

AS+1,WRFROM+25 ;UPPER RHAS

;COMPARE THE HEADER READ

2 015706

—

004037
036710
002544
000

032756

JSR

cyL
REINTO
4,

000207

; COMPARE

$GOOD BUFFER
*TEST BUFFER
*NUMBER

*RETURN FOR ERROR

*SAME
*RETURN FOR GOOD COMPARISON

;

104010

RO, COMFAR

6$
68

015710

EMT

RTS

78:

;IN ERROR
;RETURN

:GOOD COMPARISON, CONTINUE

\n\n\s\n v

032756

JSR

W
WRFROM

b 2 cd b

037030
001230

2$:

MOV

MoV

031620

RTS

: COMPARE

s INITIAL SNAPSHOT BUFFER (CHANGED)
sTEST SNAPSHOT BUFFER

sNUMBER OF REGISTERS

2%
28
38

015746

015750

RO, COMPAR

18.

e R

OO0O00O0O0O

s COMPARE REGISTERS BEFORE COMMAND WITH REGISTERS AFTER COMMAND

OCOO00

eS
R
R
S e
S
N
N
S
S
S
S
N
S
S
e eT S

MOV

;CAN BE DONE (USE THE 'WRFROM' SAVE BUFFER THIS TIME)

o Yo Y W
P

—

)

VIS0
002000 LRl

MoV

sNOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS

2 20 o 2l 2l a0 a0 A A
ARt Al Al Rt 2t N A AN
OOn OIS
SN
W= O VNN
WN=O0VO O

PR R B

5 015630
015636

sRETURN FOR ERROR
+ SAME
sRETURN FOR GOOD COMPARISON
ERWORD ,R5

R5,R5

sGETTING READY TO INDEX
;DOUBLE ERROR WORD

?HUC-Z(RS).REGAD& sFAILING REGISTER
PC

38:

: CHANGE AFTER FORCING
:'DTE' ERROR

:RETURN

;GOOD - REGISTERS OK, GO ON TO NEXT TEST

ttttt'ttttttttltttttt'tt'tt'ttttttttttttt.tttttttttttttttt'titt

'T ST 50

;%A WRITE DATA

DRIVE TIMING ERRO

OHHAND IS STARTED ON CYLINDER 0, SECTOR

:%0, TRACK 0, 256 WORDS

CZRJHEO
RP04/5/6
DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-&0
150
DRIVE TIMING ERROR

SEQ 0067

*THE SECTOR IS SEARCHED FOR AND
;*AFTER THE HEADER IS READ IN CORRECTLY,
:*NO SYNC BYTE (DATA SYNC) IS GIVEN.

: *NORMAL DIAGNOSTIC DATA CLOCKS AND DIAGNOSTIC
:*SECTOR_CLOCKS ARE GIVEN FOR 24 BYTE

tTHEN 536 BYTES OF SECTOR CLOCKS ONLY ARE GIVEN.
'THIS IS TO TO BRING SECTOR PULSE UP

;*WHICH SHOULD SET 'DRIVE TIMING ERROR'' - 'DTE’
oo

NN~

-l
b b

[=l=lo]

010000

15772

005037

15776

005037

16006
6014

=
W
~

012737

R NV S
WN=OO
=O VRNV
W

003610

15764

<>C>C“DS§C’ o

VONOWVNSWN=O VNNV

e P
T
e

S
e

S
B
D

i
i

B
Y
B
- e A
e
O
e
e
Tt T

Vi
e & BN

Vi unwnwnunanwawniwnaiwnwn

233333333333

SCOPE

MOV

3333333323233 3233 3333333333333 3

#STACK, SP

#50,7STNM

3333332333333 3323323333]3

;RESET STACK

*MOVE #50 TO TEST NUMBER

;THESE ARE TO SETUP FOR DISKLESS USE

012737
004537

036710

MoV

#FMT22,CYL

036712

CLR

SECOTR

036714

CLR

KEY1

MOV

#-1,X

036716
177777
033270

036720

CLR

JSR

cyYL
WCRC

:SECTOR 0

;TRACK 0

‘KEYT1 = 0

KEY2

RS, CRC

;16 BITS PER WORD
:CYLINDER 0

*KEY2 = 0

*THIS IS FOR WRITE DATA COMMAND

;GO TO CALCULATE CRC

; THESE ARE REGULAR SETUPS & CHECKS

30 016024
0

NINININININININININ)
= b b d b ek b

t4750:

004737

032054

816044 005077 163174

JSR

PC,CLDISK

;SETUP GENERAL REGISTERS

RHDST

sTRACK
= 0
:SECTOR
= 0

MOV
MoV

#-256. ,@RHWC
#WRFROM, 3RHBA

CLR

016050

012777

010000

Mov

#FMT22 ,3RHOF

016056
81 6062
16066

005077
004737
104401

163170
032116
053407

CLR
JSR

aRHCA
PC,CHECKT

616074 013711

001452

MoV

TYPE

HALT

256 DATA WORDS
STARYING ADDRESS OF BUFFER
:16 BITS PER WORD

:ECC_CORRECTION INHIBITED
sCYLINDER = 0

:CHECK THAT DVA,RDY,DPR,DRY
= 1

:AND THAT NO OTHERS = 1,
CANNO CONs TINUE TESTING IF BOTH AREN'T TRUE

.CPHALT

WRIDAT ,aR1

:STOP THE TEST

:WRITE DATA = 60

sREAD & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED °'DTE'
032554

JSR

RH C

RO, SAVER

19
:NOW 'GO' WILL BE GIVEN

READ REGISTERS IN SEQUENCE
:FROM HARDWARE REGISTER

:INTO CORE BUFFER LOCATION

:NUMBER OF REGISTERS TO READ
evenvruxnc WILL BE rasareo

*NORMALLY FOR THE HEADER. WHEN IT IS TIME TO WRITE
:DATA, ONLY SECTOR CLOCKS WILL BE GIVEN, NO DIAGNOSTIC DATA
:CLOCKS WILL BE GIVEN. THIS SHOULD BRING SECTOR PULSE HIGH
*WITHOUT PUTTING READ DOWN, HENCE 'DTE' WILL COME UP.

CZRJHEO
RP04/5/6
DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-31
150
DRIVE TIMING ERROR
1554 016112
1555 016120
1556
}ggg

012737
012737

177777
177777

001426
001406

1559 016126 004737 036550
}gg?

1se§ 016132
1563 016140
1564 016146
1565 016150

017737
032737
001405
737

1567 016154
1568

104040

1566

};93 016156

000137

163102
100000

001176
001176

031554

MOV
MOV

#-1,TESDTE
#-1.ERFLGS

;SET DTE TEST
:THIS WILL BRING THE READ HEADER
*AND DATA PROCESS OUT AFTER THE
*HEADER HAS BEEN CORRECTLY READ

JSR

PC, COMHD

;ISSUE *GO’,

@RHCS1,$TMPO
#SC.$THPO
6$
PC,PUTREG

;READ CS1 TO CHECK FOR READ ERRORS
*TEST FOR ‘'SPECIAL CONDITIONTM
= *SC’
:CONTINUE TESTING IF NO ERROR
*READ & SAVE REGISTERS AGAIN IF UNDE-

SETCK2: MOV
BIT
BEQ
JSR

016474

SEQ 0068

EMT

JMP

TSTS1

SEARCH FOR SECTOR,

*READ HEADER AND DATA.

*FINED ERROR HAS OCCURRED
:DURING 'DTE' TEST SETUP
*ABORT THE TEST

1571

;NOW THE HEADER HAS BEEN READ,

1573

GAP 11 BYTES, SYNC 1 BYTE. DATA 512, ECC 4 BYTES

1572

:560 SECTOR CLOCKS WILL BE GIVEN

};;g

:GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 2

1576

;THESE 560 SECTOR CLOCKS ARE DIVIDED INTO TWO GROUPS

};;g

SAND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC DATA CLOCKS

1577

:24 SECTOR CLOCKS WITH NORMAL DIAGNOSTIC DATA CLOCKS

}ggg

;THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA CLOCKS

1582 0161¢2

012701

000030

6$:

MOV

1585 016176

052710

000012

18:

BIS

000007
000002

48:

1583 016166
1584 016172
1586 016202

013700
012710
042710

1587 016206
1588 016212

012702
052710

1590 016222
1591 016224
1592 016226

005302
001372
005301

1589 016216
}ggz 016230

042710

001260
000001
000012
000002

001362

012701
052710

1600 016246
}231 016250

005301
001372

}ggg 016252

1610 016264

MMSTCK 'MCLK,3RO :SET SECTOR CLOCK AND DATA CLOCK

#MSTCK iMCLK .3RO CLEAR SECTOR CLOCK AND DATA CLOCK

BIC

#MCLK. aRO

MOV
BIS

BNE

042710

017737

001030
000010

58:

000010

163014

1606
1235
1609 016260

:LOAD sscroa CLOCK COUNTER

RHMR n
| o :GET RHMR ADDRES
#DMD. 3RO’
:SET DIAGNOSTIC MODE
#7.R2
#MCLK, 3RO

:LOAD COUNTER FOR DIAGNOSTIC DATA CLOCKS
:SET CLOCK (DATA)

R2
4
R1

+ COUNT
:BRANCH IF 7 NOT DONE
+COUNT

:CLEAR CLOCK (DATA)

*BRANCH IF 24 NOT DONE

:THIS GIVES 536 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS

1597 016232
1598 016236

1eo§

026,

BIC

DEC
BNE
DEC

}ggg

1599 016242

MOV
MOV

001346

MOV
BIS

#536. .R1
AMSTCK,aR0

:LOAD SECTOR CLOCK COUNTER
*SET SECTOR CLOCK

DEC
BNE

R1
1

: COUNT
*BRANCH IF 536 NOT DONE

BIC

#MSTCK 3RO

*CLEAR SECTOR CLOCK

;ECC PATTERN REGISTER IS NOT CHECKED
MOV

@RHEC2,EC2

;RHEC2 IS NOT CHECKED

NOW *DTE' SHOULD BE SET, CHANGE SAVED REGISTERS TO EXPECTED VALUES
005737

001412

003614

BEQ

RH70

JP1

:CHECKFOR RH70 CONTROLLER

:SKIP RH70 CODE AND DO RH11 IF NOT

0001
001416

NT=1

—
e
D

uvs

WWWWN
=
O
NDNOON

177511

JP1:

JP2:

MOV
MOV
BIS
BR
MoV

D
e

[=l=T=la]

PoG
urd

e
D
b
b e

#=-242. ,WC

: SAVED RHWC

#IR'OR,CS2

;SAVED RMCS2
:SKIP NEXT RH11 CODE

WVWRFROM+<14
. %2> ,BA ;SAVED RHBA
JP2

MOV
8IC
8IS

WWRFROM+<73.%2>
,BA :SAVED RHBA
oxn.cs% ;SAVED RHCS?

BIS

#SC!TRE,CS1

8IS
MoV
BIS
MoV
MoV
Mov

#OR.CS2

:SAVED RHCS2

#DTE ,ERT

001333

JSR
RHWC
REINTO

ATTENT ,AS

RO, SAVER

19.

D o
d

002571

e e

*SAVED RHER1

:SAVED RHAS

sREAD IN SEQUENCE

sFROM HARDWARE REGISTER
s INTO CORE BUFFER LOCATION
sNUMBER OF REGISTERS TO READ

;FOR RHAS UPPER BYTE
Movs
AS+1,REINTO+25 ;UPPER RHAS

XXX
RXXRRRER
v
W
sabn
3RS »H NOOSNO

s COMPARE CHANGED REGISTER SNAPSHOT BEFORE COMMAND WITH
s SNAPSHOT AFTER COMMAND
032756

JSR
wC
REINTO

16474

RO, COMPAR

28
gs
$

037030
001230

2$:
031620

MOV
ADD

MOV
EMT

*
~N

—

o
©

SRS SESaaas

D e e
e
o
e

;SAVED RHCS1

#DENVL 'DMD,MR
:SAVED RHMR
#ATA'ERR,DS1 ;SAVED RHDS1
#100,LA ;SAVED RHLA
#1,DST
:SAVED RHDST

032554

e e e

e e

D e

oDV

SEQ 0069

sNOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS
;CAN BE DONE (USING "WRFROM' BUFFER THIS TIME)

D
—

o
~

;RHWC AND RHBA UIL% gE MODIFIED FOR RH70C

VAR1:
VAR2:

NANWNWWWW
WNOWVIWWN
= =
NOOONSONS

001534
000300

oo
SSS

=2 WWW
SaNNN

D P Purd
NN

(=l=l=}

177416

——

SEC"D

N
NNNSN
WWWW
NNNN

—_ed
b \ A=A

W
NNNNSNNSN
WWWWWWW
NNNNNNN

OO0OO00O0O00

W
<O~
O

ONONONO

INWWW
NN—=
oON

oo
o

OO00O

b d
e
e

e
D e e

s
P

OO0O0O0
OCOO00O00O0

16400
16406

Bg MACRO V04.00 17-NOV=-81 16:37:12 PAGE 10-§2

OFOFONONONON

D o

e e

d D e

o e o

U S

by ZR2R22R2R WWNW
OM’OW’ON’OM’K?’OW’OW’OM’OW’
vV
2338
ONOWVNSWN
= OV
W =
W
— 'ocrugkmhuuu~mwoorv0una«nnuac»oxtvsf t:gfi:xfiflgflgnnvnnvnnvnnu

CZRJHEO RPO4/5/6 DSKLS P
150
DRIVE TIMING ERR

RTS

3s:

s COMPARE

s CHANGED INITIAL SNAPSHOT BUFFER
s SNAPSHORT BUFFER AFTER COMMAND
sNUMBER OF REGISTERS TO COMPARE
sRETURN FOR ERROR
* SAME

*RETURN FOR GOOD COMPARISON
ERWORD , RS

RS RS

;:GETTING READY TO INDEX
*DOUBLE ERROR WORD

?Huc-z(as).nscAok :FAILING REGISTER
PC

:CHANGE AFTER FORCING
:*DTE' ERROR
*RETURN

:GOOD, REGISTERS OK = GO ON TO NEXT TEST

SRR RRRARAARAAAAPAAAARRAARRAAARAAAAAARRARAAAAAAAAAARARRARAARAAANS

S*TEST 51

DRIVE TIMING ERROR

s*A WRITE HEADER AND DATA COMMAND IS 1 VEN
:*TO CYLINDER
. SECTOR 0. TRACK 0, . 256. WORDS.

F_6

CZRJHEO RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 10-33
TM

SEQ 0070

DRIVE TIMING ERROR

'AFTER SECTOR IS FOUND (THE SECTOR FOUND FLOP IS HIGH),
:*NO MORE DIAGNOSTIC DATA CLOCKS ARE GIVEN,

;*ONLY SECTOR CLOCKS ARE GIVEN TILL SFCTOR PULSE IS HIGH.

;*THIS SHOULD SET 'DRIVE TIMING ERRORTM -

016474

1674 016476

000004

012709

}g;z 016502 012737

001100

000051

$47151:

003610

}2;5

A A i

SCOPE

MOV

diddi

#STACK, SP

#51,TSTNM

°DTE’

it iiiidtiididiiddiiiiiidiidssidd]

;RESET STACK

*MOVE #51 TO TEST NUMBER

:THESE ARE TO SET UP FOR DISKLESS USE ONLY

}2;3 016510

012737

010000

1681 016516

MOV

NFMT22,WCYL

005037

042050

CLR

WSECTR

1683 016526 005037 042054

CLR

WKEY2

JSR
weYL
GCRC

RS,CRC

1682 016522

1684 016532

1685 016540
1686 016544
}2g; 016546

005037

012737

004537
0462046
042056

042046

042052

000400

033270

CLR

042106

}ggg

MOV

WKEY1

FORTA555261° BITWORDS AND

:TRACK=0, SECTOR=0
iKEY1=0

#256. ,FNWORD

KEY2=0

:256 DATAWORDS

;GO TO CALCULATE CRC

: THESE ARE REGULAR SETUPS & CHECKS

1691 016550

004737

032054

1693 016562
}295 016570

1692 016554

JSR

PC,CLDISK

:SETUP GENERAL REGISTERS

MOV
CLR

#WRFROM,3RHBA
aRHDST

:STARTING ADDRESS OF BUFFER
: gécsa oo

012777
005077

177374

001500
162450

162450

MOV

1696 016574

012777

014000

162446

MOV

#FMT22'ECI,3RHOF :16 BITS PER WORD

1698 016602
1699 016606

005077
004737

162444
032116

CLR
JSR

aRHCA
PC,CHECKT

1697

016612

016616

012777

104401

162444

053407

TYPE

000000

HALT

}%mmommomn

MOV

;;8§

,CPHALT

WRIFOR,aR1

256 DATAWORDS & 4 HEADER WORDS

;ECC CORRECTION INHMIBITED

*CYLINDER = 0
:CHECK THAT DVA,RDY,DPR,DRY = 1

*AND THAT NO OTHERS = 1.

004037

};&73 016634

00002

:STOP THE TEST

*WRITE HEADER AND DATA = 62

001232
oo1sog

032554

JSR
RHWC
we

RO, SAVER

19.

:READ IN SEQUENCE

*FROM HARDWARE REGISTER
*INTO CORE BUFFER LOCATION

:NUMBER OF REGISTERS TO READ

1709
1710

:NOW 'GO' WILL BE GIVEN. EVERYTHING UILL ae TREATED
:NORMALLY TILL HEADER IS TO BE GIVEN
ONLY

171;

:CLOCKS WILL BE GIVEN. THIS SHOULD BRING SECTOR PULSE HIGH

1711

:SECTOR CLOCKS WILL BE GIVEN. NO oxAénosrxc DATA

};}‘

1715 016636

1719 016644
171

*WITHOUT PUTTING 'READ'* DOWN, HENCE °'DTE' WILL COME UP.
012737

012737

177777

001426

001406

MOV

#-1,TESDT

#-1.ERFLG

1720 016652

CANNOT CON-

*TINUE tESTING IF BOTH AREN'T TRUE

;READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED °*DTE’

1704 016624

1705 016630
1706 016632

#-260.,3RHWC

:SET DTE TEST

*THIS WILL BRING THE READ HEADER
*AND DATA PROCESS OUT AFTER THE
*HEADER HAS BEEN CORRECTLY READ

004737

041672

JSR

PC, COMWHD

:ISSUE *GO*, SEARCH FOR SECTOR,

CZRJHEO RP04;5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-?4
TM

]

DRIVE TIMING ERROR

};%5
1723 016656
1724 016664
1725 016672
1726 016676
1727 016700
1728
};53 016702

;

;WRITE HEADER AND DATA.
017737
032737
001405
004737
104040

000137

162356
100000

001176
001176

031554

SETCK3: MOV
BIT
BEQ
JSR
EMT

017134

JMP

@RHCS1,$TMPO
#5C.$THPO
43
PC,PUTREG
40

TSTS2

:READ CS1 TO CHECK FOR ERRORS DURING WRITE
*TEST FOR ‘'SPECIAL CONDITION'' = °'SC'
*CONTINUE TEST IF NO ERROR ('SC' = 0)
*READ & SAVE REGISTERS AGAIN IF ERROR
:DURING °*DTE® TEST SETUP

*ABORT THE TEST AT THAT POINT

};gg

;NOW SECTOR HAS BEEN FOUND OK

1733
1734
1735
1736
1737

:609 SECTOR CLOCKS WILL BE GIVEN,
139 BYTES FOR SECTOR GAP,
:1 BYTE FOR HEADER SYNC,
8 BYTES FOR HEADER,
*GAP 11 BYTES, SYNC 1 BYTE, DATA 512, ECC 4 BYTES

};29

:THIS GIVES 609 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS

};gg

:GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA %

1742 016706
1743 016712

012701
052710

1745 016722
};29 016724

005301
001372

001141
000010

48:
5%:

1744 016716 042710 000010

1748
};gg

1751 016726
};g% 016732

MOV
BIS

#609. ,R1
#MSTCK ,aR0

;LOAD SECTOR CLOCK COUNTER
JSET SECTOR CLOCK

DEC
BNE

R1
5$

* COUNT
*BRANCH IF 536 NOT DONE

BIC

#MSTCK arRO

:CLEAR SECTOR CLOCK

;NOW °'DTE' SHOULD BE SET, CHANGE SAVED REGISTERS
2TO EXPECTED VALUES

005737
001407

003614

TST
BEQ

};gg

RH70
JP3

:CHECK FOR RH70 CONTROLLER
:SKIP RH70 CODE AND DO RH11 IF NOT

JRHWC, RHBA AND IR BIT WILL BE MODIFIED FOR RH70C

1756 016734

012737

001306

VAR3:

VAR4:

MOV

MOV
BR

#-252. .WC

:SAVED RHWC

1760 016752

012737

001706

001310

001306

JP3:

MOV

#-193. .4C

:SAVED RHWC

1763 016766

1764 016776 042737 000100 oo131$ VARS:

052737

140000

001314

JP4:

BIS

#SC!TRE,CS1

;SAVED RHCS1

1766 017010

052737

000200

00131

BIC

1765 017002

BIS

#OR.CS2

012737

000401

001334

BIS

#DTE ,ER1

1767 017016

1757 016742
};gg 016750

};25 016760

1768 017024

1769 017032
1770 017040

};;1 017046

};;%

1775 017054
1776 017060
1777 017062

012737
000406

052737
osgrsr

012737
012737

013737
004037
001232
002544

177404

001520
177477

010000

140000

000100
000001

001416

032554

001310

001316

MOV

001336

BIS

001332

MOV

001350
001320

MOV
MOV

#WRFROM+<8.%2>,BA ; SAVED RHBA
JP
:SKIP NEXT RH11 CODE

NURFROM+<67.%2>
,BA ;SAVED RHBA

nxa.cs§ ;SAVED RHCS
:SAVED RHCS

:SAVED RHER1

#401.MR ;SAVED RHMR

#ATATERR.DST

;SAVED RHDS1

ATTENT.A$

:SAVED RHAS

#100,LA ;SAVED RALA
#1,DST :SAVED RHDST

;NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN BE DONE
JSR
RO, SAVER
RHWC
REINTO

;READ IN SEQUENCE
*FROM HARDWARE REGISTER
*INTO CORE BUFFER LOCATION

SEQ 0071

C RJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-35
TM

SEQ 0072

DRIVE TIMING ERROR

11m 017064

1780

};g]‘, 017066

000023

113737

19.

001333

002571

1783
};g‘s'

:NUMBER OF REGISTERS TO READ

:FOR RHAS UPPER BYTE
MOVB

AS+1,REINTO+25 :UPPER RHAS

;COMPARE CHANGED REGISTER SNAPSHOT BEFORE COMMAND
*WITH REGISTER SNAPSHOT AFTER COMMAND

1786 017074

004037 032756

1789 017104

000022

1787 017100
1788 017102
1790 017106
1791 017110

We
REINTO

017114
017114

2
2$

017134

1794 017114

013705 037030

1796 017122

016537

1797 017130

1798
1799

}gg? 017132

060505

104001

RO, COMPAR

; COMPARE

*CHANGED REGISTER SNAPSHOT
:SNAPSHOT AFTER COMMAND

18.

};g% 017112

1795 017120

JSR

001306
002544

*NUMBER OF REGISTERS TO COMPARE

*RETURN FOR ERROR
+ SAME
:RETURN FOR GOOD COMPARISON

001230

28:

MOV

ERWORD ,RS

MOV

RHWC=2(RS) ,REGADR ;FAILING REGISTER

ADD

031620

EMT

000207

RTS

1802 017134
}ggz

:GETTING READY TO INDEX

RS,RS

:DOUBLE ERROR WORD

38:

1815

: CHANGE msn FORCING
:'DTE' ERR
*RETURN

:GOOD, REGISTERS COMPARE OK
*GO ON TO THE NEXT TEST

tttttttttittttttttttttt't*tttttttttltttttttlttttttttttttttttttt

RTEST 52

SECTOR SELECTION

:«THE SECTOR SELECTION LOGIC IS CHECKED HERE

'EACH SECTOR ON TRACK ZERO IS WRITTEN INTO.

-om IS = 19 WORDS OF ZEROS = SYNC WORDS, 4 HEADER WORDS
*«1 CRC WORD, 5 WORDS OF ZEROS, 1 SYNC WORD, 100 ZEROS
-(ko 1 SYNC WORD, 70 SECTOR NUMBER TO VARY
-me WRITTEN DATA IS CHECKED IN MEMORY

017134

1816 017136
1817 017142

012706
012737

1820 017154
1821

}g}g 017150

’rsrsz

SCOPE

003610

MOV
MOV

#STACK, SP
#52,TSTNM

;RESET STACK
*MOVE #52 TO TEST NUMBER

012737 000026 001430

MOV

#22. . TAGDTE
>

2228
nus resr aemrs

004737

001100
000052

2323333333333 3333233333333 3333333333 3333 3333333333333 3333333]

032054

JSR

}ggg

;EE%R?SPE‘ERAL REGISTERS & CLEAR

SITSELF 22 TIMES

:THE FOLLOWING INITIALIZES FOR SECTOR 0

1826 017162

005037

owzsg

1828 017174
1829 017202

012737
005037

000025
017324

1831 017212
mg 017216

005037
015737

0174
000025

1827 017166 012737

017272

017276

1830 owzog 005037 0174
1833

PC.CLDISK

017224

012737

000025

017444

017452

CLR

MOV

051.ssuz

CLR

ssw+g

MOV
CLR

CLR
MOV

MOV

ssSoz

;DATA

:HEADER (SECTOR)

*HEADER (KEY1)

*HEADER (KEY2)
*DATA (SECTOR)

§S12+
sectoa (SIMULATED DISK)
51 5
:KEY1 (SIMULATED DISK)

xevz (SIMULATED DISK)

6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-36

34 017232

005037

CLR

017512

[=lelelelele)

1s:

28:

d o

040530
000460

2 23 3

D e
D
D
D e

001500

017260

010000

017274

000000
000025
000025

D e

) e

D e

017254

;SECTOR (RHDST)

MOV

MOV
CLR

DEC
BNE

#SECGAP,RO

#304. ,Ri
(RO)+

R1
2%

;POINTER
s COUNTER
sCLEAR SIMULATED DISK AREA
; COUNT

sSETUP WRITE FROM BUFFER
Mov

#WRFROM,RO

MOV

#FMT22, (RO) +

$S3:

MOV

#0,(RO)+

$S5:

MOV

#21.,(RO)+

;HEADER

SS4:

MOV

#21.,(RO)+

sFORMAT 16 BITS PER WORD
sCYLINDER 0
+SECTOR TO VARY
sKEY1 TO VARY
:KEY2 TO VARY

D
)
D

:DATA IS = 19 WORDS OF ZEROS = SYNC WORDS, 4 HEADER WORDS
:1 CRC WORD, 5 WORDS OF ZEROS, 1 SYNC WORD, 100 ZEROS
:(DATA), 1 SYNC WORD, 70 SECTOR NUMBER TO VARY

~
o

pury

ggeceges
ViR W=

~
~
W
N

000023

037012
010000
000000

6$:

SS7:

NN
W

#FMT22, (RO)+
#0, (ROS+
(R0)+

(R 0)+
R5.CRC
WRFROM+50
WRFROM+60

8s:

—
b
h
o
—

#19. RS
(RO)+
R5
6$
RSYNC, (RO)+

JSR

037012
000144

MOV
MOV
CLR
CLR

033270

000005

MoV
"CLR
DEC
MOV

OO0 O00O0 O OO0Oo 2 (=lelelelelelelelelelele]

SEEEEORERE SERsEanseay
3“VOW&NN-‘°O 33 33

SEQ 0073

sDATA IN WRITE FROM BUFFER ALTHOUGH THIS IS DATA AND NOT
sHEADER, THE SECTOR WITH SYNC BYTES WILL BE GIVEN AS DATA.

d
e
d d
d e e
D
)
D
D
d
D
D e
d
D
b
D e
d
D
D e
b
D e
d
d
—

©o

§§15+42

gg%EAR SIMULATED DISK AREA

D e

D ed

CZRJHED RPO4 /5/
152
SECT OR SELECTION

98:

sCOUNTER
;19 ZEROS
s COUNT
219 DONE?
:SYNC = 14400
:CYLINDER 0
sSECTOR TO VARY

;CALCULATE CRC FOR ABOVE 4 WORDS

H;4 WORD S START FROM HERE
sPUT CRC HERE

: INCREMENT RO

(RO)
+

MOV

#5. RS

DEC
BNE

RS
8s

(ROJ+

;5 WORDS OF ZEROS
s COUNT
JBRANCH IF S NOT DONE

MOV

RSYNC, (RO) +

sSYNC = 14400

MoV
CLR
DEC
BNE

#100. ,R5
(RO)+
RS
9s

:100 WORDS OF ZEROS

MOV
MoV

R;YNC.(RO)O
#70..R5

sSYNC = 14400

CLR

6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 10-%7

SEQ 0074

00 00 00 0o 02 00 0o 0o 0O
000

RJHEO RPO&/S/
SECTOR SELECTION
-

~
»

pury

012720
005305
374

§§10:

000000

e I

3RIZIRERES 8 BIRGR
QR

)

1 017404

MoV
DEC
BNE

sSECTOR TO VARY

#0, (RO) +
R5
$S10

;CLEAR REST OF 256 WORDS THAT IS 54 WORDS OF ZEROS
118:

MoV
CLR
DEC
BNE

#54. RS
+
(RO)
R5
118

012737

010000

042046

OO0OO0O000O0

;THESE ARE TO BE SET UP FOR DISKLESS USE ONLY

2737

000000

042050

004537

MOV

#FMT22,WCYL

:FORMAT = 16 BIT WORDS

$S12:

MOV

#0,WSECTR

*SECTOR TO VARY

$S14:

MOV

#21. JWKEY2

$S13:

033270

MOV
MoV
JSR

WeYL

#21. ,WKEY1

*CYLINDER = 0

xsv1 TO VARY

EY2 TO VARY

#202. ,FNWORD
202 DATA WORDS
RS, CRC cALCULAiE CRC
FIRST WORD

GCRC

*PUT HERE

sTHESE ARE REGULAR SETUPS
2777

177400

3777

001454

MOV

#-256. ,aRHWC

MoV
MoV

#0,3RHDST
WRIFOR,3RHCS1

010000
161514

MOV
CLR

#FMT22,aRHOF
aRHCA

017536

001406

CLR

ERFLGS

017542
017546

032116
053407

JSR
TYPE

PC,CHECKT
.CPHALT

017552
017554

041672

032306
053407

b b
—

$§15:

MOV

#WRFROM,aRHBA

032756

JSR

PC, COMWHD

TST

ERFLGS

JSR

PC,CHECKE

BNE

TYPE

HALT

TST53

.CPHALT

;202 DATA, & HEADER
sFILL BUS ADDRESS
;SECTOR TO VARY
:GET_READY TO DO

:WRITE HEALER AND DATA

:WITH 62 FUNCTION CODE IN RHCS1

216 BITS PER WORD FORMA
:CYLINDER
= 0

;CLEAR ERROR FLAG

HALT

001406

(elelelelel)

oo PORIPONIND
= b md b cd o d e wd d
NO\w S UNWN=O VRNV
WNN=O

PRROC0oD

nNoSVRY %

0000000
WWWWNN
RURZEE®

e e S

NO 0 0 0 0 0 O VOV VOOV OVOVOVOVOO

e R

000066

sCHECK THAT DVA_RDY,DPR,DRY
= 1
:AND THAT NO OTHERS = 1.
CANNOT
sTINUE TESTING IF BQTH AREN'T TRUE
:STOP THE TEST

ISSUE 'GO', COUNT SECTOR CLOCKS,
WRITE HEADER AND D
;HAVE ANY ERRORS OCCURRED
?

SEXIT IF YES

sCHECK THAT BITS =1

s CANNOT CONTINUE TESTING IF THEY DON'T
:STOP THE TEST

;NOW COMPARE 'DISK'’ BUFFER WITH "REINTO'* BUFFER
JSR
RO, COMPA
s CHECK

URFROH*S.
DISK

:GOOD BUFFER
:TEST BUFFER

16%
178

:RETURN POINT FOR ERROR HEADER
:RETURN POINT FOR ERROR DATA

256.

)

:NUMBER OF WORDS

K 6
CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-38

152

SEQ@ 0075

SECTOR SELECTION

1943 017616
1944 017620

017620

1945 017622
1946 017624
017624
1947 017626
1948
1949
1950
1951
1952 017630
1953 017634
1954 017640
1955 017644
1956 017650
1957 017654

017630

18%

16%:

104007
000207

EMT
RTS

17%:

104010

EMT

000207

RTS

sRETURN FOR GOOD COMPARISON
7

sTHE FOLLOWING "NCREMENTS ARE TO CHANGE THE ABOVE SET UP
sTO WRITE ON Thce NEXT SECTOR
18$:

1958 017660
1959 017664
1960 017670
1961
1962 017674
1963 017700
1964 017702
1965 017704
1966
1973

017236

INC

ss2:

DEC

1$:

JMP

SRR

§S3+2
$S4+2
$S5+2
S§S7+2
$510+2
§$S12+2
$S13+42
S$S14+2
§S15+2
TAGDTE
18

TST53
$S1

sHEADER (SECTOR)
sHEADER (KEY1)
sHEADER (KEY2)
:DATA (SECTOR)

:DATA
sSECTOR (SIMULATED DISK)
sKEY1 (SIMULATED DISK)

:KEY2 (SIMULATED DISK)
:SECTOR (RHDST)

;COUNT DOWN FULr 22 SECTORS
sBRANCH IF 22 SECTORS NOT DONE
sALL DONE = GO TO NEXT TEST
;G0 BACK TO NEXT SECTOR

AR AR A AR AR A AR AN AR AR AR

s*TEST 53

AR AR AR A RA AR AR

AR AR

AR AR AR

WRITE ECC TEST 1

s*THIS IS A WRITE ECC TEST
s*WRITE CYLINDERO, FORMAT 16 BITS PER WORD

:*TRACK 0, SECTOR 1, KEYS O, NUMBER OF WORDS 256

s*0F ALL ZEROS.
SRR

TST53:

O
OCO0O0

g
Vo~

2383823

000053
040530
000402
177777

882

28IIJoN
VSN
-

D and

OO0

D e
D
)
b

)

OVOOO

e
D

D
b e
d
e e
b e
—

001100

AR R AR AR AR AR

003610
18:

032054

SCOPE

AR AR AR

AR AR

AR AR AR AR AR AR AR

MOV

#STACK,
SP

sRESET STACK

MOV
MOV

#53,TSTNM
#SECGAP,RO

;MOVE #53 TO TEST NUMBER

#-1,(RO)+

sPOINTER
sCOUNTER
sFILL SIMULATER DISK WITH ONES

PC,CLDISK

sTHIS IS USED TO SET GENERAL REGISTERS

MOV

#258. ,Ri

DEC
BNE

R1
18

MOV
JSR

:THESE ARE FOR ECC TEST ONLY
001424

034566
034600

MOV
CLR

#-1,TSECC
POSITI
:CLEAR

MOV

HARDER
, HAD TMP

MOV

CLR
CLR
CLR
CLR

NCODE ,NCOUNT
GECCT

GECC2

DATENV
ZCODE

;THIS IS AN ECC TEST

ERROR POSITION COUNTER

: TEMPORARY N~CODE COUNTER
:TEMPORARY HARD ERROR COUNTER
sECC LOW ORDER TO BE GENERATED
: ECC HIGH ORDER TO BE GENERATED

;CLEAR DATA ENVELOPE CL OCK COUNT
:CLEAR LEADING ZEROS CLOCK COUNT

SEQ@ 0076

WRITE ECC TEST
1

1997
1998

1999

2000 020016
2001
2002 020024
2003 020032
2004 0200
2005 02004
2006 020050
2007 020054
2008 020056
2009
2010
2011
2012 020060
2013 020066
2012 020072

;THESE ARE TO BE SETUP FOR DISKLESS USE ONLY
012737

010000

012737
005037

033270

042046

MOV

#FMT22 ,WCYL

0420590

MOV
CLR

042106

MOV
JSR

TRACKOO SECTOR=1
#1,WSECTR
E
Y1
EY2
EY2=0
lZSb..FNHO D
256 DATA WORDS
R5,CRC ;GO TO CALCULATE CRC

wCYL

042056

GCRC

;THESE ARE REGULAR SETUPS
012777

177374
001500
161136

2019 020076

010000

2018 020102
9
020106

000001

2024 020124
2025 020126
2026
2027 020134
020140

2034 020170
20352036
2037
2038
2039
2040
2041
2042 020174
2043
2044 020200
2045
2046
2047
2048
2049 020202
2050 020210

000001

3s:

032116
053407

;256 DATA WORDS 4 HEADER WORDS

MoV

#FMT22,(RO)+

;ADDR. OF WRFROM INTO RO AND
:BUS ADDRESS REGISTER
;FORMAT=16 BIT WORDS

MOV

#1,(RO)+

:TRACK=0, SECTOR=1, KEYS=0

CLR
MOV

(RO)+
#256. RS

DEC

RS
3s

MoV
Mov

28:

161110

#-260. ,aRHWC

MoV

161144

000400
000000

020144
2028
2029 020146
2030
2031 020152

CLR

FORHATZZ-16BIT WORDS AND
:CYLINDER
0

CLR

(RO)+

: COUNTER
:MOVE ALL ZEROS FOR DATA

BNE
MOV

#1,3RHDST

;BRANCH IF DATA NOT COMPLETE
:TRACK=0 SECTOR=1

JSR

PC, CHECKT
.CPHALT

sCHECK THAT DVA,RDY,DPR,DRY = 1
sAND THAT NO OTHERS = 1.
CANNOT CONsTINUE TESTING IF BOTH AREN'T TRUE
:STOP THE TEST

001454

MOV

WRIFOR,aR1

001406

CLR
MOV
CLR
JSR

ERFLGS
CLEAR
#FMT22
, aRHOF
aRHCA
PC, COMWHD

041672

: CYLINDER=0

:KEY1=0
:KEY2=0

HALT

161064

sTHESE TWO INSTRUCTIONS GETS

#0, (RO)+

MOV

TYPE

000000

#WRFROM,RO
RO,3RHBA

sGET READY FCR WRITE HEADER AND

:DATA WITH 62 IN RHCS1

Eknon FLAG

FORMAT BIT=1
:CYLINDER =0

(16 BIT WORDS)

:WRITE HEADCZR AND DATA

;IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
:FROM THE
"‘COMWHD'* ROUTINE THAT MEANS ALL HEADER ON DISK
21S GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE

:ALL ZEROS AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF

sTHEY ARE ALL ZEROS

005737

001406

001056

TST

ERFLGS

BNE

TST54

sHAS ANY ERRORS OCCURED?

sIF WRITE ERROR OCCURS ECC IS NOT CHECKED
: :BRANCH IF YES

; COMPARE SOF TWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE
023737
001402

034556

041626

g?:

gECC1.HECC1:COHPARE SOF TWARE ECC WITH HARDWARE FCC

;BRANCH IF GOOD

—d £

RJHEO RP04/5/6 DSKLS PTZ MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-&9

153

SEQ@ 0077

WRITE ECC TEST

104031
0

034560

041630

6%:

104031

2057
2058 020230
020230
020234
020240

004737
104401
000000

7%:

032306
053407

EMT
BR
cMP
BEQ
EMT

31
7$
sBRANCH TO CONTINUE
GECC2,WECC2; COHPARE SOFTWARE ECC WITH HARDWARE ECC
’$
;BRANCH IF GOOD
31

JSR
TYPE

PC,CHECKE
JCPHALT

HALT

;CHECK THAT BITS =1
sCANNOT CONTINUE TESTING IF THEY DON'T

;STOP THE TEST

sFILL "REINTO'" BUFFER WITH EXPECTED DATA
2064 020242
2065 020246
2066 0<0250
2067 020252
2068
2069 020254
2070 020262
2071 020270
2072 020274
2073 020276
2074 020300
2075
2
207; 020302

004037

013737

031772

034556

034560
031772

003544

003546

RO,CLAREA

.WORD

REINTO+<255.+2> ;TC
0
:DATA

MOV

GECC1,REINTO+<256.%2>:FILL ECC1

JSR

RO CLAR

HOV

REINTO

REINTO+<272.%2>
0
001406

CLR

sFILL REINTO BUFFER
sFROM

GECC2,RElNTO*<257 *2> FILL ECC2

REINTO+<258. %2>

000000

005037

JSR

ERFLGS

JFILL REST

*FROM
:T0
:DATA

;CLEAR ERROR FLAG

;NOW COMPARE 'DISK'' BUFFER WITH 'REINTO'
032756

2082 020306
2083 020312
314
2084
2085 020316
2086
020320

2089 020326
0326
020330
2090
2091 020332
020332
2092
2093
2094
2095
2096
2097
2098
2099 020334
2100
2109

JSR

REINTO

RO, COMPAR

DISK

104007
000207
104010

:TEST BUFFER

258.
4$
58
TSTS4

RTS

EMT

s CHECK

GOOD BUFFER

:NUMBER OF WORDS CHECKED
RETURN POINT FOR ERROR HEADER
:RETURN POINT FOR ERROR DATA
:RETURN FOR GOOD COMPARISON
7

:RETURN TO COMPARE

:DATA WORDS

SWORD NOS 357
AND 258

SAREECC WHICHARECHECKED

:WORD NOS 259
1S DATA GAP
:WORD NOS 260 TO 273
000207

RTS

:ARE TOLERANCE GAP
:RETURN TO COMPARE

tttt..ttttfiltttttt'tt"t'tlttt.ttttttfit.t.t...tt'.'.ll"'t.t.'l

LATEST 54

READ ECC ENABLED 1A

—d

CZRJHEO RPO4/5/6 DSKLS PTZ MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-40

ey et
ol

C RJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
T “
READ ECC ENABLED 1A

N 6
16:37:12 PAGE 10-41

SEQ 0078 i

s*THIS IS AN ECC READ DATA TEST
;*ERROR CORRECTION IS ENABLED
:*NO ERROR IS INSERTED
:*GOOD DATA USED IS 256 WORDS OF 0
s*COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
s*TRACK 0, SECTOR O KEYS 0 READ HEADER AND DATA
WN=O

020540

2158 020542

MOV

1$:

035352

iidii

ittt

#STACK, SP

#54,TSTNM

ittt

diiiiis]]

;RESET STACK

*MOVE #54 TO TEST NUMBER

#0,~(SP)

:DATA TO BE READ

MOV
MOV

#DISK RO
(SP), (RO)+

*START OF SIMULATED DISK DATA
*MOVE IN DATA ON TO SIMULATED DISK

DEC
BNE

000017
5
75
0013

MOV

mov.

28:

SETUP FOR WHAT IS TO BE READ
HEADER CRC IS RESTORED FROM A SUBROUTINE

#256..RS

:COUNTER

RS
1$

*COUNT
*BRANCH IF 256 NOT COMPLETE

CMP
MOV

(RO)+, (RO) +
#15. RS

:JUMP OVER THE TWO ECC WORDS
*1 DATA GAP

CLR
DEC
BNE

(RO)+
RS
28

JSR

PC,FILLEC

(SP)+

*UNDO =(SP)

114 TOLERANCE GAP
:CLEAR DATA GAP, AND

:TOLERANCE GAP
:BRANCH IF NOT COMPLETE
;INSERT THE TWO ECC WORDS ON THE DISK

:IN THE CORRECT PLACE

~
W
~

177777

001424

034566
034600

puurt

8888228
wvivnunwnwiiwewnn

;THESE ARE FOR ECC TEST ONLY

034576

’

MoV
CLR
MoV
MoV

#-1,TSECC
:THIS IS AN ECC TEST
POSITI
;CLEAR ERROR POSITION COUNTER
NCODE ,NCOUNT
;TEMPORARY N-CODE COUNTER
HARDER ,HADTMP ; TEMPORARY HARD ERROR COUNTER

CLR
CLR

DATENV
ZCODE

CLR
CLR

GECCT
GECC2

sECC LOW ORDER TO BE GENERATED
sECC HIGH ORDER TO BE GENERATED

;CLEAR DATA ENVELOPE CLOCK COUNT
sCLEAR LEADING ZEROS CLOCK COUNT

et e
—

B ek

;THESE ARE TO SETUP FOR DISKLESS USE ONLY

OO0 ——
R
ERe
wvrororONON
&
NN

157

SCOPE

MOV

003610

000000
000400
040626

2127 020406
2128 020410
2129
2130
2131 020412
2132
2133
2134
2135
2136 020416
2137 020424
2138 020430
2139 020436
2140 020444
2141 020450
2142 020454
2143 020460
2144
2145
2146
2147
2148 020464
2149
2150 02047
2151 0205
215; 020506
2153 020514
2154 020522
2155 0205
5159 020534

001100
000054

A2 22222

;
;

000004

SWNN=O

VRNV

211
21
211
2n
21
211
2116 020352
2n
211
030362
0
r4)
2120 020370
2121 020372
2122 020374
2123 020376
2124 020400
2125
2126 020404

7S154:

010000

036710

MOV

#FMT22,CYL

000000
000000
000000

036713

MOVB
MOVBE
MOV
MOV

#0,SECOTR+1
*TRACK 0
#0.SECOTR
*SECTOR 0
#0.KEY1 :KEY1=0
lg KEY2 :KEY2=0

CLR
éif

X
R5.CRC

000000
000400

038250

MOV

:16 BITS PER WORD

*CYLINDER O, FORMAT 16 BITS

#256. ,DAWORD ;NO. OF DATA WORDS

:THIS IS A READ COMMAND
;GO TO CALCULATE CRC

;

—

———

8.7
CZRJHED RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV=-81 16:37:12 PAGE 10-42
154

SEQ 0079

READ ECC ENABLED
1

2159
2160
2161
2162
5}22

;THESE ARE REGULAR SETUPS

2165 020544

004737

032054

2167 020556

012777

002544

JSR

gLDISK

:SETUP GENERAL REGISTERS

MOV

pnsxnro SRHBA

:STARTING ADDRESS OF READ BUFFER

*ECC CORRECTION NOT INHIBIT
:BECAUSE ECC IS NOT GOING
:T0 BE CHECKED
:CYLINDER 0

2166 020550 012777 177374 160454

MOV

2168 020564
112746 000000
2169 020570 112766 000000 000001
2170 020576 012677 160442
2171 020602 012777 010000 160440

MOVB
MOVB
MOV
MOV

160450

#-256.<4., ,aRHWC :256. DATA 4 HEADER WORDS
,=(SP}
co 1(SP)
(SP)+,@RHDST
NFMT22,3RHOF

:IN LOWER BYTE GET SECTOR
*GET TRACK IN HIGHER BYTE
:TRACK/SECTOR IN RHDST
:16 BITS PER WORD

160436

CLR

aRHCA

2177 020614
020620

004737
104401

032116
053407

JSR
TYPE

PC,CHECKT
,CPHALT

020624

000000

;CHECK THAT DVA,RDY,DPR,DRY = 1
JAND THAT NO OTHERS = 1.
CANNOT CONSTINUE TESTING IF BOTH AREN'T TRUE
:STOP THE TEST

020626

013711

001460

MoV

REFOR,a3R1

:READ HEADER AND DATA=72

020636

004737

036550

JSR

PC,COMND

JREAD HEADER AND DATA
:IF THERE ARE READ ERRORS THEN
:ECC WILL NOT BE CHECKED

020632

005037

HALT

001406

CLR

ERFLGS

:CLEAR ERROR FLAG

SRR

ARARNZIE I

005077

NINININININININ
NN NN NN NN NN NN NN

2172
2173
2174
%};g 020610

e e

S8R LRV RIS BRI

:1F_THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
*FROM THE ''COMMDTM ROUTINE THAT MEANS SECTOR GAP,
*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND

e e e e

:g;@gcggze HAVE GONE BY AND SYNCS WERE CORRECTLY

*HEADER AND DATA ARE TO BE CHECKED.

:IN CHECKING READ DATA THE WRITE FROM BUFFER
*"\RFROM'* IS FILLED WITH EXPECTED DATA AND
*COMPARISONS ARE MADE

005737
001102
737

2201 020662
2202

104032

2205 020664
2206 020670
2207 020674

013746
042716
022637

A R

020642
020646
020650

2208 020700
2209 020702

001401
104032

001406
031554

034556
174000
001346

6$:

TST
BNE
JSR

ERFLGS ;ANY ERRORS ALREADY THERE
TST55
sBRANCH IF YES
PC,.PUTREG
SAVE REGISTERS

EMT

MOV
BIC
CMP

GECC1,-(SP)
#174000, (SP)
(SP)+,EC2

BEQ
EMT

7$
32

ONLY 11 OF THE 32 BXTS CAN BE SEEN

GET PATTERN REGISTER
;KEEP ONLY 11 BITS
: COMPARE PATTERN REGISTER
:BRANCH IF GOOD

2213

%%14

*BRING EBL DOWN

2217 020704
2218 020710
2219 020716
2220 020724
2221 020726
2222 020730

012700
052777
042777
005300
001370
004737

020740
2223 020742
2225 020752

20734

032306

MOV
BIS
BIC
DEC
BNE
JSR

000000
012700

001500

HALT
MOV

112746

000000

MOVB

104401

000020
000002
000002

160342
160334

$:
as:

053407

TYPE

2224 020746 012720 010000

2226 020756
2227 020764
2228 020766
2229 020772
2230 020776
2231 021002

112766
012620
012720
012720
012701
012702

2232 021006
2233 021010

010220
005301

2236
2237 021014
gggg 021020

005037
004737

000000
000000
000000
000400
000000

000001

3$:

gggg 021012 001375

001406
031554

2240
2241

%gzg

#16. R0
#MCLK,SRHMR
#MCLK. RHMR
RO
8s
PC.CHECKE

; COUNTER
*SET CLOCK
:CLEAR CLOCK
+ COUNT
*BRANCH IF 16 CLOCKS NOT DONE
*CHECK THAT
BITS
= 1

,CPHALT

*CANNOT CONTINUE TESTING IF THEY DON'T
:STOP THE TEST
*GETTING READY TO FILL EXPECTED DATA

MOV

no'rnrzé (n0)+ *CYLINDER 0

MOVB
MOV
MOV
MOV
MOV
MOV

#0. 1<sp>
(SP)+, (RO)+
#0, (RO)+
#0° (RO)+
#256. ,R1
#0,R2"

MOV
DEC

#0.-

*IN LOWER BYTE GET SECTOR

az (RO) +

*DATA INTO BUFFER
* COUNT

*GET TRACK IN HIGHER BYTE
*GET TRACK/SECTOR IN BUFFER
*KEY1 IN BUFFER
*KEY2 IN BUFFER
*DATA WORD COUNTER
*DATA

BNE

*BRANCH IF 256 NOT DONE

CLR
JSR

eanss :CLEAR ERROR FLAG
PC,PUTREG
;SAVE REGISTERS

;NOW READ DATA BUFFER WILL BE CHECKED

2244 021024
2245 021030
2246 021032
2247 021034
2248 021036
2249 021040
2250 021042
2251 021044

004037
001500
002544
000404
021044
021050
021054

2252 031046 000007
021050
021050

104005

gggg 021052

000207

55?3

SEQ 0080

;ADD 16 MAINTENANCE CLOCKS TO

zz}g

2253

032756

48:
5$:

JSR
WRFROM
REINTO
44256,
48
5$
1ST55

RO, COMPAR

: CHECK
:GOOD BUFFER
:TEST BUFFER
*NUMBER OF WORDS CHECKED
*RETURN POINT FOR ERROR HEADER
*RETURN POINT FOR ERROR DATA
*RETURN FOR GOOD COMPARISON

RIS

RETURN TO '‘COMPAR'’

EMT

RTS

?5?355630233 DATA WORDS
*RETURN TO ''COMPAR

tttttttttttt.tttttttt't'tttttttt.tlttt.ttttttt't.tttttttttttttt

S4TEST 55

READ ECC ENABLED 18

:*THIS 1S AN ECC READ DATA TEST

:*ERROR CORRECTION IS ENABLED
;A CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32

:*GOOD DATA USED IS 256 WORDS OF 0

:*COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD

;*TRACK 0, SECTOR 0 KEYS

READ HEADER AND DATA

—

CZRJHEO
RPO4/5/6
DSKLS PTZ1 HACRO V04.00 17-NOV-81 16:37:12 PAGE 10-43
154
READ ECC ENABLED

0 7
CZRJHEDO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-44
155

SEQ 0081

READ ECC ENABLED 1B

021054

000004

SRR

%%gg 021056

012706

001100

5598 021062

012737

000055

ARR AR AR

TS155:
003610

22
2272

SCOPE

AR AR AR

RAAAR AR AR AR AR AR ARy

MOV

#STACK, SP

;RESET STACK

MOV

#55,TSTNM

;MOVE #55 TO TEST NUMBER

;SETUP FOR WHAT IS TO BE READ

5373

*HEADER CRC IS RESTORED FROM A SUBROUTINE

2275 021070

012746

000000

MOV

#0,=(SP)

2277 021100
2278 021104
2279 021106
2280 021110
2281 021112
2282 021114
2283 021116
2284
2285 021122
2286 021124
gggg 021126

012700
011620
005305
001375
005726
022020
012705

040626

MOV
MOV
DEC
BNE
ST
CMP
MOV
CLR
DEC
BNE

#DISK.RO
*START OF SIMULATED DISK DATA
(SP),(RO)+
JMOVE IN DATA ON TO SIMULATED DISK
RS
: COUNT
1%
*BRANCH IF 256 NOT COMPLETE
(SP)+
*UNDO =(SP)
(RO)+, (RO)+
*JUMP OVER THE TWO ECC WORDS
#15.,RS ;1 DATA GAP
:14 TOLERANCE GAP
(RO) +
SCLEAR DATA GAP, AND
RS
:TOLERANCE GAP
28
*BRANCH IF NOT COMPLETE

JSR

PC,FILLEC

2276 021074

2289
%%3‘1’ 021130

012705

000400

MOV

1$:

000017

005020
005305
001375
004737

28:

035352

2292
2293
%ggg

*COUNTER

s INSERT ECC IN PROPER PLACE ON DISK

:THESE ARE FOR ECC TEST ONLY

2296 021134

012737

2298 021146
2299 0211564
2300 021162
2301 021166
2302 021172
%ggz 021176

013737
013737
005037
005037
005037
005037

2297 021142

:DATA TO BE READ

#256. RS

005037

177777

001424

MOV

#-1,TSECC

034564
034572
034556
034560
034574
034576

034566
034600

MOV
MOV
CLR
CLR
CLR
CLR

NCODE ,NCOUNT ; TEMPORARY N-CODE COUNTER
HARDER,HADTMP °; TEMPORARY HARD ZRROR COUNTER
GECCT
;ECC LOW ORDER TO BE GENERATED
GECC2
*ECC HIGH ORDER TO BE GENERATED
DATENV :CLEAR DATA ENVELOPE CLOCK COUNT
ZCODE
:CLEAR LEADING ZEROS CLOCK COUNT

034570

2305
%ggg

CLR

POSITI

:THIS IS AN ECC TEST

;CLEAR ERROR POSITION COUNTER

;THESE ARE TO SETUP FOR DISKLESS USE ONLY

2308 021202 012737 010000 036710

MOV

#FMT22,CYL

2310 021210
2311 021216
231§ 021226
2313 021232

112737
112737
012737
015737

MOVB
MOVEB
MOV
MOV

#0,SECOTR+1
STRACK 0
#0.SECOTR
*SECTOR 0
#0.KEY1 :x£v1=8
#0 KEY2 :KEY2=

2317 021256
2;}3 021260

036710
040610

2309

2314 021240

Sszo

2321

012737

000000
000000
000000

000400

036713
036712
036714
036716

036770

MOV

;16 BITS PER WORD

SCYLINDER O, FORMAT 16 BITS

#256. .DAWORD ;NO. OF DATA WORDS

cYL
WCRC
;THIS IS TO INSERT ERROR

E 7
% gJHEO RP04/5/6 DSKLS PTZ MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-45

SEQ@ 0082

READ ECC ENABLED

232%
232
2324
2325
2326 021262
2327
2328
2329 021270
2330
2331
2332
2333
2334 021276
2335 021302
2336 021310
2337 021316
2338 021322
2339 021330
2340 021334
2341
2342
2343
2344 021342
2346 021346
021352

sTHE DISK DATA IS IN LOCATION STARTING FROM 'DISK'

}zgngSIEION OF THE ERROR CAN BE CHANGED BY CHANGING
012737

100000

040630

MoV

#100000,DISk+2 ;FORCE ERROR ON BIT NUMBER 32
:S0 ERROR POSITION REGISTER WILL SHOW

012737

000026

021444

MOV

#22.,8% ;INSERT POSITION REG.

sTHESE ARE REGULAR SETUPS

004737
012777
012777
112746
112766
012677
012777

032054
177374
002544
000000
000000
157710
010000

005077

004737
104401

MOV
MOV
MOVB
MOVB
MOV
MOV

JSR

#-256.~4. ,aRHWC :256.DATA 4 HEADER WORDS
#QEINTO aRHBA
STARTING ADDRESS OF READ BUFFER
0,-(SP}
*IN LOWER BYTE GET SECTOR
wo 1(SP)
*GET TRACK IN HIGHER BYTE
(SP)+,@RNDST
:TRACK/SECTOR IN RHDST
#FMT25,3RHOF
:16 BITS PER WORD

PC,CLDISK

;SETUP GENERAL REGISTERS

157704

CLR

aRHCA

*ECC CORRECTION NOT INMIBIT
*BECAUSE ECC IS NOT GOING
:T0 BE CHECKED
*CYLINDER 0

032116
053407

JSR

PC,CHECKT

:CHECK THAT DVA,RDY,DPR,DRY
= 1

157722
157716

000001
157706

TYPE

,CPHALT

*AND THAT NO OTHERS = 1.

HALT

:STOP THE TEST

MOV

REFOR,aR1

:READ HEADER AND DATA=72

JSR

PC, COMHD

:READ HEADER AND DATA

CLR

cnuno CON-

*TINUE TESTING IF BOTH AREN'T TRUE

ERFLGS

;CLEAR ERROR FLAG

:IF THERE ARE READ ERRORS THEN
sECC WILL NOT BE CHECKED

:1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
:FROM THE ‘‘COMMDTM ROUTINE THAT MEANS SECTOR GAP,
:FIRST SYNC, HEADER,
HEADER CRC,
HEADER GAP AND

gggg BE;E HAVE GONE BY AND SYNCS WERE CORRECTLY
: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

1
2365 021374
2366 021400
367 021402
368 021406
2369 021414
370 021416
371
37
537
374
2375 021420

005737
001077
004737
022737
001401
104032

001406
031554
100000

TST
BNE

JSR
CMP
gsg

001316

ERF%GS

s ANY ERRORS A%RE?DY EHERE
YES

PC.PUTREG
poéx.en1
gz

*SAVE REGISTERS
SONLY DATA CHECK ERROR SHOULD BE SET
:BRANCH IF YES

:ONLY 11 OF THE 32
BITS CAN BE SEEN

:IN THE PATERN REGISTER
013746

034556

6$:

MoV

GECC1,-(SP)

:DCK SHOULD BE SET IN RHER1

:GET PATTERN REGISTER

CZRJHEO RPO4/5/6 DSKLS PTZ MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-46
5
READ ECC ENABLED

Ufl

2 7

%3
4 02563 001346
378 021434
174000

CMP
BEQ

#174000, (SP)

EMT

(SP)+,EC2
78
32

;KEEP ONLY 11 BITS
+COMPARE PATTERN REGISTER
sBRANCH IF GOOD

JSR
22.

RO,ECORR

:GO TO ECC CORRECTION PROCESS
sEXPECTED POSITION REG. WHEN CORRECTION
:1S COMPLETE

sCHECK THAT BITS = 1
;CANNOT CONTINUE TESTING IF THEY DON'T
;STOP THE TEST

104032

2381 021440
2382 021444
2383
2384
2385
2386
2387 021446

004037
000026

035200

004737

osgsos

JSR

PC, CHECKE

2388 021460

012700

001500

MOV

#WRFROM

2390 021470

112746

000000

MOV

MOVB

MOVB
MOV
MOV
MOV
MOV

#0.-(SP)

#0.1(SP)
(SP)+, (RO)+
#0, (RO)+
#0° (RO)+
#256. .R1

MOV

nz (RO)+

85}45

021

104401

053407

th;

012720 010000

2391 0214764 112766 000000 000001
2392 021502 012620
2393 021506 012720
2394 021510 012720
2395 021514 012701 000400
96 021520

012702

2398 021526
5233 021530

005301
001375

2397 0215264

2401
2402
5232 021532

2405
2406

2407 021540
5283 021544

010220

000000

012737

100000

005037
004737

001406
031554

2610

52}5

004037

2615 021556

002544

2617 031562

021570

2614 021554 001500
2416 021560
2418 021564
2619 021566
2420 021570

DEC
'BNE

ao'rnrzé <ao>+

#0,R2

:GETTING READY TO FILL EXPECTED DATA
:CYLINDER 0
:IN LOWER BYTE GET SECTOR
sGET TRACK IN HIGHER BYTE
:GET TRACK/SECTOR IN BUFFER

:KEY1 IN BUFFER
:KEY2 IN BUFFER

:DATA WORD COUNTER
:DATA
:DATA_INTO BUFFER
: COUNT

:BRANCH IF 256 NOT DONE

;ONLY GOOD DATA HAS BEEN PUT IN 'HRFROH
NOH THE INSERTED ERROR WILL BE PUT
MOV
#100000, unraono<5a2>
s INSERTED ERROR

CLR
JSR

032756

JSR

WRFROM

ERFLGS :CLEAR ERROR FLAG
PC,PUTREG
:SAVE REGISTERS

021574
021600

021574

104005

§4zs 021576

000207

RO, COMPAR

REINTO

000404

2621
3532;3 53338?
2422 021574
4

001512

MOV

,CPHALT

:NOW READ DATA BUFFER WILL BE CHECKED

2413 021550

5252

3s:

SEQ 0083

BIC

gg;g 021436

78:
8s:

*NUMBER OF WORDS CHECKED

58:

;5053 BUFFER
:TEST BUFFER

4+256.
48:

:CHECK

*RETURN POINT FOR ERROR HEADER

5
TSTS6

*RETURN POINT FOR ERROR DATA
*RETURN FOR GOOD COMPARISON

5?§

EMT

RTS

RETURN TO '‘COMPAR''

?E?g
260Agg DATA, WORDS
*RETURN TO '‘COMPAR

tttttttttttttttttttt'tttt'tt.tttttt'tttttttttttt't"tttttlttttt

~resr 56

READ ECC ENABLED 1C

RJHEO RP04/5/6 DSKLS PTZ HACRO v04.00 17-NOV-81 16 37:12 PAGE 10-47

SEQ 0084

READ ECC ENABLED

s*THIS IS AN ECC READ DATA TEST

:*ERROR CORRECTION IS ENABLED
:*A NON CORRECTABLE

ERROR lS INSERTED IN BIT POSITION 21 THRU 32

:*GOOD DATA USED IS 256 WORDS OF 0

:*COMMAND IS GIVEN FOR CVLINDER 0 FORMAT 16 BITS PER WORD
;*TRACK 0, SECTOR O KEYS 0
A

001100
000056

t4756:

ARt

SCOPE

MOV

003610

READ HEADER AND DATA

daiaddidii i

#STACK, SP

it ddidiiiddiiisdiiddsd]

;RESET STACK

#56,TSTNM

*MOVE #56 TO TEST NUMBER

SETUP FOR WHAT IS TO BE READ
HEADER CRC IS RESTORED FROM A SUBROUTINE

%420 021642

000000
000400
040626

18:

2832282
= N =2 NN
o
N
NI

2443 021620

012705

#0,=(SP)

DEC
BNE
ST
CMP

RS
18
(SP)+
(RO)+, (RO) +

MOV
MOV
MOV

MOV

000017

2452 021646
2453 021650
5454 021652

28:

2
2457 021654

MOV

035352

:DATA TO BE READ

#256. RS
#DISK.RO
(SP), (RO)+

*COUNTER
*START OF SIMULATED DISK DATA
*MOVE IN DATA ON TO SIMULATED DISK

#15. RS

:1 DATA GAP
:14 TOLERANCE GAP

CLR
DEC
BNE

(RO) +
RS
2

JSR

PC.FILLEC

+COUNT
:BRANCH IF 256 NOT COMPLETE
*UNDO
=(SP)
:JUMP OVER THE TWO ECC WORDS
*CLEAR DATA GAP. AND
*TOLERANCE
GAP
*BRANCH IF NOT COMPLETE

:INSERT THE TWO ECC WORDS ON THE DISK

*IN THE CORRECT PLACE

:THESE ARE FOR ECC TEST ONLY
177777

001424

MOV

#-1,TSECC

034566
034600

MOV
MOV

NCODE ,NCOUNT
; TEMPORARY N~-CODE COUNTER
HARDER,HADTMP ' ;TEMPORARY HARD ERROR COUNTER

CLR
CLR

DATENV
ZCODE

2467 021712
2468 021716
2469 021722

GECCT
GECC2

:THIS IS AN ECC TEST

:CLEAR ERROR POSITION COUNTER

:ECC LOW ORDER TO BE GENERATED
*ECC HIGH ORDER TO BE GENERATED

:CLEAR DATA ENVELOPE CLOCK COUNT
:CLEAR LEADING ZEROS CLOCK COUNT

sTHESE ARE TO SETUP FOR DISKLESS USE ONLY
010000

036710

MoV

#FMT22,CYL

:16 BITS PER WORD

000000
000000
000000
000000
000400
036720
033270

036713

MovBs
MOVB

#0,SECOTR+1
#0.SECOTR

*SECTOR 0

CLR

gU
b
—

036770

MOV
MOV
MOV
gef

#0 KEY1 ;KEY1=
#0 KEY2 :KEY2=
#256. ,DAWORD
R5.CRC

sCYLINDER O, FORMAT 16 BITS
TRACK 0

OONNNNNNN

N NN NN

012737

SETIRIRN

2484 022004

CLR
CLR

POSITI

gy:€§<>cnat>-a-n
© = =bk
b

2
2474 021726
2475
2476 021734

CLR

no OF DATA WORDS

THISIS A READ COMMAND

;GO TO CALCULATE CRC

H 7
C%RJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-48
156

SEQ@ 0085

READ ECC ENABLED 1C

2485
2486
2487
2488
%233

:THIS IS TO INSERT ERROR
STHE DISK DATA IS IN LOCATION STARTING FROM *DISK’

;;ugspggeglou OF THE ERROR CAN BE CHANGED BY CHANGING

2491 022006
%23%

012737

177760

040630

MOV

#177760,D1SK+2

:FORCE ERROR ON BIT NUMBER 21 THRU 32
:S0 ERROR POSITION REGISTER WILL SHOW

gzgg 022014 012737 010040 022170

MOV

#4128. .88

+INSERT POSITION REG.

2496

%23;

;THESE ARE REGULAR SETUPS

2499 022022

004737

032054

2501 022034

012777

002544

2503 022046
2504 022054

112766
012677

000000
157164

2500 022026 012777
2502 022042

022060

2506
2507
2508
2509 022066
2510 022072
022076
NININININI
NI NI NIND = b b b d d b e b

NINININNINININININN
NN NN
NN NN N NN NN NN

112746

012777

005077
004737
104401

177374

000000

010000

157176

JSR

PC,CLDISK

;SETUP GENERAL REGISTERS

MOV

#REINTO,3RHBA

:STARTING ADDRESS OF READ BUFFER

#0.1(SP)
(SP)+,@aRHDST

*GET TRACK IN HIGHER BYTE
:TRACK/SECTOR IN RHDST

MOV

157172

MOVB

000001

MOVB
MOV

157162

MOV

#FMT22,3RHOF

CLR
JSR
TYPE

aRHCA
PC, CHECKT
,CPHALT
REFOR,aR1

PC, COMHD

000000
013711

001460

HALT
MOV

022114

004737

036550

JSR

005037

#0,-(SP)

157160
032116
053407

022102
022106

022110

#-256.-4. ,aRHWC :256. DATA 4 HEADER WORDS

001406

CLR

ERFLGS

:16 BITS PER WORD

*ECC CORRECTION NOT INHIBIT
*BECAUSE ECC IS NOT GOING
:T0 BE CHECKED
*CYLINDER 0
:CHECK THAT DVA,RDY,DPR,DRY = 1
*AND THAT NO OTHERS = 1.
CANNOT CON-

STINUE TESTING IF BOTH AREN'T TRUE
:STOP THE TEST
“READ HEADER AND DATA=72

;CLEAR ERROR FLAG

:READ HEADER AND DATA
:IF THERE ARE READ ERRORS THEN
sECC WILL NOT BE CHECKED

:IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
sFROM THE ‘'COMHD'' ROUTINE THAT MEANS SECTOR GAP,
sFIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND

:SE?EC?E;E HAVE GONE BY AND SYNCS WERE CORRECTLY
sHEADER AND DATA ARE TO BE CHECKED.
:IN CHECKING READ DATA THE WRITE FROM BUFFER
;"WRFROM'' IS FILLED WITH EXPECTED DATA AND
s COMPARISONS ARE MADE
022120
022124
022126
022132
022140
022142

005737
001106
004737
022737
001401
104032

001406

031554
100000

ST
BNE
JSR
CMP
BEQ
EMT

001316

eangs ;ANY ERRORS ALREADY THERE
TSTS
:BRANCH IF YES
PC,PUTREG
*SAVE REGISTERS
#DCK,ERT
SONLY DATA CHECK ERROR SHOULD BE SET
gs
*BRANCH IF YES
2
-

5
537
538

:IN LOWER BYTE GET SECTOR

:ONLY 11 OF THE 32 BITS CAN BE SEEN
022144
022150

013746
042716

034556
174000

68:

MOV
BIC

GECC1,=-(SP)
#174000,(SP)

*GET PATTERN REGISTER
:KEEP ONLY 11 BITS

;

CZRJHEO
RP04/5/6
DSKLS PTZ1 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-!9
156
READ ECC ENABLED
004037
000000

7$:
8$:

001316

001401
104036

032306
053407
001500
0
000000

RO,ECORR

:G0 TO ECC CORRECTION PROCESS
sEXPECTED POSITION REG. WHEN CORRECTION
:1S COMPLETE

JSR
cMP

PC,PUTREG

:SAVE REGISTERS
:WITH ERRORS INSERTED IN BIT POSITION 21

BEQ
EMT

9$
36

:BRANCH IF GOOD

9s:

#DCK!ECH,ERT

PC,CHECKE

.CPHALT

co'rnrzé (R0)+

#0.-(SP)

#0.1(SP)

000001

(SP)+,(RO)+

+
#0° (RO)

#256. .R1

0
000000

#0,R2
R2 (RO)+

3s:

:THRU 32 HARD ERROR BIT SHOULD SET

:32 ECH SHOULD SET

sCHECK THAT BITS =1

s CANNOT CONTINUE TESTING IF THEY DON'T

sSTOP THE TEST
:GETTING READY TO FILL EXPECTER DATA

:CYLINDER 0

:IN LOWER BYTE GET SECTOR
:GET TRACK IN HIGHER BYTE

sGET TRACK/SECTOR IN BUFFER

:KEY1 IN BUFFER
:KEY2 IN BUFFER

:DATA WORD COUNTER

:DATA
:DATA INTO BUFFER
: COUNT

:BRANCH IF 256 NOT DONE

sONLY GOOD DATA HAS BEEN PUT IN 'WRFROM'
sNOW THE INSERTED ERROR WILL BE PUT IN
012737

177760

2577
2578
2579 022302
2580 022306

005037
004737

001406
031554

2582
2583
2584
2585 022312
2586 022316
2587 022320
2588 022322
2589 022324
2590 022326
2591 022330
2592 022332

JSR
.WORD

#0, (RO)+

25
2375 022274

2576

s COMPARE PATTERN REGISTER
sBRANCH IF GOOD

W
~

i e e
e
e
d o
b

720

ONNINNINININN
—_

2568
022266
2569 022270

SN388

004737
b

022210

(SP)+ ,EC2
7$

CMP
BEQ
EMT

035200

S SOOOOOO—'-‘OO

001346

004737
022737

NS WNN=O V0N

N NNNNMMWNNN

022637

SEQ 0086

001512

MOV

#177760 ,WRFROM+<5%2>

CLR
JSR

ERFLGS

PC.PUTREG

s INSERTED ERROR

;CLEAR_ERROR FLAG

*SAVE REGISTERS

;NOW READ DATA BUFFER WILL BE CHECKED
032756

JSR
WRFROM
REINTO

4+256.

($:

5%
TST57

RO, COMPAR

s CHECK
:GOOD BUFFER
sTEST BUFFER
sNUMBER OF WORDS CHECKED
sRETURN POINT FOR ERROR HEADER
sRETURN POINT FOR ERROR DATA
sRETURN FOR GOOD COMPARISON

RJHEO RP04/5/6 DSKLS PTZ MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-%0

SEQ 0087

READ ECC ENABLED

022332

104004
000207

RTS

000207 .

2605

4
PC

;RETURN TO '‘COMPAR''

EMT

’

104005
2597 022340

EMT
RTS

:HEADER WORDS

5 70 260 ARE DATA WORDS

“RETURN TO ''COMPAR'*

i..ti't'ti't"..'tt"""'.'.fifi...fil'.*.'....t...t.t"t.'i'...'

S%TEST 57
WRITE ECC TEST 2
:«THIS IS A WRITE ECC TEST
**WRITE CYLINDER 0, FORMAT 16 BITS PER WORD

~
022342
5206 022344

000004
012706

2608 022350
2
35

012737

001100

000057
040530
000460

*«TRACK 0, SECTOR 1, KEYS 0, NUMBER OF WORDS 256

i%OF ALL ONES.

tttttttfi*tt'*.'.fit.t"fi't"itttt.tttttttitfii'ttit...iitt.t.'.t'

rsrs7
©

003610
18:

032054

SCOPE

MOV

#STACK,SP

;RESET STACK

MOV
MOV
MOV

#57,TSTNM
#SECGAP RO
#304.,Ri

:MOVE #57 TO TEST NUMBER
:POINTER
: COUNTER

BNE
JSR

18
PC,CLDISK

sTHIS IS USED TO SET GENERAL REGISTERS

CLR

(R0)+

:CLEAR SIMULATED DISK AREA

sTHESE ARE FOR ECC TEST ONLY
177777

001424

MoV

#-1,TSECC

034566
034600

MoV
Mov

NCODE ,NCOUNT ~ ; TEMPORARY N-CODE COUNTER
HARDER ,HADTMP ° ; TEMPORARY HARD ERROR COUNTER

CLR

CLR
CLR

034576

2
2632 022446
26 33
2634 022454
2635 025262

POSITI
GECC1

GECC2

DATENV
ZCODE

;THIS IS AN ECC TEST

;CLEAR ERROR POSITION COUNTER

sECC LOW ORDER TO BE GENERATED

:ECC_HIGH ORDER TO BE GENERATED

;CLEAR DATA ENVELOPE CLOCK COUNT
sCLEAR LEADING ZEROS CLOCK COUNT

sTHESE ARE TO BE SETUP FOR DISKLESS USE ONLY
010000

033270

042046

MOV

#FMT22,WCYL

042050

MoV
CLR
CLR
MoV
JSR
wCYL
GCRC

01.USECTR

042106

WKEY1

WKEY2

FORHAT22-16817 WORDS AND
5
sCYLIND

:TRACK=0,

SECTOR=1

:KEY1=0
K Y2=0
:2 6 DATA WORDS

02 6..F NWORD
RS, CRC
;G0 TO CALCULATE CRC

sTHESE ARE REGULAR SETUPS

177374
021500
156506

156514

Mov
MoV
MoV

#-260. ,aRHWC
#WRF ROM, RO

RO, aRHBA

2256 DATA WORDS 4 HEADER WORDS
sTHESE TWO INSTRUCTIONS GETS
:ADDR. OF WRFROM INTO RO AND

CZRJHEO RP04/5/6 DSKLSSTZ MCRO VOlo 00 17-NOV-81 16:37:12 PAGE 10-51
157

SEQ 0088

WRITE ECC TEST

2647

%gzg 022526

012720

010000

2650 022532
2651 022536

012720
005020

000001

2652 022540
2653 022542
2654 022546
2655 022552
2656 022554
2225 022556

005020
012705
012720
005305
001374
012777

2659 022564
022

004737
104401

Nt 022574

000000

2661 022576

013711

001454

2663 022602

005037

001406

2662

2664 022606
2665 022614
5229 022620

012777
005077
004737

28:

000400
177777
000001

38:
156460

032116
053407

#FMT22, (RO)+

MOV
CLR

#1,(RO)+
(RO) +

010000
156432
041672

156434

:BUS ADDRESS REGISTER

cvf?"i&‘oelr WORDS

*TRACK=0, SECTOR=1, KEYS=0
*KEY1=0

CLR
MOV
MOV
DEC
BNE
MOV

(RO) +
#256.
RS
#-1,(R0O)+
RS
3$
#1,3RHDST

JSR
TYPE

PC,CHECKT
,CPHALT

;CHECK THAT DVA,RDY,DPR,DRY = 1
:AND THAT NO OTHERS = 1.
CANNOT CON*TINUE TESTING IF BOTH AREN'T TRUE
:STOP THE TEST

MOV

WRIFOR,aR1

:GET READY FOR WRITE HEADER AND

CLR

ERFLGS

HALT

2668
2669

MOV
CLR
JSR

*KEY2=0
*COUNTER
*MOVE ALL ONES FOR DATA

;BRANCH IF DATA NOT COMPLETE
*TRACK=0 SECTOR=1

DATA WITH 62 IN RHCS1

;CLEAR ERROR FLAG

#FMT22,3RHOF
@RHCA
PC, COMWHD

;FORMAT BIT=1 (16 BIT WORDS)
:CYLINDER =0
:WRITE HEADER AND DATA

:1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
*FROM THE '‘COMWHD'* ROUTINE THAT MEANS ALL HEADER ON DISK

2670
2671
SS;%

+1S GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE
*ALL ONES AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF
:THEY ARE ALL ZEROS

2674 022624
2675
32;9 022630

005737

001406

001056

2678

52;3

ERFLGS

BNE

TST60

;HAS ANY ERRORS OCCURED?
:IF WRITE ERROR OCCURS ECC IS NOT CHECKED
*:BRANCH IF YES

;COMPARE SOF TWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE

2681 022632
2682 022640
2683 022642
022
2685 022646
2686 022654
2687 022656

023737
001402
104031
000405
023737
001401
104031

034556

041626

034560

041630

2690 020000 004737 032306
022

2691
2692
2693
269%

MOV

022670

104401

053407

gggg

2697 022672

CMP
BEQ
EMT
BR
CMP
BEQ
EMT

GECC1,WECCT;COMPARE SOFTWARE ECC WITH HARDWARE ECC
£%
:BRANCH IF GOOD
31
7$
:BRANCH TO CONTINUE
GECC2,WECC2; COMPARE SOFTWARE ECC WITH HARDWARE ECC
78
:BRANCH IF GOOD
31

TYPE

HALT

,CPHALT

CHECK THAT BITS = 1

*CANNOT CONTINUE TESTING IF THEY DON'T
*STOP THE TEST

;FILL "REINTO'* BUFFER WITH EXPECTED DATA
004037

031772

JSR

RO, CLAREA

;FILL REINTO BUFFER

—

CZR
157

JHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-22

SEQ 0089

WRITE ECC TEST 2

2698 022676
2699 022700

002544
003542

2702 022704
2703 022712
2704 022720

013737
013737
004037

2707 022730

000000

%;}g 022732

005037

5780 022702

2705 022724
2706 022726

177777

003550
003604

LWORD

034556
034560
031772

0035644
003546

MOV
MOV
JSR

REINTO
:FROM
REINT0+<255.%2> :T0
=1

*DATA

GECC1,REINT0+<256.#2>:FILL ECC1
GECC2.REINTO+<257.%2>:FILL ECC2
RO,CLAREA
sFILL REST

REINT0+<258. %2>
REINT0+<272. %2>

*FROM
:T0

0
001406

CLR

2712
%;}z

ERFBGS

*DATA

;CLEAR ERROR FLAG

;NOW COMPARE 'DISK'® BUFFER WITH "REINTO"

2715 022736
2716 022742
2717 022744
2718 022746
2719 022750
2720 022752
2721 022754
2722 022756
022756
2723 022760
2724 022762
022762
2725
2726
2727
2728
2729

004037
002544
040626
000402
022756
022762
022766

gggg 022764

000207

2730
2731

032756

48:

104007
000207

58:

104010

27‘2

JSR
REINTO
DISK
258.
48
1
TST60

RO, COMPAR

EMT
RTS

7
PC

EMT

RTS

: CHECK
2GO0D BUFFER
:TEST BUFFER
JNUMBER OF WORDS CHECKED
JRETURN POINT FOR ERROR HEADER
*RETURN POINT FOR ERROR DATA
JRETURN FOR GOOD COMPARISON

:RETURN TO COMPARE
sDATA WORDS
*WORD NOS 257 AND 258
*ARE ECC WHICH ARE CHECKED
*WORD NOS 259
:1S DATA
*WORD NOS zoo 10 273
ARE TOLERANCE GAP

*RETURN TO COMPARE

t'ttttttttttt.tttttttt'tttttt'ttttttttttttttttt't'ttttt.'tttttt

RTEST 60

READ ECC ENABLED 2A

:«THIS IS AN ECC READ DATA TEST

**ERROR CORRECTION 1s ENABLED
**NO ERROR IS INSERTED

:#GOOD DATA USED IS 256 WORDS OF 177777

-comwo IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
*«TRACK 0, SECTOR O KEYS O READ HEADER AND DATA

022766

2743 022770

5;22 022774

2746

5;2;
2749 023002

2750 023006
2751 023012

012706

012737

001100

000060

’
012746

012705
012700

MOV

003610

MOV

;

;
177777

000400
040626

3333233323333 3333333322232

t4760: SCOPE

#STACK, SP

#60,TSTNM

338333831333 3333332323323331323333233232%2%%1}

;RESET STACK

*MOVE #60 TO TEST NUMBER

SETUP FOR WHAT IS TO BE READ

HEADER CRC IS RESTORED FROM A SUBROUTINE
MOV

MOV
MOV

#-1,-(SP)

#256. RS
#D1SK.RO

:DATA TO BE READ

:COUNTER
*START OF SIMULATED DISK DATA

CZRJHEO RPO4/5/6 DSKLS PTSMACRO V04.00 17-NOV-81 16:37:12 PAGE 10-53
60
READ ECC ENABLED

%3016

011220

2754 023022

001375

BNE

2756 023026 022020
2757 023030 012705
2758

CMP
MOV

(RO)+, (RO) +
#15. RS

CLR
DEC
BNE

(RO) +
RS
28

JSR

PC,FILLEC

023020

2755 0230264

.
.

005726

2759 023034
2760 023036
5;23 023040

005020
005305
001375

2763
2764 023042

004737

g;gg

18:

005305

000017
28:

035352

%;gg
012737

2771 023060
2772 023066
2773 023074
2774 023100
2775 023106
g;;g 023110

013737
013737
005037
005037
005037
005037

005037

2788 023160
2789 023164
2790 023170

5795 023172

(SP)+

:MOVE IN DATA ON TO SIMULATED DISK

*COUNT

BRANCH IF 256 NOT COMPLETE
UNDO =(SP)

JbHP oven THE TWO ECC WORDS
*1DATA GAP
14 TOLERANCE GAP
*CLEAR DATA GAP, AND
:TOLERANCE GAP
*BRANCH IF NOT COMPLETE

JINSERT THE TWO ECC WORDS CON THE DISK

:IN THE CORRECT PLACE

001424

MOV

#-1,TSECC

034594
034572
034556
034560
034574
034576

034566
034600

MOV
MOV
CLR
CLR
CLR
CLR

NCODE.NCOUNT ;TEMPORARY N-=-CODE COUNTER
HARDER,HADTMP ;TEMPORARY HARD ERROR COUNTER
GECCI
;ECC LOW ORDER TO BE GENERATED
GECC2
ECC HIGH ORDER TO BE GENERATED
DATENV ;CLEAR DATA ENVELOPE CLOCK COUNT
ZCODE
:CLEAR LEADING ZEROS CLOCK COUNT

2778

2785 023136
2786 023144
2787 023152

177777

034570

%;;3

2781 023114
2782
2783 023122
2784 023130

(SP), (RO)+

DEC

SEQ@ 0090

;THESE ARE FOR ECC TEST ONLY

2769 023046

2770 023054

MOV

CLR

POSITI

:THIS IS AN ECC TEST

;CLEAR EkROR POSITION COUNTER

JTHESE ARE TO SETUP FOR DISKLESS USE ONLY

012737

010000

036710

MOV

#FMT22,CYL

112737
112737

000000
000000

036713
036712

MOVB
MOVB

#0,SECOTR+1
#0.SECOTR

005037
004537
036710

036720
033270

012737
012737
012737

000000
000000
000400

036714
036716
036770

040610

MOV
MOV
MOV
CLR
JSR
cyYL

:16 BITS PER WORD
:CYLINDER O, FORMAT 16 BITS
*TRACK 0
*SECTOR 0

#0 KEY1 :KEY1=0
#0°KEY2 :KEY2=0
0256 ,DAWORD
;NO. OF DATA WORDS
as.cnc

STHIS IS A READ COMMAND
:GO TO CALCULATE CRC

WCRC

2793
279%

795
2;39

)

2798 023174

004737

032054

2800 023206

012777

002544

2799 023200
2801 023214
2802 023220
803 (02322
804 023232
05

2807
2808 023240

012777

112746
112766
012677
012777
005077

177374

100000
(N0000
16012
(10000
156006

;THESE ARE REGULAR SETUPS

JSR

PC,CLDISK

MOV

OREINTO GRHBA

156024

MOV

000001

MOVB
MOVB
MOV
MOV

156020

156010

CLR

;SETUP GENERAL REGISTERS

#-256.~4. ,aRHWC :256. DATA 4 HEADER WORDS

STAR!ING ADDRESS OF READ BUFFER

.=(SP}
oo 1(SP)
(Sfi)f aRHDST
#FMT22,3RHOF

*IN LOWER BYTE GET SECTOR
*GET TRACK IN HIGHER BYTE
JTRACK/SECTOR IN RHDST
:16 BITS PER WORD

aRHCA

*BECAUSE ECC IS NOT GOING
:T0 BE CHECKED
*CYLINDER 0

*ECC CORRECTION NOT INHIBIT

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-54
160

SEQ@ 0091

READ ECC ENABLED 2A

2809
2810 023244
023250

004737
104401

JSR
TYPE

, 023254

000000

HALT

2812 023256
2813 023262
2814 0232
2815
2816
2817
2818
2819
2820
2821
2802
2873
2824
2825
2826
2827
2828
2829 023272
2830 023276
2831 023300
2832 023304
2833 023310
2834 023312
2835
2836
2837
2838 023314
2839 023320
2840 023324
2841 023330
2842 023332
2843
2844
2845
2846
2847
2848
2849
2850 023334
26>1 023340
2852 023346
2853 023354
2854 023356
2855 023360
023364
023370
2856 023372
2857 023376
2858 023402
2859 023406
2860 023414

01371
005037
004737

001460
001406
036550

PC,CHECKT
+CPHALT

sCHECK THAT DVA,RDY,DPR,DRY = 1

sAND THAT NO OTHERS = 1. CANNOT CONsTINUE TESTING IF BOTH AREN'T TRUE
:STOP THE TEST

MOV

REFOR,aR1

:READ HEADER AND DATA=72

JSR

PC, COMHD

;READ HEADER AND DATA

CLR

ERFLGS

:CLEAR ERROR FLAG

:IF THERE ARE READ ERRORS THEN
sECC WILL NOT BE CHECKED

;IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
:FROM THE ‘‘COMHDTM* ROUTINE THAT MEANS SECTOR GAP,
:FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND

:gg?gc?zgf HAVE GONE BY AND SYNCS WERE CORRECTLY
sHEADER AND DATA ARE TO BE CHECKED.
sIN CHECKING READ DATA THE WRITE FROM BUFFER
:"WRFROM'' IS FILLED WITH EXPECTED DATA AND

s COMPARISONS ARE MADE
001406

ERFLGS

JSR

PC.PUTREG

gsg

BNE

031554
001316

TST61

:ANY ERRORS ALREADY THERE

ER1

:BRANCH IF YES

:SAVE REGISTERS

*NO ERRORS SHOULD BE SET

*BRANCH IF NO ERRORS SET

;ONLY 11 OF THE 32 BITS CAN BE SEEN
034556
174000
001346

68:

MOV

BIC
CMP
Efi?

GECC1,=-(SP)

#1764000,(SP)
(SP)+,EC2
;g

*IN THE PATERN REGISTER
:DCK SHOULD BE SET IN RHER1

*GET PATTERN aes:srsn

:KEEP ONLY 11 BITS
*COMPARE PATTERN REGISTER
*BRANCH IF 500D

sADD 16 MAINTENANCE CLOCKS TO
78:

8s:

S& oo

O\ NN

—

O= =00

000000
000000

MOV

6. R0

BNE

BIS
BIC
DEC

JSR

TYPE

OWNgfl\l
- NOO NN o

S NWWNNY
o

;BRING EBL DOWN

:357

000001

; COUNTER

#MCLK , SRHMR
#MCLK . SRHMR
RO

*SET CLOCK
CLEAR cLOCK
*COUN

PC, CHECKE

*CHECK THAT BITS

,CPHALT

BRANCH 1F 16 cLocxs NOT DONE
:STOP THI TEST

SGETTING ason TO FILL EXPECTED DATA

MOV

0o'rn122 (RO)* :CYLINDER

MOV

(SP)+ (RG)+

MOVE
MOVB

= 1

SCANNOT CONTINUE TESTING IF THEY DON'T

#0.-(SP)
#0.1(SP)

*IN LOWER BYTE GET SECTOR
SGET TRACK IN HIGHER BYTE

*GET TRACK/SECTOR IN BUFFER

160

READ ECC ENABLED

2861 0 3413
2862 023422

12720
012720

%aeg 023436
867 023440

010220
005301

2869 023444
gg;? 023450

005037
004737

2863 0 go 012701
%ggg 023432 012702

2868 023442 001375

SEQ 0092

000000
000000

000400
177777

MOV
MOV

#0,(RO)+
#0° (RO)+

;KEY1 IN BUFFER
*KEY2 IN BUFFER

MOV
DEC

R2, (RO)+
R1

:DATA INTO BUFFER
+COUNT

CLR
JSR

ERFLGS :CLEAR ERROR FLAG
PC,PUTREG
:SAVE REGISTERS

MOV
MOV
3s:

BNE

001406
031554

33;%

#256. R
#<1,R :DATA

*DATA WORD COUNTER

*BRANCH IF 256 NOT DONE

:NOW READ DATA BUFFER WILL BE CHECKED

2874 023454
2875 023460
2876 023462
2877 023464
2878 023466
2879 023470
2880 023472
2881 023474
023474
2882 023476
2883 023500
023500
2885
gggg 023502

004037
001500
002544
000404
023474
023500
023504

032756

48:

104004
000207

58:

104005
000207

JSR
WRFROM
REINTO
4+256.
48
5%
TST61

RO, COMPAR

EMT
RTS

4
PC

:RETURN TO ''COMPAR''

JHEADER WORDS
:S TO 260 ARE DATA WORDS
:RETURN TO '‘'COMPAR'’

EMT
RTS

2896

; CHECK
:G00OD BUFFER
sTEST BUFFER
*NUMBER OF WORDS CHECKED
*RETURN POINT FOR ERROR HEADER
*RETURN POINT FOR ERROR DATA
*RETURN FOR GOOD COMPARISON

:;fittt'ttttttttttttt*ttt't"'titttttttttt.ttt.'t.tttttttttttttttt

S*TEST 61
READ ECC ENABLED 28
:«THIS IS AN ECC READ DATA TEST
**ERROR CORRECTION IS ENABLED
:*A CORRECTABLE ERROR IS INSERTED IN 9;1 POSITION 32
:*GOOD DATA USED IS 256 WORDS OF 1777
:«COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
:*TRACK 0, SECTOR O KEYS O READ HEADER AND DATA

023504

000004

';tttttttQtttttttt.ttttt.tttttttt!tt.t.tttttttttttttttttttttttttt

o808 023506
2897

012706

001100

2899 023512

012737

000061

5339

2902
2903

5$3§ 023520 012746 177777
2906 ozssgs

2907 0235
2908 353§§2

012705

812700
05}359

T$161:
003610

5995 ozgseo 001375
2013
05354s
093098
2915
023546
012705 000017
2914

#STACK,SP

JRESET STACK

MOV

#61,TSTNM

;MOVE #61 TO TEST NUMBER

;SETUP FOR WHAT IS TO BE READ
*HEADER CRC IS RESTORED FROM A SUBROUTINE

000400
040626

SCOPE

MOV

#-1,-(SP)

:DATA TO BE READ

MOV
32!

#DISK.RO
é?P).(RO)*

*START OF SIMULATED DISK DATA
‘?3557'" DATA ON TO SIMULATED DISK

MOV

1$:

BNE
P
MOV

#256. ,RS

*COUNTER

1$
*BRANCH IF 256 NOT COMPLETE
(ROIS.(RO)
UUMS OVER
THE TWO ECC WORDS
#15..RS :1 DATA GAP
:14 TOLERANCE GAP

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-25

2915 023552
2916 023554
53}; 023556

005020
005305
001375

2919
%g%? 023560

004737

2$:

035352

2922
2923

gg%g

012737

2928 023576
2929 023604
023612
1 023616
2932 023622
%ggz 023626

013737
013737
005037
005037
005037
005037

005037

CLR
DEC
BNE

(RO)+
RS
2

;CLEAR DATA GAP, AND
sTOLERANCE GAP
*BRANCH IF NOT COMPLETE

JSR

PC,FILLEC

JINSERT ECC IN PROPER PLACE ON DISK

177777

007424

[, [1)"

#-1,TSECC

034564
034572
034556
034560
034574
034576

034566
034600

MOV
MOV
CLR
CLR
CLR
CLR

NCODE ,NCOUNT ; TEMPORARY N-CODE COUNTER
HARDER ,HADTMP ° ; TEMPORARY HARD ERROR COUNTER
GECC1
JECC LOW ORDER TO BE GENERATED
GECC2
:ECC HIGH ORDER TO BE GENERATED
DATENV :CLEAR DATA ENVELOPE CLOCK COUNT
ZCODE
sCLEAR LEADING ZEROS CLOCK COUNT

034570

2935

%ggg

CLR

POSITI

:THIS IS AN ECC TEST

:CLEAR ERROR POSITION COUNTER

sTHESE ARE TO SETUP FOR DISKLESS USE ONLY

2938 023632
2939
02
2941 023646
2942 023654
2943 02

012737

010060

036710

MOV

#FMT22,CYL

112737
112737
012737
012737

000000
000000
000000
000000

036713
036712
036714
036716

MOVB
MOVB
MOV
MOV

#0,SECOTR+1
#0.SECOTR
#0.KEY1 :KEY1=0
#0.KEY2 :KEY2=0

2945 023676

005037

036720

2944 023670

SEQ 0093

:THESE ARE FOR ECC TEST ONLY

2926 023564

2927 023572

012737

000400

036770

2946 023702 004537 033270

MOV

#256. ,.DAWORD

JSR

RS,CRC

CLR

cyYL
WCRC

:16 BITS PER WORD
JCYLINDER O, FORMAT 16 BITS
*TRACK 0
*SECTOR 0

:NO. OF DATA WORDS

:THIS IS A READ COMMAND

;GO TO CALCULATE
CRC

2947 023706
2948 023710
2949
2950
2951
2952
2953

036710
040610

2956 023712
%gg;

012737

077777

040630

MOV

#77777.D1SK+2

2959 023720

012737

000026

024074

MoV

#22..8% ;INSERT fiOSITION REG.

JTHIS IS TO INSERT ERROR
JTHE DISK DATA IS IN LOCATION STARTING FROM °'DISK®
sTHE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING

gggg

2960

2THIS MOVE

]

2961

%ggg

:FORCE ERROR ON BIT NUMBER 32
:gg ERROR POSITION REGISTER WILL SHOW

sTHESE ARE REGULAR SETUPS

2964 023726 004737 032054

2965 ozsr%z 015777 177374 155272

JSR

MOV

PC,CLDISK

:SETUP GENERAL REGISTERS

nwonng1uneowwo

MOVB

#REINTO,@RHBA

#0,-(SP}

:STARTING ADDRESS OF READ BUFFER

#0.1(SP)

*GET TRACK IN HIGHER BYTE

2966 023740

012777

002544

155266

MOV

2968 ozgzs

112766

ogoooo

000001

MOVB

2969 023760
2970 023764

2971

012677
012777

155260
010000

155256

MOV
MOV

t-égé.-£..aanuc :356. DATA 4 HEADER WORDS
(SP)+ . @RHDST
#FMT22,3RHOF

:IN LOWER BYTE GET SECTOR
:TRACK/SECTOR IN RHDST
:16 BITS PER WORD

sECC CORRECTION NOT INHIBIT

CZRJHEDO
RP04/5/6
DSKLS PT2 MACRO v04.00 17-NOV=-81 16:37:12 PAGE 10-&6
161
READ ECC ENABLED 2B

SEQ 0094

READ ECC ENABLED 2

297
29
2974 023772
2975 023776
024002

00507
00473
10440

024006
2976 024010
2977 024014
29;8 024020

013711
005037
004737

CLR
JSR

aRHCA
PC, CHECKT

MoV

REFOR, aR1

JSR

PC,COMHD

TYPE

001460
001406
036550

CLR

,CPHALT

sBECAUSE ECC IS NOT GOING
:TO BE CHECKED
sCYLINDER 0

sCHECK THAT DVA,RDY,DPR,DRY
= 1
:AND THAT NO OTHERS = 1.
CANNOT CON:TINUE TESTING IF BOTH AREN'T TRUE
;STOP THE TEST

:READ HEADER AND DATA=72

eanci ;CLEAR ERROR FLAG

sREAD HEADER AND DATA

:IF THERE ARE READ ERRORS THEN
:ECC WILL NOT BE CHECKED

:1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
:FROM THE "‘COMMDTM* ROUTINE THAT MEANS SECTOR GAP,
:FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND
:SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY

:DETECTED

sHEADER AND DATA ARE TO BE CHECKED.

:IN CHECKING READ DATA THE WRITE FROM BUFFER
:"WRFROM'' IS FILLED WITH EXPECTED DATA AND
:COMPARISONS ARE MADE

031554
100000

001316

SRRNNNASE
OoONININ)
N
oo
—-00O &&38
~

035200

032306
053407

R
eI
e
e

e e

b ok -

034556
174000
001346

004037
000026

oS
QAN
= N
o
N&O&Qg

024070
024074

013746
042716

~N
N
o
W
~

VIS
NN D

004737
022737

TST
BNE
JSR

CMP
BEQ
EMT

ERFLGS

ANY ERRORS ALREADY THERE
sBRANCH IF YES
PC,PUTREG
sSAVE REGISTERS

1ST62

0pcx ER1
32

:ONLY DATA CHECK ERROR SHOULD BE SET
:BRANCH IF YES

s ZERO

sIN THE PATERN REGISTER

[=l=} OOO0O0O00O00O
N
NN NN

=0V~

N —_—aa

001406

sONLY 11 OF THE 32 BITS CAN BE SEEN

024050
024056

005737

OO0O0O—==O00—=

geeeLegedesseeesy
g

2993 024026
299
2995 024032
2996 024036

68:

78:

8$:

000000
000000
000400

sDCK SHOULD BE SET IN RHER1
sGET PATTERN REGISTER
:KEEP ONLY 11 BITS

#174000, (SP)
(SP)+,EC2

JSR

RO,ECORR

:GO TO ECC CORRECTION PROCESS
sEXPECTED POSITION REG. WHEN CORRECTION
:1S COMPLETE

JSR

PC,CHECKE

sCHECK THAT BITS =1
s CANNOT CONTINUE TESTING IF THEY DON'T
:STOP THE TEST
sGETTING RSADV TO FILL EXPECTED DATA
sCYLINDER
:IN_LOWER BYTE GET SECTOR

22.

TYPE

HALT
MOV

000001

GECCT,=-(SP)

BIC
CMP
BEQ
EMT

001500

010000
000000
000000

MOV

78
32

,CPHALT

MOV

o'rnrzé (n0)+

MOVB
MOV
MOV
MOV
MOV

#0.1(SP)
(sfi>+ (RO)+
0, (RO) +
oo (RO)+
#256. ,R1

MOVB

#0.-(SP)

s COMPARE PATTERN REGISTER
:BRANCH IF GOOD

sGET TRACK IN HIGHER BYTE

GET YRACKISEEEOR IN BUFFER
DATA WORD COUNTER

Cg?JHEO RP04/5/6 DSKLS PTZBHACRO v04.00 17-NOV-81 16:37:12 PAGE 10-57

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-58
T 61

READ ECC E NABLED 2B

3024 024150 012705 177777
3025 024154 owgz
3026 024156 005301
33855 024160 001375

3s:

3029

;ONLY GOOD DATA HAS BEEN PUT IN 'WRFROM'

%gg

MOV
MOV
DEC
BNE

#-1,R2
R2, (RO)+
R1
3s

:DATA
*DATA INTO BUFFER
:COUNT
:BRANCH IF 256 NOT DONE

*NOW THE INSERTED ERROR WILL BE PUT IN

3035 024162 012737 077777 001512
3033 024170 004737 031554
333?5' 024174

005037

MOV
JSR

001406

CLR

3036

338%

#77777 ,URFROM+<5+2>
:INSERTED ERROR
PC,PUTREG
:SAVE REGISTERS
ERFLGS

;CLEAR ERROR FLAG

:NOW READ DATA BUFFER WILL BE CHECKED

3039 024200 004037 032756
3040 024204 001500
3041 024206

002544

3043 024212
3044 024214
3045 024216
3046 024220
024220
3047 024222
3048 024224
024224

024220
024224
024230

3042 024210 000404

3050

3333.12 024226

104004
000207
104005

: CHECK
:GOOD BUFFER

4+256.

*NUMBER OF WORDS CHECKED

REINTO

48:
58:

000207

3061

JSR
RO, COMPAR
WRFROM
4$
1]
TST62

*RETURN POINT FOR ERROR HEADER
*RETURN POINT FOR ERROR DATA
*RETURN FOR GOOD COMPARISON

EMT
RTS

4
PC

EMT

RTS

*TEST BUFFER

;RETURN TO ‘‘COMPAR'’

;HEADER WORDS

:5 TO 260 ARE DATA WORDS
*RETURN TO '‘COMPAR'’

;;tttt'ttttltttttttttttt*ttttt.ttttt.tttttttttttltttttttttttttt't

s*TEST 62
READ ECC ENABLED 2C
s*THIS IS AN ECC READ DATA TEST
s*ERROR CORRECTION IS ENABLED
s*A NON CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32 AND 21
:*GOOD DATA USED IS 256 WORDS OF 17777
s*COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
s*TRACK 0, SECTOR O KEYS 0 READ HEADER AND DATA

SARAARANAAAARNRAAANAAAAA
AR AN AAAAARRAAANAAARAAAAAAAA AR
AR AN RSY

3062
8525%? 8??90‘ 001100
iff62: MOV
gseps #STACK,SP
3063 024236 omg? 000062 003610
#62,TSTNM
sms3
"si

33329

3268 024244 012746 177777
3069 024250 015705 000400
ggm 024256 012700 040626
71 024260 ongzo
3072

024262

005305

3073 024264 001375
7% 0 6566 oosrzs
75 024270 02202
012705

18:

RESET STACK

SMOVE #62 TO TEST NUMBER
SETUP FOR WHAT IS TO BE READ

HEADER CRC IS RESTORED FROM A SUBROUTINE

MOV
MOV

#-1,-(SP)
#256. RS

:DATA TO BE READ
*COUNTER

DEC

: COUNT

MOV
MOV

BNE
ST
CMP
MOV

#DISK RO
(SP), (RO)+

1%
(SP) +
(RO)+, (RO)+
#15. RS

*START OF SIMULATED DISK DATA
*MOVE IN DATA ON TO SIMULATED DISK

*BRANCH IF 256 NOT COMPLETE
SUNDO =(SP)
:JUMP OVER THE TWO ECC WORDS
*1 DATA GAP
114 TOLERANCE GAP

SEQ 0095

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-59
162
READ ECC ENABLED 2C
ggra oz«gre
79 024300

gggg 024302

005020
005305

28:

001375

§§§g

SEQ 0096

CLR
DEC

(RO) +
RS

;CLEAR DATA GAP, AND
:TOLERANCE GAP

JSR

PC,FILLEC

;INSERT THE TWO ECC WORDS ON THE DISK

BNE

%gég 024304 004737 035352

:BRANCH IF NOT COMPLETE

;THESE ARE FOR ECC TEST ONLY

:IN THE CORRECT PLACE

024310

012737

177777

001424

MOV

#-1,TSECC

024322
3091 024330
2 024336
3093 024342
3094 024346
3095 024352

013737
013737
005037
005037
005037
005037

034564
034572
034556
034560
034574
034576

034566
034600

MOV
MOV
CLR
CLR
CLR
CLR

NCODE ,NCOUNT ; TEMPORARY N-CODE COUNTER
HARDER ,HADTMP °;TEMPORARY HARD ERROR COUNTER
GECCT
;ECC LOW ORDER TO BE GENERATED
GECC2
*ECC HIGH ORDER TC BE GENERATED
DATENV ;CLEAR DATA ENVELOPE CLOCK COUNT
ZCODE
;CLEAR LEADING ZEROS CLOCK COUNT

3089 024316 005037 034570

5339

3098

fi%ouxeonnrowwoouno
3101
3102 024364
3103 024372
3104 024400
3105 024406

3106 024414

3107 024422
3108 024426
3109 024432
3110 024434
3111
3112
3113
3114
3115

112737
112737
012737
012737

000000
000000
000000
000000

005037
004537
036710
04061

036720
033270

012737

000400

036713
036712
036714
036716

036770

CLR

POSITI

THIS IS AN ECC TEST

;CLEAR ERROR POSITION COUNTER

;THESE ARE TO SETUP FOR DISKLESS USE ONLY

MOV

MOVB
MOVB
MOV
MOV

MOV

CLR
JSR
cyL
WCRC

#FMT22,CiL

:16 BITS PER WORD

:CYLINDER 0, FORMAT 16 BITS
#0,SECOTR+1
*TRACK 0
#0.SECOTR
*SECTOR 0
#0.KEY1 ;KEY1=0
#0.KEY2 :KEY2=0

#256. ,DAWORD ;NO. OF DATA WORDS
X
RS,CRC

:THIS IS A READ COMMAND
;GO TO CALCULATE CRC

JTHIS IS TO INSERT ERROR
JTHE DISK DATA IS IN LOCATION STARTING FROM °'DISK®

*THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING

g;;g

STHIS MOVE

3118 024436

012737

077757

040630

MoV

#77757.D1SK+2

:FORCE ERROR ON BIT NUMBER 32 AND 21

g}gg 024444

012737

010040

024620

MOV

#4128. .88

*INSERT POSITION REG.

g};g

3123
g;gg

:S0 ERROR POSITION REGISTER WILL SHOW

:THESE ARE REGULAR SETUPS

3126 024452

5127 024456 012777 177374 154546

004737

032054

MOV

JSR

PC,CLDISK

:SETUP GENERAL REGISTERS

3129 024472

128 024464

012777

002544

MOV

MOVB

#REINTO,3RHBA

#0.-(SP)

:STARTING ADDRESS OF READ BUFFER

#0.,1(SP)

*GET TRACK IN HIGHER BYTE

112746

3130 024476 1127
;131 0245046
132 024510
3133
3134

012677
012777

000000

154542

ww? 000001
154534
010000

154532

MOVB
MOV
MOV

o-2§6.-4.,aauuc ;256. DATA 4 HEADER WORDS
(SP)+,aRHDST
NFMT22,3RHOF

*IN LOWER BYTE GET SECTOR
:TRACK/SECTOR IN RHDST
:16 BITS PER WORD

*ECC CORRECTION NOT INWIBIT
:BECAUSE ECC IS NOT GOING

SIS
H

b
- d e

005077

154530

CLR

aRHCA

;TO BE CHECKED
*CYLINDER 0

024522
024526

004737
104401

032116
053407

JSR
TYPE

PC,CHECKT
,CPHALT

;CHECK THAT DVA,RDY,DPR,DRY = 1
SAND THAT NO OTHERS = 1.
CANNOT

024532

000000

024534

013711
005037
004737

024544

HALT

*TINUE TESTING IF BOTH AREN'T rnue
*STOP THE TEST

001460

MOV

REFOR,aR1

:READ HEADER AND DATA=72

036550

JSR

PC,COMHD"

;READ HEADER AND DATA
:IF THERE ARE READ ERRORS THEN
;ECC WILL NOT BE CHECKED

001406

CLR

ERFLGS

:CLEAR ERROR FLAG

d e

SEQ 0097

024516

Vi
neS 8 8Bt
VONOVNSWN=OVRNONSWNN=OY

N N N N N N N NN NN N N N N NN N NN W N

WWWW

CZRJHEO
RP04/5/6
DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-20
162
READ ECC ENABLED 2C

:IF THE PROGRAM COMES BACK HERE WITHOUT ERAOR PRINTOUTS
:FROM THE "'COMHDTM* ROUTINE THAT MEANS SECTOR GAP,
;FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND

:SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY

: COMPARISONS ARE MAD

024550
052;54

005737
001106

024572

001406
031554
100000

TST
BNE
JSR

001316

CMP
BEQ

104032

EMT

ERFLGS ;ANY ERRORS ALREADY THERE
TST63
sBRANCH IF YES
PC,PUTREG
sSAVE REGISTERS
#DCK ,ER1
ONLY DATA CHECK ERROR SHOULD BE SET
63
:BRANCH IF YES
32
s ZERO

024574
68 024600
024604
024610
024612

01
04
02
00
104032

034556

024614
024620

004037
000000

035200

024622

004737

031554

024626

022737

100100

024634
024636

001401
104036

6%:

174000

001346

MOV

#174000, (SP)

JSR

RO,.ECORR

CMP
BEQ
EMT

7$:

8$%:

GECC1,-(SP)

BIC

.WORD

(SP)+,EC2
7%
32

sONLY 11 OF THE 32 BITS CAN BE SEEN
:sIN THE PATERN REGISTER
sDCK SHOULD BE SET IN RHER?
:GET PATTERN REGISTER

sKEEP ONLY 11 BITS

:COMPARE PATTERN REGISTER
sBRANCH IF GOOD

:GO TO ECC CORRECTION PROCESS

*EXPECTED POSITION REG. WHEN CORRECTION
;1S COMPLETE

JSR

PC,PUTREG

;SAVE REGISTERS

CMP

#DCK'ECH,ERT

sWITH _ERRORS INSERTED IN BIT POSITION 21

gsg

b e

d o

AU U U U U U U

BRI
RS I

NNNNNNNNNOOLON
VIS WN=OV
~

b o

D e

e o

N U U O U U U NN U N N N O

ooNONON

D o

N N N WA U O

SHRAR2E

D o

e o

D o

:DETECTED
:HEADER AND DATA ARE TO BE CHECKED.
IN CHECKING READ DATA THE WRITE FROM BUFFER
:"WRFROM'' IS FILLED ngH EXPECTED DATA AND

001316

*AND 32 HARD ERROR BIT SHOULD SET
*BRANCH IF GOOD

:32 HCE SHOULD SET

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-61
162
READ ECC ENABLED 2¢C
3189 024640
0%6640

024644

024650

004737

104401

98:

osgzog

05340

3190 024652

012700

000000

JSR

TYPE

HALT

MOV

PC, CHECKE

,CPHALT

SEQ 0098

;CHECK THAT BITS = 1

+CANNOT CONTINUE TESTING IF THEY DON'T
:STOP THE TEST

*GETTING READY TO FILL EXPECTED DATA

3191 024656 012720 010000

3192 024

112746

MOV

co-rnrzé (no>+ :CYLINDER 0
#0.-(SP)

*IN LOWER BYTE GET SECTOR

3194 024674
3195 024676
3196 024702
3197 024706
3198 024712
3199 024716

012620
012720
012720 000000
012701 000400
012702 177777
010220

MOV
MOV
MOV
MOV
MOV
MOV

(sfi>+ (RO)+
0, (RO) +
co (RO)+
#256. R
#-1,R2
nz (RO)+

*GET TRACK/SECTOR IN BUFFER
*KEY1 IN BUFFER
*KEY2 IN BUFFER
*DATA WORD COUNTER
*DATA
:DATA INTO BUFFER

3193 024

3200 024720
3281 024722

MOVEB

112766 000000 000001

MOVB

3s:

005301
001375

3203

DEC
BNE

#0.1(SP)

*GET TRACK IN HIGHER BYTE

+COUNT
*BRANCH IF 256 NOT DONE

JONLY GOOD DATA HAS BEEN PUT IN "WRFROM'

g%g‘sv

sNOW THE INSERTED ERROR WILL BE PUT IN

3206 024724
3207 024732
%83 024736

012737
004737
005037

077757
031554
001406

001512

3210
%22]'12

MOV
JSR
CLR

477757 ,WRFROM+<5%2>
: INSERTED ERROR
PC,PUTREG
:SAVE REGISTERS
ERFLGS ;CLEAR ERROR FLAG

:NOW READ DATA BUFFER WILL BE CHECKED

3213 024742
3214 024746
3215 024750
3216 024752
3217 0247564
3218 024756
3219 024
3220 024762
024
3221 024764
3222 024766
024766
3223

004037
001500
002544
000404
024762
024766
024772

33%%2 024770

000207

3224

032756

48:

104004
000207

58:

104005

3233

JSR
WRFROM
REINTO
4+256.
A3
5%
TST63

RO, COMPAR

EMT
RTS

4
PC

EMT

RTS

: CHECK
:GOOD BUFFER
sTEST BUFFER
*NUMBER OF WORDS CHECKED
JRETURN POINT FOR ERROR HEADER
RETURN POINT FOR ERROR DATA
JRETURN FOR GOOD COMPARISON
;RETURN TO ''COMPAR''
;HEADER WORDS

:5 10 260 ARE DATA WORDS
RETURN TO '‘COMPAR'’

tttttttttltttttttttttttttttttttt'ttltttttttttt.tttt.ttttttttttt

LRTEST 63

WRITE scc TEST 3

:*THIS IS A WRITE ECC TEST

:*WRITE CYLINDER 0, FORMAT 16 BI TS PER WORD
;*TRACK 0 & gSCTOR f. KEYS 0, NUMBER OF WORDS 256
tor ALL

024772

000004

tttttttttttttttltttttttttttttt AARAAARAARAARAAARAAAAAAARAAARATASR

;534 024776

012706

001100

8zsooo

012737

000063

3238 025012

012701

000460

3 25006 012700 040530
3239 025016

005020

t§763:
003610
18:

SCOPE

MOV

#STACK,SP

sRESET STACK

MOV

#63,TSTNM

;MOVE #63 TO TEST NUMBER

MOV
CLR

#304. ,Ri
(RO)+

s COUNTER
sCLEAR SIMULATED DISK AREA

#SECGAP,RO

OINTER

CZRJHEO RPOA/SI6 DSKLS PT
163
WRITE
ECC TEST 3

3240 025020
3241 025022
gszg 025026

005301
001375
004737

2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-22
DEC
BNE
JSR

032054

%%’zé

SEQ 0099
:THIS IS USED TO SET GENERAL REGISTERS

:THESE ARE FOR ECC TEST ONLY

3246 025030

012737

3248 025042

013737

3250 025056
3251
025062
3252 025
gggz 025072

005037
005037
005037
005037

3247

R1
18
PC,CLDISK

025036

005037

177777

034570
034564

3249 025050 013737 034572

034556
034560
034574
034576

001424

MOV

#-1,TSECC

034566

MOV

NCODE ,NCOUNT

CLR
CLR
CLR
CLR

GECC1
GECC2
DATENV
ZCODE

CLR

034600

MOV

POSITI

:THIS IS AN ECC TEST

:CLEAR ERROR POSITION COUNTER

HARDEfi HADTMP

; TEMPORARY N=-CODE COUNTER

:TEMPORARY HARD ERROR COUNTER

;ECC LOW ORDER TO BE GENERATED
*ECC HIGH ORDER TO BE GENERATED
:CLEAR DATA ENVELOPE CLOCK COUNT
:CLEAR LEADING ZEROS CLOCK COUNT

3255

3256
3257

gsgg

;THESE ARE TO BE SETUP FOR DISKLESS USE ONLY

gsgg 025076

012737

010000

042046

MOV

AFMT22,WCYL

E?f?fi{%fi‘&‘“” WORDS AND

3262 0251064
3263 025112

012737
005037

000001
042052

042050

MOV
CLR

01 WSECTR
Ev1

*TRACK=0, SECTOR=1
*KEY1=0

3265 025122

012737

000400

042106

MOV

#256. ,FNWORD

:256 DATA WORDS

64 025116

3266 025130
3267 025134
gggg 025136

%%;?

005037

004537
042046
042056

042054

033270

;

CLR

u
EY2

JSR
WweYL
GCRC

RS,CRC

*KEY2=0

:GO TO CALCULATE CRC

sTHESE ARE REGULAR SETUPS

3272 025140
3273 025146

012777
012700

177374
001500

3275
gg;g 025156

012720

010000

154064

MoV
MOV

3274 025152 010077 154056

#-260. ,aRHWC
#WRFROM, RO

:256 DATA WORDS & HEADER WORDS
*THESE TWO INSTRUCTIONS GETS

MOV

RO, 3RHBA

*ADDR. OF WRFROM INTO RO AND

MOV

#FMT22, (RO)+

:BUS ADDRESS REGISTER
Eean;E;eoazr WORDS

3278 025162 012720 000001

2s:

MOV

#1,(R0)+

*TRACK=0, SECTOR=1, KEYS=0

3281 025172

38:

MOV

g . RS

:COUNTER

MOV

#1,3RHDST

:BRANCH IF DATA NOT COMPLETE

PC,CHECKT

:CHECK THAT DVA,RDY,DPR,DRY
= 1

3279 025166
3280 025170

3282

025176

005020
005020
012705

000400

012720 052525

3584 055505 001374
gggg 025206

012777

0000017

3287 025214

004737

032116

e 025224

000000

3289 025226
3290
3291 025232

013711

025220

104401

154030

CLR
CLR

JSR

053407

TYPE

(RO) +
(no)+

’ 2525.(ao>+
+CPHALT

HALT

001454

005037 001406
3293 025244 005077 154002
3292 025236 012777 010000

MOV

154004

CLR
CLR

MOV

*KEY1=0
*KEY2=0

*MOVE ALL 52525 FOR DATA

*TRACK=0 SECTOR=1

rxgugfl?gs¥?u2'xfago?n1AnsfiA¥"?nu§°"'
*STOP THE TEST

WRIFOR,aR1

:GET READY FOR WRITE HEADER AND
TA WITH 62 IN RHCS1
LAG

ERFLGS :CLEAR sha
rmmrmr1nsetwa)
SRHCA
*CYLINDER =0
y
#FMT22, aRHOF

CZRJHEO RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 10-63
163

SEQ 0100

WRITE ECC TEST 3

gsgg 025250

004737

041672

JSR

PC, COMWHD

;WRITE HEADER AND DATA

3296

:1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS

3208
3299
%58?

+1S GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE
SALL 52525 AND WRITE DATA GAP AND TOLERANCE GAP TO SFE IF
*THEY ARE ALL ZEROS

3297

3302 025254
3303
gggg 025260

:FROM THE

005737

001406

001056

3306
3307

3308 025262 023737 034556 041626
3309 025270

001402

3311 025274
3312 025276
3313 025304
3314 025306
3315
3316
3317 025310
025310
025314
— 025320

000405
023737
001401
104031

004737
104401
000000

041630

3319
3320
3321

g%%%

004037
002544
003542
052525

031772

3329 025334

013737

034556

013737
004037

3332 025354 003550

3333 025356
3334 025360

003604
000000

3336
§§§g 025362

005037

BNE

TST64

:HAS ANY ERRORS OCCURED?
:IF WRITE ERROR OCCURS ECC IS NOT CHECKED
+:BRANCH IF YES

CMP

GECC1,WECCT;COMPARE SOFTWARE ECC WITH HARDWARE ECC

EMT

68:

:BRANCH IF GOOD

BR
CMP
BEQ
EMT

78
GECC2,WECC2
7$
31

:BRANCH TO CONTINUE
*COMPARE SOF TWARE ECC WITH HARDWARE ECC
BRANCH IF GOOD

JSR
TYPE
HALT

PC, CHECKE
LCPHALT

:CHECK THAT BITS = 1
JCANNOT CONTINUE TESTING IF THEY DON'T
*STOP THE TEST

JSR
-

034560
031772

003544

003546

.WORD

RO,CLAREA
REINTO
REINT0+<255.%2>
52525

MOV

GECC1,REINT0+<256.%2>;FILL ECCI

nov

001406

aexuro+<zsé *2>
CLR

sFILL REINTO BUFFER
:FROM
:T0
*DATA

ceccz"REINT0+<257.#2>:FILL ECC2
CLAREA
sFILL REST

:FROM

REINT0+<272. %2>
0

3339
!3»332(1)
g 25366
3343 025372
3344 025374
3345 025376
3346 025400
3347 025402

ERFLGS

:FILL "REINTO'' BUFFER WITH EXPECTED DATA

3324 025322
3325 025326
3326 025330
gggg 025332

3330 025342
3331 025350

BEQ

78:

032306
053407

ROUTINE THAT MEANS ALL HEADER ON DISK

;COMPARE SOF TWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE

3310 025272 104031

034560

‘‘COMWHD'‘

ERFLGS

:T10
*DATA

;CLEAR ERROR FLAG

JNOW COMPARE 'DISK'' BUFFER WITH 'REINTO"

004037
002544
040626
000402
025406
025412

032756

JSR
REINTO
ogs
258.
43
58

RO, COMPAR

: CHECK
+GOOD BUFFER
*TEST BUFFER
*NUMBER OF WORDS CHECKED
*RETURN POINT FOR ERROR HEADER
*RETURN POINT FOR ERROR DATA

SEQ 0101

WRITE ECC TES

3348 025404
3349 025406
025406
3350 025410
3351 025412
025412
3352 3353
3354
3355
3356
3357
3358
ggg 025414

025416

4s:

104007
000207

58:

104010

000207

3369

TST64

sRETURN FOR GOOD COMPARISON

EMT
RTS

7
PC

EMT

RTS

AR E

;*TEST 64

sRETURN TO COMPARE
sDATA WORDS
WORD NOS 257 AND 258
;ARE ECC WHICH ARE CHECKED
:WORD NOS 259
;1S DATA GAP
;WORD NOS 260 TO 273
sARE TOLERANCE GAP
sRETURN TO COMPARE
it i i a

it i

it id

iiidiiisdiiisdsdy

READ ECC_ENABLED 3A

s*THIS IS AN ECC READ DATA TEST

s*ERROR CORRECTION IS ENABLED
:*NO ERROR IS INSERTED

:*GOOD DATA USED IS 256 WORDS OF 52525
;*COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
tTRACK 0, SECTOR O KEYS O READ HEADER AND DATA

025416

3370 025420
gg;} 025424

0004

012706
012737

AR AR AR AR AR A AN AR

001100
000064

TST64
003610

3373

012746

3380 025450
3381 025452
3382 025454

005305
001375
005726

3384 025460

3
3386 025464

012705
012700
011620

022020
012705

005305
001375

3390 025472

004737

:ggls.

3395 025476

012737

3398 025516

013737

396 025504
3397 025510

052525

18:

005037
013737

28:
035352

177777

001424

034572

034566
034600

034570
034564

005037

034574

MoV
MOV
MOV
DEC
BNE
TST

CMP

000017

300 053350 003037 034380
01 025534

Mov

000400
040626

005020

3387 025466
g% 025470

gg}

#STACK,SP
#64,TSTNM

AR AR AR R AR AR

sRESET STACK
sMOVE #64 TO TEST NUMBER

sHEADER CRC IS RESTORED FROM A SUBROUTINE

3376 025432

3383 025456

MoV
MoV

AR AR AN R AR

;SETUP FOR WHAT IS TO BE READ

gg;’;

3377 025436
3378 025442
3379 025446

SCOPE

#52525,=(SP)

:DATA TO BE READ

#256. RS
#DISK RO
(SP), (RO)+

s COUNTER
:START OF SIMULATED DISK DATA
:MOVE IN DATA ON TO SIMULATED DISK

(RO)+, (RO)+

: JUMP OVER THE TWO ECC WORDS

R5
18
(SP)+

Mov

#15..R5

CLR

(RO) +

s COUNT
BRANCH lf 256 NOT COMPLETE
UNDO =(SP)
:1 DATAGAP

:14_TOLERANCE GAP
:CLEAR DATA GAP, AND

DEC
BNE

R5
2s

: TOLERANCE GAP
sBRANCH IF NOT COMPLETE

JSR

PC,FILLEC

s INSERT THE TWO ECC WORDS ON THE DISK

sTHESE ARE FOR ECC TEST ONLY

:IN THE CORRECT PLACE

MoV

#-1,TSECC

MoV

HARDER,HADTMP * ;TEMPORARY HARD ERROR COUNTER

CLR
MOV

CLR

;THIS 1S AN ECC TEST

POSITI ;CLEAR ERROR POSITION COUNTER
NCODE ,NCOUNT ; TEMPORARY N-CODE COUNTER

GEces

DATENV

ZEEC HIGH ORDER 10 BE GENERATED

;CLEAR DATA ENVELOPE CLOCK COUNT

-4

ngJHEO RP04/5/6 DSKL'.T'; gTZ MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-64

READ ECC ENABLED

gzg% 025540

005037

034576

CLR

R
D SS S SSS R
FUR RN

;CLEAR LEADING ZEROS CLOCK COUNT

ZCODE

sTHESE ARE TO SETUP FOR DISKLESS USE ONLY

o
o

010000

=l=lelelelelelele
NN

= b b e
NN N

b e

b e cd b

S WN=OVONO
VS W=D

#
P23
SEIRGR

34
3405

SEQ@ 0102

036710

MOV

#FMT22,CYL

036713

MOVB
MOVB
MOV
MOV

#0,SECOTR+1
*TRACK 0
#0.SECOTR
*SECTOR 0
#0.KEY1 :KEY1=0
#0 KEY2 :KEY2=0

CLR
fl?f

X
RS,CRC

MOV

036770
033270

#256. ,DAWORD

:16 BITS PER WORD

*CYLINDER 0, FORMAT 16 BITS

;NO. OF DATA WORDS

*THIS IS A READ COMMAND
:GO TO CALCULATE CRC

WCRC

s THESE ARE REGULAR SETUPS
025624

032054

010000

JSR

PC,CLDISK

;SETUP GENERAL REGISTERS

MOV
MOVB

#REINTO,3RHBA
#0,-(SP)

:STARTING ADDRESS OF READ BUFFER
*IN LOWER BYTE GET SECTOR
*GET TRACK IN HIGHER BYTE
:TRACK/SECTOR IN RHDST

153374
153370

MOV

000001

MOVB
MOV

MOV

153360

#-256.<4. ,@RHWC :256. DATA 4 HEADER WORDS
#0.1(SP)
(SP)+,3RHDST

#FMT22,3RHOF ;16 BITS PER WORD

;ECC CORRECTION NOT INHIBIT
*BECAUSE ECC IS NOT GDING
*TO BE CHECKED

025670

005077

153356

CLR

aRHCA

025674
025700

004737

032116
053407

JSR

PC,CHECKT

025704

000000

104401

013711
005037
004737

TYPE

SCYLINDER 0

,CPHALT

REFOR,aR1

JSR

PC, COMHD

ERFLGS

;READ HEADER AND DATA=72

;CLEAR ERROR FLAG

:READ HEADER AND DATA

:IF THERE ARE READ ERRORS THEN
sECC WILL NOT BE CHECKED

;IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTQUTS
*FROM THE ‘'COMHD"* ROUTINE THAT MEANS SECTOR GAP,
*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND

:ggggcgzgf HAVE GONE BY AND SYNCS WERE CORRECTLY
*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

025722

005737

001406

TST

CANNOT CON-

:STOP THE TEST

MOV

CLR

*AND THAT NO OTHERS = 1.

*TINUE TESTING IF BOTH AREN'T TRUE

HALT

001460
001406
036550

:CHECK THAT DVA,RDY,DPR,DRY = 1

ERFLGS

;ANY ERRORS ALREADY THERE

ENT

164

L_8
MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-65

-4

CZRJHEO RP04/5/6 DSKLS PT2

CZRJHEO RP04/5/6 DSKLS PT
164
READ ECC ENABLED

HACRO v04.00 17-NOV-81 16:37:12 PAGE 10-66
BNE

00110;
031554
001316

SEQ@ 0103

TST6S

:BRANCH IF YES

Eri

*NO ERRORS SHOULD BE SET

ISR

PC PUTREG

ggg

*SAVE REGISTERS

*BRANCH IF NO ERRORS SET
sONLY 11 OF THE 32
Bng CAN BE SEEN
*IN THE PATERN REGISTE

PRIIINIIIS
S3IBINANA

034556
174000
001346

6$:

MOV

BIC
CMP
Efi?

GECC1,-(SP)

:DCK SHOULD BE SET IN RHER1
*GET PATTERN REGISTER

*BRANCH IF GOOD

#1764000,(SP)
(SP)+,EC2

:KEEP ONLY 11 BITS
*COMPARE PATTERN REGISTER

sADD 16 MAINTENANCE CLOCKS TO
:BRING EBL DOWN
012700

000020
000002
000002

78:
8s:

032306
053407

#16. RO
#MCLK ,3RHMR
#MCLK, 3RHMR
RO
8s
PC,CHECKE

s COUNTER
sSET CLOCK
sCLEAR CLOCK
:
COUNT
:BRANCH IF 16 CLOCKS NOT DONE
sCHECK THAT BITS
= 1

MoV

MOV

#WRFROM

:GETTING READY TO FILL EXPECTED DATA

MOVB
MOVB

MOV
MOV
MOV
MOV
MOV
MOV

#0.-(SP)
#0.1(SP)

(SP)+, (RO)+
#0, (RO)+
#0° (RO)+
#256. .R1
#52525 R2
RZ (ROS+

*GET TRACK/SECTOR IN BUFFER
*KEY1 IN BUFFER
*KEY2 IN BUFFER
DATA WORD COUNTER
*DAT

*BRANCH IF 256 NOT DONE

TYPE
HALT

001500
010000
000000
000000
000000
000000
000400
052525

MOV
BIS
BIC
DEC
BNE
JSR

38:

DEC

BNE

001406
031554

CLR

JSR

.CPHALT

: CANNOT CONT INUE TESTING IF
:STOP THE TEST

THEY DON'T

co'rnrzé (R0)+ *CYLINDER 0

ERFLGS

*IN LOWER BYTE GET SECTOR
*GET TRACK IN HIGHER BYTE

'DATA INTO BUFFER

+COUNT

;CLEAR ERROR FLAG

PC,PUTREG

sSAVE REGISTERS

sNOW READ DATA BUFFER WILL BE CHECKED

032756

026134
104004

000207
104005

JSR

WRFROM
REINTO

«
58

RO, COMPAR

4+256.
48
5%
TST65
EMT
RTS

EMT

s CHECK

:GOOD BUFFER
sTEST BUFFER

sNUMBER
sRETURN
sRETURN
;RETURN
4

OF WORDS CHECKED
POINT FOR ERROR HEADER
POINT FOR ERROR DATA
FOR GOOD COMPARISON

sRETURN TO "‘COMPAR'*

ngHEO RP04/5/6 DSKLS PT

Nv—od

WWWWW

vivvwvanawn

READ ECC ENABLED

N_8
HACRO v04.00 17-NOV-81 16:37:12 PAGE 10-67

SEQ 0104
sHEADER WORDS

026132

000207
AL

:510 260 ARE DATA WORDS
:RETURN TO ‘‘COMPAR'’

RTS
AR

ARt

tTEST 65

AR iRttt
iiiiidd)

READ ECC_ENASLED 38

;*THIS IS AN ECC READ DATA TEST

:*ERROR CORRECTION IS ENABLED
s*A CORRECTABLE ERROR IS INSERTED IN BIT POSITION 4128
;*THIS IS THE LAST BIT OF THE ECC

:*GOOD DATA USED IS 256 WORDS OF 52525
;*COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
'TRACK 0, SECTOR 0 KEYS 0
s

026134
3523 026136
gSZk 026142

000004
012706
012737

001100
000065

AR AR R AR AR

TST65
003610

SCOPE

MoV
MOV

AR AR

TR AR

#STACK,SP

#65,TSTNM

READ HEADER AND DATA

AN R AR AR RN RAAA AR AR A AR R

SRESET STACK

:MOVE #65 TO TEST NUMBER

:SETUP FOR WHAT IS TO BE READ
sHEADER CRC IS RESTORED FROM A SUBROUTINE

3528
3529 026150
3530 026154

052525
000400
040626

1$:

#256. RS

#DISK RO

(SP), (RO+

MOV
DEC
BNE

TST
CMP
Mov

000017
2%:

035352

sSTART OF SIMULATED DISK DATA

:MOVE IN DATA ON TO SIMULATED DISK
s COUNT

1$
(SP)+

:BRANCH IF 256 NOT COMPLETE
:UNDO =(SP)

(RO)+,(RO)+
:JUMP OVER THE TWO ECC WORDS
#15.,RS ;1 DATA GAP
;14 _TOLERANCE GAP
RS
28

(RO)+

:CLEAR DATA GAP, AND

JSR

PC.FILLEC

s INSERT ECC IN PROPER PLACE ON DISK

CLR

FOR ECC

001424

:DATA TO BE READ
: COUNTER

DEC
BNE

sTHESE ARE

#52525,-(SP)

MOV
MoV
MOV

: TOLERANCE GAP
sBRANCH IF NOT COMPLETE

TEST ONLY

#-1,TSECC
;THIS 1S AN ECC TEST
POSITI
:CLEAR ERROR POSITION COUNTER
NCODE ,NCOUNT
: TEMPORARY N-CODE COUNTER
HARDER, HAD TMP
:TEMPORARY HARD ERROR COUNTER

034566
034600

;ECC LOW ORDER TO BE GENERATED
:ECC_HIGH ORDER TO BE GENERATED
:CLEAR DATA ENVELOPE CLOCK COUNT

;CLEAR LEADING ZEROS CLOCK COUNT

sTHESE ARE TO SETUP FOR DISKLESS USE ONLY
356% 026262

010000

036710

MOV

#FMT22,CYL

3564 026270

000000

036713

Move

#0,SECOTR+1

216 BITS PER WORD

:CYLINDER 0, FORMAT 16 BITS
:TRACK 0

CZRJHEO RPO4/5/6 DSKLS PT
165
READ ECC ENABLED

8 9
MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-68

3565 0 6§52

112737

000000

3569 026326

005037

036720

3571 026336
3572 026340
3573
3574
3575
3576

036710
040610

036712

3566 026
012737 000000 036714
gser 0 6%12 012737 000000 036716
568 026320 012737 000400 036770
3570 026332

004537

033270

3588
§§gg 026366

STHIS IS A READ COMMAND

;G0 TO CALCULATE CRC

:THIS MOVE

013746
005116
042716

041630
077777

042737
052637

100000
041630

041630

012737

010026

026542

MOV
COM
BIC

BIC
BIS

MOV

usccz -(SP)
(SP)
#*C100000, (SP)

#100000,WECC2
(SP)+, UfCCZ
#4118.,88

;GET LAST ECC
1 NVERT ALL BITS OF WECC?2
:KEEP BIT 16

:CLEAR BIT 16 IN
E
:THIS WILL SET BIT 16 IF IT WAS 0

20R WILL SET NOTHING IF IT WAS A 1
; INSERT POSITION REG.

;THESE ARE REGULAR SETUPS

3594 026374

004737

032054

3596 026406

012777

002544

012777
112746

177374

000000

152624

152620

3508 026420 112766 000000 000001
3509 026426
3600 026432

ns.cac

:THIS CHANGES THE LAST BIT OF THE ECC

3591

3597 026414

;SECTOR 0

#0.KEY1 ;KEY1=0
'2 ‘KEY2 :KEY2=0
§6.,DAUORD
:NO. OF DATA WORDS

*THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING

ggg%

3595 026400

#0,SECOTR

;THIS IS TO INSERT ERROR
sTHE DISK DATA IS IN LOCATION STARTING FROM °‘DISK’

gggg

%gg?

CLR

cyYL
WCRC

3578

3584 026354
3585 026362

MOV
MOV
MOV
JSR

3577

3581 026342
3582 026346
3583 026350

MOVB

SEQ@ 0105

JSR

PC,CLDISK

JSETUP GENERAL REGISTERS

MoV

OREINTO BRHBA

STARTING ADDRESS OF READ BUFFER

m1mn

*GET TRACK IN MIGHER BYTE

;ECC CORRECTION NOT INHIBIT
*BECAUSE ECC IS NOT GOING
:T0 BE CHECKED
*CYLINDER 0

MOV
MOVB

MOVB

0,-(SP}

*IN LOWER BYTE GET SECTOR

012677
012777

152612
010000

005077

152606

CLR

aRHCA

3606 026444
026450

004737
104401

032116
053407

JSR
TYPE

PC,CHECKT
JCPHALT

e 026454

000000

JCHECK THAT DVA,RDY,.DPR,DRY = 1
;AND THAT NO OTHERS = 1.
CANNOT CONSTINUE TESTING IF BOTH AREN'T TRUE
:STOP THE TEST

3601
3602
3603
gggg 026440

152610

MOV
MOV

#-256.4. ,aRHWC :256. DATA 4 HEADER WORDS
(SP)+,RHDST
:TRACK/SECTOR IN RHDST
#FMT22,3RHOF ;16 BITS PER WORD

HALT

3608 026456 013711

001460

MOV

REFOR,aR1

:READ HEADER AND DATA=72

3610 026466
3611
§g1z

036550

JSR

PC,COMHD

READ HEADER AND DATA
:1F THERE ARE READ ERRORS THEN
*ECC WILL NOT BE CHECKED

3609 026462

354

3615
3616
3617

3618

005037

004737

001406

CLR

ERFLGS

:CLEAR ERRORFLAG

:1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
*FROM THE ‘‘COMHDTM ROUTINE THAT MEANS SECTOR GAP,
*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND

:SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY

165

SEQ 0106

READ ECC ENABLED

3619
3620
3621
362§

:DETECTED
*HEADER AND DATA ARE TO BE CHECKED.
:IN_CHECKING READ DATA THE WRITE FROM BUFFER
**\RFROM'* IS FILLED WITH EXPECTED DATA AND

3325‘

:COMPARISONS ARE MADE

3625 026472
3626 026476
3627 026500
3628 026506
3629 026512
3630 026514
3631
3632
3633
3634
3635 026516

005737
001074
004737
022737
001401
104032

001406

013746

034556

3638 026532
3639 026534

001401
104032

026522
3637 026526

3641 026536

042716
022637

004037

3642 026542 010026

0315564
100000

001316

68:

174000
001346

MOV

035200

78:

8s:

#174000,(SP)
(SP)+,EC2

:KEEP ONLY 11 BITS
:COMPARE PATTERN REGISTER

JSR

RO,ECORR

;G0 TO ECC CORRECTION PROCESS

4118.

3647 026544
026550
026554
3648 026556

004737
104401
000000
012700

032306
053407
001500

JSR
TYPE
HALT
MOV

3650 026566

112746

000000

MOVB

3649 026562 012720 010000

3651 026572
3652 026600
3653 026602
3654 ozeaog
3655 026612
3656 026616
3657 026622
3658 026624

112766
012620
012720
012720
012701
012702
010220

000000

000000
000000
000400
052525

005301

3659 026626 001375
3660

3661

%ggé

3667 026634

5
%32
36;2

38:

78
32

*BRANCH IF GOOD

*EXPECTED POSITION REG. WHEN CORRECTION

*IS COMPLETE

PC, CHECKE
,CPHALT

;CHECK THAT BITS = 1
:CANNOT CONTINUE TESTING IF THEY DON'T
:STOP THE TEST
*GETTING READY TO FILL EXPECTED DATA

MOV

co'rnrzé (no)o *CYLINDER 0

MOVB
MOV
MOV
MOV
MOV
MOV
MOV

#0.1(SP)
(SP)+, (RO)+
#0,(RO) +
#0° (RO)+
#256. .R1
#52525 R2
R2, (RO +

*GET TRACK IN HIGHER BYTE
:GET TRACK/SECTOR IN BUFFER
*KEY1 IN BUFFER
*KEY2 IN BUFFER
*DATA WORD COUNTER
*DATA
*DATA INTO BUFFER

BNE

*BRANCH IF 256 NOT DONE

DEC

#0.-(SP)

:IN LOWER BYTE GET SECTOR

: COUNT

;ONLY GOOD DATA HAS BEEN PUT IN 'WRFROM'

366%
366

3666 026630

000001

ERFLGS ;ANY ERRORS ALREADY THERE
TST66
;BRANCH IF YES
PC.PUTREG
:SAVE REGISTERS
#DCK,ERT
*ONLY DATA CHECK ERROR SHOULD BE SET
6$
*BRANCH IF YES
32
:ZERO
:ONLY 11 OF THE 32 BITS CAN BE SEEN
*IN THE PATERN REGISTER
:DCK SHOULD BE SET IN RHER1
GECC1,=(SP)
*GET PATTERN REGISTER

BIC
CMP
BEQ
EMT

3643
3644

3008

ST
BNE
JSR
CMP
BEQ
EMT

:NOW THE INSERTED ERROR WILL BE PUT IN
*BUT INSERTED ERROR IS IN ECC SO DATA IS NOT WRONG
004737

005037

031554

001406

ggrg 026640 004037 032756
3673 026644 001500

JSR

CLR

PC,PUTREG

ERFLGS

:SAVE REGISTERS

;CLEAR ERROR FLAG

;NOW READ DATA BUFFER WILL BE CHECKED

JSR

WRFROM

RO, COMPAR

: CHECK

:GOOD BUFFER

;

,./”/

CZRJHEO RP04/S5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-69

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-90
165

SEQ 0107

READ ECC ENABLED

3676 026646

002544

REINTO

sTEST BUFFER

3677

026664

:RETURN POINT FOR ERROR DATA

75 026650
76 026652
026656

000404
026660

4+256.
48

3678 006656 026670

3679 026660
026660
3680 026662
3681 026664
026664

3683

3684 026666

48:

104004
000207

58:

104005
000207

3695

INUMBER OF WORDS CHECKED
:RETURN POINT FOR ERROR HEADER

TST66

:RETURN FOR GOOD COMPARISON

EMT
RTS

4
PC

EMT

RTS

RARR AR AR

;RETURN TO

'‘COMPAR

;HEADER WORDS

:5 10 260 ARE DATA WORDS
:RETURN TO *'COMPAR"'

AR AR R AR AN

RAAAARAAARAAARAAAAAAAAAAAAAA AN

SATEST 66
READ ECC_ENABLED 3C
:*THIS IS AN ECC READ DATA TEST
:*ERROR CORRECTION IS ENABLED
;*A NON CORRECTABLE ERROR
IS INSERTED IN BIT POSITION 296 THRU 308

;*THIS IS IN WORD NUMBER 19 AND 20

:*GOOD DATA USED IS 256 WORDS OF 52525
:*COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
s*TRACK O, SECTOR O KEYS 0 READ HEADER AND DATA

026670

3696 026672
%23; 026676

000004

012706
012737

SRR AAAAARAAAAAAAAARARCARAAAAARAAAAAAAAAAAAARAAAAAAAAAA
AR AR AY

001100
000066

t4766:
00361C

3699
%;8?

3703 026710
3704 026714
3705 026720

012705
012700
011620

3709 026730

022020

MOV

000400
040626

1$:

005305
001375
005726

3711
3712 026736
3713 026740
g;}g 026742

005020
005305
001375

3716
3717 026744

004737

2%:

035352

%;%?

3722 026750

MOV
MoV
MoV

DEC
BNE
ST

CMP

3710 026732 012705 000017

%;}3

#STACK,SP
#66,TSTNM

#52525,-(SP)

:DATA
TO BE READ

RS
1%
(SP)+

: COUNT
BRANCH lF 256 NOT COMPLETE
UNDO
=(SP

#256. RS
lDISKRO
(sP), (RO)#

(RO)+, (RO)*

JW OVER THE TWO ECC WORDS

#15..RS;1 DATA GAP

CLR
DEC
BNE

(RO) +
RS
2%

:14 TOLERANCE GAP
.CI.EAR DATA GAP, AND
*TOLERANCE GAP
;BRANCH IF NOT COMPLETE

JSR

PC,FILLEC

sINSERT THE TWO ECC WORDS ON THE DISK

sIN THE CORRECT PLACE

JTHESE ARE FOR ECC TEST ONLY
MOV

#-1,TSECC

3724 026762 013737 034564 034566

MOV

NCODE ucbum

3726 026776
3727 027002

CLR
CLR

3725 026770

+COUNTER
START OF SIMULATED DISK DATA
HOVE IN DATA ON TO SIMULATED DISK

MOV

001424

3723 026756

JRESET STACK
SMOVE #66 TO TEST NUMBER

JSETUF FOR WHAT IS TO BE READ
JHEADER CRC IS RESTORED FROM A SUBROUTINE

3702 026704 012746 952525
3706 026722
3707 026724
3708 026726

SCOPE

MoV
MOV

012737

177777

005037

034570

013737

034572

005037
005037

034556
034560

034600

CLR

Mov

POSITI

HARDEfi HADTMP
GECCI
GECC2

:THIS IS AN ECC TEST

;CLEAR ERROR POSITION COUNTER

:TEMPORARY N~CODE COUNTER

;TEMPORARY HARD ERROR COUNTER

;ECC LOW ORDER TO BE GENERATED
*ECC HIGH ORDER TO BE GENERATED

CZRJHED RP04/5/6 DSKLS PT HACRO V04.00 17-NOV-81 16:37:12 PAGE 10-§1
166

SEQ@ 0108

READ ECC ENABLED

728 027006

;gg 027012

3731
373
373
3734 027016
3735

374
3743

027072

005037

034574
034576

CLR
CLR

DATENV
ZCODE

sCLEAR DATA ENVELOPE CLOCK COUNT
sCLEAR LEADING ZEROS CLOCK COUNT

sTHESE ARE TO SETUP FOR DISKLESS USE ONLY

012737

036

010000

036710

Mov

000000
000000
000000
000000
000400
036720
033270

036713

MOVB

MovBe

MoV
036770

MOV
MOV
CLR

JSR

#FMT22,CYL
#0,SECOTR+1

#0.SECOTR

:16 BITS PER WORD
C;kéNDSR 0, FORMAT 16 BITS

:SECTOR 0

#0 KEYZ ;KEY2= ;
02)6..DAHORD
:NO. OF DATA WORDS
#0,KEY1 ;KEY1=

RS.CRC

:THIS IS A READ COMMAND

;GO TO CALCULATE CRC

sTHIS IS TO INSERT ERROR
sTHE DISK DATA IS IN LOCATION STARTING FROM °'DISK'
:;nEnggeEION OF THE ERRCR CAN BE CHANGED BY CHANGING
1

3752 027076

012737

152652

040672

MoV

3754 027104

012737

052532

040674

Mov

%756 027112

012737

010040

027266

MoV

60
3761 027120
3762 027126
3763 027132

3764 027140
3765 027144
3766 027152
3767 027156
3768
3769
37 O
3771 027164
3772 027170
0271
027200

773 027202
774 027206
775 027212

#152652,D1SK+44; INSERT ERROR IN POSITION 296 THRU 304
;IN WORD NUMBER 19
#52532,D1SK+46; INSERT ERROR IN POSITION 305 THRU 308
:IN WORD NUMBER 20
#4128.,8%
s INSERT POSITION REG.

s THESE ARE REGULAR SETUPS
004 737
012777
012777
112746
112766
012677
012777

005077
082737

000000

013711
005037
004737

032054
177374
002544
000000
000000
152066
010000

152100
152074

JSR

PC,CLDISK

:SETUP GENERAL assxsrens

MOV

ansxnro @RHBA

:STARTING ADDRESS OF READ BUFFER

MOV

000001

MOVB
MOVE

152064

MOV
CLR
JSR

TYPE

HALT

MOV

CLR

JSR

#-256.~4. ,aRHWC :256. DATA 4 HEADER WORDS

#0,-(SP)
40, 1(sp)
(SP)+,aRHDST
#FMT22,3RHOF
aRHCA
PC,CHECKT
.CPHALT

:IN LOWER BYTE GET SECTOR
*GET TRACK IN HIGHER BYTE
:TRACK/SECTOR IN RHDST
:16 BITS PER WORD

*ECC CORRECTION NOT INMIBIT

*BECAUSE ECC IS NOT GOING
:TO BE CHECKED

:CYLINDER 0
:CHECK THAT DVA,RDY,DPR,DRY
= 1
:AND THAT NO OTHERS = 1.

EarLci CLEAR ERROR FLAG
PC, COMHD

CANNOT CON~

: TINUE TESTING IF BOTH AREN'T TRUE
:STOP THE TEST
READ HEADER AND DATA=72

:READ HEADER AND DA TA
:IF THERE ARE READ ERRORS THEN
:ECC WILL NOT BE CHECKED

:IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
:FROM THE “‘COMMDTM ROUTINE THAT MEANS SECTOR GAP,

CZRJHEO RP04/5/6 DSKLS PT2
166

READ ECC ENABLED

F.9
MACRC V04.00 17-NOV-81 16:37:12 PAGE 10-72

SEQ 0109

378

sFIRST SYNC, HEADER,

3785

3784
3786

*HEADER AND DATA ARE TO BE CHECKED.

3787
g;gg

*"WRFROM'* IS FILLED WITH EXPECTED DATA AND
:COMPARISONS ARE MADE

378

*DETECTED
*IN CHECKING READ DATA THE WRITE FROM BUFFER

3790 027216

005737

001406

3794 027236
3795 027240

001401
104032

3801 027246

042716

022637
001401
104032

001346

3806 027262

004037

035200

3812 027270
3813 027274

004737
022737

031554
100100

3815 027302
3816 027304

001401
104036

3791 027222 001111
mg 027224 004737 031554
3793 027230 022737 100000 001316

3796
3797
3798
3799
3800 027242 013746 034556
3802 027252
3803 027256
3388.9; 027260

HEADER CRC, HEADER GAP AND

*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY

3807 027266 000000
3808

BNE
JSR
CMP
BEQ
EMT

68:

174000

MOV
BIC

CMP
BEQ
EMT
78:

JSR

8s:

.WORD

smgs

;ANY ERRORS ALREADY THERE

TST6
PC,PUTREG
#DCK,ERT

:BRANCH IF YES
*SAVE REGISTERS
*ONLY DATA CHECK ERROR SHOULD BE SET

CECC1,=(SP)

:ZERO
*ONLY 11 OF THE 32 BITS CAN BE SEEN
:IN THE PATERN REGISTER
:DCK SHOULD BE SET IN RHER1
*GET PATTERN REGISTER

6$
32

#1764000,(SP)
(SP)+ ,EC2
78
32

' RO,ECORR

3809

e
3814

3817

001316

3818
3819
3820

3821 027306
027306
027312

004737
104401

98:

032306
053407

027316
3822 027320 012700 001500
3823 027324 012720 016000
3824 027330
027336

112746
112766

3826 027342 012620

000000
000000

3829 027
ggso 027
31 027364
ffl’i 027

3a§l. 027370

3835

012701 000400
012702 052525
o1o§20
005301
001375

38:

sCOMPARE PATTERN REGISTER
*BRANCH IF GOOD
;60 TO ECC CORRECTION PROCESS

*EXPECTED POSITION REG. WHEN CORRECTION
+1S COMPLETE

PC,PUTREG
#DCK'ECH,ER1

;SAVE REGISTERS
;WITH ERRORS INSERTED IN BIT POSITION 21

BEQ
EMT

9%
36

JBRANCH IF GOOD

JSR
TYPE

PC,CHECKE
,CPHALT

:32 HCE SHOULD SET

;CHECK THAT BITS =1
:CANNOT CONTINUE TESTING IF THEY DON'T

:STOP THE TEST
*GETTING READY TO FILL EXPECTED DATA
:CYLINDER

(SP)+, (RO)+

*GET TRACK/SECTOR IN BUFFER

#0.-(SP)
#0.1(SP)

MOV
MOV

#0, (RO) +
#0° (RO)+

BNE

MOV
MOV
MOV
DEC

*THRU 32 HARD ERROR BIT SHOULD SET

#WRFROM, RO
#0'FMT22,(RO)+

MOVB
MOVB

MOV

027344 015720
3828 027350 012720

:KEEP ONLY 11 BITS

JSR
CMP

HALT
MOV
MOV
000001

*BRANCH IF YES

#2585, .R1
#52525 R2
R2, (ROS+
R1

*IN LOWER BYTE GET SECTOR
*GET TRACK IN HIGHER BYTE

*KEY1 IN BUFFER
*KEY2 IN BUFFER

*DATA WORD COUNTER
*DATA
:DATA INTO BUFFER
*COUNT

*BRANCH IF 256 NOT DONE

;ONLY GOOD DATA HAS BEEN PUT IN "WRFROM'

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-93
166

READ ECC ENABLED

SEQ 0110

gggg

:NOW THE INSERTED ERROR WILL BE PUT IN

3838 027372

3839
3840 027400
ggzz

3843 027406

ggzg 027412

012737

152652

001554

MOV

012737

052532

001556

MOV

;IN WORD NUMBER 19 IN DATA
#52532,WURFROM+56: INSERT ERROR IN POSITION 305 THRU 308

004737

031554

JSR

PC,PUTREG

005037

001406

CLR

3846
ggzg

#152652,WRFROM+54: INSERT ERROR IN POSITION 296 THRU 304

:IN WORD NUMBER 20 IN DATA

ERFLGS

-SAVE REGISTERS

:CLEAR ERROR FLAG

:NOW READ DATA BUFFER WILL BE CHECKED

3849 027416
3850 027422
3851 027426
3852 027426
3853 027430
3854 027432
3855 027434
3856 027436

027436
3857 027440
3858 027442
027442
3859
3860
ggg; 027444

004037
001500
002544
000404
027436
027442
027446

032756

48:

104004
000207

58:

104005

000207

3872

JSR
WRFROM
REINTO
4+256.
4$
58
TST67

RO, COMPAR

RTS

EMT

4
PC

EMT

RTS

: CHECK
+GOOD BUFFER
:TEST BUFFER
*NUMBER OF WORDS CHECKED
*RETURN POINT FOR ERROR HEADER
*RETURN POINT FOR ERROR DATA
*RETURN FOR GOOD COMPARISON
;RETURN TO '‘COMPAR'’
neren WORDS
5 T0 260 ARE DATA WORDS
“RETURN TO "‘COMPAR"’

ttttttttttttttttttttt'tt'ttttt'tttt.tlltt'ttittttttttt'ttt'.tt'
-resr 67
READ ECC ENABLED 3D

s«THIS IS AN ECC READ DATA TEST
*«ERROR CORRECTION IS ENABLED
:*A NON CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32 AND 4096

:%4096 1S THE LAST DATA BIT

:#GOOD DATA USED IS 256 WORDS
OF 52525
*«COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
'TRACK 0, SECTOR O KEYS O

027446

000004

gg;z 027450

012706

001100

gg;z 027454

012737

000067

3877
3878
3879

3881 027462

3882 027466
3883 027472
gggg 85;353
3886 027502

012705
012700
85} zg

003610

000400
040626

012705

SCOPE

MOV

#STACK, SP

;RESET STACK

MOV

#67.TSTNM

:MOVE #67 TO TEST NUMBER

;SETUP FOR WHAT IS TO BE READ
:HEADER CRC IS RESTORED FROM A SUBROUTINE

052525

001375

3888 037306 092030
3889 027510

t8767:

012746

READ HEADER AND DATA

tttttt..fittt.tt'ttt'titt'tttttttttttt.ttttlttttttti.'tttttt"tt

MOV

18:

MOV
MOV
32!
BNE

000017

MOV

osgszs
,=(SP)

:DATA TO BE READ

#DISK, ao
é?”,(RO)+

:COUNTER
*START OF SIMULATED DISK DATA
?8&51'" DATA ON TO SIMULATED DISK

*BRANCH IF 256 NOT COMPLETE

(RO)Y.(RO)+
+

#15. RS

iJUMS OVER THE TWO ECC WORDS
*1 DATA GAP

H 9
CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-74
167
READ ECC ENABLED 3D
90
3891 027514

005020

3895
3896 027522

004737

3892
9%

0er3le
027520

3808

005305
001375

389

3901 027526

012737

3908 027540
3904 027546
3905 027554

013737
013737
005037

3902 027534

28:

005037

035352

005037
005037

DEC
BNE

(RO)+

RS
28

:14 TOLERANCE GAP
CLEAR DATA GAP, AND
*TOLERANCE GAP BRANCH IF NOT COMPLETE

JSR

PC.FILLEC

;INSERT THE TWO ECC WORDS ON THE DISK

CLR

177777

001424

MOV

#-1,TSECC

034564
034572
034556

034566
034600

MOV
MOV
CLR

NCODE,NCOUNT :TEMPORARY N-CODE COUNTER
HARDER,HADTMP ' :TEMPORARY HARD ERROR COUNTER
GECCI
;ECC LOW ORDER TO BE GENERATED

CLR
CLR

DATENV
ZCODE

034570

CLR

034574
034576

3910

POSITI

GECC2

:THIS 1S AN ECC TEST

:CLEAR ERROR POSITION COUNTER

ECC HIGH ORDER TO BE SENERATED

:CLEAR DATA ENVELOPE CLOCK COUNT
:CLEAR LEADING ZEROS CLOCK COUNT

:THESE ARE TO SETUP FOR DISKLESS USE ONLY

3913 027576
3914
3915 027602

3919 027632

027640
027644
3922 027650
3923 027652
3924
3925
3926
3927

3928
3929
3930
3931 027654

3932 027662
gggz 027670

012737

010060

036710

MOV

WFMT22.CYL

112737
12737
12737
12737

000000
000000
000000
000000

036713
036712
036714
036716

Movs
MoV
MoV

MOVE

#0,SECOTR+1
#0,SECOTR
sSECTOR 0
#0,KEY1 :KEY1=0
#0 KEY2 ;KEY2=0

005037
004537
036710
040610

036720
033270

012737

000400

036770

MoV

CLR
JSR
CyL
WCRC

#256. ,DAUORD
X
R5,CRC

:16 BITS PER WORD
*CYLINDER 0, FORMAT 16 BITS
s: TRACK 0

:NO. OF DATA WORDS

sTHIS IS A READ COMMAND
;GO TO CALCULATE CRC

sTHIS IS TO INSERT ERROR
sTHE DISK DATA IS IN LOCATION STARTING FROM °*DISK'
sTHE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING
;THIS MOVE
012737

012737
012737

152525

152525
010040

040630

041624
030044

3935
gggg

MOV

MOV
MOV

#152525,D15K+2

:FORCE ERROR ON BIT NUMBER 32

#152525 D15Kk+<255.+2>;FORCE ERROR IN BIT 4096
#4128. .88
;INSERT POSITION REG.

;THESE ARE REGULAR SETUPS

3938 027676

004737

032054

JSR

PC,CLDIS

3940 027710 myn 002544 151316

MOV

#REINTO,@RHBA

sugmnz

MOVB

#0,-(SPS

3939 027702 012777 177374 151322
3941 027716

112746

000000

3943

012677

151310

027730

112766

000000 000001

3944 027734 012777 010000
3945
3946

*IN THE CORRECT PLACE

:THESE ARE FOR ECC TEST ONLY

3906 027560 005037 034560

3907 027564
3908 027570

SEQ@ 0111

151306

MOV

;SETUP GENERAL REGISTERS

:-ége.-a..anuuc :2?6. DATA 4 HEADER WORDS
#0.1(SP)

(SP)+,@RHDST

#FMT22,3RHOF

:STARTING
ADDRESS OF READ BUFFER

*IN LOWER BYTE GET SECTOR

“GET TRACK IN HIGHER BYTE
:TRACK/SECTOR IN RHDST

:16 BITS PER WORD

sECC CORRECTION NOT INHIBIT
sBECAUSE ECC IS NOT GOING

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-;5
167

READ ECC ENABLED

3947
3948 027742
3949
3950 027746
027752

SEQ 0112

151304

CLR

aRHCA

:TO BE CHECKED
sCYLINDER 0

032116
053407

JSR

PC,CHECKT

sCHECK THAT DVA,RDY,DPR,DRY
= 1

TYPE

027756

LCPHALT

001460
001406
036550

MoV

CLR
JSR

:AND THAT NO OTHERS = 1.

CANNOT CON:TINUE TESTING IF BOTH AREN'T TRUE

)

;STOP THE TEST

HALT

3952 027760
3 027764
3952 027770

REFOR,aR1

; READ HEGDER AND DATA=72

PC,COMHD”

AD HEADER AND DATA
:IF THERE ARE READ ERRORS THEN

ERFLGS

;CLEAR ek

:ECC WILL NOT BE CHECKED
:IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
:FROM THE “'COMHDTM* ROUTINE THAT MEANS SECTOR GAP,

;FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND
:SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
:DETECTED
:HEADER AND DATA ARE TO BE CHECKED.

IN CHECKING READ DATA THE WRITE FROM BUFFER
:"WRFROM'' IS FILLED WITH EXPECTED DATA AND
:COMPARISONS ARE MADE

3969 027774

005737

001406

031554
100000

TST
BNE
JSR
CMP
BEQ
EMT

001316

ERFLGS
18770

:ANY ERRORS ALREADY THERE
sBRANCH IF YES

PC,PUTREG
#DCK,ER1

sSAVE REGISTERS
sONLY DATA CHECK ERROR SHOULD BE SET

:BRANCH IF YES
ZERO

sONLY 11 OF THE 32 BITS CAN BE SEEN

034556
174000
001346
84
3985 030040
86 030044

3988
3989
3990

6$:

JSR

RO,ECORR

:GO TO ECC CORRECTION PROCESS

JSR
cMP

PC,PUTREG

s SAVE REGISTERS

93
36

:BRANCH IF GOOD

MOV

BIC

BEQ
EMT

035260

031554
100100

sIN THE PATERN REGISTER
sDCK SHOULD BE SET IN RHER1
:GET PATTERN REGISTER
sKEEP ONLY 11 BITS
s COMPARE PATTERN REGISTER
sBRANCH IF GOOD

7$:
8$:

001316

.WORD

BEQ
_EMT

GECC1,=(SP)

#1746000, (SP)
(SP)+,EC2
32

#DCK 'ECH,ER

sEXPECTED POSITION REG. WHEN CORRECTION
:1S COMPLETE

sWITH ERRORS INSERTED IN BIT POSITI ON 32
sAND 4096 HARD ERROR BIT SHOULD SET

:32 HCE SHOULD SET

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-’6
167

READ ECC ENABLED

4001 030064

ogoook

030070
030074

004737

104401

SEQ 0113

98:

osgsog

05340

4002 030076

012700

001500

4004 030106
4005 030112

112746
112766

000000
000000

4008 030126
030132

012720
012701

000000
000400

4012 030144
23}2 030146

005301
001,75

PC, CHECKE

TYPE

MOV

4010 030136 012702 052525
4011 030142 010220

38:

4015
4016

*CANNOT CONTINUE TESTING IF THEY DON'T
STOP THE TEST

*GETTING READY TO FILL EXPECTED DATA

MOV

000001

;CHECK THAT BITS
= 1

,CPHALT

"HALT

4003 030102 012720 010000
030120 012620
4007 030122 012720 000000

JSR

awmnémm+ *CYLINDER0

MOVB
MOVE

#0.-(SP)
#0.1(SP)

:IN LOWER BYTE GET SECTOR
*GET TRACK IN HIGHER BYTE

MOV
MOV

#52 3
nz (RoS+

*DATA
*DATA INTO BUFFER

MOV
MOV
MOV
MOV

csfi)+ (RO) +
0., (RO) +
to (R0)+
gg

DEC
BNE

*GET TRACK/SECTOR IN BUFFER
*KEY1 IN BUFFER
*KEY2 IN BUFFER
*DATA WORD COUNTER
: COUNT
*BRANCH IF 256 NOT DONE

sONLY GOOD DATA HAS BEEN PUT IN °'WRFROM®
;NOW THE INSERTED ERROR WILL BE PUT IN

2822 030170
23
28%§

012737
012737

15
15

5
5

005037

004737

004037
001500
002544
000404
030214

4032 030212

030224

4033 030214
030214
4034 030216
4035 030220
030220

4037

:8;3 030222

MoV
MoV

#152525 ,WRFROM+<5%2>
s INSERTED ERROR IN BIT 32
#152525 ,URFROM+<259.%2> ' ; INSERT ERROR IN BIT 4096

CLR
JSR

ERFLGS
;CLEAR ERROR FLAG
PC,PUTREG
sSAVE REGISTERS

sNOW READ DATA BUFFER WILL BE CHECKED

4026 030174
4027 030200
4028 030202
4029 030204
4030 030206
4031 030210

00151
00250

4018 030150
4019 030156
4020
4021 030164

032756

JSR
WRFROM
REINTO
4+256.
48

030220

RO, COMPAR

s CHECK
:GOOD BUFFER (CHANGED)
sTEST BUFFER
sNUMBER OF WORDS CHECKED
sRETURN POINT FOR ERROR HEADER

4S:

104004

000207

58:

104005

000207

4046

sRETURN FOR GOOD COMPARISON

EMT
RTS

&
PC

EMT

RTS

sRETURN POINT FOR ERROR DATA

TST70

sRETURN TO ‘‘COMPAR'’
sHEADER WORDS

:5 10 260 ARE DATA WORDS
:RETURN TO

‘‘COMPAR

AR AR AR RN R AR AR AR AN AN AR RN RN RN RN AR

'TEST 70

RR AR

PROGRAM INTERRUPT

:*PROGRAM INTERRUPT

IS TESEED BY SETTING RDY AND IE

;*IN RHCS1 AT THE SAME TIM

:*THIS SHOULD INTERRUPT THROUGH LOCATION 254
:*THE PROCESSOR PRIORITY IS SET TO 4

030224

000004

SRR

4047 030226
2823 030234

012737
012706

000070
001100

4050 030240
4051 030244

004737
013700

032054

001226

003610

t§7170:

AR AR

SCOPE

RAAN AR

MOV
MOV

#70,TSTMM
#STACK, SP

JSR

PC,CLDISK

MoV

RPVEC RO

AR AR AR

AARAARAARAN AR AR

AR AR ARy

;MOVE #70 TO TEST NUMBER

sRESET STACK

:CLEAR DISK
sGET VECTOR ADDRESS

CZRJHEO RP04/5/6
DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-?7
PROGRAM

170

SEQ 0114

INTERRUPT

4052 030250
4053 030254
4054 030260
030266
4056 030272

012720
012710
012737
012711
013737

4058 030304

001375

4057 030300
2823

4061 030306
2’32% 030312

005337

004737

104021

030316
000340
000200 177776
000300
032432 001200

001200

18:

022626
004737

4069 030332
4070 030334
?.8;5

001401
104021

4068 030326

#RPTRP1,(RO)+
#PR7, (RO)
ml.,ps
#RDY' 1E ,aR1
TIMCNT, $TMP1

:;SET INTERRUPT VECTOR
*SET SERVICE ROUTINE PRIORITY
*SET PROCESSOR PRIORITY
:RDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT
: COUNTER

BNE

“BRANCH IF NOT ZERO

JSR

PC,PUTREG

*SAVE REGISTERS

18171

;BRANCH TO NEXT TEST

(SP)+,(SP)+
PC,PUTREG

JRESTORE STACK
*SAVE REGISTERS

1ST71

*BRANCH IF GOOD

DEC

031554

EMT

2% 030314 000410
4066 030316
4067 030320

MOV
MOV
MOV
MOV
MOV

031554

022737 004200 001314

‘077

RPTRPi1: CMP
JSR

CMP

BEQ
EMT

$TMP1

WATT FOR INTERRUPT

gg;gge THIS IS ZERO INTERRUPT SHOULD

#DVA'RDY,CS1

:'IE' SHOULD BE LOW
:*1E* FAILED TO RESET

ttttttttQttttttttttttttttttttttttttttttt'ttttttttttttttttttttt'

'TEST 7

INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME

tPROCESSOR PRIORITY IS SET AT S

030336

000004

4081 030352
4082 030356

004737
013700

408% 030366

012710

-15 AND RDY IS SET.

ttttttttttttttttttttt'tttt!.ttt'tttttttttttttttttttlttttttttttt

4078 030340 012737 000071 003610
z% 030346 012706 001100
4083 030362

012720

4089 030416 001375

:MOVE #71 TO TEST NUMBER
*RESET STACK

032054
001226

JSR
MOV

PC,CLDISK
RPVEC RO

;CLEAR DISK
JGET VECTOR ADDRESS

000340

MOV

#PR7, (RO)

*SET SERVICE ROUTINE monm

030422

MOV

177776

001200

000404

4094 030422

022626

4096 030430

104021

4095 030424

4097

004737

#PRS PS
#RDY'1E.

DEC

$TMP1

BNE
BR

031554

ORPTRPZ (RO)+

MOV
MOV

MOV

18:

40%0

283% 030420

SCOPE

#71,TSTNM
#STACK, SP

4087 030404 013737 032432 001200
005337

$8171:

MOV
MOV

4085 030372 012737 000240
4086 030400 012711 000300
4088 030412

(SAME AS THE DISK)

THIS SHOULD NOT INTERRUPT

RPTRP2: CMP

JSR
EMT

sSET INTERRUPT VECTOR

*SET PROCESSOR PRIORITY
*RDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT

TIMCNT, imm: COUNTER
1$

:WAIT FOR INTERRUPT

*BRANCH
IF NOT 2ERO

gems THIS IS ZERO INTERRUPT SHOULD

18772

*NO INTERRUPT SO BRANCH

(SP)+,(SP)+

JRESTORE STACK

PC,PUTREG
21

*SAVE REGISTERS

:PROCESSOR STATUS SAME

2883

:AS

‘106

tttttt.ttttttt'tttt'.tttttttttttttttttttttttttttttt'tttttttt'.t

LiTEST 72

DISK

END OF DRIVE

:*THIS IS THE END OF TEST FOR ONE DRIVE

E DRIVES THEN THE PROGRAM
;*IF THERE ARE
s*JUMPS TO TEST 5 FOR NEXT DRIVE TEST

s*END PASS IS REACHED ONLY AFTER ALL DRIVES ARE COMPLETE

030432

000004

SRR

AARAAAARAAAAARAA NN RN AN AAANAAAANAAAAAANAANAN
AR
AR ANRRARRRS

t§172:

SCOPE

C;RJHEO RP04/5/6 DSKLS PT2 MACRO V04.0C 17-NOV-81 16:37:12 PAGE 10-98

172

SEQ@ 0115

END OF DRIVE

030434
2}8; 030442

012737
004737

000001
032054

001212

MOV
JSR

#1,8TIMES
PC.CLDISK

::D0 1 ITERATION

4109 030446 012737 000000

177776

MOV

#0.PS

:REINSTATE
PS T0 0

6110 030456
030460

104401
000424

030462

LN ososgg
4112 030
4113 030540

013746
104405
104401

001374

030544

000402

::678:

013746
104405
005037
005037
005737
001413

001112

4121 030576
4122 030602

005237
104401

001100
030765

4124 030612
4125 030614
2}59 030620

104405
104401
000137

013746

4128 030624
4129 030630
4130 030632
4131 030636
4132 030642

005337
001413
013700
012701
022100

4134 030646
4135 030650
4136 030654

000775
011137
000137

668
:

001112
001102
001402

001160

001374
001354

4133 030644 001401

001374
006756

MOV
TYPDS
TYPE

UNIT,=(SP)
:
678

JASCIZ

/= /

,.rvps ASCIZ STRING
T OVER THE ASCIZ

3s:

18:

28:

:GET READY TO TYPE UNIT NUMBER
;:TYPE ASCIZ STRING

668

*:GET OVER THE ASCIZ

MOV
TYPDS
CLR
CLR
ST
BEQ

$ERTTL,=(SP)

:GET READY TO TYPE NUMBER OF ERRORS

SERTTL
STSTNM
SELECT

:CLEAR TOTAL NUMBER OF ERRORS
:CLEAR TEST NUMBER
*STARTING FROM 200 ?

INC
TYPE

$PASS
SENDMG

; INCREASE PASS COUNT
*TYPE END PASS #

TYPDS
TYPE
JMP

,SENULL
isTS

;CONTINUE TESTING THIS DRIVE

DEC
BEQ
MOV
MOV
CMP

NOUNITS
$EOP
UNIT.RO
SUNITS,R1
(R1)+,R0

:NO. OF UNITS PRESENT DECREMENTED
*BRANCH IF ALL onxvss COMPLETE
uuxr UNDER TEST
*TABLE
*1S THIS UNIT JUST TESTED

BR
MOV
JMP

18
(R1) ,UNIT
TSTS

*BRANCH IF NO
*THIS IS NEXT UNIT
:TEST NEXT DRIVE

MOV

030762
006756
001376

65s
648

éi?s” LASCIZ <CRLF>/TOTAL snnoks FOR THIS PASS ON UNIT NO./

030546

030552
4114 030552
4115 030556
4116 030560
4117 030564
4118 030570
2}53 030574

4123 030606

TYPE
BR

BEQ

$PASS, - (SP)

*TEST NEXT DRIVE IF SO

*BRANCH
IF YES

SEQ@ 0116

END OF PASS ROUTINE
1

.SBTTL
SRR

END OF PASS ROUTINE
AR AR AR AR AR AN

R AR AR

AR AR AR AR AR AR

'INCREHENT THE PASS NUMBER (S$PASS)

AR AR RIS

;«TYPE 'END PASS #XXXXX'' (UHERE X IS A DECIMAL NUMBER)
;*IF THERES A HONITOR GO TO IT
;«1F THERE ISN'T JUMP TO TST1
$EOP:

S$TSTNM

STIMES

$PASS
#100000,8PASS
C)+

SEOPCT:

SENDCT:
030765
001100

$DOAGN

%PC)*,E(PC)*

SENDMG

$PASS, = (SP)

030762
000042

s INCREMENT THE PASS NUMBER

..Eggp; ALLOW A NEG. NUMBER

—

001100

::ZERO THE TEST NUMBER
..ZERO THE NUMBER OF ITERATIONS

. SENULL

$GET42:

a#42,RO
$DOAGN

$ENDAD:

PC,(RO)

2:YES

s sRESTORE COUNTER
;sTYPE "END PASS #''

s sSAVE SPASS FOR TYPEOUT
2260 TYPE=--DECIMAL ASCII WITH SIGN
ssTYPE A NULL CHARACTER
ssGET MONITOR ADDRESS
;:BRANCH IF NO MONITOR
;:CLEAR THE WORLD
2:G0 TO MONITOR
: :SAVE ROOM
::FOR

$DOAGN:

012

000
105

:
SRTNAD
:
SENULL
SENDMG: LASCIZ

J:ACTN

a(PC)+
ST
-1,-1.,0

2 sRETURN

: sNULL CHARACTER STRING

<15><12>/END PAS S ¥

e e——————

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 11

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 12

SEQ 0117

END OF PASS ROUTINE

SRR AARAAAARAAAAAAAARAAR
AN ARAAAAAAAARANAAAAAAAAAAAA AR AR

NS W

I*HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS.
s*ON HITTING AN CRROR IF THE LOOP ON ERROR SWITCH IS SET, THE
;*PROGRAM GOES BACK = USUALLY BACK TO THE BEGINNING OF THE TEST.

NON NS WA = OO0 00 N

s*WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT
:*THE PROGRAM GOES BACK TO CAN BE CHANGED.

PININIRINI
NN b =D il cd cd cd d did e

s*THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: s*1.
IT MUST BE WITHIN THE TEST UNDER CONSIDERATION
:'g. LOOP ON ERROR SWITCH MUST BE SET
:*3.
THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION
s*IF THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION
s*THE PROGRAM WILL REVERT TO NORMAL OPERATION.

IF LOOP ON

s*TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED
s*THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT
s*COMES TO THE END OF THE TEST UNDER CONSIDERATION.
* %

;*AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN

VS WN = OOV

s *NORMAL OPERATION WILL CONTINUE.
e

_— o b =D

000000

005037

177776
031016

v ¥ o =3 —a &H &gavy SPEER
O

2 b b =2

o
W

eSmcdaa

N
oo

—

b ey

WWWWWW

cooooo

013746
104402
104401

000414

SO0

35 0312

AR AR AR AR A AR AR AT

OPERSEL :
-gss:

104401
000421

AR R AR AR AR RN

TESTAD: 0

003610
031074

'278:

001110

001223
031144

031224

768:

::73%:
723:
031356

55;53:

A R AR

AR AR

R AR

:FIRST ADDRESS OF TEST

’

LASCIZ

PS
;MAKE PROCESSOR STATUS ZERO
,658
::TYPE ASCIZ STRING
4
::GET OVER THE ASCIZ
6’
o0
<CRLF>/THE PROGRAM WAS IN TEST NUMBER /

MoV

TSTNM,=(SP)

TYPE
BR
.ASCIZ

,67%
*:TYPE ASCIZ STRING
66%
:.GET OVER THE ASCIZ
<CRLF>/THE LOOP BACK PC WAS /

?egoc

S$LPERR,=(SP)

TYPE

+SCRLF

BR
.ASCIZ

68%
::GET OVER THE ASCIZ
<CRLF>/SET LOOP ON ERROR OR LOOP ON TEST SWITCH/

TYPOC

TYPE

-:718:

031272

CLR
TYPE

TYPE

;;698:

—

WWW

HOWEVER,

B8R

.ASCIZ

TYPE

:GET READY TO TYPE TEST
*NUMBER

JGET READY TO TYPE LOOP BACK PC

.69%

22TYPE ASCIZ STRING

718

;:TYPE ASCIZ STRING

708

“:GET OVER THE ASCIZ

<CRLF>/TYPE THE FIRST PC OF THE TEST/

73$

::TYPE ASCIZ STRING

728

*:GET OVER THE ASCIZ

ADD
MOV
TYPE

#2,(SP)
(SP)+,SLPADR
758

:GET LPADR

LASCIZ

<CRLF>/TYPE THE PC WHERE YOU WANT/

.ASCIZ

RDOCT

<CRLF>/ FOLLOWED BY A CARRIAGE RETURN

743

::TYPE ASCIZ STRING

“*GET OVER THE ASCIZ

/<CRLF>

€l
CF

8 10
CZRJHEOD RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 12-1
END OF PASS ROUTINE
40 0%1‘12
031416

104401

031420

TYPE
BR

778
63

..TYPE ASCIZ STRING
T OVER THE ASCIZ

(SP)+,SLPERR

;GET LPERR

53;?8: +ASCIZ <CRLF>/ THE PROGkAH TO LOOP BACK TO FOLLOWED BY A CARRIAGE RETURN /<CRLF>
RDOCT

MOV

SLPADR, - (SP)

;THIS CLEARS UP GARBAGE

g} 031542

005037

034562

53
54
55 031546
56 031552

005037
000002

001426

SEQ@ 0118

CLR
CLR

NOSYNC
TSECC

;CLEAR FLAG _FOR HEADER ERROR COHHANDS

CLR

TSECCG

;EVEN IN AN ECC TEST EVERY CLOCK

CLR

TESDTE

:DRIVE rinxnc ERROR TEST

RTI

sCLEAR FLAG

FOR ECC TEST

:WHEN =177777 1T IS AN ECC TEST
SWHEN =0 IT IS NOT AN ECC TEST
;1S NOT _TC GENERATE ECC
;xr -177777 GENERATE ECC
=0DO NOT GENERATE ECC

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 13

c10

SEQ@ 0119

SAVE REGISTERS ROUTINE

.SBTTL

4 1313333333333 2133333322223 3333332323333 2333233322232 33233222223

:IN MEMORY LOCATIONS TAGED FROM

:ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT

:THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS

g
9

031554
031556
031560
14 031562
15 031566
16 031572
17 031576
18 031600

"EC2

::Qtttttt.tt'tt.tttttt'ttttttt.tlQt.Qttttttttttitttt.tt"tttt'ttt

010046
010146
010246
012700 001232
012701 001306
012702 000023
013021
005302

19 031602 001375
20 031604 012602
031606
031610
21 031612

‘WC''

STHIS IS DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS
*AND NOT THE REGISTERS THEMSELVES.
THIS WILL MAKE

12
13 031554

SAVE REGISTERS ROUTINE

012601
012600
000207

PUTREG:

108:

MOV
MOV
MOV
MOV
MOV
MOV

RO,=(SP)
::PUSH RO ON STACK
R1,=(SP)
::PUSH R1 ON STACK
R2,=(5P)
::PUSH R2 ON STACK
#RAWC RO
:STARTING ADDRESS OF REG
MIC.R
-STARTING ADDRESS OF SAVE LOCATIONS
#RHCC=RHWC+2/2,R2 ;NUMBER OF REG. INTO R2

BNE
MOV

108
(SP)+,R2

MOV
DEC

MOV
MOV
RTS

@(R0O)+,(R1)+
R2

(SP) +,R1
(SP)+.R0
PC

~ ;SAVE HARDWARE REG.

::POP STACK INTO R2

2:POP STACK INTO R1
::POP STACK INTO RO

.SBTTL

D10

SEQ 0120

FLOAT 1 AND 0

S oA

AR AR AR A AR AR

R AR AR AR AR AAAR AR

AR AR

AES

s*FLOAT A ONE AND A ZERO THRU A DESIGNATED REGISTER
s *ABSOLUTE ADDRESS OF REG. UNDER TEST IS IN R4
AR AR ARt

ittt diiiiiiidiidiidididdd)

;BITS UNDER TEST
sERROR HLT ADDRESS

0
0
031614

(R5)
+ ,MASK

031620

R4 ,REGADR
R5,LERR ;GET ERROR RETURN ADDR.

(R5)+,Ré4

sFETCH DATA MASK

;GET ADDRESS OF REG. UNDER TEST

#4.RS
:MODIFY RETURN ADDR. TO JUMP OVER RTS
#1.R3__
:INITIALIZE DATA PATTERN
PC.BLT2 :OUTPUT FLOATING ZERO
PC.BLTZ :OUTPUT FLOATING ONE

b e NI\

b b

032034

—

PNt
NN
NN

NWNWNNNNNSNNNNYNY WO WW=NNWWNNNSN

S8
O = NOWWWWNW = NN WNWNWO O NO O N WO O WLNSE W §88
=2 NN = NN =N NNNNW

-t ON =

8383832<>€R¢D¢D<><>
FURUCDSENJAJ
SRR

SRS228R8228

=
N
== WUV
= WWnwWwno
v

o
SO0

Seass
NISTEES2RRECRR B2

(=] OOO0O0O0O0O0O0O0O0O00O0
OO0O
N WNNNNNNNNANWNAN - WWWW

CO000O0000O
AN
AN AN NN

2AN NN AN N NN
A
SOUBISRRURLE

NN NN B S

sW R

e Jen Y

V.] SNWNN=OOVRNOVNSWNN=O
VRN VS W=

5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 14

001124

sSHIFT PATTERN

BLT1
RS
R3

sBRANCH IF NOT COHPLETE
sRETURN TO TEST
s COMPLEMENT PATTERN

R3,$GDDAT

SYORE GOOD DATA

#8LT3,LAD

MASK

:SET SCOPE LOOP

D MASK WITH PATTERN

MASK, SGDDAT;cLEAkTHE REST

MASK

$GDDAT, (R4)

RESTORE MASK

:OUTPUT TO REGISTER

flg).saoon

*INPUT FROM REGISTER

001126

MASK, SBDDAT

001126

MASK

sAND MASK OUT RECEIVED DATA
:RESTORE MASK

$GDDAT,$BDDAT; IS DATA CORRECT
1$
sBRANCH IF GOOD

PC,3LERR

;GO TO REPORT ERROR

:LOCAL SCOPE LOOP

CZRJHEOD RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 15

E 10

SEQ@ 0121

CLEAR MEMORY R0UTINE

.SBTTL

;THIS CLEARS ANY BLOCK OF MEMORY

[
7
8
9

sCALL
:
:
:

12
13

*R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED
*R2 AFTER SUBTRACTION WILL HAVE TWICE NUMBER OF LOCATIONS

:TO AVOID DIVIDE ROUTINE TWO DECREMENT R2 WILL BE USED

CLEAR MEMORY ROUTINE

“FILLING IT WITH ANY DATA

JSR
LWORD
WORD

.WORD

RO, CLAREA
X
Y

;STARTING ADDRESS OF BLOCK

;DATA TO BE FILLED

*R3 WILL HAVE DATA TO BE FILLED

18 031772

031772
031776
031776

010146
010246
010346

20 032002
21 032006
032
23 032010
24 032014
25 032016
26 032020
7 03202z
28 032026

012002
012003
160102
062702
010321
005302
005302
001374
012603

29 032032

000200

CLAREA:

19 032000 012001

032026
032030

012602
012601

MOV
MOV
MOV

R1,=(SP)
R2,=(SP)
R3,=(SP)

::PUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK

MOV
MOV
SUB
ADD
MOV
DEC
DEC
BNE
MOV

(RO)+.R2
(RO)+.R3
R1,R2
#2.R2
R3.(R1)+
R2
R2
18
(SP)+,R3

10
*DATA
*NO. OF LOCATIONS MINUS TWO
:GET TWICE NO OF LOCATIONS
*MOVE IN DATA

RTS

MOV
000002

18:

MOV
MOV

(RO)+,R

(SP)+.R2
(SP)+.R1

+FROM

:BRANCH IF NOT COMPLETE

:;POP STACK INTO R3
::POP STACK INTO R2
$:POP STACK INTO R1

*RETURN

CZRJHED 2:g4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 16
LOCAL TR
1

g 032034

000000

& 032036
5 032044

032777
001402

6 032043
g 032052

013716
000002

LAD:
001000

147074

032034

.SBTTL

T.SCOP: BIT
BEQ

18:

MOV
RTI

F10

LOCAL TRAPS

#SW09,aSWR
1$

LAD, (SP)

;EXAMPLE OF THE USE OF THE ABOVE

SCoP1

};

.SBTTL

CLEAR DISK ROUTINE

sTHIS WILL LOOP gsTUEEN X: AND SCOP1 PROVIDED THERE IS NO 'NEWTST"

19 032054

013701

001240

CLDISK: MOV

24 032076
25 032100
26 032104
27 032106
28 032114

012712
013712
005011
012777
000207

000040
001374

MoV
MoV
CLR
MOV
RTS

20 032
21 032064
%% 032070

SEQ 0122

01370%
013703
013704

001236
001262
001242

177777

MOV
MoV
MoV

147142

RHCS1,R1

sR1 WILL BE CONTROL AND STATUS1

#CLR,aR2
UNIT,aR2
aR1
#-1,3RHAS
PC

sCLEAR ALL REG.
cREINSTATE UNIT NO.
sCLEAR FUNCTION BITS
sCLEAR ATTENTION BITS

RHCS2.R
RHDS1,R
RHER1,R4

sR2 WILL BE CONTROL AND STATUSZ2
sR3 WILL BE DISK STATUS REGISTER1
;R4 WILL BE ERROR REGISTER M

CZRJHEO RP04/5/6 DSKLS PTZ MACRO V04.00 17-NOV-81 16:37:12 PAGE 17

G 10

SEQ 0123

CHECK DISK STATUS ROUTINE

+SBTTL

CHECK DISK STATUS ROUTINES

SRR AR AR AR

AR AR AN

R AR AN AR

AAAA AR

RAAAARAAA

s*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 = 1
s*AND CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS1 = 1
s*IT ALSO CHECKS THAT ALL OTHER BITS IN THESE REGISTERS = 0
e AR

011637
162737
004737
022737

001414
000004
031554
004200

001414

CHECKT: MOV
sus

JSR
CMP

001314

001423

032737
001004
010137
104026

004000

001314

001122

27
28 032202
29 032204
30 032210

104026

000200

001314

18:

001122
28:

001122

(SP) ,PCJSR
#%,PCJSR

: SAVE REGISTER
2zgsg£sng2%o HAVE DEVICE AVAILABLE

BEQ

*BRANCH IF GOOD TO RHDS1 CHECK

BIT
BNE

#DVA,CS1
1$

:BAD SO TEST DEVICE AVAILABLE
*TEST READY IF DVA THERE

;AVAILABLE AT START OF TEST
*BRANCH TO RHDS1 CHECK

BIT

#RDY,CS1

:TEST READY

gg¥

gg.savon

*ADDRESS OF BAD REGISTER (RHCS1)

BNE

BR
Eg¥

gg.savon

3s
gz.savoa

:IF RDY THERE BRANCH

;AT THE START OF TEST
*BRANCH TO NEXT COMPARE
:ADDRESS OF BAD REGISTER (RHCS1)
*ALL OTHER BITS SHOULD BE 0
AT START OF TEST

001336
001100
000600
000400

3s:

000200

001336

001122

MOV

68:

DS1,-(SP)

:GET RHDS1

BIC

AVVIPROG,(SP)

BEQ

*RETURN TO TEST IF GOOD

BIT

#DPR,DS1

:BAD SO TEST DRIVE PRESENT

BR
BIT
BNE
Eg¥

5
#DRY,DS1
6$
ag.sevoa

:BRANCH OUT
*TEST DRIVE READY
*IF DPR WAS THERE SO BRANCH
*ADDRESS OF BAD REGISTER (RHDS1)

BR
gg¥

$
gg.ssonon

;BRANCH OUT
*ADDRESS OF BAD REGISTER (RHDS1)

CMP

001122

51 032274
52
53
54 032276
55
56 032300
57 032304

*ADDRESS OF BAD REGISTER (RHCS1)

;THAN DVA AND RDY SET

33
35 032212
36 032216

sSAVE PC OF JSR+4
:GET PC OF JSR

PC,PUTREG
#DVA'RDY,CS1

ggg

000413

032737
00 1003
010137

AR AR AR A AR AN AN AR AR AR AAAAAAAAARAARAAAAAAAARAAA
AN

BNE
ggg

#DPR!DRY.(SP)+
s
ng.seonon

:CLEAR VV AND PROGRAMABLE BIT

:RHDS1 SHOULD HAVE THESE SET

*CHECK DRY IF GOOD
*ADDRESS OF BAD REGISTER (RHDS1)

:THAN MOL,

000006

78:

RTS

8s:

ADD

#6,(SP)

RTS

DRY,

DPR, SET

*ALL OTHER BITS SHOULD BE 0

*RETURN TO TEST AND HALT = FATAL ERROR

;ADJUST STACK PTR TO GET OVER HALT IN TEST
sRETURN TO TEST AND CONTINUE TESTING

H10
CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 17-1

SEQ@ 0124

CHECK DISK STATUS ROUTINES

ttfit'tttttttt.tltttttt't'tt.ttttt.ttttttttt.'tt'tt'tttttt.ttttt

60
61

-rnxs CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1= 1
*«AND CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS!1= 1

-17 DOES NOT CHECK THAT OTHER BITS IN THESE REGISTERS = 0

fitt'tttttt'tfitt.ttt't'ttttt'ttttttttttt..'t'ttt.tttttttt'ttttt.

6k
65 032306

011637

001414

67 032320

004737

031554

70 032332
71 032336
72 032340
73
;g 032342

001004
010137
104026

66 032312
ga 032324

162737

032737

000004

001414

000200

001314

000427
032737

004000

032360

001004
030137
104026

001122

82 032362

000417

032737

84 032372
85 032374
86 032400
87 032402

001004
010337
104026
000407

89 032412
90 032414
91 032420
gg 032422

001004
010337
104026
000207

88 032404

9% 032424
gg 032430

032737

062716
000207

000200

001314

18:

001336

2%:

001336

3$:

001122

000400
001122

48:
000006

(SP) ,PCJSR

:SAVE PC OF JSR+4

PC.PUTREG

*SAVE REGISTERS

su8

#4,PCJSR

BIT

#RDY,CS1

BNE
MOV
EMT

18
R1,$BDADR
26

BIT

#DVA,CS1

BNE
MOV
EMT

2
R1,$8DADR

JSR

001122

76 032344
77
78 032352
79 032354

83 032364

CHECKE: MOV

BIT

#DRY,DS1

BIT

#DPR,DS1

BNE
MOV
EMT
BR
BNE
MOV
EMT
RTS

3$
R3,$8DADR
26
48

*GET PC OF JSR

2:gs;£sugULo HAVE DEVICE AVAILABLE
*BRANCH IF GOOD
:FAILING REGISTER
:DOES NOT HAVE DVA, RDY
*BRANCH
sRHCS1 SHOULD HAVE DEVICE AVAILABLE
:AND BE READY
*BRANCH IF GOOD
*FAILING REGISTER
:DOES NOT HAVE DVA, RDY

*BRANCH OUT

*RHDS1 SHOULD HAVE DPR,DRY
*BRANCH IF THERE
:FAILING REGISTER RMDS1
;BRANCH OUT

*RHDS1 SHOULD 'HAVE DPR,DRY

13
R3,$BDADR
26
PC

:RETURN TO TEST AND HALT = FATAL ERROR

#6, (SP)
PC

;ADJUST STACK TO GET OVER HALT IN TEST
;RETURN TO TEST AND CONTINUE TESTING

58:

ADD
RTS

.SBTTL

WAIT LOOP

:BRANCH IF THERE
:FAILING REGISTER RHDS1

.';ttttttttttttttttttt'tttitttttt.t'.Q.ttfi'tt.ttttt.tttt't'tl.ttt'

99
100
101
102

**WAIT LOOP
:*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)

182

}gg 032432

177777

107 032434

010046

108 032436
109 032442

110 032446

111 032454
. 11; 032460
113 032464
114 032470

016600
010037

000002
001204

012037
012037
010066
012600

001176
001200
000002

162737

000002

001204

22 L 3332222232333

3331313333333 2338232323322322222

TIMCNT: 177777

:WAITING COUNT

WAIT.T: MOV

RO, =(SP)

Su8

#2.$TMP

MOV
MOV

MOV
MOV
MOV
MOV

2(5P) RO
RO,stnpg

ssr ADR ss or ae ADDRESS
HAT PC+

(RO)+,$TMPO
(RO)+.STMP1
RO,2(SP)
(SP)+,R0

qur asclsrsn ADDRESS
*WAIT ON BIT
*RESTORE a TURN ON STACK
*RESTORE
R

WAT PC ron tVPEOUT

CZRJHEO RP04/5/6 DSKLS

WAIT LOOP

PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 17-5

}}z 032472

013737

032432

001202

117 032500
118 032506
119 032510
120 032514
121 032516
12; 0325%4
122 032532
124 032534
125 032540
126 032542
127 032550
128 032552
129
130
131
132
133
134
135
136
137
138
139

033777
001021
005337
001371
013737
033777
001007
005337
001371
017737
104016
000002

001200

146470

1$:

001202
146444

3$:

001202
032432
001200
001202
146430

0071126

2%:

SEQ 0125

MOV

TIMCNT ,$TMP2; TEMPORARY COUNT

BIT
BNE
DEC
BNE
MoV
BIT
BNE
DEC
BNE
MOV
EMT
RTI

$TMP1,38$TMPO
;1S REQUIRED BIT THERE?
2%
sBRANCH IF YES
$TMP2
UNT
1$
:BRANCH 6F NOT TIME UP
TIMCNT ,$TMP2; TE MPORARY COUNT
S$TMP1,3$TMPO
+1S REQUIRED BIT THERE?
2%
sBRANCH IF YES
$TMP2
s COUNT
3s
:BRANCH IF NOT TIME UP
9$TMPO,$BDDAT
*REGISTER CONTENTS
16

;CALL FOR THE ABOVE WAITLOOP IS
:

MOV

WAT

.WORD

IXS$:

aA.X$

;A CONTAINS REGISTER ADDRESS
JHENCE X$ WILL HAVE ABSOLUTE REG. ADR.

sABSOLUTE REG. ADDRESS UNDER WAIT
:BIT WAITED FOR
s CONTINUE

J 10

SEQ 0126

SAVE ROUTINE

.SBTTL

2
3

SRR

SAVE ROUTINE

AR AR AR AR AR

5
6

sTHE CALL IS

*FROM

032554
032556
032560
13 032562
14 032564
15 032566
16 032570
17 032572
18 032574
19 032576
032600
2602
%? 032604

:JSR

31 032606

32 032614
33 032622
34 032630
35 032634
36 032640
37 032646
032652
39 032656
2? 032660

AR AR

AR AR AR

RO, SAVER

‘10

*NUMBER OF WORDS SAVED
SAVER:

010146
010246
010346
012001
012002
012003
013122
005303
001375
012603
012602
012601
000200

R1,=(SP)

::PUSH R1 ON STACK

(RO)+.R1

:FROM

R2,=(SP)
R3.=(SP)

1$8:

MOV

::PUSH R2 ON STACK
::PUSH R3 ON STACK

(RO) +.R2
(RO)+.R3
a(R1)+,(R2)+

:T0
*NUMBER
;gansraesxsrsn CONTENTS

13
(SP)+,R3
(SP)+.R2
é39>+.n1

22
23
24
25
26
27
28

sIN THE REGISTER TABLE TO ANY LOCATION

9
10
11
12 032554

A AR

:THIS IS A SUBROUTINE TO READ & SAVE REGISTERS

.SBTTL
e

*BRANCH IF NOT DONE
*;POP STACK INTO R3
::POP STACK INTO R2
$:POP STACK INTO R1

WRITE CHECK ROUTINE

AR AN

A AR AR

AR AR AR R AR AR

AR AR RN

sTHIS IS A SUBROUTINE TO DO WRITE CHECK HEADER AND DATA
sCYLINDER 0, TRACK 1, SECTOR 1, KEYS 0

ARttt

ittt iiiiiiiiiiidiiiisdls]

sTHESE ARE TO SET UP FOR DISKLESS USE ONLY
012737

112737
112737
005037
005037
012737
005037
004537
036710
040610

010000

000001
000001
036714
036716
000044
036720
033270

036710
036713
036712

WRCHHD: MOV
V8

036770

#FMT22,CYL

:CYL%QB;R 0 FORMAT 16 BIT WORDS

KEY1
KEY2
#36. ,DAWORD

:KEY1=0
:KEY2=0
:NO OF DATA WORDS

#1,SECOTR+1
#1,SECOTR

R5.CRC

:TRA
s SECTOR=1

;THIS IS A READ OPERATION

;GO TO CALCULATE CRC

sTHESE ARE REGULAR SETUPS

22 032662

004737

032054

32666
47 032674
48 032702
9 032706
50 032714
51 032720

012777
012777
112746
112769
012677
012777

177730
002544
000001
000001
146324
014000

JSR

PC,CLDISK

:SET UP GENERAL REGISTERS

146336
146332

#-40. ,aRHWC

236 DATA WORDS 4 HEADER WORDS

000001

#1.1(5P)

146322

#REINTO,@RHBA
#1,-(SP)

:AND CLEAR DISK REGISTERS

:STARTING ADDRESS OF READ BUFFER
+SECTOR=1
:TRACK=1 IN UPPER BYTE

(SP)+,@RHDST
:TRACK=1, SECTOR=1 IN RHDST
#FMT22'ECI,3RHOF ;16 BIT WORDS

;ECC CORRECTION INHIBIT BECAUSE

CZRJHEQ RPO4/S5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 18

K 10

CZRJ HEQ R P0615/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 18-1
WRI TEC HECK CK R ROUTINE

53
54
55

SEQ 0127
ECC LOGIC IS NOT CHECKED YET
CYLI NDER=0

005077
004737
104401

032742

000000
013711

001450

HALT
Mov

WRCHDT ,aR1

004737

036550

JSR

PC,COMHD

s INTO RHCS1
:WRITE CHECK HEADER AND DATA
sSAME AS READ HEADER AND DATA

RTS

sRETURN TO WRITE CHECK TEST

032736

56 032744
57
58 032750
59
60
61 032754

000207

CLR
JSR

TYPE

aRHCA

PC,CHECKT

,CPHALT

CHECK THAT DVA,RDY,DPR,DRY = 1

:AND THAT NO OTHERS = 1.
CANNOT (
sTINUE TESTING IF BOTH AREN'T TRUE

:STOP THE TEST
:WRITE CHECK HEADER AND DATA=52

CZRJHEC RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 19

L 10

SEQ 0128

COMPARE ROUTINE

.SBTTL

;THIS IS A SUBROUTINE TO COMPARE TWO BLOCKS iN MEMORY

5
‘

;
;

;

11 032756
032756

010146

032762
032764
032766

010346
010446
010546

032760

12 032770
13 032772

1% 0327764

15 032776
16 033002

010246

012037
012037

011000
010304

20 033014

010437

21 033020

gg 033022

005204

022122

014137
014237
160337

28 033044
29 033046
033052
31 0330564

001003
004777
000402
004777

27 033040

32 033060

33 033062

3% 033066
35 033072

005737

022122

017746

0462716
022726

36 033076
37 033100
38 033102
39 033104
033104
033106

001402
005303
001344

033112

012602

033110
033114

40 033116

012605
012604

012603
012601

000200

$TMP1 HAS ADDRESS OF RETURN ON ERROR TO PRINT DATA

R3 HAS NUMBER OF WORDS TO BE COMPARED

R4 HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED
MOV

R1,=(SP)

::PUSH R1 ON STACK

MOV
MOV
MOV

R3.=(SP)
R&.~(SP)
RS.=(SP)

H R3 ON STACK
..PUSH Ré ON STACK
*:PUSH RS ON STACK

(RO) +.R?

*ADDRESS OF TEST DATA BUFFER

MOV

001176
001200

037030

MOV
MOV

18:

001426

24 0330264
25 033030
033034

az HAS TEST DATA BUFFER ADDRESS
$TMPO HAS ADDRESS OF RETURN ON ERROR TO PRINT HEADER

MOV

012002

012003

R1 HAS GOOD PATA BUFFER ADDRESS

MOV

012001

17 033006
18 033010
19 033012

COMPAR:

COMPARE ROUTINE

001124
021126
037030

001406
146120
146052

28:

58:

177177
000200
48:

(RO)+,R1

*ADDRESS OF GOOD DATA BUFFER

(RO)+.R3

(RO)+.$TMPO
(RO) +.$TMP1

*NO OF WORDS TO BE COMPARED

*RETURN ON ERROR TO PRINT HEADER
*RETURN ON enaon ro PRINT DATA

(RO) ,RO
n3 Ré

*RETURN ON NO ERR
*NO OF WORDS TO as COMPARED

MOV

n4 ERWORD

:FOR ERROR WORD NO

BEQ

*BRANCH IF GOOD

MOV
MOV
SUB

-(R1),$GDDAT
-(R2). saooAr
R3, ERWOR

:GOOD DATA
:BAD DATA
*ERROR WORD NO.

BNE
JSR
BR
JSR

2
PC,a$TMPO
58
PC.asTMPI

:BRANCH
*RETURN
*BRANCH
*RETURN

MOV

aSwR, = (SP)

*GET SWITCH SETTING

BEQ
DEC
BNE

ns
13

*BRANCH OUT IF YES
*COUNT
*BRANCH IF ALL NOT DEVICE

MOV
MOV

(SP)+,RS
(SP)+.Ré&

::POP STACK INTO RS
1:POP STACK INTO Ré&

MOV

(SP)+.R2

*:POP STACK INTO R2

INC

CMP

BIC
CMP
3$:

..PUSH R2 ON STACK

MOV
MOV

TST

146124

az -(SP)

MOV
MOV
RTS

(R1)+, (R2)+

ERFLGS

ANY ERRORS ALREAY THERE

(R1)+,(R2)+

#~c600, (SP)
osuor (SP)+

(SP)+.R3
(SP)+.R1

:COMPARE GOOD WITH TEST DATA

IF YES
TO PRINT HEADER
TO AVOID PRINTING NEXT ERROR
TO PRINT DATA

*UNDO =(R1) AND =(R2) FOR ERRORS
*KEEP ONLY SWITCH 7 AND 8
*1S 7 SET AND 8 RESET

*:POP STACK INTO R3
$:POP STACK INTO R1

*RETURN TO MAIN PROGRAM

e
B

L,Sy

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 20

Mn10

SEQ 0129

}

18
19

N = OO0 NO VN

10
11
12
13
14
15

WN = O G 00 YO VN SSWWN) =

WRITE CHECK DATA

.SBTTL

WRITE CHECK DATA

SRR AR AR

A A AR AR

R AR AR AR

R AR

CYLINDER 0, TRACK 1, SECTOR 1, KEYS 0

tfifittttttttt.t...ttttt'tt'tttttttttt.t.t..t"ttt't.tt'ti."'t't

sTHESE ARE TO SET UP FOR DISKLESS USE ONLY

033120
033126
033134
033142
033146
033152

012737
112737
112737
005037
005037
012737

010000
000001
000001
036714
036716
000040

033164
033170

004537
036770

033270

033160

033172

005037

036720

036710
036713
036712

036770

040610

CLR

NFMT22,CYL
#1,SECOTR+1
#1.SECOTR
KEY1
KEY2
#32. ,DAWORD

RS.CRC

032054

27 033200
28 033206
29 033214
30 033220

012777
012777
112746
112766

177740
002544
000001
000001

:NO OF DATA WORDS
sTHIS IS A READ OPERATION

;GO TO CALCULATE CRC

012677
012777

146012
014000

146024
146020
000001

146010

JSR

PC,CLDISK

sSET UP _GENERAL REGISTERS
sAND CLEAR DISK REGISTERS

MOV
MOV
MOVB
MOVB

#-32. ,aRHWC
#REINTO, 3RHBA
#1,-(SP)
#1.1(SP)

:36 DATA WORDS 4 HEADER WORDS

MOV
MOV

146006
032116
053407

CLR
JSR
TYPE

SRHCA
PC, CHECKT
,CPHALT

033254
37 033256

000000
013711

001446

HALT
MOV

WRCHEK
, aR1

000207

036550

JSR

RTS

:TRACK=1 IN UPPER BYTE

:ECC CORRECTION INHIBIT BECAUSE

005077
004737
104401

004737

:STARTING ADDRESS OF READ BUFFER
s SECTOR=1

(SP)+,@RHDST
:TRACK=1, SECTOR=1_IN RHDST
#FMT22 'ECI,@RHOF
:16 BIT WORDS

3%
35 033240
36 033244
033250

2} 033266

:SECTOR=1

:KEY1=0
:KEY2=0

:THESE ARE REGULAR SETUPS

004737

gg 033262

CYLINDER 0 FORMAT 16 BIT WORDS
s TRACK=1

WCRC

sg 0331764

31 033226
gg 033232

WRCHDA: MOV
MOVB
MOVB
CLR
CLR
MOV
JSR
cyYL

THIS IS A SUBROUTINE TO DO WRITE CHECK DATA

PC ., COMHD
PC

:ECC LOGIC IS NOT CHECKED YET

: CYLINDER=0

sCHECK 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 RHCS1
;WRITE CHECK HEADER AND DATA

:SAME AS READ HEADER AND DATA
sRETURN TO WRITE CHECK TEST

——

CZRJHED RPO4/Z/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 21

N 10

SEQ 0130

N = O 0 00 N0 V1 8N NN =

CRC GENERATION ROUTINE

.SBTTL

CRC GENERATION ROUTINE

;THIS IS A SUBROUTINE TO CALCULATE CRC FOR THE FOUR
sHEADER WORDS AND STORE THEM IN "WCRC'' AND '‘GCRC''
R1 = REGISTER FOR CRC,

INCREMENTED CRC VALUE IS HERE

R% = THIS HAS BIT POSITION 2 VALUE C

I.E. OUTPUT BIT VALUE B
VALUE E

d
b

.WORD
WORD

X
Y

MOV
MOV
MOV

RO, =(SP)
(RS)+,RO
R1,=(SP)

MOV

R4 .,=(SP)

WO
NN
OO0O0000
NN
-NN
=

222288
NoKeS
88%3°8% 2332

NO
OOOOOOWWWLIWWW
WN= NN NINNININNIN
-

—

d o

MoV
MOV

owm

30 033270
033270
31 033272
32 033274
033276
033300
033302
33 033304

elelelelele)

SRV VIS

N = O 000 NON VS

PNINVNONONINININ)
B b ad ad e e e e e

R3
= THIS HAS BIT POSITION 16
Ré = THIS HAS 81; POSITION 15

CLR
CLR

sFIRST LOCATION AT
sPUT CRC IN WCRC FOR READ GCRC FOR WRITE

:;PUSH RO ON STACK
sGET POINTER TO CYL NO.
::PUSH R1 ON STACK

Ri.-(SP)
R3,.=(SP)

2:PUSH R2
: :PUSH

sCLEAR WORKING LOCATION

$TMP5

ON STACK
ON STACK

::PUSH R4 ON STACK

MOV
MOV
MOV
MOV

#4,5TMPO
(RO)+,$TMP3
#16. $TMP?
s;x%.nm

: WORD COUN T
*TEMPORARY WORD STORAGE
*BIT COUNT
: TEMPORARY WORD STORAGE

100000

BIT
BEQ
ggv

#81T0,R1
1%
521!1S.R3

21S POSITION 15 HIGH
3
CH IF POSITION 16 LOW
JGET POSITION 16

001210

CLR
ADD

K3
$TMPS ,R3

;JGET POSITION 16
sXOR POSITION 16 WITH D

BIT
BEQ
ggv

#BIT14,R1
33
221115.R2

GET POSITION

CLR
ADD

R§
R3.R2

001204
001210
000001

ROR
ROR

040000
100000

3s:

4%:

i
$TMPS

JGET LSB INTO *°C
sGET ABOVE ‘'C'' INTO $STMPS

:T0 GIVE B
21S POSITION 2 HIGH
JBRANCH IF POS%YION 2 Low
sGET POSITION 2
:XOR B WITH POSITION 2

BN
CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 21-1

SEQ 0131

100000

VN
~
o

020000

22222829
NO == S0

%
g

033540
85 033542

100000

000205

020000

7$:
108:

$THP4
R1
R3
7$
#BIT15,R1
10$
#BIT15,R1
R2
118
#BIT13,R1
12$

#BIT13,R1
R4
138

000001

#81T0,R1

000001
001202

#8170,R1
$TMP2
158
$TMPO
16$
R1,3(RS)+
(SP)+ R4
(SP)+ _R3
(SP)+ ,R2
(SP)+,R1
(SP)+ k0
RS

001176

148

PO
:BRAN
sGET POSITION
sGET POSITION

b\
-

OSSO

68:

OO SMNVONNN

RANANANAAA AAAAAA

o
W
W

100000

#BIT1,R1
5%
#BIT15,Ré
68
Ré
.
R3.R4

ON 15 LOW

WNNN)
= =
W

001206

LRYFRE
PFRRRPLLRR
S\fi\h\hbbb*

000002

(=lelolele]
WWNWNWWN

AN SSEIRTERAR
IS SBIFRR

CRC GENERATION ROUTINE

:XOR POSITION 15 WITH B
;TO 6 GIVE E
;10
;GET LSB INTO '°C"'
sGET_ABOVE C INTO R1
;TEST B

*BRANCH IF B=1

:SET B IN POSITION 1
;SET B IN POSITION 1
;TEST C

*BRANCH IF C=1

*GET C IN POSITION 3
sGET C_IN POSITION 3
; TEST E

*BRANCH IF E=1

SGET E IN POSITION 16
sGET E IN POSITION 16
;BIT COUNTER
sBRANCH IF 16 NOT DONE
sWORD COUNTER
sBRANCH IF & NOT DONE
sPUT CRC WHERE DESIRED
::POP STACK INTO Ré
:;POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1
:;POP STACK INTO RO

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 22
SIMULATED DISK SETUP

SEQ 0132

SIMULATED DISK SETUP

.SBTTL

sTHIS IS A SUBROUTINE TO SET UP THE SIMULATOR DISK FOR
sCYLINDER O (16 BITS PER WORD)
;TRACK 1, SECTOR 1

2
3
S

;KEY1 1

6
4

:KEY2 1
:CRC THROUGH THE JSR RS,CRC
:256 WORDS OF 177400

8
9
10

s CALL
:

12
13
14 033544

033544
033546
033550
15 033552
16 033556
17 033562
18 0335
19 033570
20 833572

010046
010146
010246
012700
012701
012702
010022
005%0;
00137

SETDSK:

18:

&~
—

MOV

000021

::PUSH RO ON STACK
*:PUSH R1 ON STACK
+:PUSH R2 ON STACK

#177400,R0
#256. .R1

*DATA IN THE DISK
+COUNTER

RO, (R2)+

*MOVE IN DATA

#DISK R2
18
#17. .R1

CLR

(R2)+

DEC
BNE

sNOW SET UP

012737
112737
112737
012737
01%737
013737
004537
036710
040610
012602
012601
012600
000207

PC,SETDSK

RO,=(SP)
R1.=(SP)
R2.=(SP)

177400

2%:

27
28
29
30 033606
31 033614
32 033622
33 033630
34 033636
35 033644
36 033652
37 033656
38 033660
39 033662
033664
033666
033670

JSR

*START OF SIMULATOR DISK

:COUNT FOR

256

*BRANCH IF
256 NOT COMPLETE
:2 ECC WORDS,
1 DATA GAP

+14 TOLERANCE GAP

:CLEAR ECC,DATA GAP AND

TOLERANCE “GAP
: COUNT

:BRANCH IF NOT COMPLETE

DISKLESS USE
#FMT22,CYL

:CYLINDER 0 (16 BIT WORDS)

#1,SECOTR+1
$TRACK=1
#1.SECOTR
*SECTOR=1
#1.KEY1 ;KEY1=1

00
033270

#1,KEY2 :KEY2=1

256. . DAWORD

:NO. OF DATA WORDS

;gp)+.no

::POP STACK INTO RO

R5.CRC

;GO TO CALCULATE CRC
:FIRST CRC WORD
*PUT CALCULATED CRC
(SP)+,R2
::POP STACK INTO R2
(SP)+.R1
$:POP STACK INTO R1

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 23

SEQ 0133

CHECK HCE ROUTINE
1

2
3

CHECK HCE ROUTINE

sTHIS 1

A SUBROUTINE TO CHECK HEADER COMPARE ERROR

;(BIT #7) AND CRC ERROR (BIT #8)

5
6
7

s CALL

:JSR RO,HCCRCE

8
9
10

n
12
13
14
15
16
17
18 033672
19 033676

.SBTTL

s COMMAND-READ HEADER AND DATA
=WRITE DATA
:
sCYLINDER
:SECTOR
s TRACK
sWORD COUNT
;RHBA BUFFER START
:1=WRITE DATA O0=READ

;H=1 HEADER CHECK, H=0 CRC CHECK

20 033704
21 033710
033714

010037
162737
004737
004737
104401

033720
22 033722
23 033726
24 033
25 033734
26 0337
27 033740
28 033744
29 033746
30 033752

000000
011037
012011
012077
112046
105720
112066
105720
012677
012077

32 033756
gz 033762

012077
012037

145252
036720

gg 033766

012777

014000

37 033774
034000

005037

001406
036550

001414
0000

001414

HCCRCE: MOV

RO,PCJSR
#4 ,PCJSR

;SAVE PC OF JSR+4
:GET _PC OF JSR

.CPHALT

sAND THAT NO OTHERS = 1.
CANNOT CONsTINUE TESTING IF BOTH AREN'T TRUE
:STOP THE TEST

PC,CLDISK
PC,CHECKT

053407

001210
145316

(RO) ,$TMP5
(RO) +,aR1
(RO)+,3RHCA

s SAVE COMMAND
- COMMAND
sCYLINDER

(RO)+
(RO)+,1(SP)
(RO)+
(SP)+,@RHDST

:UP DATE RO
s TRACK
;UPDATE RO
sTRACK SECTOR

(RO)+,~-(SP)

000001
145272
145254

sINIT AND SETUP GENERAL REG.
sCHECK THAT DVA,RDY,DPR,DRY = 1

(RO) +,3RHW(C

(RO) +,@RHBA

:SECTOR

:NO. OF DATA WORDS +4 HEADER
:IF A READ HEADER AND DATA
: STARTING ADDRESS OF BUFFER

(RO)+.X ;X=0 READ HEADER AND DATA
145254

Mov

CLR
JSR

:X=1 WRITE DATA

#FMT22'ECI,@RHOF ;16 BITS PER WORD
:ECC CORRECTION INHIBIT

ERFLGS

PC., COMHD

;CLEAR ERROR FLAG

: COMMAND

:1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
*FROM THE ‘‘COMHDTM ROUTINE THAT MEANS SECTOR GAP,
*FIRST SYNC, HEADER,

HEADER CRC,

HEADER GAP AND

:SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
sDETECTED
sHEADER AND DATA ARE TO BE CHECKED.
031554
001406

036720

JSR

PC,PUTREG

:SAVE REGISTERS

BNE

108
B

:BRANCH IF YES
:IS THIS A READ
:IF A WRITE DATA BRANCH

TST

BNE

ERFLGS
%

;ANY ERRORS ALREADY THERE

sNOW THE READ BUFFER WILL BE CHECKED
sHEADER SHOULD BE COMPLETELY READ AS-WRITTEN

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 23-%

SEQ 0134

CHECK HCE ROUTINE

55
56
57
58
59 0340246
60 034030
61 034032
034034
63 034036
034040
65 034042
66 034044
034044
67 034046
68 034050
034050
69

sNO DATA WORDS SHOULD BE READ

:REINTO BUFFER HAS BEEN FILLED WITH 0

:WRFROM BUFFER HAS BEEN FILLED WITH EXPECTED DATA

JSR
WRFROM

004037
001500
002544
000400
034044
034050
034106

104004
000207

RO, COMPAR

REINTO

:TEST BUFFER

256.

104005

;4 HEADER 252 DATA

:RETURN POINT FOR ERROR HEADER

28
1Cs

)

EMT

RTS

*RETURN POINT FOR ERROR DATA
*RETURN FOR GOOD COMPARISON

EMT

:DISK, WORD NOS. 5 ONWARDS
:SHOULD NOT BE READ AND HENCE

:READ INTO BUFFER

;g 034052

000207

RTS

77 034054
78
79

000414

108

:SHOULD BE UNCHANGED

sRETURN TO COMPARISON

;JUMP OUT

sNOW THE DISK WILL BE CHECKED
sNO DATA SHOULD BE WRITTEN
sREINTO BUFFER HAS BEEN FILLED WITH EXPECTED DATA

;DISK HAS BEEN FILLED WITH 177400
;WRFROM HAS BEEN FILLED WITH 125252
004037
)

3s:

JSR

4
s
108

RTS

REINTO
Séi“

RO, COMPAR

; CHECK

sooo DATA BUFFER
*TEST BUFFER

;RETURN POINT FOR ERROR HEADER
*RETURN POINT FOR ERROR DATA
*RETURN POINT FOR GOOD COMPARISON

EMT

;RETURN TO COMPARISON SUBROUTINE

;WORDS THE SHOULD NOT

OO0O0O000O0

e RREppey

*HAVE BEEN CHANGED BY THE

OO0

SRR

SEIREV2TLRLER

80
81
82
83
84
85 034056
86
03406

;RETURN TO COMPARISON SUBROUTINE

sHEADER WORDS AND HENCE
:SHOULD BE READ AS WRITTEN ON

70
7
72

s CHECK
<GOOD DATA

108:

RTS

*WRITE COMMAND
*RETURN TO COMPARISON SUBROUT INE

BEQ

£3

*BRANCH IF HCRC

TST

CMP
BEQ
MOV
CMP
BEQ

MOV

(RO) +

m $TMPS
anusm $BODAT
#HCE, SBDDAT

*IS THIS A HCRC ON HCE CHECK?

+1IS THIS A READ COMMAND
*BRANCH IF YES
:TEST DATA
*ONLY HEADER COMPARE BIT?
+ SHOULD ae SET
7
*BRANCH IF GOOD
RHER1,REGADR ;REGISTER ADDRESS RHER1

—

001124

N
oo~

000200

(=1~

104027

P
Qrd

££EF 2% g 2

0000

012737

118:

OO0O0O
OO0O0O0O0O0O00O0
OO
o

ELFRRURZET

FRRR R R PRRLLRRRE FRRQ
N
NN
N
= s
wViés
8
Y
n
R 8 SN
NRORO~ RO

N N N AN NN PRI NI NI NI NN A =
NN

o T P IV
WN=O0

=l=lale]

e
e
e
D e
e
e o
e
e
e
d e
D e
e
o
D e
e
d e
e

3§CE.SGDDAT

sHEADER ONLY HCE SHOULD
;BE SET

s SHOULD BE SET
DCK IS SFT BESAUSE ECC IS NOT READ
BRANCH IF GOO

RHER1,REGADR :REGISTER ADDRESS RHER1

031620
001124

ggcnsuce.scooAr :GOOD DATA

:HEAgE? ONLY HCE SHOULD

H:-3

128
@RHER1,$BDDAT

sBRANCH IF A READ
;TEST DATA

#72,8$TMP5

:1S THIS A READ CCMMAND?

000072

001210

145010
000400

001126
001126

;gCRC.iBDDAT

001242
000400

031620
001124

RHER1 ,REGADR ;REG. ADDR = RHER1
ggCRC.SGDDAT
’;GO0D DATA

144752

001126

78
@RHER1,$BDDAT

100400

001126

100400
001242

6$:

128:

sONLY CRC ERROR SHOULD BE THERE

sSHOULD BE SET
sBRANCH OUT
;TEST DATA

#DCK!HCRC,SBDDAT;HCRC AND DCK SHOULD BE SET

:DCK IS SET BECAUSE ECC IS NOT READ
BRANCH IF GOOD

#DCK 'HCRC,SGDDAT:GOOD DATA

001124
031620

g;sn1.ascnon;rA1L1~G REGISTER RHER1
:DCK AND HCRC SHOULD BE SET

W
N
o

b e

:GOOD DATA

@RHERT,$BDDAT _ ;TEST DATA

264

MoV
EMT

SEQ 0135

#DCK'HCE,SBDDAT :ONLY HEADER COMPARE BIT?

D e

b b b cd e

D e

b b ced b

EN
ngDSKLs PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 23-2

7$:

sDCK IS SET BECAUSE ECC IS NOT READ
sRETURN TO MAIN TEST

——

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 24
EXIT WRT HEADER & DATA ROUTINE

6 1N

SEQ 0136

.SBTTL

:THIS IS A SUBROUTINE TO LEAVE AT THE MIDDLE OF

“

21T TRYS TO GET SECTOR 10,

:THE COMMAND 0OS JSR PC,MIDDLE

‘A WRITE HEADER AND DATA COMMAND

034322
034324
}; 034326
13 034334
1% 034342
15 034350

TRACK 0, CYLINDER 0

*BUT COMES OUT AFTER ONE SECTOR

10 034322

EXIT WRT HEADER & DATA ROUTINE

:BAI IS SET
MIDDLE:

MOV
MOV

RO,=(SP)
R1,=(SP)
WRIFOR,BRHCS1
#-10. , aRHWC
#WURFROM,3RHBA
#10,3RHDST

17 034364 012777 010000 144656
18 034372 005077 144654
19 034376 012737 000001 034424

MOV
CLR
MOV

#FMTS2,3RHOF
:FORMAT 16 BIT WORDS
SRHCA
- CYLINDER=0
#1,MID ;SECTOR IS SET TO 1 SO THAT

23 034406 012777 000001
2% 034412 052777 000001

MOV
BIS

#DMD , 3RHMR
#G0,3RHCS1

MOV
MOV

(SP)+,R1
(SP)+.RO

16 034356

010046
o1o149
013777
012777
012777
012777

052777

001454
177766
001500
000010

000010

20
21
22

25 034420
26 034424

004137
000000

28 034432

000207

27 034426 012601
034430 012600

042756

144704
144670
144664
144666
144652

MoV
MOV
MOV
MOV
BIS

144646
144620
MID:

JSR
.WORD

RTS

#BA] RHCS2

R1, SEARCH
O
PC

:;PUSH RO ON STACK
$:PUSH R1 ON STACK
;mx;’e‘cgma AND DATA=62
:10 WORDS
:BUS ADDRESS=WRFRCM
*DESIRED TRACK=0 SECTOR=10

*BUS ADDRESS INCREMENT INMIBIT

;WE CAN GET OUT AT THE
*MIDDLE OF AN OPERATION
*LOOKING FOR SECTOR 10

*SET DIAGNOSTIC MODE
;G0 TO RHCST WITH 62

;SECTOR

::POP STACK INTO R1
1:POP STACK INTO RO

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 25

SEQ 0137

JAM CURRENT CYLINDER ROUTIN
1

LSBTTL

JAM CURRENT CYLINDER ROUTINE

;THIS
SUBROUTINE WILL CHANGE THE CURRENT cvunoen REGISTER
*THIS IS DONE BY GIVING A SEEK COMMAND THEN AN INIT

7
5

sCALL
:

*WHICH WILL LOAD THE CURRENT CYLINDER WITH THE DESIRED CYLINDER VALUE

13
11 034434

034434
12 034436
13 034442
1% 034450
15 034452
16 034456
17 034.465

010546
010037 001414
162737 000004
012005
010577 144574
005077 144562
013777 001462

20 034506
21 034506
22 034510
23 034512

000240
000240
000240
000240

18 034470
19 034476

24 0345164

012777
052777

000001
000001

004737

032054

25 034520 017737 144552
26 034526 020537 001126
27 034532

RO,MAKECYL

;:DESIRED VALUE OF CURRENT CYLINDER

MOV
MOV
suB
MOV
MOV
CLR
MOV

RS,=(SP)
RO.PCJSR
#4.PCJSR
(RO)+,RS
RS, 3RHCA
aRHDST
SEECOM,3RHCS1

:PUSH as ON STACK
fic OF JSR+4
*SAVE PC or JSR
*GETTING READY TO FILL DESIRED CYLINDER
*FILL DESIRED CYLINDER REGISTER
*MAKE SURE DESIRED SECTOR TRACK IS NOT ILLEGAL
:FILL SEEK COMMAND
*SET DIAGNOSTIC MODE
:G0 TO SEEK

104030

012605
000200

LWORD

MAKECYL
:

001414

144550
144562
144534

MOV
BIS

NOP
NOP
NOP
NOP
JSR

001126

MOV
CMP

031620

MOV
MOV

0014

28 034534 010537 001124
29 034540 013737 001276
30 034546
31
32 034550
034550
33 034552

JSR

BEQ
EMT

1$:

MOV
RTS

#DMD , SRHMR
#GO,3RHCS1

PC,CLDISK

@RHCC,SBODAT
RS,$BODAT
13

RS,$GDDAT
RHCC,REGADR
30

(SP)+,RS
RO

*ALLOW TIME FOR SEEK TO HANG UP
SALLOW 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 IF GOOD

:GOOD VALUE OF RHCC
*FAILING REGISTER ADDRESS
;REGISTER AFTER A SEEK AND AN INIT
::POP STACK INTO RS

CZRJHEOD RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 26

ECC GENERATION AND COMPARISON ROUTINE
1

:TH{E SUBROUTINE GENERATES AND TESTS ECC

000400
000200
000100
000040
000020
000010
000004

000002
000001
100000
040000
020000
010000
000
002000
001000
000400
000200
000100
000040
000020
000010

(=1l

001000

mmmmmmmmmmmmmmmmmmmmm

010000
000
002000

PC,ECTEST

ECDATA:

sDATA BIT FOR _ECC
s1F ALL ONES THEN CURRENT BIT IS A ONE
:IF ZERO THEN CURRENT BIT IS A ZERO

000000

GECC1:

:ng ORDER ECC WORD TO BE GENERATED HERE

%2 034560 000000

GECC2:

%8 034562 000000

! 1G H ORDER ECC WORD TO BE GENERATED HERE
R2

TSECCG:

F =177777 GENERATE AND TEST ECC FOR THIS BIT
: IF =0 DO NOT GENERATE AND TEST ECC FOR THIS BIT

42
43

22 034556

Sg 034564 113713
66
SS 034570
gg 034572

000000
000000
010041

38859.
0
: 0
: 4129,

.—lh-

000000

000002
1

(=]

37
38
39
2? 034554

100000

040000
020000

N =OVONOWVNSUWNN=O

21
22
23
24
25
26
27
28
29
30
31
32
33
34
gg

JSR

zvvvvvvvvvvvvvvvvvvvv
Bt s b o b Bt b bt B bt bt Bt ot g bt ot g bt bt b

5
6
7
8
9
10
1
12
13
&
15
16
17
18
19
20

ECC GENERATION AND COMPARISON ROUTINE

.SBTTL

2
3

:N=CODE WORD
: TEMPORARY N CODE

:POSITION REGISTER

:HARD ERROR COUNT

:TRUE COUNT IS 4128 BUT AS COMPARES ARE

SEQ 0138

J 1
CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04 00 17-NOV=-81 16:37:12 PAGE 26~1

SEQ 0139

ECC GENERATION AND COMPARISON ROUTINE

8
59 034574

000000

DATENV: 0

:DATA ENVELOPE FOR TYPE OUT

62 034576

000000

IZCODE:

:LEADING ZEROS ENVELOPE FOR TYPE OUT

;DONE ONE STAGE LATER SO 4129
:MAX FOR WRITE IS 4096
:MAX FOR READ IS 4128

sTHIS IS SHUT OFF WHEN POSITION COUNTER

: IN ENABLED
:MAX COUNT IS 38859

HADTMP:
P3:
P12:
P22:
P24:

.ECTEST:

e
B

MOV
MOV
MOV
MOV
MOV
MOV

034556
034560
034554

: TEMPORARY HARD ERROR COUNT

0
0
0
0
0

MOV
MoV
TST
BEQ

RO,=(SP)
R1,=-(SP)

R2.=(SP)
R3,=(SP)

R&,=(SP)

RS,=(SP)
GECCT,R

GECC2,R2
ECDATA

::PUSH RO ON STACK
::PUSH R1 ON STACK
..PUSH R2 ON STACK
PUSH R3 ON STACK

::PUSH R& ON STACK
::PUSH RS ON STACK
sECC1 WORD

:ECC2 WORD

: IS CURRENT BIT A ONE

sBRANCH IF CURRENT DATA D=0

:IF CARRY 1S NOT ZERO THEN D=1
s INVERT X32 T0 GIVE RO
177776

1%:

MOV

BIS
COM
MOV
BR

R1.R3

#*CPIE32.R3
R3
R3.RO
3s

sIF CARRY IS ZERO THEN D=0, X32 BECOMES RO

e e

]

SIKRIRIN28E

177776

2%:

3s:

MOV
BIC
MOV
CLC

ROR
ROR
TST

BEQ

R1,R3
#*CPIE32.R3
R3.R0
RO
RO
RO

108

s INVERT X2
MOV

R2.R3

;BRANCH IF RO=0

109 034704

052703

137777

BIS

#*CPIE2,R3

111 034712
}}§ 034716

010337
006237

034602
034602

MOV
ASR

R3,P3
P3

110 034710 005103

114

117 034722
118 034726
119 034730
120 034732

}55 034736

COM

; INVERT X11

010203
052703
005103
010337

006237

MOV
BIS
COM
MOV

177737
034604

034604

}%}

ASR

R2,R3
#~CPIE11,R3
R3
R3,P12

P12

: INVERT Xx21

125 034742
126 034744
127 034750
128 034752

010103
052703
005103
010337

MOV
BIS
COM
MOV

173777
034606

}%mmomvwme

}%}
133 034762
134 034764
135 034770
136 034772
}gg 034776

010303
052703
005103
010337
006237

034610
034610

*THESE BITS JAMED IN

006002
006001
053700

151 035016
}gg 035022

042702
050002

053700
005000
053700
053700
042701
050001

034602

034604

ROR
ROR
BIS

R2
R1
P3 RO

BIC
BIS

#PIE1'PIE3!PIE12.R2
RO,R2

CLR
BIS
BIS
BIC
BIS

RO
P22.R0O
P24 .R0
#PIE22'PIE24,R1
RO,R1

BIS

120020

034606
034610
002400

000404

161

P12,R0

12§

;THE PROGRAM COMES HERE IF RO=0

;gg
164 035046
165 035050

R1,R3
#~CP1E23,R3
R3
R3,P24
P24

:NOW THAT RO FOR POSITION 1
:
P3 FOR POSITION 3
:
P12 FOR POSITION 12
:
P22 FOR POSITION 22
:
P24 FOR POSITION 24
*ARE KNOWN THE ROTATE WILL BE DONE AND

147 035002
148 035004
149 035006

}gg 035044

MOV
BIS
COM
MOV
ASR

176777

}22

154 035024
155 035026
156 035032
157 035036
158 035042

P22

: INVERT Xx23

139
140
141
142
143
14%

150 035012

ASR

R1.R3
#~CPIE21,R3
R3
R3,P22

:S0O AFTER ROTATE RO GETS PUT INTO POSITION 1
006002
006001

108:

ROR
ROR

R2
R1

SEQ 0140

[« T

K1
CZRJHED RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 26-2
ECC GENERATION AND COMPARISON ROUTINE

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 26-&

SEQ 0141

ECC GENERATION AND COMPARISON ROUTINE

166 035052
167 035056
168 035062
169 035
170
171
};g 035072
174
175
176 035074

042702
010137
010237
005737

100000
034556
034560
034562

128:

001432

BEQ

000400

144036

178 035106 032777 000100

144026

177 035102

179 035112

032777

001005
001401

010146

}gg 035130

001404

184 035120
185 035124

188
189 035132
190 035136
191 035120
192 035142
}gz 035150
195
196 035152
197 035156
198
199

042716
022677

174000
144142

004737
104035
000407
023777
001403

031554

004737
104035

031554

034570

BNE

:
;1S SWITCH 8 SET

158

*BRANCH IF SW8 IS SET

158

:BRANCH IF SW6 IS NOT SET

BIT

#5W6 ., aSWR

B8R

148

BEQ

1S SWITCH 6 SET

*IF SWITCH 8 IS NOT SET AND

R1,=-(SP)

SSWITCH 6 IS SET THEN
:DO NOT DO COMPARES
*GOOD PATTERN REGISTER

138

*BRANCH IF GOOD

:TO SAVE TIME
JSR
EMT
BR
138:
CMP
BEQ

PC,PUTREG
35
148
POSITI,@RHEC1
148

;SAVE REGISTERS

:TO SAVE TIME
JSR
EMT

PC,PUTREG
35

:SAVE REGISTERS
.
:"DATA ENVLOP'' GIVES NUMBER OF CLOCK
*PULSES FROM BEGINING OF COMMAND

158:

MoV

BIC
CMP
BEQ

144120

#PIE1,R2
R1,GECCT
SAVE scc1
R2.GECC2
TSECCG
;IS HARDUARE ro
9; CHECK
7 resr HARDUARE
1r = o DO NOT TEST HARDWARE
148
*BRANCH IF HARDWARE NOT TO BE CHECKED

;*CHECK HARDWARE
BIT
#5W8,asuR

180 035114 000421
181
182
183 035116

BIC
MOV
MOV
TST

#174000,(SP)
(SP)+,8RHEC2

53?

:GET ONLY PATTERN BITS
:COMPARE PATTERN REGISTER

:BRANCH OUT
:COMPARE POISTION REGISTER

*BRANCH IF GOOD

STHAT IS THE CLOCKS IN THE R/W DATA FIELD ENVELOPE

202
582

*IN A WRITE THERE ARE 10000 OCTAL CLOCKS
:IN A READ THERE ARE 10040 OCTAL CLOCKS

205

:MAX COUNT IS 113713 OCTAL

206
207

:'N=CODE_ZEROS'' GIVE THE NUMBER OF CLOCKS
* GIVEN FOR THE §5A°'"G ZEROS FIELD

210
5}5

*'G0OD POSITION'' GIVES NUMBER OF CLOCKS
g}gsg AFTER LEADING ZEROS WHICH IS FOR THE DATA

5};

*MAX COUNT IS 10040 OR 10041 OCTAL

215
216 035160
035160

012605

035170

012601

035162
035164
035166

035172

012604
012603
012602
012600

148:

MOV

MOV
MOV
MOV
MOV

MOV

(SP) +,RS

::POP STACK INTO RS

(SP)+-R1

*:POP STACK INTO R1

(SP)+-Ré
(SP)+-R3
(SP)+.R2
(SP)+-RO

1:POP STACK INTO Ré&
*:POP STACK INTO R3
15POP STACK INTO R2
*:POP STACK INTO RO

nn
CZRJKED RPO4/5/6 DSKLS FT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 26-4
ECC GENERATION AND COMPARISON ROUTINE

N
N
oV S WN-=O0

217 035174

000207

RTS

.SBTTL

SEQ 0142

ECC GENERATION CONTROL ROUTINE

;THIS SUBROUTINE WILL CONTROL THE ECC GENERATION ROUTINE

:ngteanon CORRECTION PROCESS

;

JSR

ERPOS:

ECORR:

MOV

WWW

WNON
EISRR WN=O
000

227 035176

001414
000004
035176

001414

.WORD

034570

18:

034576

247 035256

248

249 035260

034570
035176

034570

252 035274
253
254 035302

034600

034570

28:

004737
104034

031554

RO,PCJSR

;SAVE PC OF JSR + &

(RD)+, ERPOS

GET POSITION REG. WHEN CORRECTION IS COMPLETE

R1,=-($P)
:PUSH R1 ON STACK
RHMR.R1 :MAIMTENANCE REGISTER
#DMD. aR1
:SET DIAGNOSTIC MODE BIT
ECDATA
;ECC DATA IS ZERO

POSITI

:IS

DEC
BNE

NCOUNT
68

;DECREMENT N~-CODE
;BRANCH IF N-CODE IS NOT COMPLETE

INC

CMP

BHIS

000400

;POSITION REG. WHEN CORRECTION IS COMPLETE

MOV
MOV
MOV
CLR

BR
INC

6%:

;EXPECTED POSITION REGISTER WHEN CORRECTION IS COMPLETE

#4 PCJSR

BNE

034566

SuB

MOV

034554

PC,ECORR

28
ZCODE

POSITI

:SAVE PC OF JSR

SOFTWARE POSITION NON ZERO

;BRANCH IF N~CODE S COMPLETE

:BRANCH AS N-CODE IS COMPLETE
: INCREMENT CLOCKS GIVEN FOR LEADING ZEROS

*BRANCH AS N=CODE IS NOT COMPLETE

16O TO GIVE CLOCK AND TEST ECC

;INCREMENT SOF TWARE POSITION

ERPOS,POSITI;HAVE ENOUGH CLOCKS BEEN GIVEN TO DETECT ERROR

CMP

HADTMP,POSITI;HAVE ENOUGH CLOCKS BEEN GIVEN FOR HARD ERROR

;BRANCH IF MORE CLOCKS TO BE GIVEN

BEQ
BIT
BNE

55
#ZER,aR1
4$

;THAT IS HAVE 4128 MORE CLOCKS BEEN GIVEN
*BRANC IF YES
*CHECK 7Lno DETECT BIT IN RHMR
:BRANCH IS ZER SET

gE.PUTREG

:SAVE REGISTERS

;TO SAVE TIME

gg@

;WHEN 21 BITS IN ECC 32 BIT REGISTER IS

052711

3$:

BIS
BIC

#MCLK,aR1
#MCLK aR1

JSR

PC,ECTEST

;SET CLOCK
*CLEAR CLOCK

*G0 TO GENERATE AND TEST ECC

* CONT INUE

sTHIS EXTRA CLOCK IS TO BRING ECH HIGH

;AFTER THIS CLOCK POSITION REGISTER MAY BE 10040 OR 10041 OCTAL

000002
000002

5%:

BIS
BIC

#MCLK ,aR1
#MCLK ,3R1

sSET CLOCK
sCLEAR CLOCK

N
CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.CO 17-NOV-81 16:37:12 PAGE 26-5
ECC GENERATION CONTROL ROUTINE

274
275 035346
,, 035346

276 035350

012601

000200

48:

MOV
RTS

(SP)+,R1

SEQ 0143

;:POP STACK INTO R1

CZRJHEO RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 27
SOF TWARE DISK DATA ECC GEN. ROUTINE
.SBTTL

SEQ 0144

SOFTWARE DISK DATA ECC GEN. ROUTINE

;THIS SUBROUTINE GENERATES THE ECC FOR WHAT IS ON DISK AND INSERTS THEM

°°°§

W= NN

~
W

88258
R

—

PRRRNND

o
o

d
—bb e

MOV
MOV
MOV
MOV

RO,=(SP)
R1,=(SP)
R2,=(SP)
R3,=(SP)

MOV

RS,=(SP)

MOV

CLR

000400
000020

98:
108:

177777

034554

11$:
128:

034554
034612

034556
034560

[=lelelelalalelele)

Shidh
21 035446

035502
27 035504

FILLEC:

b —h

o
b 45 (=lelelelela]

PR rRR
e EEYINT-N
N
NEERE
OSSO

:ON LOCATIONS ‘DISK+1000TM AND ‘DISK+1002"*
= iei=lelelelelelelelelelelelelelelelele]-]
W NN N NN AN NN NN NN N NN NN NN

R
b ik md D ed D D D b =D
o VNS WN=OV~N

[« AV W XV [N ]

B 12

041626
041630

::PUSH RO ON STACK
:iPUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK

R&,=(SP)

POSITI

..Pusu Ré ON STACK

:PUSH RS ON STACK

:CLEAR P6§IT

CLR
CLR
MOV

GECCI
GECC2
#DISK,R1

MOV

#16. ,R3

EAR GECCY
:CLEAR
:POINTER TO DATA FOR ECC GENERATION
:COUNTER FOR NUMBER OF DATA WORDS
:COUNTER FOR NUMBER OF BITS PER WORD

ROR
BCC
MOV

Ré
118
#-1,ECDATA

*GET ONE DATA BIT IN CARRY
*BRANCH IF DATA BIT IS ZERO
*ECC DATA BIT IS
A ONE

CLR
JSR

ECDATA :;ECC DATA BIT IS A ZERO
PC,ECTEST
:GO TO GENERATE ECC

MOV
MOV

GECC1,DISK+<256.%2>; INSERT ECC1 ON DISK
GECC2.DISK+<257.%2>: INSERT ECC2 ON DISK

MOV

MOV
B8R

DEC
BNE
DEC
BNE

MOV
MOV

MOV
MOV
MOV
MoV

#256. .R2

(R1)+,Ré4

128

*DATA IN Ré

*BRANCH TO GENERATE ECC

R3
10$
R2
98

:DECREMENT BIT COUNT
*BRANCH IF 16 BITS NOT DONE
*DECREMENT WORD COUNT
*BRANCH IF 256 WORDS NOT DONE

(SP)+.RS
(SP)+.R&
(SP)+.R3
(SP)+.R2
(SP)+.R1
;EP)+.RO

:;POP
+:POP
::POP
::POP
::POP
::POP

STACK
STACK
STACK
STACK
STACK
STACK

INTO RS
INTO R&
INTO R3
INTO R2
INTO R1
INTO RO

CZRJHEO RPO4/5/6 DSKLS PT2
HAERO V04.00 17-NOV-81 16:37:12 PAGE 28

c 1

SEQ 0145

.SBTTL

RH BASE ADDRESS CHANGE ROUTINE

sTHIS ROUTINE WILL

ALLOW THE CHANGE OF THE BASE

g:\l!\h Vi v v
22
QERSREER FRARS o

WWW

[=]=]=]

:ADDRESS FROM 176700 TO ANY TYPED VALUE
BASECH: MOV
TYPE

;RESET STACK
..rvps ASCIZ STRING

?egoc

RHCS1,=(SP)

:GET READY TO TYPE OLD BASE

TYPE
BR

.67
668

::TYPE ASCIZ STRING
GET OVER THE ASCIZ

gggc’

PC,STKINT

;INITIALIZE THE TTY KEYBOARD

MOV

#RHDB, RO

:GET STARTING ADDRESS OF REGISTERS

MOV
CMP

#ADTIMO,ERRVEC
(SP) ,RHCS1

:SET UP TO CHECK NEW ADDRESS
*NEW CSR?
no-sxxp NEXT

648

001240

=l=l=
=
PR
88838[N
22

~ oSN

035566

T OVER THE ASCIZ

3527" LASCIZ <CRLF>/TYPE NEW éASE ADDRESS FOLLOWED BY 'CR' /
’

044620

MoV

000004

BEQ

y
éég?s:

001226

035766

001226
036100

HHN
—0O0
N
S =2NOON

55;;::

-.—lg

001240

036142

001226
036206

RHCS1, (SP)
(SP), (RO) +
R
2

*GET THE ADDRESS OFFSET
*AND PLUG IT IN
:DONE ALL OF THEM YET?
*NOT YET, SO DO MORE

TYPE

69$

::TYPE ASCIZ STRING

JASCIZ

<CRLF>/PRESENT VECTOR ADDRESS IS /

?ggoc

RPVEC,=(SP)

CASCIZ

RDOCT

718

708

:ACCESS THE NEW ADDRESS

GET OVER THE ASCIZ

;GET READY TO TYPE OLD VECTOR ADDRESS
;5 TYPE ASCIZ sraxnc

GET OVER THE ASCIZ

<CRLF>/TYPE NEW VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED BY "CR* /

MOV
TYPE

(SP)+,RPVEC
738

"ASCIZ

<CRLF>/NEW BASE ADDRESS 1S /

MoV

RHCS1,=(SP)

TYPOC

TYPE

71;5”

*NUMBER OF REGISTERS

a(sP)

TYPE

56;;::

#22. .R1

SUB
ADD
DEC
BNE

2s:

035716

RRTM

SO
o

#STACK, SP
658

::658: .ASCIZ <CRLF>/PRESENT aA§£ ADDRESS IS /

O0O0O0O
WWWWW
OCOO0O0O0O0O0O0O0O0O0O0
WWWWWWWWWWNW

POPNINON)
W
—

BOOVO\anN-"

= ad cd e e cd b e =

(=1Ve1.]

NO VSN -

RH BASE ADDRESS CHANGE
R

B8R

75$

7438

:SETUP VECTOR ADDRESS
..rvpe ASCIZ STRING

GET OVER THE ASCIZ

..rvps ASCIZ STRING

GET OVER rue ASCIZ

CASCIZ

<CRLF>/NEW VECTOR’ ADDRESS 1S 7

MoV
TYPOC
TYPE

RPVEC,=(SP)

77%
63

..TYPE ASCIZ STRING
OVER THE ASCIZ

76;78: +ASCIZ <CRLF>/UNTIL PRO&kAH IS RELOADED./

D 12
CZRJHED RP04/516 DSKLE :55 HAERO V04.00 17-NOV=-81 16:37:12 PAGE 28-1

SEQ 0146

RH BASE ADDRESS CHANG

36 036242

37 036254

104401
000402

036250

104401

036262

000424
104401
000425

012746
104402
104401
000402

036340

000200

036426

000137

004620

104401

036444

000423

79%

78s:

TYPE

825(11

798

788

<CRLF>/ /

::TYPE ASCIZ STRING

*:GET OVER THE ASCIZ

TYPE

818
0s

..rvps ASCIZ STRING
T OVER THE ASCIZ

TYPE

83s
28

..rvre ASCIZ STRING
GET OVER THE ASCIZ

:81% 82SC11 <CRLF>/UNLESS uALiso AND MANUALLY RESTARTED,/

86s:

:83% B:SCIZ

85s:

MoV
TYPOC
TYPE

85% 82SCIZ

84$:

ADTIMO:

::65%:

648:

035506

<CRLF>/PROGRAM WiLL AUTOMATICALLY RESTART FROM /
#200,=(SP)

85%

<CRLF>/ /

JMP

BEGIN

TYPE

658
4

s:TYPE ASCIZ STRING

::GET OVER THE ASCIZ

;0K, NOW START OVER WITH NEW ADDRESS

..TVPE ASCIZ STRING

GET OVER THE ASCIZ

.ASCIZ

<anr><377>/spsciflso ADDRESS DID NOT RESPOND. /

CMP
JMP

(SP)+,(SP)+
BASECH

sRESTORE THE STACK
sAND DO IT AGAIN.

s*THIS IS A LITTLE ROUTINE THAT TESTS NED BIT 11
:*THIS LOOPS HERE FOR EVER

IN PHCS2

:%T0 BE USED ONLY IF DRIVES PRESENT LOOKING AT NED DOES NOT AGREE

:*WITH WHAT IS REALY THERE

032054
036520
010000
59 036544

ERUNIT: 0
ERSTART:JSR
1$:

2$:

MOV
TST

BIT
BEQ
BR
BR

PC,CLDISK

ERUNIT,aR2

SUNIT UNDER MANUAL TEST
sSET _GENERAL REG.

sSELECT UNIT

aRé
#NED ,aR2

sTEST RHER1
sTEST NED

18
18

NED NOT SET
sNED SET

sBRANCH IF GOOD

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 29

E 12

NININININD

= e e

e e e o e

GRISSENRNR W NS
mhuNdBOQNOM&WNflOOONOWbW—.

DISK SIMULATION

+SBTTL

)

DISK SIMULATION

IN A WRITE HEADER AND DATA COMMAND FILL THE FOLLOWING
WCLY=WITH CYLINDER TO BE ON DISK
WSECTR=WITH SECTOR AND TRACK TO BE ON DISK
WKEY1= WITH KEY1 TO BE ON Dl
WKEY2= WITH KEY2 TO BE ON DIS
FNWORD= NO OF DATA WORDS TO BE WRITTEN ON DISK
THE COMMAND THEN IS
JSR PC,COMWHD

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 DIS
KEY2= WITH KEVZ TO BE FOUND ON DISK
X= 1
MUST BEONE
NOWORD= WITH NUMBER OF DATA WORDS TO BE WRITTEN
THE COMMAND THEN IS JSR PC,COMHD

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

KEY2=WITH KEY2 TO BE FOUND ON DISK

DAgORD- UIEHZWER OF WORDS TO BE FOUND ON DISK
THE COMMAND THEN IS JSR PC,COMHD

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 CWAND THEN IS JSR PC,COMHD

SEQ 0747

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 30

SEQ 0148

DISK SIMULATION

AR AR AR AR AR AR RN AR AR AAAAAAAANA NIRRT

'UR]TE DATA COMMAND

:*OR READ COMMAND, I.E DATA ONLY, OR HEADER AND DATA

5
&
7
8
9

::tlt'ttt..tQttt'tt.fi"t"'t.'t.tt.tt..t.t.iit'.'tt'i..t'."tQ'.t

s*THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES

::;Eogsgtfis DIAGNOSTIC MODE, AND EXTRA DIAGNOSTIC INDEX, AND THE

1;
}‘

;*IT THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL
:#0THER SUBROUTINES.
THE SUBROUTINES CALLED HERE ARE:

;*SEARCH

:ISSUES SECTOR CLOCKS TO SET SECTOR FOUND FLOP

2*WRDATA

JWRITES THE SECTOR DATA (WRITE OPERATION)

+ *RDHEAD

:READS THE SECTOR HEADER

:*REDATA

%? 036546

000000

c2 036550

011637

036566

010246

936572

010446

26 036576
27 036606
28 036612
29 036620
30
31 036626

012777
052777
042777
052777

001414

23 036554 162737 000004
24 036562 010046
036564 010146

RUNCTR:

.WORD

COMHD:

MOV

(SP) ,PCJSR

JSAVE PC OF JSR + &

RZ.-(SP)

::PUSH R2

SUB
MOV
MOV

#4,PCJSR
RO.~(SP)
R1.=(SP)

036570 010346

MOV

R3.=(SP)

- 026574 010546

MOV

32 036636

001414

*READS THE SECTOR DATA (READ OPERATION)

MoV

012737 000113

036546

RUNWAT: MOV

#75. ,RUNCTR

:SET DIAGNOSTIC MODE
*SET DIAGNOSTIC INDEX
*CLEAR DIAGNOSTIC INDEX
:ISSUE *GO* BIT & STALL °'TILL *RUN'
sFUNCTION CODE WAS ISSUED BY THE TEST
*LOAD STALL COUNT= APPROX. 450US FOR 11/50 CPU

sCONTINUE UNTIL = 0

036712

MOV

37 036652 012637 036662

MOV

062716

004137
000000

41 036664
4; 036670
43 036674
4% 036700

012701
010137
010137
010137

47 036710
48 036712
49 036714

000000
000000
000000

51 036720

000000

22 036704

50 036716

::PUSH RS ON STACK

#DMD , SRHMR
MMINX , SRHMR
MMINX , SRHMR
#GO,3RHCS1

013746

40 036662

..PUSH R4 ON STACK

RS.=(SP)

MOV
BIS
BIC
BIS

332 036640 001375

gg 036656

R4 ,=(SP)

142454
142446
142440
142412

036546

36 036646

ON STACK

*PUSH R3 ON STACK

000001
000004
000004
000001

005337

35 036642

*SAVE PC OF JSR
::PUSH RO ON STACK
*:PUSH R1 ON STACK

004137

000000

18:

177740

042756

000240
036722
036724
036726

TRK:

037032

DEC

BNE

;COUNT DOWN ONE

SECOTR,~(SP)

;GET DESIRED SECTOR/YRACK

BIC

#1777640,(SP)

:MAKE ONLY SECTOR

JSR

R1,SEARCH

*ISSUE SECTOR CLOCKS <

.WORD

(SP)+, TRK

*SAVESECTOR

#+NOP ,R1
somc TO MOVE NOPS
R1,SSYN :NOP INTO
S
R1.HEDGAP
uop mro HEDGAP
R1.HEDSYN
NOP INTO HEDSYN
R1.RDHEAD

.-nm THE HEADER <

LMORD
JWORD
.WORD

0
0
O

:CYLINDER ADDRESS
*SECTOR/TRACK ADDRESS
*KEY1 WORD

JWORD

=1 WRITE COMMAND

JWORD

MOV
MOV
MOV
MOV
JSR

cyL
secom
KEY1:

RUNCTR

xevz WORD

=0 READ COMMAND

CZRJHEO RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 30-?

SEQ 0149

XY SRS
RV

DISK SIMULATION

;DUMMY ERROR CALL LOCATIONS FOR THE READ HEADER OPERATION
036722

000240

SSYN:

:IF "ERROR 2'* INSERTED BY RDHEAD

NOP

*SUBROUTINE,

THEN THE FIRST SYNC

:1S NOT DETECTED.

NO BAD DATA

:1S GIVEN BECAUSE SYNC=144000
:CANNOT BE READ.
WORD NUMBER

IS """ BECAUSE THIS IS THE FIRST
sWORD TESTED.

036724

000240

;1F "ERROR 3'' INSERTED BY

HEDGAP:

: RDHEAD SUBROUYINE. THEN THE
:HEADER GAP 0'S WERE NOT

WRITTEN RIGHT.

67
68
69
70
71
72
73
74
75
76

;; 036726

"WORD NO'' CONTAINS,

uoao OF A 5 WORD HEADER
*GAP THAT IS WRONG.

:"BAD DATA'' CONTAINS WHAT IS
:GOING ON THE DISK.
000240

HEDSYN: NOP

sIF "ERROR _3'' INSERTED BY RDHEAD

sSUBROUTINE, THEN THE HEADER SYNC
sGENERATED BY DCL IS WRONG,
:OR THE LAST BYTE
;OF THE HEADER GAP 0°'S IS WRONG.

80
81
82
83
84
85
86
87
88
89
90
91 036730
92 036734

005737
001017

001406

TST
BNE

ERFLGS
out

036736
95 036742
89 036744

005737
001410
005737

036720

TST
BEQ

98
99

SAY

(a) THEN IT IS THE THIRD

;IN EITHER CASE WORD NO=6,
sRIGHT BYTE IS HEADER 0,
sLEFT BYTE IS SYNC.

:"BAD DATA'' HAS WHAT IS GOING
DISK.

}8? 036750

001011

102 036752
103 036756
104 036760

004137

}82 036762

000404

107 036764
108 036770
109 036772

004137
000000
000000

037024

TST

DAREAD
NOSYNC

;WERE ANY ERRORS DETECTED ?
:IF YES, EXIT

043232

vOUORD:

DAREAD:
:
DAWORD

1s IT A DATA WRITE OPERATION ?

THEN DO A DATA READ
;1S THIS ronceo HEADER ERROR
COMMAND ?
;IF YES NOSYNC==1 THEN WRITE OR READ
‘1S SHUT OFF,
SO BRANCH OUT

our

040276

R1,WRDATA

0
0
our

1.REDATA

:IF

'NOSYNC=0 THEN CONTINUE

SEXIT IF SET

:WRITE DATA <

CEXIT

;READ DATA <
:NO OF WORDS TO BE READ

:NO OF WORDS TO BE WRITTEN

H 12
CZRJHEO RP04/S5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 30-2

SEQ 0150

DISK SIMULATION

110
111 036774

036774
036776
037
037002
037
037006

112 037010

015605
012604
012603
812602
12601
012600

000207

ouT:

MOV
MOV
MOV
MOV
MoV
MOV
RTS

(SP)+,RS
(SP)+.Ré&
(SP)+,R3
(SP)+.R2
(SP)+ ,R1
(SP)+.RO

::POP STACK INTO RS
$:POP STACK INTO R4
2:POP STACK INTO R3
$:POP STACK INTO R2
2:POP STACK INTO R1
$:POP STACK INTO RO
SEXIT

—

S NN =

3‘6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 31

b ed e

b e

= OVONO NS WN = OV~

SEQ@ 0151

RRR R AR

RRRRARRRRARRAS

s*THE DISK SECTOR IS DEVIDED AS FOLLOWS
:*19 WORDS OF

PON) =

112

;*THESE MAKE 39
37012
37014
37016
37020
37022

RSYNC:
RCYL:
RSETR:
RKEY1:
RKEY2:

0, ONE WORD 144000

BYTES FOR SECTOR GAP AND ONE SYNC. BYTE

14400
O
O
0
0

:*5 WORDS OF 0'S, ONE WORD 144000
s*THESE MAKE 11 BYTES FOR HEADER GAP AND ONE SYNC. BYTE
s*THESE ARE DCL GENERATED

s*THERE ARE 256 WORDS OF DATA
;*THERE ARE 2 WORDS FOR ECC GENERATED BY DCL
:*15 WORDS OF 0'S FOR DATA GAP AND TOLERANCE GAP
e

AR AR AR AR

A AR AR

AR AR AR A AR AR R AR RN AR AR AR AR RN

CZRJHEO RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 32

J 12

SEQ 0152

DISK SIMULATION
1

.':ttt'ttttttttittt'tttt'ttt'ttttttttt.t.ttttttttttttt'tt"tttttt'

+*READ DISK HEADER

;:tQttttttttttttttltttittttttttttttttttttltttttttttt.titttttttttt

S 037024

000000

NOSYNC: 0

:FORCED HEADER ERROR = =1

7 037026
g 037030

000000
000000

TY:
0
ERWORD: 0

*ERROR TYPE NO.
*ERROR WORD NO.

10 037032
11 037036
12 037042
13 037046
1% 037052

012137
012137
012137
012137
012137

037014
037016
037020
037022
037622

RDHEAD: MOV
MOV
MOV
MOV
MOV

MOV

R1,=(SP)

17 037060

013700

001260

MOV

RHMR,RO ;RO CONTAINS MAINTANENCE REG.

19 037070

012710

000001

MOV

#DMD
, 3RO .

BR
MOV

28
:DON'T GIVE SECTOR CLOCK FIRST TIME
MMSTCK!MCLK!DMD,aR0;SET SECTOR, CLOCK, DIAG. MODE, RESET INDEX

MoV
BIS
BIC
DEC
BNE
DEC
BNE

#7.R2
#MCLK , 3RO
#MCLK 3RO
R2
3s
RS
13

MOV
CLR
JSR
DEC
BNE

#18. .R2
:LOAD NO OF WORDS OF ZEROS
WORD
D0 0°'S
PC,READ ;READ 0'S <
R2
:COUNT DOWN WORDS
4
+ CONTINUE

MoV
JSR

RSYNC , WORD
:SYNC. WORD
PC,READ :READ IT'<

[}

}2 037056

18 037064

010146

012705

20 037074
21 037100
gg 037106

052710
052710
042710

24 037110
25 037112

000404
012710

28 037122
29 037126
30 037132
31 037136
32 037140
33 037142
gg 037144

000002

MOV

000010
000002
000012

:
-

000013

1%:

012702
052710
042710
005302
001372
005305
001362

000007
000002
000002

28:
3s:

36 037146
37 037152
38 037156
39 037162
2? 037164

012702
005037
004737
005302
001372

000022
037620
037624

42 037166
43 037174

013737
004737

037012
037624

45 037204

001012

59 037116

4% 037200

037206
47 037214

48 037222

gg 037230
51 037232

52 037240
53 037244
54 037252
55 037256
56 037264

57 037270

042710

032710

012737
013737

012737
000571

013737

004737
013737
004737
013737
004737

013737

000012

48:
|
037620

001000

000001
037012

037014

037620

037022

BNE

037030
001124

036722

037624

BIC

BIT

104002

037624
037016
037624
037020

BIS
BIS
BIC

58%:

#2.RS

;STORE
JSTORE
*STORE
*STORE
*STORE

CYLINDER ADDRESS
SECTOR AND TRACK ADDRESS
KEY1
KEY2
COMPARE OR NOT

::PUSH R1 ON STACK

:RS IS A COUNTER FOR WORDS
*SET DIAG. MODE

#MSTCK,3R0
sSET SECTOR CLOCK FOR FIRST WORD
#MCLK ,aR0
sSET MAINT.CLOCK FOR FIRST WORD
#MSTCK 'MCLK,3R0O :RESET THEM

#MSTCK IMCLK.3RO ;RESET SECTOR € MAINT.CLOCK

#D7SY,ard

:SYNC. BYTE DETECTED?

138

*BRANCH OUT

RCYL ,WORD

:SETUP CYLINDER

MOV

037620
037620

MOV

JSR

:LOAD BYTE COUNTER
*SET MAINT. CLOCK
*RESET IT
*BYTE COUNTER
JCONTINUE IF BYTE NOT COMPLETE
*WORD CCUNTER
:CONTINUE IF WORD NOT COMPLETE

*CONTINUE IF SYNC DETECTED
#1,ERWORD
*ERROR WORD NO
RSYNC ,SGDDAT; SYNC WORD
-

JSR
MOV
JSR
MOV

037620

(R1)+,RCYL
(R1)+ _,RSETR
(R1)+.RKEY1
(R1)+.RKEY2
(R1)+, COMPA

MOV
MOV

MOV

JNORMAL = 0

#104002,SSYN' TM ; INSERT "ERROR 2'' IN SSYN

PC,READ ;READ IT <
RSETR,WORD
-SETUP SECTOR/TRACK
PC,READ :READ THEM <
RKEY1,WORD
;SETUP KEY1
PC asm *READ IT <

RKEY2,WORD

:SETUP KEY2

>
>

S8 037276

004737

037624

62 037314
63 037320
64 037322
22 037326

005737
001135
005737
001472

001426

59 037302
g? 037310

013737
004737

040610
037624

037620

037622

PC,READ ;READ IT <

ST
BNE
ST
BEQ

TESDTE
138
COMPA
118

012705
012705

040612
000005

2 037346
73 037352
7% 037356
75 037360

004737
005737
001413
160237

040056
040054

71 037340

012737

76 037364
77 037370

005037
013737

000006

037030

6$:

037030

001124
040054

000503

81 037406
82 037412
83 037414
84 037416
85 037422
86 037430
g; 037432

013725
005302
001351
004737
023737
001426
005737

040054
040056
037012

;POINTER FOR HEADER GAP
:NO OF WORDS OF ZEROS

JSR
ST
BEQ
Su8

PC.WRITE
uuono

sTEST WRITTEN WORD

MOV

78:

040054

037024

005737

040054

95 037446
96 037452
97 037454
98 037462
99 037470

005037
000403
013737
013737
012737

001124

CLR
BR
MoV
MOV
MoV

}8} 037504

000443

103 037506

013725

100 037476 012737 104003
000440

036726

040054

}89

13$

148

:PRINT IT IF TRUE ERROR

IS IT
=02
:CONTINUE IF GOOD
;IT SHOULD BE ZERO
158
:BRANCH TO TYPE ERROR
RSYNC,$GDDAT; GOOD DATA
UUORD SBDDAT BAD DATA

0164003.HEDSYN

MOV

WWORD, (R5) +

;BRANCH OUT

108
$GDDAT

MOV

BR
108:

$GDDAT ;GOOD WORD SHOULD BE 0
WWORD ,$80DAT
:BAD

WWORD, (RS) +
:SAVE HEADER GAP
R2
6
PC.WRITE
;WRITE HEADER (DATA) GAP SYNC
RSYNC
, WWORD
108
NOSYNC ;IS THIS roncgg HEADER ERROR COMMAND ?
.1
NOSYNC==1 THEN WRITE OR READ
1S SHUT OFF SO BRANCH OUT
:IF NO NOSYNC=0 THEN CONTINUE

93 037440

14S$:
158:

sCONTINUE IF GOOD, THAT IS =
:WORD NO IN ERROR

MOV
DEC
BNE
JSR
CMP
BEQ
ST

BEQ

001124
001126
037030

nz ERWORD

:ERROR WORD NO SET
:FOR_HEADER GAP

0104063 HEDGAP; taaon z" GOES IN HEDGAP

037012
040054
00000?

#6. ERWORD

MOV

B8R

001406

11% 037532
113
037534
114 037542

:1S THIS A READ OR WRITE COHHAND ?
:DO READ IF = 0

#HEGAP,RS
#5.R2

35 037436

108 037514
109 037520
110 037526
111 037530

;IS THIS A DRIVE TIMING sanou ?
:BRANCH OUT IF YES

MOV
MOV

CLR
MOV

001126

78 037376 012737 104003 036724

;3 037404

}8? 037512

WCRC,WORD
SETUP CRC
PC,READ :;READ IT <

;*CONTINUE WITH DIAGNOSTIC WRITE COMMAND

69 037330
70 037334

89
90

JSR

MOV
JSR

138

:SAVE DATA SYNC.
JEXIT

s*READ COMMAND START FROM HERE
012702
005037
004737
005305

00137,
013737
004737

000005
037620
037624

037012
037624

115:
128:

037620

MOV
CLR
JSR
DEC

BNE
MoV
JSR

#5,R2
WORD
PC.READ ;READ HEADER GAP
<
R
ARE 5 HEADER GAP ZEROS COHPLETE ?

12$
SIF?07 CONTINUE
RSYNC ,WORD
:SYNC WORD
PC,READ ;READ HEADER (DATA) SYNC)

SEQ 0153

TM~

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 32°

DISK SIMULATION

S?HSEO4IS/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 32 5
115 037546
119 037552

005737
001404

118 037560

001415

117

037554

}58 037562

121 037564
122 037570
123 037572
124 037600
—

o
WW
NN
o

—

N
o

125 037606
037614

127 037616

032710

037024

001000

012737
012601
000201

NOSYNC
16$

BEQ

138

BIT

000403
032710
001011
012737
013737

TST
BEQ

BR
001000

000006
037012

104002

168:

037030
001124

036726

17%:
13%:

SEQ 0154

;FORCED SYNC ERROR ?
:IF NOT_ERROR COMMAND CONTINUE

#DTSY,aR0

SYNC DEYECTED

178

:IF NOT ZERO BRANCH TO ERROR

:IF ZERO_BRANCH

BIT
BNE
MoV
MoV

#DTSY,aR0
:SYNC. DETECTED ?
13
SEXIT IF YES
#6, ERWORD
;ERROR WORD NO.
RSYNC ,$GDDAT; SYNC WORD

MOV
RTS

MoV

#104002, HEDSYN; MOVE *‘ERROR 2'*
(SP)+ R

;sPOP STACK INTO R1
SEXIT

§§ HE?HSPOAISlb DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 33
1

M 12

$EQ 0155

ttttt'tt'tttttt'ttttt"i."t'tl'tt'ttt.'.t't'tt.t.""t.t.t"tt

amo ONE WORD IN 'WORD''

tt'tttt'ttltttttttttttt't't.ttt.tt.ttttttttttttt.t'tt't.tt.t'tt

5§ 037620
g 037622

000000
000000

8 037624
037624
9 037626
10 037632

010246

WORD:
COMPA:

13 037644

012705
012710
006037
103002
052710

15 037654
16 037660
17 037664
18 037666
19 037672

052710
005737
001411
032710
001404

0C0012
034562

11 037636
12 037642

14 037650

012702

000020

000007

1$:

000020

20 037674 012737 177777 034554
21 037702 000402

22 0377064

005037

034554

24 037714
25 037720
26 037722

006037
103002
012716

037620

28 037730
29 037734
30 037736
31 037742
32 037746
33 037752
3% 037756
35 037760
3% 037764

005737
001404
005237
004737
052710
005737
(01411
032710
001404

034562

38 037774
39 037776
40 040002
41 0640006
42 060012
43 040014

000402
005037
012746
006037
103002
012716

23 037710 012746 000001
27 037726

012610

000021

034574
034612
000002
034562

58:

46 040026
47 040030

48 040034

012610
005737

001404
005237

004737

50 040040
51 040042
52 040044

005302
001341
005305

54 040050
§5 040052

012602
000207

53 040046

001300

000021

034562

az -(SP)

::PUSH R2 ON STACK

MOV

#7 ,R2

:BYTE COUNTER

MOV
MOV
ROR
BCC
BIS

BIS
ST
BEQ
BIT
BEQ

B8R

CLR

68:

MOV

28:

MOV

3s:

37 037766 012737 177777 034554

4% 060020
45 040022

MOV

000020

034554
000001
037620

0
0

78:

8s:

48:

034574

034612

ROR
BCC
MoV

ST
BEQ
INC
JSR
BIS
ST
BEQ
BIT
BEQ

*WORD COUNTER
:SET DIAG. MODE
*CHECKING IF THERE IS A ONE
*IF NO ONE BRANCH
SSET BIT 4 IF DATA HAS ONE

#MSTCK !MCLK,@R0O -SET CLOCK,DATA IF ANY, SECTOR
TSECCG ;IS THIS BIT TO GENERATE AND TEST ECC ?
68
:BRANCH IF NO
#MRD , 3RO
:1S DATA BIT A ONE ?
5%
*BRANCH IF DATA BIT IS 0

#-1,ECDATA
6$

ECDATA

*ECC DATA BIT IS A ONE
*BRANCH

;ECC DATA BIT IS A O

#DMD , = (SP)

:KEEP ONLY DIAG. MODE

(sP)+,aRr0

*PUT IN DATA,RESET CLOCK., SECTOR

WORD
28
#MRD 'DMD, (SP)

*CHECKING IF THERE IS A ONE
*IF NO ONE BRANCH
KEEP DATA AND DIAG. MODE

TSECCG ;1S ECC TO BE GENERATED FOR THIS BIT
33
:BRANCH IF NO
DATENV ;NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE
PC,ECTEST
;G0 TO GENERATE AND TEST ECC
#MCLK 3RO
*SET CLOCK
TSECCG ;1S THIS BIT TO seusanre ECC
2%
:BRANCH IF NO
#MRD , 3RO
*1S DATA BIT A ONE
7%
*BRANCH IF DATA BIT IS
= 0

MOV

#-1,ECDATA

MOV
ST

(SP)+,aR0
*SET DATA, DIAG. MODE, CLEAR CLOCK
TSECCG ;1S THIS BIT TO GENERATE ECC

BR
CLR
MOV
ROR
BCC
MOV

*ECC DATA BIT IS A ONE

8s
*BRANCH
ECDATA ;ECC DATA BIT IS = 0
#DMD
, - (SP)
:KEEP DIAG. MODE
WORD
*CHECKING IF THERE IS A ONE
43
:BRANCH IF NO ONE
#MRD 'DMD, (SP)
:KEEP DIAG. MODE AND DATA

BEQ
INC

98
DATENV

PC,ECTEST

;G0 TO GENERATE AND TEST ECC

DEC
BNE
DEC

R2
3s
RS

:BYTE COUNTER
*CONTINUE IF ONE BYTE NOT COMPLETE
*WORD COUNTER

MOV
RTS

(SP)+,R2
PC

1:POP STACK INTO R2
CEXIT
—

JSR

98:

2.RS
cono ar0
WORD
1$
#MRD , 3RO

BNE

:BRANCH IF NO
;NUMBER OF CLOCKS FOR DATA ENVELOPE

*CONTINUE IF ONE WORD NOT COMPLETE

”E?
P06/516 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 34
1

SEQ 0156

t't"ttttt.tttttlttttt'"t".ttt.'..tttttt..t"tt...t"tt".t.'

-uam ONE WORD WHICH COMES BACK IN '‘WWORD''

tttttt'tttt*t.'tt.tt't"t't'tt't.tttttt.t'ttt"tt"t'tt.tttt'tt

2 040054

7 040056

000000

WWORD:

WRITE:

040056
040060
040062
040064
8 040066
9 040072
10 040076
11 040102

010046
010246
010346
010546
012705
012710
012702
012710

13 040112

001406

12 040106

1% 040114

15 040122

032710

012737
000261

16 040126 006003
17 040126 000404

000002
000001
000007
000013

18:

000040

177777

034554

28:

21 040140

012710

000001

3s:

23 040150
24 060152

0014
005237

27 0640162
28 060166

052710
032710

000002
000040

30 040176

012737

177777 034554

22 040144 005
52 040156
29 040172
31 040202
32 040204

33 0460206

34
040210
35 040214

004737

001406
000261
006003

000404

034562
034574

034612

48:

68:

41 060236
060242

004737

001346

46 040250
47 060252

oom;
010337

040

012603

45 040246

48 040556
040262
0264
040264

49 040266

034574

034612

005302

44 0640244

78:

005305

012605

012602
012600

000207

040054

#MUR, 3RO

CHECK WRITEBIT IN MAINT. REG.

MOV

#<1,ECDATA

ROR
B8R

R3
33

CLR
cLe

ROR

ECDATA

*BRANCH IF Z2ERD

:ECC DATA BIT IS A ONE

*SET CARRY

*MOVE 1 FORWARD
;ECC DATA BIT IS
= 0
.c
LEAR CARRY

MOVE 0 FOR WWORD

MOV

#DMD
, 3RO

BEQ
INC

43
DATENV

PC,ECTEST

;GO TO GENERATE AND TEST ECC C======== >

BIS
BIT

#MCLK , 3RO
#MUR, 3RO

:SET CLOCK
*CHECK WRITE an IN MAINT. REG.

MOV

#-1,ECDATA

SEC
ROR

3% 040216 006003
37 040220 012710 000001

034562

BEQ

5$:

005737
001404
005237

RO,=(SP)
::PUSH RO ON STACK
ag‘=(5P)
:PUSH R2 ON STACK
-(SP)
*PUSH R3 ON STACK
RS.-(SP)
+:PUSH RS ON STACK
#2.RS
*WORD COUNTER
#1.3R0
*SET DIAG. MODE
47 R2
*BYTE COUNTER
#MSTCK 'MCLK !DMD, aao SET SECTOR & MANT. CLOCKS

JSR

034554

38 060224
39 040230
40 060232

005037
000241

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
SEC

005037
000241

20 040136 006003

BIT

18 040130
19 040134

N 12

CLR
cLe

TSECCG

*CLEAR SECTOR AND CLOCK

;IS THIS'BIT TO ssumre ECC?
:BRANCH IF

;NUMBER OF CLOCKS roa DATA ENVELOPE

ECDATA

*BRANCH IF ZERO

:ECC DATA BIT IS A ONE

*SET CARRY
SMOVE 1 FOR WWORD

;ECC DATA BIT IS ZERO
:CLEAR CARRY

ROR
MOV

R3
#DMD , 3RO

JSR

PC,ECTEST

;GO TO GENERATE AND TEST ECC <======== >

:COUNT FOR BYTE END

DEC

*COUNT FOR WORD END

MOV

(SP)+,RS

ST
BEQ
INC
DEC

BNE

BNE
MOV

MOV

MOV
MOV
RTS

TSECCG
78
DATENV

.novs 0 FOR WWORD
CLEAR CLOCK

;1S THIS en To csnmre ECC ?
:BRANCH IF NO
;NUMBER OF CLOCKS FOR DATA ENVELOPE

:IF NOT BYTE END CONTINUE

1%
R3, WWORD

*IF NOT WORD euo CONT INUE
*STORE THE WOR

(SP)+.R3

1:POP STACK INTO R3

(SP)+ R2
(SP)+.RO

1:POP STACK mo RS

::POP STACK INTO R2
‘POP STACK INTO RO

éxx ............................... >

CZRJHED RP04/516 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 35

SEQ 0157

s AR AR

AR AR AR I AR AARAAANAAAAAANAAARAAAAAAAARAAOARNOONS

Pt N—On OO NN

WO W

sSTART or TO&;RANCE GAP TABLE

g
=

sNO. OF TOLERANCE GAP WORDS

:;1,(R3J+

HAKE

-IF NOT, CONTINUE

TSECC

034562

7$:

2$:

;IS 14 CWLETED ?

#-1,TSECCG

sNO. OF ZERO WORDS TO BE WRITTEN

;1S THIS AN ECC TEST

:BRANCH IF NO
sTHESE BITS ARE TO GENERATE ECC
:SIMULATED DISK AREA
:WRITE ON SIMULATED DISK

:STORE ON SIMULATED DISK

(V.]

sANY ZEROS TO BE WRITTEN ?
sBRANCH IF NONE TO BE WRITTEN
PC,WRITE

48:

TSECQ'ZG

:\‘lORD.(R3)+

PC,WRITE

\V_ ]

®
S

3s:

PC,WRITE

6$:

sWRITE ZEROS ON SIMULATED DISK
:STORE THEM

:NO MORE ECC TO BE GENERATED

U?ORD.(R3)+

= L

#TOLGAP,R3

:PUSH
ON STACK
ON STACK
Ré
::PUSH

COUNTD, (SP)
(SP),ZWORDS
(SP)+,Ré4

N
=
N = L
W

—

AV,

sPUSH R1 ON STACK
..PUSH R2 ON STACK

FORMAT,

001424

177777
040626

..PUSH RO ON STACK

RHMR, RO (lSiO CONTAINS MAINTANENCE REG.

N
~

18:

STORE NO. OF WORDS TO BE WRITTEN
;SAME IN R2
CWARE OR NOT

Rg.~(SP)

=(SP)

NN WNWNWN

OANNNY

Noo

—b

.
e S
R
T
T
B

(R1) ,COUNTD
(R1)+,R2
(R1)+,COMPA
RO,=($P)
R1.-(SP)

®
S

OCO0O0O0O0O0O0O0O0O0O

ggegeesssesessse
2 8838
2geeggeszes 22
-flU"UNMUin
R
T
S
PP
A vtSt S it o
)
WENSSRRRE
§w8~wo~uwg~ w §~ -+ ‘NCD&MNCDU“DLd%E
5

AR AR AR A AR AN AR AR AR AAARAAAAANIAAAAARRAAAANAAAROR
AR RS

: 256

ReR
OO
b

z
3
3R

S WN=O0BNO
NS W

PININININ)
= b wd e b d b

¥
~
&

s*WRITE DATA HOUSEKEEPING ROUTINE

—_— b

NSOV
NS N —

DISK SIMULATI

sWRITE ECC1 AND ECC2 ON SIMULATED DISK
sSTORE IN WEECT AND WEEC?

;WRITE DATA GAP
sSTORE IT
;WRITE TOLERANCE GAP ZEROS

:STORETHEM
6$
(SP)+ R4

(SP)+.R3

::POP STACK INTO R4
::POP STACK INTO R3

HEO RPO‘{géb DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE SS-S

SEQ@ 0158

SIMULAT

01 602
1 601
012600
000201

(SP)+,R2
(SP)+,R1
é?P)*.RO

:;POP STACK INTO R2
::POP STACK INTO R1
;é;?? STACK INTO RO

g%lslgflg?
RPOlo/Slb DSKLS PT2 MACRO V04.00 17-NOV-81
1

16:37:12 PAGE 3¢

D13

SEQ 0159

tfitt'Qfit.tttt.tQttQ'*.'i"i"tt..t..t.'!tttt..'.'..'.'...."".

tTHIS IS THE SIMULATED DISK, ONLY ONE SECTOR OF SPACE IS ALLOCATED
.tttttt"tit......t.'Q."tt'Q.t'fiQ.i..fi.t'tfifi't't...t'i""."'

S 040530

6 040576

7 04
8 040610
9 040612
10 040624
11 040626
12 0460626
13 041626
14 0461630
15 041632
16 041634

SECGAP:

.BLKW

19.

:SECTOR GAP 38 BYTES OF 0

HEADER:
WCRC:
HEGAP:
HDWSYN:
SILOTB:
DISK:
WECC1:
WECC2:
DTAGAP:
TOLGAP:

.BLKW
BLKW
.BLKW
.BLKW

&
1
5
1

BLKW
.BLKW
.BLKW
.BLKW
.BLKW

256.
1
1
1
14.

*HEADER = CYL, SECTOR/TRACK, KEY1, KEY2
sCRC
HEADER GAP 10 BYTES OF 0
JHEADER GAP 1 BYTE OF 0 ONE SYNC. BYTE
+ (ALSO USED IN SILO TEST AS SILO TABLE)
:DATA SPACE
JECCT
JECC2
sDATA GAP 2 BYTES OF 0
sTOLERANCE GAP 28 BYTES OF 0

WSSYNC: .BLKW

*SECTOR GAP 1 BYTE OF 0 ONE SVNC BYTE

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 37

E 13

SEQ@ 0160

zxa#flshfl’“flflhfla&OGFNONfltfldhhdCNOOPMOWHOMNU-‘

DISK SIMULATION

AR A

AR AR

'URITE HEADER AND DATA

d ittt
iiiiiddiiiiiidl]
d

ittt

it idiiiddidiiiddl]

:'THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES
.:{E !SSljJ;S DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE

s*IT THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL OTHER

s *SEARCH

s ISSUES SECTOR CLOCKS TO SET SECTOR FOUND FLOP

}

: *WRDATA

:WRITES THE ACTUAL SECTOR DATA

}

;*SUBROUTINES.

; *WRHEAD

WRITES THE SECTOR HEADER

;*ALL OF THE ABOVE MENTIONED 'WRITING'' IS ACTUALLY DONE INTO A CORE

1
1
1

THE THREE SUBROUTINES CALLED HERE ARE:

s*BUFFER AREA CALLED °'DISK' VIA THE MAINTENANCE REGISTER (RHMR)

041670

000000

041672

011637

041676
041704
041706
041710

RNCTR1:

001414

162737 000004 001414
010046
010146
010246

COMWHD: MOV

041714 010446
- 041716 010546
31 041720
32 041726
33 041734
3% 0641742

.WORD

:'RUN' LINE STALL COUNTER

(SP) ,PCJSR

:SAVE PC OF JSR + &

SUB
MOV
MOV
MOV

#4,PCJSR
RO,=(SP)
R1,=(SP)
“§=(SP)

*SAVE PC OF JSR
::PUSH RO ON STACK
2:PUSH R1 ON STACK
::PUSH R2 ON STACK

MOV
MOV

R&.=(SP)
RS.=(SP)

::PUSH R& ON STACK
*:PUSH RS ON STACK
:SET DIAGNOSTIC MODE
*SET DIAGNOSTIC INDEX
*CLEAR DIAGNOSTIC INDEX
:SET 'GO* BIT & STALL 'TILL "RUN'

012777
052777
042777
052777

000001
000004
000004
000001

137332
137324
137316
137270

MOV
BIS
BIC
BIS

#DMD , aRHMR
MMINX, 3RHMR
#MINX, SRHMR
#GO,3RHCS1

012737

000113

041670

RNWAT1: MOV

#75. .RNCTR1

38 041756

005337

041670

18:

DEC

RNCTR1

41 0641764

013746 042050

MOV

WSECTR,=(SP)

43 061776

012637 o«zogc

35
gg 041750

23 041762 001375
42 061770
4% 0642000

47 042004

0462716

177740

004137

062756

000000

48 062006 012701 000240
49 062012 010137 042060
.50 062016 010137 042062

51 062022 o1o1§7 042064
52 062026 010137 0462066

BNE

BIC

2s:

WIRK:

MOV
JSR

.WORD

;COUNT DOWN1

commus UNTIL = 0
:GET DESIRED SECTOR/TRACK

#177740,(SP)

:MAKE ONLY SECTOR

R1,SEARCH

*1SSUE SECTOR CLOCKS TO GET TO

(SP)+,WiRK

MOV
MOV
MOV

#+NOP ,R1
R1,SEGPER
R1.FSYNER

MOV

R1.ERCRC

MOV

:(FUNCTION CODE WAS SET UP BY THE TEST)
"%83’,?'5 chumrea = APPROX 450US

R1.ERHEAD

*SAVE SECTOR

*DESIRED SECTOR <
:SECTOR NO.

*GOING TO MOVE NOPS
*NOP INTO SEGAP
.NOP INTO FSYNER

*NOP INTO ERHEAD

*NOPINTO ERCRC

F 13

CZRJHED RPO‘/S/b DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 37-1

SEQ 0161

DISK SIMULATION

53 04%032
56 042036
55
gg 062042

60 042052

61 042054
g% 042056
64
65
66
67 062060

010137
010137

042070
042072

MOV
MoV

R1.ERHDGP
R1,HDESYN

sNOP [NTO ERHDGAP
sNOP INTO HDESYN

004137

042142

JSR

R1,WRHEAD

sWRITE THE HEADER <

000000
000000
000000
000000
000000

weyL:

0
: 0
WKEY1: 8

WKEY2:
GCRC:

sCYLINDER
sSECTOR AND TRACK

;DUMMY ERROR CALL LOCATIONS FOR THE WRITE HEADER OPERATION

000240

SEGPER: NGP

;IF 'ERROR 6'' INSERTED BY
sWRHEAD SUBROUTINE, THEN
sSECTOR GAP GOING ON DISK
:1S NOT RIGHT.

sWORD NO. CONTAINS WHICH
sWORD IS WRONG, THAT IS

sFIRST OF TENTH, OR WHAT EVER.

;BAD WORD IS WHAT IS GOING ON DISK
78 042062

000240

FSYNER: NOP

:IF "ERROR 6'‘' INSERTED BY

:WRHEAD SUBROUTINE, THEN
sTHE LAST 0 BYTE OF SECTOR
:GAP OF FIRST SYNC. BYTE

:AFTER SECTOR GAP IS IN
sWORD NO. CONTAINS 20

RIGHT BYTE IS SECTOR GAP

:LEFT BYTE IS SYNC. BYTE.

:B?gKUORD IS WHAT IS GOING ON
92 042064

000240

ERHEAD: NOP

:IF "ERROR 6'° INSERTED BY

WORD
WORD
D
WORD

b md e

SEIKIREN28E

sWRHEAD SUBROUTINE, THEN
sHEADER GOING ON DISK

:B?gKUORD IS WHAT IS GOING ON

g
g

d et
b
D
b et

NO 1 = CYLINDER NO
NO 2 = SECTOR/TRACK
NO 3 = KEY1
NO 4 = KEY2

000240

ERCRC:

NOP

;IF "ERROR 6'°' INSERTED BY

sWRHEAD SUBROUTINE, THEN CRC WRITTEN
sON DISK IS IN ERROR.

—

Y
b b

MgWNdOOQNOWJ‘wN-‘OOONOM&U‘N—'O

D D D e D D e d D D D D D D D D e e D D ) D e i
W
WINWWNN
P NI NI NI NI NI NININ) b b b e
e e

;WORD NO IS 5
042070

ERHDGP: NOP

000240

;IF "ERROR 6'' INSERTED BY
sWRHEAD SUBROUTINE, THEN HEADER
;GAP GOING ON DISK IS WRONG.
sWORD NO GIVES WHiCH OF
:THE HEADER GAP WORDS
sARE WRONG. FOR EXAMPLE:
sWORD NC 1 = FIRST HEADER
GAP WOR D
H:
;BAD WORD IS WHAT IS GOING ON DISK

042072

000240

HDESYN: NOP

:IF "ERROR 6'°' INSERTED BY

sWRHEAD SUBROUTINE, THEN LAST
cHEADER GAP BYTE OR HEADER
sSYNC BYTE GOING ON DISK IS WRONG.
:WORD NO = §

VIS RSB SSSSSN
COVBNO VWSO Vo~

D d D e

;BAD DATA IS WHAT IS GOING

sON DISK, RIGHT BYTE IS HEADER
: GAP g;zCBYTE. LEFT BYTE IS HEADER

[=1=2

005737
001004
004137

001406
040276
:
FNWORD

NN
= b bt

SEQ 0162

;GOOD DATA IS WHAT SHOULD BE ON DISK
;BAD DATA IS WHAT IS GOING ON DISK.

D e
D D
D e

D cd
e
—

—

RPO‘{%‘6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 37-3

FOUT:

TST
BNE
JSR

ESF%GS sARE ANY ERRORS DETECTED ?
U
:IF YES BRANCH
R1,WRDATA
sWRITE THE DATA

WORD
.WORD

0
0

sFORMAT COMMAND NO. OF DATA

MGV
Mov
MoV
MOV
MoV
MoV

(SP)+,R5
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO

:;POP STACK INTO RS
:;POP STACK INTO R4
::POP STACK INTO R3
::POP STACK INTO R2

RTS

::POP STACK INTO R1
::POP STACK INTO RO
JEXIT

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 38

H13

SEQ 0163

DISK SIMULATION
1

2
3

*URITE HEADER

5
6
7
8

:*R1 = SIMULATED DISK
taz = BYTE COUNT

SRR AR AR AR AR A AR

AR ARAAARRARAANAANI AR AA RN

*R3 = WRITE WORD

:*RS = WORD COUNT

12 042130
13 042132
14 042134
15 042136
16 042140

000000
0000

18 042142
19 042146

012137
012137

25 042170
26 062176
27 062200
28 042204
29 042210
30 062214

012701
013700
012710
012705
052710
012710

32 042220
33 042204
34 042226
35 042230
36 042232
37 042234
38 042236
39 042240
40 042244
41 042250
42 042254
43 042260

032710
001403
000261
006003
000402
000241
006003
012710
012702
052710
032710
001403

45 042262
46 042064
47 042266
48 042270
49 042272
30 Qd2ere
31 042300
52 042302
53 042304
54 042306
55 042310
56 042312
57 042314

000261
006003
000402
000241
006003
012710
005302
00136
005305
001342
010321
005703
001414

20 042152
21 062156
22 042162
23 042166

AT E AR AR AR

AR AN

;*RO
= MAINT.REG.

AR AR AR AR RN AR A AR RAAAR AR

SCYL:
SSECTR:
SKEY1:
SKEY2:
SCRC:

000000
000000

0
0
0
0
O

WRHEAD: MOV

012137
012137
012137
010146

1$:

28:

38:
48:

(R1)+.SSECTR
(R1)+,SKEY1
(R1)+,SKEY2
(R1)+.SCRC
R1,=(SP)
::PUSH R1 ON STACK
#SECGAP,R1
:SIMULATED DISK INDICATOR
mm RO ;RO NOW HAS MAINT. REG. ADDR.
aro’
:SET DIAG. MODE

BIS

#MSTCK ,aR0

MOV

68:

2
RS

:WORD COUNTER

*SET SECTOR FOR FIRST BYTE

MOV

#MSTCK {MCLK !DMD,3R0; SET SECTOR, CLOCK. DIAG.

BIT
BEQ
SEC

#MUR, 3RO
2

ROR
BR
cLC
ROR
MOV
MOV
BIS

BIT
SEC

000001

(R1)+,SCYL

MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV

BEQ

5%:

H
:
3
3
:

*MOVE ONE roawo
:
*CLEAR CARRY
*MOVE ZERO FORWARD
*CLEAR CLOCK, SECTOR
*BYTE COUNTER

#MUR, 3RO

+CHECK WRITE BIT IN MAINT.REG.

MMCLK , 3RO

R3
63
R3
#DMD
, 3RO

BNE

DEC

BNE
MOV
ST
BEQ

:SET CARR

R3
33
R3
#DMD , 3RO
#7 RS

ROR
BR
CLC
ROR
MOV
DEC

:MODE, RESET INDEX
*CHECK WRITE sn IN MAINT. REG.

13
R3, (R1)+

*SET BIT CLOCK

*BRANCH IF ZERO
:SET CARRY

*MOVE ONE FORWARD

CZRJHEO RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 38-%

SEQ 0164

DISK SIMULATION

§9 042316 012737 000001

037030

MOV

#1,ERWORD

eg 042334 012737 104006 042060

MOV

nbl.ooe.sscpsn

MOV

#18. .R2

:COUNT NO. OF SECTOR GAP

JSR

PC,WRITE

*WRITE SECTOR GAP

60 042326

61 062330

005037

010337

001124

CLR

001126

24 042342 00137 042750
65 0462346 01270;
66 042352

67 062360

012737

004737

00022

000024

040056

037030

JMP

78:

108:

68 062364 013721 040054
69 0462370 001413
70 042372 160237 037030
71 042376

005037

72 062402
73 042410
7% 062416

013737
012737
000554

76 042422

001353

75 042420

001124

040054
104006

118:

#20. . ERWORD

:BRANCH OUT
:COUNT TO GIVE ERROR WORD

MOV
BEQ
SUB

WWORD, (R1)+
118
R2,ERWORD

MOV
MOV
BR

WWORD
, $SBDDAT;BAD WORD
no:.obs SEGPER; STORE 'tnnoa 6'' IN SEGPER
:BRANCH OUT

BNE

10s

CLR

001126
042060

005302

MOV

fum

DEC

$GDDAT

:STORE SECTOR GAP WORD
:IF NOT GET ERROR WORD NO.

;GOOD WORD

:HAVE 18 WORDS OF ZEROS BEEN WRITTEN ?

+IF NOT CONTINUE

;AT THIS POINT THE SECTOR FOUND FLOP SHOULD

:BE HIGH,

;HOWEVER, IN THE DRIVE TIMING ERROR TEST THE REST OF THE ROUTINE

:1S ABORTED

84 0424246

005737

001426

87 0642432

004737

89 0462436 013711
90 0462442 023721

gg 042430
X

SO THAT THE HEADER SYNC BYTE CAN BE GIVEN.

001147

TESDTE

040056

JSR

PC.WRITE

040054
037012

MOV
CMP

WWORD, (R1)
RSYNC. (R1)+

“SAVE 0 BYYE AND SYNC BYTE
:1F SYNC. BYTE RIGHT

:IF NOT GET READY FOR ERROR PRINT

BNE

;1S THIS A DRIVE TIMING ERROR TEST ?

;BRANCH OUT IF YES

*AND ONE S“NC. BYTE = 230

gg 042450 012737 000024

001414

037030

MOV

420. ,ERWORD

9% 042456
95 0462464

013737
014137

001124

MOV
MOV

asmc.ssow GOOD WORD
-(R1)
.$BDDAT
:BAD WOR

96 0462470 012737 104006 042062
3; 042476 000524

99 042500

100 042504
101 042510
102 042516
103 042522
104 042526
105 042530

}89

012702

012703 042130
012737 000005
004737 040056
013711 040054
022321

037030

138:

001412

108 042532
109 042536
110 042542

160237
014337
014137

H% 042554

000475

114 042556

005302

037030
001124
001126 -

nol.obc FSYNER; INSERT "ennoa 6’ IN FSYNER
178

;BRANCH OUT

MOV

#4,R2

:FOUR HEADER WOR

BEQ

148

:1F GOOD CONTINUE OPERATION

MOV
MOV
JSR
MOV
CMP

SUB
MOV
MOV

111 042546 012737 104006 042064

#SCYL,R3
#5, ERUORD
PC.WRITE
WWORD, (R1)
(R3)+.(R1)+

*POINTER FOR nmsn TABLE
*ERROR WORD NO SET
*WRITE & HEADER WORDS
*STORE WRITTEN WORD
:1S IT CORRECT ?

:IF NOT GET READY FOR ERROR PRINT

R2,ERWORD
-(R3) scoon
-(R1) ' $B

;WORD NO
*G0OD om
*BAD

MOV

no4obcsanm INSERT "moa 6"
178

:BRANCH OUT

DEC

:ARE 4 HEADER WORDS DONE?

B8R
148:

+IF YES CONTINUE OPERATION

MOV
B8R
128:

128

:WRITE ONE SECTOR GAP 0 BYTE

91 0462446

037012
001126

BEQ

17$

ZRJHEQ RP04/S5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 38-5

SEQ 0165

ISK SIMULATION

115 042560
116 042562
117 042566
118 042572
119 042576

001353
004737
013711
022137
001414

040056
040054
042056

122 042600

014137

001126

124 042612

012737

000005

}5?

123 042604

125 042620
}59 042626

013737

012737
000450

042056

001124

104006

042066

128 042630
129 042634
130 042642
131 042646
132 042652

012702
012737
004737
013721
001412

000005
000006
040056
040054

135 042654
136 042660
137 042664

160237
005037
014137

037030
001124

}zg 042676

000424

}gz

138 042670

141 042700
142 042702

143 042704
144 042710
145 042714
}29 042720

012737
005302
001354

001126

104006

040056
040054
037012

148 042722

012737

000005

}g; 042742

012737

104006

149 042730
150 042734

153 042750
042750
154 042752

014137
013737

012601

000201

001126
037012

;IF NOT CONTINE
:WRITE CRC
:STORE CRC
;COMPARE GOOD CRC
:IF GOOD CONTINUE OPERATION

MoV

=(R1) ,$BDDATA

:BAD CRC WRITTEN

MOV

#5 ,ERWORD

;ERROR WORD NO

17%

JEXIT

MOV
MOV
JSR
MOV
BEQ

#5.R2
#6,ERWORD
PC,WRITE
WWORD, (R1)+
168

:NO OF HEADER GAP
;ERROR WORD NO SET
:WRITE HEADER GAP
:STORE
;IF GOOD CONTINUE OPERATION

suB
CLR

R2,ERWORD
:ERROR WORD NO
$GDDAT
;GOOD DATA

MOV

#104006, ERHDGP; STORE *ERROR 6'*

DEC
BNE
JSR
MOV
CMP
BEQ

PC,WRITE
WWORD, (R1)
RSYNC, (R1)+
178

MoV

#5 ., ERWORD

MOV

#104006, HDESYN

MOV
208:
158:

MOV

042070

BR
168:

004737
013711
023721
(01413

138
PC,WRITE
WWORD, (R1)
(R1)+,GCRC
208

MOV

037030

BNE
JSR
MOV
CMP
BEQ

037030

MOV
MOV

001124

042072
17%:

MOV
RTS

GCRC, SGDDAT

;IF NOT GET READY FOR ERROR PRINT

:600D CRC

#104006,ERCRC * INSERT ERROR 6

:IF NOT GET READY FOR PRINT

-(R1) ,$BDDAT

:BAD DATA

178

:BRANCH OUT

¥
158

:ARE S5 HEADER GAP ZEROS DONE ?
:IF NOT CONTINUE

=(R1) ,$BDDAT
RSYNC ,SGDDAT

(SP)+,R1

;A-0K, EXIT

:IF NOT GET READY FOR ERROR PRINT

::POP STACK INTO R1
SEXIT

CZRJHEOQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 39

K13

SEQ@ 0166

DISK SIMULATION

bbb

bbbl

VIS W

s *SEARCH SECTOR

AR AR

AR A

AR d

A
it i

AR AR
i

ddddd

AR
i

ittt
ad

ii ittt

ittt id i

iiiddddds

ittt

iiidddd)

:*RO=RHMR ADDRESS

PNINININININININD
=
b e =D b s b D
NONWnSs WN=O VN NS WN = OV

:*R1=PASSED ARGUMENT (SECTOR SEARCHED FOR)
:*R2=CLOCK COUNT (PER BYTE)
:*R3=SECTOR COUNTER FROM R1
:*R5=BYTES PER WORD COUNT
;*BEFORE INDEX IS GIVEN TWO SECTOR CLOCKS ARE GIVEN TO RESET
s*SECTOR PULSE IN CASE IT IS SET.
s*AT THE BEGINNING OF EACH SECTOR, ONE SECTOR CLOCK HAS TO RISE
s*BEFORE MAINT. CLOCK, THEN EVERY EIGHT MAINT.CLOCKS, ONE SECTOR CLOCK
s*IS IDENTICAL WITH THE MAINT. CLOCK
s*THE SECTOR CLOCKS ARE NUMBERED AS FOLLOWS:
;*THE SECTOR CLOCK UNDER INDEX - 0
s*THE NEXT - 1

;*E?E NEXT = 2
¢

s*THEN THE LAST SECTOR CLOCK IN ONE SECTOR HAS NUMBER - 608
s*THE NEXT SECTOR WILL HAVE 608 SECTOR CLOCKS

:';zs gSXBNSECTOR THEN HAS ANOTHER 608 SECTOR CLOCKS
i

53 042754

000000

30 042756

012137

SECTR:

042754

SEARCH: MOV
MOV

0oO00 O00Oo
2vu~v|- b b

MoV

000001
000018

000014
000014

(R1)+,SECTR ;SAVE SECTOR SEARCHED FOR
RO,=(SP)
::PUSH RO ON STACK
R1.-(SP)
::PUSH R1 ON STACK

MoV

R2.=(SP)

MoV
MoV
MOV

RS, =(SP)
PUSH R5 ON STACK
RHMR, RO :NOW RO HAS MAINTENANCE REG. ADR.
SECTR,R3’
sLOAD SECTOR COUNTER

MoV
MOV

001260
042754

sSECTOR SEARCHED FOR

:;PUSH R2 ON STACK

R3,-(SP)
R&,~(SP)

:;PUSH R3 ON STACK
..PUSH Ré ON STACK

MoV

#DMD ,aR0

sSET DIAGNOSTIC MODE

BIC
BIS
BIC

#MSTCK.aRO
#MSTCK. aRO
#MSTCK R0

sCLEAR SECTOR CLOCK
sSET SECTOR CLOCK
sCLEAR SECTOR CLOCK

BIS

#MSTCK, 3RO

¢SET SECTOR CLOCK

:THE ABOVE TWO SECTOR CLOCKS ARE GIVEN FOR
:RESETING SECTOR PULSE
sIN CASE IT STARTS SET

#MINX!MSTCK,@RO :SET INDEX AND SECTOR CLOCK

BIC

#MINXiMSTCK.3RO :RESET INDEX AND SECTOR CLOCK

BEQ

TST

sTEST FOR SECTOR 0

:IF SECTOR 0 IS REQUIRED, EXIT ====== >

sNOW 304 WORDS WILL START (608 BYTES)
s*FOR FIRST BYTE MAINT. SECTOR CLOCK WILL GO HIGH, THEN MAINT. CLOCK WILL GO HIGH
;*BOTH WILL COME DOWN TOGETHER, THEN SEVEN MAINT. CLOCKS WILL BE GIVEN
;*FOR SECOND BYTE, AND ALL OTHER BYTES TILL NEXT SECTOR, SECTOR CLOCK

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 39-%

SEQ 0167

DISK SIMULATION

53
g’s’

;+WILL BE IDENTICAL WITH ONE MAINT. CLOCK
*ONE WORD ONLY

56 043046
§7 043052

o1z7og
012705

000010
000002

59 063062
60 043066
61 043070

052710
000402
052710

000002

000012

63 043100

052710

000002

18:

MOV
MOV

#8.,R2
#2.RS

2%:

BIS
BR
BIS

#MCLK, 3RO
*SET MAINT. CLOCK
33
BRANCH TO CLEAR SECTOR AND CLOCK
MMSTCK!MCLK,3R0 ;SET BOTH CLOCKS

8s:

BIS

58 043056 052710 000010

62 063074

64 063106

042710
005302

68 043114
69 043120
70 043122

012702
005305
001362

;}

000012

38:

042710 000002

65 043110

2(7» 043112

BIS
BIC

BIC
DEC

001372

000007

MOV
DEC
BNE

;’;

:BYTE COUNTER
:BYTES PER WORD

MMSTCK, ako

;SET SECTOR CLOCK

MMSTCK IMCLK.3R0 :CLEAR BOTH CLOCKS
#MCLK, 3RO

*SET MAINT. CLOCK

:BYTE COUNTER

#MCLK 3RO

*CLEAR MAINT.CLOCK

JCONTINUE IF BYTE NOT COMPLETE

#7.R2
RS
2

2SETUP FOR SECOND BYTE
:1S WORD COMPLETE?
*CONTINUE IF NOT COMPLETE

270 GIVE SECTOR CLOCK AND MAINT. CLOCK

:NOW 303 WORDS ARE LEFT AND ALL ARE IDENTICAL

76 043124

012701

000457

78 043134
79 043140
043144

012702
052710
042710

000007
000012
000012

77 043130

81 043150
82 043154
83 043160
gg 043162

012705

052710
042710
005302
001372

000002

48:

000002
000002

6$:

58:

MoV

#303. ,R1

MOV
BIS
BIC

#7 ,R2
:BIT COUNTER (MAINT.CLOCK COUNTER)
#MSTCK!'MCLK, 3RO SET SECTOR CLOCK AND MAINT. CLOCK
#MSTCK MCLK.@RO ;CLEAR CLOCKS

#MCLK 3RO
#MCLK, 3RO
R2
6$

:SET MAINT. CLOCK
sRESET MAINT. CLOCK
;1S BYTE COMPLETE ?
sCONTINUE IF NOT COMPLETE

MOV
BIS
BIC
DEC
BNE

sWORDS PER SECTOR COUNTER

#2 RS’

;BYTES PER WORD COUNTER

86 043164
g; 043166

005305
001362

DEC
BNE

R5
5%

:1S WORD COMPLETE ?
sCONTINUE IF NOT

89 043170
3(1) 043172

005301
001356

DEC
BNE

R1
4%

:1S SECTOR COMPLETE ?
:CONTINUE IF NOT

92 043174
93 043200
94 043204
gg 043206

052710
042710
005303
001317

BIS
8IC
DEC
BNE

#MSTCK,aR0
#MSTCK,aR0
R3
1$

sSET SECTOR CLOCK 1 MORE TIME (FOR 609)
sCLEAR SECTOR CLOCK
:1S REQUIRED NO OF SECTORS COMPLETE ?
sCONTINUE IF NOT

97 043210
0643210
043212
043214

012605
012604
012603

MOV
MoV
MOV

(SP)+,RS
(SP)
+ R4
(SP)+,R3

:;POP STACK INTO RS
::POP STACK INTO Ré
:;POP STACK INTO R3

043220

012601

MOV

(SP)+,R1

::POP STACK INTO R1

98 043224
99
100

000201

043216

043222

000010
000010

78:

012602

MOV

012600

MOV
RTS

oA RAA R AR

}35

103

(SP)+.R2

::POP STACK INTO R2

(SP)+,R0

::POP STACK INTO RO

RREAARAANN R RAENARARAAAARAAAAAAARAAAARAAACE
AR RRORRRY

tREAD ONE SECTOR OF DATA

RAAAN AR

RN AN AR

A AN

AR RARRAAARAARARAARARAARRRRAS

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 39-2

SEQ@ 0168

— b

040626
037620
037624

gacsssssses soss

(=lele]

NDN=VONN
NNE
N
——
CUIOWES
W
ONWNONN
NN
NN OO NWWNWN
WWO W =2 WNNOWWO
NN ~ NNV
NNW

RNO:
RCOM:

063226
043230

5302
001372

&3
oNOO

RUR

Eggg RER RRRRRRRRFRPRRRRR RRFRRRR R&

el
G
S
S
N
S
Y
R
W
Y
W
W
S Y WP W
S

ONOWVSWNN=SOVRONOWVSWN=O

B
ey

=0V

NONwWn

DISK SIMULATION

001424
177777
000402

034562

REDATA: MOV
MoV
MOV
TST
BEQ
MOV

18:

MOV

2$:

MOV

(R1)+,RNO
(R1)+_,RCOM
R1,-(SP)

TSECC
1$
#-1,TSECCG

#258. R2

#DISK,R3

sREADY TO READ CONTENTS

;1S 256 WORDS DONE?

3s:

037624

MOV

48:

RPVECT:

043350

-gss:
135606

TYPE
BR

LASCIZ

T1YPOC
RTI

sREAD

TSECC

:IF NOT BRANCH
;1S THIS AN ECC TEST

TSECCG

:NO MORE ECC BITS ARE TO BE GENERATED

034562

sSAVE NO. OF WORDS ONLY FOR INFORMATION
sEXTRA WORD ONLY FOR INFORMATION
::PUSH R1 ON_STACK
;1S THIS AN ECC TEST
sBRANCH IF NO
sTHESE BITS ARE TO GENERATE ECC
;256 WORDS PER SECTOR

(R3)+.WORD

PC,READ

001424

043342

:NO. OF WORDS READ
sEXTRA STORAGE

0
0

;BRANCH OUT IF YES

‘150. R2
(R3) +,WORD

;ONE DATA GAP, 14 TOLERANCE GAP
sREADY TO READ CONTENTS OF WORD

R2
3%

s COUNT
;BRANCH IF 14 NOT DONE

(SP)+,R1
R1

::POP STACK INTO R1
sRETURN

PC,READ ;READ

,65%

4
6’

s:TYPE ASCIZ STRING

.; e;GET OVER THE ASCIZ

/UNEXPECTED RP INTERRUPT @ PC = /

#RPVECT ,aRPVEC

:TYPE FROM PC

sRESTORE TRAP VECTOR
s CHANGE TO CONTINUE

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 40
SCOPE HANDLER ROUTINE
1

.SBTTL
SRR

N13

SEQ@ 0169

SCOPE HANDLER ROUTINE
AN R A AR AR AR

AR I AR

RRAAAAA AR AAR AR AR

tTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS.

;*AND LOAD THE TEST NUMBER(STSTNM)
:*AND LOAD THE ERROR FLAG (SERFLG)

IT WILL INCREMENT

INTO THE DISPLAY REG.(DISPLAY<7:0>)
INTO DISPLAY<15:08>

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

s eSW14=1

LOOP ON TEST

: *SW09=1

LOOP ON ERROR

*SW11=1

INHIBIT ITERATIONS

: *SW08=1

:*CALL

LOOP ON TEST IN SWR<7:0>
SCOPE

22
22
24
30

104407
005037
005037

037024
001424

CLR

043434

005037

034562

CLR

$SCOPE:

043440

005037

001426

043444
043452
043454

032777
001402
000137

040000

043460

000416

843462

013746

CLR

135466

044044

001102

001103
1727777

000004
043576
o0

gif

135406

;;LOOP ON PRESENT TEST?

os.

SOVER

::JUMP OVER SCOPE ROUTINE

BEQ

MOV

(46430

@WERRVEC,=(SP)

#5S @#ERRVEC

a#177060

(MP

(SP)+,(SP)+

MOV
BR
MOV

;N0 IF SW14=0

CODE FOR THE XOR TESTERWANAN

(SP)+.@#ERRVEC
$SVLAD
(SP)+.a#ERRVEC

BIT

ggxroa.asun

BEQ
CMPB
BEG

ISTB
BEQ
CMP

BEQ

MOV

000004

177777
043612

:DRIVE TIMING ERROR TEST

::IF RUNNING ON THE 'XOR'' TESTER CHANGE

:THIS INSTRUCTION TO A ‘NOP'
(NOP=240)
::SAVE THE CONTENTS OF THE ERROR VECTOR

:iSET FOR TIMEOUT

TIME OUT ON XOR?

;:RESTORE THE ERROR VECTOR
:GO_TO THE NEXT TEST

::CLEAR THE STACK AFTER A TIME OUT
..nesroas THE ERROR VECTOR

LOOP ON THE PRESENT TEST

6$: ;MMMRNEND OF CODE FOR THE XOR iesrenncp

046430

:1F =177777 GENERATE ECC
:1F =0 DO NOT GENERATE ECC

#BIT14,@SWR

28:

177766

:EVEN IN AN ECC TEST EVERY CLOCK
;IS NOT_TO_GENERATE ECC

BIT

58:

135414

:CLEAR FLAG FOR ECC TEST

:WHEN =177777 1T IS AN ECC_TEST
:WHEN =0 IT IS NOT AN ECC TEST

1$:

000004

000400

TSECCG

FOR CHANGE IN SOF T=SWR

TESDTE

000004

TSECC

:;TEST

:CLEAR FLAG FOR HEADER ERROR COMMANDS

CLR

:AAAMNSTART OF

000004
043506

NOSYNC

$XTSTR: BR
177060

RRRRRRRRRRRRRRRRRR
vivivavivivivivivivivivivivivivive
~
BB RN R R o ro

CKSWR

: : SCOPE=10T

SWR<7:0>

..HAS AN ERROR OCCURRED?
:BR IF NO
..ses IF TIMEOUT WAS PREVIOUSLY RECORDED

ERRVEC,=(SP)

..SAVE CONTENTS OF ERROR VECTOR

7766 CPSAVE

;:MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

200%$

;0008LERRVEC

Mov

0-1 CPSAVE

MOV

‘BR IF
..on THE RIGHT TEST?
*BR IF YES

SERFLG
3s
#-1,CPSAVE

MOV

ggv
20008:

aSWR,STSTNM
SOVER

: :LOOP ozospec. TEST?

#20018, (SP)

KICK AROUND ROUTINE IF SO

;;SETUP 'TRAP' RETURN ADDRESS

;:SET CPU ERROR REGISTER TIMEOUT INDICATOR

*:SETUP RETURN ADDRESS

CZRJHEO RP04/5/6 DSKLS

2001$:
046430

000001

046430

000001
001140
000000
000176
135252
001000

177766

2002$:

001103

001000

135214

001110

001106

001103
001212

7$:

3s:

001104

000001

#-1,CPSAVE

(SP)+,a(SP)
(SP)+,SWR

::SEE IF C:SQ;E HAS CPU ERR REG TIMEOUT INDICATION
2 :BRANCH 1|
ssSEE IF THE POWER MONITOR BIT IS ON
s ;BRANCH TO CONTINUE ROUTINE IF CLEAR
;2CLEAR THE BIT FOUND TO BE SET
:sSAVE SWR ADDRESS
ssSAVE SWR VALUE
:sGET SOFTWARE SWR ADDRESS
;sGET CURRENT SWR VALUE
ssDON'T ALLOW LOOP ON ERROR ON THIS ERROR
ssCALL SPECIAL POWER FAIL BIT ERROR CALL
ssRESTORE SWR TO ORIGINAL VALUE
;sRESTORE SWR ADDRESS

ggRHAX.SERFLG

..HAX ERRORS FOR THIS TEST OCCURRED?

2%1709.350R

..LOOP ON ERROR?

SLPERR,SLPADR
$OVER
SERFLG
STIMES
18
#BIT11,3SWR
1$
$SPASS
1$
SICNT
STIMES,SICNT
SOVER

..SET LOOP ADDRESS TO LAST SCOPE

2003$

1g1769 aSWR

4S:

135162

;sRESTORE CONTENTS OF ERROR VECTOR

#176,SWR
(SP) @SWR

2003s:

1$:

$SVLAD:

SEQ 0170

(SP)+ ,ERRVEC

a(sfi> -(SP)

135244

001115

RTI
Mov

#81700, CPSAVE
2003$
aaxroo 177766

001140

000€00
001140

—
—d b

b
b
b
—

N =N NN
- NO N
~ NNW
~ NNWN

177777

8838388%
'—\;-a—a-.a
§-§
SS37338R

N
N
~
W
~

000004

33288s8 223R200002

—_

NEREERIGE3RESRERER
T

RRRRYIXRLZRRRRRVVSY
& SRS

SCOPE HANDLER ROUTINE

PT2 MACRO VO04.00 17-NOV-81 16:37:12 PAGE 40-? 14

#1,SI1CNT

SMXCNT,STIMES
STSTNM
(SP) ,SLPADR
(SP) ,SLPERR
SESCAPE

#1,SERMAX

::BR IF NO
:BR_IF NO

::ZERO THE ERROR FLAG
ssCLEAR THE NUMBER OF ITERATIONS TO MAKE
scESCAPE TO THE NEXT TEST
gTERATIONS
..INHIBIT
IF YE

..IF FIRST PASS OF PROGRAM

INHIBIT ITERATIONS
..INCREHENT ITERATION COUNT

HECK THE NUMBER OF ITERATIONS MADE
::BR IF MORE ITERATION REQUIRED

..REINITIALIZE THE ITERATION COUNTER
::SET NUMBER OF ITERATIONS TO DO
::COUNT TEST NUMBERS
::SAVE SCOPE LOOP ADDRESS

::SAVE ERROR LOOP ADDRESS

s;CLEAR THE ESCAPE FROM ERROR ADDRESS

::ONLY ALLOW ONE(1) ERROR ON NEXT TEST
S$TSTNM,aDI1SPLAY ..DISPLAY TEST NUMBER
SLPADR, (SP)
+ :FUDGERETURN ADDRESS
s sFIXES

s sMAX. NUMBER OF ITERATIONS

_“__,h_j

CZRJHEDQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 41

C 1%

SEQ@ 0171

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

.SBTTL

CONVERT BIN'RY TO DECIMAL AND TYPE ROUTINE

SRR RARAAARAANAAAAAAAC
TR NAAAANAANAAANNAAANAAAARAAANAAAOR AR NS

'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

;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF
T HE NUMBER. LEADING ZEROS WILL ALWAYS BE

:*REPLACED WITH SPACES.
s*CALL:
MoV
- (SP)
NUM,
M
. %

044062
044062
044064
044066
044070
044072
064076
044100
044104
044106
044110
044116
044120
0447126
044130
044132

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000
012703
112723
005002
016001

$TYPDS:

ONNO WRINWWONN

snNOO3SRS
gsgha

OO
= = b d b
=2\
—
8832 ONN

RO,=(SP)

;:PUT_THE BINARY NUMBER ON THE STACK
::60 TO THE ROUTINE

::PUSH RO ON STACK
s :PUSH Rl ON STACK
..PUSH

RS =(SP)
026200 -(SP)

020200
000020
000055

20(SP)

000001

044276
000040

1$:

044266

3s:

5$:
000001
000060
000040

.RS

RS
#'=,1(SP)
R0
#$DBLK,R3

'5L(R$)*

4S:

;
4

TYPDS

177777

6$:

$DTBL (RO) ,R1
R1.R5

4%
R2

R1.R5
R2
5%
(SP)
78
(SP)

6%
1(sp) -1(R3)

né

ON STACK
ON STACK

..PUSH R5 ON STACK

..SET BLANK SWITCH AND SIGN
NUMBER

..ZERO THE _CONSTANTS INDEX
SETUP THE OUTPUT POINTER
::SET THE FIRST CHARACTER TO A BLANK
s;CLEAR THE BCD NUMBER
s:GET THE CONSTANT
..FORH THIS BCD DIGIT
:BR _IF DONE

::INCREASE THE BCD DIGIT BY 1
s:ADD BACK THE CONSTANT
:sCHECK IF BCD 0IGIT=0
ALL THROUGH IF 0

..STILL DOING LEADING 0°S?
YES
s:BR IF

;:MSD?

s:BR IF NO
22YES=-SET THE SIGN

;sMAKE THE BCD DIGIT ASCII

..HAKE IT A SPACE IF NOT ALREADY A DIGIT

sPUT T THIS CHARACTER | IN THE OUTPUT BUFFER

::JUST INCREMENT
ING

000010

RS.R2

177777

sPUSH

177776

9s:

6$
(SP)+
9
=1(SP) ,=2(R3)
(R3)
(SP)+ RS

(SP)+.R3
(SP)+.R2
(SP)+,‘R1

ssCHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT
::60 TO EXI;D
:
SCII
..gasTHE LSD THE FIRST NON-ZERO?

..VES-SET THE SIGN FOR TYPING
s:SET THE TERMINATOR
::POP STACK INTO RS
::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.0C 17-NOV-81 16:37:12 PAGE 41~?

SEQ 0172

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

044246
044250

044256

012600
104401

016666

8225242 8(1)(2)833

0464266
044270
0464272
044274

044276

023420
001750
000144
000012

044276

000002

v
TYPE

000004

MOV
$DTBL:

$DBLK:

:?Y

10000.
1000.
100
10.

.BLKW

(SP)+,R0
$DBLK

:POP STACK_INTO RO
*NOW TYPE THE NUMBER

it s

2(SP),4(SP)

*:ADJUST THE STACK

RETURN TO V)USER

E 14

SEQ 0173

TYPE
R

.SBTTL

TYPE ROUTINE

JRRRRRRAAAAAARARAARACACCCAAARRAAAAAAAAARAAAOAAAAAAAAAAAOCAOAANES

'ROUYINE TO _TYPE ASCIZ HESSAGE MESSAGE MUST TERMINATE WITH A 0 BYTE.
'THE ROUTINE WILL INSERT
A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

s*NOTE1:

; *NOTE2:
'NOTE
CLL:

'1) USING A TRAP INSTRUCTION

tOR

001157

$TYPE:

T1STB
BPL
HALT
BR

S$TPFLG
1$

..ég }HERE A TERMINAL?

s LEAVE

MOV

82(SP) ,RO

>3(< 1

~§§§§a\négv-nu

4S:

000001

—

Ues ~

—

:3&"9

001154

013746

&H 2~ H
WW
Ww
ONo N

-asrdig 8 N S N

000011

33 33333 R R
£8 NEERE 3 b3

000002

60$:
3s:

044406

2$:

000200

MOV

RC,=(SP)

MOvVB
BNE

(RO)+,=(SP)
43

TST

044574
5%:
6$:

78:

044456
044574

(SP)+

MOV
ag?

(SP)+,RO
#2,(SP)

CMPB

#HT, (SP)

..HALT HERE IF NO TERMINAL

RO
: :SAVE
..GET ADDRESS OF ASCIZ STRING
:sPUSH CHARACTER TO BE TYPED ONTO STACK
s:BR IF IT ISN'T THE TERMINATOR
;c1F _TERMINATOR POP IT OFF THE STACK
: RESTORE RO
:sADJUST RETURN PC
; sRETURN
s
sRET
;:BRANCH IF <HT>

BEQ
CMP8
BNE

$
, (SP)
#CRLF
(SP)+

::POP_ <CR><LF> EQUIV
s:TYPE A CR AND LF

CLRB

$CHARCNT

JSR
CMPB
BNE
MOV

PC,STYPEC
SFILLC,(SP)+
2%
$NULL ,~(SP)

;2CLEAR CHARACTER COUNT
3GET NEXT CHARACTER
..60 TYPE THIS CHARACTER
::1S IT TIME FOR FILLER CHARS.?

DECB
BLT
JSR
DECB

1(SP)
63
PC.STYPEC
S$CHARCNT

TST
TYPE
$SCRLF

044456
001156

;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE
ME SADR

1$:

000002

.MESADR

o
o
;t

105737
00002

TYPE

B8R

:2BRANCH IF NOT <CRLF>

::1F _NO GO GE NEXT CHAR .
::GET # OF FILLER CHARS. NEEDED

: SAND THE NULL CHAR.

A NULL NEED TO BE TYPED?
::DOES
..Bs {;PQOR
GO POP THE NULL OFF OF STACK
G
NULL
::D0 NOT COUNT AS A COUNT
: :L00P

;HORIZONTAL TAB PROCESSOR
044456
000007

8s:
044574

MOVB
JSR
BITB

BNE
ST
BR

(SP)

PC $TYPEC
#7.SCHARCNT

9s’
(SP)+
28

..REPLACE TAB WITH SPACE
..TYPE SPACE
BRANC? IF NOT AT
AB STOP
:POP SPACE OFF STACK

..GET NEXT CHARACTER

CZRJHEO RP06/516 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 42

SEQ 0174

d NN
oo

b d b S
OO

TYPE ROU

STYPEC:

134462

SSTKS
108
as$TKB,=(SP)

134456
177600
000023
134436

::BR

aSTKB, (SP)

108:

134414

134406
000002

044574

044576

1028

000002

1$:

sGET CHAR

IF NOT

#SXON, (SP)

1018

::GET CHAR
::STRIP IT
ssWAS IT XON?
s:BR IF NOT

(SP)+

ssFIX STACK

asTPS
108
2(SP) ,asTPB
:gR.Z(SP)

ssWAIT UNTIL PRINTER IS READY

SCHARCNT
STYPEX

..E;f--CLEAR CHARACTER COUNT

#177600, (SP)
1028:

000012

EXTRSNEOUS BITS
..STgIz
:3WAIT FOR CHAR

134432
177600
000021

000002
000015

nmbo (sp)
#SXOFF, (SP)
101$:

..CHAR IN KVBD BUFFER?

CMPB

INCB
$CHARCNT
: . WORD
S$TYPEX: RTS

#LF,2(SP)
STYPEX
(PC)+

:sLOAD CHAR TO BE TYPED INTO DATA REG.
..IS CHARACTER A CARRIAGE RETURN?
sBRANCH IF NO

::1S CHARACTER A LINE FEED?
s ;BRANCH_IF YES
s sCOUNT THE CHARACTER
s sCHARACTER COUNT STORAGE

F 14

CZRJHED
RP2215/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 42-1

G 14

SEQ@ 0175

TTY INPUT ROUTINE

.SBTTL

TTY INPUT ROUTINE

SHRANRRAAAARAAAAAAAAAARAN
RN AAAAANAAANAAANAAARAAAAI AR AR
OS

044600
044602
044604
044606

‘ENABL

000000
000000
000000

LSB

$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB

0464617

0
0
0
9.

::NUMBER OF ITEMS IN QUEUE
s INPUT POINTER
::OUTPUT POINTER
::TTY KEYBOARD QUEUE

s*TK INITIALIZE ROUTINE

s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
s*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

PCALL:
T

‘e

044620
044626
044632
044640
044646
044654
044660
044666

005037
012737
013737
012737
012737
005777
012777
000207

044602
044604
000060
000062

RETURN

$TKINT: CLR

Mov
MoV

MOV
MoV
TST

134256

MOV
RTS

PC.STKINT

STKCNT
sCLEAR COUNT OF ITEMS IN OUEUE
#STKQSRT,STKQIN ..HOVE THE STARTING ADDRESS OF THE
$TKQIN,$TKQOUT
::QUEUE INTO THE INPUT & OUTPUT POINTERS.

#STKSRV, a4 TKVEC ..INIIIALIZE THE KEYBOARD VECTOR
0200 TKVEC+2 ..'ER' LEVEL
4
0100.3STKS

:CLEAR DONE FLAG

::ENABLE TTY KEYBOARD INTERRUPT
s;RETURN TO CALLER

;*TK SERVICE ROUTINE
:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:*IT IN THE QUEUE.

’

:*IF THE CHARACTER IS A "'CONTROL-C'’ (C) STKINT IS CALLED AND
:*UPON RETURN EXIT IS MADE TO THE "'CONTROL=C'* RESTART ADDRESS (OPERSEL)

$TKSRV: MOVB
BIC
CMP
-

000003

045671
044620

::PICKUP THE CHARACTER
2:STRIP THE JUNK
:1S IT A RANDOM XON?

(SP)+

*:CLEAN RANDOM XON OFF STACK
: SRETURN

CMP
BNE

(SP) ,#3
18

::1S IT A CONTROL C?
*:BRANCH IF NO

JSR
ST
JMP
CMP

PC.STKINT
(SP)+
OPERSE
(SP) . #

SSINIT THE KEYBOARD
:iCLEAN UP STACK
:CONTROL C RESTART
..1s IT A CONTROL G?

ST
RTI

TYPE

031004
000007

18:

000176

001140

000011

044600

001215

@$TKB,=-SP)
#4C177,(SP)
(SP),#$XON

BNE

g
a8

134252
177600
000021

BNE
CMP
BEQ

308

,SCNTLC

::BRANCH IF NO

S:TYPE A CONTROL=C

(“C)

*BRANCH IF NO

#SWREG, SWR

::1S SOFT=-SWR SELECTED?

CHP

gg..srxcur

TYPE

.SBELL

::1S THE QUEVE FULL?
sBRANCH IF NO

BNE

1360 TO SWR CHANGE

::RING THE TTY BELL

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 43

H 14

CZRJHED RP04/S5/6 DSKLS PT2 MACRC V04.00 17-NOV-81 16:37:12 PAGE 43-1

SEQ 0176

TTY INPUT ROUTINE

044770

005726

044772 000451
044776 021627 000023

38:

(SP)+

;;CLEAN CHARACTER OFF OF STACK

BNE
CLR
ST

328
asTks
(SP)+

*BRANCH 'F NO
..DISABLE rrv KEYBOARD INTERRUPTS
*CLEAN CHAR OFF STACK

BPL
MOVB

31$
@$TKB,-(SP)

B8R
CMP

045000
045002
045006

0010;1
005077
005759

045014
045016

100375
117746

045032

001366

045042

000002

045050
045054
045056

021627
002405
021627

000140
000175

CMP
BLT
CMP

045064

042716

000040

BIC

045074
045100

005237
023727

044602
0464602

044617

045110
045116

012737
000002

044606

044602

045010 105777

134136

134130
134124

045022 042716 177600
045026 022627 000021
045034 012777 000100
045044 005237 044600
045062

003002

31$:

045070 112677 177506
045106 001003

328:

48:

..uaxr FOR A CHAR

:LOOP UNTIL ITS THERE
GET THE CHARACTER

#°C17%,(SP)
(SP)+,#21

MOV

#100,387TKS

..REENABLE TTY KEYBOARD INTERRUPTS

INC

STKCNT

SCOUNT THIS CHARACTER

BGT

*:BRANCH IF YES

RTI

MOVB
INC
CMP

BNE
58:

@$TKS

SEXIT
..1s IT A CONTROL-S’

BIC
CMP
BNE

134102
:

TSTB

5%
(SP) ,.#23

MOV
RTI

31s

(SP) ,#140
43
(SP).#175
#40, (SP)

(sp5+.as1xoxn

..naxe IT 7-BIT ASCII
::1S IT A CONTROL-Q?
*BRANCH IF NO
*RETURN

:3IS 1T UPPER CASE?
::BRANCH IF YES
*3IS IT A SPECIAL CHAR?
:iMAKE 1T UPPER CASE

*AND PUT IT IN QUEUE

$TKQIN
::UPDATE THE POINTER
$TKQIN, #STKQEND ..so OFF THE END?

5S¢

*BRANCH IF NO

#STKQSRT,$TKQIN ::RESET THE POINTER
+;RETURN

4 'tttttttttttttttttttttt"'tttttttt..tttttttttttt'ttttt'ttttttttt

**SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
**ROUTINE IS ENTERED

045120

022737

000176

045130
045134
045136

105777
100121
117746

134010

045126

001124

045142 042716
045146 02162/
045152

001300

001140

FROM THE TRAP HANDLER, AND WILL

+«SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
*«CALL WHEN OPERATING IN TTY INTERRUPT MODE .

$CKSWR: CMP

#SWREG, SWR

TSTB
BPL
MOVB

asrxs
158
@$TKB,-(SP)

BNE

134004

177600
000007

BIC
CMP

;1S THE SOFT=-SWR SELECTED

158

..exxr IF NOT

c~c177 (SP)
(SP) .4

SIMAKE IT 7-BIT ASCII
:31S IT A CONTROL=G?

:IS A CHAR WAITING?
..1r NOT, EXIT
1IYES

s:if Ng;ITPUI IT IN THE TTY QUEUE

ttttttttttttt.ttttttttt't'tttt.tttttttttt.tl.ttttttt.tt'ttttttt

045154

045162
045164
045166

045172
045176

045204
045210

045214

045220

123727

001674
005726
004737

005077
112737
104401
104401

013746
104402

001134

000001

044620

133746
000001
045703
045710

000176

001135

%CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
*«ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
; *CONTROL-G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.

&$:

(MPB

BEQ
ST
JSR

CLR
MOVE
TYPE
$GTSWR: TYPE

MOV

TYPOC

SAUTOB,#1

:ARE WE RUNNING IN AUTO-MODE?

asik
#1 sxutAe

DISABLE TTY KEYBOARD INTERRUPTS
*3SET INTERRUPT MODE INDICATOR

2
(SP)+
PC. srxxur

SCNTLG
.SMSWR

SWREG,=(SP)

: ;BRANCH IF YES
:CLEAR CONTROL=G OFF STACK
..FLUSH THE TTY INPUT QUEUE

:;ECHO THE CONTROL-G (*G)
*TYPE CURRENT CONTENTS

*:SAVE SWREG FOR TYPEOUT

$:G0 TYPE=-=OCTAL ASCII(ALL DIGITS)

/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 43-5 14

SEQ@ 0177

JHEO RP04/S
INPUT ROUTINE

045222

104401

045230
045232

005046
105777

133706

117746

133702

oaszgg 005046

045236
045240

045244

100375

042716

045721

198:
78:

045256

001015
104401

045671

123727

001135

045262 062709 000006
045266

045274 001003
045276 012777 000100
045306 000137 031004
045310 021627 000025
045314 001005
045316
045322

045326

104401
062706

000737

045676
000006

20$:

045330

021627

000015

108:

045336
045342

005766
001403

000004

062706
104401

000006
001223

045334

045344

045352
045356

045362

001022

016677 000002

133566

123727

000001

001135

045370 001003
045372 012777 000100

045400
045402

000002
004737

045420
045422
o:.sagg
045432
045434
045436
045640
045442
o:.su.s

003015
042726
005766
001403
006316
006316
006316
005266
056616

045456

104401

045406
045412
0454146

045452

045460

044456

021627 000060
002420
021627 000067

000667
000720

133544

11$:
148:

15$:
168:

000060
000002

000002
177776

178:

001222

188:

AAR R

*:CLEAR COUNTER

:3IF NOT TRY AGAIN

@$TKB,-(SP)

#4C177,(SP)

(SP) 43

::PICK UP CHAR

SIMAKE IT 7-BIT ASCII

::1S IT A CONTROL=C?

BNE

ADD

#6,SP

::CLEAN UP STACK

BNE
MOV
JMP

8s
#100,387KS
OPERSEL

CMP
BNE

(SP) ,#25
108

:;1S IT A CONTROL=U?
*:BRANCH IF NOT

19§

S:LET'S TRY IT AGAIN

(SP) M5

::18 IT A <CR>?

TST
BEQ

4&(SP)
118

2:YES, IS IT THE FIRST CHAR?
::BRANCH IF YES

ADD
TYPE

#6,SP
$CRLF

::CLEAR UP STACK
$3ECHO <CR> AND <LF>

BNE
MOV

158
#100,387KS

::BRANCH IF NOT
*:RE-ENABLE TTY KBD INTERRUPTS

,SCNTLC

CMPB

98:

::THE NEW SWR
::CHAR THERE?

TYPE

8s:

-(SP)
a$TKS

BPL

CLR
TSTB

CMP

133640

::PROMPT FOR NEW SWR

<(SP)

BIC

000001

,SMNEY

CLR

MOVB

177600

045250 021627 000003
045254

TYPE

SINTAG.M

TYPE
ADD

,SCNTLU
86, 5P

CMP

BNE

168

MOV

2(SP) ,aswR

(MP8

$INTAG.M

RTI
JSR

CH IF NOT

*:YES, ECHO CONTROL=C (*C)
::REENABLE TTY KEYBOARD INTERRUPTS? .

::BRANCH IF NO
::ALLOW TTY KEYBOARD INTERRUPTS
: :CONTROL=C RESTART

::YES, ECHO CONTROL=U (*U)
::IGNORE PREVIOUS INPUT

::BRANCH IF NO

::SAVE NEW SWR

*:RE-ENABLE TTY KBD INTERRUPTS?

PC.STYPEC

:SRETURN
+:ECHO CHAR

BGT
BIC
ST
BEQ
ASL
ASL
ASL
INC
BIS

188
#60, (SP)+
2(SP)
178
(SP)
(SP)
(SP)
2(sP)
=2(SP),(SP) -

$:BRANCH IF YES
::STRIP-OFF ASCII
::1S THIS THE FIRST CHAR
$:BRANCH IF YES
SiNO, SHIFT PRESENT
s
CHAR OVER TO MAKE
*:
ROOM FOR NEW ONE.
::KEEP COUNT OF CHAR
::SET IN NEW CHAR

TYPE

$QUES

CMP
BLT
CMP

(SP) ,#60
188
(SP) ,#67

f"sa

AR AL AR

$:CHAR < 0?
: SBRANCH ;r YES
S:CHAR > 7

*:GET THE NEXT ONE

208

+:SIMULATE CONTROL-U

SITYPE 2<CRO<LF>

‘

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 43-§
TTY

SEQ 0178

INPUT ROUTINE

.'THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
*CALL:
%
RDCHR
ssGET A CHARACTER FROM THE QUEUE
* %
RETURN HERE
:sCHARACTER IS ON THE STACK

s;WITH PARITY BIT STRIPPED OFF

8322

000004
000004

005737

044600

00100
012737
000002

000002

$SRDCHR: MoV

045506

VIO

2222222222 222R
R

64%:

000004

044606

044604

23:

..ngupgouu THE PC AND

4(SP)

I.cer READY FOR A CHARACTER

4(SP§,2(SP)

CLR
MOV

-(SP)
#648,=(SP)

TST

STKCNT
18

ssWAIT ON A CHARACTER

Move
INC

BSTKOOUT 4(SP)
$TKQOU

..GET ONE _CHARACTER
sUPDATE THE POINTER

MoV

#$TKQSRT,$TKQOUT ..RESET THE POINTER

; ;BRANCH IF NO

CMP

044617

(SP) ,~(SP)

MOV

RTI

CNT

*PUT NEW PS ON STACK

*SPUT NEW PC ON STACK
::POP NEW PC AND PS

sDECREMENT THE COUNTER

STKOOUT #STKQEND ..DID IT GO OFF OF THE END?
; :RETURN

SRRAAAAAAAAAAAAAAAAA
AR AR RAAAAAAAARAAAAAAAAAAAAARAAAAA AR
Y

*7215 ROUTINE WILL INPUT A STRING FROM THE TTY
t
;t

RDLIN
RETURN HERE

1$:

28:

MOV
CMP
MOVE

CMPB

000177

108:

001222

4S:

TYPE

045656
045656
000015

3s:

MOVB

177777
001224
000004
045660

TYPE

000002
000004
9%:

103
125
107

(MPB

BNE
CLRB

—_—

136
136
136

SRDLIN: MoV

045660
045671

010346
012703
022703
101405
104410
112613
122713
001003
104401
000763
111337
104401
122723
001356
105063
104401
012603
011646
016666
012766
000002
000
000

[=l=le)

045552
045556
045560
045564
045566
045570
045572
045576
045600
045604
045606
045612
045616
045622
045626
045630
045634
045636
045640
045646
045654
045656
045657
045660
045671
045676
045703

STTYIN:
$CNTLC:
$CNTLU:
$CNTLG:

s:INPUT A STRING FROM THE TTY
s ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
s s TERMINATCR WILL BE A BYTE OF ALL 0'S

R3.=(SP)
#STTYIN,R3
2377Y1N09..R3

::SAVE R3
:.GET ADDRESS
..BUFFER FULL?

(SP)+,(R3)

::G0 READ ONE CHARACTER FROM THE TTY
..GET CHARACTER

#177,(R3)

:ioues

(R3),9%

iig.(a3)0
2
=1(R3)
.SLF

MOV
MoV
MoV
MOV

(SP)+,R3
(SP) ,=(SP)
4(SPS ,2(SP)
#STTYIN,4(SP)

BYTE
BYTE
.BLKB_
LASCIZ
LASCIZ
ASCIZ

0
0
9.
/72C/<15><12>
/‘UI<1S><1%>
/7%6/<15><12>

:BR IF YES

S IT A RUBOUT

..SKIP IF NOT
JTYPE A '?°

..CLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER

..CHECK FOR RETURN

OP IF NOT RETURN

..CLEAR RETURN (THE 15)

..TYPE A LINE FEED
: ;RESTORE R3

..ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT
i
RETURN

..STORAGE FOR ASCII CHAR. TO TYPE
ERMINATOR

;;RESERVE 9. BYTES FOR TTY INPUT
:s CONT

: s CONTROL " >
:;CONTROL ‘6"’

K 14
CZRJHEQ RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 63-4
TTY INPUT ROUTINE

045710
045721

01 5
040

012
040

123
716

SMSWR:
SMNEW:

ASCI 7
.ASCI I

155¢ 2>/SWR =
<15«
/ NEW s/

SEQ@ 0179

CZRJHEO RPQ4/5/6 DSKLS PT2 HACR? V04.00 17-NOV-81 16:37:12 PAGE 44

L 14

SEQ@ 0130

READ AN OCTAL NUMBER FROM THE TTY

.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

SRR AA A AR AR AR AR AAA AR AT AR AA

AA AR

AAA

AR RIS

'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

:*0CTAL DIGITS. IF AN ILLEGAL CHARACTER IS READA '"?"' WILL BE TYPED

:*FOLLOWED BY
A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMB R MUST
s*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.
s«CALL:
i
RDOCT
s sREAD AN OCTAL NUMBER

6
6662

776

826020

000004

000002

28:
000060

1227;6

000067

042716
7
0166

237

177770

9000012
046070

3s:

A ¥

046060
046062
046066

000000
104401

001222

58:
$HIOCT:

::LOW ORDER BITS ARE ON TOP OF THE STACK
;sHIGH ORDER BITS ARE IN SHIOCT

(SP) ,=(SP)

..PROVIDE SPACE FOR THE

MOV

R1.=(SP)

RDLIN
MOV
MOV
CLR

R2.=(SP)

..PUSH RO ON STACK
::PUSH R1 ON STACK
..Pusu R2 ON STACK

(SP)+,R0
RO,5$
R1

::GET ADDRESS OF 1ST CHARACTER
ssAND SAVE IT
s sCLEAR DATA WORD

MOV
MOV

046060

RETURN HERE

$RDOCT: MOV

18:

RRRRRRRIXRRRRIRRRR]R
O‘O‘O\h\fl\h\fl\fl\fl\fl\s\fi\h\fl\fl\fl\flm

MOV

CLR
MOVB
BEQ
CMPB
BGT
CMPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR
ST
MOV
MOV
MOV
MOV
g?g

4(SPJ ,2(SP)
RO, =(SP)

R2
(RO)+,=(SP)
33
#'0,(SP)
4$
#'7.(SP)

4
R1
R2
R1
R2
R1
R2

::PICKUP THIS CHARACTER
::1F ZERO GET OUT
:sMAKE SURE THIS CHARACTER
::1S AN OCTAL DIGIT

ii%2
sivk

;%8
s:STRIP THE ASCII JUNK
..ADD IN THIS DIGIT

(SP)+
R1,12(SP)
R2,$HIOCT
(SP)+,R2
(SP) +.R1
(SP)+.RO

: :CLEAN _TERMINATOR FROM STACK
:sSAVE THE RESULT

(SP)+,R1
2s

(SP)+
(RO)

.WORD

BR
.WORD

TYPE

JREAD AN ASCIZ LINE

#4C7,(SP)

TST
(.RB
TYPE

s INPUT NUMBER

$QUES

:LOOP

::POP STACK INTO R2
::POP STACK INTO R1
..POP STACK INTO RO
sRETURN

..CLEAN PARTIAL FROM STACK
sSET A TERMINATOR

:3TYPE UP THRU THE BAD CHAR.
'

l.’l.

..CR..

:TRY AGAIN

‘

OIFDO

..HIGH ORDER BITS GO HERE

——

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 45

Mm%

SEQ 0181

ERROR HANDLER ROUTINE

.SBTTL

ERROR HANDLER ROUTINE

AR AR

RN RN

RN AR

AR R

AR AR AR RS

s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
s*AND GO TO SERRTYP ON ERROR
*SW15=1
b

HALT ON ERROR

t«SW10=1
.-gxgz=1

BELL ON ERROR
LOOP ON ERROR

tesi3=1

xuuxext ERROR TYPEOUTS

*
105037
104407
012737

046432

105237

ERROR

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

177777

$ERROR: CLRB
CKSWR
—
MOV

#-1,ERFLGS

;;CLEAR THE ITEM BYTE SAVE LOCATION
*TEST FOR CHANGE IN SOFT=-SWR
*SET ERROR FLAG

001103

78:

SERFLG

;:SET THE ERROR FLAG

INCB
BEQ

MOV

001102
002000

001000

132750

000177

001114

177777

000004
046242
177766

000004
046430

77777

046430

046256
000004
177777

046430

000001

046430

000001
001114
000177

177766
046432
001114

046432
020000

LSBELL

#2 ,SERRPC
@SERRPC,SITEMB
#BIT09,aSWR
10048
1552£8175H8
IBSAVE

::BELL ON ERROR?
:NO - SKIP

..RING BELL

sCOUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION

;:STRIP AND SAVE THE ERROR ITEM CODE
..SEE IF LOOP ON ERROR IS SET

sBRANCH AROUND ROUTINE IF SO
..SEE IF THIS IS THE POWER FAIL CALL

:BRANCH AROUND ROUTINE IF IT IS
..SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE

BNE
CMP

1003$
#-1,CPSAVE

sBRANCH IF SO
..SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

MOV

ERRVEC ,=(SP)

::SAVE CONTENTS OF ERROR VECTOR

}55736.CPSAVE

;;MOVE CPU ERRCR REGISTER TO CPSAVE FCR TEST

BEQ

MoV

10048

#1000$.ERRVEC

sBRANCH IF SO

::SETUP 'TRAP' RETURN ADDRESS

10008:

Mov
B8R
MOV

#-1,CPSAVE

::SET CPU ERROR REGISTER TIMEOUT INDICATOR

10018:

MOV

(SP)+,ERRVEC

;;RESTORE CONTENTS OF ERROR VECTOR

10028:

CMP
BEQ
BIT
BEQ
BIC

#-1,CPSAVE
1004$
#81T00, CPSAVE

:;SEE IF CPSAVF WAS CPU ERR REG TIMEOUT INDICATION
*BRANCH IF SO
..sss IF pouen MONITOR BIT IS SET IN CPU ERR REG

MOVB

#177.8iTEMB

1004$

::BRANCH OVER IBSAVE CLEARING

CLRB

IBSAVE

::CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

#B1T13,3SWR

::SKIP TYPEOUT IF SET

ggy

MOVB

235
132600

SERTTL
(SP) ,$ERRPC

BEQ
TSTB

::DON'T LET THE FLAG GO TO ZERO

$TSTNM,aDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG

INC
MOV

BNE
CMPB

046430

#8IT10,aSWR
1$

sus
MOvB
BIT

046432

IBSAVE

BIT
BEQ

TYPE

18:

046326
046332
046332

©ORIT

#0018, (SP)

1004$
#81T700,177766
SITEMB.IBSAVE

*:SETUP RETURN ADDRESS

*BRANCH IF OK
..CLEAR THE BIT FOUND SET

::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL

::SET SITEMB TO SPECIAL POWER FAIL POINTER

DDDDDDDDDDDDDRDDDDDDDDDDDDDDDCDDD
> > EEEEEEEE>

'THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

N 14
CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 45-1
ERROR HANDLER ROUTINE
046340

BNE
JSR

046434
001223

TYPE

23::

046432
132554

TST8
BNE
TST

BPL

HALT

001000
001110
001214
001214
105737
001230
000002
000000
000000

046432

132540

3s:

4$:

5%:

CPSAVE:
IBSAVE:

208

PC,SERRTYP

.SCRLF

iBSAVE
$
aSWR

CKSWR

BIT
BEQ

SEQ@ 0182

::SKIP TYPEOUTS
::6G0 TO USER ERROR ROUTINE

..SEE IF IBSAVE IS LOADED

sBRANCH IF NOT = NO HALT ON PWR MON BIT ERROR

::HALT ON ERROR
..SK!P IF CONTINUE

s HALT ON ERROR

sTEST FOR CHANGE IN SOFT=SWR

#81T709,aSWR

..LOOP ON ERROR SWITCH SET?

43
SLPERR, (SP)
ggSCAPE

::FUDGE RETURN FOR LOOPING
..CHECK FOR AN ESCAPE ADDRESS

$ESCAPE, (SP)

::FUDGE RETURN ADDRESS FOR ESCAPE

BNE

IBSAVE
78

ssSEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
::gg?figz BACK TO CALL ORIGINAL ERROR

.WORD
.WORD

0
0

::LOCATION TO SAVE CPU ERROR REG CONTENTS

MOV
TST
BEQ
MOV
TSTB

RTI

:BR_IF NO

:BR_IF NONE

;;LOCATION TO SAVE ITEM BYTE

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 46
ERROR MESSAGE TYPEOUT ROUTINE
.SBTTL

B 15

SEQ 0183

ERROR MESSAGE TYPEOUT ROUTINE

tTHIS 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.
SERRTYP:

001223
001114

001116

18:

046772
1000$:

003630
046530

001223
046546

1001$:

28:
3s:
4S:

5%:

001223

SS ¢SS=2
22=3& RR&

oo
§ RSSRG SPa
o SRS

—

& =2

6$:

,SCRLF

:.;}OQRIGGE RETURN'' & "LINE FEED"’

::PICKUP THE ITEM INDEX

88.~(SP)
GNSITEMB,RO
18
$ERRPC,~(SP)

000177
001102
046632

TYPE
MOV
CLR
BIS8
BNE

7%:

108
#177.R0

1000$

:sSAVE SERRPC FOR TYPEOUT
s ;ERROR ADDRESS
..GO T;GE'-OCTAL ASCII(ALL DIGITS)
sGET
..SEE IF Tuls ERROR CALL IS SPECIAL POWER FAIL CALL
JBRANCH IF

..GET TEST NUHBER
:sMOVE POWER FAIL ERROR CALL TABLE TO RO
s sBRANCH TO CALL ERROR
ssADJUST THE INDEX SO THAT IT WILL
3
WORK FOR THE ERROR TABLE

0
.SCRLF
(RO)+,48
5%

i ERROR MESSAGE'

::"'CARRIAGE RETURN'' & "LINE FEEDTM
::PICKUP ‘DATA HEADER'* POINTER
::SKIP TYPEOUT IF 0

0
.SCRLF

;3 DATA HEADER'' POINTER GOES HERE
i3 CARRIAGE RETURN" & "LINE FEED"

R1,-(SP)
(R0)+.R1

98
(RO)+,RO
(RO)+
78
a(R1)+,=(SP)

8s
a(R1)+,=(SP)

és
9%:
108:

s:TYPE THE PC OF THE ERROR

STSTNM_ PFTSTN
#PFECH,RO
10018
RO
RO
RO
RO
#SERRTB,RO
(RO)+,28

(R1)

046626

s:1F _ITEM NUMBER IS ZERO, JUST

(SP)+,R1

(SP)+.RO

::FORM TABLE POINTER

::PICKUP "ERROR MESSAGE'' POINTER
::SKIP TYPEOUT IF NO POINTER
iiTYPE THE ERROR MESSAGETM

POINTER GOES HERE

:3TYPE THE "DATA HEADER'’
v

..chxur "DATA TABLE'' POINTER
;i8R IF_NO DATA TO BE TYPED

2 PICKUP .. DATA FORMAT." POINTER

23"OCTAL
"DECIMAL
:BR IF DECIHAL

..SAVE #(R1)+ FOR TYPEOUT

::60 TYPE=--OCTAL ASCII(CALL DIGITS)
::SAVE a(R1)+ FOR TYPEOUT
::G0 TYPE--DECIMAL ASCII UITH SIGN
..IS THERE ANOTHER NUMBER?
:BR_IF NO

..TYPE TWO(2) SPACES
ooP

s sRESTORE R1
: sRESTORE RO

040

000

046632

046642

046724

046756

046724

124

105

123

066642

120

046756

046772

000000

046766

000

117

001116

000

127

046430

11s:
PFECH:

PFECH1:

eSEIZ

,$CRLF
PC

:.'TARRIAGE RETURN'' & "LINE FEED'’
sRETUR

..THO(Z) SPACES

PFECH1,PFECH2,PFECH3,PFECH4 ;:WORDS DEF INING TABLES BELOW

.ASCIZ"

PFECH2: .eegal

?POWER MONITOR BIT IN' CPU ERROR REGISTER FOUND SET?
ITESTNO

ERR PC

CPUERREG?

PFECH3: .WORD

PFTSTN,SERRPC,CPSAVE.0

PFTSTN: .WORD

000 PFECH&4: .BYTE

0,0,0.0

::CONTAINS TEST NUMBER FOR PF BIT ERROR

040

046626

TYPE
RTS

001223

104401
000207

046620
046624

SEQ 0184

ERROR MESSAGE TYPEOUT ROUTINE

CZRJHEO RP04/5/6 DSKLS PTZ MACRO V04.00 17-NOV-81 16:37:12 PAGE 46-?

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 47
BINARY TO OCTAL (ASCII) AND TYPE
.SBTTL

D15

SEQ 0185

BINARY TO OCTAL (ASCII) AND TYPE

RN
RN
R RN RN AR AR RN E AR RN RRRE RO AR

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
s*OCTAL (ASCII) NUMBER AND TYPE IT.
;*$TYPOS==<=ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

s+CALL:

H
H
o

Hd
M

MOV

TYPOS
BYTE
BYTE

NUM,~=(SP)
N

2sNUMBER TO BE TYPED

ssCALL FOR TYPEOUT
ssN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

::M=10R 0

2:1=TYPE LEADING ZEROS
2 :0=SUPPRESS LEADING ZEROS

;*$TYPON=-==<ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC

s*CALL:
H
MOV
%

TYPON

NUM,=(SP)

;sNUMBER TO BE TYPED
ssCALL FOR TYPEOUT

:’%IlfOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s*CALL:

H
i
046774
047000
047006
047012
047016
047020
047026
047034
047042
047044
047046
047050
047054
047056

017646
116637
112637
062716
000406
112737
112737
112737
010346
010446
010546
113704
005404
062704

000000
000001
047221
000002

047072
047076
047100
047102
047104
047106
047110
047112
047114
047116
047122
047126
047130
047132
047134
047136

016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204

000012

7062
7066

110437
113704

000001
000006
000005

047221
000006

047220
047217

047217

047217
047221
7216

$TYPOS: MOV
MOVB
MOVB
ADD
BR
S$TYPOC: MOVB
MOVB
STYPON: MOVB
MOV
MOV
MOV
MOVB
NEG
ADD
MOVB
MOvVB

1$:
2$:

047220

MOV
TYPOC

3s:

177770

4$:

MOV
CLR
ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
B8IC
BNE
TST
BEQ
INC

NUM,-(SP)

;sNUMBER TO BE TYPED
ssCALL FOR TYPEOUT

a(SP) ,-(SP)
1(SP) ,SOFILL
(SP)+,SOMODE+1
#2,(SP)
STYPON
#1,80FILL
#6,SOMODE +1
#5 ,S0CNT
R3,-(SP)
Ré,=-(SP)
RS5,-(SP)
$OMODE+1,R4
Ré&
#6.R4

;:PICKUP THE MODE
;sLOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
s sADJUST RETURN ADDRESS

R4 ,SOMODE
SOFILL R4

12(SP) ,RS
R3
RS
33
RS
RS
RS
R5.R3
R3
$SOMODE
7%
#177770,R3
43
R4
5$
R4

ssSET THE ZERO FILL SWITCH
;:SET FOR SIX(6) DIGITS
ssSET THE ITERATION COUNT
s sSAVE R3
s sSAVE R4
2 sSAVE RS
;sGET THE NUMBER OF DIGITS TO TYPE
ssSUBTRACT IT FOR MAX. ALLOWED

22SAVE IT FOR USE
2sGET THE ZERO FILL SWITCH

+:PICKUP THE INPUT NUMBER
;;CLEAR THE OUTPUT WORD
:sROTATE MSB INTO ''C
;.60 DO MSB
;sFORM THIS DIGIT

;;GET LSB OF THIS DIGIT
ssTYPE THIS DIGIT?
2:BR IF NO
s:GET RID OF JUNK
ssTEST FOR 0
2 sSUPPRESS THIS 0?
s:BR IF YES
2sDON'T SUPPRESS ANYMORE 0'S

|
}

CZRJHEO RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 47-%

SEQ@ 0186

OoONONWVSSNON

M) = e ed b e ed O

—D

RRRRRRRRRRRRRRRRER R
~
NN
S YNV &H

047140

- d ek OO

BINARY TO OCTAL (ASCII) AND TYPE

000060

5$:

047216

7$:

6$:
000002

000004
8s:

.BYTE
.BYTE
$SOCNT:
.BYTE
SOFILL: .BYTE
: .WORD
$OMODE

c'o R3

‘R3
as %
13

ssMAKE THIS DIGIT ASCII
ssMAKE ASCII IF NOT ALREADY
::SAVE FOR _TYPING
..GO TYPE THIS DIGIT

2
6$
R4
s
( SP)+,RS

..INSURE LAST DIGIT ISN T A BLANK

£oc~r

( SP)+ R4
( SP)+,‘R3
2 (SP).4 (SP)
( SP)+, (SP)

0
0
0
0
0

sCOUNT BY 1
..BR IF MORE TO DO
:BR_IF DONE

GO DO THE LAST DIGIT
RESTORE RS

..RESTORE R4
R3
:sRESTORE
:sSET THE STACK FOR RETURNING
sRETURN

..STORAGE FOR ASCII DIGIT

< TERMINATOR FOR TYPE ROUTINE

::0CTAL DIGIT COUNTER
ssZERO FILL SWITCH
s ;NUMBER OF DIGITS TO TYPE

g%:gflggCRPNIS/b DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 48
.SBTTL
SRR

F15

SEQ 0187

TRAP DECODER
AR AR

AR AR AR AT AR

R AR AN RN

AR AR

A RO

tTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'‘TRAP'' INSTRUCTION
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS

:%OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:*GO TO THAT ROUTINE.
047222
047226
047230
047232
047234
047236
047242

010046
016600
005740
111000
006300
016000
000200

S$TRAP:

000002

047256

MOV
MOV
TST
MovB
ASL
MOV
RTS

RO,=(SP)
2(SP) ,RO
=(R0)
(RO) ,RO
RO
STRPAD(RO)
RO
RO

:;SAVE RO
..GET TRAP ADDRESS
sBACKUP BY 2
..GET RIGHT BYTE OF TRAP
sPOSITION FOR INDEXING
::INDEX TO TABLE
::6G0 TO ROUTINE

;:THIS IS USE TO HANDLE THE '‘GETPRI’' MACRO
047244

011646

047254

000002

047246 016666 000004 000002

$TRAP2: MOV

MOV
RTI

.SBTTL

(SP) ,=(SP)

4(SP5,2(SP)

;:MOVE THE PC DOWN

:*MOVE THE PSW DOWN
:*RESTORE THE PSW

TRAP TABLE

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

:*BY THE "‘TRAP"* INSTRUCTION.
:

047256

ROUTINE

047260
047262
047264
047266
047270

0464306
047020
046774
047034
044062

047244

$TRPAD: .WORD

047272

045210

047274
047276
047300
047302
2 047304
3 047306
& 047310

045120
045462
045552
045732
032036
032116
032434

$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 ZERO")
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

$SGTSWR

;:CALL=GTSWR

TRAP+6(104406)

GET SOFT=-SWR SETTING

$CKSWR
SRDCHR
SRDLIN
$RDOCT
T.SCOP
cuecxr
WAIT.T

;:CALL=CKSWR
::CALL=RDCHR
::CALL=RDLIN
;;CALL=RDOCT
::CALL=SCOP1
+:CALL=CHECKD
;:CALL=WAT

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP01§(104£1§)
TRAP+13(104413)
TRAP+14(10441%4)
TRAP+15(104415)

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
MY LOCAL SCOPES
CHECK DVA,RDY,DPR,DRY
WAIT LOOP

CZRJHED RPO%IS/6 DSKLS PTZ MACRO V04.00 17-NOV-81 16:37:12 PAGE 49
POWER DOWN AND UP ROUTINE
1

.SBTTL

~RRRRON

NNoOo OOV

Y
I
I
I
R
R
R
e
B

I ~w

i JIZREV2ZIN

047360
047362

(=lelelelelelelelelele]

AILL

DRRE tflU%:Ufldxfifl
N onNNO a=¥3u<>ow:na

SRR

047456
000340

¢00024
000c26

AR AR AR

AR AR

AN AR

AR AR

fiousn DOWN ROUTINE
#SILLUP,3#PWRVEC
$PWRDN : MOV
; SET ;OR FAST UP
MOV
#3460, J#PURVE C+2 ..fi
MoV
MOV

RO,=-(SP)
R1,-(SP)

SH RO ON STACK
::PUSH R1 ON STACK

MoV
MOV
MOV

R3,-(SP)
R&,=(SP)
R5,=(SP)

:PUSH

MoV

#SPWRUP, a#PWRVEC" :iSET UP VECTOR

MoV
MoV

000024

R2.=(SP)

..PUSH R2

AR AR AR

ON STACK

::PUSH R4 ON STACK
..PUSH R5 ON _STACK

aSUR, - (SP)
SP, $SAVR6

s ;PUSH SSUR ON STACK
sSAVE
§

: sHANG UP
AR AR AR

012737

SEQ@ 0188

POWER DOWN AND UP ROUTINES

MoV

131572
047462
047364

G 15

047456
047462
047462
047462

000024

$PWRUP:
1$:

131524

047312
000340

AR AR

MOV
CLR
INC
MOV
MoV
MOV
MoV
MoV
MoV

MOV
MoV
MOV

000024
000026

120

A AR

AR AR

AR AR AR

R AR

#SILLUP,a#PWRVEC ..g;TsFOR FAST DOWN

$SAVR6,SP
$SAVR6
$SAVR6
18
(SP)+,aSWR
(SP)+,R5
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1

s:WAIT LOOP FOR THE TTY
s:WAIT FOR THE INC

:;0F

WORD

::POP STACK
::POP STACK
::POP STACK
::POP STACK
::POP STACK
..POP STACK

INTO @SWR
INTO RS
INTO R4
INTO R3
INTO R2
INTO R1

sPOP _STACK INTO RO
(SP)+.RO
#SPWRDN, a#PWRVEC"'figfs gP THE POWER DOWN VECTOR
#340,3#PWRVEC+2
;

$PWRMG:

SPOWER
(PC)+,(SP)
BEGIN

BR
SAVR6G: 0
SPOWER: LASCIZ
VEN

WORD
MOV
$PWRAD: .WORD
RTI
$ILLUP: HALT

012

AR AR

POHER uP
COUTINE

<15><12>''POWER"’

sREPORT THE POWER FAILURE

:;POWER FAIL MESSAGE POINTER
¢ RESTART AT BEGIN
s RESTART ADDRESS

;:THE POWER UP SEQUENCE WAS STARTED
;; BEFORE THE POWER DOWN WAS COMPLETE
::PUT THE SP HERE

CZRJHEOQ RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 50
ERROR AND MESSAGE TABLES
.SBTTL

ERROR AND MESSAGE TABLES

117
125
122
116

EMI:
EM2:
EM6:
EM11:

+ASCIZ
+ASCIZ
LASCIZ
_ASCIZ

117

116

EM15:

.ASCIZ

114

126

2
3 047474
& 047557
5 047606
6 047645

127
105
105
103

122
122
122
117

8 047720

116

7 047700

122

9 047770
10 050011
11 050035

127
1%7
122

13
0501
14 050127

105
124

‘l% 050056

105
101
122
105

12¢
110

107

122
105

EM??

+ASCII1
<ASCII

/ERROR ON DRIVE PRESENT/<CRLF>
/THE UNIT NO'S FOUND BY SETTING RHAS/<CRLF>

040
103
067

19 050421
20 050473
21 050566
22 050626
23 050721
24 050747
25 051002
26 051071
27 051155
28 051221
29 051300
30 051355
31 051427
32 051522
33 051615
34 051702
35 051727
36 052016
37 052123
30 052203
39 052271

047
114
114
103
101
105
105
117
105
117
124
110
132
120
114
061
104
117
11
127
124

116
117
117
125
106
103
126
116
103
116
110
m
105
117
117
061
101
116
106
122
110

105
117
117
122
124
103
105
040
103
114
11
107
122
123
127
040
124
040
040
111
105

40 052361

124

105

/NON EXISTENT REGISTER, PROGRAM ABORTED./

/WAIT LOOP FAILED/
/WRITE CHECK FAILING/
/REGISTER FAILING/

EM21:

+ASCII
+ASCII
CASCII

124

123

_ASCIZ

LASCII

EM24:
EM25:
EM30:
EM31:
EM32:

EM33:
EM34:
EM35:

EM36:
EM37:
EM40:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
+ASCIZ
.ASCII
.ASCIZ
.ASCII
.ASCII
+ASCI1
.ASCIZ
.ASCIZ
_ASCIZ
.ASCII
LASCII
LASCII
.ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ

SEQ@ 0189

/REGISTER FAILED/

.ASCIZ
_ASCIZ
.ASCIZ

117
110
067
117

.ASCIZ

EM16:
EM17:
EM20:

104
122
061

116

EM14:

/WRONG DATA IN READING OR WRITING HARDWARE REGISTER/
/ERROR ON DATA COMMAND/
/ERROR ON WRITE HEADER AND DATA/
/CONTROLLER OR DRIVE STATUS/

111
111
107

15 050173
16 050245
17 050271
18 050324

H 15

/INTERRUPT FAILING/

/DO NOT AGREE WITH THE UNIT NO. FOUND FROM/<CRLF>
/RHCS2="NED' BIT #12/<CRLF>
/177777-MEANS NO UNIT FOUND/<CRLF>

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

/'NED®, HENCE THERE WILL BE AN EXTRA DRIVE/
/LOOK AHEAD REGISTER AT THE BEGINNING OF SECTOR IS IN ERROR/
/LOOK AHEAD REGISTER IS IN ERROR/
/CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER REGIHSTER/<CRLF>
/AFTER A SEEK AND INIT/
/ECC GENERATED IS INCORRECT/<CRLF>
,
:
/EVERY WORD ON THIS SECTOR IS THAT GIVEN IN 'DATA USED'‘/
/ON READ COMMAND, AFTER DATA AND ECC HAVE BEEN READ,/<CRLF>
/ECC REGISTERS OR_RHER1 ARE IN ERROR/<CRLF>
/ONLY LOWER 11 BITS OF PATTERN REG. CAN BE READ/<CRLF>
/THIS SHOULD MATCH LOWER 11 BITS OF GOOD ECC1/
/HIGH COUNT BIT NOT SET AFTER 38859 CLOCKS/
/ZERO DETECT BIT NOT HIGH WHEN 32 BIT ECC REG. HAS 21 ZEROS/
/POSITION REGISTER OR 11 BITS OF PATTERN REGISTER INCORRECT/<CRLF>
/LOWER 11 BITS OF PATTERN REGISTER SHOULD MATCH LOWER/<CRLF>
/11 BITS OF GOOD ECC1/<CRLF>
/DAT ENVLOP GOOD POSITION AND N-CODE ZEROS ARE IN OCTAL/
/ON READ COMMAND WITH NON-CORRECTABLE ERROR DCK AND ECH SHOULD BE SET/<CRLF>
/IF POSITION REGISTER =10040 OR 10041 IT IS GOOD/
/WRITING WITH BUS ADDRESS HIGHER THAN 28K CAUSED ERROR/
/THERE WAS A READ-WRITE HEADER & DATA ERROR DURING °*DTE'/<CRLF>
/TEST SETUP = THE TEST WAS ABORTED AT THAT POINT/

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 i7-NOV-81 16:37:12 PAGE 51

115

SEQ 0190

Prang Bt bomg B
BN St b b by e B
P Dot b by by

CAICICIOITY

b ey ey b Bt

[

e R

s Lt

g Bt By B

OYOYOYOYOYOYOYOY
OO OVYOYOYMIOY

ottt o b by Bt e g

nnnhnmd

Lnunhhnhn

vunouunnhnnn

>P>P>>>P>

)
0

b d b b
=NO-—
OO0
cdeded
OO0—=
Viornss

d b
bbb
b

wd
=
~
cded
=)
~nN0

CPHALT:

>P>>>

106
040
124
(047
127

:
NDRVAS

O
O=
N

200
200
200
200
200

e i) d
—=OOON
-~

18 053407
19 053452
20 053465
21 053545
22 053625

200
200

ONOO—=

12 053162
13
053227
14 053302
15 053303
16 053370

00
200
200
200
200
200
200

cded

10 053107
11 053141

200

3 052526
052613
4 052700
§ 052706
6 052707
7 050776
§ 053061

105241

—=N=O0O0 OV
=N ; NN=O
ON—=O
St
ON\Nd
=&
ON

ERROR AND MESSAGE TABLES

<CRLF>/ALL DCL'S UNDER TEST MUST BE LOCKED ON CORRECT PORT./
<CRLF>/1F CHANGES ARE REQUIRED ON PORT SWITCH, THEN A CYCLE/
<CRLF>/UP SEQUENCE IS REQUIRED FOR STROBING THE PORT SELECT/
:E:t:;/FLOP./

<CRLF>/ALL_
DCL'S NOT
UNDER_
TEST MUST BE
SWITCHED OFF./
<CRLF>/IF THIS
IS NOT DONE, ERRORS WILL RESULT IN THE °NED'/
<CRLF>/TESTS (T21 AND T36)./

<CRLF;/N0 DRIVES PRESENT, RHAS=0/

<CRLF
<CRLF>/WRITTING ONES
INTO RHER1
FOR ALL UNIT NUMBERS DOES/
<CRLF>/NOT SET ANY BIT IN RHAS, SO ABORT PROGRAM./

<CRLF>

<CRLF>/TO LOOP ON_THIS TEST WITHOUT PRINTOUT,

- <CRLF>/13, 8 AND 2./<CRLF>

SET SWITCHES/

/FATAL ERROR = SEE DOCUMENT LISTING/<CRLF>

/ /<CRLF><207><377><377><207><377><377><207><377><377>

/THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<CRLF>

/'READY', BECOME UNAVAILABLE, OR HAS STATUS BITS/<CRLF>
/WHICH CANNOT BE CLEARED/

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16: 37 12 PAGE 52
ERROR AND MESSAGE TABLES
1 053655
% 053725
053772
& 054036
5 056103
6 056171
7 054257
8 054356
9 054455
10 054505
11 054561
1% 054642
13
054730
14 055016
15 055103
16 055171
17 055236

18 055304
19 055342

20 055377
21 055466
22 055554
23 055652
24 055751
25 056031
6 056106
27 056162
28 056237
29 056335
31 056542
32 056650
33 056747
34 057046
35 057133
36 057220
37 057317
38 057414
39 057474
40 057551
25 057660
43 057767

22 060055

120
040
120
040
120
120

120
120
040
120
04
120
040
120
040
120
040
120
040
120
040
120
040
120
040
120
040
120
040
120
040
120
040
120
040
120
040
120
040
120
040

103
040
103
040
103
040

040
040
040
040
040
040

040
103

040
040

103

103
040
103
040
103
040
103
040
103
040

103
040
103
040
103
040
103
040
103
040
103
040
103
040
103
040
103
040
103
040
103
040
103
040

040

040
040
040
040
040
040
040
040

DH1:
DH2:
DH11:
DH14:

DH15:
DH16:
DH17:
DH20:
DH21:

0640
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040

DH22:

040

DH4O:

040

DH24:
DH26:
DH27:
DPH30:
DH31:
DH32:
DH33:

DH34:
DH35:
DH36:
DHW37:

LASCII
LASCIZ
LASCI1
LASCIZ
.ASCII
LASCIZ
.ASCII
LASCIZ
.ASCIZ

.ASCII
ASCIZ
.ASCII
LASCIZ
.ASCII
LASCIZ
.ASCII
LASCIZ

/PC
/
/PC
/
/PC
/
/PC
/
/PC
/PC
/
/PC
/
/PC
/
/PC
/

.ASCII
LASCIZ
.ASCII
LASCIZ
.ASCII
LASCIZ
.ASCII
LASCIZ
.ASCII
LASCIZ
.ASCII
LASCIZ
.ASCII
LASCIZ
ASCII
LASCIZ
_ASCII
LASCIZ
.ASCII
LASCIZ
.ASCII
ASCIZ
.ASCII
LASCIZ

/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/

.ASCII

/PC

LASCIZ

J 15

TEST
NO
TEST
NO
TEST
NO
TEST

NO
TEST

TEST
NO
TEST
NO
TEST
NO
TEST
NO
TEST
NO

SEQ 0191
REG.
GOOD
ADDR.
DATA
WORD
GO0D
NO
DATA
FAILING CONT.
REG ADR RHCST

ACTUAL /<CRLF>
DAT
BAD/(CRLF)
DATA/
CONT.
CONT.
RMCS2
RHDST
FAILING CONT.
CONT.
CONT.
REG ADR BAD REG RHCS1
RHCS2
REG ADR/
PC
CONT.
RHBA
CONT
RHERT
CONT
RHCS1
RHAS
UNIT

BIT
WANTED
CONT.
RHDB
CONT
RHER2
CONT
RHAS

CONT./<CRLF>
RHER1/
CONT.
CONT.
RHDS1
RHER1

REG
REG/<CRLF>
ADDRESS CONTENTS/
CONT.
CONT.
CONT./<CRLF>
RHWC
RHCS1
RHCS2/
CONT
CONT
CONT/<CRLF>
RHER3
RHAS
RHDS1/
CONT/<CRLF>
RHDS1/

/<CRLF>

TEST
NO
TEST
NO
TEST
NO
TEST
NO
TEST
NO
TEST
NO
TEST
NO

RHCSZ/(CRLF)
UNIT/
RHDST
BAD
GOOD
SECTOR SECTOR/<CRLF>
CONT.
RHLA
RHLA
NO
CLOCK/
PC OF
FAILING CONT.
CONT.
CONT.
CONT./<CRLF>
JSR
REG ADD RHCS1T
RHCS2
RHDS1
RHER1
/
PC OF
FAILING GOOD
ACTUAL /<CRLF>
JSR
REG.
DATA
DATA/
PC OF
REG.
GOOD
BAD/<CRLF>
JSR
ADDR
DATA
DATA/
WORD
GOOD
BAD
CONT.
CONT.
CONT./<CRLF>
NO
DATA
DATA
RHCST
RHDS1
RHER1
/
PC OF
WORD
GOOD
BAD
CONT.
CONT.
CONT./<CRL
JSR
NO
DATA
DATA
RHCST
RHDS1
RHER1/
PC OF
WORD
GOOD
CONT.
CONT.
CONT.
/<CRLF>
JSR
NO
DAT
RHCS1
RHDS1
RHER1
/
GO0D
600D
URITTEN WRITTEN DATA/<CRLF>
ECCT
ECC2
ECCT
ECC2
USED/
GOOD
600D
PATTERN POSITON GOOD
RHER1
/<CRLF>
ECC1
ECC2
REG.
REG.
POSITON REG./
PC OF
RHMR
POSITON PATTERN/<CRLF>
JSR
CONT.
REG.
REG./
POSITON POSITON GOOD
GOOoD
PATTERN DATA
N-CODE /<CRL
ECC
GOOD
ECCt
ECC2
ECC
ENVLOPE ZEROS /

TEST
NO

FAILING CONT.
REG ADR RHCS1

TEST
NO
TEST
NO
TEST
TESY

CONT.
RHCS2

CONT.
RHDS1

CONT./<CRLF>
RHER1/

SO W=WWW
=N
=
SO
O0

W)
= OO

O0O0O
W
NN =
(=1 =T
W
(=l=1=]
o

bbb

38 8888 O

cbebadadodad

OO0O0O0O0O0
OO0OO0

== o0 =1
WWOOWO
ety
By
VIS SO
VWb b=t

OSSO

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

$ERRPC, TSTNM,$BDADR,CS1,CS2,DS1,ER1,0
SERRPC
., TSTNM_ SBDADR . $BDDAT, (S1,(S2.DS1,ER1.0
SE.RR
TSTNM.S
PC
TMP1,
SERRPC ., TSTNM.STMP3
. STMP1, $TMPO, SBDDAT,
0

$ERRPC,TSTNM.BA,DB.WC,CS1,cs2.0

$ERRPC, TSTNM,ER1,ER2,ER3,AS,DS1,0

$ERRPC, TSTNM,CS1,AS,DS1,0

SERRPC ., TSTNM.SG
. SBDDAT,
DDAT
0
SERRPC.TSTNM.DST,$BDDAT, STMP1,$TMP2, $TMP3,0
$ERRPC . TSTNM,P
$BDADR,
CJSR, CS1.CS2,DS1,ER1.0

$ERRPC, TSTNM.PCJSR.REGADR
. SGDDAT, $8DDAT, 0

SERRPC, TSTNM,PCJSR,REGADR,
SGDDAT, S8DDAT 0
S$ERRPC . TSTNM. ERWORD , SGDDAT , SBDDAT, CS1,DS1.E

SERRPC. TSTNM.PCJSR,
ERWORD , $GDDAT , $8DDAT , CS1
SERRPC . TSTNM.PCJSR . ERWORD . $GDDAT . CS1,DS 1, ER1

SERRPC.TSTNM.GECC1.GECC2,WECCT
, WECC2.DISK,0
$ERRPC ., TSTNM.GECC1.GECC2.EC2,EC1,POSITILERT.O

s
.
s

OO0

OO000

OO0O0O
OO0 O0000O0

L
R

O00O0O00

L
R

OCOO0O0O0000

.S 8

)

OCO0O00O0==0O

8
%

8
8

8%
%

%
S

N
8

8
8%

8%
8%

%
%

OO0O0O00O0
OO0O0O0O00O0—~

8
8
8%
%
S

N
8
8
8%
8%
%
%

OO0ODO0O0O0

OCOO0O0O0O0

OO0 O0O0O000

o
N

VIV
S SN 8N
VIS W =000,

40 060761
41 060766
42 060772
43 061001
44 061011
45 061017

OO0 O0O000O0

8
8
&
%

OOO0O0OO0O

OO
OODOO0O0O

OOO0O0O0O

$ERRPC,TSTNM,$BDADR,(S1,(S2,DS1,ER1,0
OO o

003610

$ERRPC.TSTNM.PCJSR.MR,ECT,EC2.0
$ERRPC, TSTNM,EC1,POSITI,GECCT.GECC2,EC2,DATENV,
ZCODE,0
OOoCO

003610

ababd

OO o
ONONONMONOFN
NONMOMONONOCN
ooooooorOr
O O

eeb

d
D

d o
o

D
o
D e e b

e
D

o
D e

e o
D e
o
d

o
e

D
o
e

d e
e

d d
b e
d
b

d e

.WORD
- WORD
.WORD

K 15

SRR

31 060707
32
33 060714
34 060723
35 060733
36 060736
37 060743
gg 060752

— e e
b b b

2222 geeze

8; & Kzee

i
YOS SR A
R S R

STBNERRU N v 0 ONOWVS
W= OV~
&
R
SE
& K&
ON
WV
W=\
r
WO,
O~
SN XER R
o TGS
SBLF

060172

— e

1 060144
060160

o
83383838 833338 83338 88 o

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 53
ERROR AND MESSAGE TABLES

SEQ@ 0192

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 54

L15

SEQ 0193 |

120

26 062570
27 062620
28 062650
29 062715
30 062761
gg 063016
3
34 063046
35 063056
36 063072
37
38 063104
39 063107
2? 063114
42

120
040
120
040
120
040

001
001
1
000
000
000200

040

003610
003610
003610

031620
031620
031620

000
000
000

NNNNNNNNNNNNNNNNNNNNNNNN
N

103
122
m
1M
101

19 062212

/REGISTER ADDRESS SELECT TEST/
/NON EXISTANT DRIVE (NED) TEST/
/AS REGISTER TEST/
/BUSS ADDRESS REGISTER DATA TEST/
/BUSS ADDRESS REGISTER MOVE BYTE/
/RH11 _INTERRUPT FAILED TO OCCUR/
/RESET TEST/
/MXF BIT TEST/
/UNIBUS PARITY BIT TEST/
/DOES SELECTING THE RH11 CLEAR THE UNIT SELECT REGISTER/
/DOES TRE GET SET BY UNIBUS PARITY ERROR/
/NON EXISTANT DRIVE (NED) FAILED TO SET (TRE)/
/NON EXISTANT MEMORY (NEM) FAILED TO SET (TRE)/
/PORT SELECT FAILED TO CLEAR/
/CONTROLLER CLEAR FAILED TO CLEAR COMMAND REGISTER/
/RESELECT FAILED TO CLEAR COMMAND REGISTER/
/INTERRUPT CAUSED BY
RDY!IE BITS SET FAILED TO OCCUR/
/1E FAILED TO CLEAR FOLLOWING AN INTERRUPT/
/AS REGISTER WRITE TEST/

NN N

20 062246
21 062330
22 062402
23 062467
24 062541

O = b e e d d d d e e e ) e 5 D) d e e ek = OO
SN
=LOO—=ONONNINS =2OO0ONNONO
OHN WOV
N =N W= WNWO O VWO
= —

1%%
1
115
102
102
122
116
101
102
102
122
122
115
125
104
104
116
116

O=O
=L T
S
HOHO SO
OWOW OW

1 061124
g 061207
061253
& 061310
S 061337
6 061366
7 061423
8 061461
9 061502
10 061542
11 061602
12 061641
13 061654
14 061671
15 061720
16 062007
17 062057
18 062134

ERROR AND MESSAGE TABLES

/PC
/
/PC
/
/PC
/

/RH11 REGISTER FAILED TO RESPOND TO A "‘TST'' COMMAND/
/RH11 ILLEGAL REGISTER RESPONSE TEST/
/MOVE BYTE TO WORD COUNT TEST/
/BIS BYTE TO WORD COUNT/
/BIC BYTE TO WORD COUNT/

TEST
NO
TEST
NO
TEST
NO

ILLEGAL/<CRLF>
ADDRESS/
REGISTR CONT
CONT/<CRLF>
ADDRESS GOOD
BAD/
REGISTR CONT/<CRLF>
ADDRESS/

SERRPC, TSTNM_REGADR, 0
$ERRPC,TSTNM REGADR,SGDDAT, $BDDAT, 0
$ERRPC,TSTNM,REGADR,$GDDAT,
0
0.0.0
0.0.0,0.0
0.0.0.0

M5
CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 54-1

SEQ 0194

DF &4
DF5
DF 54
DH1

ABS
= 000200
ACL
= 000040
ACU
= 100000
ADTIMO 036436
= 001000
AS
001332
ATA
= 100000
ATABLE 003620
ATTENT 001416
ATO
= 000001
AT1
= 000002
AT2
= 000004
AT3
= 000010
AT4
= 000020
AT5
= 000040

060172

= 000100
= 000200
= 000400

= 001000
001310
004540
= 000010
BASECH 035506
BEGIN_
004620
BEGIN2 004626
BITST
03162%
BITO = 00000
BITO0 = 000001
BITO1 = 000002
BIT02 = 000004
BIT03 = 000010
BIT04 = 000020
BITO5 = 000040
BITO6 = 000100
BIT07 = 000200
BIT08 = 000400
BIT09 = 001000
BIT1
= 000002

R
~TITOMMOMNDZ R
R

gOOOOOOOOOOOOOOOO

[=l=txlelelelele]
oooooornONONONONONONONONONWNININIINV
NN
N
— e o e e e e e e e e e e D NI NI
e ke e D O O
ONONONON NN SN
N = NN O WSS WO O
NSO 7O WN=NON)
NO =N~ &~
= N P SNIN)
=2 NN NO
W NS = WO NN
= O

=,
OO O0000
O=ONO\WNH
W) HHwnnononnnaN

BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000010
BIT4 = 000020
BITS = 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
BLT1
031650
BLT
031672
BLT
031702
BPTVEC= 000014
CA
001326

=IOMTMOMNMDERM R

BA
BADTMO

—_ T OTMMOMNMDEZE R

AT6
AT7
A16
A17

8000000000000

SYMBOL TABLE

~ITOMMOMNDERM NI OMMOMND

LST14A

LST15A
LST16A

§.....

012246
01
012620
NWO

%88

e 0

g Bes b

Bee

g B

bt B

by beg b

bt b

OO
N &

SOOOOO

SECOTR
oo~

~Nw
—b NS

88883820

—

NS ONONNONNONON

:g&\hb§§

LUl
Ealad

B e

D e

—

b —h

b —

b
)
b ik N

b —d —d

D —d

D —d —D

N15

SYMBOL TABLE

SEQ 0195
|
NCr=TOMMMONDEZE

‘JN%O &S W SR

DS LASLASTAS
TS [N TN
&~
N

8338383338838383888
—

=
N
o

CZRJHED RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 54~2

N
b N
YO
HHO0O

RHCA

2588SSSRTR 3828

— ot b s

O >g
ma“ SN0 z‘*

83388 SSRISRESSC3as
—d
PN ON b e | h it

RN
OOOO

OOOOO?
OO0 =N
2355833

[elelelels]

O [ /]

VRNOWVSWN—=O

T [ LI LT U T T L L[

833333328

I LI LI LI LI L LI LA LTI

VWO NOWVMS WN—=O

33288

mmmmmmmmmmmmmmmmmmmmmmmm
N ANANNONONORUNI
NONONONONIND ~b b —d b b b b b b b

VOOV VOVOVVOVOVIVOVOVOVOVOVVOUVOOUVODD

8588 B WNWWWIAN
W WNNIMNINIFION) = = b —aOO0000O
NON=ONO\WNH
W
~
OSSN
= b NJONNNW
S NS S
COHMNINNSNSNOOONONON

— e

s g

(=lelelelelelalelelelelelelelelelelelalelelalelelele]

L30

PO = e e ed e e el O o
N=OWVNHWNN—=O~N o

IOTVEC
R P

ILLEGL
ILR

g232028
2YS0R

gw—'mbl\) R

- \NONN\)
—
LSLSTNT.
S TT. 3 o

IE
ILF

— —

~
wv

No
NWNTNTNT
ST

b
b b b b
b b b b

elelelelelelelele]

HEADER
HEDGAP
HEDSYN
HEGAP
HT
1AE
IBSAVE

L00
L0
Lo
LO4
L05

P\J

NWNNN%JNNNNNNNN

016766
[« o

HDESYN
HDWSYN

OO0

3
&~ NS

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 54-§

SEQ 0196

SYMBOL TABLE

SECTR
042754
SEECOM 001462
SEGPER 042060
SELECT 001402
SELTST 006742
SERCH
001444
SETCK1 015436
SETCK2
016132
SETCK3
016656
SETDSK 033544
SILOSZ 003616
SILOTB 040626
SKEY1
042134
SKEY2
042136
SKI
= 040000
SN
001
SRO
= 177572
SR1
SR2

= 177574
= 177576
SR3
= 172516
SSECTR 042132
SSYN
36722
ss1
017236
ss10
017404
$S12
017434
$S13
017442
SS14
017450
$S15
017510
$s2
017674
Ss3
017264
SS4
017270
SS5
017274
SS7
017322
STACK = 001100
START
004634
STKLMT= 177774
SWR
001140
SWREG
000176
Sw0
= 000001
Sw00 = 000001
sw01 = 000002
Sw02 = 000004
Sw03 = 000010
Sw0é = 000020
Sw05 = 000040
Sw0é6 = 000100
Sw07 = 000200
Sw08 = 000400
sw09 = 001000
sWw1
= 000002
Sw10 = 002000
SWwi1l = 004000
Sw12 = 010000
SWw13 = 020000
W14 = 040000
SW15 = 100000
SWw2
= 000004

sw3
)
SWwS
swé
SW7
Sw8
sw9
)
s12

= 000010
=
20
= 000040
= 000100
= 000200
= 000400
= 001000
011612
011746
013716
TAGDTE 001430
TBITVE= 0000i4
TDF
= 000040
TESDTE 001426
TESTAD 031002
TIMCNT 032432
TIMOT = 000004

TKVEC = 000060
TMPILL 001422
TOLGAP 041634
TOTALA 001420
TPVEC = 000064
TRAPVE= 000034
TRE
= 04000
TRK
036662
TRK1
=
0
TRK10 = 040000
TRK2 = 010000
TRK20 = 100000
TRK4 = 020000
TRTVEC= 000014
TSECC
001424
TSECCG 034562
TSTNM
003610
TST1
005362
TST10
010142
TST11
010176
TST12
01030
TST13
010374
TST14
010472
TST15
010570
TST16
010672
1ST17
010770
1S12
006066
1ST20
011072
TST21
011216
1S122
011700
TST23
012026
TST26
012146
TST25
012346
TST26
012506
1ST27
012660
TST
00?164
TST30
013000
TST31
013076
TST3
013206
TST3
013322

TST
TST35
TST36
1S137
TST4
TST40
TST41
TST4
1ST4
TST44
TST45
TST46
TST47
TSTS
TST50
TST51
TST52

013‘;3
01%5
01364¢
01377¢
006216
014074
014176
014304
014420
014550
014670
014724
015256
006756
015750
016474
017134

VAR3
016734
VAR4
016742
VARS
016774
VUF
= 000002
vu30 = 010000
vy
= 000100
WAIT.T 032434
= 1046415
wC
01306
WCE
= 040000
WweF
=
40
WCRC
040610
wCu
= 000001
weYL
042046
WECC1
041626
WECC2
041630
WKEY1
042052

SCNTLG
SCNTLU
$CRLF
$DBLK
$DOAGN
$DTBL
SENDAD
SENDCT
SENDMG
SENULL
$EOP
SEOPCT
$SERFLG
$E
$ERROR
$ERRPC
$ERRTB

TST55
021054
TST56
021600
TST57
022342
1ST6
007452
TST60
022766
TST61
023504
TST62
024230
TST63
024772
TST64
025416
TST65
026134
TST66
026670
TST67
027446
1817
010000
TST70
030224
TST71
030336
TST72
030432
TUF
= 000100
TY
037026
TYPDS = 104405
TYPE = 104401
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
T.SCOP 032036
UN
006134
UNIT
001374
UNITS
001354
UNITSL 001404
UNLOAD 001434
UNS
= 040000
UPE
= 020000
uUst
= 000001
us2
= 000002
uUsé
= 000004
UR
= 000010
un
011570
VAR1
016266
VAR2
016274

WORD
037620
WRCHDA
033120
WRCHDT 001450
WRCHEK 001446
WRCHHD 032606
WRDATA 040276
WRFROM 001500
WRHEAD 042142
WRIDAT 001452
WRIFOR 001454
WRITE
040056
WRL
= 004000
WRU _ = 000400
WSECTR 042050
WSSYNC 040576
wSU
= 000004
WTRK
042004
WWORD
040054
X
036720
XE2
006414
X1
011672
Y
036760
Y11
011266
ICODE
034576
ZER
= 000400
IWORDS 040274
$SAUTOB 001134
$BDADR 001152
$BDDAT 001126
$BELL
001%16
SCHARC 044574
SCKSWR 045120
$CMTAG 001100
$CM1 = 000006
SC:% = 000014
$C
= 000006
$CMé = 000006
SCNTLC 045671

SESCAP 001214
$FILLC 001156
$FILLS 001155
$GDADR 001120
$GDDAT 001124
$GET42 030736
$GTSWR 045210
$HD
= 000000
SHIOCT 046070
SICNT
001104
SILLUP 047456
$INTAG 001135
SITEMB 001114
SLF
001224
SLPADR 001106
SLPERR 001110
SMNEW
045721
SMSWR
045710
SMXCNT 044060
001154
SNWTST= 000001
SOCNT
047216
047220
SOVER
044044
$PASS
001100
047464
047452
SPWRDN 047312
047446
SPURUP 047364
$QUES
001222
SRDCHR 045462
SRDLIN 045552
SRDOCT 045732
$RDSZ = 000011
$REGAD 001160
$SREGO
001162
SREG1
001164

1ST53
TST564

017710
020336

WKEY2
042054
WLE
= 004000

SERRTY
SERTTL

045703
045676
001223
044276
030756
b
030746
030714
030765
030762
3
7
001103
001115
(01116
046434
001112

gZRJHEO
RP04/516 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 54-2
G;

]

SEQ 0197

001166

SSVPC = 9;14

$TKS

001144

$TPFLG

001157

STYPEC

SREGS
001174
SRTNAD 030760
$SAVRG 047462
$SCOPE 043422
$SETUP= 000117
$SS1_
= 000000
$STUP = 177777
$SVLAD 044016

$TIMES 001212
$TKB
001146
S$TKCNT 044600
STKINT 044620
$TKQEN= 044617
$TKQIN 044602
$TKQOU 044604
$TKQSR 044606

$TMP1
001200
$TMP
001202
$TMP
001204
$TMP4
001206
$TMP5
001210
$TN
= 000073
$TPB
001152

$TRAP2
$TRP =
$TRPAD
$STSTNM
S$TTYIN
$TYPDS
STYPE

047244
000016
047256
02
045660
044062
044306

STYPON 047034
$TYPOS 046774
$XOFF = 000023
$XON__= 00002
$XTSTR 043460
$$GET4= 000000
SOFILL 047217

SREG
$SREGL

001170
001172

063120
000000
ERRORS DETECTED:

$SWR =
$S URHK=

. ABS.

$TKSRV
$TMPO

000
001

VIRTUAL MEMORY USED:
56576 WORDS
( 221 PAGES)
DYNAMIC MEMORY AVAILABLE FOR 71
PAGES
CZRJHE .BIC,CZRJHE=CZRJHE.DOC,CZRJHE ,[20,0]SYSMAC/M

044670
001176

$TPS
$TRAP_

01150
047222

STYPEX
$TYPOC

044456

044576
047020