Digital PDFs

AH-9187D-MC

September 1979

112 pages

Original

63MB

view download

OCR Version

93MB

view download

Document:	CZRJBD0 RP04-5-6 RP04-5-6 FRMTR SEP 1979 bw
Order Number:	AH-9187D-MC
Revision:	000
Pages:	112
Original Filename:	CZRJBD0__RP04-5-6__RP04-5-6_FRMTR__AH-9187D-MC__SEP_1979_gray.pdf

OCR Text

RP04/5/6

CZRJBDO

cormant 7a.7s BB
FICHE1 OF 1

MADE
IN USA

| CZRUBDO, RPO4/S/6 FMTR MACY11 30A(1052)
Q0NN
WA —

CZRJBD.P11

28-MAR-79 11:23

24-MAY-79 14:10 PAGE 3

SEQ 0001

.REM @

D
o
o
b o
D
D

PRODUCT

V@ NN

—

WNV=O

IDENTILFICATION

CODE:

AC=9185D-MC

PRODUCT NAME:

(CZRJBDO RP04/5/6 FORMATTER PROGRAM

PRODUCT DATE:

MAY,

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

1979

HESS

THE INFORMATION CONTAINED 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 NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF

SOFTWARE ON EQUIPMENT THAT
AFFILIATED COMPANIES.

ITS

1974, 1979 BY DIGITAL EQUIPMENT CORPORATION

FOLLOWING ARE

DIGIAL
DEC

IS NOT SUPPLIED BY DIGITAL OR

TRADEMARKS OF

PDP
DECUS

DIGITAL EQUIPMENT CORPORATION:

UNIBUS
DECTAPE

MASSBUS

CZRJBDO, RPO4/S5/6 FMTR MACY11
CZRJBD.P1]
28=MAR-79 11:23

30A(1052)

24=MAY=79

14:10

PAGE 4

SEQ 0002
CONTENTS

ABSTRACT
REQUIREMENTS

2.1
2.2
2.3

EQUIPMENT
PRELIMINARY PROGRAMS
PROGRAMMABLE DRIVES

LOADING PROCEDURES
STARTING PROCEDURES

4.1
4.2

4.3
4.4

STARTING ADDRESSES
OPERATOR ACTION
RH11 = RH70 UNIBUS ADDRESS
OTHER UNIBUS ADDRESSES

SWITCH REGISTER SETTINGS
ERROR MESSAGES
MISCELLANEOUS

7.1

7.2

7.3

FORMAT TIMES

HALTING THE PROGRAM

SURFACE VERIFICATION

PROGRAM DESCRIPTION

8.1
8.2
8.3

FORMAT OPERATION
CHECK OPERATION
POSITIONER VERIFICATION

PROGRAM LISTING

30A(1052)

24-MAY-79

14:10

PAGE 5

D
SEQ 0003

ABSTRACT

........

THE RP04/5/6 FORMATTER PROGRAM FORMATS THE DISK PACK AND PERFORMS

A CURSORY CHECK OF THE PACK'S SURFACE.

18 BIT FORMAT MODE.
THE PROGRAM VERIFIES EACH TRACK WRITTEN
AS WELL AS VERIFYING THE FORMAT OPERATION.

THE PROGRAM ALLOWS THE

OPERATOR TO SPECIFY ADDRESS LIMITS, PATTERNS, AND EITHER 16 BIT OR

9¢

95
06
gg

REQUIREMENTS

2.1

EQUIPMENT

99
100

101
102
103
}8‘5’

VRONOAVNBWN=O
VNN W20 V0N

PDP-11 PROCESSOR
8K MEMORY

TELETYPE
PROGRAM LOAD DEVICE
KW11=L OR KW11=P CLOCK
RH11 OR RH70 WITH 1 - 8 RP04, RP0O5, RP0O6 DISK DRIVES

¢.2

RP04/5/6 FUNCTIONAL CONTROLLER TEST
PART 1 (MAINDEC-11-DZRJI)
PART 2 (MAINDEC-11-DZRJJ)

2.3

THIS REV INCORPORATES A SAFEGUARD TO PREVENT INADVERTENT
CORRUPTION OF DISK PACKS IN PROGRAMMABLE DRIVES.

THIS IS A POTENTIAL HAZARD IN RUNNING THIS PROGRAM IN A
MULTIPROCESSOR SYSTEM.
FOR THE STANDARD STARTING ADDRESS OF 200
THE PROGRAM HAS BEEN MODIFIED TO PREVENT INITIALIZING DRIVES
FOUND TO BE PROGRAMMABLE.
THIS MODIFICATION APPLIES
ONLY TO THE FIELD ENVIRONMENT (XXDP CHAIN, STANDALONE)
WHERE LOCATION 42 DOES NOT EQUAL LOCATION 46.
FOR THE
MANUFACTURING ENVIRONMENT (WHERE LOCATION 42 EQUALS LOCATION 46) PROGRAMMABLE

DRIVES WILL NOT BE INHIBITED.

NONN

e
— e

IF THE OPERATOR DESIRES TO RUN THIS PROGRAM USING

PROGRAMMABLE DRIVES IN A FIELD ENVIRONMENT USE STARTING ADDRESS 220, WHERE 220 1
THE SAME AS 200 WITHOUT INHIBITING PROGRAMMABLE DRIVES.

SEE SECTION 4.1

WA
—

e
e

PROGRAMMABLE DRIVES (DUAL PORT ENABLED)

FOR A SUMMARY OF ALL STARTING ADDRESSES.

PREI_.IMINARY PROGRAMS
RP04/5/6 DISKLESS CONTROLLER TEST
PART 1 (MAINDEC-11-DZRJG)
PART 2 (MAINDEC=11-DZRJH)

D e

)

106

. X

LOADING PROCEDURES

CZRJBDO, RPD4/5/6 FMTR MACY11
|CzrRIBD.P1T
28-MAR-79 11:23

CZRJBDO, RPO4/5/6 FMTR MACY11 30A(1052)
CZRJBD.P11
28-MAR=79 11:23

24-MAY=79

138
139

14:10

PAGE 6

E
-

SEQ 0004

THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE

140
141

LOADER OR IT MAY BE LOADED FROM THE APPROPRIATE 'XXDP' MEDIA
USING THE ASSOCIATED LOADER.
THE PROGRAM MAY NOT BE INCLUDED

142

IN AN

143

'XXDP'

CHAIN.

144

145

146
147
148
149

139

4.1

152
153

STARTING PROCEDURES
-—

STARTING ADDRESSES

THE PROGRAM IS STARTED FROM LOCATION 200(8) IF THE ADDRESS OF THE
RH11 OR RH70 WILL NOT BE CHANGED
.

}gg

PROGRAMMABLE DRIVES ARE INHIBITED, STANDALONE AND XXDP CHAIN-SEE SECTION 2.3

156
157
123

THE PROGRAM IS STARTED FROM LOCATION 204(8) IF THE ADDRESS OF
THE RH11 OR RH70 IS TO BE CHANGED FROM THE PRELOADED VALUE.
(SEE SECTION 4.3) PROGRAMMABLE DRIVES ARE NOT INHIBITED.

}g?

STARTING ADDRESS 220 IS THE SAME AS 200 BUT WITH NO INHIBITIONS.

}gg

4.2

OPERATION ACTION

}2§

LOAD THE PROGRAM INTO MEMORY (SEE SECTION 3).

}gg

LOAD THE STARTING ADDRESS - 200(8) OR 204(8) OR 220(8).

}23

SET THE SWITCHES AS REQUIRED AND PRESS 'START'.

170

IF THIS IS THE PROGRAM'S FIRST START,

171
};g

};é

};g

ENTER THE APPROPRIATE CODE: °'C' FOR 'CHECK' OPERATION OR 'F°
FOR 'FORMAT & VERIFY'.
IF A 'CARRIAGE RETURN' IS ENTERED IN
RESPONSE TO THE REQUEST, THE PROGRAM WILL ASSUME ‘FORMAT &

}gg

VERIFY".

}gg

193

THE PROGRAM WILL THEN ASK FOR THE FORMATTING MODE:

"OPERATE IN 22 SECTOR (16 BIT) MODE (Y OR N)*

187
188
}gg

}3}

THE PROGRAM WILL THEN TYPE THE FOLLOWING MESSAGE:

*PROGRAM MODE (C OR F):'

178
179
180

;gz

THE STATUS OF THE DRIVES

ON THE SELECTED MASSBUS SUBSYSTEM WILL BE TYPED OUT.
THIS TYPEOUT
MAY BE INHIBITED ON SUBSEQUENT STARTS BY SETTING SW<02>.

ENTER THE APPROPRIATE CHARACTER: 'Y' FOR 16 BIT MODE OR 'N' FOR
18 BIT MODE.
IF A 'CARRIAGE RETURN' IS ENTERED IN RESPONSE TO
THIS REQUEST, THE PROGRAM WILL ASSUME 16 BIT MODE.

THE PROGRAM WILL THEN ASK FOR A DRIVE:
'DRIVE:

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

30A(1052)

24~MAY=79

14:10

PAGE 7

SEQ 0005
ENTER THE ADDRESS OF THE DRIVE TO BE FORMATTED.
A 'PERIOD' OR
'CARRIAGE RETURN' ENTRY WILL SELECT DRIVE O.
IF THE DRIVE SELECTED
IS NOT AVAILABLE, THE PROGRAM WILL TYPE AN ERROR MESSAGE AND

RETURN TO THE DRIVE ADDRESS REQUEST.

AFTER THE OPERATOR HAS SELECTED A DRIVE, THE PROGRAM WILL ASK
FOR ADDRESS LIMITS FOR THE SELECTED DRIVE:

'ENTER ADDRESS LIMITS:

THE PREVIOUSLY SELECTED OR DEFAULT VALUES FOR BEGINNING CYL INDER
AND TRACK AND FOR ENDING CYLINDER AND TRACK WILL BE TYPED OUT.

IF A 'CARRIAGE RETURN'

IS TYPED AS A RESPONSE, THE PRESENT VALUE

WILL BE USED; IF A 'PERIOD' IS TYPED, THE PROGRAM WILL BYPASS
THE REMAINING ENTRIES AND WILL USE THEIR PRESENT VALUES.
NOTE
THAT THE CYLINDER AND TRACK VALUES ARE
D E C I M A L
NUMBERS.
THE ADDRESS SPECIFIED BY THE BEGINNING CYLINDER AND TRACK MUST
?SA%ESEDgEQQSTHE ADDRESS SPECIFIED BY THE ENDING CYLINDER AND
THE PROGRAM WILL THEN ASK FOR THE DATA PATTERN:

'SELECT DATA PATTERN
(0) ZERO'S
(1) ONES
(2) WORST CASE:'

ENTER THE CODE FOR THE REQUIRED PATTERN.

'CARRIAGE RETURN' OR

;:;?égz' ENTRIES WILL CAUSE THE PROGRAM TO USE THE °'WORST CASE'
THE

"WORST CASE' PATTERN IS THE FOLLOWING OCTAL

THROUGH THE DATA AREA OF

THE

SECTOR:

SEQUENCE REPEATED

165555
133333
THE PROGRAM WILL

THEN TYPE:

'STARTING FORMAT ON DRIVE N'
OR

'STARTING CHECK ON DRIVE N'

TYPE

THE FOLLOWING MESSAGE
:

*PRESENT ADDRESS IS:

IF A "CONTROL C'

(XXX

TXX'

IS TYPED WHILE THE PROGRAM IS TYPING THE CURRENT

ADDRESS, THE PROGRAM WILL ABORT THE FORMAT
AND RETURN TO THE °‘DRIVE' REQUEST.

(OR CHECK)

OPERATION

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

30A(1052)

24=MAY=79
10.

14:10

PAGE 8

G
SEQ 0006

IF THE OPERATOR DOES NOT SELECT A DIFFERENT DRIVE WHEN THE FORMAT
OR CHECK OPERATION HAS COMPLETED, THE PROGRAM WILL NOT ALTER THE

ADDRESS LIMITS SPECIFIED AT THE START OF

THE PREVIOUS OPERATION.

IF THE FORMAT OR CHECK OPERATION IS TERMINATED BY A 'CONTROL C' OR
IF A DIFFERENT DRIVE IS SELECTED, THE PROGRAM WILL RESET THE

ADDRESS LIMITS TO THE VALUES APPROPRIATE FOR THE DRIVE TYPE.

11.

4.3

TO CHANGE EITHER THE ADDRESSING MODE OR THE OPERATION MODE,

PROGRAM MUST BE STARTED FROM LOCATION 200(8)

THE

OR 204(8) AGAIN.

RH11 = RH70 UNIBUS ADDRESS
THE _PROGRAM ASSUMES THAT THE RH11 OR RH70 ADDRESSES START AT

176700 AND THAT THE VECTOR ADDRESS IS 254.

THESE ADDRESSES MAY

BE CHANGED WHEN THE PROGRAM IS STARTED FROM LOCATION 204(8).

IF THE RH11 = RH70 IS NOT AT THE DEFAULT ADDRESS, THE PROGRAM MUST

BE STARTED FROM 204(8)

INITIALLY AS THE PROGRAM GOES THROUGH THE

ADDRESS CHANGE ROUTINE AT INITIAL START ONLY.
ENTER THE RH11
ADDRESS IN RESPONSE TO THE REQUEST FROM THE PROGRAM.

4.4

RH70

OTHER UNIBUS ADDRESSES
LOC

TAG

CONTENTS

FUNCTION

1144
1146
1150
1152
1176
1200
1202
1206
1210

$TKS
$TKB
$TPS
$TPB
$LKCSR
$LKCSB
SLPVEC
$LKS
$LKV

177560
177562
177564
177566
172540
172542
104
177546
100

TTY KEYBOARD STATUS REGISTER
TTY KEYBOARD BUFFER REGISTER
TTY PRINTER STATUS REGISTER
TTY PRINTER BUFFER REGISTER
KW11-P CONTROL REGISTER
KW11-P COUNTER REGISTER
KW11-P VECTOR ADDRESS
KW11-L CONTROL REGISTER
;ADDRESS OF KW11-L VECTOR

SWITCH REGISTER SETTINGS

SW<15>=1...HALT ON ERROR
SW<13>=1...INHIBIT ERROR TYPEOQUTS
SW<10>=1...BELL ON ERROR
SW<09>=1...LO0OP ON ERROR
SW<07>=1...PRINT SOFT ERROR REPORTS AS THEY OCCUR
SW<02>=1...DON'T DISPLAY SYSTEM STATUS AFTER INITIAL START
SW<01>=1...LO0OP ON THE CURRENT TRACK
SW<00>=1...LO0OP THE PROGRAM ON THE SELECTED DRIVE
IF

THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN 11/34)

THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS
NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER.
THE

'SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8).
THE
SETTINGS CF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KE YBOARD

ROUTINE WHICH IS CALLED BY

TYPING A 'CONTROL G'.

THE PROGRAM WILL

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

30A(1052)

24=MAY=79

SEQ 0007

b
i
d
D

NEW ='

EACH TIME SWITCH SETTING 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.

d od o

"SWR = NNNNNN

318
319
320
321
322
323
324
325
326
327

PAGE 9

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
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:

WWWWWWWW

306
307
308
309

14:10

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE °*SO7TWARE® 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.

ERROR MESSAGES

330

333

336

339
%2?

342

345

%443

'DRIVE OFFLINE' - THE INDICATED DRIVE HAS GONE OFFLINE

350
351
gg%

'PERSISTENT DRIVE UNSAFE ERROR' - THE INDICATED DRIVE HAS BECOME
UNSAFE AND THE CONDITION CANNOT BE CLEARED BY ISSUING °'DRIVE
CLEAR' INSTRUCTIONS.

354
355
356
ggg

'UNCORRECTABLE MASSBUS PARITY ERROR' = THE PROGRAM ATTEMPTED
TO PERFORM AN OPERATION AND DETECTED 3 SUCESSIVE MASSBUS PARITY
ERRORS OR THE PROGRAM ATTEMPTED TO CLEAR A 'PAR' ERROR IN THE
DRIVE AND A PARITY ERRCR OCCURRED.

359

10.

;S(S)E}'wf TIMECUT® - THE OPERATION FAILED TO COMPLETE WITHIN

%g(]z

%%‘So

ggg

3322
3329

"RH11 INTERRUPT OCCURRED (RPAS=0) = AN INTERRUPT OCCURRED, BUT

NOTHING ON THE MASSBUS IS INDICATING AN ATTENTION.

'UNEXPECTED ATTENTION OCCURRED' - THE INDICATED DRIVE INTERRUPTED,

BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE.

'MASSBUS PARITY ERROR (MCPE=1)' = A CONTROL BUS PARITY ERROR

WAS DETECTED BY THE RH11 WHEN THE INDICATED REGISTER WAS READ.

°'MASSBUS PARITY ERROR (PAR=1)' = A CONTROL BUS PARITY ERROR
OCCURRED WHEN THE INDICATED REGISTER WAS WRITTEN.

'ADDRESS PLUG CHANGE BIT SET' = THE PROGRAM FOUND THE 'OPE'

BIT SET FOR THE INDICATED DRIVE.

°'RH11 DIDN'T RESPOND TO ADDRESSING' - THE PROGRAM ACCESSED THE

RH11 AT THE INDICATED ADDRESS AND RECEIVED NO RESPONSE.

CZRJBDO, RP04/5/6 FMTR

CZRJBD.P11

MCS?

28-MAR-79 11

30A(1052)

24=MAY=79
11.

14:10

PAGE 10

'DRIVE UNSAFE ERROR'

DURING THE OPERATION.

SEQ 0008
- A NON-PERSISTENT UNSAFE ERROR OCCURRED

12.

"CONTROLLER/DRIVE ERROR DURING WRITE' = THE INDICATED NON-DATA
ERROR WAS DETECTED DURING A FORMAT OPERATION.

13.

'CONTROLLER/DRIVE ERROR DURING WRITE CHECK' = A NON-DATA ERROR
OCCURRED DURING THE WRITE CHECK.

14.

°'DATA ERROR DURING WRITE CHECK®' = A DATA RELATED ERROR OCCURRED
DURING A WRITE CHECK OPERATION.
A DATA ERROR IS CONSIDERED
TO BE A 'DCK' ERROR.

15.

'RETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLE' - THE INDICATED
SECTOR FAILED DURING RETRY FOLLOWING A DATA ERROR.

16.

'CONTROLLER/DRIVE ERROR VERIFYING HEADERS'
THE VERIFICATION PASS AFTER FORMATTING.

17.
18.
19.

20.

= AN ERROR OCCURRED DURING

''HCE' ERROR VERIFYING HEADERS' - A HEADER ERROR OCCURRED DURING

THE VERIFICATION PASS AFTER FORMATTING.

°'CYLINDER FIELD IN HEADER IS NOT CORRECT' = THE CYLINDER FIELD

FROM A HEADER READ DURING THE VERIFICATION PASS IS NOT CORRECT.

'WRITE CHECK ERROR' - THE RH11
NO DRIVE ERRORS WERE SET.

REPORTED A WRITE CHECK ERROR AND

"HARDWARE ERROR DURING WRITE CHECK' = AN ERROR THAT WAS NEITHER

A DATA ERROR, WRITE CHECK ERROR, NOR CONTROLLER ERROR OCCURRED

DURING A WRITE CHECK. THESE ERRORS COULD BE ONE OF
FOLLOWING: °'OPI', °'DTE®', "HCRC', 'HCE', OR °'FER'.

THE

MISCELLANEOUS

FORMAT TIME

IT TAKES APPROXIMATELY 8 MINUTES TO FORMAT AN ENTIRE RP04/S PACK

AND APPROXIMATELY 16 MINUTES TO FORMAT AN RP06 PACK.

THE

‘CHECK'

:?JRER;(!)QE'SFOR AN ENTIRE PACK IS 4 MINUTES FOR RP04/5'S AND 8 MINUTES
¥

HALTING THE PROGRAM
THE OPERATOR SHOULD NOT HALT THE PROGRAM DURING A FORMAT OPERATION.
HALTING THE PROGRAM MAY LEAVE A SECTOR INCORRECTLY FORMATTED.
TO
TERMINATE THE FORMAT, TYPE A "CONTROL C' AND WHILE THE PROGRAM IS
TYPING THE ADDRESS, TYPE ANOTHER 'CONTROL C'; THIS SEQUENCE RETURNS
THE PROGRAM TO THE DRIVE ADDRESS ENTRY ROUTINE.

Fe3

SURFACE VERIFICATION

(ZRJBDO, RPO4/5/6 FMTR

CZRJBD.P1

MACY11

28-MAR-79 11:23

30A(1052)

24~MAY=79

418

14:10

PAGE 11

SEQ 0009

THE FORMATTER PROGRAM IS NOT INTENDED TO BE USED TO PERFORM D]SK

419

PACK VERIFICATION.

420

THE PROGRAM REPORTS A SECTOR AS BEING

°*NOT

ACCEPTABLE', THIS MAY IN FACT INDICATE A BAD SURFACE; HOWEVER,

253

SECTORS WHICH "PASSED' MAY OR MAY NOT BE GOOD.

423

424

425
426
427
428

2%(9)

PROGRAM DESCRIPTION

8.1

FORMAT OPERATION

431

THE PROGRAM FORMATS THE PACK ONE TRACK AT A TIME BETWEEN THE LIMITS

2%%

SPECIFIED BY THE DRIVE.

434

THE FORMAT OPERATION CONSISTS OF A WRITE HEADER AND DATA COMMAND FOR

435

THE ENTIRE TRACK FOLLOWED BY A WRITE CHECK HEADER AND DATA COMMAND.

437

WRITE BEFORE CONTINUING.

439
440

THE FOLLOWING ERRORS: 'DCK', 'OPI', °'DTE', 'HCRC', °'HCE’',
OR 'FER'), THE SECTOR IN ERROR WILL BE REWRITTEN.
THE PROGRAM WILL
CHECK THE SECTOR TWICE; IF A DATA ERROR IS DETECTED IN THE SECTOR
DURING EITHER OF THE WRITE CHECKS, THE PROGRAM WILL DECLARE
THE SECTOR AS BEING "UNACCEPTABLE'.
FOLLOWING THIS SEQUENCE,
THE REMAINDER OF THE TRACK IS CHECKED.
IF DATA ERRORS ARE ENCOUNTERED
IN ANY OF THE REMAINING SECTORS, EACH SECTOR WILL BE HANDLED AS

436

IF AN ERROR OCCURS DURING THE WRITE, THE PROGRAM WILL RETRY THE

438
441
442
443
L44
445

229

IF A DATA RELATED ERROR IS DETECTED

DURING THE WRITE CHECK (A DATA ERROR IS DEFINED AS ONE OF

DESCRIBED ABOVE.

448
449
22?

IF A NON-DATA RELATED ERROR OCCURS DURING THE WRITE CHECK, THE
PROGRAM WILL RETRY THE COMMAND FOR THE ENTIRE TRACK BEFORE PROCEEDING
TO THE NEXT TRACK.

452
453
454
455
456
457
458

IT SHOULD BE NOTED THAT THE FORMATTER PROGRAM FORMATS THE PACK ONLY
AND IS NOT DIRECTLY VERIFYING THE SURFACE OF THE PACK.
ERRORS
THAT ARE _ENCOUNTERED MAY BE THE RESULT OF BAD AREAS ON THE PACK
BUT, AS THE PROGRAM IS NOT DESIGNED TO PERFORM AN EXHAUSTIVE CHECK
OF THE DISK PACK SURFACE, THE PROGRAM CANNOT MAKE THIS CONCLUSION.
IN GENERAL, HOWEVER, THE OPERATOR CAN ASSUME THAT SECTORS WHICH
THE PROGRAM CALLS 'UNACCEPTABLE' INDICATE BAD AREAS OF THE PACK;

461

DURING THE FORMAT OPERATION, THE PROGRAM FILLS THE DATA FIELD

11:22

HEADER ARE ALWAYS SET TO ZERO.

223

UNFORTUNATELY, SECTORS WHICH 'PASS' CANNOT BE ASSUMED TO BE GOOD.

462
222

WITH THE PATTERN SELECTED BY THE OPERATOR.

8.2

THE KEYWORDS IN THE

CHECK OPERATION

467

THE CHECK OPERATION IS IDENTICAL TO THE WRITE CHECK PORTION OF

4493

THAT THE PROGRAM WILL NOT RE-WRITE ERROR SECTORS.

468
2;}

473

THE FORMAT OPERATION OPERATION DESCRIBED IN SECTION 8.1 EXCEPT

8.3

POSITIONER VERIFICATION

AFTER THE PROGRAM COMPLETES THE FORMAT OPERATION, THE

CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
CZRJBD.P11
28-MAR-79 11:23

24=MAY=79

474

14:10

PAGE 12

SEQ 0010

POSITIONER IS RETURNED TO THE STARTING CYLINDER AND THE HEADER
FROM SECTOR O ON THE STARTING TRACK IS READ.
THE CYLINDER ADDRESS

475
476

FIELD FROM THE HEADER IS COMPARED TO THE REQUESTED CYLINDER; IF
THE CYLINDER ADDRESSES DO NOT COMPARE, AN ERROR MESSAGE IS TYPED.
THE PROGRAM CHECKS THE CYLINDER ADDRESS FIELD FROM THE HEADER

477

478
479

OF SECTOR O ON THE BEGINNING TRACK OF EACH CYLINDER FORMATTED.

THIS CHECK IS PERFORMED TO CONFIRM THAT THE DISK'S PCSITIONER
ADVANCED PROPERLY DURING THE FORMAT OPERATION.

PROGRAM LISTING

a
.TITLE
CZRJBDO, RP04/5/6 FMTR
;*COPYRIGHT (C) 1976,1978

:*DIGITAL EQUIPMENT CORP.
tHAYMRD MASS. 01754
*PROGRAM BY C.

HESS

tTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977.

.SBTTL

OPERATIONAL SWITCH SETTINGS

b
b
b e
b cd e

DOV
WN =

vivywvvoaavivioanaiuog

520

emeeesee

g
;o
ge
g
'S
:®

15
13
10
9
2
1
0

. %

.SBTTL

000000

000174
000176

000174
000000
000000

SWITCH

‘R0

USE

‘

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR
DON'T DISPLAY SYSTEM STATUS AFTER INITIAL START
LOOP ON THE CURRENT TRACK
LOOP THE PROGRAM ON THE SELECTED DRIVE

TRAP CATCHER

;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ** .42, HALT"'
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

*LOCATIW1(7) CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

DISPREG:
SWREG:

.SBTTL

.WORD
.WORD

0
O

:;SOFTWARE DISPLAY REGISTER
:.SOFTWARE SWITCH REGISTER

ACT11 HOOKS

i*'iit'tttt'ttt'ttfitfitt""it.t'ttfittttt'tttt.tttt"'ttittt.t'.

000200
528

000046

005422
000052

:HOOKS REQUIRED BY ACT11

SSVPC=.

:SAVE PC

$ENDAD

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

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

530

000052

30A(1052)

24-MAY-79

ACT11 HOOKS

020000
000200

PAGE 13

.WORD
20000
.=$SVPC
.SBTTL

000200

000200
000137

002132

000204

000137

002114

000220

000220
000137

002100

.SBTTL

SEQ 0011
..2)SET LOC. 52 TO 20000
;. RESTORE
P

ST3551~G ADDRESS = 200

BEGIN1

;NORMAL STARTING ADDRESS (INHIBIT PROGRAMMABLE DRIVES
;SEE SEC 2.3)

STARTING ADDRESS TO CHANGE THE RH11 ADDRESS
= 204
JMP
BEGIN
s CHANGE THE RH11 ADDRESS (NO INHIBITIONS)

.=220
JMP
.SBTTL

BEGIN3

;SAME AS 200 WITH NO INHIBITIONS

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER **x 1100 %»«

001100

STACK=
.EQUIV
.EQUIV

000011
000012
000015
000200
177776

HT=

177774
177772
177570
177570

14:10

1100
EMT ,ERROR
I0T,SCOPE

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

s *MISCELLANEOUS DEF INITIONS

;;CODE FOR HORIZONTAL TAB

LF=
CR=
CRLF=
PS=
.EQUIV
STKLMT=

12
15
200
177776
PS,PSW
177774

:;CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
:;CODE _FOR CARRIAGE RETURN-LINE FEED
: ;PROCESSOR STATUS WORD

DSWR=
DDISP=

177570
177570

::HARDUARE SWITCH REGISTER
- HARDWARE DISPLAY REGISTER

PIRQ=

177772

:sSTACK LIMIT REGISTER

; :PROGRAM INTERRUPT REQUEST REGISTER

: *GENERAL PURPOSE REGISTER DEF INITIONS

000001

000003

RO=
R1=
R2=

%1
%2

R3=

R6=
R7=
SP=
PC=

%6
X7
X6
X7

Ré4=
RS5=

%4
x5

s ;GENERAL REGISTER
: ;GENERAL REGISTER
s ;GENERAL REGISTER
; sGENERAL REGISTER

s ;GENERAL REGISTER
2 ;GENERAL REGISTER

s ;GENERAL REGISTER
s JGENERAL REGISTER
2 :STACK POINTER
; :PROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS

PRO
PR1=
PR?=
PR5=
PR4=
PRS=
PR6=
PR7=

0
40
100
140
200
240
300
340

2:PRIORITY
;:PRIORITY
;sPRIORITY
;;PRIORITY
;sPRIORITY
;:PRIORITY
;sPRIORITY
;;PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;*"'SWITCH REGISTER'' SWITCH DEF INITIONS

O
1
2
3
4
S
6
7

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

586
587
588
589
590
591

592

593
594
595
596
597

100000
040000
020000

010000
004

30A(1052) BA24-MAY-79
14:10
SIC DEFINITIONS

SW15=
SW14=
Swi3=
swi2=
SW11=
Sw10=
sSwo%=
sSw08=
Swo7=
sSwoé=
SW05=
SWo4=
Swo3=
SW02=

SWo1=
SW00=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

PAGE 14

100000

40000

20000
10000

4000
2000
1000
400
200
100
40
20
10
4
2
1
SWO9,Sw9
SW08,Sw8
SWO7,SW7
SW06,SWé
SWO5,SwW5
SW04,Sw4
SWO3,Sw3
SW02,Sw2
SWO1,Sw1
SW00.SW0

:*DATA BIT DEFINITIONS (BITOO TO BIT15)
BIT15= 100000
BIT14= 40000
BIT13= 20000
BIT12= 10000
BIT11= 4000
BIT10= 2000
BIT09= 1000
BITO8= 400
BIT07= 200
BITO6= 100
BITO5= 40
BIT04= 20
BITO3= 10
BIT02= 4
BITO1= 2
BIT00=
1
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

BIT09,.BIT9
BIT08,BIT8
BITO07,.BIT7
BIT06,BIT6
BITO05,BITS
BITO04,BIT4
BITO03,BIT3
BIT02,.BIT2
BITO1,BIT1
BIT00,BITO

s *BAS] C "'CPU'" TRAP VECTOR ADDRESSES

SEQ 0012

CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
24=MAY=79 14:10
CZRJBD.P11
28-MAR-79 11:23
BASIC DEFINITIONS

PAGE 15

SEQ 0013

::TIME OUT AND OTHER ERRORS
..R.;SES\IIED AND ILLEGAL INSTRUCTIONS

: :TRACE TRAP
; ;BREAKPOINT TRAP (BPT)
:: INPUT/OUTPUT TRAP (IOT) »*SCOPE+*
: ;POWER FAIL

IOTVEC=

..EHJLATOR TRAP (EMT)
"'TRAP'* TRAP

TPVEC=

PIRQVEC=240
e

.SBTTL
s

AR A AR AR A AR AR

=+ERROR**

::TTY KEYBOARD VECTOR
;. TTY PRINTER VECTOR
: ;PROGRAM INTERRUPT REQUEST VECTOR
A AR A AR

A RAA AN AAA AR RS R AR AR AR AR

R®

RH11 REGISTERS

AR AR AR A AR AR A AR A AA AR

AR A AR R AR AR A AR AR

AR AR AR AR A AR

;CONTROL AND STATUS REGISTER 1

(RPCS1)

1E=

: INTERRUPT ENABLE (BIT #6)
;READY (BIT #7)
sHIGH ORDER BUS ADDRESS BIT (BIT #8)
sHIGH ORDER BUS ADDRESS BIT (BIT #9)
sPORT SELECT (BIT #10)
sMASSBUSS PARITY ERROR (BIT #13)

100

RDY=
Al6=

200
400

PSEL=
MCPE=
TRE=

2000
20000
40000

A17=

;SC=

1000

100000

s TRANSFER ERROR (BIT #14)

sSPECIAL CONDITION (BIT #15)

;WORD COUNT REGISTER (RPWC)

; (EACH BIT IS CALLED BY BIT NUMBER)
;BUS ADDRESS REGISTER (RPBA)
; (EACH BIT IS CALLED BY BIT NUMBER)
;CONTROL AND STATUS REGISTER 2 (RP(CS2)
usl=
use=
USé=
BAI=
PAT=

CLR=
IR=
OR=

1
2

40
100
200

MPE=

400

NEM=

4000

MXF=
PGE=

NED=
UPE=
WCE=
DLT=

1000
2000
10000
20000
40000
100000

;DATA BUFFER REGISTER (RPDB)

sUNIT SELECT (BIT #0)
SUNIT SELECT (BIT #1)
JUNIT SELECT (BIT #2)
sBUS ADDRESS INCREMENT INHIBIT (BIT #3)
sMASSBUS PARITY TEST (BIT #4)
;CLEAR (BIT #5)
: INPUT READY (BIT #6)
;OUTPUT READY (BIT #7)
sMASS BUS PARITY ERROR (BIT #8)
sMISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)
sNON EXISTENT MEMORY (BIT #11)
sNON EXISTENT DRIVE (BIT #12)
sUNIBUS PARITY ERROR (BIT #13)
;WRITE CHECK ERROR (BIT #14)
;DATA LATE

(BIT #15)

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

30A(1052)

24=MAY=79

14:10

RH11 REGISTERS

PAGE 16

SEQ 0014

: (EACH BIT IS CALLED BY BIT NUMBER)
R

.SBTTL
SRR

AR R AR

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

AR AR A RAR AR AT AR AR AR AR

RP04/5/6 REGISTERS
AR AR AR R AR AR AR A A AR A AR AR AR A AR AR R AR A AR

AR AR

AR AR AR A AR

sCONTROL AND STATUS 1 REGISTER.

(#00)

GO=
F1=
F2=
F3=
F4=

1
2
-4
10
20

;GO BIT (BIT #0)
sFUNCTION CODE BIT #1
sFUNCTION CODE BIT #2
sFUNCTION CODE BIT #3

DVA=

4000

;DEVICE AVAILABLE

FS5=

ARk Ak

sFUNCTION CODE BIT #4

sFUNCTION CODE BIT #5

(BIT #11)

;DRIVE STATUS REGISTER (RPDS1)

(#01)

;DF5=
DFF20=

1
2

DRIVE FORWARD 5'‘/SEC.
(BIT #0)
sDRIVE FORWARD 20'/SEC.
(BIT #1)

DL64=
DE1=
Vv=
DRY=
DPR=

20
40
100
200
400

;DIFFERENCE LESS THAN 64 (BIT #4)
;DIFFERENCE EQUALS 1 (BIT #5)
;VOLUME VALID (BIT #6)
;DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT #8)

LST=

2000

DIGB=
GRV=

PGM=

WRL=
MOL =
PIP=
ERR=
ATA=

4
10

1000

RMR=
PAR=

;POSITIONING OPERATION IN PROGRESS (BIT #13)
;COMPOSITE ERROR (BIT #14)

100000

4
10

JATTENTION ACTIVE

(RPER1)

(BIT #15)

(#02)
sILLEGAL FUNCTION (BIT #0)
;ILLEGAL REGISTER (BIT #1)

sREGISTER MODIFICATION REFUSED (BIT #2)
sPARITY ERROR (BIT #3)

FER=
WCF=

20
40

;FORMAT ERROR (BIT #4)
;WRITE CLOCK FAIL (BIT #5)

HCE=
HCRC=
AOE=
IAE=
WLE=

200
400
1000
2000
4000

sHEADER COMPARE ERROR (BIT #7)
sHEADER CRC ERROR (BIT #8)
sADDRESS OVERFLOW ERROR (BIT #9)
s INVALID ADDRESS ERROR (BIT #10)
sWRITE LOCK ERROR (BIT #11)

ECH=

DTE=
OP]=
UNS=
DCK=

100

10000
20000
40000

100000

sLAST SECTOR TRANSFERRED (BIT #10)

;WRITE LOCK (BIT #11)
sMEDIUM ON~LINE (BIT #12)

20000
40000

1
2

(BIT #2)

;PROGRAMABLE (BIT #9)

4000
10000

;ERROR REGISTER #01
ILF=
ILR=

;DRIVE TO INNER GUARD BAND
;GO REVERSE (BIT #3)

sECC HARD ERROR (BIT #6)

;DRIVE TIMING ERROR (BIT #12)
;OPERATION INCOMPLETE (BIT #13)

;DRIVE UNSAFE (BIT #14)

;DATA CHECK ERROR (BIT 15)

30A(1052)

24=MAY=-79

14:10
RP04/5/6 REGISTERS

PAGE 17

SEQ 0015

sMAINTAINABILITY REGISTER (RPMR) (#03)
1

MCLK=
MINX=
MSTCK=
MRD=

;DIAGINOSTIC MODE (BIT #0)
sMAINTAINABILITY CLOCK

sMAINTAINABILITY INDEX (BIT #2)
sMAINTAINABILITY SECTOR CLOCK (BIT #3)
sMAINTAINABILITY READ

MWR=
DTSY=

(#04)

ATO=
AT1=

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

AT6=

AT7=

100

200

;DEVICE
;DEVICE
sDEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE

O
1
2
3
4
5
6
7

;DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA)
; (EACH BIT IS CALLED BY BIT NUMBER)

DRQ=
MOH=
TAP=
NBA=

EXT10=
EXT20=
EXT40=
SC1=
SC2=
:SC4=
SC10=
SC20=
TRK1=
TRK2=

(AV6)

;DRIVE
:DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

TYPE NUMBER BI
TYPE NUMBER BI
TYPE NUMBER BI
TYPE NUMBER BI
TYPE NUMBER BI
TYPE NUMBER BI
TYPE NUMBER BI
TYPE NUMBER BI
TYPE NUMBER BI
REQUEST REQUIRED (BIT #11)

sMOVING HEAD (BIT #13)
;TAPE DRIVE (BIT #14)
sNOT BLOCK ADDRESSED (BIT #15)

;LOOK=-AHEAD REGISTER (RPLA)
EXT1=
EXT2=
EXT4=

(#05)

———

;DRIVE TYPE REGISTER (RPDT)
DT00=
DT01=
DT02=
DT03=
DT04=
DT05=
DT06=
DT07=
DT08=

(BIT #4)

sMAINTAINABILITY WRITE (BIT #5)
sMAINTAINABILITY SYNC DETECTED (BIT #7)

JATTENTION SUMMARY PSEUDO-REGISTER (RPAS)

AT2=
AT3=
AT4=
ATS5=

(BIT #1)

OO
NN —

000001
000002
000004
000010
000020
000040
000100
000200

DMD=

000001
000002
000004
000010
000020
000040
000200

(#07)

sEXTENSION

ON
ON

2
10

20
40
100

200

1000

2000

4000
10000

EXTENSI(N

SECTOR COUNT F

:SECTOR COUNT F
sSECTOR COUNT F
:TRACK FIELD 1

s TRACK FIELD 2

(BIT
(BIT
2 BIT
BIT
(
?IT
1

12 )

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

#10)

OTM

CZhJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 1:23

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

020000
040000
100000

30A(1052)

24=MAY-79 14:10
RPO4/5/« REGISTERS
TRK4=
TRK10=
TRK20=

PAGE 18

20000
40000
100000

SEQ 0016
;TRACK FIELD 3 (BIT #13)
;TRACK FIELD 4 (BIT #14)
sTRACK FIELD 5 (BIT #15)

;RPO4 ERROR REGISTER #2 (RPER2) (#10)
000001
000002
000004
000010
000020
000040
000100
000200
000400

wCu=
CSF=

1
2

sWRITE CURRENT UNSAFE
sCURRENT SINK FAILURE

10
20

(BIT #0)
(BIT #1)

WSuU=

“

TDF=
TUF =
FEN=

40
100
200

s CURRENT SWITCH UNSAFE (BIT #3)
sMOTOR SEQUENCE ERROR (BIT #4)
sTRANSITIONS DETECTOR FAILURE (BIT #5)
sTRANSITIONS UNSAFE (BIT_#6)
sFAILSAFE ENABLED (BIT #7)

(SU=
MSE=

sWRITE SELECT UNSAFE (BIT #2)

001000

WRU=
MHS=
NHS=
IXE=

2000
4000

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

100000

PLU=
ACU=

20000
100000

;PLO UNSAFE (BIT #13)
;AC UNSAFE (BIT #15)

002000
004000
010000
020000

vu30=

400
1000

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

10000

;30VOLT UNSAFE (BIT #12)

;RP05/6 ERROR REGISTER #02 (RPER2) (#10)
wCU=

sWRITE CURRENT UNSAFE

10
20

s CURRENT SWITCH UNSAFE (BIT #3)
sREAD AND WRITE (BIT #4)

CSF=
WSU=

2
4

TDF=
TUF=

40
100

CSuU=
RAW=
ABS=
WRU=
MHS=
NHS=
IXE=
PLU=

OF25=
OF50=
OF100=
0F200=
0F400=
OF800=
OFREV=

HCI=
ECI=
FMT22=

sTRANSITIONS DETECTOR FAILURE
sTRANSITIONS UNSAFE (BIT #6)

200
400
1000
2000

20000

1
2
4
10
20
40
200

2000
4000
10000

#0)

(BIT #5)

:ABNORMAL STOP (BIT #7)
;WRITE READY UNSAFE (BIT #8)
:MUTLTIPLE HEAD SELECT (BIT #9)
:NO HEAD SELECTION (BIT #10)
s INDEX ERROR (BIT #11)
;PLO UNSAFE (BIT #12)

4000

;OFFSET REGISTER (RPOF)

(BIT

sCURRENT SINK FAILURE (BIT #1)
sWRITE SELECT UNSAFE (BIT #2)

(#11)
;OFFSET
;OFFSET
;OFFSET
;OFFSET
;OFFSET
sOFFSET
sOFFSET

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

sHEADER COMPARE INHIBIT (BIT #10)
sERROR CORRECTION CODE INHIBIT (BIT #11)
sFORMAT BIT (BIT #12

sDESIRED CYLINDER ADDRESS (RPCA) (#12)
: (EACH BIT IS CALLED BY BIT NUMBER)
sCURRENT CYLINDER ADDRESS (RPCC) (#13)
; (EACH BIT IS CALLED BY BIT NUMBER)

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

866

30A(1052)

24-MAY-79
14:10
RP04/5/6 REGISTERS

PAGE 19

E
SEQ 0017

867
%g

;SERIAL NUMBER REGISTER (RPSN) (#14)
s (EACH IS CALLED BY BIT NUMBER)

g;?

;RPO4 ERROR REGISTER #03 (RPER3)

872
873
874
875
876
877
g;g

000001
000002
000010
000040
000100
040000
100000

gg?

882
883
884
885
886
887
ggg

PSU=
VUF =
UWR=
ACL=
DCL=
SKI=
ocyL=

1
2
10
40
100
40000
100000

(#15)

;PACK SPEED UNSAFE (BIT #0)
;VELOCITY UNSAFE (BIT #1)
sANY UNSAFE EXCEPT READ/WRITE (BIT #3)
;AC LOW (BIT #5)
;DC LOW (BIT #6)
;SEEK INCOMPLETE (BIT #14)
;OFF CYLINDER (BIT #15)

;RP05/6 ERROR REGISTER #03 (RPER3)

000001
000002
000040
000100
020000
040000
10000

DCU=
WAOQ=
ACL=
DCL=
OPE=
SKI=

oCvL=

1
2
40
100
20000
40000

(#15)

:DC UNSAFE (BIT #0)
sWRITE AND OFFSET (BIT #1)
sAC LOW (BIT #5)
;DC LOW (BIT #6)
.
;OPERATOR PLUG ERROR (BIT #13)
sSEEK INCOMPLETE (BIT #14)
;OFF CYLINDER ERROR (BIT #15)

100000

890
gg;

cECC POSITION REGISTER (RPEC1) (#16)
; (EACH BIT IS CALLED BY BIT NUMBER)

893

sECC PATTERN REGISTER (RPEC2)

896

::t**l’tfittfittttfifi.'*ittt"t'tittfifii.ifi.ttttfiittfitfitttittt*tt*itltt

ggig

897

ggg

.SBTTL

901

902
903
904
905
906
907
908
909
910
911
912
913
914
915
916

917
918
919

920
921

(#17)

s (EACH BIT IS CALLED BY BIT NUMBER)

000101
000103
000105
000107
000111
000113
000115
000117
000121

000123
000131
000141
000143
000145
000151
000153
000161
000163
000171
000173

RP04/5/6 DRIVER COMMANDS

AR A

RNOP
UNLOAD
SEEK
RECAL
DRVCLR
RELSE
OFFSET
RTC
READIN

A A AR A AR A A AR AR

=
=
=
=
=
=
=
=

ACK
SEARCH
GETREG
SETFMT
SELDRV
WCKD

=
=
=
=
=
=

RDDAT
RDHD

=
=

WCKHD
WRTDAT
WRTHD

=
=
=

101
103
105
107
1M1
113
115
117
121

123
131
141
143
145
151
153
161
163

171
173

AR AR R AR AR A AR RN R AR AR R AR A AR A AR

sNO OPERATION
sUNLOAD
s SEEK
sRECAL IBRATE
;DRIVE CLEAR
sRELEASE
sOFFSET
sRETURN TO CENTER LINE
sREAD IN PRESET

sPACK ACKNOWLEDGE
s SEARCH
:GET REGISTERS
sSET FORMAT (R ECI OR HCI)
sSELECT DRIVE
;WRITE CHECK DATA

;WRITE CHECK HEADER & DATA
JWRITE DATA
;WRITE HEADER & DATA
sREAD DATA
sREAD HEADER & DATA

A kR

CZRJBD.P1
922
923

MACY11

28-MAR-79 11:23

30A(1052)

24~MAY=79

14:10

PAGE 20

RP04/5/6 DRIVER COMMANDS

SEQ 0018

TM~

(ZRJBDO, RPO4/5/6 FMTR

CZRJBDO, RP04/5/6 FMTR

CZRJBD.P11

MACY11

28-MAR-79 11:23

ggg

943

948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
95

967
968
969
970
971
§72
973

974

975
976
977
978
979

PAGE 21

SEQ 0019

COMMON TAGS

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

ggg

944
945
946
947

14:10

.':tt*fiitt*Qififi.tfit.fi*.titifififitfittttti.tfiittt*fi..fii't*'ttfitttt'tt'

927

91
942

24-MAY-79
TA
COMMON TAGS
.SBTTL

926

930
931
932
933
934
935
936
937
938
939
90

30A(1052)

;*USED IN THE PROGRAM.

001100
001100
001102

001103

001104
001106
001110
001112
001114
001115
001116
001120
001122
001124
001126
001130
001132
001134
001135
001136
001140
001142
001144
001146
001150
001152

001154
001155
001156
001157
001160
001162
001166
001167
001170

001172
001174
001176
001200
001202

001206

001210
001214
001216
001220
001222

001100

$CMTAG:
$PASS:
$TSTNM:

000000
000

000

$ERFLG:

000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
177562
177564
177566

000
002
012
000
000000
177607
077
015
000012

$ICNT:
$LPADR:
SLPERR:
$ERTTL:
$ITEMB:
$ERMAX:
$ERRPC:
$GDADR:
$8DADR:
$GDDAT:
$8DDAT:

000377

.BYTE

000106

000100
000000
000000
000000
000632

000102

::START OF COMMON TAGS
;s CONTAINS PASS COUNT
; ;CONTAINS THE TEST NUMBER

0
0

O
0
0
O
O
1
0
0
0
0
0
0
0
0
0
O
DSWR
DDISP

:;CONTAINS ERROR FLAG

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

;;AUTOMATIC MODE INDICATOR
;- INTERRUPT MODE INDICATOR
; ;ADDRESS OF SWITCH REGISTER
: ;ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS
;. TTY KBD BUFFER
;:TTY PRINTER STATUS REG. ADDRESS
::TTY PRINTER BUFFER REG. ADDRESS

SNULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$ESCAPE:0
$BELL:
.ASCIZ
$QUES:
.ASCII
$CRLF:
.ASCII
$LF:
LASCIZ

s -CONTAINS NULL CHARACTER FOR FILLS
:-CONTAINS # OF FILLER CHARACTERS REQUIRED
;o INSERT FILL CHARS. AFTER A "LINE FEED''
;" TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;;ESCAPE ON ERROR ADDRESS
<207><377><377> ;:CODE FOR BELL
/%/
;;QUESTION MARK
<15
;: CARRIAGE RETURN
<12>
;;LINE FEED
=

CR
LF

=
=

.WORD
.WORD
.WORD
.WORD

15
12

176700
254
172540
172542

$LKS:

.WORD

177546

MR LA R Rt

000104

177546

.WORD
.BYTE

.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566

000015
000012
176700
000254
172540
172542

.=1100

$RPADR:
$RPVEC:
SLKCSR:
SLKCSB:
$LPVEC:

$LLVEC:
DRIVE:
SOFSW:
MODE:
ENDCYL:

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

0
2
12
0

i1 2222%2;

104,106

;RH11/RP04/5/6 UNIBUS ADDRESS
;RH11 INTERRUPT VECTOR
;ADDRESS OF KW11-P (SR
sADDRESS OF KW11-P COUNTER BUFFER
;ADDRESS OF KW11-P VECTOR

100,102
O
O
O
410.

;ADDRESS OF KwW11-L VECTOR
;CONTAINS DRIVE NUMBER SELECTED
sCONTENTS ARE FOR SOF TWARE DECISIONS
:'FORMAT & VERIFY' OR 'CHECK' MODE INDICATOR
;ENDING CYLINDER

sADDRESS OF KW11-L CONTROL REGISTER

MACY11

CZRIBD.P11

28-MAR-79

980
981
982
983
984
985
986
987
988
989
990
991
992
993

000000
000022
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

229

001266

1001
1002
1003

1004

1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
10i7
1018
1019
1020
1021

1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034

.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD

MWC:
HEDERR:

SEC20:

.WORD
.WORD
.WORD

000000

MAXSEC:

.WORD

001270
001272
001274

000000
000000
000000

000000

DS.CYL:
DS.TRK:
DDRIVE:

ATTN:

.WORD
.WORD
.WORD

001300
001302
001304

000000
000000
000000

CNTLC:
CHGADR:
EFLG:

.WORD
.WORD
.WORD

001276

.WORD

OO0

998

BEGCYL:
ENDTRK:
BEGTRK:
TTRKS:
TTRKSC:
TRKCNT:
PATSEL:
PATA:
PATB:
CYLCK:
RETRY:
SAVSEC:
SAVWC:
We:

000000
000000
000000

COMMON TAGS

14:10

OO0

001260
001262
001264

24-MAY-79

PAGE 22

SEQ 0020

sSTARTING CYLINDER
;ENDING TRACK
sSTARTING TRACK

;TOTAL # OF
;TOTAL # OF

TRACKS TO BE FORMATTED
TRACKS COUNTER

;COUNTS TRKS FROM 0-18 PER CYL
;CONTAINS PATTERN SELECTED
;1ST WORD OF PATTERN
;2ND WORD OF PATTERN
;STORE CYLINDER ADDRESS FOR FORMAT VERIFICATION

sMAINTAINS # OF WRITE RETRIES MADE

sCONTAINS LAST BAD SECTOR ON FORMAT
;CONTAINS WC FOR REMAINING SECTORS ON ERROR
220 OR 22 SECTOR TRACK SIZE (IN WORDS)
:2'S COMPLEMENT OF 'wC'
;POSITIONING ERROR DURING FORMAT INDICATOR
;20 OR 22 SECTOR MODE INDICATOR
;0 = 20 _SECTOR MODE
:1'S = 22 SECTOR MODE
:geg&g¥? SECTOR ADDRESS (FOR EITHER 20 OR 22 SECTOR
sADDRESS OF CURRENT CYLINDER
sADDRESS OF CURRENT TRACK
;DRIVE NUMBER OF °'DRIVER' ERROR MESSAGES
SATTENTION REGISTER IMAGE FOR °'DRIVER'
;ERROR MESSAGES
sADDRESS OF '“C' RETURN
; 'CHANGE RH11 ADDRESS' FLAG
: '"ERROR DURING WRITE CHECK' FLAG

;RH11/RP04/5/6 REGISTERS STORED HERE AFTER AN OPERATION

001306
001310
001312
001314
001316
001320
001322
001324
001326
001330

001332
001334
001336
001340
001342
001344
001346

001350
001352
001354

000000
000000
000000
(00000
000000
000000
000000

000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

RP.REG:

.WORD
-WORD
-WORD
-WORD
-WORD
-WORD
-WORD

-WORD
-WORD
-WORD

~WORD.
-WORD
-WORD
-WORD
-WORD
-WORD
-WORD

-WORD
-WORD
-WORD

j=leleleleleleleloleloleloleleleloleolols)

99,
995
3%

001224
001226
001230
001232
001234
001236
001240
001242
001244
001246
001250
001252
001254
001256

11:23

30A(1052)

elelelolelolololololelolelelel
e

CZRJBDO, RPO4/5/6 FMTR

;RPCS1

RPWC

sRPBA

;RPDA
;RP(CS2

;RPDS1
:RPER1
:RPAS
IRPLA
;RPDB
:RPMR
JRPDT
;RPSN

;RPOF
JRPCA
JRPCC

;RPER2
:RPER3
JRPECT

JRPEC2

;DATA/PARAMETER BLOCK = USED FOR ALL DRIVE OPERATION

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

1036

001356

30A(1052)

000

FMTDPB:

1037

001357

1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
}822

001361
001362
001364
001366
001367
001370
001372
001374

1055

001376

001430

000000

001224

1057

001412

001456

000000

001222

}823

001426

000000

1038

1056

1058

001360

000

1065
1066
1067
1068
1069
}8;?

1078
1079
1080
1081
1082
1083
108,
1085
1086

1087

1088
1089
1090
1091

.BYTE

PAGE 23

SEQ 0021

:DRIVE NUMBER

BYTE

*OFFSET VALUE OR FMT22,ECI, AND HCI

BYTE
JWORD
JWORD
BYTE
BYTE
.WORD
"WORD
.WORD

0
0
0
0
0
0
RP.REG
0

*PSEL AND A17 AND A16
*WORD COUNT (NEG)
*BUFFER ADDRESS
*SECTOR ADDRESS
*TRACK ADDRESS
JCYLINDER ADDRESS
*ERROR TABLE POINTER
;STATUS=ERROR INDICATOR
:BIT 15 = 1: ERROR OCCURRED
‘BIT 07 = 1: DONE
*BIT 14=10 AND BIT 06-03
sINDICATE TYPE OF ERROR

* COMMAND

;PARAMETER POINTER TABLE

001404

001420

001443

001467

000022

001230

TABLE:

PAR1,0,BEGCYL

PAR2.18. ,BEGTRK

PAR3.0,ENDCYL

001226

PAR%.18. ,ENDTRK,0
JASCI] MESSAGES FOR ADDRESS PARAMETERS

001430
001436

001443
001450
001456
001464
001467
001474

052123
054503

123
052040
047105
020114
105
045522

}8;5
1074
1075
1076
1077

14:10

BYTE

000
000000
000000
000
000
000000
001306

118212
1063
1064

24=-MAY=-79
COMMON TAGS

051101
020114

040524
045522
020104
000
042116
000040

020124
000

PAR1:

.ASCIZ

@START CYL @

052122
000040
054503

PAR2:

.ASCIZ

@START TRK @

PAR3:

.ASCIZ

@END CYL @

052040

PAR4:

.ASCIZ

@END TPK @

;SECTOR BUFFER ADDRESS TABLE
001500
001502
001504
001506

001510
001512
001514
001516
001520
001522
001524
001526
001530
001532
001534
001536
001540
001542

025574
026604
027614
030624

031634
032644
033654
034664
035674
036704
037714
040724
041734
042744
043754
044764
045774
047004

ADRTBL:

.WORD
.WORD
.WORD
.WORD

JWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
"WORD
.WORD
-WORD
.WORD

BUFP
BUFP+<520.%1.>
BUFP+<520.%2.>
BUFP+<520.*3.>

BUFP+<520.%4.>
BUFP+<520.%5.>
BUFP+<520.%6.>
BUFP+<520.%7.>
BUFP+<520.%8.>
BUFP+<520.+9.>
BUFP+<520.+10.>
BUFP+<520.%11.>
BUFP+<520.%12.>
BUFP+<520.+13.>
BUFP+<520.%14.>
BUFP+<520.%15.>
BUFP+<520.+16.>
BUFP+<520.%17.>

:ADDRESS
;ADDRESS
-ADDRESS
:ADDRESS

OF
OF
OF
OF

:ADDRESS OF
:ADDRESS OF
:ADDRESS OF
:ADDRESS OF
:ADDRESS OF
:ADDRESS OF
:ADDRESS OF
:ADDRESS OF
:ADDRESS OF
:ADDRESS OF
-ADDRESS OF
:ADDRESS OF
-ADDRESS OF
:ADDRESS OF

SECTOR 0
SECTOR
1
SECTOR 2
SECTOR 3

SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR
SECTOR

&
5
&
7
8
9
10
11
12
13

14
15
16

CZRJBDO, RPO4/5/6 FMTR

CZRJBD.P1
1092
1093

1094

001544
001546

001550

001552

28-MAR-79 11:23

1122
1123

30A(1052) 24-MAY-79

COMMON TAGS

050014
051024

.WORD
.WORD

052034

.WORD

053044

}83;
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
Hg?

MACY11

.WORD

14:10

PAGE 24

SEQ 0022

BUFP+<520.*18.> ;ADDRESS OF SECTOR 18
BUFP+<520.%19.> ;ADDRESS OF SECTOR 19

BUFP+<520.%20.> :ADDRESS OF

SECTOR 20

BUFP+<520.+21.> :ADDRESS OF SECTOR 21

;REMAINING WORD COUNT TABLE
001554
001556
001560
001562
001564
001566
001570
001572
001574
001576
001600
001602
001604
001606
001610
001612
001614
001616
001620
001622
001624
001626

000404
001010
001414
002020
002424
003030
003434
004040
004444
005050
005454
006060
006464
007070
007474
010100
010504
011110
011514
012120
012524
013130

WCTBL:

.EVEN

.WORD
WORD
WORD
WORD
LWORD
WORD
.WORD
WORD
WORD
WORD
.WORD
WORD
WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

260.
260.+<260.*1.>
260.+<260.%*2.>
260.+<260.+3.>
260.+<260.%4.>
260.+<260.%5.>
260.+<260.%*6.>
260.+<260.*7.>
260.+<260.+*8.>
260.+<260.%*9.>
260.+<260.%*10.>
260.+<260.%*11.>
260.+<260.%*12.>
260.+<260.*13.>
260.+<260.%*14.>
260.+<260.%*15.>
260.+<260.%*16.>
260.+<260.%*17.>
260.+<260.*18.>
260.+<260.%*19.>
260.+<260.*20.>
260.+<260.%21.>

JREMAINING WORD COUNT AFTER SECTOR 0
;REMAINING WORD COUNT AFTER SECTOR 1
;REMAINING WORD COUNT AFTER SECTOR 2
;REMAINING WORD COUNT AFTER SECTOR 3
;REMAINING WORD COUNT AFTER SECTOR 4
;REMAINING WORD COUNT AFTER SECTOR S
;REMAINING WORD COUNT AFTER SECTOR 6
;REMAINING WORD COUNT AFTER SECTOR 7
;REMAINING WORD COUNT AFTER SECTOR 8
;REMAINING WORD COUNT AFTER SECTOR 9
;REMAINING WORD COUNT AFTER SECTOR 10
;REMAINING WORD COUNT AFTER SECTOR 11
;REMAINING WORD COUNT AFTER SECTOR 12
;REMAINING WORD COUNT AFTER SECTOR 13
;REMAINING WORD COUNT AFTER SECTOR 14
;REMAINING WORD COUNT AFTER SECTOR 15
;REMAINING WORD COUNT AFTER SECTOR 16
;REMAINING WORD COUNT AFTER SECTOR 17
;REMAINING WORD COUNT AFTER SECTOR 18
;REMAINING WORD COUNT AFTER SECTOR 19
;REMAINING WORD COUNT AFTER SECTOR 20
;REMAINING WORD COUNT AFTER SECTOR 21

CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
24=MAY=79 14:10 PAGL 25
CZRJBD.P1
28-MAR-79 11:23
ERROR POINTER TABLE

N ABRIR

oo A%

.SBTTL

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

NS D

S BB
JBIFANANIITEIE
SRR 2 VNNV
OB URNR NN DB B0 NN

D —d
e

D d e

—

»»
%

:;POINTS
;;POINTS
:;POINTS
:;POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:
;ERROR 1

022512
023674
025146
025460

EM1
DH1
DT1
DF1

;RH11

EM2

JUNEXPECTED ATTENTION OCCURRED

INTERRUPT OCCURRED (RPAS=0)

;ERROR 2
022553
023701
025150
025464

DT2
DF2

:ERROR 3
022611
023756
025164
025470

EM3
DH3
DT3
DF3

sMASSBUS PARITY ERROR (MCPE=1)

EM4

sMASSBUS PARITY ERROR (PAR=1)

;ERROR 4

025172

DT4
DF4

;ERROR §

IF S$ITEM3 IS O THE ONLY PERTINENT DATA IS (SERRPC).
EACH TTEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

Sesanan,

= O OB IR AR

WWWWWINWW

;*NOTE1:
;*NOTEZ2:

ERROR POINTER TABLE

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

)

D
e

— el

SEQ 0023

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.

) D e

D e

D D

D d D

D wd D Dl D D D D D D

D e

D d D

) D D D D D

D d

D ) D D

) D D D D

e
QO
N
T Y Y —-

D d d PR
——
)

1124

EMS
DH2
DT2
DF2

sADDRESS PLUG CHANGE BIT

EM6

;RH11 DIDN'T RESPOND TO ADDRESSING

SET

;ERROR 6

025460

DT6
DF1

-l

001720
001722
001726

SEQ 0024

elolele)

s UNUSED

023002
024056
025204
025500

EM10
DH10
DT10
DF10

;DRIVE OFFLINE

883

;ERROR 1"

SIS

023020

EM11
DH10
DT10
DF10

;PERSISTENT DRIVE UNSAFE ERROR

NS
S22

[olele]
LAY 1,¥],\¥)
wVIiSNW

SN0

;ERROR 12

D o
D
) D d D d

000000
000000
000000
000000

EM12

DH10
DT10

sUNCORRECTABLE MASSBUS PARITY ERROR

DF10

D e

24-MAY-79 14:10 PAGE 26
ERROR POINTER TABLE

;ERROR 10

~
o
H

SEBVRRRIC2EBRIRAR 00000000
vtvt4

710
712
714
716

001730

N non USLSLSLS
TS SN TN LS LSS TSNS
N nn cnd cub cnd o b cnb cub cub b ccb
N

1 30A(1052)

:ERROR 7

PNOMNIMNIN =l
[olele]
W
=

D e

B e e

D d

D e e e e e

d D o

D e o e o o

CZRJBDO, RP04/5/6 FMTR
CZRJBD.P1
28-MAR- 79 11:

D e

;ERROR 13

EM13
DH10
DT10

s SOF TWARE TIMEOUT

D e

DF10

;ERROR 14

— e

d e

EM14
DH10
DTI0
DF10

;DRIVE UNSAFE ERROR

;ERROR 15
1225
1226
1227
1228

001770
001772
001774
001776

023165
024056
025204
025500

EM15
DH10
DT10
DF10

sCONTROLLER/DRIVE ERROR DURING WRITE

;ERROR 16

1232

002000

023231

EM16
DH10
DT10
DF10

;CONTROLLER/DRIVE ERROR DURING WRITE CHECK

CZRJBDO, RP04/5/6 FMTR

CZRJBD.P11

28-MAR-79 11:23

1236
}ggg
002010
002012
002014
002016

1246
1247
1248
1543

002020
002022
002024
002026

023303
024326
025260
025574

}gzg

14:10

ERROR POINTER TABLE

PAGE 27

SEQ 0025

EM17
DH17
DT17
DF17

JRETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTABLE

;ERROR 20
023361
024375
025272
025520

}%S}

EM20
DH20
DT20
DF 20

;DATA ERROR DURING WRITE CHECK

:ERROR 21
002030
002032
002034
002036

023417
024056
025204
025500

}ggg
1260
1261
1262
1263

24-MAY-79

:ERROR 17

1239
12640
1241
1242
1243

1253
1254
1255
}ggg

HACY11 30A(1052)

EM21
DH10
DT10
DF10

;CONTROLLER/DRIVE ERROR VERIFYING HEADERS

:ERROR 22
002040
002042
002044
002046

023470
024056
025204
025500

EM22
DH10
DT10
DF10

;'HCE' ERROR VERIFYING HEADERS

CZRJBDO, RPO4/5/6 FMTR MACY11 30A(1052)
24=MAY=79 14:10 PAGE 28
CZRJBD.P11
28-MAR-79 11:23
ERROR POINTER TABLE
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286

1287

1288

SEQ 0026

;ERROR 23
002050
002052
002054

002056

023537

EM23

sCYLINDER FIELD IN HEADER IS NOT CORRECT

025540

;ERROR 24
002060
002062
002064
0020C6

023607

EM24
DH24
DT24
DF 24

025544

;WRITE CHECK ERROR

:ERROR 25
002070

002072

002074
002076

023631
024375
025272
025520

gngg

;HARDWARE ERROR DURING WRITE CHECK

DT20

DF20
e

AR A

.SBTTL

A AR A A AR

MAIN PROGRAM

AR AR AR

AR AR AR A AR A AR AR

AR R

hhkdd

(ZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

30A(1052)

1289

12%

1291
1292
1293
1294
1295
1296

24-MAY=-79
14:10
MAIN PROGRAM

B
PAGE 29

SEQ 0027

::t*ttttttttfifi*ttttitt'ttttfit.tfitt'fifitt'i*i..l"litttfit"ttttt""

002100
002104
002112
002114
002122

005037
012737
000413
012737
012737

001302
000001

013310

177777
000001

001302
013310

BEGIN3:
BEGIN:

CLR
MOV
BR

MOV
MOV

CHGADR
#1,
BEGINZ

TSTPGM

#=1,CHGADR
",
TSTPGM

;CLEAR THE INDICATOR
;ENABLE PROGRAMMABLE DRIVES
;SET CHANGE 'RH11 BUS ADDRESS'
;ENABLE PROGRAMMASLE DRIVES

INDICATOR

CZRJBDO, RP04/5/6 FMTR

CZRJBD. P11

002130

28-MAR-79 11 :23

000404
005037
005037
000005
005037

30A(1052)

d
D
D
D e
D

022706
001374
012706

001140

BEGINZ: RESET
.SBTTL

012737
012737
012737
012737
005037

d
e
d e

) e
—

013746
012737
012737
012737
022777
001012
000403
012716
000002
012737
012737
012637
000005
012737
012737
012737

PAGE 30

BEGIN2
CHGADR
TSTPGM

SEQ 0028

;START THE PROGRAM
;CLEAR THE 'CHANGE RH11 ADDRESS'

;DISABLE PROGRAMMABLE DRIVES

INDICATOR

:CLEAR THE BUS

CLR
EFLG
:CLEAR ERROR DURING WRITE CHECK FLAG
INITIALIZE THE COMMON TAGS

MOV
CLR
CMP
BNE

#$CMTAG,R6
;:FIRST LOCATION TO BE CLEARED
(R6) +
;s CLEAR MEMORY LOCATION
#SWR,R6 ; ;DONE?
-6
:;LOOP BACK IF NO

MOV

#STACK, SP

MOV
MOV
MOV

#SERROR, a#EMTVEC ..EMT VECTOR FOR ERROR ROUTINE
#340,QHEMTVEC+2 ;:(EVEL 7
#STRAP, 34 TRAPVE ..TRAP VECTOR FOR TRAP CALLS

;;INITIALIZE A FEW VECTORS

MOV

112737

14:10

;;CLEAR THE COMMON TAGS (SCMTAG) AREA

001100

001115

D e

WWWWWWWWWWWWWW
NS
Do
oo
F 3
N=00VONOWNHWNN=O

001100

005026

MAIN PROGRAM

CLR

001304

012706

24=MAY=79

BR
BEGIN1: CLR

001302
013310

SRR BEBAEY

1297
}298

MACY11

CLR

;:SETUP THE STACK POINTER

#340, a#TRAPVEC+2; LEVEL 7

$ESCAPE

MOVB

#1,SERMAX

MOV
MOV
MOV
MOV

SHERRVEC,~(SP)
#64S ,QWERRVEC
#DSWR, SWR

..CLEAR THE FSCAPE ON ERROR ADDRESS
;ALLOW ONE cRROR PER TEST

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

000004
177777

66$

::BRANCH IF NO TIMEOUT TRAP OCCURRED

CMP

#-1,3aSWR

65%

;;AND
THE HARDWARE SWR IS NOT = -1
::BRANCH IF NO TIMEQUT

BNE
:

#DDISP,DISPLAY

~;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
;:SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER

::TRY TO REFERENCE HARDWARE SWR

002300

64%:

200176
002174
000704

65%:

MOV

#SWREG, SWR

;;POINT TO SOF TWARE SWR

668%:

MOV

(SP)+ ,a#ERRVEC

;;RESTORE ERROR VECTOR

S?Y

MOV

RESET

MOV
MOV

MOV

#658, (SP)

#D1SPREG,DISPLAY

::SET UP FOR TRAP RETURN

; CLEAR WORLD

#PRS,@#TRAPVEC+2 ;CHANGE TRAP PRIORITY BACK TO 5
#PRS ,Q#EMTVEC+2 ;CHANGE EMT PRIORITY BACK TO 5

#BEGIN1,CNTLC

:*CONTROL C' ADDRESS

N
W
v

002344

177777
000042

000046

000001

013310

021010

122737

000011

025651

&
o

005227
001010
004737
013737
013737

177777

026076
001172
001174

001134

TSTPGM

LTITLE

sBRANCH IF NO
;ENABLE PROGRAMMABLE DRIVES

;TYPE THE PROGRAM'S TITLE

;CAN WE USE PROGRAMMABLE DRIVES?
sBRANCH IF NO

.USE

: TYPE MSG

CMPB
BNE

#11,41
1%

;LOADED FROM AN RP04/5/6 ?
:BR IF NOT

.LOADRY

s INSTRUCT OPERATOR TO REMOVE

BNE

67%

BNE

68%
683

:;GET SOFT-SWR SETTINGS

gg::

MOvB

#1,8AUTOB

;sSET AUTO-MODE INDICATOR

INC
BNE
JSR
MCV
MOV

#-1
SETVEC
PC ,BUSADR
$RPADR,RPADR
$RPVEC ,RPVEC

;CHECK FOR FIRST START
:BR_IF NOT
sCHECK THE RH11 ADDRESS
:RH11 ADDRESS
:RH11 VECTOR ADDRESS

012474
012476

SWR ,#SWREG

‘XXDP'

FROM DRIVE 0
ON THE KEYBOARD INTERRUPT
REGISTER
WE RUNNING UNDER XXDP/ACT?

sBRANCH IF YES

: : SOF TWARE SUITCH REG SELECTED?
; :BRANCH IF NO

—_

2\]\

;DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE

006170
012512

177777
177777

012434

000004

176400

000340

001167
021240

177776

PROGRAM WILL USE

SETVEC:

JSR
JSR
MOV
INC
BEQ

PC,ST.CLK
PC,RPINIT
#-1,SAVEFG
#-1
11$

;START THE CLOCK
sINITIALIZE THE RP04/5/6 DRIVER
sSET THE SAVE REGISTERS FLAG
;SEE IF FIRST START
:BR IF YES

BNE
MOV
CLR

108
#PR7 ,PS
R4
.SCRLF
.SYSTAT

:BR_IF NOT
;SET PRIORITY TO 7
:DRIVE TABLE POINTER

: CR=LF
TYPE STATUS HEADING

MOV

R4 ,-(SP)

;:SAVE R4 FOR TYPEOUT

BIT

118:

TYPE
TYPE

1%:

;

TYPOS

021303
012346

S
R

~N
N

;BR_IF NOT
sACT11 AUTOMATIC MODE?

TSTPGM
6%

CMP

000176

n
~
n
~

Voo~ owns

S
S
S
O
N

S
et

000001

sFIRST START ?

1%
G2, N6

TST
BEQ

g;SUR

112737

SEQ 0029

PACK
JSR
PC,$TKINT
TURN
GET VALUE FOR SOF TWARE SUITCH
TST
w62
..ARE

1$:
.SBTTL

000042

S
S

48
g;.

TYPE

010432

BNE
ggv

TYPE

000041

WWW

i
Yo I
gi

#=1

TYPE

5%:

104401

3
N

4%:

025574
013310

001140

INC

BNE
CMP

005227
001025
023737
001 004
012737
000402
104401
005737
001402

T S

S S 9N
g EEE 99955
Bm\lo\\hbu 338 ESRERERSE vivivivivivivivivivh
VAL
9 R 3 3 Sviv

WWW
W
~

1336

)

012356

#SW02 ,aSWR

BYTE
BYTE

2
0

TSTB

DRVSTA(R4)

TYPE

.LIN4SP

BM]

TSTB

DRVTYP(R4)

BNE

s TYPEQUT THE DRIVE STATUS TABLE ?

;:TYPE DRIVE NUMBER

::G0 TYPE--OCTAL ASCII

::TYPE 2 DIGIT(S)
:;SUPPRESS LEADING ZEROS

s SPACES

s CHECK DRIVE S STATUS

:BR IF UNSAFE

;BR _IF ONLINE
;SEE

IF OFFLINE OR NONEXISTENT

alal

CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
24=MAY=79 14:10 PAGE 31
CZRJBD.P11
28-MAR-79 11:23
INITIALIZE THE COMMON TAGS

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P1T
28-MAR-79 11:23
1392
1353
1394
1395
1396
1397

30A(1052)

14:10

BEQ
BPL

2%
3$

B8R

:CHECK NEXT DRIVE

B8R

*CHECK NEXT DRIVE

021153

TYPE

021174
000010

2%:
012356

3$:

021065

TYPE

021132

12%:

021211

4$:

021143
021305
021221
000001

002736
012356

5%:
6$:

021226
000002

002736
012356

021233

002736

9$:

000010

001167

108 :

*DRIVE NOT AN RP04/5/6

*DRIVE NOT PRESENT

BR
TYPE
BR

33
LUNTOFF
6%

B8R

£%

TYPE

,NOUSE

*PRINT MSG

:PRINT DRIVE TYPE
:DRIVE OFFLINE
:PRINT DRIVE TYPE

.NOTSAF

:DRIVE UNSAFE

TYPE
TYPE
MOV

LUNTON
LINSP
#RPO4B, 8$

*DRIVE ONLINE
*SPACES
ADDRESS OF RP04 MESSAGE

BNE
MOV

7$
#RPOS , 8$

:BR IF YES
ADDRESS OF RPOS5 MESSAGE

BNE
MOV

7%
#RP06 , 8$

:BR IF YES
*ADDRESS OF RP06 MESSAGE

BITB

78:

NOTPRS

;:BR IF NONEXISTENT
*BR IF OFFLINE

#BIT03, DRVTYP(R4)
:DRIVE PROGRAMMABLE
?
128
;BRANCH IF NO

BITB

8$:

NOTRP

SEQ 0030

BITB
BEQ
TYPE

001167

PAGE 32

GET VALUE FOR SOF TWARE SWITCH REGISTER

001404

100006
104401

24=MAY=79

TYPE

WORD

#BITO0.DRVTYP(R4G)

:RPO4 ?

#BITO1,DRVIYP(R4G)

:RPO5 ?

TYPE
INC
CMP

SCRLF
Ré
R4 ,48.

TYPE

LSCRLF

BNE

:PRINT DRIVE TYPE

:TYPE THE DRIVE TYPE MESSAGE

*MESSAGE ADDRESS HERE

*CR-LF
:INCREMENT DRIVE NUMBER/TABLE POINTER
*FINISHED 7

:BR IF NOT

:CR-LF

;SEE_WHICH MODE THE PROGRAM IS TO BE RUN IN.
;MODES ARE: 'FORMAT & VERIFY' OR 'CHECK FORMAT'
001220
021521

M1:

BEQ
(MPB
BEQ
CMPB
BEQ

000106
001166

104401

012737

TYPE

021574

1%:

021553

2%:

021607

3%:

177777

TYPE

RDLIN
MOV
TSTB

000103

CLR

001220

4%:

MODE

.MMODE

(SP) +,R1
(R1)
2%
#'C,(R1)
1%
#'F,(R1)

:SET MODE TO 'CHECK FORMAT'

:TYPE

'PROGRAM MODE'

sREAD THE KEYBOARD
;GET ADDRESS OF INPUT
:'CR' ENTERED (DEFAULT)

:BR IF YES
; 'CHECK' ?
:BR IF YES
;'FORMAT' ?
:BR IF YES

. SQUES

sNO CORRECT ENTRY

.MFORMT

s TYPE DEFAULT MESSAGE

BR
TYPE
BR

M1
. MHE CK
M1A

;SET UP MODE

MOV

#-1,MODE

;SET MODE TO °'FORMAT & VERIFY'

TYPE

. MORMAT

:TRY AGAIN
;TYPE REST OF °'CHECK'
sGET STARTING ADDRESS

;TYPE REST OF

°'FORMAT'

sFIND OUT IF FORMAT IS TO BE IN 20 OR 22 SECTOR MODE

1448
1449
1450

104401
104411

012601
122711
001410

021627

000116

104401

001166

104401

021700
013130

000761

012737
012737
012737
012737
000415

24=MAY=79

M1A:

021757
012120
165660
001264
000023
001230
001224
000022
000002
177777

TYPE
RDL IN

001256
001260
001266

PAGE 33

1%:

sADDRESS OF ENTRY
;IS ENTRY A "Y' ?
sBR IF IT IS
;IS ENTRY A 'N' ?
sBR IF IT IS
sDEFAULT MODE ?

BR
TYPE
MOV
MOV

,$QUES

sTYPE

M1A
:TRY AGAIN
,MSEC22
: TYPEOUT MODE SELECTED
#<260.%22.>,WC
+TRACK SIZE IN 22 SECTOR MODE
#-<260.%22.>
,MIC° ;2'S COMPLEMENT WORD COUNT

MOV

#21. ,MAXSEC

TYPE
MOV
MOV

CLR

MIB:

001226
001240
001356

:TYPE FORMAT MODE REQUEST
;READ THE KEYBOARD

(SP)+,R1
#'Y,(R1)
1%
#'N, (R1)
2%
(R1)

MOV

28:

MSIZE

SEQ 0031

MOV
CMPB
BEQ
CMPB
BEQ
TSTB
BEQ
TYPE

001256
001260
001264
001266

14:10

GET VALUE FOR SOF TWARE SWITCH REGISTER

000131

122711

001424
105711
001403

30A(1052)

MOV
CLR
CLR
MOV
MOV
MOVB
BR

#=1,SEC20

M18

sBR IF IT IS
*7°

;22 SECTOR INDICATOR

:MAX SECTOR ADDRESS IN 22 SECTOR MODE

* CONT INUE

,MSEC20
:TYPE OUT 20 SECTOR MODE SELECTED
#<260.%20.>,WC
+TRACK SIZE IN 20 SECTOR MODE
#-<260.%20.>
,MJC" :2'S COMPLEMENT WORD COUNT

SEC20

#19. ,MAXSEC
BEGTRK
BEGCYL
#18. ,ENDTRK
#2 PATSEL
#-1.FMTDPB
MO

;20 SECTOR INDICATOR

*MAX SECTOR ADDRESS IN 20 SECTOR MODE
:CLEAR STARTING TRACK ADDRESS
:CLEAR BEGINNING CYLINDER ADDRESS
*SETUP END TRACK ADDRESS
:SETUP FOR WORST CASE PATTERN
:SETUP INVALID DRIVE NUMBER
*BRANCH TO START

;GO FIND OUT WHAT DRIVE

012737
005037
004737
104401
104411

006344
001112
010432
021257

001300

MC:

;CONTROL C ABORT ENTRANCE
:CLEAR THE ERROR ACCUMULATOR

TYPE

,MONIT

*ASK FOR DRIVE NUMBER

RDL IN
MOV
JSR
3$
gg

001214
021301

28:

001166

3%:

001214

4$:

006170
012512

#OENTER,CNTLC
SERTTL

JSR

006654

000011

MOV
CLR

5%:

(SP)+,R1
RS, CK.CHR

*INITIALIZE THE TTY KEYBOARD

*READ THE KEYBOARD
*ADDRESS OF ENTRY

:CHECK ONE CHARACTER
*ILLEGAL CHARACTER
: CARRIAGE RETURN

:ll..l

4$
3$

*DIGIT 0-7
*DIGIT 8-9

CLR

DRIVE

*SELECT DRIVE ZERO

§s

:GO SEE IF DRIVE ZERO IS THERE

(MPB
BEQ

#11,41
7%

*PROGRAM LOADED FROM AN RP04/5/6 ?
“BR IF IT WAS, CAN'T FORMAT THE DRIVE

JSR

PC,RPINIT

;GO SEE WHAT DRIVES ARE AVAILABLE

TYPE

MOV

BNE

000041

PC,S$TKINT

JSR

MDRVD

:GO TYPE DEFAULT DRIVE NUMBER

L,SQUES

;TYPE *2°

R2,DRIVE

*SAVE DRIVE NUMBER

(13

PC,ST.CLK

*ASK FOR DRIVE NUMBER AGAIN

*SEE

IF DRIVE 0

*BR IF NOT

*START THE CLOCK

(ZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

003350
003356
003364

012737
012737
005037
105762

012346

BGT
BEQ

TYPE

6%:

021407

7%:

001214

001356

001214
000632
000003

001356
001222
012356

001456
001230
001224
001222
001222

001222

BR
TSTB
BNE
TYPE
BR
TYPE

#-1,SAVEFG
#-1,SEEKFG

DRVSTA(R2)
8%
6%

.MUSDR
MO
DRVTYP(R2)
7%
.MDRNP

LMER11

DRIVE ,FMTDPB
M2
DRIVE ,FMTDPB
#4670, ,ENDCYL

;SAVE THE REGISTERS
sSET 'NO OPTIMIZATION' FLAG

sSET PRIORITY BACK TO ZERO

;LOOK AT DRIVE STATUS
sBRANCH IF ONL INE
:BR _IF DRIVE NOT AVAILABLE

; 'DRIVE UNSAFE'
;GO GET DRIVE NUMBER AGAIN

;A DRIVE PRESENT?

;BR _IF SO
sTYPE 'DRIVE NOT PRESENT'
;GO GET DRIVE NUMBER AGAIN

; 'DRIVE NOT AVAILABLE'
;GO GET DRIVE NUMBER AGAIN
;SAME DRIVE AS LAST TIME ?
sBR IF IT IS
;SETUP DRIVE ADDRESS
:SETUP FOR RP04/5

#B81T00'BITOT,DRY TYP(R2)

9%:

CLR

001400
001414

9
#814. ,ENDCYL
BEGTRK
BEGCYL
ENDCYL ,TABLE+2
ggDCYL.TABLE016

SEQ 0032

;SEE IF DRIVE RP04/5

:BR _IF EITHER
;SETUP ENDING CYLINDER FOR RPO6
;CLEAR STARTING TRACK ADDRESS
sCLEAR STARTING CYLINDER ADDRESS
sENTRY LIMIT FOR BEGINNING CYLINDER
SENTRY LIMIT FOR END CYLINDER
;GET ADDRESS LIMITS FROM THE OPERATOR

;GET ADDRESS LIMITS

=09

d ) D D ) D e
D ) e

MOV
MOV
CLR
TSTB

021362

021310
006464
001222

001224

001226

001230

022056

M2:

TYPE

JSR
CMP

BHI

2%:
3%:

BLO

CMP

.ENTADR

PC ,PARENT

ENDCYL ,BEGCYL
M4

BHIS

ENDTRK ,BEGTRK
M4

TYPE

.MADRER

; 'ENTER _ADDRESS LIMITS®
;GET THE ADDRESS LIMITS
sSEE IF ENDING CYLINDER EQ TO GT THAN BEGINNING
:BR IF HIGHER
:BR IF LESS

*SEE IF ENDING TRACK EQ OR GT THAN BEGINNING

;BR IF YES
s INVALID ADDRESS ENTERED

;TRY AGAIN

;GO GET DATA PATTERN FOR FORMAT
022160

) e

M4 :

TYPE
RDLIN

006654

(VN - OV

D D D e e e
e e e e

012 434
012436

012356

v Vi
v i T 2T Nt

177777
177777
177776

G
14:10 PAGE 34
GET VALUE FOR SOF TWARE SWITCH REGISTER

24-MAY=79

021467

D D D e e

D e e e e

) e e

D d D D D d D D D D o o

o o

D—

o
P v
A
e Ao vivivisyoavvioav
—
D e e
(oleole]
NOWVISWN

O\IO\AbWN—hO\OQ\IOWJ\wN—logg\Igm

1504

30A(1052)

MSELP
(SP)
+ ,R1

RS,CK.CHR

;GO TYPE °"SELECT PATTERN'
JREAD THE KEYBOARD
JENTRY ADDRESS
;CHECK ONE CHARACTER
s ILLEGAL CHARACTER
: CARRIAGE RETURN
ks

..I

000406
020227
101403

022260
000002

1%:

000002

2%:

TYPE

CMP

MPATD

#2,R2
4$
R2 .42
31

;DIGIT 0=7
;DIGIT 8-9

sTYPE DEFAULT PATTERN

JWORST CASE PATTERN
;GO SAVE PATTERN

;1S # LARGER THAN 2
;BRANCH IF NOT

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

1560
1561
1562
1563
1564

1565
1566
1567
1568

1569
1570
1571

010237

30A(1052)

24=MAY=79

001166

38:

001240

4%:

104401

000402
104401

013746
104403
001
000
104401

006364
001220

001300

TYPE

MoV

M5:

022273
52:

001214

MOV

R2,PATSEL

sTYPE

*?°

;RETYPE LINE

;SAVE PATTERN SELECTED

#TYPADR,CNTLC

;CHANGE “C ENTRANCE

:BR IF

TST

MODE

é;PE

é':SFOU

;TYPE

"STARTING FORMAT ON DRIVE N'

TYPE

+MSCHK

sTYPE

'STARTING CHECK ON DRIVE N'

MOV

DRIVE,=(SP)

;SAVE DRIVE FOR TYPEOUT

TYPOS

BYTE
.BYTE

001167

,$QUES

SEQ 0033

°'STARTING FORMAT ON DRIVE N'

BEQ

022330

PAGE 35

GET VALUE FOR SOF TWARE SWITCH REGISTER

;GO TYPE

012737
005737
001403

14:10

TYPE

1§
0

.$CRLF

; 'FORMAT' OR

°'CHECK' MODE ?

'CHECK' MODE

;. TYPE DRIVE NUMBER

::GO _TYPE--OCTAL ASCII

s:TYPE 1 DIGIT(S)
;. SUPPRESS LEADING ZEROS

;CR=LF

;SETUP TOTAL TRACK COUNT FOR FORMAT

023737

001222

001224

001226
001230
001232

001232
001232

001222
001224
001226
001230

001232
001232

000023

001232

1%:

001232

000023

CKADRS:

2%:
3$:
001232

CMP
BNE
MOV
suB

INC
BR
MoV
suB
MOV
SuB

ENDCYL ,BEGCYL
1%
ENDTRK, TTRKS
BEGTRK, TTRKS

TTRKS
SETPAT
ENDCYL ,R2
BEGCYL ,R2
ENDTRK, TTRKS
BEGTRK, TTRKS

;STARTING AND ENDING CYLINDERS THE SAME ?
sBRANCH IF BEGCYL NOT EQUAL TO ENDCYL
;END TRACK ADDRESS
sSUBTRACT THE STARTING TRACK ADDRESS

sMAKE THE NUMBER OF TRACKS INCLUSIVE
;SETUP THE DATA PATTERN
SENDING CYLINDER

sSUBTRACT THE STARTING CYLINDER
sCALCULATE THE RESIDUAL TRACKS
sSUBTRACT THE STARTING TRACK

BPL
ADD
DEC
INC
DEC

2%
#19.,TTRKS
R2

;BR IF ENDING TRACK GREATER
s CORRECT THE VALUE
sCOUNT THE PARTIAL TRACK

ADD
BR

#19.,TTRKS
3%

SETPAT

:BR IF DONE

BM]

TTRKS
R2

sMAKE THE NUMBER INCLUSIVE
sDECREMENT THE CYLINDER COUNT

sADD CYLINDER WORTH OF TRACKS
- CONT INUE

sTHIS CODE SETS UP THE SELECTED DATA PATTERN TO BE WRITTEN ON EACH SECTOR IMAGE
001242
001244
001240

001264

013701

SETPAT:

(LR
CLR
TST

000001

001240

165555

001242
001244

BEQ
oM
COM
cMP
BEQ

MOV
1%:

PATA
PATB

PATSEL

1$
PATA
PATB
#1,PATSEL
1%

#165555,PATA

MOV

#133333 PATB

MOV

#BUFP RO

MOV

;CLEAR DATA PATTERN A
;CLEAR DATA PATTERN B

;SEE

IF PATTERN OF ONES

:BR IF SO
;SET PATA TO ONES
sSET PATB TO ONES
:SEE IF PATTERN OF ZEROS
sBRANCH IF SO

sSET UP WORST CASE

WC,R3

sSET UP COUNTER

PATA,R1

sSET UP PATTERN IN R1

sSET UP MEMORY POINTER

TMTM

(ZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.F11
28-MAR-79 1 1:23

;THIS CODE

004120
004124
004130
004136
004142
004144
004150
004156
004162
004164
004166
004172
004174
004200
004204
004210
004214
004222
004230

004234

004236
004244
004252
004256
004262
004264
004266
004272

004274
004276

004304
004310
004312
004314
004316
004320
004322
004324
004330
004336
004340
004344
004346
004352

004737
004737
112737
005737
001002

105037
112737
004037
001356

000774
005737
001775
005037

005037
005037

105037
013737
012737
005737
001450
112737
012737
012706
004037
001356
000774
005737
001775

100024
012737

004737
104010
104011
104012
104013
104014
104015
004737
022737
001403
005237
000744
005037
005037

PATB ,R2
R1,(R0O)+
R2,(R0O)+
R3
R3

MOV

005630
006030
000020
001264

WRTRK:

001357

JSR
JSR
MOVB
TST

2%:

BNE
CLRB
MOVB
JSR

001374

3%:

TST

001216
001250
001304
001366
001260
025574
001220

WRTRK1:

001357
000143
013312

000163
004244
001100
013312

001360

)
005562

000003

001360
001110

WRTRKZ2:

1%:

JSR

2%:

TST

001160

001250

4%:

ERROR
ERROR
ERROR
ERROR

JSR

CMP
BEQ
INC
BR
CLR
CLR

JKEEP COUNT
:KEEP COUNT
;DO IT AGAIN IF R3 NOT O
FORMAT

;GO SET UP DRIVER TABLE
:GO INITIALIZE HEADERS IN THE SECTOR BUFFER IN CORE
#20,FMTDPB+1
;LOAD FMT22 BIT
SEC20
;18 BIT MODE ?
1$
;BR_IF NOT
FMTDPB+1
:CLEAR THE FMT22 BIT
#SETFMT ,FMTDPB+2
: 'LOAD FORMAT' COMMAND
RO.RPO4
;START THE COMMAND
:DPB ADDRESS
2%
sQUEUE FULL RETURN
FMTDPB+16
;LOOK FOR DONE
3s
sLOOP UNTIL FINISHED
SOF SwW
;CLEAR ERROR COUNTER
RETRY
sZERO THE RETRY COUNTER
EFLG
;CLEAR ERROR DURING WRITE CHECK FLAG
FMTDPB+10
sRESTORE SECTOR
MWC ,FMTDPB+4
sRESTORE WC
#BUFP ,FMTDPB+6
sRESTORE BA
PC.SETHDR

MODE
CKTRK
#WRTHD ,FMTDPB+2
#.,SLPERR
#STACK,SP

RO,RPO4
1%

FMTDPB+16

#3$ ,$ESCAPE
I;C .ERINDX

3%:

JMOV 1ST PAT INTO MEM

JMOV 2ND PAT INTO MEM

PC,SETTBL

001250

001160
001250

FMTDPB

001362
001364

001374

004324
005462

1%:

SEQ 0034

;SET UP PATTERN IN R2

SETS UP FOR THE ACTUAL

1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670

2%:

1653
1654

001244

cld

1645
1646
1647
1648
1649
1650
1651
1652

013702
010120
010220
005303
005303
001373

14:10 PAGE 36
GET VALUE FOR SOF TWARE SWITCH REGISTER

1644

004102
004106
004110
004112
004114
004116

24~MAY=-79

WVMHWN—=O

1616
1617
1618
1619
1620
1621
1622
1623
1604
1625
1606
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643

30A(1052)

PC,LOP.CK
#3 ,RETRY
4%
RETRY

1%
$ESCAPE
RETRY

;CHECK THE TRACK JUST WRITTEN

;'FORMAT' OR 'CHECK' MODE ?

;BR IF

'CHECK' MODE

;SET WRITE HEADER & DATA COMMAND IN TBL

;SETUP LOOP ON ERROR ADDRESS
;LOAD STACK POINTER
;GO FORMAT A TRACK
;ADRS OF PARAMETERS = TBL
sWAIT FOR QUEUE IF FULL
;WAIT FOR COMMAND TO COMPLETE
sBRANCH IF NOT DONE
sBRANCH IF NO ERROR

; ;ESCAPE TO 3% ON ERROR

;SEE WHICH ERROR
;DRIVE OFFLINE

;PERSISTENT DRIVE UNSAFE ERROR

sUNCORRECTABLE MASSBUS PARITY ERROR
s SOF TWARE TIMEOUT
;DRIVE UNSAFE ERROR
;DRIVE/CONTROLLER ERROR DURING WRITE
;LOOP ON THE ERROR ?
;ERROR RETRY LIMIT ?
:BR IF REACHED
sCOUNT THE ERROR

:TRY AGAIN

:CLEAR ERROR ESCAPE ADDRESS
;CLEAR THE RETRY COUNTER

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23
1672

1673
1674

1675

004356

004364
004372

004376

112737

012737
012706

004037

1676
1677
1678

004402
004404
004406

001356
000774
005737

1680

004414

100147

1682
1683
1684
1685
1686

004424
004426
004434
004440
004444

1679
1681

004412

004416

1687
1688
1689
1690
1691
1692

004452
004456
004460
004462
004464
004466

169

004476

1693

001775

113737

001005
013737
005237
005337
012737

004737
104010
104011
104012
104013
104014

000153

004364
001100

28:

001314

001252

001266
001252
001252
005010

001252
001160

001316

005462

1695
1696

004500
004504

033727
130620

001322

1698

004510

104016

1700
1701
1702

004516
004520
004524

001416
005737
001413

1704
1705
1706

004534
004540
004542

005737
001402
005337

1699

1703

1707

1708

1709

1710

004512

004526

004546

004552

004554

005737

001220
005034

005037

001304

104017

005037

001304
001112

218:

001160

5%:

001322

004566

032777

000200

174344

000001

001304

1713

004574

100011

001426

#WCKHD,FMTDPB+2 ;SET WRITE CHECK HEADER & DATA COMMAND IN TBL

*SETUP LOOP ON ERROR ADDRESS
*LOAD STACK POINTER

1%
FMTDPI+16

:ADRS OF PARAMETERS - TBL
:WAIT FOR QUEUE IF FULL
:WAIT FOR COMMAND TO COMPLETE

BPL

*BRANCH IF NO ERROR

BNE
MOV
INC
DEC
MOV

3s
MAXSEC,SAVSEC
SAVSEC
SAVSEC
#108,SESCAPE

;BRANCH IF NOT SECTOR O
:RESTORE TO LAST SECTOR +1
*INCREMENT TO LAST SECTOR +1
*ADJUST SECTOR TO THE ONE THAT FAILED
::ESCAPE TO 10$ ON ERROR

BIT

MICE ,RP.REG+RPCS2

BIT
.WORD

RP.REG+RPER1, (PC)+
:CHECK FOR DATA ERRORS
DCK'OPI'DTE'HCRC'HCE'FER
:DATA ERROR BITS

JSR

FMTDPB
BR
ST
BEQ

BNE

001160

SEQ 0035

#.,SLPERR
#STACK, SP

JSR
ERROR
ERROR
ERROR
ERROR
ERROR

4$:

005737

004564

38:

001216

012737

MOVB

MOV
MOV

MOVB

001001

004560

1711

1712

CKTRK:

001374

040000

004506

001360

001110

1%:

032737

1697

24-MAY-79
14:10 PAGE 37
GET VALUE FOR SOF TWARE SWITCH REGISTER

013312

004470

001005

30A(1052)

RO, RPO4

:SEE WHICH ERROR
:DRIVE OFFLINE
*PERSISTENT DRIVE UNSAFE ERROR
:UNCORRECTABLE MASSBUS PARITY ERROR
*SOF TWARE TIMEOUT
:DRIVE UNSAFE ERROR

:BR IF SET

MODE

MOV

#118,8ESCAPE

(LR

EFLG

ST
BEQ
DEC

ERROR

CLR

:BR IF SET

*CONTROLLER/DRIVE ERROR DURING WRITE CHECK

5%
SOF SW
13

:BR IF CHECK
*RETRYING THE SECTOR ?
‘BR IF NOT

EFLG
218
SERTTL

:ERROR DURING WRITE CHECK REPORTED ?
*NO,
INCREMENT ERROR COUNT
:YES, DECREMENT REPORTED ERROR COUNT

$ESCAPE

RP.REG+RPER1

BIT

#BIT7,aSWR

MOV

#1,EFLG
7$

BEQ

:WRITE CHECK ERROR ?

BPL

;GET THE SECTOR ADDRESS

PC,ERINDX
10
11
12
13
14

BEQ
ST
BEQ

*BRANCH IF NOT DONE

RP.REG+RPDA,SAVSEC

BNE

ERROR

:GO CHECK THE TRACK JUST FORMATTED

:FORMAT OR CHECK MODE ?

:;ESCAPE TO 11$ ON ERROR

:CLEAR ERROR DURING WRITE CHECK FLAG

*SECTOR NOT ACCEPTABLE

:CLEAR THE ERROR ESCAPE ADDRESS

:DATA CHECK ERROR
?

238

*NO, CHECK OTHER ERRORS

*YES, SKIP ERROR REPORT

*INHIBIT SOFT ERROR REPORTS ?

1714

004576

012737

1716

606

000421

1717 004610 032737 040000 001316 23$:

B8R

1718

1719

004616

001411

BEQ

1720

004626

BIT

#BIT7,3SWR

*INHIBIT SOFT ERROR REPORTS ?

MOV

#1,EFLG

*SET ERROR DURING WRITE CHECK FLAG

1715

1721

1722

1723
1724
1725

1726

1727

004604

104020

004620

032777

000200

174312

004630

012737

000001

001304

004636

001411

104024

004640

000404

004652

013701

004642
004650

004656

012737
104025
113737

000001

001252

001304
001366

ERROR

BIT

BEQ

ERROR

24%:

7%:

DATA ERROR DURING WRITE CHECK

ONT INUE

MJCE RP. REG*RPCS?

248
7%

MOV
ERROR

#1,EFLG
25

MOVB

SAVSEC.FMTDPB+10°

MOV

:SET ERROR DURING WRITE CHECK FLAG

SAVSEC,R1

‘WRITE CHECK ERROR ?

:NO, MUST BE HARDWARE ERROR

*YES, SKIP ERROR REPORT

:WRITE CHECK ERROR

* CONT INUE

*SET ERROR DURING WRITE CHECK FLAG
:HARDWARE ERROR DURING WRITE CHECK

*FAILING SECTOR ADDRESS
;SECTOR ADDRESS

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P1
28-MAR-79 11:23

1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743

1744
1745
1746
1747
1748
1749

006301
016137
013746

001500
0

30A(1052)

24-MAY-79 14:10 PAGE 3 8
GET VALUE FOR SOF TWARE SWITCH REGISTER
ASL

; SETUP_INDEX TO ADDRESS WORDS

MOV

MWC,=(SP)

;GET MAXIMUM WORD COUNT VALUE (2'S COMP)

MOv

001364

001362

000002

001216

:ADD WORD COUNT THROUGH FAIL ING SECTOR

TST
BEQ

MODE
9%

;FORMAT OR CHECK MODE
?
:BR IF CHECK

SOF SW

;INDICATE THAT A RETRY IS IN PROGRESS

SOF SW

:RETRY IN PROGRESS
?

INC

001266

001366

JMP

TST

BEQ

CMP

001216
9%:

001250

174062

12%:

sSTORE WORD COUNT FOR REMINDER OF TRACK

#-260. ,FMTDPB+4 ;WORD COUNT FOR 1 SECTOR

WRTRK?2
11%

#2,SOF SW

:REFORMAT ERROR SECTOR
:BR_IF NO

;SEE IF LAST RETRY

9%
SOF SW

CMPB
BEQ
JSR
CLR

MAXSEC,FMTDPB+10
;SEE
11%
;BR IF
PC,SCAWC
sSETUP
SOF SW
:CLEAR

JMP

JSR

;READ AGAIN

EFLG

:CLEAR ERROR DURING WRITE CHECK FLAG

PC,LOP. CK

#3 ,RETRY

JMP
CLR

1$
$ESCAPE

CLR
CLR
BIT
BEQ

IF LAST SECTOR ON THE TRACK
IT IS
TO CHECK REMAINING SECTORS ON THE TRACK
RETRY COUNTER

sFINISH CHECKING THE TRACK
sCHECK FOR LOOP ON ERROR

;ERROR RETRY REACHED ?

11%
RETRY

sBR IF IT IS
s COUNT THE RETRY

RETRY
EFLG
#BIT1,3SWR
12%

;CLEAR THE RETRY COUNTER
:CLEAR ERROR DURING WRITE CHECK FLAG
;LOOP ON CURRENT TRACK ?
:BR IF NOT

JMP

WRTRK1

BR
JMP

HDREAD
WRTRK1

JSR

:BR IF IT IS
: INCREMENT RETRY COUNT

CMP

BEQ
INC

118:

(SP)+,SAVW(

BEQ
INC

CLR

108:

:BUFFER ADDRESS FOR FAILING SECTOR

WCTBL(R1),(SP)

MOV

8%:

ADRTBL (R1) ,FMTDPB+6

ADD

MOV
177374
001216
004236
001216

SEQ 0036

PC,TRKTST

;DO _THE WRITE CHECK AGAIN
;CLEAR THE ERROR RETURN ESCAPE ADDRESS

:START AGAIN ON THE SAME TRACK

;GET UPDATED TRACK AND CYLINDER ADDRESSES

sRETURN HERE IF DONE - DO QUICK CHECK OF DISK
sCONTINUE WITH THE FORMAT

:THIS CODE MAKES SURE EACH CYLINDER FORMATTED CONTAINS THE
sPROPER CYLINDER ADDRESS. THE PROGRAM IS LOOKING FOR
;POSSIBLE POSITIONER ERRORS THAT MAY HAVE OCCURRED DURING THE FORMAT.
HDREAD:

1%:

CLR

JSR
JSR

MOV
MOV
MOV
CLR
MOV
MOvB
MOV
MOV
JSR

HEDERR

PC,SETTBL
PC,SETHDR

BEGCYL,CYLCK
#-4 FMTDPB+4
#RBUF ,FMTDPB+6

:CLEAR HEADER CHECK ERROR INDICATOR

:GO SET UP DRIVER TABLE
;GO _SET UP HEADERS IN CORE

;USE 'BEGCYL' FOR FORMAT VERIFICATION
sSET UP WORD COUNT
;SET UP BUFFER ADRS
FMTDPB+10
sCLEAR THE SECTOR & TRACK ADDRESS FIELD
BEGCYL ,FMTDPB+12 ;SETUP THE CYLINDER FIELD
#RDHD ,FMTDPB+2 ;SET UP READ HEADER & DATA COMMAND
#. ,SLPERR
sSETUP LOOP ON ERROR ADDRESS
#STACK,SP
;LOAD STACK POINTER
RO,RPO4

.GO READ HEADER

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23
1/81

24=MAY=79 14:10 PAGE 39
GET VALUE FOR SOF TWARE SWITCH REGISTER
FMTDPB

~
o
N

001374

2%:

005270
005462

001160

177577

001374

D
D i
D i

D i
cd

001160

005562
025564

025574

4%:

005562
001222

001246

6%:

D e

38:

5%:

7%:

—d

WN=O

.SBTTL

b cd

SEQ 0037

sADRS OF PARAMETER TBL

;WAIT IF QUEUE IS FULL

TST
BEQ
BPL
MOV

FMTDPB+16
2%
4%
#5%,$ESCAPE

sWAIT FOR COMMAND TO COMPLETE
sBRANCH IF NOT DONE
;BR _IF NOT ERROR
:;ESCAPE TO 58 ON ERROR

ERROR
ERROR
ERROR
ERROR
ERROR

10
11
12
13
14

:DRIVE OFFLINE
sPERSISTENT DRIVE UNSAFE ERROR
sUNCORRECTABLE MASSBUS PARITY ERROR
: SOF TWARE TIMEOUT
:DRIVE UNSAFE ERROR

3%
21
$ESCAPE
22

:BR IF YES
:CONTROLLER/DRIVE ERROR VERIFYING HEADERS
;CLEAR THE ERROR ESCAPE ADDRESS
sHEADER COMPARE ERROR VERIFYING HEADERS

CMP
BEQ
ERROR
JSR
CMP
BNE
JMP
INC

RBUF ,BUFP
6%
23
PC,LOP.CK
ENDCYL,CYLCK
7%
$EOP
CYLCK

;SEE IF CYL READ EQUALS CYL EXPECTED
:BR IF CYL CORRECT
sCYLINDER NOT CORRECT
sCHECK FOR LOOP ON ERROR

INC
BR

FMTDPB+12
1%

PC.ERINDX

sSEE WHICH ERROR

BIT

#*C<HCE>,FMTDPB+16

JSR

PC,LOP. CK

BEQ
ERROR
CLR
ERROR

JSR

;IS ONLY ERROR A HEADER COMPARE ERROR ?

sCHECK FOR LOOP ON ERROR

;SEE

IF LAST CYLINDER

:BR IF NOT FINISHED
;END OF FORMAT
s INCREMENT CYLINDER ADDRESS BEING CHECKED

PC,UPDACY

:SET UP FOR NEXT CYL

;ADVANCE TO NEXT CyL #
;GO READ NEXT HEADER

END OF PASS ROUTINE

R R AR RAR RN R R

R RN R R AR AR R R RARRNRRRRRRRRARRNANRRR
AR
AN
RN

s *INCREMENT THE PASS NUMBER ($PASS)
;*IF THERES A MONITOR GO TO IT
s*IF THERE ISN'T JUMP TO DONE

b cud

VNV

REE

b e

d et e cd

D d D

00 00 0o 0o 00 0o 00 00 00 0o

d i

005326
001246

JSR

BRI ARECIZIAIFIRAY
234

pu=y

1783
1784
1785
1786

005172
005174

30A(1052)

$EOP:

005737
001403

104401
000402
104401
104401

3$:

4$:

013746
104405
104401

005237
042737
005327
00000
003013
012737
000001
005400
013700

MODE

TYPE

,MFCMPT

BEQ

B8R

TYPE

,MCCMPT

*BR IF

'CHECK®

SYFORMAT COMPLETE"

*FINISH THE END MESSAGE

:*CHECK COMPLETE'

NUMERR

**TOTAL ERRORS DETECTED: °

,S$CRLF

::GO TYPE==DECIMAL ASCII WITH SIGN
*CR-LF

$ERTTL,-(SP)

INC

$PASS

BGT
MOV

$DOAGN
(PC)+,a(PC)+

::YES
::RESTORE COUNTER

w42 RO

;:GET MONITOR ADDRESS

BIC
DEC
$EOPCT: .WORD

$ENDCT:

:"FORMAT' OR 'CHECK' MODE ?

MOV

TYPDS
TYPE

001100

.WORD
$EOPCT
$GET42: MOV

#100000,$PASS
(PC)+
1

::SAVE SERTTL FOR TYPEOUT

:; INCREMENT THE PASS NUMBER
- :DON'T ALLOW A NEG. NUMBER
::LOOP?

CZRJBDO, RP04/5/6 FMTR

CZRJBD.P11
1837
1838
1839

HAC5;1 30A(1052)

28-MAR-79 11:
001405

M
14:10 PAGE 40
END OF PASS ROUTINE

24=MAY=79
BEQ

000005

RESET
$ENDAD: JSR

1840

$DOAGN

;sBRANCH IF NO MONITOR
;:CLEAR THE WORLD
2.GO TO MONITOR
2 :SAVE ROOM
:sFOR

PC. (RO)

—) =3

VONOWNSWN=0OV ONOVIS
W

173474

$RTNAD: .WORD
DONE:
BIT

1%:
PR

AR R

a(PC)+
DONE
#SW0,asSwR
1$

2 sRETURN

JSEE IF SWR O SET
;BR IF SET
sASK FOR NEXT DRIVE
sRESET STACK POINTER

MOV

.SBTTL

#STACK,
SP

M5
A

;DO THE FORMAT OR CHECK AGAIN
e

222222;

SUPPORT SUBROUTINES

MR ARtt
et
T332
t
322232%2¢

;THIS ROUTINE DETERMINES THE ERROR TYPE

010146

ERINDX: MOV
CLR

001374

BIT

001374
001374

JACTN

$DOAGN:

Co 0o

)

sl i

EREEREREET =3533a3 33 SEERERER & gmmmmmmmmmmg 2RRPRP 3

1841

000001

SEQ 0038

1%:

2%:
3%:

4%:
5%:

000002

.WORD
BNE
BIT
.WORD
BNE
BIT
.WORD
BNE
BIT
.WORD
BNE
BIT
.WORD
BNE
INC
INC

R}.~(SP)
FMTDPB+16, (PC)
+

ADD

MOV
RTS

;CHECK ERROR TYPE

giT14‘BIT13'BITZ'BIT1

:DRIVE OFFLINE

:BR IF OFFLINE

FMTDPB+16,
(PC) + :CHECK ERROR TYPE

BITi2

;DRIVE PERSISTENTLY UNSAFE
48
:BR IF UNSAFE
FMTDPB+16, (PC)+ s CHECK ERROR TYPE
ggmBITi0
:UNCORRECTABLE MASSBUS PARITY ERROR ?
:BR IF PARITY ERROR
FMTDPB+16, (PC)+ :CHECK ERROR TYPE

gg T09'81T08

:SOF TWARE TIMEOUT ?

:BR IF
FMTDPB+16,
(PC) + ;CHECK
BITO4
:DRIVE
:BR IF

INC
INC

INC
ASL

:STORE R1
;CLEAR R1

R1,2(SP)
(SP)+,R1

YES
ERROR TYPE
UNSAFE ERROR ?
YES
s INCREMENT THE RETURN INDEX
s INCREMENT THE RETURN INDEX

: INCREMENT THE RETURN INDEX
s INCREMENT THE RETURN INDEX
s INCREMENT THE RETURN INDEX
;DOUBLE THE INCREMENT
;DEVELOP THE RETURN ADDRESS

;RESTORE R1
sRETURN

JROUTINE TO CHECK FOR LOOP ON ERROR
001000
173312

001160

173350

LOP.CK: BIT
BEQ
JMP
1%:
CLR

#SW09 ,aSWR
1%

a$LPERR
$ESCAPE

;LOOP CN ERROR ?
:BR [F NOT
;GO _TO THE LOOP ON ERROR ADDRESS
;CLEAR THE ERROR ESCAPE ADDRESS

CZRJBDO, RPO4/5/6 FMTR MACYI1 30A(1052)
24=MAY=79 14:10 PAGE 41
CZRJBD.P11
28-MAR-79 11:23
UPPORT SUBROUTINES
1893
1894
1895

1896
1897
1898

005612
005620
005622
005626

033727
072002
001004

032737
001402
000137
000207

001374
004000

BIT

2%:

005326

3$:

001214

001356

13737
012737

001260
8(2)5%22

001362
001364

013737

001224

001367
001370

005702
005710

013737
013737

001230
001232

001236
001234

n
W
o

g
005670

005650

W
~
W
~N

3737

D il

VONOVNSBWN=O

BIT

BEQ

JMP

RTS

FMTDPB+16,(PC)+

SEQ 0039

-CHECK FOR 'FATAL' ERROR

8%714'BIT"S'BIHZ‘BIHO'BITO
2
IF NOT

;"FATAL' ERROR BITS

mLE.RP.REGmPERi unns LOCK ERROR ?
3$

:BRIF

*RETURN

$EOP

rewmre THE FORMAT

:THIS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE

)
) i
i
b
) o

b
b
b

bl o
D

d
b
b

1920

WORD
BNE

001322

238282

1899

005602
005606
005610

SETTBL: MOVB
CLRB
MOV
MOV
CLRB
MOVB
MOV
CLR
MOV
MOV
RTS

DRIVE ,FMTDPB
;SET UP DRIVE #
FMTDPB+3
;CLEAR HIGH ORDER ADRS BITS
MWC ,FMTDPB+4
sLOAD UP WORD COUNT
#BUFP,FMTDPB+6 ;LOAD UP CURRENT ADRS
FMTDPB+10
;SET _SECTOR _TO ZERO
BEGTRK,FMTDPB+11
;SET UP STARTING TRK ADRS
BEGCYL ,FMTDPB+12 ;SET UP STARTING CYL
FMTDPB+16
;CLEAR RPO4 STATUS
BEGTRK,TRKCNT
;SET UP PARTIAL CYL TRACK COUNT
TTRKS, TTRKSC
sSET UP TOTAL TRACKS COUNTER
FC

;RETURN FROM SETUP

sTHIS ROUTINE CONTROLS THE DISK ADDRESSING AND TOTAL TRK COUNT
;1T IS ENTERED AFTER EVERY TRK OPERATION
TRKTST:

005726

022737

000022

001236

DEC

BEQ

CMP

BEQ
INC

INCB

égR

1%:

2%:
38:

CLR

CLRB
INC
JSR
ADD
RTS

TTRKSC

#18.,TRKCNT

;SEE

IF LAST TRACK

:BRANCH IF LAST TRACK

;1S THIS THE LAST TRACK IN THE CYLINDER ?

1%
TRKCNT

:BRANCH IF SO
sCOUNT UP TRACK WITHIN CYLINDER

SS.U’DATK

g(’??'l’f TRACK ADDRESS IN BUFFER

FMTDPB+11
TRKCNT

FMTDPB+11
FMTDPB+12
PC.,UPDACY
#2,(SP)
PC

s INCREMENT TRACK NUMBER

sCLEAR TRACK COUNT FOR NEXT CYLINDER

sRESET TRACK ADDRESS TO 0
sUPDATE CYLINDER NUMBER

sUPDATE CYLINDER NUMBER IN BUFFER
sADD TWO TO RETURN ADRS
sRETURN

sTHIS ROUTINE SETS LP WC & BA FOR REMAINING SECTORS

SAFTER A WRITE CHECK ERROR

1936
1937

006002
006010

013737
062737

001254
001010

1939

006022

005037

001216

1938

006016

905237

001366

SCAWC:

MOV

SAVWC ,FMTDPB+4

;SET UP WC FOR REMAINING SECTORS

FMTDPB+10

sADVANCE TO NEXT SECTOR IN TBL

ADD

#520. ,FMTDPB+6

CLR

SOF SW

INC

RTS

;SET UP BA FOR REMAINING SECTORS
sRESET RETRY COUNTER

sRETURN TO COMPLETE TRK FORMAT

sTHIS ROUTINE SETS UP THE CYLINDER ADRS, FORMAT BIT, TRACK AND
;SECTOR ADRS IN MEMORY WITH THE STARTING CYL = TRK INFORMATION

EREER

1942

001362
001364

006034
006040

013701
012700
013702

001266
025574
001224

SETHDR: MOV
MOV
MOV

MAXSEC,R1
#B8UFP RO
BEGCYL ,R2

sSET UP SECTOR COUNT
:SET UP HEADER POINTER IN RO
sPUT STARTING CYL # IN R2

1949

006044
006050
006052
006056
006060
006064
006066
006070

013703

000303
005737
001402
052702

30A(1052)

14:10 PAGE 42
SUPPORT SUBROUTINES

001230
001264
010000

1$:

001002

000207

24=MAY=79

MOV
SWAB
ST
BEQ
BIS
MOV
MOV
CLR
CLR
ADD
INC
DEC
BGE
RTS

BEGTRK,R3
R3
SEC20
1%
#10000,R2
R2, (RO) +
R3,(R0O)+
(RO)+
(RO)
#514. RO
R3
R
1%

SEQ 0040

sPUT _STARTING TRK # IN R3
;JUSTIFY _TRACK_ADRS
;SEE IF 20 OR 22 SECTOR MODE
BR IF 20 SECTOR MODE

SSFT THE 22 SECTOR FORMAT BIT

sWRITE IN HEADER AREA OF CORE THE CYL ADRS
;WRITE IN HEADER AREA OF (ORE THE TRK ADRS

;CLR 1ST KEYWORD
:CLR 2ND KE YWORD

:SET UP FOR NEXT HEADER

:UPDATE SECTOR ADRS FOR NEXT HEADER
sMAINTAIN COUNT OF SECTORS
sBRANCH IF NOT LAST SECTOR
JEXIT = HEADERS ARE LOADED INTO CORE

;THIS ROUTINE UPDATES THE CYLINDER ADRS OF THE HEADER WORDS IN CORE
013701
012700
005220
042710

062700
005301
002371
000207

001266
025574

UPDACY: MOV
MOV
1%:
INC

177400
001006

BIC

ADD
DEC
BGE
RTS

MAXSEC,R1
#BUFP RO
(RO)
+

#177400, (RO)

#518. RO
R1
1%
PC

sSET UP SECTOR COUNT
sSET UP HEADER POINTER IN RO
s INCREMENT FOR NEXT CYLINDER

:RESET TRK ADRS TO 0

;SET UP FOR NEXT HEADER

:COUNT SECTORS
:?;??CH IF NOT LAST SECTOR

s THIS ROUTINE UPDATES THE TRACK ADRS OF

013701
012700
005720

062710
062700
005301
002372
000207

00126¢
025574

UPDATK: MOV
MOV
TST
1%:
ADD
ADD
DEC
BGE
RTS

000400
0C1010

MAXSEC,R1
#BUFP,RO
(RO)
+
#400, (RO)
#520. ,RO
R
1%
PC

THE HEADER WORDS IN CORE

;SET UP SECTOR COUNT
;SET UP HEADER POINTER IN RO
;POINT HEADER POINTER TO TRK - SEC ADRS
s INDEX TRK ADRS
;SET UP FOR NEXT HEADER
s COUNT SECTORS
:2§?¥CH IF NOT LAST SECTOR

;ROUTINE TO CHECK FOR KW11-L OR KW11=-P CLOCKS

012737
005037
005777
013746
012776

062716

012736
012777
012777
0004

006246
000006

000004

ST.CLK: MOV

000000

TST
MOV
MOV

asSLKCSR
$LPVEC,=-(SP)
#CLOCK a(SP)

MOV
MOV

cpns a(SP)+
#-1,38LKCSB

B8R

STCLK3

172770

172742
172732

000004
000000

“CLR

ADD

MOV

STCLK1: ADD

MOV

#STCLK1,@¥ERRVEC

ANERRVE
C +2

2. (SP)

#135,38LKCSR

#4,SP

sCHECK FOR KW11-P

:VECTOR ADDRESS

:SET UP KW11-P VECTOR

;POINT TO PSW
:PSW = PRI 6

;LOAD COUNTER BUFFER
sSET CLK = CNT ULP

sRESTORE THE STACK POINTER
HANGE ERROR VECTOR

#STCLK2,a#ERRVEC

TST
MOV
MOV

asLKS
$LLVEC,-(SP)
#CLOCK .a(SP)

MOV

#PR6,D(SP)+

ADD

;SET UP VECTOR FOR P (LK
:NEW PSW

#2.(SP)

;LOOK FOR KW11=L
:KW11-L VECTOR ADDRESS
sSET UP KWl1-L VECTOR
INCREMENT VECTOR ADDRESS
PSW = PRI 6

oo
|

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

2005

012777
000402
062706
012737
000207

30A(1052)S
24=MAY=79

14:10

UPPORT SUBROUTINES

PAGE 43

SEQ 0041

000100

172672

ggv

g}gek§$LKS

sSET KW11=L INTERRUPT ENABLE

000004
000006

000004

STCLK2: ADD
STCLK3: MOV

#4 ,SP
#6 ,a#ERRVEC

sRESTORE THE STACK POINTER
JRESTORE THE ERROR VECTOR

RTS

;THIS CODE SERVICES A CLOCK INTERRUPT EVERY 16MS

012746
004737
000002

000020
016744

CLOCK:

MOV
JSR
RTI

#16.,=(SP)
PC.RPTMR

sPUT MILLISECONDS ON THE STACK
;GO REPORT TIME
JRETURN AND CONTINUE

;ROUTINE TO INTERCEPT 'CONTROL C' TYPED DURING PARAMETER ENTRY TIME
012706
005737
001375
000005
000137

001100
012406

OENTER: MOV
1%:
TST
BNE
RESET
JMP

003176

#STACK,SP
TRNSWT
1%

sINITIALIZE THE STACK
¢ALL ACTIVITY STOPPED ?
:BR _IF NOT
;CLEAR THE BUS
sSTART AGAIN WITH DRIVE SELECTION

;ROUTINE TO TYPE THE PRESENT DISK ADDRESS.

177776
006344
022465

001300

TYPADR:

001367
011716
011656
001167
006364

CLR

PSW

;SET PROCESSOR TO PRIORITY 0

TYPE
TYPE

.ADDRIS
oC

':?8ESENT ADDRESS

MOV

FMTDPB+12,-(SP)
PC,$S82D
PC,$SUPRS

TYPE

CLR
MovB
JSR

°'CONTROL C' RETURN ADDRESS
IS:

";PUT THE CYLINDER ADDRESS ON THE STACK
sCONVERT IT TO DECIMAL
STYPE IT

: SPACES

=(SP)
FMTDPB+11,(SP)
PC,$582D

sCLEAR THE STACK
;PUT THE TRACK ADDRESS ON THE STACK
sCONVERT IT TO DECIMAL

,SCRLF

“CR-LF

PC . $SUPRS

MOV

#TYPADR,CNTLC

RTI

;CHANGE

,LINSP

JSR

TYPE

001300

#OENTER,CNTLC

MOV
JSR
JSR

TYPE

021277

ENTERED BY TYPING 'CONTROL C'

3°7e

STYPE IT

RESTORE ENTRANCE TO THIS ROUTINE
*RETURN

:igfiffnersa ENTRY ROUTINE

MOV

#ADR ,R3

:PARAMETER TABLE ADDRESS

PARENT: MOV

R3,~-(SP)

;SAVE R3

1$:

(R3)+,3$

*ADDRESS OF PARAMETER NAME

001376
006502

3$:

021271

JSR

MOV

PC,PARENT

#TABLE ,R3

BEQ

LWORD
MOV
MOV
MOV

0
(R3)+,R2
(R3)+,R5
(R5) ,=(SP)

TYPE

TYPDS
TYPE
RDLIN

*GET THE PARAMETERS

.SLASH

*PARAMETER TABLE ADDRESS

:BR IF AT END OF TABLE

STYPE

THE PARAMETER NAME

:ADDRESS OF PARAMETER NAME TEXT
sMAXIMUM PARAMETER VALUE
sADDRESS OF PARAMETER
s CURRENT VALUE OF PARAMETER
TYPE ,THE CURRENT VALUE OF

READ THE KEYBOARD

THE PARAMETER

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR=79 11:23

2061
2062
2063

012601

004535

30A(1052)

24=MAY=79

14: 10

SUPPORT SUBROUTINES
MOV

006726

PAGE 44

(SP) +,R1

JSR

R5.CK.DIG

1%
9%

022036
000006

6%:
7%:

001376

8%:
9%:

SEQ 0042

s INPUT ASCII STRING ADDRESS
sCHECK THE DIGIT(S)
sCARRIAGE RETURN ONLY ENTERED
s ILLEGAL INPUT

6%
7$
MOV
BR

R2. (RS)
1%

SuB
BR
MOV
BR
MOV
BR
MOV

#6.R3
1$
R2. (RS)
9%
#TABLE ,R3
1%
(SP)+,R3

TYPE

,BADENT

RTS

sTHIS ROUTINE

JPERIOD ONLY ENTERED

6$
5%

5%:

)

TERMINATED WITH A CARRIAGE RETURN
TERMINATED WITH A’
TERMINATED WITH A %"

:MOVE NEW VALUE TO PARAMETER LOCATION
;GET MORE PARAMETERS
; "BAD ENTRY'
;DECREMENT THE TABLE POINTER
;s TRY AGAIN

JNEW VALUE
SJEXIT
JRELOAD THE PARAMETER TABLE ADDRESS

;TRY AGAIN

JRESTORE R3
sRETURN

IS USED TO CHECK IF AN

;ASCII CHARACTER IS A DIGIT BETWEEN O AND 7.
s CALL
#ADR ,R1
MOV
;ADDRESS OF ASCII CHARACTER
R5,CK.OCT
JSR
;CHECK THE CHARACTER
RETURN1
;CHARACTER IS NOT BETWEEN 0-7
RETURNZ
sCHARACTER IS IN R2 AS A
;OCTAL DIGIT

006600

000060

(K.OCT:

(R1),4°0
1%
(R1) 4'7
1%
(R1) .R2
#*C7,R2
(R5)+
R5

CMPB

000067

006612
006614
006616

177770

006624

1%:

TST

RTS

sTHIS ROUTINE

;LESS THAN ZERO?

:YES == BRANCH

:GREATER THAN SEVEN?
;YES == BRANCH

:GET THE CHARACTER

;STRIP AWAY THE ASCII

;ADJUST FOR RETURN

sRETURN

IS USED TO CHECK AN ASCII

CHARACTER

SeSaNann,

3IRIR

#ADR ,R1
MOV
R5,CK.DEC
JSR
RETURN1

RETURNZ2

—_

o
NNN

—

VIR
= — -

b ald

sSNSo 'y

b =
b

SR —Onon

NS WN=O

b cd

b
b

—h

000060

(K.DEC:

000071

(R1) ,#'0
1%
(R1) #'9
1%

(R1) ,R2

000060

#'0 R2

1%:

sADDRESS OF ASCII CHARACTER
sCHECK THE CHARACTER

:NOT BETWEEN O AND 9
;BETWEEN O AND 9

;R2 = DIGIT

WSLS SN LNTNTN
S LN LN N

sAND DETERMINE IF IT IS A DIGIT BETWEEN O AND 9.
s CALL

(RSS+

;LESS THAN ZERO?

:YES == BRANCH

GREATER THAN NINE?
; YES
== BRANCH
:GET THE CHARACTER
:STRIP AWAY THE ASCII

:ADJUST FOR RETURN
sRETURN

(e Tan

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD P11
28-MAR-79 11:23

24=MAY=79

14:10
PAGE 45
SUPPORT SUBROUTINES

E
SEQ 0043

sTHIS ROUTINE WILL CHECK AN ASCII

;DETERMINE WHAT IT IS.
. CALL

NONNNWN~N
=

W= WNON)
=N — —

d e \ )

any

— e

VSRS

2 88878383

RE TURN
RETURN
RE TURN
RETURN
RETURN
RETURN

—

e T
e
b cald aud B

b b
e
o
o
b e

ORI
VIS
W)
= EIBN[+ JV
P 5
~N

MCV
JSR

(K.CHR:

000054
000056
006626
006600

TSTB

BEQ
CMPB
BEQ
CMPB
BEQ
JSR
BR
JSR
TST

TST

1%:

TST
TST
TST

4%:

MOV
RTS

2%:
3%:

INC

#ADR,R1

CHARACTER TO

:ADDRESS OF ASCII

CHARACTER

RS,CK.CHR
ADR1
ADR?

*CHECK CHARACTER
“UNKNOWN CHARACTER
:CARRIAGE RETURN * (R1)=ADR+1

ADR%
ADRS
ADRG

*PERIOD * (R1)=ADR+1
:DIGIT BETWEEN O AND 7.
:DIGIT BETWEEN 8 AND 9.

ADR3

“COMMA * (RT)=ADR+1

*R2 = DIGIT * (R1)=ADR+1

(R1)
33
(R1).4°,

:"'CARRIAGE RETURN'“?
;YES == BRANCH
SUCoOMMA’
2

(R1) 4.

**PERIOD'?

*YES == BRANCH

1%
RS, CK.DEC
43

*YES == BRANCH
S'DIGIT'?
“NO == BRANCH

(R§)+

:DIGIT BETWEEN 8-9

(R5)+

*PERIOD

RS,CK.OCT

(RS5)+

(R5)+
(R5) +
R1
(RS) ,RS
RS

;THIS ROUTINE CHECKS AN ASCII

*OCTAL ?

*DIGIT BETWEEN 0-7

;COMMA
:CARRIAGE RETURN
:MOVE POINTER TO NEXT CHARACTER
*UNKNOWN CHARACTER
*RETURN
STRING FOR LEGAL

;CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2.

s CALL

MOV
MOV
JSR

#NUM,R2
R5,CK.DIG
ADR1

sMAX. MAGNITUDE OF INPUT NUMBER
sCHECK DIGITS
:"'CR" ONLY ENTERED == R2=0

ADR3

;JLLEGAL CHARACTER OR INPUT TOO LARGE == R2=?

ADR2
ADR4

ADRS

ADR6

(K.DIG:

R4,=(SP)

:*PERIODTM ONLY ENTERED == R2=0
“CR" == R2= NUMBER

1'COMMA'* == R2
= NUMBER

:*PERIOD' == R2
= NUMBER
:SAVE R4

R3,-(SP)

;SAVE R3

;START WITH 0

R2,=(SP)

006654

;ADDRESS OF ASCIZ STRING

R5,CK.CHR

;SAVE THE MAX.

SIZE ON THE STACK

sCHECK ONE CHARACTER

: ILLEGAL CHARACTER

:CARRIAGE RE TURN

TM~

30A(1052)

)

RN S 1aS [N 1 N ASTASTAS
TSN 1S 1,8 1,8 1,8

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

NN RPN
NN

2173
2174
2175
2176

006762
006762
062705

30A(1052)

000004

1%:

2%:

SIRR REV2B3I>

1%
1%
ADD

s INPUT NUMBER =
SAVE *2

006654

SEQ 0044

*STEP RETURN PO%NTER PAST "'CR'*& 'PERIOD'* RETURNS

#4 RS

MOV

IGIT 0=7
DIGIT 8-9

R3
R3,-(SP)

ASL

ASL
ASL
ADD

8
$(x2)+(%8) = *10

RS, CK.CHR

:UPDATE THE INPUT NUMBER
:CHECK ONE CHARACTER
: ILLEGAI. CHARACTER
: CARRIAGE RETURN

*DIGIT 0-7

;DIGIT 8-9
:DOES A ''CR'* FOLLOW THE 'PERIOD'’
:BR IF NOT
s INCREMENT THE RETURN
s INCREMENT THE RETURN

(R1)

(R4)+
(R4)+
(R4)
+
R3,(SP)
9%

: INCREMENT THE RETURN
sCHECK THE MAGNITUDE OF THE NUMBER
;BR_IF ENTERED NUMBER TOO LARGE
;BYPASS INCREMENT
s INCREMENT RETURN PAST INVALID RETURN
s INCREMENT RETURN
sSETUP RETURN POINTER
;ENTERED VALUE
;CLEAN MAX. SIZE OFF OF STACK
;RESTORE R3
sJRESTORE R4
;GET RETURN ADDRESS
;RETURN

8%
(RS)+
(R5)+
R4 RS
R3.R2
(SP)+

(SP)+,R3
(SP)+,R4
(RS) ,RS
RS
.SBTTL

MACRO ROUTINES

.SBTTL

ERROR HANDLER ROUTINE

LA AR

ddd

st ettt
222222222223% )

*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
s*AND GO TO TYPERR ON ERROR
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SU1S=1
HALT ON ERROR

;*SW13=1
;*SW10=1
;*SW09=1
s*CALL
ERROR
L
jelele
Ll

177

b anb asb b

24=MAY=-79 14:10 PAGE 46
SUPPORT SUBROUTINES

04407

007076

10137
10337
13737

$ERROR:
001274
001276
001370

CKSWR

MOV

001270

MOV

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR
N

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

;;TEST FOR CHANGE IN SOF T-SWR

R1,DDRIVE
;DRIVE ADDRESS IF DRIVE ERROR CALL
R3,ATIN
JATTENTION REGISTER CONTENTS
FMTDPB+12,DS.CYL
sCURRENT CYLINDER ADDRESS

(2
T an

(ZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

113737

001367
001312

162716

000002
001124
001103

001312

001102
002000

7%:

001112
001116
000002
171710
020000

121772

1%:

007272
001167

001402
013716

001110
001160

001160

000002

INC

RP.REG+RPBA, -(spS :BUFFER ADDRESS

#2,(SP)
a(SP)+,$GDDAT

:GET THE BUFFER WORD WHICH DIDN'T COMPARE
;s SET THE ERROR FLAG
;:DON'T LET THE FLAG GO TO ZERO
;;DISPLAY TEST NUMBER AND ERROR FLAG
;sBELL ON ERROR?

L SBELL

,.R‘NG BELL

$ERTTL
(SP) ,$ERRPC
#2 ,$ERRPC
@$ERRPC,$1TEMB

171670

.SCRLF

TST

3%:

BIT

4%:

TST

5%:

:DECREMENT THE ADDRESS

$ERFLG
7$
$TSTNM,aD1SPLAY
:?ITlO.BSUR

#B1T13,aSWR
20%

20%:
2%:

SEQ 0045

FMTDPB+11,DS
TRK
.
;REQUESTED TRACK ADDRESS
RP.REG+RPBA
NON-ZERO BUFFER ADDRESS
?
7$
IF NO BUFFER ADDRESS

PC,TYPERR

171704

001000

INCB

171762

001162

PAGE 47

aSWR

::NO = SKIP

;COUNT THE NUMBER OF ERRORS

::GET ADDRESS OF ERROR INSTRUCTION
;:STRIP AND SAVE THE ERROR ITEM CODE

:sSKIP TYPEOUT IF SET
;:SKIP TYPEOUTS
::G0 TO USER ERROR ROUTINE

4%
$LPERR, (SP)
ggSCAPE

;sHALT ON ERROR
;:SKIP IF CONTINUE
;sHALT ON ERROR!
;s TEST FOR CHANGE IN SOFT=-SWR
;:LOOP ON ERROR SWITCH SET?
;:BR IF NO
;:FUDGE RETURN FOR LOOPING
..CHECK FOR AN ESCAPE ADDRESS

$ESCAPE, (SP)

..FUDGE RETURN ADDRESS FOR ESCAPE

#BIT09,aSWR

RTI

;BR IF NONE

2 sRETURN

sTHIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB)

TO DETERMINE

:WHICH ERROR IS TO BE REPGORTED, IT THEN OBTAINS, FROM THE ‘ERROR
;TABLE'' (SERRTB), AND REPORTS THE APPROPIATE INFORMATION
:CONCERNING THE ERROR.
TYPERR:

001114

001630
007332

1%:

CLR
MOVB
DEC

ASL
ASL
ASL
ADD

001167

007350

001167

2%:
3%:

:SAVE RO-R5

SAVREG

.WORD
MOV

;CLEAR RO FOR ERROR NUMBER
sERROR NUMBER

;FORM INDEX FOR ERROR TABLE

psennre RO

:FORM_ADDRESS

.SCRLF

:"CARRIAGE RETURN = LINE FEED

§R0)+28

wnA~A0
L]

013777
032777
001402

MOvVB
TST
BEQ

105237
001775

14:10

ERROR HANDLER ROUTINE

001272

b
ad b

013637

24=MAY=79

~N - —
N
— —a

005737
001406
013746

-0
NOO

007104

30A(1052)

(RO)+,4%

.$CRLF

:GET ERROR MESSAGE (EM) POINTER
:BRANCH IF THERE ISN'T ONE

;"EM'' POINTER GOES HERE

;PICK UP DATA HEADER

(DH)

sBRANCH IF NONE
;CARRIAGE RETURN~-LINE FEED

POINTER

TM~

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD A1
28-MAR-7911:23

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P1
28-MAR-79 11:23

2285
22

104401
000000

30A(1052)

24=MAY=-79

14:10 PAGE 48
ERROR HANDLER ROUTINE
(%:

001167

TYPE

. WORD
MOV

005303
001403
104401
000

20%

13%

a(R1)+,-(SP)
R3

14%

20%

sNO=-BRANCH
sYES==START A NEW LINE
sONLY A 'DH' IN THIS REQUEST ?
:BR IF YES = BYPASS THE INDENT
s INDENT?
sNO=--BRANCH
;YES==TYPE SPACES
sGET NEXT DH
sAND TYPE IT
:DH POINTER GOES HERE

.SCRLF
2(R0O)

15%
RS
158

.LINSP

(RO)+,16%

16%:

0
(RO)
21%

000004

sTYPE A 'DT*

21%:

021305

17%:

14%

. SCRLF

R5
108

.LINSP

108

20%:

RESREG
RTS

.SBTTL

TYPE ROUTINE

;LOOP
;RESTORE RO-R5
;RETURN

:BR IF A ‘DT’
s INCREMENT THE °'DF' POINTER
;SEE IF END OF °'DF' BLOCK
s CARRIAGE RETURN-LINE FEED
s INDENT?
sNO--BRANCH
;YES==TYPE SPACES

#4 RO

001167

::SAVE a(R1)+ FOR TYPEOUT
2:G0 TYPE--DECIMAL ASCII WITH SIGN
;JMORE NUMBERS TO TYPE?

sYES=-TYPE SEPERATORS
. LOOP

118
R2

15%:

sBRANCH IF DH NUMBER IS 0
sNO INDENT
:CARRIAGE RETURN-LINE FEED
;NUMBER OF DATA WORDS TO TYPE
sAND HOW TO TYPE THEM
;OCTAL OR DECIMAL?
s DECIMAL --BRANCH
::SAVE a(R1)+ FOR TYPEOUT
::G0 TYPE--OCTAL ASCII(ALL DIGITS)

+NO=--BRANCH

.LINSP

001167
000002

POINTER

sNUMBER OF DH'S TO TYPE

12%
a(R1)+,-(SP)

14%:

(DT)

sBRANCH IF NONE
sSET INDENT SWITCH
;DATA FORMAT (DF) POINTER

021305

021305
007464

;PICKUP DATA TABLE

(RO)+ ,R3
(RO)+ R4

13%:

SEQ 0046

;"DH'" POINTER GOES HERE

(RO) +,R1

JSCRLF

108:

12%:

104405

RS
(RO)+,RO
(RO)+ ,R2
17%
RS

11%:

013146

1132222222223 2222322%]

s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

:*THE ROUTINE WILL

J*NOTE1:
;*NOTE2:
J*NOTE3:
. %

INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER,

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

30A(1052)

24=MAY=-79

TYPE ROUTINE

14: 10

PAGE 49

s*CALL:
'1) USING A TRAP INSTRUCTION
TYPE
.MESADR
o*

105737
100002
000000

001157

1%:

000002

2%:
608%:
3%:

000002

000011

TSTB
BPL
HALT
BR
MOV
MOV
MovB
BNE
TST
MOV
ADD

105366

000001

3%
RO,~-(SP)

@2(SP) ,RO

(RO) +,-(SP)
A3
(SP)+
(SP)+,R0
#2,(SP)

$CHARCNT

1(SP)

;s CLEAR CHARACTER COUNT
:sGET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
soIS IT TIME FOR FILLER CHARS.?
::IF NO GO GET NEXT CHAR.
::GET # OF FILLER CHARS. MNEEDED
:;AND THE NULL CHAR.
..DOES A NULL NEED TO BE TYPED?

PC,STYPEC

::G0 TYPE A NULL

$FILLC,(SP)+

DECB
BR

;:BRANCH IF <HT>

;:POP <CR><LF> EQUIV
::TYPE A CR AND LF

SNULL ,~(SP)

007672
007736

2 sADJUST RETURN PC

2RETURN

(SP)+

PC,$TYPEC

7%:

2 :SAVE RO
;:GET ADDRESS OF ASCIZ STRING
2 sPUSH CHARACTER TO BE TYPED ONTO STACK
J:BR IF IT ISN'T THE TERMINATOR
;o
IF TERMINATOR POP IT OFF THE STACK
JsRESTORE RO

; sBRANCH IF NOT <CRLF>

5%:
6%:

;:1S THERE A TERMINAL?
s:BR IF YES
;ssHALT HERE IF NO TERMINAL
s sLEAVE

#CRLF, (SP)

007736

001154

$TPFLG
1%

#HT, (SP)

000200

001350
013746

;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE
MES/DR

A ¥

007672
001156

SEQ 0047

$CHARCNT
7%

:BR IF NO--GO POP THE NULL OFF OF STACK

::DO NOT COUNT AS A COUNT

;.LOOP

sHORIZONTAL TAB PROCESSOR

000040
007672
000007

007736

171252

000002
000015

8%:
9%:

$TYPEC:
171244

000002

#' ,(SP)
PC.STYPEC
#7 ,$CHARCNT
9%
(SP)+

a$TPS
$TYPEC

2(SP) ,a$TP8

000002

1§R.2(SP)

007736
000012

MovB
JSR

1%:

$CHARCNT
$TYPEX

#LF ,2(SP)

;sREPLACE TAB WITH SPACE
;:TYPE A SPACE
;sBRANCH IF NOT AT
;:TAB STOP
;:POP SPACE OFF STACK
;3GET NEXT CHARACTER
JsWAIT UNTIL PRINTER IS READY

::LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
; ;BRANCH IF NO
..YES;-CLEAR CHARACTER COUNT
EXI

;1S CHARACTER A LINE FEED?

CZRJBDO, RP04/5/6 FMTR

CZRJBD. P11
2397
2398
2399
2400
2401
2402
%282

007732
007734
007736
007740

MACY11

28-MAR-79 11:23

30A(1052)

001402
105227
000000
000207

24-MAY-79

TYPE ROUTINE

14:10

BEQ
INCB
$CHARCNT: .WORD
$TYPEX: RTS
.SBTTL

2‘005

PAGE 50

$TYPEX
(PC)+
O
PC

BINARY TO OCTAL

SEQ 0048
;sBRANCH IF YES
;:COUNT THE CHARACTER
. sCHARACTER COUNT STORAGE

(ASCII) AND TYPE

' ‘*tt'tfittfit.'tt*ttittti"ttt*itittfifit.ittttttt.tittfittttttttti"

2406

tTHIS ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 6-DIGIT

5288

'%,HEOS---ENTER HERE TO SETUP SLPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

2410
2411
2412
2413
2414

.'*
I*
o %
I
%

2407

;*0OCTAL (ASCII) NUMBER AND TYPE IT
%

52}2

MOV
TYPOS
.BYTE
BYTE

NUM,~-(SP)
N
M

oTM

;:0=SUPPRESS LEADING ZEROS

- %

2417
2418
2419
2420

;:NUMBER TO BE TYPED
;ssCALL FOR TYPEOUT
2:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
J:M=1 OR 0
;:1=TYPE LEADING ZEROS

;*$TYPON=--=-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC
s*CALL:
%
MOV
NUM,~-(SP)
JNUMBER TO BE TYPED

gzg;

TYPON

;2CALL FOR TYPEOUT

- %

2423
2424
2425

;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
:«CALL:
2
MOV
NUM,-(SP)
2:NUMBER TO BE TYPED

52'5‘9

2428
2429
2430
2431
2432

2433
2434
2435
2436
2437
2438
2439
2440

007742
007746
007754
007760
007764

007766
007774
010002
010010
010012
010014
010016
010022

2441

010024

2444

010040

2442
2443

2445
2446

2447
2448

2449
2450
2451
2452

010030
010034

010044
010046

010050

010052
010054
010056
010060
010062

017646
116637
112637
062716
0004

112737
112737
112737
010346
010446
010546
113704
005404

000000
000001
010167
000002

000001
000006
000005

010167

062704

000006

016605

000012

110437
113704

005003
006105

000404
006105

006105
006105
010503
006103

010165

010165
010167
010164

TYPOC

$TYPOS: MOV
MOVB
MOVB
ADD
BR

$TYPOC: MOVB
MOVB
S$TYPON: MOVB
MOV
MOV
MOV
MOvB
NEG

#1,80FILL

;+PICKUP THE MODE
2:LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
;sADJUST RETURN ADDRESS
:

;2SET THE ZERO FILL SWITCH
;2SET FOR SIX(6) DIGITS
J2SET THE ITERATION COUNT
;:SAVE R3
;sSAVE R4
2 :SAVE RS
;:GET THE NUMBER OF DIGITS TO TYPE

MOVB
MOVB

J2SAVE IT FOR USE
22GET THE ZERO FILL SWITCH

(LR
ROL

R3
RS

::CLEAR THE OUTPUT WORD
;JROTATE MSB INTO ''C**

ROL
ROL

RS
RS
RS
R5.R3

MOV

1%:

a(SP) ,~(SP)
1(SP) ,$OFILL
(SP)+,SOMODE+1
#2,(SP)
$TYPON
#6,30MODE +1
#5,80CNT
R3,-(SP)
R4 ,-(SP)
RS,=-(SP)
$OMODE+1 R4
R4
#6,R4
R4 , SOMODE
$OFILL R4

ADD

010166
010165

;:CALL FOR TYPEOUT

2%:

BR
ROL

3%:

MoV
ROL

12(SP) ,RS

2 sSUBTRACT IT FOR MAX. ALLOWED

;sPICKUP THE INPUT NUMBER

::G0 DO MSB
::FORM THIS DIGIT

;:GET LSB OF THIS DIGIT

CZRJBDO, RPO4/5/6 FMTR MACY11 30A(1052)
24=MAY=-79 14:10 PAGE 51
CZRJBD.P11
28-MAR-79 11:23
BINARY TO OCTAL (ASCII) AND TYPE
010064
010070

105337
)

010166
177770

4%:

000060

010162
010162
010164

7%:

$OMODE
7%
#177770,R3

DECB
BPL
BIC
BNE
TST
BEQ
INC
BIS
BIS
MOvB
TYPE

THIS DIGIT?

:BR_IF NO

..GET RID OF JUNK
J:TEST FOR O
2 sSUPPRESS THIS 0?
::BR IF YES

;JMAKE THIS DIGIT ASCII
;sMAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING
:2GO TYPE THIS DIGIT
,.COUNT BY 1

;:BR IF MORE TO DO
BR IF DONE

(SP)+,RS
(SP)+ ,R4
(SP)+,R3

000004

2(SP) ,4(SP)
(SP)+,(SP)

elelelele]

8%:
$OCNT:
$OFILL:
$OMODE: .WORD
.SBTTL

,.TYPE

;:DON'T SUPPRESS ANYMORE 0°'S

6%:
000002

SEQ 0049

::INSURE LAST DIGIT ISN'T A BLANK
;2G0 DO THE LAST DIGIT
;:RESTORE RS
;;RESTORE R4
;JRESTORE R3
;:SET THE STACK FOR RETURNING
: sRETURN
;s STORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE
:;OCTAL DIGIT COUNTER
;+ZERO FILL SWITCH
s ;NUMBER OF DIGITS TO TYPE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

e AR A AR AR A AR A AR

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

AR AR RN

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
s*NUMBER 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:
.

010170
010170

$TYPDS:

010404
000040

010240

010374

TYPDS

NUM, -(SP)

;sPUT _THE BINARY NUMBER ON THE STACK
:2G0 TO THE ROUTINE

RO,=(SP)
R1.=-(SP)
R2.=-(SP)
R3.-(SP)
RS .=-(SP)

;:PUSH RO ON STACK
;:PUSH R1 ON STACK
;:PUSH R2 ON STACK
ON STACK
2 sPUSH
::PUSH RS ON STACK
;:SET BLANK SWITCH AND SIGN
s+sGET THE INPUT NUMBER
;:BR IF INPUT IS POS.
;JMAKE THE BINARY NUMBER POS.
;JMAKE THE ASCII NUMBER NEG.
2 sZERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
22SET THE FIRST CHARACTER TO A BLANK
;:CLEAR THE BCD NUMBER
J;GET THE CONSTANT

czbzoo -(SP)

020200
000020

000055

MOV

zg ‘RS
000001

1%:

2%:

RZ
#'-,1(SP)
RO
#$DBLK ,R3

M (R3)f

R2
$DTBL (RO) ,R1

L
CZRJBDO, RP04/5/6 FHTR MACY11 30A(1052)
24-MAY=79 14:10 PAGE 52
CZRJBD. P11
28-MAR-79 11:23
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

2509

010244

2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520

010246
010250
010252
010254
010256
010260
010262
010264
010266
010270
010272

2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
ngg

010304
010310
010312
010314
010320
010322
010324
010326
010330
010332
010334
010342
010344
010346
010350
010352
010354
010356
010362
010370
010372
010374
010376
010400
010402
010404

160105

002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663

3%:

SuB

R1,RS

BLT
INC
BR
ADD
TST
BNE
TSTB
BMI
ASLB
BCC
MOVB

A
R2
»
R1,RS
R2
5%
(SP)
7%
(SP)
6%
1(SP) =1(R3)
0'
R2,(R3)+
(RO) +
RO,#10
2%
8%
RS,R2
6%
(SP) +
9%
=1(SP) ,=2(R3)
(R3)
(SP) +,RS
(SP)+,R3
(SP) +,R2
(SP) +,R1
(SP)+ R0
. SDBLK
2(SP) ,4(SP)
(SP)+,(SP)

$DBLK:

BIS
MOVB
TST
CMP
BLT
BGT
MOV
BR
TSTB
BPL
MOVB
CLRB
MOV
MOV
MOV
MOV
MOV
TYPE
MOV
MOV
RTI
10000.
1000.
1
10.
.BLKW

gggg

.SBTTL

TTY INPUT ROUTINE

2551

2521

2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
ggg%
564

010300

010414
010416
010420
010422

052702

052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601
012600
104401
016666
012616
000002
023420
001750
000144
000012
000004

000000
000000
000000
000007
010431
010432

4%:

5%:

000001

000060

177777

000040

6%:

BIS

7%:

000010

8%:

177777

177776

010404
000002

000004

9% :

$DTBL:

Ré

.,FORM THIS BCD DIGIT
:BR IF DONE
..INCREASE THE BCD DIGIT BY 1
. +ADD BACK THE CONSTANT
;sCHECK IF BCD DIGIT=0
;sFALL THROUGH IF 0
..STILL DOING LEADING 0°'S?
BR IF YES
;MSD?
BR IF NO
,,YES--SET THE SIGN

;sMAKE THE BCD DIGIT ASCII

JsMAKE IT A SPACE IF NOT ALREADY A DIGIT
;sPUT THIS CHARACTER IN THE OUTPUT BUFFER
;3JUST INCREMENT
ING
;sCHECK THE TABLE INDEX
22G0 DO THE NEXT DIGIT
;G0 TO EXIT
::GET THE LSD
2:G0 CHANGE TO ASCII
,.wAs THE LSD THE FIRST NON-ZERO?
:BR IF NO
..YES--SET THE SIGN FOR TYPING
;:SET THE TERMINATOR
;:POP STACK INTO RS
;:POP STACK INTO R3
;:POP STACK INTO R2
;:POP STACK INTO R1
..POP STACK INTO RO
sNOW TYPE THE NUMBER
,,ADJUST THE STACK
;:RETURN TO USER

AR A AR A AR A AR AR AR AR AR AR AR AN AR R AR AR R AR AR A AR AR A AR AR

.ENABL LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.
.EVEN

SEQ 0050

O
O
0
7

AR AR R AR

s :NUMBER OF ITEMS IN QUEUE
;2 INPUT POINTER
:20UTPUT POINTER
;:TTY KEYBOARD QUEUE

s«TK INITIALIZE ROUTINE
:#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUE UE
*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT
.'CALL.

CZRJBDOP1$P04/S/6 FMTR MACY11
CZRJBD
28-MAR-79 11:23

30A(1052)

24=MAY=79

TTY INPUT ROUTINE

JSR

RETURN

(TM L

010416
010420
000060
000062

14:10

TKINT CLR

MOV
MOV
MOV
MoV

170444

MOV

PAGE 53

SEQ 0051

PC,STKINT

S$TKCNT

#$TKQSRT,$TKQIN
$TKQIN, $TKQOUT
#$TKSRV,a# TKVEC
#200,a#TKVEC+2
a$TkB
#100,38TKS

:CLEAR COUNT OF

ITEMS IN QUEUE

:iMOVE THE STARTING ADDRESS OF THE
::QUEVE INTO THE INPUT & OUTPUT POINTERS.
:INITIALIZE THE KEYBOARD VECTOR
"BR' LEVEL 4
::CLEAR DONE FLAG
:ZENABLE TTY KEYBOARD INTERRUPT
::RETURN TO CALLER

;*TK SERVICE ROUTINE
s*THIS ROUTINE WILL SERVICE

THE TTY KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING

;*IT IN THE QUEUE.
:*IF THE CHARACTER IS A '‘CONTROL=C'' (“C) STKINT IS CALLED AND

.'UPON RETURN EXIT IS MADE TO THE ''CONTROL=-C’'‘ RESTART ADDRESS (@CNTLC)

010502
010506
010512

117746

042716

§TKSRV: MOVB

170440
177600

000003

BIC
cMP

011615
010432

JSR

TYPE

170542
000007

010552
010554

1%:

000176

001140

000007

010414

001162

3$:

170336

170330

31$:

170324
177600
000021

000100

010414
000140
000175
000040

(SP)
+
aCNTLC
(SP) 47

cMP

#SWREG, SWR

CMP
BNE

#7.,$TKCNT
3

BR
CMP
BNE
CLR

5%
(SP)
, 423
328
asTKS

TSTB
BPL

@$TKS
31$

BIC

#°C177.(SP)

R?Y

#100,38$TKS

INC

STKCNT

CMP
BGT
BIC

(SP) ,#175
43
#40, (SP)

BNE

TYPE
ST

000023

TST

MOVB

CMP
BNE

170302

328:
»

LSCNTLC

PC,S$TKINT

TST
JMP
cMP

BEQ

2%:

@$TKB,~(SP)

#°C177, (SP)
ggp)M3

CMP
BLT

L$BELL
(SP)
+

(SP)
+

a$TKB,-(SP)

(SP)+ 421
31s

(SP) ,#140

;:PICKUP THE CHARACTER
J:STRIP THE JUNK
;218 IT A CONTROL C?
2 sBRANCH IF NO
s:TYPE A CONTROL=C (*C)
;2 INIT THE KEYBOARD
;;CLEAN UP STACK
;:CONTROL C RESTART
;218 IT A CONTROL G?
2 sBRANCH IF NO
2:1S SOFT-SWR SELECTED?
2:G0 TO SWR CHANGE

;:1S THE QUEUE FULL?
: ;BRANCH IF NO
:sRING THE TTY BELL
..CLEAN CHARACTER OFF OF STACK

s EXIT

2218 IT A CONTROL-S?
: sBRANCH IF NO
;:DISABLE TTY KEYBOARD INTERRUPTS

:CLEAN CHAR OFF STACK
J:WAIT FOR A CHAR
2:LO00P UNTIL ITS THERE
;2GET THE CHARACTER
JIMAKE IT 7-BIT ASCII
2:IS IT A CONTROL=-Q?
2 :BRANCH IF NO
::RE;&SELE TTY KEYBOARD INTERRUPTS
s :COUNT THIS CHARACTER
2218 IT UPPER CASE?
: :BRANCH IF YES
2218 IT A SPECIAL CHAR?
;:BRANCH IF YES
::MAKF IT UPPER CASE

CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
24=MAY=79 14:10
CZRJBD.P11
28-MAR-79 11:23
TTY INPUT ROUTINE
2621
010706
010710
010716

112677
005237
023727
001003
012737
000002

177522
010416
010416

010431

010422

010416

A ¥

MOvB
INC
CMP
BNE
MOV
RTI

PAGE 54

SEQ 0052

(SP)+,@$TKQIN
s:AND PUT IT IN QUEUE
$TKQIN
:sUPDATE THE POINTER
gIKOIN.lSTKQEND;:G0 OFF THE END?
sBRANCH IF NO

#$TKQSRT,$TKQIN ::RESET THE POINTER
s ;RETURN

i.ltttltttttfitttttt'ttt.tttttfit"tifi.tttttttttttttit.tttttt"tt

'Sfi‘fHARE SWITCH REGISTER CHANGE ROUTINE.
;*RUUTINE IS ENTERED

FROM THE TRAP HANDLER, AND WILL

;*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
010720
010726
010730
010734
010736
010742
010746
010752

022737

000176

001140

; *CALL WHEN OPERATING IN TTY INTERRUPT MODE.

$CKSWR: CMP
BN

170210
170204
177600

a$TKB,~(SP)

000007

001134

000001

010432
170146
000001

001135

104401
104401

011627
011634

032
036

040
044

117746
042716

170102
177600

50
054
056
062
066
074
076

021627
001015
104401

000003

000177

7%:

TYPE
TYPE
MOV
TYPOC
TYPE

000001

100
7 17

170040

AR A A AR AR AR AR AR AR AR

AR AR AR

A A AR

ARk

-SCNTLG
SWREG,~(SP)

- SMNEW

a$TKS
7%

;:IF NOT TRY AGAIN

MOvVB
BIC

as$TKB,~(SP)

::PICK UP CHAR

(SP) 43
9%

2:1S IT A CONTROL-C?
: ;BRANCH IF NOT
;:YES, ECHO CONTROL-C (*C)
;s CLEAN UP STACK
: ;REENABLE TTY KEYBOARD INTERRUPTS?
: ;BRANCH IF NO
s:ALLOW TTY KEYBOARD INTERRUPTS
::CONTROL=C RESTART

#°C177.(SP)
LSCNTLC
#6,SP
$INTAG,
#1
8s$

8%:

;;ECHO THE CONTROL=G (*G)
;s TYPE CURRENT CONTENTS
2 :sSAVE SWREG FOR TYPEOUT
2:G0 TYPE~-OCTAL ASCII(CALL DIGITS)
;;PROMPT FOR NEW SWR
2 sCLEAR COUNTER
;;THE NEW SWR
::CHAR THERE?

=(SP)
-(SP)

:
1135

;

:IMAKE IT 7-BIT ASCII
;1S IT A CONTROL=-G?
;IF NOT, PUT IT IN THE TTY QUEUE
;sAND EXIT

CLR
CLR
TSTB
BPL

011615

104

062706
123727
001003
012777

19%:

170106

011645

AR A AR AR AR A AR AR AR AR

;:1S THE SOFT-SWR SELECTED
s EXIT IF NOT
::1S A CHAR WAITING?
..IFSNOT EXIT

:*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
s*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
6;C0NTRO%agBBEING
TYPED,
1AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
$AUTOB
#
;sARE WE RUNNING IN AUTO-MODE?
BEQ
2%
: sBRANCH IF YES
TST
(SP)
+
s ;CLEAR CONTROL-G OFF STACK
PC,STKINT
JSR
:sFLUSH THE TTY INPUT QUEUE
CLR
a$TKS
:sDISABLE TTY KEYBOARD INTERRUPTS
#1,$INTAG
MovB
::SET INTERRUPT MODE INDICATOR

$GTSWR:

000176

eleleleleleleleeleBelelelelelels)
B
e e e e IR
—_ —_ el

123727
001674
005726
004737
005077
112737

013746
104402
104401
005046
005046
105777
100375

020
022
026

15%
asTKS
15$

#°C177, (SP)
(SP) 47
SRR

010754
010762
010764
010766
010772
010776

#SWREG, SWR

JMP

#100,a$TKS
aCNTLC

ssMAKE IT 7-BIT ASCII

2677
2678
2679
2680
2681

2682

011110
011114
011116
011122
011126

2730
2731
2732

011254
011260

2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729

pourt

X
8

2683
2684 011130
2685 011134
2686 011136
2687 011142
2688 011144
2689 011152
2690 011156
2691
011162
2692 011170
2693 011172
2694 011200
2695 011202
2696 011206
2697 011212
2698 011214
2699 011220
2700 011222
2701
011226
2702 011232
2703 011234
2704 011236
2705 011240
2706 011242
2707 - 011246

021627
001005
104401
062706
000737
021627
001022
005766
001403
016677
062706
104401
123727
001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000667
104401
000720

000025

9%:

011622
000006

20%:

000015

10%:

CMP
BNE

TYPE
ADD
BR

000001

000100

167744

5
SEQ 0053

(SP) #25
108

sc~§Lu

s sBRANCH IF NOT

#6,SP

19§

;s IGNORE PREVIOUS INPUT

JsLET'S TRY IT AGAIN

;:IS IT A CONTROL=U?

;2YES,

167766

2 sBRANCH IF NO
soYES, IS IT THE FIRST CHAR?

: BRANCH IF YES

2(SP) ,aSWR

#6,SP
$CRLF

ixgrAG #1

#100,38TKS

007672
000060

PC,$TYPEC

(SP) ,#60
18%
(SP) 467
18%

000067
000060
000002

17%:

;sBRANCH IF YES

::CHAR > 7?

001166

18%:

17%
(SP)
(SP)
(SP)

BIS
BR

TYPE

.DSABL

BR
LSB

2(SP)
(SP)
, P)
=2(S
7$

. $QUES
208

A AR A AR A A A

:*THIS ROUTINE WILL

*CALL
.

. %

..SAVE NEW SWR
;:CLEAR UP STACK
;sECHO <CR> AND <LF>
2 sRE-ENABLE TTY KBD INTERRUPTS?
s sBRANCH IF NOT
;sRE=ENABLE TTY KBD INTERRUPTS
s sRETURN
;sECHO CHAR

;:CHAR < 0?

#60, (SP) +
2(SP)

000002
177776

ECHO CONTROL=U (*W)

;1S IT A <CR>?

CMP
BNE

00,004
000002
000006
001167
001135

PAGE 55

;sBRANCH IF YES
;:STRIP=-0OFF ASCII
22IS THIS THE FIRST CHAR
;sBRANCH IF YES
;2sNO, SHIFT PRESENT
i3
CHAR OVER TO MAKE
33
ROOM FOR NEW ONE.
;;KEEP COUNT OF CHAR
;2SET IN NEW CHAR
;sGET THE NEXT ONE
J2TYPE

?2<CR><LF>

2 :SIMULATE CONTROL=U

A A

AR A A AR AR AR AR AR

AR R A RAA R AN A AR R RN AR ARRRRY

INPUT A SINGLE CHARACTER FROM THE TTY

RDCHR
RETURN HERE

;:GET A CHARACTER FROM THE QUEUE
;s CHARACTER IS ON THE STACK
;;WITH PARITY BIT STRIPPED OFF

011262
011264
011272
011276
011300
011304
011306
011306

011312
011314
011320

011646
016666
005066
005046
012746
000002

005737
001775
005337
117766

000004
000004

000002

011306

64%:

010414
010414
177074

$RDCHR: MOV
MOV
CLR
CLR
MOV

000004

RTI

TST

BEQ
DEC
MOvVB

(SP) ,=(SP)
4(SP) ,2(SP)
4(SP)
-(SP)
#648,-(SP)
STKCNT

..Pugu gouu THE PC AND

**GET READY FOR A CHARACTER

**PUT NEW PS ON STACK
**PUT NEW PC ON STACK
*:POP NEW PC AND PS

;;WAIT ON A CHARACTER

1%
$TKCNT
;DECREENT THE COUNTER
@$TKQOUT
,4 (SP) ~..GET ONE CHARACTER

len Yan )

CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
24=MAY=79 14:10
CZRJBD.P11
28-MAR-79 11:23
TTY INPUT ROUTINE

005237
023727
001003
012737
000002

010420
010420

010431

010422

010420

INC
CMP
BNE
MOV
RTI

; sUPDATE THE POINTER

STKOOUT #$TKQEND ..DID IT GO OFF OF THE END?
; sBRANCH IF NO

#$TKOSRT $TKQOUT” ..R;afifi THE POINTER
AR A

*THIS ROUTINE WILL
i*CALL:

SEQ 0054

$TKQOUT

AR AR AR AR

AR AR AR AR AR AR AN RN AR AR AR AR AR A AR

RDL IN

RETURN HERE

011352
011354
011356

SRDLIN: MOV
1$:

2%:

-(5P)
#STTYIN,R3

BLOS

RDCHR

108:

177777

6$:

011606
011604
011604

000134
011604

000025

011604
7$:

011622

e o

N
NN S
U

Y
R

e T
e

S
Y
S

e R

SR
SR

B
I
R

e T

elelelelelelelelelelelels)]

011506

000022

8s:

001166

4$:

011604
011604
000015

3$:

177777

MOVB
TYPE
MOV

#'\,9%
.98
#=-1,(SP)

CMP
BLO
MOVB

R3,4STTYIN
43
(R3),98

BR
TST
BEQ
MOVB
TYPE
CLR
(MPB
BNE

2s
(SP)
7%
#'\,9%
.98
(SP)
#25,(R3)
8s

DEC

TYPE

001167
011606

001170

(SP)+,(R3)
#177.(R3)
5%

TYPE

#STTYIN+7,R3

MOVB
(MPB
BNE
TST
BNE

011604

R3,=(SP)

CLR
MOV

CMP

(SP)
6$

,$CNTLU

38
(R3)

,$QUES

TYPE

.98

TYPE
TST

:BR _IF NO

::TYPE A BACK SLASH

:.G0 TYPE

,SCRLF
é;mm

C(MPB
BNE
CLRB

F NO

..IS THIS THE FIRST RUBOUT?

,9%

TYPE
TYPE

MOVB

s :SAVE R3

;;CLEAR THE RUBOUT KEY
;:GET ADDRESS
s sBUFFER FULL?
;:BR IF YES
;.GO READ ONE CHARACTER FROM THE TTY
2+sGET CHARACTER
::IS IT A RUBOUT

;. SET THE RUBOUT KEY
; ;BACKUP BY ONE

#22,(R3)

TYPE

;INPUT A STRING FROM THE TTY

:;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
s TERMINATOR WILL BE A BYTE OF ALL 0'S

CMPB

BNE
C(LRB

R AR AR AN

INPUT A STRING FROM THE TTY

KRR

wvi

b
b
e
o

S
pu—

eolelele]

011326
3

PAGE 56

,.STACK EMPTY?
;BR IF YES

::SETUP TO TYPEOUT THE DELETED CHAR.

;G0 READ ANOTHER CHAR.
..RUBOUT KEY SET?
;BR _IF NO

::TYPE A BACK SLASH

;:CLEAR THE RUBOUT KEY
::18 E?AzSCTER A CTRL U?
;:TYPE A CONTROL 'V

22:G0 START OVER
;:1S CHARACTER A 'TM“R'"%
;:BRANCH IF NO
:sCLEAR THE CHARACTER

;3TYPE A "'CR'"
& "LF"

:2TYPE THE INPUT STRING
;:G0 PICKUP ANOTHER CHACTER

siTYPE A '2°

(R3),9%

;:CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

#15,(R3)+
28
=1(R3)

;s CHECK FOR RETURN
;:LOOP IF NOT RETURN

,SLF
(SP)+

::CLEAR RETURN (THE 15)

;:TYPE A LINE FEED

;;CLEAN RUBOUT KEY FROM THE STACK

-—

CZRJBDO, RP04/5/6 FMTRT?Cg%1 30A(1052)
24~MAY=79 14:10
CZRJBD.P11
28-MAR-79
TTY INPUT ROUTINE

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807

2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831

2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844

011562
011564
011566
011574
011602
011604
011605
011606
011615
011622
011627
011634
011642
011645
011652

30A(1052)

24-MAY-79
MOV

000004
011606

PAGE 57

Y INPUT ROUTINE

012603

011646

14: 10

MOV

000002
000004

MOV

SEQ 0055

(SP)+,R3

(SP) ,=(SP)

4(SP) ,2(SP)

; ;RESTORE R3
..ADJUST THE STACK AND PUT ADDRESS OF THE
‘e
FIRST ASCII CHARACTER ON IT

MOV

#STTYIN,4(SP)

0
s sSTORAGE FOR ASCII CHAR. TO TYPE
0
;s TERMINATOR
7
2 sRESERVE 7 BYTES FOR TTY INPUT
/*C/<15><12>
;;CONTROL *'C*'
/*U/<15><12>
s sCONTROL 'V
/*G/<15><12>
/::CONTROL ‘G’
<15><12>/SWR =
/

RTI

9%:

)

2 JRETURN

006503
005015
006
053523

000012
000
000012
020122

$TTYIN:
$CNTLC:
$CNTLU:
$CNTLG:
$MSWR:

BYTE
BYTE
.BLKB
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

047040
000040

053505

SMNEW:

L.ASCIZ

.SBTTL

TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

NEW =

A AR AR AR A AR A

tTHIS ROUTINE

A AR A AR AR AR AR AR AR AR AR AR AR R AR AR A AN

A AR AR

AN ®

IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE

:*LEADING NUMBERS.

; *CALL

Lw
011656
011660
011664
011666
011670
011674
011676
011700
011704
011706
011710
011712
011714

MOV
JSR

: MOV
$SUPRS

000004

MOV

1%:

TSTB

BEQ
CMPB

000060

BEQ
DEC
MOV
TYPE
.WORD
MOV
MOV

2%:

011706

3%:

RTS

.SBTTL
LA

#NUMADR
, - (SP)

:;FIRST ADDRESS OF ASCIZ STRING

RO,=(SP)
4(SP) ,RO

;:SAVE RO

PC,a#$SUPRS

(RO)

2%
#'0,(RO)+
1%
RO
RO,3$
0
(SP)+,R0
(SP)+,(SP)

]

011716
011724
011730

011734
011740

00000
011746
011752
000005
000002

011746

MOV
JSR

RETURN

$SB2D:

MOV
MOV
JSR

;:BR IF YES
;;BACKUP BY "1**

..SAVE FOR TYPING
;GO TYPE

..ASCIZ POINTER GOES HERE
RESTORE RO

..RESTORE THE STACK
s ;RETURN

ADD

MOV

322132223222323

CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN

:*UNSIGNED DECIMAL ASCIZ NUMBER.
s*CALL
.

;BR IF YES
.,IS THIS AN ASCII ‘0"
?

SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

'THIS ROUTINE WILL

- &

;sPICKUP THE POINTER

::TERMINATEOR?

NUMBER,~-(SP)
PC,a#$582D

2(SP),1%
#1%,-(SP)
PC,a#$DB2D
#5,(SP)
(SP)+,2(SP)

::PUE BINARY NUMBER ON THE STACK
L

:;ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK

;s SAVE BINARY NUMBER
s sSET POINTER
;:CALL DOUBLE LENGTH CONVERT
2;ONLY ALLOW FIVE CHARACTERS
;:PICKUP POINTER

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

011744

011746

000207

000000

30A(1052)

000000

24=MAY=79

14:10
PAGE 58
SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE
RTS

1%:

.WORD

.SBTTL
AR

0.0

; sRETURN

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

AR AR A

ARt et
2222222;

:*THIS ROUTINE WILL CONVERT A 32-8IT BINARY NUMBER TO AN UNSIGNED
.gggf??bE(ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE
bR

s*CALL
Tw
..'

RETURN

$DB2D:

SAVREG
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

011752
011754
011760
011764
011770
011772
011774

000002
012132
000002

000012
012062
012064

MOV
JSR

012050

CLR

3%:

000060
4%:

#PNTR,=(SP)
PC.a#$DB2D

2(SP) ,R2

#SDECVL ,RO
RO,2(SP)

(R2)+,R1
(R2)+,R2
#10.,4%

#STNPWR ,R4
ngNPUR+2.R5

(R4) ,R1
R2
(RS) ,R2

3%
R3
2%

;;POINTER TO LOW WORD OF BINARY NUMBER

;s THE FIRST ADDRESS OF ASCIZ
;1S ON THE STACK
;s SAVE REGISTERS
;;PICKUP THE DATA POINTER

;:GET ADDRESS OF ‘‘SDECVL'' STRING

;;PUT ADDRESS OF ASCIZ STRING ON STACK

; ;P1CKUP THE BINARY NUMBER

2:SET UP TO DO 10 CONVERSIONS
: ;ADDRESS OF TEN POWER
;:CLEAR PARTIAL
;sSUBTRACT TEN POWER

;:BR IF TEN POWER TO LARGE

;2ADD 1 TO PARTIAL

(R4)+,R1

;s LOOP
;;RESTORE SUBTRACTED VALUE

#'0,R3

;:MOVE TO NEXT TEN POWER
2 sCHANGE PARTIAL TO ASCII
J2SAVE IT

R2
(R4) +,R2
(RS)+,(R5)+

2 sDONE?

;:BR IF NO
2 s TERMINATOR

;sRESTORE REGISTERS

$TNPWR:

2 JRETURN

::1.0E09
;:1.0E08

::1.0€07
;:1.0E06

::1.0€05

;:1.0E04

SEQ 0056

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD. P11
28-MAR-79 11:23

2901
2902
2903
2904
2905
2906
2907
2908
%g?g

012112
012114
012116
012120
012122
012124
012126
(12130
012132

001750
000000
000144
000000
000012
000000
000001
000000
000014

30A(1052)

24=MAY=79

14:10

.SBTTL

2913

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

1750
0
144
0
12
0
1
0
$DECVL: .BLKB

gg}}

PAGE 59

;:1.0E03
::1.0E02
2:1.0801
2:1.0E00
12.

2 sRESERVE STORAGE fOR ASCIZ STRING

SAVE AND RESTORE RO=-RS ROUTINES

tttttQtttttttttttttttt*ttttttttttttttttttttfittttt’tttittttttttt

2914
2915
2916
gg}g

*SAVE RO-RS
*CALL
'*
SAVREG
,*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

2919

.tTOP---(+16)

2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934

2936
2937
2938
2939
2940

;% #2===(+18)
;% +4===RS
;% +6===R4
;% +8==<=R3
;*+10=-=-=R2
;*x+12===R1
;%+14=-==R0
012146
012146
012150
012152
012154
012156
012160

010046
010146
010246
010346
010446
010546

012166
012172
012176
012202

016646
016646
016646
000002

2941

2942
2943
294

2954
2955

$SAVREG:

000022
000022
000022

MOV
MOV
MOV
MOV
MOV
MOV

RO,-(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)
R4,-(SP)
R5,-(SP)

;:PUSH RO ON
;:PUSH R1 ON
;:PUSH R2 ON
;:PUSH R3 ON
;:PUSH R4 ON
;:PUSH RS ON

MOV
MOV
MOV
RTI

22(5P).-(SP)
22(SP).-(SP)
22(SP).-(SP)

::SAVE PC OF MAIN FLOW
::SAVE PS OF CALL
::SAVE PC OF CALL

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,R5
(SP)+ R4
(SP)+,R3
(SP) + ,R2
(SP) +,R1

;;RESTORE PC OF CALL
:;RESTORE PS OF CALL
:sRESTORE PC OF MAIN FLOW
;sRESTORE PS OF MAIN FLOW
::POP STACK INTO RS
;:POP STACK INTO R4
;:POP STACK INTO R3
::POP STACK INTO R2
:;POP STACK INTO R1

MOV

22(SP) ,-(SP)

STACK
STACK
STACK
STACK
STACK
STACK

:SAVE PS OF MAIN FLOW

: *RESTORE RO-RS

*CALL:
i
RESREG
$RESREG:

012204

012236
012240

012600
000002

MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

g?y

(SP) +,R0

;:POP STACK

INTO RO

SEQ 0057

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28=-MAR-79 11:23

30A(1052)

24~MAY=79
14:10
TRAP DECODER

G
PAGE 60

SEQ 0058

2282;

.SBTTL

2959

' i..*.""'.".'.'Qfi*."t."*".'.'.'......Q.Qifi.."..fi.fi*.".'.

2960
2961
2962

'THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP'' INSTRUCTION
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

22322

2965
2966
2967
2968
2969
2970
223;}

'GO TO THAT ROUTINE.
012242
012244
012250
012252
012254
012256
012262

010046
016600
0057
111000
006300
016000
000200

$TRAP:

000002

MOV
MOV
TST
MOVB
ASL
MOV
RTS

012276

2973
53;‘,;
2976
2977
223;3

TRAP DECODER

RO,-(SP)
2(SP) ,RO
=-(R0O)
(RO) ,RO
RO
$TRPAD(RO)
,RO
RO

2 :SAVE RO
;:GET TRAP ADDRESS
; sBACKUP BY 2
..GET RIGHT BYTE OF TRAP
JPOSITION FOR INDEXING
::INDEX TO TABLE
;G0 TO ROUTINE

;:THIS IS USE TO HANDLE THE '‘GETPRI'' MACRO
012264
012266
012274

011646
016666
000002

000004

000002

$TRAPZ2: MOV
MOV
RTI

(SP) ,~(SP)
4(SP) ,2(SP)

;:MOVE THE PC DOWN
;JMOVE THE PSW DOWN
;RESTORE THE PSW

2233(1)

.SBTTL

2982
2983

J*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;*BY THE ‘‘TRAP'' INSTRUCTION.

2985
2986

:
;.

2984

2987
2988
2989
2990
2991
22%%

012276
012300
012302
012304
012306
012310

012264
007522
007766
007742
010002
010170

22332_

012312

011010

2996
2997
2998
2999
%

012314
012316
012320
012322
012324

010720
011262
011352
012146
012204

TRAP TABLE

$TRPAD:

’

3002
3003

ROUT INE
eeeeee.WORD
STYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

$TRAP?2
;s CALL=TYPE
;.;CALL=TYPOC
;.;CALL=TYPOS
;.CALL=TYPON
;.CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

$GTSWR

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT=SWR SETTING

$CKSWR
$RDCHR
$RDLIN
$SAVREG
$RESREG

;;CALL=CKSWR
; ; CALL=RDCHR
;.CALL=RDLIN
;;CALL=SAVREG
;;CALL=RESREG

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)

TEST FOR CHANGE IN SOF T=-SWR
TTY TYPEIN CHARACTER ROUT INE
TTY TYPEIN STRING ROUTINE
SAVE RO-RS ROUTINE
RESTORE RO-RS5 ROUTINE

3388’;

.SBTTL

3006
3007
3008
3009

;COPYRIGHT (C) 1976
;DIGITAL EQUIPMENT CORP.
JMAYNARD, MA 01754
JAUTHOR(S): JIM LACEY/CHUCK HESS

3010

3011

3012

SRR

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

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

R R AN AN R R R A AR

AR RN AN

R AR AR PR AR R AR R RN

CZRJBDO, RPO4/5/6 FMTR

CZRJBD.P11

MACY11

28-MAR-79 11:23

30A(1052)

24=MAY=79

14:10

PAGE 61

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
;STORAGE FOR RPDS1,

:RPERRS

RPER1, RPER2, AND RPER3 ON AN ERROR ‘72"’

= RPDS1

*RPERRS+2 = RPER1
‘RPERRS+4 = RPER?
*RPERRS+6 = RPER3

012326
012334

000000
000000

000000

RPERRS:

.WORD

0,0.0.0

;TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES)

;DRVACT=0 IF DRIVE IS IDLE

;DRVACT>Q IF DRIVE IS ACTIVE WITH A COMMAND
;DRVACT<0 IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERAT]ON

012336
012337
012340
012341
012342
012343
012344
012345

000
000
000
000
000
000
000
000

DRVACT:

.BYTE

BYTE
.BYTE
BYTE
.BYTE
BYTE
.BYTE
BYTE

;DRIVE 0

0
0
0
0
0
0
0

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

1
2
3
&
5
6
7

;TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES)

;DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT

;DRVSTA>Q IF DRIVE IS ONLINE

;DRVSTA<O IF DRIVE IS UNSAFE
012346
012347
012350
012351
012352
012353
012354
012355

000
000
000
000
000
000
000
000

DRVSTA:

.BYTE

BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE

;DRIVE 0

0
0
0
0
0
0
0

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

1
2
3
4
5
6
7

;TABLE OF DRIVE TYPES (DRVTYP=8 BYTES)
;DRVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO)
;DRVTYP=1

IF DRIVE

IS RP0O4

:DRVTYP=2 IF DRIVE IS RPOS

:DRVTYP=4 IF DRIVE IS RP06
:DRVTYP==1 IF NOT RP04/5/6
012356
012357
012360
012361

012362
012363
012364
012365

000
000
000
000

000
000

000

DRVTYP:

.BYTE
BYTE

BYTE
BYTE
.BYTE
BYTE
BYTE
.BYTE

0
0

0
0
0
0
0
0

;DRIVE 0
;DRIVE 1

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

2
3
4
5
6
7

;TABLE OF DUAL PORT INITIALIZATION INDICATORS

;DPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE
:DPINT<O IF INITIALIZATION IS IN PROGRESS

SEQ ‘059

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

3069

3070
3071
3072
3073

3074
3075
3076
gg;g

012366
012367
012370
012371

012372
012373
012374
012375

000
000
000
000
000
000
000
000

3079

30A(1052)

I
24-MAY=79
14:10 PAGE 62
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

DPINT:

BYTE
BYTE
.BYTE
BYTE

;DPRQS<0 IF

012376
012377
012400
012401
012402
012403

012404
012405

000
000
000
000
000
000

012406

000000

012410

000000

.BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE

BYTE
.BYTE

0
O
0
0
0
0

0
0

THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE

:DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE

0
1
2
3
4
5

:DRIVE 6
;DRIVE 7

TRNSWT:

.WORD

SRCHWT: .WORD

;RP04/5/6 DRIVER ACTIVE FLAG (ACTDRV=1 BYTE)
;ACTDRV=0 IF DRIVER IS INACTIVE
;ACTDRV>0 IF DRIVER IS ACTIVE
012412

000

3113
3114
%}}2

ACTDRV:

.BYTE

;SOFTWARE TIMER ROUTINE ACTIVE: FLAG (ACTSTR=1 BYTE)
JACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE
JACTSTR>0 IF SOFTWARE TIMER ROUTINE IS ACTIVE
012413

000

2119
3120
3121

ACTSTR:

.BYTE

JUNLOAD FLAG (ULDFLG=8 BYTES)
;ULDFLG=0 IF NO UNLOAD COMMAND
JULDFLG>0 IF UNLOAD COMMAND IN PROGRESS

§}S§

3124

;EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0.

3106
3107
3108
g}gg

g;}g

&
5
6
7

;SEARCH WAIT KEYS (SRCHWT=1 WORD)
;THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF
;THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0
;REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE.

%}8%

g;}}

0
1
2
3

;TRANSFER WAIT FLAG (TRNSWT=1 WORD)
;THIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF
;'DPB'' OF THE 1/0 OPERATION.

3098
3099
3100
3101

%}8%

DPRQS:

000
000

3092
3093
gggg
3839

0
0
0
0

:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
;DRIVE
;DRIVE
;:DRIVE

;DPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE

ggg;

3089
ggg?

0
0
0
0

;TABLE OF PENDING DUAL PORT REQUESTS

3080
3083
3084
3085
3086
3087
3088

.BYTE
BYTE
BYTE
BYTE

SEQ 0060

JULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE

012414

000

ULDFLG: .BYTE

:DRIVE 0

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

3125
3126
3127
3128
3129
3130
3131

30A(1052)

24=MAY=79 14:10 PAGE 63
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

012415
012416
012417
012420
012421
012422
012423

BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

0
0
0
0
0
0
O

sDRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

1
2
3
4
5
6
7

;LOOK AHEAD COUNT (LACNT=8 BYTES)

sLACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED

3136
3137
3138
3139
3140
3141
3142
3143

012424
012425
012426
012427
012430
012431
012432
012433

LACNT:

.BYTE
BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
BYTE

0
0
0
0
0
0
0
O

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

0
1
2
3
4
5
6
7

;SAVE REGISTERS FLAG (SAVEFG =1 WORD)

;SAVEFG <0 IF SAVE THE RH11/RP04/5/6 REGISTERS WHEN THE
;OPERATION IS COMPLETED AS PER (DPB+14).

;SAVEFG=0 IF SAVE THE RH11/RP04/5/6 REGISTERS, AS PER
; (DPB+14), AFTER AN ERROR.

3151

012434

000000

SAVEFG:

.WORD

;SEEK FLAG (SEEKFG=1 WORD)
;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW
;FOR A DATA TRANSFER START A SEARCH COMMAND

sSEEXFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS,
;DISREGARD THE WINDOW

3159

012436

000000

SEEKFG:

.WORD

;TIMEOUT TABLE (TIMER=8 WORDS)
;THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION
3164
3165
3166
3167
3168
3169
3170
3171

012440
012442
012444
012446

012450
012452
012454
012456

177777
177777
177777
177777
177777

TIMER:

177777

177777
177777

.WORD

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

=1
-1
=1
-1
=1
=1
-1

;DRIVE 0

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

1
2
3
4
5
6
7

;DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD)

;DTUW<O IF NO DATA TRANSFER UNDERWAY
;:DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

3177

012460

177777

DTUW:

.WORD

JATTENTION BITS TABLE (ATABIT=8 BYTES)
;THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES

SEQ 0061

CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
24=MAY=79 14:10 PAGE 64
CZRJBD.P11
28-MAR-79 11:23
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
SATTENTION BIT

012462
012463

012471

001
002
004
010
020
040

ATABIT:

.BYTE BYTE
.BYTE
.BYTE
.BYTE

100

200

1
2

10
20
40
100
200

;DRIVE 0
:DRIVE 1
sDRIVE 2

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

3
4
5
6
7

sRP04/5/6 TO RH11 'MASSBUS CONTROL BUS PARITY ERRORS'' (MCPE) ALLOWED BEFORE
sCALLING IT FATAL (MCPEMX=1 WORD)

b o
b
b

BYTE
BYTE

.BYTE

b e

28883 ERRIC2EBIIRARR

Qo WWWWWNWWWWWWWW

3181
3182
3183

SEQ 0062

012472

000003

MCPEMX:

.WORD

:STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RP04/5/6),
;RPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5)).

012474
012476

176700

000254

000240

RPADR:
RPVEC:

.WORD
.WORD

176700
254,5%32.

sMAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD)
012502

000004

MXLACT:

.WORD

012504

001000

MXDLTA:

.WORD

8.%64.

012506

000200

MANDLTA:

.WORD

2%64.

012510

000005

MXWNDW:

.WORD

sMAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD)
sMINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD)

;MAXIMUM SEARCH FOR I1/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD)

;DEFINITIONS OF THE RH11/RP04/5/6 ADDRESS INDEXES
RPCS1=0
RPWC=2
RPBA=4

;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00)
sWORD COUNT REGISTER (NOT A DRIVE REG)
sUNIBUS ADDRESS REGISTER (NOT A DRIVE REG)

RPCS2=10
RPDS1=12
RPER1=14
RPAS=16
RPLA=20
RPDB=22
RPMR=24
RPDT=26

sCONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
;DRIVE STATUS REGISTER (DRIVE REG 01)
;ERROR REGISTER #1 (DRIVE REG. 02)
;ATTENTION SUMMARY PSEUDO REGISTER_(DRIVE REG. 04)
;LOOK AHEAD REGISTER (DRIVE REG. 07)
:DATA BUFFER REGISTER (NOT A DRIVE REG.)
sMAINTAINABILITY REGISTER (DRIVE REG. 03)
:DRIVE TYPE REGISTER (DRIVE REG. 06)

RPOF =32
RPCA=34
RPCC=36
RPER2=40
RPER3=42

sOFFSET REGISTER (DRIVE REG. 11)
;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12)
s CURRENT CYLINDER_ADDRESS REGISTER (DRIVE REG. 13)
:ERROR REGISTER #2 (DRIVE REG. 14)
:ERROR REGISTER #3 (DRIVE REG. 15)
:ECC POSITION REGISTER (DRIVE REG. 16)

RPDA=6

RPSN=30

RPEC1=44

sDESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05)

sSERIAL NUMBER REGISTER (DRIVE REG. 10)

CZRJBDO, RP04/5/6 FMTR M?C5%1 30A(1052)
24=MAY=79 14:10 PAGE 65
CZRJBD.P11
28-MAR-79 1
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

3237
38

000046

RPE(2=46

sECC PATTERN REGISTER (DRIVE REG.

SEQ 0063
17)

;RH11/RP04/5/6 DRIVER INITIALIZATION CODE

sTHIS ROUTINE WILL DETERMINE WHICH RP04/5/6 DRIVES ARE

sAVAILASLE FOR TESTING AND SET THE DRVSTA INDICATOR

:TO_THE PROPER STATE FOR EACH DRIVE.
sNOTE: THIS ROUTINE CALLS DRVINT

CALL

012512
012514

177776
000240
020526
012326
012436

012724
012346
177770

88
3289
3290
3291
3292

JSR
RE TURN

:NOTE:

THE

RPINIT:

SAVREG
MOV

177776

28:

000007
177776
012366

6$:

020162
012366

78:

177776

PC, CLRQUE

:SAVE RO - RS
:SAVE THE PRESENT PROCESSOR STATUS

:CHANGE THE PRIORITY TO 5

:CLEAR ALL REQUEST QUEUES

*FIRST ADDRESS TC BE CLEARED

MOV
CLR
CMP
BLOS
MOV

#SEEKFG.R2
(R1)+
R1.R2
1%
#DTUW,R2

*LAST ADDRESS TQ BE CLEARED
*CLEAR
:ARE WE DONE?
*BRANCH IF NO
*LAST ADDRESS

CMP

R1.R2

*DONE?

MOV

#=1,(R1)+
2%

SINITIALIZE

*LOOP IF NO

DRVSTA

:SET ALL DRIVES TO OFFLINE

CLR
CLR
MOV

DRVSTA+4
DRVSTA+6
RPVEC,R3

;SETUP THE RH11/RP04/5/6 VECTOR

MOV

081105RPCSZ(R4) :MASSBUS INIT

RPADR R

;FIRST ADDRESS OF RH11/RP04

MOV

8s:

012720

#RPERRS ,R1

MOV
MOV

aHPS - (SP)

MOV

CLR

4$:

CLOCK MUST BE STARTED

#<5+32.> a#PS

CLR

38:

'L’

MOV

BLOS

000010

PC,RPINIT

'P' OR

JSR

1$:

012460
177777

012346
012350
012352
012354
012476
015406
012500
012474
000040

:
:

CLR

DRVSTA+2

#ISR, (R3)+
vaecoz (R3)

;START WITH DRIVE 0

JSR

RO,DRVINT

*INIT THE DRIVE

B8R

*NORMAL RETURN

CLRB

INC
BIC
BNE
MOV

DRVSTA(R1)

R1
#°C7.R1
3
#7.R1

:*DVA' NOT SET OR PARITY ERROR

*SET DRIVE STATUS TO OFFLINE

*GO TO NEXT DRIVE
*MASK OUT UNUSED BITS
*BR IF MORE DRIVES TO GO
*START WITH DRIVE 7

CLR

anPs

*CLEAR THE PROCESSOR STATUS

JSR
TSTB

PC,SET.IE
DPINT(R1)
7%

*SET INTERRUPT
*DRIVE SWITCHED PORTS ?
*BR IF NOT

6%
(SP) + ,a#PS

:CHECK NEXT DRIVE
:RESTORE THE PROCESSOR STATUS

TSTB
BEQ
BNE
DEC
BPL
MOV

RESREG

DPINT(R1)
8$

*WAITING FOR DRIVE TO SWITCH PORTS ?
*BR NOT WAITING

:GO TO THE NEXT DRIVE

sRESTORE RO - RS

CZRJBDO, RP04/5/6 FMTR M?C5%1 30A(1052)
24=MAY=79 14:10 PAGE 66
28-MAR-79
1
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

CZRJBD.P11

012722

000207

RTS

;BYE-BYE

sDRIVE INITILIZATION ROUTINE

;THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF

IT IS

;AN RP04/5/6. IF IT IS, A 'READ=IN PRESET'' IS ISSUED AND FMT22
;IS SET TO A *'"1''. THEN HOL,DPR, DRY, AND VV ARE CHECKED TO

: INSURE THEY ARE ALL ON A

s CALL

MOV
MOV

JSR

#DRVNUM,R1
RPADR , R

RO,DRVINT

RE TURN2

012724

010546
105061

000000
000010

DRVINT: MOV
CLRB
CLRB
CLRB
MOV
MOVB

BIT

BEQ
JSR

020162

012346
004000

1%:

*NORMAL RETURN

RS,=(SP)

(PARITY)

:SAVE RS

DRVSTA(R1)
DRVTYP(R1)
ULDFLG(R1)
R1,RPCS2(R4)
#111,RPCS1(R4)

:START DRIVE STATUS AS OFFLINE
:CLEAR THE DRIVE TYPE INDICATOR
:CLEAR THE UNLOAD FLAG
:SELECT A DRIVE
:DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE)

18
PC,SET.IE

:NO=--BRANCH
:GO SET "'IE'* WITHOUT A ''TRE'*

#BITI2,RPCS2(R4)’ ~o~exxer~r DRIVE?

68"

:LEAVE THIS ROUTINE

:BR IF DRIVE NOT AVAILABLE

(SP)+,RS
#1 DRVTYP(R1)

;ERROR RETURN ADDRESS
:PUT DRIVE TYPE IN R5
:SET RP04 INDICATOR

012356

2%
MOV
MOVB

012356

BEQ
CMP
BEQ
MOVB

CMP

#2002

CMP

#20021,RS

:READ THE DRIVE TYPE REG.

:IS IT A SINGLE PORT RP04?

28
#24020,RS
2$
#2 DRVIYP(R1) ~

*BRANCH IF YES
:IS IT A DUAL PORT RP04?
*BR IF YES
:SET RPOS INDICATOR

012356

BEQ
CMP
BEQ
MOVB

2$
#24021,R5
28
#4,DRVTYP(R1)

*BR IF YES
*DUAL PORT RPQS ?
*BR IF YES
:SET RPO6 INDICATOR

012356

BEQ
CMP
BEQ
ggva

2$
#24022 RS
2$
g;1.onvrvp(n1)

013310

CMP

2%:

e
e

:ERROR OCCURRED

RO,RD.RP

BEQ

024022
177777

*CALLED BY A JSR

gggr

000000

024021
000004
020022

:DRIVE NUMBER TO R1
*UNIBUS ADDRESS OF RH11/RP04/5/6 (RPCS1)

DRVSTA(R1)
*SET DRIVE STATUS TO OFFLINE
#BIT11,RPCS1(R4)"
;SEE IF DRIVE AVAILABLE

024020

000002
020021

AND DEPENDING ON THEIR STATE,

CLRB
BIT

017472

000001
020020

“1"*,

:DRVSTA IS SET TO THE PROPER CONDITION.

RE TURN1

D e

3293

SEQ 0064

001000

000012

000010

012356

BNE

#20022.RS

TSTPGM

*SINGLE PORT RPOS5?

*SINGLE PORT RP06 ?

*BR IF YES
:DUAL PORT RP06 ?
*BR IF
YES
gs} INDICATOR TO 'OTHER®
:INHIBIT PROGRAMMABLE DRIVE?

*BRANCH IF NO

BRANCH IF NO

JEXIT

BIT

#BI1T09, RPDS1(R4)
;IS DRIVE PROGRAMMABLE?

BISB

#BIT03, DRVTYP(R1);SET INDICATOR

BEQ

CZRJBDO, RPO4/5/6 FMTR

MACY11 30A(1052)

24~MAY=79 14:10 PAGE 67
SINGLE/DUAL PORT RH11/RP04/5/6& DRIVER (REV 1.0)

000121
017652

9%:

28-MAR-79 11:23
012746
004037
000000

#121,-(SP)
RO,WRT
.RP

;DO A "READ-IN PRESET''

8%
MOV
JSR

#RIT12,-(SP)
RO,WRT.RP

;SET FMT22=1

JSR
g:DS‘l

RO,RD.RP

;READ RPDS1

MOV
BPL
MOovB
JSR

(SP)+,R5
JAND SAVE IT IN R5
4%
;BRANCH IF ATA=0
ATABIT(R1) ,RPAS(R4) ;CLEAR ATTENTION BIT

Y
P

SEQ 0065

MOV
JSR

RPCS1

CZRJBD.P11

012462
017472

000016

RPER1
8%

ROL

177777

012346
_4S:

167077

000001

003720

012346

012440

6%:
7%:

sFIND OUT WHY ATA=1

(SP)+

;1S IT UNSAFE?

BPL
MOvB
BR
COM

4%
#=1,DRVSTA(R1)
63
R5

:BR_IF NOT
;SET UNSAFE INDICATOR
EXI
ECK MOL, DPR DRY, AND VV

BNE
MovB

6$
#1,DRVSTACR1)

sBRANCH IF ML DPR, DRY, OR VV iS CLEAR
:SET DRIVE STATUS TO ONLINE

BIC
TST

#“C<BIT12'81708'811’07'8”06)
(RO)+

:STEP OVER THE ERROR RETURN

s CHANGE INDEX TO ADDRESS WORDS

MOV

#2000. ,TIMER(R1)

ASL

ASR
(TI(SMTB

012366

RO.RD.RP

EXIT

R1
l()g(I)I;IT(RU

;START 2 SEC TIMER

;RESTORE R1
sSET PORT INITIALIZE

INIDICATOR

8%:

MOV
RTS

(SP)+,R5

;RESTORE RS

SEXIT

s TEST PROGRAMMABLE DRIVE FLAG (TSTPGM=1 WORD)
;THE FLAG WILL BE SET BY THE PROGRAM UNDER
sMANUFACTURING CONDITIONS (ACT,APT) AND
sCLEARED UNDER FIELD CONDITIONS(XXDP CHAIN,
sSTANDALONE) WITH STARTING ADDRESS 200.
sTHE FLAG WILL BE SET UNDER ALL CONDITIONS
;WITH STARTING ADDRESS 220.

013310

000000

TSTPGM:

.WORD

;=1

TEST PROGRAMMABLE DRIVE

;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST

*CALL

013312

013746

177776

;
:
:
:

JSR
RO, a#RPO4
PNTADR
RE TURN1
RE TURN2

;CALL THE RP04/5/6 DRIVER
*ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK
*RETURN HERE IF QUEUE IS FULL
*RETURN HERE IF REQUEST IS IN QUEUE OR THERE

RPO4:

MOV

:SAVE THE CALLING STATUS

MPS, - (SP)

*IS AN ERROR CONDITION

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

3405
3406
3407
3408

013316
013326
013332
01333¢

013737
112737
104412
071002

2410

013342

111201

3409

3411

013336
013344

012500
000001

005062

000016

013704

012474

3412
3413
3414
3415
3416
3417
3,18

013350
013354
013356
013362
013364
013370
013372

105761
003014
105761
001036
105761
001042
004037

3420
2421
3422
2423
3424

073400
013404
013406
013412
013414

105761
003445
105761
001031
010164

3426
3427

013424
013426

3429
3430

013436
013444

3432
3433
3434

30A(1052)

24-MAY-79
14:10 PAGE 68
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

177776
012412

RPVEC+2,94PS
#1,ACTDRV

MOVB

(R2),R1

(RO) ,R2

CLR

16(R2)

MOV

RPADR R4

;DON'T ALLOW ANY RP04/5/6 INTERRUPTS
*SET "ACTIVE DRIVER'' FLAG
*SAVE RO - RS
:PICKUP THE DRIVE PARAMETER BLOCK POINTER

:CLEAR THE STATUS/ERROR INDICATOR
*PICKUP THE DRIVE NUMBER

*UNIBUS ADDRESS OF RPCS1

TSTB
BGT
TSTB
BNE
TSTB
BNE
JSR

DRVSTA(R1)
1%
ULDFLG(R1)
3$
DPINT(R1)
X3
RO,DRVINT

“CHECK DRIVES STATUS
*BRANCH IF ONLINE
*UNLOAD COMMAND IN QUEUE?
*BRANCH IF YES
“TRYING TO INIT THE DRIVE
*BR IF YES
“GO INIT. THE DRIVE

000010

TSTB
BLE
TSTB
BNE
MOV

DRVSTA(R1)
6$
DPRQS(R1)
5%
R1,RPCS2(R4)

;IS DRIVE STATUS ONL INE?
*BR IF NOT
JOUTSTANDING PORT REQUEST FOR THE DRIVE ?
*BR IF YES
:SELECT THE DRIVE

000460
122762

000103

000002

BR
CMPB

13
#103,2(R2)

*QUEUE IS FULL
*IS THIS REQ. FOR AN UNLOAD?

112761
105761

177777
012336

012414

MOVB
TSTB

#-1,ULDFLG(R1)
DRVACT(R1)

013452
013456
013460

004737
000440
012762

013604

JSR
BR
MOV

PC,OPT
*CALL THE OPTIMIZER
8$
#BIT15!RIT13, 16(R2) ;SET THE 'UNLOAD IN QUEUE'® ERROR FLAG

337
34,38
2439
3440
3441
3442
2443
344
3445
3446
3447
3448
3449

013470
013474
013476
013502
013504
013510
013512
013516
013520
013524
013526
01353
013540
013542

004737
000431
004037
000431
032714
001023
004737
000420
105761
002412
012762
105761
001007
012762

014714

4$:

020624

5%:

JSR
BR
JSR
BR
BIT
BNE
JSR
BR
TSTB
BLT
MOV
TSTB
BNE
MOV

PC.CI7
*GO HANDLE THE PARITY ERROR
8s
RO, DRVQUE
:PUT REQUEST IN QUEUE
9
;QUEUVE IS FULL
#BIT06, (R4)
*IS 'IE' SET ALREADY ?
13
SBR IF IT IS
PC,SET.IE
*SET INTERRUPT
8s
*RETURN, REQUEST IN QUEUE
DRVSTA(R?)
*SEE IF DRIVE OFFLINE OR UNSAFE
7%
‘BR IF UNSAFE
#BIT15'BIT14,16(R2)
:SET OFFLINE ERROR INDICATOR
DRVTYP(R1)
;SEE IF OFFLINE OR NONEXISTENT
8s
*BR IF OFFLINE
#81T15!BIT01,16(R2)
:REPORT DRIVE NONEXISTENT

3451
3452
3453

013552
013560
013562

012762
104413
005720

MOV
RESREG
ST

#BIT15!BIT12,16(R2)
:DRIVE IS UNSAFE
:RESTORE RO - RS
(RO) +
*SETUP FCR NORMAL RETURN

3455
3456
3457
3458
3223

013566
013570
013572
013576
013602

104413
005720
105037
012637
000200

3419

3425

3428
3431

2435

34,50

3454

013376

0134620

013434

013450

013466

013550

013564

000434

004037

001003

001043
000434

000403

012346

MOV
MOVB
SAVREG
MOV

012414
012366
012724

B8R

012346
012376

1%:

020624

120000

JSR

000016

BNE
28:

3$:

000100
A
02016
012346

68:

140000
012356

000016

100002

000016

110000

000016

000401

012412
177776

7$:
8$:

98 :
108:

BNE
BR

B8R

RESREG
TST
CLRB
MOV
RTS

RO.DRVQUE

*ERROR RE TURN

*PUT THIS REQUEST IN QUEUE

:BR IF NO

:SET THE 'UNLOAD IN QUEUE'' FLAG
*1S THIS DRIVE ACTIVE?

*BR IF YES

EXIT

;GO TO EXIT

108

*FINISH UP

(RO)+
ACTDRV
(SP) +,a#PS
RO

mmsur

*RESTORE RO - RS
*CORRECT THE RETURN ADDRESS
:CLEAR "ACTIVE DRIVER'' FLAG
*RETURN 'PS’* TO USER LEVEL
*RETURN TO CALLER

SEQ 0066

C
CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
24=MAY-79 14:10 PAGE 69
CZRJBD.P1
28-MAR-79 11:23
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

SEQ 0067

;OPTIMIZER-CALLED FOR A PARTICULAR DRIVE

3462

3463

:CALL
:
:
OPT:

177776
012462
020700

012410

004000

000000

000100

000012

108:

110000

1$:

012436

3s:

014172

4$:

014714
000100
014050

020162

012376

7%:

:SEE IF DRIVE STILL ONLINE ?

DRVSTA(R1)
1%

*1S DRIVE ONLINE?
: YES=-BRANCH

PC ,POPQUE

*PARITY OR 'DVA' NOT SET

*NO--REMOVE REQUEST FROM QUEUE

#BIT15'BIT14,16(R2)
DRVSTA(R1)

;SET OFFLINE STATUS/ERROR INDICATOR

xs DRIVE UNSAFE ?

BR TO EXIT IF NOT

RO,WRT.RP

#111,-(SP)

*LOAD COMMAND ONTO THE STACK

:LOAD THE REGISTER

;REGISTER INCREMENT
:ERROR RETURN ADDRESS
:DRIVE AVAILABLE
?

BR
TST
BGE

#81T11, (R4)
5%
#150,2(R2)
2%
PC.CI4
89
DTUW
48

BMI
JSR

3s
RO,LA

JSR

PC.CI3

:START A SEARCH

MOV

R1,R3

:SET UP TO ADDRESS WORDS

PC.CI7

:PROCESS THE PARITY ERROR

‘BR IF SET

égR
BR
MOVB

ggv

6%:

RO,DRVINT

JSR

MOV

ASL

012440

:1S DVA SET?

#8IT15!BIT12, 16(R2)
:SET UNSAFE STATUS/ERROR INDICATOR
8s
:BRANCH TO EXIT

B8R

014064

*NO=--BRANCH TO EXIT

#8IT11,RPCST1(R4)”

MOV
BR

TST

015250

023420

TSTB
BGT

BEQ
(MPB
BLT
2%:

:1S THERE A REQUEST IN QUEUE?

JSR

012460

:GET 'DPB'" POINTER OF REQUEST

B8R

RPCS1
6%
BIT

000002

PC,GETREQ

10%
:BRANCH IF ~or
#BIT6,RPDST1(R4G)
;IS VWV SET
?
108
:BRIF IT IS

BPL

000016

:DRIVE NUMBER TO R1
:SETUP A COMMAND

BEQ
BIT
BNE

TSTB

014300

177777

MOV

004000

000150

TST

JSR

000016

000111
017652

:SAVE RO = RS
aHPS, - (SP)
:SAVE PROC. STATUS
ATABIT(R1),SRCHWT
:CLEAR ''SEARCH WAIT'' KEY

BIT

012346

SAVREG
MOV
BICB

BEQ

9%:

140000

#DRVNUM,R1
PC,OPT

JSR

012724

020722

MOV
JSR

JSR

:CALL THE COMMAND INITIATOR

:BRANCH TO EXIT
:DATA TRANSFER UNDERWAY?
:YES=-GO START A SEARCH

SEEKFG

:DO IMPLIED SEEKS?

*RETURN HERE ON A PARITY ERROR

gg.c11
8%
#-1,DPRQS(R1)
R3

: YES==--BRANCH
*NO=--DO LOOK AHEAD

:GO START A SEARCH

:START A DATA TRANSFER
:GO TO THE EXIT
;SET PORT REQUEST INDICATOR
CONVERT TO WORD INDEX

010000..rxnsncasSEXIsrAar 10 SEC TIMER

BIT

#B1T06, (R4)

JSR

PC,SET.IE

BNE

*BR IF NOT
;1S THE REQUEST FOR 1/0?
: YES=-BRANCH

;SEE IF "IE' ALREADY SET

:SET

""IETM

WITHOUT A

'‘TRE"

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

3517
3518
3519

014054
014060
014062

012637
104413
000207

30A(1052)

177776

24=MAY=-79 14:10 PAGE 70
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
8%:

MOV

RESREG
RTS

(SP) +,a#PS
PC

sRESTORE PROC. STATUS
sRESTORE RO = R5

;COMMAND INITIATOR
MOV
MOV
JSR

#DRVNUM,R1
#DPB,R2
PC.CI?

;DRIVE NUMBER

;ADDRESS OF DPB
CIE;ECI1.CI3, OR Cl4

8,08,

*CALL

:CIT1=DATA TRANSFER

:C12=SEARCH REQUESTED BY DATA XFER

:C14=NOT DATA TRANSFER

3532
3533

014064
014070

004737
010237

020722
012406

3535

014076

013704

012474

Cll:

JSR

PC ,POPQUE

R2, TRNSWT
R2,R3
RPADR R4

R1,RPCS2(R4)
#4 ,R3
#2,R4

(R3)+, (RG)+

(R3)+,(R4)+
(R3)+.=(SP)

3542

014124

004037
000006

017652
:

RO,WRT.RP

3546

014136

004037
000034

017652

(R3)+,-(SP)
RO,WRT.RP

3549
3550

014146
014152

016246
004037
000000

000002
017652

RO,WRT.RP

3553
3554
3555
3556
3557
3558

014162
014166
014172
014176
014202
014206

010137
000137
013704
010164
016246
004037
000034

012460
014656
012474
000010
000012
017652

3561
3562

014216
014222

116203
683583

000010
012510

3564

014230

062703

000026

3566
3567

014236
014244

116266
004037
000006

000011
017652

3570
3571

014254
014260

012746
004037
000000

000131
017652

CI3:

;LOAD SECTOR AND TRACK

sCALL THE LOAD(WRITE) ROUTINE
: INDEX OF REGISTER TO LOAD
;ERROR RETURN ADDRESS
sLOAD CYLINDER ADDRESS

2(R2) ,~(SP)

;LOAD ‘‘COMMAND+GO'‘, ‘‘A178A16'‘, AND ‘PSEL"’

R1,DTUW

;SET "DATA TRANSFER UNDERWAY''

RPADR R4
R1,RPCS2(R4)
12(R2) ,=(SP)

sRPCS1 ADDRESS
sSELECT DRIVE
sDESIRED CYLINDER ADDRESS

10(R2) ,R3
MXWNDW,R3

sPICKUP SECTOR ADDRESS
;BACKUP BY MAX. SEARCH FOR [/0 WINDOW

cIs

—_

RO,WRT.RP

000001

sREMOVE REQUEST FROM ‘DRIVES WAIT'' QUEUE
;PUT REQ. IN TRANSFER WAIT QUEUE
;DPB ADDRESS TO R3
sRPCS1 ADDRESS
s SELECT DRIVE
sDESIRED WORD COUNT
sRPWC ADDRESS
;LOAD WORD COUNT
;LOAD BUFFER ADDRESS

11(R2),1(SP)
RO,WRT.RP

#131,-(SP)
RO,WRT.RP

;COMBINE THE ADJUSTED SECTOR WITH
:THE DESIRED TRACK
;LOAD DESIRED TRACK & SECTOR

;START A SEARCH

SEQ 0068

CZRJBDO, RP04/5/6 FMTR M?C5%1
CZRJBD.P11
28-MAR-79

3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583

584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
3619
3620
3621
3622

3623
3626
3625
3626
3627
3628

014266
014270
014276
014300
014304
014310
014314
014320
014322
014326
014332

014334
014336
014340
014344
014346
014352
014356
014360
014362
014364
014370
014372
014376
014400
014402
014406
014412
014414
014416
014420
014424
014426
014432
014434
014440
014442
014450
014454
014462
014464
014470
014472
014474
014476
014502
014504
014510
014512
014514

014522
014526
014530
014532
014534
014540

014714
156137
000567
013704
010164
116203
122703
001007
016246
004037
014714
03

122703
001007
016246
004037
000034

014714
546
122703
001013
004037
000032
014714
116216
004037
000032
014714
000530
122703
001525
122703
001522
122703
001016
112761
105061
112761
010346
004037

014714
207
122703
001014
004037
000032
014714
116266
004037
000032
014714
000436
122703
001023

012462

30A(1052)

24=MAY=79 14:10 PAGEE 71
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

cl7

012410

012474
000010
000002
000131

BISB

Clé:

000010
017652

?}gBIT(R1).SRCHUT
RPADR R4

R1,RPCS2(R4)
2(R2) ,R3
#131,R3

1%:

000012
017652

2%:

000115

3%:

ADDRESS

sSELECT DRIVE
;sPICKUP THE REQUESTED COMMAND
;IS IT A SEARCH COMMAND?

;BRANCH IF NO

2%
#105,R3
3%
12(R2) ,~(SP)
RO,WRT.RP

;GO LOAD CYLINDER
;1S IT A SEEK COMMAND
:BRANCH IF NO
sLOAD DESIRED CYLINDER

10(R2) ,~(SP)
RO,WRT.RP

000105

:RPCS1

JSET "‘SEARCH WAIT'' KEY

;LOAD DESIRED TRACK & SECTOR

017472

Clé
#115,R3
48
RO,RD.RP

000001
017652

1(R2),(SP)
RO,WRT.RP

;BYTE WHEN LOADING THE
JREGISTER (RPOF)

Clé
#107 ,R3
Clé
#117 ,R3
Clé
#103,R3

;GO START THE COMMAND
;IS IT A "RECALIBRATE'' COMMAND?
;BRANCH IF YES
;IS IT A RETURN TO CENTER?
;BRANCH IF YES
JIS IT AN UNLOAD” COMMAND?

000107

4%:

000117
000103

000001
012346
000001

#1,DRVACT(R1)

;SET THE DRIVE ACTIVE INDICATOR

012414

#1,ULDFLG(RT)

;SET "UNLOAD IN PROGRESS'' FLAG

000143

DRVSTA(R1)

R3,-(SP)
RO,WRT.RP

5%:

017472

017652

000141

BRANCH IF

012336

017652

000001

;IS IT AN "OFFSET'' COMMAND?
:BR IF NO
MERGE THE OFFSET VALUE INTO RPOF
;JBUT DON'T CHANGE THE UPPER

000001

6%:

#143,R3

:PUT DRIVE STATUS TO OFFLINE

;START THE ‘'UNLOAD'' COMMAND

JRETURN TO USER

JIS IT A "'SET FORMAT'' COMMAND?

6%
RO,RD.RP

;BRANCH IF NO
JREAD THE OFFSET REGISTER

1(R2),1(SP)
RO,WRT.RP

;COMBINE ‘FMT22'',"ECI'', AND "HCI
;LOAD "FMT22'', "ECI'', AND/OR "MCI''.

12%

#1461 ,R3
10%

JIS IT A fiET REGISTER'' COMMAND?
BRANCH IF

SEQ 0069

CZRJBDO, RPO4/5/6 FMTR MACY11 30A(1052)
24=MAY=79 14:10 PAGE 72
CZRJBD.P11
28-MAR-79 11:23
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

014542

016203

000006

014546
014554
014560

116237
116205
004037
000000
014714

000010
000011
017472

7%:

Mov

6(R2) ,R3

8%:
9%:

MovB
MOVB
JSR
RPCS1

10(R2) ,9%
11(R2) ,R5
RO,RD.RP

sINIT. THE INDEX FOR THE FIRST REG.
s INDEX OF LAST REG. TO MOVE
sREAD RP04/5/6 REGISTER

(SP)+,(R3)+
9% ,R5
12%
42,9%
8%
#145,R3
12%
R3,-(SP)
RO,WRT.RP

;GET THE CONTENTS OF RH11/RP04/5/6 REG.
;LAST REG. BEEN READ?
;GET OUT IF YES
: INCREASE THE INDEX BY 2
;LOOP=-MORE TO READ
21S IT A "'SELECT DRIVE'' COMMAND?
;BRANCH IF YES
;LOAD THE COMMAND

PC ,POPQUE

;REMOVE REQ.

SAVEFG
13%
PC,SVRH11
PC
R1

;SAVE THE RH11/RP04/5/6 REGISTERS?
;BRANCH IF NO
;YES=-GO SAVE THE REGISTERS

;SET THE DRIVE ACTIVE
JRETURN TO THE USER

014564

014564
000002

014564

000145

10%:
11%:

017652
020722
000200
012434

000016

al)

020044

12%:

012440

z}OOO..TIMER(R1)

000001

012336

#1,DRVACT(R1)
PC

Cl6:

017652

010000

000010

C17:
1%:

104000

CI7B:

020604
012414
012336
012460
012406

177777

010000

R3,-(SP)
RO,WRT.RP

PC,SVRH11

FROM QUEUE

;SET THE "DONE'' BIT

JRETURN TO USER

sSET A ONE SECOND TIMER

;LOAD THE COMMAND

SET "PARITY'' ERROR INDICATOR

:GO SAVE THE RH11/RP04/5/6 REGISTERS

#111,-(SP)

:D0 A "DRIVE CLEAR''

PC,EMPTYQ

;EMPTY THE QUEUE

RO,WRT.RP

R1,DTUW

000010

;INDEX OF REG. TO READ

CI5
#81T12, RPCSZ(Ré)
D?IVEEQON-EXISTENT?
cI8
R2
ANYTHING IN QUEUE ?
CI78
BR IF NO

ULDFLG(R1)
DRVACT (R1)

012460

;POINTS TO 1ST ADDRESS OF WHERE
;TO PUT THE REGISTER(S)

#MBIT15!BIT11, 16(R2)

000016

017652

015026

#B81707,16(R2)

001750

alt)

3629
30

SEQ 0070

1%
TRNSWT
#=1,DTUW

;CLEAR THE UNLOAD IN QUEUE FLAG
;DRIVE IS IDLE

:IF

THIS DRIVE HAD AN I/0 REQUEST

;IN PROGRESS CLEAR ALL OF

;SAVE RO - RS

#BIT12,RPCS2(R4)" ;IS "NED' SET ?
;?

:BR IF YES

THE FLAGS

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD P11
28-MAR-79 11:23

015030

005003

012336

G
24-MAY=-79 14:10 PAGE 73
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
1%:

012406
012460

WNON)
= =

DOV
O

wi
NNN

—

D e

[elelelolelelolelolole]

LR AN AN AV AV AV LV AV IV AV TV IV IV, IV | v

020700

pord

3685

30A(1052)

2%:

010000

000010

100002

000016

102000

000016

3%:

012440

4%:

020044
177777
012336
012460
177777
012406
012414

010000

5%:

177777

020604
012346

012356
020162

BEQ

;DRIVE ACTIVE?
sBRANCH IF NO

PC,GETREQ

;DID THIS DRIVE HAVE AN [/0 IN PROGRESS?
:BRANCH IF YES
;GET THE DPB PCINTER
:QUEUE ENTRY FOR DRIVE ?
;BR IF NOT

TSTB

MOV
CMP
BEQ
JSR

TST
BEQ

BIT
BEQ
MOV
BR

143
PC,EMPTYQ
DRVSTA(R1)
DRVTYP(R1)

CLR

MOV

7%:

R2
4%

;GET THE '‘TRANSFER WAIT'' QUEUE

BR
JSR
CLRB
CLRB

JSR
MOV
CLRB
CMP

000010

6%:

TRNSWT ,R2
R1,DTUW
s 3

CLR
JSR

MOV

012460

000010

DRVACT(R1)

#BIT12 ,RPCS2(R4)
'NED' SET ?
3%
BR IF NOT
#BIT15!BITO1, 16(R2)
izSE 'DRIVE NON-EXISTENT' INDICATOR
4%
CONT
#BIT15!BIT10, 16(R2) ;SET "NON-CLEARABLE PARITY'' ERROR INDICATOR
PC,SVRH11
:SAVE RH11/RP04/5/6 REGISTERS
#-1.TIMER(R3)
:STOP THE TIMER
DRVACT(R1)
sSET "DRIVE ACTIVE'' TO IDLE
R1,DTUW
:1S THIS DRIVE SETUP FOR A TRANSFER
5%
:BR IF NOT
sRESET THE INDICATOR
#-1,DTUW
TRNSWT
:CLEAR THE TRANSFER QUEUE
ULDFLG(R1)
C
sCLEAR UNLOAD FLAG
#BIT12 ,RPCS2(R4)
;'NED' SET ?
6%
;BR IF YES
R1
sMOVE TO THE NEXT DRIVE
#2 ,R3
#°C7.R1
1%
;BRANCH IF MORE DRIVES
#-1,DTUW
:NO _DATA TRANSFERS UNDERWAY
TRNSWT
;CLEAR THE 'TRANSFER WAIT' QUEUE
PC.,CLRQUE
;CLEAR ALL OF THE REQUEST QUEUES

CLRB
BIT
BNE
INC
ADD
BIC
BNE
MOV

000002
177770
012406
020526
000040

CLR

BNE
MOV

012460

SEQ 0071

JSR
RESREG
RTS

#BITOS RPCS2(R4)" ;DO A MASSBUS

PC,SET.IE
PC

INIT.

; CONTINUE
;CLEAR THE DRIVE'S QUEUE
sSET DRIVE TO OFFLINE
;CLEAR THE DRIVE TYPE INDICATOR
:SET "'IE'* WITHOUT *‘TRE'’

:RESTORE RO - RS

:RETURN

;LOOK AHEAD ROUTINE
s CALL

3
3

012474
000010
017472

000012

LA:

MOV

#DRVNUM,R1
#DPB,R2

RO,LA
JSR
RETURN1

RE TURNZ2

RE TURN3

MOV

MOV
JSR

RPCC
4%

CMP

RPADR R4

;DRIVE NUMBER
sPOINT TO DPB
;GO CHECK THE WINDOW
;ERROR RETURN
;START A SEARCH
;START A DATA TRANSFER

R1,RP(S2(R4)
RO,RD.RP

;GET RPCS1'S ADDRESS
sSELECT DRIVE
sREAD CURRENT CYLINDER

(SP)+,12(R2)

;ERROR RETURN ADDRESS
;IS CURRENT CYLINDER=DESIRED

C(ZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

3741

015274

001037
105261
126137

012424
012424

30A(1052)

H
14:10
PAGE 74
SINGLE/DUAL PORT RH11/RPC4/5/6 DRIVER

24=MAY=-79

BNE
INCB

012502

(MPB

BGT
MOvB
SWAB

000010

000340
017472

ASR
ASR

177776

MOV

JSR

RPLA
3

002600
012504

1%:

012506
012424
000402
004737
000200

2%:
3%:

014714

4$:
5%:

SuB
BGE
ADD

CMP

3%
LACNT (R1)

s CYLINDER?
JEXIT IF NO
s INCREMENT THE LOOK AHEAD COUNT

#340,a4PS

;PRIORITY LEVEL '7"'

(SP)+,R3
1%
#<22.%64.>
,R3

sCALCULATE THE DELTA

LACNT(R1) ,MXLACT ;EXCEED MAX?
2%
sBRANCH IF YES
10(R2) ,R3
sGET DESIRED SECTOR ADDRESS AND
R3
sMULT. BY 64=-ALIGN WITH
R3
;LOOK AHEAD REGISTER
R3

RO,RD.RP

MXDLTA,R3

BLT
CMP
BGE
CLRB

3%
MNDLTA ,R3
3%
LACNT(R1)

TST
BR
JSR
RTS

(RO)
+
5%
PC.CI7
RO

TST

(REV 1.0)

(RQ)
+

;READ LOOK AHEAD REGISTER

sMAKE THE DELTA POSITIVE
sCHECK THE DELTA TO SEE
sIF IT IS WITHIN THE

:WINDOW==-=IF YES, ZERO
;THE LOOK AHEAD COUNT

sAND TAKE

THE

1/0 EXIT

.-/E\g#sr THE RETURN ADDRESS

*PROCESS THE ERROR
“RE

TURN

: INTERRUPT SERVICE ROUTINE
112737
104412

015436
015442
015444
015450

013704
013701
002403
004737
02

000001

012412

ISR:

012474
012460
015452
015612

1%:

2%:

012412

MOVB

#1,ACTDRV

BLT
JSR
BR
JSR

RPADR R4
DTWW.R1
1%
PC,TD

JSET "'ACTIVE DRIVER'' FLAG
;SAVE RO - RS
;ADDRESS OF RHSCS1
;GET 'DATA TRANSFER UNDERWAY'' INDICATOR
;BRANCH IF NO DATA TRANSFER UNDERWAY
:EQ%% TRANSFER DONE

PC.SC

sCALL SPECIAL CONDITIONS

CLRB

ACTDRY

SAVREG
MOV
MOV

RESREG

RTI

;RESTORE RO - RS
;CLEAR "‘ACTIVE DRIVER'' FLAG
;RETURN

; TRANSFER DONE ROUTINE

015452
015456

012336

177777

012460

177777

012440

012406
012406
000200
000010
017472

000016

CLRB
MOV

ASL

MOV
ASR

MOV
CLR
BIS
MOV
JSR
RP(CS1

cl7

ROL

DRVACT(R1)
';1 LDTUW

sSET DRIVE ACTIVE INDICATOR TO IDLE
sNO DATA TRANSFERS UNDERWAY

R
#-1,TIMER(R1)
R1
TRNSWT ,R2
TRNSWT

s TRANSFER WAIT QUEUE--CLEAR QUEUE

R1,RPCS2(R4)
RO,RD.RP

: TRANSFER ERROR(TRE=1)?

#81107,16(R2)

+
(SP)

s CANCEL TIMEOUT

;GET 'DPB'* ADDRESS FROM THE

sSET DONE

sSELECT THE DRIVE

SEQ 0072

(ZRJBDO, RP0O4/5/6 FMIR MACY11
C(ZRJBD.P11
28-MAR-79 11:23

015532

100413

005737

30A(1052)

24=MAY=79
BM]

020044
013604

1%:

000113

28:
000016

PAGE 75

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

012434

100100

14:10

3%:

BPL
JSR

JSR
BR

MOV

BIS

JSR
JSR

1%
PC,SVRH11
PC.OPT
SC

;BR IF YES

;SAVE THE RH11/RP04/5/6 REGISTERS?

sBRANCH IF NO
;YES==SAVE THE REGISTERS
sCALL OPTIMIZER

sCHECK OTHER DRIVES
RELEASE THE DRIVE
SC
CHECK FOR OTHER DRIVES
#BIT15!BIT06, 16(R2) :SET DATA ERROR FLAG
PC,EMPTYQ
:EMPTY THE "DRIVE'S WAIT'' QUEUE
PC.SVRH11
:SAVE THE RH11/RP04/5/6 REGISTERS

#113, (R4)

MOV

#60111, (R4)

B8R

MOV

015610

SAVEFG

#113, (R4)

;ISSUE A 'DRIVE CLEAR''
s ISSUE A RELEASE TO THE DRIVE
;CHECK FOR OTHER DRIVES

;SPECIAL CONDITION ROUTINE
015612
015616

000016

SC:

017472

MOVB

BNE
JSR

RPCS1

cI8

ROLB

BM]
JSR
FRROR

020764
020162

1%
2%

000001
sc3:
SCh:

012366

SCS:

016604
012376

1$:

016604
012346

2%:

012414

015750

015754
015760

015762

105761

003416
032737

JSR
RTS
CLR

RPAS(R4).R3

;READ 'RPAS'’

(SP)+

;1S “1E'=1?
:YES, NO DRIVES TO CHECK

2$
RO,RD.RP

1%
RO,ES. SAV
1

PC,SET.IE
PC
-(SP)

MOVB
MOV
CLR
BIT

R3,(SP)
#1.R3
R1
R3, (SP)

INC
ASLB

BNE

R1
R3
SC3

TSTB
BEQ
JMP

DPINT(R1)
1%
SC13

BNE

ST
RTS

TSTB

BEQ
JMP
TSTB
BGT
TSTB

scs

(SP)+
PC

DPRQS(R1)

2$
SC13
DRVSTA(R1)
5%

ULDFLG(R1)

020700
020044
016534

BLE
JSR
JSR
JSR

13
PC,GETREQ
PC.SVRHT1
PC.SC12

012346

TSTB

DRVSTA(R1)

040000

012326

BLE
BIT

63
#B1T14 ,RPERRS

sBRANCH IF ANY 'ATA' BITS SET
sREAD CONTROL AND STATUS REGISTER

:SAVE THE ADDRESS IN ‘SESCAPE'
:REPORT AN ILLEGAL INTERRUPT

:SET INTERRUPT ENABLE

sRETURN
;PROCESS ALL DRIVES THAT HAVE

;AN "'ATA''=1

;ATA=1?
: YES=-BRANCH

:MOVE TO THE NEXT DRIVE

;BRANCH IF MORE TO CHECK?
sCLEAN OFF THE STACK
sRETURN TG USER

sINITIALIZING THE DRIVE ?
:BR IF NOT

sPROCESS THE DRIVE
sPORT REQUEST OUTSTANDING ?

:BR IF NOT

;START THE OUTSTANDING COMMAND
;CHECK THE DRIVE STATUS
JBRANCH IF ONLINE
JUNLOAD IN PROGRESS?
sBRANCH IF NOT
;GET DPB POINTER
;SAVE THE RH11/RP04/5/6 REGISTERS
:SAVE RPDS1, RPER1, RPERZ, AND RPER3

:ALSO DO A DRIVE INIT (DRVINT)
:DID DRIVE COME ONLINE?
:NO==-=-BRANCH

;WAS THERE AN ERROR?

SEQ 0073

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

015770

30A(1052)

J
14:10 PAGE 76
SINGLE/DUAL PORT RHM11/RP04/5/6 DRIVER (REV 1.0)

24=MAY=79

016444
012330

3$:

012336

5%:

016534
012366

6$:

012346
020000

:BR IF EITHER
:SAVE RPDS1, RPER1, RPER2, AND RPER3

TSTB
BNE

DPINT(R1)
SC4

:TRYING TO INIT THE DRIVE ?
:BR IF YES, CHECK ON MORE DRIVES

7%
#81T13,RPERRS+6
8$
#113,-(SP)

:BR IF UNSAFE
:ADDRESS PLUG CHANGED ?
:BR IF YES
:RELEASE COMMAND

JSR

RPCS1
7%:

020764

SC8

020700
000010
017472

RO,ES. SAV
5
SC4

:SAVE THE ADDRESS IN ‘'SESCAPE’
:REPORT THE ADDRESS PLUG CHANGE
:CHECK FOR MORE DRIVES

1$:

016226

100240

000016

R1.RPCS2(R4)
RO.RD.RP

*SELECT DRIVE
*READ THE RP04'S STATUS REG.

SC8
MOV

(SP) ,RS

*GET THE DPB POINTER FROM THE QUEUE

:AND PUT IT IN RS

(SP) +

:WAS THERE AN ERROR?

gés

BGT

DRVACT(R1)

cnecx DRIVE'S STATE

l%;T1S'BITO7'BIT63 16(R2) ; INFORM USER OF ERROR RECOVER COMPLETION

JSR
RPER1

RO,RD.RP

:READ ERROR REGISTER #1

MOV
JSR

(SP)+,RS
PC,SVRH11

:AND SAVE IT IN RS
*SAVE RH11/RP04/5/6 REGISTERS

JSR
RPCS1

RO,WRT.RP

ROL
BM]

RS
1%

MOV

SC6A:

*SETUP TO ADDRESS WORDS
:STOP THE TIMER
*RESTORE THE DRIVE ADDRESS

PC.,GETREQ

SC8

017652

R1
#-1,TIMER(R1)
R1

JSR

TSTB

017472

:PARITY EXIT ADDRESS

JSR
ERROR
BR

BM]

000016

SWRITE THE COMMAND INTO RPCS1

*REGISTER INDEX

:PICKUP (RPAS) BEFORE THE ERROR CALL
:SAVE THE ADDRESS IN 'SESCAPE'
:REPORT THE UNEXPECTED ATTENTION
:GO CHECK FOR MORE ATA'S

ROL

100210

RO,WRT.RP

:CHECK ON DRIVE'S STATUS

(SP) ,RS
RO,ES.SAV
2
SC4

MOV
JSR
RPDS1

012336

DRVSTA(R1)

*ALSO DO A DRVINT

MOV
JSR
ERROR
BR

ASL
MOV
ASR

012440

:BR IF ERROR
:NO ERRCR
:YES == PICKUP RPER1 AND
:GO PROCESS THE ERROR
:DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ?

SCé
PC,SC12

TSTB

012334

3$
SC11
RPERRS+2 ,RS
SC6A
DRVACT(R1)

BNE
JSR

BM]
BIT
BNE
MOV

000113
017652

177777

BNE
JMP
MOV
BR
TSTB

SEQ 0074

SC8

SC11

#111,-(SP)

*BR IF ERROR

F DRIVE ACTIVE WITH ORDER

*ISSUE A DRIVE CLEAR

;WAS "UNSAFE'' CONDITION =1?
*BRANCH IF YES

8&5

g?%115381TO7!BITbS.16(R2)

BEQ

SC7

:ANYTHING IN QUEUE ?

‘BR IF NOT

:INFORM USER OF ERROR

CZRJBDO, RPO4/5/6 FMTR MACY11 30A(1052)
24-MAY-79 14:10 PAGE 77
CZRJBD.P11
28-MAR-79 11:23
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

3909
3910
3911
3912
3913
3914
3915
3916

016230
016234
016236
016240
016242
016244
016246
01625

004037
000012
016414
011605
006126
100071
112761
004737

3918
3919
3920

016266
016270
016274

000423
032705
001015

3917

016260

052762

3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931

016276
016304
016312
016314
016322
016324
016330
016336
016342
016346
016352

112761
112761
006301
012761
006201
000137
052762
105061
004737
105761
003002

3933
393,
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947

016360
016366
016372
016374
016400
016404
016406
016410
016414
016420
016422
016426
016432
016434
016440

116164
105761
100406
012746
004037
000000
016414
000137
105761
001405
004737
004737
000402
004737
000137

017472

177777
020044

110000

1$:

012346

000016

010000

012336
012346

072460

012440

015666
100220
012336
020604
012414

3932 016354 105061 012414

012462
012346

000016

3$:
SC7:

000016

1$:

000113
017652
015666
012336

28:
SC8:

020700
014714
014742
015666

1$:

28:

3948 016444 105761 012414
3949 016450 003402
3950 016452 105061 012414
3951
3952
3953

016456
016462

105061
136137

012336
012462

3954
3955

016470
016472

001012
004737

020722

3957
3958
3959
3960

016504
016510
016512
016516

005737
100002
004737
116164

3%2

016530

3964

016540

000137
0 }0 64
016437

3956

016476

052762

SCi1:

012410

000200

000016

020044
012462

000016

012434

3961 016526 004737 013604

013666
000010
000012

012326

RO,RD.RP

;READ DRIVE STATUS REG. #1

(SP),RS
(SP)+
28
#-1,DRVSTA(R1)
PC,SVRH11

:SAVE RPDS1
:TERR' =12

BR
BIT
BNE

SC7
#BITI2,RS
3%

i
SMOL' = 12
:BR_IF YES

ULDFLG(R1)

:CLEAR UNLOAD FLAG

ULDFLG(RD)
18
ULDFLG(R1)

:"UNLOAD
IN PROGRESS'"?
:CLEAR UNLOAD FLAG

28
PC,POPQUE

:BRANCH IF YES
REMOVE REQUEST FROM QUEUE

BIS
28:

177777
000001

JSR _
RPDS1
SC8
MOV
ROL
BPL
MOVB
JSR

1$:

sC12:

{8R 1F NO=-UNSAFE CLEARED
:DRIVE IS UNSAFE
:SAVE RH11/RP04/5/6 REGISTERS

#BITI5!BIT12,16(R2)

;INFORM USER OF UNSAFE ERROR

MOVB
MOVB
ASL
MOV
ASR
JMP
BIS
CLRB
JSR_
TSTB
BGT

#=1,DRVACT(R1)
:ACTIVE ERROR RECOVER
#1,DRVSTA(R1)
:ONLINE
RI
#30000.,TIMER(R1) ;START 30 SECOND TIMER
R
SC4
ABIT1S!BITO7!BITO4,16(R2)
; INFORM USER OF ERROR
DRVACT(R1)
:DRIVE IS IDLE
PCEMPTYQ
:DUMP THE QUEUE
ULBFLG(RT)
:UNLOAD IN PROGRESS OR QUEUE?
18
:BR_IF NOT

MOVB
TSTB
BMI
MOV
JSR
RPCS1
SC8
UMP_
TSTB
BEQ
JSR
JSR
Ri
JSR
UM

ATABIT(R1) ,RPAS(R4)
;CLEAR ATTENTION BIT
DRVSTA(R1)
;IS THE DRIVE UNSAFE ?
2§
:BR IF IT IS
#113,=(SP)
SRELEASE COMMAND
RO,WRT.RP
:WRITE THE COMMAND INTO RPCST
- IREGISTER INDEX
:PARITY EXIT ADDRESS
SC4
:CHECK FOR MORE DRIVES
DRVACT(RD)
:IS DRIVE IDLE?
18
YES=~BRANCH
PC,GETREQ
:GET DPB POINTER
PC.CI7
:PROCESS THE PARITY ERROR
28
: CONTINUE
PC,CI7B
:PROCESS THE UNCORRECTABLE PARITY ERROR
SCh
:CHECK MORE DRIVES

CLRB

TSTB
CLRB

BLE

CLRB
BITB

BNE
JSR

2$:

IN RS

DRVACT(R1)
:SET DRIVE IDLE
ATABIT(R1),SRCHWT
:DOING A SEARCH OPERATION FOR
AN 1/0 COMMAND?

BIS

#BIT07.16(RD)

JSR~

PC,OPT

ST
BPL
JSR
MOVB
P
Mov
MOV

:BRANCH IF NO

iSET "DONE"

SAVEF
ISAVE THE REGISTERS?
28
:BRANCH IF NO
PC,SVRH11
:YES--SAVE ALL OF THE RH11/RP04/5/6 REG'S
ATABIT(R1) ,RPAS(R4)
:CLEAR ATTENTION BIT

:START
A REQUEST

SCh
:CHECK_FOR MORE DRIVES
R1,RPCS2(R4)
:SELECT DRIVE
RPDS1(R4) ,RPERRS
:SAVE THE FOUR REGISTERS THAT

SEQ 0075

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

30A(1052)

24=MAY=79

14:10

PAGE 78

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

3965
%329

016546
016554

016437
016437

000014
000040

012330
012332

MOV
Mov

RPER1(R4) ,RPERRS+2
RPER2(R4) ,RPERRS+4

3968
3969
3970
3971
3972
3973

016562
016570
016574
016576
016600
016602

016437
004037
000401
000207
005726
000704

000042
012724

012334

RPER3(R4) ,RPERRS+6
RO,DRVINT
sINIT. THE STATE OF THE DRIVE

3975
3976
3977
3978
3979

016606
016614
016616
016622
016630

177777

012440

000010
012462
004000

000016

MoV
JSR
BR
RTS
TST
BR
ASL
MOV
ASR
MOV
MOVB
BIT
BNE

023420

3974

016604

006301

3980
ggg;

016634
016636

012761
006201
010164
116164
032714
001006
006301

gggz

016640

012761

3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999

016646
016650
016652
016656
016660
016664
016670
016672
016676
016700
016702
016704
016710
016716
016722

006201
000433
105761
001424
105061
004037
000240
105761
003014
005702
001416
004737
052762
004737
004737

4000
4001
4002
4003
4004
4005
4006
4007
4008
4009
4010
4011
4012
4013
4014
4015
4016

4017
4018

4019
4020

016726
016730
016734
016740

000404
105061
004737
000137

1%:

SC13:

012440

012366

1%:

012366
012724
012346

020700
140000
020044
020604
012376
013604
015666

2%:
3%:

1$
PC
(SP) +

s TAKE ERROR EXIT
sRETURN
;POP PC OFF OF THE STACK

R1
g;1.T1MER(R1)

sSETUP TO ADDRESS WORDS
STOP THE TIMER

SC8

sPROCESS THE PARITY ERROR

ASL

R1,RPCS2(R4)
,SELECT THE DRIVE
ATABIT(R1) ,RPAS(R4)
;CLEAR THE ATTENTION BIT
#BIT11,(R4)
;DRIVE AVAILABLC ?
1$
:BR IF AVAILABLE
R1

MOV

#10000. ,TIMER(R1)

ASR
BR
TSTB
BEQ
CLRB
JSR
NOP

TSTB

000016

sWILL TELL US SOMETHING

BGT
TST
BEQ
JSR
BIS
JSR
JSR
BR
CLRB
JSR
JMP

DPINT(R1)
2%
DPINT(R1)
RO,DRVINT
DRVSTA(R1)
2%
R2

PC,GETREQ

;START 10 SEC TIMER AGAIN

JEXIT

sINITIALIZING THE DRIVE ?
:BR_IF NOT
sCLEAR THE INIT INDICATOR
:GO INIT THE DRIVE
;DUMMY PARITY ERROR RETURN
:DRIVE ONLINE ?
:BR IF YES == START ORDER
:QUEUE ENTRY FOR THE DRIVE
.BR IF _NOT

#BIT15!81T14, 16(R2)

T DPB _ADDRESS

s INFORM USER THAT DRIVE OFFLINE

PC,SVRH11
gg.EHPTYO

;SAVE THE REGISTERS
:EMPTY THE REQUEST QUEUE

DPRQS (R1)

;CLEAR THE PORT REQUEST INDICATOR

SC4

sPROCESS OTHER DRIVES

PC,OPT

sSTART THE PENDING REQUEST

;RP04/5/6 TIMER ROUT INE
ALL

MOV

JSR

016744
016750
016752
016760
016762
016764
016766
016772
016774
017002
017004

005737
001030
112737
104412
005001
005003
005763

002407
166663

003003
004737

012412

000001

RPTMR:

012413

012440

000002
017036

1%:

012440

#TIME ,-(SP)

sELASPED TIME

ACTDRYV

;CHECK "ACTDRV & ACTSTR''

PC,.RPTMR

43
#1,ACTSTR

IN MILLISECONDS ON THE STACK

sCALL RP04/5/6 TIME ROUTINE
;sIF NON ZERO EXIT
;SET "'ACTSTR"'

;SAVE RO - RS

JSTART WITH DRIVE 0

TIMER(R3)
2%

;1S THE TIMER RUNNING?
*BRANCH IF NO

PC,STO

sCALL SOF TWARE TIMEOUT ROUTINE

2(SP) ,TIMER(R3) ;COUNT THE INTERVAL
2%
:BR IF NO SOF TWARE TIMEOUT

SEQ 0076

CZRJBDO, RPO4/5/6 FMTR MACY11 30A(1052)
24~MAY=79 14:10 PAGE 79
CZRJBD.P11
28-MAR-79 11:23
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
4021
4022
4023
4026

017010
017012
017074
017016

000405
005201
005723
022701

4026
4027
4028
28%

017024
017026
017032
017034

104413
105037
012616
000207

4025

017022

003361

2%:
000010

3%:

012413

4%:

BR
INC
TST
CMP

BGT

RESREG
CLRB
MOV
RTS

(R3) +

;GO TO THE EXIT
sMOVE TO NEXT DRIVE

#8. .R1

:OUT OF DRIVES?

ACTSTR
(SP)+,(SP)
PC

sRESTORE RO - RS
:ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG
:ADJUST THE STACK
sRETURN

:BRANCH IF NO

28%;

: SOF TWARE TIMEOUT ROUTINE

4033

NOTE THIS ROUTINE MUST BE ENTERED AT PRIORITY 6

4035

4034

4036

;CALL:

4038
28‘3.8

H
:

4037

4041
4042
4043
4044
4045
4046
4047
4048
4049
4050
4051
4052
4053
4056
4055

MOV

JSR
RETURN

PC,STO

#DRVNUM,R1

;DRIVE NUMBER

STO:

R1,=(SP)
R3,-(SP)
RPADR,R4
R1,RPCS2(R4)
RO,RD.RP

;SAVE R1
:SAVE R3
;GET ADDRESS OF 'RPCS1"’
:SELECT THE DRIVE
;READ 'DRIVE STATUS REG''

(SP)+
ST02
DPINT(R1)
ST02
DPRQS (R1)
ST02
TRNSWT ,R2
R1,.DTWW

;1S '"DRY'’=1?
;BR IF YES
sTRYING TO INTIALIZE THE DRIVE ?
:BR IF YES
;OUTSTANDING PORT REQUEST FOR THE DRIVE ?
:BR IF YES
:PICKUP TRANSFER WAIT QUEUE
: TRANSFER UNDERWAY ON THIS DRIVE?

PC,GETREQ

GET DPB ADDRESS

010146
010346
013704
010164
004037
000012
017360
105726
100477
105761
001074
105761
001071
013702
020137

012406
012460

MOV
MOV
MOV
MOV
JSR
RPDS1
ST05
TSTB
BMI
TSTB
BNE
TSTB
BNE
MOV
CMP

017114

004737

020700

JSR

020044
000040
012336
012414

017112

4058

017120

001402

052762

012474
000010
017472

012366

101000

017126
017132
017140
017144
017150
017152
017154
017160
017162
017166
017170
017174
017200
017202

004737
012764
105061
105061
005001
005003
004037
000477
105761
001414
013702
023701
001402
004737

4074
4075
4076

017214
017220
017224

105061
105061
012763

012336
012414
17777¢

017206

052762

STO1:

012376

4059
4060
4061
4062
4063
4064
4065
4066
4067
4068
4069
4070
4071
4072

4073

STO

017036
017040
017042
017046
017052
017056
017060
017062
017064
017066
017072
017074
017100
017102
017106

4056

4057

OR GREATER

BEQ

000016

000010

1%:

BIS

18"

s CALL

BRANCH IF YES

#B8iT15'81109, 16(R2) :SET _THE ERROR FLAGS

012406
012460

JSR
MOV
CLRB
CLRB
CLR
CLR
JSR
BR
TSTB
BEQ
MOV
cMP

PC,SVRH11
; SAVE RH11/RP04/5/6 REGISTERS
#B8iT05,RPCS2(R4) ;' INIT'* THE MASS BUS
DRVACT(R1)
:DRIVE IS IDLE
ULDFLG(R1)
:CLEAR THE UNLOAD FLAG
R]
:START WITH DRIVE 0
R3
RO DRVINT
sINIT. THIS DRIVE
T05
;PARITY ERROR RETURN
DRVACT(R‘I)
DRIVE IDLE BEFORE THE INIT.?
4%
; YES=-BRANCH
TRNSWT ,R2
:GET TRANSFER WAIT QUEUE
DTUW.R1
:WAS THERE 1/0 ON THIS DRIVE?

020700

JSR

PC,GETREQ

012724

2%:

012336

100400

BEQ

000016
012440

3$:
4%:

BIS

CLRB
CLRB
MOV

YE S--BRANCH

T THE DPB POINTER FROM QUEUE

#8iT15'B1T08, 16(R2) s INFORM USER OF INIT.

DRVACT(R1)
ULDFLG(R1)
#=1,TIMER(R3)

:SET'DRIVE ACTIVE TO IDLE
:NO UNLOAD
;STOP THE TIMER

SEQ 0077

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

30A(1052)

24=MAY=79 14:10 PAGE 80
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

017232

TST
INC

000010

177777
012406
020526

CMP
BGT
MOV

012460

000016
012462

012366

STO3:

012376

»H

(=]

b
b
s
s
b
i

#-1,DTUW
TRNSWT
PC,CLRQUE

sNO DATA TRANSFERS UNDERWAY
;CLEAR TRANSFER WAIT QUEUE
:CLEAR ALL REQUEST QUEUES

,R5

STO
DPINT(R1)

017472

:NO=--LOOP

ATA%IT(Rl).R5

012460

;LAST DRIVE BEEN CHECKED?

RPAS (R4)

012376

R ele RNTe AV, P WLV T

sUPDATE THE INDEX
- INCREMENT THE DRIVE NUMBER

#8..R1

ST09

ST02:

012366

177777

(R3¢
R1

;1S ATTENTION FOR THIS DRIVE UP ?

: YES=-BRANCH
sTRYING TO INTIALIZE THE DRIVE ?

ST06
DPRQS(R1)
ST07
R1,DTUW
STO1
RO,RD.RP

sDATA TRANSFER UNDERWAY FOR THIS DRIVE
:BR_IF NO
s YES==CHECK 'RDY''

(SP)
+
STO1
DPINT(R1)
1$
DPRQS(R1)

:BR _IF "RDY'=0
sINITIALIZING THE DRIVE ?
:BR IF INIT PENDING
sPORT REQUEST PENDING ?

STO09

012440

JEXIT
sREAD ATTENTION REG

#=1,TIMER(R3)

:BR_IF YES = DRIVE NOT ONLINE
sOUTSTANDING PORT REQUEST FOR THE DRIVE ?
:BR_IF YES - NO RESPONSE TO REQUEST

:BR IF NOT

;STOP THE TIMER

ST09
256518

SEXIT
;GO HANDLE THE PARITY ERROR

012440

DPINT(R1)
DRVSTA(R1)
#=1,TIMER(R3)
:g.GETREQ

;CLEAR THE INITIALIZE INDICATOR
:SET UNIT OFFLINE

140000

000016

ST09
086515‘BIT1416(R2)

177777

012440

015014

STOS:

012366

ST06:

012376
020700
100004
020604
020044

000016

STO07:

#-1,TIMER(R3)

DPRQS (R1)
:5.GETREQ

:FINISH
;STOP THE TIMER

ST09

sCLEAR PORT REQUEST INDICATOR
:GET DPB ADDRESS
OUEUE ENTRY FOR DRIVE ?
F NONE

PC,EMP
", SVRH11

:CLEAR THE QUEUE FOR THE DRIVE
:SAVE THE REGISTERS

(SP)+,R3

ST09:

(SP)+,R1

017470

*CALL

F _NOT
: INFORM THE USER DRIVE NOT AVAILABLE

#81T1S'BIT2 16(Ré) INFORH USER OF PORT REQUEST ERROR

STO8:

sROUTINE

;:STOP THE TIMER
;GET THE DPB ADDRESS
REOUEST IN QUEUE ?

:RESTORE R3
sRESTORE R1

sRETURN

TO READ A RH11/RP04/5/6 REGISTER

JSR
INDEX
ERRADR

RO,RD.RP

;GO READ A REGISTER
sREG. INDEX FROM BASE
;ERROR ADDRESS=-PROCESS ERROR STARTING

SEQ 0078

4133
4134
4135
4136
4137
4138
4139
4140
4141
4142
4143
4144
4145

30A(1052)

8
24=MAY=-79 14:10 PAGE 81
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
3

017472
017500
017502
017510
017514
017516

4146
4147

4148
4149
4150
4151
4152
4153
4154
4155
4156
4157
4158
4159
4160
4161
4162
4163
4164
4165
4166
4167
4168
4169

013737
011646
013737
062037
013727
000000
000000
013766
013746
062716
032736
001037
017746

032716

012472

017640

012474
017516

017516

017520
012474
000010
010000

000002

RD.RP:

MOV
MOV
MOV
ADD
RD.RP1: MOV
RD.ADR: .WORD
RD.WRD: .WORD
MOV
MOV

ADD

BIT
BNE

172722
020000

MOV

020764
012460

012474
017634

2%:

017634

3%:

lRPCSé.(SP)

MBIT12,a(SP)+
RD.RP3
aRPADR,~(SP)

IS ON THE

STACK

;MAX. RETRYS ALLOWED
;sSAVE RO FOR RETURN
sFORM THE DESIRED ADDRESS
JUSING THE BASE AND THE INDEX
JREAD THE DESIRED REGISTER OF THE RPO4
;ADDRESS IS FORMED HERE
JREG. CONTENTS PUT HERE
JRETURN IT TO THE USER
sPUT THE ADDRESS ON THE STACK

;FORM THE ADDRESS OF RP(CSZ2
sCHECK THE °'NED' BIT
;BR IF DRIVE NON-EXISTENT
;READ RPCS1

;DID MCPE SET?
JBRANCH IF YES

RD.RP4

SEXIT

JSR
ERROR

RO,ES.SAV
3

;SAVE THE ADDRESS IN 'SESCAPE'
JREPORT "MCPE'' ERROR

BM]
BIT
BEQ

2%
#IT14,(SP)
2%

+NO=--BRANCH
;NO=-="TRE'=1?
sNO=--BRANCH

BR
BIS

RD.RP3
#MIT14, (SP)

sTAKE THE FATAL ERROR EXIT
;CLEAR 'MCPE'' BY SENDING A “"1'* TO "'TRE'’

g:ADR.BS

;FORM ADDRESS OF HIGH BYTE

CMP

SWAB

MOVB

.WORD

DEC
.WORD
BGE
RD.RP3: MOV
MOV
RD.RP4: RTS

RD.RP2:

017646
017650

MCPEMX ,RD.RP2
(SP) ,~(SP)
RPADR,RD.ADR
(RO)+ ,RD.ADR
A(PC)+,(PC)+
O
O
RD.WRD,2 (SP)
RPADR,=(SP)

REG.

#BIT13,(SP)
1%

TST

040000

THIS ADDRESS

,CONTENTS OF

BIT
BNE

TST

040000

;AT

RETURN

SEQ 0079

(SP)+,(R0O)+

DTUW

(SP)+

(SP)

;ADJUST FOR RETURN

;DATA

TRANSFER UNDERWAY?

sYES==CLEAN OFF

JWRITE

(PC)+
3

JEXCEEDED MAX.

RD.RP1
(RO) ,RO

(SP)+,(SP)
RO

STACK AND

;POSITION BEFORE WRITING

(SP)+,a(PC)+

THE

THE HIGH BYTE OF

;ADDRESS STORAGE

RPCS1

RETRYS

sBRANCH IF NO
JFATAL ERROR EXIT

JROUTINE TO WRITE A REGISTER
. CALL

MOV

3
:
-

INDEX
ERRADR
RETURN

017652
017660
017666
017670
017674

013737
016637
012616
012037
001015

012472
000002
017742

020026
017740

JSR

WRT.RP: MOV

MOV
MOV
MOV
BNE

DATA,-(SP)

RO,WRT.RP

MCPEMX ,WRT.R2

2(SP) ,WRT .WD
(SP)+,(SP)
(RO)+ ,WRT AD
1%

;DATA TO BE LOADED ON THE STACK

sCALL THE ROUTINE TO LOAD(WRITE)

THE REG.

;INDEX OF THE REGISTER TO BE LOADED
sADDRESS TO RETURN TO ON AN ERROR
;ERROR FREE RETURN
;MAX RETRYS ALLOWED

sSAVE THE WORD TO WRITE
;ADJUST THE STACK
JGET INDEX OF REGISTER TO BE WRITTEN
;BRANCH IF NOT RPCS1

(ZRJBDO, RP04/5/6 FMIR MACY11
(ZRJBD.P11
28-MAR-79 11:23

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P1
28-MAR-79 11:23
4189

4190

017676

41N

122737

000150

30A(1052)

24=MAY=79 14:10 PAGE 8 2
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

CMPB

017740

BLT
JSR

017472

4192

4193
4194
4195

RPCS1

WRT.R3
SWAB
BIC
MOVB

177770

017741
012474

017742

1$:
ADD
WRT.R1: MOV

WRT.WD:
WRT.AD: :

012474
000010
010000

017472
02076/

RPADR, - (SP)

#BIT12.9(SP)+
RO,RD.RP

WRT.R3
BIT

#BITO3, (SP)+

MOV
JSR

-2(R0),1$
RO,RD.RP

WORD

WRT.R3
JSR

ERROR
DEC
WRT.R2: .WORD
BGE
TST
WRT.R3: MOV
WRT.R4:

WRT.R3

BEQ

1%:

RPADR,WRT.AD
(PCOY+,a(PC)+

BNE

JSR

020012

(SP)
#%C7,(SP)
(SP)
+ ,WRT .WD+1

#RPCS2, (SP)

RPER1

000010

RO,RD.RP

ADD

BIT

017472

177776

.WORD
.WORD
MOV

#150,WRT.WD
1%

TST

WRT.RS: RTS

WRT.R4

SEQ 0080

;1S THE COMMAND FOR DATA TRANSFERS?
;YES==DON'T GET THE OLD A16 & A17, & PSEL
sNO--=COMBINE A168A17, & PSEL WITH

;THE COMMAND BEFORE SENDING IT TO

:THE RH11/RPO4

;FORM THE ADDRESS OF

THE DISK REG.

;LOAD THE DESIRED REG.
sWORD TO WRITE GOES HERE
sADDRESS IS FORMED HERE
sPUT THE ADDRESS ON THE STACK
:FORM THE ADDRESS OF RP(S2
sCHECK THE °'NED' BIT
;BR_IF DRIVE NON-EXISTENT
;CHECK FOR PARITY ERROR ON WRITE

;BRANCH IF 'PAR=0"’

;PICKUP THE INDEX
;READ THE REG.
sREG. INDEX
JRETURN TO THIS ADDRESS ON ERROR
sSAVE THE ADDRESS IN 'SESCAPE'
;REPORT THE PARITY ON WRITE ERROR
;DECREMENT THE ERROR COUNT
sRETRY COUNTER

RO,ES.SAV
4
(PC)+
3
WRT.R1

s TRY AGAIN IF NOT FINISHED

(RO) ,RO

.EQ’}(; THE "PARITY ON WRITE'' ERROR EXIT

(SP)+

WRT.R5
(RO)
+

;CLEAN OFF THE STACK

;ADJUST FOR ERROR FREE EXIT

sROUTINE TO SAVE THE RH11/RP04/5/6 REGISTERS AS PER DPB+14
*CALL

;

MOV
JSR

SVRH11: SAVREG
ST
BEQ

MOV
MOVB
MOV

012474
000010
000014

020116

BEQ

020124
020124

000022

000200

000010

1%:

CLR

CMP
BNE

#DPBNUM,
R2

PC,SVRH11
R2
4$

RPADR R4
(R2) RPCSZ(RI.)
Ré
3

38, #RPDB
2$

BIT

#B1T07 ,RPCS2(R4)

CLR

(R3)+

BNE

:DPB _POINTER TO R2
;SAVE THE DRIVES REG'S

;SAVE RO - RS

;QUEUE ENTRY FOR THE DRIVE

;BR IF NONE

sSELECT DRIVE
;GET THE ERROR TASLE POINTER
SEXIT IF NO ADDRESS
sCOUNTER & POINTER

:REACHED THE BUFFER REGISTER ?

.BR IF NOT
:BR IF SET

-STORE RPDB AS ZEROES
2 CONT INUE

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23
020120
020124

004037
000000

30A(1052)

017472

24=MAY=79 14:10 PAGE 83
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
2%:
3%:

020124

000046

000002

020124

014714

4%:

JSR
.WORD
5%
MOV

RO,RD.RP
0

BEQ
ADD

6$
#2,3%

JSR
RESREG

PC.CI7

CMP

5%:
6%:

RTS

(SP)+,(R3)+
38 ,#RPEC2
1%

sREAD THE SELECTED REGISTER
;REGISTER INDEX
:ERROR RETURN ADDRESS
:STORE THE REGISTER CONTENTS
:REACHED THE END
?

:BR IF YES
s INCREMENT THE REGISTER INDEX

sCONTINUE READING THE REGISTERS

:PROCESS THE UNCORRECTABLE PARITY ERROR
sRESTORE RO = RS
sRETURN

:QRUlINE TO SET THE INTERRUPT WITHOUT GETTING A '‘TRE'’
.

CAL

H
020162

JSR

RETURN

SET.IE: MOV

012474
000010

MOV
MOV
MOV

040000
000100
010000

MOV

020234

000001

2%:

020243

;SAVE R4

RPADR R4
R1,RPCS2(R4)
(R4) ,~(SP)

;PICKUP ADDRESS OF RPCS1
s SELECT DRIVE
sREAD RPCS1

MOVB
BIT
BNE

#BIT06, (R4)
JSET "IE"
#BIT12,RPCS2(R4) ;1S "NED''=1?
1%
;YES==CLEAR ''TRE"’

MOvB

MOV
RTS

;QUEUE COUNT

QCNT:

R4 ,=(SP)

;367 I

#BIT14, (SP)

;gT

30
020232

;DRIVE NUMBER TO R1

PC,SET.IE

BIS

SWAB

000010

#DRVNUM,R1

.BYTE

.BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE

;SET THE '‘TRE'' BIT OF THE WORD READ

(SP)

;ADJUST FOR DATO

égP)*

;CLEAN OFF

(SP)+,1(R&)

;CLEAR ''TRE"'

RETURN TO CALLER

(SP)+ R4

0
0
0
0
0
0
0

JRESTORE R4

;DRIVE 0

;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE

1
2
3
4
5
6
7

;QUEUE INPUT POINTERS

020244

60
020262

QINPT:

.WORD

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

QDRVO

QDRV1
QDRV¢?
QDRV3
QDRV4
QDRV5
QDRV6
QDRV7

;QUEUE OUTPUT POINTERS

;DRIVE 0

;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE

1
2
3
4
5
6
7

THE STACK

SEQ 0081

020324

020326

24=MAY-79

PAGE 84

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
QOUTPT:

020326
020346
020366
020406
020426
020446
020466
020506
020526

14:10

QSTART:
QSTOP:

QDRVO

:DRIVE

QDRV1
QDRV2

QDRV3
QDRV4
QDRVS
QDRV6
QDRV?7

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE

QDRVO
QDRV1
QDRV2
QDRV3

START ADDRESS
;DRIVE
sDRIVE O STOP ADDRESS & DRIVE 1 START ADDRESS
;STOP DRIVE 1=-=START DRIVE 2
;STOP DRIVE 2-=START DRIVE 3

QDRVS
QDRV6
QDRV7

;STOP DRIVE
;STOP DRIVE
;STOP DRIVE
;STOP DRIVE

QDRV4

QTERM

;STOP DRIVE 3-=START DRIVE
4==START DRIVE
5==START DRIVE
6==START DRIVE
7

e
)

.BLKW
.BLKW

d o

.BLKW
.BLKW

QDRVO:
QDRV1:
QDRVZ2:
QDRV3:
QDRV4:
QDRVS:
QDRV6:
QDRV7:

elelelelelelels]

;DRIVE REQUEST QUEUES
020326

QTERM=.

;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES

*CALL

000010
020304

: SAVREG
CLRQUE
MOV
CLR
CLR

020234

PC,CLRQUE
#QCNT ,R2

(R2)+
(R2)+
(R2)+
(R2)+
#8. ,R3

#QSTART ,R1

020526
020530
020534
020536
020540
020542
020544
020550
020554
020556
020560

JSR

(R1)+,(R2)+
B3
1%
#8. ,R3
#QSTART
,R1

2%:
8/

RI:SREG
RTS

SEQ 0082

NOWVIS~WN—=O

020264
66

30A(1052)

CZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

(R1)+,(R2)+
R3

;EMPTY THE QUEUE SPECIFIED BY R1

:SAVE RO - RS
;ZERO THE QUEUE COUNTS
;DRIVES 0 & 1
:DRIVES 2 & 3
;DRIVES 4 & 5

:DRIVES 6 & 7
sMOVE THE STARTING

sADDRESS OF THE QUEUE INTO
:THE QUEUE INPUT POINTER

;MOVE THE STARTING ADDRESS
;OF THE QUEUE INTO THE
;QUEUE OUTPUT POINTER

;RESTORE RO - RS

4
S
6
7

CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
24=MAY=79 14: 10 PAGE 85
CZRJBD.P1
28=MAR-79 11:23
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
4357
4358
4359
4360
4361
4362
4363
4364
4365
4366
4367
4368

s CALL
.

020604
020610
020612
020620
020622

020234
020244

EMPTYQ:

;ROUTINE

s CALL
AR I

4372
4373
4374
4375
4376
4377
4378
4379

122761

000010

020234

DRVQUE :

PC.EMPTYQ

DRVNUM,R1

;DRIVE NUMBER TO R1

CLRB

ggNT(R1)

;CLEAR NUMBER OF

ASL
MOV
ASR
RTS

020264

4369
4370
4371

JSR

MOV

g{NPT(R1),00UTPT(R1)

#10,QCNT(R1)

020304

020244

1%:

ASR

2%:

RTS

;DRIVE NUMBER

sADDRESS OF PARAMETER BLOCK

:GO _PUT REQUEST IN QUEUE

JRETURN HERE

IF QUEUE

IS FULL

sRETURN HERE IF REQUEST IS IN QUEUE

;1S QUEUE FULL?

:BR IF YES=TAKE RETURN1

R2,3QINPT(R1)
#2,QINPT(R1)

;PUT THIS REQUEST IN QUEUE
;UPDATE THE QUEUE POINTER

(RO) +
RO

;TAKE RETURN 2
JRETURN TO USER

ggNT(RT)

020244
020306

;SET OUTPUT QUEUE POINTER=INPUT POINTER

IN QUEUE

#DRVNUM,R1
MOV
#DPB R2
MOV
RO,DRVQUE
JSR
RETURN1
RETURNZ
CMPB

ITEMS IN QUEUE

TO PUT A REQUEST

020234
020244
000002
020244

SEQ 0083

s INCREMENT QUEUE COUNT

QINPT(R1),QSTOP(R1) ;TIME TO RESET THE POINTER
1%
;BRANCH IF NO
S?TART(R1),OINPT(R1) ;YES=-RESET POINTER

JROUTINE TO GET THE 'DPB'' ADDRESS OF NEXT REQUEST IN QUEUE

:ECALL
2

:
2
005002
105761
001404
006301

017102

020720

00020:

020234
020264

GETREQ:

1%:

2%:

MOV

JSR
RETURN
CLR

TSTB

BEQ
ASL
MOV
ASR

RTS

#DRVNUM,R1
PC,GETRCw

;DRIVE NUMBER TO R1

;GO GET

THE REQUEST

;R2="DPB'' ADDRESS OF THE REQUEST

;R2=0 IF NO REQUEST IN QUEUE
R2
QCNT(R1)

;IS THERE ANY REQUEST IN QUEUE?

:NO==-BRANCH

2?0UTPT(R1).R2

;PICKUP 'DPB'' POINTER FOR THIS DRIVE

RETURN TO USER

JROUTINE TO 'POP'' THE REQUEST FROM QUEUE
sCALL
:
3
3

MOV
JSR
RE TURN

#DRVNUM,R1
PC,POPQUE

;DRIVE NUMBER TO R1

sCALL

TO REMOVE REQUEST

;R2=ADDRESS OF DPB REMOVED

CZRJBDO, RP04/5/6 FMTR

CZRJBD. P11

4413

4414
4415
4416
4417
4418
4419
4420
4421
4422

MACY11

28-MAR-79 11:23

020722

30A(1052)

POPQUE : REEB

020234
020264
000002
020264

020264
020306

020304

020264

4425

*CALL

4426
4427
4428
4429
4430
4431
4432
4433
4434
4435

:
:

012037
013746
005037
000000
012637
000200

4464

4465

4466

4467

4468

021000
001160
001160
001160

RTS

g?TART(R1).QOUTPT(R1)

sYES=<RESET

THE POINTER

JRETURN TO USER
'SESCAPE'

WHEN THE DRIVER

RO,ES. SAV
N

::THE ERROR CALL

ES.SAV: MOV
MOV
CLR
1%:
.WORD
MOV
RTS

(RO)+,1%
$ESCAPE,~{SP)
$ESCAPE
0
(SP)+,SESCAPE
RO

;GET THE ERROR CALL
;SAVE THE ADDRESS IN 'SESCAPE'
;CLEAR THE ESCAPE RETURN
sTHE ERROR CALL IS MOVED HERE
;RESTORE THE ESCAPE ADDRESS
sRETURN

AR A AR AR AR AR A AR

A AR R

RE TURN

A AR AR A AR

:THE RETURN IS PAST

R R AN R AR

THE ERROR CALL

AR AR AN AR AR AR AR AR

.SBTTL

TELETYPE MESSAGES

USE:

.ASCIZ

<CR><LF>/WARNING:

043517
041101
044522
046111
020124
042523

NOUSE:

.ASCIZ

/ PROGRAMMABLE-DRIVE WILL NOT BE USED/

044514

UNTOFF:

.ASCIZ

/ OFFLINE/

044514

UNTON:

.ASCIZ

/ ONLINE/

NOTRP:

.ASCIZ

@ NOT AN RP04/5/6a@

042523

020124
030120
000066
050040
052116

NOTPRS:

.ASCIZ

/ NOT PRESENT/

047125

040523

NOTSAF:

.ASCIZ

/ UNSAFE/

040527
035107
051107
046102
053111
054501
051525
000
051120

hgnnv-a—a_hd-a;:_ua-a_ha
v P
VIS
BN =

4463

@dQOUTPT(R1)
,R2 ;GET THE 'DPB'' POINTER
#2,Q0UTPT(R1)
;UPDATE THE QUEUE POINTER
QOUTPT(R1) ,QSTOP(R1) ;TIME TO RESET THE POINTER?
1%
:NO=-BRANCH TO EXIT

JSR
ERROR

4436
4437
4438

4460
4461
4462

;DECREMENT QUEUE COUNT

;ROUTINE TO SAVE THE CONTENTS OF
sREPORTS AN ERROR DIRECTLY.

4424,

4455
4456
4457
4458
4459

ggNT(R1)

SEQ 0084

MOV
ADD
CMP
BNE
zgx

020762

4423

4439
4440
4441
4442
4443
4Lhbd,
4445
444k
4447
4448
4449
4450
4451
4452
4453
4454

G
24=MAY=-79 14:10 PAGE 86
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

052440

043106
000
047117
000

047122

050040
046501

PROGRAMMABLE DRIVES MAY BE USED/<CR><LF>

020105
051505
041040
042105

(ZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23
4469
4470
W7
4472
4473
4474
4475
4476
4477
4478
4479
4480
4481
4482
4483
4484
4485

021216
021221
021226
021233
021240
021246

042506
122
050122
122

047125
040524
005012
015
042526

000064
00v
000066
051440
006523

RPO4B:
RPOS:
RPO6:
SYSTAT:

.ASCIZ
LASCIZ
.ASCIZ
_ASCIZ

/RPQ4/
/RPQS/
/RP06/
/UNIT STATUS/<CR><LF><LF>

044522
000
000

MUNIT:

ASCIZ

<CR><LF>/DRIVE:

SLASH:
£:

.ASCIZ
ASCIZ

@/ &
/C/

MDRVD:
LINGSP:
LINSP:
ENTADR:

.ASCIZ
ASCY]
_ASCIZ
.ASCIZ

70/
7
7
7/
/
/ENTER ADDRESS LIMITS:/<CR><LF>

MOFFLN:

.ASCIZ

MDRNP :

ASCIZ

7/ DRIVE NOT PRESENT/<CR><LF>

MER11:

ASCIZ

/ DRIVE NOT AVAILABLE/<CR><LF>

MNRPO4:

.ASCIZ

@ DRIVE NOT AN RP04/S5/6@<CR><LF>

MUSDR:

.ASCIZ

/ DRIVE UNSAFE/<CR><LF:

MSELD:

.ASCIZ

/ SELECTED/

MMODE:

.ASCIZ

<CR><LF>/PROGRAM MODE

MFORMT:

.ASCIZ

/ FORMAT & VERIFY/

MHECK:

.ASCIZ

/CHECK ONLY/

MORMAT:

_ASCIZ

/FORMAT & VERIFY/

MSIZE:

LASCIZ

<CR><LF><LF>/OPERATE

020122
051505
044515
000012
053111
046106

4487
4488
4489
4490
4491
4492

4493
449
4495

ASCIZ

PAGE 87

SEQ 0085

/1/

DRIVE OFFLINE/<CR><LF>

052116

053111

4496

4497
4498

4499
4500
4501
4502

4503
4504
4505
4506
4507
4508
4509
4510
4511
4512
4513

047117
1 06
020124
044322
—_—

0511
0471

4518
4519

14:10
TELETYPE MESSAGES

24=MAY=79

4486

4514
4515
4516
4517

000
030120
032460

30A(1052)

(C OR F):

IN 22 SECTOR MODE

(Y OR N)

? /

(ZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD PN
28-MAR-79 11:23

021650

30A(1052)

052103
042117
047440
037440
051105

051124

043516
040440
052515
020105
020114
020122
042524

24=MAY=-79

14:10
TELETYPE MESSAGES

/OPERATION WILL BE

IN 22 SECTOR

(16 BIT)

MODE/<CR><LF>

MSEC20:

LASCIZ

/OPERATION WILL BE

IN 20 SECTOR

(18 BIT)

MODE/<CR><LF>

BADENT:

LASCiZ

/INVALID ENTRY/<CR><LF>

MADRER:

LASCII

/ENDING DSK ADRS MUST BE EQUAL

LASCIZ

/THAN STARTING ADRS/<CR><LF>

LASCII

/SELECT DATA PATTERN/<CR><LF>

LASCII

(0)

ZERO'S/<CR><LF>

LASCII

(1)

ONE'S/<CR><LF>

LASCIZ

(2) WORST CASE:

:
MPATD

LASCIZ

/WORST

MSFOU:

LASCIZ

<CR><XLF><LF>/STARTING FORMAT ON DRIVE

MSCHK
:

LASCIZ

<CR><LF><LF>/STARTING CHECK ON DRIVE

MSELP:

TO OR GREATER/<CR><LF>

051501

047527
0405?2
0
051101
043040

022330

SEQ 0086

LASCIZ

020051
051447

022244

MSE(C22:

020116
044524
051104
052103
020101
051105

PAGE 88

000
040524

CASE/
/

CZRJBDO, RP04/5/6 FMTR M?C5}1 30A(1C52)
24=MAY=-79 14:10
1
CZRJBD.P11
TELETYPE MESSAGES
28-MAR-79
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590
45N
4592
4593
4594
4595
4596
4597

PAGE 89

J
.

020107
020113
044522

052122

051117
047503
042524

MF CMPT: LASCIZ

<CR><LF><LF>/FORMAT

MCCMPT:

LASCIZ

<CR><LF><LF>/CHECK COMPLETE, /-

046101
051117
042524
020072

NUMERR:

.ASCIZ

/TOTAL ERRORS DETECTED:

042523
042104
044440

ADDRIS:

LASCIZ

/PRESENT ADDRESS IS:

COMPLETE,

::tttttttittltttlttttfit'ttt**tifitttttttthttttt!ittttt.ttit'ittttt

.SBTTL

ERROR MESSAGES

AR AR

AR AR A AR A AR A AR A AR

EM1:

LASCIZ

/RH11

050130
020104
052116
041517
042105

EM2:

LASCIZ

/UNEXPECTED ATTENTION OCCURRED/

041123
051101
051105
046450
024461

EM3:

.ASCIZ

/MASSBUS PARITY ERROR (MCPE=1)/

EM4:

LASCIZ

/MASSBUS PARITY ERROR

EMS:

LASCIZ

/ADDRESS PLUG CHANGE BIT SET/

022512

051122

051501
004

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

INTERRUPT OCCURRED

(RPAS=0)/

(PAR=1)/

AR AR

R &

SEQ 0087

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

022740

30A(1052)

24=MAY=79

14: 10

ERROR MESSAGES

PAGE 90

SEQ 0088

EM6:

LASCIZ

/RH11

020105
047111

EM10:

.ASCIZ

/DRIVE OFFLINE/

051511

EM11:

.ASCIZ

/PERSISTENT DRIVE UNSAFE ERROR/

EM12:

LASCIZ

/UNCORRECTABLE MASSBUS PARITY ERROR/

053524
044524
000124
020105
042506
051117

EM13:

LASCIZ

/SOF TWARE

EM14:

LASCIZ

/DRIVE UNSAFE ERROR/

051124

EM15:

LASCIZ

@CONTROLLER/DRIVE ERROR DURING WRITE®

051124
027522
020105
020122
043516
042524
045503

EM16:

.ASCIZ

@CONTROLLER/DRIVE ERROR DURING WRITE CHECKa

044522

EM17:

.ASCIZ

aRéTRIES NOT SUCESSFUL = SECTOR NOT ACCEPTABLEQ

EM20:

.ASCIZ

aDATA ERROR DURING WRITE CHECK@

042040

DIDN'T RESPOND TO ADDRESSING/

WVi=

—ded
=8N

NN =
O =
DW=V

051523

TIMEOUT/

CZRJBDO, RP04/5/6 FMTR
CZRJBD.P11
28-MAR-79

30A(1052)

051124
027522

051122
051101
020105

023674

050}22

4748

024050

14:10

ERROR MESSAGES

PAGE 9

SEQ 0089

EM21:

.ASCIZ

QCONTROLLER/DRIVE ERROR VERIFYING HEADERS®

EM22:

.ASCIZ

QHEADER COMPARE ERROR VERIFYING HEADERS®

EM23:

.ASCIZ

QCYLINDER FIELD IN HEADER IS NOT CORRECTa

EM24:

.ASCIZ

QWRITE CHECK ERRORA

EM25:

.ASCIZ

QHARDWARE ERROR DURING WRITE CHECK@®

DH1:
DH2:

.ASCIZ
.ASCIZ

/RPAS/
/DRIVE

RPDS1

RPER1T

020105
020107
042040

DH3:

.ASCIZ

/DRIVE

REG ADR

DATA/

020105
020107
020040
020104
042101

DH4 :

.ASCIZ

/DRIVE

REG ADR

GOOD

042101
000123

DH6:

.ASCIZ

/RH ADDRESS/

000
042524
045503
051117
053504
051105
052504
053440
041440
000

051501
044522
051040
020040

020110
051505

24=MAY=79

ARAAR AR AN R RN

RRRRRARR

AR AR RRAR

RPER2

BAD/

RN AR

RPER3

RAAR

AR R

RPAS/

CZRJBDO, RP04/5/6 FMTR
CZRJBD.P11
28-MAR-79

4749

024056
024064

ERROR MESSAGES

051104
020040

SEQ 0090

DH10:

LASCIZ

/DRIVE

ERR PC

RPCS1

RP(CS2

RPDS1

RPER1

RPER2

DH10A:

LASCIZ

/RPECT

RPEC2

RPWC

RPBA

RPDA

RPAS

RPLA/

DH10B:

.ASCIZ

/RPDB

RPMR

RPDT

RPSN

RPOF

RPCA

RPCC/

DH17:

LASCIZ

/DRIVE

ERR PC CYLINDER TRACK

SECTOR/

DH20:

.ASCI2Z

/DRIVE

ERR PC CYLINDER TRACK

SECTOR/

DH20A:

LASCIZ

/RPCS1

RPCS2

RPDS1

RPER1

RPERZ

RPER3

RPEC1

RPEC2/

DH208:

LASCIZ

/RPW(

RPBA

RPDA

RPAS

RPLA

RPDB

RPMR

RPDT/

RPER3/

041520
051503
050122
020040

051105

062
051105
020061
041505

052103

042526
051122

050122
024550

041527
050122

CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
24-MAY=-79 14:10
CZRJBD.P11
28-MAR-79 11:23
ERROR MESSAGES

PAGE 93

4805
4806
4807
4808
4809
4810
4811
4812

024556
024564
024572
024600
024606
024614
024622
024630

020040
040504
050122
020040
020040
041104
050122
020888

020040
020040
051501
050122
020040
020040
051115
050122

050122
020040
020040
040514
050122
020040
020040
052104

4814

024637

122

051520

020118

DH20C:

.ASCIZ

/RPSN

4819

024674

020040

020048

DH23:

.ASCII

4823

024724

051104

053111

020105

.ASCIZ

/DRIVE

4828

024762

044040

040505

042504

4830

024772

020040

020048

.ASCII

4839

025060

051104

053111

020105

.ASCIZ

/DRIVE

4847
4848
4849
4850
4851
4852
4853
4854

025140

040504

040524

025146
025150
025156
025164
025172

001276
001274
012332
001274
001274

012326
012334
017516
017742

012330
001276
017520
017740

88}}%8

88}%88

001354

001310

172

214
4860

025224

DH24:

DT1:
DT2:

.WORD
.WORD

DT3:
DT4:

.WORD
.WORD

DT6:

.WORD

DT10:

.WORD
.WORD

RPOF

RPCA

SEQ 0091

RPCC/

EXPT'D/<CR><LF>

ERR PC

CYLNDR

ACTUAL HEADER/

TRACK

SECTOR

MEMORY

DISK/<CR><LF>

DATA

DATA/

ATIN
DDRIVE,RPERRS,RPERRS+2,RPERRS+4 ,RPERRS+6,ATTN

DDRIVE,RD.ADR,RD,.WRD
DDRIVE,WRT.AD,WRT.WD,RD.WRD
SRPADR

DRIVE,$ERRPC,RP.REG,RP.REG+10,RP.REG+12,RP.REG+14
,RP.REG+40,RP REG+42
RP.REG+44 ,RP.REG+46,RP.REG+2
,RP.REG+4 ,RP .REG+6 ,RP . REG+16 ,RP.REG+20

025232
025240

025444
025450
025456
025460
025462
025464

025466
025470
025472
025474
025476
025500
025502
025504
025506
025510
025512
025514
025516
025520
025522
025524
025526
025530
025532
025534
025536

001312

001314

001324

001332
001340

001334
001342

001116
001252
001116
001252
001316

001270

001334
001340

000

000
000

000

034
034
000

8
SEQ 0092

.WORD

RP.REG+22,RP.REG+24
,RP.REG+26 ,RP.REG+30,RP.REG+32 ,RP.REG+34 .RP.REG+36

DT17:

.WORD

DRIVE,$SERRPC,DS.CYL.DS.TRK,SAVSEC

DT20:

.WORD

DRIVE,SERRPC,DS.CYL.DS.TRK,SAVSEC

001320
001350

.WORD

RP.REG,RP.REG+10,RP.REG+12,RP.REG+14 ,RP.REG+40,RP.REG+42,RP.REG+44 ,RP. RE

001314
001330

.WORD

RP.REG+2,RP.REG+4 ,RP.REG+6,RP.REG+16,RP.REG+20,RP.REG+22
,RP .REG+24 ,RP . RE

001342

.WORD

RP.REG+30,RP.REG+32,RP.REG+34,RP.REG+36

025574
025570

DT23:

.WORD

DRIVE,SERRPC
,RBUF
,BUFP,
+2,RBUF +4RBUF
,RBUF +6

001270
001124

DT24:

.WORD

DRIVE,$ERRPC,DS.CYL.DS.TRK,SAVSEC,$GDDAT
,RP.REG+22

001320
001350

.WORD

RP.REG,RP.REG+10,RP.REG+12,RP.REG+14 ,RP.REG+40,RP.REG+42 ,RP.REG+44 . RP.RE

001314
001330

.WORD

RP.REG+2,RP.REG+4 ,RP.REG+&,RP.REG+16,RP.REG+20,RP.REG+22
,RP.REG+24 .RP. RE

001342

.WORD

RP.REG*+30,RP.REG+32,RP.REG+34
,RP.REG+36

LWORD
BYTE
.WORD
.BYTE
WORD
BYTE
JWORD
BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD
.BYTE

1
1.0
1
6.0
1
3.0
1
4,0
3
8..0
DH10A
7.0
DH10B
7.0

DF1:
DF2:

DF3:
DF4:

DF10:

000
000

PAGE 94

DF17:
DF20:

.WORD
BYTE
.WORD
BYTE
.WORD

1
5,34
4
5,34
DH20A

.WORD

DH20B

-WORD

DH20C

000

.BYTE

000

BYTE

8.,0

14:10
ERROR MESSAGES

24=MAY=-79

tmnNLDnUOUDUVUIUVIUNNNNUUNULININN
NN
ININLN NN INININAININIAILNLA . A

4861
4862
4863

30A(1052)

wuLnunmummummunmunmuouonnununmumunmununn

(ZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P1
28-MAR-79 11:23

007

000

007
024444

034

010

024542
010
024637
004

DF23:
DF24:

.WORD
.BYTE

000
000

000
;:t*ttfitt'ttttt.ttfi.ttt*t'.t.ttfiitt..tt..'..Qtt'tt't'..".t.t".'

;BUFFER STARTS HERE

025574

.WORD

BUFP:

026532
026502

TITLE:

027464

;FORMAT AND CHECK BUFFER STARTS HERE

LASCII

<CR><LF><LF>/2Z-CZRJB=-D/<CR><LF>

.ASCIZ

aRP04/5/6 FORMATTER PROGRAM@<CR><LF><LF>

LASCII

<CR><LF>/TO 'FORMAT' OR °'CHECK' DRIVE O, REPLACE

LASCII

/PACK ON DRIVE O WITH ANOTHER PACK, CLEAR MEMORY LOCATION 40,/<CR><LF>

.ASCIZ

/AND RESTART THE PROGRAM/<CR><LF>

e I I

047506
042524
043517
005012

;BUFFER FOR HEADER CHECK

055012
045122
012
030120
02 0066
052101
051120
006515

0.0.0.0

LOADRV:

THE

°*XXDP'/<CR><LF>

020117

052012
051117
047440
042510

025574

:
RBUF

]

000000

e eI

000000

] ] ] ] e

;:ttfi'fi.fi't'fittt".tttfi.'t'tttttt'ttt.'.Q.Q.Qt.'t.t.t't'..'."".

025564
025572

SEQ 0093

e R B

000001

051040
052122
050040
046501

B T

025540
025542
025544
025546
025550
025552
025554
025556
025560
025562

C ol ot ol e

4917
4918

28-MAR-79 11:23

PAGE 95

—_—

CZRJBD.P11

24=MAY=79 14:10
ERROR MESSAGES

N NWNWNWNWNWDNWNWNWNWNLWLNA

CZRIBDO, RP04/5/6 FMTR MACY11 30A(1052)

CZRJBDO, RP04/5/6 FMTR

CZRJBD P11

28-MAR-79

4973
4974
4975
4976
4977
4978
4979
4980

005015

026064

MACY11

11:23

30A(1052)

24=MAY=-79 14:10
ERROR MESSAGES

PAGE 96

SEQ 0094

000
.SBTTL

BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11

;THIS ROUTINE

;OF THE RH11

IS USED TO INSURE THE BUS ADDRESS

IS SETUP FOR THE PROPER ADDRESS.

;1T WILL ALSO READ THE ADDRESS FROM THE TTY IF
sREQUIRED.
sNOTE: THIS ROUTINE DESTROYS RO-R4
s CALL
JSR
RETURN
HIAD:
HIVEC:

LIMIT:
BUSADR:

001302

001302
001172
026316

1%:

026070
026340

.WORD 177700
.WORD 776
.WORD

TST

CHGADR

s INPUT FROM TTY REQUESTED?

CLR
MoV

CHGADR
#SRPADR ,RO

sFIRST ADDRESS

MOV

(RO)+,=(SP)

BEQ
TYPE

TYPOC
TYPE
RDL IN

021305

MOV
MOV
JSR

026074

PC ,BUSADR

3%
7%

MRPCS1

.LINSP

(SP)+ ,R1
HIAD,LIMIT

R5,CK.NUM

177776

2%:
3%:

026327
001174

R2,-2(R0)

MOV

#SRPVEC ,RO

TYPOC
TYPE
RDLIN

.LINSP

TYPE

MOV

021305

026072
026340

1%
4%
MOV

MoV
MOV

026074

JSR
7%
7%
3%

+MRHVEC

(RO)+,-(SP)

(SP)+ ,R1
HIVEC,LIMIT

R5.CK.NUM

000004
026304

026262

010137

152710
000004

4%:

000004

R2,-2(R0)

MOV

#8% ,ERRVEC

TST

MOV

;2 SPACES
;GET THE ENTRY

sADDRESS OF ASCII TEXT
sTHIS IS THE ADDRSS HIGH LIMIT
;CHECK THE NUMBER
;CARRIAGE RETURN ONLY ENTERED
;PERIOD ONLY ENTERED
sILLEGAL INPUT
sTERMINATED WITH A CARRIAGE RETURN

;TERMINATED WITH A ‘"""’
s TERMINATED WITH A ‘"""
SAVE NEW RPCS1

;" RHVEC="'

:FIRST VECTOR
:PRESENT RH11 VECTOR ADDRESS ON THE STACK

;TYPE

:2 SPACES

JREAD THE ENTRY
sASCII TEXT ADDRESS
JVECTOR LIMIT
;CHECK THE NUMBER
sCARRIAGE RETURN ONLY ENTERED
sILLEGAL INPUT

MOV
MOV

sPRESENT RPCS1 ADDRESS

JTYPE IT

: TERMINATED WITH A CARRIAGE RETURN
s TERMINATED WITH A *

177776

"RPCS1="'

sPERIOD ONLY ENTERED

4%
2]

+NO--BRANCH
;YES==CLEAR THE REQUEST FLAG

ERRVEC,R1

@$RPADR

R1,ERRVEC

:TERMINATED WITH A **."*
:SAVE INPUT

:SAVE THE ERROR VECTOR
:SETUP FOR TRAP
sCHECK FOR RH11
sRESTORE ERROR VECTOR

E
CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
24=MAY=79
14:10 PAGE 97
CZRJBD.P11
28-MAR-79 11:23
BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11

012700
012701

001172
012474

MOV
MOV
MOV

#$RPADR
, RO
#RPADR ,R1
(RO)+,(R1)+

RTS

CMP

(SP)+,(SP)+

:RESTORE ERROR VECTOR
;CLEAN OFF THE STACK

sASK FOR BUS ADDRESS

MOV

000004

8%:

026314

026316
026324

026327
026334

MOV

122

036440

051503
000
053110
000040

R1,ERRVEC

ERROR

BR
050122
020055

(RO)+,(R1)+

SEQ 0095

sFIRST ADDRESS OF NEW PARAMETERS

;FIRST ADDRESS OF WHERE TO PUT THEM

;BUS ADDRESS

;VECTOR ADDRESS

:RE TURN

:REPORT THE ERROR

020061

MRPCS1:

.ASCIZ

QRPCS1

041505

MRHVEC:

.ASCIZ

@RHVEC

.SBTTL

CK.NUM - CHECK NUMBER (OCTAL)

;THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS
sAND FORMS AN OCTAL NUMBER IN R2

;CALL:

:
:
4

MOV
MOV
JSR

RETURN

ADR1
ADRZ2
ADR3

RETURN

ADRS

:
H

:
s

RETURN
RETURN

RETURN

CK.NUM: MOV

000004

006654

1%
2%

ADRé

;ADDRESS OF ASCIZ STRING
sMAX SIZE OF INPUT NUMBER
;GO FORM THE NUMBER

2''CR"" ONLY ENTERED == R2 = 0
;"PERIOD'' ONLY ENTERED == R2= 0

sILLEGAL CHARACTER IN THE INPUT STRING

"CR" ENTERED == R2 = NUMBER
:"'COMMA'" == R2
= NUMBER

ADR6

'PERIOD" == R2
= NUMBER

R4 ,-(SP)

;SAVE R4

MOV
MoV

R3,-(SP)
R2.=-(SP)

;SAVE R3
;SAVE R2

CLR
CLR
JSR
6%

R3
R2
R5,CK.CHR

sSTART NUMBER AT ZERO
;STORE RESULT
sCHECK ONE CHARACTER
sILLEGAL CHARACTER

CLR

006654

#ADR,R1
#NUM_R2
RS, CK.NUM

JRETURN POINTER

:FMRIAGE RETURN

:co.ll

1%
6%
ADD
ASL
BCS
ASL
BCS
ASL
BCS
ADD
JSR
8%

;DIGIT Q=7
;DIGIT 8-9
s INCREMENT RETURN PAST ‘'CR'' AND 'PERIOD'* ONLY RETURNS
;FOR THE OCTAL NUMBER IN R3
sDON'T LET IT GET TO BIG

#4 RS
R
6%
R3
6%
R3
6%
R2.R3

R5,.CK.CHR

sCHECK ONE CHARACTER
sILLEGAL CHARACTER

.‘QA&RIAGE RETURN

3’

'..l:l.

DIGIT 0-7

(ZRJBDO, RP04/5/6 FMTR

CZRJBD.P11

5085
5086
5087
5088
5089

026434

MACY11
28~MAR-79 11:23

026464
105711

001011
005724
005724
005724
023703
101003

000401
005725
005725
060405

30A(1052)

F
14:10 PAGE 98
CK.NUM = CHECK NUMBER (OCTAL)

24~MAY=79

3%:
(%:

026074

5%:

6%
7%:

8%:

TSTB
BNE
TST
TST
TST
CMP
BHI

TST
TST
ADD
MOV
TST
MOV

(R1)

(R4)+

(R4)
+

+
(R4)

LIMIT,R3
8%

7%
(RS5)+
(RS)+
R4 RS
R3,R2

+
(SP)

(SP)+,R3

(SP)
+ R4

(RS) ,RS
RS

.END

SEQ 0096
;DIGIT 8-9
;DOES A ''CR'* FOLLOW THE ‘PERIOD'’
:BR IF NOT
s INCREMENT THE RETURN
s INCREMENT THE RETURN INDEX

: INCREMENT THE RETURN INDEX
s INPUT VALUE TOO LARGE ?
sBR IF IT IS
:BR IF NOT
s INCREMENT THE RETURN ADDRESS
s INCREMENT THE RETURN ADDRESS
;SETUP FOR PROPER RETURN
sLOAD ENTERED VALUE
;CLEAN OFF THE STACK
JRESTORE R3

;RESTORE R4

;GET RETURN ADDRESS

sRETURN

(ZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11: 23

000200
000123
000040

012412
012413
100000
022465
001500
001000
100000
012462
001276
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
022036
10
001224
002114
002132
002142
002100
001230
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000

8414
9114
8754

000004
000010
000020
000040

31114
31174
8304
2029
1074#
7474
7344
31834
1004#
7674
7684
7694
7704
7714
7724
7734
7748
665#
6664
2071
6834
980#
539
535
1294
542
9824
639
629#%
628#
6274
6264
6254
624K
6234
622#
6214
620#
638#
6194
618#
6174
3919
6164
6154
6144
3917
6374
6364
6354
6344

000200

6324

020000
040000
100000

000100

6334

30A(1052)

8844
3406+

4012~

24=MAY=-79

14:10
PAGE 100
CROSS REFERENCE TABLE == USER SYMBOLS

3457

4027+

SEQ 0097

3770

3779+

4010

3574

3933

3952

3960

3978

4086

1526+

1535

1582

1589

1772

1776

1909

1591

1908

1949

3927

3956

4241

3663

3682

369

4158

4162

4267

4598#
1729

3362
2227+

3469

4850

4851

1948

3696

4269
3907

3979
3451
4149

3997
3485

4120

1719

3696

3698

3805

3707

3917

3892

3907

(ZRJBDO, RPO4/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

30A(1052)

1075

BUSADR
C
CHGADR
cn
cI3
Clé
cIS
clé
c1z

026076
021275
001302
014064
014172
014300
014656
014700
014714

cI78
cI8

014742
015014

1363
2030
10074
3504
3506
3495
3554
3592
3436
3621
3666
3664

49904
L4794
1292+
35324
35554
35764
3575
3602
3513
3625
36694
3672

CKTRK
CK.CHR
CK.DEC
CK.DIG
CK.NUM
(K.0CT
CLOCK
CLR
=
CLROQUE

004356
006654
006626
006726
026340
006600
006332
000040
020526

CKADRS
003704
(KSWR = 104407

CNTLC
001300
CR
= 000015

6464

1087
1947

1582#
2225

1644
1485
21094
2062
5001
2051
1992
6854
3255

CRLF
CSF
(sUu_
CYLCK
DCKk
DCL.
DU

= 000200
= 000002
= 000010
001246
= 100000
= 000100
=
1

10064
5544
4509
4589
5554
817#
815#
9894
7534
876#
882#

DDRIVE

001274

10034

DDISP = 177570

DE1__
= 000040
DFF20 = 000002
DF1
025460
DF10
025500
DF17
025514
DF2
025464
DF20
025520
DF23
025540
DF 24
025544
DF3
025470
DF4
025474
DH1
023674
DH10
024056
DH10A
024154

5614

724
7204
1144
1193
1242
1151
1249
1270
1277
1158
1165
1142
1191
47608

1088
1967

2253
‘6724
1548
2137
21624
5017
2139
2002
3715
1335+
9674
4522
4819
2363
8354
8374
1772«
1696
8854

1076
1089
1978
1295+

4878

1078
1091

49374

1079
1092

1298+

4990

4992+

3662
3606

36584

3548
3646

3552
3661

3818

4108

2168

2182

5064

2028+

2041+
4473

1081
1094

3569
3765

3573
3795

1084
1642

3584
3944

3591
4253

3597

3601

3615

4495
4575

4499
4580

4504
4585

5079

5058+

2013#
4083
1479+

2392

4529

2402
1803

952

2226+

1179
1200
4907#
1172
1284
W74
4915
48974
48994
4728%
1198
4903

1077

1074

025574

BPTVEC= 000014

BUFP

SEQ 0098

6314
6304
b

= 0004C0
= 001000

16:10
PAGE 101
CROSS REFERENCE TABIE == USER SYMBOLS

BIT8
BIT9

24=-MAY=79

48934
1207

43374

1566+

2602

4537
4939

4443
4545
4942

259N

2674

4548
4948

44676
4556
4958

4484
4560
4969

4488
4564

44691
4567

1806+

4853

4854

1214

1221

1228

1235

1256

1263

49014

1212

1219

1226

1233

1254

1261

L7454

48954
49094

1205

I
CZRJBDO, RPO4/5/6 FMTR MACYH 30A(1052)
24-MAY-79 14:10 PAGE 102
CZRJBD.P11
2B=MAR=79 11:23
CROSS REFERENCE TABLE == USER SYMBOLS
DHI0B

024241

47694

023701
024375
02444é
024542
024637
DH23
024674
DHO4
024772
DH3
023756
DH4
024004
DH6
024043
DIGB = 000004
DISPLA 001142
DISPRE
000174
OLT
= 100000
DL64
= 000020

1949
1247
4792#
4803#
4816
1268
1275
1156
1163
1177
7214
9528
519#
6954
7238

DHI7

024326

DH2
DHO
DH20A
DHO0B
DHOC

DMD
= 000001
DONE
005436
DPINT
012366
DPR
= 000400
DPRQS
012376
DRIVE
001214
DRQ
= 004000
DRVACT 012336

1260

7578
1845
30704
7278
3083#
9764
7904
3027#

3951%

DRVCLR=
DRVINT
DRVQUE
DRVSTA

000111
012724
020624
012346

5064
3275
3,25
1388
320

DRVTYP

012356

1391

SEQ 0099

4905

47784

1170
1282
4911
4913
4915
4819
4830#
47374
47414
47478

4729
47854
4921
4923
4925

1321%
1329

1329+

2237%

3287

3379«

3416

3836

3861

3987

3989%

4050

4088

4099

3508+«
1497«

3839
1518

4001*
1520

4052
1573

4090
1903

4101
4857

4116w
4866

4868

4878

4881

3784+

3857

3890

3921%

3928+

3941

3278
3850

3310%
3863

3310%
3915e

' 3368+
392

3373«
393

3412
3992

18464
3284
3422
1492+
3430

3609«

4107+

4061%

4067

4074+

3656«

3675%

3686

3701%

3309
3438
1507
3444

3418
43774
30414
3479

3477

3969

3990

4065

3265+
3483

3266%
3610+

3267*
3719+

3268%
3g42

1398

1409

1412

1512

1522

3057

3311+

3326+

3331e

3336e

331e

3347s

1320
4866
4866

4868
4868

4881
4881

3553«

3676

3679+

3689

3702

3704+

3713=

3773

3785+

4055

DRY
=
DSWR =
DS.CYL
DS.TRK
DTE
=
DISY
=
DTUW

DTO0
DTOT
DT02
DTO3
D104
DTOS
DT06
D107
DTO8
DT
DT10
DT17
DT2
D10

000200
177570
001270
001272
010000
000200

012460

= 000001
= 000002
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200
= 000400
025146
025204
025260
025150
025272

7264
5604
1001#
10024
7508
7638

951
2228+
2229*
1696

4070

4081

3177#

7814
7824
7834
784
7854
7864
7874
7884
7894
1143
1192
1241
1150
1248

3261

3497

4092

4156

P
48504
1199
4B66H
1171
1283

1206
48514
48684

1213

1220

1227

1234

1255

1262

4857#

CZRJBDO, RPO4/5/6 FMTR MACY11 30A(1052) 24~MAY=79 14:10 PAGE 10%

1704

3929

18604

1318

1319«

1330+
4154

3872

i
—d

1906+

FMT22 = 010000

F1
F2

= 000002
= 000004

F&4

= 000020

= 000010

1707«

3999

1714%
a2

1721
L3624

1724+

1748+

1757«

1535

1582

1588

1803

1999+

2008+

5025

5026+

5028+

5034+

1635
1744

1640+
1773~
1874
1936+

1641+

1642+
1775+
1903+
1938+

1787

a
w
a
al
ald
i

hole
Ve [N W= NOWO00ONWVI0D
=
r

1524~
1538

4484n
1687

1521«
1472+

NON SO

FEN
= 000200
FER
= 000020
FMTDPB 001356

-l

EM2
022553
EM20
023361
EM21
023417
EM22
023470
EM23
023537
EM24
023607
EM25
023631
EM3
022611
EM4
022647
EMS
022704
EM6
022740
ENDCYL
001222
ENDTRK 001226
ENTADR 021310
ERINDX 005462
ERR
= 040000
ERRVEC= 000004
ES.SAV 020764
EXT1
= 000001
EXT10 = 000010
EXT2 = 000002
EXT20 = 000020
EXT4 = 000004
EXT40 = 000040

d ald wlb wid

sd wal

)

il el

1334+

= NONONVNUNUND)
=

023121

023142
023165

SEQ 0100

L8784
L8814
48534
48544
48564

EM13

|EM14
EM15

025354
025372
025164
025172
025202
004000
000100
004000
001304
020604
000030
022512
023002
023020
023056

CROSS REFERENCE TABLE -- USER SYMBOLS

L NNV

D123
D124
DT3
DT4
DT6
DVA
=
ECH
=
ECI
=
EFLG
EMPTYQ
EMTVEC=
EM1
EM10
EM1
EM12

28-MAR-79 11

CZRJBD.P11

2228

3876

1527
1584

1988+
4214

1989+
44314

1871
1928+

1774+
1893
1937+

1645+
1776+
1904+

2031

CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
24=MAY-79 14:10 PAGE 104
CZRJBD.P11
28-MAR-79 11:23
CROSS REFERENCE TABLE == USER SYMBOLS
FS
= 000040
GETREG= 000141
GETREQ 020700
GNS

ARRRRE

GO
GRV
GTSWR
HCE

= 000001
= 000010
= 104405
= 000200

HCI
= 002000
HCRC
= 000400
HDREAD 005076

HEDERR

001262

HIAD

026070

7144
9134

3470
518

7094
7224
1357
7454

8574

7464
1762
9954
4LO87#
4988#
5524
7484

3691
2988
29944
1696

3846
2989

3882
2990

SEQ 0101

3943
2991

3996
2992

4057

4072

4110

4117

2998

43984
2999

3000

4443
4545
4942

4473
4548
4948

4476
4556
4958

4484
4560
4969

4488
4564

4491
4567

4495
4575

4499
4580

2327

44834

4997

5013

1744

1946

1966

1977

1643

1699

1733

1819

2994

2996

2997

1793

1696
17694
1769+

5016
2361

2402

6634

6474
6864
3270
n

—

7384
739

026074
021305
021303
025651
005562

18894

45174
8434
45094

3759

1427+

45194

1444~

1567

4504
4585

CZRJBDO, RPO4/5/6 FMTR MACY11 30A(1052) 24-MAY=79 14:10 PAGE 10%

CZRJBD.P11

022260
000400

28-MAR-79 11:23
1555

CROSS REFERENCE TABLE == USER SYMBOLS

45734

50414
50394
45804
L5374
45294

45604
45754
45224
L4764
45044
1461~

1467«

1641

1730

1905

1496

1511

1515

1517

3757
3744
3562

1458

2023

15334
15454

1541
1561

14794
1438
14484
14704
1529
1539
1850

2028

1696

34674
20494
001443

10634
10654

3801

3961

4002

1848

SEQ 0102

CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
24=MAY=79 14:10 PAGE 106
CZRJBD.P11
28-MAR-79 11:23
CROSS REFERENCE TABLE == USER SYMBOLS
PAR3

PARS
PAT
=
PATA
PATB
PATSEL
PGE
=

PGM
PIP

001456

1057

001467
000020
001242
001244
001240
002000

1058
6844
987#
9884
986#
6904

= 020000

7324

= 001000

PIRQ = 177772
PIRQVE= 000240

5594
6534

8294
3481
S76#

PR3

= 000140

S74

=
=
=
=

5814
5824
5834
3;280

= 000040
= 000100

PR4¢

= 000200

PRS
PR6
PR7
PS

000240
000300
000340
177776

10674
10694

1603«
1604
1473«

1607+
1608+
1562«

1611x
1612«
1605

1615
1616
1609

8464
3532

3647

3955

44134

1377«

1506*

3253

3254«

3283%

4362«
4310
4311
4312
4313
4314

4377
43224
43234
43244
43254
43264

4379«

4399

4413

4383
4416%
4419

4385«
4417

4419~

7284

PLU
= 020000
POPQUE
020722
PRO
= 000000
PR1
PR2

SEQ 0103

S774
5784

5804

1333
199
1377
557

1334
2004
3291

3404

3405~

3458+

3468

3517+

3793

3816

3884

3894

3909

PSEL
=
PSU
=
PSW
=
PWRVEC=
QCNT
QDRVO
QDRV1
QDRV2
QDRV3
QDRV4

002000
000001
177776
000024
020234
020326
020346
02
020406
020426

6674
8724
5578
6484
42794
4290
42N
4292
4293
4294

QDRV7
020506
QINPT
020244
QOUTPT 020264
QSTART
020304
QSTOP
020306
QTERM = 020526
RAW
=
20
RBUF
025564
RDCHR = 104410
RDDAT = 000171
RDHD = 000173
RDLIN = 104411
RDY
=
2
RD.ADR 017516
RD.RP
017472

4297
42908
43014
43104
43114
4318
8384
1774
2750
9204
9214
1429
6644
4138«
3322
4045
4140
4136+

QDRVS
QDRV6

RD.RP1
RD.RP2

RD.RP3
RD.RP4
RD.WRD

020446
020466

017514
017640

017644
017650
017520

4295
4296

4147
4152
41428

2027«

4338
4301
4302
4303
4304
4305

4306
4307

4308
4364
4364
4344
4383
43304

1799
29974
1777
1449

4139
3357
4094
4170
4169
4161
41734
4143

4315
4316
4317
4381%
4402
4349
4417

43274
4328#

43294
4382+
4415
4385

4878

4934k

1483

1546

2060

29984

4998

5014

41414
3363
4136

4853
3595
419

3619
4205

3633
421

3737
4245

3751

L1714
4853

4854

CZRJBDO, RP04/5/6 FMTR MACY11 30A(1052)
24=MAY=79 14:10 PAGE 107
CZRJBD.P11
28-MAR-79 11:23
CROSS REFERENCE TABLE == USER SYMBOLS
READIN= 000121
RECAL = 000107
RELSE = 000113
RESREG= 104413
RESVEC= 000010
RETRY
001250
RMR
= 000004
RNOP = 000101

SEQ 0104

3292

3452

3455

3518

3722

1665+

1668+

1751

1753

1756+

012474

3576

RPAS
= 000016
RPBA = 000004
RPCA = 000034
RPCC
= 000036
RPCS1 = 000000

4085

RPADR

RPDA = 000006
RPDB = 000022
RPDS1 = 000012
RPDT
= 000026
RPEC1 = 000044
RPEC2 = 000046
RPERRS 012326
RPER1 = 000014
RPERZ2 = 000040
RPER3 = 000042
RPINIT 012512
RPLA = 000020
RPMR
= 000024
RPOF
= 000032
RPSN
= 000030
RPTMR
016744
RPVEC
012476
RPWC
= 000002
RP.REG 001306

SC13
sC2

3964
3895

016604

= 000200

4254

4353

3735

3772

4043

4138

4144

4148

3551

3572

3614

3634

3645

3660

3671

3977«

4044+

4202

3663

3682
4235+

4241

3964

4046

3965+«
3965

4206

4860

4863

3536+

3556+

3577«

4060+

4145

3966+

3968

4851

1896

2230

2232

4857

3771

4013
4868

4231
4881

4337

3694

3¢€24

1710

013312
021221
021226
021233
000117

SAVEFG 012434
SAVREG= 104412
SAVSEC 001252
SAWC
001254
SC
015612
SCAWC
006002
SC1
= 000100
SC10 = 001000
SC11
016444
SC12
016534

4026

4192
3424

RPCS2
= 000010

RPO4
RPO4B
RPOS
RPO6
RTC_
=

3778

38144

1717
4890

3957
3467
1726

1727

3681

4866

(ZRJBDO, RP04/5/6 FMTR MACY11
(ZRJBD.P1
28-MAR-79 11:23

$C20
SC3

= 002000
015662

SCS

015700

SC4

SC6
SC6A

015666

016100
016210

SC7
016336
SC8
016414
SEARCH= 000131
SEC20
001264
SEEK
= 000105
SEEKFG 012436
SELDRV= 000145
SETFMT= 000143

SETHDR
SETPAT
SETTBL
SETVEC
SET.IE
SKI
=
SLASH
SOFSW
SRCHWT
STACK =
STCLK1
STCLk2
STCLK3
STKLMT=
STO
STO1
ST02

006030
004014
005630
002506
020162
040000
021271
001216
012410
001100
006246
006316
006322
177774
017036
017066
017264

ST03
ST05

017334
017360

ST09
ST.CLK
SVRH11
SWR

017464
006170
020044
001140

ST06
ST07
ST08

017366
017424
017454

SWREG
000176
SwO
= 000001
Sw00 = 000001
SW01
= 000002
sw02 = 000004
Sw03 = 000010
Sw04 = 000020
SW05 = 000040
SWwo6 = 000100
Sw07 = 000200
SW08 = 000400
Sw09 = 001000
Sw1
= 000002
SW10 = 002000
SW11
= 004000

30A(1052)

24=MAY-79

14:10
PAGE 108
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0105

8074
3874

3878

3926

3940

3947

3962

3908
3896

3918
3902

39284
3911

3939

39414

3973

1468+

1628

1951

3257

3499

4003

19464
16034
19034

3442

3516

3721

3823

42634

1701

1736~
3952

1738

1740

1742«

1779

1849

2019

4106

4119

41234

3800

3847

2594
2594

2688«

3898
1375

3574«
1647

1674

1747«

1939+

3916
1712

3959
1719

2008#
4098
4053

40854

4096

41054

1889

1355

2656

3998
1758

4059
1846

4122
1889

42314

2238

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23

SwWwi2
SW13

SW14

= 010000
= 020000

= 100000
= 000004
= 000010

SWS

= 000040

SWw7
Sw8

= 000200
= 000400

Swé

24=MAY=79

14:10
PAGE 109
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0106

58%%#

= 040000

SW15
Sw2
Sw3
Sw4é

30A(1052)

= 000020

= 000100

Sw9
= 001000
SYSTAT
021240

T
TABLE
TAP
=
TBITVE=
1
TDF
=
TIMER

021277
001376
040000
000014
015452
000040
012440

TITLE
TKVEC =
TPVEC =
TRAPVE=
TRE
=
TRKCNT
TRKTST
TRK1
=
TRK10 =

025574
000060
000064
000034
040000
001236
005720
004000
040000

TRK4
=
TRNSWT
TRTVEC=
TSTPGM
TTRKS
TTRKSC
TUF
=
TYPADR
TYPDS =
TYPE
=

020000
012406
000014
013310
001232
001234
000100
006
104405
104401

44734
44804
1527%

37844
8394
3377

1528+

2050

2076

3511~

3654

3700«

4109+
49394

4115~

2571

2572«

1312+

1313«

1333x

1911%
19184

1920

1922+

3787«

3880%

3688

3705%

3714x

1343
1590

3343
1591«

33924
1593«

3924«

3975«

3983«

4016

4018+

4069

4082«

4076%

1926«

TRK2
= 010000
TRK20 = 100000

1407
1482
1578

2240
2 366
2763
5013

TYPERR 007272
TYPOC = 104402
TYPON = 104404

TYPOS = 104403

[ULDFLG

012414

UNLOAD= 000103
UNS
= 040000

3611«

3674%

3706%

3844

3930

3932+

3948

3950~

4062+

USE
Us1

us2

nnun

000004
000010
000002
010000
000100
000002
001256
040000
000040

14:10
PAGE 110
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0107

19664

1613

€

usé

021132
021143
006110
006140
020000
021010
000001
000002

24=MAY=-79

- ON

UNTOFF

UNTON
UPDACY
UPDATK
UPE
=

30A(10527

—

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:

WRTHD =

01?742
017652

4854

017736

= 000000
011615
011627
011622
001167
010404
011752
012132
005432

3542
3670

3546
3868

4213

42204

41994

4854

2647

2804

2262
2385

2600
2394

1304

1314

3550
3900

3558
3937

41844

3567

3571

3582

3589

3599

3613

1827

2040

2248

2262

2279

2284

2294

2311

2797
23954

27974
27984

1417
2402
25474
18434

1421
2690

1578

2777

2797

CZRJBDO, RPO4/5/6 FMTR

CZRJBD. P11
$DTBL

$ENDAD
SENDCT
$EOP
$SEOPCT
SERFLG
$SERMAX
$ERROR
$SERRPC
$ERRTB
SERTTL
SESCAP
$FILLC
SFILLS

$GDADR
$GDDAT

$GET42

$GTSWR
$HD
=
SICNT
$INTAG
$ITEMB

$LF
$LKCSB
$SLKCSR
$LKS
$LLVEC
$LPADR
SLPERR
SLPVEC
SMAIL =
SMNEW
$MSWR
SNULL
SOCNT
$OMODE
$PASS
$QUES
$RDCHR

MACY11 30A(1052)

28-MAR-79 11:23

010374
005422
005406
005326
005400
001103
001115
007064

2508
528
18344
1805
18314
9344
9404
1310

001630
001112
001160

1138#
9384
9614
2262

001116

9414

001156
001155

9594
9584

001120
001124
005412

9424
944k

18364
26554
499
9354

011010

001104
001135
001114
001170
001200
001176
001206
001210
001106
001110
001202
wekknn

9494
9394

011645
011634
001154
010164
010166
001100
001166
011262
wkwwnn

000007
012204
001172
001174
005434

$R2A = wekkwn
$SAVRE
012146
$582D
011716
$SETUP= 000106

$STUP = 177777
$SUPRS
011656
$SVPC = 000200

1332

2658
2655
9574
2435+
2430«
9324
9634
27224

22222

011352

9654
9724
9714
974H
9754
9364
9374
9734

E
14:10 PAGE 111
CROSS REFERENCE TABLE == USER SYMBOLS

24=MAY=-79

SEQ 0108

1898

2262
2243*

2244

2262

4857

1706%
1654

1825
1667

2241~

2262

2691
2271
2787

2804

3872
2402

3876

1686*
4154

1703
4214

4866

4868

4,878

4881

1709
4423

1755+
4432

1786*
4433

1796+
4435+

2402

2709

2780

2797

1352

1828

2225

2253

1892+

2257

2259

2261

2592

2597

4881

2671
2262
2402

2797

1996+

2005+

1891

2256

2453+

24794

1560

2262

4993

5027

5029

1312

1314

1316

1673«

2250

2402
24774
2439
1829+
1457

2999
|J

27454
999

27384
29444
9694
9704
18454
3001

29284
2032
1292#

28404

2598

2804

2033
5264

28154

12924

CZRJBDO, RPO4/5/6 FMTR

MACY11

30A(1052)

$SWR

4854
1844
9544
25534
1351
2557#
25544
25554
25564
9534
2571
L8954

499
1846
2552
2568+
1481
2623
2569+
2570+
2569
2552
2584#4
499

CZRJBD. P11

28-MAR-79 11:23

= 123000

24=MAY=79

14:10

PAGE 112

CROSS REFERENCE TABLE == USER SYMBOLS
504
2216
2573
2598
25684
2734 2570
2732
2625
2574+

505
2217
2584
2615+«
2589

506
2218
2609
2729
2650

507
2219
2637
2731

508
2220
2664

2621
2733«
2736
2605+«

2622
2734

2623
2736%

2625+

2607

2613«

$TKB
$TKCNT
STKINT
$TKQEN=
$TKQIN
$TKQOU
$TKQSR
$TKS
$TKSRV
$TN
=
STNPWR
$TPB
$TPFLG
$TPS
$TRAP
$TRAP2
$TRP
=

001146
010414
010432
010431
010416
010420
010422
001144
010502
000000
012062
001152
001157
001150
012242
012264
000014

2868
9564
9604
9554
1312
29764
%38?:

2869
2391«
2349
2389
29654
2987
29894

29904

29914

29924

29934

$TRPAD
$TSTNM
S$TTYIN
STYPBN=
$TYPDS
$TYPE
S$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
$$GE T4=
$OFILL

012276
001102
011606
wxxwxx |J
010170

2970
9334
2747
2993
24934

29874
2237
2748

2262
2760

2778

2792

27964

2389

2390

2695

5294
254784
4326

531 4
2552
L327H

$40CAT=

007522
007672
007740
007766

010002
007742

000000
010165
rxmnnx

= 026502

23494
2370
2395
24334

2432
24288

1838#
2429

2247

5144
1778
43228

2992
2980
2377
2397
2989
24354
2990

SEQ 0109
961
2238

962
2245

1314
2250

1815
2254

2635

2651+

2661

2673%

2693+

2994

29954

2996

29978

5344
25564
4328

5414
2557
4329

9304
25584
4330

966
27964
L7248

1828
2262

1838

29984

2999

30004

1307
2797
4LBLOKR

1646
2804
49754

1673
29054

28894
2402
2402
2402

2988
2384
24004
2991

2433+

2443

24784

5184
1846
43238

526
2262
4324

5274
2402
43258

C(ZRJBDO, RPO4/5/6 FMTR T?C5%1
CZRJBD.P11
28-MAR-79

6544
1819

ERRENT
ERROR

22094
548%
1722
5036
4
%
14
489
Q244
1L
14
1L
%

2226
1656
1725

1#
5454

3002

2980#
1#
1L
1#
6544
#
1856
3011
4

2989
6544
6544
6544

ERRCAL

ESCAPE
GETPRI
GE TSWR
LOCP
MORE TA
MULT
NEWTST
POP
PUSH
REPORT

RP04.D
SCOPE
SETPRI
SETTRA
SETUP
SKIP
SLASH
SPACE
STARS
SWRSU
TRMTRP

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS

TYPOCT

TYPTXT

3002#

2980#
1L
14
14
#
1#

$SCMRE
$SCMTM
$SESCA
SSNEWT
$SSET
$$SKIP
.EQUAT
.HEADE

924n#
9244
14
#
29804
1L
#
#

.SETUP
. SWRHI
. SWRLO
.$ACTT
.SAPTB
. SAPTH

4
4
508#
4
14
14

6544

3821

6544
6544
4854
1646
967
6544
6544
6544
6544
6544

6544

524
2212
4439
6544
6544
6544
6544
6544
6544

6544
6544

6544
6544
2989
6544
4894
4894

484
L84
509
4894

5064

3872

3875

4153

4214

1657
1788

1658
1789

1659

1660

1654

1686

1703

1786

1673

6544

1352
1778

2534
2493

2949
2929

2725
2990

299

2992

6544
2334

655
2405

659
2483

1825

2302

5079

5017

1302

4603
13164

1381

2299

4607

1790

1661
1792

1688

1689

1797

1690
1801

1691

2994

2996

2997

2998

2999

3000

701
2551

2628

705

896
2643

900
2714

2738

2807

2997

2998

2999

3000

1791

4726

4928

4932

2992

2994

2996

1795

926

3822

966

1572

2656

2991

1692

3873

1286

2831

1698

1708
4155

1290

3877

2850

%
18114

2182

O 00

ENDCOM
ENDTYP

COMMEN

2168

1548

SEQ 0110

1485
2062
5001

16:10
PAGE 114
CROSS REFERENCE TABLE == MACRO NAMES

n) —

489
489
485

24=-MAY=79

CKCHR
CkDIG
CKNUM

30A(1052)

1852

2959

'
H
CZRJBDO, RPO4/5/6 FMTR MACY11 30A(1052)
24=MAY=79 14:10 PAGE 115
CZRJBD.P11
28-MAR-79 11:23
CROSS REFERENCE TABLE == MACROC NAMES
SAPTY
.$ASTA
-SCATC
SCMTA
.$DB2D
.$DB20
801V

1%
1L
14
1L
1%
#
%

.SERRO
.SERRT

1%
4

. SPOWE
- SRAND
. SRDDE
. SRDOC
. SREAD
. SR2AZ
.$SAVE
.$SB2D
.$SB20
.$SCoP
.$SIZE

%
1L
1L
1L
1L
%
#
14
1L
1L
4

$TRAP
$TYPB
$TYPD
$TYPE
$TYPO
$40CA
1170

#
1L
4
1#
#
#
#

. ABS.

026502

CJOMULT

-$SUPR

ERRORS DETECTED:

4894
4894
L85#

512
924
2848

L84
4854
4854

4854

4894
4894

4854
L85
L84

489
4854

000
0

DSKZ:CZRJBgsBég EsggcgfiggeDLST/CRF/SOL/NL TOC:MD:MC:CND/LI:ME=CZRJBD.SML,CZRJBD.011,CZRJBD.P11
RUN-T IME

RUN-TIME RATIO: 252/118=2.1
CORE USED:
47K
(93 PAGES)

SEQ 0111