Digital PDFs

AH-9215E-MC

April 1982

198 pages

Original

10MB

view download

OCR Version

8.9MB

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_bw.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

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

POND = ad b b

2 OV 00 NN

b ed b

b owd b

NN = OO 00 NN

.REM

IDENTIFICATION

PRODUCT CODE:

AC-9213E-MC

PRODUCT NAME:

CZRJHEO

PRODUCT DATE:

NOVEMBER 1981

MAINTAINER:

CX DIAGNOSTIC GROUP

AUTHOR:

PETE BLACKSTONE

REVISED BY:

MIKE LEAVITT

RP04/5/6 DISKLESS TEST, PT 2

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 CORPORATION
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.

DIGITAL
EQUIPMENT
g?%}?fiiLITY OF ITS

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

AININI NN =

b b emd e

b e o

—

CONTENTS
[

WS AN =2 OV 00 ~NOM NS NN =2 OO0 NN N INMAIND

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

ABSTRACT
REQUIREMENTS

2.1
2.2
2.3

EQUIPMENT
STORAGE
PRELIMINARY PROGRAMS

LOADING PROCEDURE
3.1
METHOD
STARTING PROCEDURE
4.1
CONTROL SWITCH SETTINGS
4.2
STARTING ADDRESS OR ADDRESSES
4.3
PROGRAM AND/OR OPERATOUR ACTION
OPERATING PROCEDURE

5.1
5.2

ERRORS
6.1

OPERATIONAL SWITCH SETTINGS
SUB-ROUTINE ABSTRA(CTS
'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

1.0

ABSTRACT

—=b d d =P cod d d d ed b

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.

PIONININ) N

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.

2.0

REQUIREMENTS

2.1

EQUIPMENT
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 5.1 FOR A DESCRIPTION OF SOF TWARE SWITCH REGISTER
OPERATION.
4.1

CONTROL SWITCH SETTINGS

SEE SECTION 5.1
4.2

STARTING ADDRESS

SEQ 0003

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 1S POWERED UP, IT
IS REQUIRED TO GET THE DISK TO THE ‘HEADS UNLOADED'' POSITION.
AFTER A SUCCESSFUL RUN (WITH NO ERRORS) OF THIS DIAGNOSTIC
IT CAN BE ASSERTED THAT, °'‘THAT PART OF THE DCL THAT HANDLES
DATA OR DATA ASSOCIATED LOGIC IS WORKING PROPERLY''.
THIS

= O000 NP WNIANN -4 OOV

NS WN 2

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

SEQ 0004

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

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN.
WITH THIS
STARTING ADDRESS ALL THE RP04/5/6°'S ON THE SYSTEM WILL BE

TESTED ONE AT A TIME BEFORE 'END PASS'' IS PRINTED OUT.

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

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

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

6.3

THE PROGRAM.

PROGRAM AND/OR OPERATOR ACTION

LOAD THE PROGRAM INTO MEMORY.

SET STARTING ADDRESS ON THE SWITCH REGISTER

PRESS '‘LOAD ADDRESS''.

SET ''OPERATIONAL SWITCH SETTINGS'® (SEE SECTION 5.1)

WORST CASE

IS ALL SWITCHES DOWN.

PRESS ‘'START''.
6.

o0
bWNdOOG\lg\nJ\
b o o b ek

FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE
ON THE DRIVES PRESENT OR DRIVE SELECTED BEFORE '‘END
PASS'’' IS PRINTED.
THE FIRST PASS WILL REQUIRE OPERATOR
INTERVENTION iF THE PROGRAM IS NOT RUN UNDER AN ‘‘ACT-11"

MONITOR.

103

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

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

IF THE _PROGRAM 1S 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:
NEW ='

EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH
REGISTER IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT
REQUIRED,
'RUBOUT' AND ‘CONTROL U®' FUNCTIONS MAY BE USED TO
CORRECT TYPING ERRORS DURING SWITCH ENTRY

ON PROCESSORS WITH HARDWARE SWITCH REGISTER, THE °SOF TWARE'
SWITCH REGISTER MAY 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.

SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 ‘'‘OPERATiONAL
agéECH 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
??Ic}EETgAefgs 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

R e Dl

T YUK

S G

QT DS WU 9 P

'SWR = NNNNNN

T S

S S

NNOOONONOOONONO O \NWNWNYVILWAWNWNWNAE 85 85 25 8 85 I8 8N 8 B
W WWN RN N N N NN N RO NI R NV NI NI AN — = 2 2
= OV
NN
NN = O D00 N
NS WA 2OV
NN NS WA= O 000 NV
WA = O 000 NN NS WA =200 00 0NN

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

CONTROLLER.

SWITCH 11 = INHIBIT ITERATIONS

SEQ 0006

WHEN THIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL
ggEERS:E¢T EACH TEST FOUR TIMES BUT WILL DO EACH TEST

— ed and v

b e e

NS
NN =

D cnd cacd amed

D d

OO0 NN

) d d e cnd o

D e

WNN = O 000 NN

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

198

SWITCH 10 = BELL ON ERROR

WHEN,
THIS SWITCH IS SET,

THE PROGRAM FINDS AN ERROR

THE ‘BELL'"OR_"ALARM’ WiLL BE SOUNDED.
THIS SWITCH IS USEFUL
WHEN SWITCH 11 IS SET YET INFORMATION 1S NEEDED WHEN ANY ERROR
IS DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH
SWITCH 11 SET TO HELP SCOPING.
THEN IF THIS SWITCH IS
SET AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR
1S PRESENT BUT IF THE BELL OR ALARM STOPS IT MEANS THAT
THE ERROR IS NOT PRESENT.

SWITCH 9 - LOOP ON ERROR

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR
THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST

EXECUTED

''SCOPE’'

STATEMENT.

IF ON THE SECOND TIME

THROUGH AN ERROR IS FOUND IT WILL AGAIN LOOP BACK TO

THAT '‘SCOPE’'' STATEMENT.

THIS LOOPING WILL CONTINUE AS LONG

AS THE ERROR IS PRESENT AND THIS SWITCH IS SET.
HOWEVER
IF THE ERROR IS NOT PRESENT AT ANY TIME THEN IT WILL
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 0 THRU 7 HAVE
ANOTHER MEANING.
THIS MEANS THAT ANY SETTING OF SWITCH

V00NN
NN —

b e

AS TN NTNT,N
T, N1, N 1,8 1,8

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 70 10
WILL BE EXECUTED AND THEN TEST 10 WILL BE REPEATED OVER
AND OVER AGAIN.

WHEN THIS SWITCH IS NOT SET THEN SWITCHES

0 THRU 7 HAVE THE MEAING ITS NAME INDICATES.
FOR EXAMPLE SWITCH 7 IS ''STOP FURTHER COMPARES: THAT IS
IF SWITCH 8 IS NOT SET AND SWITCH 7 IS SET THEN WHEN A

DATA ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE.
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN
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_SuB-

SEQUENT TEST WILL ALSO BE LOST.

BUT WITH SWITCH 7, ONLY

THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT.

ANOTHER

EXAMPLE OF SWITCH 8 BEING LOW IS WITH SWITCH 6, WHICH

{

ASTASTAN
AT NT ST ST, V1,87, V)
NN NN NN NWNINND
OO NN
(NN = OO

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

SE@ 0007

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 SWO08 IS LOW.
IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS

SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED

IN THE DESCRIPTION OF SWITCH 8.

IF SWITCH 8 IS NOT SET

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

NAME INDICATES.
THE WORDS ARE

FOR EXAMPLE IN A 256 WORD BUFFER IF ALL

IN ERROR THEN AFTER SEEING THE_ERROR PRINTOUTS

FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8
NOT SET WILL STOP THE PRINTOUT NOF 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 PRINTI%NG ALL THE 256 WORDS WILL BE RESET
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS.

SWITCH 6 - ECC TEST=COM"ARc END RESULTS CNLY IF SWO8 IS LOW
IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SFT 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,

ONLY AT THE END OF ALL THE CLOCKS.

5.2

COMPARES WILL BE DONE

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 RP0O4
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
CANNOCT 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 IS SUGGESTED THAT IF THIS HAPPENS THE OPERATOR LOAD

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

286
287

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

290
291

1.
_LOOK IN THE TEST LISTING FOR THE 'HALT'
INSTRUCTION AND REPLACE IT PLUS THE TWO WORDS

ggg

THERE ARE TWO OPTIONS FOR THE OPERATOR:

292
293

PRINTOUTS INHIBITED,

("'TYPE

296
297
ggg

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

ggg

FOR THE TEST IN QUESTION.

300
301

IT IS ALSO POSSIBLE TO CONTINUE FROM THE HALT POINT, BUT THiS
IS NOT RECOMMENDED AS ALL FOLLOWING TESTS WILL EXHIBIT THE

%8%

%8?

SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS.
7.0

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 SOF TWARE SWITCH REGISTER AS THE ROUTINE WHICH
ASKS FOR THE SWTICH REGISTER SETTINGS IS NOT OPERABLE WHEN IN
CHAIN MODE.

gt gt
e

RESTRICTIONS

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

OO0 YOS
NN =

N NN N N NN NN

306
307
308
309
310

8.0

MISCELLANEOUS

8.1

EXECUTION TIME

350

,CPHALT'") ABOVE WITH 'NOP'S. WITH TTY ERROR
A SCOPE LOOP CAN BE INITIATED

gg}
323
ggg

%59
%%g
ggg

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

8.2
8.3

STACK POINTER
THE STACK IS INITIALLY SET TO 1000

OPERATOR SELECTABLE SCOPE LOOPS

332
333
334
335
%%9

HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS.
FOR INSTRUCTIONS REGARDING USAGE OF THESE LOOPS, HIT CONTROL
C ANY TIME WHILE THE PROGRAM IS RUNNING.
ON HITTING AN ERROR
IF THE LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BACK
= USUALLY BACK TO THE BEGINNING OF THE TEST.

338
339
340
341
342

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

SEQ 0008

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

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 7O 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.4

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

1
540
541

SEQ 0010

;*LAST REVISION 02-NOV-81
TITLE
CZRJHEQ RPQ4/5/6 DSKLS PT?2
;*COPYRIGHT (C) 1976,1978,1981
:*DIGITAL EQUIPMENT CORPORATION

*COLORADO SPGS., CO. 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

OPERATIONAL SWITCH SETTINGS

eoeocseees

543

SWITCH

ix
ix
i*
e
e
i
v
e

15
14
13
12
11
10
9
8

gzg

546

.SBTTL

001100

392 32

5§

USE

eooaoncoooannaacaamses

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 SWO8 IS LOW

BASIC CEFINITIONS

:*INITIAL ADDRESS OF THE STACK POINTER %% 1100 xex
STACK
= 1100

104000
000004

ERROR
SCOPE

000011
000012
000015
000200
177776
177776
177774
177772
177570
177570

;MISCELLANEOUS DEFINITIONS
=1
+.CODE FOR HORIZONTAL TAB
LF
=12
;. CODE FOR LINE FEED
CR
=15
::CODE FOR CARRIAGE RETURN
CRLF
= 200
:.CODE _FOR CARRIAGE RETURN-LINE FEED
PS
= 177776
; :PROCESSOR STATUS WORD
PSW=PS
STKLMT
= 177774
;s STACK LIMIT REGISTER
PIRQ
= 177772
: :PROGRAM INTEPRUPT REQUEST REGISTER
DSWR
= 177570
: sHARDWARE SWITCH REGISTER
DDISP
= 177570
: :HARDWARE DISPLAY REGISTER

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

= EMT
= IOT

::BASIC DEFINITION OF ERROR CALL
**BASIC DEFINITION OF SCOPE CALL

*GENERAL PURPOSE REGISTER DEFINITIONS

R1
R2
R3
R4
RS
R6
R7
SP
PC

=
=
=
=
=
=
=
S
=
=

%0
2
X2
X3
%4
25
26
74
%6
X7

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

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

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

SE@ 0011

aannnnmni

(=]
&H

100000

BIT1S

T
T A
I
1 T
I
A
T

200
240
300
340

:sPRIORITY
;:PRIORITY
J:PRIORITY
J:PRIORITY

JsPRIORITY LEVEL
:sPRIORITY LEVEL
:;PRIORITY LEVEL

LEVEL
LEVEL
LEVEL
LEVEL

2000

1000
400

200

100
40

::PRIORITY LEVEL

SWO1
SW00
SW9=SW09
SW8=SW08

SW7=5W07

SW6=5W06
SW5=5W05
SWb=5W04

ooog

00
=
9=81T09

NY SN NY SV SF S
¥
Y Q¥ G
elelelolelelelelalelolels]
[=lelelolelelelelelel
|=leolelelelele

—

OO =MW o~

et =t =4 ——
e
e
e

OOOOCO
=2 NN &N O\ N0

P g
By by Sy Srmng S
go
g P

——
g —)
—— =y v

;*DATA BIT DEFINITIONS (BITOO TO BIT1S)
=

g bt beme Sy

000001
001000

IO T O

Swi3
Sw12
W11
SW10
SW09
SW08
SW07
W06
SW0S
SW04
W03
SW02

@O ODDODOm DDDDO
DD oo

040000

SW3=SW03
SW2=5W02
SW1=Sw01
SW0=SW00

[ I

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

T s

s+ 'SWITC

ML
414

40
100
140

100000

R
P2

000000
000040
000100
000140
000200
000240
000300
000340

é*PRIORITY LEVEL DEFINITIONS

NOAWNS W= O

BASIC DEFINITIONS

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

SEQ 0012

BASIC DEFINITIONS

000400
009200
000100
000040
000020
000010
000004
000002
000001

BIT8=BIT08
BI117=B1707
BIT6=BIT06
BIT5=BIT0S
BIT4=BIT04
BIT3=BIT03
BIT2=BIT02
BIT1=BITO1
BIT0=BITO0

000004
000010

ERRVEC
RESVEC

000014

547

000014
000014
000020
000024
000030
000034
000060
000064
000240

:*BASIC ''CPU'" TRAP VECTOR ADDRESSES

TBITVEC
TRTVEC
BPTVEC
IOTVEC
PWRVEC
EMTVEC
TRAPVEC
TKVEC

= 4
= 10

=
=
=
=
=
=
=
=

14
14
14
20
gé
30
34
60

TPVEC
= 64
PIRQVEC = 240

gzg

.SBTTL

550

;*WORD COUNT REGISTER

gg%

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

ST BIT

;. TRACE TRAP
: BREAKPOINT TRAP (BPT)
;o INPUT/0UTPUT TRAP (I0T) #«SCOPEx+
: ;POWER FAIL
: ;EMULATOR TRAP (EMT) *«ERROR**
::"'TRAP'’ TRAP
s:TTY KEYBOARD VECTOR
;. TTY PRINTER VECTOR
; PROGRAM INTERRUPT REQUEST VECTOR

RH11/RH70 REGISTERS
(RHWC)

;*EACH BIT IS CALLED BY BIT NUMBER

553

554

;*BUS ADDRESS REGISTER (RHBA)

557

;*CONTROL AND STATUS REGISTER 2 (RH(CS2)

ggg

;*EACH BIT IS CALLED BY BIT NUMBER

560

000001

573

020000

561
562
563
564
565
566
567
568
569
570,
571
572
574
g;g

577
578
579

usils=

;UNIT SELECT (BIT #0)

000002
000004
000010
000020
000040
000190
000200
000400
001000
002000
004000
010000

use=
USé=
BA]l=
PAT=
CLR=
IR=
OR=
MPE=
MXF =
PGE=
NEM=
NED=

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

JUNIT SELECT (BIT #1)
JUNIT SELECT (BIT #2)
;BUS ADDRESS INCREMENT INHIBIT (BIT #3)
sINVERT PARITY ON MASS BUS TO EVEN (BIT #4)
;CLEAR (BIT #5)
s INPUT READY (BIT #6)
;OUTPUT READY (BIT #7)
sMASS BUS PARITY ERROR (BIT #8)
sMISSED TRANSFER ERROR (BIT #9)
sPROGRAM ERROR (BIT #10)
sNON EXISTANT MEMORY (BIT #11)
;NON EXISTANT DRIVE (BIT #12)

040000
100000

WCE=
DLT=

40000
100000

SWRITE CHECK ERROR (BIT #14)
;DATA LATE (BIT #5)

UPE=

20000

;UNIBUS PARITY ERROR (BIT #13)

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

CZRJHEO_RPQ4/5/6 DSKLS PT2 MA{RO Vv04.00 17-NOV-81 16:37:12 PAGE 4-3

SEQ 0013

RH11/RH70 REGISTERS
581

gg%

:*RP04 REGISTERS

ggg

;*CONTROL AND STATUS 1 REGISTER.

586
587
588
589
590
591
592
593
594
ggg

000001
000100
000200
000400
001000
002000
004000
020000
040000
100000

60=
[E=
RDY=
A16=
A17=
PSEL=
DVA=
MCPE=
TRE=
SC=

ggg
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000

g}g

100000

g}g

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

004000
010000
020000
040000

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

ggg
637

:GO_(BIT 40)
s INTERRUPT ENABLE (BIT #6)
;READY (BIT #7)
sHiGH ORDER UNIBUS BITS (BIT #8)
;HIGH ORDER UNIBUS BITS (BIT #9)
sPORT SELECT (BIT #10)
sDEVICE AVAILABLE (BIT #11)
¢MASSBUSS PARITY ERROR (BIT #13)
; TRANSFER ERROR (BIT #14)
sSPECIAL CONDITION (BIT #15)

;*STATUS REGISTER (RHDS1) (#01)

599
600
601
602
603
604
605
606
607
608
509

610
611
612
613

1
100
200
400
1000
2000
4000
20000
40000
100000

(#00)

DF5=
DFF20=
DIGB=
GRV=
DLG4=
DE1=
vy=
DRY=
DPR=
PROG=
LST=

1
2
&
10
20
40
100
200
400
1000
2000

;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)
;DRIVE PRESENT (BIT #8)
;PROGRAMABLE (BIT #9)
sLAST SECTOR TRANSFERRED (bIT #10)

ATA=

100000

JATTENTION ACTIVE

WRL =
MOL=
P1P=
ERR=

4000
10000
20000
40000

;WRITE LOCK (BIT #11)
;MEDIUM ON-LINE (BIT #12)
;POSITIONING OPERATION IN PROGRESS (BIT #13)
:COMPOSIT ERROR. (BIT #14)

;*ERROR REGISTER #01 (RHER1) (#02)

ILF=
ILR=
RMR=
PAR=
FER=
WCF=
ECH=
HCE=
HCRC=
AOE=
IAE=
WLE=
DTE=
OPl=
UNS=
DCK=

1
2
4
10
20

40
100
200
400
1000
2000
4000
10000
20000
40000

100000

(BIT #15)

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

JWRITE CLOCK FAIL (BIT #5)
sECC HARD ERROR (BIT #6)
sHEADER COMPARE ERROR (BIT #7)
;HEADER CRC ERROR (BIT #8)
sADDRESS OVERFLOW ERROR (BIT #9)
s INVALID ADDRESS ERROR (BIT #10)
;WRITE LOCK ERROR (BIT #11)
sDRIVE TIMING ERROR (BIT #12)
;OPERATION INCOMPLETE (BIT #M3)
;DRIVE UNSAFE (BIT #14)
;DATA CHECK ERROR (BIT 15)

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

DMD=

;DIAGINOSTIC MODE (BIT #0)

CZRJHEO RPO4/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

000002
000004
000010
000020
000040
000200
000400

001000

2
4
10
20
40
200
400
1000

sJMAINTAINABILITY CLOCK (BIT #1)
sMAINTAINABILITY INDEX (BIT #2)
JMAINTAINABILITY SECTOR CLOCK (BIT #3)
sMAINTAINABILITY READ (BIT #4)
JMAINTAINABILITY WRITE (BIT #5)
;DATA ENVELOPE (BIT #7)
:2ERO DETECT (BIT #8)
;MAINTAINABILITY SYNC DETECTED (BIT #9)

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

AT0=
AT1=
AT2=
AT3=
AT4=

1
2
4
10
20

;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE

AT6=

100

;DEVICE 6 (BIT #6)

ATS5=

AT?7=

200

O
1
2
3
&

(BIT
(BIT
(BIT
(BIT
(BIT

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

:DEVICE 5 (BIT #5)

;DEVICE 7 (BIT #7)

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

661
662
663
664
665
666

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

s*EACH BIT IS CALLED BY BIT NUMBER

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

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

MCLK=
MINX=
MSTCK=
MRD=
MWR=
DENVL=
ZER=
DTSY=

000001
000002
000004
000010
000020
000040
600100
000200
000400
001000
002000
004000
010000
020000
040000
100000

EXT1=
EXT2=
EXT4=
EXT10=
EXT20=
EXT40=
5C1=
SC2=
SCé=
SC10=
$C20=

1
2
4
10
20
40
100
200
400
1000
2000

TRK20=

100000

TRK1=
TRKZ2=
TRK4=
TRK10=

4000
10000
20000
40000

:*RP04 ERROR REGISTER #2 (RHER2)
000001

000002
000004
000010
000020
000040
000100

WCU=
CSF=
WSU=
CSU=
MSE=
TDF =
TUF=

1
2
4
10
20
40
100

SEXTENSION 1 (BIT #0)
;EXTENSION 2 (BIT #1)
;EXTENSION 3 (B.IT #2)
SEXTENSION & (BiT #3)
SEXTENSION 5 (BIT #4)
;EXTENSION 6 (BIT #5)
sSECTOR COUNT FIELD O
sSECTOR COUNT FIELD 1
sSECTOR COUNT FIELD 2
;SECTOR COUNT FIELD 3
:SECTOR COUNT FIELD &
sTRACK
s TRACK
;TRACK
sTRACK

FIELD
FIELD
FIELD
FIELD

1
%
35
4
;TRACK FIELD 5

(BIT
(BIT
(BIT
(BIT

(BIT
(BIT
(BIT
(BIT
(BIT

#11)
#12)
#13)
#14)

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

(BIT #15)

(#10)

sWRITE CURRENT UNSAFE (BIT #0)
sCURRENT SINK FAILURE (BIT #1)
JWRITE SELECT UNSAFE (BIT #2)
s CURRENT SWITCH UNSAFE (BIT #3)
+MOTOR SEQUENCE ERROR (BIT #4)
:TRANSITIONS DETECTOR FAILURE (BIT #5)
sTRANSITIONS UNSAFE (BIT #6)

SEQ@ 0015

RH11/RH70 REGISTERS
695
696
697
698
699
700
701
702
703

704
705
706

707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722

723
724

725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748

749
750
751

000200
000400
001000
002000
004000
010000

020000
100000

FEN=
WRU=
MHS=

NHS=
IXE=
vu3o=
PLU=
ACU=

2
4
1

2
4
1
P4
100000

;FAILSAFE ENABLED (BIT #47)
;WRITE READY UNSAFE (BIT #8)
sMULTIPLE HEAD SELECT (BIT #9)

sNO HEAD SELECTION (BIT #10)
s INDEX ERROR (BIT #11)

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

:ACUNSAFE (BIT #15)

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

wCu=

CSF=

WSU=

TDF=
TUF=

4
1

WRU=

(SU=
RAW=

ABS=

MHS=
NHS=
IXE=
PLU=

1
2

1000
2000
4000
20000

(BIT #13)

(#10)

sWRITE CURENT UNSAFE
sCURRENT SINK FAILURE
sCURENT SELECT UNSAFE
¢ CURRENT SWITCH UNSAFE
sREAD AND WRITE
s TRANSITIONS DETECTOR FAILURE
s TRANSITIONS UNSAFE

sABNORMAL STOP
;WRITE READY UNSAFE
sMULTIPLE HEAD SELECT
sNO HEAD SELECTION
¢ INDEX ERROR
sPLO UNSAFE

;*OFFSET REGISTER (RHOF) (#11)
000001

000010
000020
000040

OF25=
0F50=
0F100=
0F200=
0F400=
OF800=

1
2
&
1
2
&

000200
002000
004000
010000

OFREV=
HCI=
ECI=
FMT22=

2
2
4
1

000002
000004

;OFFSET 25 MICRO INCHES (BIT #0)

:OFFSET
:OFFSET
:OFFSET
:OFFSET
:OFFSET

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)

;OFFSET NECATIVE (REVERSE) (BIT #7)
;HEADER COMPARE INHIBIT (BIT #10)
;ERROR CORRECTION CODE INHIBIT (BIT #11)
;FORMAT BIT (BIT #12

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

s*CURRENT CYLINDER ADDRESS (RHCC) (#13)
s*EACH BIT IS CALLED BY BIT NUMBER
s*SERIAL NUMBER REGISTER (RHSN) (#14)
s*EACH IS CALLED BY BIT NUMBER

s*ERROR REGISTER #03 (RHER3) (#15)
000001
000002
000010

PSU=

VUF =
UWR=

2
10

sPACK SPEED UNSAFE (BIT #0)
sVELOCITY UNSAFE (BIT #1)
sANY UNSAFE EXCEPT READ/WRITE (BIT #3)

maa

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

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

SEQ 0016

RH11/RH70 REGISTERS
752
753
754
755
756
757

000020
000040
000100
040000
100000

758
759
760
761
762

PRE=
ACL=
oPDCL=
SKl=
ocyL=

20
40
100
40000
100000

;DISK PACK ROTATION ERROR (BIT #4)
cAC LOW (BIT #5)
:DC LOW (BIT #6)
sSEEK INCOMPLETE (BIT #14)
;OFF CYLINDER (BIT #15)

;*ECC POSITION REGISTER (RHEC1) (#16)
J%EACH BIT IS CALLED BY BIT NUMBER
;*ECC PATTERN REGISTER (RHEC2) (#17)
;*EACH BIT IS CALLED BY BIT NUMBER

763
764
765
766

.SBTTL

MEMORY MANAGEMENT DEFINITIONS

:*KT11 VECTOR ADDRESS
000250

MMVEC

= 250

;*KT11 STATUS REGISTER ADDRESSES
177572
177574
177576
172516

SR0
SR1
SR2
SR3

=
=
=
=

177572
177574
177576
172516

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

KIPDRO
KIPDR1
KIPDR2
KIPDR3
KIPDRG
KIPDRS
KIPDR6
KIPDR?

=
=
=
=
=
=
=
=

172300
172302
172304
172306
172310
172312
172314
172316

s*KERNEL ''I'' PAGE ADDRESS REGIGTERS
1723240
172342
172344
172346
172350
172352
172354
172356

767

KIPARQ
KIPAR1
KIPAR2
KIPARS
KIPARG
KIPARS
KIPARG
KIPAR?

=
=
=
=
=
=
=
=

172340
172342
172344
172346
172350
172352
172354
172356

TRAP CATCHER

.SBTTL

s*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A ‘', +2 HALT"
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:*LOCAT10N19‘CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG: .WORD 0
SWREG:

.SBTTL

000200
2 000204
2 000210

000137
000137
000137

TRAP CATCHER

.=0

000000

000174
000176

SEQ 0017

16:37:12 PAGE §

004620
035506
004626

.WORD

s SOFTWARE DISPLAY REGISTER
s+ SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)
JMP
JMP

JMP
.SBTTL

GABEGIN
a#BASE CH

NBEGINZ

::JUMP TO STARTING ADDRESS OF PROGRAM
¢MODIFY ADDRESSES

+SELECT DRIVE START

ACT11 HOOKS

o NNRRAANFARNARAARAARANA
AN RRAANANAR AR A RN AR RARRA RN A
S

000046
000052

000214
000046
030746
000052
020000
000214

*HOOKS REQUIRED BY ACT11
$SVPC=
42(-.

;SAVE PC

iE?gAD
"WORD 20000

221)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP
::2)SET LOC.52 TO 20000

.=$SVP(

.2 RESTORE PC

MM~

CIRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81

SEQ 0018

CZRJHED 2P04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 6
COMMON
T

.SBTTL

COMMON TAGS

JoRRARANNAARARRANAAAAAAAREEAAAANAAARRRAAAANRAANARARARAANRARNOAANAS

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

000000
000000
000000
000000
000000
000000
000000
000000
000000

$REGO:
SREG1:
$REGZ:

$REG3:
SREGé:
$REGS:

000000

377

001224

000

377

.WORD
.WORD
.WORD

olelelelolelelalelel dololelelalelels ]

::START OF COMMON TAGS
: SCONTAINS PASS COUNT
:;CONTAINS THE TEST NUMBER
; sCONTAINS ERROR FLAG
:sCONTAINS SUBTEST ITERATION COUNT
2 :CONTAINS SCOPE LOOP ADDRESS
;s CONTAINS SCOPE RETURN FOR ERRORS
sCONTAINS TOTAL ERRORS DETECTED
23 CONTAINS ITEM CONTROL BYTE
: SCONTAINS MAX. ERRORS PER TEST
; 2CONTAINS PC OF LAST ERROR INSTRUCTION
2 sCONTAINS ADDRESS OF °‘GOOD' DATA
;2 CONTAINS ADDRESS OF °'BAD' DATA
: 2CONTAINS 'GO0D’ DATA
;;CONTAINS 'BAD' DATA
; sRESERVED=-=NOT TO BE USED
s cAUTOMATIC MODE INDICATOR
s - INTERRUPT MODE INDICATOR
o

=4
o

- SWR
—

.WORD
.BYTE
.BYTE
.WORD
.WORD
-WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
-WORD
+WORD
.WORD
.WORD
.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: . WORD
177560
$TKS:
177562
$TKB:
177564
$TPS:
177566
$TPB:
:
$NULL
.BYTE
$FILLS:
SFILLC: .BYTE
$TPFLG: .BYTE
$SREGAD: .WORD

; sADDRESS OF SWITCH REGISTER
: sADDRESS OF DISPLAY REGISTER
::TTY KBD STATUS
::TTY KBD BUFFER
;:TTY PRINTER STATUS REG.

000000
000
000
000000

.=1100

OC—-=NO

$CMTAG:
$PASS:
STSTNM:
$ERFLG:
$ICNT:
SLPADR:
$LPERR:
$ERTTL:
SITEMB:
SERMAX:
$ERRPC:
$GDADR:
$8DADR:
$SGDDAT:
$BDDAT:

QOOO0O0OOOO0OOO0O0

b
e
b cd cnd and
b cnd
—d

ek =
b e
b
b
b
b
d
b
b
—

[«
e NV [V 1V IV [V IV
) 2D
N
ONOMVMESNOONSNO

NNINIMNIN)
b
b —d 2 O
OOV
NOO

001100

ADDRESS

::TTY PRINTER BUFFER REG. ADDRESS
;;CONTAINS NULL CHARACTER FOR FILLS
:;CONTAINS # OF FILLER CHARACTERS REQUIRED
;s INSERT FILL CHARS. AFTER A "LiNE FEED''

;2 'TERMINAL AVAILABLE'®' FLAG (BIT<07>=0=YES)
::CONTAINS THE ADDRESS FROM
J:WHICH (SREGO) WAS OBTAINED

:2CONTAINS
;SCONTAINS
: 2CONTAINS
2 2CONTAINS
:2CONTAINS
;:CONTAINS

:USER
:3USER
:JUSER
:JUSER
;JUSER
..USER

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

DEFINED
DEFINED
DEFINED
DEFINED
DEF INED
DEF INED

NUMBER OF ITERATIONS
ESCAPE ON ERROR ADDRESS

<207><377><377> ..CODE FOR BELL
/?/
2 sQUESTION MARK

<15>

<12>

2 :CARRIAGE RETURN
JLINE FEED

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

COMMON TAGS

SINRARRAANAAAARARAANRAARRENANAAARARANRAAAARANAARARAARARAAAAAANARRS

SEQ@ 0019

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

SEQ 0020

USER DEF INED TAGS

USER DEFINED TAGS

254

001226

000254

RPVEC:

001230
001232
001234
001236
001240
001242
001244
001246
001250
001252
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276

176722

RHDB:
RHWC:
RHBA:

OO OONONONONONONONONONONON

SBTTL

RH(CS2:

RHCS1:
RHER1:
RHDST:

RHERZ:

:
RHOF
RHCA:

RHER3:

RHAS:
RHMR:
RMDST:
RHDT:
RHSN:

176720
176736

RHEC1:
RHEC?2:
RHLA:
RHCC:

176736

sRP04/5/6 VECTOR ADDRESS
:DATA BUFFER

sWORD COUNT
:BUS ADDRESS
cCONTROL AND STATUS
sCONTRGL AND STATUS 1 SEE NOTE ABOVE
;ERROR #1 SEE NOTE ABOVE
;DESIRED SECTOR / TRACK ADDRESS

;ERROR #2

;OFFSET
:DESIRED_CYLINDER ADDRESS
E RROR #3
SATTENTION SUMMARY SEE NOTE ABOVE
sMAINTAINABILITY

:DRIVE STATUS
:DRIVE TYPE

¢ SERIAL NUMBER SEE NOTE ABOVE
sECC POSITION
sECC PATTERN
;LOOK AHEAD
s CURRENT CYLINDER ADDRESS

;ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER
001300
001302

176752
176750

RHCS3:

:
RHBAE

176752
176750

;CONTROL AND STATUS REG #3

:BUS ADDRESS EXTENSION REGISTER

¢ THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SAVES
sANY TIME THERE IS AN ERROR ALL THESE WILL BE FILLED
;ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE

001304
001306
001310
001312

000000
000000
000000
000000

001314
001316
001320
001322
001324
001326
001330
001332
001334

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

001336
001340
001342
001344
001346
001350
001352

(elelelelelolelelelelelelaleleleelslels)

;FOR THE TIME JUST AFTER THE ‘‘ERROR'‘ ERROR COMMAND

sDATA BUFFER
sWORD COUNT
:BUS ADDRESS
:CONTROL AND STATUS 2
gONTR0L1AND STATUS 1
:DESIRED SECTOR/TRACK ADDRESS

:ERROR_#2

;OFFSET
:DESIRED CYLINDER ADDRESS

;ERROR #3

SATTENTION SUMMARY
SMAINTAINABILITY

:DRIVE STATUS
sDRIVE TYPE
sSERIAL NUMBER
<ECC POSITION
sECC PATTERN
: LOOK~AHEAD

s CURRENT CYLINDER ADDRESS

CZRJHED RPQ4/5/6 DSKLS PT2 MACRO Vv04.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

OO0

001400

000000

NUNIT:

.WORD

001402
001404

000000
000000

SELECT:
UNITSL:

.WORD
.WORD

;FLAGS AND INTERNAL PROGRAM CONTROL WORDS

001406
001410

000000
000000

ERFLGS: 0
SAVDT:
O

001412

000000

SAVSN:

001414
001416
001420
001422
001424

000000
000000

PCJSR:
0
ATTENT: O

000000

TOTALAT:
TMPILL: Q
TSECC:
O

001426

000000

TESDTE: 0

001430

000000

TAGDTE:

sTHIS IS FILLED WITH -1
sUNIT UNDER TEST
¢NUMBER OF UNITS PRESENT
sUSED TO KEEP TRACK OF UNIT UNDER TEST
cUSED TO DETERMIN IF THERE ARE MORE
s THAN ONE UNIT

sALL ONES INDICATE UNIT TO BE SELECTED
¢UNIT NC. SELECTED

sERROR FLAG
;SAVE DRIVE TYPE REGISTER
sFOR COMPARISON IN DRIVE CLEAR TEST
sAND RH INIT TEST
;SAVE SERIAL NUMBER REGISTER
+FOR COMPARISON IN DRIVE CLEAR TEST
sAND RH INIT TEST
:SAVE PC OF JSR WHICH GAVE THE ERROR
sATTENTION BIT FOR PRESENT UNIT
sTOTAL ATTENTION BITS
s TEMPORARY ILLEGAL FUNCTION
sFLAG TO_SAY IF ECC TEST OR NCT
sWHEN =177777 IT IS AN ECC TEST
;WHEN =0IT IS NOT AN ECC TEST
:FLAG TO SAY_IF DRIVE

TIMING ERROR OR NOT

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

: TEMPORARY TAG USED IN DRIVE

cERROR TEST

TIMING

¢FUNCTION EQUATES

;TABLE OF COMMAND FUNCTIONS FOR RHCS1

001440
001442
001444
001446
001450
001452
001454

001456
001460
001462
001464
001466
001470
001472
001474

000000
000002
000006
000010
000012
000030

FUTABL:
NOPERA:

UNLOAD:

RECALI:

DCLEAR:

RELEAS:

SERCH:
WRCHEK:
WRCHDT:
WRIDAT:
WRIFOR:
READAT:
REFOR:
SEECOM:

OFSETC:

000000

RETCL:
PKACK:
READIN:

ILLEGL:

001432
001432
001434
001436

¢
NN
B NYNOONNNN
= - OO
NONHONIOOMNO
€ OO
j=]
=t

;THEN ''GO’" BIT HAS TO BE SET

;DATA BUFFER FOR READ WRITE

:NO OPERATION
JUNLOAD (STAND BY)
sRECALIBRATE
:DRIVE CLEAR
JRELEASE (DUAL-PORT OPERATION)
¢ SEARCH COMMAND
sWRITE CHECK DATA

sWRITE CHECK HEADER AND DATA
;WRITE DATA
sWRITE HEADER AND DATA (FORMAT)
<READ DATA
sREAD HEADER AND DATA
s SEEK _COMMAND
;OFFSET COMMAND
sRETURNTO CENTERLIN.
¢PACK ACKNOWLEDGE
;READ IN
;COMPUTED ILLEGAL FUNCTION

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

SEQ 0022

USER DEFINED TAGS

001500
002544

WRFROM:
REINTO:

.BLKW
.BLKW

274,
274.

;sWRITE FROM THIS BUFFER
sREAD INTO THIS BUFFER

003610
003612

000000
000000

TSTNM:
FIRST:

0
0

s TEST NUMBER

003614

000000

RH70:

003616

000000

SILOSZ:

+WORD

JFLAG = 1 FOR RH70 CONTROLLER
;FLAG = 0 FOR RH11

;IF ZERO WILL TYPE HEADER
sIF ONES WILL NOT TYPE HEADER

‘RH SILO SIZE

;TABLE FOR ATTENTION BITS ATTENTION TABLE

003620

001

002

004

ATABLE:

.BYTE

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

SEQ@ 0023

ERROR POINTER TABLE

.SBTTL

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
S#NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
S#NOTE2:
EACH ITEM IN THE TABLE CONTAINS 4 PGINTERS EXPLAINED AS FOLLOWS:
o
e

i
P
:

003630

é
7
8
9 003634

}? 003636

;:POINTS TO THE ERROR MESSAGE

DT
DF

*3POINTS TO THE DATA
1:POINTS TO THE DATA FORMAT

1:POINTS TO THE DATA HEADER

$ERRTB:

:ERROR 1

§
& 003630
S 003632

047476
053655

EM1
DH1

060144

DT1

*REG. ADDR.
1600D DATA
*RECEIVED DATA
:$SERRPC,$TSTNM,REGADR,
$GDDAT , $BDDAT

060676

DF 1

:WRONG DATA IN READING OR WRITING HARDWARE REGISTER
‘PC

:0.0,0.0,0

;ERROR 2

}g 003640

047557

EM2

;ERROR ON

16 003642

056650

DH33

:PC

17
18
19

20
21
22
23
24 003644

52 003646

060530

061046

DATA COMMAND

‘PC OF JSR
STEST NO
*WORD NO.
1600D DATA
:CONTENTS OF RHCS?

Dr33

*CONTENTS OF RHDS1
:CONTENTS OF RHER1
sSERRPC ,PCJSR, $TSTNM,ERWORD,$GDDAT,(S1,DS1,ERT

DF33

:0,0.0.1,0,0.0.0

JERROR 3

%g 003650

047557

EM2

JERROR ON

31 003652
32
33
34
35
3%
37
38

056434

DH32

;PC
;PC OF JSR
‘TEST NO
JWORD NO.
:G00D DATA
*BAD DATA
;CONTENTS OF RHCS?
*CONTENTS OF RHDS1

41 003654

060504

42 003656

DATA COMMAND

JCONTENTS OF RMER1

061035

DT32

DF32

:SERRPC ,PCJSR,$”STNM,ERWORD
, SGDDAT ,$BDDAT,CS1.DS1.ER1

:0,0.0.1,0,0.0.0.0,

—

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

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

SEQ 0024

ERROR POINTER TABLE

43
44
45
46 003660
47
48 003662
49

;ERROR &
047557

EM?

;ERROR ON

056237

DH31

;PC
JTEST NO

DATA COMMAND

JWORD NO.
;600D DATA
;BAD DATA

sCONTENTS OF RHCS1
;CONTENTS OF RHDS1
;CONTENTS OF RHER1
57 003664
58 003666

060462
061025

:$ERRPC,$TSTNM,
ERWORD ,$GDDAT,$BDDAT,CS1,DS1,FR1
000001 lololololol

62
63
64
65

003670
003672
003674
003676

000000
000000
060462
061025

*$ERRPC $TSTNM, ERWORD, $GDDAT ,$BDDAT,(S1,DS1,ER1
:0,0,1,0,0,0,0.0,

69 003700

047606

;ERROR ON WRITE HEADER AND DATA

71 003702

056434

JPC OF JSR
JTEST NO

;WORD NO.

;GO0D DATA
;BAD DATA

;CONTENTS OF RHCS1
;CONTENTS OF RHDS1
;CONTENTS OF RHER1

8
81 003704
gg 003706

:$ERRPC,PCJSR $TSTNM,ERWORD,$GDDAT ,$8DDAT,(S1,DS1,ER]

EM6
DH2

:E?ROR ON WRITE HEADER AND DATA

.0
:0,0,0,1,0,0 .0.0
[4
4
[4

JERROR 7

84
85
86 003710
87 003712

92 003714
93 003716

DT32
DF 32

060172
060707

DT3
DF3

:TEST NO
;WORT NO.

;GO0OD DATA
;BAD DATA
,$GDDAT , $BDDAT
;$ERRPC $TSTNM,ERWORD

:0,0,1,0,0,

;ERROR 10
97 003720
98 003722
99 003724

000000
000000
060172

0
0
DT3

*SERRPC,$TSTNM,ERWORD
, $GDDAT, $BDDAT

SEQ 0025

ERROR POINTER TABLE

}8? 003726 060707
}85

104 003730
105 003732
106
107
108
109
110
1M
112 003734

}}2 003736

DF3

:0,0,1.0.0,

;ERROR 11

047645
054103

EM11
DH11

060206

DTN

060714

}}g

DF11

; CONTROLLER OR DRIVE STATUS
SPC
“TEST NO
;FAILING REG. ADDR
*CONTENTS OF RHCS)
*CONTENTS OF RHCS2
*CONTENTS OF RHDS1
*CONTENTS OF RHER1
:$ERRPC,$TSTNM, SBDADR,(CS1,CS2.DS1.,FR1

20.0,0.6.0.0

:ERROR 12

%}g 003740

047645

EM11

:WRONG DATA FROM SILO

119 003742

053655

DH1

:PC

pT1

;GO0D DATA
*RECEIVED DATA
:$ERRPC ,REGADR ,SGDDAT ,$BDDAT

120

121
122
123 003744

}gg 003746

126
127
128 003750
129 003752
130 003754

}g; 003756

060144

060676

000000
000000
060144

060676

0
0
DT1

DF1

;2§ 003766

047700
054257

}gz 003776

155
156

20,0,0.0.0

EM14
DH14

:REGISTER FAILED
:PC
*FAILING REG. ADDR
*CONTENTS OF FAILING REG.
*CONTENTS OF RHCS?
:CONTENTS OF RHCS?2
*CONTENTS OF RHDS1

060226

060723

}29
148 003770
149
150 003772
151
152 003774

;$ERRPC,TSTNM,REGADR ,$GDDAT ,$BDDAT

:ERROR 14

141

142
143 003764

:0.0,0.0

;ERROR 13

gz
135 003760
136 003762
137
138
139
140

DF 1

;REG.ADDR

DT14

DF 14

;CONTENTS OF RHER1
*$ERRPC , $8DADR, $8DDAT,CS1,CS2.DS1,ERY

+0.0,0.0.0.0.0

;ERROR 15
047720

EM1S

054455

DH15

060250

DT1S

060733

DF15
:ERROR 16

;SPECIFIED REG. NON EXISTANT SO ABORT
;PROGRAM
‘PC
*ADDR. OF REG
JSERRPC,
T WP1

0.0

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

CZRJHED RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOvV-81 16:37:12 PAGE 8-3

SEQ 0026

ERROR POINTER TABLE
157 004000
158 004002
159
160
161
162
163 004004

}gé 004006

047770
054505

EM16
DH16

060260
060736

DT16
DF16

}gg
168 004010
169 004012
170
171
172
173
174
175

176 004014

;;g 004016

182 004022

183

050011
054642

060276

060743

EM17
DH17

pT1?7

DF17

050035

055016

EM20
DH20

060316
060752

050056
055171

200 004034

060336

060761

582

205 004040
206

DT20
DF 20

EM21
DH21

pr21

DF21

056100

EM22

207

211

;SERRPC ,$TSTNM,$BA,DB,WC,(S1,(CS2

:0,0,0.0,0.,0.0

:REGISTER FAILING
PC

;TST NO

JCONTENTS OF RHMAS
;CONTENTS OF RHDS1
*SERRPC,TSTNM ER1.ER2,ER3.AS.DS1

0.0.0,0,0.0.0

: INTERRUPT FAILING
PC
JTEST NO
JCONTENTS OF RMCS?
JCONTENTS OF RMAS
;CONTENTS OF RMDS1

J$ERRPC,TSTNM,(CS1,AS,DSY

10.0.0,0.0

:ERROR 22

:M'

"MATCH IN DRIVE PRESENT

‘

;L0 <ING AT RHAS AND RHCS2~NED(B]T#1¢)

;DRIVE PRESENT DO NOT AGREE

208
209
210

212 004042
213

RHBA
RHDB
RMWC
RHCS1
RHC(CSZ2

JERROR 21

194 004030
195 004032
196
197

585 004036

OF
OF
OF
OF
OF

:CONTENTS OF RHER3

}gg

198
199

JTEST NO
;CONTENTS
;CONTENTS
JCONTENTS
:CONTENTS
;CONTENTS

JCONTENTS OF RHER1
;CONTENTS OF RHERZ?

186

}3? 004026

JWRITE CHECK FAILING
;PC

:ERROR 20

184
185

187
188
189 004024

:0,0,0,

;ERROR 17

}gg
181 004020

;WAIT LOOP FAILED
PC
JWAT PC
BIT WANTED
‘REG. ADR.
*REG. CONT.
;SERRPC,$TMP3,$TMP1,$TMPO,
$BDDAT

JNOTE: ON DUAL PORT SYSTEM
;DRIVE ON OTHER PORT WILL NOT GIVE NED
JHENCE
THERE WILL BE A MISSMAT(CH

055304

DH22

:177777-MEANS NOT PRESENT

pC
JTEST NO

SE@ 0027

ERROR POINTER TABLE

214

;RHAS UNIT

s}g

217 004044
%}g 004046
220
221 004050
222
223
224
225 004052
226
207
ggg

230 004054

gg; 004056

537'.'

235 004060
236
237
238 004062
239

*RHCS2 UNIT

060352
060766

.22
DF 22

000000

;ERROR 23
0

000000

060766

DT22

DF22

:ERROR 24

050473

EM24

055377

DH24

240
241
242

243

244 004064

gzg 004066

*SERRPC, TSTNMS, $GDDAT , SBDDAT
:0,0,0,0
;MISSMATCH IN DRIVE PRESENT
*LOOKING AT RHAS AND RHCS2-NED(BIT#12)
*DRIVE PRESENT DO NOT AGREE
1177777-MEANS NOT PRESENT
PC
STEST NO
*RHAS UNIT

*RHCS2 UNIT

060352

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

;LOOK AHEAD REGISTER AT THE
‘BEGINNING OF A SECTOR IS IN
*ERROR
PC
CRHDST

*BAD RHLA
1600D RHLA
*SECTOR NO
060364

060772

gzg

DT24

DF 24

*SECTOR CLOCK

*SERRPC,DST,$BDDAT,STMP1,$TMP2,
$TMP3

:0.0,0.6,0

;ERROR 25

249 004070

050566

EM25

;LOOK AHEAD REGISTER IS

252 004072
253
254
255
256
257
258 004074

055377

DH24

060364

DT24

;PC
SRHDST
*BAD RHLA
$G0O0D RHLA
*SECTOR NO
*SECTOR CLOCK
*$ERRPC,DST,$BDDAT,$TMP1,$TMP2,$TMP3

ggg

ggg 004076

060772

525

TMY

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

DF 24

*IN ERROR

:0,0,0,0.0

;ERROR 26

522 004100

047645

EM11

:CONTROLLER OR DRIVE STATUS

265 004102
266
267
268
269
270

055554

DH26

:PC
‘PC OF JSR
*FAILING REGISTER ADDRESS
*CONTENTS OF RHCS1
;CONTENTS OF RHCS?
s CONTENTS OF RHDS1

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

SEQ 0028

ERROR POINTER TABLE

%;5
273 004104

g;g 004106

:CONTENTS OF RHER1
060404

061001

DT26

DF 26

:$ERRPC ,PCJSR,$BDADR, CS1,CS2,DS1,ER1

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

;ERROR 27

%;9
%;g 004110

047474

EM1

;ERROR IN READING OR WRITING HARDWARE REGISTER

280 004112
281
282
283
284

055751

DH27

:PC
JPC OF JSR
;TEST NUMBER
*FAILING REGISTER
;G00D DATA

287 004114

060426

ggg

ggg 004116

53?

*RECEIVED DATA

061011

292 004120
293 004122
294
295
296

050626
056106

299 006124

060444

ggg

ggg 004126

DT27

DF27

;ERROR 30

EM30
DH30

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

:0,0,0.0.0.0

;CURRENT CYLINDER DOES NOT REFLECT DESIRED CYLINDER REG.
PC
:PC OF JSR
JREGISTER ADDRESS
1GOOD DATA

;BAD DATA
061017

%8%

DT30

DF30

:$ERRPC ,PCJSR.REGADR,SGDDAT ,SBDDAT

:0,0,0,0.0

:ERROR 31

304 004130

050747

EM31

;ECC GENERATED IS INCORRECT

307 004132
308
309
310
311
312

057046

DH34

:PC
:TEST NUMBER
1G00D ECC1
1G0OD EC2C
JWRITTEN ECCH
JWRITTEN ECC2

%82

JEVERY WORD IN THIS SECTOR IS GIVEN IN °'DATA USED'’

;DATA USED

[

%}g 004134

060552

DT34

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

g}g 004136

061056

DF 34

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

g}g
321 004140
32

323
324
325
326
327 004142

:ERROR 32
051071

EM32

;ON READ COMMAND AFTER DATA AND ECC HAVE BEEN READ
“ECC REGISTER OR RHER1 IS IN ERROR

JONLY LOWER 11 BITS OF PATTERN REGISTER
*CAN BE READ
JTHIS SHOULD MATCH LOWER 11 BITS OF ECCT
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

328
329

;TEST NUMBER
;GO0D ECCH

330
33
g%

;600D ECC2
;PATTERN REGISTER

:RHER1

%%g 004144

060572

0T35S

;$ERRPC,TSTNM,GECC1,GECC2,EC2,ER

%gg 004146

061065

DF35

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

ggg

340 004150
341 004152
342
343

:ERROR 33

051355
057414

EM33
DH36

344

JHIGH COUNT BIT NOT HIGH AFTER 38859 CLOCKS
JPC
:PC OF JSR
;TEST NUMBER
JRHMR

345
gzg

JPOSITION REG.
JPATTERN REGISTER

gfig 004154

060614

DT36

J$ERRPC,PCJSR,TSTNM MR ,EC1,EC2

gg? 004156

061075

DF36

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

gg%

:ERROR 34

354 004160
355
356
357
358
359 004162
360
361
362
363

051427

EM34

057414

DH36

%gg 004164

060614

DT36

:SERRPC,PCJSR,TSTNM MR ,EC1 ,EC2

ggg 006166

061075

DF36

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

EM3S

;POSITION REGISTER OR 11 BITS OF
JPATTERN REGISTER INCORRECT
:LOWER 11 BITS OF PATTERN REGISTER
JSHOULD MATCH LOWER 11 BITS OF GOOD ECC1

%gg

%;9

;PATTERN REGISTER

372 004170
373
374
375

051522

378 004172
379

057551

:ERROR 35

g;g

380

381
382
384

JZERO DETECT BIT NOT HIGH WHEN TME
232 BIT ECC REGISTER HAS ITS 21 BITS
;OF ZEROS
JERROR PRINTOUT WILL CONTINUE TILL
+IERO DETECT BIT IS HIGH
:PC
JPC OF JSR
;TEST NUMBER
;RHMR
JPOSITINN REG.

sDATA ENVELOPE AND N-CODE ZEROS ARE IN DECIMAL
DH37

:PC
:TEST NUMBER

:ECC POSITION

:GOOD POSITION
;600D EC c1

26000 ECC2
sECC PATTE

)

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

SEQ 0030

ERROR POINTER TABLE

385

;DATA ENVELOPE
*N-CODE ZEROS

ggg

ggg 004174

060632

DT37

;$ERRPC, TSTNM,EC1,POSITI,GECC1,GECC2,EC2,DATENV, ZCODE

ggg 004176

061103

DF37

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

%g%

394 004200

395
396 004202
397

:ERROR 36

052016

EM36

057220

DH35

398

;ON A READ COMMAND WITH NON CORRECTABLE

snnon INSERTED DCK AND ECH SHOULD BE SET
PC
‘TEST NUMBER
1600D ECC1

399

1GO0D ECC2

400
401

*PATTERN REGISTER
*POSITION REGISTER

28%

:RHER1

zgg 004204 060572
zgg

T35

;$SERRPC,TSTNM,GECC1,GECC2,EC2,ECT,ERT

:ERROR 37

410 004210

052203

EM37

;ERROR ON

413 004212
414
415

056237

DH31

:PC
STEST NO
*WORD NO.

2}5

416
417

1G00D DATA
*BAD DATA

418
419
259
422 006214

233 004216

425
426
427 004220
428 004222

429 004224
259 004226

*CONTENTS OF RHCS1
*CONTENTS OF RHDS1
*CONTENTS OF RHER1
060462

061025

440

441

DT31

DF31

ssnapc srsrnn ERWORD, $GDDAT, $8DDAT,CS1.DS1,ER1

1.6.0,0,0.0,

JERROR 40
000000
000000

060462
061025

g%
43% 004230
435
436
437 004232
438
439

DATA COMMAND

‘WITH A16 A17 USED

0
0

D131
DF31

;

seanpc srsr~n ERWORD, $GDDAT, $8DDAT,CS1.DS1,ER1
1.6,0,0,0.0,

:ERROR 41
052271

EM40

057767

DH40

;THERE WAS A READ/WRITE HEADER & DATA
*ERROR DURING °‘DTE' TEST SETUP - THE
‘TEST IS ABORTED AT THAT POINT
PC
STEST NO
*FAILING REGISTER ADDRESS
*CONTENTS OF

RHCS?

:CONTENTS OF RH(S?2

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

SEQ 0031

ERROR POINTER TABLE

442
463
444 004234

060656

zzg 004236 061114

447
448

449
450
451
225

004240
004242
004244
004246

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

061124
062570
063046
063104

EM42
DH4
2
DT42
DF42

;ERROR PC,TEST NUMBER, REGISTER ADDRESS.

:ERROR 43

456 004250
457 004252
458 004254
228 004256
461
462

061207
062570
063046
063104

EM43
DH42
DT42
DF42

;ERROR PC,TEST NUMBER, REGISTER ADDRESS.

:ERROR 44

463 004260
464 004262
465 004264
229 004266
468
469
470 004270
471 004272
472 004274

061253
062650
063056
063107

475
476
477 004300
478 004302
479 004304

239 004306

(82
483
484 004310
485 004312
486 004314
23; 004316

EM44
DH44
DT44
DF 44

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

:ERROR 45
061310
062650
063056

2;2 004276 063107

491
492
493
2gg

DF40
;ERROR 42

222

489
490

DT40

;CONTENTS OF RHDS1
*CONTENTS OF RHER1
*$ERRPC ,$TSTNM, $BDADR, CS1,CS2,DS1,ER1

EM4S
DH44
DT644

DFé44

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

;ERROR 46
061337
062650
063056

063107

EM46
DH44
DT44

DF 44

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

:ERROR 47
061366
062570
063046
063104

EM47
DH42
DT42
DF42

;ERROR PC,TEST NUMBER, REGISTER ADDRESS.

;ERROR 50

004320
004322
004324
004326

496
497
498 004330

061423
062650
063056
063107

EMSO
DH&4
DT44
DF 44
;ERROR S1

061461

EM51

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

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

ERROR POINTER TABLE

499
500
501
502
503
504
505

004322
004334
004336

062650
063056
063107

06150

508 004346

06310

(UL LC VLNV, [V TW 1V LV, LV, IV, 1V, ]V, ]
N
= b ed e o b b ced b d O
o VO NO NS W =O O

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

sERROR 52
004340

EMS2
DH&4
DT44
DF&44
;ERROR 53

004350
00435¢
004354
004356

0615
0626
0630
0631

EM53
i

DT44
DF 44

SERROR PC,TEST NUMBER, REGISTER APDRESS CORRECT, ACTUAL.

:ERROR 54

063072
063114

528 004374

529 004376
530
531
532
533 004400
534 004402
535 004404
539 004406
53
538
539
540 004410

541 004412
542 0044146
543 0064416
544

547 004420
548 004422
549 004424
550 004426
551
552
553
554 004430
555 004432

puiy

(=]
o
N

524
525
526 004370
527 004372

~
o

521 004364
ggg 004366

W
o
N

061602

(=4
(=]

004360

545
5 46

DH44
DT44
DFé&4

EM54
DH54
DT54
DF54

sERROR PC, TEST NUMBER.

;ERROR 55
061641
062650

063056

063107

EMSS
DH&44
DT44
DF44

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

sERROR 56
061654
062650
063056
063107

EM56
DH44
DT44
DF &4

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

;ERROR 57
061671
062650
063056
063107

EMS7
DH&
DT44
DF 44

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

sERROR 60

061720
062650
063056
063107

EM60
DH44
DT44
DF &4

;ERROR 61

062007
062650

EM61
DH44

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

SEQ@ 0032

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

ERROR POINTER TABLE

556 004434
égg 004436
559
560
561 004440
9562 004442
563 004444
564 004446
565
566
567
568 004450
569 004452
570 004454
571 004456
572
573
574
575 004460
576 004462
577 004464
g;g 004466
580
581
582 004470
583 004472
584 004474
232 004476
587
588
589 004500
590 004502
591 004504
592 004506
593
594
595
596 004510
597 004512
598 004514
599 004516
600
601
602
603 004520
604 004522
605 004524
606 004526
607
608
609
610 004530

611 004532
612 004534

06305
06310

DT44
DFé44

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

:ERROR 62
062057
062650
063056
063107

EM62
DH44
DT44
DF 44

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

;ERROR 63
062134
062650
063056
063107

EM63
DH&4
DT44
DF &4

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

:ERROR 64
062212
062650
063056
063107

EM64
DH&4
DT44
DF&44

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

;ERROR 65
062246
062650
063056
063107

EM6S
DH&4
DT&44
DF &4

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

JERROR 66
062330
062650
063056
063107

EM66
DH44
DT44
DF &4

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

;ERROR 67
062402
062761
063072
063114

EM67
DH54
DT54
DF54

sERROR PC, TEST NUMBER.

;ERROR 70
062467
062761
063072
063114

EM70
DH54
DT54
DF5¢4

sERROR PC, TEST NUMBER.

JERROR 71
062541
062650
063056

EM71
DHé44
DT44

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

SEQ 0033

CZRJHEQ RPQ4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 8-1{

ERROR POINTER TABLE

613 004536

063107

DF 44

SEQ 0034

CIRJHEQ RP04/5/6 DSKLS PT2 MACRC V04.00 17-NOV-81
ERROR POINTER TABLE

2
2 004540
004542
] 004544
6 004546
004552
004612

7 004612

8 004614

:THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS
011600
005740
022626
104401

000417

BADTMO: MOV

TST
cMP

004554

;;PE

::658:

648

010046
104402
000240

004626

005037
000403

001402

012737

177777

005227
001375
000005

000000

001402

001100

043422

000020

046072

000030

004776
005002
005010
005016
005024
005632

O0O0O00O0
ON)=dadoded
=N

NNNOO NNNNSNNN
NN NN

BN
Sppurd

001100

005034
005036

OO0
O

004770

001140

(elellelelelelelelelelele
P Par SIS Z P o Pur uur ParGuur Guur P Guur e

o
(=

&H
~
N
N

004664
004672
004700

37
37

MOV

000340
000340
047222

000340
047312

000340

001212

0012146
000001

004762
004770

000004
005036

177570
177570
177777

005044

000022

RO,-(SP)

TIMEOUT,

PC=/

;SETUP FOR TYPING OUT PC

sPUT "HALT(0)' INSTRUCTION HERE IF YOU WISH
:TO STOP ON UNEXPECTED TIMEOUT.

START OF PROGRAM

sSELECT UNIT

START:

#0
.4

sTTY LOOP,

CLR

INC
BNE
RESET

START

;OF WORD

WAIT FOR INCREMENT

sRESET THE WORLD

INITIALIZE THE COMMON TAGS

;:CLEAR THE COMMON TAGS (SCMTAG) AREA
MoV
#$CMTAG,R6
¢FIRST LOCATION TO BE CLEARED
(R6)+
CLR
s CLEAR MEMORY LOCATION
CMP
#SWR,R6
: :DONE?
BNE
.~6
¢;LOOP BACK IF NO
MOV
#STACK ,SP
::SETUP THE STACK POINTER
JoINITIALIZE A FEW VECTORS
#$SCOPE ,a#10TVEC ::IOT VECTOR FOR SCOPE ROUTINE
MG
v

MOV

#340,a# IOTVEC+2 ;:LEVEL 7

MOV

#3640, IMEMTVEC+? ; - LEVEL

MOV

000024

000004
001140
001142
174106

¢GET OVER THE ASCIZ

<CRLF>/UNEXPECTED BUS

#-1,SELECT

000036

001106
001110

JRESTORE STACK POINTER
.,TYPE ASCIZ STRING

BEGIN2: MOV

000034

001115

,658
643

;SAVE PC WHERE THE TIME OUT OCCURED
;ADJUST FC =2

;DO NOT SELECT UNIT, NORMAL RUN

000032
000026

(SP) ,RO

=(R0)
(SP)+,(SP)+

SELECT

BEGIN:

.SBTTL

004656
004660

L(ASCIZ
TYPOC
NOP

.SBTTL

WA= OV

PNOMNOMNIN)
= b b cd b D D e

NS WO

9 004616

SEQ 0035

16:37:12 PAGE 9

MOV

#SERROR,SMEMTVEC ..EHT VECTOR FOR ERROR ROUTINE

#STRAP,@# TRAPVEC” : ; TRAP CECTOR FOR TRAP CALLS
#340, alTRAPVEC*Z LEVEL 7

#SPWRDN,a#PWRVEC ..ES?ER7FA1LURE VECTOR

#3640, IPURVEC+?

;:INITIALIZE NUMBER OF ITERATIONS
:cCLEAR THE ESCAPE ON ERROR ADDRESS
c:ALLOW ONE ERROR PER TEST
MOV
#.,SLPADR
s INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#. . SLPERR
::SETUP THE ERROR LOOP ADDRESS
;sSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A '*-1°", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
S#ERRVEC,-(SP)
s SAVE ERROR VECTOR
MOV
#6438 ,8#ERRVEC
¢:SET UP EKROR VECTOR
MOV
#DSWR, SWR
::SETUP FOR A HARDWARE SWICH REGISTER
MOV
#DDISP,DISPLAY
s:AND A HARDWARE DISPLAY REGISTER
CMP
#-1,3SWR
scTRY TO REFERENCE HARDWARE SWR
BNE
663
¢ :BRANCH IF NO TIMEOUT TRAP OCCURRED
CLR

648

STIMES

CLR
[ [1]":]

$SESCAPE
#1,SERMAX

BR
MoV

65%
#65%, (SP)

::AND

THE HARDWARE SWR IS NOT = -1

s :BRANCH IF NO TIMEOUT
s+SET UP FOR TRAP RETURN

i
CZkJHES RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 9-1

SEQ 0036

INITIALIZE THE COMMON TAGS

005042

005044
005052
005060

24
25 005064
59 005072

000002

012737
012737
012637

000176
000174
000004

001140
001142

012737
012737

004540
000300

000004
000006

66$:

005100
005104
005106
005112

005227
001030
104401
000425

005166

005737

005172
005174
005202
005204
005206
88%%}2

001006
023727
001005
104406
000403
112737

;. TYPE

177777

005114

35283:
000042
001140

000176

000001

001134

32 005216
33 005222
34 005224
35 005230
36 005234
gg 005242

005227
001002
104401
005037
012777
004737

39 005246
40 005254
25 005256

032777
001403
012737

010000

173664

000001

003614

43 005264
44 005270
45 005272
005276

005737
001434
104401
000422

001402

005344

005344
005346
005352
005356

104412
042716
011637
012637

173764

TYPE PROGRAM NAME

THE NAME OF

INC
BNE
TYPE
BR

.ASCIZ

THE PROGRAM IF FIRST PASS

#-1
67%
.688
67$

:oFIRST TIME?
s :BRANCH IF NO
.,TYPE ASCIZ STRING
sGET OVER THE ASCIZ

<CRLF>aCIRJHEO - RP04/5/6 DISKLESS TEST, PT 2a<CRLF>

GET VALUE FOR SOF TWARE SWITCH REGISTER

ané?2

;;ARE WE RUNNING UNDER XXDP/ACT?

932:

BNE
CMP
BNE
GTSWR
BR
Movs

708
#1,8AUTO8

s+ SET AUTO-MODE INDICATOR

INC
BNE
TYPE
CLR
MoV
JSR

#-1
18
.PREAMB
PS
#RPVECT ,@RPVEC
PC.STKINT

sFIRST TIME THRU ?
:BR IF NO
sTYPE PRE-AMBLE MESSAGE
:SET PRCCESSOR STATUS T0 0
;THIS IS FOR UNTIMELY DRIVE INTERRUPTS
:INITIALIZE THE TTY KEYBOARD

KH70CK: BIT
BEQ
MOV

#5W12,aSWR
18
#1,RH70

LOOK TO SEE IF USING RH70
F SW12 = 0. SKIP NEXT
IF SW12
= 1, CU IS AN RH70

1$:

SELECT
ST
658
648

2200 START?
;GO TO FIRST TEST IF STARTING FROM 200
..TYPE ASCIZ STRING
:GET OVER THE ASCIZ

RDOCT
BIC
Mov
Mov

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

;ONLY KEEP LAST 3 BITS
sSAVE UNIT TO BE TESTED
sSAVE UNIT TO BE TESTED

1$:

005300

;:658:

648:
177770
001374
001404

#SWREG, SWR
s POINT TO SOF TWARE SWR
#DISPREG,DISPLAY
(SP)+ ,@#ERRVEC
;.RESTORE ERROR VECTOR

.SBTTL

177777
052441
177776
043342
044620

RTI

Mov
MOV
MoV

;SETUP "‘TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS
MOV
#BADTMO ERRVEC
;SETUP FOR UNEXPECTED TIMEOUT
MoV
#PR6, RRVEC+2
LEVEL 6
.SBTTL

005166

46
47
48
49

658:

TST

TST
BEQ
TYPE

.ASCIZ

69%
SWR ,ASWREG
708

s ;BRANCH IF YES
;. SOFTWARE SWITCH REG SELECTED?
s :BRANCH IF NO
¢sGET SOFT-SWR SETTINGS

<CRLF>/SELECT UNIT NUMBER TO BE TESTED 2/

SEQ 0037

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

REFERENCE EACH REGISTER

tttttttttttttttttttttttttttttttttttttt.tt.tt.t....'t'.fi....'...

-resr 1
REFERENCE EACH REGISTER
tnsrsnsncs EACH REGISTER BY A MOVE INSTRUCTION

005362

000004

ttttttttttt'ttttttttttttttt'ttttttttttttt'tttfil"...'."."'"Q

0053664
5 005372
9 005376

012737
012706
012737

000001
001100
000001

001212

8 005404

012737

046106

9 005412
10 005416
11 005426
12 005430
13 005434
14 005436
15 005440
16 005442

013746
012737
012700
012701
013102
005300
001375
012637

}g 005446 000455

19 005450

20 005454
21 005456
005456
22 005462
23 005470
24 005472
25 005500
26 005502
005506

012716

000002

000004
005450
000024
001230

t411:

SCOPE

003610

MOV
MOV
MOV

#1,$TIMES
#STACK, SP
#1,TSTNM

::D0 1 ITERATION
*SET UP STACK POINTER
SMOVE #1 TO TEST NUMBER

000030

MOV

#REGSA1,EMTVEC

;ERROR VECTOR SO THAT NO REGISTERS ARE SAVED

B8R

000004

18:

000004
005456

28:

38:

MOV
MOV
MOV
MOV
MOV
DEC
BNE
MOV

ERRVEC ,=(SP)
#28 ,ERRVEC
#24.R0
#RHDB,R1
a(R1)+,R2
RO
18
(SP)+,ERRVEC

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

MOV

#3$, (SP)

:SETUP RETURN ADDRESS

MOV
MOV
EMT
BIT
BNE
TYPE
BR

(SP)+ ,ERRVEC
<2(R15,$TMPT
15
#SW13,aSWR
48
,658
643

;:POP STACK INTO ERRVEC
:STORE FAILING REG ADDR

RTI

SBRANCH IF 24 DONE

012637
016137
104015
032777
001036
104401
000427

000004
177776

001200

020000

173440

27 005566

012746

000204

MOV

#204,=(SP)

29 005572
30 005574
g; 005576

104402
000000
000137

030660

TYPOC
HALT
JMP

$EOP

;FORCE THE RESTART!
2GO TC END OF PROGRAM

34 005606

013746
012737

000004
005664

MOV
MOV

ERRVEC, - (SP)
#6$ ERRVEC

::PUSH ERRVEC ON STACK
SINITIALIZE VECTOR

36 005620
37 005624
38 005630

005777
005237
104401

173456
003614
005636

ST
INC
TYPE

SRHBAE
RH70
678

005566

33 005602
005602

35 005614

005634

005662

065037

000412

005510

éigss:

003614

000004

CLR

;:67%

000420

41 005664
42 005670
43 005672

012716
000002

005672

005676

104401

000412

005700

005724

66$:

23 005662

005672

48:

LASCIZ

63:
78:

::698:

68$:

B8R

LASCIZ

;INHIBIT ERROR PRINTOUT ?
:BRANCH IF YES
2;TYPE ASCIZ STRING
S:GET OVER THE ASCIZ

<CRLF>/TO CHANGE BASE ADDRESS, RESTART AT ADDNESS /
:GET READY TO TYPE STARTING ADDRESS

*OF

‘‘CHANGE OF BASE ADDRESS'® R7UTINE

RH70

SINIT RH INDICATOR ++ C.W

663

*GET OVER rue ASCIZ

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

/
<CRLF><LF>/RH70 CONTROLLER

B8R

MOV
RT]

#7$, (SP)

:SETUP RETURN ADDRESS

,69%

;s TYPE ASCIZ STRING

TYPE

B8R

.ASCIZ

é8$

*GET OVER rue ASCIZ

<CRLF><LF>/RH11 CONTROLLER
/

SEQ 0038

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

REFERENCE EACH REGISTER

44 005724
22 005732

012737
012637

046072
000004

000

MOV
MOV

SIF

005736
005742
005746
005754

004737
005037
013777
005237

;RESTORE ERROR VECTOR SO REGISTERS ARE SAVED
:;POP STACK INTO ERRVEC

55 005766

001367

032054
003616
003616
003616

173254

ITS A RH70C MODIFY TESTS S0 AND 51

9%:

JSR
CLR
MOV
INC

PC,CLDISK
§ILOSZ
1L0SZ,aRHDB
SILOSZ

;CONTROLLER CLEAR
*CLEAR SILO COUNTER
*LOAD SILO
*KEEP COUNT

BNE

‘BRANCH IF NO

54 005760 032777 000100

173250

8IT

56 005770

000406

003616

CMP

016270
001500
000400

57
58
59
60

#SERROR,EMTVEC
(SP)+,ERRVEC

;FIND THE SILO SIZE

S0
51
52
53

8S$:

005776
006000
006004
006012

022737

001031
005037
012737
062737

61 006020

062737

63 006032
64 006040

012737
062737

gg 006062

004737

016276
016276

108
VAR1+2
SWRFROM, VAR2+2
#256. LVAR2+2

MOV
ADD

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

JSR

PC,CLDISK

000400

016275

65 006046
66 006056

001500
000404

016744
016744

016744
016774

000404
052737
032054

ADD

CLR

108:

ADD
MOV

*IS THE SILO FULL?

#262.,51L0S2

BNE
CLR
MOV
ADD

62 006026 005037 016736
062737
012737

#1IR,3RHCS2

*RH70C?

*BRANCH IF NO
*VAR1 IN TEST 50
*VAR2 IN TEST 50

#256. 'VAR2+2

VAR3+é

:VAR3 IN TEST 51

#260. (VARG
+2
#5273% VARS

:VARS IN TEST 51

‘VARG IN TEST 51

:CONTROLLER CLEAR

3233232323233 2333232382323323223223233233122332331232323222223232Z8222322323823223232

RTEST 2
RHCS2-CONTROL AND STATUS 2
*xTHIS PARTIALLY TESTS RHCS2 TO ENABLE DETERMINATION
-or THE NUMBER OF DRIVES PRESENT

006066

000004

3832322832233 2332232333223332232321322822322333323233222223823232232833
32282 ¢

006070

012737

000001

001212

;g 006102

012737

000002

003610

74 006076

012706

001100

t8712:

SCOPE

MOV

#1,8TIMES

MOV

#2,TSTNM

MOV

#STACK, SP

::D0 1

ITERATION

‘RESET STACK

*MOVE #2 TO TEST NUMBER

;CHECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RH70
006110
006114
006116
- 006122

005737
001402
000137

003614

78 006122
79 006130

013737
004537

001236
031622

81 006136
82 006140
gz 006142

000000
104001
000207

80 006134

020017

006144

64$:
006136

UN:

ST
BEQ
JMP

RH70
648
1ST3

MOV
JSR

RHCS2,UN+2
R5,.BITST

~WORD
EMT
RTS

o
1
PC

LWORD

;TEST FLAG FOR RH70 CONTROLLER
“IF FLAG = 1, THIS TEST IS SKIPPED
SJUMP TO NEXT TEST
*IF FLAG = 0, DO THIS TEST

20017

;TEST BITS IN REGISTER

"ONLY THESE BITS ARE TEST READ/WRITE
*ADDRESS OF REG. BEING TESTED
:RETURN TO BLT3 ROUTINE

t.i'ttfitttfitlttfitttt"tt"ttttttt’lt...tttt.'t.t.'tttttfi't'tl"

STEST 3

006144

006146
86 006154
87
88 006162

000004

PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT

2332822322223 212332323

012737
012737

000001
000003

013701

001256

001212
003610

T4713:

SCOPE

2232223222282

MOV
MOV

#1,8TIMES
#3 TSTNM

Mov

RHAS ,R1

3223322332223

2232232232231 2322

::D0 1
JTERATION
SMOVE #3 TO TEST NUMBER

:R1 HAS ADDRESS OF RHAS

RJHEQ RP04/5/6 DSKLS

PARTIAL TEST OF

89 006166
90 006172

91
92
93
94
95

006176
006202
006206
006210
006214

012711
011137

105737
001405
005037
010137
104001

SEQ 0039

RHAS FOR UNIT NUMBERS PRESENT

177777
001126

MOV
MOV

001126

TSTB
BEQ
CLR
MOV
EMT

001124
031620

#-1,aR1
aR1.$BDDAT

;THIS CLEARS RHAS (SURPRISED!)
STEST DATA

R1,REGADR

;BRANCH IF GOOD
-GOOD DATA
‘FAILING REG. RHAS

$8DDAT
TST4
$GDDAT
1

;WITH ONES MOVED INTO IT

.'"tttttttfittttttttttt't.t'tttttttttttttttttttt*tttttttttttttttttt

T*TEST &

TEST FOR DRIVES PRESENT USING RHAS AND RHCS2

;:tttttttttt'tttttttttttttittttttttttttt.tttttttttttttttttttttttt

006216
006220

99 006226
}89 006230

000004
012737
000005
004737

000001

032777

020000

106 006244
006250
006314

104401
000421

006252

105 006314

013701

001256

107 006324
108 006326

005012
012700

106 006320

}?3 006332

001024

013702
013704

t§T4:

BIT

#SW13,aSWR

;INHIBIT ERROR TYPEOUT ?

éi?s”

TYPE
BR
LASCIZ

658
:3TYPE ASCIZ STRING
648
L3GET OVER THE ASCIZ
<CRLF>/LOOKING AT RHAS - DRIVES PRESENT/

48:

MOV

RHAS ,R1

;R1 HAS ADDR. OF RHAS

CLR
MOV

aR2
#8. RO

RHER1,R4

*CLEAR RHCS?2
: COUNT

‘R4 HAS ADDR. OF RHER]

MOV

#-1,3R4

;MOVE ERRORS INTO RHER1

RO
18
aR1,TOTALAT

+COUNT
*BRANCH IF 8 NOT DONE
JSAVE TOTAL ATTENTION

TOTALAT+1

BNE

000010

001242

MOV

012714

113 006344
114 006346
115 006350

005300
001373
111137

001420

DEC
BNE
MovB

117 006354

105037

001421

CLRB

116

005212

177777

118 006360
119 006362

105711
001402

000137

006414

122 006370
123 006376
124 006400

032777
001402
000137

020000

104401

053107

}gg 006364

}SZ

127 006404

;gg 006410

000137

030660

INC

2%:

3s:

/X3

RHCS2,R2

aR2

1SKIP NEXT IF SO

*R2 HAS ADDR. OF RHCS?2

*INCREMENT UNIT NO.

*USED IN DRIVE CLEAR TEST

:CLEAR UPPER BYTE

TSTB
BEQ

aRl
2

STEST FOR ANY DRIVES PRESENT
*NONE RESPONDING = TYPE THE MESSAGE

BIT
8EQ
JMP

#SW13,aSwR
33
SELTST

;INHIBIT ERROR TYPE OUT?
S'NO DRIVES'' MESSAGE IF NO
ZCHECK FOR SELECTED UNIT START AND LOAD

JMP

006742

}%?

TYPE

JMP

XE2

NDRVAS

$E0P

*SOME THERE - GO FILL 'UNITS'' TABLE

:"UNITS'® TABLE WITH DESIRED DRIVE [f SO
JTYPE

°NO DRIVES PRESENT JN RHAS'

160 OUT

:SET UP UNJITS TABLE

132 006414
133 006414
134 006420

012700
012703

136 0 430
137 000432
138 006434

005300
001374
012703

135 004424

1$:

172542

;:D0 1 ITERATION

SSTART WITH AN INIT
SINITILIZE TTY XEYBOARD

111 006336

112 006342

#1,8TIMES
PC,STKINT

172676

001236

SCOPE
MOV

RESET
JSR

044620

102 006234

103 006242

001212

012723

000010
001354

177777

001356

XE2:
28:

MOV
MOV

#8. RO
SUNITS R3S

: COUNTER
*PCINTER

DEC
BNE
MOV

RO
3s
FUNITS RS

*COUNT
“BRANCH IF
*POINTER

MOV

#-1,(RS)+

“PRE.ET BLOCK TO ALL ONES
8 NOT DONE

006462

006664

006510
006516
006520
006526

001463

006530
006536
006540
006546

022777
001457
022777
001453

006550
006554

104401

000407
010546
104405
104401

006620
69 006620

017746

006632

000420

70 006624
71 006626

QOO
OO

006674
2 006674

2882
0008
NNNO

) =
d
b
ek
d e
D
d
b
D ek
-k ek

SEQ 0040

CLR
CLR

001376
000010
001176
001176

Mov
MOV

4S:

ROR

BCC

172546
024020

172566

020020

172556

024021

172546

020021

172536

024022

172526

020022

172516

MOV

CMP
BEQ
CMP
BEQ
CMp
8eQ
CMP

BEQ

CMP
BEQ
CMP
8EQ

NOUNIT
#8. R0

aR1,$TMPO
$TMPO

5%
RS ,8RHCS2

¢NO. OF UNITS PRESENT
s COUNTER

: TEMPORARY STORAGE

:SET CARRY IF ONE IN

0 BIT

zgiozo aRHDT

s INSERT UNIT NUMBER
sIS THIS A DUAL PORT RPO4 ?

#20020,3RHDT
68

:1S THIS A SINGLE PORT RPO4 ?
sTYPE DRIVE NO.IF YES

gg4021.3RHDT
#20021,8RHDT

234022.3RHDT
#20022 ,3RHDT

:TYPE DRIVE NO.

¢IS THIS A DUAL PORT RPO5 ?

:TYPE UNIT NO,

OUT

:TYPE UNIT NO.

:IS THIS A SINGLE PORT RPO5 ?
SO

:1S THIS A DUAL PORT RPO6 ?
sTYPE THE NO IF SO

;1S THIS A SINGLE PORT RPO6 ?

sTYPE THE NO IF SO

;SO TYPE OUT THE DEVICE TYPE

000405

PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-%

S PRESENT USING RHAS AND RHCS?

sNO...IT'S NOT AN RPO4/RPO5/RP06 DEVICE

006604

Q0000000000000
NN N NN~ ~
[« SV P AV NPl e) ol. oY)(e SV P X VY]

006470
006476
006500
006506

006574

(WANOWO

)
D
d) e
D
b wd i
i
D ad e
e
e
D and id
b
b
D md end
— cmd e

39 006440
40 006442
[0 30X Yo Yo Yo JU, NV VIV [V IV VIV IV IV.E 20 3 25 2k a2 22 2t 22 3
VIS NN =200
NO NS W =000~V

TEST FOR

CZRJHEO RP04/5/6

006710

006714
006716
006720
006722
006730
006736

106402
104401

000407
010523
104401
010546
104405

005237

006556
58:

006606

;.67%:
172440

006634
;;698:

001223

68:

001376

005205

5%:

001354
001376
001400

..TYPE ASCIZ STRING

TYPE
BR

65$
éds

L.ASCI2

<CRLF>/UNIT NUMBER
/

MOV
TYPDS
TYPE

R5,=(SP)

:GET READY TO TYPE UNIT NUMBER

678
66$

J2TYPE ASCIZ STRING
J:GET OVER THE ASCIZ

MOV
TYPOC
TYPE

@RHDT ,~(SP)

sGET READY TO TYPE RHDT

.ASCIZ

.69%
688

..TYPE ASCIZ STRING
GET OVER THE ASCIZ

? = NOT AN RP04/RP05/RP06 DEVICE?

.ASCI2

B8R

/. RHDT = /

sNO RP04/5/6 FOUND SO BRANCH

B8R

MOV

TYPE
MOV
TYPDS

GET OVER THE ASCIZ

RS,-(SP)

sPUT DRIVE NO. ON STACK

s TYPE DRIVE NO.

¢INCR TOTAL NO. OF UNITS

INC

NOUNIT

INC

RS
RO
43

s "RHCS2' UNIT ADDRESS

MOV
MoV
DEC

UNITS,UNIT

sSET UNIT
sSAVE NO.
sIF NUNIT
;IF NUNIT

DEC
BNE

NOUNIT NUNIT
NUNIT

sDRIVE COUNTER DOWN ONE
sTEST AND DO NEXT UNIT IF 8 NOT DONE

NO. TO FIRST ONE FOUND/OR 0
OF UNITS
= Q THEN ONLY ONE UNIT
> O THEN MORE THAN ONE UNIT

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

SEQ 0041

TEST FOR DRIVES PRESENT USING RHAS AND RH(CS?2

187
188 006742
189 006746
}g? 006750

005737
001403
013737

001402
001404

001374

198

SELTST: TST
BEQ
Mov
TERRR AR

SELECT
TSTS
UNITSL,UNIT
RN

;STARTING ADDRESS 200 ?
;BRANCH IF STARTING FROM 200
s CHANGE UNIT NUMBER TO SELECTED ONE
R RN

R RN

AR RRR RN

R AR

*TEST 5
TYPE SERIAL NUMBER AND DRIVE TYPE
;*READ SERIAL NUMBER REGISTER AND DRIVE TYPE REGISTER
*TYPE

IT OUT AND PROCEED

tTO LOOP HERE SET SWITCH 8 AND THIS TEST NO AND RESTART

199 006774

gg? 007000

[« N,N}

032054

005037

007426

004737

012737

—

000001

006766

000004

012737

(o=}
0O

006756

006760

SARNRAARAARARAAARAARARARAR
AR
AR AAAAAARARANRNRARANARARAA AR

TSTS

SCOPE

Mov

1, STIMES

2:D0 1

JSR

PC,CLDISK

SFILL UNIT NO.

MoV

001416

CLR

%8%

71§, SLPADR
ATTENT

;CLEAR

ITERATION

s;SET SCOPE LOOP ADDRESS

sTEST FOR UNIT 40

204 007004
205 007010
206 007012
207 007016
208 007022
209 007024
210
5}5 007030

005737
001022
012700
122710
001015
005737

001374

TST
BNE
MoV
CMPB
BNE
TST

000041
000011
001402

001012

BNE

213

UNIT
2IS UNIT #0 NEXT IN THE UNITS TABLE ?
108
¢1F NOT, TEST THIS UNIT
#41,R0
sIF SO, CHECK THE LOAD MEDIA LOCATION
#11,(RO)
:WAS IS AN RP04/5/6
?
108
:NO,.. GO AHEAD AND TEST UNIT #0
SELECT
;WAS UNIT #0 SELECTED
?
;(IE. WAS IT A 210 START ?)
108
:IF SO...TEST UNIT #0

JINCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY)

g%é

216 007032
217 007036
218
219 0070640
220 007044
221 007046

012700
005720

001354

177777

222 007052
553 007056

022710
001404
011037
005337
013700

001374
001376
001374

236
237 007062
238 007070

116037
104401

003620
007076

007074

007124
239 007124
240 007130
241 007132
007136
007160
242 007160
007164
243 007166
007172

000613

013746
104405
104401
000410
017746
104402
104401
000410

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

108:

001416

;:658:

001374

64$:

007140

;;678:

172102
007174

66%:

MoV
TST

#UNITS,RO
(RO)+

CMP
BEQ
MoV
DEC
MoV

#-1,(RO)
108
(RO) ,UNIT
NOUNITS ;DECREMENT BECAUSE UNIT #0 WON'T BE TESTED
UNIT,RO ;RO CONTAINS THE UNIT UNDER TEST

Mov8
TYPE

ATABLE (RO) ,ATTENT .SET APPROPRIATE ATTENTION BIT
,65%
..TYPE ASCIZ STRING

.ASCIZ

<CRLF>/TESTING DRIVE NUMBER/

MoV
TYPDS
TYPE
BR

.ASCIZ

MOV
TYPOC
TYPE
BR

sLOAD UNITS TABLE POINTER
¢SELECT THE NEXT UNIT IN THE TABLE
: (DOUBLE INCREMENT THE PNINTER)
;1S THERE ANOTHER TABLE ENTRY PRESENT ?
¢IF NOT (LOC = =1) ...MUST USE UNIT #0
sSET UP TO BE THE UNIT UNDER TEST

648

;GET OVER THE ASCIZ

UNIT,=(SP)

¢UNIT NO. TO STACK
sTYPE DRIVE NO.
s:TYPE ASCIZ STRING
:.GET OVER THE ASCIZ

,67%
66$

<CRLF>/SERIAL NO. = /

SRHSN,=(SP)
,69%
68%

;:SAVE @RHSN FOR TYPEOUT
;.60 TYPE-=OCTAL ASCII(ALL DIGITS)
;. TYPE ASCIZ STRING
:.GET OVER THE ASCIZ

D
CZRJHEQ RP04/5/6 DSKLS PT2 MACRO VO04.00 17-NOV-81 16:37:12 PAGE 10-5
15

SEQ 0042

TYPE SERIAL NUMBER AND DRIVE TYPE

007214

::698:

68s:

264 007216
245 007220

017746
104402

172044

266 007222
247 007230
248 007232
%gg 007240

022777
001425
022777
001421

024020

172034

020020

172024

251
252
253
ggg

007242
007250
007252
007260

022777
001433
022777
001427

024021

172014

020021

172004

256 007262
257 007270
258 007272
259 007300

022777
001441
022777
001435

024022

171774

020022

171764

260 007302 000451

.ASCIZ

<CRLF>/DRIVE TYPE = /

MOV
TYPOC

aRHDT,=(SP)

::SAVE @RHDT FOR TYPEOUT
$3G0 TYPE--OCTAL ASCII(ALL DIGITS)

CMP
BEQ
CMP
BEQ

#24020,aRKDT
4
#20020,3RHDT
4

;DUAL PORT RP04 ?
STYPE ASCII MSG OUT
:SINGLE PORT RPO4 ?
STYPE THE MESSAGE

CMP
BEQ
CMP
BEQ

#24021,a8RHDT
13
#20021,3RHDT
58

;DUAL PORT RPQS ?
STYPE THE MESSAGE
;SINGLE PORT RPOS ?
sTYPE THE MESSAGE

CMP
BEQ
CMP
BEQ

#24022,aRHDT
6$
#20022,aRHDT
6$

;DUAL PORT RPO6 ?
*TYPE THE MESSAGE
:SINGLE PORT RP06 ?
STYPE IT OUT

B8R

gg;

263
264

‘DRIVE IS NOT RP04/5/6 - SO

:DO NOT TYPE ANY MESSAGE OUT
:=SHOULD NEVER HAPPEN AT THIS POINT
SUNLESS DRIVE GOT SICK WHILE TESTING

522

:WAS IN PROGRESS

267 007304
007304

104401

007310 000412

48:

007312

--718:

007336

708:

269 007340
007340

268 007336 000433
007344

007372

104401

000412

270 007372

000415

007400

000412

271 007374
007374

104401

007346

..738:

7o
6$:

007402

.:758:

272 007426
273 007426
274 007432
275 007436
5;9 007444

748
005777
005777
017737
017737

171634
171626
171624
171614

1$:
001412
001410

283

TYPE

B8R

718

;:TYPE ASCIZ STR'NG

*3GET OVER THE ASCIZ

.ASCIZ

<CRLF>/DRIVE

B8R

:SKIP NEXT ONES

738

;;TYPE ASCIZ STRING

TYPE

B8R

IS AN RPO4/<CRLF>

23GET OVER THE ASCIZ

.ASCIZ

<CRLF>/DRIVE IS AN RPOS/<CRLF>

B8R

:SKIP NEXT

75%

::TYPE ASCIZ STRING

TYPE

743

ST
ST
MOV
MOV

aRHSN
SRHDT
@RHSN, SAVSN
@RHDT . SAVDT

.ASCIZ

S:GET OVER THE ASCIZ

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

;READ SERIAL NO. AND DRIVE TYPE
STHESE TWO ARE TO HELP SCOPE LOOPS
SSAVE TO CHECK IF CLR RHCS2 BIT S CLEARS ANY BITS
“SAVE TO CHECK IF CLR RHCS2 BIT 5 CLEARS ANY BITS

P 1222338230 2238232382322323222322232232232232323323823233323238222322223382232232222%]

S*TEST 6
CHECK MOL TO BE LOW
:«MAKE SURE THAT DRIVE IS OFF LINE BEFORE STARTING PROGRAM
“«]F DRIVE IS ON LINE THEN AFTER TYPE OUT THE PROGRAM WILL
**HANG FOR EVER WAITING FOR DRIVE

TO GO OFF LINE

;:tttttttt.'ttttt'tttt"t"'ttlttttt'ttttllttlttttt!ttttttttt'ttt

007452
284 007454

000004
012737

000006

003610

tS16:

SCOPE
MOV

#6,TSTNM

:MOVE #6 TO TEST NUMBER

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

SEQ 0043

CHECK MOL TO BE LCW

285 007462
286 007466

(04737
032713

032054
010000

JSR
BIT

PC,CLDISK
#MOL ,aR3

;GIVE INITILIZE
JCHECK MOL IN RHDS1

288 007474

104401

007502

TYPE

,65%

,.rvps ASCIZ STRING

287 007472

001542

007500

000420

007542
289 007542
007546

104401
000423

007550

290 007616
007622

104401
000430

007624

291 007704
292 0077210
293 007712
007716

032713
001375
104401
000430

010000

007616

007704

BEQ
;:658:

643
:

3327s’

35293:

18:

007720
-:718:

1ST7°

.ASCIZ

TYPE

643

:BRANCH IF MOL LOW

:GET OVER THE ASCIZ

<CRLF>/DRIVE IS ON LINE = MOL IS HIGH/

663

.67%

..TYPE ASCIZ STRING
:GET OVER THE ASCIZ

TYPE
BR

.69%
68$

::TYPE ASCI2 STRING
::GET OVER THE ASCIZ

BIT
BNE
TYPE
BR

#MOL ,8R3
18
718
0s

;CHECK MOL IN RHDS1
:BRANCH IF MOL IS HIGH
:sTYPE ASCIZ STRING
::GET OVER THE ASCIZ

LASCIZ

.ASCIZ

<CRLF>/HIT STOP ON DRIVE TO GET IT OFF LINE/

<CRLF>/PROGRAM WILL HANG TESTING MOL TILL MOL

IS LOW/

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

24 010000

708 :

301

. ;ttttttttttttttttttttttttQttttttttttfitttttttttttttttttttt 2222124

JaTEST 7

PACK ACKNOWLEDGE COMMAND TEST

;*THE PACK ACKNOWLEDGE COMMAND WILL BE LOADED INTO RHCS1 WITH 0

:*THEN ALL REGISTERS WILL BE CHECKED
;*RH CLEAR WILL BE GIVEN
:*THEN ALL REGISTERS WILL BE CHECKED

010000

000004

2223332232333

rsrr

2322323232323 2222232322%323¢223

SCOPE

823 2232223232322

2232232322323222 2%

302 010002

012706

001100

305 010014
306
§gg 010020

004737

032054

012777

000001

ggg 010026

013777

001470

311
312
313
314
g}g

010034
010040
010042
010044

006037
001232
002544
000023

032554

317
g}g 010046

052777

000001

171164

;GIVE GO TO PACK ACKNOWLEDGE COMMAND
BIS
#GO,8RHCS1
;GO TO PACK ACKNOWLEDGE COMMAND

320
gg; 010054

052737

000100

002574

;CHANGE SAVED REGISTERS TO EYPECTED VALUES
8IS
#VV,REINTO+30
;SAVED RHDS?

%82 010006

012737

000007

323

#STACK,SP

:RESET STACK

JSR

PC,CLDISK

171232

MoV

#DMD , 3RHMR

:INIT AND SET UP GENERAL REG.
:AND UNIT NUMBER
;SET DIAGNOSTIC MODE

171204

MoV

PKACK ,@8RHCS?

:LOAD PACK ACKNOWLEDGE COMMAND INTO RHCS1

003610

MOV

#7,TSTNM

*MOVE #7 TO TEST NUMBER

;SAVE REGISTERS FOR COMPARISON AFTER GO
JSR
RO, SAVER
:SAVE
RHWC
:FROM
REINTO
:T0
19.
;:NUMBER OF REGISTERS SAVED

:AFTER GO HAS BEEN GIVEN TO PACK ACKNOWLEDGE COMMAND

gsg

:ggvsozgclsrsns AGAIN SO THAT COMPARISONS CAN

326 010062

004037

328 010070

001500

327 010066

001232

032554

JSR

RHW(C

WRFROM

RO, SAVER

:SAVE

:FROM

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

SEQ 0044

PACK ACKNOWLEDGE COMMAND TEST

%%8 010072

331
332
333
ggg 010074

000023

113737

19.

002571

336
337
338
339 010102
340 010106
341 010110
342 010112
343 010114
344 010116

004037
002544
001500
000023
010122
010122

032756

346 010122
347 010126
gzg 010130

013705
060505
016537

037030

345 010120

350 010136
351
352
%gz 010140

010142

001525

;NUMBER OF REGISTERS SAVED

;AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT
;OPERATION THE UPPER BYIE OF RHAS WILL BE SAVED AS IS
:SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE
Movae
REINTO+25,WRFROM+25; SAVE UPPER RHAS
;COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE COMMAND
cWITH AFTER GO
JSR
RO, COMPAR
: COMPARE
REINTO
:G00D BUFFER
WRFROM
sTEST BUFFER
19.
sNUMBER
1$
¢RETURN FOR ERROR
18
s SAME
2%

sRETURN FOR GOOD COMPARISON

MOV
ACD
MoV

ERWORD ,RS
sGETTING READY TO INDEX
RS ,R5
:DOUBLE ERROR WORD
RHWC=-2(R5) ,REGADR ;FAILING REGISTER ADDRESS

104001

EMT

000207

RTS

001230

18:
031620

sAFTER PACK ACKNOWLEDGE COMMAND
:WITH GO IS GIVEN
sRETURN TO COMPARISION

%gg 010142

2%:

357

SRR RARARANRAARARARAANRAREAAN AN

J*TEST 10

369

010142
010144
010150
010156
010162
010170
010174

000004
012706
012737
004737
012777
004037
000000

001100
000010
032054
000001

034434

TST10:

003610
171070

SCOPE
MOV
MOV
JSR
MOV
JSR
.WORD

RRRAANRRANANRARANAAAARRRARARARRARAY

MAKE CURRENT CYLINDER = 0
D

T e

#STACK,SP
#10,TSTNM
PC,CLDISK

sRESET STACK
;MOVE #10 TO TEST NUMBER
¢INIT DRIVE

RO,MAKECYL
0

:DO SEEK COMMAND FOLI.OWED BY AN INIT TO
s CHANGE RHCC TO CYLINDER 0

#DMD , aRHMR

sSET DIAGNOSTIC MODE

. ttit.tttt!ttttttitttt'tt"'tt.ttttt.Qt.tt.'.t'.t"'ttfi.i't*'ttt

S*TEST 11

BCTA LEGAL REGISTER RESPONSE TEST

c*THE FOLLOWING TESTS WILL ATTEMPT TO CATCH THOSE BUGS WHICH FAULT

*INSERTION HAS SHOWN US WE MISSED IN THE FIRST PART OF THIS TEST.
tTHIS TEST WILL ASCERTAIN THAT THE ALL RH11 REGISTERS WIIL
*RESPOND TO I.E.

NOT CAUSE A NON-EXISTANT MEMORY ERROR WHEN ACCESSED

'BY A "'TST'* INSRUCTION.

AR AARRAARRRARRAANRANRANARERNAAAANRNRNANANRNRARARARARARARAARRNRARLS

010176
010200

000004
012737

000001

001212

%;} 010214

012777

000040

171014

370 010206

012737

000011

%;2 010222

012705

001240

375 010226
%;9 010234

013737
012737

000004
010272

003610

001176
000004

TaT11

SCOPE
Mov

#1,STIMES

:;00 1

MOV

#CLR,ARHCS2

sCLEAR RH11 CONTROLLER

Mov

#11, TSTNM

ITERATION

;MOVE #11 TO TEST NUMBER

MoV

#RHCS1,RS

sRS=LIST POINTER.

MoV
MOV

TIMOT,$TMPO
#E00, TIMOT

sSAVE TIMEOUT VECTOR.
:SET VECTOR TO EOO

CZR JHEO RPQ4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
TM
BCTA LEGAL REGISTER RESPONSE TEST

378 010242
379
380 010246
381 010250
382 010254
383
384 010256
385 010262
386 010266
387 010270
388
389 010272
010272

012706

001100

011502
010237
005712

031620

391 010274
392

013737

390

062705
020527
101767
000401

L00:

MOV

100:

MOV

EQO:
001176

000004

405

000:

SEQ 0045

#STACK, SP

;SET STACK POINTER.

(RS) ,R2

;R2=RH11 ADDRESS.

R2,REGADR

(R2)

:DOES THE RH11 REGISTER RESPOND?

ADD
CMP

#2,RS
RS MRHEC2

:UPDATE ADDRESS
*AT THE END OF LEGAL RH11 REGISTERS?

B8R

000

SYES! GOTO 000.

EMT

MOV

$TMPO, TIMOT

BLos

104042

MOV

000002
001272

16:37:12 PAGE 10-8

100

*NOPE

;RESTORE TIMEOUT VECTOR.

:;tttttttttttt.tttttttttttttttttttttttiiiti.*'ttitttttttttttttttt

SATEST 12

BCTA MOVB LO BYTE 70 WC

s*THE FOLLOWING 6 TESTS WILL TEST THE BYTE LOGIC FOR THE RH11 REGISTERS
s*NO ATTEMPT 1S MADE TO DETERMINE IF ALL POSSIBLE DATA PATTERNS CAN BE

;*LOADED, ONLY THAT THE RH11 HARDWARE WILL ALLOW THE PROGRAM TO SELECTIVLY
¢ *MANJPULATE BYTES USING THE FOLLOWING COMMANDS:
%

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

2). BIT SET INTO THE WORD COUNT REGISTER.

3). BIT CLEAR INTO THE WORD COUNT REGISTER.

7§T12:

SCOPE
MOV

#1,STIMES

MOV

#CLR,3RHCS2

;;tttttttttttt*ttttt*t'tt'ttttttttttttt*tttttttttttttttttttittttt

010302
010304
406 010312
407 010320
408
409 010326

H PO LW W W
A
N PO wd ad =d ek

N
b
N=2O
O
NOA\WNS

410
411 010332

000004
012737
012737
012777

000001
000012
000040

012706

001100

013702
010237
012737

001232
031620
000377

MOV

112712

000377
001126

023737
001401

001126

011237

ITERATION

‘MOVE #12 TO TEST NUMBER

MOV

#STACK, SP

;SET STACK POINTER.

MOV
MOV

RHWC ,R2
R2 ,REGADR

:R2=RH11 WC ADDRESS.
*REGISTER ADDRESS TO REGADR FOR TYPING.

*CLEAR RH11 CONTROLLER

MOV

#3977 ,$GDDAT

*SGDDAT=S/8.

L02:

CLR

(R2)

;CLEAR RH11 WC.

102:

MOVB

#377.(R2)

;SET WC TO LO BYTE.

$BDDAT,$GDDAT

;COMPARE RESULTS

001124

005012

;:D0 1

#15,TSTNM

001124

MOV

CMP

25?

104044

(R2) . $BDDAT

£2r13

CoRNRARARAARRARANAAARNRAAENANRR

SATEST 13

+$BDDAT=ACTUAL WAS

*NEXT TEST

AANRARARRAAANRANAARRARARACRANARRY

BCTA MOVB HI BYTE TO WC

::tttttttttttlfittttttttttttttttttltttltttttttttttttl'tttttt.ttttt

000001
000013
000040

tST13:

scopE

MOV

#1 STIMES

::D0 1

MOV

#CLR,SRHCS?2

*CLEAR RH11 CONTROLLER

MOV

M3 TSTNM

ITERATION

“MOVE #13 TO TEST NUMBER

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
430 010424
431 010430
432 010436
433
434 010442
435
436 010444
437
438 010446
439
440 010452
441

44z
443
444
445
446
447
448

SEQ 0046

012706

001100

MOV

#STACK,SP

:SET STACK POINTER.

013702

001232

MOV
MoV
MOV

RHWC ,R2
R2 ,REGADR

;R2=RH11 WC HI BYTE ADDRESS.

#177400, $GDDAT

;$GDDAT=S/8B.

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

:$BDDAT=ACTUAL.

CMP
BEQ
EMT

$BDDAT ,$GDDAT
1ST14
44

s COMPARE RESULTS.
¢NEXT TEST

012537

031620
177400

001124

LO3:

005012
005202
112712

000377

103:

005302

010454

011237

001126

010460
010466
010470

023737
001401
1040644

001126

001124

o NRRARRANARAAARRANRAR
RN AP AR A RANRNRRNRANRNAN S AARAARARAAARRRCARAS

SATEST 14

BCTA B1SB LO BYTE TO WC

CoRRARAARARAARANAARRN
AN A AR AAARAAANARARAANRRAR AR
AN A
RN
NSY

010472
010474

449 010502
450 010510
451
452 010516

453

454 010522
455 010526
456 010532
457
458 010540
459
460 010542
461 010546
462
463 010552
464
46" 010556
466 010564
467 010566

000004
012737
012737
012777

000001

000014
000040

001212
003610

TST14:

170520

SCOPE

MOV
MOV
Moy

#1,STIMES
#1464 ,TSTNM
#CLR,aRHCS2

::D0 1 ITERATION
;MOVE #14 TO TEST NUMBER
sCLEAR RH11 CONTROLLER

012706

001100

MOV

#STACK,
SP

sSET STACK POINTER.

013702
010237
012737

001232
031620
000377

MOV
MOV
MOV

RHWC ,R2
R2,REGADR

;R2=RH11 WC ADDRESS

#377,$GDDAT

:$GDDAT=S/8.

CLR

(R2)

:CLEAR RH11 WC.

MOV

8Is8

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

JSET UP W(C
;D0 A BIS8B

MoV

(R2) ,$BDDAT

;SBDDAT=WAS.

CMP
8EQ
EMT

$8DDAT,SGDDAT
TST15
45

s COMPARE RESULTS
sNEXT TEST

001124

005012

LO4:

012712

152712

000252
000125

011237

001126

023737
001401
104045

001126

469

104:

001124

PARARARRAARNRAAAARA
AR AARNNEIANARARAANRARANARAARNAAARARARNCRARRNRRNNRRORESY

LeTEST 15

BCTA BISB HI-BYTE TO WC

a e NARARRARRRRRNRRANNRARRA
RN
RRARNANAANAANRRAAREANNEAANARAARRNRANNS

000004

TST15:

SCOPE

MOV
MOV
MOV

#1,$TIMES

::D0 1 ITERATION

#CLR,3RHCS?

sCLEAR RH11 CONTROLLER

012777

000001
000015
0000490

012706

001100

MOV

#STACK,SP

sSET STACK POINTER.

013702
010237

001232
031620

MOV
MOV

RHW( ,R2
R2.REGADR

sR2=RH11 WC ADDRESS.

#15, TSTNM

sMOVE #15 TO TEST NUMBER

€2 R JHEO RPQ4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81
n5
BCTA BISB HI-BYTE TO WC
477 010630

012737

égg 010636 005012

177400

LOS:

481 010640
482
483 010642
484 010646
485

005202

2%9 010652

005302

488 010654

011237

001126

490 010660
491 010666

023737
001401

001126

489

492 010670
493
494

112712
152712

001124

000125
000252

105:

001124

106045

I &
16:37:12 PAGE 10-10

SEQ 0047

MOV

#177400,8GDDAT

;$GDDAT=S/B.

CLR

(R2)

;CLEAR RH11 WC.

INC

;R2 =HI BYTE.

BISB

movse

AR R2)

;DO A BISB.

DEC

sR2=FULL WORD ADDRESS.

MOV

(R2) ,$BDDAT

:SBDDAT=WAS.

CMP
BEQ
EMT

$8DDAT,$SGDDAT
Z§T16

:COMPARE RESULTS.
sNEXT TEST

;SET UP RH11 WC.

R2)

e NNRRARRARRARNRARARR
RN AN RAAARARAARRRAAAARARANAARCAAAAARAAAOCRS

LRTEST 16

BCTA BI(B LO-BYTE TO W(

CoNRRANRRAR AN AR AANRRAACAAANAAAAAARARRANCARAAARAAARACARAAORANAOAY

010672

010674

495 010702
289 010710

000004

012737
012737
012777

000001

000016
000040

001212

TST16:

SCOPE

003610
170320

MOV
MOV
Mov

#1,$TIMES
216, TSTNM
#CLR,3RHCS?2

sCLEAR RH11 CONTROLLER

283 010716

012706

001100

MoV

#STACK,
SP

sSET STACK POINTER.

500 010722
501 010726

013702
010237

001232
031620

MoV
MoV

RHWC ,R2
R2 ,REGADR

;R2=RH11 WC ADDRESS.

#252.$GDDAT

s $GDDAT=5/8.

ggg 010740

005012

CLR

(R2)

;CLEAR RH11 WC.

ggg 010742

012712

000377

MoV

#377. (R2)

:SET W(=0000377

208 010746

142712

000125

BICB

#125, (R2)

:DO A BI(B

010752

011237

001126

MOV

(R2) ,$8DDAT

:SBDDAT=WAS.

10756

023737
001401
104046

001126

CMP
BEQ
EMT

$BDDAT, $SGDDAT
TST17

s COMPARE RESULTS.
sNEXT TEST

ggg 010732

012737

000252

001124

MOV

LO06:

106:

001124

AL E

LSS

LRTEST 17
VIS AN =0 Voo~

A AIWVAIWGVIWAWAL

NONININININ)
—b b b

o AR

010770
010772
011000
011006

000004
012737
012737
012777

000001
000017
000040

o1 1014

012706

01 1020
01 }024
01 030

013702
010237
012737

001212
003610
170222

TST17:

2220808020000

2023302222

0232820

BCTA BICB HI- BYTE TO WC

AR RN AR RN ARRRNA

SCOPE

0dR

RN R AR A NN ARARARNARAANARARAANAARRORAARARARORS

MOV
MOV
MOV

#17,TSTNM

#CLR,BRHCS2

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

001100

MOV

#STACK,SP

;SET STACK POINTER.

001232
031620
125000

MOV
MOV
MoV

RHW( ,R2
R2 ,REGADR

sR2=RH11 W(C ADDRESS.

001124

32280

#1,STIMES

#125000, $GDDAT

:$GDDAT=S/8B.

cZ R JHEO RPQ4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81
117
BCTA BICB HI- BYTE TO WC
3

3
3
3
3
3

NN =OV 00~
NO VOO NV

VWA NN A VTN VTN

26
2
2
2
3
3
3
3
3

L07:

011036

005012

011040

005202

011042
011046

112712
142712

011052

005302

01105¢

011237

001126

011060
011066
011070

023737
001401

001126

000377
000125

107:

001124

106046

16:37:12 PAGE 10-11

SEQ 0048

CLR

(R2)

;CLEAR RH11 WC.

INC

;R2=HI1 BYTE.

Mov8
8I(8

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

;SET WC=177400
;D0 A 8I(CB

DEC

sR2=FULL WORD.

MOV

(R2) ,$BDDAT

:$BDDAT=WAS.

CMP
BEQ
EMT

$BDDAT,$GDDAT
12720

s COMPARE RESULTS.
¢NEXT TEST

coNARRRRANRAANLS

L2328 242202

222220200022

2202023820282 22¢8 0021

J«TEST 20
A_ILLEGAL REGISTER TEST
s*THIS TEST ATTEM: ~ TO ACCESS AN ILLEGAL REGISTER WITHIN THE RANGE

s*0OF ADDRESSES SELECTED BY THE XOR'S. THE RH11 ADDRESS DECODE LOGIC WILL .ALLOW UP 7O 32
+*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
:«WE WILL ATTEMPT TO ADDRESS REGISTER 23(8), 33(8) OR AS BEFORE THE LAST
:*REGISTER + 2.

013702

SO0

o
~

O nN
OSSN0

005737
001403
013702
000402

013737
012737

h b cd b =

OO0
—b b b =b

O0O00O0
b amd b b

000004
012737
012737
012777

oo OO0

&\I\ OO~ [« QY. IV IV, IV OV, IV, 1V
TS (V1,8 — OV~
W

AWK VIV IV IV IV IV 1V 1V |

569
270 011172

572 011176
573

005037

001272
000002
031620
001126
001124

000004
011210

012706

001100

001176
000004

L10:

005712

000024

013737

001176

010:

2022228020300 0202

2328234 22232321%]1]

#CLR,3RHCS2

::D0 1 ITERATION
;MOVE #20 TO TEST NUMBER

TST

RH70

:gfisfigrro SEE IF RUNNING WITH RH70

#1,$TIMES

;CLEAR RH11 CONTROLLER

MOV

1$
RHCS3,R2

MOV
ADD
MOV
(LR
CLR

RHEC2.R2
#2.R2
R2.REGADR
$8DDAT
$GDDAT

:R2

MoV
MOV

TIMOT,$TMPO
#010, TIMOT

sSAVE TIMEOUT VECTOR.
;SET TIMEOUT VECTOR TO 010.

Mov

#STACK,
SP

sSET THE STACK POINTER.

TST

(R2)

sTEST ADDRESS.

ADD
TST

#24 R2

(RZS

sTHIS MIGHT BE THE CASE OF 32 REGISTERS
STEST IT AGAIN

MOV

$TMPO, TIMOT

sRESTORE TIMEOUT VECTOR.

EMT

000004

0000

#20, TSTNM

BR
1%:
Cvs

%00

SCOPE
MOv
MOV
MOV
BEQ

001300

062702
005712
104047

2222222220020

TSTZO

000001
000020
000040
003614

e NRARR AR

.SKIP NEXT & DO FOLLOWING

‘R2 = LAST LEGAL RH70 REG ADDRESS
1SKIP NEXT
:R2

LAST LEGAL RH11 REG ADDRESS.
FIRST ILLEGAL ADDRESS.

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

AR R RARNAAN RN RN AN RAUNNRRARRANRARAANEARACNRAARANRANRAND

K_4&
CZRJHEO PPQ4/5/6 DSKLS PT2 MACRO Vv04.00 17 -NOV-81 16:37:12 PAGE 10-12
TN

BCTB (NED) NON-EXISTANT DRIVE TEST.

SEQ 0049

(SET)

;*TEST 21
BCTB (NED) NON-EXISTANT DRIVE TEST. (SET)
s*THE FOLLOWING TWO TESTS DETERMINE IF ALL NON DRIVES SET THE
s*NED BIT AND THAT ALL EXISTING DRIVES CLEAR THE NED BIT.
s*THE TESTS LOOK AT TOTALAT TO DETERMINE WHICH DRIVES EXIST AND TEST THAT

s*THESE DRIVES WILL CLEAR THE NED BIT. AND ALSO THAT NON EXISTANT DRIVES
c*WILL SET THE NED BIT,
;*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.

011216
011220
590 011226
gg% 011234

000904
012737
012737
012777

593 011242
ggg 011250

123727
001147

001420

596 011252

023727

001100

598
599 011260

TST21:

000001
000021
000040

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

011510
605 011510
011514

104401
000425

011516

607 011570
608
609 011574
g}? 011600

012706

001100

013702
010237

612
613
614
g}g

011604
011610
011612
011614

011672
Y11:

64253:

T
69293:

#1,STIMES

::D0 1

MOV

#CLR,BRHCS?2

;CLEAR RH11 CONTROLLER

#21,TSTNM

ITERATION

;MOVE #21 TO TEST NUMBER

TOTALAT 4377
un

sARE ALL DRIVES ON LINE.
:NO GO RUN THE TEST.

cMP

$PASS ,#0

;IF PASS #0 THEN TYPE MESSAGE
sADVISING OPERATOR

BNE
JMP

Y11
X11

TYPE
BR
LASCIZ

,65$
:;TYPE ASCIZ STRING
648
*GET OVER THE ASCIZ
<CRLF>/ALL DRIVES APPEAR TO BE ON LINE THEREFORE/

LASCIZ

TYPE

LASCIZ

TYPE

,678

663

¢ THAT THIS TEST WILL NOT BE RUN

;s TYPE ASCIZ STRING

SGET OVER THE ASCIZ

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

698

688

<CRLF>/RUN.
718

;5 TYPE ASCIZ STRING

GET OVER THE ASCIZ

T RUN THIS TEST TAKE ONE OR MORE/
;5 TYPE ASCIZ STRING

708

MoV

#STACK,SP

sSET STACK POINTER.

001236
031620

MOV
MOV

RHCS2,R2
R2,REGADR

;R2=RH11 RHCS2 ADDRESS.

013700
005001
006000
103423

001420

MOV
CLR
ROR
8CS

;?TALAT.RO
RO
N11

617 011616
g}g 011622

010137
052737

001124
010000

MOV
8IS

R1,$GDDAT
#NED, SGDDAT

:$GDDAT=S/8.

gs? 011630

013705

001240

MoV

RHCS1,RS

sADDRESS OF A DEVICE REGISTER.

622 011634

010112

Mov

R1,(R2)

sLOAD A NON-EXISTANT DRIVE.

606

76215:

011570

ut:

Si1:

001124

R11:

L11:

CMPB
BNE

TYPE

3327”

SCOPE
MOV

MOV

000000

.ASCIZ

*GET OVER THE ASCIZ

<CRLF>/DRIVES OFF=LINE AND RESTART THE PROGRAM/

121

623
624 011636
625
626 011642
627 011646
628
629 011654
2%0 011662

632 011664
633 011666
&3¢ 011673
011672
635 011674
636
637 011676
011676
638
639

Mov

011537

001176

011237
042737

001126

167770

001126

023737
001005

001126

001124

005201
020127

MOV

N11:

000010

001402
000746

E11:

104050

646 011734
647 011740
648 011744
649 011746
650 011750
651
652 011752
653
654 011756
€55

656 011762
657
658 011764
659
660 011770
661 011774
662
663 012002
66? 012010
66

JATTEMPT TO READ FROM DEVICE REGISTER.

BIC

#4C<NED'US4'US2!UST>,$BDDAT; SBDDAT=SAVED DATA.

(R2) ,$BDDAT

s SBDDAT=WAS.

CMP
BNE

E?QDAT.SGDDAT

s COMPARE RESULTS.

INC

CMP
BEQ

R1,48.
1ST22

B8R

s11

EMT

-resr 22

;TESTED ALL DRIVES YET.
SNEXT TEST

BCTB (NED) NON-EXISTANT DRIVE TEST.

(CLEARED)

2322232423233 282323232232222322222223233223232232238222323222332232223223z223¢%%

t4722:

SCOPE

000004
012737
012737
012777

000001
0000¢2
000040

012706

001100

MOV

#STACK, SP

;SET STACK POINTER.

013702

001236
031620
001420

MOV
MOV
MOV

RHCS2,R2
R2.REGADR
TOTALAT,RO

:R2=RH11 RHCS2 ADDRESS.

ROR
BCC

RO
N12

010237
013700
005001
006C00
103020

MOV

#1,$TIMES

;:D0 1

MOV

#CLR,ARHCS?2

*CLEAR RH11

MOV

S12:

CLR

#20 TSTNM

ITERATION

TMOVE #22 TO TEST NUMBER
CONTROLLER

010137

001124

MOV

R1,$GDDAT

013705

001240

MOV

RHCS1,RS

;ADDRESS OF A DEVICE REGISTER.

MoV

R1, (R2)

;SELECT UNIT.

MOV

(RS) ,$TMPO

;ATTEMPT TO READ FROM DEVICE.

(R2) ,$BDDAT

; SBDDAT=WAS.

010112

L12:

011537

001176

011237
042737

001126
167770

001126

023737
001005

001126

001124

666 012012
667 012014
668 012020

005201
020127
001402

670 012022

000751

5 012024

104050

671 012024

(R5) ,$TMPO

*tttttt’ttfitttttttt*ttttttttttttttttttiittt'tt'ttt'tttttt*ttttt
e

011700
011702
640 011710
641 011716
642
643 011724
644
645 011730

SE@ 0050

(SET)

BCTB (NED) NON-EXISTANT DRIVE TEST.

000010

MOV

BIC

#AC<NED
US4 'US2!US1>, $BDDAT

CMP

$BDDAT,$GDDAT

INC
CMP

R1
R1,48.

$12

EMT

BNE
N12:

BEQ
E12:

£12

Tsfe3

:$BDDAT=SAVED DATA.

; COMPARE RESULTS.

:TESTED ALL DRIVES.

"NEXT TEST

-l £

L4
CZRJHEQ RPO4/S5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-13

SEQ 0051

BCTB AS REGISTER TEST

—

123

677

RN RN R RN RN R AR IR

RN AR AR RN R AR AN

BCTB AS REGISTER TEST

s*TEST 23

;*TEST TO SEE IF WE CAN READ FROM THE '‘AS'' REGISTER AND NOT CAUSE

s%*A NED NON-EXISTANT DRIVE ERROR

012026
012030

000004
012737

000001

001212

ggg 012044

012777

000040

167164

678 012036

012737

000023

gg% 012052

012706

001100

683 012056

013702

001236

2%9 012070

013705

(01240

ggg 012074

012712

000007

gg? 012100

013702

gg% 012106

TST23:

003610

AAA LA

RARAAR

ARt

ARl

SCOFE
Mov

#1 STIMES

::D0 1

Mov

#CLR,8RHCS?2

sCLEAR RH11 CONTROLLER

MOV

#28, TSTNM

dstdiddss]

ITERATION

sMOVE #23 TO TEST NUMBER

MOV

#STACK,SP

sSET STACK POINTER.

MOV

RHCS2,R2

;R2=RH11 (S2 ADDRESS.

MOV

RHCS1,R5

sADDRESS OF A DEVICE REGISTER.

MOV

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

001256

MOV

RHAS ,R2

;R2= "'AS"’.

011237

001176

MOV

(R2) ,$TMPO

cATTEMPT TO READ FROM DEVICE AS.

694 012110
695 012112
239 012116

005012
013702
010237

001236
031620

CLR
MOV
Mov

(R2)
RHCS2,R2
R2.REGADR

sCLEAR AS REGISTER.
sR2=RH11 (S2 ADDRESS.

698 012122

011237

001126
167770

001126

(R2) ,$8DDAT

:SBDDAT=WAS.

701 012134
702 012142

023737
001401

001126

001124

ggg 012062

?33 012126

;82 012144

012737

042737

000007

001124

MOV

L13:

#US&L!US2!UST,$GDDAT; SGDDAT=S/8.

MOV

104051

8IC

#“C<NED!US4!US2!US1>,8BDDAT;SAVE NED AND DEVICE SELECTED.

cmp
BEQ

$BDDAT ,$GDDAT
1ST24

EMT

710

CoRRRARNA RN

AN AN

A RN

; CUMPARE RESULTS.
sNEXT TEST

ERN AN

AEAARARARRAARARARANNACRANARRNRAER

S*TEST 24
BCTC BUS ADDRESS REGISTER
c*THE NEXT THREE TESTS WILL TEST THE BUS ADDRESS REGISTER IN BOTH WCRD
s*AND BYTE MODE. THE PATTERNS ARE CHOSEN TO PICK UP ANY DROPPED OR STUCK
:

TS.
;:eziftttfitttttt..tttttt*'itltttttttttttt'tttttttttttti't‘ttttttt

012146
012150

000004
012737

000001

001212

;}% 012164

012777

000040

167044

711 012156

012737

000024

TST24:

003610

SCOPE
MOV

#1,STIMES

2:00 1

MoV

#CLR,8RHCS?

JCLEAR RH11 CONTROLLER

MOV

#24,TSTNM

ITERATION

JMOVE #2464 TO TEST NUMBER

;}g 012172

012706

001100

MOV

#STACK,SP

JSET STACK POINTER.

716 012176
717 012202
;}g 012206

013702
010237
012705

001234
03162C
012246

MOV
MoV
MOV

RHBA ,R?2
R2 ,REGADR
#LST14A RS

;R2=RH11 BA ADDRESS.

JRS=TEST LIST ADDRESS.

;g? 012212

012537

001124

L14:

MoV

(RS5)+,SGDDAT

;$GDDAT=S/8.

722 012216

013712

001124

114:

MOV
MoV

$GDDAT, (R2)

sSET BUS ADDRESS REGISTER.

725 012226

023737

001126

CMP

$8DDA.1,$GDDAT

;Sz 012222

011237

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

001126
001124

(R2) ,$BDDAT

JREAD BUS ADDRESS REGISTER.

; COMPARE RESULTS.

CZRJHEQ RPQ4/5/6 DSKLS PT2 MACRO Vv04.0C 17-NOV-81 16:37:12 PAGE 10-15
124

SEQ 0052

BCTC BUS ADDRESS REGISTER

726 012234

001401

729 012240
730 012242
731 012244
732 012246
733 012250
734 012252
735 01¢254
736 012256
737 012260
738 (012262
739 012264
740 012266
741 012270
742 012272
743 012274
764 012276
745 012300
766 012302
767 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

005715
001363
000440
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
177776
177774
177772
177766
177756
177736
77676
177576
177376
176776
175776
173776
167776
157776
137776
077776

7o 012236

763 012344

BEQ

104052

EMT

N14:

TST
BNE
BR
LST14A: 2
4
10
20
40
100
200
400
1000
2000
4000
10000
20000
40000
100000
177776
127774
177772
172766
177756
177736
127676
177576
177376
176776
175776
173776
167776
157776
137776
077776

000000

;GET NEXT TEST DATA.

(RS)
L14
TST25

;AT END OF LIST
:NO!
INEXT TEST

765

;.'t*ttt.fittfit'tttttfit'it'ti'tttl‘tttt.tt...t..""titttt'ttt.'t'tt

SATEST 25

BCTC BUS ADDRESS REGISTER LO-BYTE

.'.'ttt.titt'fitttttttttttt'tt'tl!t'tt'.'tttl'lltttt'ttttt.tt'tlt.t.

012346
012350

000004
012737

000001

001212

167 012364

012777

000040

166644

766 012356

012737

000025

T$125:

003610

SCOPE
MOV

#1,STIMES

::D0 1

MOV

#CLR.3RHCS2

:CLEAR RM11

MOV

w25, TSTNM

ITERATION

:MOVE #25 TO TEST NUMBER
CONTROLLER

769 012372

012706

001100

MOV

#STACK,SP

;RESET STACK.

271 012376
772 012402

013702
010237

00127
Nti020

MOV
MOV

RHBA,R2
R2,REGADR

;R2=RH11 BA ADDRESS.

#LETISA,RS

;RS=TEST L15T ADDRESS.

CLR

(R2)

;CLEAR RH11 BA REGISTER,

MOV

(RS)+,$GDDAT

;$GDDAT=S/8B.

773 012406

012705

012450

775 012412005012

777 012414

012537

MOV
L15:

001124

—

——

C IR JHEQ RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81
T 25

BCTC 8US ADDRESS REGISTER LO-BYTE

780 012424
781
782 012430
782 012436

785 012440

113712
011237

001124
001126

023737
001401

001126

115:
001124

104053

SEQ@ 0J53

Mov8e

$GDDAT, (R2)

(R2) ,$BDDAT

sSET BUS ADDRESS REGISTER.
sREAD BUS ADDRESS REGISTER.

CMP
8EQ

$BDDAT, $GDDAT
R15

s COMPARE RESULTS.

EMT

MoV

TST

(R5)
:zg'sno OF TEST LIST.
L15
TST26
‘NEXT TEST
;THIS LIST WILL BE USED TO LOAD THE LOWER BYTE OF THE BA REGISTER.

005715
001362
000417

R15:

000002
000004

(ST15A: 2

BNE
BR

O =3 NI NINNINNIN)
=2 SN =
NNWNOANNO
O OO0
OO OO O

779 012420

B 5
16:37:12 PAGE 10-16

000010
000020
000040
000100
000200
000376
000372
000366
000356
000336
000276
000176
000000

SRR AARA A RR AR RANARAC

J*TEST 26

RN IR ANN AR RNAAAAAA AR AR RANARRARARAAARANRNAN

BCTC BUS ADDRESS REGISTER HI-BYTE

W
o

— d b wd et ad b o

b O

WO
NS W —-O 0

00 00 00 0o Co 0o G 0o 0o 0o

o RARRAAARNAARNAARARAA
AR RN AN RAANANRNANRRRAARAANAARARRAARARAARARAAY

012546

000004
012737
012737
012777

000001
000026
000040

012706

013702
010237
012705

012552
819
82? 012554

005012

82% 012560

005202

824 012562

113712

012537

S SCOPE

#1,STIMES

#26,TSTNM
#CLR,3RHCS?2

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

001100

Mov

#STACK,SP

sRESET STACK.

001234
031620
012620

MOV
Mov
Mov

RHBA,R?2
R2,REGADR
#LST16A,R5

;R2=RH11 BA ADDRESS.

CLR

(R2)

:CLEAR BA REGISTER.

MOV

(R5)+,$GDDAT

:$GDDAT=S/8.

INC

;R2=HI BYTE ADDRESS.

Mov8

$GDDAT, (R2)

:SET BUS ADDRESS REGISTER HI-BYTE.

DEC

sR2=FULL WORD ADDRESS.

MOV
SWAB

(R2) ,$BDDAT
$GDDAT

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

CMP

$BDDAT ,$GDDAT

+ COMPARE RESULTS.

L1¢€.
001124

001124

116:

005302

828 012570
829 012574
830
831 012600

TST26:

MOV
MOV
MOV

001212
003610
166504

011237
000337

001126
001124

023737

001126

001124

sR5=TEST LIST ADDRESS.

C.5
CZRJHEO RPQ4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-17

SEQ 0054

BCTC BUS ADDRESS REGISTER HI-BYTE

840
841 012620
842 012622
843 012624
844 012626
845 012630
846 012632
847 012634
848 012636
849

001401

BEQ

R16

104053

EMT

TST
BNE
BR

(RS5)

005715
001356
000420

R16:

000002
000004
000010
000020
000040

(ST16A: 2

s OKAY

cAT END OF TEST LIST.

L16
. NOPE
18127
<NEX T TEST
sTHIS LIST WILL BE USED TO LOAD THE UPPER BYTE OF THE BA REGISTER.

NNWWNOANNNOOOOO
[2gYo X e Yo Yo Yo B
o Nolal

832 012606
833
834 012610
835
836 012612
837 012614
838 012616
839

O =2 PNINNININNNND
= SN — 8

126

000000

SRR AR RN AN AARRRNANR RN RN AR AN AR RANARARNAARAAARRARA
AR
RA AN
AY

J«TEST 27
RH11 INTERRUPT TEST
s*THIS TEST CAUSE AN RH11 INTERRUPT VIA THE SPECIAL COMMAND SEQUENCE
;*'BIS WIE,BRHCST’, THIS TEST PROVES ONLY THAT THE HARDWARE CAN HANDLE

:*INTERRUPTS PROPERLY
s

012660
012662
864 012670
865 012676
866
867 012704
868
869 012710
870 012714
871 012720
872 012724
873
874 012730
875 012736

876
877 012744
873 012750
87
880 012754
881 012760
882 012762
882 012764
88
885 012770
886

000004
012737
012737
012777

000001
000027
000040

012706

001100

001212
003610
166332

RRRAN AR RN RANAAA AR RN AR

TST27:

013702
010237
005037
005037
017737
012777

001176
166262

012706
005037

Le1:

052712

011237
104054

001124

SCOPE

RN AN ARAAARAARAARARARAARRRAARAR
AN
RAN

Moy
Mov
Mov

#1,$TIMES

;:D0_1

#CLR,BRHCS2

*CLEAR RH11

Mov

#STACK, SP

;SET STACK POINTER.

MoV
MOV

:R2=RH11 ADDRESS.

CLR
CLR

RHCST,R2
R2.REGADR
$BDDAT
$GDDAT

MOV
MoV

aRPVEC,$TMPO
#021,3RPVEC

:SAVE RH11 INTERRUPT VECTOR.
*SET RH11 INTERRUPT VECTOR TO 021.

MOV

ggrAcx,sp

;SET STACK POINTER.

8lS
NOP
NOP

#1E, (R2)

:CAUSE INTERRUPT.

MOV

(R2) ,$GDDAT

;SAVE CONTENTS OF REGISTER.

EMT

CLR

#20 TSTNM

ITERATION

*MOVE #27 TO TEST NUMBER
CONTROLLER

;$BDDAT=WAS.
*$GDDAT=S/8.

*WAIT FOR INTERRJPT.

CZRJHEO RPQO4/5/6 DSKLS PTZ HACRO V04.00 17-NOV-81 16:37:12 PAGE 10-18
127
RH11 INTERRUPT
T
%%g 012772

013777

001176

166226

021:

893

Mov

$TMPO,QRPVEC

*TEST 30

SEQ 0055
sRESTORE RH11 INTERRUPT VECTOR.

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

000004

SANARANRANARARRNARARNRAR
RN AN AN AAAARNNANRARAAAARACARAAR AN AAES

013002

012737

000001

001212

ggg 013016

012777

000040

166212

894 013010

012737

000030

003610

897 013024
898 013030
ggg 013034

013702
010237
005037

001240
031620
001124

901 013040
902 013044

012705
012712

001100
002000

905 013052
389 013056

011237
042737

001126
177677

001126

908 013064
909 013072

023737
001401

001126

001124

882 013050

g}? 013074

000005

TST30

SCOPE

MoV

#1 STIMES

2:D0 1 ITERATION

MoV

#CTLR,ARHCS2

sCLEAR RH11 CONTROLLER

MoV

L22:

915

RHCS1,R2
R2,REGADR
$GDDAT

:R2=RH11 (S1 ADDRESS

MoV
MOV

#STACK,SP
#PSEL, (R2)

sSET STACK POINTER.
+SET PORT SELECT FLOP.

MoV
BIC

(R2) ,$BDDAT
#4C<]E>,$BDDAT

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

cCMP

$8DDAT,$GDDAT
1ST31

sNEXT TEST

BEQ
EMT
e

sMOVE #30 TO TEST NUMBER

MOV
MOV
CLR

RESET

104055

#30, TSTNM

:$GDDAT=S/8

;DO A BUSA INIT.

;COMPARE RESULTS.

RARARARANANA RN E AR AR RN RNARARARARARRAARARRARA
RN RN RARANS

S*TEST 31
MXF TEST
'SET THE MXF FLOP AND READ IT BA(K.

013076

013100

g}g 013106

000004

012737

aNARARRARARA RN RN RARAN RN

000001

000031

001212

75731

003610

SCOPE

MoV

Mov

AR A RARANAAARARAAANAAAACAANRARARRA
RN

#1,STIMES

#31,TSTNM

:;D0_1

ITERATION

;MOVE #31 TO TEST NUMBER

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

005737
001402
000137

003614

g}g 013126

012777

000040

920 013134

012706

922 013144

010237

013126

921 013140

g%z 013150

013702

012737

TST
BEQ
JMP

RH70
643
TST32

sTEST FLAG FOR RH70 CONTROLLER
:IF FLAG = 1, THIS TEST IS SKIPPED
sJUMP TO NEXT TEST

MoV

#CLR,8RHCS?2

:CLEAR RH11 CONTROLLER

001100

MOV

#STACK,SP

031620

MOV

R2,REGADR

#MXF ,$GDDAT

;$GDDAT=S/8.

MoV

#MXF , (R2)

sLOAD MXF

(R2) ,$BDDAT

s SBDDAT=WAS.

013206
166102

648 :

001236

001000

MoV

001124

MoV
124:

RHCS2,R2

;IF FLAG = 0, DO THIS TEST
sSET STACK POINTER.

¢R2=RH11 (S2 ADDRESS.

ggg 013156

012712

001000

ggg 013162

011237

001126

3%8 013166

042737

176777

001126

BIC

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

931 013174
932 013202
933 013204

023737
001401
104056

001126

001124

CMpP
BEQ
EMT

$8DDAT,$GDDAT
15132
56

;COMPARE RESULTS
JNEXT TEST

CIRJHEO RPO4/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81
131
MXF T EST
934
939

16:37:12 PAGE 10-19

SEQ 0056

S*TEST 32

CSRB UNIBUS PARITY ERROR SET TEST

s#SET THE UNIBUS PARITY ERROR FLOP DIRECTLY VIA A MOV #UPE TO RHCSZ2
;*ATTEMPT TO READ IT BACK.
MR

000004
012737
012737

940
941

7§132:

000001
000032

2222

SCOPE

MOV

dRRR

022220020 00

#1,$TIMES

#35 TSTNM

;:D0 1

00202800202 20020 02020 ]

ITERATION

*MOVE #32 TO TEST NUMBER

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

013236

005737
001402
000137

003614
013322

94% 013236 012777 000040

648 :
165772

TST
8EQ
JMP

RH70
648

Mov

#CLR,QRHCS2

;CLEAR RH11

TST33

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

sJUMP TO NEXT TEST

;IF FLAG = 0, DO THIS TEST
CONTROLLER

945 013244

012706

001100

Mov

#STACK,SP

sSET STACK POINTER.

947 013250

013702
010237
012737

001236
031620

MOV
Mov
MOV

RHCS2,R2
R2 ,REGADR
#UPE , $GDDAT

;R2=RHCS2 ADDRESS.

013712
009240
000240

001124

zgg

$GDDAT, (R2)

sATTEMPT TO SET UPE.

011237
042737

001126
157777

001126

(R2) ,$BDDAT

;$SBDDAT=ACTUAL DATA.

023737

001126

001124

001401
104057

020000

001124

L30:

:$GDDAT=S/8.

NOP

MOV

BIC

#*C<UPE>,$BDDAT ;SAVE ONLY UPE.

CMP
Eg?

$8DDAT ,$GDDAT
TST33

; COMPARE RESULTS.
sNEXT TEST

RAR AR RN AR AR RN IR R AR RN R R RN AN RN AR RN RN RN AN AR AR RRRRRRRERRS

J*TEST 33
CSRB UNIBUS PARITY ERROR CLEAR TEST
s*SET THE UNIBUS PARITY ERROR FLOP AND ATTEMPT TO CLEAR IT WITH A
s *CONTROLLER CLEAR.
C e RRRRR AR

013322
013324
967 013332
968 013340

965
970 013346
971
972 013352
973 013356
974 013362
975
976 013366
977 013372

000001
000033
000040

005037

AN RRAARAARAR RN R A RNAANRARARNARARRAAARANNRARNCANI
AN ARAS

sCOPE

MOV

#1,$TIMES

;:D0 1

MoV

#CLR,8RHCS?2

*CLEAR RH11 CONTROLLER

MOV

#38 TSTNM

ITERATION

‘MOVE #33 TO TEST NUMBER

001100

Mov

#STACK,SP

;SET STACK POINTER.

001236
031620
001124

Mov
MoV

RHCS2 ,R2
R2,REGADR

:R2=RHCS2 ADDRESS.

$GDDAT

:$GDDAT=S/8.

zgg

#UPE, (R2)

sSET UNIBUS PARITY ERROR SET.

#CLR, (R2)

sCONTROLLER CLEAR.

020000

978 013374

012712
000240
000240

980 013376

012712

000040

979

TST33:

CLR

L31:

NOP

Mov

F
5
CZRJHEO RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-20
3
CSRB UNIBUS PARITY ERROR CLEAR TEST
981
982 013402

ggz 013406

011237
042737

001126
157777

001126

985 013414
986 013422

023737
001401

001126

001124

ggg 0134246

104057

MOV
BIC

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

cMP
BEQ

$8DDAT,$GDDAT
1ST34

;COMPARE RESULTS.
sNEXT TEST

EMT

993

SEQ 0057

R RN RN

RN R RN

CSRB UNIT SELECT CLEAR TEST
JeTEST 34
s*SET THE UNIT SELECT REGISTER TO DRIVE #7 ALL BITS SET. GENERATE A

s*CONTROLLER CLEAR AND VERIFY THAT THE UNIT SELECT REGISTER IS CLEARED.
IR

013426
013430

000004
012737

000001

001212

382 013444

012777

000040

165564

994 013436

012737

000034

TST34:

003610

RN RN AN

AR R AR

SCOPE
MOV

#1,$TIMES

MoV

#CLR,@RHCS?2

MoV

NN AR AN E AR AR

AN AR

RN AR TR

RRRS

;:D0 1 ITERATION

#34,TSTNM

;MOVE #34 TO TEST NUMBER

;CLEAR RH11 CONTROLLER

335 013452

012706

001100

MOV

#STACK,SP

sSET STACK POINTER.

999 013456
1000 013462

013702
010237

001124

MoV
MOV

RHCSZ ,R2
RZ,REGADR

sR2=(CS2 ADDRESS.

005037

001236
031620

1003 013472

Mov

#USL!US2'UST,(R2)

MoV

#CLR, (R2)

MoV
BIC

(R2) ,$BDDAT
sREAD RH(CS?2
#4C<US4L!US2!UST> ,$BDDAT,; SAVE DRIVE SELECT BITS.

cMP
BEQ
EMT

$BDDAT,$GDDAT
1ST35

}885 013466

CLR

1004 013476
}882 013500

012712

000240
000240

000007

L34:

}88; 013502

012712

000040

1009 013506
}8}? 013512

011237
042737

001126
177770

001126

1012 013520
1013 013526
}8}2 013530

023737
001401
104060

001126

001124

1020

NOP
NOP

$GDDAT

AR AR AR AR AR R AR AR AR

J*TEST 35

:SGDDAT=S/8B.
;LOAD RHCS2 DRIVE SELECT

;GENERATE CLR.

RN NN

;COMPARE RESULTS.
sNEXT TEST

R AR R AR AR AR AR AR RN RN AN RN R RS RN

RNRNRS

CSRB TRANSFER ERROR (TRE) - UPE

s*SET THE UPE FLOP UNIBUS PARITY ERROR. VERIFY THAT THE SETTING OF
s*ALSO SETS THE TRANSFER ERROR (TRE) FLOP
S

013532
013534

}gg; 013542

000004
012737

012737

000001

000035

001212

RNAARRR

TST35:

003610

RN AARRARAAN RN AR

SCOPE
Mov

Mov

A AN ANRRAAANRAARNAANNRANRARRAAAARANRNRAS

#1 STIMES

#35,TSTNM

::D0 1 ITERATION
;MOVE #35 TO TEST NUMBER

;CHECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RH70
013550
013554
013556
1023 013562

005737
001402
000137

003614

}8%; 013562

012777

000040

}8%9 013570

012706

001100

TST

013646

64$:

165446

BEQ
JMP

RH70
643
TST36

sJUMP TO NEXT TEST

Mov

#CLR,3RHCS?

;CLEAR RH11 CONTROLLER

Mov

#STACK,SP

sSET STACK POINTER.

sTEST FLAG FOR RH70 CONTROLLER
JIF FLAS = 1, THIS TEST IS SKIPPED
;IF FLAG = 0, DO THIS TEST

(UPE)

CZR JHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
135
CSRB TRANSFER ERROR (TRE) = UPE

SE@ 0058

MOV
Mov

RHCS2,R2

#TRE, $GDDAT

:R2=RHCS2 ADDRESS.
:$GDDAT=S/8.

MOV

#UPE, (R2)

;SET UNIBUS PARITY ERROR.

001240
031620

MOV
MOV

RHCS1,R2
R2.REGADR

;R2=RHCS1 ADDRESS.

011237
042737

001126
137777

001126

MOV

(R2) ,$BDDAT
sREAD REGISTER
#*C<TRE>,$BDDAT +SAVE TRANSFER ERROR.

023737
001401
104061

001126

007124

cMP

$8DDAT,$GDDAT
2?736

013574
013600

013702
012737

001236
040000

013606

012712

020000

013612
013616

0137062
010237

6 013622
gg 013626
39 013634
1041 013644

6. 5
16:37:12 PAGE 10-21

001124

L3S:

BIC

BEQ
EMT

s COMPARE RESULTS
cNEXT TEST

T e NARRNRRARARNANARARRA
AR AN AARAARNAAARAAAARARAARARARAARACA RN RAAY

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

000001
000036
000040

013672

012706

001100

013676
013702

013702
012737

001236
040000

013710

013700
005001

001420

purd

W
~
N
o

000004
012737
012737
012777

SyDCD

013646
013650
013656
013664

001212
003610

N
&~

W
~

(=l=l=] GDCDSECS OO OO0

ARAN I AAARARAAARRNAIARARANRANRANANAAAAARARRA
AR AR AN
RA AN

TST36:

165344

001124

006000
103420

$36:

010112

o
33253888
~
o CNDER
VNS WO §E 28

b
) —md
b
nd
D
)
e end
)
b
D
)
)
D
d and
) =D
D
D
nd
d e
)
b
b
— ad and

jelelelelelolelololelole]
H
o OO
O\Or\AV AWV
NH NN =OV00NN
W -O V0O~

SRR

L36:

013702
010237

001240
031620

011237
042737

001126
137777

001126

023737
001406

001126

001124

106062
000404

005201
020127

001352

000010

N36:

SCOPE

MoV
MoV
MOV

#1,STIMES
#36,TSTNM
#CLR,8RHCS2

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

Mov

#STACK,SP

sSET STACK POINTER.

MoV
MoV

RHCS2,R2

MOV
CLR

ROR

;R2=(S2 ADDRESS.

#TRE,$GDDAT

;$GDDAT=S/8.

TOTALAT,RO

JGET ALL AVAILABLE DRIVES DATA

R1
RO

8CS

N36

MOV
MOV

RHCS1,R2
R2.REGADR

MOV
8IC

(R2) ,$BDDAT
sREAD REGISTER.
#-C<TRE>,$BDDAT :SAVE TRE.

CMP
BEQ
EMT
BR

$BDDAT ,$GDDAT
1ST37

INC
CMP
RNE

R1
R1,48.

MOV

R1.(R2)

62
TS137

sSET NED.

sR2=RH(S1 ADDRESS.

:COMPARE RESULTS.
sNEXT TEST

SNEXT TEST

$36

o RNRAARRAAXRRRRANARA
AN AT N RRRANAAAARARANRNARNRAREAAARRRNRRRACACNNS

S*TEST 37

CSRA PSEL CLEAR TEST

s*SET THE PORT SELECT FLOP VERIFY THAT WE CAN READ T BACK.
MR

013772
013774

1080 014002

0
0
0

S 222222022000
fARRR R R0
R0 2020800323003
323322283

t5137:

SCOPE

MOV
MoV

#1,$TIMES

#37, TSTNM

ITERATION
:;D0 1
;MOVE #37 TO TEST NUMBER

CZR JHEO RPQ4/5/6 DSKLS PT2 MACRO v04.00 17=-NOV=-81
137
CSRA PSEL CLEAR TEST
1081 014010
1082
1083 014016
1084
1085 014022
1086 014026
1087 014032
1088
1089 014036
1090
1091 014042
1092
1093 014050
094 014054
1 095
1 096 014062
1 097 014070
098 014072
099
103
1

16:37:12 PAGE 10-22

SEQ@ 0059

MOV

#CLR,BRHCS?

;CLEAR RH11 CONTROLLER

001100

MOV

#STACK,SP

:SET STACK POINTER.

013702
010237
005037

001240
031620
001124

MOV
MOV

;R2=RH(S1 ADDRESS.

CLR

RHCS1,R2
R2,REGADR
$GDDAT

;$GDDAT=S/8B.

012712

002000

MOV

#PSEL, (R2)

sSET P SELECT.

012777

010040

165166

MOV

#CLR,3RHCS2

:DO A CONTROLLER CLEAR.

011237
042737

001126
175777

001126

MOV

8IC

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

023737
001401

001126

001124

CMP
BEQ
EMT

$8DDAT,$SGDDAT
TST40
64

012777

000040

012706

165220

L40:

106064

SRR RN AR RN AR AR AR AN

SATEST 40

s COMPARE RESULTS.
cNEXT TEST

N RN RN AAANARAARARAAARARAAAANARNAARAANRAAAY

CSRB COMMAND REGISTER CLEAR TEST

;*VERIFY THAT CONTROLLER CLEAR WILL CLEAR THE COMMAND REGISTER.
C e RRAARRR AR AR RN RA RN

014074
014076
1104 014104
1105 014112

1106
1107 014120
1108
1109 014124
1110 014130

1111 014134
1112
1113 014140
1114
1115 014144
1116
1117 014152

1118 014156
1119
1120 014164

1121 014172
1122 014174
1123
"N

000004
012737
012737
012777

000001
000040
000040

012706

TST40:

SCOPE

R AL E NN CRARN RN RANNRANARANAARNAARAARRAA
RN

MOV
MOV
MoV

#40, TSTNM

#CLR,3RHCS2

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

001100

MoV

#STACK,SP

;SET STACK POINTER.

013702
010237
005037

001240
031620
001124

MoV
MOV

;R2=RHCS1 ADDRESS.

CLR

RHCS1,R2
R2,REGADR
$GDDAT

:$GDDAT=S/B.

012712

000011

MoV

#11,(R2)

s ISSUE A DRIVE CLR AND GO.

012777

000040

Mov

#CLR,3RHCS2

;CONTROLLER CLEAR.

011237
042737

001126

177770

001126

023737
001401
104065

001126

001124

Lé1:
165064

#1,$TIMES

8IC

#4C<?>, SBDDAT

(R2) ,$BDDAT

sREAD COMMAND REGISTER.

CMP
BEQ
EMT

$BDDAT, $GDDAT
TST41
65

s COMPARE RESULTS.
sNEXT TEST

MOV

sSAVE ONLY THE COMMAND BITS.

SRR RAARARNRAAN AR RAANA AN TR RANRRANRNRARRANARNARARNRNRARNAARARARARNNAAY

CSRB_COMMAND REGISTER RESELECT CLEAR TEST
s*TEST 41
s*THE COMMAND REGISTER IS SUPPOSED TO BE SELF CLEARING THAT IS WHEN THE
s*RH11

IS SELECTED WHEATHER OR NOT WE ADDRESS IT DIRECTLY THE LOGIC

s *SHOULD CLEAR THE COMMAND REGISTER.
s*THIS IS TESTED BY LOADING A COMMAND INTO IT READING ANOTHER REGISTER
s*THAN RETURNING TO CHECK THE COMMAND REGISTER TO DETERMINE
s

014176
014200
1132 014206
1133 014214

000001
000041
000040

R AR

TST41:

AR RN RRR A

SCOPE
MOV
MOov
MOV

AN R AR AR

IT CLEARED.

AR RN N AAAARANRAARAANRARARAR
AR RARRARANRY

#1,8TIMES

#41,TSTNM

#CLR,BRHCS2

;:D0 1 ITERATION
JMOVE #41 TO TEST NUMBER
:CLEAR RH11 CONTROLLER

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

SEQ 0060

CSRB COMMAND REGISTER RESELECT CLEAR TEST

1134
1135 014222
1136
1137 016226
1138 014232
}}23 014236

012706

001100

Mov

#STACK,SP

¢SET STACK POINTER.

013702
010237

MOV
MOV

CLR

RHCS1,R2
R2,REGADR
$GDDAT

;R2=RH(S1 ADDRESS.

005037

001240
031620
001124

1141 0146242
1142
1163 014250
1144
1145 0142564

012737

000340

Mov

#PR7 ,PS

sSET PRIORITY TO #7.

012712

000011

MOV

#11,(R2)

cISSUE A DRIVE CLR AND GO

011237

001176

MOV

(R2) ,$TMPO

;DO A RESELECT OF THE REGISTER.

1147 016260
}}23 014264

011237
042737

001126
177770

001126

1150 014272

023737

001126

001124

1146

1151 014300
1152 014302

1153
1157

001401
104066

177776
L42:

BIC

#4C<P>,$BDDAT

(R2) ,$BDDAT

sREAD THE COMMAND REGISTER.
sSAVE ONLY THE COMMAND BITS.

CMP
BEQ
EMT

$8DDAT,SGDDAT
TST42
66

s COMPARE RESULTS.

200

MOV

22T

:$GDDAT=S5/8.

22222

SRTEST 42

SRR

R000RRdR200

sNEXT TEST

R 0002020282328
222222020

CSRB READY AND IE INTERRUPT TEST

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

014304
014306
1158 014314
}}23 014322

000004
012737
012737
012777

000001
000042
000040

1161
1162
1163
}}gg

014330
014334
014340
014344

013702
010237
005037
005037

001240
031620
001126
001124

1166 014350
}}gg 014356

017737
012777

014412

1169 014364
}};? 014370

012706
005037

001100
177776

1172 014374
1173 014400
}};g 014402

052712
000240
000240

1176 014404

1179 014412
1180
1185

}};g 014410

001212
003610
164706

AR RARRARRARAAARARR AR AR AR

TST42:

SCOPE

MOV
MOV
MOV

R AANAAARARNRANCNRNRARAAAAARA
AR
RS

#1,$TIMES

#45,TSTNM

#CLR.,3RHCS2

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

MOV
MoV
CLR
CLR

RHCS1,R2
R2.REGADR

;R2=RP(CS1 ADDRESS.

$BDDAT
$GDDAT

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

MOV
MOV

aRPVEC,$TMPO
#043,3RPVEC

sSAVE RH11 INTERRUPT VECTOR.
;SET RH11 INTERRUPT VECTOR 043

MOV

#STACK,SP
PS

sSET STACK POINTER.

000300

BIS
NOP
NOP

#1E'RDY, (R2)

sTHIS WILL CAUSE AN INTERRUPT.

011237

001124

MOV

EMT

(R2) ,$GDDAT
67

013777

001176

MOV

$TMPO,ARPVEC

104067

164652

001176

164642

L43:

164606

043.

CLR

sRESTORE RH11 INTERRUPT VECTOR.

e RN RRRAARAAARARARRAR
R AR RN A RRARRRANARNNAN RN RAANRAARANAANARAANES

CSRB BOES "'IE'* CLEAR AFTER AN_INTERRUPT
J*TEST 43
s*THE (IE) BIT IS SET CAUSING AN INTERRUPT., AT THE COMPLETION OF THE INTERRUPT
:*WE CHECK TO SEE IF THE (IE) BIT HAS CLEARED.

SIRANRANRARRAARRNNAN
RN NN A RARR AN NN R AN RARNARNRARR P A RN RN
ARRANRD

014420
014422

1186 014430

000004
012737
012757

000001
000043

TST43:

SCOPE

MOV
MOov

#1,STIMES

#48,TSTNM

::D0 1 ITERATION
JMOVE #43 TO TEST NUMBER

014436

014514

—_,ed

a2 OO (=]

OOO0OCO
VOOV YO VOO0
O W) —"Ovom\lg\hl\WN—'OOQ\IOMbWN—'OOQV

C IR JHEO RPQ4/5/6 DSKLS PT2 MACRO V04.00 17-NOV=-81
T 43
CSRB BOES ''IE'" CLEAR AFTER AN INTERRUPT

012777

000040

013702
010237
005037

16:37:12 PAGE 10-24

SEQ 0061

MOV

#CLR,aRHCS2

;CLEAR RH11

021240
031620
001124

Mov
MOV

;R2=RP(CS1 ADDRESS.

CLR

RHCS1,R2
R2,REGADR
$GDDAT

:$GDDAT=S/8.

017737
012777

164542
014516

Mov
MOV

#044 ,3RPVEC

SRPVEC,$TMPO

;SAVE RH11

012706
005037

001100
177776

MOV

ggTACK.SP

sSET STACK POINTER.

052712
000240
000240

000100

BIS
NOP
NOP

#IE, (R2)

sTHIS WILL CAUSE AN INTERRUPT

Eéé

sNO INTERRUPT.

MOV
8IC

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

sREAD RHCS1.
SAVE ONLY THE ''IE'' BIT.

CMP
BEQ

$BDDAT ,$GDDAT
R44

MOV

$TMPO,aRPVEC

164572

L44:

CLR

000411

011237
042737

001126
177677

001126

023737
001401

001126

001124
E4&:

104070

013777

044:

001176

164456

R&44:
IR

J*TEST 44

L8223

CONTROLLER

INTERRUPT VECTOR.

¢SET VECTOR TO 044.

; COMPARE RESULTS.
;0K!

R00RddRdddd

sRESTORE RH11

INTERRUPT VECTOR.

sttt iisdotisidsstiisdalisds]

BCTB ''AS"* WRITE TEST

s*HERE WE VERIFY THAT WRITING INTO THE ''AS'* REGISTER OWILL NOT CAUSC
:*AN (NED) ERROR.
e RRRRA RN RAARRAN

SCOPE

RA N ERANRNRARARRAARNA AN RRANAAR AR ARACRANR

013702
012737

001236
000007

013705

001240

3? 014616

012712

000007

32 014622

013702

001256

MOV

RHAS ,R2

;R2=""AS"' ADDRESS.

34 014626

012712

000377

MOV

#377,(R2)

JATTEMPT TO LOAD '‘AS''.

39 014632

005012

CLR

(R2)

;CLEAR

38 014634
39 014640

013702
010237

MOV
MOV

RHCS2 ,R2
R2 ,REGADR

;R2=RH11 (S2 ADDRESS.

SNOMWVNISWN=O
(%, T 1V]

—

001100

012706

2
2
2
2
Py
2
2
2
2 g 014612

012777

NNN&NNNNNNNNNNNNNNNNN
NN
NN

md
e
b e
b
b
b
d
b
d
b
)
b
d
b
b ek
d
—d

TST44:

R AN

000001
000044
000040

000004

001124

L4S:

MOV
MOV
MOV

#1,$TIMES
#64 , TSTNM

::D0 1 ITERATION
;MOVE #44 TO TEST NUMBER

MoV

#STACK,SP

cSET STACK POINTER.

MOV
MoV

RHCS2,R2
;R2=RH11 (S2 ADDRESS.
#US4L!US2'UST,SGDDAT; SGDDAT=S/8B.

MOV

RHCS1,RS

Mov

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

#CLR,aRHCS?2

;CLEAR RH11 CONTROLLER

;ADDRESS OF A DEVICE REGISTER.

"'AS"'.

K 5
CZRJHED RPQ4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-25
T44

SEQ@ 0062

BCTB '‘AS"* WRITE TEST

12641 014644

011237

001126

167770

001126

12644 0164656
1245 014664

023737
001401

001126

001124

}%2% 014650

1529 014666

042737

MOV

104071

1248

(R2) ,$BDDAT

;SBDDAT=WAS.

BIC

#~C<NED'US4'US2'(S1>,8BDDAT; SAVE NED AND DEVICE SELECTED.

CMP
BEQ
EMT

$BDDAT,$GDDAT
TST4S

; COMPARE RESULTS.
INEXT TEST

ttttttttttttttitttttt't'*iti.ititfitt'ittttttttitttt*ttttttititt

-resr 45

014670

000004

014672
014676
014706

012706
012737
004737

001100
000045
032054

014716
1269 014722

004037
000000

034434

014710

012777

MAKE CURRENT CYLINDER = 0

tttttttitttttttttttttt‘l"ittfi'ttttttttttiittttti*ttttt*tttt*ttt

000001

t§745:
003610

164342

1256

SCOPE

MOV
MOV
JSR

#STACK, SP
#45,TSTNM
PC,CLDISK

:RESET STACK
:MOVE #45 TO TEST NUMBER
:INIT DRIVE

JSR
.WORD

RO,MAKECYL
0

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

MOV

#DMD , BRHMR

:SET DIAGNOSTIC MODE

: ttttttt*ttt*ttitttttitttt"*t*ttttttttt*t'fitttttttititititttttt

T*TEST 46
RHCS1 - BITS 8 AND 9 ~ EXTENDED ADDR
:+WRITE CYLINDER
O, FORMAT 16 BITS PER WORD

(A16 & A 17)

;*TRACK 0, SECTOR 0, KEYS O, NUMBER OF WORDS 256

:*DATA 1S THE CONTENTS OF THE TTY READER STATUS REGISTER

:#THIS WILL USE BITS A16 AND A17 WHEN THERE IS MORE THAN 28K OF MEMORY
(2 2282223222322

014724
1257 014726
}ggg 014732

000004
012706
012737

001100
000046

t§T46:
003610

SCOPE
MOV
MOV

222233

232222432332333123232823323223382322228232323233223222322322

#STACK ,SP
#46,TSTNM

;RESET STACK
:MOVE #46 TO TEST NUMBER

;CHECK TO SEE IF THE PRCGRAM IS RUNNING WITH AN RH70
014740
014744
014746
1260 014752

005737
001402
000137

003614

1261 014752
1262 014756
1263 014760

004037
040626
041652

031772

}ggg 014762

015256

648:

000000

012737

010000

005037
005037

036712
036714

1273 015706
1274 01014

012737
012737

1276 015026
}5;; 015030

005037

036716

004537

023270

036710
040610

000400
000001

}5;8
1281 015032

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

JSR
.WORD
-WORD

RO, CLAREA
DISK
TOLGAP+16

;CLEAR SIMULATED DISK
: FROM
;70

JMP

TST47

:DATA

:THESE ARE SETUP FOR DISKLESS USE ONLY

1cuB 014764
1269
1270 014772
1271 014776

1275 015022

RH70
64$

JWORD

}%29

1272 015002

TST
BEQ

036710

036756
036720

MOV

NFMT22,CYL

CLR
CLR

SECOTR
xsv1

;CYLINDER 0
:16 BITS PER WORD
:SECTOR 0 TRACK 0
KEY1 0

MOV
MOV

1256..~ouoao
",

:NO OF DATA WORDS
*WRITE DATA

CLR

JSR

cvL
WCRC

EY2

RS. CRC

‘KEY2 0

160 TO CALCULATE CRC

;THESE ARE REGULAR SETUPS
004737

032054

JSR

PC.CLDISK

;SETUP GENERAL REGISTERS

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

SEQ 0063

RHCS1 = BITS 8 AND 9 ~ EXTENDED ADDR (A16 & A 17)

1282
1283
1234
1285
1286
1287
1288

015036
015044
015052
015060
015064
015072
015076
015102

012777
013777
017737
005077
012777
005077
004737
104401

015106

000000

1290 015114

052716

1289 015110

013746

177400
001144
164066
164160
010000
1641564
032116
053407

164156

}ggg 015134

004737 036550

000010
001406

164106

004737

1306 015156

012701

1307 015162

005737
001042
013700
012702

1308 015166

012737

1312 015206

014137

1309 015174
1310 015176
1311 015200

1326
1327

}ggg
13‘01

:WRITE DATA=60

MOV

(SP)+,aRr{

BIS
CLR

#A16'A17,(SP)
#BA] . SRHCS2
ERFLGS

PC., COMHD

:SET HIGH ORDER UNIBUS BITS

SFILL RHCS1

*SET BUS ADDRESS INHIBIT
:CLEAR ERROR FLAG

*WRITE DATA

;DATA IS TO BE CHECKED.

1303 015144
1304 015150
1305 015152

1325

WRIDAT,-(SP)

STINUE TESTING IF BOTH AREN'T TRUE
SSTOP THE TEST

:1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
*FROM THE ''COMHDTM" ROUTINE IT MEANS SECTOR GAP, SYNC BYTE
*HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY
SAND SYNCS WERE CORRECTLY DETECTED.

1302 015140

1324

MOV

JSR

}%8?

1320
1321
1322
1323

;256 DATA WORDS
*STARTING ADDRESS OF WRITE BUFFER
:TEMPORARY STORAGE OF DATA
*SECTOR 0 TRACK 0
16 BITS PER WORD FORMAT
*CYLINDER 0
:CHECK THAT DVA,RDY,DPR,DRY = 1
SAND THAT NO OTHERS = 1.
CANNOT CON-

BIS

1296
1297
1298
1299

1313
1314
1315
1316
1317
}g}g

#-256.,3RHWC
$TKS,RHBA
@STKS,TMPILL
aRHDST
NFMT22,3RHOF
aRHCA
PC, CHECKT
,CPHALT

HALT

001400

012611

052777
005037

MOV
MOV
MOV
CLR
MOV
CLR
JSR
TYPE

001452

1291 015120

1292 015122
1293 015130

164166
164162
001422

015212
015216
015222
015224

020021
001425
013737

160237
005737
001002
104037

031554

001406

JSR

PC.PUTREG

:SAVE REGISTERS

MOV

#D]1SK,R1

;DATA WRITTEN INTO 'DISK'’

MOV

#257.

001422

ST
BNE
MOV

000400

MOV

040626
000401

037030

001422

001124

001126

037030
001406

18$:

CMP
BEQ
MOV

ERFLGS
TST47
TMPILL RO

#256. .R2

ERWORD

*HAVE ANY ERRORS OCCURED?
*BRANCH OUT IF YES
$GOOD DATA
:COUNTER

-FOR ERROR WORD

RO, (R1)+
38
TMPILL ,$GDDAT

*COMPARE GOOD DATA WITH DATA ON DISK
*BRANCH IF GOOD
:GOOD DATA

SUB
TST
BNE
EMT

R2, ERWORD
ERFLGS
2
37

*ERROR WORD NO
*ANY ERRORS ALREADY THERE?
*BRANCH IF YES

MOV

-(R1),$BDDAT

8}2 ge

000401

10648

015230

104040

EMT

:BAD DATA

;SEE NEXT ERROR COMME:"S
*BRANCH TO AVOID PRINT NG NEXT ERROR

005721
017746

163700

ST
MOV

(R1)+
aSwR, - (SP)

;ERROR OCCURED WHILE WRITING
JWITH A16 A17 OF RHCS1 SET
*UNDO -(R1) FOR BAD DATA
SGET SWITCH SETTING

022726

000200

CMP

#SW07, (SP) +

*IS 7 SET AND 8 RESET

042716

001402
005302

001344

177177

BIC

BEQ
DEC

BNE

#177§77,(SP)
TST47
R2

:KEEP ONLY SWITCH 7 AND 8
*BRANCH OUT IF YES
*IF NOT COUNT 256 WORDS

*BRANCH IF 256 NOT DONE

,‘,‘ttttttttttttttttttttt"tttttttittttttt'ttttttttttttttti'ttttttt

J*TEST 47
DRIVE TIMING ERROR
;%A READ HEADER AND DATA [S STARTED ON CYLINDER O, SECTOR
:*0, TRACK 0, 260 WORDS. AFTER THE HEADER IS READ IN CORRECTLY,
:*NO SYNC BYTE (DATA SYNC) IS GIVEN.

147

DRIVE

s*THEN NORMAL DIAGNOSTIC DATA CLOCKS AND DIAGNOSTIC

'SECTOR CLOCKS ARE GIVEN FOR 24 BYTES.

{«THEN 536 BYTES OF SECTOR CLOCKS ONLY ARE GIVEN.

:«THIS, IS TO T0 BRING SECTOR PULSE UP WHICH SHOULD

;*SET "DRIVE TIMING ERROR'' - 'DTE’

VOO NN

000004
012706
012737

003610

SCOPE

MOV

MoV

012737

010000

#STACK,
SP

#47 ,TSTNM

005037

005037
005037
005037
004537
036710
040610

MOV

#FMT22,CYL

036712

CLR

SECOTR

036714
036716
036720
033270

CLR

KEY1

CLR

036710

CLR
JSR

cyL
WCRC

sRESET STACK
;MOVE #47 TO TEST NUMBER

216 BITS PER WORD
“CYLINDER 0

:SECTOR O

:TRACK 0
SKEYT = 0

KEY2

TKEY2 = 0

STHIS IS A READ COMMAND
;GO TO CALCULATE CRC

R5,CRC

032054

177374
002544
163670

163670
163664

MOV

012777

014000

163666

MOV

#FMT22'ECI,aRHOF’ :16 BITS PER WORD

005077
004737

163664

CLR
JSR
TYPE

aRHCA
PC,CHECKT
+CPHALT

000000
013711

rg)

004737
012777
012777
005077

THESE ARE REGULAR SETUPS

;

104401

032116
053407

JSR

PC,CLDISK

sSETUP GEN RAL REGISTERS

MOV
CLR

#REINTO, 3RHBA
@RHDST

;STARTING AL RESS OF BUFFER
;TRACK
= 0

HALT

001460

MOV

#-260.
, aRHWC

REFOR,aR1

1256 DATA |\

DS, 4 HEADER WORDS

:SECTOR = 0

:ECC CORRECTION INHIBITED

;CYLINDER = 0

s CHECK THAT DVA,RDY,DPR,DRY = 1
sAND THAT NO OTHERS = 1.
CANNOT CON-

sTINUE TESTING IF BOTH AREN'T TRUE
:STOP THE

TEST

sREAD HEADER AND DATA = 72

032554

JSR
RHW(C

RO, SAVER

sREAD IN SEQUENCE
:FROM HARDWARE REGISTER

¢ INTO CORE AT LOCATION

sNOW GO’ WiLlL BE GIVEN, EVERYTHING WILL BE TREATED
.CLOCKS WILL BE GJVEN.

—

sNORMALLY FOR THE HEADER. BUT WHEN IT IS TIMt TO READ
sDATA, ONLY SECTOR CLOCKS WILL BE GIVEN. NO DIAGNOSTIC DATA

THIS SHOULD BRING SECTOR PULSE HIGH

=
—

X
)
N\ =2
~on

:WITHOUT PUTTING 'READ'* DOWN HENCE
0O

)

wd wmd

=OVO

sNUMBER OF REGISTERS TO READ

19.

NOAWVME

004037
001232
001306
000023

el o

ViAW

elelele]

JREAD & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED ‘DTE’
puur QhurGuar P

TST47:

;THESE ARE TO SETUP FOR DISKLESS USE

= O
WA =2 O 000 NO NS WN

é?flg Faae

b
b
—d ed

001100
000047

wd e

D caed

AN N U N W28 AN AN N NN W
AN AN N N NN AN
0000 (L0000 000000 N NN NNNNNNNYO

NS WN~OO

end e
e
D
mad
D
id
D
D
e
i
e
e
d
D
oD o
d
d wd

b nd

NN
N NN N LN N N NN N N AN AN W NN
[0 SV IVLLY IV IV AV IV IV IV IV P
P o 2P o af

'tttttttt'tttttt.tttt't'iti'ttttitt.tt'..ttittttlttttttttitittt

177777
177777

001426
001406

Mov
MOV

#-1,TESDTE
#-1,ERFLGS

'DTE' WILL COME UP.

sSET DTE TEST
sTHIS WILL BRING THE READ HEADER

sAND DATA PROCESS OUT AFTER THE

—

SEQ 0064

TIMING ERROR

L
CZRJHEO RPQ4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-27

C2R JHEO RPQO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
147

DRIVE TIMING ERROR

N 5
16:37:12 PAGE 10-28

%gg

SEQ 0065

:HEADER HAS BEEN CORRECTLY READ

1390 015432

004737

036550

1393 015436

017737

163576

1395 015452
1396 015456
1397
1398 015460

001405
004737

031554

}gg;

1394 015444

}288 015462

032737

104040

000137

100000

JSR

001176

SETCK1: MoV

1401
1402
1403

'GO', SEARCH FOR THE SECTOR

JREAD CS1

8s
PC,PUTREG

JCONTINUE WITH TEST IF 'SC' = 0 (NO ERRORS)
“READ & SAVE ALL REGISTERS AGAIN IF AN
SUNDEFINED DATA TRANSFER ERROR OCCURRED

#SC.$THMPO

EMT

JMP

;ISSUE

*AND READ THE HEADER

SRHCS1,$TMPO

BIT

BEQ
JSR

015750

PC.COMHD

TSTS0

TO CHECK FOR ANY READ ERRORS

STEST FOR *'SPECIAL CONDITIONTM - °*SC*

;'DTE®

TEST - ABORT THE TEST

:NOW THE HEADER HAS BEEN READ OK
*NOW 560 SECTOR CLOCKS WILL BE GIVEN
‘GAP 11 BYTES, SYNC 1 BYTE, DATA 512, ECC & BYTES

}§8§

*GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 2

1406
1407

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

1410

:THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA (LOCKS

}283

SAND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC DATA CLOCKS.

}2}5

*WHICH EQUALS 3 BYTES OF DATA

1413 015466

1414
1415
1416
1417
1418
1419
14620
1621
1422
1423

015472
015476
015502
015506
015512
015516
015522
015526
015530
015532

}25% 0155346

012701

013700
012710
052710
042710
012702
052710
042710
005302
001372
005301

000030

8$:

001260
000001
000012
000012
000007
000002
000002

1%:
48:

001362

}259

1428
1629
1430
16431
}2§§

MOV

#24. ,R1

;LOAD CO.

BNE

*BRANCH IF 24 NOT DONE

MOV
MOV
BIS
BIC
MOV
BIS
BIC
DEC
BNE
DEC

RHMR.RO ;GET RHMR ADDRESS
#DMD . 3RO
SSET DIAGNOSTIC MODE
MMSTCK'MCLK,3R0 :SCT SECTOR CLOCK AND DATA CLOCK
MMSTCKiMCLK.3RO :CLEAR SECTOR CLOCK AND DATA CLOCK
#7,R2
ZLOAD COUNTER FOR DIAGNOSTIC CLOCKS
#MCLK, aRO
SSET CLOCK
#MCLK . 3RO
*CLEAR CLOCK
R2
*COUNT TO 7
4$
*BRANCH IF 7 NOT DONE
R1
SCOUNT TO 24

;THIS GIVES 536 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS

015536
015842
015546
015552
015554

012701
052710
042710
005301
001372

001030
000010
000010

5$:

1434
1435

:NOW °*DTE'

}zgg
012737
012737

1441 015600

052737

1442 015606
1443 015614
1444 015622

#536. R
#MSTCK , 3RO
#MSTCK . 3RO
R1
5¢

:LOAD SECTOR CLOCK COUNTER
“SET SECTOR CLOCK
*CLEAR SECTOR CLOCK
; COUNT
*BRANCH IF 536 NOT DONE

SHOULD BE SET

*CHANGE SAVED REGISTERS TO EXPECTED VALUES

1438 015556
1639 015564

1440 015572

MOV
BIS
BIC
DEC
BNE

052737

177400
002554
140000

001306
001310

MOV
MQV

#-256. ,WC
;SAVED RHWC
#REINTO+<4,
92> ,BA ;SAVED RMBA

012737
052737
012737

000401
140000
000100

001316

001334
001336
001350

BIS

#0TE,ERT

010000

001314

8IS

MOV
8IS
MOV

#SC'TRE,CS1

SSAVED RHCS1

*SAVED RMER?

#401.MR ; SAVED RHMR
#ATATERR.DS1 :SAVED RHDS!
#100.LA :SAVED RHLA

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

SEQ 0066

DRIVE TIMING ERROR

1645 015630
}229 015636

012737
013737

000001
001416

001320
001332

1448
1449

#1,DST
;SAVED RHDST
ATTENT ,AS
:SAVED RHAS

sNOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS

}22?

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

1452 015644
1453 075650
1454 015652
}222 015654

004037
001232
001500
000023

032554

1457
}228 015656

113737

001333

JSR
RHW(
WRFROM
19.
001525

}22?

RO, SAVER

JREAD IN SEQUENCE
:FROM HARDWARE REGISTER
sINTO CORE BUFFER
sNUMBER OF REGISTERS TO READ

;FOR RHAS UPPER BYTE
MovB
AS+1,WRFROM+25 ;UPPER RHAS

; COMPARE THE HEADER READ

1462 015664
1463 015670
1464 015672
1465 015674
1466 015676
1467 015700
1468 015702
1469 015704
015704

004037
036710
002544
000004
015704
015704
015710

}2;% 015706

000207

}2;?

032756

6%:

104010

)

}2;% 015710

JSR
CYL
REINTO
4,
63
63
7$

RO, COMFAR

EMT

RTS

1476

; COMPARE
;600D BUFFER
;TEST BUFFER
sNUMBER
sRETURN FOR ERROR
; SAME
JRETURN FOR GOOD COMPARISON

;IN ERROR
;RETURN

7%:

12;%
1479
1480
1481
1482
1483
1484

Mov
MoV

;GO0OD COMPARISON, CONTINUE

; COMPARE REGISTERS BEFORE COMMAND WITH REGISTERS AFTER COMMAND
015710
015714
015716
015720
015722
015724

032756

}222 015726

004037
001306
001500
000022
015730
015730

015750

1487 015730
1488 015734
1489 015736
1490 015744

013705
060505
016537
104001

037030

}232 015746

000207

1491
1492

JSR
w(
WRFROM
18.
2%
2%

RO, COMPAR

MOV
ADD
MOV
EMT

ERWORD ,R5
;GETTING READY TO INDEX
RS,RS
:DOUBLE ERROR WORD
RHWC-2(R5) ,REGADR ;FAILING REGISTER
1

RTS

001230

28:

031620

%232 015750

3$:

1511

JINNRNRNR RN

; COMPARE
s INITIAL SNAPSHOT BUFFER (CHANGED)
sTEST SNAPSHOT BUFFER
sNUMBER OF REGISTERS
JRETURN FOR ERROR
s SAME

sRETURN FOR GOOD COMPARISON

;CHANGE AFTER FORCING
J'DTE* ERROR

sRETURN

:GOOD - REGISTERS OK, GO ON TO NEXT TEST
NN AN AR

RN NANARANANARANANARANAARRARARANRNRNRRE

J*TEST 50
DRIVE TIMING ERROR
:*A WRITE DATA_COMMAND IS STARTED ON CYLINDER O, SECTOR
;*0, TRACK 0, 256 WORDS.

C 6
CZRJHEO RPQ4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-30
150

SEQ@ 0067

DRIVE TIMING ERROR

;*THE SECTOR 1S SEARCHED FOR AND

;*AFTER THE HEADER IS READ IN CORRECTLY,

;*NO SYNC BYTE (DATA SYNC) IS GIVEN.
s *NORMAL DJAGNOSTIC DATA CLOCKS AND DIAGNOSTIC
;*SECTOR_CLOCKS ARE GIVEN FOR 24 BYTES,
;*THEN 536 BYTES OF SECTOR CLOCKS ONLY, ARE GIVEN.
i

s*THIS IS TO TO BRING SECTOR PULSE UP

;*WHICH SHOULD SET 'DRIVE TIMING ERROR'' - 'DTE'
JaNAAAARRARR

015750

1512 015752
}2}2 015756

000004

012706
012737

001100
000050

TST50:
003610

}g}g

SCOPE

MOV
MOV

#STACK, SP
#50,7STNM

;RESET STACK
*MOVE #50 TO TEST NUMBER

;THESE ARE TO SETUP EOR DISKLESS USE

1517 015764
1518

012737

010000

1519 015772

005037

015776
016002
016006
016014
016020
016022

005037
005037
012737
004537
036710
040610

1520
1521
1522
1523
1524
1525
}ggg

A AN AARANRARERA R ERARRAANAAANARAAARAANCARANRAAARAOORRS

036710

MOV

#FMT22,CYL

036712

CLR

SECOTR

036714
036716
177777
033270

CLR
CLR
MOV
JSR
cYL
WCRC

KEY1
KEY?
#<1,X
RS.CRC

036720

;ggg

;16 BITS PER WORD
CYLINDER 0

;SECTOR b

;TRACK 0
‘KEYT = 0
‘KEY2 = 0
“TRIS IS FOR WRITE DATA COMMAND
;GO TO CALCULATE CRC

; THESE ARE REGULAR SETUPS & CHECKS

1530 016026

004737

032054

1532
1533
1534
1535
1536
1537
1538

012777
005077

001500
163174

016050

012777

010000

016056
016062
016066

005077
004737
104401

016072
}gzg 016076

000000
013711

1531 016030

016036
016044

012777

JSR

PC,CLDISK

;SETUP GENERAL REGISTERS

163170

MOV
CLR

#WRFROM,3RHBA
SRHDST

163172

MOV

#FMT22,8RHOF

163170
032116
053407

CLR
JSR
TYPE

aRHCA
PC,CHECKT
,CPHALT

:STARTING ADDRESS OF BUFFER
“TRACK = 0
*SECTOR = 0
:16 BITS PER WORD
*ECC CORRECTION INHIBIYED
SCYLINDER = 0
*CHECK THAT DVA,RDY.DPR,DRY = 1
SAND THAT NO OTHERS = 1.
CANNOT CON-

001452

HALT
MOV

WRIDAT,aR1

177400

122}
1543 016100
1544 016104
1545 016106

}229 016110

163174

MOV

#-256.,3RHWC

:256 DATA WORDS

STINUE TESTING IF BOTH AREN'T TRUE
*STOP THE TEST
‘WRITE DATA = 60

;READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED 'DTE’
004037
001232
001306

000023

032554

JSR
RHWC
WC
19.

RO, SAVER

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

*NUMBER OF REGISTERS TO READ

1548

;NOW 'GO' WILL BE GIVEN, EVERYTHING WILL BE TREATED

1551

:CLOCKS WILL BE GIVEN.

1549
1550

}ggg

:NORMALLY FOR THE HEADER.
WHEN IT IS TIME TO WRITE
*DATA, ONLY SECTOR CLOCKS WILL BE GIVEN, NO DIAGNOSTIC DATA

THIS SHOULD BRING SECTOR PULSE HIGH

JWITHOUT PUTTING READ DOWN, HENCE °'DTE' WILL COME UP.

D. 6
CZRJHEQ RP04/5/6 DS KLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-31
150
ORIVE TIMING ERROR
1556 016112
1555 016120
1556

012737
012737

1772777
177777

1559 016126

004737

036550

1562 016132
1563 016140
1564 016146
1565 016150
1566
1567 016154
1568
}ggg 016156

017737
032737
001405
004737

163102
100000

001426
001406

MOV
MoV

#-1,TESDTE
#-1,ERFLGS

}ggg

}gg?

SEQ 0068
;SET DTE TEST
¢THIS WILL BRING THE READ HEADER
sAND DATA PROCESS OUT AFTER THC

sHEADER HAS BEEN CORRECTLY READ
JSR
001176
001176

031554

SET(K2: MOV
BIT
BEQ
JSR

104040

000137

016474

PC,COMHD

sISSUE

aRHCS1,$TMPO
#SC,$TMPO
63
PC,PUTREG

sREAD CS1 TO CHECK FOR READ ERRORS
;TEST FOR ''SPECIAL CONDITION'' - 'SC'
;CONTINUE TESTING IF NO ERROR
JREAD & SAVE REGISTERS AGAIN IF UNDE¢FINED ERROR HAS OCCURRED

EMT

JMP

TST51

'GO°, SEARCH FOR SECTOR,

sREAD HEADER AND DATA.

;DURING ‘DTE®

TEST SETUP

;ABORT THE TEST

1571
1572
1573

:NOW THE HEADER HAS BEEN READ,
:560 SECTOR CLOCKS WILL BE GIVEN ;GAP 11 BYTES, SYNC 1 BYTE, DATA 512, ECC & BYTES

1576
1577

s THESE 560 SECTOR CLOCKS ARE DIVIDED INTO TWO GROUPS
;24 SECTOR CLOCKS WITH NORMAL DIAGNOSTIC DATA CLOCKS

}gg?

;THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA CLOCKS

}g;g

;GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 2

}g;g

;AND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC DATA CLOCKS

1582 0161¢2
1583 016166
1584 016172
1585 016176
1586 016202
1587 016206
1588 016212
1589 016216
1590 016222
1591 016224
1592 016226
}ggz 016230

012701
013700
012710
052710
042710
012702
052710
042710
005302
001372
005301
001362

000030
001260
000001
000012
000012
000007
000002
000002

6$:
18:
48:

%ggz
1597
1598
1599
1600

MoV
MoV
MoV
BIS
8IC
MoV
BIS
BIC
DEC
BNE
DEC
BNE

#24. ,R1
:LOAD SECTOR CLOCK COUNTER
RHMR,RO ;GET RHMR ADDRESS
#DMD , 3RO
sSET DIAGNOSTIC MODE
WMMSTCK!MCLK
, 8RO ;SET SECTOR CLOCK AND DATA CLOCK
#MSTCK!MCLK,3R0 ;CLEAR SECTOR CLOCK AND DATA CLOCK
#7,R2
:LOAD COUNTER FOR DIAGNOSTIC DATA CLOCKS
#MCLK, 3RO
sSET CLOCK (DATA)
#MCLK, 3RO
sCLEAR CLOCK (DATA)
R2
s COUNT
43
:BRANCH IF 7 NOT DONE
R1
s COUNT
18
¢BRANCH IF 24 NOT DONE

sTHIS GIVES 536 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS
016232
016236
016242
016246

012701
052710
042710
005301

001030
000010
000010

}ggg 016252

017737

163014

}gg} 016250
1603

001372

MoV
8IS
8IC
DEC

BNE

1606

%g%;
1609 016260
1610 016264

5%:

001346

#536. ,R1
#MSTCK, 8RO
#MSTCK, 3RO
R1

sLOAD SECTOR CLOCK COUNTER
sSET SECTOR CLOCK
sCLEAR SECTOR CLOCK
s COUNT

JBRANCH IF 536 NOT DONE

;ECC PATTERN REGISTER IS NOT CHECKED

MOV

SRHEC2,EC2

sRHEC2 1S NOT CHECKED

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

003614

TST
BEQ

RH70
JP1

;CHECK FOR RH70 CONTROLLER
:SKIP RH70 CODE AND DO RH11

IF NOT

CZRJHEO RPQ4/5/6 DSKLS PT2 MACRO V04.00 17-NOvV-81 16:37:12 PAGE 10-52
150

)

SEQ 0069

9 016406

OOO0O0O0O0O0
OO0O0O0
O0O0O
Db DADBAN
NS Dt
OWN—
WOV
NN
ONMNN
SNNSNNNNN O NSNSNN O SHNNN
NWNWWNWNINW
WNWNWN
NN
SNNNNNNN O NNNN
SN

o~
o
(=]

[=)

ppury

7 016372

001534
000300

001306
001310
001312

177511
001722
000100
000200

001306
001310
001312
001312

JP1:

140000
010000
000201
140000
000100
000001
001416

001314
001316
001334
001336
001350
001320
001332

JP2:

016426

NN = OV
000 NS

O~ OO
W WA = O

#-183. ,WC
s SAVED RHWC
#WRFROM+<73,42>
,BA :SAVED RHBA

#IR,CS2 :SAVED RHCS2

8IC
8IS

#OR,CS2 ;SAVED RHCSZ

BIS
BIS

#DTE ,ERT

MOV

8IS

MOV
Mov
MoV

#SC!TRE,CS1

:SAVED RHCS1
:SAVED RHER1
s SAVED RHMR

#DENVL !DMD ,MR
NATA!ERR,DS1 ;SAVED RHDS1
#100,LA ;SAVED RHLA
#1,DST
: SAVED RHDST
ATTENT ,AS
:SAVED RHAS

004037
001232
002544
000023

032554

113737

001333

JSR
RHW(
REINTO
19.

002571

RO, SAVER

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

:FOR RHAS UPPER BYTE
Mov8

AS+1,REINTO+25 ;UPPER RHAS

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

WN =L OV0O NN

D
D
D
nd e
D e
nd
D
D d and D
b

MOV
MOV

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

b
D
b
b
b wd cad =D and b
b
b e
d =D and
b

oo OO~

;RHWC AND RHBA WILL BE MODIFIED FOR RH70C
#=242. .o WC
VAR1:
MOV
: SAVED RHW(
W#WRFROM+<14
. %2> ,BA ;SAVED RHBA
VARZ2:
MOV
#IR!0R,CS2
sSAVED RHCS2
8IS
B8R
JP2
:SKIP NEXT RH11 CODE

177416

) wd

D ad

b wd

D d i

)

D ad

D cd e

) el

D e

ooooororOrOFOFONOMONONONOOOONOOOrOOOrOrONORORONONON

AV
T SS
SN Hw uuuuungg U“flu“d“%;fl"u“”vh”ufl”v—hfl—hfl_hd_hd—.
W =O
OSSN
= O OO NN S NN —

DRIVE TIMING ERROR

6462

004037
001306
002544
000022
016454
016454
016474

032756

013705
060505
016537

037030

104001

JSR

W(C

RO, COMPAR

REINTO
18.

23
28
3s

001230

2$:

031620

MOV
ADD
MOV

EMT

000207

RTS

3s:

; COMPARE
;CHANGED INITIAL SNAPSHOT BUFFER
JSNAPSHORT BUFFER AFTER COMMAND
;NUMBER OF REGISTERS TO COMPARE
JRETURN FOR ERROR
+ SAME

sRETURN FOR GOOD COMPAR]SON
ERWORD ,RS

;GETTING READY TO INDEX

s CHANGE AFTER FORCING
;'DTE' ERROR
sRETURN

R5,R
:DOUBLE ERROR WORD
?HUC-Z(RS),REGAD R ;FAILING REGISTER

;GOOD, RECISTERS OK - GO ON TO NEXT TEST

o NRNARRRARRNRNAR P AAANRARERRANRANRRSANRAAANRRRARARAANANRANNENRRAONS

DRIVE TIMING ERROR
J*TEST 51
s*A WRITE HEADER AND DATA COMMAND IS GIVEN
;*TO CYLINDER 0, SECTOR 0O, TRACK 0, 256. WORDS.

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

SEQ 0070

DRIVE TIMING ERROR

b 1

;*AFTER SECTOR IS FOUND (THE SECTOR FOUND FLOP IS HIGH),
:*NO MORE DIAGNOSTIC DATA CLOCKS ARE GIVEN,
;*ONLY SECTOR CLOCKS ARE GIVEN TILL SECTOR PULSE IS HIGH.
'THIS SHOULD SET °'DRIVE TIMING ERROR'' - 'DTE'’

016474

1674 016476

1276 016502

000004

012706

012737

001100

000051

AEARS

STS1
003610

}g?%

220282220 Rd0ddddd

SCOPE

MoV

#STACK,SP

#51,TSTNM

iiddi

ittt

disdsdss]

JRESET STACK

:MOVE #51 TO TEST NUMBER

sTHESE ARE TO SET UP FOR DISKLESS USE ONLY

;ggg 016510

012737

010000

1681 016516

005037

062050

1684 016532

012737

000400

1682 016522
1683 016526

1685 016540
1686 016544
}ggg 016546

005037
005037
004537
042046
042056

042052
042054
033270

042046

004737

032054

1693 016562

012777

001500

1692 016554

}ggg 016570

012777
005077

177374

162450

1696 016574

012777 014000

1698 016602
1699 016606

005077
004737

016616
};8? 016620

000000
013711

1697

016612

104401

162450
162444

162446

};8; 016634

WSECTR

MoV

#256. ,FNWORD

WKEY]
WKEY2

R5,CRC

FOszgEgZ
=16 BITWORDS AND

;TRACK=0, SECTOR=0
,KEY1
=0
KEY2=0

:256 DATAWORDS

;GO TO CALCULATE CRC

THESE ARE REGULAR SETUPS & CHECKS

JSR

PC,CLDISK

;SETUP GENERAL REGISTERS

Mov

#WRFROM,8RHBA

;STARTING ADDRESS OF BUFFER

MoV
CLR

#-260. , BRHW(
SRHDST

:256 DATA WORDS & 4 HEADER WORDS
;;2?$SR=

MoV

#FMT22!ECI,aRHOF ;16 BITS PER WORD

162444
032116

CLR
JSR

@RHCA
PC,CHECKY

001454

HALT
Mov

053407

TYPE

};8%
1704 016€24
1705 016630
1706 016632

CLR

JSR
WweyL
GCRC
;

1691 016550

NFMT22 ,WCYL

CLR
CLR

042106

}ggg

MoV

,CPHALT

WRIFOR,aR1

sECC CORRECTION INHIBITED

sCYLINDER = 0
sCHECK THAT DVA,RDY,DPR,DRY = 1
cAND THAT NO OTHERS = 1.
CANNOT CON-

cTINUE TESTING IF BOTH AREN'T TRUE
sSTOP THE TEST
;WRITE HEADER AND DATA = 62

;READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED ‘DTE’
004037
001232
001306

032554

JSR
RHWC
W
19.

000023

1709
1710
171
1712
};}2

RO, SAVER

cREAD IN SEQUENCE
:FROM HARDWARE REGISTER
¢INTO CORE BUFFER LOCATION
sNUMBER OF REGISTERS TO READ

;NOW GO’ WILL BE GIVEN. EVERYTHING WILL BE TREATED
cNORMALLY TILL HEADER IS TO BE GIVEN, THEN ONLY
sSECTOR CLOCKS WILL BE GIVEN. NO DIAGNOSTIC DATA
sCLOCKS WILL BE GIVEN, THIS SHOULD BRING SECTOR PULSE HIGH
;WITHOUT PUTTING ‘READ'' DOWN, HENCE °'DTE' WILL COME UP.

1715 016636
1716 016644
1717

012737
012737

1720 016652

004737

177777
177777

001426
001406

MoV
MOV

#-1,TESDTE
#-1,ERFLGS

};}g

sSET DTE TEST
cTHIS WILL BRING THE READ HEADER
sAND DATA PROCESS OUT AFTER THE

sHEADER HAS BEEN CORRECTLY READ
041672

JSR

PC,COMWHD

;ISSUE

'GO*, SEARCH FOR SECTOR,

CZRJHEO RPQ4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-%4
1B

DRIVE TIMING ERROR

;WRITE HEADER AND DATA.

;%}

d =D

723 016656
724 016664

725 016672
726 016674
727 016700
728

D =D e

’

;gg 016702

017737
032737

162356
100000

001176
001176

SETCK3: MOV
BIT

001405
004737
104040

031554

BEQ
JSR
EMT

000137

017134

JMP

@RHCS1,8TMPO
#SC,$TMPO

;READ (S1 TO CHECK FOR ERRORS DURING WRITE
sTEST FOR ''SPECIAL CONDITION'' = °*SC'

48
PC,PUTREG
40

sCONTINUE TEST IF NO ERROR (°'SC' = 0)
;READ & SAVE REGISTERS AGAIN IF ERROR

TSTS52

;ABORT THE TEST AT THAT POINT

;DURING 'DTE'

TEST SETUP

sNOW SECTOR HAS BEEN FOUND 0K

733
734
735
736
737

2609 SECTOR CLOCKS WILL BE GIVEN,
239 BYTES FOR SECTOR GAP,
:1 BYTE FOR HEADER SYNC,
;8 BYTES FOR HEADER,
;GAP 11 BYTES, SYNC 1 BYTE, DATA 512, ECC & BYTES

D e

D ed

;g;

:GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA %

D e

;gg

;THIS GIVES 609 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS

;2?

~NO

~
& o~

b e

d md e

7642
743
744
745
746

016706
016712
016716
016722
016724

012701
052710
042710
005301
001372

001141
000010
000010

4s:
5%:

b =D e
b

751 016726

;gg 016732

005737

001407

003614

TST

BEQ

012737
012737

760 016752

012737

D cd cd
D ad e

756 016734
757 016742

;2; 016760

—b

h ed

763 016766
764 016774
765 017002
766 017010
767 017016
768 017024
1769 017032
1770 017040

};;} 017046

000406

177404
001520

001306
001310

VAR3:
VAR4:

RH70

JP3

;CHECK FOR RH70 CONTROLLER

:SKIP RH70 CODE AND DO RH11

MOV
MOV

#-252. ,WC
: SAVED RHWC
#WRFROM+<8.+2>
,BA ;SAVED RHBA

JP4

sSKIP NEXT RH11 CODE

s SAVED RHW(C

012737

001706

177477

001306

JP3:

MoV

#-193, ,WC

052737
042737
052737
052737
012737
052737
012737
012737

140000
000100
000200
010000
000401
140000

0013146
001312
001312
001316
001334
001336
001350
001320

JP4:
VARS:

8IS
BIC
BIS
8IS
MOV
BIS
MoV
MoV

#SC!TRE,CS1
#IR,CS2 ;SAVED
#OR,CS2 ;SAVED
#DTE ,ER1
#4601 ,MR ;SAVED
#ATA'ERR,DS1
#100,LA ;SAVED
#1,DST
;SAVED

013737

000100
000001
001416

;;;2
1775 017054
1776 017060
1777 017062

cLOAD SECTOR CLOCK COUNTER
sSET SECTOR CLOCK
sCLEAR SECTOR CLOCK
; COUNT
:BRANCH IF 536 NOT DONE

IF NOT

;RHWC, RHBA AND IR BIT WILL BE MODIFIED FOR RH70C

;gg

;gg 016750

#609. ,R1
#MSTCK,aR0
#MSTCK,aR0
R1
5%

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

748
;gg

MOV
8IS
BIC
DEC
BNE

001310

001332

MoV

#WRFROM+<67.42>
,BA ;SAVED RHBA

ATTENT ,AS

s SAVED RHCS1
RHCS?2
RHCS?2
s SAVED RHER1
RHMR
s SAVED RHDS1

RHLA
RHDST
:SAVED RHAS

sNOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN BE DONE
004037
001232
002544

032554

JSR
RHW(C
REINTO

RO, SAVER

sREAD IN SEQUENCE
-FROM HARDWARE REGISTER
¢ INTO CORE BUFFER LOCATION

SEQ 0071

H 6
CZRJHEO RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-35
151

SEQ 0072

ODRIVE TIMING ERROR

1778 017064
17

000023

}781 017066

113737

19.

001333

002571

sNUMBER OF REGISTERS TO READ

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

; COMPARE CHANGED REGISTER SNAPSHOT BEFORE COMMAND
;WITH REGISTER SNAPSHOT AFTER COMMAND
1786 017074
1787 017100
1788 017102
1789 017104
1790 017106
1791 017110
1792 017112
1793
1794 017114
1795 017120
1796 017122
1797 017130
1798
1799
1800 017132
1801

004037
6

032756

JSR

WwC

RO, COMPAR

; COMPARE

:CHANGED REGISTER SNAPSHOT

REINTO

SNAPSHOT AFTER COMMAND

18.

NL"BER OF REGISTERS TO COMPARE

P4 3
017134
013705
060505
016537
104001

JRETURN FOR ERROR

23
3s

037030
001230

MoV

ADD
MOV

031620

:SAHE
JRETURN FOR GOOD COMPARISON

ERWORD ,RS

JGETTING READY TO INDEX

RS5.R5
DOUBLE ERROR WORD
?HUC-Z(RS)LREGADR ;FAILING REGISTER

:CHANGE AFTER FORCING

000207

RTS

1802 017134
1803
1804
1815

:'DTE' ERROR

sRETURN

38:

:6GO0OD, REGISTERS COMPARE 0K
;GO ON TO THE NEXT TEST

RN AR

s*TEST 52

RN AN R AR

NN RN AR N AR IR NE NN NR RN RN

RARRERRNRA A NS

SECTOR SELECTION

*THE SECTOR SELECTION LOGIC

IS CHECKED HERE

*EACH SECTOR ON TRACK ZERO IS WRITTEN INTO.

*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
'THE WRITTEN DATA IS CHECKED IN MEMORY
A2

017134

1816 017136
1817 017142
1818 017150
1819
1820 017154
1821

1822
1823
1824
1825
1826 017162
1827 017166
1828 017174
1829 017202
1830 017206
1831 017212
1832 017216
1833 017224

000004

e 22222222220
RR000dd
2000232000 232282000R22 2228232220203

TSTSZ

004737

001100
000052
032054

003610

012737

600026

001430

SCOPE

Mov

#STACK,SP

JSR

PC,CLDISK

MOV
MOV

#52, TSTNM
#22.,TAGDTE

sRESET STACK
;MOVE #52 TO TEST NUMBER

sSETUP GENERAL REGISTERS & CLEAR

s THE DRIVE

:22 SECTORS

sTHIS TEST REPEATS

;ITSELF 22 TIMES
:THE FOLLOWING INITIALIZES FOR SECTOR 0
005037

017266
000025
000025

000025

01
01

CLR

$S3+2

MOV
MOV

#21.,554+2
#21.°55549

CLR
CLR

$S10+2
5512*2

CLR

MOV

Mov

$57+2

0
sHEADER (SE CTOR)
Y
)
(KE
+HEADER
Y
)
(KE
cHEADER

:DATA (SECTOR )
,DATA
. SECTOR (SIMULATED DIS K)

c21 §1%+2
#21,.,8514+2

JKEY1

(SIMULATED D 15K)

:KEY2 (SIMULATED D 15K)

CZRJHEO RPQ4/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 10-%6
152

SEQ 0073

SECTOR SELECTION

}ggg 017232
1836
1837 017236
1838 017236
1839 017242
1840 017246
1841 017250
1862 017252
1843

1844
1845

}gzg 017254

1848
1849 017260
1850
1851 017264

1852 017270

}ggz 017274

005037

017512

012700
012701

040530
000460

012700

001500

012720

010000

012720

000000

012720

000025

005020
005301
001375

012720

000025

CLR

§S15¢2

:SECTOR (RHDST)

;CLEAR SIMULATED DISK AREA
§s1:
18:
MOV
#SECGAP,RO
MOV
#304. ,R1
28:
CLR
(RO) +
DEC
R1
BNE
2$

;POINTER
: COUNTER

SCLEAR SIMULATED DISK AREA
< COUNT

;SETUP WRITE FROM BUFFER

MOV

#WRFROM, RO

MOV

NFMT22,(RO)+

$s3:

MOV

#0, (RO)+

;FORMAT 16 BITS PER WORD
SCYLINDER 0
SSECTOR TO VARY

SS5:

MOV

#21..(RO)+

TKEY2 TO VARY

:HEADER

$SS4:

MOV

#21.,(RO)+

*KEY1 TO VARY

1855

;DATA IN WRITE FROM BUFFER ALTHOUGH THIS IS DATA AND NOT

1858
1859

:DATA IS - 19 WORDS OF ZEROS - SYNC WORDS, 4 HEADER WORDS
:1 CRC WORD, 5 WORDS OF ZEROS, 1 SYNC WORPD, 100 ZEROS

}ggg

*HEADER, THE SECTOR WITH SYNC BYTES WILL BE GIVEN AS DATA.

}gg?

1862
1863
1864
1865
1866

:(DATA), 1 SYNC WORD, 70 SECTOR NUMBER TO VARY
017300
017304
017306
017310
017312

012705
005020
005305
001375
013720

000023

1868 017322

012720

000000

1867 017316

1869 017326

1870
1871
1872
}g;g

012720

005020

017330
017332
017336
017340

005020
004537
001550
001560

}g;g 017342

005720

1877 017344

012705

1879 017352
}ggg 017354

005305
001375

1878 017350

005020

037012

010000

§S7:

000005

013720

037012

1884 017362
1885 017366
1886 017370

012705
005020
005305

000144

1889 017374
1890 017400

013720
012705

037012
000106

001375

MOV
"CLR
DEC
BNE
MOV

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

: COUNTER
:19 ZEROS
*COUNT
:19 DUNE?
SSYNC = 14400

MOV

#0, (RO)+

*SECTOR TO VARY

MOV

CLR

#FMT22,(RO)+

(RO)+

CLR
(RO)
+
JSR
RS.CRC
WRFROM+50
WRFROM+60

033270

}ggg 017356

}ggg 017372

68:

8s:

9% :

:CYLINDER 0

;CALCULATE CRC FOR ABOVE 4 WORDS
:4 WORDS START FROM HERE
*PUT CRC HERE

(RO) +

MOV

#5. RS

DEC
BNE

RS
8$

(ROS +

;S WORDS OF ZEROS

MOV

RSYNC, (RO) +

;SYNC = 14400

MOV
CLR
DEC

#100. RS
(RO) +
RS

;100 WORDS OF ZEROS

MOV
MOV

RSYNC, (RO) +
#70. .RS

CLR

BNE

: INCREMENT RO

*COUNT
*BRANCH IF 5 NOT DONE

SSYNC = 14400

J_ 6
JHEO RPOk/g/ 6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-37
SECTO

012720
005305
001374

$S10:

000000

PONONIND = b d =d b ed d b ek b ocg (=]
NS NN =

NOWVESWNI=OVO
NS WN—=O 0N

HWN=0O000

WNWNWN

&N 8N B NN

=000

b e
b
d
b
b
b o
b
b
b
b
b
b
b
b
b
i
d
b
b e
d e
b e
d
b

=
e
o
b
—
b
md cd md
b
b
b

Nelell
el ol e el olVe)

MOV
DEC
BNE

012705

000066

118:

001375

MoV
CLR
DEC
BNE

sTHESE ARE

017426

#0,(RO)+
RS
$S10

sSECTOR TO VARY

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

ancd

1891 017404
1892 017410
1893 017412
1894
1895
1896
1897 017414
1898 017420
899 017422
00 017424

SEQ 0074

SELECTION

012737

010000

042046

012737

000000
000025
000025
000312
033270

042050
042052
042054
042106

$S12:
$SS13:
$S14:

042056

#54. RS
(RO)+
RS
118
TO BE SET UP FOR DJISKLESS USE ONLY

MOV

#FMT22 ,WCYL

MOV
MOV
MOV
MOV
JSR
WweyL

#0 ,WSECTR
:SECTOR TO VARY
#21. ,WKEY]
;KEY1 TO VARY
#21. ,WKEY2
;KEY2 TO VARY
#202. ,FNWORD
:202 DATA WORDS
R5,CRC
;CALCULATE CRC
sFIRST WORD

GCRC

;FORMAT = 16 BIT WORDS

¢CYLINDER = 0

¢PUT HERE

s THESE ARE REGULAR SETUPS

MOV

#-256. ,aRHW(C

;202 DATA, & HEADER

MoV
MOV

#0,aRHDST
WRIFOR,3RHCS1

¢sSECTOR TO VARY
;GET _READY TO DO

010000
161514

MOV

H#FMT22 ,aRHOF

;WITH 62 FUNCTION CODE IN RHCS1
216 BITS PER WORD FORMAT

005037

001406

CLR

ERFLGS

017542
017546

004737

032116
053407

JSR
TYPE

PC,CHECKT
.CPHALT

017552

000000

017554

004737

041672

JSR

PC,COMWHD

017560
017564

005737
001051

001406

TST

ERFLGS

017566
017572
017576

004737
104401
000000

032306
053407

JSR

PC,CHECKE

004037
001510

032756

012777
012777
012777
013777

001500
000000
001454

012777
005077
017536

104401

177400

$S15:

MOV

CLR

aRHCA

BNE

TYPE

HALT

;FILL BUS ADDRESS

;WRITE HEALER AND DATA
sCYLINDER = 0

.CLEAR ERROR FLAG

HALT

sCHECK THAT DVA,RDY,DPR,DRY = 1
sAND THAT NO OTHERS = 1.
CANNOT CON-

sTINUE TESTING IF BQTH AREN'T TRUE
:STOP THE TEST

TST53

sISSUE

'GO°, COUNT SECTOR CLOCKS,

;WRITE HEADER AND DATA

HAVE ANY ERRORS OCCURRED ?

.CPHALT

JEXIT IF YES=~=esceeccccccccccccnas )
;CHECK THAT BITS = 1
¢ CANNOT CONTINUE

sSTOP THE TEST

TESTING

THEY DON'T

sNOW COMPARE 'DISK'' BUFFER WITH ‘REINTO'' BUFFER
JSR

RO, COMPAR

WRFROM+8.
DISK

256.

017624

#WRFROM,@RHBA

16%
17%

s CHECK

:GOOD BUFFER
sTEST BUFFER

:NUMBER OF WORDS

¢RETURN POINT FOR ERROR
HEADER
JRETURN POINT FOR ERROR DATA

152

SECTOR SELECTION

017630

EMT
RTS

17$:

104010

SE@ 0075

18%

16%:

104007
000207

16:37:12 PAGE 10~ 38

EMT

000207

RTS

JRETURN FOR GOOD COMPARISON

62
963
964
365

017674
017700
017702
017704

18$:

INC

b cwd

DEC
DEC
INC
INC
INC
DEC
DEC
INC

—

005237
005337
005337
005237
005237
005237
005337
005337
005237

) —d

sTHE FOLLOWING "NCREMENTS ARE TO CHANGE THE ABOVE SET UP
:TO WRITE ON Th_ NEXT SECTOR

005337
001001
000402
000137

SS2:

DEC

BNE
BR
JMP

18:

9 73

SRR

;DATA

TAGDTE
18

s COUNT DOWN FuLix 22 SECTORS
sBRANCH IF 22 SECTORS NOT DONE

TST53
SS1

ARNARR AR R AR R AN

J*TEST 53

sHEADER (SECTOR)
cHEADER (KEY1)
JHEADER (KEYZ2)
:DATA (SECTOR)

$53+2
$S4+2
§$55+2
S$S7+2
$810°2
§S12 2
§S13+2
§$S814+2
§S15+2

;SECTOR (SIMULATED DISK)
;KEY1 (SIMULATED DISK)
;KEY2 (SIMULATED DISK)
:SECTOR (RHDST)

sALL DONE - GO TO NEXT TEST
:6G0O BACK TO NEXT SECTOR

AR IR

AR AR AR RR AN

AR AN RN NN RARANRN

AR AANRAY

WRITE ECC TEST 1

s*THIS IS A WRITE ECC TEST

;*WRITE CYLINDERO, FORMAT 16 BITS PER WORD

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

s*OF ALL ZEROS.

017716

000053

~
~
W
o

177777

001100

TSTS3
003610
18:

032054

SCOPE

Mov

#STACK,SP

SRESET STACK

MOV

#53,TSTNM

;MOVE #53 TO TEST NUMBER
sPOINTER
s COUNTER
sFILL SIMULATER DISK LITH ONES

MOV
MOV
MOV
DEC
BNE
JSR

#SECGAP
RO
#258. ,R1
#-1,(RO)+
R1
18
PC,CLDISK

s THESE ARE FOR ECC

~NOMN

LNN—'OOW\JOU\J\

017710
017712

177777

V00

'003

b
e
b
b e
d
b
b
d
b o
b
b o
b
d e
d

000
O
OO0 OO
OMASNNY
—

d e
b
b

000’00’0000000\0000

SRAARARARARAAAARAAR
AR
AN AR AN AN ARRRARRANN RN
A AR
RS

001424
034566
034600

005037

034576

sTHIS IS USED TO SET GENERAL REGISTERS

TEST ONLY

MoV
CLR

;THIS IS AN ECC TEST
#-1,TSECC
POSITI
:CLEAR ERROR POSITION COUNTER

MOV

HARDER ,HAD TMP

MOV

CLR
CLR
CLR
CLR

NCODE ,NCOUNT

GECC1
GECC2
DATENV
2CODE

: TEMPORARY N-CODE COUNTER

: TEMPORARY HARD ERROR COUNTER

cECC LOW ORDER TO BE GENERATED
:ECC_HIGH ORDER TO BE GENERATED
;CLEAR DATA ENVELOPE CLOCK COUNT
:CLEAR LEADING ZEROS CLOCK COUNT

-t

CZRJHEO RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81

1997
1998

SEQ 0076

sTHESE ARE TO BE SETUP FOR DISKLESS USE ONLY

1999

2000 020016
2001
2002 020024
2003 020032
2004 020036
2005 020042
2006 020050
2007 020054
2008 020056

012737

010000

042046

MOV

NFMT22 ,WCYL

012737
005037
005037
012737
004537
042046
042056

000001
042052
042054
000400
033270

042059

MOV
CLR
CLR
MOV

#1 ,WSECTR

042106

JSR

weyYL

;FORMAT22=16BIT WORDS AND

sCYLINDER 0

TRACK 0, SECTOR=1
WKEY1
;KEY1=0
WKEY?2
:KEY2=0
#256 . FNWORD
:256 DATA WORDS
RS,CRC
;GO TO CALCULATE CRC

GCRC

;THESE ARE REGULAR SETUPS

177374

2012 020060
2013 020066
2014 020072
2015
2016 020076
2017
2018 020102
2019 020106
2020 020110
2021 020112
2022 020116
2023 020122
2024 020124
2025 020126
2026
2027 020134
020140

012777
012700
010077

001500
161136

012720

010000

020144

00000

2028
2029 020146
2030
2031 020152
2032 020156
2033 020164
203g 020170

161144

2s:

000001
000400
000000

012777

000001

004737

032116
053407

104401

3s:
161110

MOV
MOV
MOV

#WRFROM
RO

MOV

#FMT22,(R0O)+

MoV

#1,(RO)+

Mov

(RO)+
#256. RS

DEC
BNE
MOV

#1,38RHDST

CLR
CLR

MOV

JSR
TYPE

RO, 8RHBA

001454

005037
012777
005077
004737

001406
010000
161062

MOV

161064

041672

CLR

MoV

CLR
JSR

;FORMAT=16 BIT WORDS

s CYLINDER=0

TRACKCO SECTOR=1, KEYS=0

(RO)+

p(s) (RO) +

:HOVE ALL ZEROS FOR DATA

sBRANCH IF DATA NOT COMPLETE
s TRACK=0 SECTOR=1

PC, CHECKT

s CHECK THAT DVA,RDY,DPR,DRY = 1
CANNOT CONsAND THAT NO OTHERS = 1.

.CPHALT

sTINUE

TESTING IF BOTH AREN'T

sSTOP THE TEST

HALT

013711

;256 DATA WORDS 4 HEADER WORDS

¢THESE TWO INSTRUCTIONS GE'S
;ADDR. OF WRFROM INTO RO AND
:BUS ADDRESS REGISTER

TRUE

WRIFOR,aR1

ERFLGS

sGET READY FCR WRITE HEADER AND
:DATA WITH 62 !N RHCS1
:CLEAR ERROR FLAG

#FMT22 ,3RHOF
aRHCA
PC,COMWHD

sFORMAT BIT=1 (16 BIT WORDS)
;CYLINDER =0
;WRITE HEAUcR AND DATA

;IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS

JFROM THE ''COMWHD'‘ ROUTINE THAT MEANS ALL HEADER ON DISK
s1S GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE

sALL ZEROS AND WRITE DATA GAP AND TOLERANCE GAP TO SEE I°
s THEY ARE ALL ZEROS

204% 020174

005737

2044 020200

001056

001406

TST

ERFLGS

BNE

TST54

;HAS ANY ERRORS OCCURED?

F WRITE ERROR OCCURS ECC

s sBRANCH IF YES

IS NOT

. COMPARE SOF TWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE
2049 020202
2050 020210

023737
001402

034556

041626

CMP
BEQ

gECC1.UECC1:COMPARE SOF TWARE ECC WIMH HARDWARE FCC

sBRANCH IF GOOD

CHECHKED

—d

PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-%9

CZRJHEO RP04/5/6 DSKLS
153
WRITE ECC TEST
1

153

WRITE ECC TEST 1

2051 020212
2052 020214
2053 020216
2054 020224
2055 020226
2058 020230
020230
020234
020240

034560

0641630

6$:

104031

004737
10440

000000

78:

032306
053407

mn 6
16:37:12 PAGE 10-40

SEQ 0077

EMT

CMP

ggCC2LWECC2;COMPARE SOF TWARE ECC WITH HARDWARE ECC

EMT

JSR
TYPE
HALT

PC,CHECKE
.CPHALT

BEQ

;BRANCH TO CONTINUE

;BRANCH [F GOOD

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

;STOP THE TEST

JFILL "REINTO' BUFFER WITH EXPECTED DATA
031772

2067 020252

004037
002544
003542
000000

020254
020262
020270
020274
020276
020300

013737
013737
004037
003550
003604
000000

034556
034560
031772

2077 020302

005037

001406

2064 020242

2069
2070
2071
2072
2073
2074

JSR
.WORD

003544
003546

MOV
MOV
JSR

ggiCLAREA

sFILL REINTO BUFFER

8E1N70¢<255.t2>

:T0

*DATA

GECC1,REINTO+<256.%2>;FILL ECCI
GECC2.REINTO+<257. %2> ég% ECC2
RO, CLAREA
sFILL R

REINTO+<258.¢2>

: FROM
;TO

8EINTO*<2722>

CLR

FROM

ERFLGS

:DATA

+CLEAR ERROR FLAG

;NOW COMPARE 'DISK'' BUFFER WITH “REINTO"
2082 020306
2083 020312

004037
002544
040626
000402
020326
020332
020336
104007

000207

020332

104010

032756

JSR

REINTO

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

49:

sRETURN TO COMPARE

5%:

;DATA WORDS
:WORD NOS 257 AND 258

:ARE ECC WHICH ARE CHECKED

2099 020334

000207

RTS

sWORD NOS 259
G
:1S DATA
:WORD NOS 260 10 273
:ARE TOLERANCE GAP

:RETURN TO COMPARE

SRARRARARARRAARAANRRRNAAENCREARAAANARARAAARARNERCRREASERRREREAANRARES

tTEST 54

READ ECC ENABLED 1A

—

CIRJHEOQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81

)

SEQ 0078

s*THIS IS AN ECC READ DATA TEST

s*ERROR CORRECTION IS ENABLED
:*NO ERROR IS INSERTED

:*GOOD DATA USED IS 256 WORDS OF 0
:*COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
;*TRACK O,

SECTOR O KEYS O

READ HEADER AND DATA

LNU“NLNUHNLNUfiflE;Q¥UfiUhJNHUflJN”UhJ—h*-‘—hfl-*—‘—hfl-‘
VIS WA =2 OO0 NN
—=O
NN S W

000004
012706
012737

MOV

003610

18:

000017
28:

035352

#STACK, SP

#54,TSTNM

;RESET STACK

SMOVE #54 TO TEST NUMBER

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

#0,-(SP)

;DATA TO BE READ

MOV

#256. RS

- COUNTER

MOV

(SP), (RO) +

*MOVE IN DATA ON TO SIMULATED DISK

MOV

#D1SK RO

DEC
BNE

RS
18

CMP
MOV

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

CLR
DEC
BNE

(RO)+
RS
2

JSR

PC.FILLEC

(SP)+

SSTART OF SIMULATED DISK DATA

*COUNT
*BRANCH IF 256 NOT COMPLETE
*UNDO =(SP)

SJUMP OVER THE TWO ECC WORDS
*1 DATA GAP

$14 TOLERANCE GAP

*CLEAR DATA GAP, AND
*TOLERANCE GAP
*BRANCH IF NOT COMPLETE
;INSERT THE TWO ECC WORDS ON THE DISK

;IN THE CORRECT PLACE

sTHESS ARE FOR ECC TEST ONLY
020416
020424
020430
020436
020444
020450
020454
020460

012737

177777
034570
034564

001424

034566
034600

MoV
CLR
MOV
MOV

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

CLR

GECC?2

CLR

GECC1

CLR
CLR

034576

O NS
= OV
NN

SCOPE

MOV

004737

=2 OV

TST54

000000
000400
040626

020412

001100
000054

;
;

005020
005305
001375

QO NOWNE

D
b o
b
b
b
D e
b
h e
b
b
D
b ad
b md md
od
b
i =
b
o
i
b
b
b
b
md
b
b
b
i
b
b
b
b
b
b
b
b
b
b
b ab o

020336
020340
020344

6 020404
7 020406
8 020410

VIWAVAWNWMVAWVNES
S BB

AUALALALNLINLALINLAINLNLALNLAL
AL AN NV AIALNL N NIALINI AL AL NI NI ALNI NNV NI NN NI NI NN NI AV NI AL NV NN N

CHANRANRANAANAARAA
RN LN NNARANANRARARN AN
AN RO CR
RN AD

;THESE

ARE

DATENV
ZCODE

;ECC LOW ORDER TO BE GENERATED

;ECC HIGH ORDER TO BE GENERATED

;CLEAR DATA ENVELOPE CLOCK COUNT
sCLEAR LEADING ZEROS CLOCK COUNT

TO SETUP FOR DISKLESS USE

ONLY

020464

010000

036710

MOV

#FMT22.CYL

020472
020500
020506
020514
020522
020530
020534
020549
020542

000000
000000
000000

036713
036712
036714
036716
036 70

MOVB
MOVB
MOV
MOV

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

CLR
f?f

as.cnc

000000
000400
036720
033270

MOV

wlR(

;16 BITS PER WORD

“CYLINDER 0, FORMAT 16 BITS

0256 ,DAWORD :NO. OF DATA WORDS

STHIS IS A READ COMMAND
;GO TO CALCULATE CRC

p—y

CZRJHEO RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-41
READ ECC ENABLED 1A
154

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

SEQ 0079

~ VV\IV\JO&OOO‘OO‘OO‘OU‘
S NN =200
NONWNEB WO

D wnd

NININIAINININININI
NN NI NI NI NN NN

READ ECC ENABLED 1A

wd sd

s THESE ARE REGULAR SETUPS

—

o
o

010000

o
n

d ad wd e

ad e

D wd e

032054
177374
002544
000000

6
177 020614

o
N
(=]
o
W
N

2205 020664
2206 020670
2207 020674
2208 020700
52?8 020702

sSTARTING ADDRESS OF READ BUFFER
:IN LOWER BYTE GET SECTOR
sGET TRACK IN HIGHER BYTE
s TRACK/SECTOR IN RHDST
216 BITS PER WORD
sECC CORRECTION NOT INHIBIT
sBECAUSE ECC IS NOT GOING
:TO BE CHECKED

#0,-(SP}

#0.1(SP)
(SP)+,aRHDST

NFMT22, QRHOF

sCYLINDER 0

004737

032116
053407

JSR
TYPE

PC,CHECKT

104401

.CPHALT

HALT

001460
001406
036550

Mov

CLR
JSR

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

sAND THAT NO OTHERS = 1.
CANNOT CONsTINUE TESTING IF BOTH AREN'T TRUE
;STOP THE

TEST

REFOR, aR1

;READ HEADER AND DATA=7?2

PC,COMHD

sREAD HEADER AND DATA

ERFLGS

;CLEAR ERROR FLAG

;IF THERE ARE READ ERRORS THEN
cECC WILL NOT BE CHECKED

:IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;FROM THE ''COMHD'' ROUTINE THAT MEANS SECTOR GAP,
¢FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND
:gz?gc?ggf HAVE GONE BY AND SYNCS WERE CORRECTLY
cHEADER AND DATA ARE TO BE CHECKED.
¢IN CHECKING READ DATA THE WRITE FROM BUFFER
:"WRFROM'' 1S FILLED WITH EXPECTED DATA AND

s COMPARISONS ARE MADE
005737
001102
004737
005737
001401

001406

TST
BNE
JSR
TST
BEQ

031554
001316

104032

2204

#REINTO, SRHBA

adRHCA

013711
005037
004737

CONO NS NN

160440

sSETUP GENERAL REGISTERS

CLR

9 020626

6 020642
97 020646

000001

PC,CLDISK

#=356
. .<4
,aRHWC :256. DATA 4 HEADER WORDS

160436

000000

1 020636

MOV
Mov
MOVB
MOvVB
MOV
MOV

005077

020624

O O O O O O O 00 0000000000 00000000~~~
(VT
5 W N —O
o
o

b ek

b nd

d e

AONAINLALNINIALNINIA
NN AL NI NN NN

020620

JSR

160454
160450

013746
042716
022637
001401
104032

EMT

034556
174000
001346

6$:

MoV

8iC
CMP
BEQ
EMT

ERFLGS
TST55

;ANY ERRORS ALREADY THERE
sBRANCH IF YES
PC,PUTREG
s SAVE REGISTERS
ER1
sNO ERRORS SHOULD BE SET
63
sBRANCH IF NO ERRORS SET
32

;ONLY 11 OF THE 32 BITS CAN BE SEEN

GECC1,=-(SP)

#176000, (SP)
;gp)+.ec2

:IN THE PATERN REGISTER
sDCK SHOULD BE SET IN RHER1
¢GET PATTERN REGISTER
sKEEP ONLY 11 BITS
:COMPARE PATTERN REGISTER
sBRANCH IF GOOD

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

SE@ 0080

READ ECC ENABLED 1A

2213
2214
2215
2216
2217 020704
2218 020710
2219 020716
2220 020724
2221 020726
2222 020730
020734
020740
2223 020742
2224 020746
2225 020752
2226 020756
2227 020764
2228 020766
2229 020772
2230 020776
2231 021002
2232 021006
2233 021010
%234 021012

;ADD 16 MAINTENANCE CLOCKS TO

;BRING EBL DOWN
7%:
8%:

000020
000002
000002

#16. RO

#MCLK ,aRHMR

zQCLK.iflHHR

032306
053407

PC,CHECKE

001500
010000
000000
000000

#WRFROM RO

000000
000000
000400
000000

2237 021014
2238 021020

MOV
BIS

+CPHALT

#0'FMT22,
(RO) +
#0,-(SP)
#0.1(sP)
(SP)
¢+, (RO)+

000001

#0, (RO)+

#0,(RO)+

#256. .R1

38:

001406
031554

#0,R2

BNE

R2. (RO) +
R1
3s

CLR
JSR

PC,PUTREG

MOV

ERFLGS

s COUNTER
sSET CLOCK
¢CLEAR CLOCK
s COUNT
sBRANCH IF 16 CLOCKS NOT DONE
;CHECK THAT BITS =1
sCANNOT CONTINUE TESTING IF THEY DON'T
sSTOP THE TESY
sGETTING READY TO FILL EXPECTED DATA
sCYLINDER 0
sIN _LOWER BYTE GET SECTOR
sGET TRACK IN HIGHER BYTE
sGET TRACK/SECTOR IN BUFFER
;KEY1 IN BUFFER
;KEY2 IN BUFFER
;DATA WORD COUNTER
;DATA
:DATA INTO BUFFER

:; COUNT
COUN

;BRANCH IF 256 NOT DONE

;CLEAR ERROR FLAG
sSAVE REGISTERS

sNOW READ DATA BUFFER WILL BE CHECKED
2244 021024
2245 021030

004037
001500
002544
000404
021044
021050
021054
104004

000207
021050

104005

2259 021052

000207

032756

JSR
WRFROM
REINTO

RO, COMPAR

4+255.

43
58

4$:

5$:

TST55

EMT

JRETURN TO ‘‘COMPAR'’

RTS

EMT
RTS

o RN RRR AR AR AR

s CHECK
;600D BUFFER
JTEST BUFFER
;NUMBER OF WORDS CHECKED
JRETURN POINT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA
JRETURN FOR GOOD COMPARISON

sHEADER WORDS
;5 _T0 260 ARE DATA WORDS
JRETURN TO ''COMPAR''

AN AN RN RN AN RN RANARANNRARNRRANRARARNARA
AN RN
ANNS

READ ECC ENABLED 18
J*TEST 55
s*THIS IS AN ECC READ DATA TEST
s*ERROR CORRECTION IS ENABLED
s*A CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32
2*GOOD DATA USED IS 256 WORDS OF 0
s*COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
;*TRACK O, SECTOR O KEYS O READ HEADER AND DATA

%%gJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
READ ECC ENABLED 1B

SRR AR

021054
226; 021056

000004
012706

001100

2269 021062
2270

012737

000055

TSS
003610

0D 7
16:37:12 PAGE 10-44

AANRAAR

AR RN R

MOV

#STACK,SP

JRESET STACK

MOV

#55,TSTNM

;MOVE #55 TO TEST NUMBER

SCOPE

SEQ 0081

AR RAR RN RAR

AN RN RANCRA AR A AR

AR A AL

b
b el amd
b el
e

00N
RN
—t ) b

RIAINININIAINININ)
NINIAININIAINIAIND

0 G0 00 Qo 0 G0 00 00 00 0O
VBN
N W =O

2279 0

NR Y
L =)
ORN
S NOGER

0000
FORIRIRRD
— b cnd e cud b

sSETUP FOR WHAT IS TO BE READ
sHEADER CRC IS RESTORED FROM A SUBROUTINE

22
2290 021130
22

000000
000400
040626

1$:

000017

28:

035352

jelelelolalelal
LAS LN LS TN TN LN T N

= OO 00 ~NON NS NN

PIORD =b e and cod o =

ASIASTAS
T N1 N1, ST .NT.N1,8T,§]
N AN N N AN N NN NN

2310 021210
2311 021216
1

1
1
1
1
1

(SP), (RO) +

*MOVE IN DATA ON TO SIMULATED DISK

*START OF SIMULATED DISK DATA

RS
1%
(SP)+
(RO)+, (RO) +
#15.,RS ;1 DATA

CLR

DEC
BNE

(RO)+
RS
28

< COUNT
‘BRAMCH IF 256 NOT COMPLETE
*UNDO =(SP)
SJUMP OVER THE TWO ECC WORDS
GAP
;14 TOLERANCE GAP
*CLEAR DATA GAP, AND
*TOLERANCE GAP
*BRANCH IF NOT COMPLETE

JSR

PC.FILLEC

;INSERT ECC

001424

MOV

034566
034600

MoV
MOV

FOR ECC

CLR
CLR
CLR
CLR
CLR

IN PROPER PLACE ON DISK

TEST ONLY

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

GECC)
GECC2

DATENV
ZCODE

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 SETUP FOR DISKLESS USE ONLY

(olelolelale
ol
S NNOOO bbb b d
OO
\NNLNININON
O\ NWVNO NNNNN
= —3 LN NN N NN
OONNNNNNN

2
2308 021202
2309

1727777

034570
034564
034572
034556
034560
034574
034576

COUNTER

DEC
BNE
TST
CMP

;THESE ARE

012737
005037
013737
013737
005037
005037
005037
005037

:DATA TO BE READ

#256. RS

#DISK.RO

MOV

005020
005305
001375

004737

#0,=(SP)

MOV
MOV
MoV
MOV

010000

036710

MOV

NFMT22,CYL

000000

036713
036712
036714
036716
036770

MOVB
MOVB
MOV

#0,SECOTR+1
STRACK 0
#0.SECOTR
*SECTOR 0
#O KEY1 ;KEY1=0

CLR
fif

RS,CRC

MOV
MOV

033270

SCYLINDER 0, FORMAT 16 BITS

#0 KEY2 :KEY2=0
0256 ,DAWORD ;NO. OF DATA WORDS

WCRC
sTHIS

;16 BITS PER WORD

IS TO INSERT ERROR

STHIS IS A READ COMMAND
;G0 TO CALCULATE CRC

2322
2323

E 7
16:37:12 PAGE 10-45

SEQ 0082

:THE DISK DATA IS IN LOCATION STARTING FROM 'DISK'
:THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING

gggg

;THIS MOVE

2326 021262

012737

100000

040630

MOV

#100000,DISk+2 ;FORCE ERROR ON BIT NUMBER 32

%%%8 021270

012737

000026

021444

MoV

#22.,8% ;INSERT POSITION REG.

%%%g

2331

S%%%

:gg ERROR POSITION REGISTER WILL SHOW

:THESE ARE REGULAR SETUPS

2334 021276

004737

032054

2336 021310

012777

002544

157716

2338 021322
2339 021330

112766
012677

000000
157710

000001

2335 021302

012777

2337 021316

112746

2340 021334

012777

2341
2342

177374

000000
010000

JSR

157722

:SETUP GENERAL REGISTERS

cwexnro SRHBA

;STARTING ADDRESS OF READ BUFFER

co 1(SP)
(SP)+,8RNDST

;GET TRACK IN HIGHER BYTE
:TRACK/SECTOR IN RHDST

#<956.~4.,aRHWC :256. DATA & HEADER WORDS

MOvV8

0.-(SP)

MOV

MOVB
MOV

157706

PC,CLDISK

MOV

#FMT28, aRHOF

:IN LOWER BYTE GET SECTOR
:16 BITS PER WORD

;ECC CORRECTION NOT INMHIBIT
:BECAUSE ECC IS NOT GOING

2343
%gzg 021342

005077

157704

CLR

aRHCA

;TO BE CHECKED
:CYLINDER 0

2346 021346
021352

004737
104401

032116
053407

JSR
TYPE

PC,CHECKT
LCPHALT

;CHECK THAT DVA,RDY,DPR,DRY = 1
;AND THAT NO OTHERS = 1.
CANNOT CON-

347 021356

000000

2348 021360
2349 021364
2350 021370
2351
2352

013711
005037
004737

2355
2356
2357
2358
2359
2360
2361
2362

HALT
001460
001406
036550

MOV
CLR
JSR

:STOP THE TEST

REFOR,aR1
:READ HEADER AND DATA=72
ERFLGS ;CLEAR ERROR FLAG
PC, COMHD
;READ HEADER AND DATA
:1F THERE ARE READ ERRORS THEN
;ECC WILL NOT BE CHECKED

;1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;FROM THE ''COMHD’' ROUTINE THAT MEANS SECTOR GAP,
JFIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND
;SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
:DETECTED
JHEADER AND DATA ARE TO BE CHECKED.
:IN CHECKING READ DATA THE WRITE FROM BUFFER
:"WRFROM'' IS FILLED WITH EXPECTED DATA AND

5%22

;COMPARISONS ARE MADE

2365 021374

005737

001406

2367 021402
2368 021406
2369 021414
2370 021416
237
2372
2373
2374
2375 021420

004737
022737
001401
104032

031554
100000

013746

034556

2366 021400

:TINUE TESTING IF BOTH AREN'T TRUE

001077

TST

ERFLGS

JSR
CMP
BEQ
EMT

PC.PUTREG
#DCK,ER1
63
32

MoV

GECC1,-(SP)

BNE
001316

6$:

TSTS56

;ANY ERRORS ALREADY THERE

:BRANCH IF YES

:SAVE REGISTERS
JONLY DATA CHECK ERROR SHOULD BE SET
:BRANCH IF YES
;2ERC
;ONLY 11 OF THE 32 BITS CAN BE SEEN
;IN THE PATERN REGISTER
;DCK SHOULD BE SET IN RHER1
:GET PATTERN REGISTER

-t £

CZRJ'HEQ RP04/5/6 DSKLS PTZ MACRO V04.00 17-NOV=-81
155
READ ECC ENABLED 1B

F 7
CZRJHEO RPO4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-46
155
READ ECC ENABLED 1B

2376 021426
2377 0216430
2378 021434
gggg 021436

042716
022637
001401
104032

174000
001346

2381 021440
2382 021444
2383
2384
2385
2386
2387 021446
021452
021456
2388 021460

006037
000026

035200

004737
104401
000000
012700

032306
053407

2391 021476
2392 021502

112766
012620

000000

2389 021464
2390 021470
2393 021506

2394 021510

2395 021514

2396 021520

2397 021524

2398 021526
%283 021530

012720
112746
012720

001500

010000
000000
000000

012702

000000

010220

100000

2405
2406
2407 021540
5’283 021544

005037
004737

001406
031554

2410
52}}
004037
001500
002544

2617 021562
26418 021564

021570
021574

JSR
22.

RO.ECORR

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

JSR
TYPE
HALT
MOV

PC,CHECKE
,CPHALT
#WRFROM, RO

;CHECK THAT BITS = 1
*CANNOT CONTINUE TESTING IF THEY DON'T
:STOP THE TEST
SGETTING READY TO FILL EXPECTED DATA

MOVB
MOV

#0.1(SP)
(SP)+, (RO)+

SGET TRACK IN HIGHER BYTE
SGET TRACK/SECTOR IN BUFFER

001512

#O'FMT22,(RO)+
#0.-(SP)

MOV

#0, (RO) +

MOV

#256. .R1

MOV

MOV
DEC
BNE

#0. (RO)+

:CYLINDER 0
*IN LOWER BYTE GET SECTOR
*KEY1 IN BUFFER

*KEY2 IN BUFFER

:DATA WORD COUNTER

#0,R2

*DATA

R1
3s

*COUNT
*BRANCH IF 256 NOT DONE

R2.(RO) ¢+

:DATA INTO BUFFER

;ONLY GOOD DATA HAS BEEN PUT IN "WRFROM'
;NOW THE INSERTED ERROR WILL BE PUT IN
MOV
#100000,WRFROM+<5%2>
:INSERTED ERROR

CLR
JSR

032756

JSR
WRFROM
REINTO

000404

2619 021566 021600

26435

;KEEP ONLY 11 BITS
*COMPARE PATTERN REGISTER
*BRANCH IF GOOD

ERFLGS
;CLEAR ERROR FLAG
PC,PUTREG
:SAVE REGISTERS

;NOW READ DATA BUFFER WILL BE CHECKED

26413 021550
2614 021554
2615 021556

24620 021570
021570
2621 021572
2622 021574
021574
2423
2424
5252 021576

#174000,(SP)
(SP)+,EC2
78
32

MOV

005301
001375

012737

2616 021560

000001

000400

2491
2402
%282 021532

BIC
CMP
BEQ
EMT

MOV
MOVB

000000

012720

012701

78:
8s:

SEQ 0083

104004
000207

104005
000207

RO, COMPAR

4+256.

*NUMBER OF WORDS CHECKED

4
5¢

48:
58
:

*RETURN POINT FOR ERROR HEADER
*RETURN POINT FOR ERROR DATA

TST156

EMT
RTS

*RETURN FOR GOOD COMPARISON
4
PC

;RETURN TO ''COMPAR'’

:HEADER WORDS
*5 70 260 ARE DATA WORDS
SRETURN TO '‘COMPAR'*

EMT
RTS

: CHECK
:G0OD BUFFER
STEST BUFFER

R L2232 23 2322223232222 38222223222232 22321 1t

LeTEST S6

READ ECC ENABLED 1€

1212IIIIIZI 1LY

G_7
CZRJHED RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16 37:12 PAGE 10-47
156

SEQ 0084

READ ECC ENABLED 1C

s*THIS IS AN ECC READ DATA TEST

:*ERROR CORRECTIONIS ENABLED
:xA NON CORRECTABLE ERROR IS INSERTED IN BIT POSITION 21 THRU 32
:*GOOD DATA USED IS 256 WORDS OF 0
:*COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
;*TRACK 0, SECTOR O KEYS O READ HEADER AND DATA

021600

2636 021602
%zgg 021606

000004

012706
012737

001100
000056

TST56
003610

2439
5220

H
H

2442 021614

012746

000000

2444 021624

012700

040626

2646
2447
2448
2449

005305
001375
005726
022020

2643 021620
2445 021630
021632
021634
021636
021640

2450 021642

012705

011620

012705

2451
2452 021646
2453 021650
%222 021652

005020
005305
001375

2456
2457 021654

004737

%223

000400

a2l

SCOPE

MoV
MoV

1$:

000017
2$:

035352

ddRRRddd

#STACK,SP
#56,TSTNM

¢RESET STACK
sMOVE #56 TO TEST NUMBER

MOV

#0,=(SP)

MoV

#DISK RO

DEC
BNE
TST
cMP

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

MoV

+DATA TO BE READ

#256. RS

¢ COUNTER

(SP), (RO) +

sMOVE IN DATA ON TO SIMULATED DISK

sSTART OF SIMULATED DISK DATA
s COUNT
:BRANCH IF 256 NOT COMPLETE
;UNDO -(SP)
sJUMP OVER THE TWO ECC WORDS

MoV

#15. RS

:1 DATA GAP

CLR
DEC
BNE

(RO)+
R5
23

;164 _TOLERANCE GAP
:CLEAR DATA GAP, AND
s TOLERANCE GAP
¢BRANCH IF NOT COMPLETE

JSR

PC,FILLEC

s INSERT THE TWO ECC WORDS ON THE DISK

:IN THE CORRECT PLACE

sTHESE ARE FOR ECC TEST ONLY

012737
005037
013737
013737
005037
005037
005037
005037

177777
034570
034564
034572
034556
034560
034574
034576

001424
034566
034600

2471

%2;%

MoV
CLR
MoV
MOV
CLR
CLR
CLR
CLR

#-1,1SECC
;THIS IS AN ECC TEST
POSITI
.CLEAR ERROR POSITION COUNTER
NCODE _,NCOUNT
;TEMPORARY N-CODE COUNTER
HARDER ,HADTMP ; TEMPORARY HARD ERROR COUNTER
GECC]
sECC LOW ORDER TO BE GENERATED
GECC2
:ECC HIGH ORDER TO BE GENERATED
DATENV
;CLEAR DATA ENVELOPE CLOCK COUNT
ZCODE
sCLEAR LEADING ZEROS CLOCK COUNT

sTHESE ARE TO SETUP FOR DISKLESS USE ONLY

2474 021726
2475
2476 021734
2477 021742
2478 021750

012737

010000

036710

Mov

NFMT22,CYL

112737
112737
012737

000000
000000
000000

036713
036712
036714

Movs
move
MoV

#0,SECOTR+1
#0,SECOTR
#0,KEY1 ;KEY1=0

2481 021772
2482 021776
2483 022002
2484 022004

005037
4537
036710
040610

2479 021756
2480 021764

il iislasdsiisddiiiadiidds]]

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

MoV

2220

26462 021660
2463 021666
2464 021672
2465 021700
2466 021706
2467 021712
2468 021716
5293 021722

AARAdR

012737
012737

000000
000400

036720
033270

036716
036770

MoV
MOV

CLR
JSR
cyL
WCRC

;16 BITS PER WORD
;CYLINDER O, FORMAT 16 BITS
sTRACK 0
;SECTOR 0

#0.KEY2 :KEY2=0
l256 .DAWORD
NO OF DATA WORDS
RS.CRC

THIS IS A RFAD COMMAND
;G0 10 CALCULATE CRC

H 7
CZRJHED RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-48
156

SEQ 0085

READ ECC ENABLED 1C

:THIS IS TO INSERT ERROR
STHE DISK DATA IS IN LOCATION STARTING FROM ‘'DISK’
‘§555P335E1°~ OF THE ERROR CAN BE CHANGED BY CHANGING
2491 022006

012737

177760

040630

26494 022014

012737

010040

022170

MOV

#177760,D1SK+2

:FORCE ERROR ON BIT NUMBER 21 THRU 32

#4128.,88

- INSERT POSITION REG.

2SO ERROR POSITION REGISTER WILL SHOW

s THESE ARE REGULAR SETUPS

032054

2499 022022
2500 022026

177374
002544
000000
000000
157164
010000

25
2505 022060

022102
022104
022110
022114

000000
013711
005037
004737

001460
001406
036550

2O 00NN
NN —

:SETUP GENERAL REGISTERS

#<356.<4. ,aRHWC :256. DATA & HEADER WORDS

000001

MOVB
MOVB
MOV

0,-(SP)

*IN LOWER BYTE GET SECTOR

NFMT22,3RHOF

+16 BITS PER WORD

MOV

157162

CLR
JSR

TYPE

HALT

Mov
CLR
JSR

cnexnro aRHBA

co 1(SP)
(SP)+,aRHDST

aRHCA
PC,CHECKT
.CPHALT

:STARTING ADDRESS OF READ BUFFER

*GET TRACK IN HIGHER BYTE
:TRACK/SECTOR IN RHDST

*ECC CORRECTION NOT INHIBIT

*BECAUSE ECC IS NOT GOING
*TO BE CHECKED

sCYLINDER 0
sCHECK THAT DVA,RDY,DPR,DRY = 1
sAND THAT NO OTHERS = 1.

CANNOT

CON-

cTINUE TESTING IF BOTH AREN'T TRUE
;STOP THE TESTY

REFOR,aR1
:READ HEADER AND DATA=7?2
ERFLGS
;CLEAR ERROR FLAG
PC,COMHD

sREAD 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

:gg?gc?ggf HAVE GONE BY AND SYNCS WERE CORRECTLY
cHEADER AND DATA ARE TO BE CHECKED,
;IN CHECKING READ DATA THE WRITE FROM BUFFER

VIS AN

NIANNINNINININI
NN NN NN

VWA
I
D TTVAWIALA
POPNOPNINININAD
= b ood ccd d b =d end b

104401

032116
053407

PC,CLDISK

MOV

157160

2509 022066
2510 022072
022076

2527 022120
2528 022124
2529 022126
2530 022132
2531 022140
253% 022142

JSR

157176
157172

;"WRFROM''

1S FILLED WITH EXPECTED DATA AND

s COMPARISONS ARE MADE
005737
001106
004737
022737

001406

031554
100000

TST

ERFLGS

JSR
cMP

PC.PUTREG
#DCK,ER1

BNE
001316

ggg

1ST57

;ANY ERRORS ALREADY THERE

:BRANCH IF YES

;SAVE REGISTERS
;ONLY DATA CHECK ERROR SHOULD BE SET

:BRANCH IF YES
:ZERO

:ONLY 11 OF THE 32 BITS CAN BE SEEN
7 022144

8 022150

6$:

GE €1 -(SP)
'3 76000, (SP)

:IN THE PATERN REGISTER
:DCK SHOULD BE SET IN RHER1
:GET PATTERN REGISTER

:KEEP ONLY 11 BITS

1 7
CZRJHEO RPO4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-49
156

SEQ 0086

READ ECC ENABLED 1C

2539 022154
2540 022160
ggz; 022162

022637
001401
104032

001346

2543 022164
2544 022170
2545
2546
2547
2548
2549 022172
2550 022176
2551
2552 022204
2553 022206
2554
2555

004037
000000

035200

004737
022737

031554
100100

78:
8$:

001316

001401
104036

CMP
BEQ
EMT

(SP)+,EC2
78
32

:COMPARE PATTERN REGISTER
;BRANCH IF GOOD

JSR
.WORD

RO,ECORR

;G0 TO ECC CORRECTION PROCESS
sEXPECTED POSITION REG. WHEN CORRECTION
;1S COMPLETE

JSR
CMP

PC.PUTREG
#DCK'ECH,ER1

BEQ
EMT

9s
36

;SAVE REGISTERS
;WITH ERRORS INSERTED IN BIT POSITION 21
:THRU 32 HARD ERROR BIT SHOULD SET
;BRANCH IF GOOD

JSR

PC.,CHECKE

:32 ECH SHOULD SET

2556

2557
2558 022210

022210

004737

2560 022226

012720

022214
022220
2559 022222

2561 022232

104401
000000
012700

112746

2562 022236
2563 022244

112766
012620

2565 022252

012720

2567 022262
2568 022266
2569 022270
%gg? 022272

012702
010220
005301
001375

2564 022246

2566 022256

9s:

032306

053407
0015G0

#WRFROM,RO

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

000000

MOvVB

#0,-(SP)

:IN LOWER BYTE GET SECTOR

MOV

#0, (RO)+

010000

000000

012720

000000

012701

000400

MOV

000001

000000

MoV

MOV

000000

3s:

2572

%2?2

012737

177760

2577
2578
2579 022302
gggg 022306

005037
004737

001406
031554

2582

gggz

#0,1(SP)
(SP)+,(RO)+
#0,(RO)+

#256. .R1

#0,R2
R2.(RO)+
R1
3$

:CYLINDER 0

:GET TRACK IN HIGHER BYTE
JGET TRACK/SECTOR IN BUFFER

:KEY1 IN BUFFER

:KEY2 IN BUFFER

:DATA WORD COUNTER

:DATA
:DATA INTO BUFFER
: COUNT
;BRANCH JF 256 NO'TM DONE

001512

:NOW THE INSERTED ERROR WILL BE PUT IN
MOV

#177760,WRFROM+<522>

CLR
JSR

ERFLGS
PC,PUTREG

: INSERTED ERROR

:CLEAR ERROR FLAG
:SAVE REGISTERS

;NOW READ DATA BUFFER WILL BE CHECKED

2585 022312
2586 022316

004037
001500

2591 022330

022342

2592 022332

MoV
MOV
DEC
BNE

#O'FMT22,(ROY+

;ONLY GOOD DATA HAS BEEN PUT IN °‘WRFROM®

4%252 022274

2587 022320
2588 022322
2589 022324
2590 022326

MOVB
MOV

LCPHALT

:CHECK THAT BITS = 1

TYPE
HALT
MOV

032756

JSR
WRFROM
REINTO
4+256.
43
5%

002544
00064604
022332
022336
($:

1STS57

RO, COMPAR

: CHECK
;600D BUFFER

:TEST BUFFER
:NUMBER OF WORDS CHECKED
RETURN POINT FOR ERROR HEADER
:RETURN POINT FOR ERROR DATA

sRETURN FOR GOOD COMPARISON

-l

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

SEQ 0087

READ ECC ENABLED 1C

022332
2593 022334
2594 022336
022336
2595
2596
%ggg 022340

104004
000207

5%:

104005
000207

EMT
RTS

JRETURN TO

sHEADER WORDS
;5 T0 260 ARE DATA WORDS
JRETURN TO ''COMPAR''

EMT
RTS

2605

4
PC

JIRARR N

s*TEST 57

R AR AR

.
'‘COMPAR'’

R AR AR AR RARARARRRRRARARRARNAR AR

WRITE ECC TEST 2

J*THIS IS A WRITE ECC TEST

s*WRITE CYLINDER O,

FORMAT 16 BITS PER WORD

:*TRACK 0, SECTOR 1, KEYS 0, NUMBER OF WORDS 256
;*OF ALL ONES.

JINRARANRARA RN AN AR

022342
5289 022344

000004
012706

2608 022350
2609 022356
2610 022362
2611 022366
2612 022370
2613 022372
%g}g 022374

012737
012700
012701
005020
005301
001375
004737

TST57:

001100
000057
040530
000460

003610
1$:

032054

gg}g

2618 022400
2619 022406
2620 022412
2621 022420
2622 022426
2623 022432
2624 022436
gggg 022442

012737
005037
013737
013737
005037
005037
005037
005027

177777
034570
034564
034572
034556
034560
034574
034576

001424
034566
034600

52:35(1?

R AR R AN R AR AR

RN R

NN IR RANRANAARE

SCOPE
MOV

#STACK,SP

JRESET STACK

MOV
MOV
MOV
CLR
DEC
BNE
JSR

#57 ,TSTNM
#SECGAP,RO
#304. R
(RO)+
R1
1$
PC,CLDISK

sMOVE #57 TO TEST NUMBER
JPOINTER
sCOUNTER
sCLEAR SIMULATED DISK AREA
sTHIS 1S USED TO SET GENERAL REGISTERS

MOV
CLR
MOV
MOV
CLR
(LR
CLR
CLR

#-1,TSECC
cTHIS IS AN ECC TEST
POSITI
,;CLEAR ERROR POSITION COUNTER
NCODE ,NCOUNT
;TEMPORARY N-CODE COUNTER
HARDER ,HADTMP
:TEMPORARY HARD ERROR COUNTER
GECCI
;ECC LOW ORDER TO BE GENERATED
GECC?2
JECC HIGH ORDER TO BE GENERATED
DATENV
;CLEAR DATA ENVELOPE CLOCK COUNT
ZCODE
;CLEAR LEADING ZEROS CLOCK COUNT

;THESE ARE TO BE SETUP FOR DISKLESS USE ONLY
012737

010000

042046

MOV

012737
005037
005037
012737
004537
042046
042056

000001
042052
042054
000400
033270

042050

MOV
CLR
CLR
MOV
JSR
wCYL
GCRC

042106

sgzg

2644 022510
2645 022516
2646 022522

JTHESE ARE FOR ECC TEST ONLY

2627
2628
2629
2632 022446
2633
2634 022454
2635 022462
2636 0224
2637 022472
2638 022500
2639 022504
522? 022506

#FMT22 ,WCYL

;FORMAT22=168IT WORDS AND
:CYLINDER 0
#1 ,WSECTR
s TRACK=0, SECTOR=1
WKEY1
:KEY1=0
WKEY?2
:KEY2=0
#256. ,FNWORD
;256 DATA WORDS
RS,CRC
;G0 TO CALCULATE CRC

;THESE ARE REGULAR SETUPS

012777
012700
010077

177374
001500
156506

156514

MOV
MOV
MOV

#-260. ,aRHWC
#WRFROM,RO
RO,3RHBA

;256 DATA WORDS & HEADER WORDS
JTHESE TWO INSTRUCTIONS GETS
;ADDR. OF WRFROM INTO RO AND

CZR JHEO RP0O4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
WRITE ECC TEST 2
157

2647
2648 022526
2649
2650 022532

012720

010000

012720
005020
005020
012705
012720
005305
001374
012777

0000C1

004737
104401

26560
2661 022576
2662
2663 022602
2664 022606
2665 022614
2666 022620

28:
38:
156460

032116
053407

MOV
CLR

#1,(RO)+
(RO)+

MOV
EE!

#256. RS
g;1.<no>+

BNE
Mov

33
#1,8RHDST

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

JSR

PC,CHECKT

sCHECK THAT DVA,RDY,DPR,DRY = 1

(RO) +

.CPHALT

‘KEY2=0

: COUNTER
*MOVE ALL ONES FOR DATA

sAND THAT NO OTHERS = 1.

CANNOT CON-

sTINUE TESTING IF BOTH AREN'T TRUE

001454

MOV

WRIFOR,aR1

005037
012777
005077
004737

001406
010000
156432
041672

CLR

ERFLGS

CLR
JSR

sCYLINDER=0

:STOP THE TEST

013711

MOV

:FORMAT=16 BIT WORDS

*TRACK=0, SECTOR=1, KEYS=0
*KEY1=0

HALT

156434

;BUS ADDRESS REGISTER

#FMT22, (RO)+

TYPE

000000

SEQ 0088

MoV

CLR

000400
177777
000001

K 7
16:37:12 PAGE 10-51

sGET READY FOR WRITE HEADER AND

;:DATA WITH 62 IN RHCS1

;CLEAR ERROR FLAG

N#FMT22 ,aRHOF
dRHCA
PC,COMWHD

:FORMAT BIT=1

;CYLINDER =0

(16 BIT WORDS)

;WRITE HEADER AND DATA

s1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS

;FROM THE ''COMWHD'’ ROUTINE THAT MEANS ALL HEADER ON D]SK

;1S GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE
sALL ONES AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF
3

2674 022624
2675
2676 022630
2677
2678
2679

sTHEY ARE ALL

005737

001406

001056

034556

041626

034560

041630

104031

000405
023737
001401

6$:

104031

96
2697 022672

TST

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
023737
001402

2690 022660
022660
022664
022670

ZEROS

7%:

004737
104401

000000

CMP
BEQ
EMT

GECCT1,WECCT;COMPARE SOFTWARE ECC WITH HARDWARE ECC
63
:BRANCH IF GOOD
31

CMP
8EQ
EMT

GECC2.,WECC2; COMPARE SOF TWARE ECC WITH HARDWARE ECC
7%
;BRANCH IF GOOD
31

sBRANCH TO CONTINUE

JSR
TYPE

PC,CHECKE
.CPHALT

;CHECK THAT BITS = 1
sCANNOY CONTINUE TESTING IF

B8R

HALT

sSTOP

IHE

TEST

;FILL *REINTO' BUFFER WITH EXPECTED DATA
004037

031772

JSR

RO, CLAREA

¢FILL REINTO BUFFER

THEY DON'T

T¢

CZR JHEOQ RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81
157
WRITE ECC TEST
¢

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
2730
2731
2732 022764
2733
2742

002544
003542
177777

REINTO

001406

oo~

03544
03546

[=le]

005037

WNN
S
~Nwan
~NO W

013737
013737
004037
003550
003604
000000

cCoOo

2698 022676
2699 022700
2700 022702
2701
2702 022704
2703 022712
2704 022720
2705 022724
2706 022726
2707 022730
2708
2709
2710 022732
2711
2712

16:37:12 PAGE 10-52

SEQ 0089
:FROM

JWORD

REINT0+<255.¢2> :T0
-1
*DATA

MOV

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

JSR

RO, CLAREA

MOV

GECC2.REINTO+<257. %2>+ FILL ECC2
sFILL REST

REINTO+<258.#2>

*FROM

REINTO+<272.%2>
0
CLR

ERF4GS

:T0
:DATA

;CLEAR ERROR FLAG

;NOW COMPARE 'DISK'' BUFFER WITh 'REINTO'’
004037
002544
040626

032756

JSr

REINTO
DISK

RO, COMPAR

s CHECK

:GOOD BUFFER
sTEST BUFFER

258.

000402

022756
022762
022766

A §

104007

000207

5%:

104010

+sNUMBER OF WORDS CHECKED

48
5%
TST60

¢cRETURN POINT FOR ERROR HEADER
sRETURN POINT FOR ERROR DATA
sRETURN FOR GOOD COMPARISON

EMT
RTS

EMY

RETURN TO (OMPARE

sDATA WORDS

;WORD NOS 257 AND 258

;ARE ECC WHICH ARE CHECKED

;WORD NOS 259
;1S DATA GAP
sWORD NOS 260 TO 273
000207

RTS
s

cARE TOLERANCE GAP

sRETURN TO COMPARE

NN RN AN AN R AR RA R A NN RN ARN R A AR AN RR AN

J*TEST 60

A RN RN

AT AR

A AN

ARANNTERS

READ ECC ENABLED 2A

s*THIS IS AN ECC READ DATA TEST
;*ERROR CORRECTION IS ENABLED
2*NO ERROR IS INSERTED

;*GOOD DATA USED IS 256 WORDS OF 177777
s*COMMAND 1S GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
tTRACK 0,
AR AR

001100
000060

b
b

{

S
AN V)
N N
[=l=%
[=1V,
1o

2747
2748
2749 023002
2750 023006
2751 023012

000004
012706
012737

(=lela]

022766
2743 022770
2744 022774
2745
2746

TST60
003610

SECTOR O KEYS O

ANA AR AR

SCOPE
MOV
MOV

A AR RN A

#STACK,SP
#60,TSTNM

READ HEADER AND DATA

RN RN ANRA NN

N AN AN

AN RN NN

RNANARNRAANNS

SRESET STACK
;MOVE #60 TO TEST NUMBER

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

177777

000400
040626

MOV

MOV
MoV

#-1,-(SP)

#256. ,RS
#D15K.RO

sDATA TO BE READ

< COUNTER
;START OF SIMULATED DISK DATA

T¢

CZRJHEO RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81
160

READ ECC ENABLED 2A

2752 023016
2753 023020
27564 023022
2755 023024
2756
3026
2757 023030
2758
2759 023034
2760 023036
5;25 023040

2763
2764 023042

g;gg

011620
005305
001375
005726
022020
012705

004737

035352

%;gg

MOV
DEC
BNE
ST
CMFP
MOV

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

28:

CLR
DEC
BNE

(RO) +
RS
2$

:MOVE IN DATA ON TO SIMULATED DISK
*COUNT
*BRANCH IF 256 NOT COMPLETE
SUNDO =(SP)
;JUMP OVER THE TWO ECC WORDS
*1 DATA GAP
+14 TOLERANCE GAP
SCLEAR DATA GAP, AND
- TOLERANCE GAP
*BRANCH IF NOT COMPLETE

JSR

PC.FILLEC

JINSERT THE TWO ECC WORDS CON THE DISK

JIN THE CORRECT PLACE

:THESE ARE FOR ECC TEST ONLY

2769 023046
2770 023054
2771 023060
2772 023066

012737
005037
013737
013737

177777
034570
034564
034572

2776 023100
2775 023104

005037
005037

034560
034574

2773 023074

5;;9 023110

005037

034556

001424

034566
034600

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

GECC2
DATENV

CLR

GECC?

CLR

2778

%;gg

2781
2782
2783
2784
2785
2786

SEQ 0090

1$:

000017

005020
005305
001375

n7
16:37:12 PAGE 10-53

;THESE ARE

1CODE

;ECC LOW ORDER TO BE GENERATED

:ECC HIGH ORDER TO BE GENERATED
;CLEAR DATA ENVELOPE CLOCK COUNT

:CLEAR LEADING ZEROS CLOCK COUNT

TO SETUP FOR DISKLESS USE ONLY

023114

012737

010000

036710

MOV

NEMT22,CYL

023122
023130
023136
023144

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

2788 023160
2789 023164
2790 023170
2791 023172
2792
2793
279%
2795

005037
004537
036710
040610

036720
033270

CLR
JSR
cYL
WCRC

X
RS.CRC

2787 023152

3539

012737

000400

2798 023174

004737

032054

2800 023206

012777

002544

2802 023220
2803 023226

112766
012677

110000
1 6012

799 023

2801 023214

2804 023232

2805
2806
2807
2808 023240

012777

112746

012777
005077

177374

100000

C10000
156006

036770

MOV

#256. ,.DAWORD

156020
000001

156010

JSR

;NO. OF DATA WORDS

STHIS IS A READ COMMAND
:GO TO CALCULATE CRC

;THESE ARE REGULAR SETUPS
156024

:16 BITS PER WORD
SCYLINDER 0, FORMAT 16 BITS
STRACK 0
SSECTOR 0

PC,CLDISK

;SETUP GENERAL REGISTERS

MOV

#-956.<4. ,3RHWC -256. DATA 4 HEADER WORDS

MOVB

#0,-(SP)

*IN LOWER BYTE GET SECTOR

#FM122, SRHOF

216 BITS PER WORD

MOV

MOVB
MOV

MOV

CLR

#REINTO,3RHBA
#0.1(SP)
(SP)+ ,aRHDST

SRHCA

:STARTING AODRESS OF READ BUFFER

SGET TRACK IN HIGHER BYTE
:TRACK/SECTOR IN RHDST

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

CZRJHEO RPO4/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81
160

READ ECC ENABLED 2A

2809
2810 023244
023250

004737
104401

2811

0232564

000000

2812 023256
2813 023262
2814 023266
2815
2816

013711
005037
004737

052116
053407

JSR
TYPE

001460
001406
036550

2819
2820
2821
2822
2823
2824
2825
2826

;CHECK THAT DVA.RCY,DPR,DRY = 1
*AND THAT NO OTHERS = 1.
CANNOT CON-

STINUE TESTING IF BOTH AREN'T TRUE

HALT

*STOP THE TEST

MOV
CLR
JSR

REFOR, aR1
;READ HEADER AND DATA=72
ERFLGS
:CLEAR ERROR FLAG
5(, COMHD
;READ HEADER AND DATA
:IF THERE ARE READ ERRORS THEN
“ECC WILL NOT BE CHECKED

*COMPARISON5 ARE MADE

2829 023272
2830 023276
2831 023300
2832 023304
2833 023310
2834 023312
2835
2836
2837
,
2838 023314

005737
001102
004737
005737
001401
104032

001406

013746

034556

2840 023324
2841 023330
2842 023332
2843
2844
2845
2846
2847

022637
001401
104032

001346

042716

ST
BNE
JSR
ST
8EQ
EMT

0315564
001316

68 :

174000

MOV

BIC

CMP
BEQ
EMT

ERFLGS
:ANY ERRORS ALREADY THERE
TST61
;BRANCH IF YES
PC,PUTREG
*SAVE REGISTERS
ERT
*NO ERRORS SHOULD BE SET
63
*BRANCH IF NO ERRORS SET
32
;ONLY 11 OF THE 32 BITS CAN BE SEEN
:IN THE PATERN REGISTER
:DCK SHOULD BE SET IN RHER1
GECC1,-(SP)
SGET PATTERN REGISTER

#176000, (SP)
(SP)+.EC2
7%
32

‘KEEP ONLY 11 BITS

*COMPARE PATTERN REGISTER
*BRANCH IF 500D

;ADD 16 MAINTENANCE CLOCKS TO

ggzg

:BRING EBL DOWN

2850 023334
2001 023340
2852 023346
2853 0233564
2854 023356
2855 023360
023364
023370
2856 023372

012700
052777
042777
005300
001370
004737
104401
000000
012700

000020
000002
000002

2858 023402
2859 023406
2860 023414

112746
112766
012620

000000
000000

2857 023376

PC,CHECKT
,CPHALT

SEQ 0091

;1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
*FROM THE ''COMHD"* ROUTINE THAT MEANS SECTOR GAP,
*FIRST SYNC, HEADER, HEADER CRC. HEADER GAP AND
*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
*DETECTED
*HEADER AND DATA ARE TO BE CHECKED.
*IN CHECKING READ DATA THE WRITE FROM BUFFER
““\RFROM'* 1S FILLED WITH EXPECTED DATA AND

gggg

2839 023320

N 7
16:37:12 PAGE 10-54

012720

155712
155704

032306
053407
001500

010000

7%:
8S$:

MOV
8IS
BIC
DEC
BNE
JSR
TYPE
HALT
MOV

6. 10
#MCLK , SRHMR
MMCLK . SRHMR
RO
8s
PC.CHECKE
LCPHALT

MOVB
MOVB
MOV

#0.-(SP)
#0.1(SP)
(SP)+ (05,4

MOV

000001

#WRFROM RO

#0'FMT22, (RO)+

:COUNTER
*SET CLOCK
*CLEAR CLOCK
s COUNT

;BRANCH !F 16 CLOCKS NOT DONE

:CHECK THAT BITS = 1
s CANNOT CONTINUE TESTING IF THEY DON'T

JSTOP Tv'_ TEST
JGETY.NG READY TO FILL EXPECTED DATA
sCY.INDER 0
.4N LOWER BYTE GET SECTOR
:GET TRACK IN HIGHER BYTE
JGET TRACK/SECTOR IN BUFFER

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

SEQ 0092

READ ECC ENABLED 2A

2861 023416
2862 023422

012720
012720

2866 023436
2867 023440
2868 023442

010220
005301
001375

gg;? 023450

004737

2863 023626
gggg 023432

2869 023444

012701
012702

005037

000000
000000

000400
177777

004037
001500
002544

2878 023466
2879 023470
2880 023472
2881 023474
023474
2882 023476

023474
023500
023504

023500
2884
2885
gggg 023502

;KEY1 IN BUFFER
:NEY2 IN BUFFER

38:

MOV
DEC
BNE

R2, (RO)+
R1
3s

;DATA INTO BUFFER
s COUNT
:BRANCH IF 256 NOT DONE

001406

JSR

PC,PUTREG

CLR

031554

#256. R1
#-1,R2 :DATA

ERFLGS

:DATA WORD COUNTER

;CLEAR ERROR FLAG

:SAVE REGISTERS

:NOW READ DATA BUFFER WILL BE CHECKED

2874 023454
2875 023460
2876 023462

2883 023500

#0, {RO)+
#0. (RO)+

MOV
MOV

%g;%

2877 023464

MOV
MOV

032756

JSR
WRFROM
REINTO

000404

RO, COMPAR

4+256.

48:

106004
000207

104005
000207

2896

; CHECK
:G00OD BUFFER
STEST BUFFER

*NUMBER OF WORDS CHECKED

43
58
1ST61

*RETURN POINT FOR ERROR HEADER
*RETURN POINT FOR ERROR DATA
SRETURN FOR GOOD COMPARISON

EMT
RTS

4
PC

EMT

RTS

;RETURN TO ''COMPAR''
;HEADER WORDS
2S5 10 260 ARE DATA WORDS
“RETURN TO ''COMPAR''

;.'tfittttttttttttttttwttttt'ttttttttttttttttttfittitttttttttttttttt

S*TEST 61
READ ECC ENABLED 2B
:«THIS IS 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 177777
:«COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
s*«TRACK 0, SECTOR 0 KEYS O READ HEADER AND DATA

;;tttttttttt'tttttttttttttttttttttttttttttttttttt**tttttttttttttt

023504
333; 023506

000004
012706

001100

%ggg 023512

012737

000061

2901
2902

003610

SCOPE
MOV

#STACK,SP

;RESET STACK

MOV

#61,TSTNM

;MOVE #61 TO TEST NUMBER

;SETUP FOR WHAT IS TO BE READ

5332

*HEADER CRC IS RESTORED FROM A SUBROUTINE

2905 023520

012746

2907 023530
2908 023534
2909 023536
2910 023540
2911 023542
2912 023544
2913 023546
2914

012700
011620
005305
001375
005726
022020
012705

2906 023524

7ST61:

012705

177777

MOV

#-1,-(SP)

:DATA TO BE READ

040626

MOV
MoV
DEC
BNE
st
CMP
MOV

#D1SK.RO
(SP), (RY) +
RS
18
(SP)+
(RO)+, (RO) +
#15.,RS ;1 DATA

:START OF SIMULATED DISK DATA
*MOVE IN DATA ON TO SIMULATED DISK
: COUNT
:BRANCH IF 256 NOT COMPLETE
*UNDO =(SP)
:JUMP OVER THE TWO ECC WORDS
G GAP
;14 TOLERANCE GAP

000400

000017

MOV

18:

#256. RS

: COUNTER

161

SEQ@ 0093

READ ECC ENABLED 28

2915 023552
2916 023554
%g}g 023556

005020
005305
001375

2919
%g%? 023560

004737

28:

035352

2922
2923

%3%?

CLR
DEC
BNE

(RO) +
RS
23

sCLEAR DATA GAP, AND
s TOLERANCE GAP
:BRANCH IF NOT COMPLETE

JSR

PC,FILLEC

s INSERT ECC IN PROPER PLACE ON DISK

sTHESE ARE FOR ECC TEST ONLY

2926 023564

012737

2928
2929
2930
2931
2932
gggz

013737
013737
005037
005037
005037
005037

2927 023572

023576
023604
023612
023616
023622
023626

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 ERROR COUNTER
GECCT
;ECC LOW ORDER TO BE GENERATED
GECC2
*ECC HIGH ORDER TO BE GENERATED
DATENV
;CLEAR DATA ENVELOPE CLOCK COUNT
2CODE
;CLEAR LEADING 2EROS CLOCK COUNT

034570

2935

gggg

CLR

POSITI

; THIS IS AN ECC TEST

;CLEAR ERROR POSITION COUNTER

;THESE ARE TO SETUP FOF DISKLESS USE ONLY

2938 023632
2939
2940 023640
2941 023646
2942 023654
2943 023662

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
#O.KEY1 ;KEY1=0
#0 KEY2 :KEY2=0

2945 023676
2946 023702
2947 023706
2948 023710
2949
2950
2951
2952
2953
gggg

005037
004537
036710
040610

036720
033270

2956 023712

012737

077777

040630

MOV

#77777.D1Sk+2

gggg 023720

012737

000026

024074

MOV

#22..8% :INSERT POSITION REG.

2944 023670

gggg

012737

000400

036770

X
RS,CRC

;NO. OF DATA WORDS

STHIS IS A READ COMMAND
;GO TO CALCULATE CRC

:FORCE ERROR ON BIT NUMBER 32

:gg ERROR POSITION REGISTER WILL SHOW

;THESE ARE REGULAR SETUPS

2964 023726

004737

032054

2966 023740

012777

002544

112766
012677

000000
155260

2968 023752
2969 023760
2970 023764
2971

#256. .DAWORD

*THIS MOVE

2961

2967 023746

CLR
JSR
cyL
WCRC

;THIS IS TO INSERT ERROR
“THE DISK DATA IS IN LOCATION STARTING FROM 'DISK’
*THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING

sggg

2965 023732

MOV

:16 BITS PER WORD
JCYLINDER 0, FORMAT 16 BITS
*TRACK 0
*SECTOR 0

012777
112746

012777

177374

000000
010000

JSR

PC,CLDISK

155266

MOV

#REINTO,aRHBA

000001

MOVB
MOV

155272

155256

MOV

MOVB

MOV

;SETUP GENERAL REGISTERS

#-356.~4. ,3RHWC $256. DATA 4 HEADER WORDS
#0.-(SP}

#0.1(SP)
(SP)+, @RHDST

NFMT28,8RHOF

: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

——d £

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

READ ECC ENABLED 2B

SEQ 0094

—

161

16:37:12 PAGE 10-57

2972
2973
29764 023772
2975 023776
024002

005077
004737
104401

TYPE

024006
2976 024010
2977 024014
2978 024020

000000
013711
005037
004737

HALT
MOV
CLR
JSR

sBECAUSE ECC IS NOT GOING

CLR

dRHCA
PC,CHECKT

.CPHALT

REFOR,aR1

ERFLGS

sTO BE CHECKED

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

:READ HEADER AND DATA=72

:CLEAR ERROR FLAG

PC,COMHD

¢READ HEADER AND DATA

:1F THERE ARE READ ERRORS THEN
sECC WILL NOT BE CHECKED

s1F 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

sDETECTED
¢HEADER AND DATA ARE TO BE CHECKED.
¢ IN CHECKING READ DATA THE WRITE FROM BUFFER
2991
2992
2993 024024
2994 024030
2995 024032
2996 024036
2997 024044
2998 024046
2999
2
3003 024050
3004 024054
3005 024060
3006 024064
3007 024066
3008
3009 024070
301? 024074

3015 024076
024102
024106
3019 024110

3023 024144

;"WRFROM'' IS FILLED WITH EXPECTED DATA AND

s COMPARISONS ARE MADE

005737
001077
004737
022737
001401

001406

013746

034556

031554

100000

6$:

MOV
BIC
CMP
8EQ
EMT

.ANY ERRORS ALREADY THERE
sBRANCH IF YES
PC,PUTREG
:SAVE REGISTERS
lgCK.ER1
;ONLY DATA CHECK ERROR SHOULD BE SET
0
:BRANCH IF YES
32
:ZERO
;ONLY 11 OF THE 32 BITS CAN BE SEEN
sIN THE PATERN REGISTER
;DCK SHOULD BE SET IN RHER1
GECC1,~-(SP)
+GET PATTERN REGISTER
#1746000, (SP)
;KEEP ONLY 11 BITS
;gp)+LEC2
; COMPARE PATTERN REGISTER
sBRANCH IF GOOD
32

7%:

JSR

RO.ECORR

:G0 TO ECC CORRECTION PROCESS
SEXPECTED POSITION REG. WHEN CORRECTION
:1S COMPLETE

JSR
TYPE
HALT
Mov

PC,CHECKE

sCHECK THAT BITS =1
sCANNOT CONTINUE TESTING IF THEY DON'T
:STOP THE TEST
¢GETTING READY TO FILL EXPECTED DATA
sCYLINDER 0
sIN LOWER BYTE GET SECTOR

TST

BNE
JSR
CMP
BEQ
ENT

001316

104032

174000
001346

104032

004037
000026

035200

8%:

032306
053407
001500
010000
000000
000000

000000
000000
000400

CZRJHEO RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81

000001

22.

MOV
MOVB
MOV
MOV
MOV
Mov
MOV

ERFLGS
1ST62

.CPHALT

#WRFROM , RO

#0'FMT22, (RO)+

#0.-(SP)
#0.1(SP)
(SP)+ (RO)
+

#0, (RO)+
#0,(RO)+

#256. ,R1

sGET TRACK IN HIGHER BYTE
cGET TRACK/SECTOR IN BUFFER

:KEY1 IN BUFFER
:KEY2 IN BUFFER

:DATA WORD COUNTER

E 8
CZRJHEO RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 10-58
161

SEQ@ 0095

READ ECC ENABLED 2B

3024 024150
3025 024154
3026 024156
%855 024160

012702
010220
005301
001375

177777

38:

3029

:DATA
:DATA INTO BUFFER
;COUNT
;BRANCH IF 256 NOT DONE

:NOW THE INSERTED ERROR WILL BE PUT IN
012737
004737
005037

077777
0315564
001406

001512

3036

%8%;
3039 024200
3040 024204
3041 024206
3042 024210
3043 024212
3044 026214
3045 024216
3046 024220
024220
3047 024222
3048 024224
024224
3049
3050
ggg; 024226

#-1,R2
R2,(R0)+
R1
38

;ONLY GOOD DATA HAS BEEN PUT IN 'WRFROM®

gg%?

3032 024162
3033 024170
%8%2 0241764

MoV
MOV
DEC
BNE

MOV
JSR
CLR

77777 ,MRFROM+<5%2>
;INSERTED ERROR
PC.PUTREG
:SAVE REGISTERS
ERFLGS
;CLEAR ERROR FLAG

;NOW READ DATA BUFFER WILL BE CHECKED
004037
001500
002544
000404
024220
024224
024230

032756

104004
000207

5%:

104005
000207

3061

JSR
WRFROM
REINTO
44256,
43
58
TST62

RO, COMPAR

EMT
RTS

4
PC

EMT

RTS

; CHECK
;GOOD BUFFER
:TEST BUFFER
:NUMBER OF WORDS CHECKED
:RETURN POINT FOR ERROR HEADER
:RETURN POINT FOR ERROR DATA
JRETURN FOR GOOD COMPARISON
:RETURN TO '‘COMPAR’’
;HEADER WORDS
:5 70 260 ARE DATA WORDS
*RETURN TO '‘COMPAR'*

;;t*ttttttttttttttttttttt'ttttttttttttttttttttttttttttttttttttttt

*TEST 62
READ ECC ENABLED 2C
s*THIS IS AN ECC READ DATA TEST

s*ERROR CORRECTION IS ENABLED
:*A NON CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32 AND 21

;*GOOD DATA USED IS 256 WORDS OF 177777
s*COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
s*TRACK 0, SECTOR O KEYS O READ HEADER AND DATA
024230
3062 024232
%822 024236

000004
012706
012737

001100
000062

3065

3076 024272
3077

AR AR

SCOPE
MoV
Mov

003610
:

%829

3268 024244
3069 024250
3070 024254
3071 024260
3072 024262
3073 024264
3074 024266
3075 024270

TET62:

012746
012705
012700
011620
005305
001375
005726
022020

012705

177777
000400
040626

000017

1$:

RAAAR AN RN AN RARA AN RN

#STACK,SP
#62,TSTNM

AN RARANRRAARARANRNARN
AR ARN

sRESET STACK
:MOVE #62 TO TEST NUMBER

SETUP FOR WHAT IS TO BE READ

HEADER CRC IS RESTORED FROM A SUBROUTINE
MoV
Mov
MoV
MOV
DEC
BNE
ST
CMP

Mov

#-1,-(SP)
#256. RS
#D1SK,RO
(SP),(RO)+
RS
18
(SP)+
(RO)+, (RO) +

#15. RS
)

:DATA TO BE READ
s COUNTER
sSTART OF SIMULATED DISK DATA
sMOVE IN DATA ON TO SIMULATED DISK
s COUNT
:BRANCH IF 256 NOT COMPLETE
sUNDO =(SP)
:JUMP OVER THE TWO ECC WORDS

:1 DATA GAP
214 TOLERANCE GAP

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81

162

READ ECC ENABLED 2C

3078 024276
3079 024300
3080 024302
3031
3082
3083 024304
3084

005020
005305
001375

004737

2%:

035352

F
8
16:37:12 PAGE 10-59

SEQ@ 0096

DEC
BNE

CLR

(RO)+
RS
2s

;CLEAR DATA GAP, AND
s TOLERANCE GAP
:BRANCH IF NOT COMPLETE

JSR

PC,FILLEC

s INSERT THE TWO ECC WORDS ON THE DISK
¢IN THE CORRECT PLACE

sTHESE ARE FOR ECC TEST ONLY
177777

3088 024310
3089 024316
3090 024322
3091 024330
3092 024336
3093 024342
3094 024346
3095 024352
3096

034566

034576

o
W

036710

MOV

W#FMT22,ChL

000000

036713

MOov8
MOvB
MoV
MOV
MOV
CLR

#0,SECOTR+1
#0,SECOTR
#0,KEY1 ;KEY1=0
#0 KEY2 ;KEY2=0

036770

JSR
CyL

024434

#256. ,.DAWORD ;NO. OF DATA WORDS
X

R5,CRC

:THIS 1S A READ COMMAND
;GO TO CALCULATE CRC

sTHIS 1S TO INSERT ERROR
¢ THE DISK DATA IS IN LOCATION STARTING FROM ‘DISK’
sTHE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING
s THIS MOVE

b
D

;16 BITS PER WORD
sCYLINDER O, FORMAT 16 BITS
s TRACK 0
sSECTOR 0

WCRC

b od

b e

b ced

033270

b ek ed

A LA O U O

ed
b e

N U O

b d

024436

012737

077757

040630

Mov

#77757,01SK+2

024444

012737

010040

024620

MOV

#6128.,8%

;FORCE ERROR ON BIT NUMBER 32 AND 21
2SO0 ERROR POSITION REGISTER WILL SHOW
;22
s INSERT POSITION REG.

s THESE ARE REGULAR SETUPS
0264452
O NN

SN
Y latadt

7 024456
jelelels]
OO

b d
b

DATENV
2CODE

sECC LOW ORDER TO BE GENERATED
;ECC HIGH ORDER TC BE GENERATED
sCLEAR DATA ENVELOPE CLOCK COUNT
sCLEAR LEADING ZEROS CLOCK COUNT

010000

CLR

N N U W WA U

N U

i cd
b o

L U L W U

GECC
GECC?2

;THESE ARE TO SETUP FOR DISKLESS USE ONLY

3102 024364
024372

WNAN N NN NN NN
SN -0V
VB W= OV NONMSWNI=SO
V0N

#-1,TSECC
sTHIS IS AN ECC TEST
POSITI
:CLEAR ERROR POSITION COUNTER
NCODE ,NCOUNT
s TEMPORARY N-CODE COUNTER
HARDER ,HAD TMP
: TEMPORARY HARD ERROR COUNTER

034600

99
310? 024356
N N N N AN N NN N NN

001424

024510

032054
177374
002544
000000
000000
154534
010000

154546
154542

0000C1

154532

JSR
MOV
MOV
MOvV8
MOvS8
MOV
MOV

PC,CLDISK

;SETUP GENERAL REGISTERS

#REINTO,8RHBA

sSTARTING ADDRESS OF READ BUFFER
:IN_LOWER BYTE GET SECTOR
sGET TRACK IN HIGHER BYTE
s TRACK/SECTOR IN RHDST
;16 BITS PER WORD
sECC CORRECTION NOT INHIBIT
sBECAUSE ECC IS NOT GOING

#-256.~4
. ,aRHWC :256. DATA 4 HEADER WORDS
#0,-(SP}

#0.1(SP)
(SP)+,aRHDST

NFMT22, 3RHOF

CZRJHEO RPO4/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 10-60
162

SEQ@ 0097

READ ECC ENABLED 2C

3135
%}gg 024516

005077

154530

CLR

SRHCA

;T0 BE CHECKED
:CYLINDER 0

3138 024522
024526

004737
104401

032116
053407

JSR
TYPE

PC,CHECKT
LCPHALT

:AND THAT NO OTHERS = 1.

3139 024532

000000

3140 024534

013711

001460

MOV

REFOR,aR1

%}2% 024544

004737

036550

JSR

PC,COMHD

3141 024540

005037

HALT

001406

CLR

ERFLGS

005737
001106
004737
022737
001401
104032

001406

3167 024574

013746

0345%6

3169 024604
3170 024610
g};} 024612

022637
001401
104032

001346

3173 024614
3174 024620

004037
000000

035200

gggg 024622

004737

031554

3179
%}g? 024626

022737

100100

031554
100000

TST
BNE
JSR
CMP
BEQ
EMT

;READ HEADER AND DATA

:1F THERE ARE READ ERRORS THEN
;ECC WILL NOT BE CHECKED

001316

ERFLGS
;ANY ERRORS ALREADY THERE
TST63
;BRANCH IF YES
PC.PUTREG
:SAVE REGISTERS
#DCK,ER
sONLY DATA CHECK ERROR SHOULD BE SET
63
;BRANCH IF YES
32
2ERO

SONLY 11 OF THE 32 BITS CAN BE SEEN

g}gg

3182 024634
3183 024636
3184
3185
3186
3187
3188

;READ HEADER AND DATA=72

:CLEAR ERROR FLAG

:COMPARISONS ARE MADE

3157 024550
3158 024554
3159 024556
3160 024562
3161 024570
3162 024572
3163
3164

g};g

sTINUE TESTING IF BOTH AREN'T TRUE

;1F THE PROGRAM COMES BACK HERE WITHOUT ERAOR PRINTOUTS
;FROM THE ''COMHD'* ROUTINE THAT MEANS SECTOR GAP,
sFIRST 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

g}gg

3168 024600

CANNOT CON-

;STOP THE TEST

3144

3147
2148
3149
3150
3151
3152
3153
3154

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

042716

001401
104036

6$:

174000

MOV

BIC

#174000. (SP)
(SP)+,EC2
78
32

:COMPARE PATTERN REGISTER
:BRANCH IF GOOD

JSR
.WORD

RO,ECORR

:GO TO ECC CORRECTION PROCESS
;EXPECTED POSITION REG. WHEN CORRECTION

JSR

PC.PUTREG

:SAVE REGISTERS

CMP

#DCK'ECH,ERT

sWITh_ERRORS INSERTED IN BIT POSITION 21

BEQ
EMT

9s
36

;BRANCH IF GOOD

CMP
BEQ
EMT
78:
8s:

001316

GECC1,-(SP)

:IN THE PATERN REGISTER
*DCK SHOULD BE SET IN RHER1
:GET PATTERN REGISTER

;KEEP ONLY 11 BITS

;1S COMPLETE

;AND 32 HARD ERROR BIT SHOULD SET
232 HCE SHOULD SET

H 8
CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-61
162
READ ECC ENABLED 2C
3189 024640
024640
024644
024650
3190 024652

004737
104401
000000
012700

032306
053407

3192 024662
3193 024666
3194 0264674

112746
112766
012620

000000
000000

3196 024702

012720

3191 024656

3195 024676

3197 024706
3198 024712

3199 024716
3200 024720
gggg 024722

012720

001500

010000

012720

000000

012701
012702

000400
177777

010220
005301
001375

98:

000001

000000

#WRFROM RO

MOVB
MOVB
MOV

#0.-(SP)
#0,1(SP)
(SP)+_(RO)+

3s:

;CHECK THAT BITS = 1
; CANNOT CONTINUE TESTING IF THEY DON'T
:STOP THE TEST
:GETTING READY TO FILL EXPECTED DATA

#0'FMT22,(RO)+

:CYLINDER 0

MOV

#0, (RO) +

:KEY1 IN BUFFER

MOV
MOV

#256. R1
#<1.R2

MOV

+IN LOWER BYTE GET SECTOR
:GET TRACK IN HIGHER BYTE
:GET TRACK/SECTOR IN BUFFER

#0. (RO)
+

MOV
DEC
BNE

:KEY2 IN BUFFER

*DATA WORD COUNTER
*DATA

R2, (RO) +
R1
3s

:DATA INTO BUFFER
: COUNT
:BRANCH IF 256 NOT DONE

;ONLY GOOD DATA HAS BEEN PUT IN 'WRFROM'

%582

SNOW THE INSERTED ERROR WILL BE PUT IN

012737
004737
005037

077757
031554
001406

001512

3210

gg}g
3213 024742
3214 024746
3215 024750
3216 024752
3217 024756
3218 024756
3219 024760
3220 024762
024762
3221 024764
3222 024766
C24766
3223
3224
gggg 024770

PC,CHECKE
,CPHALT

MOV

3203

3206 024724
3207 024732
gggg 024736

JSR
TYPE
HALT
MOV

SEQ 0098

MOV
JSR
CLR

#77757 ,WRFROM+<5%2>
; INSERTED ERROR
PC.PUTREG
;SAVE REGISTERS
ERFLGS
;CLEAR ERROR FLAG

;NOW READ DATA BUFFER WILL BE CHECKED
004037
001500
002544
000404
024762
024766
024772

032756

48:

104004
000207

5¢:

104005

000207

JSR
WRFROM
REINTO
4+256.
48
5
TST63

RO, COMPAR

EMT
RTS

4
PC

;RETURN TO ‘‘COMPAR''

;HEADER WORDS
:5 T0 260 ARE DATA WORDS
:RETURN TO ‘'COMPAR'‘

EMT

RTS

3233

: CHECK
:GOOD BUFFER
sTEST BUFFER
;NUMBER OF WORDS CHECKED
:RETURN POINT FOR ERROR HEADER
SRETURN POINT FOR ERROR DATA
;RETURN FOR GOOD COMPARISON

JINKAARRA AR

R AN AR AR

S*TEST 63

AR AR A AN

RN A NAANAANRANCINENRARNANACRAR
NN ONS

WRITE ECC TEST 3

:xTHIS IS A WRITE ECC TEST

:*WRITE CYLINDER O,

:#«TRACK 0,

FORMAT 16 BITS PER WORD

SECTOR 1, KEYS 0., NUMBER OfF WORDS 256

s+0F ALL §2525.

M :tttttttttttttttttttttttttttttttttttttttltfitt'tttttttttttttttttt

024772
gggg 024774

000004
012706

001100

3236 025000
3237 025006

012737
012700

000063
040530

3239 025016

005020

3238 025012

012707

000460

7ST63:
003610

1$:

SCOPE
MoV

#STACK,SP

:RESET STACK

MOV
MOV

#63,TSTNM
#SECGAP RO

:MOVE #63 TO TEST NUMBER
:POINTER

CLR

(RO)+

SCLEAR SIMULATED DISK AREA

MoV

#304. ,Ri

:COUNTER

—

I 8
CZRJHEO RPO4/5/6 DSKLS 572 MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-62
3
WRITE ECC TES
3240 025020
3241 025022
3242 0250264
3243
3244
3245
3246 025030
3247 025036
3248 025042
3249 025050
3250 025056
3251 025062
3252 025066
3253 025072

3259
3260 025076
3261
3262 025104

DEC
BNE
JSR

032054

R1
1%

PC,CLDISK

sTHESE ARE FOR ECC

005037

177777
034570
034564
034572
034556
034560
034574
034576

001424

MOov

034566
034600

MOV
MOV

SEQ 0099

sTHIS IS USED TO SET GENERAL REGISTERS

TEST ONLY

CLR

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

CLR
CLR

GECC1
GECC2

CLR
CLR

HARDER ,HAD TMP

DATENV
ZCODE

: TEMPORARY HARD ERROR COUNTER

sECC LOW ORDER TO BE GENERATED
cECC HIGH ORDER TO BE GENERATED
:CLEAR DATA ENVELOPE CLOCK COUNT
;CLEAR LEADING ZEROS CLOCK COUNT

;THESE ARE 1O BE SETUP FOR DISKLESS USE ONLY
012737

010000

042046

MoV

JFMT22 ,WCYL

012737
005037
005037
012737
004537

000001
042052
042054
000400
033270

062050

MOV

#1,WSECTR
WKEY1

0642106

MOV

042046
042056

CLR
CLR

JSR

WwlYL

;FORMATZ2=16BIT WORDS AND
sCYLINDER 0
:TRACK=0, SECTOR=1
:KEY1=0
:KEY2=0

WKEY?
#256 . FNWORD
256 DATA WORDS
RS.CRC
;GO TO CALCULATE CRC

GCRC

s THESE ARE REGULAR SETUPS
3272 025140
3273 025146
3274 025152
3275
3276 025156
3277
3278 025162
3279 025166
3280 025170
3281 025172
3282 025176
3283 025202
3284 025204
3285 025206
3286
3287 025214
025220

012777
012700
010077

177374
001500
154056

012720

010000

012720

000001

025224
3288
3289 025226
3290
3291 025232
3292 025236
3293 025244

000000

154064

000400
052525

012777

000001

004737

032116
053407

104401

154030

#-260. ,aRHWC

MJRFROMRO
,

MOV

#FMT22, (RO)
+

2$:

MOV

#1,(RO)+

3s:

MOV
MOV

:szszs.(no>+

MOV

#1,3RHDST

JSR
TYPE

PC,CHECKT

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

WRIFOR,aR1

sGET READY FOR WRITE HEADER AND

adRHCA

;CYLINDER =

CLR
CLR

DEC
BNE

RO, 3RHBA

(RO)+
(R0)+

RS
3

CPHALT

HALT

013711

001454

MoV

005037
012777
005077

001406
010000
154002

CLR

154004

;256 DATA WORDS 4 HEADER WORDS
sTHESE TWO INSTRUCTIONS GETS
sADDR. OF WRFROM INTO RO AND
:BUS ADDRESS REGISTER

MOV
MoV
MOV

MOV

CLR

;FORMAT=16 BIT WORDS

s CYLINDER=0

TRACK;O SECTOR=1, KEYS=0

KEY2=0

:COUNTER

:MOVE ALL 52525 FOR DATA
sBRANCH IF DATA NOT COMPLETE
s TRACK=0 SECTOR=1

;DATA WITH 62 IN RHCS1
ERFLGS
;CLEAR FRROR FLAG
#EMT22,aRHOF
cFORMAT 8!761 (16 BIT WORDS)

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
163

WRITE ECC TEST 3

3294 025250
3295
3296
3297

004737

041672

J_ 8
16:37:12 PAGE 10-63

JSR

PC.,COMWHD

SEQ 0100
sWRITE HEADER AND DATA

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

ALL 52525 AND WRITE DATA GAP AND TOLERANCE GAP TO SFE IF
sTHEY ARE ALL ZEROS

3302 025254

005737

330? 025260

001056

3308 025262
3309 025270
3310 025272
3311 025274
3312 025276
3313 025304
331g 025306

023737
001402
104031
000405
023737
001401
104031

3317 025310
025310
025314
025320

004737
104401
000000

3
3324 025322
3325 025326

001406

034556

041626

034560

0641630

031772

3326 025330
3327 025332

3329 025334
3330 025342
3331 025350
3332 025354
3333 025356
333§ 025360

013737
013737
004037
003550
003604
000000

034556
034560
031772

005037

001406

BNE

TST64

;HAS ANY ERRORS OCCURED?
sIF WRITE ERROR OCCURS ECC IS NOT CHECKED
;sBRANCH IF YES

6$:

CMP
BEQ
EMT
BR

GECC1,WECCT;COMPARE SOFTWARE ECC WITH HARDWARE ECC
6$
;BRANCH IF GOOD
31
7%
;BRANCH TO CONTINUE

BEQ
EMT

7%
3

CMP

JSR

TYPE
HALT

GECC2,WECC?2

PC,CHECKE
+CPHALT

;COMPARE SOFTWARE ECC WITH HARDWARE ECC

;BRANCH IF GOOD

;CHECK THAT BITS =1

;CANNOT CONTINUE
:STOP THE TEST

TESTING IF

THEY DON'T

sFILL "REINTO'' BUFFER WITH EXPECTED DATA
004037
002544
003542
052525

333; 025362

ERFLGS

: COMPARE SOF'UARE GENERATED ECC WITH THAT GENERATED BY HARDWARE

7%:

032306
053407

TST

JSR

003544
003546

.WORD

RO, CLAREA
REINTO
REINTO+<255.%2>
52525

;FILL REINTO BUFFER
*FROM
;T0
‘DATA

MOV
MOV
JSR

GECC1.REINTO+<256.%2>;FILL ECCY
GECC2.REINTO+<257.%2>:FILL ECC2
RO, CLAREA
sFILL REST

REINTO+<258. #2>

*FROM

)

‘DATA

REINT0+<272.%2>

CLR

ERFLGS

110

:CLEAR ERROR FLAG

:NOW COMPARE ‘DISK'' BUFFER WITH ‘REINTO'’
3342 025366
3343 025372
3344 025374
3345 025376
3346 025400
3347 025402

004037
002544
040626
000402
025406
025412

032756

JSR

REINTO

DISK

258.
(8

RO, COMPAR

: CHECK

+6G0OD BUFFER

STEST BUFFZR

*NUMBER OF WORDS CHECKED

*RETURN POINT FOR ERROR HEADER

*RETURN POINT FOR ERROR DATA

3348 025404
3349 025406
025406
3350 025410
3351 025412
025412
3352
3353
3354
3355
3356
3357
3358
gggg 025414

025416

TST64

48:

104007
000207

58:

104010

000207

3366

TRERRE R

;RETURN FOR GOOD COMPARISON

EMT
RTS

7
PC

EMT

RTS

R RANR R

AR AR RN R

JRETURN TO COMPARE
:DATA WORDS
;WORD NOS 257 AND 258
sARE ECC WHICH ARE CHECKED
;WORD NOS 2 9
;1S DATA
G
:WORD NOS 260 T0 273
:ARE TOLERANCE GAP
:RETURN TO COMPARE
AR RN AR

RN R R

NRNR RN

AR RAACARRRARRRRNRR

'TEST 64
READ ECC ENABLED 3A
;*THIS IS AN ECC READ DATA TEST

:*ERROR CORRECTION IS ENABLED
:*NO ERROR IS INSERTED

;*GOOD DATA USED IS 256 WORDS OF 52525
s*COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
s*TRACK O, SECTOR O KEYS O READ HEADER AND DATA
s

025416
3370 025420
%g;} 025424

3373
3374
3
3376 025432
3377 025436
3378 0256442
3379 025446
3380 025450
3381 025452
3382 025454

000004
012706
012737

001100
000064

003610

012746

012705
012700
011620
005305
001375

052525

SCOPE
MOV
MoV

Mov

000400
040626

18:

005726

022020
012705

3386 025464
3387 025466
%ggg 025470

005020
005305
001375

%%g? 025472

004737

AR TR RN RN

#STACK,SP
#64 ,TSTNM

000017
2%:

035352

012737
005037
013737
013737
005037
005037
005037

177777
034570
034564
034572
034556
034560
034574

001424
034566
034600

#52525,-(SP)

Mov
MoV
MoV
DEC
BNE

#256. RS
#D1SK RO
(SP), (RO)+
RS
13

AN AR AR AR

AARA RN R

R AARRARANRNARNRAR

SRESET STACK
sMOVE #64 TO TEST NUMBER

:DATA TO BE READ

s COUNTER
sSTART OF SIMULATED DISK DATA

:MOVE IN DATA ON TO SIMULATED DISK
s COUNT

cMP
mov

(SP)+

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

:BRANCH IF 256 NOT COMPLETE
sUNDO =(SP)

CLR
DEC
BNE

(RO)
+
RS
2$

:1 DATA GAP
;14 _TOLERANCE GAP
:CLEAR DATA GAP, AND
: TOLERANCE GAP
;BRANCH IF NOT COMPLETE

JSR

PC,FILLEC

TST

3392

3395 025476
3396 025506
3397 025510
3398 025516
3399
025524
3400 025530
3401 025534

AN AAN A AR RN R

sSETUP FOR WHAT IS TO BE READ
sHEADER CRC 1S RESTORED FROM A SUBROUTINE

3283 025456
%ggg 025460

%%82

TST64:

sTHESE ARE FOR ECC TEST ONLY
MoV
CLR
MoV
Mov
CLR
CLR
CLR

b
~

SEQ 0101

-—d

K 8
CZRJHED RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV=-81 16:37:12 PAGE 10-64
163
WRITE ECC TEST 3

;JUMP OVER THE TWO ECC WORDS

s INSERT THE TWO ECC WORDS ON THE DISK
¢IN THE CORRECT PLACE

#-1,TSECC
:THIS IS AN ECC TEST
POSITI
;CLEAR ERROR POSITION COUNTER
NCODE ,NCOUNT
: TEMPORARY N-CODE COUNTER
t \RDER,HADTMP s TEMPORARY HARD ERROR COUNTER
GECC
sECC LOW ORDER TO BE GENERATED
GECC2
:ECC HIGH ORDER TO BE GENERATED
DATENV ;CLEAR DATA ENVELOPE CLOCK COUNT

3402 025540
3403

005037

034576

CLR

sCLEAR LEADING ZEROS CLOCK COUNT

ZCODE

R
i
P
R
i
P

CONO
NS NN —

RERRRRRE

;THESE ARE TO SETUP FOR DISKLESS USE ONLY

216 BITS PER WORD
sCYLINDER 0, FORMAT 16 BITS

010000

036710

MOv

NFMT22,CYL

000000
000000
000000
000000
000400

036713
036712
036714
036716
036770

MOVB
Movs
MOV
MOV
MOV
CLR
JSR
cvL
WCRE

#0,SECOTR+1
sTRACK 0
#0,SECOTR
sSECTOR 0
#0,KEY1 ;KEY1=0
#0 KEY2 ;KEY2 =0

036720
033270

;256..DAUORD
RS, CRC

:NO. OF DATA WCRDS
;THIS IS A READ COMMAND
;GO TO CALCULATE CRC

s THESE ARE REGULAR SETUPS

032054
177374
002544
000000
000000
153362
010000

JSR
MoV
MOV
MOvV8
Movs
MOV
MOV

153374
153370

000001
153360

PC,CLDISK

#REINTO,3RHBA

#0.-(SP)
#0.1(SP)
(SP)+,aRHDST

#FMT2, aRHOF

025670

005077

153356

CLR

@RHCA

025674
025700

004737

032116
053407

JSR
TYPE

PC,CHECKT

025704

000000

025706
025712
2 025716

213711
005037
004737

104401

.CPHALT

MOV
CLR
JSR

REFOR,aR1

ERFLGS

:STARTING ADDRESS OF READ BUFFER
sIN LOWER BYTE GET SECTOR
sGET TRACK IN HIGHER BYTE
s TRACK/SECTOR IN RHDST
;16 BITS PER WORD
sECC CORRECTION NOT INHIBIT
sBECAUSE ECC IS NOT GNING
:T70 BE CHECKED
sCYLINDER 0

sCHECK THAT DVA,RDY,DPR,DRY = 1
sAND THAT NO OTHERS = 1.

;READ HEADER AND DATA=72

;CLEAR ERROR FLAG
PC. COMHD
cREAD HEADER AND DATA
:IF THERE ARE READ ERRORS THEN
sECC WILL NOT BE CHECKED

s 1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTQUTS

sFROM THE ''COMHD’'’' ROUTINE THAT MEANS SECTOR GAP,

sFIRST SJYNC, HEADER, HEADER CRC, HEADER GAP AND
sSYNC BY'E HAVE GONE BY AND SYNCS WERE CORRECTLY
sDETECTED
:HEADER AND DATA ARE TO BE CHECKED.
:IN CHECKING READ DATA THE WRITE FROM BUFFER

:MRFROM'*

IS FILLED WITH EXPECTED DATA AND

:COMPARISONS ARE MADE
025722

005737

001406

TST

CANNOT CON-

sTINUE TESTING IF BOTH AREN'T TRUE
;STOP THE TEST

HALT

001460
001406
036550

¢SETUP GENERAL REGISTERS

#-256.-4, ,@RHWC :256.
+25
DATA & HEADER WORDS

ERFLGS

sANY ERRORS ALREADY THERE

-t

SEQ 0102

-t

L 8
CZRJHED RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 10-65
T64
READ ECC ENABLED 3A

CZRJHEO RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81
164

READ ECC ENABLED 3A

3456 025726
3457 025730
3458 025734
3459 025740
3460 025742
3461
3462
3463
3464 025744

001102
004737
005737
001401
104032

013746

034556

3666 025754
34,67 025760
3468 025762
3469
3470
3471
3472
3473

022637
001401
104032

001346

3465 025750

?252

042716

112746
112766
012620

000000
000000

012720

000400
052525

010220
005301
001375
005037
004737

7%:
8s:

010000

012701
012702

3491
3492
3493
3494
gzgg

153262
153254

901500

000000

012720

GECC1,~(SP)

#174060.(SP)
(SP)+ ,EC2
78
32

sONLY 11 OF THE 32 BITS CAN BE SEEN
:IN THE PATERN REGISTER
;DCK SHOULD BE SET IN RHER1
;GET PATTERN REGISTER

:KEEP ONLY 11 BITS

;COMPARE PATTERN REGISTER
:BRANCH IF GOOD

MOV
BIS
8IC
DEC
BNE
JSR
TYPE
HALT
MOV

#16. R0
#MCLK ,3RHMR
#MCLK ,aRHMR
RO
8s
PC.CHECKE
,CPHALT
#WRFROM RO

;COUNTER
JSET CLOCK
:CLEAR CLOCK
;COUNT
:BRANCH IF 16 (LLOCKS NOT DONE
;CHECK THAT BITS = 1
;CANNOT CONTINUE TESTING IF THEY DON'T
;STOP THE TEST
:GETTING READY TO FILL EXPECTED DATA

MovB
MOVB
MOV

#0,-(SP)
#0,1(SP)
(SP)+,(RO)+

:IN LOWER BYTE GET SECTOR
:GET TRACK IN HIGHER BYTE
:GET TRACK/SECTOR IN BUFFER

MOV
000001

MOV

000000

3s:

001406
031554

gzgg

#0!FHT22.(RO)+

JCYLINDER O

#0.(R6)+

;KEY1 IN BUFFER

#256. R1
#5252§.R2

;DATA WORD COUNTER
;DATA

MOV

#0,(RO)+

MOV
DEC
BNE
CLR
JSR

R2,(RO)+
:DATA INTO BUFFER
R1
JCOUNT
3s
;BRANCH IF 256 NOT DONE
ERFLGS
;CLEAR ERROR FLAG
PC.PUTREG
;SAVE REGISTERS

MOV
MOV

JKEYZ2 IN BUFFER

:NOW READ DATA BUFFER WILL BE CHECKED

3499 026104
3500 026110
3501 026112

004037
001500
002544

3503
3504
3505
3506

026124
026130
026134

026116
026120
026122
026124
026124
3507 026126
3508 026130
026130

CMP
BEQ
EMT

032306
053407

012720

3488 026052

3502 026114

pre

;BRANCH IF YES
;SAVE REGISTERS
;NO ERRORS SHOULD BE SET
;BRANCH IF NO ERRORS SET

;BRING EBL DOWN

3484 026032
3485 026036
3486 026044

026066
026070
026072
026074
026100

MoV

TST6S
PC ,PUTREG
ER1
6$
32

SEQ 0103

;ADD 16 MAINTENANCE CLOCKS TO
000020
000002
000002

3489 026056
3490 026062

6$:

174000

012700
052777
042777
005300
001370
004737
104401
000000
012700

3487 026046

BNE
JSR
TST
BEQ
EMT

031554
001316

3476 025764
3477 025770
3478 025776
3479 026004
3480 026006
3481 026010
026014
026020
3482 026022

3483 026026

n 8
16:37:12 PAGE 10-66

032756

JSR
WRFROM
REINTO

000404

104004
000207

104005

RO, COMPAR

4+256.

A
¥

5%:

;NUMBER OF WORDS CHECKED

43
53
TST6S
EMT
RTS

EMT

s CHECK
;GO0OD BUFFER
;TEST BUFFER

:RETURN POINT FOR ERROR HEADER
RETURN POINT FOR ERROR DATA
sRETURN FOR GOOD COMPAR]ISON
4
PC

:RETURN TO ''COMPAR''

N_8
CZRJHEO RPO4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-67
164

SEQ 0104

READ ECC ENABLED 3A

3509

3510

gg}; 026132

sHEADER WORDS

000207

RTS

3522

:5 T0 260 ARE DATA WORDS

RETURN TO

JIRRAR AR NN R AR AN R AP RN R TR AR AR AN AR AN AR AN

;*TEST 65

;*THIS

''COMPAR'’

RN RN RN NN RN NN

OAR

READ ECC ENASLED 38

IS AN ECC READ DATA TEST

;*ERROR CORRECTION IS ENABLED
:*A CORRECTABLE ERROR IS INSERTED IN BIT POSITION 4128
;*THIS 1S 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 O,

SECTOR O KEYS O

JIRNEARRARA N AR AR AR

026134
3523 026136

gszé 026142

000004
012706

012737

001100
000065

TST65:
003610

3526

3543

%gzg 026210

012746
012705
012700
011620
005305
001375
005726
022020
012705

052525
000400
04066

1$:

000017

005020
005305
001375
004737

2$:

035352

ggzg

3553 026234
3554 026242
3555 026246
3556 026252
gggg 026256

#65,TSTNM

NN AN AN

RN AR AN

JRESET STACK

JMOVE #65 TO TEST NUMBER

MOV
MOV
MOV
MOV
DEC
BNE
ST
CMP
MOV

#52525,-(SP)
#256. RS
#D]SK RO
(SP),(RO)+
RS
18
(SP)+
(RO)+, (RO)+
#15.,R5 ;1 DATA

CLR
DEC
BNE

(RO) +
RS
2%

:DATA TO BE READ
s COUNTER
sSTART OF SIMULATED DISK DATA
sMOVE IN DATA ON TO SIMULATED DISK
s COUNT
JBRANCH IF 256 NOT COMPLETE
JUNDO -(SP)
,JUMP OVER THE TWO ECC WGRDS
GAP
;16 TOLERANCE GAP
;CLEAR DATA GAP, AND
;TOLERANCE GAP
JBRANCH IF NOT COMPLETE

JSR

PC,FILLEC

JINSERT ECC !N PROPER PLACE ON DISK

s THESE ARE

012737
005037
013737

013737
005037
005037
005037
005037

177777
034570
034564

034572
034556
034560
034574
034576

001424
034566

034600

3559
ggao

3562 026262
3563
3564 (26270

#STACK,SP

AR AN A AR

JHEADER CRC IS RESTORED FROM A SUBROUTINE

3546
3547
3550 026214
3551 026222
3552 026226

MOV

READ HEADER AND DATA

RN AR AR AR

;SETUP FOR WHAT IS TO BE READ

%g%g

3529 026150
3530 026154
3531 026160
3532 026164
3533 026166
3534 026170
3535 026172
3536 026174
3537 026176
3538
3539 026202
354C 026204
;gz; 026206

SCOPE
MOV

FOR ECC

MOV
(LR
MOV

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

MOV
(LR
(LR
(LR
(LR
cTHESE ARE

TEST ONLY

HARDER ,HADTMP . TEMPORARY HARD ERROR COUNTER
GECCI
JECC LOW ORDER TO BE GENERATED
GECC?
SECC HIGH ORDER TO BE GENERATED
DATENV
;CLEAR DATA ENVELOPE CLOCK COUNT
2CODE
JCLEAR LEADING ZEROS CLOCK COUNT

TO SETUP FOR DISKLESS USE ONLY

012737

010000

036710

MOV

#FMT22,CYL

112737

000000

(36713

mMovse

#0,SECOTR+1

;16 BITS PER WORD
JCYLINDER 0O, FORMAT 16 BITS
JTRACK 0

CZR JHEO RP04/5/6 DSKLS PTZ2 MACRO V04.00 17-NOV-81
165
READ ECC ENABLED 3B

565 026276
566 026304

8 9
16:37:12 PAGE 10-68

MOVB
MOV
MOV

000000
000000
000000
000400

MOV

036720
033270

CLR

gef

SE@ 0105

#0,SECOTR
;SECTOR 0
#0.KEY] ;KEY1=0
#0 KEY2 :KEY2=0

#256 ,DAWORD
RS.CRC

;NO. OF DATA WORDS

;THIS IS A READ COMMAND

;GO TO CALCULATE CRC

WCRC

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

sTHIS CHANGES THE LAST BIT OF

3581 026342
3582 026346
3583 026350
3584 026354
3585 026362
3584
3587
3588
3589 026366
90

013746
005116
062716
042737
052637

041630

012737

010026

077777
100000

041630

026542

Mov
COM

WECC2,-(SP)
(SP)

BIC
BIS

#100000,WECC2
(SP)+,WECC2

BIC

Mov

THE ECC

#4€100000, (SP)

#4118..,8%

sGET LAST ECC
sINVERT ALL BITS OF WECC2
:KEEP BIT 16

:CLEAR BIT 16 IN ECC
;THIS WILL SET BIT 16 IF IT WAS 0

cOR WILL SET NOTHING IF IT WAS A 1

s INSERT POSITION REG.

:THESE ARE REGULAR SETUPS
3594 026374

032054
177374

010000

JSR

PC,CLDISK

MOV

#REINTO,3RHBA

152624
152620

MOV

000001

MOVB

152610

NOVB
MOV

*IN LOWER BYTE GET SECTOR

(SP)+,aRHDST

:TRACK/SECTOR IN RHDST

#0.1(SP)

NFMT22,3RHOF ;16 BITS PER WORD

;ECC CORRECTION NOT INHIBIT
*BECAUSE ECC IS NOT GOING
*T0 BE CHECKED

152606

CLR

aRHCA

3606 026444
026450

004737
104401

032116
053407

JSR

PC,CHECKT

026454

000000

3608 026456
3609 026462
3610 026466

013711
005037
004737

QO NN
NN —

SGET TRACK IN HIGHER BYTE

MOV

005077

:STARTING ADDRESS OF READ BUFFER

#0,-(SP)

3
360? 026440

TYPE

*CYLINDER 0

.CPHALT

sCHECK THAT DVA,RDY,DPR,DRY = 1
sAND THAT NO OTHERS = 1.

;STOP THE TEST

MOV

REFOR,aR1

;READ HEADER ANL 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

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

CANNOT CON-

sTINUE TESTING IF BOTH AREN'T TRUE

HALT

001460
001406
036550

;SETUP GENERAL REGISTERS

#=256.~4. ,aRHWC :256. DATA & HEADER WORDS

HEADER,

HEADER CRC,

HEADER GAP AND

:SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY

CZRJHEO RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81

165

READ ECC ENABLED 38

005737
001074
004737
022737

001406

3635 026516
3636 026522
3637 026526
3638 026532
3639 026534

013746
042716
022637
001401
104032

034556
174000

3641 026536
3642 026542
3643
3644
3645
3646
3647 026544
026550

004037
010026

035200

004737

032306
053407

:"MRFROM'*

IS FILLED WITH EXPECTED DATA AND

:COMPARISONS ARE MADE

001401
104032

031554

100000

TST
BNE
JSR
CMH
BEQ
EMT

001316

68%:

001346

001500
010000
000000
000000

—!\AONQNNN

(el=lelelelelelel
QOO
bbb b cd od

104401

F N

3640

SEQ 0106

sDETECTED
:HEADER AND DATA ARE TO BE CHECKED.
:IN CHECKING READ DATA THE WRITE FROM BUFFER

20
21
22
23
24
25 026472
26 026476
27 026500
28 026504
29 026512
30 026514

c 9
16:37:12 PAGE 10-69

000000
000000
000400
052525

MOV

8IC

BEQ
EMT

7$:
8%:

000001

3s:

ERFLGS

;ANY ERRORS ALREADY THERE
;BRANCH IF YES
PC,PUTREG
sSAVE REGISTERS
#DCK,ER1
JONLY DATA CHECK ERROR SHOULD BE SET
63
:BRANCH IF YES
32
:ZERO
sONLY 11 OF THE 32 BITS CAN BE SEEN
:IN THE PATERN REGISTER
sDCK SHOULD BE SET IN RHER1
GECCT,-(SP)
sGET PATTERN REGISTER
#174000, (SP)
cKEEP ONLY 11 BITS
(SP)+,EC2
:COMPARE PATTERN REGISTER
7%
:BRANCH IF GOOD
32
1ST66

JSR
4118.

RO,ECORR

2GO TO ECC CORRECTION PROCESS
SEXPECTED POSITION REG. WHEN CORRECTION
;1S COMPLETE

JSR
TYPE
HALT

PC,CHECKE

;CHECK THAT BITS =1

Mov
Moy
MOVB
MovB
Mov
Mov
MOV
MOV
MoV

+CPHALT

#WRFROM RO

#0'FMT22, (RO)+

#0.~(SP)
#0.1(SP)
(SP)+, (RO)+

20, (RO)+

TESTING IF

BRANCH IF 256 NOT DONE

'WRFROM'

cONLY GOOD DATA HAS BEEN PUT IN
-NOW THE INSERTED ERROR WILL BE PUT IN

:BUT INSERTED ERROR IS IN ECC SO DATA IS NOT WRONG

3665
3666 026630
3667 026634
3668
3669
3670
3671
3672 026640
3673 026644

004737
005037

031554
001406

JSR
CLR

PC ,PUTREG

ERFLGS

: SAVE REGISTERS

;CLEAR ERROR FLAG

sNOW READ DATA BUFFER WILL BE CHECKED
004037
001500

032756

JSR

WRFROM

THEY DON'T

JSTOP THE TEST
JGETTING READY TO FILL EXPECTED DATA
:CYLINDER 0
JIN LOWER BYTE GET SECTOR
JGET TRACK IN HIGHER BYTE
JGET TRACK/SECTOR IN BUFFER
:KEY1 IN BUFFER
JKEY2 IN BUFFER

:DATA WORD COUNTER
:DATA
DATA INTO BUFFER
s COUN

MOV
DEC
BNE

JCANNCT CONTINUE

RO, COMPAR

s CHECK
.GOOD BUFFER

CZRJHEO RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV~81
165
READ ECC ENABLED 38

3674 026646
3675 026650
3676 026652
3677 026654
3678 026656
3679 026660
026660
3680 026662
3681 026664
026664
2

002544
000404
026660
026664
026670

gggé 026666

000207

3683

48:

104004
000207

5%:

104005

D 9
16:37:12 PAGE 10-70

REINTO
4+256.
48
5%
TST66

sTEST BUFFER
sNUMBER OF WORDS CHECKED
;RETURN POINT FOR ERROR HEADER
;RETURN POINT FOR ERROR DATA
¢RETURN FOR GOOD COMPARISON

EMT
RTS

4
PC

SRETURN TO ‘‘COMPAR

EMT

AR NN

JHEADER WORDS

RTS

3695

SEQ 0107

:5 10 260 ARE DATA WORDS

PC
R

:RETURN TO
AR RN

''COMPAR'

ENANR AR AR AR AR AR AN AN AR

AINARANNARAR

J*TEST 66
READ ECC ENABLED 3C
s*THIS IS AN ECC READ DATA TEST
:*ERROR CORRECTION IS ENABLED
:*A NON CORRECTABLE ERROR 1S INSERTED IN BIT POSITION 296 THRU 308
s*THIS IS _IN WORD NUMBER 19 AND 20
;*GOOD DATA USED IS 256 WORDS OF 52525
s~COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
*TRACK 0, SECTOR O KEYS 0

READ HEADER AND DATA

S NARARAAAARANARARAAAN
R R RN AN AARARAR R ARANRARNARNRRNARARNN AN
RANES

026670
3696 026672
gggg 026676

000004
012706
012737

001100
000066

T5766
00361C

3699

012746

3705 026720
3706 026722
3707 026724
3708 026726
3709 026730
3710 026732
3711
3712 026736
3713 026740
%;}g 026742

011620
005305
001375
005726
022020
012705

%;}g

012705
012700

352525

000400
040626

005020
005305
001375
004737

MOV

#52525,-(SP)

;DATA TO BE READ

1$:

MoV
DEC
BNE
ST
CMP
MoV

(SP), (RO+
R5
1$
(SP)+
(RQ)+,(RO) ¢+
#15.,RS ;1 DATA

2%:

CLR
DEC
BNE

(RO) +
R5
23

sMOVE IN DATA ON TO SIMULATED DISK
s COUNT
:BRANCH IF 256 NOT COMPLETE
sUNDQ =(SP
:JumMP OVER THE TWO ECC WORDS
GAP
;14 _TOLERANCE GAP
:CLEAR DATA GAP, AND
s TOLERANCE GAP
sBRANCH IF NOT COMPLETE

JSR

PC,FILLEC

;INSERT THE TWO ECC WORDS ON THE DISK

000017

035352

ggg?

3722 026750
3723 026756
3724 026762
3725 026770
3726 026776
3727 027002

SRESET STACK
;MOVE #66 TO TEST NUMBER

JHEADER CRC 1S RESTORED FROM A SUBROUTINE

3702 026704

3716
3717 026744

#STACK,SP
#66,TSTNM

:SETUF FOR WHAT IS TO BE READ

g;g?

3703 026710
3704 026714

SCOPE
MoV
MoV

MOV
MoV

#256. RS
#DISK.RO

: COUNTER
;START OF SIMULATED DISK DATA

sIN THE CORRECT PLACE

sTHESE ARE FOR ECC TEST ONLY
012737
005037
013737
013737
005037
005037

177777
034570
034564
034572
034556
034560

001424
034566
034600

MoV
CLR
MOV
MoV
CLR
CLR

#-1,TSECC
:THIS IS AN ECC TEST
POSITI
;CLEAR ERROR POSITION COUNTER
NCODE ,NCOUNT ;TEMPORARY N-CODE COUNTER
HARDER ,HADTMP ; TEMPORARY HARD ERROR COUNTER
GECC!
¢ECC LOW ORDER TO BE GENERATED
GECC2
sECC HIGH ORDER TO BE GENERATED

166

SEQ 0108

READ ECC ENABLED 3C

3728 027006
g;gg 027012

005037
005037

034574
034576

(LR
CLR

3731

gggg

DATENV
ZCODE

;CLEAR DATA ENVELOPE CLOCK COUNT
;CLEAR LEADING ZEROS CLOCK COUNT

;THESE ARE TO SETUP FOR DISKLESS USE ONLY

3734 027016
3735
3736 027024
3737 027032
3738 027040

012737

010000

036710

MOV

NFMT22,CYL

112737
112737
012737

000000
000000
000000

036713
036712
036714

MOVB
MOVB
MOV

#0,SECOTR+1
#0.SECOTR
20 KEY1 ;KEY1=0

3741 027062
3742 027066
3743 027072
3744 027074
3745
3746
3747
3748
3749

005037
004537
036710
040610

036720
033270

§;§§ 027076

012737

152652

040672

MOV

#152652,D1SK+44;x?ssnragnzggeég 7gsxrxo~ 296 THRU 304

3754 027104
3755
g;;g 027112

012737

052532

040674

MoV

012737

010040

027266

MOV

#52532,D15K+46; INSERT ERROR IN POSITION 305 THRU 308
:IN WORD NUMBER 20
#4128. .88
S INSERT POSITION REG.

3739 027046 012737 000000 036716
3740 027054 012737 000400 036770

MOV
MOV

CLR
JSR
cyL
WCRC

:16 BITS PER WORD
SCYLINDER 0, FORMAT 16 BITS
*TRACK 0
*SECTOR 0

#0 KEY2 :KEY2=0
nm”mmm
:NO. OF DATA WORDS
RS.CRC

STHIS IS A READ COMMAND
;GO TO CALCULATE CRC

;THIS IS TO INSERT ERROR
STHE DISK DATA IS IN LOCATION STARTING FROM °*DISK®
STHE POSITION OF THE ERRCR CAN BE CHANGED BY CHANGING

%%2?

:THIS MOVE

3758

g;gg

;THESE ARE REGULAR SETUPS

3761 027120

004737

032054

3763 027132

012777

002544

3762 027124

PC,CLDISK

;SETUP GENERAL REGISTERS

MOV

cns:nro SRHBA

:STARTING ADDRESS OF READ BUFFER

(SP)+,3RHDST

:TRACK/SECTOR IN RHDST

MOV

000000
000000

000001

MOVB
MOVB

3768
3769
3770
3771 027164
3772 027170
027174

012777

010000

152064

MOV

NFMT28,8RHOF

005077
004737
104401

152062
032116
053407

CLR
JSR
TYPE

aRHCA
PC, CHECKT
,CPHALT

*ECC CORRECTION NOT INHIBIT
*BECAUSE ECC IS NOT GOING
270 BE CHECKED
*CYLINDER 0
:CHECK THAT DVA,RDY,DPR,DRY = 1
*AND THAT NO OTHERS = 1.
CANNOT CON-

027200

000000

3774 027206

005037

*READ HEADER AND DATA=72

3766 027152

3767 027156

3773 027202

3775 027212
3776
3777

3779
3780
3781

112746
112766

012677

177374

JSR

152100

3764 027140
3765 027144

012777

152066

152074

MOV

HALT

#<356.-4. ,aRHWC :256. DATA 4 HEADER WORDS
0,~(sP$
co 1(SP)

013711

001460

MOV

REFOR,aR1

004737

036550

JSR

PC, COMHD

001406

CLR

ERFLGS

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

STINUE TESTING IF BOTH AREN'T TRUE
‘STOP THE TEST

;CLEAR ERROR FLAG

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

;IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
SFROM THE "'COMMD'* ROUTINE THAT MEANS SECTOR GAP,

CZRJHEO RPO4/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 10-;1

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-72
166
READ ECC ENABLED 3C
:FIRST SYNC, HEADER

SEQ@ 0109

HEADER CRC, HEADER GAP AND

*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
*DETECTED
;HEADER AND DATA ARE TO BE CKECKED.
;AN CHECKING READ DATA THE WRITE FROM BUFFER
:"WRFROM'' IS FILLED WITH EXPECTED DATA AND

3
3790 027216
3791 027222
3792 027224
3793 027230
3794 027236
§;9S 027240

3799
3800 027242
3801 027246
3802 027252
3803 027256
3804 027260
3805

3806 027262
3807 027266
3808
3811
3812 027270
3812 027274
381
3815 027302
3816 027304
3817
3818
3819
3820
3821 027306
06

; COMPARISONS ARE MADE
005737

001406
031554
100000

001316

104032

6$:

013746

104032
004037
000000

004737
022737

MOV
8IC

BEQ
EMT

78:
8s:

031554
100100

001316

001401
104036

9$:

032306
053407
001500
016000
000000
000000
000000
000000
000400
052525

3833 027370
3834
3835

TST
BNE
JSR
CMP
BEQ
EMT

JSR
-WORD

ERFLGS
1ST67

sANY ERRORS ALREADY THERE
¢BRANCH IF YES
PC,PUTREG
:SAVE REGISTERS

#DCK,ER1

CECC1,-(SP)

#174000, (SP)
§SP)+LEC2
32
" RO,ECORR

JSR
cMp

PC,PUTREG
#DCK!ECH,ER1

BEQ
EMT

9s
36

PC,CHECKE

.CPHALT

#WRFROH RO

#o'rnrzé (RO)+

#0,-(SP)

#0 1(SP)
(SP)+ §R0)+

000001

3s:

cONLY DATA CHECK ERROR SHOULD BE SET

:BRANCH IF YES

+ZERO
ONLY 11 OF THE 32 BITS CAN BE SEEN
:IN THE PATERN REGISTER

sDCK SHOULD BE SET IN RHER1
:GET PATTERN REGISTER
<KEEP ONLY 11 BITS

: COMPARE PATTERN REGISTER
:BRANCH IF GOOD

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

sSAVE REGISTERS

:WITH ERRORS INSERTED IN BIT POSITION 21

:THRU 32 HARD ERROR BIT SHOULD SET
sBRANCH IF GOOD

232 HCE SHOULD SET

sCHECK THAT BITS = 1
:CANNOT CONTINUE TESTING IF THEY DON'T

;STOP THE TEST
: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
'DS&ATINTO BUFFER

sBRANCH IF 256 NOT DONE

sONLY 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

SEQ 0110

READ ECC ENABLED 3C

3836
3837
3838 027372
3839

:NOW THE INSERTED ERROR WILL BE PUT IN
012737

152652

001554

MOV

3840 027400

012737

052532

001556

MOV

3843 027406
%gzg 027412

004737
005037

031554
001406

%gz;

#152652, HRFROH+S4 INSERT ERROR IN POSITION 296 THRU 304
N WORD NUMBER 19 IN DAT

#52532,WRFROM+56; INSERT ERROR IN POSITION 305 THRU 308
sIN WORD NUMBER 20 IN DATA

JSR
CLR

3846

%gzg

PC,PUTREG
: SAVE REGISTERS
ERFLGS
;CLEAR ERROR FLAG

;NOW READ DATA BUFFER WILL BE CHECKED

3849 027416
3850 027422
3851 027424
3852 027426
3853 027430
3854 027432
3855 027434
3856 027436
027436
3857 027440
3858 027442
027442
3859
3860
%gg; 027444

004037
001500
002544
000404
027436
027442
027446

032756

4$:

104004
000207

5%:

104005
000207

3872

JSR
WRFROM
REINTO
4+256.
43
5%
TST67

RO, COMPAR

EMT
RTS

4
PC

EMT

RTS

s CHECK
:GOOD BUFFER
sTEST BUFFER
¢NUMBER OF WORDS CHECKED
cRETURN POINT FOR ERROR HEADER
sRETURN POINT FOR ERROR DATA
sRETURN FOR GOOD COMPARISON
;RETURN TO ‘'COMPAR''
;HEADER WORDS
:5 TO 260 ARE DATA WORDS
JRETURN TO ‘'COMPAR'’

e AR RAARARARARNAARN AN RN AN RAANNRAANR AN RN ARRAR

J*TEST 67

READ ECC ENABLED 3D

AN AN

ARANY

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 4096

;%6096 IS THE LAST DATA BIT
;*GOOD DATA USED IS 256 WORDS OF 52525

s*COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD
*TRACK 0,

027446

000004

SRR

%g;z 027450

012706

001100

%g;g 027454

012737

000067

3877
3878

MoV

#STACK,SP

sRESET STACK

Mov

#67,TSTNM

;MOVE #67 TO TEST NUMBER

AN ARARNSY

JHEADER CRC IS RESTORED FROM A SUBROUTINE

3881 027462
3882 027466

012746
012705

3884 027476
3885 027500
3886 027502
3887 027504
3888 027506

011620
005305
001375
005726
022020

3889 027510

SCOPE

READ HEADER AND DATA

AR A RANAAARAR AN AN RAAARAR

;SETUP FOR WHAT IS TO BE READ

gggg

3883 027472

TST67
003610

SECTOR O KEYS O

AAN AR RN AR RAAAAA RN

012700

012705

052525
000400

040626

000017

18:

MoV
MoV

#52525,-(SP)
#256. RS

;DATA TO BE READ
sCOUNTER

MoV
DEC
BNE
ST
CMP

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

:MOVE IN DATA ON TO SIMULATED DISK
s COUNT
:BRANCH IF 256 NOT COMPLETE
sUNDO =(SP)
:JUMP OVER THE TWO ECC WORDS

Mov

MOV

#DISK, RO

#15.,R5

¢START OF SIMULATED DISK DATA

:1 DATA GAP

H 9
ngJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 10-74

SEQ 0111

READ ECC ENABLED 3D

3890
3891 027514
3892 027516
3893 027520
3894
3895
3896 027522
3897
3898
3899
3900
3901 027526
3902 027534
3903 027540
3904 027546
3905 027554
3906 027560
3907 027564
3908 027570

912

3913 027574
3914
3915 027602
3916 027610
3917 027616
3918 027624
3919 027632
3920 027640
3921 027644
3922 027650
3322 027652

00
00
00

2%:

035352

(RO)+
RS
23

JSR

PC,FILLEC

s THESE ARE

012737
005037
013737
013737
005037
005037
005037
005037

177777
034570
034564
034572
034556
034560
034574
034576

001424
034566
034600

;14 _TOLERANCE GAP
;CLEAR DATA GAP, AND
s TOLERANCE GAP
sBRANCH IF NOT COMPLETE

CLR
DEC
BNE

FOR ECC

TEST ONLY

MoV
CLR

#-1,TSECC
POSITI
:CLEAR

CLR
CLR
CLR
CLR

GECC]
GECC2
DATENV
ZCODE

; THIS IS AN ECC TEST

ERROR POSITION COUNTER

NCODE ,NCOUNT
; TEMPORARY N-CODE COUNTER
HARDER ,HAD TMP
TEMPORARY HARD ERROR COUNTER

MOV
MOV

sTHESE ARE

s INSERT THE TWO ECC WORDS ON THE DISK
s IN THE CORRECT PLACE

cECC LOW ORDER TO BE GENERATED
sECC HIGH ORDER TO BE GENERATED
sCLEAR DATA ENVELOPE CLOCK COUNT
sCLEAR LEADING ZEROS CLOCK COUNT

TO SETUP FOR DISKLESS USE ONLY

010000

036710

MoV

#FMT22,CYL

000000
000000
000000
000000
000400
036720
033270

036713
036712
036714
036716
036770

MOv8
MOV
MOV

MOov8

#0,SECOTR+1

MOV

#256. .DAWORD

CLR

JSR

cYL
WCRC

;16 BITS PER WORD
;CYLINDER 0, FORMAT 16 BITS

JTRACK 0
#0,SECOTR
sSECTOR 0
#0.KEY1 ;KEY1=0
#0 _KEY2 ;KEY2=0
X

RS, CRC

:NO. OF DATA WORDS

:THIS IS A READ COMMAND

:6G0 TO CALCULATE CRC

sTHIS IS TO INSERT ERROR
sTHE DISK DATA IS IN LOCATION STARTING FROM *DISK'®
;THE POSITION OF
*THIS MOVE

3931 027654
3932 027662
3933 027670

060630
0641624
030044

934

MOV
MOV

MOV

THE ERROR CAN BE CHANGED BY CHANGING

#152525.,D15K+2
:FORCE ERROR ON BIT NUMBER 32
#152525°p1 SK+<255.#2>;FORCE ERROR IN BIT 4096

#,128. .88

s INSERT POSITION REG.

sTHESE ARE REGULAR SETUPS
3938 027676
3939 027702
3940 027710
3941 027716
3942 027722
3943 027730
3944 027734
3945
3946

032054
177374
002544
000000
000000
151310
010000

JSR

PC,CLDISK

sSETUP GENERAL REGISTERS

MOV

#REINTO,aRHBA

sSTARTING ADDRESS OF READ BULFFER
sIN LOWER BYTE GET SECTOR
sGET TRACK IN HIGHER BYTE
sTRACK/SECTOR IN RHDST
216 BITS PER WORD
cECC CORRECTION NOT INHIBIT
sBECAUSE ECC IS NOT GOING

MOV

MOVB

MOVB
MOV

MOV

#=356.~%. ,aRHWC :256. DATA 4 HEADER WORDS
#0,-(SP}

#0.1(SP)
(SP)+ @RHDST

NFMT22, aRHOF

CZRJKEO RPO4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-;5
167

SEQ 0112

READ ECC ENABLED 3D

3947
ggzg 0277642

005077

1513064

CLR

3RHCA

27O BE CHECKED
;CYLINDER 0

3950 0277646

004737

032116

JSR

PC, CHECKY

sCHECK THAT DVA,RDY,DPR,DRY = 1

3051 027756

000000

3952 027760

013711

001460

MoV

REFOR,aR1

;READ HEADER AND DATA=72

3956 027770
3955
3956

004737

036550

JSR

PC, COMHD

sREAD HEADER AND DATA
:IF THERE ARE READ ERRORS THEN
sECC WILL NOT BE CHECKED

027752

3953 027764

104401

005037

053407

TYPE

001406

CLR

:CLEAR ERROR FLAG

: COMPARISONS ARE MADE

005737
9001111
004737
022737
001401

001406
031554
100000

001316

104032

034556

022637
001401
104032

001346

004037
000000

0352060

004737
022737

031554
100100

042716

3985 030040
3986 030044
3987
3988
3989
3990
3991 030046
3992 030052
3993
3994 030060
3995 030062
3996
3997
3998
3999

001401
104036

TST
BNE
JSR
CMP
BEQ

ERFLGS
;ANY ERRORS ALREADY THERE
15170
sBRANCH IF YES
PC,PUTREG
:SAVE REGISTERS
#DCK,ER1
sONLY DATA CHECK ERROR SHOULD BE SET
6$
;BRANCH IF YES

MOV

;ZERO
;ONLY 11 OF THE 32 BITS CAN BE SEEN
sIN THE PATERN REGISTER
sDCK SHOULD BE SET IN RHER1
;GET PATTERN REGISTER

EMT

013746

3980 030024

3981 030030
3982 030034
gggz 030036

CANNOT CON-

sIF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
;FROM THE "'COMHD’' ROUTINE THAT MEANS SECTOR GAP,
sFIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND
sSYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY
sDETECTED
sHEADER AND DATA ARE TO BE CHECKED.
s IN CHECKING READ DATA THE WRITE FROM BUFFER
:'WRFROM'' 1S FILLED WITH EXFECTED DATA AND

gggg

3974 030016
3975
3976
3977
3978
3979 030020

ERFLGS

sAND THAT NO OTHERS = 1.

sTINUE TESTING IF BOTH AREN'T TRUE
:STOP THE TEST

HALT

3959
3960
3961
3962
3963
3964
3965
3966
3969 027774
3970 030000
3971 030002
3972 030006
3973 030014

+CPHALT

6$:

174000

001316

GECC1,-(SP)

BIC

#176000, (SP)
(SP)+ ,EC2
78
32

: COMPARE PATTERN REGISTER
sBRANCH IF GOOD

JSR
.WORD

RO,ECORR

:GO TO ECC CORRECTION PROCESS
sEXPECTED POSITION REG. WHEN CORRECTION
;IS COMPLETE

JSR
cMp

PC,PUTREG
#DCK!ECH,ERT

sSAVE REGISTERS
;WITH ERRORS INSERTED IN BIT POSITION 32

BEQ
EMT

9s
36

sBRANCH IF GOOD

CMP
BEQ
EMT
7$:
8%:

;KEEP ONLY 11 BITS

;AND 4096 HARD ERROR BIT SHOULD SET

;32 HCE SHOULD SET

CZRJHEO RPO4/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 10"%6
167

SEQ 0113

READ ECC ENABLED 3D

4001 030064
030064

o%:

030070
030074
4002 030076

4018 030150
4019 030156
4020
4021 030164
4022 030170
4023
4024
4025
4026 030174
4027 030200
4028 030202
4029 030204
4030 030206
4031

030210

4032 030212
4033 030214
030214
4034 030216
4035 030220
030220
4036
4037
4038 030222
4029
4046

#WRFROM, RO

MOVEB
MOVR
MOV

#0.-(SP)
#0.1(SP)
(SP)+, (RO)+

MOV

#0 (RO)+

MOV
000001

(olelelelele
P

MOV

000400
052525

MOV
MOV

38:

4003 030102
4004 030106
4005 030112
4006 030120
4007 030122
4008 030126
4009 030132
4010 030136
4011 030142
4012 030144
4013 030146
4014
4015

JSR
TYPE
HALT
MOV

MOV
DEC
BNE

PC,CHECKE
,CPHALT

#0'FMT22, (RO)+

#0, (RO) +

#256. R1
#52525,R2

R2, (RO) +
R1

:CHECK THAT BITS =1
sCANNOT CONTINUE TESTING IF ThEY DON'T
sSTOP THE TEST
¢GETTING READY TO FILL EXPECTED DATA
sCYLINDER 0
sIN LOWER BYTE GET SECTOR
sGET TRACK IN HIGHER BYTE
sGET TRACK/SECTOR IN BUFFER
:KEY1 IN BUFFER
;KEY2 IN BUFFER
sDATA WORD COUNTER
: DATA

‘DATA INTO BUFFER

COUNT
*BRANCH IF 256 NOT DONE

;ONLY GOOD DATA HAS BEEN PUT IN 'WRFROM'

;NOW THE

012737
012737

001512
002506

005037
004737

INSERTED ERROR WILL BE PUT IN

MOV
MOV

#152525 ,WRFROM+<522>
; INSERTED ERROR IN BIT 32
#152525 ,WRFROM+<259. %2>
s INSERT ERROR IN BIT 4096

CLR
JSR

ERFLGS
:CLEAR ERROR FLAG
PC,PUTREG
sSAVE REGISTERS

sNOW READ DATA BUFFER WILL BE CHECKED
004037
001500
002544
000404
030214
030220
030224

JSR

WRFROM
REINTO

RO, COMPAR

4+256.
48
5%
1ST70

A ¥

104004

000207

EMT
RTS

5%:

104005

RTS
R

RETURN POINT FOR ERROR HEADER

sRETURN POINT FOR ERROR DATA
sRETURN FOR GOOD COMPARISON
&

EMT

000207

s CHECK
:GOOD BUFFER (CHANGED)
sTEST BUFFER
:NUMBER OF WORDS CHECKED

;RETURN TO ''COMPAR''
sHEADER WORDS

:5 T0 260 ARE DATA WORDS

;RETURN TO '‘COMPAR'’

222222 R2ERRR0A0S00222000
00
8200302222233
22303 3232323222223}

L*TEST 70

PROGRAM INTERRUPT
s *PROGRAM INTERRUPT 1S TESTED BY SETTING RDY AND IE

c*IN RHCS1 AT THE SAME TIME

s*THIS SHOULD INTERRUPT THROUGH LOCATION 254
s *THE PROCESSOR PRIORITY IS SET T0 4
C oA

030224
4047 030226
4048 030234
4049
4050 030240
4051 030244

000004
012737
012706

000070
001100

004737
013700

032054
001226

003610

AN RAR AN AANANAANRA R T AR AR AN AR N AN RN AARRANRANN

TST70:

NN RRAANRNEARR

SCOPE
MoV

#70,TSTAM

;MOVE #70 TO TEST NUMBER
JRESET STACK

JSR

PC,CLDISK

sCLEAR DISK
:GET VECTOR ADDRESS

MOV

Mov

#STACK,SP

RPVEC,RO

K. 9
CZRJHED RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 10-77
170

SEQ 0114

PROGRAM INTERRUPT

4052 030250

012720

030316

4054 030260
4055 030266

012737
012711

000200
000300

005337
001375

001200

4053 030254
4056 030272

4057 030300
4058 030304
4059
4060

012710
013737

4061 030306

004737

zggg 030314

000410

4066
4067
4068
4069
4070

022626
004737
022737
001401
104021

282% 030312

28;5

030316
030320
030324
030332
030334

104021

000340

032432

MoV

MOV

177776

001200

MOV
MOV
18:

031554

031554
004200

MOV

001314

4077

(RO)
¢+

sSET INTERRUPT VECTOR

*SET SERVICE ROUTINE PRIORITY

TIMCNT,$TMP1

:COUNTER

#PRG .PS
#RDY {1E ,aR1

*SET PROCESSOR PRINBITY
SRDY, IE IN RHSC| SHOULD CAUSE INTERRUPT

DEC
BNE

$TMP1
18

JSR

PC.PI'TREG

B8R

1ST71

;BRANCH TO NEXT TEST

CMP
JSR
CMP
BEQ
EMT

(SP)+,(SP)+
PC.PUTREG
#DVA'RDY,CS1
TST71
21

;RESTORE STACK
*SAVE REGISTERS
:'IE' SHOULD BE LOW
*BRANCH IF GOOD

EMT

RPTRPY:

#RPTRP1,

#PR7, (R0)

SWATT rOR INTERRUPT
"SRANCH IF NOT ZERO
:BEFORE THIS IS ZERO INTERRUPT SHOULD
$0CCUR

:SAVE REGISTERS

:'1E' FAILED TO RESET

;.'tttttttttttt*ttttttttt'tttttttttttttttttttttttttttttttttttttttt

SRTEST 71
INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME
:*PROCESSOR PRIORITY IS SET AT S (SAME AS THE DISK)
;*]JE AND RDY IS SET. THIS SHOULD NOT INTERRUPT

s 1222333 23232333283223232323233823032323 2222223333237 212222323 33112232332

030336

000004

4078 030340

012737

000071

4081 030352
4082 030356
4083 030362

004737
013700
012720

032054
001226
030422

4085
4086
4087
4088
4089
4090
4091
283%

012737
012711
013737
005337
001375

000240
000300
032432
001200

zggg 030346

4084 030366

030372
030400
030404
030412
030416

012706

012710

030420

000404

4094 030422
4095 030424
4096 030430
4097

022626
004737
104021

001100

000340

031554

003610

TST71:

#71,TSTNM

;MOVE #71

JSR
MOV
MOV

PC.CLDISK
RPVEC,RO
#RPTRP2,(RO)+

:CLEAR DISK
*GET VECTOR ADDRESS
:SET INTERRUPT VECTOR

MOV
MOV
MOV
DEC
BNE

B8R

#PRS _PS
:SET PROCESSOR PRIORITY
#RDY ! IE,aR1
SRDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT
TIMCNT,$TMP1; COUNTER
$TMP1
;WAIT FOR INTERRUPT
18
*BRANCH IF NOT ZERO
*BEFORE THIS IS ZERO INTERRUPT SHOULD
*0CCUR
18172
;NO INTERRUPT SO BRANCH

(MP
JSR
EMT

(SP)+, (SP)+
PC,PUTREG
21

MOV

177776
001200

Scope

MOV

1$:

RPTRP2:

2883

#STACK, SP

#PR7, (RO)

:SET SERVICE ROUTINE PRIORITY

;RESTORE STACK
*SAVE REGISTERS
;PROCESSOR STATUS SAME

;AS

4106

TO TEST NUMBER

SRESET STACK

DISK

;:ttttt.t.ttttttttttttttttttttlttttttttttttttttttttttttttttttt'tt

SRTEST 72
END OF DRIVE
S«THIS IS THE END OF TEST FOR ONE DRIVE
:*1F THERE ARE MORE DRIVES THEN THE PROGRAM

s« JUMPS TO TEST S FOR NEXT DRIVE TEST

SwEND PASS IS REACHED ONLY AFTER ALL DRIVES ARE COMPLETE

; :tttttt'tttttttttttttttttt'tttttttttttttttl'ttttltttttttlttttttt

030432

000004

¥$172:

SCOPE

C%gJHEO RP04/5/6 DSKLS
END OF DRIVE

030434

4107 030442
4108
6109 030446
4110 030454

030460

030532

4111 030532
4112 030536
4113 030540

030544

6114
4115
6116
4117
4118
4119
4120
4121
4122
4123

030552

PT2 MACRO v04.0C 17-NOV-81 16:37:12 PAGE 10-&8

012737
004737

000001
032054

001212

MOV

#1,8TIMES

012737

000000
030462

177776

MOV
TYPE

#0 PS

104401

000424

013746
104405
104401

000402

001374
030546

030552
030556
030560
030564
030570
030574

013746

001112

005037
005037
005737
001413

001112
001102

030576
03060 2

005237

001100
030765
001160

030606

4126 030620
4127
4128 030624
4129 030630

4130 030632

4131 030636
4132 030642
4133 030644

4134 030646
4135 030650
4136 030654

104405

104401

013746
104405
104401
000137

005337
001413
013700
012701
022100
001401
000775
011137
000137

JSR

001376

001374
001354

001374
006756

MOV
TYPDS
TYPE

UNIT,=(SP)

;GET READY TO TYPE UNIT NUMBER

678
66%

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

MOV
TYPDS

$ERTTL,~(SP)

:GET READY TO TYPE NUMBER OF ERRORS

CLR
CLR
TST
BEQ

SERTTL
STSTNM
SELECT
3s

sCLEAR TOTAL NUMBER OF ERRORS
sCLEAR TEST NUMBER
:STARTING FROM 200 ?
sTEST NEXT DRIVE IF SO

INC

$PASS
SENDMG

s INCREASE PASS COUNT
;TYPE END PASS #

/= /

$PASS,~(SP)
TSTS

3$:

1%:

2%:

sREINSTATE PS 10 0

,,TYPE ASCIZ STRING

;GET OVER THE ASCI2

<CRLF>/TOTAL ERRORS FOR

. SENULL

006756

;:D0 1 ITERATION

643

TYPE
MOV

030762

,658

SEQ 0115

BR
LASCIZ

3R
LASCIZ

001402

PC,CLDISK

THIS PASS ON UNIT NO./

sCONTINUE TESTING THIS DRIVE
:NO. OF UNITS PRESENT DECREMENTED
;BRANCH IF ALL DRIVES COMPLETE

FUNITS R1

(R1)+,R0

18
(R1) ,UNIT
TSTS

JUNIT UNDER TEST
s TABLE
;1S THIS UNIT JUST TESTED
;BRANCH IF YES
¢BRANCH IF NO
¢THIS IS NEXT UNIT
sTEST NEXT DRIVE

CZRJHEO RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81

END OF

PASS ROUTINE

.SBTTL

16:37:12 PAGE 11

SEQ 0116

END OF PASS ROUTINE

SRARARAARNARAANAAAARANCEARARRNAARAAARARANAARARAANANNANNNANRAOANONY

'INCREHENT THE PASS NUMBER ($PASS)

s*TYPE "END PASS #XXXXX'' (WHERE
X
X 1S A DECIMAL NUMBER)

:*]F THERES A MONITOR GO TO IT
s*]F THERE ISN'T JUMP TO TST1
030660

000004
005037
005037
005237
0462737
005327

000001
003022
012737
000001
030706
104401
013746
104405
104401

013700
001405
000005
004710
000240
000240
000240

030765

000137
005362
377
015

$EOP:

001102
001212
001100
100000

001100

SCOPE
CLR
CLR
INC
BIC
DEC
SEOPCT: .WORD
8GT

SENDCT:

030765
001100

. WORD
$EOPCT

TYPE
MOV
TYPDS
TYPE
$GET42: MOV

030762
000042

377
012

Mov

000
105

BEQ
RESET
SENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP
SRTNAD: .WORD
SENULL: .BYTE
SENDMG: LASCIZ

:-ZERO THE TEST NUMBER
::ZERO THE NUMBER OF ITERATIONS

STSTNM
STIMES
$PASS
#100000,$PASS

..Eggpz ALLOW A NEG. NUMBER

$DOAGN
%PC)*,Q(PC)+

s YES
s ;RESTORE COUNTER

;PC +

. SENDMG

$PASS ,-(SP)

L SENULL

a#é4?2 RO
$DOAGN
PC, (RO)

a(PC)+
ST
-1,-1.,0

¢ INCREMENT THE PASS NUMBER

;s TYPE "'END PASS #''

;sSAVE SPASS FOR TYPEOUT
<260 TYPE-=DECIMAL ASCI] WITH SIGN
J:TYPE A NULL CHARACTER
2:GET MONITOR ADDRESS
JBRANCH JF NO MONITOR
JJCLEAR THE WORLD
2:G0 TO MONITOR
..SAVE ROOM

: sRETURN
sNULL CHARACTER STRING

<185<i2>/END PASE’ ¥/

O N SN

ARl

it iddiiiiiitiitiislilsdss]

s*HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS.
s*ON HITTING AN -RROR IF THE LOOP ON ERROR SWITCH IS SET, THE
: *PROGRAM GOES BACK = USUALLY BACK TO THE BEGINNING OF THE TEST.

NN~ OO 00

;*WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT
;*THE PROGRAM GOES BACK TD CAN BE CHANGED.
;*THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: ~
:#1,
1T MUST BE WITHIN THE TEST UNDER CONSIDERATION

d cd ed d cd isd =d ok

:v2.
;3.

:«]F

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

THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION

:*THE_PROGRAM WILL REVERT

TO NORMAL OPERATION.

HOWEVER,

LOOP ON

=2 O 000 NON NS

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.
b

:*AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN

NIN) = =

22 031002
23
24 031004
25 031004
26 031010
031014

SEa 0117

s *NORMAL OPERATION WILL CONTINUE.
S

000000

005037
104401
000421

013746
104402
104401

000414
013746

104442
104401
1046401

000425
1046401

000420
1046407

000422

RERRAARRA AN

AR AN AR ARA AR AN

TESTAD: 0

177776
031016

:
OPERSEL

éigSS:

003610

031074
66278:

001110

001223
031144
;,69%:

031224

n31272

765:

5&;3”

MOV

TYPOC
TYPE

5i25$:

643

TSTNM, - (SP)
.67%

NNARNRARSY

TEST

<CRLF>/THE PROGRAM WAS IN TEST NUMBER /

sMAKE PROCESSOR STATUS ZERO
;. TYPE ASCIZ STRING

..GET OVER THE ASCIZ

GET READY TO TYPE TEST

NUMBER
,,TYPE ASCIZ STRING

B8R

66%

?QXOC

$LPERR,-(SP)

TYPE

.SCRLF

BR
L.ASCIZ

683
:sGET OVER THE ASCIZ
<CRLF>/SET LOOP ON ERROR OR LOOP ON TEST SWITCH/

.ASCIZ

TYPE

.GET OVER THE ASCIZ

<CRLF>/THE LOOP BACK PC WAS /

;GET READY TO TYPE LOOP BACK PC

.69%

s TYPE ASCIZ STRING

718

;s TYPE ASCIZ STRING

708

SGET OVER THE ASCIZ

<CRLF>/TYPE THE FIRST PC OF
738

THE TEST/

;TYPE ASCIZ STRING

728

csr OVER THE ASCIZ

ADD

#2,(SP)

:GET LPADR

BR
LASCIZ

43
;GET OVER THE ASCIZ
<CRLF>/TYPE THE PC WHERE YOU WANT/

LASCIZ

MOV
TYPE

104401

¢FIRST ADDRESS OF

LASCIZ

RDOCT

012637

NN RN RN RN

PS
,65%

TYPE

--71$:

AR AR AN

CLR
TYPE

TYPE

104412
062716

000416

N AANRANRA AN

<CRLF>/ FOLLOWED BY A CARRIAGE RETURN

(SP)+,SLPADR
75%

;s TYPE ASCIZ STRING

/<CRLF>

[ Ten ]

END OF PASS ROUTINE

16:37:12 PAGE 12

b o IV]

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81

CZRJHEO RPO4/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81

END OF PASS ROUTINE

40 031412

104401

031416 000440

031420

031520

41 031520
42 031522
22 031526

8 10
16:37:12 PAGE 12-1

TYPE

5327"

778

B8R

768

RDOCT
MOV
MOV

(SP)+,8LPERR
$LPADR, - (SP)

ASCIZ

SEQ 0118
:;TYPE ASCIZ STRING

*GET OVER THE ASCIZ

<CRLF>/ THE PROGRAM TO LOOP BACK TO FOLLOWED BY A CARRIAGE RETURN

104412
012637
013746

001110
001106

005037
005037

037024
001424

51 031542
52
53

005037

034562

CLR

TSECCG

;EVEN IN AN ECC TEST EVERY CLOCK
;1S NOT TC GENERATE ECC
SIF =177777 GENERATE ECC

55 031546
56 031552

005037
000002

001426

CLR
RTI

TESDTE

;:DRIVE TIMING ERROR TEST

45
46 031532
47 031536
48
gg

54,

:THIS CLEARS UP GARBAGE
CLR
NOSYNC
CLR
TSECC

:GET LPERR

JCLEAR FLAG FOR HEADER ERROR COMMANDS
sCLEAR FLAG FOR ECC TEST
SWHEN =177777 IT IS AN ECC TEST
SWHEN =0 IT IS NOT AN ECC TEST

*IF =0 DO NOT GENERATE ECC

/<CRLF>

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

c 10

SEa 0119

SAVE REGISTERS ROUTINE

.SBTTL

SAVE REGISTERS ROUTINE
AR AR

AR AN

RN AN RN RN

NAN N RN NN AN TR

AR RN RNR AN RN

THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS

9
10

sAND NOT THE REGISTERS THEMSELVES.
THIS WILL MAKE
;ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT

IN MEMORY LOCATIONS TAGED FROM

‘WC'' TO 'EC2"’

:THIS IS DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS

12
13 031554

031554

010046

15 031566
16 031572

012701
012702

031556
031560
14 031562

17 031576
18 031600
19 031602
20 031604
031606
031610
21 031612

010146
010246
012700
013021
005302
001375

012602
012601
012600
000207

PUTREG:

001232

001306
000023

108:

MoV

R AN RN C

RO,=-(SP)

MoV
MoV
MoV

R1,-(SP)
R2,=(5P)
#RHWC RO

MOV
DEC
BNE

8(RO)+,(R1)+
R2
108

MOV
MoV
MOV
MOV
MOV
RTS

RN A AN AN A RN RN TN AAN NI RRARRNRARA NS

:;PUSH RO ON STACK

:sPUSH R1 ON STACK
::PUSH R2 ON STACK
:STARTING ADDRESS OF REG

nic Ri
:STARTING ADDRESS OF SAVE LOCATIONS
#RHCC~RHWC+2/2,R2 ;NUMBER OF REG. INTO R2
(SP)+ ,R2
(SP)+,R1
(SP)+,R0
PC

; SAVE HARDWARE REG.

;.POP STACK INTO R2
;sPOP STACK INTO R1
;;POP STACK INTO RO

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81
AND 0

.SBTTL

NS W) —

FLOAT 1

010

SEQ 0120

FLOAT 1 AND O

sARRARRRARAAARNEAARNRCCRRACRNRAAARAAANAARNNOARANRARNAAAONAAOANANONR

'FLOAT A ONE AND A ZERO THRU A DESIGNATED REGISTER

'ABSOLUTE ADDRESS OF REG. UNDER TEST IS IN R4

SRNRRANRANNARANRARARNRCECRANAAANCRRANRRAAARANNAANARAAOARRANOANORSY

Dk
o
b

012537

[oleloelolelelalelaleleBNelele)
WINN NN
(NN

000000
000000
000000

b
d

O
b

AN = OO 00

b amd =
b

b end

OO0

M) b

16:37:12 PAGE 14

MASK:
LERR:
REGADR:

031614

BITST:

031620
031616
000004
000001
031672
031672

BLT1:

032034
—d b N\
== b b

27 031702
28 031706
29 031712

33 031734
34 031740

;BITS UNDER TEST
sERROR HLT ADDRESS

0
0
0
(RS) +,MASK
(RS)+,R4

R4 ,REGADR
RS,LERR ;:GET ERROR RETURN ADDR.
#4,RS
:MODIFY RETURN ADDR. TO JUMP OVER RTS
#1,R3
;INITIALIZE DATA PATTERN
PC,BLT2 ;OUTPUT FLOATING ZERO

PC,BLT2 ;OUTPUT FLOATING ONE

:SHIFT PATTERN

BLTZ2:

BLT1
RS
R3

;BRANCH IF NOT COMPLETE
;RETURN TO TEST
:COMPLEMENT PATTERN

BLT3:

R3,$GDDAT

;STORE GOOD DATA

001124

#BLT3,LAD

MASK

Afig&.saooAr
001126

AND MASK WITH PATTERN

:INPUT FROM REGISTER

MASK,SBDDAT
;AND MASK OUT RECEIVED DATA
MASK
;RESTORE MASK
?gDDAT.38 DDAT;IS DATA CORRECT
:BRANCH IF GOOD
PC,aLERR

000207

:SET SCOPE LOOP

MASK, SGDDAT; CLEAR THE REST
MASK
;RESTORE MASK
$GDDAT, (R4)
:OUTPUT TO REGISTER

001126

40 031770

sFETCH DATA MASK
:GET ADDRESS OF REG. UNDER TEST

18:

;GO TO REPORT ERROR
sLOCAL SCOPE LOOP

CZIRJHEO RPO4/5/6 DSKLS PT2 MACRO Vv04.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
;
;
;

*R1

:R3 WILL HAVE DATA TO BE FILLED

CLEAR MEMORY ROUTINE

“FILLING IT WITH ANY DATA

;

JSR

RO, CLAREA

"WORD

LWORD

"WORD

;STARTING ADDRESS OF BLOCK

;DATA TO BE FILLED

WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED

*R2 AFTER SUBTRACTION WILL HAVE TWICE NUMBER OF LOCATIONS

*TO AVOID DIVIDE KOUTINE TWO DECREMENT R2 WILL BE USED

18 031772

031772
031774
031776

010146
010246
010346

20 032002
21 0320064
22 032006
23 032010
24 032014
25 032¢°6
26 032020
27 03202z

012002
012003
160102
062702
010321
005302
005302
001374

19 032000

28 032024
032026
032030
29 032032

CLAREA:

012001

012603
012602
012601
000200

MOV
MOV
MOV

R1,=(SP)
R2.~(SP)
R3,=-(SP)

::PUSH R1 ON STACK
$:PUSH R2 ON STACK
;sPUSH R3 ON STACK

MOV
MOV
SUB
ADD
MOV
DEC
DEC
BNE

(RO)+.R2
(RO) +.R3
R1.R2
#2.R2
R3.(R1)+
R2
RO
1$

1710
*DATA
*NO. OF LOCATIONS MINUS TWO
“GET TWICE NO OF LOCATIONS
*MOVE IN DATA

MOV

000002

18:

MOV
MOV
MOV
RTS

(RO)+,R1

(SP)+,R3
(SP)+.R2
(SP)+.R1
RO

:FROM

;BRANCH IF NOT COMPLETE

2:POP STACK INTO R3
1:POP STACK INTO R2
1:POP STACK INTO R1
*RETURN

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

F 10

SEQ 0122

032034

000000

032036
032044
032046
032052

032777
2
000002

LAD:

001000

147074

03203¢

MOV

RTI

LOCAL TRAPS

#SW09,aSWR
18
LAD, (SP)

;EXAMPLE OF THE USE OF THE ABOVE
sTHIS WILL LOOP BETWEEN X: AND SCOP1 PROVIDED THERE IS NO 'NEWTST'
#X,LAD
MOV
:

AN
NN
o
W
N

&
S

OO0

032054

-—bd

~N N =P b

6SBTTL

T.SCOP: BIT
BEQ
1%:

b md d ed ed ed o) =D

2 OO 00 ~ONN S NN —

LOCAL TRAPS

2% 032070
2
24 032074
25 032100
26 032104
27 032106
28 032114

177777

147142

.. x -

SCOP1

.SBTTL

CLEAR DISK ROUTINE

CLDISK: MOV
MoV
MOV
MOV

RHCS1,R1
RHCS2 ,R2
RHDS1,R3
RHER1,R4

:R1 WILL BE CONTROL AND STATUS1

MOV
MOV
CLR

#CLR,8R2
UNIT,a3R2
aR1

sCLEAR ALL REG.
sREINSTATE UNIT NO.

g?g

351.3RHAS

sR2 WILL BE CONTROL AND STATUSZ
;R3 WILL BE DISK STATUS REGISTER1
cR4 WILL BE ERROR REGISTER M

sCLEAR FUNCTION BITS
sCLEAR ATTENTION BITS

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

610

SEQ 0123

NS W) =

S NRRRRRRANRANNAAANAAACAREACAARANRARARAAARAANRANRANCRNIAAARANANNR

.SBTTL

CHECK DISK STATUS ROUTINES
Y S

LIS

eIt

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
c*IT ALSO CHECKS THAT ALL OTHER BITS IN THESE REGISTERS = 0
011637
162737
004737
022737

001414
000004
031554
004200

001414

001314

CHECKT: MOV
sus
JSR
cmp

001423
032737
001004
010137
104026

004000

001314

001122

b
—b

NN
NN

000413
[=]=]
W
[aS1a¥]

NN PONININ)
b b ed =P d and ed o od b
(VP
oW
= OO0 NN
NN = OO0 00

CHECK DISK STATUS ROUTINES

26 032200
27
28 032202
29 032204
%? 032210

032737
001003
010137
104026

000403
010137
104026

000200

001314

18:

001122

35 032212
36 032216
37 032222
%g 032226

013746
042716
022726
001424

001336
001100
000600

40 032230
41 032236
42 032240

032737

000400

3s:

001336

4$:

001336

5%:

001122

51 032274

104026

54 032276

000207

56 032300
57 032304

062716
000207

001122

6$:

7$:

000006

BIT
BNE

#DVA, (S1

EMT

8s:

sSAVE PC OF JSR+4

;GET PC OF JSR
:SAVE REGISTERS
sRHCS1 SHOULD HAVE DEVICE AVAILABLE
;AND BE READY
sBRANCH IF GOOD TO RHDS1 CHECK

MoV

1$
R1,$BDADR

sBAD SO TEST DEVICE AVAILABLE
;TEST READY IF DVA THERE
sADDRESS OF BAD REGISTER (RH(CS1)

sAVAILABLE AT START OF TEST
:BRANCH TO RHDS1 CHECK

BIT
BNE

#RDY,CS1

MOV

R1,$BDADR

MOV

EMT

001122
000200

8EQ

EMT

2s:

(SP) ,PCJSR
#4,PCJSR
PC,PUTREG
#DVA!RDY,
(ST

R1,$BDADR

DS1,-(SP)

#VV!PROG, (SP)
ggPR!DRY.(SP)+

#LPR,DS1
53

R3,$8DADR
26
78

#DRY,DS1

63
R3,$8DADR

26
78
R3.$BDADR
26
PC

46, (SP)

s TEST READY
:IF RDY THERE BRANCH
sADDRESS OF BAD REGISTER (RHCS1)
¢AT THE START OF

TEST

sBRANCH TO NEXT COMPARE
;ADDRESS OF BAD REGISTER (RHCS1)

:THAN DVA AND RDY SET
sALL OTHER BITS SHOULD BE 0
;AT START OF TEST

sGET RHDS1

sCLEAR VV AND PROGRAMABLE BIT

;RHDS1 SHOULD HAVE THESE SET

cRETURN TO TEST IF GOOD

;BAD SO TEST DRIVE PRESENT
cCHECK DRY IF GOOD
cADDRESS OF BAD REGISTER (RHDS1)
:BRANCH OUT
sTEST DRIVE READY
sIJF DPR WAS THERE SO BRANCH
;ADDRESS OF BAD REGISTER (RHDS1)

:BRANCH OUT
;ADDRESS OF BAD REGISTER (RHDS1)
:THAN MOL,

DRY, DPR, SET

*ALL OTHER BITS SHOULD BE 0

*RETURN TO TEST AND HALT - FATAL ERROR
sADJUST STACK PTR TO GET OVER HALT IN TEST
SRETURN TO TEST AND CONTINUE TESTING

H 10
CZRJHEQ RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 17-1

SEQ 0124

CHECK DISK STATUS ROUTINES

C e NARARRRARRANRNANANRANCCANCORRANNAAARNAAANRARANAANRAANAAAANERARANR

;*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 = 1
:*AND CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS1 = 1
s*1T DOES NOT CHECK THAT OTHER BITS IN THESE REGISTERS = 0
CaRRARARRARNRANAANAAN
AN RERAAARANAAARNNANANRAANNIRAACARAR
AN CAAEY

001414
000004
031554
000200

65 032306
66 032312
67 032320
68 032324
69
70 032332
71 032334
;% 032340

000427

76 032344
77
78 032352
79 032354
80 032360
81
82 032362
83 032364

032737

004000

001004
0:0137
104026

001122

90 032414
91 032420
3% 032422

94 032424

95 032430

001314

CHECKE: MOV
su8
JSR
8Ir
BNE

001122

;g 032342

84 032372
85 032374
86 032400
87 032402
88 032404
89 032412

001414

000417
032737
001004
010337
106026
000407

032737
001004
010337
104026

000200

001314

001336

B8R

BIT

#DVA, (ST

BNE

sDOES NOT HAVE DVA, RDY

:BRANCH
sRHCS1

gg.SBDADR

SHOULD HAVE DEVICE AVAILABLE

sAND BE READY
sBRANCH IF GOOD
sFAILING REGISTER

:DOES NOT HAVE DVA, RDY
sBRANCH OUT

sRHDS1 SHOULD HAVE DPR,DRY
sBRANCH IF THERE

B8R
BIT
BNE
gg¥

43
#DPR,DS1
58
gg.SBDADR

:BRANCH OUT
sRHDS1 SHOULD HAVE DPR,DRY
sBRANCH IF THERE
sFAILING REGISTER RHDS1

48:

RTS

¢RETURN TO TEST AND HALT - FATAL ERROR

5%:

ADD

46, (SP)

sADJUST STACK TO GET OVER HALT IN TEST

.SBTTL

WAIT LOOP

38:

001122

000006

¢FAILING REGISTER

#DRY,DS1
33

gg¥

001336

gg.iBDADR

:SAVE PC OF JSR+4
;GET PC OF JSR
:SAVE REGISTERS
sRHCS1 SHOULD HAVE DEVICE AVAILABLE
sAND BE READY
sBRANCH IF GOOD

BIT
BNE

001122
000400

PC ,PUTREG
#RDY,CS1

Eg¥

2g¥

000207
062716
000207

18:

(SP) ,PCJSR
#4 ,PCJSR

RTS

gg.SBDADR

sFAILING REGISTER RHDS1

sRETURN TO TEST AND CONTINUE

TESTING

::*'tttttt'ttttttltttttt't'iitfitt.t.ttfittfittt.'tt!tttt!'ttti't"t

+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)
o NANARRRARA RN RANRAANCA

177777

010046

012600

TIMCNT:

000002
001204

000002

177777

WAIT.T: MOV

001204

IR AR AR ARARNA AN RN

MOV
MOv
sus

MOV

MOV
MOV
Mov

RN AAN

AN RN

sWAITING COUNT
RO,=(SP)

:SAVE RO

(RO)+,$7mPO

sWAIT REGISTER ADDRESS

2(SP) ,R0
RO,$TMP3
#2,$TMP3

(RO)+,$TMP1
RO,2(SP)
(SP)+,RO

¢GET ADRESS OF REG. ADDRESS
;WAT PC+2 IN $TMP3
sWAT PC FOR TYPEOUT
;WAIT ON BIT
sRESTORE RETURN ON STACK
;RESTORE RO

CZRJHEQ RP04/5/6 DSKLS

001202

VI IV [V T TV ]

033777
001021
005337

001200

146470

AL G
AL

(=]

W
W
~
~
~

032432

~
[a%]

013737

VNS B NN
= = =00
NNONO SNV O0O

n
&H»

(= lelelolelsleloalelelwla
NN N NN NN NN N NN
AININININININIANININON)

= OO0 NONWY
BN
NN = O 00NN
V0O NV

b b
b =

d e
D
D
D e
D
ik
e
d i
d

NN N NV NI NI N NI NONIN) =

D
)
D
od it
oD cd e
e
b

WA U N N N N N AN

WAIT LOOP

PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 17-5
1$:

001202
032432

001200

001202

146444

001202

017737

104016
000002

146430

001126

2s:

SEQ 0125

MOV

TIMCNT,$TMP2; TEMPORARY COUNT

BIT
BNE
DEC
BNE
MOV

$TMP1,a$TMPO
23
$TMP2
18

BIT

BNE
DEC
BNE

MOV
EMT
RTI

;1S REQUIRED BIT THERE?

sBRANCH IF

YES

s COUNT
:BRANCH IF NOT TIME UP

TIMCNT,$TMP2; TEMPORARY COUNT
¢1S REQUIRED BIT THERE?
2%
:BRANCH IF YES
$TMP2
s COUNT
3s
:BRANCH IF NOT TIME UP
a$TMPO,$BDDAT
SREGISTER CONTENTS

$TMPT, SSTHPO

;CALL FOR THE ABOVE WAITLOOP IS

MOV

WAT

XS
:

0
.WORD

oA, XS

A CONTAINS REGISTER ADDRESS
SHENCE X$ WILL HAVE ABSOLUTE REG. ADR.

sABSOLUTE REG. ADDRESS UNDER WAIT
:BIT WAITED FOR
s CONTINUE

SAVE ROUTINE

.SBTTL

16:37:12 PAGE 18

J 10

SEQ 0126

SAVE ROUTINE

tttttittttttttttttttttt'tttttttttttttttttttt.ttttfit."'t.t"'t'

“THIS 1S A SUBROUTINE TO READ ©& SAVE REGISTERS

S
6
7
g

*IN THE REGISTER TABLE TO ANY LOCATION
STHE CALL IS

:JSR
rgom

*NUMBER OF WORDS SAVED

12 032554
032554
032556
032560

010146
010246
010346

14 032564

012002

16
17
18
19

013122
005303
001375
012603

13 032562

15 032566

032570
032572
032574
032576

032600
032602
gg 032604

SAVER:

012001

012003

18:

012602
012601
000200

R1,-(SP)
R2.-(SP)
R3,~(SP)

MOV

(RO)+_R2

MOV

MOV
DEC
BNE
MOV

MOV
MOV
RTS
.SBTTL

21.

::PUSH R1 ON STACK
*:PUSH R2 ON STACK
::PUSH R3 ON STACK

(RO
+ R

*FROM
$T0

(RO)+.R3

*NUMBER

(SP)+,R2
(SP) +,R1
RO

:2POP STACK INTO R2
::POP STACK INTO R1

a(R1)+,(R2)+
R3
13
(SP)+,R3

:SAVE REGISTER CONTENTS
+ COUNT
*BRANCH IF NOT DONE
2:POP STACK INTO R3

WRITE CHECK ROUTINE

ttttttttitttttttttttttttt'tt*ltttttttttttttttttttt'tttttttttttt

25
26

“THIS IS A SUBROUTINE TO DO WRITE CHECK HEADER AND DATA
SCYLINDER 0, TRACK 1, SECTOR 1, KEYS 0

.':ttttttttttttttttttttttttttttttttttitttttttttttttttttt’ttttttttt

:THESE ARE TO SET UP FOR DISKLESS USE ONLY

31 032606
32 032614
33 032622

012737
112737
112737

010000
000001
000001

35 032634
36 032640
37 032646
38 032652
39 032656
29 032660

005037
012737
005037
(004537
036710
040610

036716
000044
036720
033270

005037

036714

036710
036713
036712
036770

WRCHHD: MOV
MOVB
MOVB

NFMT22,CYL
#1,SECOTR+1
#1.SECOTR

CLR
MOV
CLR
JSR
cyL
WCRC

KEY2
#36 ,DAWORD

CLR

KEY1

RS CRC

;CYLINDER O FORMAT 16 BIT WORDS
+ TRACK=1
:SECTOR=1

*KEY1=0

*KEY2=0
*NO OF DATA WORDS
STHIS IS A READ OPERATION
;GO TO CALCULATE CRC

;THESE ARE REGULAR SETUPS

44 032662
45

004737

47 032674

012777

002544

112766
012677

000001
146324

46 032666

012777

48 032702

112746

49 032706
50 032714
51 032720
52

MOV
MOV
MOV

MOV

3% 032630

RO,SAVER

012777

032054

177730

000001

014000

JSR

146336
146332

000001

146322

MOV

PC.CLDISK

#=40. , 3RHWC

MOV

#REINTO,QRHBA

MOVB
MOV

#1.1(SP)
(SP)+ @aRHDST

MOVB

MOV

#1,-(SP)

:SET UP GENERAL REGISTERS
*AND CLEAR DISK REGISTERS

*36 DATA WORDS 4 HEADER WORDS

:STARTING ADDRESS OF READ BUFFER

*SECTOR=1

*TRACK=1 IN UPPER BYTE
:TRACK=1, SECTOR=1 IN RHDST

#FMT28VECI.SRHOF ;16 BIT WORDS

;ECC CORRECTION INHIBIT BECAUSE

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81

WRITE CHECK ROUTINE

005077
004737
1046401

29 032744
58 032750
59
60
61 032754

K 10
16:37:12 PAGE 18-1

CLR
JSR

TYPE

aRHCA
PC,CHECKT

.CPHALT

000000
013711

001450

MoV

WRCHDT,aR1

004737

036550

JSR

PC,COMHD

RTS

000207

HALT

SEQ 0127

¢ECC LOGIC IS NOT CHECKED YET
s CYLINDER=0

sCHECK THAT DVA,RDY,DPR,DRY = 1

sAND THAT NO OTHERS = 1.
CANNOT CONsTINUE TESTING IF BOTH AREN'T TRUE
sSTOP THE TEST

sWRITE CHECK HEADER AND DATA=52
¢ INTO RHCS1
;WRITE CHECK HEADER AND DATA
sSAME AS READ HEADER AND DATA
JRETURN TO WRITE CHECK TEST

CZRJHEC RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 19

SEQ 0128

b
b
d e
d
b
b
b

= OO
NO N W) —
DB ~NONWNE
NN

—

COMPARE ROUTINE

LSBTTL

COMPARE ROUTINE

;THIS IS A SUBROUTINE

TO COMPARE TWO BLOCKS N MEMORY

R1 HAS GOCD PMATA BUFFER ADDRESS
R2 HAS TESI ODATA BUFFER ADDRESS
$TMPO HAS ADDRESS OF RETURN ON ERROR TO PRINI HEADER
$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

032756

COMPAR:

MoV
MOV
MOV
MOV
MOV

R1,-(SP)
R2,=(SP)
R3,-(SP)
R&,=(SP)
RS = (SP)

MOV
MOV
MOV
MOV
MOV
MOV
INC

(RO)+.R?
(RO)+.R3
(RO)+.$TMPO
(RO)+.$TMP]
(RO) ,RO
R3,.R&
R

CMP
BEQ

(R1)+, (R2)+
3s

s COMPARE GOOD WITH TEST DATA
¢BRANCH IF GOOD

=(R1) ,$GDDAT
=(R2) ,$BDDAT

:GOOD DATA
;BAD DATA

MOV

001176
00120¢
33010

037030
22 033022
23
24 033024
25 033030

26 033034
27 033040
28 033044
29 033046
30 033052
31 033054
32 033060
33 033062
34 033066
35 033072
36 033076

1%:

001426

014137
014237
160337

001124
001126
037030
001406

MOV
MOV

2$:

146052
177177
000200

001344

012605
012604
012603
012602
012601
000200

4$:

R4 ,ERWORD

R3,ERWORD

BNE
JSR

28
PC.3%TMPO

ERFLGS

PC,asTMP1

MOV

aSWwR = (SP)

CMP

#SWO07, (SP) +

CMP

BEOQ
DEC
BNE

(R1)+, (R2)+

#6600, (SP)

R3
18

MOV
MOV

(SP)+ RS
(SP) + R4

MoV
MOV
RTS

(SP)+,R2
(SP)+,R1
RO

MOV

(SP)+,R3

:sPUSH R4 ON STACK
::PUSH R5 ON STACK
sADDRESS OF GOOD DATA BUFFER
;ADDRESS OF TEST DATA BUFFER
:NO OF WORDS TO BE COMPARED
sRETURN ON ERROR TO PRINT HEADER
sRETURN ON ERROR TO PRINT DATA
JRETURN ON NO ERROR
;NO OF WORDS TO BE COMPARED
cFOR ERROR WORD NO

-ERROR WORD NO.

;ANY ERRORS ALREAY THERE

B8R
JSR

BIC
3s:

(RO)+,R1

sus
TST

146124

146120

MOV

::PUSH R1 ON STACK
:sPUSH R2 ON STACK
2:PUSH R3 ON STACK

sBRANCH IF YES
SRETURN TO PRINT HEADER

sBRANCH TO AVOID PRINTING NEXT ERROR
cRETURN TO PRINT DATA
;UNDO -(R1) AND -(R2) FOR ERRORS
sGET SWITCH SETTING
;KEEP ONLY SWITCH 7 AND 8

;1S 7 SET AND 8 RESET

:BRANCH OUT IF YES
s COUNT
sBRANCH IF ALL NOT DEVICE
;:POP
;:POP
;cPOP
:;POP

STACK
STACK
SYACK
STACK

INTO
INTO
INTO
INTO

RS
Ré
R3
R2

:.POP STACK INTO R1

sRETURN TO MAIN PROGRAM

CIRJHED RPO4/S5/6 DSKLS PT2 MACRO v04.00 17-NOV-81
—

CHECK DATA

GO0 ~ON N SN

.SBTTL

owne W) =2 OO

SEQ 0129

WRITE CHECK DATA

SR ARNRAAARRA A RN A AR

RN O RN A RA R AN

NN RAANRARARENANRARAARRNRS

:CYLINDER 0, TRACK 1, SECTOR 1, KEYS 0

;:tttttt'ttt'ttt!.fitttt't*tttttt'tttttttttttttttt.ttttt'ttt't'ttt

sTHESE ARE TO SET UP FOR DISKLESS USE ONLY

010000
000001
000001
036714
036716
000040
036720

033164
033170
033172

004537
036710
040610

WRCHDA:

MOV
MOv8
MovBe

N#FMT22,CYL

MOV

:32..DAUORD

JSR
crL

RS, CRC

CLR
CLR

CLR

033270

#1,SECOTR+1
#1,SECOTR

KEY]
KEY?

sCYLINDER 0O FORMAT 16 BIT WORDS
s TRACK=1
SECTOR 1

NO OF DATA WORDS
sTHIS IS A READ OPERATION

;GO TO CALCULATE CRC

WCR(
s THESE ARE REGULAR SETUPS

004737

032054

27 033200

012

29 033214
30 033220
31 033226
g% 033232

112
112766

177740
002544
000001
000001
146012
014000

033174

28 033206

012

012
012

34
35 033240
36 033244
033250

005077
004737
104401

033254
37 033256

000000
013711

gg 033262
40

THIS IS A SUBROUTINE YO DO WRITE CHECK DATA

~NO NS NWNN = O

PIORNINININININD
b b d e b b b b ok =

WRITE

16:37:12 PAGE 20

2% 033266

004737

000207

146006

032116
053407
001446
036550

146024
146020

000001
146010

JSR

PC.CLDISK

cSET UP GENERAL REGISTERS
sAND (CLEAR DISK REGISTERS

MOV
MOV
MOVB
MovB
MoV
MOV

#-32. ,@RHWC

236 DATA WORDS 4 HEADER WORDS
sSTARTING ADDRESS OF READ BUFFER
:SECTOR=1

CLR
JSR

SRHCA

TYPE

#REINTO,SRHBA
#1,-(SP)

#1,1(SP)

(SP)+,3RHDST

:TRACK=1 IN UPPER BYTE
sTRACK=1, SECTOR=1 IN RHDST

NFMT22VEC], SRHOF

:16 BIT WORDS

cECC CORRECTION INHIBIT BECAUSE

PC,CHECKT

LCPHALT

:ECC LOGIC IS NOT CHECKED YET

s CYLINDER=0

sCHECK THAT DVA,RDY,DPR,DRY = 1
CANNOT CON;AND THAT NO OTHERS = 1,

HALT
Mov
JSR

PC.COMHD

WRCHEK ,aR1

sTINUE TESTING IF BOTH AREN'T TRUE
;STOP THE TEST
;WRITE CHECK DATA=50 INTO RH(S!
JWRITE CHECK HEADER AND DATA
sSAME AS READ HEADER AND DATA

RTS

JRETURN TO WRITE

CHECK

TEST

CZRJHEQ RPO4/C/6 DSKLS PT2 MACRO V04.00 17-NOV-81
CRC GENERATION ROUTINE

.SBTTL

16:37:12 PAGE 21

N 10

SEQ@ 0130

CRC GENERATION ROUTINE

2
3

:THIS IS A SUBROUTINE TO CALCULATE CRC FOR THE FOUR

S
6

:
;

R1 - REGISTER FOR CRC, INCREMENTED CRC VALUE IS HERE
R2 - THIS HAS BIT POSITION 2 VALUE C

;

RG - THIS HAS BIT POSITION 15 VALUE E

*HEADER WORDS AND STORE THEM IN 'WCRC'TM AND ''GCRC"

R3 - THIS HAS BIT POSITION 16 I.E.

9
10
11

:
:
;

15
16
17
18
19
20
21

;FETCH DATA BIT D
;8 =D XOR 16
:C = B XOR 2
:E =8 XOR 15
*ROTATE RIGHT ONE POSITION
:B GOES TO POSITION 1

12
}z

;
;

$TMPQ - NUMBER OF WORDS
$TMP2 - NUMBER OF BITS PER WORD
= 16
$TMP3 - TEMPORARY REG.

$TMP4, - TEMPORARY REG TO TRANSFER CARRY
$TMPS -~ THIS HAS DATA BIT VALUE D

:C GOES TO POSITION 3
*E GOES TO POSITION 16

s CALL

;

*REPEAT 64 TIMES

26
27

;
:

30 033270
033270

010046

32 033274
033276
033300
033302
33 033304
3% 033306
35 033312

010146
010246
010346
010446
005001
005037
012737

001210
0000064

36 033320 012037 001204

001176

37 033324

38 033332

012737

000020

001292

39 033340

006037

001204

001206

31 033272

40
41
42
43

OUTPUT BIT VALUE B

033344
033350
033354
033356

4% 033362

CRC:

012500

013737
006037
032701
001403
012703

000401

001204

001210
000001

063703

001210

48 033372
49 033376

032701
001403

040000

51 033404

000401

52 033406
53 033410

012702

005002
060302

168:
158 :

100000

005003

50 033400

RS, CRC
X

MOV

RO,=(SP)

::PUSH RO ON STACK

MOV
MOV
MOV
MOV
CLR
CLR
MOV

R1,=~(SP)
R2.~(SP)
R3,-(SP)
RG,=(SP)
R1
srnps
<TMPO

::PUSH
J:PUSH
S:PUSH
::PUSH
*CLEAR

MOV

86, $TMP2

‘BIT COUNT

ROR

$STMP3

JWORD

MOV

45 033364

23 033366

JSR
_WORD

1$:

100000

MOV

:FIRST LOCATION AT

:PUT CRC IN WCKC FOR READ GCRC FOR WRITE

(R§)+ RO

:GET POINTER TO CYL NO.

R1 ON STACK
R2 ON STACK
R3 ON STACK
R4 ON STACK
WORKING LOCATION

(R6)¢ $TMP3

;WORD COUNT

STMPS, $TMPS

:TEMPORARY WORD STORAGE

: TEMPORARY WORD STORAGE
:GET LSB INTO ‘¢

ROR
BIT
BEC
MOV

$TMPS
#81T0.R1
1%
#BIT15,R3

SGET ABOVE ‘'C’'* INTO STMPS
SIS POSITION 15 HIGH
SBRANCH IF POSITION 16 LOW
‘GET POSITION 16

CLR

;GET POSITION 16

8IT
8EQ

#BIT14 R
38

21S POSITION 2 HIGH
:BRANCH IF POSITION 2 LOW

B8R

ADD

MOV

3.
48

CLR
ADD

$STMPS ,R3

#8IT15.R2
R?
R3.R2

:¥8RG?321;10N 16 WITH D
:GET POSITION 2

:GET POSITION 2
‘XOR B WITH POSITION 2

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

SEQ 0131

CRC GENERATION ROUTINE

BIT

000002

68:
001206

100000

020000
020000
76
77 033504
78

042701
000402
052701

000001

000001
001202
001176

85 033542

000205

MOV
BR

58
#BIT15,R4
6s

ADD

R3.R4

BEQ

100000

#BIT1,R1

CLR

ROR
ROR
TST
8MI

BIC
BR
BIS

TST
BMI
8IC
BR
BIS
TST
8MI
BIC
BR
8IS
DEC

BNE

DEC
BNE
Mov
MoV
MOV
MoV
MOV
MOV
RTS

$TMPS
R}

sT0 GIVE C
;1S POSITION 15 HIGH
sBRANCH IF PO SI; ON 15 LOW
sGET POSITION 1
:GET POSITION 1 5
:XOR POSITION 15 5 WITH B

:TO GIVE E

:GET LSB INTO ''¢"’
:GET_ABOVE C INTO R1

;TEST B

#8IT15,R1
108
#BIT15,R1
R2

SSET B IN POSITION 1

11$

#BIT13,R1
128

#8I1T13,R1
R4
138
#8I1T0,R1
14%

#8I1T0,R1
$TMP?2

15%
$TMPO
168
R1,8(RS)+
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+ ,R1
(SP)+ KO
RS

*BRANCH IF B=1

;SET B IN POSITION 1
s TEST €

*BRANCH IF C=1

*GET C IN POSITION 3
;GET C _IN POSITION 3

;T
TEST E

sBRANCH IF E=1
cGET E IN POSITION 16
sGET E IN POSITION 16
;BI1T COUNTER
:BRANCH IF 16 NOT DONE
;WORD COUNTER

¢BRANCH IF & NOT DONE
sPUT CRC WHERE DESIRED
;:POP STACK INTO R4
;sPOP SIACK INTO R3
:sPOP STACK INTO R2
::POP STACK INTO R1
:sPOP STACK INTO RO

CZRJHEQ RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
-

SIMULATED DISK SETUP

.SBTTL

2
3

c 1

SEQ 0132

SIMULATED DISK SETUP

sTHIS 1S A SUBROUTINE TO SET UP THE SIMULATOR DISK FOR
JCYLINDER O (16 BITS PER WORD)

:TRACK 1, SECTOR 1

JKEYY 1
;KEY2 1
:CRC THROUGH THE JSR RS,CRC
;256 WORDS OF 177400

6
7

9
10
1B
12
13
14 033544

15
16
17
18
19
20
g}

16:37:12 PAGE 22

033544
033546
033550
033552
033556
033562
033566
033570
033572
033574

; CALL
:

010046
010146
010246
012700
012701
012702
010022
005301
001375
012701

gz 033600

005022

25 033602
26 033604
27
28
29
30 033606
31 033616
32 033622
33 033630
033636
35 033644

005301
001375

033666
40 033670

SETDSK:

177400
000400
040626

JSR

PC.SETDSK

MOV
MOV
MOV

RO,~(SP)
R1,<(SP)
R2.=(SP)

MOV

#DISK R2

DEC
BNE
MOV

R1
18
#17. R

CLR

(R2)+

DEC
BNE

R1
2

MOV
MOV

18:

000021

28:

MOV

#127400,RO
#256. .R1
RO, (R2)+

::PUSH RO ON STACK
:sPUSH R1 ON STACK
::PUSH R2 ON STACK
:DATA IN THE DISK
:COUNTER
sSTART OF SIMULATOR DISK
JMOVE IN DATA
;COUNT FOR 256
:BRANCH [F 256 NOT COMPLETE
s ECC WORDS, 1 DATA GAP
;14 TOLERANCE GAP
JCLEAR ECC,DATA GAP AND
:TOLERANCE GAP
;sCOUNT
;BRANCH IF NOT COMPLETE

;NOW SET UP FOR DISKLESS USE
012737
112737
112737
012737
012737
013737

012600
000207

010000
000001
000001
000001
000001
000400

033270

MOV
MOv8
Mov8
MOV
MOV
MoV
JSR

#FMT22,CYL
#1,SECOTR+1
#1,SECOTR
#1,KEYY ;KEY1=1

MOV
MOV
MOV

(SP) +,R2
(SP)+,R1
(SP)+,RO

cyL
WCRC

RTS

JCYLINDER 0 (16 BIT WORDS)
;s TRACK=1

sSECTOR=1

#1,KEY2 ;KEY2=1
256. ,DAWORD
:NO. OF DATA WORDS
R5,CRC
;GO TO CALCULATE CRC

sFIRST CRC WORD
sPUT CALCULATED CRC

::POP STACK INTO R2
¢.POP STACK INTO R1
::POP STACK INTO RO

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

SEQ 0133

CHECK HCE ROUTINE
NN = OO 00 NOMNN S WA

.SBTTL

sTHIS IS A SUBROUTINE TO CHECK HEADER COMPARE ERROR

;(BIT #7) AND CRC ERROR (BIT #8)

s CALL

:JSR RO,HCCRCE

b e

b cad o

:
.
:
:
:
:

O VN

b b d e o

=2 OO0

PON)

033720
22 033722
23 033726
24 033730
25 033734
26 033736
27 033740
28 033744
29 033746
30 033752
3
32 033756
33 033762
34
35 033766
36
37 033774
38 034000

CHECK HCE ROUTINE

010037
162737
004737
004737
104401
000000

001414
000004
032054
032116
053407

001414

145316

145272
145254

001406
036550

145254

:1=WRITE DATA 0=READ
;H=1 HEADER CHECK, H=0 CRC CHECK

RO,PCJSR
#4 ,PCJSR
PC,CLDISK
PC,CHECKT
LCPHALT

MOV
MOV
MoV

(RO) ,$TMP5
(RO) +,aR1
(RO) +,3RHCA

7ST8
MovB
1ST8
MoV

(RO) +
(RQ)+,1(SP)
(RO)+
(SP)# dRHDST

(RO)+,~(SP)

(RO) + , 3RHW(

sSAVE PC OF JSR+4
;GET PC OF JUSR
JINIT AND SETUP GENERAL REG.

;CHECK THAT DVA,RDY,DPR,DRY = 1
;AND THAT NO OTHERS = 1.
CANNOT CON-

JTINUE TESTING IF BOTH AREN'T TRUE
;STOP THE TEST

s SAVE COMMAND
: COMMAND
s CYLINDER

:SECTOR

;UP DATE RO
: TRACK
:UPDATE RO
:TRACK SECTOR

:NO. OF DATA WORDS +4 HEADER

Mov

s1F A _READ HEADER AND DATA
(RO) +,aRHBA
:STARTING ADDRESS OF BUFFER
(RO)+,X ;X=0 READ HEADER AND DATA
X=1 WRITE DATA
#FMT22'EC1,3RHOF ;16 BITS PER WORD

CLR
JSR

ERFLGS
;CLEAR ERROR FLAG
PC,COMHD
s COMMAND

MOV
MOV

036720

005037
004737

HCCRCE: MOV
sus
JSR
JSR
TYPE

MOV

145252

-WRITE DATA
CYLINDER
SECTOR
;IRACK
JWORD COUNT
;RHBA BUFFER START

X
H

MOvVB

000001

COHHAND-READ HEADER AND DATA

C
S
T
=N.
8

HALT

001210

014000

;ECC CORRECTION INHIBIT

;IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS
*FROM THE ''COMHD"* ROUTINE THAT MEANS SECTOR GAP,
*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND
.Bz¥gcegre HAVE GONE BY AND SYNCS WERE CORRECTLY

;HEADER AND DATA ARE TO BE CHECKED.
47 034004
48 034010
49 034014

50 034016
51 034022
52
53
54

004737
005737
001034
005737
001015

031554
001406
036720

JSR
TST

PC,PUTREG
:SAVE REGISTERS
ERFLGS
;ANY ERRORS ALREADY THERE

TST

BNE

108

sBRANCH IF YES

:1S THIS A READ

sIF A WRITE DATA BRANCH

sNOW THE READ BUFFER WiLL BE CHECKED
;HEADER SHOULD BE COMPLETELY READ AS WRITTEN

CZRJHEQ RPO4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81
CHECK HCE ROUTINE

16:37:12 PAGE 23-1

SEQ 0134

:NO DATA WORDS SHOULD BE READ
sREINTO BUFFER HAS BEEN FILLED WITH 0

:WRFROM BUFFER HAS BEEN FILLED WITH EXPECTED DATA

59
60
61
62
63
64
65

034024
034030
034032
034034
034036
034040
034042

004037
001500
002544
000400
034044

0340446
67 034046
68 034050
034050

104004
000207

032756

JSR

WRFROM
REINTO

RO, COMPAR

;4 HEADER 252 DATA

18:

r ¥

104005

sRETURN POINT FOR ERROR HEADER
sRETURN POINT FOR ERROR DATA

23
18
EMT

RTS

:GOOD DATA

sTEST BUFFER

256.

034106

s CHECK

sRETURN FOR GOOD COMPARISON
PC

EMT

JRETURN TO COMPARISON SUBROUTINE

+HEADER WORDS AND HENCE

75 034052

000207

RTS

77 034054

000414

108

< SHOULD BE READ AS WRITTEN ON
;DISK, WORD NOS. 5 ONWARDS
sSHOULD NOT BE READ AND HENCE
sREAD INTO BUFFER
s SHOULD BE UNCHANGED
sRETURN TO COMPARISON

SJUMP OUT

sNOW THE DISK WILL BE CHECKED
¢NO DATA SHOULD BE WRITTEN
sREINTO BUFFER HAS BEEN FILLED WITH EXPECTED DATA

sDISK HAS BEEN FILLED WITH 177400

;WRFROM HAS BEEN FILLED WITH 125252

85 034056
86 034062
87 034064
88 034066
89 034070
90 034072
91 034974

004037
002544
040626
000400
034076
034102
034106

034076
93 03410C
9% 034102
034102

104004
000207

000207
005720
001442
022737
001417
017737

106 034136
107 034140

001470
013737

022737

JSR
REINTO
DISK

RO, COMPAR

5%:

108:

000072

001210

145114
000200

001126
001126

001242

631620

s CHECK
:GOOD DATA BUFFER
cTEST BUFFER

sRETURN POINT FOR ERROR HEADER
SRETURN POINT FOR ERROR DATA
sRETURN POINT FOR GOOD COMPARISON

A ¥

104005

95
96
97
98 034104
99 034106
100 034110
101 034112
102 034120
103 034122

}8? 034130

3s:

032756

RTS

MOV

(RO) +
63
#72,8TMP5
118
SRHER1,$BDDAT

BEQ

TST
8EQ

BEQ
cmp

Mov

#HCE ,$BDDAT

sRETURN TO COMPARISON SUBROUTINE

sWORDS THE SHOULD NOT
sHAVE BEEN CHANGED BY THE
sWRITE COMMAND

¢RETURN TO COMPARISON SUBROUTINE

21S THIS A
¢BRANCH IF
c1S THIS A
:BRANCH IF
;TEST DATA

HCRC ON HCE CHECK?
HCRC
READ COMMAND
YES

sONLY HEADER COMPARE BIT?

s SHOULD BE SET
:BRANCH IF GOOD

RHER1,REGADR ;REGISTER ADDRESS RHER1

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81

012737
104027

‘\l\bl*uwuguwwquNNNf\lNNNNNN—l—‘—l—l—l—l—l—l—l—loo
VSN
=2 OOV
NV
NN = OV
NON NS WA 2OV

CHECK HCE ROUTINE

000200

001124
115

D e

000460

145056
100200

001126

Efl¥

g;ce.scooAr

MoV

CMP

031620
001124

b
b oed
D e

N
o~
o

s
b
b md

145010
000400

001242
000400

6$:

‘BE SET

:TEST DATA

BEQ
MOV
22¥

B8R

:HEADER ONLY HCE SHOULD

‘BE SET

001126
001126

CMP
BEQ
MOV
ggg

#72.$TMPS
128
aRHER1,$BDDAT
;gcnc.saooAr

1S THIS A READ CCMMAND?
*BRANCH IF A READ
:TEST DATA
SONLY CRC ERROR SHOULD BE THERE

031620
001124

MOV
Efi¥

RHER1,REGADR ;REG. ADDR = RHER1
ggcnc.scooAr
+GOOD DATA

B8R
MOV

7%
aRHER1,$BDDAT

:SHOULD BE SET
;BRANCH OUT

000416
017737

144752

001126

034272

022737

100400

001126

CMP

#DCK ! HCRC, $BDDAT;HCRC AND DCK SHOULD BE SET

001124
031620

BEQ
MOV
E3¥

7$
‘BRANCH IF GOOD
#DCK 'HCRC,$GDDAT:
GOOD DATA
g;sn1.nscAoa;rA1L1~c QEGISTER RHER?

-l

001407
W

WOV~

001210

;HEADER ONLY HCE SHOULD

034262
034264

b md
d
D
b
b nd
b
b e
b
b

104027

000072

;600D DATA

#DCK'HCE, SBDDAT :ONLY HEADER COMPARE BIT?

001242
100200

aRHER1,$BDDAT

SEQ 0135

$SHOULD BE SET
‘DCK IS SET BECAUSE ECC IS NOT READ
78
‘BRANCH IF GOOD
RHER1,REGADR ;REGISTER ADDRESS RHER1
ggCK!HCE.SGDDAT ;GOOD DATA

d o

017737
022737

F1N
16:37:12 PAGE 23-2

012737
013737
104027
000200

100400
001242

128:

:TEST DATA

:DCK IS SET BECAUSE ECC 1S NOT READ

;DCK AND HCRC SHOULD BE SET
78:

RTS

*DCK IS SET BECAUSE ECC IS NOT READ
*RETURN TO MAIN TEST

—_—

—b

PONIN) D b e ed d b d b b
N~ OOV
~NONWNE
NN —

O 000 ~NON N

NN —

CZRJHEO RP04/5/6 DSKLS PTZ2 HACRO v04.00 17-NOV-81 16:37:12 PAGE 24
EXIT WRT HEADER & DATA ROUTINE
.SBTTL

SEQ 0136

EXIT WRT HEADER & DATA ROUTINE

sTHIS IS A SUBROUTINE TO LEAVE AT THE MIDDLE OF
:A WRITE HEADER AND DATA COMMAND

s1T _TRYS TO GET SECTOR 10, TRACK O, CYLINDER 0

:BUT COMES OUT AFTER ONE SECTOR
:THE COMMAND 0S JSR PC,MIDDLE
;BAl 1S SEV
034322
034322
034324
034326

MIDDLE:

034334
034342
034350
034372
034376

23 034404
24 034412
25 034420
26 034424
27 034426
034430
28 034432

RO,=(SP)
R1,-(SP)
WRIFOR,@RHCS1

001454

144704

177766
001500
000019
000010
010000
144654
000001

144670
144664

#-10
, aRHWC
.

144652

#BAT QRHCS?2

000001
000001
042756

000207

v
MOov
mMov

144666

#WURFROM, 3RHBA
#10. 3RHDS
T

144656

#FMTS2, SRHOF

aRHCA
#1,MID

034424

1464646
144620

MOV
MID:

. WORD

RTS

+:BUS ADDRESS=WRFRCM

:DESIRED TRACK=0 SECTOR=10

;BUS ADDRESS INCREMENT INHIBIT
:FORMAT 16 BIT WORDS

:CYLINDER=0

;SECTOR IS SET TO 1 SO THAT
:WE CAN GET OUT AT THE

#DMD
, aRHMR
#G0,8RHCS
81.SEARCH

(SP)+,R1
(SP)+,R0

:;PUSH RO ON STACK
2:PUSH R1 ON STACK
JWRITE HEADER AND DATA=62
JIN RHCS?
;10 WORDS

:HIDDLE OF AN OPERATION
2LOOKING FOR SECTOR 10
JSET DIAGNOSTIC MODE
;G0 TO RHCST WITH 62

sSECTOR
:.POP STACK INTO R1

;:POP STACK INTO RO

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

H1N

SEQ@ 0137

JAM CURRENT CYLINDER ROUTINE

LSBTTL

;THIS SUBROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER

JWHICH WILL LOAD THE CURRENT CYLINDER WITH THE DESIRED CYLINDER VALUF

7
8

s CALL
;

JAM CURRENT CYLINDER ROUTINE

sTHIS 1S DONE BY GIVING A SEEK COMMAND THEN AN INIT

JSR

RO,MAKECYL

;DESIRED VALUE OF CURRENT CYLINDER

001414

MOV
MOV
SUB

RS,-(SP)
RO.PCJSR
#6 PCJSR

::PUSH RS ON STACK
;PC OF JSR+4
;SAVE PC OF JSR

144550
144562
144534

MOV
CLR
MOV
MOV
8IS

RS,8RHCA
aRHDST
SEECOM,aRHCS1
#DMD , 3RHMR
#G0,aRHCS1

sFILL DESIRED CYLINDER REGISTER
JMAKE SURE DESIRED SECTOR TRACK IS NOT ILLEGAL
JFILL SEEK COMMAND
JSET DIAGNOSTIC MODE
;G0 TO SEEK

11 034434
034434
12 034436
13 034442

010546
010037
162737

001414
000004

15
16
17
18
19

010577
005077
013777
012777
052777

144574
144562
00146462
000001
000001

14 034450

034452
034456
034462
034470
034476

20 034504
21 034506
22 034510
23 034512
26 034516
25 034520
26 034526
27 034532
28 034534
29 034540
30 034546
N
32 034550
034550
33 034552

012005

000240
000240
000240
000240
004737
017737
020537
001406
010537
013737
104030
012605
000200

MAKECYL:

032054
144552
001126

001124
001276

.WORD

MOV

NOP
NOP
NOP
NOP
JSR
MOV
CMP
BEQ
MOV
MOV
EMT

001126

031620
18:

MOV
RTS

(Rb)*.RS

PC,CLDISK
aRHCC,$BDDAT
R5,$B0DAT
1$
RS5,$GDDAT
RHCC,REGADR
30
(SP)+ RS
RO

JGETTING READY TO FILL DESIRED CYLINDER

SALLOW TIME FOR SEEK TO HANG
JALLOW TIME FOR SEEK TO HANG
JALLOW TIME FOR SEEK TO HANG
JALLOW TIME FOR SEEK TO HANG
JGIVE INIT
JTEST DATA
; COMPARE CURRENT CYLINDER
;BRANCH IF GOOD
;600D VALUE OF RHCC
JFAILING REGISTER ADDRESS

UP
UP
UP
UP

JREGISTER AFTER A SEEK AND AN INIT
;;POP STACK INTO RS

—

CZRJHED RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81

PNINVN) = b end e e d d e e b
[a¥] =2 OO 00 NON NI NN =2 OO 00 NON N SN AN

ECC GENERATION AND COMPARISON ROUTINE

.SBTTL

ECC GENERATION AND COMPARISON ROUTINE

:Efi{f SUBROUTINE GENERATES AND TESTS ECC
:

JSR

PIE1
PIE2
PIE3
PIE4
PIES
PIEG

=100000
=40000
=20000
=10000
=4000
=2000

PIE8
PIE9
PIE1I0
PIE11
PIE12
PIE13S

=400
=200
=100
=40
=20
=10

000040
000020
000010
000004
000002
000001

PIE1S
PIE16
PIE17
PIE18
PIE19
PIE20
PIE21
PIE22
PIE23
PIE24
PIE25
PIE26
PIE27
PIE28
PIE29
PIE30
PIE3Yl
PIE32

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

000000

ECDATA: 0

100000

040000
020000
010000
004000
002000
001000

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

000200
000100

40 034554

16:37:12 PAGE 26

PIE?7

PIE14

PC,ECTEST

=1000

;DATA BIT FOR ECC
sIF ALL ONES THEN CURRENT BIT IS A ONE

:IF ZERO THEN CURRENT BIT IS A ZERO
44 034556

000000

GECC1:

:ng ORDER ECC WORD TO BE GENERATED HERE

47 034560

000000

GECC2:

:HIgH ORDER ECC WORD TO BE GENERATED HERE

50 034562

000000

TSECCG: O

;1F =177777 GENERATE AND TEST ECC FOR THIS BIY

3 034564
4 034566
5 034570

113713
000000
000000
010041

NCODE:
NCOUNT:
POSITI:
HARDER:

:N-CODE WORD
: TEMPORARY N CODE
sPOSITION REGISTER
sHARD ERROR COUNT

6 034572

38859.
0
0
4129,

:IF =0 DO NOT GENERATE AND TEST ECC FOR THIS BIT

;TRUE COUNT IS 4128 BUT AS COMPARES ARE

SEQ 0138

—

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04,00 17-NOV-81

ECC GENERATION AND COMPARISON ROUTINE

59 034574

000000

DATENV: 0

62 034576

000000

2CODE:

J N
16:37:12 PAGE 26-1

SEQ 0139

;DONE ONE STAGE LATER SO 4129
;DATA ENVELOPE FOR TYPE OUT
;MAX FOR WRITE IS 4096
;MAX FOR READ IS 4128
:LEADING ZERQS ENVELOPE FOR TYPE OUT

sTHIS IS SHUT OFF WHEN POSITION COUNTER

s IN ENABLED

sMAX COUNT IS 38859

69 034600
70 034602
71 034604
72 034606
73 034610

000000
000000
000000
000000
000000

HADTMP:
P3:
P12:
P22:
P24:

79 034612

ECTEST:

034612
034614

034556
034560
83 034642
84
85
86
87
88 034644
89 034646
90 034652
91 034654
92 034656

034554

0
0
0
0
0

MOV
MOV
MoV
MOV
MoV
MoV
MOV
MOV

TST
8EQ

; TEMPORARY HARD ERROR COUNT

RO,=(SP)
R1,-(SP)

R2.=(SP)
R3,-(SP)
R&,=(SP)
R5,=(SP)
GECC1.R1

GECC2.R2
ECDATA
28

;:PUSH RO ON STACK
;;PUSH R1 ON STACK

:sPUSH R2 ON STACK
::PUSH R3 ON STACK
;sPUSH R4 ON STACK
;sPUSH RS ON STACK
;ECCY1 WORD
;ECC2 WORD
;1S CURRENT BIT A ONE
;BRANCH IF CURRENT DATA D=0

;1F CARRY IS NOT ZERO THEN D=1
s INVERT X32 10 GIVE RO
177776

1$:

MOV
BIS
COM

MoV
B8R

000404

R1,R3

s‘CPIE32 .R3
R3,RO

:IF CARRY IS ZERO THEN D=0, X32 BECOMES RO
96 034660
97 034662
98 034666

010103
042703
010300

000241

001462

177776

2%:

MOV
BIC

MOV

3s:

CLC

ROR
ROR
TST

8EQ

#-CP1E32 .R3
R3.RO
RO
RO

108

s INVERT X2
010203

MOV

R2,R3

sBRANCH IF RO=0

1
1
1
1
1

1
1
1
1

1
1
1

1
1
1
1
1

1
1

1
1
1
1
1
1
1
1
1

1
1

1
1
1

b
-

NN
PP
N~

052703
005103
010337
006237

137777

BIS
COM
MOV
ASR

034602
034602

#°CPIE2.R3
R3
R3,P3
P3

; INVERT X11
MOV
BIS

177737

COM

034604
034604

MOV

ASR

R2.R3
#4CPIE11,R3

R3
R3,P12

P12

: INVERT Xx21
MOV

173777

R1,R3

8IS

#4CP1E21,R3

ASR

P22

coM
MOV

034606
034606

034756

R3
R3, P22

:INVERT X23
034762
034764
034770
034772
034776

010303
052703
005103
010337
006237

MOV

176777

BIS
COM

034610
034610

MOV
ASR

R1,R3

#4CP1E23.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
*THESE BITS JAMED IN

006002

N
~N

1
1

j=l=lelelale] 8000OO

OO\ O O \VNI\AWVINAWINVAWAWAES
35 85 85 28 35 85 85 8 B WA
NN W AN N NN N NI PO N NI NI NI ANI NI
b b D b b
b e b b
WVH WA= O VO NS WA =O 0NN
W =OVONO NS WNI <OV
NI WN=O VNS W
=O

109 034704
1
034710

35026

050002

005000
053700
053700
062701
050001
000404

ROR
ROR

034602
034604
120020

034606
034610
002400

R2
R1
P3 RO
P12,R0

8IS
BIS
8IC
BIS

#PIE1'PIE3!PIE12.R2
RO,R2

CLR
BIS
BIS

RO
P22.R0
P24 .RO

B8IC

#PIE22'PIE24
,RT

B8R

12§

BIS

RO,R1

;THE PROGRAM COMES HERE

IF RO=0

;SO AFTER ROTATE RO GETS PUT INTO POSITION 1

006002
006001

108:

ROR

R?
R1

SEQ 0140 '

X o

CZIRJHEQD RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
ECC GENERATION AND COMPARISON ROUTINE

[

K 11
16:37:12 PAGE 26~2

CZRJHED 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 035066
170
17
};g 035072

174
175
176
177
178
179
180
181
182
183

042702
010137
010237
005737

100000
034556
034560
034562

128:

032777
001005
032777
001401
000421

035116

010146

185 0351264
}gg 035130

022677
001404

144142

004737
104035
000407
023777
001403

031554

004737

031554

#PIE1,R2
R1,GECC]
R2,GECC2

BEQ

148

TST

001432

035074
035102
035106
035112
035114

8IC
MoV
MoV

000400

144036

000100

144026

; *CHECK HARDWARE
BIT
#5W8,aswR
BNE
158
BIT
#SW6, 3SWR
BEQ
158
BR
148

184 035120 042716 174000

158:

188
189
190
191
192

:TO SAVE TIME
JSR
EMT
BR
138:
(MP

035132
035136
035140
035142
193 035150

195

196 035152

197 035156
198
199
%8?

104035

034570

MoV

BIC

CMP
BEQ

144720

TSECCG

SAVE ECCI
:SAVE ECC2
;1S HARDUARE TO_BE _CHECKED
F =1777777 TEST HARDWARE
= 0 DO NOT TEST HARDWARE
BRANCH IF HARDWARE NOT TO BE CHECKED

BEQ

:TO SAVE TIME

JSR
EMT

~(SP)

#174000 (SP)

(SP)+,@RHEC2
138

PC.PUTREG
35
143
POSITI,@RHEC1
148

PC,PUTREG
35

;1S SWITCH 8 SET
;BRANCH IF SW8 IS SET
;1S SWITCH 6 SET
:BRANCH_IF SWé IS NOT SET
;IF SWITCH 8 IS NOT SET AND
;SWITCH 6 IS SET THEN
D0 NOT DO_COMPARES
:GOOD PATTERN REGISTER

;GET ONLY PATTERN BITS

:COMPARE PATTERN REGISTER
:BRANCH IF GOOD
;SAVE REGISTERS
:BRANCH 0UT
;COMPARE POISTION REGISTER

:BRANCH IF GOOD
:SAVE REGISTERS

:*DATA ENVLOP'' GIVES NUMBER OF (LOCK
;PULSES FROM BEGINING OF COMMAND
;THAT IS THE CLOCKS IN THE R/W DATA FIELD ENVELOPE

202

:IN A WRITE_THERE ARE 10000 OCTAL CLOCKS

205

ggg

;MAX COUNT IS 113713 OCTAL

582

:IN A READ THERE ARE 10040 OCTAL CLOCKS

206
207

;'N-CODE ZERUS'' GIVE THE NUMBER OF CLOCKS
: GIVEN FOR THE LEADING ZEROS FIELD

210

:''G00D POSITION'' GIVES NUMBER OF CLOCKS

5}}

:MAX COUNT IS 10040 OR 10041 OCTAL

:GIVEN AFTER LEADING ZEROS WHICH IS FOR THE DATA

5}5

215
216 035160
035160

012605

035164
035166
035170
035172

012603
012602
012601
012600

035162

012604

148:

MOV

(SP)+,RS

::POP STACK INTO RS

MOV
MOV
MOV
MoV

(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO

:;POP
::POP
:;POP
::POP

MOV

(SP)+,Ré4

::POP STACK INTO R4
STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO

R3
R2
R1
RO

CZRJKED RPO4/5/6 DSKLS FT2 MACRO V04.00 17-NOV-81
ECC GENERATION AND COMPARISON ROUTINE

%}g 035174

000207

LI R
16:37:12 PAGE 26-4

RTS

SEQ 0142

%}8

.SBTTL

221
222
223
224

JTHIS SUBROUTINE WILL CONTROL THE ECC GENERATION ROUTINE
;FOR ERROR CORRECTION PROCESS
JCALL
:
JSR
PC,ECORR

%%g

%%g 035176

000000

231 035200
232 035204

010037
162737

001414
000004

236 035224
ggg 035230

012711
005037

001260
000001
034554

233 035212
234 035216
235 035220

2641 035234
2642 035240
2643 035242
244 035246
245 035250
246 035252
247 035256
248
249 035260
250 035264
251 035272
252 035274
253
254 035302
255 035304
ggg 035310
258

012037
010146
013701

035176

005737
001007
005337
001001
000403
005237
000420

034570

005237
023737
103012
023737

034570
035176

034570

034600

034570

001415
032711
001016

263
264 035320
265 035324

052711
042711

000002
000002

ECORR:

MOV
SuB8

RO.PCJSR
#4 PCJSR

MOV
CLR

#DMD ,aR1
:SET DIAGNOSTIC MODE BIT
ECDATA
ECC DATA IS ZERO

TST
BNE
DEC
BNE
BR
INC
BR

POSITI
23
NCOUNT
6$
2%
ZCODE
3s

MOV
MOV
MOV

6%:
2$:

INC
CMP
BHIS
CMP
BEQ
BIT
BNE

;7O SAVE TIME

3s:

034612

269

JEXPECTED POSITION REGISTER WHEN CORRECTION IS COMPLETE

JPOSITION REG. WHEN CORRECTION IS COMPLETE

JSAVE PC OF JUSR + &
JSAVE PC OF JSR

(R0) + ,ERPOS
sGET POSITION REG. WHEN CORRECTION IS COMPLETE
R1,-(SP)
;¢cPUSH R1 ON STACK
RHMR,R1 MAIMTFENANCE REGISTER

;1S

SOFTWARE POSITION NON ZERO
;BRANCH IF N-CODE S COMPLETE
DECREHENT N-CODE
;BRANCH IF N-CODE IS NOT COMPLETE
:BRANCH AS N-CODE IS COMPLETE
JINCREMENT CLOCKS GIVEN FOR LEADING ZEROS
JBRANCH AS N-CODE IS NOT COMPLETE
;GO TO GIVE CLOCK AND TEST ECC
POSIT]I
;INCREMENT SOFTWARE POSITION
ERPOS ,POSITI.HAVE ENOUGH CLOCKS BEEN GIVEN TO DETECT ERROR
3s
;BRANCH IF MORE CLOCKS TO BE GIVEN
HADTMP ,POSITI; HAVE ENOUGMH CLOCKS BEEN GIVEN FOR HARD ERROR
THAT IS HAVE 4128 MORE CLOCKS BEEN GIVEN
5$
*BRANC
TF YES
#ZER,3R1
sCHECK
RO DETECT BIT IN RHMR
43
;BRANCH 1S ZER SET

JSR
EMT

PC,PUTREG
34

;SAVE REGISTERS

BIS
BI(C

MCLK,8R1
#MCLK,aR1

JSET CLOCK
JCLEAR CLOCK

JSR
BR

PC,ECTEST
13

JWHEN 21 BITS IN ECC 32 BIT REGISTER IS

;GO TO GENERATE AND TEST ECC
s CONTINUE

cTHIS EXTRA CLOCK IS TO BRING ECH HIGH

AFTER THIS CLOCK POSITION REGISTER MAY BE 10040 OR 10041 OCTAL

-d

-—r

82%;1

5;?

272 035336
273 035342

ERPOS:

000400

031554

004737
000737

.WORD

1$%:

034576

004737
104034

266 035330
Sgg 035334

034566

259 035312
260 035316
%g%

001414

ECC GENERATION CONTROL ROUTINE

000002
000002

5%:

BIS
8IC

#MCLK,aR1
#MCLK,aR1

sSET CLOCK
;CLEAR CLOCK

N 11

CZRJHEO RPQ4/5/6 DSKLS PT2 MACRO V04.CO 17-NOV~81 16:37:12 PAGE 26-5

SEQ 0143

ECC GENERATION CONTROL ROUTINE

274
275 035346
035346
276

035350

012601

000200

4s:

MOV
RTS

(SP)+,R1

:;POP STACK INIO R1

.SBTTL

16:37:12 PAGE 27

B 1

SEQ 0144

SOFTWARE DISK DATA ECC GEN. ROUTINE

;THIS SUBROUTINE GENERATES THE ECC FOR WHAT IS ON DISK AND INSERTS THEM
;ON LOCATIONS 'DISK+1000°' AND 'DISK+1002''
FILLEC:

1%,]

Al U oA U N N N NN NN N NN N NN

[ R, W NV T, 8 L

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
SOF TWARE DISK DATA ECC GEN. ROUTINE

(=]
N

LY
&H

8}4570
34556
034560
040626
000400
000020

9%:
108:

034554

034556
034560

035502
27 035504

000207

041626
041630

)

—t

034554
034612

MOV

[ X

177777

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

B8R
CLR
JSR
DEC
BNE
DEC
BNE
MoV
MoV
MoV
MoV

MoV
MOV
MOV
MOV

RTS

RO,~(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)

::PUSH
sPUSH
::PUSH
:;PUSH

ON
ON
ON
ON
::PUSH R4 ON
:sPUSH R5 ON

R4 ,-(SP)

R5,=(SP)

POSITI

GECC1

;CLEAR POSITION

#DISK,R1
#256. ,R2
#16. ,R3
(R1)+,R4
Ré
118
#-1,ECDATA

128

sCLEAR

sPOINTER TO DATA FOR ECC GENERATION
sCOUNTER FOR NUMBER OF DATA WORDS
sCOUNTER FOR NUMBER OF BITS PER WORD
:DATA IN R4
:GET ONE DATA BIT IN CARRY
:BRANCH IF DATA BIT IS ZERO
cECC DATA BIT IS A ONE

:BRANCH TO GENERATE ECC

;ECC DATA BIT IS A ZERO

PC,ECTEST
R3
10%
R2
9s

STACK
STACK
STACK
STACK
STACK
STACK

;CLEAR GECC1

GECC?2

ECDATA

RO
R1
R2
R3

:GO TO GENERATE ECC
;DECREMENT
sBRANCH IF
:DECREMENT
:BRANCH IF

BIT COUNT
16 BITS NOT DONE
WORD COUNT
256 WORDS NOT DONE

GECC1,DISK+<256.%2>; INSERT ECC1 ON DISK

GECC2,DISK+<257.%2>; INSERT ECC2 ON DISK
(SP)+,RS
(SP) + ,R4
(SP)+,R3
(SP)+,R?

(SP)
+ ,R1
égP)*.RO

;;POP
:;POP
::POP
::POP

STACK
STACK
STACK
STACK

INTO
RS
INTO R4
INTO R3
INTO R2

:.POP STACK INTO R1
;:POP STACK INTO RO

CZRJHEO RPO4/5/6 DSKLS PT2 HACRO v04.00 17-NOV~-81

RH BASE ADDRESS CHANGE ROUTINE

16:37:12 PAGE 28

c 1

SEQ 0145

}

.SBTTL

;THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE

*ADDRESS FROM 176700 TO ANY TYPED VALUE

6 035506
7 035512
035516

012706
104401
000415

001100
035520

8 035552

013746

001240

104401

035566

035552

9 035556

10 035560

104402

000425

11 035640
12 035644
13 035646
1% 035652
15 035656
16 035664
17 035670
18 035672
19 035676

004737
104412
012700
012701
012737
021637
001407
005776
163716

044620

104401

035716

035640

035702
035704
035706
035710
035710

061620
005301
001375

035714

000416

26 035752
25 035756
26 035760

013746
104402
104401

035752

035764
036064

27 036064
28 036066
29 036072

036076

036126

000437

104412
012637
104401

000413

30 036126
31 036132

013746
104402

036140

000414

32 036134

036172

33 036172
3% 036176
35 036200

036204

036242

104401

013746
104402
104401

000416

BASECH: MOV
TYPE
BR
éigss:

035564

20
21
22
23

RH BASE ADDRESS CHANGE ROUTINE

MOV

TYPOC

TYPE

38273:

001230
000026
036436
001240
000000
001240

000004

28:
18:
3529”

001226
035766
§6;1s:

001226
036100
--73%:

001240

171
Y

036142
748

036206
;77%:

568

;RESET STACK
,.rvps ASCIZ STRING
<GET OVER THE ASCIZ

RHCS1,=(SP)

:GET READY TO TYPE OLD BASE

,67%

;s TYPE ASCIZ STRING

<CRLF>/PRESENT BASE ADDRESS IS
/

B8R

663

JSR
RDOCT
MOV
MOV
MOV
CMP
BEQ
ST
su8
ADD
DEC
BNE

PC,STKINT

:INITIALIZE THE TTY KEYBOARD

#RHDB, RO
#22. .R1
#ADTIMO,ERRVEC
(SP) ,RHCS1
18
a(SP)
RHCS1, (SP)
(SP), (RO)+
R
2s

:GET STARTING ADDRESS OF REGISTERS
*NUMBER OF REGISTERS
:SET UP TO CHECK NEW ADDRESS
*NEW CSR?
*NO-SKIP NEXT
*ACCESS THE NEW ADDRESS
<GET THE ADDRESS OFFSET
SAND PLUG IT IN
*DONE ALL OF THEM YET?
:NOT YET, SO DO MORE

,69%

:;TYPE ASCIZ STRING

LASCIZ

TYPE

*GET OVER THE ASCIZ

<CRLF>/TYPE NEW BASE ADDRESS FOLLOWED BY

‘CR®

B8R

683

MOV
TYPOC
TYPE

RPVEC,=(SP)

LASCIZ

<CRLF>/TYPE NEW VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED BY

LASCIZ

718

P08

RDOCT
MOV
TYPE

(SP)+,RPVEC
73$

“GET OVER THE ASCIZ

<CRLF>/PRESENT VECTOR ADDRESS

143

;s TYPE ASCIZ STRING

*GET OVER THE ASCIZ

:SETUP VECTOR ADDRESS
..rvpe ASCIZ STRING

*GET OVER THE ASCIZ

<CRLF>/NEW BASE ADDRESS IS /

MOV
TYPOC

RHCS1,~(SP)

748

75$%

IS /

;GET READY TO TYPE OLD VECTOR ADDRESS

.ASCIZ

TYPE

..75%:

001226

LASCIZ

#STACK, SP
,65%
648

;s TYPE ASCIZ STRING

:GET OVER rue ASCIZ

.ASCIZ

<CRLF>/NEW VECTOR ADDRESS IS
/

MOV
TYPOC
TYPE

RPVEC,~(SP)

_ASCIZ

<CRLF>/UNTIL PROGRAH 1S RELOADED./

778

768

;:TYPE ASCIZ STRING

“GET OVER THE ASCIZ

°'CR®

—

CZRJHEQ RPO4/5/6 DSKLS PT?2 HACRO v04.00 17-NOV=-81
RH BASE ADDRESS CHANGE ROUTiNE

36 036242
036246

104401
000402

036250

036254
37 036254
036260

104401
000424

036262

036332
38 036332
036336

104401
000425

036340

036412
39 036412
4? 036416
036420
036424

(012746
104402
104401
000402

000200

42 036432

000137

44 036436
036436
036442

104401
000423

036512
45 036512
46 036514

022626
000137

03643¢

52 036520
53 036522
54 036526
95 036532
56 036534
57 036540
58 036542
59 036544

000000
004737
013712
005714
032712
001401
000773
000772

bher

bos:*

D 12

16:37:12 PAGE 28-1

TYPE
BR

798

?83

.ASCIZ

<CRLF>/ /

TYPE

818
0s

SEQ 0146
;s TYPE ASCIZ STRING

*:GET OVER THE ASCIZ
::TYPE ASCIZ STRING

“GET OVER THE ASCIZ

BR
.ASCI12

<CRLF>/UNLESS HALTED AND MANUALLY RESTARTED,/

TYPE
BR

823

ASCIZ

83s

;3 TYPE ASCIZ STRING

*GET OVER THE ASCIZ

<CRLF>/PROGRAM WILL AUTOMATICALLY RESTART FROM /

MoV
TYPOC
TYPE
BR
.ASCIZ

#200,-(SP)

848

*:GET OVER THE ASCIZ

004620

JMP

BEGIN

:0K, NOW START OVER WITH NEW ADDRESS

036444

" TYPE

,65%

..TYPE ASCIZ STRING

036426

035506

032054
036520
010000

85$

<CRLF>/ /

B8R
.ASCIZ

643

CMP
JMP

(SP)+,(SP)+
BASECH

;:TYPE ASCIZ STRING

:GET OVER THE ASCI1Z

<CRLF><377>/SPEC1FIED ADDRESS DID NOT RESPOND. /
SRESTORE THE STACK
sAND DO IT AGAIN.

s*THIS IS A LITTLE ROUTINE THAT TESTS NED BIT 11 IN PHCS2
;*THIS LOOPS HERE FOR EVER
;*TO BE USED ONLY IF DRIVES PRESENT LOOKING AT NED DOES NOT AGREE
:*WITH WHAT IS REALY THERE
ERUNIT: O
sUNIT UNDER MANUAL TEST
ERSTART:JSR
18:

2s:

MOV

TST
BIT
BEQ
BR

PC,CLDISK

:SET GENERAL REG.

ERUNIT,aR2

sSELECT UNIT

#NED 8R2
23
1%
18

sTEST NED
sBRANCH IF GOOD
sNED NOT SET
sNED SET

aR4

s TEST RHER1

CZRJHED RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81

1
1
1
1
1
1
1

=2 OO 00 NO NS

1
}

NN = O OO0 ~NON\N SN =

DISK SIMULATION

.SBTTL

16:37:12 PAGE 29

E 12

DISK SIMULATION

IN A WRITE HEADER AND DATA COMMAND FILL THE FOLLOWING
WCLY=WITH CYLINDER TO BE ON D]ISK
WSECTR=WITH SECTOR AND TRACK TO BE ON DISK
WKEY1= WITH KEY1 TO BE ON DISK

WKEY2= WITH KEY2 TO BE ON DISK

FNWORD= NO OF DATA WORDS TO BE WRITTEN ON DISK

:
:

THE COMMAND 1HEN IS

JSR PC,COMWHD

JIN A WRITE DATA COMMAND FILL THE FOLLOWING
M
CYL=W]TH 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
:
X= 1
MUST BE ONE
N
NOWORD= WITH NUMBER OF DATA WORDS TO BE WRITTEN

;THE COMMAND THEN IS JSR PC.,COMHD

24
25
26
27
28
29

;IN A READ HEADER AND DATA COMMAND FILL THE FOLLOWING
M
CYL= WITH CYLINDER TO BE FOUND ON DISK
H
SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK
.
KEY1= WITH KEY? TO BE FOUND ON DISK
:
KEY2=WITH KEY2 TO BE FOUND ON DISK
.
DAWORD= WITH NUMBER OF WORDS TO BE FOUND ON DISK

;THE COMMAND THEN IS JSR PC,COMMD

36
7

X=0 MUST BE ZERO

;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

38
39

N
:

.THE COMMAND THEN IS JSR PC,COMMD

40
41

:
:

KEY1= WITH KEY1 TO BE FOUND ON DISK
KEY2=WITH KEY2 TO BE FOUND ON D]SK

DAWORD= WITH NUMBER OF WORDS TO BE FOUND ON D]SK
X=0 MUST BE ZERO

SEQ 0147

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
NONWNS W=

DISK SIMULATION

}

1
1
1

}

AR LA

AR A

S e

AR ANRN AR AN

AR AR

ARl

SEQ 0148

add

iat

il ditliiadliisdllss])

RANAA AN E AR AAARARANARANRNAARNANRA
NI RANARRANONCNRS

=200

s*THIS SUBROUTINE

IS THE FIRST IN A SERIES OF NESTED SUBROUTINES

:tléolsgggs
DIAGNOSTIC MODE, AND EXTRA DIAGNOSTIC INDEX, AND THE
.l
1}

;

s*]T THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL

s*OTHER SUBROUTINES.
s *SEARCH
s *RDHEAD
:*WRDATA

s *REDATA

sREADS THE SECTOR DATA (READ OPERATION)

000000

2 036550
23 036554
24 036562
036564
036566
036570
036572
25 038574

011637
162737
010046
010146
010246
010346
010446
010546

001414
000004

001414

26 036576
27 036604
28 036612
29 036620
30
31 036626
32 036634
%z 036640

012777
052777
042777
052777

000001
000004
000004
000001

012737
005337
001375

000113
036546

35 036642

013746

036712

Mov

37 036652

012637

036662

MOV

36 036646

042716

%g 036656

0064137

40 036662

000000

43 036674

010137

41 036664
42 036670

44 036700

22 036704

010137

036726

47 036710
48 036712
49 036714

000000
000000
000000

51 036720

000000

50 036716

000000

.WORD

COMHD:

MOV
sus
MOV
Mov
MOV
MoV
MoV
MOV

(SP) ,PCJSR
#4 ,PCJSR
RO,~(SP)
R1,=(SP)
R2,=(SP)
R3,-(SP)
R4,=(SP)
R5.-(SP)

142454
142446
142440
142412

MoV
BIS
8IC
8l1s

#DMD , SRHMR
#MINX, @RHMR
#MINX, 3RHMR
#GO,8RHCS

036546

RUNWAT: MOV
1$:
DEC
BNE

042756
000240
036722

004137

RUNCTR:

177740

012701
010137

THE SUBROUTINES CALLED HERE ARE:

s ISSUES SECTOR CLOCKS TO SET SECTOR FOUND FLOP
;READS THE SECTOR HEADER
;WRITES THE SECTOR DATA (WRITE OPERATION)

036546

;*WRITE DATA COMMAND
s*OR READ COMMAND, I.E DATA ONLY, OR HEADER AND DATA

NO NS W

1
1

=200V

16:37:12 PAGE 30

TRK :

036724

SECOTR, ~(SP)

sGET DESIRED SECTOR/TRACK

(SP)
+, TRK

:SAVE SECTOR

#177740, (SP)

JSR

R1,SEARCH

:ISSUE SECTOR CLOCKS C====~==m=eeeene >

#+NOP ,R1
GOING TO MOVE NOPS
R1,SSYN ;NOP INTO SSYN

MOV

R1.HEDSYN

JSR

R1.HEDGAP

:NOP INTO HEDGAP

R1,RDHEAD

READ THE HEADER (====s=c=cccee >
sCYLINDER ADDRESS
:SECTOR/TRACK ADDRESS
:KEY1 WORD

CYL:
SECOTR:
KEY1:

WORD
.WORD
.WORD

0
0
0

.WORD

KEY2:

:MAKE ONLY SECTOR

MoV
Mov

MOV

037032

sSET DIAGNOSIIC MODE
sSET DIAGNOSTIC INDEX
sCLEAR DIAGNOSTIC INDEX
;ISSUE GO’ BIT & STALL 'TILL 'RUN’
sFUNCTION CODE WAS ISSUED BY THE TEST
#75. RUNCTR
:LOAD STALL COUNT
= APPROX. 450US FOR 11/50 CPU
RUNCTR
;COUNT DOWN ONE
18
sCONTINUE UNTIL = 0

8IC

.WORD

;SAVE PC OF JSR + &
:SAVE PC OF JSR
::PUSH RO ON STACK
:cPUSH R1 ON STACK
:PUSH R2 ON STA(K
::PUSH R3 ON STACK
::PUSH R4 ON STACK
:sPUSH R5 ON STACK

.WORD

:NOP INTO HEDSYN

KEYZ WORD

X=1 WRITE COMMAND

X=0 READ COMMAND

—

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81

DISK SIMULATION

56 036722
57
c8

6 12

16:37:12 PAGE 30-1

:DUMMY ERROR CALL LOCATIONS FOR THE READ HEADER OPERATION
000240

SSYN:

NOP

;IF "ERROR 2'* INSERTED BY RDHEAD
:SUBROUTINE, THEN THE FIRST SYNC
<1S NOT DETECTED.
NO BAD DATA

59
60
61

:1S GIVEN BECAUSE SYNC=144000
*CANNOT BE READ.
WORD NUMBER
SIS "' BECAUSE THIS IS THE FIRST

64 036724
65
66

SEQ 0149

*WORD TESTED.
000240

HEDGAP: NOP

;IF “ERROR 3'* INSERTED BY

*RDHEAD SUBROUTINE, THEN THE
*HEADER GAP 0'S WERE NOT

:WRITTEN RIGHT.

;IF '\JORD NO'* CONTAINS, SAY

SGAP THAT IS WRONG.

70
71

23(8), THEN IT IS THE THIRD
SWORD OF A 5 WORD HEADER

:"BAD DATA'' CONTAINS WHAT IS

77 036726
78
79
80
81

:GOING ON THE DISK.
000240

HEDSYN: NOP

;IF "ERROR 3'' INSERTED BY RDHEAD
SSUBROUTINE, THEN THE HEADER SYNC
:GENERATED BY DCL IS WRONG,
:OR THE LAST BYTE

:OF THE HEADER GAP 0°'S IS WRONG.

84
85

;IN EITHER CASE WORD NO=6,
*RIGHT BYTE IS HEADER O,

:*BAD DATA'® HAS WHAT IS GOING

SLEFT BYTE IS SYNC.

*ON DISK.

91 036730
gg 036734

005737
001017

001406

ST
BNE

ERFLGS
ouT

9% 036736
95 036742

005737
001410

036720

ST
BEQ

X
DAREAD

96 036744
97

005737

037024

NOSYNC

;1S IT A DATA WRITE OPERATION ?
*NO...THEN DO A DATA READ

;IS THIS FORCED HEADER ERROR COMMAND ?
:IF YES NOSYNC=-1 THEN WRITE OR READ
*IS SHUT OFF,

}8? 036750

001011

102 036752
103 036756

004137
000000

}82 036762

000404

107 036764
108 036770
109 036772

004137
000000
000000

104 036760

;WERE ANY ERRORS DETECTED ?
JIF YES, EXIT ee=ecesccsccccccaaaaa >

040276

000000

043232

SIF

SO BRANCH OUT

"NOSYNC=0 THEN CONTINUE

BNE

our

JSR
.WORD

R1,WRDATA
0

sWRITE DATA C=====cececmcccccaanaax >
:NO OF WORDS TO BE WRITTEN

WORD

;

DAREAD: JSR
DAWORD: .WORD
WORD

(
O

NOWORD:
Y:

B8R

ouT
1. REDATA

SEXIT IF SET =eecce<cecccecacecaaa- >

SEXIT eemcccemcccecmccccaccmcaaaas >
;READ DATA C====cecemcccccmccccaaa- >
:NO OF WORDS TO BE READ

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81

DISK SIMULATION

110
111 036774

036774
036776
037000
037002
037004
037006
112 037010

012605
012604
012603
012602
012601
012600
000207

ouT:

H 12
16:37:12 PAGE 30-2

MOV
MOV
MOV
MOV
MoV
MoV
RTS

(SP) +,RS
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP) +,RO
PC

SEQ 0150

::POP
s:POP
:;POP
:;POP
:;POP
:;POP
SEXIT

STACK
STACK
STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO
INTO
INTO

RS
R4
R3
R2
R1
RO

N —

‘6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 31

SCANRARAAARAARAARNRAANNAA
AN RN ANARNAAAANRAN AN
AR
RRY

O N IS

;*THE DISK SECTOR IS DEVIDED AS FOLLOWS
:*19 WORDS OF 0, ONE WORD 144000

;*THESE MAKE 39 BYTES FOR SECTOR GAP AND ONE SYNC. BYTE

037012
037014
037016
037020
037022

RSYNC:
RCYL:
RSETR:
RKEY1:
RKEY2:

14400
O
0
0
O

PON) =

= OO 00 ~NON NS

b md ood

b d

NN = OO0 00

112

;*5 WORDS OF 0'S, ONE WORD 144000
;*THESE MAKE 11 BYTES FOR HEADER GAP AND ONE SYNC. BYTE
s*THESE ARE DCL GENERATED

;*THERE ARE 256 WORDS OF DATA
s*THERE ARE 2 WORDS FOR ECC GENERATED BY DCL

;*15 WORDS OF 0'S FOR DATA GAP AND TOLERANCE GAP
e RNANR AR AN

NRANR A AAN T AN

AR RANNRNRAAARAARARN
AN RN AAIRANAIANARERY

SEQ 0151

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

J 12

SE@ 0152

DISK SIMULATION
1

M :ttttttttttttttt.tttt'ttttttttttttttttttttttttttttttttttttttttti

S*READ DISK HEADER

;: 132232332322 433823223 2322323222232 222 23223223232

S SRR

S 037024
6
7 037026
g 037030

000000

10 037032

012137

012137
012137
012137
012137
010146

037014

037016
037020
037022
037622

RDHEAD: MOV
MOV
MOV
MOV
MOV
MOV

(R1)+.RSETR
(R1)+,RKEY1
(R1)+.RKEY2
(R1)+.COMPA
R1,=(SP)

17 037060

013700

001260

MOV

RHMR RO ;RO CONTAINS MAINTANENCE REG.

19 037070

012710

000001

MOV

#DMD, 3RO

BR
MOV

2
:DON'T GIVE SECTOR CLOCK FIRST TIME
MMSTCK
'MCLK 'DMD,3R0;SET SECTOR, CLOCK, DIAG. MODE. RESET INDEX

MOV
BIS
BIC

#7.R2
AMCLK , 3RO
MMCLK .aRO

MOV
CLR
JSR
DEC

#18. .R2
:LOAD NO OF WORDS OF ZEROS
WORD
:D0 0°S
PC,READ ;READ 0°'S C======emccmmccmcaas >
R2
:COUNT DOWN WORDS

MOV
JSR

RSYNC , WORD
:SYNC. WORD
PC,READ :READ IT Cm===mecmcccmaceceene- >

BNE
MOV
MOV

58
SCONTINUE IF SYNC DETECTED
#1.ERWORD
:ERROR WORD NO
RSYNC ,$GDDAT; SYNC WORD

11
12
13
14
}2

037036
037042
037046
037052
037056

18 037064

NOSYNC: 0

000000

TY:

000000

012705

000002

MOV

052710
052710
042710

000010
000002
000012

24 037110
25 037112

000404
012710

000013

1$:

28 037122
29 037126
30 037132

012702
052710
042710

000007
000002
000002

28:
38:

36 037146
37 037152
38 037156
39 037162

012702
005037
004737
005302

000022
037620
037624

42 037166
43 037174

013737
004737

037012
037624

45 037204
46 037206
47 037214

001012
012737
013737

31 037136
32 037140
33 037142
gg 037144

2? 037164

4% 037200

48 037222

gg 037230
51 037232
52 037240
53 037244
54 037252
55 037256
56 037264
57 037270

042710

005302
001372
005305
001362

BIS
8IS
BIC

000012

012737

000571

013737
004737
013737
004737
013737
004737
013737

BIC

DEC
BNE
DEC
BNE
48:

001372

032710

*ERROR TYPE NO.

ERWORD: 0

20 037074
21 037100
gg 037104

gg 037116

;FORCED HEADER ERROR = =1
SNORMAL = 0

BNE
037620

001000
000001
037012

104002

037014
037624
037016
037624
037020
037624
037022

BIT
037030
001124

036722

037620
037620

(R1)+,RCYL

¥2 RS

;STORE CYLINDER ADDRESS
“STORE
*STORE
*STORE
:STORE
+:PUSH

SECTOR AND TRACK ADDRESS
KEY1
KEY2
COMPARE OR NOT
R1 ON STACK

:RS IS A COUNTER FOR WORDS
SSET DIAG. MODE

MMSTCK ,aRO
:SET SECTOR CLOCK FOR FIRST WORD
MMCLK, 3RO
*SET MAINT.CLOCK FOR FIRST WORD
MMSTCK!MCLK,@aR0 :RESET THEM

MMSTCK IMCLK,aRO ;RESET SECTOR & MAINT.CLOCK

R2
3$
RS
1%

/X3

:LOAD BYTE COUNTER
*SET MAINT. CLOCK
*RESET IT

*BYTE COUNTER
*CONTINUE IF BYTE NOT COMPLETE
*WORD CCUNTER
:CONTINUE IF WORD NOT COMPLETE

* CONTINUE

#DTSY,ard

:SYNC. BYTE DETECTED?

MOV

#106002,SSYN"

; INSERT "ERROR 2'° IN SSYN

MOV
JSR
MOV
JSR
MOV
JSR
MOV

RCYL , WORD
;SETUP CYLINDER
PC,READ ;READ [T Ce=-eecemcccmccancceaa- >
RSETR, WORD
:SETUP SECTOR/TRACK
PC,READ ;READ THEM (====c=ceccccccccacaas >
RKEY 1, WORD
SSETUP KEY1
PC,READ ;READ ]7 (e==—eccccccncccccccaaa >
RKEY2, WORD
;SETUP KEY2

B8R
5$:

*ERROR WORD NO.

13$

‘BRANCH QUT =======mcoceccamanan >

DISK SIMULATION

58 037276
59 037302
2? 037310

004737
013737
004737

027624
040610
037624

62 037314
63 037320
64 037322
65 037326

005737
001135
005737
001472

001426

037620

037622

K 12

16:37:12 PAGE 32-1

SEQ 0153

JSR
MOV
JSR

PC.READ ;READ [T (e====cecccccccccccccaa- >
WCRC, WORD
;SETUP CRC
PC,READ ;READ [T C(ee-cecececccccaccccanx >

ST
BNE
TST
BEQ

TESDTE
13%
COMPA
118

;IS THIS A DRIVE TIMING ERROR ?
JBRANCH OUT IF YES =eeeccccacas
21S THIS A READ OR WRITE COMHAND ?
:DO READ IF = 0

;*CONTINUE WITH DIAGNOSTIC WRITE COMMAND
69 037330
70
71
72
73
74

012705

040612
000005
000006
040056

037334
037340
037346
037352
037356

012702
012737
004737
005737
001413

7
77 037370
78 037376

013737
012737

81
82
83
84
85
86
g;

037406
037412
037414
037416
037422
037430
037432

013725
005302
001351
004737
023737
001426
005737

g; 037436

001406

93 037440
94 037444
95 037446

005737
001420
005037

040054

97
98
99
00

013737
013737
012737
012737

037012
040054
000006

013725
000440

040054

gg 037404

89
90

96 037452

037454
037462
037470
037476

037504

—) ek ek b = OO O

J\WN—!OOQ\Ig

2
03 037506
8§ 037512

000503

000403

000443

037030

68$:

0460054

037030
001124
040054

106003

001126

036724

BEQ
SU8
CLR
MOV

78
*CONTINUE IF GOOD, THAT IS = 0
R2,ERWORD
“WORD NO IN ERROR
$GODAT
:GOOD WORD SHOULD BE 0
WWORD ,$80DAT
:BAD DAT

78:

040054

001124
001124
001126
037030

14%:
158:

036726

STEST WRITTEN WORD

#104003, HEDGAP; * ERROR 2" GOES IN HEDGAP

13$

;BRANCH OUT ======ceceeccmcaaenn >

MOV
DEC
BNE
JSR
523

WWORD, (R5) +
R2
6$
PC.WRITE
§3;~c,uuoao

;SAVE HEADER GAP

TST

NOSYNC

BEQ

148

ST
BEQ
CLR

WWORD
108

MOV
MOV

WWORD. SBDDAT:BAD DATA
#6,ERWORD

B8R

13s

B8R
MOV

MOV

108:

WWORD

:POINTER FOR HEADER GAP
JNO OF WORDS OF ZEROS
*ERROR WORD NO SET
*FOR HEADER GAP

MOV

B8R

037024

1064003

#HEGAP RS
#5,R2
#6. ERWORD
PC.WRITE

040054
040056
037012

MOV
MoV
MOV
JSR

MOV

B8R

JWRITE HEADER (DATA) GAP SYNC

;IS THIS FORCED HEADER ERROR COMMAND °

$GDDAT

sIF YES NOSYNC==1 THEN WRITE OR READ
;1S SHUT OFF SO BRANCH OUT
s1F NO NOSYNC=0 THEN CONTINUE
*PRINT IT IF

TRUE ERROR

IS IT =02
:CONTINUE IF GOOD

;IT SHOULD BE ZERO
158
;BRANCH TO TYPE ERROR
RSYNC,$GDDAT
; GOOD DATA

x164003 HEDSYN
WWORD, (RS) +

138

;BRANCH OUT =====ceeeccmcccacaaa- >
:SAVE DATA SYNC.

P13§ AR, >

;*READ COMMAND START FROM HERE
37514
37520

012702
005037

37542

004737

000005
037620
037624

037012
037624

113:
128:

037620

MOV
CLR
JSR
DEC
BNE
MoV
JSR

#5.R2
WORD
PC,READ ;READ HEADER GAP (=======-ee=ane=
R
:ARE S HEADER GAP ZEROS COHPLETE ?
128
*1F NOT CONTINUE
RSYNC,WORD
:SYNC WORD
PC.READ ;READ HEADER (DATA) SYNC)

Y r~

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOvV-81

wno
F o (AN

—

HEQ RPO 4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
SIMULATION

115 037546
116 037552
117 037554
118 037560
}58 037562

005737
001404
032710
001415
000403

037024

121
122
123
126

032710
001011
012737
013737

001000

037564
037570
037572
037600

125 037606
126 037614

037614
127 037616

012737
012601
000201

001000

000006
037012

104002

16$:
037030
001124

036726

17%:
138:

L 12

16:37:12 PAGE 32-2

SEQ 0154

TST
BEQ
BIT
8EQ
BR

NOSYNC
;FORCED
16$
#DTSY,aR0
138
17%

BIT
BNE
MoV
MOV

#DTSY,aR0
sSYNC. DETECTED ?
138
JEXIT IF YES ==ececccccccacaca- >
#6 ,ERWORD
:ERROR WORD NO.
RSYNC,$GDDAT; SYNC WORD

MOV
RTS

(SP)+,R1
R1

MOV

SYNC ERROR ?
s1F NOT ERROR COMMAND CONTINUE
sSYNC. DETECTED
:1F ZERO BRANCH QUT ===<ccececac >
:1F NOT ZERO BRANCH TO ERROR

#104002,HEDSYN;
MOVE *ERROR 2*

:.POP STACK INTO R1
JEXIT =ecsccccccccccennccrcnnas >

CZRJHEO RP04/S5/6 DSKLS PT2 MACRO V04.00 17-NOV-81

JARARRARARAAAAARANARCRCCNE
R RN RANNEAAN RN AAAAAAANAANRANNAANANAS

037620
037622

WORD:
COMPA:

000000
000000

037624
037624

READ:

000002
000001
037620

o
W
~
o
W

1$:

o
(¥ ]
~

wvn

L=
o

034554

034554
000001
037620

5%:
6$:

2$:

034562

3s:

034562
47 040030
48 040034

005237
004737

50 040040

005302

55 040052

000207

“CHECKING IF

:SET DIAG. MODE

1$
#MRD , 3RO

THERE

IS A ONE

:IF NO ONE BRANCH
SSET BIT 4 IF DATA HAS ONE

#7.RS

:BYTE COUNTER

#METCK !MCLK,ARO :SET CLOCK.DATA IF ANY, SECTOR
6
#MRD , 3RO
58
#-1,ECDATA

;BRANCH IF NO
;1S DATA BIT A ONE ?
*BRANCH IF DATA BIT IS 0

#DMD, - (SP)
WORD

:KEEP ONLY DIAG. MODE
*CHECKING IF THERE IS A ONE

AMRD 'DMD, (SP)

:KEEP DATA AND DIAG.

63
ECDATA

(sP)+,aRr0

TSECCG

7%:
8%:

48
:

9%:

:IF NO ONE BRANCH

MODE

:PUT IN DATA,RESET CLOCK. SECTOR
;BRANCH IF NO

DATENV
:NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE
PC,ECTEST
;GO TO GENERATE AND TEST ECC
MMCLK, 3RO
*SET CLOCK
TSECCG
;1S THIS BIT TO GENERATE ECC

8s
ECDATA

:BRANCH IF NO

2IS DATA BIT A ONE
*BRANCH IF DATA BIT IS
= 0
:ECC DATA BIT IS A ONE

*BRANCH
ECC DATA BIT IS
= 0

#DMD , = (SP)

;KEEP DIAG. MODE

(sP)+,aRr0

+SET DATA, DIAG. MODE, CLEAR CLOCK

WORD
43
#MRD !DMD, (SP)
TSECCG

9s
DATENV

034574
034612

SECC DATA BIT IS A ONE

;1S ECC TO BE GENERATED FOR THIS BIT

#MRD , 3RO
78
#-1,ECDATA

034554

*BRANCH
;ECC DATA BIT IS A O

000020

000021

WORD

034574
034612
000002
034562

034554
000001
037620

:;PUSH R2 ON STACK
*WORD COUNTER

000021

177777

R2,=(SP)
#2.RS

YEECCG;IS THIS'BIT TO GENERATE AND TEST ECC

000020
177777

0
0

#DMD, 3RO

000020
000007
0€0012
034562

[V ]
~
~
(=1
&~

NOWVISWNI—=O0

SEQ 0155

*READ ONE WORD N 'WORD*’

NOMWN

W 2OV

n 12

dARRRRARANRARAACAANCEROCAENRARRRNRANAARANCAROANNONARAANINAANINRNOY

NS
WA —

DISK SIMULATION

16:37:12 PAGE 33

“CHECKING IF THERE IS A ONE
sBRANCH IF NO ONE
;KEEP DIAG. MODE AND DATA

;1S THIS'BIT TO GENERATE ECC

:BRANCH IF NO
NUMBER OF CLOCKS FOR DATA ENVELOPE

PC,ECTEST

;GO TO GENERATE AND TEST ECC

R2
33
RS

sBYTE COUNTER
;CONTINUE IF ONE BYTE NOT COMPLETE
sWORD COUNTER

3
L R

1%
(SP)+,R2

;CONTINUE IF ONE WORD NOT COMPLETE
:;POP STACK INTO R2

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV=-81
DISK SIMULATION
1

SEQ 0156

'URITE ONE WORD WHICH COMES BACK

IN ‘WWORD''

cRNEARARAANAAAARNAAC
NN AAANNRRARAINANRANARNR NN RAAANANNANRRARINRNORNS

2 040054
7 040056

0640056
040060
0640062
0640064
8 040066
9 040072

040076
040102
060106
040112
060114
040122
040124
040126

18 040130
19 040134
20 040136

000000

WWORD:

010046
010246
010346
010546
012705
012710

012702
012710
032710
001406
012737
000261
006003
000404

WRITE:

000002

000001

000007
000013
000040
177777

005037
000241
006003

034554

034574

052710
032710
001406
012737
000261
006003

000002
000040

005037

034554

37 0640220

012710

000001

41 0640236

004737

034574
034612

43
44
45
46
47
48

005302
001346
005305
001312
010337
012605

005237
004737

0640242
040244
040246
040250
040252
040256

000404
00241

0640260

012603

49 040266

000207

1$:

034562

RO,=(SP)
R2.=(SP)

::PUSH RO ON
:sPUSH R2 ON
;;PUSH R3 ON
:;PUSH RS ON

STACK
STACK
STACK
STA(K

MOV
Muv
MOV

R3.-(SP)
R5,=(SP)
#2 RS

MOV
MOV
8IT

#7 ,R2
:BYTE COUNTER
#MSTCK!MCLK !DMD,3R0; SET SECTOR & MANT. CLOCKS
#MWR, 3RO
;CHECK WRITEBIT IN MAINT. REG.

MOV

sWORD COUNTER

#1.3R0

sSET DIAG. MODE

2%
#-1,ECDATA
gg

:BRANCH IF ZERD
JECC DATA BIT IS A ONE

sSET _CARRY
;MOVE 1 FORWARD

28:

CLR

ECDATA

3s:

ROR
MOV
TST

R3
sMOVE 0 FOR WWORD
#DMD ,aR0
sCLEAR SECTOR AND CLOCK
TSECCG
;IS THIS'BIT TO GENERATE ECC
?

INC

DATENV

CLC

BEQ

(S
034554

5%:
68:

78:

040054

MOV
MOV

SEC
ggR

034612

177777

BEQ
MOV

034554

000001
034562

26 040152
25 040156
26
27 060162
28 040166
29 04012
30 0640174
31 040202
32 040204
040206
34 040210
35 040214
W
W

N 12

NN ARARTAAANANRARA A AR CAANRAAANAANRAAANANREARAAAANN
AN
NNRNR

2
2

10
11
12
13
16
15
16
17

16:37:12 PAGE 34

ECC DATA BIT IS = 0
;CLEAR CARRY

:BRANCH IF NO

:NUMBER OF CLOCKS FOR DATA ENVELOPE

JSR

PC,ECTEST

;GO TO GENERATE AND TEST EC( <===~==--

BIS
8IT
BEQ
MOV
SEC

#MCLK 3RO
#MWR ,aR0
5%

sSET CLOCK
sCHECK WRITE BIT IN MAINT. REG.
sBRANCH IF ZERO

#-7 ,ECDATA

sECC DATA BIT IS A ONE
¢SET CARRY

ggR

(LR

ECDATA

MOV

R3
#DMD , QRO

:CLEAR CARRY
;MOVE 0 FOR WWORD
sCLEAR CLOCK

R2
3
RS
18

sCOUNT FOR BYTE END
s1F NOT BYTE END CONTINUE
sCOUNT FOR WORD END
;1F NOT WORD END CONTINUE

CLC
ROR

TST
8EQ
INC
JSR

DEC
BNE
DEC
BNE
MOV
MOV
MOV

MOV
MOV
RTS

sMOVL 1 FOR WWORD
ECC DATA BIT IS ZERO

TSECCG
;IS THIS BIT TO GENERATE ECC ?
78
:BRANCH If NO
DATENV
_NUMBER OF CLOCKS FOR DATA ENVELOPE
PC,ECTEST
;GO TO GENERATE AND TEST EC( <~w======-

R3,WWORD

(SP)+ RS
(SP)+,R3
(SP)+ R2
(SP)+,RO
PC

;STORE THE WORD
;:POP
::POP
:sPOP
;.POP
3

STACK INTO RS
STACK INTO R3
STACK INTO R2
STACK INTO RO
R
T
—

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
SRR AR

AR RAANAANE

SEQ 0157

AR OR AN RAAANAAANARAANAANRNNARNAAAANARANNANAR

aNARARARREANANANANARR
AN ARV
RN RRANAAAANAAARN AN AN NAANRRENRANANRONS

040270
060272
040274

000000
000400
000000

COUNTD: 0

FORMAT:

ZWORDS:

WRDATA:

037622

Q
o

OO=00
O\
b b
W

L=
&~
o
W

N
n

040270

o
&H
o

-—b

813

'URITE DATA HOUSEKEEPING ROUTINE

=i{=l{=lelalelelelele]
OO
b ad b wd e wd b
=2 \rON

)
B
C o

N =2 OO0 00 ~NO NS

NN —

DISK SIMULATION

16:37:12 PAGE 35

25 040370
26 040372
27 040400
28 040404
29 040410
3
gz 040422

35 040424
36 0404

001403
012737
004737
013723

000016
041634
177777

18:

001260
040272
040270
040274

177777

034562

7%:
2$:

040056
040054

3s:

034562
000002
040056
040054

48:

040054

012603

6$:

R4 ,-(SP)
4. R
#TOLGAP
R3

g;1.(R3)*

;STORE NO.

OF WORDS TO BE WRITTEN

:SAME IN R2
;COMPARE OR NOT

::PUSH RO ON STACK
::PUSH R1 ON STACK
:$:PUSH R2 NN STACK
:sPUSH R3 ON STACK
::PUSH R4 ON STACK
JNO. OF TOLERANCE GAP WORDS

;START OF TOLERANCE GAP TABLE

:MAKE IT 177777
;IS 14 COMPLETED ?

MOV
MOV

RHMR,RO ;RO CONTAINS MAINTANENCE REG.

:IF NOT,

TSECC

JSR
MCV

WWORD, (R3) +

DEC
BNE
CLR

MOV

CONTINUE

FORMAT -(SP

COUNTD, (SP)
(SP)
, ZWORDS
(SP)+ R4

BEQ
MOV
Mov
JSR
MOV
DEC
BNE
TST
8EQ

#-1,TSECCG

#DISK,R3
PC,WRITE

WWORD, (R3) +
R2

OF ZERO WORDS TO BE WRITTEN

;1S THIS AN ECC TEST
;BRANCH IF NO
cTHESE BITS ARE TO GENERATE ECC

sSIMULATED DISK AREA
sWRITE ON SIMULATED DISK
;STORE ON SIMULATED DISK

sANY ZEROS TO BE WRITTEN ?

PC,WRITE

sWRITE ZEROS ON SIMULATED DISK
:STORE THEM

sBRANCH IF NONE TO BE WRITTEN

TSECCG

#2,R1

:NO MORE ECC TO BE GENERATED

JSR

PC,WRITE

;WRITE ECC1 AND ECC2 ON SIMULATED DISK
sSTORE IN WEEC1 AND WEEC?

BNE
JSR

PC,WRITE

WWORD, (R3) +

;WRITE DATA GAP
;STORE IT

g?ORD.(R3)*

¢WRITE TOLERANCE GAP ZEROS
sSTORE THEM

MoV
DEC

040056

(R1),COUNTD
(R1)¢+,R2
(R1)+,COMPA
RO,=-(SP)
R1,-(SP)
R2.~(SP)
R3,-(SP)

BNE

MoV
TST

001406

004737

MOV
MOV
MOov
MOV
MOV
MOV
MoV
MOV
MoV
MoV
MOV
DEC

SuB
MOV

001424

040626
040056
040054

256

MOV
MOV

JSR
MOV
DEC
BNE

MOV
MoV

WWORD, (R3)+
R1
5%

#14. Rl
PC,WRITE

(SP)+ R4

(SP)+.R3

2:POP STACY INTO R4

;sPOP STA(A INTO R3

CZR

JHEQ RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOv-81 16:37:12 PAGE 35-?

SEQ 0158

DISK SIMULATION

040520
040522
040524
53 040526

012602
012601
012600
000201

MOV
MOV
MOV
RTS

(SP)+,R2
(SP)+.R1
(SP)+.RO
R

:;POP
::POP
.:POP
1137
1

STACK INTO R2
STACK INTO R1
STACK INTO RO
A>

IANRARRAAR AR AN

A AR AT

D 13

SEQ@ 0159

AR AR AR A AANA RN AARANAA

NN RAINANRA

ANRA AR

.BLKW

b ey
) =D P
b

[v.]

[]

.BLKW
.BLKW
.BLKW

;SECTOR GAP 38 BYTES OF 0
JSECTOR GAP 1 BYTE OF Q0 ONE SYNC BYTE
:ggeDER = CYL, SECTOR/TRACK, KEY1, KEYZ2

[« )

REFRFEN

460626

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

)

J\J~&nh<>c“=<>

40612

SECGAP:

WSSYNC:
HEADER:
WCRC:
HEGAP:
HDWSYN:
SILOTB:
DISK

—d ed aed
&~

RRRR
g3
838

tttttttt'ttttttttt***ttlttttt*ti**fittttttttittt*tt'tt'ttttttttt

[]

—O

16:37:12 PAGE 3¢

*THIS IS THE SIMULATED DISK, ONLY ONE SECTOR OF SPACE IS ALLOCATED

(olelole

wm
D cd e

NN = OVONOVES
W~

)
e
—

RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81

MULATION

w2
X

;HEADER GAP 10 BYTES OF 0
;HEADER GAP 1 BYTE OF 0 ONE SYNC. BYTE
s (ALSO USED IN SILO TEST AS SILO TABLE)
:DATA SPACE
;ECCY
JECC2
;DATA GAP 2 BYTES OF 0
;TOLERANCE GAP 28 BYTES OF 0

—

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

E 13

SEQ 0160

DISK SIMULATION

SANARARARRNCR AR A NN AN

RN RN RN RANAAAANRAANAARAANRACRARANNRAN
Y

'HRITE HEADER AND DATA
N

AAARARNRAARAAARN

TR NN RARAARANARANNAAANAARANRNA
AR OAROANNR

NN =« OO 00 NON

s*THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES

PONIPININ)
b b = d nd e e od d =

;*1T ISSUES DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE
;*'G0* BIT

s*IT THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL OTHER

s *SUBROUTINES.

THE THREE SUBROUTINES CALLED HERE ARE:

s ISSUES SECTOR CLOCKS TO SET SECTOR FOUND FLOP
sWRITES THE SECTOR HEADER
sWRITES THE ACTUAL SECTOR DATA

J*SEARCH
: *WYRHEAD

=2 OO 00 NOM

;*WRDATA

:*ALL OF THE ABOVE MENTIONED 'WRITING'' IS ACTUALLY DONE INTO A CORE
:2BUFFER AREA CALLED 'DISK' VIA THE MAINTENANCE REGISTER (RHMR)

%S 041670
6

000000

001414
000004

27 041672
28 041676

0 41764
041770
43 061774
2§ 042000

41
42

46
47 042004
48 042006
49 042012

50 042016
51 042022
52 042026

.WORD

001414

:'RUN' LINE STALL COUNTER

(SP) ,PCJSR
#4 ,PCJSR

JSAVE PC OF JSR + &
;SAVE PC OF JSR
:;PUSH RO ON STACK

RO,=(SP)
R1,-(SP)
R2,=(SP)

J3PUSH R1

000001
000004
000004
000001

#DMD
, aRHMR
#MINX ,3RHMR

#MINX ,8RHMR
#G0,aRHCS

012737

000113

RNWAT1: MOV

#75. ,RNCTR1

005337
001375

041670

18:

RNCTR1
18

013746
042716
012637
004137

042050
177740
042004

042756

000240

042066

DEC

#177740, (sP)

WTRK:

JSR

(SP) +,WTRK
R1, SEARCH

cSET DIAGNOSTIC MODE
sSET DIAGNOSTIC INDEX
cCLEAR DIAGNOSTIC INDEX
;SET 'GO* BIT & STALL °'TILL °‘RUN'

s(FUNCTION CODE WAS SET UP BY THE TEST)
:LOAD STALL COUNTER
= APPROX 450US
:FOR 11/50 CPU

;COUNT DOWN 1 TIME
sCONTINUE UNTIL = 0

WSECTR,-(SP)

2$:

ON STACK

;:PUSH R2 ON STACK
;:PUSH R3 ON STACK
:sPUSH R4 ON STACK
J:PUSH RS ON STACK

R3,=(SP)
R4,=(SP)
R5.=(SP)

j=lelelele
o)

R RPRR

30
1720
31
1726
32
41734
33
1742
34
35
1750
36
3
38 041756
3 9 041762

RNCTR1:

#+NOP R1
R1,SEGPER
R1.FSYNER
R1,ERHEAD
R1,ERCRC

sGET DESIRED SECTOR/TRACK
sMAKE ONLY SECTOR
¢SAVE SECTOR
s ISSUE SECTOR CLOCKS TO GET TO
sDESIRED SECTOR <
sSECTOR NO.
;GOING TO MOVE NOPS
sNOP INTO SEGAP

¢NOP INTO FSYNER
:NOP INTO ERHEAD
¢NOPINTO ERCRC

F13
CZRJHEQ RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 37-1

SEQ 0161

DISK SIMULATION

53 042032
gg 042036

010137
010137

042070
042072

MOV
MoV

R1,ERHDGP
R1,HDESYN

:NOP [NTO ERHDGAP
cNOP INTO HDESYN

gg 062042

004137

062142

JSR

R1,WRHEAD

;MRITE THE HEADER <=~========c===a--

58 042046
59 042050
60 042052
61 042054
g% 042056

000000
000000
000000
000000
000000

s CYLINDER
:SECTOR AND TRACK
;KEY]

TKEY2

1600D CRC

;DUMMY ERROR CALL LOCATIONS FOR THE WRITE HEADER OPERATION
67 0462060

000240

SEGPER: NGP

;IF ERROR 6'' INSERTED BY
sWRHEAD SUBROUTINE,

THEN

:SECTOR 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
000240

FSYNER:

NOP

:IF 'ERROR 6'' INSERTED BY

sWRHEAD SUBROUTINE,

THEN

sTHE LAST 0 BYTE Of SECTOR
:GAP OF FIRST SYNC. BYTE

sAFTER SECTOR GAP IS IN
sERROR.

;WORD NO. CONTAINS 20
sRIGHT BYTE IS SECTOR GAP
cLEFT BYTE IS SYNC. BYTE.
;BAD WORD ]S WHAT IS GOING ON
:DISK
92 042064

000240

ERHEAD: NOP

:IF *FRROR 6'' INSERTED BY

sWRHEAD SUBROUTINE, THEN
+HEADER GOING ON DISK
s 1S WRONG.

sWORD
;WORD
JWORD
JWORD

P 3V
S&IN (Y.

bk
b
b
b
b

elelelolelals]

102

NO 1
NO 2
NO 3
NO &

=
=
=
=

CYLINDER NO
SECTOR/TRACK
KEY1
KEYZ2

:BAD WORD IS WHAT IS GOING ON
;DISK
042066

000240

ERCRC:

NOP

;1F "ERROR 6'' INSERTED BY
sWRHEAD SUBROUTINE,

THEN CRC WRITTEN

;ON DISK IS IN ERROR.

G 13
CZRJHEQ RPO4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 37-2

SEQ 0162

NAWNEBWN =000 NV WN=OVIONOWVNSWN—O
OVONO VB UWN =20V

—d o cd

NS DS

b ced

b end b

d d e

D cad D

) d wed

8888 D NN W NN N N NN

D D d

D e

D id nd D D wd d D D

D rnd e

NI NI NI NI NV NN NI A —b b b b b ed b b b =D

DISK SIMULATION

2GOOD DATA IS WHAT SHOULD BE ON DISK
;BAD DATA IS WHAT IS GOING ON DISK.

;WORD NO IS 5
042070

000240

ERHDGP: NOP

:1F "ERROR 6'*

)

INSERTED BY

:WRHEAD SUBROUTINE, THEN WEADER
:GAP GOING ON DISK”IS WRONG.

;WORD NO GIVES Wh.CH OF
s THE HEADER GAP WORDS
;ARE WRONG. FOR EXAMPLE:
;WORD NC 1 = FIRST HEADER
GAP WORD
;

;BAD WORD IS WHAT IS GOING ON DISK

042072

000240

HDESYN: NOP

;IF "ERROR 6°'°' INSERTED BY

¢WRHEAD SUBROUTINE, THEN LAST
cHEADER GAP BYTE OR HEADER

:SYNC BYTE GOING ON DISK IS WRONG.

;WORD NO = 5
;BAD DATA IS WHAT IS GOING
ON DISK, RIGHT BYTE IS HEADER

;GAP 0'S BYTE, LEFT BYTE IS HEADER
;GAP SYNC.
042074
042100
042102

005737
001004
004137

042106
042110

000000
000000

042112

042112
042114
042116
0642120
042122
042126

151 042126

012605
012604
012603
012602
012601
012600

000207

001406

040276
FNWORD:
FOUT:

TST
BNE
JSR

ERFLGS
;ARE ANY ERRORS DETECTED ?
FOUT
:IF YES BRANCH
R1,WRDATA
JWRITE THE DATA

.WORD
.WORD

0
0

;FORMAT COMMAND NO. OF DATA

MGV
MOV
MOV
MoV
MOV
MOV

(SP)+,RS
(SP)+ R4
(SP)+ ,R3
(SP)+ ,R2
(SP) + ,R1
(SP)+,RO

::POP
J:POP
;:POP
;sPOP
:;POP
::POP

RTS

JEXIT

STACK
STACK
STACK
STACK
STACK
STACK

INTO RS
INTO Ré
INTO R3
INTO R2
INTO R1
INTO RO

CZRJHEQ RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81

DISK SIMULATION

16:37:12 PAGE 38

H13

SEQ 0163

;;*tttltttttttttttttttttitt'ttttttttttttttttttttttttttttttttttttt

S *WRITE HEADER

. ;tttttttlttttttttttttttttt'ttttttttttttttttttttttttt' | 2223223232222 ]

5
é
7
8
9
}?

;*R0
:*R1
:#R2
:#R3
2#RS

=
=
=
=
=

MAINT.REG.
SIMULATED DISK
BYTE COUNT
WRITE WORD
WORD COUNT

12
13
14
15

042130
042132
042136
042136

}9 042140

000000
000000
000000
000000
000000

18
19
20
21
22
52

042142
042146
042152
042156
0462162
042166

012137
012137
012137
012137
012137
010146

042130
042132
042134
042136
042140

WRHEAD: MOV
MOV
MOV
MOV
MOV
MOV

25 042170
26 0462174
27 042200

012701
013700
012710

040530
001260
000001

MOV
MOV
MOV

#SECGAP,R1
;SIMULATED DISK INDICATOR
RHMR,RO ;RO NOW HAS MAINT. REG. ADDR.
#DMD ;3RO
;SET DIAG. MODE

29 042210
30 062214
31
32 042220
33 042224
34 042226
35 042230

052710
012710

000010
000013

8IS
MOV
BIT
BEQ
SEC
ROR

#MSTCK , 3RO
*SET SECTOR FOR FIRST BYTE
MMSTCK
IMCLK 'DMD,3R0; SET SECTOR, CLOCK, DIAG.
:MODE, RESET INDEX
#MWR , 3RO
SCHECK WRITE BIT IN MAINT. REG.
28
;SET CARRY
R3
:MOVE ONE FORWARD

cLC
ROR
MOV

R3
#DMD , 3RO

SCLEAR CARRY
‘MOVE ZERO FORWARD
*CLEAR CLOCK, SECTOR

BIS
81T

MMCLK , RO
MR, 3RO

SSET BIT CLOCK
*CHECK WRITE BIT IN MAINT.REG.

28 062204

36 062232

37 0462234
38 042236
39 0462240

40 042244

41 042250
42 062254

22 042260
45 042262
46 042264
47 062266
48 042270
49 042272

50
51
52
53
54
55
56
57

042274
042300
042302
042304
042306
042310
042312
042314

012705

032710
001403
000261
006003

scYyL:
SSECTR:
SKEY1:
SKEY2:
SCRC:

000002

MOV
1$:

000040

000402

000241
006003
012710

000001

3$:

052710
032710

000002
000040

48:

012702

001403

000261
006003
000402
000241
006003

012710
005302
001362
005305
001342
010321
005703
001414

28:

000007

B8R

MOV

BEQ

5$:

000001

0
0
0
0
O

68:

SEC
ROR
BR
cLeC
ROR

MOV
DEC
BNE
DEC
BNE
MOV
TST
BEQ

;
;
;
:
;

(R1)+,SCYL
(R1)+.SSECTR
(R1)+.SKEY1
(R1)+,SKEY2
(R1)+.SCRC
R1,-(SP)

::PUSH R1 ON STACK

#2 RS

*WORD COUNTER

#7 R2
5%

R3
6$
R3

#DMD
, 3RO
R2
43
RS
1
R3, (R1)+
R
8

:BYTE COUNTER

*BRANCH IF ZERO

:SET CARRY
;MOVE ONE FORWARD

‘

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81

DISK SIMULATION

58
59
60
61
62

042316
042324
042330
042334
22 0642342

012737
005037
010337
012737
00137

000001
001124
001126
104006
042750

65 062346
66 042352
67 042360
68 042364
69 042370
70 042372

012702
012737
004737
013721
001413
160237

000022
000024
040056
040054

71
72
73
74

042376
0426402
042410
042416

005037
013737
012737
000554

76 042422

001353

75 042420

037030
001124
040054
104006

037030

78:
108:

001126
042060

005302

#1,ERWORD
$GODAT
R3,$BDDAT

JMP

178

:BRANCH OUT ====eccccccccmcccacacan >

MOV
MOV
JSR
ggg

#18. ,R2
#20. . ERWORD
PC,WRITE
¥¥gno.<n1)+

;COUNT
:COUNT
¢WRITE
*STORE

Su8
CLR

R2, ERWORD
;IF NOT GET ERROR WORD NO.
$GDDAT
;GOOD WORD

MOV

#104006, SEGPER; STORE "ERROR 6'' IN SEGPER

MOV

118:

SEQ 0164

MoV
CLR
MOV

MOV

042060

I 13

16:37:12 PAGE 38-1

DEC

BNE

#104006, SEGPER

NO. OF SECTOR GAP
TO GIVE ERROR WORD
SECTOR GAP
SECTOR GAP WORD

WWORD ,$8DDAT;
BAD WORD

178

sBRANCH OUT

108

¢ IF NOT CONTINUE

sHAVE 18 WORDS OF ZEROS BEEN WRITTEN ?

;AT THIS POINT THE SECTOR FOUND FLOP SHOULD
;BE HIGH,
SO THAT THE HEADER SYNC BYTE CAN BE GIVEN.
sHOWEVER, IN THE DRIVE TIMING ERROR TEST THE REST OF THE ROUTINE
s 1S ABORTED
84 042424
85 042430

005737
001147

001426

87 042432
88
89 042436
90 042442

004737

g% 042450

TESDTE

040056

JSR

PC,WRITE

SWRITE ONE SECTOR GAP 0 BYTE

013711
023721

040054
037012

MOV
cMP

WWORD, (R1)
RSYNC, (R1)+

sSAVE O BYTE AND SYNC BYTE
s1f SYNC. BYTE RIGHT

012737

000024

037030

94 062456
95 0642464
96 042470

013737
014137
012737

037012
001126
104006

001124

MOV
MOV

RSYNC,$GDDAT;GOOD WORD
-(R1) ($BDDAT
:BAD WORD

99 042500
100 042504
101 042510
102 042516
103 042522
104 042526
105 042530
106
107
108 042532
109 042536
110 042542
111 042546

012702
012703
012737
004737
013711
022321
001412

000004
042130
000005
040056
040054

160237
014337
014137
012737

037030
001124
001126
104006

114 042556

005302

91 042446

3; 042476

}}% 042554

001414

000524

000475

BNE

8EQ
MOV

062062

037030

138:

128
420. ,ERWORD

SAND ONE S'NC. BYTE = 230

s1F YES CONTINUE OPERATION
:IF NOT GET READY FOR ERROR PRINT

17%

:BRANCH

MOV
MoV
MoV
JSR
MOV
CMP
BEQ

#4 R2
#SCYL,R3
#5 ,ERWORD
PC,WRITE
WWORD, (R1)
(R%)*.(R1)0
14

:FOUR HEADER WORDS
¢POINTER FOR HEADER TABLE
-ERROR WORD NO SET
;WRITE 4 HEADER WORDS
sSTORE WRITTEN WORD
sIS IT CORRECT ?
*IF GOOD CONTINUE OPERATION

Su8
MOV

R2.ERWORD
~(R3),$GDDAT

:WORD NO
:GOOD DATA

MOV

#1046006
. ERHEAD; INSERT *‘ERROR 6'°
17$

:BRANCH OUT ======ccmccccaceccccncea- >

DEC

sARE & HEADER WORDS DONE?

BR
148:

;BRANCH OUT IF YES ===eeeececccccccaae

#106006, FSYNER; INSERT 'ERROR 6'* IN FSYNER

MOV

0462064

TIMING ERROR TEST ?

MOV
BR

128:

;IS THIS A DRIVE

-(R1)

.$8DDAT

OUT

====ccecccccscecccccccaaaa >

*IF NOT GET READY FOR ERROR PRINT

-BAD DATA

wnx
X
b

BNE
JSR

MOV
CMpP
BEQ

] e

D acd

040056
040054
062056

001126
062056
000005

MOV
MOV
Mov
MOV
BR

001124
037030
042066

042630
042634
042642
042646
042652

000005
000006
040056
040054

MOV
MOV

037030

JSR

MOV

BEQ

138

PC,WRITE
WWORD, (R1)

(R1)+,GCRC

208

D e

b wd

160237
005037
014137
012737
000424

)

d enmd

b ad

005302
001354
004737
013711
023721
001413

b wd cnd

012737
014137
013737
012737

154

042750
042750

042752

012601
000201

037030
001124
001126
104006

su8
CLR

MOV
MOV

04070

16$:

040056
040054
037012
000005
001126
037012
104006

037030
001124
042072
17%:

SEQ 0165

s IF NOT CONTINE
sWRITE CRC
sSTORE CRC
s COMPARE GOOD CRC
:1F GOOD CONTINUE OPERATION
:IF NOT GET READY FOR ERROR PRINT

=(R1) ,$SBDDATA
GCRC,$GDDAT
#5 , ERWORD

;BAD CRC WRITTEN

178

(EX]T =ccccecccccccccccccnccncccccaaa

#5,R2

:NO OF HEADER GAP
sERROR WORD NO SET

#104006, ERCRC
#6,ERWORD
PC,WRITE
WWORD, (R1) +

163

)

D d o

)

104006

)
b

;G00D CRC
;ERROR WORD NO
s INSERT ERROR 6

;WRITE HEADER GAP

: STORE
:IF GOOD CONTINUE OPERATION
sIF NOT GET READY FOR PRINT

R2,ERWORD
%ERROR WORD NO
$GDDAT
:GOOD DA
=(R1) ,$BDDAT
:BAD DATA

1;24066,ERHDGP:STORE “ERROR 6"

;BRANCH QUT =====sssssocococcocaan >

DEC
BNE
JSR
MOV
CMP
BEQ

R2
158

178

JAOK,

MOV
MOV
MOV
MOV

#5 ,ERWORD
=(R1) ,$BDDAT
RSYNC,SGDDAT

:IF NOT GET READY FOR ERROR PRINT

MoV
RTS

(SP)+,R1
R1

PC,WRITE

WWORD, (R1)
RSYNC, (R1)+

#104006, HDESYN

;ARE 5 HEADER GAP ZEROS DONE ?
s IF NOT CONTINUE

EXIT ====scmcmcccocccoceoe >

CZRJHEQ RPO4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 39

K13

SEQ 0166

A2 422222220200

000 0000000203008
828282222222 22320 2323238282

R AR

ARAR

‘*SEARCH SECTOR

AR AR AR AR SRR

ARl

idd

it ti ittt

iidtiilatddlsl]

:*RO=RHMR ADDRESS

:*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.
:*AT THE BEGINNING OF EACH SECTOR, ONE SECTOR CLOCK HAS

TO RISE

s*BEFORE MAINT. CLOCK, THEN EVERY EIGHT MAINT.CLOCKS, ONE SECTOR CLOCK
;*1S IDENTICAL WITH THE MAINT. CLOCK
s*THE SECTOR CLOCKS ARE NUMBERED AS FOLLOWS:

;*THE SECTOR CLOCK UNDER INDEX - 0
J*THE NEXT - 1

:*E?E NEXT = 2
-*

s*THEN THE LAST SECTOR CLOCK IN ONE SECTOR HAS NUMBER - 608
;*THE NEXT SECTOR WILL HAVE 608 SECTOR CLOCKS
;*THE NEXT SECTOR THEN HAS ANOTHER 608 SECTOR CLOCKS
s*AND SO ON

043026

043032
043036
043042
043064

cdcd
d omd =

OO0O0O0O0O

042754

Ned

043006
043012
043016
943022

SECTR:

001260
042754
000001
000010

VIS

042756
3 042762
042764
042766
042770
042772
042774
042776
043002

000000

042754

COO000

b b ad cd e = e d =d b
WA NN POPOVNIN)
o OO ~NONN AN = OO 00 NON NS NN~ O D00 ~NON

LSS WWN) —

DISK SIMULATION

000010

000014
000014
001461

SEARCH: MOV
MOV
MOV
MoV
MOV
MOV
MOV
MoV
MOV

sSECTOR SEARCHED FOR
(R1)+,SECTR ;SAVE SECTOR SEARCHED FOR
RO,=(SP)
;;PUSH RO ON STACK
R1,-(SP)
:sPUSH R1 ON STACK
R2.=(SP)
::PUSH R2 ON STACK
R3,-(SP)
:;PUSH R3 ON STACK
R4.-(SP)
::PUSH R4 ON STACK
R5,=(SP)
;:PUSH RS ON STACK
RHMR,RO_;NOW RO HAS MAINTENANCE REG. ADK.
SECTR,R3
sLOAD SECTOR COUNTER

MOV
BIS
BIC
BIS
BIC

#DMD , 3RO
#MSTCK,aR0
#MSTCK,aR0
#MSTCK ,aR0
#MSTCK,aR0

BIS
8IC
TST

WMINX!MSTCK,3R0O .SET INDEX AND SECTOR CLOCK
#MINX!MSTCK,8R0O ;RESET INDEX AND SECTOR CLOCK
R3
;TEST FOR SECTOR 0

8tQ

+SET DIAGNOSTIC MODE
¢SET SECTOR CLOCK
sCLEAR SECTOR CLOCK
sSET SECTOR CLOCK
sCLEAR SECTOR CLOCK

:THE ABOVE TWO SECTOR CLOCKS ARE GIVEN fOR
JRESETING SECTOR PULSE
sIN_CASE IT STARTS SET

;IF SECTOR O IS REQUIRED, EXIT -==--- >

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

L 13
CZRJHEQ RP04/5/6 DSKLS PT2 MACRC v04.00 17-NOV-81 16:37:12 PAGE 39-1

SEQ 0167

OISK SIMULATION

53
gg

;+WILL BE IDENTICAL WITH ONE MAINT. CLOCK
:ONE WORD ONLY

56 043046
57 0643052
58 043056
59 043062
60 043066
61 043070
62 043074
63 043100
64 043104
65 043110
29 043112

012702
012705
052710
052710
000402
052710
042710
052710
042710
005302
001372

000010
000002
000010
000002

1$:

00001¢
000012
000002
000002

28:
38:
8$:

68 043116
69 043120

012702
005305

000007

70 043122

;}

001362

#8.,R2
;BYTE COUNTER
#2,R5
;BYTES PER WORD
#MSTCK , 3RO
sSET SECTOR CLOCK
#MCLK, 8RO
sSET MAINT. CLOCK
33
sBRANCH TO CLEAR SECTOR AND CLOCK
MMSTCK!MCLK,aR0 ;SET BOTH CLOCKS
MMSTCK!MCLK,3R0 ;CLEAR BOTH CLOCKS
#MCLK , 3RO
cSET MAINT. CLOCK
#MCLK 3RO
sCLEAR MAINT.CLOCK
R2
sBYTE COUNTER
8s
sCONTINUE IF BYTE NOT COMPLETE

MOV
DEC

#7,R2
R5

BNE

;é

76
77
78
79
80
81
82

MoV
MOV
BIS
BIS
BR
BIS
8IC
BIS
BIC
DEC
BNE

sSETUP FOR SECOND BYTE
:1S WORD COMPLETE?

sCONTINUE IF NOT COMPLETE

:TO GIVE SECTOR CLOCK AND MAINT. CLOCK

sNOW 303 WORDS ARE LEFT AND ALL ARE IDENTICAL
043124
0643130
043134
043140
043144
043150
0643154

012701
012705
012702
052710
042710
052710
042710

MOV
MoV
MoV
BIS
8IC
BIS
8IC

#303. ,R1
#2,R5
#7 ,R2
W#MSTCK!MCLK,3R0O
W#MSTCK!MCLK,a8R0
#M_LK, 3RO
#MCLK,aR0

;WORDS PER SECTOR COUNTER
;BYTES PER WORD COUNTER
sBIT COUNTER (MAINT.CLOCK COUNTER)
;SET SECTOR CLOCK AND MAINT. CLOCK
;CLEAR CLOCKS
sSET MAINT. CLOCK
¢RESET MAINT. CLOCK

86 043166
gg 043166

005305
001362

DEC
BNE

RS
5%

c1S WORD COMPLETE ?
sCONTINUE IF NOT

89 043170
3? 043172

005301
001356

DEC
BNE

R1
43

;1S SECTOR COMPLETE ?
sCONTINUE IF NOT

92 043174
93 043200
94 043204

052710
042710
005303

BIS
8IC
DEC

#MSTCK,aR0
#MSTCK,3RO
R3

sSET SECTOR CLOCK 1 MORE TIME (FOR 609)
sCLEAR SECTOR CLOCK
:1S REQUIRED NO OF SECTORS COMPLETE ?

97 043210
043210
0643212
043214
043216
043220
043222
gg 043224

012605
012604
012603
012602
012601
012600
000201

MOV
Mov
Mov
Mov
MOV
MOV
RTS

(SP)+,R5
(SP)+,R4
(SP)+,R3
(SP) +,R2
(SP)+,R1
(SP)+,RO
R1

::POP
::POP
:;POP
:;POP
::POP
:;POP

83 043160
gg 043162

gg 043206

005302
001372

000457
000002
000007
000012
000012
000002
000002

48:
5%:

6$:

DEC
BNE

000010
0006010

001317

BNE
7$:

R2
63

100

101

s*READ ONE SECTOR OF DATA

102

103

;1S BYTE COMPLETE ?
sCONTINUE IF NOT COMPLETE

sCONTINUE IF NOT
STACK
STACK
STACK
STACK
STACK
STACK

RRARARARRE A EANRAR AN RN NN AR AR RN RN AN RN

INTO
INTO
INTO
INTO
INTO
INTO

RS
R4
R3
R2
R1
RO

RA NN

AN AN

ARNY

RARARRRAAARARNAARACN AR AN C RN NN RANAANRNRANANRRANNRRRNRNRANNRRARNR

ni3
CZIRJHEQ RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 39-2

SEQ 0168

DISK SIMULATION
1

04 043226
}82 043230

000000
000000

107 043232

012137

109
110
111
112

010146
005737
001403
012737

108 043¢38
043242
043244
043250
043252

113 043260

114
15
116
117
118
119
120

121
122
123
124
125
126
127
128

0643264
0643270
043274
043300
043302
043304
043310
043312
0643316
0643322
043326
043332
043334
043336

043336
}%8 043340

131 043342

043342
043346

043410
132 043410
133 043412
134 043420

012137

RNO:
RCOM:
043226

043230

177777

000402

012703
012337
004737
005302
001372
005737
001012
005037
012702
012337
004737
005302
001372

060626
037620
037624

104402
012777
0000C°

(R1)+,RNO

;SAVE NO. OF WORDS ONLY FOR INFORMATION

MOV
TST
8EQ
MOV

R1,-(SP)
TSECC
18
#-1,TSECCG

::PUSH R1 ON STACK
s1S THIS AN ECC TEST
¢BRANCH IF NO
sTHESE BITS ARE TO GENERATE ECC

MOV
MoV
JSR
DEC
BNE
TST
BNE
CLR
MoV
MOV
JSR
DEC
BNE

sPLUS 2 ECC WORDS
#DISK,R3
sPOINTE TO DISK SIMULATION
(R3) +,WORD
sREADY TO READ CONTENTS
PC,READ
sREAD
R2
;1S 256 WORDS DONE?
2%
s 1F NOT BRANCH
TSECC
sIS THIS AN ECC TEST
48
sBRANCH QUT IF YES
TSECCG_
;NO MORE ECC BITS ARE TO BE GENERATED
#15.,R2
;ONE DATA GAP, 14 TOLERANCE GAP
(R3) + ,WORD
sREADY TO READ CONTENTS OF WORD
PC,READ ;READ
R2
s COUNT
3s
;BRANCH IF 14 NOT DONE

MoV
RTS

(SP)+,R1
R1

;:POP STACK INTO R1
sRETURN

TYPE
BR

,65%
648

:sTYPE ASCIZ STRING
;:GET OVER THE ASCIZ

TYPOC
MOV
RTI

#RPVECT ,aRPVEC

MOV

034562

1$:
28:

001424
034562
000017
037620
037624

38:

4$:

012601
000201
104401
000420

REDATA: MOV

001424

012702

RPVECT:

043350

::65%:

648:
043342

135606

:NO. OF WORDS READ
sEXTRA STORAGE

0
O

Mov

L_ASCIZ

(R1)+_,RCOM

#258. R2

sEXTRA WORD ONLY FOR INFORMATION

2256 WORDS PER SECTOR

/UNEXPECTED RP INTERRUPT @ PC = /

s TYPE FROM PC
sRESTORE TRAP VECTOR
s CHANGE TO CONTINUE

SCOPE HANDLER ROUTINE
1

.SBTTL

16:37:12 PAGE 40

N13

SEQ 0169

SCOPE HANDLER ROUTINE

d s NARRA RN R RN N RN

RA RN

RRNAAARAN AN

NN AANRAARRANRANRAIRNRNRRY

;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT

s*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

JaSWi14
JxSWl1 i
; «SW09 1
:*SW08 1
J*CALL
*

043422
043422
043424
043430

104407
005037

$SCOPE:

LOOP ON
INHIBIT
LOOP ON
LOOP ON

TEST
ITERATIONS
ERROR
TEST IN SWR<7:0>

;:SCOPE=]OT

SCOPE

005037

037024
001424

CKSWR
CLR
LLR

NOSYNC

043434

005037

034562

CLR

TSECCG

043440
043444
043444
043452
043454
043460

005037

001426

CLR

TESDTE

IN AN ECC TEST EVERY CLOCK
TO_GENERATE ECC
4 777 GENERATE ECC
:IF
D O NOT GENERATE ECC
:DRIVE TIMING ERROR TEST

032777
001402
000137

040000

BIT
BEQ
JMP

#BIT14,3SWR
9%
$OVER

22LO00P ON PRESENT TEST?
J:NO IF SW14=0
ssJUMP OVER SCOPE ROUTINE

043460

000416

043462

013746
012737
005737
012637
000544
000504

032777
001404

044044

#l##lSTART OF

$XTSTR: BR

000004

043506

177060

000004

5%:

000004
135414

127737

135406

001102

105737

001103

001502
022737
001455
013746
012737
013737
000406
012737
012716

MOV
MOV
TST
MOV

000004

000400

001543

043560
043566
043574
043576
043604

1354696

$:
$:

1772777

000004
043576

046430

000004

177766

46430

177777

(46430

043612

B8R

CMP

;.TEST

TSECC

ngE

FOR

FOR CHANGE IN SOF T-SWR

;CLEAR FLAG FOR HEADER ERROR

COMMANDS

¢CLEAR FLAG FOR ECC TEST
sWHEN
=177777 IT IS AN ECC TEST
:WHEN
0 IT IS NOT AN ECC TEST
cEVEN

THE

XOR

TESTERNNNAN

::IF RUNNING ON THE 'XOR'' TESTER CHANGE
@FERRVEC,~(SP)
#58 ifiERRVEC

sTHIS INSTRUCTION TO A 'NOP'' (NOP=240)

;:SAVE THE CONTENTS OF
;:SET FOR TIMEOUT

ar1?70

::TIME OUT ON XOR?

$SVLAD

::G0 TO THE NEXT TEST

(SP)+, a:snnvec

THE ERROR VECTOR

;;RESTORE THE ERROR VECTOR

(SP)+,(SP)+
ssCLEAR THE STACK AFTER A TIME OUY
MOV
(SP)+ ,Q#ERRVEC
..RESTORE THE ERROR VECTOR
73
:LOOP ON THE PRESENT TEST
B8R
68 : :ANMMNEND OF CODE FOR THE XOR TESTERMANAN
BIT
ggITOS.8SWR
..LOOPFON SPEC. TEST?
BEQ
B8R 1]
CMPB
SWR,STSTNM
::ON THE RIGHT TEST?
SWR<7:0>
BEG
$OVER
*BR IF YES
2$:
1ST8
$ERFLG
..HAS AN ERROR OCCURRED?
3s
‘BR IF NO
BEQ
#-1,CPSAVE
CMP
S:SEE IF TIMEOUT WAS PREVIOUSLY RECORDED
BEQ
200%s
*:KICK AROUND ROUTINE IF SO
MOV
ERRVEC,=(SP)
;:SAVE CONTENTS OF ERROR VECTOR
MOV
#20008 ,ERRVEC
;;SETUP °‘TRAP' RETURN ADDRESS
5667%6.CPSAVE
;.MOVE CPU ERROR REGISTER TO (PSAVE FOR TEST
MOV
BR

20008:

MoV
MOV

#-1,CPSAVE

#20018. (SP)

::SET CPU ERROR REGISTER TIMEOUT

*:SETUP RETURN ADDRESS

INDICATOR

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOv-81

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
SCOPE HANDLER ROUTINE

043610
063612

000002
012637

000004

063616

022737

1727777

046430

000001

046430

000001
001140

177766

001000

2001$:

2002$:

001103

001000

135214

001110

001106

001103
001212

#8100, CPSAVE
2 03s
#81700,177766

(SP) S@aSWR

(SP)+,a(SP)
(SP)+.SWR

7%:
A ¥

135162

3s:

001100

001106

;.SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
;;BRANCH IF SO
;sSEE IF THE POWER MONITOR BIT IS ON
ssBRANCH TO CONTINUE ROUTINE IF CLEAR
:2CLEAR THE BIT FOUND TO BE SET
J:SAVE SWR ADDRESS
;:SAVE SWR VALUE
;sGET SOFTWARE SWR ADDRESS
;sGET CURRENT SWR VALUE

191769 aSwR

001115

000001
044060
001102
001106
001110

#-1,CPSAVE

135244

123737
101015
032777
001404
013737
000443
105037
005037
000415
032777

001104
001212

s;RESTORE CONTENTS OF ERROR VECTOR

2003$

2003s:

001104

001104
001212

18:

SOVER:

SMXCNT: 4

ssCALL SPECIAL POWER FAIL BIT ERROR CALL
scRESTORE SWR TO ORIGINAL VALUE

s cRESTORE SWR ADDRESS

..gaxl ERSORS FOR THIS TEST OCCURRED?

221709.0SUR

..LOOP ON ERROR?

SLPERR,SLPADR
$OVER
SERFLG
STIMES
18
#81711,3SWR
18
$PASS
18
$ICNT
STIMES,SICNT
SOVER

::SET LOOP ADDRESS TO LAST SCOPE

SMXCNT ,STIMES
S$STSTNM
(SP) ,SLPADR
(SP) ,SLPERR
SESCAPE

MoV
MoV
RT1

;:DON'T ALLOW LOOP ON ERROR ON THIS ERROR

§§RHAX.SERFLG

#1,SICNT

$SVLAD:

SEQ 0170

(SP)+,ERRVEC

001140

000C00
001140

004000

RTI
Mov

SWR, - ($P)
a(SP) ,=(SP)
#176, SWR

012676
012637

8
16:37:12 PAGE 40-1

:BR_IF NO

;s ZERO _THE ERROR FLAG
ssCLEAR THE NUMBER OF ITERATIONS TO MAKE
sESCAPE TO THE NEXT TEST
..INHIBIT ITERATIONS?
:BR IF YES

..IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

: INCREMENT ITERATION COUNT
..CHECK THE NUMBER OF ITERATIONS MADE
.BR IF MORE ITERATION REQUIRED

..REINITIALIZE THE ITERATION COUNTER
ET NUMBER OF ITERATIONS TO DO
:COUNT TEST NUMBERS

..SAVE SCOPE LOOP ADDRESS
s :SAVE ERROR _LOOP ADDRESS
s;CLEAR THE ESCAPE FROM ERROR ADDRESS
#1,SERMAX
s;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
S$TSTNM, 3DISPLAY ssDISPLAY TEST NUMBER
$LPADR, (SP)
¢.FUDGE RETURN ADDRESS
..FIXES PS
. NUMBER OF

ITERATIONS

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

.SBTTL

16:37:12 PAGE 41

C 14

SEQ 0171

CONVERT BIN"RY TO DECIMAL AND TYPE ROUTINE

SNARANRARRARARAANAAN
AN ELC AN RN RN
ARNNR AR ANARANRARANNNNRARNAOANONS

'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
s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
s *REPLACED WITH SPACES.
S«CALL:
e

044062

$STYPDS:

044062
044066
044066
044070
044072

010046
010146
010246
010346
010546

044100
044104
044106
044110
044116
044120

016605
100004
005405
112766
005000
012703

044130
044132
044136
044140
044142

005002
016001
160105
002402
005202

044146
044150
044152
044154
044156
044160
044162
044164

060105
005702
001002
105716
100407
106316
103003
116663

000001

044176

052702

000040

044074

044126

044144

044172

0446202
044206

044206
044212
044214
044216

044220
044222
044224
044226
044234
044236

044240
0464242
044246

012746

112723

020200
000001

044276

000040

110223
005720
020027
002746
003002
010502

044266

48:

000060

177777

012603
012602
012601

6$:
78:

000010

000764

105726
100003
116663
105013
012605

18:

28:

000774

052702

8$:
177777

NUM, - (SP)

MOV
MOV
MOV
MOV
MOV

RO, ~(SP)
R1.=(SP)
R2.-(SP)
R3.-(SP)
RS, =(SP)

::PUSH
“:PUSH
::PUSH
$:PUSH
2:PUSH

MOV
8PL
NEG
MOVB
CLR
MOV

as
#°-,1(SP)
RO
#$DBLK ,R3

<:GET THE INPUT NUMBER
::BR IF INPUT IS POS.
::MAKE THE BINARY NUMBER POS.
$:MAKE THE ASCI] NUMBER NEG.
::2ERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER

R2
$DTBL (RO) ,R1
R1.RS
4
R2

::CLEAR THE BCD NUMBER
23GET THE CONSTANT
*:FORM THIS BCD DIGIT
*:BR IF DONE
:; INCREASE THE BCD DIGIT BY 1

AD.
ST
BNE
Ist8
BM]
ASLB
BCC
MOV8

R1.RS
R2
5$
(SP)
73
(SP)
63
I(SP) =1(R3)

:;ADD BACK THE CONSTANT
::CHECK IF BCD DIGIT=0
SSFALL THROUGH IF 0
::STILL DOING LEADING 0°'S?
..BR IF
YES
MSD?
S:BR IF
N
..ves--ssr THE SIGN

BIS

CMP
BLT
86T
MOV

RO.#10
2
8s
RS.R2

:3CHECK THE TABLE INDEX
$:60 DO THE NEXT DIGIT
2360 TO EXIT
$:GET THE LSD

(SP)+
13
=1(SP),-2(R3)
(R3)
(SP)+,RS

..UAS THE LSD THE FIRST NON-ZERO?
: BR
IF NO
::YES=-SET THE SIGN FOR TYPING
::SET THE TERMINATOR
::POP STACK INTO RS

TYPDS

MOV

000020
000055

MOV

177776

98 :

MOVB

CLR
MOV
SuB
8LT
INC

B8R

BIS

MOVB
ST

B8R

TSTB
BPL
MOVB
CLRB
MOV

MOV
MOV
MOV

czbzoo -(SP)
RS

&' ,(R$)+

Ré

R2 (R3)+
(RO) +

(SP)+.R3
(SP)+.R2
(SP) ¢ .R1

::PUT THE BINARY NUMBER ON THE STACK

2360 TO THE ROUTINE

RO
R1
R2
R3
R5

ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STACK

::SET BLANK SWITCH AND SIGN

*3SET THE FIRST CHARACTER TO A BLANK

$:MAKE THE BCD DIGIT ASCII

SIMAKE IT A SPACE IF NOT ALREADY A DIGIT

::PUT THIS CHARACTER IN THE OUTPUT BUFFER
$:JUST INCREMENTING

$:G0 CHANGE TO ASCII

::POP STACK INTO R3
::POP STACK INTO R2
$:POP STACK INTO RI1

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.0C 17-NOV-81
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

044246
044250
064254
044262
064264
044266
044270
044272
044274
044276

012600

064276
000002

000004
$DTBL:

000012

$DBLK:

D 14
16:37:12 PAGE 41-1

Mov
TYPE
MOv
MOV
RTI

10000.
1000.

}00.
0.

.BLKW

(SP)+,RO
$DBLK

2(SPY,4(SP)
(SP)+. (SP)

SEQ 0172

;:POP STACK INTO RO
::NOW TYPE THE NUMBER
s sADJUST THE STACK
;RETURN TO USER

CZRJHEOQ RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOv~-81 16:37-12 PAGE 42

E 14

SEQ 0173

TYPE ROUTINE

.SBTTL

TYPE ROUTINE

JoNARRRNAAAAARAARAARARAACCCAARAANANNARARAANAANRANRAEARARAAARAOANCNS

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.

s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
+«NOTE2:
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
tNOTES
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

*N TEL:

: CALL

~1) USING AA TRAP INSTRUCTION
.MESADR

ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TST8
B8PL

$TPFLG
18

..xs THERE A TERMINAL?

1$%:

MOV

EAVE
*SAVE RO

2s:

MOVB
BNE

TYPE

MESADR

o*
105737
100002
000000
000407
010046
017600
112046

001005
005726
012600
062716
000002
122716
001430

001157

HALT
B8R

000002

60$:
3s:

MOV
ADD

000011

4$:

CMP8

#HT, (SP)

..GET ADDRESS OF ASCIZ STRING
..PUSH CHARACTER TO BE TYPED ONTO STACK
:BR IF IT ISN'T THE TERMINATOR
..IF TERMINATOR POP IT OFF THE STACK
RO
:sRESTORE
;sADJUST RETURN PC
::RETURN
;sBRANCH IF <HT>

#CRLF, (SP)

:;BRANCH IF NOT <CRLF>

(SP)+

;:POP <CR>XLF> EQUIV
J:TYPE A CR AND LF

$CHARCNT

;o CLEAR CHARACTER COUNT
ssGET NEXT CHARACTER
:.G0 TYPE THIS CHARACTER

000002

MOV
TST

RTI

000200

044406

001154

044412
044416
044420
044424
044430

000001

5%:
6$:

JSR
(MPB

7$:

DECB

044456
044574

044454

000040
044456
000007

PC,STYPEC

SFILLC,(SP)+

2%
$NULL,~(SP)
1(SP)

PC.STYPEC
$CHARCNT
7%
;HORIZONTAL

112716
004737
132737
001372
005726
000724

044456
001156

044432

YES

RQ,=(SP)
82(SP) ,RO
(RO)+,=(SP)
48
(SP)+
(SP)+,R0
#2,(SP)

044574

000770

:BR IF

..HALV HERE IF NO TERMINAL

8s:

044574

MOVB

JSR
8IT8
BNE
TST
BR

;oIS IT TIME FOR FILLER CHARS.?

sc1F NO GO GET NEXT CHAR.
s.GET # OF FILLER CHARS. NEEDED
csAND THE NULL CHAR.

"DOES A NULL NEED TO BE TYPED?
IF _NO--GO POP THE NULL OFF OF STACK

044306

..GO TYPE A NULL
..DO NOT COUNT AS A COUNT
.

OIU

TAB PROCESSOR

&' ,(SP)
PC.STYPEC

:;REPLACE TAB WITH SPACE
ssTYPE A SPACE
::BRANCH IF NOT AT

(SP)+

..POP SPACE OFF STACK
:36GET NEXT CHARACTER

z;.SCHARCNT
23

AB STOP

CZRJHEO RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
TYPE ROUTINE

$TYPEC:

134462

134456
177600

16:37:12 PAGE 42-1

1ST8

MOV

000023

1028

101$:

a$TKB, (SP)

000207

108:

134406
000002

(SP)+

seFIX STACK

as$TPS
108
2(SP) ,as$1PB

;sWAIT UNTIL PRINTER IS READY

#CR,2(SP)
18

044574
000012

1018

#SXON, (SP)

1028:

001003
105037

000002

1$:

;sCHAR IN KYBD BUFFER?
::BR IF NOT
J:GET CHAR
J:STRIP EXTRANEOUS BITS
::WAS CHAR XOFF
;:BR IF NOT

23GET CHAR
JiSTRIP IT
J:WAS IT XON?
;:BR IF NOT

#177600, (SP)

134414

SEQ 0174

J:WAIT FOR CHAR

134432
177600
000021

000002
000015

#177600., (SP)
#SXOFF, (SP)

134436

105777
100375
116677
122766

asTKS
108
as$TK8,=(SP)

CMPB

INCB
$CHARCNT
: . WORD
$TYPEX: RTS

SCHARCNT
STYPEX

#LF ,2(SP)
STYPEX
(PC)+
O

044456
044456
044462
044464
044470
044474
044500
044502
044502
044506
044510
044514
044520
044524
044526
044526
044530
044530
044534
044536
044544
044552
044554
044560
044562
044570
044572
044574
044576

]

F 14

:sLOAD CHAR TO BE TYPED INTO DATA REG.
2:1S CHARACTER A CARRIAGE RETURN?
J:BRANCH IF NO
::;Ef;-CLEAR CHARACTER COUNT
::]S CHARACTER A LINE FEED?
;¢BRANCH [F YES
2sCOUNT THE CHARACTER
s sCHARACTER COUNT STORAGE

TTY

G 14

SEQ 0175

INPUT ROUTINE

.SBTTL

TTY INPUT ROUTINF

o RANNRAAANRAANANARNRAANCCORREAANAANNRARANANNAANRAAANNANANAAOAAOEND

044600
044602
044604
044606

.ENABL
LS8
STKCNT: .WORD
$TKQIN: WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB

000000
000000
000000

044617

$TKQEND=,
.EVEN

0
0
0
9.

;sNUMBER OF ITEMS IN QUEUE
;s INPUT POINTER
:;0UTPUT POINTER

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

SeCALL:
oW
N

044620
044624
044632

044640
044646

044654
044660
044666

005037
012737
013737
012737
012737
005777
012777
000207

044600
044606
044602
044670
000200
134266
000100

044602
044604
000060
000062

JSR

RETURN

$TKINT: CLR

$TKCNT

MoV
MOV
MoV
MOV
TST
MOY
RTS

134256

PC,$TKINT

#$TKQSRT,STKQIN
$TKQIN,$TKQOUT
#STKSRV
N TKVEC
#200,3#TKVEC+2
.,

a37kB
#100,387TKS
PC

ssCLEAR COUNT OF ITEMS IN QUEUE
¢ sMOVE THE STARTING ADDRESS OF THE
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.
::INITIALIZE THE KEYBOARD VECTOR

::"BR" LEVEL 4

::CLEAR DONE FLAG
::ENABLE TTY KEYBOARD INTERRUPT
:IRETURN TO CALLER

s*TK SERVICE ROUTINE
s*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
s*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;*]T 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)
044670
044674

117746

134252
177600

$TKSRV: MOVB

BIC
CMP

000021

BNE
TST

000002
021627
001007
104401

:
308

000003

045671
044620

044752

001500

044754
044754
044762
044764

022737
001004
1046401

cMpP

#4C177, (SP)
(sP)
, #$XON
308

(SP)+

(SP) .43

BNE

JSR

PC,STKINT

BEQ

TYPE

LSCNTLC

000176

001140

TST
JMP
CMP
BNE
CMP

000011

044600

CRP

gz..STKCNT

TYPE

LS$BELL

031004
000007
044744

RT]

@$TKB,-/SP)

00121%

18:

(SP)+
OPERSEL
(SP) 47
2%
#SWREG,
SWR

;sPI1CKUP THE CHARACTER
J:STRIP THE JUNK
2:1S IT A RANDOM XON?
;:BRANCH IF NO
;oCLEAN RANDOM XON OFF STACK

2:RETURN

::1S IT A CONTROL C?
s :BRANCH IF NO
¢ TYPE A CONTROL-C (*(C)
;o INIT THE KEYBOARD
¢ CLEAN UP STACK
soCONTROL C RESTART
:c1S IT A CONTROL G?
¢ :BRANCH IF NO
:.1S SOFT-SWR SELECTED?
:.G0 TO SWR CHANGE
:.1S THE QUEUE FULL?
< sBRANCH IF NO
s:RING THE TTY BELL

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

H 14

SEQ 0176

CZRJHEO RP04/5/6 DSKLS PT2 MACRC Vv04.00 17-NOV-81 16:37:12 PAGE 43-1
INPUT ROUYINE

044770
044772
044774
045000
045002
045006
045010
045014
045016

005726
000451
021627
001021
005077
005726
105777
100375
117746

045026
045032
045034
045042
045044
045050
045054
045056
045062
045064
045070
045074
045100
045106
045110
045116

022627
001366
012777
000002
005237
021627
002405
021627
003002
042716
112677
005237
023727
001003
012737
000002

045022

042716

000023

1364136
134130

318:

134124

(SP)
+
5
(SP) ,#23
328
asTks
(SP)¢+
a$TKS
31$

BIC

#°C177,(SP)

MOVB

177600

000021

000100

ST
BR
cMP
BNE
CLR
TST
TSTB
BPL

134102

044600
000140

32%:

000175

CMP
BNE
MOV
RTI
INC
cMp
BLT
CMP
BGT

000040
127506
044602
044602

064617

044606

044602

48:

BIC
MOVB
INC
cmp
BNE
MOV
RTI

@STKB,=(SP)

(SP)+,#21
31s
#100,a87KS

STKCNT
(SP) ,#140
IX;
(SP) ,M175
48
#40, (SP)
(SP)+,asTKQIN
$TKQIN
$TKQIN, #$TKQEND
5$
#$TKQSRT,$TKQIN

.—-fflfi

TTY

soCL § CHARACTER OFF OF STACK

s JEXIT
sc1S IT A CONTROL-S?
s :BRANCH TF NO
s:DISABLE TTY KEYBOARD INTERRUPTS
ssCLEAN CHAR OFF STACK
soWAIT FOR A CHAR
c-LOOP UNTIL ITS THERE
..GET THE CHARACTER
MAKE IT 7-BIT ASCII
::1S IT A CONTROL-Q?
¢ ;BRANCH IF NO
..REESQSLE TTY KEYBOARD INTERRUPTS

: 3COUNT THIS CHARACTER
::1S IT UPPER CASE?
s :BRANCH IF YES
..IS IT A SPECIAL CHAR?
s sBRANCH IF YES

:MAKE IT UPPER CASE

..AND PUT IT IN QUEUE
:;UPDATE THE POINTER
::GO OFF THE END?
¢BRANCH IF NO

..RESET THE POINTER
TURN

s RARAANRARRAANARARAANNEIR
I ANARAARNARRANARARARAARAARARARRARARANS

'SOFTUARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED
FROM THE TRAP HANDLER, AND WILL

045120

045126
0645130
045134
045136

0645142
045146
045152

022737

001124
105777
100121
117746

042716
02162/

001300

000176

001140

:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
; *CALL WHEN OPERATING IN TTY INTERRUPT MODE.

$CKSWR: CMP

BNE
TSTB
BPL
MOVB

134010
134004

177600
000007

BIC
CMP
BNE

1§gasc,SWR

a$TKS
15$
@$TKB,-(SP)

:21S THE SOFT=-SWR SELECTED
JsEXIT IF NOT
::1S A CHAR WAITING?
::IFSNOT. EXIT
oay
::HAKE IT 7-BIT ASCII

"IFDNQ;I PUT IT IN THE TTY QUEUE

a~c177 (SP)
(SP) A%

S o XA AARRRARRRAANRRANA
RN LA NAARARRARARNNAAANAARARRRARAAARARRARNCARY

045154
045162
045164
045166
045172
045176

123727
001674
005726
004737
005077
112737

001134

000001

044620
133746
000001

001135

045204
045210
045214
045220

104401
104401
013746
104402

045703
045710
000176

s*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
s*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CA_L, AS
A RESULT OF A
- *CONTROL-G BEING TYPED,
1AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.

6S:

CMPB
BEQ
TST
JSR
CLR
MOVB

TYPE
$GTSWR: TYPE
Mov
TYPOC

$SAUTOB,
#
28
(SP)+
PC,STKINT
a8$1kKS
#1,8INTAG

¢sARE WE RUNNING IN AUTO-MODE?
; sBRANCH IF YES
:sCLEAR CONTROL-G OFF STACK
ssFLUSH THE TTY INPUT QUEUE
s:DISABLE TTY KEYBOARD INTERRUPTS
;o SET INTERRUPT MODE INDICATOR

.SCNTLG
. SMSWR
SWREG, - (SP)

:cECHO THE CONTROL=G (“G)
:: TYPE CURRENT CONTENTS
;. SAVE SWREG FOR TYPEOQUT
;.60 TYPE-~OCTAL ASCII(ALL DIGITS)

—

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81
INPUT ROUTINE

104401

045721

045236

005046
005046
105777
100375

045240
045244

117746
042716

133702
177600

045250

021627
001015

000003

104401

062706

045276
045304

123727
001003
012777
000137

045310
045314

021627
001005

065322
045326

062706
000737

045330
045334

021627
001022
005766
001403
016677
062706
104401
123727
001003
012777
000002
004737
021627

045316

104401

133706

0645671
000006
001135
000100
031004

19%:

(LR

7%:

TST8

a8TKS
78

133640

8s:

JMP

000025

CMP

0645676
000006

208%:

ADD

000015

10%:

cMP

(SP) ,#3
9s

::1S IT A CONTROL=-C?
s ;BRANCH IF NOT
s.YES, ECHO CONTROL-C (“C)
s CLEAN UP STACK
;s REENABLE TTY KEYBOARD INTERRUPTS?
¢ sBRANCH IF NO
::ALLOW TTY KEYBOARD INTERRUPTS
s :CONTROL=C RESTART

$INTAG
M
8s
#100,38TKS
OPERSEL

(SP) ,#25
$

133566

000001

000100

133544

:2 IGNORE PREVIOUS INPUT

2218 IT A <CR>?
:sBRANCH IF NO
J2YES, IS IT THE FIRST CHAR?

064456
000060

15$:
16%:

#100,387KS
JSR

000060
000002

%SP).#bO
83
(SP) 467
18%

2(SP)

178:

001222

188:
.DSABL

INC

TYPE

BR
LSB

s sBRANCH IF YES
::SAVE NEW SWR
J:CLEAR UP STACK
:3ECHO <CR> AND <LF>
;;RE-ENABLE TTY XBD INTERRUPTS?
:JBRANCH IF NOT
..RE-ENABLE TTY KBD INTERRUPTS

PC,STYPEC

#60,(SP)+

000002
177776

:.1S IT A CONTROL-U?
¢ BRANCH IF NOT
s:YES, ECHO CONTROL-U (*W)

ssLET'S TRY IT AGAIN

000004
000002
000006
001223
001135

::PROMPT FOR NEW SWR
¢ CLEAR COUNTER
s THE NEW SWR
;s CHAR THERE?
s IF NOT TRY AGAIN

::PICK UP CHAR
soMAKE IT 7-BIT ASCII

SCNTLC
#6,SP

000001

SEQ 0177

as$TKB, - (SP)

#°C177, (SP)

000067

005266
056616
000667
104401
000720

+SMNEY

-(SP)
=(SP)

065222

TTY

I
16:37:12 PAGE 43-2

17%
(SP)
(SP)
(SP)

2(SP)
-Z(SP) (SP)
souss

208

s ;BRANCH IF YES

..STRIP-OFF SCI1!

s cBRANCH IF YES
..NO SHIFT PRESENT
i
CHAR OVER TO MAKE
M
ROOM FOR NEW ONE.
JsKEEP COUNT OF CHAR
ssSET IN NEW CHAR
2sGET THE NEXT ONE
2o TYPE 2<CRO<LF>
;oSIMULATE CONTROL-U

.'.'tfi.ti.t't.ttttlt.ttttttt"'ittt'tttit.tttttttltttit't!titfittttt

CZRJHEO RPQ4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 43-%

SEQ 0178

INPUT ROUTINE

;'Z:{E ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
o %

oW
* %

RDCHR
RETURN HERE

]

:GET A CHARACTER FROM THE QUEUE
s CHARACTER IS ON THE STACK
;:WITH PARITY BIT STRIPPED OFF

’

011646
016666
005066
005046
012746
000002

005737
001775

000002

000004
000004

000002

$RDCHR: MOV

MOV

CLR
CLR
MOV

045506
648:

044600
044600
177060
044604
044604
044606

000004

INC
cMP
BNE

044617
044604

RTI

BEQ
DEC
MOVB

2$:

MOV
RTI

(SP),=(SP)

4(SPS,2(SP)
4(SP)
-(SP)
#64S$,~(SP)
$TKCNT

18
$TKCNT
asrxoour 4(SP)
$TKQOUT

..Pugnpgoun THE PC AND

READY FOR A CHARACTER
Z:cst
*PUT NEW PS ON STACK
1IPUT NEW PC ON STACK
1:POP NEW PC AND PS

s-WAIT ON A CHARACTER

s ;DECREMENT THE COUNTER
::GET ONE CHARACTER
cUPDATE THE POINTER

S;KOOUTLHSTKQEND ..DID IT GO OFF OF THE END?

2
; :BRANCH IF NO
#$TKQSRT,$TKQOUT” ..R;SST THE POINTER

S NAREARARNAARAARAARRRANA
AN
ARAAARARRRAAAAARARNRNARAAANR RN RAANAY

s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

s*CALL:
[

RDL IN
RETURN HERE

. %

010346

SRDLIN: MOV
1%:
MOV

045660
045671

2%:

000177

108:

001222

4%:

045656
045656
000015

3s:

177777
001224

000004
045660

000002
000004

—
—

OO0

b ——
—

oo
NN

N#STTYIN+9.
,R3
43

:sSAVE R3

:.GET ADDRESS
..BUFFER FULL?
:BR IF YES

MOVE
CMPB
BNE

(SP)+,(R3)
#177,(R3)

BR
MOVB

18
(R3),9%

;sCLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

(MPB
BNE
CLRB

#15,(R3)+
pé 3
=1(R3)

;:CHECK FOR RETURN
::LO0P IF NOT RETURN

MOV
MOV

(SP)+ ,R3
(SP) ,-(SP)

..RESTORE R3

TYPE

Mov
MoV

$TTYIN:
SCNTLC:
SCNTLU:
$CNTLG:

R3,-(SP)
#STTYIN,R3

;o INPUT A STRING FROM THE TTY
< ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
;. TERMINATCR WILL BE A BYTE OF ALL 0'S

..60 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER
::18 IT A RUBOUT
2:SKIP IF NOT

TYPE

9%:

045676
045703

CMpP
8LOS

RDCHR

>
o

045552
045554
045560
045564

TTY

RTI
BYTE

BYTE
.BLKB
.ASCIZ
ASCIZ
ASCIZ

.SQUES
.98

JSLF

4(SP) ,2(SP)
#STTYIN,4L(SP)
0

0
9.
/7*C/<15><12>
/7*U/<155<12>
/%G/<15><12>

:3TYPE A '?!

JsCLEAR RETURN (THE 15)

:sTYPE A LINE FEED

..ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCI] CHARACTER ON !T
M
JRETURN
..STORAGE FOR ASCII CHAR.

TO TYPE

;s TERMINATOR
:SRESERVE 9. BYTES FOR TTY INPUT
;:CONTROL ‘'C**
::CONTROL 'V
:2CONTROL 6"’

INPUT ROUTINE

045710
045721

015
040

0
0

123
“16

SMSWR:
SMNEW:

LASCIZ
SCIZ

TTY

< <15><12>/SWR

NEW = /

= /

SEQ 0179

K 14
CZRJHEQ RPQ4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 43-4

CZRJHED RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81

READ AN OCTAL NUMBER FROM THE

TTY

.SBTTL
s AR

16:327:12 PAGE 44

SEQ 0130

READ AN OCTAL NUMBER FROM THE TTY

ARAR

R AN AR AR A

E RN RA AN

tTHIS ROUTINE WILL READ AN OCTAL

;*CHANGE 17 TO BINARY,

;*THE

AR RN

RN AR AANNARAARAA AN RN ONY

(ASCII)

NUMBER FROM THE

TTY AND

INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL

:*0CTAL DIGITS IF AN ILLEGAL CHARACTER IS READ A ''?'' WILL BE TYPED

A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
:*FOLLOWED BY
s*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

s*CALL:

:
o
b

045732
045734
045742
045744
045746

000004

046060

000002

$RDOCT: MOV
MOV
MOV
MOV
MOV
1$:
RDLIN
MOV
MOV
CLR
CLR

2$:
000060

000067

3s:

48:

001222
046070

000000

Movs
BEQ
CMPB
8GT
cMP8
BLT
ASL
ROL
ASL
ROL
ASL
ROL

177770

000012
046070

RDOCT
RETURN HERE

5$:

$HIOCT:

(SP) ,~(SP)
4(SP) ,2(SP)
RO,-(SP)
R1,-(SP)
R2,=(SP)
(SP) +,R0
RO,5%
R1
R2

(RO)+,-(SP)
3s
#'0,(SP)
48
#'7,(SP)
43
R1
R2
R1
R2
R1
R2

8IC

#2C7,(SP)

TST
MoV
MOV
MOV
MOV
MOV

(SP)+
R1,12(SP)
R2,$HIOCT
(SP)+,R2
(SP)+ ,R1
(SP)+,R0O

(_RB

(SP)+
(RO)

LMWORD

ADD
BR

RT’
TST

TYPE

.WORD

égP)+,R1

gOUES

;READ AN OCTAL NUMBER
:.LOW ORDER BITS ARE ON TOP OF THE STACK
::HIGH ORDER BITS ARE IN SHIOCT
;:PROVIDE SPACE FOR THE

:J INPUT NUMBER
;:PUSH RO ON STACK
;sPUSH R1 ON STACK
:sPUSH R2 ON STACK
JREAD AN ASCIZ LINE
::GET ADDRESS OF 1ST CHARACTER
;:AND SAVE IT
ssCLEAR DATA WORD
s:PICKUP THIS CHARACTER
:.1F ZERO GET OUT
¢ sMAKE SURE THIS CHARACTER
:.1S AN OCTAL DIGIT

;.2
sovb

;.8
;s STRIP THE ASCII JUNK
:sADD IN THIS DIGIT
;.LOOP
¢ CLEAN TERMINATOR FROM STACK
:oSAVE THE RESULT

;:POP STACK INTO R2
:.POP STACK INTO R1
::POP STACK INTO RO
: sRETURN
s CLEAN PARTIAL FROM STACK
soSET A TERMINATOR

s:TYPE UP THRU THE BAD CHAR.
-

.l,'.

.OCR..

$:TRY AGAIN

llF.l

::HIGH ORDER BITS GO HERE

CZRJHED RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 45
ERROR HANDLER ROUTINE
.SBTTL

mn 14

SEQ 0181

ERROR HANDLER ROUTINE

SRR NRARANARAANARAANRA
AR AN RN ARARAAANAANANANANNARAAARL AR AR ARAE
RS

INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

THE ERROR CALL

:*AND GO TO SERRTYP ON ERRCR
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW15=1
HALT ON ERROR
INHIBIT ERROR TYPEOUTS
;xSW13=1
;«SW10=1
BELL ON ERROR
;*SW09=1
LOOP ON ERROR
s*CALL
N

046072
046076
046100
046106
046106
046112
046114
046122
046130
046132
046136
046142
046146
046154
046162
046170
046172
046200
046202
046206
046210
046216
046220
046224
046232
046240
046242
046250
046254
046256

105037
104407
012737

0464632

105237
001775
013777
032777
001402

001103

104401

005237
011637
162737
117737

032777
001060
122737
001454
105737
001047
022737
001445
013746
012737
013737

000002
012637

$ERROR:

177777

REGSA1:
7%:

001102
002000

: ;ERROR= EMT AND N=ERROR ITEM NUMBER

IBSAVE
#-1,ERFLGS

$ERFLG
..SET THE ERROR FLAG
78
cDON'T LET THE FLAG GO TO ZERO
$TSTNM,3DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG

:ng10,iSUR

001216
001112
001116
000002
132736
001000

001116
001114
132750

#2 ,$ERRPC
SSERRPC,SI1TEMB

000177

001114

:577 SITEMB

046430

#-1,CPSAVE
1004$

1%:

177777

000004
046242
177766
7777
046256

000004

046262
046270
046272
046300
046302
046310
046316
046324

022737
001420
032737
001414
042737
113737
112737
000402

046326
046332
046332

105037

046432

032777

020000

177777

046430

000001

046430

000001
001114
000177

177766
046432
001114

132600

(SP) ,$ERRPC

04§

000004
046430
046430

L$BELL

S$ERTTL

#81T09,a3SWR
10048

046432

s;CLEAR THE ITEM BYTE SAVE LOCATION
;. TEST FOR CHANGE IN SOFT-SWR
;SET ERROR FLAG

ERRVEC,=(SP)
#10008
. ERRVEC
177766. CPSAVE
1001$

s;BELL ON ERROR?
::NO - SKIP
s sRING BELL
;s COUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION

:sSTRIP AND SAVE THE ERROR ITEM CODE
c.SEE IF LOOP ON ERROR IS SET
s :BRANCH AROUND ROUTINE IF SO
s.SEE IF THIS 1S THE POWER FAIL CALL
s :BRANCH AROUND ROUTINE IF IT IS
soSEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE
¢ ;BRANCH IF SO

..SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
sBRANCH IF SO

: :SAVE CONTENTS OF ERROR VECTOR

::SETUP 'TRAP' RETURN ADDRESS
;:MOVE CPU ERRCR REGISTER TO CPSAVE FCR TEST

:
10008

#-1,CPSAVE

#1001, (SP)

:sSET CPU ERROR REGISTER TIMEOUT INDICATOR
:SETUP RETURN ADDRESS

1001s$:

(SP)+,ERRVEC

s;RESTORE CONTENTS OF ERROR VECTOR

:
10028

#-1,CPSAVE

1004$

ssSEE ]F CPSAVF HAS (CPU ERR REG TIMEOUT INDICATION
:;BRANCH IF SO
;oSEE IF POWER MONITOR BIT IS SET IN CPY ERR REG
;JBRANCH IF 0K
ssCLEAR THE BIT FOUND SET
J:MAKE [BSAVE NON~ZERDO FOR DUAL ERROR CALL
J;SET SITEMB TO SPECIAL POWER FAIL POINTER
: sBRANCH OVER IBSAVE CLEARING

IBSAVE

:;CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

#BIT13,aSWR

¢+ SKIP TYPEOUT IF SET

1004$
#81700,CPSAVE
1004$
#81700,177766
$ITEMB, IBSAVE
#1727 ,$1TEMB

:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF

WD D DDDDDODDDODDDDDDDDDDTIDOODT@DRD>
>e T TEEY

tTHIS ROUTINE WILL

CIRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV~81
ERROR HANDLER ROUTINE

0466340

001004
004737
1€4401

046434
001223

105737

046432

BNE
JSR
TYPE

138

132554
104407

046432

032777
001402
013716
005737
001402
013716

00100y

105737
001230
000092
000000
000000

046432

001110
001214

011214

N 16
16:37:12 PAGE 45-1

132540

38:

49:

5%:

TST8
BNE
TST
BPL
HALT
CKSWR

BIT
BEQ

MOV
TST
BEQ
MoV

TST8
BNE
RTI
: .WORD
CPSAVE
IBSAVE: .WORD

208

PC,SERRTYP

.SCRLF

IBSAVE

aSWR

#BI1T09,aSWR
48
$LPERR, (SP)
ggSCAPE

SEQ 0182

;s SKIP TYPEQUTS
::G0 TO USER ERROR ROUTINE

¢oSEE IF IBSAVE IS LOADED
s ;BRANCH IF NOT - NO HALT ON PWR MON BIT ERROR
sHALT ON ERROR
;s SKIP IF CONTINUE
¢:HALT ON ERROR!
;. TEST FOR CHANGE IN SOFT-SWR
;.LOOP ON ERROR SWITCH SET?
:sBR IF NO

$ESCAPE, (SP)

J:FUDGE
;sCHECK
;sBR IF
s «FUDGE

IBSAVE
14

;;SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
::22?35“ BACK TO CALL ORIGINAL ERROR

::LOCATION TO SAVE CPU ERROR REG CONTENTS

RETURN FOR LOOPING
FOR AN ESCAPE ADDRESS
NONE
RETURN ADDRESS FOR ESCAPE

s.LOCATION TO SAVE ITEM BYTE

CZIRJHEQ RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE 46

B 15

SEQ 0183

ERROR MESSAGE TYPEOUT ROUTINE

.SBTTL

ERROR MESSAGE TYPEOUT ROUTINE

JoNARARANRRAANAARAAANRARCERNRANRAAANERAAAANRANANNANANARAROOANRACS

;*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB)

TO DETERMINE WHICH

s*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE 'ERROR TABLE'®' (SERRTB),
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

046434

$ERRTYP:

.SCRLF

104401
010046
005000
153700
001004

001223
001114

RO,~(SP)
RO
?:SITEHB.RO

013746

001116

$ERRPC,=(SP)

104402

108
177 ,R0
10008
STSTNM_PFTSTN

000177
001102
046632

046772

#PFECH,RO

10018

:
10008

003630
046530

001223
046546

001223

#SERRTB,RO
(RO)+,2$

.SCRLF

3s:

(RO)+,48

A ¥

0
,$CRLF

5%:

R1,-(SP)

6R6)+ R1
1578

TYPOC

7%:

06
046612

000764

046614
046616

012601
012600

MoV
TYPDS
TST

8s
a(R1)+,-(SP)

Mov
MOV

(SP)+,R1
(SP)+,R0O

TYPE

10§:

(RO)+,RO
(RO)
+
78
8(R1)+,-(SP)

(R1)
9s
118
63

BEQ

0466626

J:PICKUP THE ITEM INDEX

soJF ITEM NUMBER IS ZERO, JUST
:;TYPE THE PC OF THE ERROR
s SAVE SERRPC FOR TYPEDUT
s ;ERROR ADDRESS
::227758$°°0CTAL ASCII(ALL DIGITS)

..SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL

s ;BRANCH IF NOT

s.GET TEST NUMBER
s:MOVE POWER FAIL ERROR CALL TABLE TO RO
s ;BRANCH TO CALL ERROR
..ADJUST THE INDEX SO THAT IT WILL

1001$:

6%:

23"'CARRJAGE RETURN'' & '‘LINE FEED'’
2 :SAVE RO

WORK

FOR THE ERROR

TABLE

;:FORM TABLE POINTER
;:PICKUP 'ERROR MESSAGE'' POINTER
J:SKIP TYPEQUT IF NO POINTER
:2TYPE THE "ERROR MESSAGE''

;s 'ERROR MESSAGE'’' POINTER GOES HERE
3 'CARRIAGE RETURN'' € 'LINE FEED''
J:PICKUP 'DATA HEADER'' POINTER
;:SKIP TYPEOUT IF 0
,,]YPE THE 'DATA HEADER''

...bATA HEADER'' POINTER GOES HERE

;3" 'CARRIAGE RETURN'' & ‘'LINE FEED"’
::SAVE R1

J:PICKUP 'DATA TABLE'® POINTER
;:BR IF NO DATA TO BE TYPED

J;PICKUP 'DATA FORMAT'' POINTER

..'UCTAL“ OR 'DECIMAL"’
;BR IF DECIMAL

::SAVE @(R1)+ FOR TYPEOUT
;.60 TYPE=-=OCTAL ASCIICALL DIGITS)

;. SAVE 3(R1)+ FOR TYPEOUT
5:G0 TYPE--DECIMAL ASCII UITH SIGN
..IS THERE ANOTHER NUMBER?
:BR
|

..TESE THO(Z) SPACES
: sRESTORE R1
:;RESTORE RO

€15
CZRJHEQ RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 46-1

SEQ 0184

ERROR MESSAGE TYPEOUT ROUTINE

046620
046624
046626

104401
000207
040

001223
040

000

066632
066642
046724

046642
120
124

046724
117
105

046756
127
123

066756
046766
046772

046772
000
000000

001116
000

046430
000

TYPE

118:

RTS

.ASEIZ

.EVEN

,SCRLF

:."CARRIAGE RETURN'' & "LINE FEED'’

..TUO(Z) SPACES

sRETURN

PFECH1 ,PFECH2,
,PFECH3 PFECH4 ; ;WORDS DEFINING TABLES BELOW
PFECHT: .ASCIZ
?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET?
PFECHZ: .ASCIZ
?TESTNO ERR PC
CPUERREG?

PFECH:

PFECH3:

PFECH&4:
PFTSTN:

.WORD

PFTSTN,SERRPC,CPSAVE,O

.WORD

;;CONTAINS TEST NUMBER FOR PF BIT ERROR

CZRJHEO RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81
BINARY TO OCTAL (ASCI]) AND TYPE
.SBTTL
R

16:37:12 PAGE 47

D15

SEQ 0185

BINARY TO OCTAL (ASCII) AND TYPE

T T

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

;*OCTAL (ASCI]) NUMBER AND TYPE IT

:*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:

,*
J3
M
o

MOV
TYPOS
.BYTE
BYTE

NUM,~-(SP)

;sNUMBER TO BE TYPED
;:;CALL FOR TYPEOUT
;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
::M=1 0RO

::1=TYPE LEADING ZEROS

2 :0=SUPPRESS LEADING ZEROS

s *STYPON-==<ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;+$TYPOS OR $TYPOC
'*CALL:

o¥

MOV

TYPON

NUM,~(SP)

;:NUMBER TO BE TYPED
;sCALL FOR TYPEOUT

- %

*%XIEOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
* %

046774
047000
047006
047012
047016
047020
047026
047034
047042
047044
047046
047050
047054
047056
047062
047066
047072
047076
047100
047102
047106
047106
047110
047112
047114
047116
047122
047124
047130
047132
047134
047136

017646
116637
112637
062716
000406
112737
112737
112737
010346
0104646
010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204

000000
000001
047221
000002
000001
000006
000005

047221
000006
047220
047217
000012

047220
177770

047217

047217
047221
047216

MoV

TYPOC

$TYPOS: MOV
MOVB
Mov8
ADD
BR
S$TYPOC: MOVB
MOVB
STYPON: MOVB
MOV
MOV
MOV
MOVB
NEG
ADD
MOVB
MOvVB
MoV
CLR
18:
ROL
BR
2$:
ROL
ROL
ROL
MOV
3s:
ROL
DEC8
BPL
8IC
BNE
TST
BEQ
4$:
INC

NUM,~(SP)

a(SP) ,~(SP)
1(SP),SOFILL
(SP)+,$0MODE+1
#2,(SP)
$TYPON
#1,80FILL
#6,8$0MODE +1
#5,80CNT
R3,-(SP)
R4 ,~-(SP)
RS,-(SP)
$OMODE+1,R4
R4
#6 R4
R4, $SOMODE
$OFILL,RG
12(SP) ,RS
R3
RS
3
RS
RS
RS
R5.R3
R3
SOMODE
7%
#177770,R3
43
R4
5%
Ré

s sNUMBER TO BE TYPED

;:CALL FOR TYPEOUT

;:PICKUP THE MODE
;:LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
;:ADJUST RETURN ADDRESS
2sSET THE
s:SET FOR
;5:SET THE
;:SAVE R3
;sSAVE R4
:2SAVE RS
;sGET THE

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

;sSUBTRACT IT FOR MAX. ALLOWED
;sSAVE IT FOR USE
JoGET THE ZERO FILL SWITCH
;PICKUP THE INPUT NUMBER
;;CLEAR THE OUTPUT WORD
..ROTATE MSB8 INTO ‘''C*'
;60 DO MSB
..FORH THIS DIGIT

;;GET LSB OF THIS DIGIT
..TYPE THIS DIGIT?
:BR IF NO
..GET RID OF JUNK
JTEST FOR O
..SUPPRESS THIS 0?
:BR IF YES
::DON'T SUPPRESS ANYMORE 0°'S

E 15
CZRJHEO RPO4/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81 16:37:12 PAGE 47-1
047140
047144
047150
047154
047160
047164
047166
047170
047172
047174
047176
047200
047202
047210
047212
047214
047215
047216
047217
047220

SEQ 0186

(ASCII) AND TYPE

000060
000040
0647214
047214
047216

5$:
78:

6$:
000002

000004

8s:

BIS
BIS

410,83

BGT
BLT
INC

23
6$

MOV8
TYPE
DECB

BR
MOV
MOV
MOV

MOV
MOV
RTI

.BYTE

$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD

R3 és
8¢
iocnr

2%
(SP)+,RS
(SP)+ R4

(SP)+,R3
2(SP) ,4(SP)
(SP)+,(SP)

=lelelele

BINARY TO OCTAL

s sMAKE THIS DIGIT ASCII
scMAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING
:.GO TYPE THIS DIGIT
:cCOUNT BY 1
::BR IF MORE TO DO
¢ :BR IF DONE
2o INSURE LAST DIGIT ISN'T A BLANK
::G0 DO THE LAST DIGIT

RS
: cRESTORE

s :RESTORE R4

R3
:RESTORE

:oSET THE STACK FOR RETURNING

s ;RETURN
:-STORAGE FOR ASCI1I DIGIT
s s TERMINATOR FOR TYPE ROUTINE
ss0CTAL DIGIT COUMTER
s ZERO FILL SWITCH
: :NUMBER OF DIGITS TO TYPE

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

F 15

SEQ 0187

TRAP DECODER

.SBTTL

TRAP DECODER

JoRARARARARRARNAAANRA
AN RN CARNAN AR ANRARAN AR
ANAARANANNAARNRA AN

s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'‘TRAP'' INSTRUCTION

¢*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

:*GO TO THAT ROUTINE.
047222

047236
047242

010046
016600
005740
111000
006300
016000
000200

000002

RO,=(SP)

$TRAP:

047256

$TRPAD (RO) ,RO
RO

::SAVE RO
:sGET TRAP ADDRESS
: :BACKUP BY 2
s-GET RIGHT BYTE OF TRAP
s;POSITION FOR INDEXING
s INDEX TO TABLE
:.G0 TO ROUTINE

;:THIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO
047244
047246
047254

011646
016666
000002

000004 000002

$TRAP2: MOV

MOV
RTI

.SBTTL

(SP) ,~(SP)
4(SP) ,2(SP)

:-MOVE THE PC DOWN
;-MOVE THE PSW DOWN
s ;RESTORE THE PSW

TRAP TABLE

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

;*BY THE "'TRAP'' INSTRUCTION.

;

ROUT INE

$TRPAD: .WORD

04727

047244
044306
047020
046774
047034
044062

047272

045210

$GTSWR

;s CALL=GTSWR

TRAP+6(104406)

047274
047276

045120

$CKSWR
$RDCHR
SRDLIN
$RDOCT

s s CALL=CKSWR
22 CALL=RDCHR
s sCALL=RDLIN
2 s CALL=RDOCT
2 CALL=SCOP1
;s CALL=CHECKD
JoCALL=WAT

TRAP+7(104407)
TEST FOR CHANGE IN SOF T~SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZERO?T)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

GET SOFT-SWR SETTING

032434

CHECKT
WAIT.T

$TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

T.SCOP

4 0647310

$TRAP?

;:CALL=TYPE
e CALL=TYPOC
s 2CALL=TYPOS
2 :CALL=TYPON
s sCALL=TYPDS

TYPE

b e

047256

TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY

MY LOCAL SCOPES

CHECK DVA,RDY,DPR,DRY

WAIT LOOP

CZRJHED RP04/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81

POWER DOWN AND UP ROUTINES

.SBTTL

16:37:12 PAGE 49

G 15

Sea 0188

POWER DOWN AND UP ROUTINES

b wd amd
b

131572
047462
047364

POUER DOWN ROUTINE
#SILLUP, @#PURVEC ;;SET FOR FAST UP
#340, MPURVEC+2 ; :PRIO:7
MOV
MOV
RO, -(SP)
;:PUSH RO ON STACK
MOV
R1.-(SP)
JsPUSH R1 ON STACK
MOV
R2.-(SP)
::PUSH R2 ON STACK
MOV
R3,-(SP)
;sPUSH R3 ON STACK
MOV
R4 ,-(SP)
..PUSH R4 ON STACK
MOV
RS,-(SP)
;PUSH RS ON STACK
MOV
asun -(SP)
,.PUSH 8SWR ON STACK
MOV
SP, SSAVRé
J2:SAVE SP
#SPURUP @#PWRVEC ;,SET UP VECTOR
MOV
HALT
B8R
=2
:sHANG UP

$PWRDN: MOV

047456
000340

—t ad e

047312
047320
047326
047330
047332
047334
047336
047340
047342
047346
047352
047360
047362

sRARARRRANARARNARAARNAR
AT TR AN
ANANAANCRA AN A RN ARARARNNCARAARAAN

000024

047364
047372
047376
0647402
047406
047410
067414
047416
047420
047422
0476424
047426
047430
047436
047444
047646
047450
0476452
047456
047460
047462
047464

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401

047456
047462
047462
047662

000024

AL AR

SRRt

1$:

MOV
CLR
INC

BNE

MoV
MOV
MOV
MOV
MOV
MoV
MoV
MOV
MOV

000024
000026

047464

$SPWRMG:

.WORD

0046¢0
000002
000000
000776
000000
015

$SPWRAD:

.WORD

STLLUP:

HALT

012716

012

120

dliddd il

it tisdliiiidtsiisssissizasses)

:POWER UP ROUTINE

$PWRUP: MOV

131524

047312
000340

SAVR6:
sPOWER:

.ASCIZ
.EVEN

#SILLUP ,3#PWRVEC ..SETSFOR FAST DOWN
$SAVR6, SP
;s GET
$SAVR6
ssWAIT LOOP FOR THE TTY
$SAVR6
s:WAIT FOR THE INC
18
2.0F
WORD
(SP)+,aSWR
:;POP STACK INTO aSwR

(SP)+,RS

(SP) +,R4
(SP)+,R3

(SP)+,R2

:.POP STACK INTO R5

::POP STACK INTO R4
;:POP STACK INTO R3

:+POP STACK INTO R2

(SP)+,R1
::POP STACK INTO R1
(SP)+,R0
::POP STACK INTO
RO
#SPWRDN, @#PWRVEC” :;SET UP THE POWER DOWN VECTOR
#340,8#PWRVEC+2 ; :PRIO:7
cREPORT THE POWER FAILURE
$POWER
:;POWER FAIL MESSAGE POINTER
(PC)+,(SP)
¢ sRESTART AT BEGIN
BEGIN
s cRESTART ADDRESS

.~2
<15><12>''POWER’’

;. THE POWER UP SEQUENCE WAS STARTED
;. BEFORE THE POWER DOWN WAS COMPLETE
¢.PUT THE SP HERE

—

EM36:

EM37:
EM4O:

s NG N NI NI NI NI NI O N ~
By N Bt N Bt N NG PN Bt Bt g By et
N TN Bt B
Bt P
I Bt B
gB

EM35:

il eaieienienieloriaieiciiclielialalalealaleleic
il i lialtalioleia el
el [ by

EM33:

EM32:

NG s N

[ al

»»

EM31:

EM24:
EM2S:
EM30:

H 15

SEQ 0189

ERROR AND MESSAGE TABLES

1%
alalalalslialzlialialalalslalalislalslalalalalelislislslialslislialelalalaleYe)

e
e
D
b md d b i
b ) b b
e end wd d e O
b
b
b e ed —d O
b
-t ed ad OO =D

16:37:12 PAGE 50

mlwn

NO =B BNSNNNO
= =ONO0OONN==ONOOSONNO
= = =0 = NIN) W= OO HONWNI N = S WO WNW S NI N NS NWOWVIN S N = = O
O NN N

—d d e il b b O ad el el wd wd i cond e i wmd cd wd e e e i O e i e ed e D e el e i D e e
O
NO 2O
= =LO == uO=NOON =D audadQ =l =) AONO
= O =MNININ)
VVONIONON =2 2 NN
= O WONOMWNON NNV NNO NONM
SN = NN NN

—

AWV WA

SRR SN

288 8\:\1\0\4\)\0
Ny
NVV%OM
--YNO
SO
~ S8&% —=OOOWVONN

L7674

b d b b e cnd ) b e b d e b b b D b b i e d ) b O b D d d e b D md D mod D b el
NNV
= DO =NVNW=N=O=OOOCO==r=200NONO—=NNN
= NOOON)
S B NSNS
=S ONOS VNNV
IWS SN
=N S S V=N NNV WA

.SBTTL
[elelelelalelalelalalelelalele
o] o

M) ed ed ad e and cd cd wd

) ek

OO 00NN
NN = O D00 O S~ AN

CZRJHEQ RPO4/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81
ERROR AND MESSAGE TABLES

/WRONG DATA IN READING OR WRITING HARDWARE REGISTER/
/ERROR ON
DATA COMMAND/
/ERROR ON WRITE HEADER AND DATA/
/CONTROLLER OR DRIVE STATUS/
/REGISTER FAILED/
/NON EXISTENT REGISTER, PROGRAM ABORTED./
/WAIT LOOP FAILED/
/WRITE CHECK FAILING/
/REGISTER FAILING/
/INTERRUPT FAILING/
/ERROR ON DRIVE PRESENT/<CRLF>
/THE UNIT NO°'S FOUND BY SETTING RHAS/<CRLF>
/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 RFGISTER 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 RAER1 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
/1F 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/

SET/<CRLF>

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO Vv04.00 i7-NOV-81 16:37:12 PAGE 51

115

ERROR AND MESSAGE TABLES

1 0526441

200

101

114

4 052700

S 052706
6 052707
7 052774
g 053061

200
200
200
200
200

106

114

10 053107
11 053141
12 053142
13 053227
14 053302
15 053303

200
200
200
200
200
200

200

061

063

18 053407
19 053452

106
040
124
047
127

101
200
110
122
110

124
207
105
105
m

2 052526
3 052613

}g 053370

20 053465
21 053545
22 053625

00
200

111
125

106
120

101

114

124

105

117

127
116

122
117

.ASCII

LASCI]
LASCII

<CRLF>/ALL DCL'S UNDER TEST MUST BE LOCKED ON CORRECT PORT./
<CRLF>/IF CHANGES ARE REQUIRED ON PORT SWITCH, THEN A CYCLE/
<CRLF>/UP SEQUENCE IS REQUIRED FOR STROBING THE PORT SELECT/

LASCI1
LASCII
LASCII
LASCIZ

<CRLF>
<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)./

LASCII

106

116

124

PREAMB:

NDRVAS:

117

<CRLF>/FLOP./

.ASCII
LASCI1
LASCII
LASCII
LASCI]
LASCII

<CRLF>/NO 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,
SET SWITCHES/

.ASCI1
JASCI1

/FATAL ERROR - SEE DOCUMENT LISTING/<CRLF>
/7 /<CRLF><207><377><377><207><377><377><207><377><377>

LASCIZ - <CRLF>/13, 8 AND 2./<CRLF>
CPHALT:

.ASCI1
JASCI1
LASCIZ

/THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<CRLF>
/'READY', BECOME UNAVAILABLE, OR HAS STATUS BITS/<CRLF>
/wHICH CANNOT BE CLEARED/

SEQ 0190

DH34:

DH35:
39 057474
40 057551
41 057660
42
43 057767
2? 060055

040
120
040
120
040

DH36:

DH37:
DH4O0:
.EVEN

By $om @

g S

By By

g Bt B

g Bt S

St B

Bumg B

e By

g Srug By

CICIOIMIOIOYOIODN DY

N e N By g St P S N By P Bumg P B N g N Bmmg g g PN Bt N e PN B Py Bump P Bt P By Py g Bumg P Smme P Bt Poog e

PH33:

PN e

DH32:

DH31:

Bmg B

rH30:

Doy B

DH27:

g B

DH26:

Sog

DH24:

g B

DH22:

DH21:

DH20:

DH17:

Sumg S

DH15:
DH16:

120
040
120
040

DH14:

20 055377
21 055466
22 055554
23 055652

120
040
120
040
120
040
120
040
120
040

DH11:

054505
054561
054642
054730
055016
055103
05517
055236
055304
055342

10
11
12
13
14
15
16
17
18
19

EEII P LI PRI ED P EIIEEEE BRI >

040
120

120

DH2:

BRI PP BRI LI DL

8 054356
9 054455

7 054257

DH1:

wwn

040
120
040
120
040

2 053725
3 053772
& 054036
S 056103
6 054171

O=O =L Ok OO =t
O = O = OO
HOPOHOL
OO OOHrOHOTON0O
OWO WO WO WO WO WWOWOWO
WO W

—

[V,]
wn

W
o~

ERROR AND MESSAGE TABLES

16:37:12 PAGE 52
(7 XY XY XY X XY XY X e XY e XY X7 XY e X e XY e X e Xt X Y e XY X X 7t X 7t X Tt R 7 X Y e X 7 e X Y X e X 7t X 7t X 7 e X e X 7 X7 e X e X 7 X7 s X 72 X 70 X7 X 70 17, )

CZRJHEQ RP04/5/6 DSKLS PT2 MACRO Vv04.00 17-NOV-81

/PC
/
/PC

/
/PC
/

/PC

/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/
/PC
/

J 15

TEST

SEQ 019
REG.
ADDR.

WORD
NO
FAILING

REG ADR

ACTUAL /<CRLF>
DATA/
600D
BAD/<CRLF>
DATA
DATA/
CONT.
CONT.
CONT.
RHCS2
RHDS?
RHCS1
CONT.
CONT.
CONT.
BAD REG RHCS1
RH(CS2
GO0D
DATA

FAILING
REG ADR
REG ADR/
WAT
BIT
PC
WANTED
CONT.
CONT.
RHBA
RHDB
CONT
CONT

RHER1
CONT
RHCS1
RHAS
UNIT

RHDST
CONT.
PC OF

JSR
PC OF
JSR
PC OF
JSR
WORD
NO
PC OF
JSR
PC OF
JSR
600D

ECCT

600D

ECCT

REG

REG/<CRLF>

CONT.
RHWC
CONT

CONT.
RHCS1
CONT

BAD
600D
RHLA
RHLA
FAILING CONT.

REG ADD RHCST1
FAILING 600D
REG.
DATA
REG.
600D
ADDR
DATA

NO
600D

B8AD

DATA
600D
DATA
600D

DATA

CONT,/<CRLF>
RHCS2/
CONT/<CRLF>
RHDS1/

SECTOR/<CRLF~
CLOCK/
CONT./<CRLF>
CONT.
RHDS1
RHER1
/
RHCS?2
ACTUAL /<CRLF>

SECTOR
NO
CONT.

DATA/
BAD/<CRLF>
DATA/
CONT.
CONT.
RHDS1
RHCS1

BAD

DATA
CONT.

RHCS1

ECC2
600D

CONT./<CRLF>
RHERT1
/
CONT.
CONT.
CONT./<CRL
RHCS1
RHDST
RHER1/
/<CRLF>
CONT.
CONT.
RHDS1
RHER1
/
DATA/<CRLF>
USED/
/<CRLF>
RHER1
600D

REG.
REG.
POSITON REG./
ECC2
PC OF
RHMR
POSITON PATTERN/<CRLF>
J
.
REG.
REG./
POSITON POSITON 600D
PATTERN DATA
GOOD
ECC

GOoD

FAILING CONT.

REG ADR RH(CS1

/<CRLF>
/

ADDRESS CONTENTS/

RHER3
RHAS
RHER2
CONT
CONT/<CRLF>
RHAS
RHDS1/
RHCS2/<CRLF>
UNIT/

600D
DATA
WORD
NO
WORD

CONT./<CRLF>
RHER1/
CONT.
CONT.
RHDS1
RHER1

ECCT

CONT.

RHCS2

N-CODE /<CRL
ENVLOPE ZEROS
/

ECC2

ECC

CONT.

CONT./<CRLF>
RHER1/

RHDS1I

CZRJHEQ RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81

ERROR AND MESSAGE TABLES
1

16:37:12 PAGE 53

K 15

060144

001116

003510

031620

DOT1:

.WORD

.WORD
.WORD

SERRPC,TSTNM_ ERWORD,$GDDAT,0
SERRPC,TSTNM,ERWORD,$GDDAT,$BDDAT,0

5 060206
6 060226
7 060250
8 060260

001116
001116
001116
001116

003610
003610
003610
003610

001122
001122
001200
001206

DT11:
DT14:
DT15:
DT16:

.WORD
.WORD
.WORD
.WORD

SERRPC,TSTNM, $BDADR,(S1,CS2,DS1,ER1,0
SERRP(C,TSTNM,SBDADR,$BDDAT,(S1,(S2,DS1,ER1,0
SERRPC,TSTNM, $TMP1,
SERRPC,TSTNM,STMP3, STMP1,$TMPO,$BDDAT,0

11 060316

001116

003610

001316

DT20:

.WORD

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

13 060352

001116

003610

001124

DT22:

.WORD

}g 060426

001116

003610

2 060160
2 060172

13 060276
12 060336
14 060364
15 060604

001116
001116

003610
003610

037030
037030

001310
001314

001320
001414

DT2:
»DT3:

DT17:
DT21:

.WORD

DT27:

.WORD

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

SERRPC,TSTNM,PCJSR,REGADR,$GDDAT,$BDDAT,0
S$ERRP(C,TSTNM,ERWORD,$GDDAT,$BDDAT,CS1,DS1,ER1,0
SERRPC,TSTNM,PCJSR,ERWORD,$GDDAT,$8DDAT,CS1,DS1,ER1,0

001414
037030
001414

DT30:
DT31:
DT32:

.WORD
.WORD
.WORD

22 060552
23 060572

001116
001116

003610
003610

034556
034556

DT34:
©DT35:

.WORD
.WORD

003610
-

001344

003610

001122

26 0606164

25 060632
26

091116

001116

003610

%g 060656

001116

29 060676
30 060703
%} 060707

000
000
000

33
34
35
36
37
gg

060714
060723
060733
060736
060743
060752

000
000
000
000
000
000

40 060761
41 060766
42 060772

000
000
000

001414
0014146

$ERRPC,TSTNM.PCJSR.MR.ECi,EC2,0

SERRPC,TSTNM,EC1,POSITI,GECC1,GECC2,EC2,DATENV,ZCODE.O

.BYTE
.BYTE
.BYTE

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

000
000
000
000
009
000

000
000
000
000
000
0v0

DF?1:
DF14:
DF15:
DF16:
DF17:
DF20:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

0,0,0.,0.0,0.0
0,0,0,0,0,0,0.0
0.0.0
0,0.0,0,0
0.0,0.0,0,0.0
0,0,0,0,0,0.0

000
000
000

DF21:
Dr22:
DF24:
DF26:
DF27:

.BYTE
.BYTIE
.BYTE

.BYTE
.BYTIE

0.0.0.0,0
0.0.0,0
0,0.0,0,0.0.0
0,0,0,0,0.0.0.0
0.0,0,0.0.0

DF31:
Dr32:
DF3s:
DF34:

.BYTE
.BYTE
.BYTE
.BYTE

0.0.1,0,0.0.0.0
0,0.0.1.0.0.0,0.0
0.0,0,1,0.0,0,0
0,0.0,0,0.0.0

000
000
000
000

001
000
000
000

000
000
000
000

.WORD

DF1:
DF2:
DF3:

47
48
49
50

061065
061075
061103
061114

.WORD

000
001
001

000
000

51
52
53
54

DT37:

SERRPC,TSTNM,PCJSR.ERWORD,$GDDAT,CS1,DS,ERT,0

SERRPC,TSTNM, GECC1,GECC2,WECC1,WECC2,DISK,0
S$ERRPC,TSTNM,GECC1,GECC2,EC2,EC1,POSITI,ER1,0

SERRPC,TSTNM,$BDADR,(S1,(S2.DS1,ER1,0

000
000

061025
061035
061046
061056

DT36:

.WORD

43 061001
44 061011

000

DI33:

SERRPC,TSTNM,DST,$SBDDAT,S$TMP1,$TMP2,STMP3,0
SERRPC,TSTNM,PCJSR,$BDADR,CS1,(S2,DS1,ER1,0

DT40:

000
000
000
000
000

22 061017

SERRPC,TSTNM,SGDDAT,$BDDAT,0

001414

003610
003610
003610

003610

SERRPC,TSTNM.(CS1,AS,DS1,0

.WORD
.WORD

001116
001116
001116

001116

$ERRPC,TSTNM.BA,DB.WC,CSi,CS2.0

DT24:
DT26:

18 060444
19 060462
20 060504

21 060530

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

000

000
000
000
000

000

000
000
000
000

DF30:

DF35:
DF36:
Dr37:
DF40:

.BYTE

.BYTIE
.BYTE

.BYTE
.BYTE

0,0,0,0,0.0

0,0.0,0,0.0.0.0
0,0.0,0.0.0
0.,0.0,0,0,0.0,0,0
0,0,0,0,0,0.0

SEQ 0192

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

L 15

SEQ 0193

33
34 063046
35 063056
36 063072
37
38 063104
39 063107
40 063114

61
42

000200

003610

031620
031620
031620

000
000
000

g Bg Pg

I N

AIIIOIIOIIICHICIIIOIOIHIOHIOIOIIOICIHIOIOD

NN N N N NI N N N

N NI N NI NI NI NI NI N NI N

g g g S Sy g B S By g Dot o B o S S umg Pt S Bt Do

s N

e N

g g S ey g by

.AS

OIS

DL nLIBLLKLHLKLLHKNLKILILLNKINWND

Omdd bbb b ed b b ed e O b e c D b ed ek b = OO
SN
=N = = OO —=ONONNINIS =OONNONON
O
WOV
NN = ONN =2 NN O O NNWNON —2 —

EM42:
EML3:

.AS

OWOWOW

—dadod o
d b md b b d eed b ed b b v md e d d ed b b
MNIO =IOt b cdemd =d = (N
= PININ) = O b = b b b
WWNOWVINNNNNNOOWNOWMWVNIIWNN
W= = NO O

23 062467
2§ 062541
2
26 062570
27 062620
28 062650
29 062715
30 062761
g; 063016

OO
O =
HOHOO

[p8]

N
n

2007
2057
2134

b b md d b o wd b eod b d e d D e e b d
b d e e e
O==NON==2OOCN —=NNOCOO=NOO
NN
==auNINOOONS SHNWNNINININ
= ONNININ VIR

-—

ggooooooooo
OOOOSOOOO
0O
o

O V00NN

d
e ed d d ek d o

1461

OOt
=t
SO
OOOOO0OO

0
061337
0 61366
0

N =

NN = OO0 ~NON NN

ERROR AND MESSAGE TABLES

/RH11 REGISTER FAILED TO RESPOND TO A ‘'TST'' COMMAND/
/RH11 ILLEGAL REGISTER RESPONSE TEST/
/MOVE BYTE TO WORD COUNT TEST/
/81S BYTE TO WORD COUNT/
/BJC BYTE TO WORD COUNT/
/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 B8Y
RDY!IE BITS SET FAILED TO OCCUR/
/IE FAILED TO CLEAR FOLLOWING AN INTERRUPT/
/AS REGISTER WRITE TEST/
/PC
/
/PC
/
/PC
/

TEST
NO
TEST
NO
TEST
NO

ILLEGAL/<CRLF>
ADDRESS/
REGISTR CONT
CONT/<CRLF>
ADDRESS GOOD
BAD/
REGISTR CONT/<CRLF>
ADDRESS/

SERRP(C, TSTNM,REGADR, 0

S$ERRPC,TSTNM_ REGADR,$GDDAT, $BDDAT,0
$ERRPC, TSTNM REGADR,S$GDDAT,0

0.0.0
000'0‘000
0.0,0.0

= 000200

ACL
=
ACU
=
ADTIMO
AOE
=
AS
ATA
=
ATABLE
ATTENT
ATO
=
AT1
=
AT2
=
AT3
=
AT4
=
ATS
=
AT6
=
AT7
=
A16
=
A17
=

BA
BADTMO
BAI
=
BASECH
BEGIN_

BEGINZ
BITST
BITO =
BITO0 =
B8IT01 =
BIT02 =
BIT03 =
BIT04 =
BIT05 =
BITO6 =
81707 =
BIT08 =
81109 =
8IT1
=
8IT10 =
BIT11 =
BIT12 =
BIT13 =
BIT14 =
BIT15 =
BIT2 =
BIT3 =
BIT4 =
BITS =
BIT6 =
BIT7 =
BIT8 =
BIT9 =

000040
100000
036436
001000
001332
100000
003620
001416
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

001310
004540
000010
035506
004620
004626
031622
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002

002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
BLT1
031650
BLT2
031672
BLT3
031702
BPTVEC= 000014

001326

001352

CHECKD=
CHECKE
CHECKT
CKSWR =
CLAREA
CLDISK
CLR
=
COMHD
coMPa
COMPAR
COMWHD
COUNTD
CPHALT
CPSAVE
CR
=
CRC
CRLF
=
CSF
=

104414
032306
032116
104407
031772
032054
000040
036550
037622
032756
041672
040270
053407
046430
000015
033270
000200
000002

DAREAD

036764

Csu
CS1
€S2
cyL

= 000010
001314
001312
036710

DATENV
DAWORD
DB
0CK
=
DCLEAR
DDISP =
DENVL =
DE1__
=
DFF20 =
DF1
DF11
DF 14
DF15
DF16
DF17
DF2
DF20
DF21
DF 22
DF 24
DF 26
DF27
DF3
DF 30
DF 31
DF 32
DF33
DF 34

DF 35
DF 36
DF37
DF40
DF&42

034574
036770
001304
100000
001440
177570
000200
000040
000002
060676
060714
060723
060733
060736
060743
060703
060752
060761
060766
060772
061001
061011
060707
061017
061025
061035
061046
061056

061065
061075
061103
061114
063104

DF&44

DF5
DF 54
DH1
DH11
DH14
DH15
DH16
DH17
DH2
DH20
DH21
DH2?
DH24
LH26
DH27
DH30
DH31
DH32

063107

= 000001
063114
053655
054103
054257
054455
054505
054642
053772
055016
0551
055304
055377
055554
055751
056106
056237
056434

DH33
DH34
DH35
DH36
DH37
DH40
DH42
DH44
DH54
DIGB =
DISK
DISPLA
DISPRE
DLT
=
DL64
=
DMD
=
DPR
=
DRY
=
DST

056650
057046
057220
057414

D121
D122
D124
D126
pre7

060336
060352
060364
060404
060426

057551

057767
062570
062650
062761
000004
040626
001142
000174
100000
000020
000001
000400
000200
001320
DSWR = 177570
DS1
001336
DY
001340
DTAGAP 041632
DTE
= 010000
DTSY = 001000
DT
060144
DT11
060206
DT14
060226
DT15
060250
DT16
060260
D117
060276
DT2
060160
DT20
060316

D13

060172

EM6

047606

ERSTAR
ERUNIT
ERWORD
ER1

036522
036520
037030
001316
001322
001330
000001
000010
000002
000020
000004
000040
010272
011676
012024
014540
000200
000020
035352

D130
T3
DT32
D733
D734
D735
D136
D137
DT40
DT42
DT44
DT54
DVA
=
ECDATA
ECH
=
ECI
=
ECORR
ECTEST

060444
060462
060504
060530
060552
060572
060614
060632
060656
063046
063056
063072
004000
034554
000100
004000
035200
034612

EM60
EMS1
EM62
EM63
EM64
EM6S
EM66
EM67
EM70
EM71
ERCRC
ERFLGS
ERHDGP
ERHEAD
ERPOS
ERR
=
EXROR =
ERRVEC=

EM11

047645

ER2

EC]
EC2
EMTVEC=
EMI
EM14
EM15
EM16
EM17
EM2
EM20
EM21
EM22
EM24
EM25
EM30
EM3]
EM3?
EM33
EM34
EM35
EM36
EM37
EM4O
EM42
EM43
EM44
EM4S5
EM4E
EM47
EM50
EM51
EM52

SM53
EMS4
[ M55
M56

tM57

001344
001346
000030
047474
047700
047720
047770
050011
047557
050035
050056
050100
050473
050566
050626
050747
051071
051355
051427
051522
052016
052203
052271
061,24
061207
061253
061310
061337
061366
061423
061461
061502

061542
061602
(61641
061654
061671

061720
062007
062057
062134
062212
062246
062330
062402
062467
062541
042066
001406
042070
042064
035176
040000
104000
000004

ER3
EXT1
=
EXT10 =
EXTZ
=
EXT20 =
EXT4
=
EXT40 =
€00
EN
E12
E44
FEN
=
FER
=
FILLEC
FIRST
003612
FMT22 = 010000
FNWORD 042106
FORMAT 040272
FOUT
042112
FSYNER 042062
FUTABL 001432
GCRC
062056
GECC1
034556
GECC2
034560
GO
= 000001
GRV
= 000010
GTSWR = 104406
HADTMP 034600

HARDER
HCCRCE
HCE
=
HCI
=
HCRC =

034572
033672
000200
002000

000400

r=mTITONNMONMEBM NI ONYMOMND

ABS

O TMMOOMEZERT RC=mITO NTNTMOMNADZRT R~ IOMNTMOMNADERMM R

SEQ 0194

SYMBOL TABLE

—_—

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

HDESYN
HOWSYN
HEADER
HEDGAP
HEDSYN
HEGAP
HT
=

042072
040624
040600
036724
036726
040612
000011

L00
LO2
LO3
LO4
LOS
LO6
L07

103
104
105
106
107
114
115

001474
000002
000020
000100
004000
010246
010352
010446
010546
010646
010746
011046
012216
012420

L14
L15
L16
L21
L22
L30
L3
L34
L3S
L36
L40
L4
L42
L43

IAE
=
IBSAVE
lE
=
ILF_
=
ILLEGL
ILR
=
I0TVEC=
IR
=
IXE
=
100
102

116
124
JP1
JP2
JP3

JP4
KEY1
KEY2
KIPARO=
KIPAR1=
KIPARZ2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG=
KIPAR7=
KIPDRO=
KIPDR1=
KIPDR2=
KIPOR3=
KIPDR4=

002000
046432
000100
000001

012562
013156
016312
016342
016752
016766
036714
036716
172340
172342
172344
172346
172350
172352
172354
172356
172300
172302
172304
172306
172310

KIPDRS= 172312
KIPDRG= 172314
KIPOR?= 172316

LAD
LERR
LF
LST

LST14A
LSTISA
LST16A

001350

032034
031616
= 000012
= 002000

012246
012450
012620

010242
010350
010442
010540
010636
010740
011036

L10
L1
L12
L13

011172
011634
011762
012074

Lé44
L4S
MAKECY
MASK
MCLK =
MCPE
=
MHS
=
MID
MIDDLE
MINX
=
MMVEC =
MoL
=
MPE
=
MR
MRD
=
MSE
=
MSTCK =
MWR
=
MXF
=
NCODE
NCOUNT

012212
012412
012552
012744
013040
013266
013366
013472
013606
013722
014036
014140
014250
014364

014474
014616
0344
4
031614
000002

020000
001000
034424
034322
000004
000250
010000
000400
001334
000020
000020
000010
000040
001000
034564
034566

NDRVAS
053107
NED
= 010000
NEM
= 004000

NHS

= 002000

NUNIT
N1Y
N2

001400
011666
2012

NOPFRA
NOSYNC
NOUNIT
NOWORD

001432
037024
001376
036756

N14
N36
ocyL
=
OF
OFREV =
OFSETC
0F100 =

0F200
0F25
0F400
0F50

012240
013762
100000
001324
000200
001464
000004

=
=
=
=
0F800 =
OPDCL =
OPERSE
OPI
=
OR
=
out
000

000010
000001
000020
000002

PFECH
PFECH1
PFECH2
PFECH3
PFECH4

046632
046642
046724
046756
046766

000040
000100
031004
020000
000200
036774
010274
010
011210
021
012772
043
014412
044
014516
PAR
= 000010
PAT
= 000020
PCJSR
001414

PFTSTN
PGE
=
PIE1
=
PIE10 =
PIE11 =
PIE12 =
PIE13 =
PIE14 =
PIETS =
PIE16 =
PIE17 =
PIE18 =
PIE19 =
PIE2
=
PIE20 =
PIE21 =

046772
002000
100000
000100
000040
000020
000010
000004
000002
000V01
100000
040000
020000
040000
010000
004000

PIE22 = 002000
PIE23 = 001000
PIE24 = 000400

PIE2S = 000200
PIE26
PIE27
PIE28
PIE29

=
=
=
=

000100
000040
000020
0000:0

PIES = 020000
PIE30 = 000004
PIE31 = 000002

SEQ 0195
PIE32 =
PIE4
=
PIES
=
PIE6
=
PIE7
=
PIE8
=
PIE9
=
PIP
=
PIRQ
=
PIRQVE=
PKACK

PLU _ =
POSITI
PRE
=
PREAMB
PROG
=
PRO
=
PR1
=
PR2
=
PR3
=
PR4é
=
PRS
=
PR6
=
PR7
=
PS
=

PSEL

PSU
=
PSW
=
PUTREG

PWRVEC=

P12
P22
P24
P3
RAW
=
RCOM
RCYL
RDCHR =
RDHEAD
ROLIN =
RDOCT =
RDY
=
READ
READAT
READIN
RECALI

000001
010000
004000
002000
001000
000400
000200

020000
177772
000240
001470
020000
034570
000020
(052441
001000
000000
000040

000100
000140
000200
000240
000300
000340
177776
002000
000001
177776
031554
000024

RHCA
RHCC
RHCST1
RHCSZ2
RHCS3
RHDB
RHDST
RHDS1
RHDT
RHEC1
RHEC2

001252
001276
001240
001236
001300
001230
001244

RHER1
RHERZ
RHER3
RHLA
RHMR
RHOF
RHSN
RHW(
RH70
RH70CK
RKEY1
RKEY2
RMR
=
RNCTR1

RNO
RNWAT1
RPTRP1
RPYRP2
RPVEC

001262
001264
001270
001272
001242
001246
001254
001274
001260
001250
001266

001232
003614
005246
037020
037022
000004
041670
043226
041750
030316
030422
001226

REDATA
REFOR
REGADR

034604
03460¢
034610
034602
000020
043230
037014
104410
037032
104411
104412
000200
037624
001456
001472
001436
043232
001460
031620

RPVECT
043342
RSETR
037016
RSYNC
037012
RUNCTR
036546
RUNWAT
036626
R11
011616
R1S
012442
R16
012612
R44
014542
Ré
=X000006
R7
=X000007
SAVDT
001410
SAVER
032554
SAVSN
001412
SC
= 100000
SCOPE = 000004
SCOP1
SCRC
SCYL

= 104413
042140
042130

REINTO
RELEAS
RESVEC=
RETCL

002544
001442
000010
001466

SC10
SC2
SC20
SC¢

=
=
=
=

REGSAT

RHAS
RHBA
RHBAE

046106

001256
001234
001302

SC1_

SEARCH
SECGAP
SECOTR

= 000100
001000
000200
002000
000400

042756
040530
036712

NC.meIOYTMONDEE

SYMBOL TABLE

N 15

16:37:12 PAGE 56-2

CZRJHED RP04/5/6 DSKLS PTTM MACRO V04.00 17-NOV-81

CZRJHEO RP04/5/6 DSKLS PT2 MACRO v04.00 17-NOV-81 16:37:12 PAGE Sk-g

SEQ 0196

SYMBOL TABLE

SECTR
SEECOM
SEGPER
SELECT
SELTST

042754
001462
042060
001402
006742

SILOTB

040626

SERCH
SETCK]1
SETCK2
SETCK3
SETDSK
SILOSZ

001444
015436
016132
016656
033544
003616

SKEY1

042134

SKEY2
042136
SKI
= 040000

SN
001342
SRO
= 177572
SR1
= 177574
SR
= 177576
SR3
= 172516
SSECTR 042132
SSYN
036722
SS1
017236
$S10
017404
$S12
017434
SS13
017442
SS14
017450
$S15
017510
$S2
017674
Ss3
017264
SS4
017270
SS3
017274
SS7
017322
STACK = 001100
START
004634
STKLMT= 177774
SWR
001140
SWREG
000176
Sw0
= 000001
w00 = 000001
sw01
= 000002
Sw02 = 000004
Sw03 = 000010
sw04 = 000020
SW05 = 000040
SWw06 = 000100
w07 = 000200
Swo8 =
00
sSw09 = 001000
W1
=
002
SW10 = 002000
Wil
=
000

swi2
swWw13
W14
sWi5
sw2

=
=
=
=
=

010000
020000
040000
100000
000004

sw3
Swé
SWwS
swé
sw?

= 000010
= 000020
= 000040
= 000100
= 000200

0134%6
013532
01364¢
01377,
006216

T81TVE= 0000:4

TST34
TST35
TST36
1S137
TST4
TST40
TST41
TST42
TST43
TST44
TST4S
TST46

TESDTE
TESTAD

1STS
TST50

006756
015750

sw8
=
SWw9
=
s
s12
$36
TAGDTE
TDF

= 000040

TIMCNT
TIMOT =
TKVEC =
TMPILL
TOLGAP
TOTALA
TPVEC =
TRAPVE=
TRE
=
TRK
TRK1
=
TRK10 =
TRK2 =
TRK20 =
TRK4 =
TRTVEC=
TSECC
TSECCG
TSTNM
TST1
T1ST10
TST11
TST12
T1ST13
TST14
TST15
TST16
T1ST17
TST2
1ST20
TST21
1122
TST23
1ST24
TST25
TST26
T1ST27

TST3
TST30
TST31
TST32
TST33

000400
001000
011612
011746
013716
001430

001426
031002

032632
000004
000060
001422
041634
001420
000064
000034
040000
036662
004000
040000
010000
100000
020000
000014
001424
034562
003610
005362
010142
010176
010302
010374
010472
010570
010672
010770
0€6066
011072
011216
011700
012026
012146
012346
012506
012660

006144
013000
013076
013206
013322

TST51
TST52
1ST53
TST54
TST55
TST56
TST57
1ST6
TST60
TST61
TST62
TST63
TST64
TST65
T1ST66
TST67
TST7
TST70
TST71
1ST72
TUF
=
TY
TYPDS =
TYPE
=
TYPOC =
TYPON =
TYPOS =
T.SCOP
UN
UNIT
UNITS
UNITSL
UNLOAD
UNS
=
UPE
=
us!t
=
use
=

usé
UWR
un
VAR1
VARZ

016734
016742
016774
= 000002
= 010000

014074
014176
014304
014420
014550
014670

Vv
=
WAIT.T
WAT
=
WC
WCE
=
WCF
=

015256

wcu

016474
017134
017710
020336
021054
021600
022342
007452
022766
023504
024230
024772
025416
026134
026670
027446
010000
030224
030336
030432
000100
037026
104405
104401
104402
104404
104403
032036
006134
001374
001354
001404
001434
040000
020000
000001
000002

WECC2
WKEY1
WKEY2
WLE
=
WORD
WRCHDA
WRCHDT
WRCHEK
WRCHHD
WRDATA
WRFROM
WRHEAD
WRIDAT
WRIFOR
WRITE
WRL
=
WRU
=
WSECTR
WSSYNC
WwSU
=
WTRK
WWORD
X
XE2
X1
Y
Y1
ICODE
ZEF.
=
ZWORDS
$SAUTOB
$8DADR
$8DDAT
$8ELL
$CHARC
$CKSWR
$CMTAG

014724

TST47

VAR3
VARG
VARS
VUF
vu30

= 000004
= 000010
011570
016266
016274

WCR(

WwCYL
WECCY1

045703
045676
001223
044276
030756

0460610

$CNTLG
S$CNTLU
$CRLF
$DBLK
$DOAGN
$DTBL
SENDAD
SENDCT
SENDMG
$ENULL
$EOP
$EOPCT

042046
041626

SERMAX
$ERROR

001115
046072

000100
032434
104415
001306
040000
000040

= 000001

$CM1
=
$CM2 =
$CM3 =
$CM4 =
$CNTLC

041630
042052
042054
004000
037620
033120
001450
001446
032606
040276
001500
042142
001452
001454
040056
004000
000400
042050
040576
000004
042004
040054
036720
006414
011672
036760
011266
034576
000400
040274
001134
001122
001126
001216
044574
045120
001100

000006
000014
000006
000006
045671

SERFLG

$ERRPC
$ERRTB
SERRTY
SERTTL
$ESCAP
SFILLC
$SFILLS
$GDADR
$GDDAT
$GET42
$GTSWR
$HD
=
$HIOCT
SICNT
SILLUP
$INTAG
SITEMB
SLF
SLPADR
$LPERR
SMNEW
SMSWR
SMXCNT
SNULL
SNWTST=
SOCNT
SOMODE
SOVER
$PASS
SPOWER
SPWRAD
SPWRDN
SPWRMG
SPWRUP
SQUES
SRDCHR
SRDLIN

044266
030746
030714
030765
030762
030660

030706
001103

( "1116
003630
046434
001112
001214
001156
001155
001120
001124
030736
045210
000000
046070
001104
047456
001135
001114
001224
001106
001110
045721
045710
044060
001154
000001
047216
047220
044044
001100
047464
047452
047312
047446
047364
001222
045462
045552
$SRDOCT 045732
$RDSZ = 000011
SREGAD 001160
SREGD
001162
$REG1
001164

¢ 18
CZRJHED RPO4/5/6 DSKLS PT2 MACRO V04.00 17-NOV-81 16:37:12 PAGE 54<4

SEQ 0197

SYMBOL TABLE

$SREG2
001166
$REG3
001170
SREG4
001172
SREGS
001174
SRTNAD 030760
$SAVR6 047462
$SCOPE
043422
$SETUP= 000117
$SS1
= 000000
$STUP = 177777
$SVLAD 044016
063120
000000
ERRORS DETECTED:

$SVPC =
$SWR =
$SWRMK=
STIMES
$TKB
STKCNT
STKINT
$TKQEN=
STKQIN
$TKQOU
$TKQSR

. ABS.

000214
167770
000000
001212
001146
044600
044620
044617
044602
044604
044606

$TKS
$TKSRV
$TMPO
$TMP1
$TMP2
$TMP3
$TMP4
$TMP5
$TN
=
$TPB

000
001

VIRTUAL MEMORY USED:
56576 WORDS
( 221 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
71 PAGES
CZRJHE .BIC,CZRJHE=CZRJHE .DOC,CZRJHE ,[20,0]1SYSMAC/M

001144
044670
001176
001200
001202
001204
001206
001210
000073
001152

$TPFLG
$TPS
STRAP
$TRAP2
$TRP =
$TRPAD
STSTNM
STTYIN
$TYPDS
STYPE

001157
001150
047222
047244
000016
047256
001102
045660
044062
044306

STYPEC
STYPEX
$TYPOC
STYPON
$TYPOS
$XOFF =
$XON_ =
$XTSTR
$$GET4=
SOFILL

044456
044576
047020
(047034
046774
000023
000021
043460
000000
047217