Digital PDFs

AH-9187D-MC

September 1979

112 pages

Original

6.7MB

view download

OCR Version

5.9MB

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

OCR Text

RP04/5/6

CZRJBDO

cormant 7a.7s BB
FICHE1 OF 1

MADE
IN USA

| CZRUBDO, RPO4/S/6 FMIR

ud
e
B
d
d
)
)
ad
D
—

N=OO@NOWNS
WV =O P00 NN
W -

CZRJBD.P11

MACY11 30A(1052)

28-MAR-79 11:23

24-MAY-79

14:10

PAGE 3

SEQ 0001

.REM @

IDENTILFICATION

PRODUCT

CODE:

A(C=9185D-M(

PRODUCT NAME:

CZRJBDO RP0O4/5/6 FORMATTER PROGRAM

PRODUCT DATE:

MAY,

MAINTAINER:

DIAGNOSTIC

AUTHOR:

1979

ENGINEERING

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 [N THIS DOCUMENT.

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

(C)

1974,

FOLLOWING ARE

DIGIAL
DEC

1979 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF

PDP
DECUS

DIGITAL

UNIBUS
DECTAPE

EQUIPMENT

CORPORATION:

MAS SBUS

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 A(CTION
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

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

30A(1052)

24-MAY-79

14:10

PAGE S

SEQ 0003

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

A CURSORY CHECK OF

THE PACK'S SURFACE.

THE PROGRAM ALLOWS

THE

OPERATOR TO SPECIFY ADDRESS LIMITS, PATTERNS, AND EITHER 16 BIT OR
18 BIT FORMAT MODE.
THE PKOGRAM VERIFIES EACH TRACK WRITTEN
AS WELL AS VERIFYING THE FORMAT OPERATION.

REQUIREMENTS

2.1

EQUIPMENT
PDP=11

PROCESSOR

8K MEMORY

TELETYPE
PROGRAM LOAD DEVICE

IR
=20V~
=SOVONONSB
NN

b
b
i

PART 1

RP04/5/6 DISKLESS CONTROLLER TEST
(MAINDEC-11-DZRJG)

PART 2 (MAINDEC-11-DZRJH)

e i

RPOS5, RP0O6 DISK DRIVES

PRE! IMINARY PROGRAMS

b b

b md wnd —d
d ed

= = e =d b d

d cnd
—

KW11-L OR KW11-P CLOCK
RH11 OR RH70 WITH 1 -~ 8 RPO4,

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

2.3

PROGRAMMABLE DRIVES

(DUAL PORT ENABLED)

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

IS A POTENTIAL HAZARD

MULTIPROCESSOR SYSTEM.

IN RUNNING THIS PROGRAM IN A

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.
IF THE OPERATOR DESIRES TO RUN THIS PROGRAM USING
PROGRAMMABLE DRIVES IN A FIELD ENVIRONMENT USE STARTING ADDRESS 220, WHERE 220 I
THE SAME AS 200 WITHOUT INHIBITING PROGRAMMABLE DRIVES.
SEE SECTION 4.1 FOR A SUMMARY OF ALL STARTING ADDRESSES.

LOADING PROCEDURES

Yan

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

[

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

30A(1052)

24-MAY-79

14:10

PAGE 6

SEQ 0004

THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE

LOADER OR IT MAY BE LOADED FROM THE APPROPRIATE
IN AN

'XXDP'

'XXDP' MEDIA

THE PROGRAM MAY NOT BE

CHAIN.

INCLUDED

D e

)

IV IV IV IV IV VIV IV IV, Vo W W
3 W
N
NN N
NN =OVONONNINWN

USING THE ASSOCIATED LOADER.

4. 1

STARTING ADDRESSES
THE PROGRAM IS STARTED FROM LOCATION 200(8)

RH11T

ad i

D i

)

STARTING PROCEDURES

OR RH70 WILL NOT BE CHANGED

d i

)

PROGRAMMABLE DRIVES ARE
THE

PROGRAM IS

INHIBITED,

THE ADDRESS OF

THE

STANDALONE AND XXDP (HAIN-SEE

STARTED FROM LOCATION 204(8)

SECTION 2.3

THE ADDRESS OF

THE RH11 OR RH70 IS TO BE CHANGED FROM THE PRELOADED VALUE.
(SEE SECTION 4.3) PROGRAMMABLE DRIVES ARE NOT INHIBITED.

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

LOAD THF PROGRAM INTO MEMORY

¢.

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

SET THE SWITCHES AS REQUIRED AND PRESS

(SEE SECTION 3).

‘'START'.

IF THIS 1S THE PROGRAM'S FIRST START, 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>.
4.

THE PROGRAM WILL

'PROGRAM MODE

THEN TYPE

THE

FOLLOWING MESSAGE
:

(C OR F):'

ENTER THE APPROPRIATE CODE: 'C' FOR °'CHECK' OPERATION OR ‘F°’
FOR 'FORMAT & VERIFY'.
IF A 'CARRIAGE RETURN' IS ENTERED IN

RESPONSE

VERIFY',

b ek =D

K828 BRIRXR

184

THE PROGRAM WILL ASSUME

IN 22 SECTOR (16 BIT) MODE

ENTER THE APPROPRIATE CHARACTER:

18 BIT MODE.

THIS REQUEST,

'FORMAT &

THE PROGRAM WILL THEN ASK FOR THE FORMATTING MODE:
'OPERATE

)
—ted wmd e

TO THE REQUEST,

'Y'

IF A ‘CARRIAGE RETURN'

THE PROGRAM WilLL ASSUME

FOR 16 BIT MODE OR

°'N'

FOR

IS ENTERED IN RESPONSE TO

THE PROGRAM WILL THEN ASK FOR A DRIVE:

'DRIVE:

(Y OR N)'

16 BIT MODE.

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

30A(1052)

24-MAY-79

14:10

PAGE

Sea 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,
FOR ADDRESS LIMITS FOR

THE

'ENTER ADDRESS LIMITS:

THE PROGRAM WILL ASK

SELECTED DRIVE:

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'

—d wod ol e

—d o}

O~NOWVES
W

[AS1aNT,ANTaN
1N T, 8]

212

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
BE LESS THAN THE ADDRESS SPECIFIED BY THE ENDING CYLINDER AND
TRACK ADDRESS.
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
;fi%?égg' ENTRIES WILL CAUSE THE PROGRAM TO USE THE °‘WORST CASE'
THE

'WORST CASE'

THROUGH

THE

PATTERN IS

DATA AREA OF

THE

FOLLOWING OCTAL

SECTOR:

SEQUENCE REPEATED

165555
133333
THE

PROGRAM WILL

THEN TYPE:

'STARTING FORMAT ON DRIVE N'
OR

'STARTING CHECK ON DRIVE N'
THE OPERATOR CAN DETERMINE WHERE THE DRIVE IS DURING THE FORMAT
OR CHECK OPERATION BY TYPING A 'CONTROL C°'.
THE PROGRAM WILL
TYPE THE FOLLOWING MESSAGE
:

‘PRESENT ADDRESS

IF A

'CONTROL C'

IS:

CXXX

IS TYPED WHILE

Txx'

THE PROGRAM IS TYPING THE CURRENT

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

FORMAT

(DR (HECK)

OPERATION

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

30A(1052)

24-MAY-79

14:10

PAGE 8

SEQ 0006
10.

IF THE OPERATOR DOES NOT SELECT A DIFFERENT DRIVE WHEN THE FURMAT
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

RH11

STARTED FROM LOCATION 200(8)

OR 204(8)

THE

AGAIN.

-~ 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

$7KS
$Tx8
$TPS

177560
177562
177564

TTY KEYBOARD STATUS REGISTER
TTY KEYBOARD BUFFER REGISTER
TTY PRINTER STATUS REGISTER

1152
1176
1200
1202
1206
1210

$7PB
$LKCSR
$LKCSB
$LPVEC
$LKS
$LKV

177566
172540
172542
104
177546
100

TTY PRINTER BUFFER REGISTER
KW11-P CONTROL REGISTER
KW11-P COUNTER REGISTER
KW11~P VECTOR ADDRESS
KW11-L CONTROL REGISTER
sADDRESS 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...L00P ON ERROR
SW<07>=1...PRINT SOFT ERROR REPORTS AS THEY QCCUR
SW<02>=1...DON'T DISPLAY SYSTEM STATUS AFTER INITIAL START
SW<01>=1...LO0OP ON THE CURRENT TRA(K
SW<00>=1...L00OP THE PROGRAM ON THE SELECTED DRIVE
IF

THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR

(I.E.

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

AN 11/34)
IS

'SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8).
THE
SETTINGS CF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD
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

14:10

PAGE 9

SEQ 0007
RECOGNIZE

THE

°'CONTROL G'

AT ANY TIME EXCEPT WHEN THE PROGRAM

IS AT A HIGHER PRIORITY PROCESSING AN RP04/5/6 INTERRUPT.
THE
'SOF TWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE

THE

PROMPT

FROM THE

b
d
ed ed e
i

CO~NONN
W

NN
N NN

'SWR = NNNNNN

SWITCH ENTRY ROUTINE:

NEW ='*

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

AND

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
égOESHASEEDREGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST
LL

ERROR MESSAGES

'RH11 INTERRUPT OCCURRED (RPAS=0Q) ~ 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.

3.
4.

'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

BIT SET FOR THE

INDICATED DRIVE.

‘OPE’

'RH11 DIDN'T RESPOND TO ADDRESSING' -~ THE PROGRAM ACCESSED
RH11 AT THE INDICATED ADDRESS AND RECEIVED NO RESPONSE.

'DRIVE OFFLINE' - THE INDICATED DRIVE HAS GONE OFFLINE

'PERSISTENT DRIVE UNSAFE ERROR' - THE

UNSAFE AND THE CONDITION CANNOT BE
CLEAR® INSTRUCTIONS.

INDICATED DRIVE HAS BECOME

CLEARED BY

ISSUING

°'DRIVE

'UNCURRECTABLE MASSBUS PARITY ERROR' -~ THE PROGRAM ATTEMPIED
TO PERFORM AN OPERATION AND DETECTED 3 SUCESSIVE MASSBUS PARITY

ERRORS OR THE PROGRAM ATTEMPTED TO CLEAR A
DRIVE AND A PARITY ERRCR OCCURRED.
10.

THE

'SOFTWARE
1 SECOND.

TIMECUT'

'PAR'

ERROR

IN THE

- THE OPERATION FAILED TO COMPLETE WITHIN

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

30A(1052)

24-MAY=79

14:10

PAGE

SEQ 0008
11.

°'DRIVE UNSAFE

ERROR'

DURING THE OPERATION.

- 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'
OCCURRED DURING THE WRITE CHECK.

14.

°'DATA ERROR DURING WRITE CHECK®
DURING A WRITE CHECK OPERATION.
TO BE A 'DCK' ERROR.

15.

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

16.

17.
18.

17.

20.

~ A NON-DATA ERROR

- A DATA RELATED ERRCR OCCURRED
A DATA ERROR IS CONSIDERED

'CONTROLLER/DRIVE ERROR VERIFYING HEADERS®

THE VERIFICATION PASS AFTER FORMATTING.

INDICATED

- 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'

FROM A HEADER READ DURING THE

'WRITE CHECK ERROR'

NO DRIVE ERRORS WERE

- THE RH11
SET.

- THE CYLINDER FIELD

VERIFICATION PASS

IS NOT CORRECT.

REPORTED A WRITE CHFCK ERROR AND

"HARDWARE ERROR DURING WRITE CHECK® - AN ERROR THAT WAS NEITHER

A DATA ERROR, WRITE

CHECK ERROR,

DURING A WRITE CHECK.

FOLLOWING:

°'OPI',

NOR CONTROLLER ERROR OCCURRED

THESE ERRORS

°'DTE®,

°'HCRC',

COULD BE ONE OF

'HCE', OR

'FER’.

THE

MISCELLANEOUS

7.1

FORMAT

TIME

TAKES APPROXIMATELY 8 MINUTES TO FORMAT AN ENTIRE RP04/5 PACK

AND APPROXIMATELY

16 MINUTES

TO FORMAT AN RP0O6 PACK.

THE

°‘CHECK'

pggER;éZ§SFOR AN ENTIRE PACK IS 4 MINUTES FOR RP04/5'S AND 8 MINUTES
7.2

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 (' AND WHILE THE PROGRAM IS
TYPING THE ADDRESS, TYPE ANOTHER °*CONTROL (' THIS SEQUENCE RETURNS
THE PROGRAM TO THE DRIVE ADDRESS ENTRY ROUTINE.

7.3

SURFACE

VERIFICATION

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

30A(1052)

24-MAY-79

418

14:10

PAGE

SEQ 0009

THE FORMATTER PROGRAM IS NOT INTENDED TO BE USED TO PERFORM DISK

419

PACK VERIFICATION.

420

ACCEPTABLE®,

421

THE PROGRAM REPORTS A SECTOR AS BEING

'NOT

THIS MAY IN FACT INDICATE A BAD SURFACE: HOWEVER,

SECTORS WHICH 'PASSED' MAY OR MAY NOT BE GGOD.

423
424
425
426

627

428

429

8.1

PROGRAM DESCRIPTION

eemmeeeaeii

FORMAT OPERATION

431
432

THE PROGRAM FORMATS THE PACK ONE TRACK AT A TIME BETWEEN THE LIMITS
SPECIFIED BY THE DRIVE.

434

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

435
436
437
438
439

THE ENTIRE TRACK FOLLOWED BY A WRITE CHECK HEADER AND DATA COMMAND.
IF AN ERROR OCCURS DURING THE WRITE, THE PROGRAM WILL RETRY THE
WRITE BEFORE CONTINUING.
IF A DATA RELATED ERROR IS DETECTED
DURING THE WRITE CHECK (A DATA ERROR IS DEFINED AS ONE OF
THE FOLLOWING ERRORS: 'DCK', 'OPI’. 'DTE', 'HCRC', 'HCE’,

440
441
442

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

443
444
445

448

THE SECTOR AS BEING 'UNACCEPTABLE®.

FOLLOWING THIS SEGUENCE,

THE REMAINDER OF THE TRACK IS CHECKED.
IF DATA ERRORS ARE ENCOUNTERED
IN ANY OF THE REMAINING SECTORS, EACH SECTOR WILL BE HANDLED AS

DESCRIBED ABOVE.

448
449
420

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
459

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:
UNFORTUNATELY, SECTORS WHICH *PASS' CANNOT BE ASSUMED TO BE GOOD.

461
462

DURING THE FORMAT OPERATION, THE PROGRAM FILLS THE DATA FIELD
WITH THE PATTERN SELECTED BY THE OPERATOR.
THE KEYWORDS IN THE

463

465

HEADER ARE ALWAYS SET TO ZERO.

8.2

467
468
469

473

CHECK OPERATION
THE CHECK OPERATION IS IDENTICAL TO THE WRITE CHECK PORTION OF
THE FORMAT OPERATION OPERATION DESCRIBED IN SECTION 8.1 EXCEPT
THAT THE PROGRAM WILL NOT RE-WRITL ERROR SECTORS.

8.3

POSITIONER VERIFICATION

AFTER THE PROGRAM COMPLETES THE FORMAT OPERATION,

THE

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

30A(1052)

24~MAY-79

14:10

PAGE

SEQ 0010

474
475
476
477
478
479

POSITIONER IS RETURNED TO THE STARTING CYLINDER AND THE HEADER
FROM SECTOR O ON THE STARTING TRACK IS READ.
THE CYLINDER ADDRESS
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
OF SECTOR O ON THE BEGINNING TRACK OF EACH CYLINDER FORMATTED.

23;

ADVANCED PROPERLY DURING THE FORMAT OPERATION.

4,80

THIS CHECK IS PERFORMED TO CONFIRM THAT THE DISK'S PCSITIONER

483
4,84
485
486
487
488
489
490
491
Zgg

PROGRAM LISTING
-

a
.TITLE
CZRJBDO, RP04/5/6 FMIR
;*COPYRIGHT (C) 1976,1978
:«DIGITAL EQUIPMENT CORP.
*MAYNARD MASS. 01754

232

tPROGRAM BY C.

HESS

496
23;

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

499

‘

28?

.SBTTL

OPERATIONAL SWITCH SETTINGS

. %

502
503
504
505
506
507
508
509

i*
I
i*
i*
o
i*
J*
%

SWITCH
eme——15

g}%

.SBTTL

TRAP CATCHER

g}?

514
515
516
g}g

519

gg?

000000

000174

000176

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

13
10
9
2
]

LOOP THE PROGRAM ON THE SELECTED DRIVE

000174

.=0
;*ALL UNUSED LOCATIONS FROM &4 ~ 776 CONTAIN A *‘.+2.HALT'
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
*LOCAT10N194CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000000

DISPREG: .WORD

000000

ggg

SWREG:

.SBTTL

521.

525
526
527
528
529

USE

.WORD

0
O

::SOF TWARE DISPLAY REGISTER
:.SOFTWARE SWITCH REGISTER

ACT11 HOOKS

tfitttttttttttl'ttttt*tttttttttfittfit*ttttttttt*itttttttttittttttt

000046

00020C
000046
005422
000052

HOOKS REQUIRED BY ACT11
$SVP(=.
.=46
$ENDAD
.=52

;SAVE PC
221)SET LOC.46 TO ADDRESS OF S$ENDAD IN .SEOP

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

530

531

000052

30A(1052)

24~MAY-79

ACT11

HOOKS

020000

PAGE 13

:¥2§3pc 20000

000 200

_SBTTL

000200

000200
000137

002132

000204

000137

002114

000220

000220
000137

002100

.SBTTL

SEQ 0011

ffzagg}ohgcfigz 020000

STARTING ADDRESS = 200

J;goo 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

JSAME AS 200 WITH NO INHIBITIONS

BASIC DEFINITIONS

s*INITIAL ADDRESS OF THE STACK POINTER *xx 1100 wx«

001100

STACK=
.EQUIV
.EQUIV

000011
000012
000015
000200
177776

HT=

177774
177772
177570
177570

14:10

1100
EMT,ERROR
10T,SCOPE

;sBASIC DEFINITION OF
;:BASIC DEFINITION OF

J*MISCELLANEOUS DEFINITIONS

LF=
CR=

CRLF=
PS=
.EQUIV
STKLMT=
PIRQ=
DSWR=
DDISP=

;;CODE FOR HORIZONTAL

200
177776
PS,PSW
177774
177772
177570
177570

.. CODE FOR CARRIAGE RETURN-LINE FEED
; ;PROCESSOR STATUS WORD

12
15

c2STACK LIMIT REGISTER

; sPROGRAM INTERRUPT REQUEST REGISTER
; ;HARDWARE SWITCH REGISTER

,HARDWARE DISPLAY REGISTER

s *GENERAL PURPOSE REGISTER DEFINITIONS

RO=
R1=
R2=
R3=
R4=
R5=
R6=

000000
000040
000100
000140
000200
000240
000300
000340

PRO=

;sPRIORITY LEVEL O

PR?=

100

;:PRIORITY LEVEL 2

240
200
340

J:PRIORITY LEVEL S
J;PRIORITY LEVEL 6
;:PRIORITY LEVEL 7

SP=
PC=

%0
%1
X2
x3
24
%5
26

) ¥4
26
27

s :GENERAL
2 ;GENERAL
> ;GENERAL
;s GENERAL
2 cGENERAL
. :GENERAL
;s GENERAL

; ;GENERAL REGISTER
;:STACK POINTER
. ;PROGRAM COUNTER

J*PRIORITY LEVEL DEFINITIONS

PR1=

PR>=
PR4=

PR5=
PR6=
PR7=

140
200

TAB

;;CODE FOR LINE FEED
. sCODE FOR CARRJAGE RETURN

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

R7=

ERROR CALL
SCOPE CALL

;;PRIORITY LEVEL

;:PRIORITY LEVEL 3
;:PRIORITY LEVEL 4

;%' 'SWITCH REGISTER'' SWITCH DEFINITIONS

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

30A(1052)

24-MAY=79

14:10

BASIC DEFINITIONS

100000

PAGE 14

100000

000004
000002
000001

SU08—
SwWQ7=
SW06=
SW05=
SW04=
Sw03=
Sw02=
SW01=
SW00=

000001

BIT15=
BIT14=
BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BIT08=
BIT07=
BIT06=
BIT05=
BIT04=
BIT03=
BIT02=
BITO01=
BIT00=

.EQUIV
.EQU]V
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
EQUIV
.EQUIV
.EQUIV

SW09, Sw9
SW08,sw8
SWU7,SW7
SW06, SW6
SW05, Sw5
, Sw4
SW04
SWO3,sw3
SW02, swe
SW01,SwW1
SW00, Swo

: *DATA BIT DEFINITIONS
100000
40000

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

(BITOO TO BIT15)

20000

BIT09,BIT9
BIT08,8178
B81707,B177
BIT06,8IT6
BIT05,BITS
BIT04,BIT4
BIT03,BIT3
BIT02,BIT2
BIT01,BIT1
81700,81T0

;*BASIC ''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
000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240

;s POWER FAIL

EMTVEC= 30

; sEMULATOR TRAP (EMT) x*ERROR**

TRAPVE (=34
TKVEC=
60
TPVEC=
64
PIRQVEC=240

S o

;"' TRAP'' TRAP

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

RH11

R AT ARARA

AN RN AN AN A AR N AN

CORA AR ARARRNRAARR AN

REGISTERS

R AR AR AR AR AR R A AN R AA AR AN A AR AANRN RN AR RRARARRARANRRRNRAN
AR RN AN

;CONTROL AND STATUS REGISTER 1

(RPCS1)

1E=

; INTERRUPT ENABLE (BIT #6)
SREADY (BIT #7)
;HIGH ORDER BUS ADDRESS BIT (BIT #8)
;HiGH ORDER BUS ADDRESS BIT (BIT #9)

100

RDY=
A16=

200
400

PSEL=

2000

A17=

040000

SEQ 0013

;:TRACE TRAP
; ;BREAKPOINT TRAP (BPT)
;o INPUT/0UTPUT TRAP (JOT) xxSCOPE**

PWRVEC= 24

.SBTTL

;:TIME OQUT AND OTHER ERRORS
::fi;fifgy;b AND ILLEGAL INSTRUCTIONS

RESVE

e R AR AR AN AN AR R AN AR

000100

PAGE 15

MCPE=
RE=

:SC=

1000

;PORT SELFCT

20000
40000

(BIT #10)

sMASSBUSS PARITY ERROR (BIT #13)
; TRANSFER ERROR

100000

(BIT #14)

;SPECIAL CONDITION (BIT #15)

sWORD COUNT REGISTER (RPW(C)
:(EACH BIT IS CALLED BY BIT NUMBER)

;BUS ADDRESS REGISTER (RPBA)
s (EACH BIT IS CALLED BY BIT NUMBER)
;CONTROL AND STATUS REGISTER 2 (RP(CS2)
000001
000002
000004
000010
000020
000040
000100
000200

usl=
uSe=
11S4=
BAl=

1
2
4
10

CLR=
IR=
OR=

40
100
200

PAT=

MPE =

400

PGE =
NEM=
NED=

2000
4000
10000

WCE=

40000

MXF =

UPE=

DLT=

sJUNIT SELECT (BIT #0)
SJUNIT SELECT (BIT #1)
SJUNIT SELECT (BIT #2)
sBUS ADDRESS INCREMENT INHIBIT (BIT #3)
;MASSBUS PARITY TEST (BIT #4)
;CLEAR (BIT #5)
s INPUT READY (BIT #6)
;OUTPUT READY (BIT #7)
:MASS BUS PARITY ERROR (BIT #8)
sMISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)
NON EXISTENT MEMORY (BIT #11)
sNON EXISTENT DRIVE (BIT #12)
JUNIBUS PARITY ERROR (BIT #13)
JWRITE CHECK ERROR (BIT #14)

1000

20000

;DATA LATE (BIT #15)

100000

;DATA BUFFER REGISTER

(RPDB)

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

30A(1052)

24~MAY=79

14:10

RH11 REGISTERS

PAGE 16

SEQ 0014

s (EACH BIT IS CALLED BY BIT NUMBER)
:;t*t*tttttttttt*ttttt**tt*it*tttttt*ttttit*t*tttt*fit’ttt*ttttttt

.SBTTL

RP04/5/6 REGISTERS

::*ttfitttt"i*ttfit*t*tttttfitttttttt*t*tt*tt*t*tt*t*tttttttfit*tttt

;CONTROL AND STATUS 1 REGISTER.
000001
000002
000004
000010
000020
000040
004000

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

GO=
Fl=
F2=
F3=
Fé=
F5=
DVA=

;GO BIT

JFUNCTION CODE BIT #2

100000

(BIT #0)

SJFUNCTION CODE BIT #1

10
20
40
4000

JFUNCTION CODE BIT #3
JFUNCTION CODE BIT #4
JFUNCTION CODE BIT #5
;DEVICE AVAILABLE (BIT #11)

;DRIVE STATUS REGISTER (RPDS1)

(#01)

;DF 5=
DFF20=

DRIVE FORWARD 5'/SEC.

;DRIVE

DIGB=
GRV=
DL64=

DE1=
vv=

DRY=
DPR=

PGM=

LST=

WRL=
MOL=
PIP=

ERR=
ATA=

ILF=
ILR=

RMR=
PAR=
FER=
WCF=

ECH=

HCE=
HCRC=
AQE=

1AE=

WLE=
DTE=

OPl=
UNS=
DCK=

;DRIVE FORWARD 20''/SEC.

10
20
40
100

4
10

(BIT #0)

(BIT #1)

TO INNER GUARD BAND

(BIT #2)

;GO REVERSE (BIT #3)
;DIFFERENCE LESS THAN 64 (BIT #4)
;DIFFERENCE EQUALS 1 (BIT #5)
;VOLUME VALID (BIT #6)

200
400
1000
2000
4000
10000
20000
40000
100000

;ERROR REGISTER #01
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000

(#00)

;DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT #8)
;PROGRAMABLE (BIT #9)
sLAST SECTOR TRANSFERRED (BIT #10)
;WRITE LOCK (BIT #11)
JMEDIUM ON-LINE (BIT #12)
;POSITIONING OPERATION IN PROGRESS (BIT #13)

;COMPOSITE ERROR (BIT #14)
SJATTENTION ACTIVE (BIT #15)

(RPER1)

(#02)

sILLEGAL FUNCTION (BIT #0)

sILLEGAL REGISTER (BIT #1)

JREGISTER MODIFICATION REFUSED
;PARITY ERROR (BIT #3)

(BIT #2)

sFORMAT ERROR (BIT #4)

40
100

sWRITE CLOCK FAIL (BIT #5)
;ECC HARD ERROR (BIT #6)

400
1000

sHEADER CRC ERROR (BIT #8)
;ADDRESS OVERFLOW ERROR (BIT #9)

200

2000
4000
10000
20000
40000
10000C

;HEADER COMPARE ERROR (BIT #7)

;INVALID ADDRESS ERROR (BIT #10,
SJWRITE LOCK ERROR (BIT #11)
;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

SEQ 0015

JMAINTAINABILITY REGISTER (RPMR) (403)
000001
000002
000004
000010
000020
000040
000200

DMD=
MCLK=
MINX=
MSTCK=
MRD=
MWR=
DTSY=

200

;DIAGINOSTIC MODE (BIT #0)
sJMAINTAINABILITY CLOCK (BIT #1)
JMAINTAINABILITY INDEX (BIT #2)
JMAINTAINABILITY SECTOR CLOCK (BIT #3)
JMAINTAINABILITY READ (BIT #4)
JMAINTAINABILITY WRITE (BIT #5)
sJMAINTAINABILITY SYNC DETECTED (BIT #7)

SATTENTION SUMMARY PSEUDO-REGISTER

000001
000002
000004
000010
000020
000040
000100
000200

AT0=
AT1=
AT2=
AT3=
AT4=

AT5=

AT6=

AT7=

10
20

40
100

200

(RPAS)

(#04)

O
1
2
3
4
5
6
7

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

;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
:DEVICE

;DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA)
; (EACH BIT 1S CALLED BY BIT NUMBER)
;DRIVE TYPE REGISTER (RPDT)

00400

004000

020000
040000
100000

DT00=
DT01=
DT02=
DT03=
DT04=
DT05=
DT06=
DT07=
D708=
DRQ=

MOH=
TAP=

NBA=

100000

;LOOK-AHEAD REGISTER (RPLA)
000001
000002
000004
000010
000020
000040
000100
000200
001000
002000

004000
010000

EXT1=
EXT2=
EXT4=
EXT10=

EXT20=
EXT40=
SC1=
SC2=

. SC4=

SC10=
SC20=
TRK1=
TRKZ2=

(#05)

(A4U6)
NGO NN
IS NN —

000001
000002
000004
000010
000020
000040
000100
000200

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

;DRIVE TYPE NUMBER BIT
;DRIVE TYPE NUMBER BIT
;DRIVE TYPE NUMBER BIT
;DRIVE TYPE NUMBER BIT
;DRIVE TYPE NUMBER BIT
;DRIVE TYPE NUMBER BIT
;DRIVE TYPE NUMBER BIT
;DRIVE TYPE NUMBER BIT
;DRIVE TYPE NUMBER BIT
;DRIVE REQUEST REQUIRED (BIT #11)
;MOVING HEAD (BIT #13)
;TAPE DRIVE (BIT #14)
;NOT BLOCK ADDRESSED (BIT #15)
(#07)

;EXTENSION 1 (BIT #0)
SEXTENSION 2 (BIT #1)

SJEXTENSION 3 (BIT #2)
SJEXTENSION 4 (BIT #3)
JEXTENSION S (Bl T # )
JEXTENSION 6 (Bl T # )
;SECTOR COUNT FI ELD 0
;SECTOR COUNT F1I ELD 1
;SECTOR COUNT FI ELD 2
:SECTOR COUNT F} ELD 3
sSECTOR COUNT F ELD 4
#
)
sTRACK FIELD 1 ( BIT

;TRACK FIELD 2

( BI
1T #

[enYan)

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

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

810
811
g}%

020000
040000
100000

g}@

816
817
818
819
820
821
822
823
824
825
826
827
828
829
ggg

836
837
838
839

840
841
842

843
844
845
gzg

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

TRK4=
TRK10=
TRK20=

PAGE 18

wCU=
CSF=
wSU=
CSu=
MSE=
TDF =
TUF =
FEN=
WRU=
MHS=
NHS=
IXE=
vu30=
PLU=
ACU=

000001
000002

000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
020000

wCu=
CSF=

wSU=
CSu=
RAW=
TDF=

TUF =
ABS=
WRU=
MHS=
NHS=
IXE=
PLU=

OF25=
OF50=
OF100=
0F200=
0F400=
OF800=
OFREV=
HCI=
ECI=
FMT22=

SEQ 0016

;TRACK FIELD 3 (BIT #13)
JTRACK FIELD 4 (BIT #14)
sTRACK FIELD S (BIT #15)
(RPER2)

1
2

(#10)

JWRITE CURRENT UNSAFE (BIT #0)
:CURRENT SINK FAILURE (BIT #1)
JWRITE SELECT UNSAFE (BIT #2)
;CURRENT SWITCH UNSAFE (BIT #3)
sMOTOR SEQUENCE ERROR (BIT #4)
;TRANSITIONS DETECTOR FAILURE (BIT #5)
;TRANSITIONS UNSAFE (BIT #6)
JFAILSAFE ENABLED (BIT #7)
JWRITE READY UNSAFE (BIT #8)
;JMULTIPLE HEAD SELECT (BIT #9)
JNO HEAD SELECTION (BIT #10)
;INDEX ERROR (BIT #11)
:30VOLT UNSAFE (BIT #12)
;PLO UNSAFE (BIT #13)
;AC UNSAFE (BIT #15)

10
20
40
100
200
400
1000
2000
4000
10000
20000
100000

(RPER2)

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

;OFFSET REGISTER (RPOF)
000001
000002
000004
000010
000020
000040
000200
002000
004000
010000

)

20000
40000
100000

:RP05/6 ERROR REGISTER #02

gzg
850
851
852
853
854
855
856
857
858
ggg

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

;RP0O4& ERROR REGISTER #2

ggg
834
835

30A(1052)

(#10)

JWRITE CURRENT UNSAFE
;CURRENT SINK FAILURE

JWRITE SELECT UNSAFE (BIT #2)
;CURRENT SWITCH UNSAFE (BIT #3)
JREAD AND WRITE (BIT #4)
;TRANSITIONS DETECTOR FAILURE (BIT #5)
;TRANSITIONS UNSAFE (BIT #6)
;ABNORMAL STOP (BIT #7)
;WRITE READY UNSAFE (BIT #8)
;JMUTLTIPLE HEAD SELECT (BIT #9)
;NO HEAD SELECTION (BIT #10)
:INDEX ERROR (BIT #11)
;PLO UNSAFE (BIT #12)

(#11)

1
2

4
10
20
40

200
2000

4000
10000

JOFFSET 25 MICRO INCHES (BIT #0)
JOFFSET 50 MICRO INCHES (BIT #1)
;OFFSET 100 MICRO INCHES (BIT #2)
JOFFSET 200 MICRO INCHES (BIT #3)
;OFFSET 400 MICRO INCHES (BIT #4)
;OFFSET 800 MICRO INCHES (BIT #5)
JOFFSET NEGATIVE (REVERSE) (BIT #5)
JHEADER COMPARE INHIBIT (BIT #10)
JERROR CORRECTION CODE INHIBIT (BIT #11)
;FORMAT BIT (BIT #12

861
ggg

;DESIRED CYLINDER ADDRESS (RPCA) (#12)
;(EACH BIT IS CALLED BY BIT NUMBER)

864

;CURRENT CYLINDER ADDRESS (RPCC)

865

(BIT #0)
(BIT #1)

(#13)

s (EACK BIT IS CALLED BY BIT NUMBER)

30A(1052)

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

PAGE 19

SEQ 0017

;SERIAL NUMBER REGISTER (RPSN) (#14)
; (EACH IS CALLED BY BIT NUMBER)
;RPO4 ERROR REGISTER #03

000001
000002
000010
000040
000100
040000
100000

PSU=

VUF=
UWR=
ACL=
bCLt=
SkI=
ocyL=

(RPER3)

(#15)
;PACK SPEED UNSAFE

2
10
40
100
40000
100000

:RP05/6 ERROR REGISTER #03 (RPER3)

000001
000002
000040
000100
020000
040000
10000

DCU=
WAO=
ACL=
DCL=

1
2
40
100

skI=

40000

OPE=

ocyL=

(BIT #0)

SVELOCITY UNSAFE (BIT #1)
SANY UNSAFE EXCEPT READ/WRITE
:AC LOW (BIT #5)
:DC LOW (BIT #6)
:SEEK INCOMPLETE (BIT #14)
:OFF CYLINDER (BIT #15)

(BIT #3)

(415)

;DC UNSAFE (BIT #0)
SWRITE AND OFFSET (BIT #1)

:AC LOW (BIT #5)
:DC LOW (BIT #6)
,
:OPERATOR PLUG ERROR (BIT #13)
:SEEK INCOMPLETE (BIT #14)
:OFF CYLINDER ERROR (BIT #15)

20000
100000

JECC POSITION REGISTER (RPEC1) (416)
:(EACH BIT IS CALLED B8Y BIT NUMBER)

;ECC PATTERN REGISTER (RPEC2) (#17)
s (EACH BIT IS CALLED BY BIT NUMBER)
;;'*ttttttit*t*tttt**ttttttttt*tt*fittttttt**ttt**t*tt*tttttttttit

.SBTTL
s

000101
000103
000105
000107
000111
000113
000115
000117

000163
000171
000173

RNOP
UNLOAD
SEEK
RECAL
DRVCLR
RELSE
OFFSET
RTC
READIN
ACK
SEARCH
GETREG

SETFMT
SELDRV
WCKD
WCKHD
WRTDAT
WRTHD

RDDAT
RDHD

RP04/5/6 DRIVER COMMANDS
R AR A A AR A AN A AR AN AR KRR A RAR AR A RN A RRNNR RN R RN NRNANARRNANRIRARARN

=
=

=
=
=
=
=
=
=
=
=

=
=
=
=
=
=
=
=

101
103

:NO OPERATION
sUNLOAD

105
107
111
113
115
117
121
123
131
141
143
145
151
153
161
163

;SET FORMAT (8 ECI OR HCI)
:SELECT DRIVE
JWRITE CHECK DATA
JWRITE CHECK HEADER & DATA
JWRITE DATA
;sWRITE HEADER & DATA

171
173

;READ DATA
JREAD HEADER & DATA

s SEEK
JRECAL IBRATE
;DRIVE CLEAR
JRELEASE
JOFFSET
RETURN TO CENTER LINE
cREAD IN PRESET
sPACK ACKNOWLEDGE
s SEARCH
;GET REGISTERS

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

922
923

30A(1052)

24~MAY=79
14:10 PAGE 20
RP04/5/6 DRIVER COMMANDS

SEQ 0018

£~

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

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

30A(1052)

24-MAY-79
COMMON TAGS

14:10

PAGE 21

G
SEQ 0019

ggé

.SBTTL

926

";tttl‘tttt**tfittt**fi*ttfitttfifitfi*ttttttlt*i**ttfifitt*t*tttttt‘tt*tt

927
358

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

930
931
932
933
934
935
936
937
938
939
940
941
942
943

944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
91
962
93
964
95

001100
001100

001102
001103
001104
001106
001110
001112
001114
001115
001116
001120
001122

001124
001126
001130
001132
001134
001135
001136
001140
001142

001100
000000

000
000
000000
000000
000000
000000
000
001
000000
000000
000000

177560
177562
177564
177566
000
002
012
000
000000
177607
077
015
000012

967
968
969
970
971
G72
973

001172
001174
001176
001200
001202

000015
000012
176700
000254
172540
172542
000104

975
976
977
978
979

001210
001214
001216
001220
001222

000100
000000
000000
000000
000632

974

001206

$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
SLPERR:
$ERTTL:
$I1TEMB:
$SERMAX:
$ERRPC:
$GDADR:
$8DADR:

000000
000000
000000
000000
000
000
000000
177570
177570

001144
001146
001150
001152
001154
001155
001156
001157
001160
001162
001166
001167
001170

$CMTAG:
$PASS:

177546

$GDDAT:
$8DDAT:

COMMON TAGS

.=1100
_WORD

.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD

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

000377

$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$ESCAPE:0
$8ELL:
LASCIZ
$QUES:
.ASCII
$CRLF:
.ASCIl
$LF:
LASCIZ

O
O
O
0
0
O
O
1
0
O
O

O
O
0
0
0
0
O
DSWR
DDISP

;. START OF COMMON TAGS
.. CONTAINS PASS COUNT

;s CONTAINS THE TEST NUMBER
;. CONTAINS ERROR FLAG

. s CONTAINS SUBTEST ITERATION COUNT
;. CONTAINS SCOPE LOOP ADDRESS
;. CONTAINS SCOPE RETURN FOR ERRORS
2. CONTAINS TOTAL ERRORS DETECTED
;- CONTAINS ITEM CONTROL BYTE
;o CONTAINS MAX. ERRORS PER TEST
;- 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
;- INTERRUPT MODE

INDICATOR
INDICATOR

;;ADDRESS OF SWITCH REGISTER
;ADDRESS OF DISPLAY REGISTER
;. TTY KBD STATUS
;:;TTY KBD BUFFER
;o TTY PRINTER STATUS REG. ADDRESS
;.TTY PRINTER BUFFER REG. ADDRESS
O
;. CONTAINS NULL CHARACTER FOR FILLS
2
s;CONTAINS # OF FILLER CHARACTERS REQUIRED
12
s INSERT FILL CHARS. AFTER A "LINE FEED"
O
2 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;;ESCAPE ON ERROR ADDRESS
<207><377><377> ;;CODE FOR BELL
/?/
;sQUESTION MARK
<15
;. CARRIAGE RETURN
12>
;;LINE FEED
-

""ttttt*tttttttt*ttttttfi*ttit.tittt*tt*tfitttiilfi'titttttttttttttt

000106
000102

CR
=
LF
=
$RPADR: .WORD
$RPVEC: .WORD
$LKCSR: .WORD
$LKCSB: .WORD
$LPVEC: .WORD

254
172540
172542
104,106

SLLVEC:
DRIVE:
SOFSW:
MODE :
ENDCYL:

100,102
0
0
0
410.

$LKS:

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

15
12
176700

177546

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

sADDRESS OF KW11-L CONTROL REGISTER

JADDRESS OF KW11-L VECTOR
;CONTAINS DRIVE NUMBER SELECTED
;CONTENTS ARE FOR SOF TWARE DECISIONS
;'"FORMAT & VERIFY' OR °'(HECK' MODE INDICATOR
;ENDING CYLINDER

CZRJBDO, RPO4/5/6 FMTR

CZRJBD.P11

28-MAR-79 11:23

980
981

001224
001226

000000
000022

984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
1883

001234
001236
001240
001242
001244
001246
001250
001252
001254
001256
001260
001262
001264

982
983

1001
1002
1003
1004
1005
1006
1007
1883

1022
1023
1026
1025
1026
1027
1028
1029
1030
1031

i3
1034

30A(1052)

24-MAY-79

COMMON TAGS

14:10

PAGE 22

SEQ 0020

BEGCYL:
ENDTRK:

.WORD
.WORD

O
18.

;STARTING CYLIN""R
JENDING TRACK

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

TTRKSC:
TRKCNT:
PATSEL:
PATA:
PATB:
CYLCK:
RETRY:
SAVSEC:
SAVWC:
wC:
MWC:
HEDERR:
SEC20:

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

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

001266

0G. 20

MAXSEC:

.WORD

;TOTAL # OF TRACKS COUNTER
;COUNTS TRKS FROM 0-18 PER (YL
; CONTAINS PATTERN SELECTED
;1ST WORD OF PATTERN
;2ND WORD OF PATTERN
2STORE CYLINDER ADDRESS FOR FORMAT VERIFICATION
;MAINTAINS # OF WRITE RETRIES MADE
;CONTAINS LAST BAD SECTOR ON FORMAT
;CONTAINS WC FOR REMAINING SECTORS ON ERROR
;20 OR 22 SECTOR TRACK SIZE (IN WORDS)
;2'S COMPLEMENT OF 'W('
sPOSITIONING ERROR DURING FORMAT INDICATOR
;20 OR 22 SECTOR MODE INDICATOR
;0 = 20 SECTOR MODE
;1'S = 22 SECTOR MODE
:p3§#2¥g SECTOR ADDRESS (FOR EITHER 20 OR 22 SECTOR

001270
001272
001274
001276

000000
000000
000000
000000

DS.CYL:
DS.TRK:
CDRIVE:
ATTN:

.WORD
.WORD
.WORD
.WORD

O
O
0
0

001300
(01302
001304

000000
000000
000000

CNTLC:
CHGADR:
EFLG:

.WORD
.WORD
.WORD

0
0
0

001230
001232

000000
000000

%8}?
1012
1013
1014
1015
1016
1077
1018
1019
1020
1021

MACY11

BEGTRK:
TTRKS:

.WORD
.WORD

O
0

;STARTING TRACK
;TOTAL # OF TRACKS TO BE FORMATTED

;ADDRESS OF CURRENT CYLINDER
sADDRESS OF CURRENT TRACK
;DRIVE NUMBER OF 'DRIVER' ERROR MESSAGES
JATTENTION REGISTER IMAGE FOR 'DRIVER'
;ERROR MESSAGES
;ADDRESS 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
0009200
000009
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

0
0
0
0
0
O
0
0
O
0

0
0
0
0
0
0
0
0
O
O

JRPCS1
JRPWC
;RPBA
;RPDA
JRP(CS2
JRPDS1T
;RPER1
;RPAS
JRPLA
;RPDB

;RPMR
;RPDTY
JRPSN
;RPOF
ZRPCA
JRPCC
;RPER2
;RPER3
JRPEC]
;RPEC2

.DATA/PARAMETER BLOCK = USED FOR ALL DRIVE OPERATION

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

1036

1037
1038
1039
1040

1041

001356

001357
001360
001361
001362

001364

30A(1052)

000

FMTDPB:

000
000
000
000000

000000

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

001366
001367
001370
001372
001374

1055

001376

001430

000000

001224

1057
1058
}823

001412
001420
001426

001456
001467
000000

000000
000022

001222
001226

1056

000
000
000000
001306
000000

1066
1067
1068
1069
}8;?

1075
1076
1077

1078

1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091

.RYTE

PAGE 23

.BYTE
BYTE
BYTE
WORD

0
0
O
O

.WORD

0
0
O
RP.REG
0

SEQ 0021

;DRIVE NUMBER
JOFFSET VALUE OR FMT22.,ECI, AND H(CI
* COMMAND
*PSEL AND A17 AND A16
*WORD COUNT (NEG)
;BUFFER ADDRESS

;SECTOR ADDRESS
*TRACK ADDRESS
*CYLINDER ADDRESS
JERROR TABLE POINTER
;STATUS-ERROR INDICATOR
;BIT 15 = 1: ERROR OCCURRED
‘BIT 07 = 1: DONE
*BIT 14-10 AND BIT 06-03
;INDICATE TYPE OF ERROR

;PARAMETER POINTER TARLE

001404

001443

000022

001230

TABLE:

PAR1.0,BEGCYL

PAR2.18. ,BEGTRK

PAR3.0,ENDCYL
PARG . 18. ,ENDTRK,0

;ASCI] MESSAGES FOR ADDRESS PARAMETERS

001430
001436
001443

001450
001456
001464
001467
001474

052123
054503
123

052040
047105
020114
105
045522

}8;%
1074

14:10

.BYTE
BYTE
"WORD
. WORD
.WORD

1061

1063
1064
1065

24-MAY-79
COMMON TAGS

051101
020114
040524

045522
020104
000
042116
000040

020124
000
052122

000040
054503

052040

PAR1:

,ASCIZ

QSTART CYL &

PAR2:

.ASCIZ

QSTART TRK @

PAR3:

.ASCIZ

@QEND CYL @

PAR4:

_ASCIZ

QEND Tr< @

;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

BUFP

sADDRESS OF

SECTOR 0O

.WORD
.WORD
.WORD

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

;ADDRESS OF SECTOR 1
;ADDRESS OF SECTOR ?2
;ADDRESS OF SECTOR 3

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

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

.WORD

BUFP+<520.%4.>

;ADDRESS OF SECTOR &
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF

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

5
6
7

8
9
10
11
12
13
14
15
16
17

BUFP+<520.
BUFP+<520.
BUFP+<520.
BUFP+<520.

VvVVyVvy

SEQ 0022

;ADDRESS OF SECTOR 18
:ADDRESS OF SECTOR 19
sADDRESS OF SECTOR 20
;ADDRESS OF SECTOR 21

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

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

.EVEN

.+<260.+1,
.+<260.%2,

.+<260. %4,
.+<260.+5,
. +<260.+6.
.+<260.+7.
.+<260.+8.
.+<260.%9,>
.+<260.+10.
.+<260.%11,
.4<260.%12.
.+<260.+13,
.+<260.%14.
.+<260.%15,
.+<260.%16.

.+<260.%17.
.+<260.+18.
.+<260.%19.
. +<260.%20.

JREMAINING WORD
REMAINING WORD
JREMAINING WORD
JREMAINING WORD
cREMAINING WORD
sREMAINING WORD
JREMAINING WORD
cREMAINING WORD
cREMAINING WORD
;REMAINING WORD
sREMAINING WORD
sREMAINING WORD
sREMAINING WORD

sREMAINING WORD

;REMAINING WORD
sREMAINING WORD
sREMAINING WORD
sREMAINING WORD
REMAINING WORD
sREMAINING WORD
sREMAINING WORD
cREMAINING WORD

AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AF TER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR
AFTER SECTOR

OGO NN
NN
O

WCTRBL:

PON) = = e b d d o) b o)
—=OVWONO
NS WN—=O

~
&H

—

(%))

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

VVVVVVVYV

D
d

) e
)

D cod

SR NE oI

VVVVVVVVVVVYV

001554
001556

)

e ad e =

PAGE 24

JREMAINING WORD COUNT TABLE

b
b

d
d

)
D e

b iid
) —d

b ed

d e
d

) —d ad wed
)

ed ek wd d e ed

.WORD
.WORD
.WORD
.WORD

14:10

001550
001552

050014
051024
052034
053044

233
oo~
r A =o3BIRIRIV28E

D ol

1094
1095

001544
001546

24-MAY-79
COMMON TAGS

1092
1093

30A(1052)

rOND
= —
-0

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

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

30A(1052)

24-MAY=79
14:10
PAGL 25
ERROR POINTER TABLE

SEQ 0023

;}5?

.SBTTL

1126
1127
1128
1129
}}%9

;*THIS TABLE CONTAINS THE IVFORMATION FOR EACH ERROR THAT CAN OCCUR.
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NJUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;*NOTE1:
IF $ITEM3 IS O THE ONLY PERTINENT DATA IS (SERRPC).
:*NOTE2:
EACH TTEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

1132
1133
1134
1135
1136
1137
1138

ox
;%
ow
*
001630

1141
1142

001630
001632

022512
023674

001636

025460

}}28

1143

1144

1145

001634

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

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

;ERROR 1
EM1
DH1
DT1

025146

:RH11

INTERRUPT OCCURRED

(RPAS=0)

DFi

:ERROR 2
001640
001642
001644
001646

022553
023701
025150
025464

}}gz

EM2
DH2
DT2
DF2

JUNEXPECTED ATTENTION OCCURRED

EM3
DH3
DT3

:MASSBUS PARITY ERROR

(MCPE=1)

EM&
DH
DT&
DF&

:MASSBUS PARITY ERROR

(PAR=1)

EMS
DHZ2
DT2
DF
2

;ADDRESS PLUG CHANGE BIT

EMG
DHé
DT6

:RH11 DIDN'T RESPOND TO ADDRESSING

:ERROR 3

1155
1156
1157
1158
1159

001650
001652
001654
001656

1162
1163
1164
1165
1166

001660
001662
001664
001666

1169
1170
1171
1172
1173
}};g

001670
001672
001674
001676

1176
1177
1178

001700
001702
001704

022611
023756
025164

025470

;}g?

DF3

:ERROR 4
022647
024004
025172
025474

}}2;

1179

EM
DH
DT
DF

$ERRTR:

}}29

1148
1149
1150
}}gg

ERROR POINTER TABLE

:ERROR §
022704
023701
025150
025464

SET

;ERROR 6

001706

022740
024043
025202

025460

DF1

30A(1052)

24~-MAY=~79

14:10
PAGE 26
ERROR POINTER TABLE

SEQ 0024

b
b e

;ERROR 7

b d e

000000
000000
000000
000000

OO0

SRERTARY o SELLRIRL02S 00 Q0 00 QO 00 0o 00
0O OO

)

CZRJBDO, RPO4/5/6 FMTR MAL¥%1
CZRJBD.P11
28-MAR-79 1

sUNUSED

;ERROR 10

v g S

b e e

e S

d D

023002
024056
025204
025500

EM10

DH10

;DRIVE OFFLINE

DT10
DF10

D e

:ERROR 1"

) =
d

001740
001742
001744
001746

023056
024056
025204
025500

) —d
b cndd cd
b cd
b

cPERSISTENT DRIVE UNSAFE ERROR

EMI12
DH10
DT10
DF10

sUNCORRECTABLE MASSBUS PARITY ERROR

;ERROR 13

VN
VIS WN=O

ed aad
b —
D el e
—

ed e

)

ASTASHASIANT,N
TN 1, T,87,8 1,8

EM11
DH10
D710
DF10

;ERROR 12

d b

Juur

[LN], P

b d

023020
024056
025204
025500

001750
001752
001754
001756

023121
024056
025204
025500

EM13
DH10
DT10
DF10

: SOF TWARE TIMEOQUT

;ERROR 14
001760

023142
024056
025204
025500

EM14
DH10
DTid
DF10

;DRIVE UNSAFE ERROR

;ERROR 15
023165
024056
025204
025500

EM15
DH10
DT10
DF10

;CONTROLLER/DRIVE ERROR DURING WRITE

;ERROR 16
023231
024056
025204
025500

EM16
DH10
DT10
DF10

;CONTROLLER/DRIVE ERROR DURING WRITE C(HECK

CZRJBDO, RPO4/5/6 FMIR MAC;%1
CZRJBD. P11
28-MAR-79 1
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264

30A(1052)

M
14:10
PAGE 27
ERROR POINTER TABLE

24~-MAY=-79

SEQ 0025

;ERROR 17
002010
002012
002014
002016

023303
024326
025260
0255°4

EM17
DH17
DT17
DF17

JRETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLE

;ERROR 20
002020
002022
002024
002026

023361
024375
025272
025520

EM20
DH20

;DATA ERROR DURING WRITE CHECK

DT20
DF 20

;ERROR 21

002030

023417
024056
025204
025500

EM21
DH10
DT10
DF10

s CONTROLLER/DRIVE ERROR VERIFYING HEADERS

JERROR 22
023470
024056
025204
025500

EM22

DH10

DT10
DF10

;'HCE' ERROR VERIFYING HEADERS

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD. P11
28-MAR-79 11:23
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279

1280

30A(1052)

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

SEQ 0026

;ERROR 23
023537
024674
025354
025540

Smgg

;CYLINDER FIELD IN HEADER IS NOT CORRECT

DT23
DF23

sERROR 24
023607
024772
025372
025544

EM24
DH24
D124
DF 24

;WRITE CHECK ERROR

;ERROR 25
023631
024375
025272
025520

EM2S
DH2(
DT20
DF20
e

.SBTTL

;HARDWARE ERROR DURING WRITE CHECK

AR AR AR AR AR N AR NI ARARNAAR R A AR NANR AR RNRRARNNNRNRRAAAANR
AR

MAIN PROGRAM

1289
1290
1291
1292
1293
1294
1295
1296

24~MAY=79

MAIN PROGRAM

14:10

PAGE 29

SEQ 0027

,'"titttittttit*tt*t**ttttt*ttt'ttttt"titttttttiitttittttttfi'it"

002100
002104
002112
002114
002122

005037
012737
000413
012737
012737

001302
000001

013310

177777

001302

000001

013310

BEGIN3:

(LR
ggv

CHGADR
ggéINZ

BEGIN:

MOV

#-1,CHGADR

;SET CHANGE

;ENABLE PROGRAMMABLF DRIVES

MOV

TSTPGM
TSTPGM

;CLEAR THE INDICATOR
;ENABLE PROGRAMMABLE DRIVES
°'RH11 BUS ADDRESS'

INDICATOR

30A(1052)

[ala]

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

(ZRJBDO§1$P04/S/6 FMTR
MACY11
CZRJBD.
28-MAR-79 11:23

OO@\IO‘V’!#WN—‘OO%

gWWWWNNNNNNN

P
P U S ST S

S S bt e

D ed

N W WANWWNWWN
NN N N NN NN W WA NN NN NN
N NNt
WA =20V~
NS W N —_

002130
002132
002136
002142
002144

1335

000404
005037
005037
000005
005037

002150
002154
002156
002162
002164

012706
005026
022706
001374
012706

002170

012737
012737
012737
012737
005037
112737

013746
012737
012737
012737
022777
001012

30A(1052)

001302
013310

BEGINZ:
LSBTTL

001140

000403
012716
000002
012737
12737
012637

200176
00174
000104

000005
012737
012737
012737

000240
000240
002132

PAGE 30

SEQ 0028

BR
BEGINZ
;START THE PROGRAM
CLR
CHGADR
;CLEAR THE 'CHANGE RH11 ADDRESS' INDICATOR
TSTPGM
CLR
;DISABLE PROGRAMMABLE DRIVES
RESET
;CLEAR THE BUS
CLR
EFLG
. CLEAR ERROR DURINC WRITE CHECK FLAG
INITIALIZE THE COMMON TAGS

CLR

(R6) +
#SWR,R6 ; ;DONE?

+sCLEAR MEMORY LOCATION

MOV

#STACK,SP

;.SETUP THE

MoV
MoV
MOV
MOV

H#SERROR ,Q#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
#340,QHEMTVEC+2 ;. LEVEL 7
H#STRAP ,Q#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#340 Q4 TRAPVEC+2;LEVEL 7
$ESCAPE
;. CLEAR THE FSCAPE ON ERROR ADDRESS

CMP
BNE

001100

177570
177777

14:10

.. CLEAR THE COMMON TAGS ($CMTAG) AREA
MOV
A#SCMTAG,R6
. :FIRST LOCATION TO BE CLEARED

001100

000004
002272
177570

MAIN PROGRAM

BEGIN1:

001304

007064
000340
012242
000340
001160
000001

24-MAY-79

000030
000032
000934
000036

001115

000004
001140
001142
176652

;o INITIALIZE A FEW VECTORS

CLR
MOVB

MOV

MOV
MoV
MoV

CMP
BNE

MoV
RT]
MOV
MOV
MoV

000036
000032
001300

;.LOOP BACK IF NO

STACK POINTER

41, SERMAX

. .ALLOW ONE cRROR PER TEST

Q#ERRVEC,-(SP)
#0648
, RNERRVEC

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR

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

002300

RESET
MOV
MOV
MOV

#DSWR, SWR
#DDISP,DISPLAY

#-1,3SWR

66%

65%

#65%, (SP)

:sSETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER

s TRY TO REFERENCE HARDWARE SWR

;sBRANCH IF NO TIMEOUT TRAP OCCURRED

;;AND

#PR5 ,a#TRAPVEC+2

[S NOT = -1

:;SET UP FOR TRAP RETURN

#SWREG, SWR
;;POINT
#D1SPREG,DISPLAY

(SP)+ ,@#ERRVEC

THE HARDWARE SWR

;s sBRANCH [F NO TIMEOUT
TO SOF TWARE

SWR

;;RESTORE ERROR VECTOR

:CLEAR WORLD
;CHANGE

TRAP PRIORITY BACK T0 S

#PRS,QWEMTVEC+2 ;CHANGE EMT PRIORITY BACK TO 5
#BEGINT ,(NTLC
. "CONTROL C' ADDRESS

CZRJBD. P11

002344

005227
001025
023737
001004
012737
000402
104401

005737
001402

000042

000046

000001

013310

025574
013310

021010

122737

000011

104401

025651

004737

010432

005737
001006
023727
001005
104406
000403
112737

000042

005227
001010
004737
013737
013737

14:10
PAGE
24-MAY-79
INITIALIZE THE COMMON TAGS

177777

104401

001002

30A(1052)

001140

000001

000041

MOV

6%:

1%:
LSBTTL

000176

001134

~
W)
—

#-1
1%

SEQ 0029
sFIRST START

ANG2
, N6
3

TSTPGM

JBR _IF NOT

JACT17 AUTOMATIC MODE?

JBRANCH IF NO
;ENABLE PROGRAMMABLE DRIVES

LTITLE
TSTPGM

;TYPE

,USE

: TYPE MSG

BNE

#11,41
1%

;LOADED FROM AN RP04/5/6 ?

JSR

PC,$TKINT

CMPB

.LOADRY

THE PROGRAM'S

TITLE

;CAN WE USE PROGRAMMABLE DRIVES?
;BRANCH IF NO

;BR IF NOT
s INSTRUCT OPERATOR TO REMOVE
sPACK FROM DRIVE 0

;TURN ON THE KEYBOARD

'XXDP'

INTERRUPT

GET VALUE FOR SOF TWARE SWITCH REGISTER
w62
TST
. cARE WE RUNNING UNDER XXDP/A(CT?
67%
; BRANCH IF YES
SWR,#SWREG

68%

#1,%AUTOB

;cSET AUTO~MODE INDICATOR

#-1

;CHECK FOR FIRST START
:BR IF NOT
;CHECK THE RH11 ADDRESS
JRH11 ADDRESS

SETVEC

PC ,BUSADR

012474
012476

csSOFTWARE SWITCH REG SELECTED?

. sBRANCH [F NO

;:GET SOFT-SWR SETTINGS

68%

67%:
68%:

$RPADR,RPADR
$RPVEC ,RPVEC(

;RH11 VECTOR ADDRESS

;DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE
PROGRAM WILL

S
O

INNINN

BR
TYPE
TST
BEQ
TYPE

TYPE

177777

026076
001172
001174

INC
BNE
CMP
BNE

4(%:
5%:

3338 B

WN = O

00NN

= O DO NN

R R NAA A S G R RN

SIS

NN —

1336
1337
1338
1339
1340

MACY11
28-MAR-79 11:23

004737
004737
012737
005227
001404
032777
001105
012737
005004
104401
104401

006170
012512
177777
177777

SETVEC:

012434

000004

176400

000340

177776

001167
021240

010446

11%:

1%:

JSR
JSR
MOV
INC
BEQ
BIT
BNE
Mov

USE

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

11%

#5W02,aSWR

10%
#PR7 ,PS
R4

105764

012356

sTYPEQUT THE DRIVE

STATUS TABLE

;BR IF NOT
;SET PRIORITY TO 7
;DRIVE TABLE POINTER

.SCRLF
.SYSTAT

;TYPE

Ré,-(SP)

;:SAVE R4 FOR TYPEOUT

2
0

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

DRVSTA(RS)
3]

;JCHECK DRIVE'S STATUS

104403

021303
012346

;START THE CLOCK
JINITIALIZE THE RP04/5/6 DRIVER
sSET THE SAVE REGISTERS FLAG
JSEE IF FIRST START
;BR IF YES

,LIN4GSP

DRVTYP(R4)

;CR=LF

STATUS HEADING

;. TYPE DRIVE NUMBER
;:GO TYPE--OCTAL ASCII

;SPACES

JBR IF UNSAFE
;BR IF ONLINE
JSEE IF OFFLINE OR NONEXISTENT

(e X

CZRJBDO, RP04/5/6 FMTR

1392
1363
1394
1395
1396
1397
1398
1399

002610

24-MAY-79

100006
104401

021153

104401

021174

000444
132764
001403
104401

1403

000010

2%:

012356

3%:

021065

021132

128:

021211

4%:

021143
021305
021221
000001

002736
012356

5%:
6%:

021226
000002

002736
012356

021233

002736

7%:

8%:
9% :

001167

10%:

SWITCH REGISTER

2%
3%

B8R
TYPE

9%
,NOTPRS

SEQ 0030

;BR IF NONEXISTENT
;BR IF OFFLINE

,NOTRP

;DRIVE NOT AN RP04/5/6

s CHECK NEXT DRIVE
;DRIVE NOT PRESENT

BR
BITB
BEQ

9%
;CHECK NEX1 DRIVE
#B1T03, DRVTYP(R4)
:DRIVE PROGRAMMABLE?
12%
;BRANCH IF NO

;PRINT DRIVE TYPE

#RPO6, 8%

;ADDRESS OF RPO6 MESSAGE
;TYPE THE DRIVE TYPE MESSAGE

TYPE

000010
104401

PAGE 32

BEQ
BPL

TYPE

001167

002754

14:10

GET VALUE FOR SOFTWARE

001404

000447

1400
1401
1402

30A(1052)

. NOUSE

TYPE
BR
TYPE
BR
TYPE
TYPE
MOV
BITB
BNE
MOV
BITB
BNE
MOV
TYPE

LUNTOFF
;DRIVE OFFLINE
6%
;PRINT DRIVE TYPE
.NOTSAF
sDRIVE UNSAFE
6%
:PRINT DRIVE TYPE
LUNTON
sDRIVE ONLINE
.LINSP
s SPACES
#RPO4B, 8%
<ADDRESS OF RPO4 MESSAGE
#B1T00,DRVTYP(R4L)
;RPO4 ?
7%
;BR IF YES
#RPO5,8%
;ADDRESS OF RPOS5S MESSAGE
#BI1TO1,DRVTYP(R4)
;RPOS ?
7$
:BR IF YES

.WORD
TYPE

O
LSCRLF

(MP
BNE

R4 ,48.
1%

INC

TYPE

;PRINT MSG

;MESSAGE ADDRESS HERE
:CR=LF

Ré&

;INCREMENT DRIVE NUMBER/TABLE POINTER

JFINISHED 7
;BR IF NOT
;CR-LF

LSCRLF

;SEE WHICH MODE THE PROGRAM IS TO BE RUN IN,
:MODES ARE: 'FORMAT & VERIFY' OR 'CHECK FORMAT®
002760

005037
104401
104411
012601

001220
021521

M1 :

105711

001414

122711
001406
122711

000106

104401

001166

001411

000757

104401
000410
104401
000402
104401

012737

000103

1%:

021553

2%:

177777

001220

3$:

4%:

MODE
.MMODE

(SP) + ,R1
(R1)

BEG
(MR8
BEQ
(MPR
BEQ

2%
#'C,(R1)
1%
#'F,(R1)
38

BR
TYPE
BR

M1
+MHECK
M1A

TYPE

021574

021607

CLR
TYPE
RDLIN
MOV
1STB

TYPE
BR
TYPE
MGV

JFIND QUT

-SET MODE TO °'CHECK FORMAT'
;TYPE 'PROGRAM MODE'
JREAD THE KEYBOARD
;GET ADDRESS OF INPUT
;'CR' ENTERED (DEFAULT)

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

.SQUES

;NO CORRECT

. MFORMT
4%
.MORMAT
#~1,MODE

;TYPE DEFAULT MESSAGE
;SET UP MODE
;TYPE REST OF 'FORMAT'
;SET MODE TO °'FORMAT & VERIFY®

FORMAT

TO BE

ENTRY

;TRY AGAIN
;TYPE REST OF ‘'CHECK'
:GET STARTING ADDRESS

IN 20 OR 22 SECTOR MODE

[gn Xan

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

1448
1449
1450
1457
1452
1453
1454
1455

003050
003054

1500
1501
1502
1503

000131

021757
012120
165660

112737
000400

MIA:

001166

000025

012737
012737

24-MAY-79
14:10
PAGE 33
GET VALUE fOR SOF TWARE SWITCH REGISTER

000116

164650
177777

1476

1489
1490
16491
1492
1493
1494
1495
1496
1497
1498
1499

122711

012601

021700
013130

1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
147
1472
1473
1474
1475

1488

021627

001410
122711
001424
105711
001403

1456
1457
1458
1459

1477
1478
1479
1430
1481
1482
1483
1484
1485
1486
1487

104401
104411

30A(1052)

001264
000023
001230
001224
000022
000002
177777

001256
001260
001264
001266

001256
001260
001266

1%:

2%:

TYPE
RDLIN
MoV
CMPR
BEQ

CMPS
BEQ
1ST8B
BEQ
TYPE
BR
TYPE

MOV
MOV
MOV
MOV

TYPE
MoV
MoV

001226
001240
001356

:TYPE FORMAT MODE REQUEST
cREAD THE KEYBOARD
JADDRESS OF ENTRY

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

.MSEC22

;IS ENTRY A 'Y' ?
sBR IF IT IS
;IS ENTRY A 'N' ?
JBRIF IT IS
;DEFAULT MODE ?
JBR IF IT IS

#<260.%22.>,WC
#=-<260.%22.>,Mi(C
#21. ,MAXSEC
MiB

.MSEC20

JTYPE *2°
:TRY AGAIN
;TYPEOUT MODE SELECTED
;TRACK SIZE IN 22 SECTOR MODE

:2'S COMPLEMENT WORD COUNT
;22 SECTOR INDICATOR

sMAX SECTOR ADDRESS

: CONTINUE

;TYPE OUT 20 SECTOR MODE SELECTED

220 SECTOR INDICATOR

CLR
CLR

BEGTRK
BEGCYL

MOvVB
BR

;CLEAR
;CLEAR
;SETUP
;SETUP

MoV

MOV
MoV

IN 22 SECTOR MODE

#<260.%20.>,WC
;TRACK SIZE IN 20 SECTOR MODE
#-<260.%20.>
MW
;2'S COMPLEMENT WORD COUNT

SEC20

CLR

M1B:

MSIZE

SEQ 0031

#19. ,MAXSEC

#18. ENDTRK
#2 ,PATSEL
#-1,FMTDPB

;MAX SECTOR ADDRESS IN 20 SECTOR MODE

;SETUP

STARTING TRACK ADDRESS
BEGINNING CYLINDER ADDRESS
END TRACK ADDRESS
FOR WORST CASE PATTERN
INVALID DRIVE NUMBER

;BRANCH TO START

;GO FIND OUT WHAT DRIVE
003232
003240
003244
003250

012737
005037
004737
104401
104411

012601
004537
003312
003300
003312
003300
003320
003312
005037

006344
001112
010432
021257

001300

MC:

006654

PC.STKINT

JMUNTT

;CONTROL C ABORT ENTRANCE
:CLEAR THE ERROR_ACCUMULATOR
:INITIALIZE THE TTY KEYBOARD
:ASK FOR DRIVE NUMBER

:READ

THE KEYBOARD

:ADDRESS OF ENTRY
:CHECK ONE CHARACTER
:ILLEGAL CHARACTER
4
.

€y

;DIGIT Q=7

104401

001166

3%:

122737

SERTTL

: CARRIAGE RETURN

2%:

001431
004737
004737

#OENTER, CNTLC

(SP)+.R1
RS,CK.CHR

001214
021301

000745
010237
005702
001004

CLR
JSR

TYPE

104401

000413

MOV

001214
000011

006170
012512

A
¥

000041

5%:

DRIVE

,MDRVD

,$QUES

;DIGIT 8-9

JSELECT DRIVE ZEROQ
;GO TYPE DEFAULT DRIVE NUMBER
;GO SEE IF DRIVE ZERO IS THERE

;TYPE

;START

THE

MO
R2,DRIVE
R2
5%

JASK FOR DRIVE NUMBER AGAIN
. SAVE DRIVE NUMBER
;SEE IF DRIVE O
;BR IF NOT
.PROGRAM LOADED FROM AN RP(04/5/6 ?
JBR IF IT WAS, CAN'T FORMAT THE DRIVE

PC,RPINIT

;G0 SEE WHAT DRIVES ARE AVAILABLE

#11,41
7%
PC,ST.CLK

CLOCK

(ZRJBDO, RPQ4/S5/6 FMTR MACY11
CZRJBD PN
28-MAR-79 11:23

1504
1505
1506
1507
1508
1509
1510

003350
003356
003364
003370
003374
003376
003400

1512
1513

003406
003412

1511

003404

012737
012737
005037
105762
003015
001403
104401

000712

105762
001003

177777
177777
177776
012346

30A(1052)
012434
012436

012356

6% :

003414
003420
003422
003426
003430
003436
003440

104401
000704
104401
000701
123737
001430
113737

001214

001356

001214

001356

1523
1524
1525
1526
1527

003462
003464
003472
003476
003502

001003
012737
005037
005037
013737

000632
000003

001222
012356

001456
001230
001224
001222

001222

003516

000400

1528

}ggg

003446
003454

003510

012737
132762

013737

021362

021407

001222

7%:

1534
1535
1536
1537
1538
1539
1540
}g:;

001414

1553
1554
1555
1556
1557
1558
1559

:SAVE THE REGISTERS
JSET 'NO OPTIMIZATION' FLAG
;SET PRIORITY BACK TO ZERO
;LOOK AT DRIVE STATUS
;BRANCH IF ONLINE
;BR IF DRIVE NOT AVAILABLEF
; 'DRIVE UNSAFE'

B8R

TYPE
BR
TYPE
BR
CMPB
BEQ
MOVR

. MDRNP
MO
JMERT1
MO
DRIVE ,FMTDPB
M2
DRIVE ,FMTDPB

:TYPE *DRIVE NOT PRESENT®
;GO GET DRIVE NUMBER AGAIN
:'DRIVE NOT AVAILABLE'
;GO GET DRIVE NUMBER AGAIN
;SAME DRIVE AS LAST TIME ?
:BRIF IT IS
;SETUP DRIVE ADDRESS

BNE
MOV
CLR
CLR
MOV

9%
#814. ,ENDCYL
BEGTRK
BEGCYL
ENDCYL,TABLE+2

;BR IF
;JSETUP
;CLEAR
;CLEAR
ENTRY

TSTR
BNE

MOV
BITR

9% :

#-1,SAVEFG
#-1,SEEKFG
PS
DRVSTA(R2)
8%
33
.MUSDR

SEQ 0032

MOV
B8R

DRVTYP(R2)
7%

;GO GET DRIVE NUMBER AGAIN

;A DRIVE PRESENT?
;BR IF SO

#4610, ,ENDCYL
LSET.P FOR RP04/S
#81T00!BITO1,DRVTYP(R2)
:SEE IF DRIVE RP04/S
EITHER
ENDING CYLINUER FOR RP0O6
STARTING TRACK ADDRESS
STARTING CYLINDER ADDRESS
LIMIT FOR BEGINNING CYLINDER

ENDCYL,TABLE+16 ;ENTRY LIMIT FOR END CYLINDER
M2
JGET ADDRESS LIMITS FROM THE OPERATOR

;GET ADDRESS LIMITS
003520

003524
003530
003536
003540
003542
003550
003552
003556

104401

004737
023737
101010
103404
023737
103003
104401
000760

021310

mM2:

006464
001222

001224

001226

001230

022056

}gzz
1545
1546
1547
1548
1549
1550
1551
1552

8$:

001400

}g%}
1533

MOV
MOV
CLR
TSTB
BGT
BEQ
TYFE

021467

1514
1515
1516
1517
1518
1519
1520

1521
1522

6
24-MAY-79
14:10
PAGE 34
GET VALUE FOR SOFTWARE SWITCH REGISTER

2%:
3%:

TYPE

JSR
CMP
BHI
8LO
CMP
BHIS
TYPE
BR

LENTADR

PC ,PARENT
ENDCYL ,BEGCYL
M4
38
ENDTRK ,BEGTRK
Mé
L MADRER
M2

; "ENTER ADDRESS LIMITS®

;GET THE ADDRESS LIMITS
;SEE IF ENDING CYLINDER EQ TO GT THAN BEGINNING
:BR IF HIGHER
:BR IF LESS
;SEE IF ENDING TRACK EQ OR GY THAN BEGINNING
:BR IF YES
;INVALID ADDRESS ENTERED
:TRY AGAIN

;GO GET DATA PATTERN FOR FORMAT
003560
003564
003566
003570
003574
003576
003600
003602

003604
003606
003610
003614
003620
003622
003626

104401
104411
012601
004537
003630
003610
003630
003610

003622
003630
104401
012702
000406
020227
101403

022160

M& :

006654

022260
000002

1%:

000002

2%:

TYPE
RDLIN
MOV
JSR
3s
1%
3%
1%

2%
3%
TYPE

MOV
8R
CMP
BLOS

JMSELP

(SP)+,R1
RS.CK.CHR

LMPATD
#2,R2
A3
R2,#2
33

;GO TYPE

°'SELECT PATTERN'

;READ THE KEYBOARD
:ENTRY ADDRESS
;CHECK ONE CHARACTER
;ILLEGAL CHARACTER
;CARRIAGE RETURN
R
S
;DIGIT 0-7
:DIGIT 8-9
:TYPE DEFAULT PATTERN
JWORST CASE PATTERN
;GO SAVE PATTERN
;IS # LARGER THAN 2
:BRANCH IF NOT

Y rTM

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
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600

003630
003634
003636

104401

000751
010237

30A(1052)

001166

001240

48:

TYPE

MOV

;60 TYPE
012737
005737
001403

006364
001220

001300

MS:

,$QUES

STYPE

R2,PATSEL

SEQ 0033

*2°

*RETYPE LINE

*SAVE PATTERN SELECTED

'STARTING FORMAT ON DRIVE N'
MOV
ST
;;PE

ATYPADR,CNTLC
MODE
1%
é»;lsrou

;CHANGE “C ENTRANCE
*'FORMAT' OR 'CHECK' MODE ?
‘BR IF 'CHECK' MODE
STYPE 'STARTING FORMAT ON DRIVE N'

BEQ

104401
000402
104401

022273
022330

gg:

TYPE

.MSCHK

:TYPE

013746

001214

MOV

DRIVE,~(SP)

: :SAVE DRIVE FOR TYPEOUT

104403

TYPOS

BYTE

BYTE
TYPE

001167

*:TYPE DRIVE NUMBER

+:G0

'STARTING CHECK ON DRIVE N’

TYPE--OCTAL ASCII

SITYPE

0
.$CRLF

DIGIT(S)

::SUPPRESS LEADING ZEROS
‘CR-LF

:SETUP TOTAL TRACK COUNT FOR FORMAT

023737
001011
013737
163737

005237
000427
013702
163702

013737
163737
100004

062737
005302
005237
005302
100404

062737
000772

001222

001224

001226
001230
001232

001232
001232

001222
001224
001226
001230

001232
001232

000023

001232

001232
000023

CKADRS:

005037
005037
005737
001416
005137
005137

013701

001242
001244

000001

165555
133333
001256
025574
007242

001242
001244

MOV
Sus
MoV
SUB

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

JENDING CYLINDER
;SUBTRACT THE STARTING CYLINDER
;CALCULATE THE RESIDUAL TRACKS
;SUBTRACT THE STARTING TRACK

INC
DEC

ADD
BR

#19.,TTRKS
3%

CLR
CLR
TST
BEQ
(oM
COM

(MP

1%:

SETPAT

2%
#19. ,TTRKS
R2
TTRKS
R2

CODE

SETPAT:

001240

sSUBTRACT THE STARTING TRACK ADDRESS
;JMAKE THE NUMBER OF TRACKS INCLUSIVE

8MI

001232

001242
001244
001240

SuB
INC

ENDCYL,BEGCYL
1%
ENDTRK, TTRKS
BEGTRK, TTRKS
TTRKS

BPL
ADD
DEC

2%:
3%:

;THIS

CMP
BNE
MoV
BR

1%:

1601

1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615

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

BEQ
MOV
MOV
MOV

MOV
MOV

SETPAT

SETS UP THE

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

;SETUP THE DATA PATTERN

;BR IF ENDING TRACK GREATER
s CORRECT THE VALUE
;COUNT THE PARTIAL TRACK
sMAKE THE NUMBER INCLUSIVE
;DECREMENT THE CYLINDER COUNT

:BR

DONE

sADD CYLINDER WORTH OF
- CONT INUE

TRACKS

SELECTED DATA PATTERN TO BE WRITTEN ON EACH SECTOR

PATA
PATB
PATSEL
1%
PATA
PATB

#1,PATSEL

1%
#165555,PATA
#133333,PATB
WC,R3

#BUFP RO
PATA,R1

;CLEAR DATA PATTERN A
;CLEAR DATA PATTERN B
;SEE IF PATTERN OF ONES

;BR IF SO

;SET PATA TO ONES
;SET PATB TO ONES

;SEE IF PATTERN OF ZEROS

JBRANCH
sSET UP
sSET UP
sSET UP

IF SO
WORST CASE
WORST CASE
COUNTER
;SET UP MEMORY POINTER
JSET UP PATTERN IN R1

[MAGE

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

MOV

DEC
DEC
BNE

PATB,R?2
R1,(RO)+
R2,(R0O)+

JKEEP COUNT

JKEEP COUNT
;DO IT AGAIN IF R3 NOT O

;THIS CODE SETS UP FOR THE ACTUAL FORMAT

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

000020
007264

001357
000143
013312

WRTRK:

001357

001360

1%:

2%:

001374

3%:

001216
001250
001304
001366
001260
025574
001220

WRTRK1:

000163
004244
001100
013312

001362
001364

001360
001110

1%:

001374
004324
005462

00556¢
000003

WRTRK?:

2%:

001160

001250

3%:

001250
005037

001160
001250

;CHECK

USR

JSR
MOVB
TST
BNE
CLRB
MOVB

JSR

FMTDPB
BR

TST

8EQ
CLR
CLR
CLR
CLRB

MOV
MOV
TST
BEQ
MOVR
MOV
MOV

JSR

FMTDPR

TST

BEQ
BPL
MOV

tMP
BEQ
INC
B8R
CLR
CLR

THE

.GO SET UP DRIVER TABLE
;GO INITIALIZE HEADERS IN THE SECTOR BUFFER IN CORE
JLOAD FMT2?2 BIT

PC.SETHDR

#20 FMTDPB+1

SEC20

;18 BIT MODE ?

FMTDPB+1

;BR IF NOT
;CLEAR THE FMT2?2 BIT

RO,RPO4

JSTART

HSETFMT ,FMTDPB+2

FMTDPB+16

SOF SwW
RETRY

EFLG

FMTDPB+10
MWC,FMTDPB+4
#BUFP ,FMTDPB+6
MODE
CKTRK
#WRTHD ,FMTDPB+?2
#.,8LPERR
#STACK,
SP
RO,RPO4
1%
FMTDPB+16

JSR
ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

JSR

PC.SETTBL

4%
#3% ,8ESCAPE
PC,ERINDX
=

112737

005737
001002

005630
006030

004737
004737

PC,LOP.
(K

#3,RETRY
43
RETRY
1%
$ESCAPE
RETRY

TRACK JUST WRITTEN

;'LOAD FORMAT' (COMMAND
THE

COMMAND

:DPB ADDRESS
;QUEUE FULL RETURN

.LOOK FOR DONE
JLOOP UNTIL FINISHED
;CLEAR ERROR COUNTER
.ZJERO THE RETRY COUNTER
. CLEAR ERROR DURING WRITE CHECK FLAG
<RESTORE SECTOR
cRESTORE W(

;RESTORE BA
;'"FORMAT' OR

;BR IF

'CHECK® MODE

'CHECK' MODE

JSET WRITE HEADER & DATA COMMAND

;SETUP LOOP ON ERROR ADDRESS
sLOAD STACK POINTER
.GO FORMAT A TRACK
;ADRS OF PARAMETERS - TBL

IN TRL

JWAIT FOR QUEUE IF FULL
JWAIT FOR COMMAND TO COMPLETE

;BRANCH IF NOT DONE
;BRANCH IF NO ERROR

;.ESCAPE TO 3% ON ERROR
;SEE WHICH ERROR
;DRIVE OFFLINE

JPERSISTENT DRIVE UNSAFE ERROR
;UNCORRECTABLE MASSBUS PARITY ERROR
;SOF TWARE TIMEOUT
;DRIVE UNSAFE ERROR

;DRIVE/CONTROLLER ERROR DURING WRITE
;LOOP ON THE ERROR ?
JERROR RETRY LIMIT ?
;BR IF REACHED
;COUNT THE ERROR

;TRY AGAIN

;CLEAR ERROR ESCAPE ADDRESS
JCLEAR THE RETRY COUNTER

TM~

SEQ 0034

;SET UP PATTERN IN R2
MOV 1ST PAT INTO MEM
MOV 2ND PAT INTO MEM

R3
R3
2%

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

2%:

MOV

d e

1653
1654

001244

I
14:10
24-MAY-79
PAGE 36
GET VALUE FOR SOFTWARE SWITCH REGISTER

—

1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652

013702
010120
010220
005303
005303
001373

30A(1052)

VIS W= O

1638
1639

RRRERR

1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637

GRS

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

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23
1672
1673
1676
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706

004356
004364
004372
004376
004402
004404
004406
004412
004414
004416
004424
004426
004434
004440
004444
004452
004456
004460
004462
004464
004466
004470
004476
004500
004504
004506
004510
004512
004516
004520
004524
004526
004534
004540
004542

112737
012737
012706
004037
001356
000774
005737
001775
100147
113737
001005
013737
005237
005337
012737
004737
104010
104011
104012
104013
104014
032737
001005
033727
130620
001001
104016
005737
001416
005737
001413
012737
005737
001402
005337

1708
1709
1710
1711
1712
1713
1714
1715
1716

004552
004554
004560
004564
004566
004574
004576
004604
004606

104017
005037
005737
100011
032777
001426
012737
104020
000421

1718
1719
1720
1721
1722

004616
004620
004626
004630
004636

001411
032777
001411
012737
104024

1707

1717

1723
1724
1725
1726
1727

004546

004610

004640
004642
004650
004652
004656

005037

032737

000404
012737
104025
013701
113737

000153
004364
001100
013312

30A(1052)

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

001360
001110

CKTRK:
1%:

001374

2$%:

001314

001252

001266
001252

001252

001252
005010
005462

001160

(€40000

001316

3%:

00132¢

001220

4%:

001216
005034
001304

001160

001112

001304

21$:

001160
001322

5%:

000200

174344

000001

001304

040000

001316

000200

174312

000071

001304

000001

001304

001252
001252

001366

23$:

24%:

7%:

SEQ 0035

MOVB
MOV
MoV
JSR
FMTDPB
B8R
TST
BEQ
BPL
MOVB
BNE
Mov
INC
DEC
MoV
JSR
ERROR
ERROR
ERROR
ERROR
ERROR
BIT
BNE
BIT
.WORD
BNE
ERROR
TST
BEQ
TST
BEQ
MoV
TST
BEQ
DEC

MJCKHD ,FMTDPB+2
#.,$LPERR
#STACK, SP
RO ,RPO4

;SET WRITE CHECK HEADER & DATA COMMAND [N TBL
;SETUP LOOP ON ERROR ADDRESS
sLOAD STACK POINTER
;GO CHECK THE TRACK JUST FORMATTED
;ADRS OF PARAMETERS - TBL
1%
JWAIT FOR QUEUE IF FULL
FMTDPIK+16
JWAIT FOR COMMAND TO COMPLETE
2%
sBRANCH IF NOT DONE
8%
;BRANCH IF NO ERROR
RP.REG+RPDA,SAVSEC
,GET THE SECTOR ADDRESS
3%
sBRANCH IF NOT SECTOR 0O
MAXSEC,SAVSEC
;RESTORE TO LAST SECTOR +1
SAVSEC(
s INCREMENT TO LAST SECTOR +1
SAVSE C
;ADJUST SECTOR TO THE ONE THAT FAILED
#10% ,SESCAPE
;.ESCAPE TO 10$% ON ERROR
PC,ERINDX
;SEE WHICH ERROR
10
sDRIVE OFFLINE
11
;PERSISTENT DRIVE UNSAFE ERROR
12
sUNCORRECTABLE MASSBUS PARITY ERROR
13
. SOF TWARE TIMEOUT
14
:DRIVE UNSAFE ERROR
MWCE ,RP.REG+RPCS2
;WRITE CHECK ERROR ?
4%
:BR IF SET
RP _REG+RPER1, (P()+
CHECK FOR DATA ERRORS
DCK!OPI!DTE!HCRC!HCE'FER
;DATA ERROR BITS
43
;BR IF SET
16
;CONTROLLER/DRIVE ERROR DURING WRITE (HECK
MODE
;FORMAT OR CHECK MODE ?
5%
:BR IF CHECK
SOF SW
JRETRYING THE SECTOR ?
5%
;BR IF NOI1
#11%,SESCAPE
;.ESCAPE TO 11$ ON ERROR
EFLG
;ERROR DURING WRITE CHECK REPORTED ?
21$
sNO,
INCREMENT ERROR COUNT
$ERTTL
;YES, DECREMENT REPORTED ERROR COUNT

CLR

EFLG

;CLEAR ERROR DURING WRITE

CHECK FLAG

ERROR
CLR
TST
BPL
BIT
BEQ
MoV
ERROR
BR

17
$ESCAPE
RP.REG+RPER1
23%
#B1T7,aSWR
’$
#1,EFLG
20
73

:SECTOR NOT ACCEPTABLE
;CLEAR THE ERROR ESCAPE ADDRESS
:DATA CHECK ERROR ?
sNO, CHECK OTHER ERRORS
sINHIBIT SOFT ERROR REPORTS ?
;YES, SKIP ERROR REPORT
;SET ERROR DURING WRITE CHECK FLAG
sDATA ERROR DURING WRITE CHECK
: CONT INUE

BEQ
BIT
BEQ
MOV
ERROR

24%
#BIT7,aSWR
7%
#EFLG
24

;NO, MUST BE HARDWARE ERROR
JINHIBIT SOFT ERROR REPORTS ?
JYES, SKIP ERROR REPORT
;SET _ERROR DURING WRITE CHECK FLAG
;WRITE CHECK ERROR

BIT

BR
MOV
ERROR
MOV
MOvB

#WCE ,RP .REG+RP(S2

;WRITE CHECK ERROR ?

78
s CONT INUE
1 EFLG
sSET ERROR DURING WRITE (HECK fLAG
25
sHARDWARE ERROR DURING WRITE CHECK
SAVSE(C ,R1
SFAILING SECTOR ADDRESS
SAVSEC,FMIDPB+10
;SECTOR ADDRESS

CZRJBDO, RPO4/S/6 FMIR MACY11
CZRJBD.PY
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
1750

004664
004666
004674
004700
004704
004710
004714
004716
004724
004730
004734
004740
004742
004750
004752
004756
004760
004766
004770

006301

30A(1052)

24-MAY-79
14:10 PAGE 38
GET VALUE FOR SOFTWARE SWITCH REGISTER

SOF SW

001362

BEQ
Mov

001216

JMP
TST
BEQ
(MP

001266
006002
001216
001304
004376
005562
000003

001250
004376
001160
001250
001304
000002

1756
1757

INC

177374
001216

8%:

BEQ
INC

001216

1755

R1
:SETUP INDEX TO ADDRESS WORDS
ADRTBL
(R1) ,FMTDPB+6
;BUFFER ADDRESS FOR FAILING SECTOR
MWC,~(SP)
sGET MAXIMUM WORD COUNT VALUE (2'S COMP)
WCTBL(R1),(SP)
;ADD WORD COUNT THROUGH FAILING SECTOR
(SP)+,SAVW(
;STORE WORD COUNT FOR REMAINDER OF TRACK
MODE
sFORMAT OR CHECK MODE ?

001364

000002

1751
1752
1753
1754

ASL
MoV
MOV
ADD
MOV
TST

001500
001260
001554
001254
001220

004236
001216

001366

001250

9%:

108:

11%:

174062

004174
005720

12%:

004174

SEQ 0036

B8R

9%
¢BR IF CHECK
#-260. ,FMTDPB+4 ;WORD COUNT FOR 1
sINDICATE

WRTRKZ2
SOF SW
1%
#2,SOF SW

;REFORMAT ERROR SECTOR
;RETRY IN PROGRESS ?
:BR _IF NOT
;SEE IF LAST RETRY

9%
SOF SW

MAXSEC,FMTDPB+10

JSR
CLR
CLR
JMP
JSR
CMP
BEQ
INC
JMP
CLR
CLR
CLR
BIT
BEQ
JMP
JSR
BR
JMP

PC,SCAWC
SOF SW
EFLG
1%
PC.LOP.CK
#3,RETRY
11%
RETRY
1%
$ESCAPE
RETRY
EFLG
#BIT1,aSWR
12%
WRTRK1
PC,TRKTST
HDREAD
WRTRK1

11%

IN PROGRESS

JBRIF IT IS
s INCREMENT RETRY COUNT

(MPB

BEQ

SECTOR

THAT A RETRY

sREAD AGAIN
SEE

sBRIF

IF LAST SECTOR ON THE

IT IS

TRACK

sSETUP TO CHECK REMAINING SECTORS ON THE TRACK
:CLEAR RETRY COUNTER
;CLEAR ERROR DURING WRITE CHECK FLAG
sFINISH CHECKING THE TRACK
;CHECK FOR LOOP ON ERROR
;ERROR RETRY REACHED ?
;BR IF IT IS
;COUNT THE RETRY
;DO THE WRITE CHECK AGAIN
;CLEAR THE ERROR RETURN ESCAPE ADDRESS
;CLEAR THE RETRY COUNTER
;CLEAR ERROR DURING WRITE CHECK FLAG
;LOOP ON CURRENT TRACK ?
JBR IF NOT
;START AGAIN ON THE SAME TRA(K
;GET UPDATED TRACK AND CYLINDER ADDRESSES
SJRETURN HERE IF DONE - DO QUICK CHECK OF DISK
cCONTINUE WITH THE FORMAT

;THIS CODE MAKES SURE EACH CYLINDER FORMATTED CONTAINS THE

005037
004737
004737
013737
012737
012737
005037
013737
112737
012737

001262
005630
006030
001224
177774

;PROPER CYLINDER ADDRESS. THE PROGRAM IS LOOKING FOR
;POSSIBLE POSITIONER ERRORS THAT MAY HAVE OCCURRED DURING

THE

HDREAD:

INDICATOR

001246
001362
001364

001110

1%:

HEDERR

PC,SETTBL
PC,SETHDR

;CLEAR HEADER CHECK ERROR

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

MoV

BEGCYL,CYLCK

JUSE

MOV

#RBUF ,FMTDPB+6

;SET UP BUFFER ADRS

#RDHD ,FMTDPB+2
#. , SLPERR
#STACK, SP

;SET UP READ HEADER & DATA (OMMAND
;SETUP LOOP ON ERROR ADDRESS
;LOAD STACK POINTER

MOV

001370
001360

001100
013312

CLR

JSR
JSR

FORMAT.

#-4 ,FMTDPB+4

'BEGCYL'

FOR FORMAT VERIFICATION

;SET UP WORD COUNT

CLR
MOV

FMTDPB+10
;CLEAR THE SECTOR & TRACK ADDRESS FIELD
BEGCYL ,FMTDPB+12
;SETUP THE CYLINDER FIELD

JSR

RO,RPO4

Movs
MOV
MOV

;GO READ HEADER

(ZRJBDO, RPO4/5/6 FMIR

CZRJBD.P11

005172
005174
005176

MACY11
28-MAR-79 11:23

001356
000774
005737
001775

838 SR
GEEERPRFEREREECE:
38

~N N

NVONOWVESWN=O

Quir G- Pt Puir
Pt Puir Gt Gt Pt G

001374

177577

14:10

001160

BR
TST

3$:

005562
025564

025574

4%:

005562
001222

001246

5%:
6%:
’$:

PARAMETER

TBL

JWAIT IF QUEUE IS FULL
;WAIT FOR COMMAND TO COMPLETE

PC,ERINDX

;SEE WHICH ERROR

ERROR
ERROR
ERROR

10
11
12

sBRANCH IF NOT DONE
;BR IF NOT ERROR
;.ESCAPE TO 5% ON ERROR

;DRIVE OFFLINE
JPERSISTENT DRIVE UNSAFE ERROR
sUNCORRECTABLE MASSBUS PARITY ERROR

13
s SOF TWARE TIMEOQUT
14
:DRIVE UNSAFE ERROR
H#*C<HCE>,FMTDPB+16
IS ONLY ERROR A HEADER COMPARE

3%
21
$ESCAPE
22

ERROR ?
JBR IF YES
s CONTROLLER/DRIVE ERROR VERIFYING HEADERS
;CLEAR THE ERROR ESCAPE ADDRESS
;HEADER COMPARE ERROR VERIFYING HEADERS

BEQ
ERROR
JSR
(MP
BNE
JMP

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

sBR IF CYL CORRECT
;CYLINDER NOT CORRECT
;CHECK FOR LOOP ON ERROR
;SEE IF LAST CYLINDER
;BR IF NOT FINISHED
JEND OF FORMAT

INC

FMTDPB+1?2

BEQ
ERROR
CLR
ERROR
JSR
(MP

INC
JSR

.SBTTL

;ADRS OF

2%
3
#5%, SESCAPE

ERROR
ERROR
BIT

SEQ 0037

1%
FMTDPB+16

BEQ
8PL
MOV
JSR

001374

005326
001246
006110
001370

PAGE 39

GET VALUE FOR SOFTWARE SWITCH REGISTER

2%:

001160

004737
023737
001403
104023
004737
023737
001002
000137
005237
004737
005237
000720

24~MAY=-79

FMTDPB

005270
005462

—l—l;
N
I
Y

00 00 0o 00 0o 0o 00 00 00 0O

30A(1052)

END OF

PC,LOP.CK
RBUF ,BUF P

sCHECK FOR LOOP ON ERROR
sSEE IF CYL READ EQUALS CYL EXPECTED

CYLCK
PC,UPDACY

s INCREMENT CYLINDER ADDRESS BEING CHECKED
JSET UP FOR NEXT (YL

.GO READ NEXT HEADER

ADVANCE TO NEXT CYL #

PASS ROUTINE

AR AR AR AR AR AN A A AN NN AR AN

R AN RR AN R RN RN NN R R AR A RANNRARRRNARNRAAR

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

005737
001403
104401
000402
104401
104401

013746
104405
104401

005237

$EOP:

001220
022364

TYPE

022411
022435
001112
001167
001100
100000

3s:
4%:

001100

$ENDCT:

000042

BR
TYPE
TYPE
MOV

TYPDS
TYPE

$EOPCT:

013700

TST

BEQ

MODE

J'FORMAT'

'CHECK'

4%
JMCCMPT
. NUMERR
$ERTTL,-(SP)

JFINISH THE END MESSAGE
;'CHECK COMPLETE®
;"TOTAL ERRORS DETECTED: '
. cSAVE SERTTL FOR TYPEOQUT

.SCRLF

;.60 TYPE-~DECIMAL ASCII
JCR=-LF

; 'FORMAT COMPLETE'

INC
8IC

$PASS
#100000, $PASS

B8GT

$DOAGN

J2YES

a#42 RO

2;GET MONITOR ADDRESS

DEC
.WORD

MOV
.WORD

$EOPCT
$GET42: MOV

:BR IF

JMFCMPT

'CHECK'®

MODE

(PC)+
1

(PC)+,a(PC)+
]

WITH SIGN

;2 INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
..L00P?

. cRESTORE

COUNTER

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

005416
005420
005422
005424

001405
000005
004710
000240
000240
000240

000137
005436
032777
001002
000137
012706
000137

VNS
AW =2 OO 00 ~NONN

—

cnonoomoooog
v
PRRRRPP

1837
1838
1839
1840

30A(1052)

m3
16:10
PAGE 40
24~MAY=79
END OF PASS ROUTINE

$ENDAD:

$DOAGN:

000001

173474

003232
001100
003642

$RTNAD:

DONE :
1%:

B8EQ

$DOAGN

JSR

PC.(RO)

RESET

NOP
NOP
NOP

.SBTTL

a(P(C)+
DONE
#SW0,aSWR
1%
MO

8IT

BNE
JMP
MOV
JMP

033727

010000
001020
033727
006000
001013
033727
001400
001006
033727
000020
001001
005201
005201
005201
005201
005201
006301
060166
012601
000207

BIT

001374

001374
001374

1%:

2%:
3%:

5%:

000002

JROUTINE

005576

032777
001402
000177
005037

001000
173312

001160

173350

JSEE

SWR O SET

JBR [F SET

;ASK FOR NEXT DRIVE

JRESET STACK POINTER
:DO THE FORMAT OR CHECK AGAIN

A AR A AN

A AN AR AN RN AR RN

AR AR RN N AN AR R R AR AN

AN AARRA NN

SUPPORT SUBROUTINES

ERINDX: MOV
CLR

001374

¢ sRETURN

#STACK,SP

AR R AN A AR AR A AR RN N RN R

;THIS ROUTINE DETERMINES

001374

J:SAVE ROOM

JACTN

AR AR A AR AN R AN

010146
005001
033727
060006
001025

;sBRANCH IF NO MONITOR
;2CLEAR THE WORLD
..G0 TO MONITOR
2JFOR

JMP
. WORD

AR AR AR AR

SEQ 0038

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

THE ERROR

g}.-(SP)

INC

ADD
MOV
RTS

TYPE

:STORE R1
;CLEAR R1

FMTDPB+16,
(PC) +
:CHECK ERROR TYPE
2£T14!BIT13!BIT2‘BIT1
-DRIVE OFFLINE
:BR IF OFFLINE
FMTDPB+16,(PC)+ :CHECK ERROR TYPE
B8ITi2
:DRIVE PERSISTENTLY UNSAFE
48
:BR IF UNSAFE
FMTDPB+16,
(PC) + . CHECK ERROR TYPE
%£T11!BIT1O
:UNCORRECTABLE MASSBUS PARITY ERROR ?
:BR IF PARITY ERROR
FMTDPB+16, (PC)
+ ;CHECK ERROR TYPE
gi 709181708
< SOF TWARE TIMEOUT ?
:BR IF YES
FMTDPB+16,
(PC) + :CHECK ERROR TYPE
?£T04
;DRIVE UNSAFE ERROR ?

INC
INC

ASL

AN AR AN A RARNNRARRARRNRRA AR

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

:BR IF YES
s INCREMENT THE RETURN INDEX
s INCREMENT THE RETURN INDEX
s INCREMENT THE RETURN INDEX
> INCREMENT THE RETURN INDEX
s INCREMENT THE RETURN INDEX
;DOUBLE THE INCREMENT
;DEVELOP THE RETURN ADDRESS
JRESTORE R1

JRETURN

TO CHECK FOR LOOP ON ERROR

LOP.CK: BIT
BEQ
JMP
1%:
CLR

#SW09,aSWR
1%

oSLPERR
$ESCAPE

.LOOP CN ERROR ?
;BR IF NOT
;GO TO THE LOOP ON ERROR ADDRESS
;CLEAR THE ERROR ESCAPE ADDRESS

CZRJBDO, RPQ4/5/6 FMTR

(ZRJBD. P11

1893
1894
1895
1896
1897
1898
1899

MACY11
28-MAR-79 11:23

033727
072002
001004
032737
001402
000137
000207

1900

30A(1052)

004000

BIT

.WORD

001322

005326

2%:
3$:

BNE
BIT
BEQ
JMP
RTS

PAGE 41

FMTDPB+16,(PC)+

SEQ 0039
.CHECK FOR 'FATAL'

BIT14!RITI13!BIT12!BIT10!8IT01

ERROR

;'FATAL' ERROR BITS

2%
:BR IF NOT
AWLE ,RP.REG+RPER1
;WRITE LOCK ERROR ?
3%
;BR IF NOT

$EOP
PC

sTERMINATE THE FORMAT
JRETURN

;THIS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE
113737
105037
013737
012737
105037
113737
013737
005037
013737
013737
000207

PONININDNININ) N = —d b b d b b b =

NN
NN - OVO~NOAWVIEB NSO

0o~

~O~O~O~O~O~O~O~O~O~O~O§88§8§

b
b
) cod
b
d wd
)
D
D wed
P
)
d
b
b
—
G
U
S
G

oleNele
o N olo]

14:10

SUPPORT SUBROUTINES

001374

1901

[

24-MAY-79

001214
001361
001260
025574
001366
001230

001232

001356

SETTBL: MOVB

DRIVE ,FMTDPB

¢SET UP DRIVE #

MOV
MOV

MWC ,FMTDPB+4
H#BUFP,FMTDPB+6

;LOAD UP WORD COUNT
;LOAD UP CURRENT ADRS

MOV
CLR
MOV
MoV

BEGCYL,FMTDPB+12
[SET UP STARTING CYL
FMTDPB+16
;CLEAR RPO4 STATUS
BEGTRK,TRKCNT
;SET UP PARTIAL CYL TRACK COUNT
TTRKS, TTRKSC
:SET UP TOTAL TRACKS COUNTER

CLRB

001362
001364

CLRB
MOvVB

001367
001370

001236
001234

RTS

FMTDPB+3

:CLEAR HIGH ORDER ADRS BITS

FMTDPB+10
:SET SECTOR TO ZERO
BEGTRK,FMTDPB+11
;SET UP STARTING TRK ADRS

JRETURN FROM SETUP

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

022737

001407
005237
105237
004737
000410
005037
105037
005237
004737
062716
000207

001234
060022

TRKTST:

001236

001236
001367
006140

DEC

18:

001370
006110
000002

2%:
3%:

:SEE

LAST

TRACK

3%
#18.,TRKCNT
1%

;BRANCH IF LAST TRACK
;1S THIS THE LAST TRACK IN THE CYLINDER ?
:BRANCH IF SO

CLR
CLRB
INC

TRKCNT
FMTDPB+11
FMTDPB+12

sCLEAR TRACK COUNT FOR NEXT CYLINDER
cRESET TRACK ADDRESS 10 0
;UPDATE CYLINDER NUMBER

INC
INCB
égR

001236
001367

TTRKSC

BEQ
CMP
BEQ

JSR
ADD
RTS

TRKCNT
FMTDPB+11
Sg.UPDATK

PC.,UPDACY
#2,(SP)
PC

sCOUNT UP TRACK WITHIN CYLINDER
¢ INCREMENT TRACK NUMBER
:gi??Tf TRACK ADDRESS IN BUFFER

;UPDATE CYLINDER NUMBER IN BUFFER
;ADD TWO TO RETURN ADRS
sRETURN

:THIS ROUTINE SETS UP WC & BA FOR REMAINING SECTORS
SJAFTER A WRITE CHECK ERROR

013737
062737
005237
005037
000207

LPRRRRP

00 NON N N

1941

001254
001010
001366
001216

001362
001364

SCAWC:

MoV

ADD
INC
CLR
RTS

;THIS ROUTINE

SAVWC,FMTDPB+4

;SET UP WC FOR REMAINING SECTORS

JRETURN TO COMPLETE

#520. ,FMTDPB+6
FMTDPB+10
SOF SW

SETS UP

THE

;SET UP BA FOR REMAINING SECTORS
sADVANCE TO NEXT SECTOR IN TBL
JRESET RETRY COUNTER

CYLINDER ADRS,

FORMAT BIT,

TRK FORMAT
TRACK AND

;SECTOR ADRS IN MEMORY WITH THE STARTING CYL - TRK INFORMATION
006030
006034
006040

213701
012700
013702

001266
025574
001224

SETHDR: MOV
MOV
Mov

MAXSEC,R1
#BUFP RO
BEGCYL,R2

sSET UP SECTOR COUNT
sSET UP HEADER POINTER IN RO
;PUT STARTING CYL # IN R2

1949

006044
006050
006052
006056
006060
006064
006066
006070
006072
006074
006100
006102
006104
006106

013703
000303
005737
001402
052702
010220
010320
005020
005010
062700
005203
005301
002367
000207

30A(1052)

24-MAY-79

SUPPORT SUBROUTINES

001230
001264

010000

14:10

i$:

Mov
SWAB
TST
BEQ
BIS
MOV
MOV
CLR

CLR

001002

ADD
INC
DEC
BGE
RTS

PAGE 42

001266
025574

UPDACY:

1$:

177400
001006

MOV
MoV
INC
BIC
ADD
DEC
BGE
RTS

SEQ 0040

012700
005720
062710
062700
005301
002372
000207

00126¢
025574

UPDATK: MOV

000400
01010

1%:

JROUTINE

012737
005037
005777
013746
012776
262716
012736
012777
012777
000426

006246
000006
172770
001202
006332
000002
000300
177777
000135

000004
006316
172722

012736

001210
006332
000002
000300

000004

000000
172742
172732

000004

000000

ST.CLK:

MOV
TST

ADD

ADD
DEC
BGE
RTS

;PUT STARTING

R3,(RO)+

;WRITE

(RO)+
(RO)
#514. ,RO

IN HEADER AREA OF

sCLR 1ST KEYWORD
2CLR 2ND KEYWORD

(ORE

STCLK1: ADD
MoV
TST
MOV
MOV
ADD
MOV

TRK ADRS

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

R1
1%

CYLINDER ADRS OF

MAXSEC,R1
#BUFP,RO
+
(RO)
#177400, (RO)
#518. .R0
R1
1%

#STCLK1,@#ERRVEC

JRESET TRK ADRS

TO 0

;SET UP FOR NEXT HEADER
;COUNT SECTORS
:?;??CH IF NOT LAST SECTOR
THE HEADER WORDS

IN CORE

sSET UP SECTOR COUNT
;SET UP HEADER POINTER IN RO

sPOINT HEADER POINTER TO TRK - SEC ADRS
s INDEX TRK ADRS
;SET UP FOR NEXT HEADER
s COUNT SECTORS
:?;??CH IF NOT LAST SECTOR

:SET UP VECTOR FOR P CLK

HERRVEC+2
a$LKCSR
SLPVEC,~(SP)

:NEW PSW
*CHECK FOR Kw11-P
-VECTOR ADDRESS

#2,(SP)
#PR6. 3 (SP) +
#-1,98LKCSB

"POINT TO PSW
‘PSW - PRI 6
*LOAD COUNTER BUFFER

#CLOCK.®(SP)

:SET UP KW11=-P VECTOR

#135,a8LKCSR ~ :SET CLK ~ CNT UP
STCLK3

¥4 ,SP
;RESTORE THE STACK POINTER
#STCLK2, 3#ERRVEC
;CHANGE ERROR VECTOR
ISLKS
;LOOK FOR KW11=L

$LLVEC,-(SP)

#CLOCK.a(SP)
#2,(SP)
#PR6,D(SP) +

IN CORE

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

TRACK ADRS OF

MAXSEC,R1
#BUFP RO
+
(RQ)
#400, (RO)
#520. RO
R1
1$

THE HEADER WORDS

TO CHECK FOR KW11-L OR KW11-P CLOCKS

MoV
CLR
TST
MOV
MOV
ADD
MOV
MOV
MoV
8R

THE

;SET UP FOR NEXT HEADER

THE

TRK # IN R3

;JUSTIFY TRACK ADRS
;SEE IF 20 OR 22 SECTOR MODE
;BR _IF 20 SECTOR MODE
;STT THE 22 SECTOR FORMAT BIT
;WRITE IN HEADER AREA OF CORE THE CYL ADRS

1%
#10000,R2
R2.,(RO)+

. THIS ROUTINE UPDATES THE

013701

BEGTRK ,R3
R3
SEC20

;THIS ROUTINE UPDATES

013701
012700
005220
042710
062700
005301
002371
000207

*kW11-L VECTOR ADDRESS

:SET UP Kwll-L VECTOR
*INCREMENT VECTOR ADDRESS
‘PSW - PRI 6

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

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

006306

012777
000402
062706
012737
000207

30A(1052)

000100

172672

000004
000006

000004

24~MAY=79
14:10
PAGE 43
SUPPORT SUBROUTINES
MOV
8R

012746
004737
000002

000020
016744

CLOCK:

001100
012406

OENTER:
1%:

104401

013746
004737
004737
104401
104401

005046

113716
004737
004737
104401

012737
000002

177776

001367
011716
011656
001167
006364

JRESTORE

SERVICES A CLOCK

TYPADR:

TYPE
TYPE

CLR

MOvVB

JSR
JSR
TYPE

001300

MoV
RTI

'CONTROL

#STACK,SP

TRNSWT
1%

M1B

TO TYPE

JSR
JSR

021271

JINITIALIZE THE STACK

JALL ACTIVITY STOPPED

PSW
#OENTER,CNTLC

.ADDRIS

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

.%INSP

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

PC,$SUPRS

SCRLF

#TYPADR,CNTLC

ENTERED BY

TYPING

;PUT

THE CYLINDER ADDRESS ON THE

;CONVERT IT TO DECIMAL
JTYPE IT
:§¢@CES

;CLEAR THE STACK
;PUT

THE

JTYPE

TRACK ADDRESS ON THE

;CONVERT [T TO DECIMAL

;CR-LF

;SAVE R3

TYPE

. WORD

MOV
MOV
MOV
TYPDS
TYPE
RDLIN

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

.SLASH

STACK

JRESTORE ENTRANCE TO THIS ROUTINE

R3,~(SP)
#TABLE ,R3
(R3)+,3%
9%

MOV
BEQ

JRETURN

PARENT: MOV
MOV

1%:

‘CONTROL

;SET PROCESSOR TO PRIORITY O
;CHANGE 'CONTROL C' RETURN ADDRESS
:ZEBESENT ADDRESS IS: °

;PARAMETER TABLE ADDRESS
;GET THE PARAMETERS

JSR

TIME

;BR IF NOT
:CLEAR THE BUS
;START AGAIN WITH DRIVE SELECTION

H#ADR ,R3
PC,PARENT

3$:

104405
104401
104411

TYPED DURING PARAMETER ENTRY

MOV

;

001376
006502

THE PRESENT DISK ADDRESS.

;PARAMETER ENTRY ROUTINE
s CALL

010346
012703
012337
001436

;PUT MILLISECONDS ON THE STACK
. GO REPORT TIME

JRETURN AND CONTINUE

TO INTERCEPT

CLR
MoV
TYPE
TYPE
MoV

STACK POINTER

INTERRUPT EVERY 16MS

#16.,-(SP)

RESET
JMP

001300

THE

JRESTORE THE ERROR VECTOR

PC.RPTMR

MOV
TST
BNE

003176

006344
022465
021275
001370
011716
011656
021305
021277

#4,SP

RTI

;ROUTINE

005037
012737
104401

JSET KW11=L INTERRUPT ENABLE

MOV
JSR

;ROUTINE

012706
005737
001375
000005
000137

#100,a8LKS

#6 ,a#ERRVE(C

RTS

CODE

SEQ 0041

STCLK3

STCLKZ2: ADD
STCLK3: MOV
;THIS

JPARAMETER TABLE ADDRESS
-ADDRESS OF PARAMETER NAME
JBR [F AT END OF TABLE

;TYPE

THE PARAMETER NAME

;ADDRESS OF PARAMETER NAME TEXT

;MAXIMUM PARAMETER VALUE
;ADDRESS OF PARAMETER

;CURRENT VALUE OF PARAMETER
:IY?E'THE CURRENT VALUE OF THE PARAMETER

*READ THE KEYBOARD

012601
004537

30A(1052)

146:10
24~MAY-79
PAGE 44
SUPPORT SUBROUTINES
MOV

006726

(SP)
+ ,R1
R5,CK.DIG

SEQ 0042

s INPUT ASCII STRING ADDRESS
sCHECK THE DIGIT(S)
s CARRIAGE RETURN ONLY ENTERED
;PERIOD ONLY ENTERED

¢ ILLEGAL INPUT

5%:
022036
000006

001376

6%:

:MOVE NEW VALUE TO PARAMETER LOCATION
:GET MORE PARAMETERS

; 'BAD ENTRY'
;DECREMENT THE TABLE POINTER

;TRY AGAIN

7%:

R2 (R5)

8%:

#TABLE R3
1%

:TRY AGAIN

;RETURN

9%:

000207

R2, (R5)
1%
,BADENT
#6 R3

;TERMINATED WITH A CARRIAGE RETURN
s TERMINATED WITH A *°,""
:TERMINATED WITH A *'.**

RTS

;THIS ROUTINE

(SP)+ ,R3

IS USED

TO CHECK

sNEW VALUE
JEXIT
JRELOAD THE PARAMETER TABLE ADDRESS

JRESTORE R3

;ASCII CHARACTER IS A DIGIT BETWEEN O AND 7.
. CALL

MoV

#ADR,R1

;ADDRESS OF ASCII CHARACTER
;CHECK THE CHARACTER
sCHARACTER IS NOT BETWEEN 0-7
;CHARACTER IS IN R2 AS A
;OCTAL DIGIT

CMPB
8LO
(MPB
BHI
MOvVB
BIC

(R1),4'0
13
(R1) ,4'7
1%
(R1) ,R2
#°C7.R2

;LESS THAN ZERO?

JSR
R5,CK.OCT
RE TURN1
RE TURN?

000060

(K.OCT:

000067
177770
1%:

TST
RTS

(R5)
+
RS

;YES == BRANCH

;GREATER THAN SEVEN?
;YES == BRANCH

;GET THE CHARACTER

;STRIP AWAY THE ASCII]

sADJUST FOR RETURN

sRETURN

JTHIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER
;AND DETERMINE IF IT IS A DIGIT BETWEEN O AND 9.

Sm\lgm?
OB WO

D
D
b
el

b ek
b

e
) el wed
b

b
—b

— el md

MOV

#ADR ,R1

JSR
R5,CK.DEC
RE TURN1
RE TURN?

[elelole)

ASIAN TN N1, ST N T,81,8 1,61, 87,81, §1,§]

. CALL

000060

(K.DEC:

000071

000060

(MPB
BLO
(MPB
BHI
MOvB

BIC

1%:

TST
RTS

(R1),4'0
1%
(R1),4'9
1%
(R1) ,R?

#'0,R2
(RS)+
RS

;ADDRESS OF ASCII CHARACTER
;CHECK THE CHARACTER
;NOT BETWEEN O AND 9
BETUEEN 0 AND 9

;R2 = DIGIT

cLESS THAN ZERO?
;YES == BRANCH

:GREATER THAN NINE?
;YES == BRANCH

:GET THE CHARACTER

;STRIP AWAY THE ASCII

sADJUST FOR RETURN
JRETURN

(e V)

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

CVNEWN =00V ~

D -y
D
D
d
d e
d
—t

—
NOPNLNINONVININ)
—

PONININIANOND
PO n

30A(1052)

24=-MAY=-79

14:10

PAGE 45

SUPPORT SUBROUTINES
;THIS ROUTINE WILL

CHECK AN ASCII

sDETERMINE WHAT IT 1IS.
. CALL

CHARACTER T0

;

MCV

#ADR ,R1

;ADDRESS OF

:
:

RETURN
RETURN

ADR1
ADR?2

;UNKNOWN CHARACTER
; CARRIAGE RETURN *

;

;
:

2127

SEQ 0043

;

(K.CHR:

000054

000056

JSR

006600
1%:
2%:
3%:

ASCII

s CHECK CHARACTER

CHARACTER
(R1)=ADR+1

RETURN

ADR3

;COMMA «

RETURN

ADRS

;DIGIT BETWEEN O AND 7.

RETURN

TSTB

BEQ

ADR4

;PERIOD

ADR6

;"'CARRIAGE RETURN'"?

(R
2%

BEQ
JSR
BR

1%
R5,CK.DEC
4%

,A°,

:YES == BRANCH

2 'COMMA’?
;YES == BRANCH

(R1) ,4°.

;' PERIOD'*?

JSR

RS,Ck.0OCT

;OCTAL ?

TST
TST
INC
MOV
RTS

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

TST
TST
TST

sTHIS ROUTINE

(R1)=ADR+1

;R2 = DIGIT « (R1)=ADR+1

(R1)

(R7)=ADR+1

;DIGIT BETWEEN 8 AND 9.

(MPB
BEQ
CMPB

006626

RS,CK.CHR

(RS)+
(RS)+
(R5)+

CHECKS AN ASCII

:YES == BRANCH
J'DIGIT'TM
:NO == BRANCH

;DIGIT BETWEEN 8-9
;DIGIT BETWEEN 0-7
;PERIOD
; COMMA

: CARRIAGE RETURN
sMOVE POINTER TO NEXT (HARA(CTER

sUNKNOWN CHARACTER
cRETURN
STRING FOR LEGAL

;CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER [N R2.
s CALL

;

MOV

#ADR ,R1

;ADDRESS OF ASCIZ STRING

;

JSR

R5,(K.DIG

;CHECK DIGITS

NNNO

NYJIBHIKAIR

AS1ANTANT,
N1, 1,0 1,81,81,8}

007050
007042
007044

;MAX. MAGNITUDE OF INPUT NUMBER

RETURN
RETURN

ADRI1
ADRZ2

J''CR"* ONLY ENTERED =-- R2=0
J'PERIOD'* ONLY ENTERED ~- R2=0

:
;
;

RETURN
RETURN
RETURN

ADR4
ADRS
ADR6

JU'CR"' == R2 = NUMBER
;'COMMA'' == R2 = NUMBER
J'PERIOD’' == R2 = NUMBER

(K.DIG:

MOV
MOV
MOV
(LR

R4 ,-(SP)
R3,-(SP)
R2,-(SP)
R2

;SAVE R4
;SAVE R3
;SAVE THE MAX.
JSTART WITH O

RETURN

(LR

006654

#NUM R?2

:
:

010446
010346
010246
005002
005603
005004
004537
007042

MOV

(LR

JSR

6%
9%

ADR3

R3
R4

RS.,CK.CHR

JJLLEGAL CHARACTER OR INPUT TOO LARGE =~ R2=?

SIZE ON THE STACK

JCHECK ONE CHARACTER

s ILLEGAL CHARA(CTER
;CARRIAGE RETURN

:ll-ll

;no.no

TM~

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

2173

LEBBIRRREK

b e

NN
NI NN MY

2182

006756
006760
006762
006766
006770
006772
006774
006776
007000
007002
007006
007010
007012
007014
007016
007020
007022
007024
007026
007030

007032
007034

007036
007040
007042
007044
007046
007050
007052
007054
007056
007060
007062

006762
006762
86270%

03
004537
007046
007032
007030
007022
006766
006766

30A(1052)

000004

24-MAY-79

14:10
PAGE 46
SUPPORT SUBROUTINES

1%
1%
ADD

1%:

2%:

ASL
MOV
ASL
ASL

006654

SEQ 0044

;DIGIT 0=/
;DIGIT 8-9

#4 RS

;STEP RETURN POINTER PAST ‘'CR''
& "PERIOD'' RETURNS
; INPUT NUMBER #2
SAVE *2

R3
R3,-(SP)
R3
R3

*8
(#2)+(*8) = +10
{UPDATE THE INPUT NUMBER
;CHECK ONE CHARACTER

(SP)+,R3

R5.CK.CHR

:ILLEGAL. CHARACTER

: CARRIAGE RETURN
»

.ll

’

;DIGIT 0-7

105711

;:DIGIT 8-9
;DOES A "'CR'' FOLLOW THE 'PERIOD'’
;BR IF NOT
JINCREMENT THE RETURN
;INCREMENT THE RETURN
; INCREMENT THE RETURN
;CHECK THE MAGNITUDE OF THE NUMBER
;BR IF ENTERED NUMBER TOO LARGE

(R1)

001010
005724
005724
005724
020316

(R4)+
(R4)+
+
(RG)
R3, (SP)
0%

101004
000402
005725
005725
060405
010302
005726
012603
012604
011505
000205

8%
(R5)+
(R5)+

JBYPASS

; INCREMENT RETURN PAST INVALID RETURN
; INCREMENT RETURN
;SETUP RETURN POINTER
cENTERED VALUE
JCLEAN MAX. SIZE OFF OF STA(K

R4 RS

R3,R2

MOV
MOV
MoV
RTS

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

;RESTORE R3

;RESTORE R4
;GET RETURN ADDRESS
JRETURN

.SBTTL

MACRO ROUTINES

.SBTTL

ERROR HANDI.ER ROUTINE

AR AR

AR AR A AN AR

tTHIS ROUTINE WILL

INCREMENT

AR RN AR AR AR AN R AR AAN RN

INCREMENT

THE

R KRR AAARNRNNARARARARRAR
R AR

ERROR FLAG AND

;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF
;*AND GO TO TYPERR ON ERROR

;*THE

SWITCH OPTIONS PROVIDED BY

*Su15 1
*Su13 1

HALT ON ERROR

bl|

007064
007064
007066
007072
007076

04407
10137

10337
013737

$ERROR:

001274

001276
001370

001270

ERROR COUNT,

THIS ROUTINE ARE:

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

:*SU10=1
;*SW09=1
s*CALL

THE

THE ERROR CALL

ERROR

CKSWR
MOV
MOV
Mov

R1,DDRIVE
:DRIVE ADDRESS IF DRIVE ERROR CALL
R3,ATTN
SJATTENTION REGISTER CONTENTS
FMTDPB+12,DS.CYL
s CURRENT CYLINDER ADDRESS

;. ERROR=EMT AND N=ERROR

ITEM NUMBER

;. TEST FOR CHANGE

[N SOFT-SWR

YTM

(ZRJBDOfi1$PO4/S/6 FMTR
MACY11
CZRJBD
28-MAR-79 11:23

CZRJBDO, RPO4L/S5/6 FMIR MACY11
CZRJBD. P11
28-MAR-79 11:23

104401

005237
011637

162737
117737
032777
001004

004737

001102
002000
001162
001112
001116
000002
171710
020000

104401

007272
001167

005777

171704

001000

001402
013716

001110
001160
001160

000002

MOV

SuB

7%:
121772
171762
1%:

INCB
BEQ

INC

$ERTTL
(SP) ,$ERRPC

MOV

3%:
4%:

5%:

L $BELL

#2,$ERRPC

MOVB

9$ERRP(,S1TEMB

BNE
JSR
TYPE

PC,TYPERR

BIT

TST
8PL
HALT
CKSWR
BIT

BEQ

MOV

TST
BEQ

MoV

SEQ 0045

RP.REG+RPBA,-(SP)

#2,(SP)
a(5P)+,$GDDAT
$ERFLG
7$
$STSTNM,aD]SPLAY

ggIT10.QSUR

TYPE

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

BIT
BEQ

SUB

20%:
2%:

171670

MOV

001775
013777
032777
001402

001312
000002
001124
001103

MOVB
TST
BEQ

105237

14:10
PAGE 47
ERROR HANDLER ROUTINE

001272

013637

24-MAY=-79

V——l—l
N
— —

162716

001367
001312

-0
NOO

113737
005737
001406
013746

—

007104
007112
007116
007120
007124
007130
007134
007140
007142
007150
007156
007160
007164
007170
007174
007202
007210
007216
007220

30A(1052)

#BIT13,aSWR
20%

.SCRLF

aSWwR

#B1T709,aSWR

4%
$LPERR, (SP)
$ESCAPE

5%
$ESCAPE, (SP)

RTI

:BUFFER ADDRESS

;DECREMENT THE ADDRESS
;GET THE BUFFER WORD WHICH DIDN'T COMPARE
.. SET THE ERROR FLAG

;:DON'T LET THE FLAG GO TO ZERO
::DISPLAY TEST NUMBER AND ERROR FLAG
;:BELL ON ERROR?
:sNO - SKIP
;RING BELL
;- COUNT THE NUMBER OF ERRORS
;.GET ADDRESS OF ERROR INSTRUCTION

;:STRIP AND SAVE THE ERROR ITEM CODE
:;SKIP TYPEOUT IF SET
2:SKIP TYPEOQUTS
;.G0 TO USER ERROR ROUTINE
. sHALT ON ERROR
;s SKIP IF CONTINUE
;oHALT ON ERROR!

;;TEST FOR CHANGE

IN SOF T-SWR

;LOOP ON ERROR SWITCH SET?
::BR IF NO
;FUDGE RETURN FOR LOOPING

..CHELK FOR AN ESCAPE ADDRESS
;BR

NONE

::FUDGE RETURN ADDRESS FOR ESCAPE
. ;RETURN

;THIS ROUTINE USES THE ‘'ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE
:WHICH ERROR IS TO BE REPGRTED, IT THEN OBTAINS, FROM THE 'ERROR
JTABLE'' (SERRTR), AND REPORTS THE APPROPIATE INFORMATION
:CONCERNING THE ERROR.

1044612
005000
113700
005300
006300

006300
006300
062700
012037
001404
104401
104401

000000
012037
001404
104401

TYPERR:

SAVREG

CLR

001114

MovB

DEC

001630
007332

1%:

001167
007350

001167

2%:
3%

ASL
ASL
ASL
ADD
MOV

RO
$ITEMB,RO

#SERRTB
RO

(RO)+,2%

s SAVE RO-R5
;CLEAR RO FOR ERROR NUMBER
:ERROR NUMBER

;FORM INDEX FOR ERROR TABLE

;FORM ADDRESS
;GET ERROR MESSAGE (EM) POINTER
;BRANCH IF THERE ISN'T ONE

BEQ
TYPE

.SCRLF

;"'CARRIAGE RETURN - LINE FEED

. WORD

;"EM'' POINTER GOES HERE

BEQ

5%
. $CRLF

:BRANCH IF NONE

TYPE

MOV

TYPE

(RO)+,49%

;PI1CK UP DATA HEADER

(DH)

:CARRIAGE RETURN-LINE FEED

POINTER

CZRJBDO, RPO4/S/6 FMTR
MACY11
CZRJBD PN
28-MAR-79 11:23

2285
2286
2287
2288
2289

007346

104401

000000
012001

30A(1052)

24=MAY=79

164:10
PAGE 48
ERROR HANDLER ROUTINE
A
¥

5%:

TYPE

10%:
11%:

;"DH''" POINTER GOES HERE

BEQ
CLR

208
RS

;BRANCH [F NONE

BEQ
(oM

17%
RS

sNUMBER OF DH'S TO TYPE
;BRANCH IF DH NUMBER IS 0
sNO INDENT

MOVB

(RO)+,R3

TYPE

MovB
ROR

12%:

104405

007470
007472
007476

007510
007516
007520

005303
001403
104401
000764
005302
003431
104401
005760
001494
005105
001002
104401
012037
104401
000000
005710
001003
062700
000754
104401

005705
001332
104401

000727
104413
000207

13%:

021305

001167
000002

021305
007464

16%:

000004

001167
021305

21s:
17%:

20%:
.SBTTL

.SCRLF

(RO) +,R4
R4

B8R

13%

MOV

a(R1)+,-(SP)

DEC

TYPDS

8EQ

14%

L INSP

BR
DEC
BLE

11%
R2
20%

TST

2(R0O)

TYPE

15%:

(RQ)+,RO
(RO)+,R2

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

TYPE

14%:

(RO)+,R1

BCS
MOV

TYPOC

013146

SEQ 0046

WORD

MOV

MOV
MOV

001167

. SCRLF

BEQ
COM
BNE

158
R5
158

MOV

(RO)+,16%

TYPE

.WORD

.LINSP

TST
BNE
ADD
BR

(RO)
21%
#4 RO
148

TST

TYPE

BNE

TYPE

RESREG
RTS

.SCRLF

108

.LINSP

108
PC

;PICKUP DATA TABLE

JSET INDENT SWITCH
;DATA FORMAT

(DF)

(DT) POINTER

POINTER

;CARRIAGE RETURN-~LINE

FEED

;NUMBER OF DATA WORDS TO TYPE
JAND HOW TO TYPE THEM
;OCTAL OR DECIMAL?
s DECIMAL --BRANCH
;;SAVE a(R1)+ FOR TYPEOUT

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

J:SAVE a(R1)+ FOR TYPEOQUT

. :G0 TYPE--DECIMAL ASCII WITH SIGN
:MORE NUMBERS TO TYPE?
- NO--BRAN(CH
cYES-=-TYPE SEPERATORS
. LOOP
;MORE DH'S?
;NO=--BRAN(CH
JYES--START A NEW LINE
JONLY A 'DH* IN THIS REQUEST ?
cBR IF YES - BYPASS THE INDENT
J INDENT?
JNO=--BRANCH
JYES==-TYPE SPACES

;GET NEXT DH

JAND TYPE IT
.DH POINTER GOES HERE
TYPE A 'DT* ?
;BR IF A ‘DT’
. INCREMENT THE °‘DF* POINTER
JSEE [F END OF °'DF' BLOCK
cCARRIAGE RETURN-LINE FEED
;J INDENT?
:NO--BRANCH
JYES=-=TYPE SPACES
.LOOP

JRESTORE RO-RS

JRETURN

TYPE ROUTINE

""tt‘tl’ttt*fitttttttttttttt"tttttfi'tfittfititt'tfitifittttttittttttt.‘

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE,
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

J*NOTE:
J*«NOTE2:
J*«NOTE3:

$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER,
$FILLS CONTAINS THE NUMBER OF FILLER (HARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

CZRJBDO§1$P04/S/6 FMTR MACY11
CZRJBD.
28-MAR-79 11:23

30A(1052)

24-MAY-79

TYPE ROUTINE

14:10

PAGE 49

SEQ 0047

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

.'OR

i
N

;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE
MES/.DR

007522
007526
007530
007532
007534
007536
007542
007544
007546
007550
007552
007556
007560
007564

105737
100002
000000
000407
079046
017600
112046
001005
005726
012600
062716
000002
122716

001430
122716
001006
005726

104401
001167
105037
000755

001157

TSTB
BPL
HALT

1%:

$TPFLG
1%

MOV
MOV

RO,~(SP)
a2 (SP) ,R0O

BNE

000002

60%:
3%:

MOV
ADD

(SP)+,R0
#2,(SP)

000011

A ¥

CMPB

#HT
, (SP)

CMPR
BNE

#CRLF
, (SP)
5%
(SP)
+

000002

2%:

000200

MOVB
TST

RT]

BEQ

TST
TYPE

$CRLF

007736

004737

007672
001156

013746

001154

105366
002770
004737
105337
000770

000001

123726
001350

$TYPE:

5%:

6%:

7%:

007672
007736

(RO) +,-(SP)
(SP)+

CLRB

$CHARCNT

JSR

PC,8TYPEC

MOV

$NULL ,=-(SP)

B8R

CMPB
BNE

DE(CB
BLT
JSR
DE(B
BR

SFILLC, (SP)+
2%

1(SP)
6%
PC,STYPEC
;gHARCNT

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

2 :SAVE RO
;:GET ADDRESS OF ASCIZ STRING

.,PUSH CHARACTER TO BE

TYPED ONTO STACK

s:BR IF IT ISN'T THE TERMINATOR
;. 1F TERMINATOR POP IT OFF THE STACK
::RESTORE RO
. sADJUST RETURN PC

;sRETURN
s sBRANCH [F

<HT>

:sBRANCH IF NOT <CRLF>
::POP

<CR><LF> EQUIV

;;TYPE A CR AND LF

;. CLEAR CHARACTER COUNT
;sGET NEXT CHARA(CTER
22,60 TYPE THIS CHARACTER
:IS IT TIME FOR FILLER CHARS.?
;:1F NO GO GET NEXT CHAR.
;;GET # OF FILLER CHARS. MEEDED
;;AND THE NULL CHAR.
;.DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STACK
:.GO TYPE A NULL
;D0 NOT COUNT AS A COUNT
. :LOOP

JHORIZONTAL TAB PROCESSOR
112716

004737
132737
001372
005726
000724

007706
007714
007716
007722
007724

105777
100375
116677
122766

001003
105037
000406
122766

000040
007672
000007

8%:

007736

9%:

MovB
JSR

BITB
BNE
TST

171252

000002
000015

171244

BR
$TYPEC: TSTB
BPL

,(SP)

#7 ,$CHARCNT
9%
(SP)
+

2%
a$TPS
$TYPEC

. .REPLACE TAB WITH SPACE
;s TYPE A SPACE

;:BRANCH IF NOT AT
;. TAB STOP
;;POP SPACE OFF STACK

;sGET NEXT CHARACTER
JoWAIT UNTIL PRINTER

IS READY

000002

MOovB
CMPB

2(SP) ,a$TPB
1gR,2(SP)

;.LOAD CHAR TO BE TYPED INTO DATA REG.
::IS CHARACTER A CARRIAGE RETURN?

000002

CLRB
BR
CMPB

$CHARCNT
$TYPEX
#LF ,2(SP)

E1
;IS THARACTER A LINE FEED?

007736
000012

PC.STYPEC

1%:

s sBRANCH [F NO
YES;-CLEAR CHARACTER COUNT

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

2397
2398
2399

2400
2401
2402
2403
2404
2405
24606
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
26417
2418
2619
2420
2421
2422
2423
2424
2425

2426
26427
2428
2429
2430
2431

007732

007734
007736
007740

001402

30A(10S2)

24~-MAY=79

TYPE

ROUTINE

14:10

BEQ
INCB
$CHARCNT: ,WORD
$TYPEX: RTS

105227
000000
000207

.SBTTL
R

PAGE 50

$TYPEX
(PC)+
0
PC

;sBRANCH IF YES
;o COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

BINARY TO OCTAL
RN RN R R AR RN N R

SEQ 0048

(ASCID) AND TYPE
A

*THIS ROUTINE

IS USED

;~CALL:
M
Mov

NUM,-(SP)

AN IR RRR RN R AR RRN AR AN

AR AN NARRRAANA RN A RS

TO CHANGE A 16-BIT BINARY NUMBER

TO A 6-DIGIT

:*OCTAL (ASCII) NUMBER AND TYPE IT.
:*$TYPOS--~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

o %
I
¥
o

TYPOS

.BYTE
BYTE

JJNUMBER TO BE
2;CALL

N
M

FOR

TYPED

TYPEOUT

JeN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
J:M=1 OR 0
;:1=TYPE LEADING ZEROS
;:0=SUPPRESS LEADING ZEROS

| ¢

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

o®

> %

TYPON

;:CALL FOR TYPEOUT

;*%;YPOC---ENTER HERE FOR
s=CALL:
I
MOV
NUM,=(SP)

M
007742
007746
007754
007760
007764
007766
007774
010002
010010
010012
010014
010016
010022
010024
010030
010034
010040
010044
010046
010650

010052
010054
010956
010060
010062

017646
116637
112637

006103

TYPOC

000000
000001
010167
000002

$TYPOS: MOV
MOVB
MOVB
ADD

000001
000006
000005

$TYPOC: MOVB
MOVB
$TYPON: MOVB
MOV
MOV

010167

MggB

000006
010166
010165
000012

B8R

MOV

A 1€ BIT NUMBER

;sNUMBER

TO BE

a(SP) ,-(SP)
1(SP) ,$OF ILL
(SP)+,$0MODE+1
#2,(SP)

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

#1,80FILL
#6,30MODE +1
#5,30CNT
R3,-(SP)
R4 ,~(SP)

:sSET THE ZERO FILL SWITCH
;:SET FOR SIX(6) DIGITS
;sSET THE ITERATION COUNT
::SAVE R3
;s SAVE R4

$TYPON

RS,=-(SP)

;:SAVE RS

;:GET

ADD

#6 R4

;:SUBTRACT

MOVB

$OFILL.RG

MOVB
MOV
(LR
ROL

BR
ROL

3%:

ROL

ROL
ROL
MOV

TYPED

;:CALL FOR TYPEOUT

:2MODE+1,R4

1%:

TYPEOUT OF

R4, $SOMODE

12(SP) ,RS
R3

3%
RS

RS
RS
RS5.R3

THE NUMBER OF

IT FOR MAX.

JoSAVE IT FOR USE
J:GET

THE

DIGITS

ZERO FILL

ALLOWED

SWITCH

;:PICKUP THE [NPUT NUMBER
. :CLEAR THE OQUTPUT WORD

. cROTATE MSB INTO ''C''

;.GO0 DO MSB
;:FORM THIS DIGIT

;.GET LSB OF

THIS DIGIT

TO TYPE

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

2474
2475
2476
2477
2478
2479
2480
2481
2482
2483

042703
001002
005704
001403
005204
052703
052703
110337

177770

003347
002402
005204
000744

2467
2470
2471
2472
2473

010166

104401
105337

2466

2468
2469

105337

100016

010144
010146
010150
010156
010160
010162
010163
010164
010165
010166

012605
012604
012603
016666
012616
000002
000
000
000
000
000000

14:10
PAGE 51
BINARY TO OCTAL (ASCII) AND TYPE

DECB

BPL
BIC

BNE

$OMODE
7$
#177770,R3

4%:

000060
000040
010162
010162
010164

5%:
7%:

6%:
000002

000004
8%:

..GET RID OF JUNK

;. TEST FOR O
;. SUPPRESS THIS 0?

BEQ
INC
BIS
BIS

;:BR IF YES

;:DON'T SUPPRESS ANYMORE 0°'S

;sMAKE THIS DIGIT ASCII
;sMAKE ASCI] IF NOT ALREADY
:sSAVE FOR TYPING
;.60 TYPE THIS DIGIT
;. COUNT BY 1
;.BR IF MORE TO DO
:sBR IF DONE
5o INSURE LAST DIGIT ISN'T A BLANK
;.G0 DO THE LAST DIGIT

MOvB
TYPE
DE(CB

BGT
BLT

INC
B8R
MOV

;;RESTORE RS

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

MOV
MOV
MOV
MOV
RTI

s JRESTORE R4

;cRESTORE R3
¢sSET THE STACK FOR RETURNING

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

cRETURN

..uTORAGE FOR ASCII DIGIT
;; TERMINATOR FOR TYPE ROUTINE
:;OCTAL DIGIT COUNTER
..ZERO FILL SWITCH

$OCNT:
$OFILL:
:
$OMODE

.BYTE
BYTE
.BYTE
.BYTE
.WORD

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

AR AR AN

;sNUMBER OF

A AR AN AR AR NN R AN RN NN

;*THIS ROUTINE

2485

SEQ 0049
sTYPE THIS DIGIT?
BR IF NO

TST

2484

IS USED

RN A RAARARARA R

TO CHANGE

DIGITS TO TYPE

RRN AR AAAN AN

16-BIT BINARY NUMBER

AR AR

TO A S5-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
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;*REPLACED WITH SPACES.

2486
2487
2488
2489
2490
2491

2492
2493
2494
2495
2496
2497
2498
2499
2500

24-MAY-79

olololele]

2453
2454
2455
2456
2457
2458
2459
2460
2461
26462
2463
2464
2465

30A(1052)

s*CALL:
b

- %

010170
010170
010172
010174
010176

010046
010146
010246
010346
010546
012746
016605
100004

005405
112766
005000
012703

010240

112723
005002
016001

$TYPDS:

020200
000020

000055
010404
000040
010374

000001

1%:

2%:

MoV
TYPDS

NUM,
- (SP)

;.PUT THE BINARY NUMBER ON THE STACK
;GO TO THE ROUTINE

MOV
MOV
MOV
MoV
MOV
MOV
MOV
BPL
NEG
MovB

RO,-(SP)
R1,-(SP)
R2.,=(SP)
R3,-(SP)
R5,=(SP)
#20200,-(SP)

;:PUSH RO ON STACK
;:PUSH R1 ON STACK
;sPUSH R2 ON STACK
;JPUSH R3S ON STACK
;:PUSH RS ON STACK
;sSET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
;;BR IF INPUT IS POS.
;sMAKE THE BINARY NUMBER POS.

CLR

MoV
MOVB

CLR

MOV

20(SP) ,RS
1%

R
#'=,1(5P)

RO
#$DBLK ,R3

# RS+

R2
$DTBL (RO) ,R1

;cMAKE

THE ASCI] NUMBER NEG.

s +ZERO THE CONSTANTS INDEX
;+SETUP THE OUTPUT POINTER
;2SET THE FIRST CHARACTER TO A BLANK
J.CLEAR THE BCD NUMBER
;sGET THE CONSTANT

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

010244
010246
010250
010252
010254
010256
010260
010262
010264

160105

24=MAY=79

3%:

5%:

010272

000001
000060
000040

010300

14:10

177777

7%:

000010

ADD
TST
BNE
TSTB
8M]
ASLB
8CC
MovB

8IS
8IS

MOvVB
TST
cMP
BLT

BGT

8%:

010404
000002

177776

:
9%

000004

TSTB
8PL
MovB
CLRB
MOV
MOV

1(SP) ,-1(R3)
#'0,R2
#' LR2
R2,(R3)+
+
(RO)
RO,#10
2%
8%
R5,R2
6$
+
(SP)
9%
-1(SP) ,~2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP)+ ,R2
(SP)
+ ,R1
(SP)+,R0

MOV
MOV
MOV
TYPE
MOV
MOV
RT1

. $DBLK

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

:
$DBLK

10000.
1000.
100.
10.
.BLKW

LSBTTL

TTY

$DTBL:

000012
000004

R1,RS

sSuB
BLT
INC
B8R

MOV

177777

PAGE 52

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

010266
010270

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

30A(1052)

SEQ 0050

;.FORM THIS BCD DIGIT
;;BR IF DONE
;. INCREASE THE BCD DIGIT BY 1
. .ADD BACK THE CONSTANT
;scCHECK IF BCD DIGIT=0
;eFALL THROUGH IF 0
.:STILL DOING LEADING 0°'S?
;.BR IF YES
;.MSD?
;:BR 1F NO
J2YES=-=SET THE SIGN
;cMAKE THE BCD DIGIT ASC!I
JcMAKE IT A SPACE [F NOT ALREADY A DIG I
. sPUT THIS CHARACTER IN THE OUTPUT BUF FER
23 JUST INCREMENTING
;cCHECK THE TABLE INDEX
;.60 DO THE NEXT DIGIT
2:GO TO EXIT
;sGET THE LSD
;:GO CHANGE TO ASCII

JcWAS

THE LSD

THE

FIRST NON-ZERQ?

;:BR ]F NO
;.YES==SET THE SIGN FOR TYPING
;J:SET THE TERMINATOR
. :POP STACK INTO RS

;.POP STACK INTO R3

. sPOP STACK
+2POP 3TACK

INTO RZ2
INTO R1

;:POP STACK INTO RO
;:NOW TYPE THE NUMBER
2 ;ADJUST THE STACK

. sRETURN TO USER

INPUT ROUTINE

""l’tttfittfifitttttfittttttttt*tt'Rttittt*fitttttfit'tttittittttitttitt

010414
010416
010420
010422

000000
000000
000000
000007
010431
010432

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

0
0
0

;*TK INITIALIZE ROUTINE
s*THIS ROUTINE WILL INITIALIZE

;;NUMBER OF ITEMS IN QUEUE
;s INPUT POINTER
2 ;OUTPUT POINTER

;. TTY KEYBOARD QUEUE

THE

TTY KEYBOARD

[NPUT

QUEUE

;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPY

teCALL:

CZRJBDO, RPOL/S5/6 FMTR
CZRJBD.P1
28-MAR-79

30A(1052)

24-MAY-79

TTY INPUT ROUTINE

o
o
005037
012737
013737
012737
012737
00577
012777
000207

010416
010420
000060
000062

14:10

$TKINT:

170444

PAGE 53

SEQ 0051

JSR
RETURN

PC,STKINT

CLR

$TKCNT
#STKQSRT,$TKQIN
$TKQIN, $TKQOUT
#S$TKSRV ,a#TKVEC
#200,3#TKVEC+2
a$TKB
#100,38TKS

MoV
MOV
MOV
MoV
TST
MOV
RTS

;*TK SERVICE ROUTINE
s*THIS ROUTINE WILL SERVICE

THE

¢.CLEAR COUNT OF ITEMS IN QUEUE
:sMOVE THE STARTING ADDRESS OF THE
;sGUEUE INTO THE INPUT & OUTPUT POINTERS.
2o INITIALIZE THE KEYBOARD VECTOR
;0 BR' LEVEL 4
. sCLEAR DONE FLAG
JJENABLE TTY KEYBOARD INTERRUPT
J2RETURN TO CALLER
TTY KEYBOARD

INTERRUPT

;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;*IT IN THE QUEUE.

s*I1F

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
010516
010520
010524
010530
010532
010536

010542
010544
010552
010554
010554

117746

042716
021627
001007
104401

004737
005726
000177
021627
001004
022737
001500
022737
001004
104401
005726
000451
021627

$TKSRV: MOVB

170440
177600

BIC

000003

011615
010432

LSCNTLC

PC,STKINT

+
(SP)

170542
000007

aCNTLC

(SP) .47

000176

001140

000007

010414

pié3

#SWREG, SWR

2%:

000023

3%:

CMP

170336
170330

31%:

T1STB

170324
177600

010414
000140

000175
042716

000040

32%:

INC

(~()

s INIT THE KEYBOARD
s CLEAN UP STACK
;;CONTROL € RESTART
¢:;1S IT A CONTROL G?
s ;BRANCH IF NO
;.18 SOFT-SWR SELECTED?
;GO TO SWR CHANGE

+
(SP)
13
(SP) ,#23

::g&??N CHARACTER OFF OF STACK

32%
asTKS

(SP)+
a$TKS

31$
3$TKB, - (SP)
(SP)+, 421

170302

;.TYPE A CONTROL-C

..1S THE QUEUE FULL?
¢ ;BRANCH IF NO

#-C177.(SP)

000021

;sP1CKUP THE CHARACTER
::STRIP THE JUNK
;.1S IT A CONTROL C?
: sBRANCH IF NO

#7 ,STKCNT

3$
JBBELL

001162

000100

a$TKB, - (SP)

#°C177.(SP)
(SP) 4%

;sRING THE

TTY BELL

;:1S IT A CONTROL-S?
; ;BRANCH IF NO

;;DISABLE TTY KEYBOARD INTERRUPTS
. sCLEAN CHAR OFF STACK
;sWAIT FOR A CHAR
;;LOOP UNTIL ITS THERE
:sGET _THE CHARACTER

soMAKE IT 7-BIT ASCII

318

#100,387KS

;:1S IT A CONTROL-Q?
s cBRANCH IF NO
::REEGQELE TTY KEYBOARD INTERRUPTS

$TKCNT
(SP) ,4140
4%
(SP) ,#175
48
#40, (SP)

s COUNT THIS CHARACTER
s.1S 1T UPPER CASE?
s sBRANCH IF YES
s.1S IT A SPECIAL CHAR?
s sBRANCH IF YES
;/MAKF [T UPPER CASE

C2ZRJBDO, RPO4/5/6 FMIR MACY11
CZRJBD.P11
28-MAR-79 11:23
070570
010674
010700
010706
010710
010716

112677

005237

30A(1052)

177522
010416
010416

010431

010422

010416

24-MAY-79

14:10

TTY

INPUT ROUTINE

mMovBe
INC
CMP
BNE

MOV
RT!

PAGE 54

SEQ 0052

(SP)+,a$TKQIN
JoAND PUT IT IN QUEUE
$TKQIN
J;UPDATE THE POINTER
g;KQIN,#STKQEND ;:G0 OFF THE END?

;;BRANCH IF NO

HSTKQSRT ,$TKQIN J¢RESET THE POINTER

; cRETURN

S oA AR AR AR AN AR AR AR AR AR AR AN AR A AR A AN AN AR AR AAARRAARRANRR

AN AR

;*¢ & “WARE SWITCH REGISTER CHANGE ROUTINE.
:*Rix3TINE IS ENTERED
FROM THE TRAP HANDLER, AND WILL

010720
010726
010730
010734
010736
010742
010746
010752

022737
001124
105777
100121
117746
042716
021627
001300

000176

001140

:«SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE.

$CKSWR:

170210

(MP

BNE

TSTB
BPL
MOVB
BIC
CMP

1702C4
177600
000007

BNE

#SWREG, SWR

158
a$TKS

15$
as$TKB, - (SP)

#2C177. (SP)
(SP) 47
2$

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

JoMAKE IT 7-BIT ASCII
;.1S IT A CONTROL-G?
soIF NOT, PUT IT IN THE TTY QUEUE
JsAND EXIT

AR R A AN AN AN AR AR AR AR AAANRRARAARARAARRRRRARAARARAAANRNAARAR

123727
001674
005726
004737
005077
112737

011004
011010
011014

104401
104401

013746
005046
005046
105777
100375

OQOOOOOOO0O0

BN
a—d

—a—d

010754
010762
010764
010766
010772
010776

OO0

;*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

104402
104401

117746

042716

021627
001015
104401
062706
123727
001003

012777
000177

001134

000001

010432
170146
000001

001135

011627
011634
000176

:*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
;*CONTROL=-G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
6$:
CMPB
SAUTOB, #1
¢ sARE WE RUNNING IN AUTO-MODE?
BEQ
2%
¢ sBRANCH IF YES
TST
(SP)
+
;s CLEAR CONTROL-G OFF STACK
PC,$TKINT
JSR
s.FLUSH THE TTY INPUT QUEUE
CLR
a$TKS
;.DISABLE TTY KEYBOARD INTERRUPTS
#1,8INTAG
MOvB
:sSET INTERRUPT MODE INDICATOR

$GTSWR:

011645

19%:

170106

7%:

TYPE
TYPE
)
TYPOC
TYPE

CLR
CLR
TSTB

8PL

.SCNTLG
. SMSWR

SWREG,-(SP)

- SMNEW

=(SP)
-(SP)
a$TKS
7%

;.ECHO THE CONTROL-G (*G)

;. TYPE

CURRENT CONTENTS

;. SAVE SWREG FOR TYPEOUT
:.GO TYPE-~OCTAL ASCII(ALL DIGITS)
: ;PROMPT FOR NEW SWR
;. CLEAR COUNTER
;. THE NEW SWR

;s CHAR THERE?
¢ 1F NOT TRY AGAIN

170102
177600

MOVB

BIC

#°C177.(SP)

a$TKB,~(SP)

::PICK UP CHAR
JcMAKE IT 7-BIT ASCII

000003

CMP
BNE
TYPE
ADD
CMPR

(SP) 43
9%

;oIS IT A CONTROL=-C?
;J:BRANCH IF NOT
;2YES, ECHO CONTROL=C (~C)
;sCLEAN UP STACK
;;REENABLE TTY KEYBOARD INTERRUPTS?
;:BRANCH IF NO
;;ALLOW TTY KEYBOARD INTERRUPTS
;s CONTROL~C RESTART

011615
000006
001135
000100
170170

000001
170040

BNE

8$:

MOV

JMP

$INTAG,#1

8%
#100,a8TKS
aCNTLC

123727
001003

012777
000002
004737
021627
002420
021627

puwPouur G

003015
042726
005766
001403
006316
006316
006316

011260

005266
056616
000667
104401
000720

011622
000006

mMp
BNE

(SP)
, 425
10%

20%:

ADD

#6,SP
19%

000015

10%:

CMP
BNE

(S P) ,X15
16 $
4( SP)
11 $
2( SP) ,aSWR

00,004

TST

000002
000006
001167
001135

167766

000001

000100

167744

BEQ

007672
000060

15%:
16%:

000060
000002

000002
177776

MOV

#100,387TKS

ASL
ASL
ASL

17%:

001166

# 6,5P

RT]
JSR
CMP
BLT
(MP
8GT
BIC
TST
BEQ

000067

INC
BIS

18%:
.DSABL

LSCNSLU

MOV
ADD
TYPE

CMPB
BNE

BR
TYPE
BR
LSB

SCRLF

$INTAG,#1
15%

PC.STYPEC
(SP) ,#60

18%
(SP) ,#67
18%
#60, (SP) +
2(SP)
17%
(SP)
(SP)
(SP)

2(SP)

=2(SP), (SP)
7$

. SQUES
20%

AR AR A AR AR AN AR

5
SEQ 0053

9% :

TYPE

;:1S IT A CONTROL-U?
J cBRANCH [F NOT
;. YES, ECHO CONTROL-U (*U)
;. IGNORE PREVIOUS INPUT
J.LET'S TRY IT AGAIN
J0IS IT A <CR>?
s BRANCH [F NO
ssYES, IS IT THE FIRST CHAR?
s sBRANCH IF YES
;s SAVE NEW SWR
:;CLEAR UP STACK
;;ECHO <CR> AND <LF>
; cRE-ENABLE TTY KBD INTERRUPTS?
;cBRANCH IF NOT
. cRE-ENABLE TTY KBD INTERRUPTS
; sRETURN
:sECHO CHAR

;:CHAR < 0?

;:BRANCH IFf YES
;:CHAR > 7?

. JBRANCH IF YES
:;STRIP-OFF ASCII
;21S THIS THE FIRST (CHAR
; ;BRANCH IF YES
;sNO, SHIFT PRESENT
o
CHAR OVER TO MAKE
MM
ROOM FOR NEW ONE.
;.KEEP COUNT OF CHAR
;:SET IN NEW CHAR
c2GET THE NEXT ONE
J2TYPE

2<CR>SLF>

;s SIMULATE CONTROL-U

AN TR AN R RRAAAARRRARR A A RN

AN ARNRRARN AR RRRS

J*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

;*CALL:

I
o

oNMn

e
e
N

uuvnnvgg
33 SANER
WWNWNWN
N — —

b cmd

e
R

)
b

R
e

—d nd vmd

e R

jelelalelelolelelelole

) ad md -

011646

000004
000004

000002

]

$RDCHR:

011306
:
648

010414
117766

010414
177074

1%:

000004

RDCHR
RETURN HERE

2.GET A CHARACTER FROM THE QUEUE
; ; CHARACTER IS ON THE STACK

::WITH PARITY BIT STRIPPED OFF

MOV
MOV
CLR
CLR
MOV

(SP) ,~(SP)
4(SP) ,2(SP)
4 (SP)
-(SP)
#6468 ,-(SP)

TST

J;WAIT ON A CHARACTER
1%
$TKCNT
. cDECRE-IENT THE COUNTER
A$TKQOUT ,4(SP) .« ;;GET ONE CHARACTER

RT]

BEQ
DEC

MOVB

$TKCNT

;sPUSH DOWN THE PC AND

;2 THE PS

;:GET READY FOR A CHARACTER
;sPUT NEW PS ON STACK
. sPUT NEW PC ON STACK

;;POP NEW PC AND PS

PAGE 55

000025

LX)

021627
001022
005766
001403
016677
062706
104401

14:10
TTY INPUT ROUTINE

—

104401

062706
000737

24=-MAY-79

SGUCDNHDHJOWUJ\hJOMBCD
QO NNOWNWNEL

021627
001005

30A(1052)

—

NN
O

s
—_—

PIND
— —d 3

MNNWW

—a2

Punr-Gunr G

Guur

Guasr Qo Gorer

[eleleolololelolelolalolololololeololele)

s Punr uur Ghoer Gour hrd

3353535

elalelele

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

010420
010420

010431

010422

010420

TTY

14:10

INPUT ROUTINE

INC
[
BNE

MOV
RT!

PAGE 56

SEQ 0054

$TKQOUT
;sUPDATE THE POINTER
g;KQOUT.#sTKQEND :.DID IT GO OFF OF THE END?
; sBRANCH IF NO

#$TKQSRT,$TKQOUT :;RESET THE POINTER

AR AR AR R AN R AR AR A AR

s -RETURN

A AN A RR AR AR AR NN RN RN

:*xTHIS ROUTINE WILL INPUT A STRING FROM THE TTY

s*CALL:
:t
;t

RDLIN
RETURN HERE

011352
011354
011356
11362
011366
011370
011372
011374
011400
011402
011404
011406
011414
011420
011424
011426
011432
011434
011440
011444

011446
011450

010346
005046
012703
022703
101456
104410
112613

000177

000134
011604
177777

BREFNERERN

ALY AUV, LV, NV, LV, LV, LV, 1V, TV, 1V, 1V, ]
NN
= w2
A A

ord
P
d
b
b
b
d

G- Gusr Ghur Ginr G- Gonr P

b md
e
b
d
—d
d

=(SP)
#STTYIN,R3
HSTTYIN+7
,R3
4%

10%:

(SP)+,(R3)
#177,(R3)

6%:

011604
011604

RDCHR
MOVB

CMPB
BNE
TST
BNE

movB
TYPE
MOV

DEC
(MP
BLO

MOvVB
TYPE

5%:

000134
011604

R3,-(SP)

$RDLIN: MOV
CLR
1%:
MOV
2%:
CMP
BLOS

011604

011606

000025

b e

2788

005237
023727
001003
012737
000002

24-MAY-79

SRR

eleleleolelelalelolelolelelolele]

2785
2786
2787

oM 32 6
011 33 2
011 34 0
on 34 2
01135 0

PuvrQur Qo Phur Quur Guer G

2733
2734
2735
2736
2737
2738
2739
2740
27461
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784

30A(1052)

BR
TST

011604
011604
000015
177777

001170

;:INPUT A STRING FROM THE TTY
;;ADDRFSS OF FIRST CHARACTER WILL BE ON THE STACK
;TERMINATOR WILL BE A BYTE OF ALL 0°'S

(SP)

#'\,9%

;s TYPE A BACK SLASH

#-10(SP)

;.SET THE RUBOUT KEY
. ;BACKUP BY ONE
;sSTACK EMPTY?

,9%

R3
R3,4STTYIN

3
(R3),9%
$

011604

.:BR IF NO

;sBR IF YES
;.SETUP TO TYPEOUT THE DELETED CHAR.
;.60 TYPE
;260 READ ANOTHER CHAR.
:sRUBOUT KEY SET?
;:BR IF NO
;. TYPE A BACK SLASH

;:CLEAR THE RUBOUT KEY
2.1S CHARACTER A CTRL U?

7%:

;:BR IF NO

;:TYPE A CONTROL

;60 START OVER

8%:

‘U’

;. 1S CHARACTER A ‘TMR'"TM

. :BRANCH IF NO
;. CLEAR THE (CHARACTER

001167
011606
001166

R RN RNRRRAN

;:SAVE R3
:2CLEAR THE RUBOUT KEY
;:GET ADDRESS
;;BUFFER FULL?
;cBR IF YES
..G0 READ ONE CHARACTER FROM THE TTY
;.GET CHARACTER
221S IT A RUBOUT
;:BR IF NO
;. 1S THIS THE FIRST RUBOUT?

011622
000022

N AR R AN

J;TYPE A “'CR'
& 'LF"

;. TYPE THE INPUT STRING
;.60 PICKUP ANOTHER CHACTER

4%:

JJTYPE A

,9%
515,(R3)+
$
-1(R3)
.SLF
(SP)+

*?°

. .CLEAR THE BUFFER AND LOOP
;cECHO THE CHARACTER

;s CHECK FOR RETURN
;.LOOP IF NOT RETURN
;.CLEAR RETURN (HE 15)
;. TYPE A LINE FEED
;. CLEAN RUBOUT KLY FROM THE STAC(K

—

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

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

2789

011562
011564
011566
011574
011602

30A(1052)

24-MAY-79

TTY

INPUT ROUTINE

012603

011646

016666
012766

000002
000
000
000007
136
052536
136
005015
020075
040
036440

14:10

MOV

000004
011606

MOV

000002
000004

006503
005015
006507
053523
000
047040
000040

SEQ 0055

(SP)+,R3

;RESTORE R3

(SP) ,~(SP)

..ADJUST THE STACK AND PUT ADDRESS OF

MOV
MOV

4(SP) ,2(SP)
ASTTYIN,4L(SP)

O
;:STORAGE FOR ASCII CHAR. TO TYPE
0
;s TERMINATOR
7
;sRESERVE 7 BYTES FOR TTY INPUT
/%C/<15><12>
::CONTROL ‘'c*’
/*U/<15><12>
;;CONTROL 'V’
/4G/<15><12>
:JCONTROL ''G'’
<15><12>/SWR = /
/

RTI

9% :

PAGE 57

FIRST ASCII

CHARACTER ON [T

THE

JsRETURN

000012
000
000012
020122

$TTYIN:
$CNTLC:
$CNTLU:
$CNTLG:
SMSWR:

BYTE
BYTE
BLKB
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

053505

SMNEW:

.ASCIZ

LSBTTL

TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

NEW =

ti**t*t*tt*t*t**tt*fittttttttfittttt**t*tttttttfittttfittfittt*t'tt*

*THIS ROUTINE

IS USED

;*CALL
I*

ANUMADR , - (SP)

;cFIRST ADDRESS OF

RO,-(SP)
4(SP) ,RO
(RO)
2%
#'0,(RO)+
1%

;:SAVE RO
;;PICKUP THE POINTER
;s TERMINATEOR?
;:BR IF YES
;1S THIS AN ASCII "0
?
;2BR IF YES
;.BACKUP BY '"1*'
;:SAVE FOR TYPING

;*LEADING NUMBERS.

011656
011660
011664

010046
016600
105710

001403
122720
001773
005300
010037
104401

000004

000060
011706

000000
012600
012616
000207

MOV

JSR

PC,a#8SUPRS

$SUPRS: MOV
MOV
1%:
TSTB
BEQ
CMPB
BEQ
2%:
DEC
MOV

RO
RO,3%

.SBTTL
SRR

TYPE

.WORD

MOV
MOV
RTS

TO TYPE AN ASCIZ NUMBER SUPPRESSING THE

::G0 TYPE

;;ASCIZ POINTER GOES HERE

(SP)+,R0
(SP)+,(SP)
PC

;JRESTORE RO
;JRESTORE THE STACK
2 JRETURN

AR A AR R N R AR AN AN AN AR R AR AR R AR R RARRN AR RRARNNNNANRRARNANNR
RS

WILL

CONVERT A

16-BIT UNSIGNED BINARY NUMBER

;*UNSIGNED DECIMAL ASCIZ NUMBER.
s*CALL

016637
012746
004737
062716
012666

000002
011746
011752
000005
000002

011746

STRING

SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

c*THIS ROUTINE

MOV

RETURN

$SB2D:

MOV
MOV
JSR
ADD

ASCIZ

JSR

MOV

NUMBER ,~-(SP)

PC,a#%$SB2D

2(SP),1%
#1%,-(SP)
PC.a#8DB2D
#5,(SP)

(SP)+,2(SP)

TO AN

. «PUT BINARY NUMBER ON THE STACK

;< CALL

. cADDRESS OF

THE

1ST ASCIZ CHAR.IS ON THE

;:SAVE BINARY NUMBER
::SET POINTER
;o CALL DOUBLE LENGTH CONVERT
;oONLY ALLOW FIVE CHARACTERS

S:PICKUP POINTER

STACK

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

011744
011746

000207
000000

30A(1052)

24=-MAY=79

14:10

PAGE

SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

000000

RTS

1%:

.WORD

.SBTTL
N

. JRETURN

C.0

DOUBLE LENGTH BINARY TO DECIMAL ASCII

AR AR R

SEQ 0056

CONVERT ROUTINE

R AR AR AR AR RN AR AT AN N RRA AR R AR RN KRR R A AR AN NN RN N ANANARRANRR AR KRS

;*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER T0O AN UNSIGNED

;*gg%f??bE(ASCII)
-.

;*CALL
- w
. %

011752
011754
011760
011764
011770
011772
011774

104412

016602
012700

$DR?2D:

000002
012132
000002

000012
012062
012064

012050

3%:

000060

MOV
JSR
RETURN

SAVREG

MoV
MOV
MOV
MoV
MOV
MOV
MOV
MOV

CLR
su8
SB(C
Su8
BLT
INC
BR
ADD
ADC
ADD
(MP
BI1S

THE

#PNTR,-(SP)
PC,a#$DB2D

2(SP) ,R?

#$DECVL ,RO
RO,2(SP)
(R2)+,R1
(R2)+,R2
#10.,49
#STNPWR
R4
#STNPWR+2
RS

(R4) ,R1
R2
(R5) ,R2

3%
R3
2%

(R4)
+ ,R1

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

#'0,R3

R3,(R0O)+
(PC)+

4%:

$TNPWR:

NUMBER.

SIGN OF

1%
(RQ)
+

THE BINARY NUMBER MUST BE

;;POINTER TO LOW WORD OF BINARY NUMBER
;. THE FIRST ADDRESS OF ASCIZ
;. IS ON THE STACK
;- SAVE REGISTERS
;;PICKUP THE DATA POINTER
;:GET ADDRESS OF ''$DECVL'' STRING
;;PUT ADDRESS OF ASCIZ STRING ON STACK
.;PICKUP THE BINARY NUMBER

;:SET UP TO DO 10 CONVERSIONS
; ;ADDRESS OF TEN POWER

;:CLEAR PARTIAL

;:SUBTRACT TEN POWER
;:BR IF

;;ADD 1

TEN POWER TO LARGE

TO PARTIAL

;.LOOP
;JRESTORE SUBTRACTED VALUE

;:MOVE TO NEXT TEN POWER
;s CHANGE PARTIAL TO ASCII
ssSAVE IT
;:DONE?

csBR [F NO
;: TERMINATOR
;;RESTORE REGISTERS
: JRETURN

2:1.0€09

;:1.0€08

::1.0E07
;:1.0E06

;:1.0€05
.

;1.0E04

CZRJBDO, RPO4/5/6 FMTR
MACY11
CZRJBD.P1T
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)

F
14:10
PAGE 59
DOUBLE LENGTH BINARY TO DECIMAL ASCII

24~-MAY-79

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

sg}}

.SBTTL

2913

CONVERT ROUTINE

;:1.0E03
;:1.0€02
;. 1.0e01
2:1.0€E00
12.

s ;RESERVE STORAGE fOR ASCIZ STRING

SAVE AND RESTORE RO-RS5 ROUTINES

M ttttt*tt*tt*ttktttttttttitfitttt*tttttttttttt'tti.*kttfitttfitt'tt

2914
2915

: *SAVE RO-RS
s*CALL.

2916

SAVREG

%g}g

*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929

*TOP---(+16)
Jx #2=-=(+18)
;% +4==-R5
;% +6==-R4
;% +8--=R3
;*+10--~R2
ix+12-==R1
:*+14=~-R0

2930
2931
2932
2933
2934
2935
2936
2937

2938
2939
2940
2941
2942
2943
2944

2945

2946
2947
2948
2949
2950
2951
2952
2953
2954
2955

012146
012146

012150
012152
012154
012156
012160
012162
012166
012172

012176
012202

012204

012210
012214
012220
012224
012226
012230
012232
012234
012236
012240

010046
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

012666

012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

$SAVREG:

000022
000022
000022
000022

000022

000022
000022
000022

MOV
MOV
MoV
MOV
MoV
MoV
MoV
MoV
MOV

MOV
RTI

RO,-(SP)
R1,-(SP)
R2.=(SP)
R3,-(SP)
R4 ,-(SP)
R5,-(SP)
22(SP) ,-(SP)
22(._ ) ,=(SP)
22(SP) ,~(SP)

22(SP) ,-(SP)

::PUSH
s:PUSH
;:PUSH
;:PUSH
,,PUSH
;:PUSH
,,SAVE
;SAVE
::SAVE
;:SAVE

RO
R1
R2
R3
R4
R5
PS
PC
PS
PC

ON STACK
ON STACK
ON STA(CK
ON STAC(K
ON STACK
ON STACK
OF MAIN FLOW
OF MAIN FLOW
OF CALL
OF CALL

(SP)+,22(SP)

;.RESTORE PC OF

J*RESTORE RO-RS
*CALL
RESREG
SRESREG
MoV

MoV
MOV
MOV
MoV
MOV
MoV
MOV
MOV
MOV
RT1

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,R5
(SP) + R4
(SP)+,R3
(SP)+,R?
(SP) + ,R1
(SP) +,R0

C(ALL

;oRESTORE PS OF CALL
;;RESTORE PC OF MAIN FLOW
;cRESTORE PS OF MAIN FLOW
;.POP STACK INTO RS
. POP STACK INTO R4
;:POP STACK INTO R3
;.POP STACK INTO R2
. .POP STACK INTO R1
;.POP STACK INTO RO

SEQ 0057

CZRJBDO, RPO4/5/6 FMTR

CZRJUBD.P11

MACY11

28-MAR-79 11:23

30A(1052)

Sggg

24~MAY~79

TRAP DECODER

.SBTTL

2959

SEQ 0058

TRAP DECODER
AN A AR

AN RN AR AR RN RO AR RN R RN A AN

R AN A AR

;%GO TO THAT ROUTINE.

012242
012244
012250
012252
012254
012256
012262

010046
016600
005740
111000
006300
016000
000200

$TRAP:

000002

012276

%g;g

MOV
MOV
TST
MOvB
ASL
MOV
RTS

;s THIS IS USE

012264
012266
012274

011646
016666
000002

000004

000002

RO,-(SP)
2(SP) RO
~-(R0O)
(RO) ,RO
RO
$TRPAD (R0O) ,RO
RO
TO HANDLE

$TRAP2: MOV
MOV
RT1I

;s SAVE RO
.sGET TRAP ADDRESS
;;BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;. INDEX TO TABLE
;G0 TO ROUTINE

THE ‘‘GETPRI'' MACRO

(SP) ,-(SP)
4(SP) ,2(SP)

. :MOVE THE PC DOWN
;.MOVE THE PSW DOWN
;cRESTORE THE PSW

ggg?

.SBTTL

2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
Sgg%

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF
;=BY THE '‘TRAP'' INSTRUCTION.

012276
012300
012302
012304
012306
012310

012264
007522
007766
007742
010002
010170

Sggg

012312

011010

2996
2997
2998
2999
%88?

012314
012316
012320
012322
012324

010720
011262
011352
012146
012204

;

;.
$TRPAD:

)

TRAP TARLE
THE ROUTINES CALLED

ROUT INE

meeseee
.WORD
$TRAP?

$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

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
;. CALL=CKSWR
$RDCHR ;; CALL=RDCHR
$RDLIN
;. CALL=RDLIN
$SAVREG .. CALL=SAVREG
$RESREG ,;;CALL=RESREG

3002
3003
%88%

.SBTTL

3006
3007
3008

;COPYRIGHT (C) 1976
;DIGITAL EQUIPMENT CORP.
JMAYNARD, MA 01754

3011

%8?3

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

5322

2976
2977
gg;g

PAGE 60

RN AR R R AR R AN AR R AN AR

2960
2961
2962

2965
2966
2967
2968
2969
2970
2971
2972
2973

14:10

TRAP+7(104407)
TEST FOR CHANGE IN SOF T-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) SAVE RO-RS ROUTINE
TRAP+13(104413) RESTORE RO-RS ROUTINE

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

JAUTHOR(S): JIM LACEY/CHUCK HESS
A R AR AR R AN R N AN R A A RN AN R RO N AN R A P RN R

R AR N R RN

AN N RPN R

TN RN

CZRJBDO, RPO4L/5/6 FMTR

CZRJBD.P11

MACY11

28-MAR-79 11:23

30A(1052)

3013

24-MAY-79

JRPERRS+6 = RPER3

012326
012334

000000
000000

000000

RPERRS:
.TABLE

DRIVE

0,0,C,0
ACTIVE

INDICATORS

(DRVA(T=8 BYTES)

;DRVACT=0 IF DRIVE

IS IDLE

;DRVACT<0 IF DRIVE

IS ACTIVE WITH AN ERROR RECOVERY OPERATION

000
000
000
000
000
000
000
009

DRVACT:

.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
.BYTE

O
0
0
O
0
0
0
0

;DRIVE
;DRIVE
;DRIVE

;DRIVE
;DRIVE

;DRIVE

;DRIVE
;DRIVE

NOAWVN
S AN = O

012336
012337
012340
012341
012342
012343
012344
012345

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

;DRVSTA=Q IF DRIVE IS OFFLINE OR NONEXSITENT

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

0
0
0
0
0
0
0
0

;TABLE OF DRIVE

TYPES

DRVTYP:

0
0
0
0
0
0

IS ONLINE
IS UNSAFE

;DRIVE

:DRIVE
;DRIVE
;DRIVE

;DRIVE

;DRIVE
;DRIVE
:DRIVE

NOWVNES
NN - O

;DRVSTA>Q IF DRIVE
:DRVSTA<O IF DRIVE

(DRVTYP=8 BYTES)

012356
012357
012360
012361
012362
012363

012364
012365

000
000
000
000
000
000

000
000

.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

BYTE
BYTE

0
0

s TABLE OF DUAL PORT INIT]
;DPINT=0 IF INITI
;DPINT<O IF INITI]

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

;DRIVE

(DRVSTA=0, ALSO)

NOWVNES
WA —O

;DRVTYP=0 IF DRIVE IS NONEXISTENT
;DRVTYP=1 IF DRIVE IS RPQ4
;DRVTYP=2 IF DRIVE IS RPQS
;DRVTYP=4 IF DRIVE IS RPO6
;DRVTYP=~1 IF NOT RP04/5/6

3052
3053
3054
gggg

3066
3067
3068

.WORD

;DRVACT>0 IF DRIVE IS ACTIVE WITH A COMMAND

%82?

3063
gggé

(REV 1.0)

JRPERRS
= RPDSI
;RPERRS+2 = RPER1
;RPERRS+4 = RPER2

3016

3057
3058
3059
3060
3061
3062

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER

%8};

3041
3042
3043
3044
3045
3046
3047
%828

PAGE 6

;STORAGE FOR RPDS1, RPER1, RPERZ, AND RPER3 ON AN ERROR ‘2"

3014
3015

3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
%828

14:10

ION INDICATORS
ON IS NOT ACTIVE ON THE DRIVE
ON IS IN PROGRESS

SEQ 4059

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

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

012366
012367
012370
012371
012372
012373
012374
012375

000
000
000
000
009
000
000
000

30A(1052)

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

S NN =OVO NN WOV

)
b
D md
kb —h
d
cd
=
b md
b
md cd

PORONININD
= =d b e d e = d d el QO

AN LN AN AN AN N AN AN N AN AN N NN NN

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

;DRIVE 0

0
0
0
0
0
0
O

sDRIVE
;DRIVE
JDRIVE
;DRIVE
JDRIVE
;DRIVE
;DRIVE

1
2
3
4
5
6
7

;TABLE OF PENDING DUAL PORT REQUESTS
;DPRQS=0 [F
;DPRQS<0 IF

012376
012377
012400
012401
012402
012403
012404
012405

DPRQS:

.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE
THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE

0
0
0
0
0
O
0
0

;DRIVE
;DRIVE
;DRIVE
JDRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

O
1
2
3
4
5
6
7

s TRANSFER WAIT FLAG (TRNSWT=1 WORD)
sTHIS IS A ONE WORD QUEUE. IT WILL

:'DPB'* OF

012406

000000

TRNSWT:

.WORD

THE [/0 OPERATION.

CONTAIM

THE

ADDRESS OF

;SEARCH WAIT KEYS (SRCHWT=1 WORD)

sTHIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF
:THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE [/0

3100

3i01
3102
3103
3104
3105
3106
3107

.BYTE

SEQ 0060

JREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE.
;EACH DRIVE

012410

000000

SRCHWT:

.WORD

IS ASSIGNED ONE BIT,

STARTING AT BITOO FOR DRIVE 0.

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

012412

000

ACTDRV:

.BYTE

;SOFTWARE TIMER ROUTINE ACTIVI
;ACTSTR=0 IF

SOF TWARE

FLAG (ACTSTR=1 BYTE)

TIMER ROUTINE

INACTIVE

JACTSTR>0 IF SOFTWARE TIMER ROUTINE IS ACTIVE
012413

000

ACTSTR:

.BYTE

JUNLOAD FLAG (ULDFLG=8 BYTES)

;ULDFLG=0 IF NO UNLOAD COMMAND
JULDFLG>Q IF UNLOAD COMMAND [N PROGRESS
JULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE

012414

000

ULDFLG:

.BYTE

;DRIVE

012415
012416
012417
012420
012421
012422
012423

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

000
000
000
000
000
000
000

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE

SEQ 0061

JDRIVE 1
;DRIVE
;DRIVE
;DRIVE
;DRIVE
sDRIVE
;DRIVE

NONWN SN

3125
3126
3127
3128
3129
3130
3131

30A(1052)

lololeolololele

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

012424
012425
012426
012427
012430
012431
012432
012433

000
000
000
000
000
000
000
000

LACNT:

_BYTE
BYTE
.BYTE
.BYTE
.BYTE
BYTE

.BYTE

:DRIVE
;DRIVE
;DRIVE
:DRIVE

;DRIVE

JDRIVE

;DRIVE
;DRIVE

SNOVWNAB
W
=O

36
37
3138
3139
31640
3141
3142
3143

elelelelalelele)]

;LOOK AHEAD COUNT (LACNT=8 BYTES)
;LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED

;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).

sSAVEFG=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 TRANSFLR START A SEARCH COMMAND
;SEEXFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS,
;DISREGARD THE WINDOW

177777
177777
177777
177777
177777
177777
177777
177777

SEEKFG:

.WORD

;TIMEOUT

TABLE (TIMER=8 WORDS)
;THIS TABLE CONTAINS THE

TIMER:

.WORD

.WORD
-WORD
.WORD
-WORD

.WORD
.WORD
.WORD

-1
-1
-1
-1
-1
-1
-1
-1

;DATA TRANSFER UNDERWAY

TIME ALLCWED FOR AN OPERATION

;DRIVE 0

;DRIVE
;DRIVE
;DRIVE

;DRIVE

;DRIVE
;sDRIVE
;sDRIVE

—

012440
012442
012444
012446
012450
012452
012454
012456

000000

3164
3165
3166
3167
3168
3169
3170
3171

012436

NONWN

3159

INDICATOR

(DTUW=1

WORD)

;DTUWKO IF NO DATA TRANSFER UNDERWAY
;DTUW=+N (WHERE N=0 TO 7)

3177

012460

177777

DTUW:

.WORD

IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

-1

SJATTENTION BITS TABLE (ATABIT=8 BYTES)
;THIS TABLE CONTAINS THE CORRESPONDING BIT

TO EACH DRIVES

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

30A(1052)

24~MAY =79

14:10
PAGE 64
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

3181

SEQ 0062

SATTENTION BIT

012462
012463
012464
012465
012466
012467
012470
012471

ATABIT:

.BYTE

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE

2
4
10
20
40
100
200

:RP04/5/6 TO RH11

;CALLING IT FATAL

012472

000003

MCPEMX:

.WORD

;DRIVE 0

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

1
2
3
4
5
6
7

MASSBUS CONTROL BUS PARITY ERRORS'' (MCPE) ALLOWED BEFORE

(MCPEMX=1 WORD)

;STORAGE FOR RPADR (THE FIRST ADDRESS

sRPVEC

012474
012476

176700

000254

000240

(THE VECTOR ADDRESS

RPADR:
RPVEC:

.WORD
.WORD

(254)),

(776700) OF

AND RPVEC+2

000004

(THE BR LEVEL

(5)).

176700
254,5+32.

sMAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS &4
012502

THE RH11/RP04/5/6),

MXLACT:

.WORD

MXDLTA:

.WORD

8.%64.

MANDLTA:

.WORD

2%64.

MXWNDW:

.WORD

(MXLACT=1 WORD)

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

012504

001000

sMINIMUM DELTA DELAY IS 2 SECTORS

012506

000200

(MNDLTA=1 WORD)

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

012510

000005

;DEFINITIONS OF
000000
000002
000004

RPCS1=0
RPW(=2
RPBA=4
RPDA=6
RPCS2=10
RPDS1=12
RPER1=14
RPAS=16
RPLA=20

RPDB=2?2

RPMR=24
RPDT=26
RPSN=30
RPOF =32
RPCA=34
RPCC=36
RPER2=40
RPER3=42
RPEC1=44

THE RH11/RP04/5/6 ADDRESS INDEXES
sCONTROL AND STATUS REGISTER #1 (DRIVE REG. 00)
;WORD COUNT REGISTER (NOT A DRIVE REG)
sUNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG.
;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
;DRIVE STATUS REGISTER (DRIVE REG 01)
;ERROR REGISTER #1 (DRIVE REG. 02)
JATTENTION 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)
;SERIAL NUMBER REGISTER (DRIVE REG. 10)
;OFFSET REGISTER (DRIVE REG. 11)
sDESIRED CYLINDER ADDRESS REGISTER (DRIVE REG.
sCURRENT CYLINDER_ADDRESS REGISTER (DRIVE REG.
;ERROR REGISTER #2 (DRIVE REG. 14)
;ERROR REGISTER #3 (DRIVE REG. 15)
SECC POSITION REGISTER (DRIVE REG. 16)

12)
13)

05)

CZRJBDO, RPO4/5/6 FMTR MA(Y11
CZRJBD.P1
28-MAR-79 11:23

3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250

30A(1052)

000046

L
14:10
PAGE 6
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER

24-MAY-79

RPE(2=46

(REV 1.0)

SEQ 0063

sECC PATTERN REGISTER (DRIVE REG.

17)

;RH11/RP04/5/6 DRIVER INITIALIZATION CODE

s THIS ROUTINE WILL DETERMINE WHICH RP04/5/6 DRIVES ARE

JAVAILAGLE FOR TESTING AND SET THE DRVSTA INDICATOR

;TO THE PROPER STATE

FOR EACH DRIVE.

sNOTE:

THIS ROUTINE CALLS DRVINT

JSR

PC,RPINIT

tCALL
:

RETURN

INOTE: THE 'P' OR 'L’ CLOCK MUST BE STARTED
012512

104412

013746
012737
004737
012701
012702
005021
020102

101775
012702
012721
020102
101774
005037
005037
005037
005037
013703
012723
013713
013704

177776
000240
020526

1%:

012460
1727777

2%:

012346

012350

012352
012354
012476
015406
012500
012474
000040

000010

012346

5¢%:

6%:
7%:

177776

a#PS ,~(SP)

#<5%32.> ,anPs

PC,CLRQUE
#RPERRS
,R1
#SEEKFG,R2

(R1)+

MOV

1%
#DTUW,R2
#-1,(R1)+

CLR

DRVSTA

MOV

CMpP
BLOS

CLR

JSR

BR
BR
CLRB

INC

BIC
BNE

MOV

8%:
104413

CLR
CMP
BLOS

MoV
MoV
MOV
MOV
MOV

3%:

020162
012366

MoV
MOV

CLR
CLR
CLR

012724

000007
177776
012366

SAVREG

MOV
MOV
JSR

177776

012326
012436

177770

012706
012710
012712
012714
012720

RPINIT:

CLR

TSTB

BEQ
JSR
TSTB
BNE

DEC

BPL

MOV
RESREG

DRVSTA+?

DRVSTA+4
DRVSTA+6
RPVEC ,R3
#ISR,(R3)+
RPVEC+2, (R3)
RPADR R4

#81T05,RPCS2(R4)
R1

RO,DRVINT
4%

DRVSTA(R1)
R1
#~C7.R1

#7 ,R1
a#PS

DPINT(R1)
8%

PC,SET.IE

DPINT(R1)
7$
R1
6%

(SP)+ ,a#PS

JSAVE RO - RS
sSAVE THE PRESENT PROCESSOR STATUS

¢ CHANGE THE PRIORITY 7O 5
sCLEAR ALL REQUEST QUEUES

sFIRST ADDRESS

TC BE

CLEARED

sLAST ADDRESS TJ BE CLEARED
;CLEAR
JARE WE DONE?
;BRANCH IF NO
;LAST ADDRESS
JINITIALIZE
;DONE?
;LOOP [F NO
;SET ALL DRIVES TO OFFLINE

;SETUP THE RH11/RP04/5/6 VECTOR
;FIRST ADDRESS OF RH11/RP04
;MASSBUS INIT

JSTART WITH DRIVE 0

sINIT THE DRIVE
;'DVA' NOT SET OR PARITY ERROR
sNORMAL RETURN
;SET DRIVE STATUS TO OFFLINE
;GO TO NEXT DRIVE
sMASK OUT UNUSED BITS
:BR IF MORE DRIVES_TO GO
sSTART WITH DRIVE 7

;CLEAR THE PROCESSOR STATUS

;WAITING FOR DRIVE

TO SWITCH PORTS

:BR NOT WAITING
sSET INTERRUPT
;DRIVE SWITCHED PORTS ?
;BR IF NOT
;GO TO THE NEXT DRIVE
s CHECK NEXT DRIVE
JRESTORE THE PROCESSOR STATUS

;RESTORE RO - RS

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

%ggz

012722

30A(1052)

M
24~MAY-79
14:10 PAGE 66
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER

000207

RTS

3295
3296

sDRIVE

3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344

s CALL
;

3297
3298
3299
3300

3345
3346
3347
3348

;
;
:

012724
012726
012732
012736
012742
012746
012754
012762
012764
012770
012772
012776
013004
013006
013012
013014
013016
013020
013026
013032
013034
013040
013042
013050
013054
013056
013062
013064
013072
013076
013100
013104
013106
013114
013116
013122

013124
013132
013134
013142

010546
105061
105061
105061
010164
112764
032764
001403
004737
000533
105061
032764
001527
004037
000026
013304
012605
112761
022705
001431
022705
001426
112761
022705
001420
022705
001415
112761
022705
001407
022705
001404
112761
000461
005737
001010

032764
001404
152761
000446

012346
012356
012414
000010
000111
010000

000000
000010

020162
012346
004000

000000

017472

000001
020020

012356

024020
000002
020021

012356

024021
000004
020022

012356

024022
177777

012356

013310

001000

000012

000010

012356

(REV 1.0)

;BYE-BYE

INITILIZATION ROUTINE
;THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF

IT IS
;AN RPQ4/5/6. IF 1T IS, A 'READ=IN PRESET'' IS ISSUED AND FMT22
;IS SET TO A '"1"". THEN MOL, DPR, DRY, AND VV ARE CHECKED TO
s INSURE THEY ARE ALL ON A “1'', AND DEPENDING ON THEIR STATE,
;DRVSTA IS SET TO THE PROPER CONDITION.

MoV
#DRVNUM R1
MoV
RPADR R4
JSR
RO,DRVINT
RETURN1
RETURNZ

DRVINT: MOV
CLRB
CLRB
CLRB
MoV
MovB
BIT
BEQ
JSR
BR
1$:
CLRB
BIT
BEQ
JSR
RPDT
8%
MoV
MOVB
CMP
BEQ
CMP
BEQ
MovB
CMP
BEQ
CMP
BEQ
MovB
MP
BEQ
CMP
BEQ
MovB
BR
2%:
TST
BNE

BIT
BEQ
BISB
BR

;DRIVE NUMBER TO R1
;UNIBUS ADDRESS OF RH11/RP04/5/6 (RPCS1)
sCALLED BY A JSR
sERROR OCCURRED (PARITY)
sNORMAL RETURN

R5,<(SP)
;SAVE R5
DRVSTA(R1)
;START DRIVE STATUS AS OFFL INE
DRVTYP(R1)
;CLEAR THE DRIVE TYPE INDICATOR
ULDFLG(R1)
;CLEAR THE UNLOAD FLAG
R1,RPCS2(R&)
;SELECT A DRIVE
#113,RPCS1(R4)
;DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE)
#BIT12,RPCS2(R4) ;NONEXISTENT DRIVE?
1%
s NO---BRANCH
PC,SET.IE
;GO SET ''IE'* WITHOUT A '‘TRE''
6%
sLEAVE THIS ROUTINE
DRVSTA(R1)
;SET DRIVE STATUS TO OFFLINE
#B1T11,RPCST(R4)
;SEE IF DRIVE AVAILABLE
7%
;BR IF DRIVE NOT AVAILABLE
RO,RD.RP
sJREAD THE DRIVE TYPE REG.

(SP) + ,R5

#1,DRVTYP(R1)
#20020,R5
2%
#24020,R5
2%
#2,DRVTYP(R1)
#20021,RS
2%
#24021,R5
2%
#4,DRVTYP(R1)
#20022,R5
2%
#24022,R5
2%
#=1,DRVTYP(R1)
6%
TSTPGM
9%

sERROR RETURN ADDRESS
;PUT DRIVE TYPE IN RS

;SET RPO4 INDICATOR
;IS IT A SINGLE PORT RP04?
sBRANCH IF YES
;IS IT A DUAL PORT RP04?
sBR_IF YES
;SET RPOS INDICATOR
sSINGLE PORT RPOS5 ?
;BR IF YES
;DUAL PORT RPOS ?
;BR_IF YES
;SET RPO6 INDICATOR
;SINGLE PORT RPO6 ?
;BR IF YES
;DUAL PORT RPO6 ?
;BR_IF YES
SET INDICATOR TO 'OTHER'
JEXIT
s INHIBIT PROGRAMMABLE DRIVE?
.BRANCH IF NO

#B1T09, RPDS1(R4);1S DRIVE PROGRAMMABLE?
9%
;BRANCH IF NO
#1703, DRVTYP(R1);SET INDICATOR
6%
JEXIT

SEQ 0064

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

3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370

013144
013150
013154
013156
013160
013164
013170
013172
013174
013200
013202
013204
013206
013210
013216
013222
013224
013226
013230
013232
013240
013242

012746
004037
000000
013304
012746
004037
000032
013304
004037
000012
013304
012605
100015
116164
004037
000014
013304
006126
100004
112761
000407
005105

3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
%gg%

013250
013252
013260
013262
013264
013266
013274
013276
013302
013304
013306

001003
112761
005720
000410
006301
012761
006201
105161
005720
012605
000200

3371

013244

042705

000121
017652

9% :

017472

012462
017472

177777

000016

012346
48:

167077
000001

012346

003720

012440

6$:
7%:

012366
8%:

MOV
JSR
RPCS1
8$
MOV
JSR
RPOF
8$
JSR
RPDS1
8$
MOV
8PL
MOVB
JSR
RPER1
8%
ROL
BPL
MOVB
BR
COM

(SP)+
4$
#-1,DRVSTA(R1)
6$
RS

BNE
MOVB
TST
BR
ASL
MOV
ASR
COM8
TST
MOV
RTS

6$
:BRANCH IF MOL, DPR, DRY, OR WV .S CLEAR
#1,DRVSTA(R1)
:SET DRIVE STATUS TO ONLINE
(RO)+
:STEP OVER THE ERROR RETURN
8%
SEXIT
R
:CHANGE INDEX TO ADDRESS WORDS
#2000. ,TIMER(R1) TM ;START 2 SEC TIMER
R1
;RESTORE R1
DPINT(R1)
:SET PORT INITIALIZE INIDICATOR
(RO)+
(SP)+,RS
;RESTORE RS
RO
SEXIT

BIC

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

;DO A 'READ-IN PRESET''

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

;SET FMT22=1

RO,RD.RP

;READ RPDS1

(SP)+,RS
;AND SAVE IT IN RS
43
:BRANCH IF ATA=0
ATABIT(R1),RPAS(R4) ;CLEAR ATTENTION BIT
RO,RD.RP
;FIND OUT WHY ATA=1
;1S IT UNSAFE?
:BR IF NOT
:SET UNSAFE INDICATOR
EXI
HECK MOL, DPR, DRY, AND WV

#‘C<BIT12'BITOS'BITO?'BITO6> RS

;TEST PROGRAMMABLE DRIVE FLAG (TSTPGM=1 WORD)
;THE FLAG WILL BE SET BY THE PROGRAM UNDER

3386
3387
3388
3389

gggg

24-MAY-79
14:10 PAGE 67
SINGLE/DUAL PORT RM11/RP04/5/& DRIVER (REV 1.0)

010000
017652

3384
3385

%gg?

30A(1052)

:MANUFACTURING CONDITIONS (ACT,APT) AND
:CLEARED UNDER FIELD CONDITIONS(XXDP CHAIN,
:STANDALONE) WITH STARTING ADDRESS 200.
STHE FLAG WILL BE SET UNDER ALL CONDITIONS

013310

000000

TSTPGM:

:WITH STARTING ADDRESS 220.
.WORD

;=1

TEST PROGRAMMABLE DRIVE

gggg

;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST

3396
3397

:CALL
:

3399
3400
3401

:
:
;

PNTADR
RETURN1
RE TURN2

RPO4:

MOV

3398

2285

3404

(013312

013746

177776

JSR

RO, a4#RPO4

;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

*1S AN ERROR CONDITION

a#PS,=(SP)

;SAVE THE CALLING STATUS

SEQ 0065

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

3406

013737
112737
104412

011002
005062
111201

013704

012500
000001

105761
105761

012414

003014

24~MAY=79

177776
012412

MOV

MOVB
SAVREG
MOV
CLR
MOVB
MOV
1STB

BGT

TSTB

012366

012724

34
34621

012346
1%:

000010
020624

SEQ 0066

RPVEC+2,a#PS
#1,ACTDRY

sDON'T ALLOW ANY RP04/5/6
“SET "ACTIVE DRIVER'' FLAG

(RO) ,R2

:PICKUP THE DRIVE PARAMETER BLOCK POINTER

16(R2)

(R2) ,R1

RPADR R4
DRVSTA(R1)
1%

ULDFLG(RT)
3¢
DPINT(R1)
5¢
RO,DRVINT
48
6$
DPRQS (R1)
5¢

R1,RPCS2 (R4)

RO.DRVQUE

INTERRUPTS

;SAVE RO - RS

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

*UNIBUS ADDRESS OF RPCS1
*CHECK DRIVES STATUS
*BRANCH IF ONLINE

SUNLOAD COMMAND IN QUEUE?
*BRANCH IF YES
*TRYING TO INIT THE DRIVE
*BR IF YES
26O INIT. THE DRIVE
*ERROR RE TURN
“IS DRIVE STATUS ONLINE?
‘BR IF NOT
*OUTSTANDING PORT REQUEST FOR
‘BR IF YES
*SELECT THE DRIVE

THE DRIVE

*PUT THIS REQUEST IN QUEUE

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

2%:

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

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

g§1r1ssexr13.16(ng)1§ssr THE ‘UNLOAD IN QUEUE'' ERROR FLAG

014714

(%:

gg.cx?

*GO HANDLE THE PARITY ERROR

020624

5%:

RO, DRVQUE
9

:PUT REQUEST IN QUEUE
$QUEUE IS FULL

000103

000002

177777

012414

013604

120000

000016

000100

PC,SET.IE

012346

6%:

140000

000016

100002

000016

012356

110000

3454

012412
177776

8$
gg.opr

#BIT06, (R&)
8$

020162

13
#103,2(R2)

012336

RRRRRY

PAGE 68

DRVSTA(R1)

012376

000200

14:10

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

000016

012474
012346

Py md ed od med b

~NO NS W=

RPERRQPRRER

3410

013316
013324
013332
013334
013336

30A(7052)

000016

7%:

8%:

:
9%
10%:

;BR IF NO

‘BR IF YES
SCALL THE OPTIMIZER
JEX

SIS YIE' SET ALREADY ?
‘BR IF IT IS

:SET

INTERRUPT

8$
DRVSTA(R})
7¢

*RETURN, REQUEST IN QUEUE
*SEE IF DRIVE OFFLINE OR UNSAFE
‘BR IF UNSAFE

DRVTYP(R1)
8%

;SEE IF OFFLINE OR NONEXITENT
:BR IF OFFLINE

;GO TO EXIT

#BIT1S!BIT14,16(R2)

:SET OFFLINE ERROR INDICATOR

#B1T15!B1101,16(R2)

;REPORT DRIVE NONEXISTENT

#BIT15!BIT12,16(R2)

;DRIVE IS UNSAFE

(RO)+
108

(RO)+

ACTDRY
(SP)+,34PS
RO

;RESTORE RO - RS

*SETUP FOR NORMAL RETURN
SFINISH UP,
THEN EXIT

*RESTORE RO - RS

*CORRECT THE RETURN ADDRESS

*CLEAR "ACTIVE DRIVER'* FLAG
*RETURN 'PS**
TO USER LEVEL
*RETURN TO CALLER

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

30A(1052)

3461
3462
3463
3464
3465

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

SFQ 0067

;OPTIM]ZER-CALLED FOR A PARTICULAR DRIVE
SCALL
:
:

104412

013746

146137

004737
005702
001505
032764
001407
032764

oPT:

177776
012462

012410

004000

000000

000100

000012

020700

012724

9% :

012346

108 :

020722

140000

012346
110000

000016

1%:

2%:

C12436

JSR

RO,DRVINT

SSEE

TSTB

DRVSTA(R1)

*1S DRIVE ONLINE?

BICB
JSR
TST
BEQ
BIT
BEQ
BIT
BNE

8GT

014064

3%:

014172

48 :

177777

012376

023420

012440

5% :

6$:
7%

;SAVE RO - RS
STATUS

ATABIT(R1),SRCHWT
;CLEAR '‘SEARCH WAIT'' KEY
PC,GETREQ
:GET ‘DPB'"* POINTER OF REQUEST
R2
:IS THERE A REQUEST IN QUEUE?
7%
*NO--BRANCH TO EXIT
#81T11,RPCS1(R4)
2IS DVA SET?
108
;BRANCH IF NOT
#BIT6.RPDST(R4) " ;IS WV SET ?
108
:BR IF IT IS

6%
1%

DRIVE

*PARITY OR

STILL ONLINE

'DVA' NOT SET

PC,POPQUE

TSTB

DRVSTA(R1)

;IS DRIVE UNSAFE

#111,-(SP)

:LOAD COMMAND ONTO THE

BPL
MOV
BR
MOV

JSR

RO,WRT.RP

JSR
BR

PC.C14
8s

TST

SEEKFG

:LOAD THE REGISTER

STACK

*REGISTER INCREMENT

*ERROR RETURN ADDRESS

:DRIVE AVAILABLE ?

:BR IF NOT
:1S THE REQUEST FOR 1/0?
*YES~~BRANCH

DTUW
4%

:DATA TRANSFER UNDERWAY?
SYES=-~GO START A SEARCH

SCALL THE COMMAND INITIATOR
*BRANCH TO EXIT
:DO IMPLIED SEEKS?

3$
RO.LA
8s

YES~--BRANCH
*NO--DO LOOK AHEAD
*RETURN HERE ON A PARITY ERROR

ZE'C11

*START A DATA TRANSFER

JSR

PC.CI3

8$
#-1,DPRQS(R1)
R1,R3
R3

*GO START A SEARCH
;START A SEARCH

:GO TO THE EXIT
:SET PORT REQUEST INDICATOR
:SET UP TO ADDRESS WORDS
CONVERT TO WORD INDEX

MOV

#10000., TIMER(R3Y

JSR

P(,SET.IE

BR
JSR
BIT
BNE

5%
#150.,2(R2)
2$

B8R

8R
MOVB
MOV
ASL

SET OFFLINE STATUS/ERROR INDICATOR

8
:BR TO EXIT IF NOT
#BIT15'BIT12,16(R2)
;SET UNSAFE STATUS/ERROR INDICATOR
8$
:BRANCH TO EXIT

#BI1T11, (R4)

éSR

:NO--REMOVE REQUEST FROM QUEUE

#BIT15'BIT14,16(R2)

BIT

TST
BGE

+ YES=~BRANCH

JSR

BM]
JSR
BR

015250

020162

*SAVE PROC.

BEQ
C(MPB
BLT

000002

012460

014714
000100

NPS,~(SP)

SAVREG

MOV

014300

014006
014012
014014
014022
014024
014026
014034
014036
014042
014046
014050

;DRIVE NUMBER TO R1
SSETUP A COMMAND

RPCS1T

004000
000150

#DRVNUM,R1
PC,OPT

MOV

000016

000111
017652

MOV
JSR

7%
PC.C17
#81T06, (R&)
8$

:START 10 SEC TIMER

SEXIT
*PROCESS THE PARITY ERROR
*SEE IF "IE' ALREADY SET
‘BR IF SET

“SET “IETM WITHOUT A ‘‘TRE'"

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

3517
3518
%g;g

014054
014060
014062

012637
104413
000207

30A(1052)

177776

8%:

3521
3522
3523
3524
3525
3526
3527
3528
3529

014064
014070
014074
014076
014102
014106
014112

004737
010237
010203
013704
010164
062703
062704

3540
3541
3542
3543
3544
3545
3546
3547

014120
014122
014124
014130
014132
014134
014136
014142

012324
012346
004037
000006
014714
012346
004037
000034

3550
3551
3552
3553
3554
3555
3556

3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3s
3569
3570
3571
3572

(SP) +,a#PS
PC

3532
3533
3534
3535
3536
3537
3538

3548
3549

MOV
RESREG
RTS

;COMMAND INITIATOR
:
:CALL
:
MOV
#DRVNUM R1
:
MOV
#DPB,R?
;
JSR
PC.CI?
;
.
M

gg%?

3539

D
24~-MAY-79
14:10
PAGE 70
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER

014116

014144
014146

014152
014156
014160
014162
014166
014172
014176

014202
0164206
014212
014214
014216
014222
014226
014230
014234
014236
014244
014250
014252
014254
014260
014264

012324

014714
016246

004037
000000
014714
010137
000137
013704

010164

016246
004037
000034
014714
116203
163703
002002
062703
010346
116266
004037
000006
014714
012746
004037
000000

020722
012406

Cll:

012474
000010
000004
000002

017652

012460
014656
012474

Cl3:

000010

000012
017652

000010
012510
000026

000011
017652
000131
017652

000001

1%:

;DRIVE NUMBER
;ADDRESS OF DPB
;CI?2= CI1,C13, OR Cl4
;WHERE:
;CI1=DATA TRANSFER
s C12=SEARCH REQUESTED BY DATA XFER

;Cl14=NOT DATA TRANSFER

PC,POPQUE
R2, TRNSWT
R2.R3
RPADR R4
R1,RPCS2(R4)
#6 ,R3
#2 R4

;REMOVE REQUEST FROM 'DRIVES WAIT'' QUEUE
;PUT REQ. IN TRANSFER WAIT QUEUE
;DPB ADDRESS TO R3
;RPCS1 ADDRESS
JSELECT DRIVE
;DESIRED WORD COUNT
;RPWC ADDRESS

MOV
MoV
JSR
RPDA
c17
MOV
JSR
RPCA

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

;LOAD BUFFER ADDRESS
;LOAD SECTOR AND TRACK
JCALL THE LOAD(WRITE) ROUTINE
;INDEX OF REGISTER TO LOAD
cERROR RETURN ADDRESS
;LOAD CYLINDER ADDRESS

C17
MOV

000002

JRESTORE PROC. STATUS
JRESTORE RO - RS

JSR
MoV
MOV
MOV
MoV
ADD
ADD

MOV

017652
:

(REV 1.0)

JSR
RP(CS1
cl7z
MOV
JMP
MOV

MOV

MOV
JSR
RPCA
17
MOVB
sus
BGE
ADD
MoV
MOVB
JSR
RPDA
17
MOV
JSR
RPCS1

(Rj)*.(R4)+

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

<LOAD WORD COUNT

2(R2) ,~(SP)

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

R1,DTUW
CIS
RPADR R4

;SET "DATA TRANSFER UNDERWAY''

RO,WRT.RP

R1,RPCS2(R4)

JRPCS1 ADDRESS

JSELECT DRIVE

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

;DESIRED CYLINDER ADDRESS

10(R2) ,R3
MXWNDW,R3
1%
#22..R3
R3,~(SP)
11(R2),1(SP)
RO,WRT.RP

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

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

;COMBINE THE ADJUSTED SECTOR WITH
:THE DESIRED TRACK
;LOAD DESIRED TRACK & SECTOR
;START A SEARCH

SEQ 0068

CZRJBDO, RPQ4/5/6 FMIR MACY11
CZRJBD.P11
28-MAR-79 11:23
1

3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588

EEBEREE R

3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603

3% ONONWNEBWN—=O

3605
3606
3607
3608

014266
014270
014276
014300
014304
014310
014314
014320
014322
014326
014332
014334

014336

014340
014344
0146346
014352
014356
014360
014362
014364
014370
014372
014376
014400
014402
014406
014412
014414

014714

156137

000567
013704
010164
116203
122703

001007
016246
004037
000006
014714
000403
122703
001007
016246
004037
000034
014714
000546
122703

001013
004037
000032
014714
116216

004037

014416

014420
014424
014426

012462

30A(1052)

14:10
PAGE 71
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER

cl7

012410

012474
000010
000002
000131

BISB

Clé:

000010
017652

RPADR ,R4

sLOAD DESIRED CYLINDER

3%:

#115,R3
4%
RO,RD.RP

000001
012346
000001

Cl16

;BYTE WHEN LOADING THE
REGISTER (RPOF)

;GO START THE COMMAND

;1S IT A RETURN TO CENTER?
;BRANCH IF YES
;1S IT AN "UNLOAD'' COMMAND?

Cl16

#1,ULDFLG(RT)

R3,-(SP)
RO,WRT.RP

6%:

;BUT DON'T CHANGE THE UPPER

#117,R3
€16
#103,R3

012414

000001

;IS IT AN "OFFSET'' COMMAND?
;BR IF NO
;MERGE THE OFFSET VALUE INTO RPOF

;1S IT A 'RECALIBRATE'' COMMAND?

DRVSTA(R1)

5¢:

sBRANCH [F NO

#107 .R3

#1,DRVACT(R1)

017472

000141

C16

012336

000143

000001
017652

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

017652

ADDRESS

;GO LOAD CYLINDER
;]S IT A SEEK COMMAND

000115

4%:

JSET ''SEARCH WAIT'' KEY

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

000001
017652

SEQ 0069

sSELECT DRIVE
;PICKUP THE REQUESTED COMMAND
;1S IT A SEARCH COMMAND?
sBRANCH IF NO
sLOAD DESIRED TRACK & SECTOR

2%:

017472

;RPCS1

(REV 1.0)

R1,RPCS2(R4)
2(R2) ,R3
#131,R3
1%
10(R2) ,~(SP)
RO,WRT.RP

000012
017652

000103

001023

é}gBIT(R1),SRCHUT

1%:

000117

3624

000105

000107

014432
014434
014440
014442
014450
014454
014462
014464
014470
014472
014474
014476
014502
014504

24-MAY-79

JBRANCH IF YES

;BRANCH IF NO

;SET THE DRIVE ACTIVE

INDICATOR

cPUT DRIVE STATUS TO OFFL INE

;SET 'UNLOAD IN PROGRESS'' FLAG

;START THE "UNLOAD'' COMMAND

JRETURN TO USER

#143,R3
6%
RO,RD.RP

;1S IT A "'SET FORMAT'' COMMAND?
;BRANCH IF NO
JREAD THE OFFSET REGISTER

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

;COMBINE "FMT22°',"ECI'*, AND "HCI"'
;LOAD *¥MT22'', "ECI'', AND/OR "HCI''.

12%
#141,R3
108

JIS IT A ''GET REGISTER'' COMMAND?
;BRANCH [F NO

CZRJUBDO, RPO4/S5/6 FMIR MACY11
28-MAR-79 11:23

CZRJBD.P11

014542
014546
014554
014560
014564
014566
014570
014572
014576
014600
014606
014610
014614
014616
014620
014624
014626
014630
014634
014642
014646
014650
014654
014656
014660
014666
014670

016203

000006

116237
116205

000010
000011
017472

000002

015016
015024
015026

7%:

014564
8%:

:
9%

014564
10%:

017652

020722
000200
012434

MOV

6(R2) ,R3

MOvVB
MOVB
JSR
RP(CS1

10(R2),9%

cl?

MOV

000145

000016

020044

014700
014702
014706
014710
014712

014724
014726
014730
014736
014742
014746
014752
014754
014756
014762
014766
014772
14776
015000
015004
015012
015014

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

0146564

014676

014714
014722

30A(1052)

11%:

MOV

12%:

JSR
BIS
TST
8PL
JSR

13%:

001750

012440

000001

012336
Cl6:

017652

{MP
BEQ
ADD
BR
(MPB
BEQ

JSR
RP(CS1

c17z

RTS
ASL
MOV
ASR
MO\B
RTS
MOV

JSR
RP(CS1

Ccl7z

010000

005702
001405
012762
004737
012746
004037
000000
015014
004737
105061
105061

020137
001005
005037
012737
000207
104412

032764
001002
005001

000010

Cl7:
1%:

104000

020044
000111
017652

000016

012406

BIT
BNE

TST
BEQ

MOV

CI7B:

020604
012414
012336
012460

11(R2) ,RS
RO,RD.RP

(SP)+,(R3)+
9% RS
12%

42,9%

#145,R3
12%
R3,-(SP)
RO,WRT.RP
PC,POPQUE

012460

010000

000010

TO 1ST ADDRESS OF

;GET THE CONTENTS OF RH11/RP04/5/6 REG.
JLAST REG. BEEN READ?
;GET OUT IF YES
s INCREASE THE INDEX BY 2
;LOOP--MORE TO READ
;1S IT A "'SELECT DRIVE'' COMMAND?

;BRANCH IF

YES

;LOAD THE COMMAND

sREMOVE REQ. FROM QUEUE
sSET THE 'DONE'' BIT

JRETURN TO USER

SAVEFG
13%
PC,SVRH11

z}OOO.,TIMER(R1)
#1,DRVACT(R1)
PC

R3,-(SP)
RO,WRT.RP

WHERE

;TO PUT THE REGISTER(S)
JINIT. THE INDEX FOR THE FIRST REG.
s INDEX OF LAST REG. TO MOVE
JREAD RP04/5/6 REGISTER
2 INDEX OF REG. TO READ

#B1707,16(R2)

;SAVE THE RH11/RP04/5/6 REGISTERS?
;BRANCH IF NO
JYES==GO SAVE THE REGISTERS
;SET A ONE SECOND TIMER

2SET THE DRIVE ACTIVE
JRETURN TO THE USER
;LOAD THE COMMAND

CI5
H#BI1T12,RPCS2(R&)
JDRIVE NON-EXISTENT ?
cl8
;BR IF YES
R2
JANYTHING IN QUEUE ?
Cl78
;BR IF NOT
ABIT15!BIT11,16(R 2)
JSET "PARITY'' ERROR INDICATOR
PC,SVRH11
#111,-(SP)

;GO SAVE THE RH11/RP0Q4/5/6 REGISTERS
;DO A 'DRIVE CLEAR'’

PC,EMPTYQ

JEMPTY THE QUEUE
;CLEAR THE UNLOAD IN QUEUE FLAG
;DRIVE IS IDLE
;1F THIS DRIVE HAD AN [/0 REQUEST
;IN PROGRES= CLEAR ALL OF THE FLAGS

RO,WRT.RP

ULDFLG(RT)

177777

sPOINTS

SEQ 0070

DRVACT (R1)
R1,DTUW
1%
TRNSWT
#-1,DTUW
PC

7%1T12,RPC52(R4)
R1

;SAVE RO - RS

;IS 'NED' SET ?
:BR IF YES

CZRJBDO, RPO4L/S5/6 FMIR MACY11
CZRJBD.P11
28-MAR-79 11:23

005003
105761

001443
013702
020137

012336
012406
012460

~4~4\ng>c>\n:~tWNLunonJ—hd
NONONNESNONNSO

14: 10

CLR

TSTR

BEQ
MOV

2%:

010000

000010

100002

000016

102000
020044
177777
012336

000016

3%:

012440

'A ¥

CMP
BEQ
JSR
TST

BEQ

BIT

BEQ
MoV
BR
MOV

177777

012406
012414
010000

012460
000010

5%:

020604
012346
012356
020162

TRNSWT ,R?2

R1,DTUW

PC.GETREQ

R2
4%

#§IT12.RPCSZ(R4)

(REV 1.0)

sDRIVE ACTIVE?
JBRANCH IF NO

;GET THE '‘TRANSFER WAIT'' QUEUE
;DID THIS DRIVE HAVE AN [/0 IN PROGRESS?
;BRANCH IF YES
;GET THE DPB PCINTER
sQUEUE ENTRY FOR DRIVE ?
IF NOT

:'NED* SET ?

3
;BR IF NOT
221T15!BIT01.16(R2)
JSET 'DRIVE NON-EXISTENT'
:C ONT INUE

#BIT15!BIT10,16(R2)

012460

6$%:
7%:

000207

;SAVE RH11/RP04/5/6 REGISTERS

#=1,DTUW
TRNSWT

JRESET

;STOP THE

TIMER

JSET "DRIVE ACTIVE'' TO IDLE
;IS THIS DRIVE SETUP FOR A TRANSFER
:BR IF NOT
THE

INDICATOR

.CLEAR THE TRANSFER QUEUE

BR
JSR
CLRB
CLRB
JSR
RESREG
RTS

;BRANCH IF MORE DRIVES
:NO DATA TRANSFERS UNDERWAY
TRNSWT
;CLEAR THE 'TRANSFER WAIT' QUEUE
PC,CLRQUE
;CLEAR ALL OF THE REQUEST QUEUES
;gITOS.RPCSZ(R4) DO _A MASSBUS INIT.
; CONT INUE
PC.EMPTYQ
;CLEAR THE DRIVE'S QUEUE
DRVSTA(R1)
JSET DRIVE TO OFFLINE
DRVTYP(R1)
;CLEAR THE DRIVE TYPE INDICATOR
PC,SET.IE
JSET "'IE'" WITHOUT '‘'TRE''
PC

JRESTORE RO - RS
JRETURN

;LOOK AHEAD ROUTINE

CALL

MOV
MoV

#DRVNUM,R1

MOV

JSR

RPADR,
R4
R1,RPCS2(R4)
RO,RD.RP

JGET RP(CS1°S ADDRESS
JSELECT DRIVE

(MP

(SP)+,12(R?2)

JERROR RETURN ADDRESS
;IS CURRENT CYLINDER DESIRED

#DPB,R2

JSR
RO,LA
RE TURN1
RE TURN?
RETURN3

013704
010164
004037
000036
015400
022662

012474
000019
017472
000012

LA:

INDICATOR

JSET "NON-CLEARABLE PARITY'' ERROR INDICATOR

PC,SVRH11
#-1,TIMER(R3)

#4C7,R1
1%
#-1,DTUW

000010

SEQ 0071

ULDFLG(R1)
;CLEAR UNLOAD FLAG
H#BI1T12,RPCS2(R4)
J'NED' SET ?
6%
;BR IF YES
R1
cMOVE TO THE NEXT DRIVE

000002
177770
177777
012406
020526
000040

R3
DRVACT(R1)
5%

DRVACT(R1)
R1,DTUW
5%

012460

015204

015246

G
PAGE 73
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER

24~-MAY-79

1%:

020700

[+ ¥ N &)

=D —nd
)
rd
D e
el
)
d cmd
d
d
i
—

Giur Gihr Gy
Gunr G
hur Ghr Gy G
Qe
Jour

] VLIV, TV, TV, TV

EOOOOOOOOOOOO

IV TV, XV, YV, YV YV, YV TV IV

015030
015032
015036
015040
015044
015050
015052
015056
015060

30A(1052)

MOV

RP(C(
33

;DRIVE NUMBER
JPOINT TO DPR
;G0 CHECK THE WINDOW
;ERROR RETURN
;START A SEARCH
;START A DATA TRANSFER

sREAD CURRENT

CYLINDER

(ZRJBDO, RPO4/5/6 FMIR
MACY11
CZRJBD.P11
28-MAR-7G 11:23

3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
379
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767

3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784

3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796

015274
015276
015302
015310
015312
015316
015320
015322
015324
015332
015336
015340
015342
015344
015346
015352
015356
015360
015364
015366
015372
015374
015376
015400
015404

001037
105261

126137
003026

012424
012424

116203

000010

012737
004037

000340
017472

000303
006203
006203

30A(1052)

16:10
PAGE 74
24~MAY-79
SINGLE/DUAL PORT RH11/RPQ4/S5/6 DRIVER (REV 1.0)

012502

3s
LACNT(RY)

SEXIT

BGT

SWAB
ASR
ASR
MOV
JSR

R3
R3
R3
#340,a4PS
RO,RD.RP

JBRANCH IF YES
JGET DESIRED SECTOR ADDRESS AND
JMULT, BY 64=--ALIGN W]TH
;LOOK AHEAD REGISTER

MOVR

RPLA

002600
012504

1%:

012506
012424

2%:
3%:

000200

A S
5%:

014714

;CYLINDER?

BNE
INCR
(MPB

177776

SEQ 0072

SuB
BGE
ADD

CMP

LACNT(R1) ,MXLACT ;EXCEED MAX?
10(R2) ,R3

(SP)+,R3
1%
#<22.
%64 > ,R3

MXDL TA,R3

BLT
cMP
BGE
CLRB

3%
MNDLTA,R3
3%
LACNT(R1)

IST
BR
JSR
RTS

(RO)+
5%
PC,C17
RO

TST

IF NO

s INCREMENT THE LOOK AHEAD C(QUNT

(RO)+

;PRIORITY LEVEL '7"'

JREAD LOOK AHEAD REGISTER
s CALCULATE THE DELTA
JMAKE

THE DELTA POSITIVE

JCHECK THE DELTA TO SEE
JIF IT IS WITHIN THE

:WINDOW=-=-~IF
;THE

JAND

YES,

LOOK AHEAD

TAKE

THE

ZERO

COUNT

I/0 EXIT

;égfisr THE RETURN ADDRESS

*PROCESS THE ERROR
*RETURN

s INTERRUPT SERVICE ROUTINE

015406

015414
015416
015422
015426
015430
015434
015436
015442
015444
015450

112737
104412
013704
013701
002403
004737
000402
004737
104413
105037
000002

000001

01242

ISR:

012474
012460

MOVB
SAVREG

#1,ACTDRY

BLT
JSR

1%
PC,TD

JSR

PC.SC

MOV
MOV

015452

015612

1%:

2%:

012412

B8R

RESREG
CLRB

RT1

RPADR ,R4
DTUW,R1

ACTDRYV

;SET "'ACTIVE DRIVER'' FLAG
;SAVE RO - RS
;ADDRESS OF RHS(CS1

JGET 'DATA TRANSFER UNDERWAY'' INDICATOR

;BRANCH IF NO DATA TRANSFER UNDERWAY
:EQ%% TRANSFER DONE
;sCALL SPECIAL CONDITIONS

JRESTORE RO - RS

;CLEAR "'ACTIVE DRIVER'' FLAG

JRETURN

s TRANSFER DONE ROUTINE

015452

105061

012737
006301
012761

006201

. 3702
005037
052762
010164
004037
000000
014714
006126

012236

177777

012460

177777

012440

012406
012406
000200
000010
017472

000076

CLRB
MOV
ASL
MOV
ASR
MOV

CLR

BIS
MOV
JSR

RP(CS1

ROL

DRVACT(R1)
#-1,DTuW
R1
#=1,TIMER(RY)
R1
TRNSWT ,R2

TRNSWT

#81107,16(R2)
R1.RPCS2(R4)
RO,RD.RP
(SP)
+

;SET DRIVE ACTIVE
;NO DATA

INDICATOR TO IDLE

TRANSFERS UNDERWAY

s CANCEL TIMEOQUT

;GET ‘DPB'* ADDRESS FROM THE

s TRANSFER WAIT

QUEUE--CLEAR QUEUE

s SET DONE
sJSELECT THE DRIVE

; TRANSFER ERROR(TRE=1)?

(ZRJUBDO, RPO4/5/6 FMIR
MACY11
CZRJBD. P
28-MAR-79 11:23%

3797
3798

3799
3800
3801
3802
3803
3804
3805
3806
3807
3808

015532
015534
015540
015542
015546
015552
015554
015560
015562
015570
015574
015600
015604
015610

100413
005737
100002

004737

000417
012714
000414
052762
004737
004737
012714
012714
000400

30A(1052)

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

BM]

012434

TST

020044
013604

1%:

000113

2%:

100100

020604
020044
040111
000113

000016

3%:

015612
015616
015620
015624

116403

001014
004037

015626
015630
015632
015634

1%
PC,SVRH11

MOV

#113,(R4)

BIS

#8IT15!B1T06,16(R2) ;SET DATA ERROR FLAG
PC,EMPTYQ
SEMPTY "HE 'DRIVE'S WAIT'' QUEUE
PC,SVRH11
;SAVE THE RH11/RP04/5/6 REGISTERS
#60111, (R4)
;ISSUE A 'DRIVE CLEAR''
#1132, (R4)
;ISSUE A RELEASE TO THE DRIVE
SC
;CHECK FOR OTHER DRIVES

JSR
BR

JSR

000016

SC:

017472

MOVS
BNE
JSR

(18

ROLB

015640

015642
015646
015650
015652
015654

BM]
JSR
FRROR

020162

1%:
’%:

000001

(15660

015662
015664
015666
015670
015672
015674
015676
015700
015704
015706
015712
015716
015720
015724
015730
015732
015736

SC3:
SC4:

012366

SCS:

016604
012376

1%:

016604
012346

2%:

012414

105761

003416
032737

012346
040000

JSR
RTS
CLR

012326

MOVR

RPAS(R4)
,R3
2%
RO,RD.RP
(SP)
+

1%
RO,ES5.SAV
1
PC,SET.IE
PC
-(SP)

:C
; CHECK _FOR OTHER DRIVES

TSTR
B8GT

(SP)+
PC

DPINT(R1)
1%
SC13

DPRQS (R1)

3
SC13
DRVSTA(R1)

TSTR

ULDFLG(RT)

JSR
JSR
JSR

PC,GETREQ
PC,SVRH11
PC,SC12

TSTR

DRVSTA(R1)

BLE
BIT

6%
#B1T14 RPERRS

'ATA' BITS SET

NO DRIVES

TO CHECK

;SAVE THE ADDRESS IN 'SESCAPE’
;REPORT AN ILLEGAL INTERRUPT
;SET INTERRUPT ENABLE
JRETURN
sPROCESS ALL DRIVES THAT HAVE

;ATA=1?

R1
R3
SC3

TSTB
BEQ
JMP
TSTB
8EQ
JMP

;IS “'IE'=1?

JYES,

R3, (SP)
SCS

INC
ASLB
BNE
TST
RTS

sBRANCH IF ANY

JREAD CONTROL AND STATUS REGISTER

JAN CATA'=1

#1,R3
R1

8I7
BNE

;READ 'RPAS''

R3, (SP)

MOV
CLR

BLE

020700
020044
016534

PC,OPT
SC

CONDITION ROUTINE

RP(CS1

020764

JBR IF YES
;SAVE THE RH11/RP04/5/6 REGISTERS?
;BRANCH IF NO
;YES==SAVE THE REGISTERS
sCALL OPTIMIZER
cCHECK OTHER DRIVES
JRELEASE THE DRIVE

BPL
JSR

JSR
MOV
MOV

JSPECIAL

SAVEFG

SEQ 0073

; YES=-BRANCH
;MOVE TO THE NEXT DRIVE

;JBRANCH IF MORE TO CHECK?
;CLEAN OFF THE STACK
JRETURN TG USER
JINITIALIZING THE DRIVE ?
:BR [F NOT
<PROCESS THE DRIVE
;PORT REQUEST OUTSTANDING ?
:BR [F NOT

JSTART THE OUTSTANDING COMMAND

;CHECK THE DRIVE STATUS
;JBRANCH IF ONLINE
JUNLOAD IN PROGRESS?
;BRANCH IF NOT
;GET DPB POINTER
JSAVE THE RH11/RP04/5/6 REGISTERS

;SAVE RPDS1, RPER1, RPERZ, AND RPER3

cALSO DO A DRIVE INIT (DRVINT)
;DID DRIVE COME ONLINE?
;NO---BRANCH

;WAS THERE AN ERROR?

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

015770
015772
015776

016012
016016
016022
016024
016030
016032
016040
016042
016046
016052
016054
016056
016060
016064
016066
016070
016070
016074
016076
016100
016102
016110

30A(1052)

813356

3s:

012336

5% -

016534
105761

012366

105761
100412
032737
001013

012346

001321

012746
004037
000000
016414
011605
004037
104002

020000

6$:

004037

000113
017652
7%:
g

020764

012440

020700
000010

016116
016122
016126
016130
016132
016134
016136
016140
016144
016146
016154
016156
016162
016164
016166
016170
016174
016200
016204
016206
016210

;BR IF ERROR
:NO ERRCR
$YES == PICKUP RPER1 AND
:GO PROCESS THE ERROR

BNE
JSR

SC6
PC,SC12

TSTB
BNE

DPINT(R1)
SC4

:BR IF EITHER
:SAVE RPDS1, RPER1, RPER2, AND RPER3
*ALSO DO A DRVINT
:TRYING TO INIT THE DRIVE ?
:BR IF YES, cnecx ON MORE DRIVES

TSTB

RPCS1

020764

177777

3¢
SC1
RPERRS+2,RS
SC6A

BMI
BIT
BNE
MOV
JSR

012334

017472

SC8

100210

017472

SC6A:

016212
016214

052762
000443

100240

000016

*CHECK ON DRIVE'S STATUS

:BR IF UNSAFE
:ADDRESS PLUG CHANGED ?
:BR IF YES
:RELEASE COMMAND
SWRITE THE COMMAND INTO RPCS1

*REGISTER INDEX

:PARITY EXIT ADDRESS

JSR
ERROR
BR
ASL

RO,ES. SAV
§
SC4
R1

:SAVE THE ADDRESS IN 'SESCAPE’
:REPORT THE ADDRESS PLUG CHANGE
:CHECK FOR MORE DRIVES
:SETUP TO ADDRESS WORDS

MOV
ASR
JSR
MOV
JSR
RPDS1

#=1,TIMER(R1)
R1
PC,GETREQ
R1.RPCS2(R4)
RO.RD.RP

:STOP THE TIMER
:RESTORE THE DRIVE ADDRESS
:GET THE DPB POINTER FROM THE QUEUE
*SELECT DRIVE
:READ THE RP04'S STATUS REG.

MOV
ROL

(SP) ,RS
(SP) +

;AND PUT IT IN RS
:WAS THERE AN ERROR?

:BR IF ERROR

TSTB

DRVACT(R1)

gés

g?%T1S'BITO7'BITO3,16(R2)

JSR
RPER1

RO,RD.RP

:READ ERROR REGISTER #1

MOV
JSR
MOV
JSR
RP(S1

(SP)+,RS
PC,SVRH11
#111,=(SP)
RO,WRT.RP

;AND SAVE IT IN RS
*SAVE RH11/RP04/5/6 REGISTERS
*ISSUE A DRIVE CLEAR

ROL
8M]

RS
1%

;WAS 'UNSAFE'* CONDITION =12
:BRANCH IF YES

SC8

020044
000111
017652

7%
#81T13,RPERRS+6
8%
#113,~(SP)
RO,WRT.RP

*PICKUP (RPAS) BEFORE THE ERRUR CALL
:SAVE THE ADDRESS IN 'SESCAPE’
:REPORT THE UNEXPECTED ATTENTION
GO CHECK FOR MORE ATA'S

BGT

1$:

DRVSTA(R1)

:DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ?

(SP) ,RS
RO,ES.SAV
2
SC4

8MI

000016

DRVACT(R1)

MOV
JSR
ERROR
BR

SC8

012336

SEQ 0074

BNE
JMP
MOV
BR

TSTB

000677

016112

016216
016220
016226

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

SC8

SC11

;CHECK DRIVE'S STATE

BR IF

DRIVE ACTIVE WITH ORDER

TST

BIS

ge;r1s'5110781765 16(R2)

BEQ

SC7

ANYTHING

IF NOT

;INFORM USER OF ERROR RECOVER COMPLETION

IN QUEUE

; INFORM USER OF ERROR

(ZRJBDO, RP04/5/6 FMIR MACY11
CZRJBD P
28-MAR-79 11:23

3909
3910
3911
3912
3913
3914
3915
3916
3917

016230
016234
016236
016240
016242
016244

004037
000012
016414
011605
006126
100011
112761

004737
052762
000423
032705
001015
112761
112761
006301
012761
006201
000137
052762
105061
004737
105761
003002
105061
116164
105761
100406

012746
004037
000000
016414
000137
105761
001405
004737
004737
000402
004737
000137
105761

017472

177777
020044
110000

1%:

JSR
RPDS1

RO,RD.RP

¢READ DRIVE STATUS REG. #1

MoV
ROL

(SP) ,R5
(SP) +

;SAVE RPDS1
:"ERR''=1?

MOvB
JSR

#-1,DRVSTA(R1)
PC,SVRH11

;DRIVE IS UNSAFE
; SAVE RH11/RP04/5/6 REGISTERS

BIT

#BI1T12,R5

JMoL =1 2

MOVB

#-1,DRVACT(R1)

;ACTIVE ERROR RECOVER

MOV
ASR
JMP
BIS
CLRB
JSR
TSTB
BGT
CLRB

#30000.,TIMER(R1) ;START 30 SECOND TIMER
R1
SC4
ABIT15!BITO7!BIT04,16(R2)
;s INFORM USER OF ERROR
DRVACT(R1)
;DRIVE IS IDLE
PC.EMPTYQ
;DUMP THE QUEUE
ULDFLG(RT)
sUNLOAD IN PROGRESS OR QUEUE?
1%
:BR _IF NOT
ULDFLG(RT)
:CLEAR UNLOAD FLAG

BPL

012346
000016

gés
2s:

010000
177777
000001

012336
012346

072460

012440

015666
100220

000016

3s:
SC7:

000016

1%:

012336
020604
012414

012414
012462
012346

MOVB
TSTB

B8M]

2s:
SC8:

015666
012336

020700
014714
014742
015666
012414

020044
012462
013604
015666
000010
000012

BNE

22{8

000113
017652

020722
000200
012434

010164
016437

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

SC8

012414
012336
012462

016504
016510
016512
016516
016524
016530
016534
016540

30A(1052)

1%:

2%:
SC11:

012410

1%:

J00016

000016

012326

MoV
JSR
RPCS1
SC8
JMP
TSTB

BEQ
JSR
JSR
BR
JSR
JMP

TSTB
BLE
CLRB
CLRB

SC12:

;BR IF NO=--UNSAFE CLEARED

g?;T15!BIT12.16(R2)

g}.DRVSTA(R1)

s INFORM USER OF UNSAFE ERROR

;BR _IF YES
sONLINE

ATABIT(R1) ,RPAS(R4)
;CLEAR ATTENTION BIT
DRVSTA(R1)
;1S THE DRIVE UNSAFE ?

#113,-(SP)
RO,WRT.RP
SC4
DRVACT(R1)

1$
PC,GETREQ
PC,C17
2%
PC,CI7B
SC4

JBRIF IT IS

JRELEASE COMMAND
JWRITE THE COMMAND INTO RP(CS1
JREGISTER INDEX
;PARITY EXIT ADDRESS
;CHECK FOR MORE DRIVES

:1S DRIVE

IDLE?

; YES=-BRANCH
:GET DPB POINTER
;PROCESS THE PARITY ERROR
. CONT INUE
;PROCESS THE UNCORRECTABLE PARITY ERROR
sCHECK MORE DRIVES

8I1TB

ULDFLG(R1)
1%
ULDFLG(R1)
DRVACT(R1)

2"UNLOAD IN PROGRESS'"®?
:BRANCH IF NO
;CLEAR UNLOAD FLAG
:SET DRIVE IDLE

ATABIT(R1) ,SRCHWT

BNE
JSR
BIS

2%
PC,POPQUE
#BI1T07,16(R2)

sBRANCH IF YES
;REMOVE REQUEST FROM QUEUE
;SET 'DONE'' BIT

BPL
JSR

2%
PC,SVRH11

TST

2%:

IN RS

MOVB
JSR
JMP
MoV
MOV

SAVEFG

;DOING A SEARCH OPERATION FOR
;AN 1/0 COMMAND?

;SAVE

THE REGISTERS?

;BRANCH [F NO
;YES~-SAVE ALL OF

THE RH11/RP04/5/6 REG'S
ATABIT(R1) ,RPAS(R4)
.CLEAR ATTENTION BIT
PC,OPT
¢START A REQUEST
SC4
sCHECK FOR MORE DRIVES
R1,RPCS2(R4)
sSELECT DRIVE
RPDS1(R4) ,RPERRS
;SAVE THE FOUR REGISTERS THAT

SEQ 0075

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

3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978

3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999
4000
4001
4002
4003

30A(1052)

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

SEQ 0076

016546
016554

016437
016437

000014
000040

MoV
MOV

RPER1(R4) ,RPERRS+2
RPERZ(R&) ,RPERRS+4

016562
016570

016437

000042
012724

MOV

RPER3(R4) ,RPERRS+6
RO,DRVINT
sINIT. THE STATE OF THE DRIVE
1%
;TAKE ERROR EXIT

1%:
1727777

000010
012462
004000

012440

SC13:

JSR
BR
RTS
TST
BR
ASL
MOV

ASR
MOV
MOVB

000016

BIT
BNE

ASL

016640

012761

016646
016650
016652
016656
016660
016664
016670
016672
016676
016700
016702
016704
016710
016716
016722
016726
016730
016734
016740

006201
000433
105761
001424
105061

004037
000240
105761

003014

023420

012440

012366

1%:

012366
012724
012346

020700

140000
020044

000016

020604

000137

012376
013604
015666

2$:
3%:

JRETURN
;POP PC OFF

R1
z;1.T1MER(R1)

;SETUP TO ADDRESS WORDS
STOP THE TIMER

SC8

005737
001030
112737
104412

005001
005003
005763
002407
166663
003003
004737

012412

000001

RPTMR:

#B81T11, (R4)
;?

ASR
BR
T1ST8B
BEQ
CLRB
JSR
NOP
TST8
BGT
TST
BEQ

R1
3$
DPINT (R1)
2%
DPINT(R1)
RO,DRVINT

012413

012440

000002

017036

MOVB
SAVREG

1%:

012440

TST

CLR
CLR
TST
BLT
SuB
BGT
JSR

THE STACK

:DRIVE AVAILABLC ?
;BR IF AVAILABLE

#10000.,TIMER(R1)

BNE

sPROCESS THE PARITY ERROR

R1,RPCS2(R4)
.SELECT THE DRIVE
ATABIT(R1) ,RPAS(R4)
:CLEAR THE ATTENTION BIT

DRVSTA(R1)
2%
R2
3%

PC,GETREQ

;START

10 SEC

TIMER AGAIN

JEXIT
sINITIALIZING THE DRIVE ?
:BR_IF NOT
;CLEAR THE INIT INDICATOR
;GO INIT THE DRIVE

:DUMMY PARITY ERROR RETURN

sDRIVE
¢BR IF
;QUEUE
BR IF

ONLINE ?
YES == START ORDER
ENTRY FOR THE DRIVE
NOT

GET DPB ADDRESS

#BIT15!8IT14, 16(R2)

s INFORM USER THAT DRIVE OFFLINE

PC,SVRH11
ggLEMPTYQ

:SAVE THE REGISTERS
;EMPTY THE REQUEST QUEUE

DPRQS (R1)

;CLEAR THE PORT REQUEST INDICATOR

SC4

;PROCESS OTHER DRIVES

PC,OPT

;RP04/5/6 TIMER ROUT INE
JCALL
#TIME,~(SP)
MOV
JSR
PC.RPTMR

016744
016750
016752
016760
016762
016764
016766
016772
016774
017002
017004

TELL US SOMETHING

PC
(SP) +

MOV

JSR
BIS
JSR
JSR
BR
CLRB
JSR
JMP

JWILL

sSTART

THE

;ELASPED

PENDING REQUEST

TIME

IN MILLISECONDS ON THE

;CALL RP04/5/6 TIME ROUTINE

ACTDRV
3
#1,ACTSTR

JCHECK ‘'ACTDRV & ACTSTR''
;IF NON ZERO EXIT
;SET "'ACTSTR"'

:START WITH DRIVE 0

TIMER(R3)

2%
2(SP) ,TIMER(R3)
2%

PC,STO

;SAVE RO - RS

;IS THE TIMER RUNNING?

:BRANCH IF NO
;COUNT THE INTERVAL
:BR IF NO_SOF TWARE TIMEQUT

;CALL

SOFTWARE

TIMEOUT ROUTINE

STACK

CZRJBDO, RPQ4/5/6 FMTR MACY11
CZRJBD.P1
28~MAR-79 11:23
4021
402¢
4023
4024
4025
4026
4027

30A(1052)

000405
005201

017034

005723
022701
003361
104413
105037
012616
000207

24-MAY=79

2%:
000010

3%:

012413

14:10

PAGE 79

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

4%:

INC

TST
CMP

B8GT
RESREG
CLRB
MOV
RTS

R1
(R3)+
#8. .R1
1%
ACTSTR
(SP)+, (SP)

SEQ 0077

;GO TO THE EXIT
sMOVE TO NEXT DRIVE
;OUT OF DRIVES?
sBRANCH IF NO
;RESTORE RO ~ RS
:ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG
sADJUST THE STACK
sRETURN

;SOF TWARE TIMEOUT ROUTINE

:NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6
OR GREATER

017036
017040
017042
017046
017052
017056
017060
017062
017064

010146
010346
013704
010164
004037
000012
017360
105726
100477
105761
001074
105761
001071

013702
020137

.CALL:
:
M
.

STO
MOV
JSR
RETURN

#DRVNUM
R
PC,STO

ST0:

MOV
MOV
MoV

R1,-(SP)
R3,-(SP)
RPADR ,Ré4

012474
000010
017472

MOV
JSR
RPDS1
STOS

ST01:

012376
012406
012460

020700
101000

020044
000040
012336
012414

000016

1%:

000010

012724

017224

(SP)+

;1S 'DRY'*=1?

TST8B

DPINT(R1)

ggv{?Gygo INTIALIZE

TST8B

DPRQS(R1)

;OUTSTANDING PORT REQUEST FOR THE DRIVE
;B IF YES

100400

012336
012414
17777+

BNE

BNE
MOV
CMP
BEQ
JSR
8IS
JSR

CLR
JSR

B8R

7S18
BEQ
MOV
CMP

012406
012460
020700

8MI

CLRB
CLRB
CLR

012336

001402
004737
052762
105061
105061
012763

JREAD 'DRIVE STATUS REG''

Mov

2%:

000016
012440

3%:
4%:

;SAVE R1
;SAVE R3
;GET ADDRESS OF 'RPCS1'’
JSELECT THE DRIVE

R1.RPCS2(R&)
RO,RD.RP

TSTB

012366

;DRIVE NUMBER

. CALL

BEQ
JSR

BIS

CLRB
CLRB
MOV

ST0?2

STO?2

;BR IF YES

THE DRIVE

ST02
TRNSWT ,R2
R1,.DTWW
1%
PC,GETREQ

BRANCH IF YES
GET DPB ADDRESS

PC.,SVRH11

:SAVE RH11/RP04/5/6 REGISTERS

DRVACT(R1)
ULDFLG(R1)
R1

;DRIVE IS IDLE
;CLEAR THE UNLOAD FLAG
sSTART WITH DRIVE 0

:PICKUP TRANSFER WAIT QUEUE
s TRANSFER UNDERWAY ON THIS DRIVE?

#31T15'BIT09, 16(R2) ;SET THE ERROR FLAGS
#B1T05,RPCS2(R4) ;' INIT"* THE MASS BUS

R3
RO.DRVINT
STOS

DRVACT(R1)
48
TRNSWT ,R2
DTUW.R1

sINIT. THIS DRIVE

sPARITY ERROR RETURN

;DRIVE IDLE BEFORE THE INIT.?
s YES~-BRANCH

sGET TRANSFER WAIT QUEUE
;WAS THERE 1/0 ON THIS DRIVE?

3$
PC,GETREQ

; YES--BRANCH

#-1,TIMER(R3)

;STOP THE

:GET THE DPB POINTER FROM QUEUE
#8iT15!B1T08,16(R2) ;INFORM USER OF INIT.
DRVA(CT(R1)
;SET'DRIVE ACTIVE TO IDLE
ULDFLG(R1)
:NO_UNLOAD
TIMER

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

4077
4078
4079
4080
4081
4082
4083

017232

30A(1052)

N
14:10
PAGE 80
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER

24~MAY-79

005723

TST
INC

000010
177777
012406
020526

CMP
BGT

012460

000016
012462

ST02:

012376

017472

BITB

ATABIT(R1)
,R5S

TSTB
BNE

DPINT(R1)
ST06

;TRYING TO INTIALIZE THE DRIVE
;BR IF YES = DRIVE NOT ONLINE

R1,DTUW
ST01
RO,RD.RP

;DATA TRANSFER UNDERWAY FOR THIS DRIVE
;BR IF NO
;YES-=CHECK 'RDY*’

BR
MOVB

RPCS1

b
b
b

CONO
NS WN) =

b vmd e
ed

b e
—

ad
md wmed
—d

b epd

Y
YV V¥

1ST8

012366

ST03:

012376
177777

012440

1%:

015014

STOS:

012366
012346

ST06:

177777

012440

140000

000016

177777

012440

020700

012376
020700
100004
020604

020044

000016

ST07:

STO8:
ST09:

JROUTINE

‘CALL
J
.

sLAST DRIVE BEEN CHECKED?
sNO--LOOP

sNO DATA TRANSFERS UNDERWAY
:CLEAR TRANSFER WAIT QUEUE
;CLEAR ALL REQUEST QUEUES
JEXIT
JREAD ATTENTION REG
;IS ATTENTION FOR THIS DRIVE UP ?

STOS

017332
017334
017340
017342
017346
017350
017356
017360
017364
017366
017372
017376
017404
017410
017412
017414
017422
017424
017432
017436
017442
017444
017446
017454
017460
017464
017466
017470

cUPDATE THE INDEX
2 INCREMENT THE DRIVE NUMBER

#=1,DTUW
TRNSWT
PC,CLRQUE

TST8B
BNE
CMP
BNE
JSR

012460

SEQ 0078

MoV
CLR
JSR

BNE

012366

(R
R1
#8. .R1
2%

(REV 1.0)

8PL

ST09
RPAS (R4) ,R5

ST03

DPRQS (R1)
ST07

(SP)
+

;BR IF 'RDY''=0

;BR IF

DPINT(R1)

TSTB

DPRQS (R1)

sOUTSTANDING PORT REQUEST FOR THE DRIVE ?
sBR_IF YES = NO RESPONSE TO REQUEST

ST01

TSTB

BNE

; YES~-BRANCH

JINITIALIZING THE DRIVE ?
INIT PENDING

;PORT REQUEST PENDING ?

BEQ
MOV
BR
égR

ST09
#=1,TIMER(R3)
ST09
§$6518

CLRB
CLRB
MOV
JSR
TST
BEQ
BIS
BR

DPINT (R1)
;CLEAR THE INITIALIZE INDICATOR
DRVSTA(R1)
cSET UNIT OFFLINE
#=1,TIMER(R3)
;STOP THE TIMER
PC,GETREQ
;GET THE DPB ADDRESS
R2
JREQUEST IN QUEUE ?
ST09
:BR IF NOT
#BIT15!BIT14,16(R2)
;INFORM THE USER DRIVE NOT AVAILABLE
STO8
sFINISH

MoV

:BR IF NOT
;STOP THE TIMER
JEXIT
;GO HANDLE THE PARITY ERROR

#-1,TIMER(R3)

;STOP THE TIMER

PC.EMPTYQ

;CLEAR THE QUEUE FOR THE DRIVE

(SP)+,R1
PC

JRESTORE R1
sRETURN

CLRB
JSR
TST
BEQ
MOV

DPRQS (R1)
sCLEAR PORT REQUEST INDICATOR
PC.GETREQ
;GET DPB ADDRESS
R2
;QUEUE ENTRY FOR DRIVE ?
ST09
:BR IF NONE
#BIT15!BIT2,16(R2)
;INFORM USER OF PORT REQUEST ERROR

JSR
MoV

PC,SVRH11
(SP)+,R3

JSR

MOV
RTS

sSAVE THE REGISTERS
;RESTORE R3

TO READ A RH11/RP04/5/6 REGISTER

JSR
INDEX
ERRADR

RJ.RD.RP

;GO READ A REGISTER

JREG.

INDEX FROM BASE

sERROR ADDRESS=--PROCESS ERROR STARTING

(ZRJUBD.P11

MACY11

28=-MAR-79 11:23

30A(1052)

4133

6136
4137
4138
4139
4160
4141
4142
4143
4144

017472
017500
017502
(17510
017514
017516
017520
017522
017530

013737
011646
013737
062037
013727
000000
000000
013766
013746

012472

017640

012474
017516

017516

017520
012474

000002

4146
4147
4148
4149
4150
4151
4152
4153
4156
4155
4156
4157
4158
4159
4160
4161
6162
4163
4164
4165
4166
4167
4168
4169
4170
4171
6172

017540
017544
017546
017552
017556
017560
017562
017564
017564
017570
017572
017576
017600
017604
017606
017610
017612
017616
017620
017626
017632
017634
017636
017640
017642
017644
017646

032736
001037
017746
032716
(01002
022620
000432

010000

2};2

017534

017650

062716

000010

020764

052716
000316

040000

005726
000415
013737
005237
112637
000000
005327
000003
002324
011000
012616

MOV
MoV
Mov
ADD
RD.RP1: MOV
RD.ADR: .WORD
RD.WRD: .WORD
MOV
MOV

ADD

1%:

012460

040000

012474
017634

017634

000200

8IT
BNE
MOV
BIT
BNE
C(MP
B8R

JSR
ERROR
TST
BM]
BIT
8EQ
TST
B8R
2%:
BIS
SWAR
MOV
INC
MOVR
3%:
. WORD
DEC
RD.RP2: .WORD
8GE
RD.RP3: MOV
MOV

RD.RP4: RTS

4175
4176

SROUTINE

SEQ 0079

AT THIS ADDRESS

,CONTENTS OF

REG.

IS ON THE

STA(K

MCPEMX ,RD.RP?2
(SP) ,-(SP)
RPADR ,RD .ADR
(RO) +,RD.ADR
a(PC)+,(P()+
0
O
RD.WRD,2(SP)
RPADR ,-(SP)

cMAX. RETRYS ALLOWED
:SAVE RO FOR RETURN
JFORM THE DESIRED ADDRESS
JUSING THE BASE AND THE [NDEX
JREAD THE DESIRED REGISTER OF
;ADDRESS IS FORMED HERE
JREG. CONTENTS PUT HERE
JRETURN IT TO THE USER
JPUT THE ADDRESS ON THE STA(K

#MBIT12,9(SP)+
RD.RP3
aRPADR, - (SP)
#IT13,(SP)
1%
(SP)+_(RO)+
RD.RP4

JCHECK THE °'NED' BIT
JBR IF DRIVE NON-EX]STENT
JREAD RP(CS1
;DID MCPE SET?
JBRANCH [F YES
JADJUST FOR RETURN
JEXIT

RO,ES.SAV
3
DTUW
23
#MIT14, (SP)
2%

;SAVE THE ADDRESS IN 'SESCAPE'
JREPORT ‘MCPE'' ERROR
;DATA TRANSFER UNDERWAY?
JNO=-~BRANCH
:NO-=""TRE''=1?
+NO~--BRANCH

lRPCSé,(SP)

;FORM THE ADDRESS OF RP(SZ

(SP)+
RD.RP3

JYES-=-CLEAN OFF THE STACK AND
;TAKE THE FATAL ERROR EXIT

RPADR, 3%
3%
(SP)+,a(P(C)+
0
(P(C)+

;FORM ADDRESS OF

WRITE THE HIGH BYTE OF
;ADDRESS STORAGE
cEXCEEDED MAX. RETRYS

3
RD.RP1

JBRANCH IF

#MITI4, (SP)
(SP)

(RO) ,RO
(SP)+,(SP)

THE RPO4

JCLEAR 'MCPE'' BY SENDING A '1°° TO ''TRE'’
;POSITION BEFORE WRITING
HIGH BYTE

RP(S1

JFATAL ERROR EXIT

TO WRITE A REGISTER

L4177
L4178

. CALL
:

MOV

2}3%

RETURN

4179
4180
4181

4186
4185
4186
4187
4188

PAGE 81

RE TURN

RD.RP:

172722
020000

004037
104003
005737
100405
032716
001402

14:10

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

z}gg

4145

24-MAY-79

:
.
.

017652
017660
017666
017670
017674

013737
016637
012616
012037
001015

012472
000002
017742

020026
017740

JSR
INDEX
ERRADR

WRT.RP: MOV
MOV
1017
MOV
BNE

DATA,=(SP)
RO,wRT.RP

;DATA TO BE LOADED ON THE STAC(CK

JCALL THE ROUTINE TO LOAD(WRITE) THE REG.
JINDEX OF THE REGISTER T0O BE LOADED
;ADDRESS TO RETURN TO ON AN ERROR

;ERROR FREE RETURN
MCPEMX,WRT.R2
2(SP) ,WRT WD
(SP)+, (SP)
(RO)+,WRT.AD
1%

;MAX RETRYS ALLOWED
;SAVE THE WORD TO WRITE
JADJUST THE STACK
JGET INDEX OF REGISTER TO BE
JBRANCH [F NOT RP(CS1

WRITTEN

C(ZRJBDO, RPO4L/S5/6 FMTR

CZRJBDO, RPO4/5/6 FMIR

CZRJBD. P11

4189
4190
4191
4192
4193
6194
4195
4196
4197
4198
4199

4200

4201
4202
4203
4204
4205
4206
4207
4208
4209
4210
4211
4212
6213
4214
4215
4216
4217
4218
4219
4220
4221
4222
4223
4224
4225
4226
4227
4228
4229
4230
4231
4232
4233

017676
017704
017706

017712
017714

017716
017720
017724
017730
017736
017740
017742
017744
017750
017754
017760
017762
017766
017770
017772
017776

122737
002411
004037
000000

000150

30A(1052)

017740

017472

177770

017741
012474

017742

C
14:10
24-MAY-79
PAGE 82
-iNGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
CMPB
BLT
JSR
RPCS1
WRT.R3
SWAB
BIC
MOVB
1%:
ADD
WRT.R1: MOV
WRT.WD:
WRT.AD:

012474
000010
010000

000010
177776

.WORD
.WORD
MOV
ADD

BIT
BNE
JSR
RPER1
WRT.R3
BIT
BEQ

017472

020012
1%:

MOV
JSR
.WORD

WRT.R3
JSR
ERROR
DEC
WRT.R2: .WORD
BGE

02076’

qISO.URT.UD
RO,RD.RP
(SP)
#*C7.(SP)
(SP)+ ,WRT.WD+1
RPADR WRT.AD
(PC)+.a(PC)+

0
0

RPADR , - (SP)

#RPCS2, (SP)

#BIT12.8(SP)+
WRT.R3
RO,RD.RP

#BITO3, (SP)+

WRT.R4

-2(R0),1$
SO.RD.RP
RO,ES.SAV
4

(PC)+

TST
WRT.R3: MOV
BR

WRT.R1
(SP)+
(RO) RO
WRT.RS

WRT.R5:

WRT.R4:

TST

RTS

+
(RO)

SEQ 0080

;1S THE COMMAND FOR DATA TRANSFERS?

;YES--DON'T GET THE OLD A16 & A17, & PSEL
;NO---COMBINE A168A17, & PSEL WITH

;THE COMMAND BEFORE SENDING IT TO
; THE RH11/RPO4

;FORM THE ADDRESS OF

THE DISK REG.

;LOAD THE DESIRED REG.
;WORD TO WRITE GOES HERE
;ADDRESS IS FORMED HERE

sPUT THE ADDRESS ON THE STACK
:FORM THE ADDRESS OF RP(CS2

;CHECK THE °'NED' BIT
;BR IF DRIVE NON-EXISTENT
;CHECK FOR PARITY ERROR ON WRITE

;BRANCH IF 'PAR=(0"’

PICKUP THE INDEX
sREAD THE REG.
JREG. INDEX
JRETURN TO THIS ADDRESS ON ERROR
;SAVE THE ADDRESS IN 'S$ESCAPE’
REPORT THE PARITY ON WRITE ERROR
;DECREMENT THE ERROR COUNT

JRETRY COUNTER
:TRY AGAIN IF NOT FINISHED

:CLEAN OFF

THE STA(CK

;EA?; THE ‘PARITY ON WRITE'®' ERROR EXIT
JEX
;ADJUST FOR ERROR FREE EXIT

JROUTINE TO SAVE THE RH11/RP04/5/6 REGISTERS AS PER DPB+14

CALL

4234
4235
4236
4237
4239
4240
4241
4242
4243
4244

MACY11
28-MAR-79 11:23

MOV

SVRH11:

SAVREG
TST

JSR

012474
000010
000014

020116

#DPBNUM ,R¢

;SAVE

R2
4%

;QUEUE ENTRY FOR THE DRIVE ?
;BR IF NONE

000022

000200

000010

1%:

CMpP

THE DRIVES REG'S

;SAVE RO - RS

RPADR R4
(R2) ,RPCS2(R4)

;SELECT DRIVE

6%
3%

JEXIT IF NO ADDRESS
JCOUNTER & POINTER

: CONT INUE

146 (R2) ,R3

020124
020124

;DPB POINTER TO R2

PC,SVRH11

;GET THE ERROR TA3LE POINTER

3% ,ARPDB
JREACHED THE BUFFER REGISTER ?
2%
;BR IF NOT
#BITO7 ,RPCS2(R4)
:°'OR' SET ?
2%
;BR IF SET
(R3)+
.STORE RPDB AS ZEROES

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

4267
4248
4249
4250
4251

020120
020124
020126
020130
020132
020140
020142
020150
020152
020156
020160

004037
000000
020152
012623
023727
001406
062737
000751
004737
104413

30A(1052)

017472

)

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

020124

000046

000002

(20124

014714

RO,RD.RP
O

CMP
BEQ

3$ ,ARPE(C?2
6%

sREACHED THE END ?
;BR IF YES

RTS

JRETURN

ADD
BR
JSR
RESREG

5%:

6%:

000207

JSR
.WORD
5%

MOV

4%:

SEQ 0081

(SP)+,(R3)+

#2.3%
1%
PC.CI7

JREAD THE SELECTED REGISTER
JREGISTER INDEX
;ERROR RETURN ADDRESS
;STORE

THE REGISTER CONTENTS

s INCREMENT THE REGISTER INDEX
;CONTINUE READING THE REGISTERS
;PROCESS THE UNCORRECTABLE PARITY ERROR
JRESTORE RO - RS

:?RU[INE TO SET THE INTERRUPT WITHOUT GETTING A ''TRE"’
.
:

CAL

020162
020164
020170
020174
020176

010446
013704
010164
011446

JSR
RETURN

SET.IE: MOV

012474
000010

MOV

MOV
MOV

040000
000100
010000

MoV

8IS
SWASB

000010

020232

2%:

QCNT:

;QUEUE

020244
020246
020250
020252
020254
020256
020260
020262

020326
020346
020366
020406
020426
020446
020466
020506

QINPT:

R4 ,=(SP)

sSAVE R4

R1,RPCS2(R4)
(R4) ,~(SP)

;SELECT DRIVE
sREAD RP(CS1

RPADR R4

JSET "IE""

TO R1

;PICKUP ADDRESS OF

;SET THE '‘TRE'' BIT OF THE WORD READ
;ADJUST FOR DATO

(SP) +

;CLEAN OFF

8R
MovR

2%
(SP)+,1(R&)

;CLEAR '"TRE"’

RTS

JRETURN TO CALLER

MoV

BYTE

.BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE

(SP) + R4

0
0
0
0
O
0
0

JRESTORE R&

;DRIVE

;DRIVE
;DRIVE
;DRIVE
;DRIVE
JDRIVE
sDRIVE
;DRIVE

1
2
3
4
5
6
7

INPUT POINTERS
.WORD
.WORD
.WORD

QDRVO
QDRV1
QDRV?

.WORD
.WORD
.WORD

QDRV4
QDRV5S
QDRV6

.WORD

RPCS1

#B1T14, (SP)
(SP)

#BIT06, (R4)
JSET ''IE"
#BIT12 ,RPCS2(R4) ;IS 'NED''=1?
1%
;YES=--CLEAR ''TRE"’

- QUEUE COUNT

020234
020235
020236
020237
020240
020241
020242
020243

;DRIVE NUMBER

PC,SET.IE

MOvB
BIT
BNE
TST

000001

#DRVNUM,R1

;DRIVE O
sDRIVE 1
;DRIVE 2

QDRV3

JDRIVE 3

QDRV?7

JDRIVE 7

;QUEUE OUTPUT POINTERS

;DRIVE 4
;DRIVE 5
;DRIVE 6

THE

STACK

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

4355

4356

020326
020346
020366
020406

020274
020276
020300

020302

020426
020446
020466
020506

020304
020306
020310
020312
020314
020316
020320
020322
020324

020326
020346
020366
020406
020426
020446
020466
020506
020526

14:10
PAGE 84
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
QOUTPT:

QSTART:

QSTOP:

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

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

QDRVO
QDRV1
QDRV?2
QDRV3
QDRV4
QDRVS

SEQ 0082

;DRIVE 0

:DRIVE 1

;DRIVE 2
;DRIVE 3
;DRIVE 4

;DRIVE §
;DRIVE 6
;JDRIVE 7

QDRV6

QDRV7

QDRVO
QDRV1
QDRV?2
QDRV3
QDRV4
QDRVS
QDRV6
QDRvV7

;DRIVE 0
Q START ADDRESS
;DRIVE O STOP ADDRESS & DRIVE 1 START ADDRESS
;STOP DRIVE 1--START DRIVE 2
;STOP DRIVE 2--START DRIVE 3
;STOP DRIVE 3--START DRIVE 4

;STOP DRIVE 4~<START DRIVE S

:STOP DRIVE 5~=START DRIVE 6
;STOP DRIVE 6--START DRIVE 7
;STOP DRIVE 7

QTERM

QDRV3:

.
QDRV4
QDRVS:
QDRV6:

QDRV7:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

QDRVO:
QDRV1:
QDRV2:

000010
000010
000010
000010
000010
000010
000010
000010
020526

[

020326
020346
020366
020406
020426
020446
020466
020506

elolelolololele)

;DRIVE REQUEST QUEUES

QTERM=,

JROUTINE TO CLEAR ALL OF

*CALL
020526
020530
020534
020536
020540
020542
020544
020550
020554
020556
020560
020562
020566
020572
020574

020602

104412

012702
005022

020234

000010
020304

000207

CLRQUE:

PC.CLRQUE

SAVREG
Mov
CLR

#QCNT ,R2

MOV
MOV
MoV

#8. ,R3
#QSTART ,R1
(R1)+_(R2)+

DEC
BNE

2%:

THE REQUEST QUEUES

JSR

CLR
CLR
CLR

-a

6315
4316
6317
4318
4319
4320
4321
4322
4323
4324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334
4335
4336
4337
4338
4339
4340
4341
4342
4343
4344
4345
4346
4347
4348
4349
4350
4351
4352
4353
4354

020264
020266
020270
020272

24-MAY-79

»n

4301
4302
4303
4304
4305
4306
4307
4308
4309
4310
4311
4312
4313
4314

30A(1052)

MoV
MoV
MOV
DIFC
BNE

RI SREG
RTS

(R2)+
(R2)
+
(R2)+
(R2)+

;SAVE RO - RS
;ZERO _THE QUEUE COUNTS
;DRIVES 0 & 1
;DRIVES 2 8 3
;DRIVES 4 & 5
;DRIVES 6 8 7
;MOVE THE STARTING
sADDRESS OF

THE QUEUE

INTO

R3
1%
#8. ,R3

;THE

QUEUE

INPUT POINTER

JMOVE

THE

STARTING ADDRESS

(R1)+,(R2)+

;QUEUE OUTPUT POINTER

#QSTART
,R1

R3
2%
PC

JEMPTY THE QUEUE SPECIFIED BY R1

;OF THE QUEUE INTO THE

JRESTORE RO - R5

(ZRJBDO, RPO4/5/6 FMTR
MACY11
CZRJBD. P11
28-MAR-79 11:23
4357
6358
4359
4360
4361
4362
4363
4364
4365
4366
4367
4368
4369
4370

30A(1052)

24-MAY-79

105061

020234

016161
006201
000207

020244

006301

MoV
JSR

EMPTYQ: gng

020264

MOV
ASR
RTS

JROUTINE

CALL
ETETYER)

4371

(IR

4372
4373
4374
4375
4376
4377
4378
4379
4380
4381
4382

122761

000010

105261

020234

001421
006301
01027
062761
026161
001003
016161
006201
005720
000200

020234

020244
020306

020304

020244

:
DRVQUE

1%:

2%:

020264

1%:

2%:
;ROUTINE

‘CALL

ggNT(R1)

;CLEAR NUMBER OF

QINPT(R1) ,QCUTPT(R1)
R1

ITEMS IN QUEUE

;SET OUTPUT QUEUE POINTER-INPUT POINTER

IN QUEUE

;GO _PUT REQUEST IN QUEUE
JRETURN HERE IF QUEUE IS FULL
JRETURN HERE IF REQUEST IS IN QUEUE

CMPB
BEQ

#10,QCNT(R1)
2%

;1S QUEUE FULL?
;BR IF YES-TAKE RETURN1

MOV

R2.,aQINPT(R1)

JPUT THIS REQUEST IN QUEUE

ggNT(RT)

;DRIVE NUMBER
;ADDRESS OF PARAMETER BLOCK

s INCREMENT QUEUE

g?TART(RT),QINPT(R1)

;BRANCH IF NO

TST
RTS

(RO) +
RO

;TAKE RETURN 2
JRETURN TO USER

TO GET

MoV

COUNT

#2,QINPT(R1)
;UPDATE THE QUEUE POINTER
QINPT(R1) ,QSTOP(R1) ;TIME TO RESET THE POINTER

ggx

RETURN

GETREQ:

;DRIVE NUMBER TO R1

JSR
RO,DRVQUE
RE TURN1
RE TURN?

JSR

020734

SEQ 0083

#DRVNUM,R1
#DPB,R2

BNE

CALL

005002
105761
001404
006301
017102
006201
000207

MOV
MOV

ADD
CMP

JROUTINE

020700
020702
020706
020710
020712
020716
020720

DRVNUM,R1
PC.EMPTYQ

TO PUT A REQUEST

AQEB

020244
000002
020244

PAGE 85

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

CALL
020604
020610
020612
020620
020622

14:10

THE

'DPB'' ADDRESS OF

#DRVNUM,R1

PC,GEIRC W

;YES=-RESET POINTER

NEXT REQUEST

;DRIVE NUMBER

;60 GET

IN QUEUE

TO R1

THE REQUEST

;R2="DPB’’ ADDRESS OF

THE REQUEST

JR2=0 IF NO REQUEST IN QUEUE

CLR
TST8B

R2
QCNT (R1)

;1S THERE ANY REQUEST IN QUEUE?

ggx

g?OUTPT(R1).R2

JPICKUP 'DPB'' POINTER FOR

RTS

JRETURN

258

s NO==-8BRANCH

TO USER

TO 'POP'' THE REQUEST FROM QUEUE
MOV

JSR

RETURN

#DRVNUM, R1

PC,POPQUE

;DRIVE

sCALL

NUMBER

TO R1

TO REMOVE

;R2=ADDRESS OF

REQUEST

DPB REMOVtD

THIS DRIVE

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

4413

4614
4615
6616
4617
4418
4419
4620
2455
4

020722

020726
020730
020734
020742
020750
020752
020760
020762

105361

006301
017102
062761
026161
001003
016161
006201
000207

30A(1052)

020234

POPQUE: DECB

020264
000002
020264

020264
020306

020304

020264

1%:

4423

JROUTINE

4425
4426
4427
4428

:
:CALL
;
:

4424,

:
020764
020770
020774
021000
021002
021006

012037
013746
005037
000000
012637
(00200

021000
001160
001160

QCNT(R1)

JSR
ERROR

RE TURN

001160

SRR

44640

2225

021010
021016
021024
021032
021040
021046
021054
021062
021065
021072
021100
021106
0211146
021122
021130
021132
021140
021143
021150
021153
021160
021166
021174
021202
021210
021211

005015
047111
047522
040515
051104
046440
020105
005015
040
040522
042514
042526
020114
042502
000104
047440
042516
040
042516
040
047101
027464
047040
042522
000
040

:DECREMENT QUEUE COUNT

'SESCAPE' WHEN THE DRIVER

RO,ES.SAV
N
(RO)+,1%
$ESCAPE,~{SP)
$ESCAPE
O
(SP)+,SESCAPE
RO

::THE ERROR CALL

;THE RETURN IS PAST THE ERROR CALL
:GET THE ERROR CALL
;SAVE THE ADDRESS IN 'SESCAPE’
;CLEAR THE ESCAPE RETURN
;THE ERROR CALL IS MOVED HERE
;RESTORE THE ESCAPE ADDRESS
:RETURN

AR R R A AN A AN AR NN RN R R AR AR AR R AR RN N AR R AN N AR AR AR A NN AN

.SBTTL

TELETYPE MESSAGES

047122
050040
046501
020105
051505
061040
042105

USE:

ASCIZ

<CR><LF>/WARNING:

043517
041101
044522
046111

NOUSE:

.ASCIZ

/ PROGRAMMABLE-DRIVE WILL NOT BE USED/

044514

UNTOFF:

.ASCIZ

/ OFFLINE/

044514

UNTON:

,ASCIZ

/ ONLINE/

020124

NOTRP:

_ASCIZ

@ NOT AN RP04/5/6a

027465
052117
042523

000066
050040
052116

NOTPRS:

.ASCIZ

/ NOT PRESENT/

047125

040523

NOTSAF:

.ASCIZ

/ UNSAFE/

040527
035107
051107
046102
053111
054501
051525
000
051120
046515
062055
053440

047516
052640

043106
000

047865
047516

051040

020124
042523

030120

SEQ 0084

R1
3Q0UTPT(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
QSTART(R1),Q0UTPT(R1) ;YES=-RESET THE POINTER
R1
PC
:RETURN TO USER

TO SAVE THE CONTENTS OF

ES.SAV: MOV
MOV
CLR
1%:
.WORD
MOV
RTS

4439

44643
4444
4445
4446
4447
4448
44649
4450
4451
4452
4453
4456
4455
4456
4457
6458
4459
4460
4461
L4€2
4463
4464
6465
4466
4467
4468

ASL
MOV
ADD
CMP
BNE
MOV
ASR
RTS

:REPORTS AN ERROR DIRECTLY.

22%8

4431
4432
4433
4434
4435
4436
4437
4438

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

RNRES

PROGRAMMABLE DRIVES MAY BE USED/<CR><LF>

(ZRUBDO, RPO4/5/6 FMTR
MACY11
(ZRJBD.P
28-MAR-79 11:23
L4469
4470
66471
6472

6673
4476
4475

64676
4477
4478
4479
4480
4481
4482
4483
4484
4485
4686
46487
6488
46489
4490
6491
4492
6493
44946
4495
4496
4497

4498
46699

4500
4501
64502
4503
6504
4505
6506
4507
4508
4509

4510
4511
6512
4513
4514
64515
4516
6517
4518
4519
4520

64521
4522
4523
4524

021216
021221
021226
021233

021260
021246
021254

021257
021264
021271
021275
021277
021301
021303
021305
021310
021316
021324
021332
021340
021346
021354
021362
021370
021376
021404
021407
021414
021422

021430
021436
021444
021452
021460
021466
021467
021474
021502
021507
021514

021521
021526
021534
021542
021550
021553
021560
021566
021574
021602
021607
021614
021622
021627
021634
021642

042506
122
050122
122

047125
040524
005012

015
042526
040
103
124
060
040
040
047105
042101
020123
0515246
020040
020105
047111
042040
047040
042522
005015
060
020105
053101
046102
042040
047040
020116
032457
000
040
020105
042506
060

052103

015
051107
042117
047440
020072
040
052101
051105
044103
047117
106
020124

044522
015
051105
047111

000
030120
032460
030120

052111
052524
000

24-MAY~79
14:10
TELETYPE MESSAGES

000064
00v
000066

RPO4B:
RPO5:
RPO6:
SYSTAT:

.ASCIZ
,ASCIZ
_ASCIZ

.ASCIZ

/RPQ4/
/RPQS/
/RPO6/
/UNIT STATUS/<CR><LF><LF>

044522
000
000

MUNIT:

_ASCIZ

<CR><LF>/DRIVE:

SLASH:
C:
T:
MDRVD:
LINGSP:
LINSP:
ENTADR:

.ASCIZ
CASCIZ
LASCIZ
.ASCIZ
ASCII
,ASCIZ
.ASCIZ

@/ &
/C/
/17
/0/

MOFFLN:

.ASCIZ

MDRNP:

_ASCIZ

/ DRIVE NOT PRESENT/<CR><LF>

MER11:

.ASCIZ

/ DRIVE NOT AVAILABLE/<CR><LF>

MNRPO4:

.ASCIZ

@ DRIVE NOT AN RP04/5/6@<CR><LF>

MUSDR:

.ASCIZ

/ DRIVE UNSAFE/<CR><LF.

MSELD:

.ASCIZ

/ SELECTED/

MMODE:

.ASCIZ

<CR><LF>/PROGRAM MODE

MFORMT:

.ASCIZ

/ FORMAT R VERIFY/

MHECK:

.ASCIZ

/CHECK ONLY/

MORMAT:

_ASCIZ

/FORMAT & VERIFY/

MSIZE:

.ASCIZ

<CR><LF><LF>/OPERATE

051440
006523

042012
020072
020057
000
000
000
040
000040
042524
051104
044514
006472
051104
043117
006505
044522
052117
042523
000
051106
047516
044501
006505
044522
052117
050122
033057

053111
020124
040514
000012
042526
040440
032060
005015

051104
047125
005015
042523
042105
050012

053111
040523
000
042514
000
047522

046501
020105
020122
000
047506
023040
043111
041505
054514
051117

020046

054506
005012
052101
031040

0201 22
0515?2
0445
0000 12
053111
046106
000012
042526
050040
052116

046440
041450
024506

046522
053040
000131
020113
000
040515

042526

000
050117
020105
020062

PAGE 87

30A(1052)

SEQ 0085

/
/
/
/
/ENTER ADDRESS LIMITS:/<CR><LF>

DRIVE OFFLINE/<CR><LF>

(C OR F):

[N 22 SECTOR MODE

(Y OR N)

? /

(ZRJBDO, RPO4/S5/6 FMIR
MACY11
(ZRJUBD.P1
28-MAR-79 11:23
4525
4526
4527
4528
4529
4530
453
4532
(533
4534
4535
453%6
4537
4538
4539
4540
4541
4542
4543
4544
4545
4546
4547
4548
4549
4550
4551
4552
4553
4554
455S
4556
4557
4558
4559
4560
4561
4562
4563
(564
4565
4566
4567
4568
4569
4570
4571
4572
4573
4574
4575
4576
4577
4578
4579
4580

021650
021656
021664
021672
021700
021706
021714
021722
021730
021736
021744
021752
021757

022252
022260

022330

042523

046440
054450
024516
050117
047511
046114
047111
042523
024040
052111
042504
117
044524
0466111
044440
051440
020122
044502
042117
047111
020104
006531
047105
042040
051104
052123
050505
047524
051107
006522

024040
051117
051501

047527
040503
015
051101
043040
020124
044522
005015

30A(1052)

052103
042117
047440
037440
051105
020116
041040
031040

24-MAY=79

16:10
TELETYPE MESSAGES

PAGE 88

I
SEQ 0086

MSE(22:

LASCIZ

/OPERATION WILL BE

IN 22 SECTOR

(16 BIT)

MODE/<CR><LF>

MSEC20:

.ASCIZ

/OPERATION WILL

IN 20 SECTOR

(18 BIT)

MODE/<CR><LF>

:
BADENT

LASCiZ

/INVALID

MADRER:

LASCII

/ENDING DSK ADRS MUST BE

LASCI2Z

/THAN STARTING ADRS/<CR><LF>

CASCII

/SELECT

052103

033061
020051
005015
042520
047117
020114

020116
041505

030450
024524
006505
040526
047105
000012
044504
045523
020123
041040
040525
047440
040505
012
040510
051101
040440
000012
042514
052101
052124
012
030050
047522

020051
051447

CASCII

(0)

Z2ERO'S/<CR><LF>

024461
051447
024462
052123
035105

047440
005015
053440
041440
000040

LASCII

(1)

ONE'S/<CR><LF>

LASCIZ

(2)

WORST CASE:

051522

020124
000
052123
043516
040515
042040
000040
040524

MPATD:

.ASCI2Z

/WORST

MSFOU:

LASCIZ

<CR>XLF><LF>/STARTING

FORMAT

MS{HK:

ASCIZ

<CR><LF><LF>/STARTING

(HECK

042523
005012
044524
051117

047117
042526
051412

051124

043516
040440
052515
020105
020114
020122
042524
020116
044524
051104

052103
020101
051105

MSELP:

ENTRY/<CR><LF>

EQUAL

TO OR GREATER/<CR><LF>

DATA PATTERN/<CR><LF>

CASE/
ON DRIVE

ON DRIVE

CZRJBDO, RP04/5/6 FMTR MACY11
CZRJBD P11
28-MAR-79 11 :23
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590
459
4592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602
4603
4604
4605
4606
4607
4608
4609
4610
4611

022336
022344
022352

022442
022450
022456
022464
022465
022472
022500
022506

035123

14:10
TELETYPE MESSAGES

022512
022520

4629
4630
4631
4632

022726
022734

0464122
052116
052120
051125
051050
024460
125
041505
052101
047511
052503

050103
000
115
L51525
05211
047522
051101
042101
020123
041440
020105
042523

PAGE

J
-

020107
020113
044522
051117
047503
042524

:
MF CMPT

LASCIZ

CCROSLF><LF>/FORMAT

(COMPLETE,

000
005012
020113
042514
00u
052117
051122
042504
042105

044103
047503
042524

MCCMPT:

LASCIZ

CCR><LF><LF>/CHECK COMPLETE, /

046101
051117
042524
020072

NUMERR:

.ASCIZ

/TOTAL

042522
040440

042523
042104

ADDRIS:

JASCIZ

/PRESENT ADDRESS

051523

000040

ERRORS DETECTED:

IS:

044440

4628

4636

124

042440
020123

047111
041505
042040
000040
043012
020124
042514

24-MAY-79

AAASE

.SBTTL

4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624
4625
4626
4627

4633
4634
4635

052122
044103
047117
042526
005015
040515
050115
020054
015
041505
050115
020054

30A(1CS2)

AL EEAS

SRR

ettt

Rttt

it islsidssissstissssissdn

ERROR MESSAGES
AL

LRttt

ettt

030461
051105
047440
042522
040520
000
042516
042524
042524
020116
051122

044440
052522
041503
020104
036523

EM1:

LASCIZ

/RH11

050130
020104
052116
041517
042105

EM2:

ASCIZ

/UNEXPECTED ATTENTION OCCURRED/

051501
050040
020131
020122
036505

041123
051101
051105
046450
024461

EM3:

LASCIZ

/MASSBUS PARITY ERROR

(MCPE=1)/

051501
250040
020131
020122
030475
051104
046120
040510
044502
000124

041123
051101
051105
050050
000051
051505
043525
043516
020124

EM4:

LASCIZ

/MASSBUS PARITY ERROR

(PAR=1)/

EMS:

LASCIZ

/ADDRESS PLUG CHANGE BIT

INTERRUPT OCCURRED

(RPAS=0)/

SET/

20020002

SEQ 0087

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

022740
022746
022754
022762
022770

044122
042111
042522
020104
042104
047111
051104
043117
000105

042520

042524
044522
051516
051105

30A(1052)

24-MAY=-79
14:10
ERROR MESSAGES

PAGE 90

SEQ 0088

030461
023516
050123
047524

042040
020124
047117
040440
051523

EM6:

LASCIZ

/RH11

0531
046106

020105
047111

EM10:

LASCIZ

/DRIVE

051522
052116
042526
043101
047522
047503
040524
040515
020123
054524
051117
043117
020105
052517
053111
040523
051122

051511
042040
052440
020105
000122
051122
046102
051523
040520
042440
000
053524
044524
000124
020105
042506
051117

EM11:

LASCIZ

/PERSISTENT DRIVE

EM12:

CASCIZ

/UNCORRECTABLE MASSBUS PARITY ERROR/

EM13:

LASCIZ

/SOF TWARE

EM14:

ASCIZ

/DRIVE UNSAFE ERROR/

047117
042574
053111
047522
044522
044522

051124
027522
020105
020122
043516
042524

EMI1S:

.ASCIZ

dCONTROLLER/DRIVE ERROR DURING WRITEa

047117
042514
053111
047522
044522
044522
042510

051124
027522
020105
020122
043516
042524
045503

EM16:

ASCI2Z

dCONTROLLER/DRIVE ERROR DURING WRITE CHECKa

052105
047040
041525
046125
041505
047516
042503
042514
052101
047522
044522
044522
042510

044522
052117
051505
026440
047524
020124
052120
000
020101
020122
043516
042524
045503

EM17:

LASCIZ

GRETRIES NOT SUCESSFUL ~ SECTOR NOT ACCEPTABLEQ

EM20:

LASCI2Z

aDATA ERROR DURING WRITE CHECKa

042522
000107

DIDN'T RESPOND

TO ADDRESSING/

OFFLINE/

UNSAFE

ERROR/

TIMEOUT/

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

4693
4694
4695
4696
4697
4698
4699
4700
4701
4702
4703

4704
4705
4706
4707
4708
4709
4710
4711
4712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725
4726
4727
4728
4729
4730
4731

4732
4733

023417
023424
023432

103
046117
051104
051105
042526
047111
042101
042510
041440
042522
051117
0431M

023652
023660
023666

052103
044522
042510
051122

051101
020105
020122
043516
042524

023674

045503

14:10
ERROR MESSAGES

023674
023701
023706
023714

050122
104
020040
030523

051501
044522
051040
020040
030522

SEQ 0089

QCONTROLLELR/DRIVE ERROR VERIFYING HEADERSa

EM22:

LASCIZ

adHEADER COMPARE ERROR VERIFYING HEADERSa

047111
044506
047111
042504
047040
051117
000
042524
045503
051117

EM?23:

CASCIZ

ACYLINDER FIELD

EM24:

LASCIZ

AWRITE

053504
051105
052504
053440

EM2S:

LASCIZ

QHARDWARE ERROR DURING WRITE CHECK®

IS NOT

CORRECT®

041440

000

.EVEN

000
042526
042120
051040
020040

AN AR A AR AN AR AN A AN RN RN

RARRA RN R R RN NN AN AR A RRAANRRANRRNNANSY

/RPAS/
/DRIVE

RPDS1

020105
020107
042040

DH3:

LASCIZ

/DRIVE

REG ADR

DH4:

LASCIZ

/DRIVE

REG ADR

020122
047517
041040

020105
020107
020040
020104
042101

020110
051505

042101
000123

DH6:

LASCIZ

/RH ADDRESS/

4737

IN HEADER

CHECK ERRORa

ASCIZ
ASCIZ

042520

024050

DH1:
DHZ:

051040

042101
052101
051104
020040
042101
043440
020040
000
122
051104

PAGE 91

LASCIZ

SRR R

4734
4735
4736

4738
4739
4740
741
4762
4743
4764
47645
4746
4747
4748

24=-MAY=-79

EM21:

051124
027522
020105
020122
054506
042510
000123
051105
040520
051122
051105
043516
042504

044040

051522
103
042504
046105
044040
020122
052117
042522
127
041440
042440

30A(1052)

RPER1

RPER2

051040
DATA/

GOOD

BAD/

RPER3

RPAS/

CZRJBDO, RPO4/5/6 FMTR
28-MAR-79

CZRJBD.P1T

4749
4750
4751
4752
4753
4754
4755

024056
064

4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
4771
4772
4773
4774
4775
4776
4777

ERROR MESSAGES

051104
020040
041520
051503
050122
020040
020061
051105

DH10:

LASCIZ

/DRIVE

ERR PC

RPCS1

RP(CS2

RPDS1

RPER1

RPER?Z

050122

020105
020122
050122
020040
020062
051504
050122
020040
020062

051105

041505
050122
020040
020040
040502
050122
020040

020061
041505
050122

DH10A:

.ASCIZ

/RPEC

RPEC2

RPWC

RPBA

RPDA

RPAS

RPLA/

DH10B:

JASCIZ

/RPDB

RPMR

RPDT

RPSN

RPOF

RPCA

RPCC/

DH1/:

LASCIZ

/DRIVE

ERR PC CYLINDER TRACK

SECTOR/

042526
051122
054503
051105
045503
041505

DH20:

JASCIZ

/DRIVE

ERR PC CYLINDER TRACK

SECTOR/

DH20A:

.ASCIZ

/RP(CS1

RPCS2

RPDS1

RPER1

RPER2

RPER3

RPEC1

RPEC2/

050122

020061
051503
050122
020040
020061
051105
050122
020040
020061
041505

041527
050122

020040
040502

DH20B:

LASCIZ

/RPW(

RPBA

RPDA

RPAS

RPLA

RPDB

RPMR

RPDT/

020040
040514
042120

051040

020040
020124
051520
051040
020040
020101
041520
053111
051105

024540
024542
024550

020040

SEQ 0090
RPER3/

020040
020040
040504

050122
020040

000
020102
046520
051040
020040
020116
047520
051040
020040
000103
020105
020122
046131
020122
020113
052103

CZRJBDO, RP04/5/6 FMTR MACY1T1
CZRJBD. P11
28-MAR-79 11:23
4805
4806
4807
4808
4809
4810
4811
4812
4813

024556
024564
024572
024600
024606
024614
024622

020040
040504
050122
020040
020040

4814

020040
020040
051501
050122
020040
020040
051115
050122
051520
051040
020040
020101
041520
020040
020040
020040
042047
053111
051105
020040
051104
052524
040505

4815
4816
4817
4818

4819
4820
4821
4822
4823

4824
4825
4826
4827
4828
4829
4830
4831
4832
4833
4834
4835

025124
025132
025140
025146
025150
025156

025224

040524

040504
001276
001274
012332
001274
001274
017520
001172
001214
001316
001346
001352

30A(1052)

24-MAY=79
14:10
ERROR MESSAGES

PAGE 93

SEQ 0091

050122
020040
020040

040514

050122
020040
020040
052104
020116

047520
051040
020040
000103
020040
020040
054105
005015
020105
020122
054503
(20040
046101
042504

020040
020040
020040
020040
020040
020040
020040
054522
045523
053111
651105
020040
051104
041501
042523
020040
020040
040524

054503
020040
020113
052103
040504
020040
000

012326
012334
017516
017742

012330
001276
017520
017740

001116
001320
001350
001354

001306
001322

020040
020040
020040

DHZ20C:

LASCIZ

/RPSN

DH23:

LASC1I

.ASCIZ

/DRIVE

LASCII

.ASCIZ

/DRIVE

DT1:
DT2:

.WORD
.WORD

ATTN

DT3:
DT4:

.WORD
.WORD

DDRIVE ,RD.ADR,RD.WRD
DDRIVE ,WRT.AD,WRT.WD
,RD.WRD

DT6:
DT10:

.WORD
.WORD

$RPADR
DRIVE,$ERRPC,RP.REG,RP.REG+10,RP.REG+12,RP.REG+14
,RP REG+40,RP . REG*+42

.WORD

RP.REG+44 ,RP.REG+46,RP.REG+2
,RP.REG+4 ,RP .REG+6 ,RP .REG+16,RP.REG+20

DH24:

020040
020040
020040
042515
020040
005015
020105
020122

001310

RPOF

RPCA

RPCC/

EXPT'D/<CR><LF>

ERR PC

CYLNDR

ACTUAL HEADER/

TRACK

SECTOR

MEMORY

DISK/<CR><LF>

DATA

DATA/

DDRIVE ,RPERRS ,RPERRS+2 ,RPERRS+4 ,RPERRS +6,ATTN

4867

4868
4869
4870
4871
4872
4873
4874
4875
4876
4877
4878
4879
4880
4881
4882
4883
4884
4885
4886
4887
4888
4889
4890
4891
4892
4893
489%
4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
4911
4912
4913
4914
4915
4916

025460
025462
025464
025466

025470
025472
025474
025476
025500
025502
025504
025506
025510
025512
025514

025516
025520
025522
025524
025526
025530
025532
025534
025536

001332

001336
001344

000001
001
000001
006
000001
003
000001
004
000003
010
024154
007
024241

007

000001
005
000004
005

024444
010
024542

010
024637
004

001314

001324

001332
001340

001334
001342

001116
001252
001116
001252
001316
001346
001354
001312
001326
001334
001340

001270

001116
025566

025574
025570

001116
001252

001270
001124

001316
001346
001354
001312
001326
001334
001340

8
SEQ 0092

.WORD

RP.REG*+22,RP.REG+24
,RP.REG+2¢ ,RP.REG+30,RP.RIG+32,RP.REG* 34 .RP.REG+36

DT17:

.WORD

DRIVE,S$ERRPC,DS.CYL,DS.TRK,SAVSEC

DT20:

.WORD

DRIVE,$ERRPC,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

DT23:

.wW~D

DRIVE,SERRPC
,RBUF
.BUFP,
+2 ,RBUF +4
RBUF
,RBUF +6

DT24:

.WORD

DRIVE.SERRPC.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
JWORD
BYTE
JWORD
BYTE
.WORD
BYTE
"WORD
BYTE
"WORD

1
1.0
1
6.0
1
3.0
1
4,0
3
8..0
DHI0A
7.0
DH10B

000

.WORD
BYTE
.WORD
BYTE
-WORD
BYTE

1
5,34
4
5,34
DH20A
8..0

000

BYTE

8..0

000

BYTE

4.0

000
000
000

000
000

DF1:
DF2:

DF3:
DF 4 :

DF10:

000
000

034

DF17:
DF20:

.BYTE

.WORD

JWORD

7.0

DH20B
DH2OC

P~ —

PAGE 94

IAIWNWNINWNWNAWNIN WD WD IIALLNIAIAIAALAINININAILNALA + A

4864
4865
4866

001312
001326
001330
001336
001344
001214
001272
001214
001272
001306
001322
001352
001310
001324
001332
001336
001344
001214
025564
025572
001214
001272
001330
001306
001322
001352
001310
001324

16:10
ERROR MESSAGES

ANV WVNWNWNWWNNNNWNWNLN NN

4863

025232
025240
025242
025250
025256
025260
025266
025272
025300
025304
025312
025320
025324
025332
025340
025344
025352
025354
025362
025370
025372
025400
025406
025410
025416
025424
025430
025436
025444
025450
025456

24-MAY=79

sVt

4861
4862

30A(1052)

wmuUmuwrmunmuwvmmuvmIimivnyL

(ZRJBDO§1$P04/S/6 FMTR
MACY11
CZRJBD.
28-MAR-79 11:23

000

".'*tt*ttt‘ititt'*tti**.'iit'tttt!ttttt'ttti'tittttttt.tt't'tt't't

] v} i =

;JBUFFER STARTS HERE
,'.'tt‘tt**'*tttififitfittfi*ttt'tfitfiiitfittttittttfit'flttQQ't."ttttt".

000000

025574

025574
025602
025610
025613

026056

:
RBUF

.WORD

BUFP:

005015
055103
006504
122
027465
046522
020122
040522

047522

055012
045122

026532
026502

TITLE:

027464

0.0.,0.0

;JBUFFER FOR HEADER CHE(K
;FORMAT AND CHECK BUFFER STARTS HERE

.ASCII

<CRO><LF><LF>/22-CZRIB=-D/<CR><LF>

LASCIZ

aRP04/5/6 FORMATTER PROGRAMI<CR><LF><LF>

LASCII

<CR><LF>/TO "FORMAT'

051120
006515

047506
042524
043517
005012

052012
051117
047440
042510
051104
026060
040514
042510
050104

020117
040515
020122
045503
053111
051040
042503
023440
006447

041501

020113
044522
053440
047101
020122
020054
020122
054522
052101
030064

.ASCI]

/PACK ON DRIVE

051040
052122
050040
046501

.ASCIZ

/AND RESTART

LOADRV:

e e

000000
000000

°'CHECK®

DRIVE O, REPLACE

O WITH ANOTHER PACK,

THE

PROGRAM/<(CR><Lf>

] =] v e = = — e = =y

025564
025572

~e~ |

A NN NN NNNNNWNWNLN
eA

.BYTE
.WORD
.BYTE

THE

°'XXDP'/<CR><LF>

CLEAR MEMORY LOCATION &40,/<CR><LF>

] el ol ) d ] ) e

.WORD

000

e v

000

SOOJ\
>

.WORD
.BYTE
.WORD
BYTE

.
O

DF24:

X
NN

.WORD

SEQ 0093

[l
B
Y

024637
004

03¢

DF23:

025560
025562

010

000

PAGE 95

4924
4925
4926
4927
4928
4929
4930

000001
007
OOOOO?
00
024444
010
024542

16:10
ERROR MESSAGES

I o« e
o N>
ANy
OO

4923

025540
025542
025544
025546
025550
025552
025554
025556

24-MAY-79

&H Do0OD
00T NN

4917
4918
499
4920
4921
4922

30A(1052)

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

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

0
SEQ 0094

026072
026340

177776
000004
026304
152710
000004

026074

000004

4%:
7$:

7%
’$
3
(%
3%
49
MOV
MOV
MOV
TST
MOV

——

—

p—

MOV
MOV
JSR

. CARRIAGE RETURN ONLY ENTERED
JPERIOD ONLY ENTERED
;JILLEGAL INPUT
sTERMINATED WITH A CARRIAGE RETURN
JTERMINATED WITH A "
;TERMINATED WITH A "’
;SAVE INPUT
;SAVE THE ERROR VECTOR
;SETUP FOR TRAP
;CHECK FOR RH11
JRESTORE ERROR VECTOR

R2,=2(R0)
ERRVEC ,R1
#8% ,ERRVEC
a$RPADR
R1,ERRVEC

JREAD THE ENTRY

;ASCII TEXT ADDRESS
JVECTOR LIMIT
;CHECK THE NUMBER

(SP)+,R1
HIVEC,LIMIT
RS.,CK.NUM

R2,-2(R0)
JMRHVEC
#$RPVEC RO
(RO)+,~(SP)

LLINSP

;CHECK THE NUMBER
. CARRIAGE RETURN ONLY ENTERED
;PERIOD ONLY ENTERED
s ILLEGAL INPUT
;TERMINATED WITH A CARRIAGE RETURN
JTERMINATED WITH A *',""
;TERMINATED WITH A "
;SAVE NEW RP(CS1
2 RHVEC="'
JFIRST VECTOR
JPRESENT RH11 VECTOR ADDRESS ON THE STACK
JTYPE IT
;2 SPACES

021305

RS.,CK.NUM

2%:
3s:

JSR
3s
7%
1%
2%
1%
4%
MOV
TYPE
MOV
Mov
TYPOC
TYPE
RDLIN

177776
026327
001174

026074

026070
026340

026244
026244
026166
026240
026166
026240
010260
013701
012737
005777
010137

021305

026224
026226
026230
026232
026234
026236
026240
026244
026250
026256
026262

012601
013737
004537

1%:

026210
026212
026220

001302
001172
026316

JINPUT FROM TTY REQUESTED?
sNO--BRANCH
;YES--CLEAR THE REQUEST FLAG
cFIRST ADDRESS
J'RPCSI="
;PRESENT RPCS1 ADDRESS
JTYPE IT
;2 SPACES
:GET THE ENTRY
;ADDRESS OF ASCII TEXT
cTHIS IS THE ADDRSS HIGH LIMIT

026206

001302

.WORD 177700
.WORD 776
_WORD
TST
CHGADR
8EQ
7%
CLR
CHGADR
MOV
#$RPADR ,RO
TYPE
JMRP(S1
MoV
(RO) +,-(SP)
TYPOC
TYPE
LLINSP
RDLIN
MOV
(SP) +,R1
MOV
HIAD,LIMIT

5018
5019
5020
5C21
5022
5023
5026
5025
5026
5027
5028

026146
026150
026152
026154
026156
026160
026162
026166
026172
026176
026200
026202

004537
026166
026244
026110
026162
026110
026240
010260
104401
012700
012046
104402
104401
104411

HIAD:
HIVEC:
LIMIT:
BUSADR:

5015
5016
5017

026132

026134
026142

177700
000776
000000
005737
001460
005037
012700
104401
012046
104402
104401
104411
012601
013737

PC ,BUSADR

5001
5002
5003
5004
5005
5006
5007
5008
5009
5010
5011
5012
5013
5014

026070
026072
026074
026076
026102
026104
026110
026114
026120
026122
026124
026130

JSR
RE TURN

4985
4986
4987
4988
4989
4990
4991
4992
4993
4994
4995
4996
4997
4998
4999
5000

s CALL

—

;
M
:

4,982

—

4983
4984

p—

.SBTTL
BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11
;sTHIS ROUTINE IS USED TO INSURE THE BUS ADDRESS
;OF THE RH11 1S SETUP FOR THE PROPER ADDRESS.
;1T WILL ALSO READ THE ADDRESS FROM THE TTY IF
JREQUIRED.
JNOTE: THIS ROUTINE DESTROYS RO-R4

4976
4977
(978
4979
4980
4981

—

000

005015

PAGE 96

2978

026064

24-MAY-79
14:10
ERROR MESSAGES

4973

30A(1052)

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

5029
5030
5031
5032
5033
5034
5035
5036
28?3);

026266
026272
026276
026300
026302
026304
026310
026312
026314

012700
012701
012021
012021
000207
010137
022626
104006
000675

001172
012474

5039
5040
5041
282%

026316
026324
026327
026334

050122
020075
122
036440

051503
002
053110
000040

30A(1052)

000004

E
24-MAY~79
14:10
PAGE 97
BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11

8%:

MOV
MOV
MOV
MOV
RTS
MOV
cMP
ERROR
B8R

#SRPADR ,RO
#RPADR,R1
(RO)+,(R1)+
(RO)+,(R1)+
PC
R1,ERRVEC
(SP)+,(SP)+
6
1%

020061

MRPCS1:

.ASCIZ

@RPCST

041505

MRHVEC:

.ASCIZ

@SRHVEC =

JFIRST ADDRESS OF NEW PARAMETERS
;FIRST ADDRESS OF WHERE TO PUT THEM
;BUS ADDRESS
;VECTOR ADDRESS
RETURN
+RESTORE ERROR VECTOR
cCLEAN OFF THE STACK
JREPORT THE ERROR
;ASK FOR BUS ADDRESS

= @

5044
5045
5046

LSBTTL
CK.NUM - (CHECK NUMBER (OCTAL)
sTHIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS
JAND FORMS AN OCTAL NUMBER IN R?2

5048
5049

:
.

5047

;CALL:

5050
5051
5052
5053
5054
5055
2829

5058
5059
5060
5061
5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
S083

5084

.
:
N
.
.
.
:

026340
026342
026344
026346
026350
026352
026354
026360
026362
026364
026366
026370
026372
026374
026400
026402
026404
026406
026410
026412
026414
026416
026422
026424
026426
026430

026432

010446
010346

010246
005004
005003
005002

004537
026460
026464
026460
026462
026374
026460
062705
006303

103426
006303
103424
006303
103422
060203
004537
026464
026446
026444
026436

026400

006654

000004

006654

MoV
MOV

JSR
RETURN
RETURN
RETURN
RETURN
RETURN
RETURN

CK.NUM: MOV
MoV
[0}
CLR
CLR
CLR
JSR
6%
8%
6%
7%
1%
6%
1%:
ADD
2%:
ASL
B8CS
ASL
8CS
ASL
BCS
ADD
JSR
8¢
5%
A 3
3

SEQ 0095

#ADR ,R1
#NUM_R?2

;ADDRESS OF ASCIZ STRING
;MAX SIZE OF INPUT NUMBER

RS5,CK.NUM
ADR1
ADRZ2
ADR3
ADR4
ADRS
ADRé6

.G0 FORM THE NUMBER
J''CR'* ONLY ENTERED == R2 = 0
J'PERIOD'' ONLY ENTERED -- R2= 0
cJLLEGAL CHARACTER IN THE INPUT STRING
"CR” ENTERED == RZ2
= NUMBER
"CU'NA” -= RZ2
= NUMBER
J'PERIOD'' == R2
= NUMBER

R4 ,~-(SP)
R3,-(SP)
R2,-(SP)
R4
R3
R2
R5.,(K.CHR

;SAVE R4
;SAVE R3
;SAVE R2
JRETURN POINTER
;START NUMBER AT ZERO
JSTORE RESULT
sCHECK ONE CHARACTER
;ILLEGAL CHARACTER
s CARRIAGE RETURN
P
J
;DIGIT 0-7
;DIGIT 8-9
s INCREMENT RETURN PAST °“'CR'* AND 'PERIOD'* ONLY RETURNS
JFOR THE OCTAL NUMBER [N R3
;DON'T LET IT GET 10 BIG

#4 RS
R3
6%
R3
6%
R3
6%
R2.R3
RS,.CK.CHR

;JCHECK ONE (HARACTER
;ILLEGAL CHARA(CTER
;CARRIAGE RETURN
0L
L

‘DIGIT 0-7

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

5085
5086
5087
5088
5089
5090
5091
5092
5093
5094
5095
5096
5097
5098
5099
5100
5101
5102
5103
5104
5105
5106

026434
026436
026440
026442
026444
026446
026450
026454
026456
026460
026462
026464
026466
026470
026472
026474
026476
026500

026464
105711

023703
101003
000401
005725
005725
060405
010302
005726
012603
012604
011505
000205

000001

24=MAY=79
14:10
PAGE 98
CK.NUM - (HECK NUMBER (OCTAL)
3s:

00101
005724
005724

005724

30A(1052)

026074

4%:
5%:

6%:
7%:
8%:

.END

8%
1STB
BNE
TST
TST

TST

(MP
BH]
BR
TST
TST
ADD
MOV
TST
MOV
MoV
MOv
RTS

(R1)
8%
(R4)+
(R&)+
(RG)
+
LIMIT,R3
8$
7%
(R5)+
(RS)+
R4 RS
R3,R2
(SP)
+
(SP) +,R3
(SP)+ R4
(R5) ,RS
RS

SEQ 0096

;DIGIT 8-9
;DOES A ''CR'' FOLLOW THE ‘'PERIOD"
;BR IF NOT
< INCREMENT THE RETURN
; INCREMENT THE RETURN INDEX
c INCRFMENT THE RETURN INDEX
;JINPUT VALUE TOO LARGE ?

JBR IF

;JBR IF NOT
- INCREMENT THE RETURN ADDRESS
; INCREMENT THE RETURN ADDRESS
;SETUP FOR PROPER RETURN
;LOAD ENTERED VALUE
sCLEAN OFF THE STAC(CK

JRESTORE R3
;RESTORE

:GET RETURN ADDRESS

<RETURN

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

ABS
ACK
ACL

ACTDRY

= 000200
= 000123
= 000040

ACTSTR
ACU
=
ADDRIS
ADRTBL

AOE
=
ATA
=
ATABIT
ATTN

ATO
=
AT
=
AT2
=
AT3
=
AT4
=
ATS
=
AT6
=
AT7
=
Al6
=
A17
=
BADENT
BAI
=
BEGCYL
BEGIN

012412

012413
100000
022465
001500

001000
100000
012462
001276

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
022036
000010
001224
002114

BEGINT
BEGINZ
BEGIN3
BEGTRK
8ITO
=
BIT00 =
BITO1 =
BIT02 =
B8IT03 =
BIT04 =
BITOS =
BIT06 =

002132
002142
002100
001230
000001
000001
000002
000004
000010
000020
000040
000100

B8IT08
BITO9
BIT1
BIT10
BIT11

000400
001000
000002
002000
004000

B4 1w
9114

875#
31114
31174
8304
2029
10744
7478
7344

3183«

1004#
7674

BIT12 = 010000

BIT13 = 020000
81714 = 040000
BIT1S = 100000

BITZ2
BIT3

BIT4
BITS
IT6

BIT7

= 000004
= 000010

= 000020
= 000040
= 000100

- 000200

8844

3406+
4012~

6
14:10
24-MAY-79
PAGE 100
CROSS REFERENCE TABLE -- USER SYMBOLS

3457+
4027+

3770~

3779«

SEQ 0097

45984
1729

3362
2227+

4850

4851

3574

3933

3960

3978

4086

1471+

1526+

1535

1589

1772

1776

1909

1470%

1525+

1538

1591

1908

191

1949

1409
1412

1522
1522

1894

3696

1398
1875
3273
3371

3347
3927
3716
3440
3648
3371
2254

3907
3514
3791
4073
3345

3927

3956

4241

2238
3473
3315

3698
3491
3353

3663

3682

3694

2245
3446
3449

3434
3482
3451

4158

4162

4267

3469

1948

1335
13004

BIT07 = 000200
=
=
=
=
=

30A(1052)

3371

1872
1872
1863
1894

3320

3919

6154

614m

1894
4203
1894
1894

3446
3997

3917
6374

4120

6354
634n
6334
6324

1719

4270

4058

3892

4073

4269

3907

3979
3451
4149

3997

3485

6120

3696

3698

3805

3707

3892

(ZRJBDO, RP04/5/6 FMTIR
MACY11
(ZRJBD.PIN
28-MAR-79 11:23

014700
014714

ci78
(I8

014742
015014

(KTRK
(K.CHR

004356
006654

(KADRS
003704
(KSWR = 104407

025474

023574
024056
024154

—h

1091

4937#

1079
1092

1081
1094

4990

64992+

3548
3646

36584
3552
3661

3560
3663

3569
3765

3573
3795

3818

6105

2168

2182

5064

5079

3584
3944

1084
1642

1085
1799

3591
4253

3597

3601

3615

4691

4495
4575

4499
4580

4504
4585

29564
2151a

5058+

2013»
4083

1479«

2392

L3374

1566+
2602

2028+

4443
6545
4942

2041

2591

2674

4473
4548
4948

4476

4556
4958

4486
4560
4969

4488

4564

4567

4537
4939

1803

1806+

952

1321
4851

4853

4854

1179
1200
49074
1172

4893#
1207

1214

1221

1228

1235

1256

1263

4901»

1212

1219

1226

1233

1254

1261

L7454

8354
8374

1772+

1696

2402

8854

Y VY. ¥

PRy

2226+

o T R

025460
025500
025514
025464
025520
025540
025544
025470

1078

4529
4830

<819

000200
000002
000010
001246
100000
000100
000001
177570
001274
000040
000002

RO
O =WV
NO O
L

DH1
DH10
DH10A

4522

DFf &

3715
1335

e R

DF1
DF10
DF17
DF2
DF 20
DF23
DF 24
DF3

1548

2137
21624
5017
2139
2002

006626
006726
026340
006600
006332
000040
020526
001300
000015

CRLF
=
CSF
=
(st
=
CYLCK
DCK
=
DCL
=
DCU
=
DDISP =
DDRIVE
DE1
=
DFF20 =

3662

36694
3672

36534
3604
3544
3635
3946
36814

2253%
6728

(K.DEC
(k.DIG
CK.NUM
(K.0CT
C(LOCKk
(LR
=
CLRQUE
CNTLC
(R
-

1298~

35324
35554
35764
3575
3602
3513
3625

014656

Cl6
ci7

1295+

1088

cIsS

1967
49904
L4794
1292+

1077
1090
4878

1075

026076
021275
001302
014064
014172
014300

1087
1947

BUSADR
C
CHGADR
cn
C13
Cl4

6464
1074

025574

BUFP

BPTVEC= 000014

SEQ 0098

6314
6304
VOO
OO
WV
[0
.JVeYe8

= 0004C0O
= 001000

24-MAY=79
14:10
PAGE 101
CROSS REFERENCE TABIE ~- USER SYMBOLS

—

BIT8
8119

30A(1052)

1284

49174
4919#
L8974
L899
L7284
1198
4903

48954
4905+

1205

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

0242461
024326

DH20
DH20A
DH20B

024375
024444
024542

DH23
DH24
DH3

024674
024772
023756

DH2

023701

DH20C

024637

DH4
DH6
DIGB
=
DISPLA
DISPRE
DLT
=
DL64
=
OMD
=
DONE
DPINT
DPR
=
DPRQS
DRIVE
DRQ
=
DRVACT

024004
024043
000004
001142
000174
100000
000020
000001
005436
012366
000400
012376
001214
004000
012336

DRVCLR=
DRVINT
DRVQUE
DRVSTA

000111
012724
020624
012346

DRVTYP

012356

DRY
=
DSWR
=
DS.CyYL
DS.TRK
DTE
=

000200
177570
001270
001272
010000
000200
012460

DTSY
DTUW

DT00
DT01
D102
0103
D104
DT0S
D106
DT07
D108

jot1

DT10
DT17
DT2
D120

=
=
=
=
=
=
=
=
=

000001
000002
000004
000010
000020
000040
000100
000200
000400

025146

025204
025260
025150
025272

L7694
1240
1149
1247
L7924
48034
48144
1268
1275
1156
1163
1177
7214
952#
S194

6954

7234
7574
1845

30A(1052)
4905
L778%
1170
1282
6911
4913
6915
48194
48304

24=-MAY-79

14:10

CROSS REFERENCE

PAGE

[

102

TABLE -- USER SYMBOLS

SEQ 0099

(729
(7854
4921
6923
4925

“7374
47414
47474

1321+
1329

18464

1329«

2237~

30704

3284

3287

3379+

3416

3836

3861

3987

3989+

30834

3422

3508+

3839
1518

4001~
1520

4052
1573

4090
1903

4101
4857

4116

3951«

4061+

4067

4074+

3656+

3675

3686

3701«

3275
3425

33094
3438
1507
3444

3418
43774

3477

3969

3990

4065

30414
3479

3265+

3266+

3610+

3267+
3719

1398
3720+

1409

1412

1512

951

1320
4866
4866

4868
4868

4881
4881

7274

9764
7904
30274
064

1388
3420
4108+
1391
3447
7264
5604
10014
10024
7504
7634
31774

1492~

3430

2228+
2229+
1696

3261

4081+

48504
1199
LB66H
117
1283

1497~

3609+

3483

4050

4088

4099

4866

4868

4878

4881

3784+

3857

3890

3921«

3928+

3941

3268+
3842

3278+
3850

3310+
3863

3310x
3915«

" 3368«
3922+

3373«
3934

3412
3992

1522

30574

3311«

3326+

3331+

3336+

3341

3347

3773

3785w

4055

4092

4156

3553«

3676

3679«

3689

3702

3704+

3713«

1206

1213

1220

1227

1234

1255

1262

L8574

3497

48514
48684

4107+

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

ENDCYL
ENDTRK

001222
001226

EM6

ENTADR
ERINDX
ERR
=
ERRVEC=
ES.SAV
EXT1
=

EXT10
EXT2
EXT20
EXT4
EXT40

=
=
=
=
=

022740

Y
U
G
S

021310
005462
040000
000004
020764
000001

1521+
1472+

1524+
1538

1787

18604

1319w

1707«

1527
1584

1330«
4154

1988+
4214

1520
1676
1793
1908+

1627+
1678
1808«
1909+

3929

1334+

3999

1721+
43624

1724~

1748«

1757+

1528
1590

1535

1582

1588

1803

3876

1989+
4314

1999+

2008+

5025

5026+

5028+

1635

1640+
1773~
1874

1641+
1774
1893
1937+

5034

000010
000002
000020
000004
000040

FEN
= 000200
FER
= 000020
FMTDPB
001356

FMT22 = 010000

- 000002

Fé

= 000020

Fo
F3

1704

£ —
—_~
N —

023537
023607
023631
022611
022647
022704

023470

1639+
3806
1311
A ONWN =28 NOWON00ONIWVI0D
=
O

EM23
EM24
EM2S
EM3
EM4
EMS

EM2?2

023303
022553
023361
023417

EM17
EM2
EM20
EM21

023121

023142
023165
023231

EM13

EM14
EM1S
EM16

000030
022512
023002
023020
023056

SEQ 0100

L8784
48814
48534
48544
48564

025172
025202
004000
000100
004000
001304
020604

EMTVEC=
EM1
EM10
EMI
EM12

J
24-MAY=79
14:10
PAGE 103
CROSS REFERENCE TABRLE
USER SYMBOLS

== = A NNV NV NININD = PNONININININ)
= —
NOOVNONOR
NS
WA
= = O 00

DT4
DT6
DVA
=
ECH
=
ECI
=
EFLG
EMPTYQ

025354
025372
025164

D123
D124
DT3

30A(1052)

= 000004
- 000010

1696
1474«
1651
1781
1906+

2228

1744
1871
1928+

1936+

1645+
1776+

1904+

2031

CZRJBDO, RPO4/S5/6 FMTR MACY11
CZRJBD.PI
28-MAR-79 11:23
FS

= 000040

GNS

NRRNRY

G0
GRV
GTSWR
HCE

=
=
=
=

000001
000010
1044 ~
000200

GETREG= 000141
GETREQ 020700

HCI
=
HCRC
=
HDREAD
KEDERR
HIAD
HIVEC
HT
=

002000
0004C0
005076
001262
026070
026072
000011

IAE
=
IE
=
ILF
=
ILR
=
I0TVEC=
IR
=
ISR
IXE
=
LA
LACNT
LF
=

002000
000100
000001
000002
000020
000100
015406
004000
015250
012424
000012

LIMIT
LINSP
LIN4SP
LOADRV
LOP.CK
LST
=
MADRER

026074
021305
021303
025651
005562
002000
022056

MCCMPT
MCLK
=
MCPE
=
MCPEMX
MDRNP
MDRVD
MER11
MFCMPT
MFORMT
MHECK
MHS
=
MINX
=

022411
000002
020000
012472
(021362
021301
021407
022364
(021553
021574
0071000
000004

MNDLTA
MNRPOS4
MOOE

012506
021436
001220

MAXSEC

MMODE

001266

7224

1357
7454
8574

7464
1762
9954
49874
49884
5524
7484

3691
2988

29944
1696

24~MAY-79
14:10
PAGE 104
CROSS REFERENCE TABLE -- USER SYMBOLS

3846
2989

3882
2990

SEQ 0101

3943
2991

3996
2992

2994

4057

4072

6110

4117

2998

43984
2999

3000

4443
4545

4476
4556
4958

4484
4560
4969

4488
4564

4491
4567

4495
4575

4499
4580

2996

= 010000

021607

2997

1793

1696
17694

2402

6634
7384
7394

6474
6864
3270
8274
350
31364
5534

4509
4589
49854
1407

1387
1349

3744
2396

3761«
2402

4529
4830
5016+

4537
4939
5091

4942

4473
4548
4948

2316

2327

44834

4997

5013

1798

1802

18894

1469+

1683

1744

1946

1966

1977

1567

1643

1699

1733

1819

2307

4184

021521

MOFFLN 021340
MOH
= 020000

MOL

7144
9134
3470
518
7094

30A(1052)

1444

4504
4585

CZRJBDO, RP04/5/6 FMTR

CZRJBD.P1T

MPATD
MPE
=
MRD
=
MRHVEC
MRPCST
MSCHK
MSE
=
MSEC20
MSEC22
MSELD
MSELP
MSFOU
MSIZE
MSTCK =
MUNIT

022260
000400
000020
026327
026316
022330
000020
021757
021700
021507
022160
022273
021627
000010
021257

MwW(

001260

MUSDR

MJR
=
MXDLTA
MxF
=
MXLACT
MXWNDW

mM1B

003176

Mé
M5
NBA
NED
NEM
NHS

003560
003642
100000
010000
004000
002000

NOTPRS
NOTRP
NOTSAF
NOUSE
NUMERR
ocyL
=

OENTER

OFFSET=
OFREV =
0F100 =
0F200 =
0OF25
=
OF400 =
O0F50 =
OF800 =
OPE
=
oPI
=

021174
021153
021211
021065
022435
100000

006344

000115
000200
000004
000010
000001
000020
000002
000040
020000
020000

L5734

45374
45294
45604
45754
45224
WL764
4504m
1461«

3744
3562

14794
1438
14484
14704
1529
1539
1850

1479
9084

8444
44654
44624
44684
44514
45934
8884
20194

1696

013604

34674

000010
006464
001430

20494

001443

1467«

1641

1730

1905

1496

1511

1515

1517

3757

= 000200

PAR
=
PARENT
PAR1
PAR?2

L
24=MAY=79
14:10
PAGE 105
CROSS REFERENCE TABLE == USER SYMBOLS

50414

003520

=
=
=

30A(1052)

5039#
45804

003050

1555
6884

000040
012504
001000
012502
012510

003232
002760

OoPT

28-MAR-79 11:23

021467

MO
M1

M1A

MACY11

1056

10634
10654

1458

2023

15334
15454

1541
1561

2028

3801

3961

4002

1848

SEQ 0102

QOUTPT

QSTART
QSTOP
QTERM =
RAW
=
RBUF
RDCHR =
RDDAT =
RDHD
=
RDLIN =
RDY
=
RD.ADR

RD.RP

RD.RP1
RD.RP2
RD.RP3
RD.RP4
|RD.WRD

020446

017514
017640
017544
017650
017520

SEQ 0103

10674
10694

3532

1607«
1608+

3647

3955

44134

1377

1506+

3253

3254~

3283«

4362
4310
4311
4312
4313
4314
4315
4316
4317
4381«
4402
4349
44617

4377
43224
43234
4324K
43254
L3264
43274
43284
43294
4382+
4415
4385

4379

4399

4413«

4385+
44617

4419~

4878

4934k

2060

29984

4998

5014

3619
4205

421

3737

3751

1562+

—

1603+
1604~
1473

OO
O
e lo
AV,)

020466
020506
020244
020264
020304
020306
020526
000020
025564
104410
000171
000173
104411
000200
017516
017472

QDRVS

TABLE == USER SYMBOLS

S8 W
——00

QDRV6
QDRV7
QINPT

PAGE 106

002000
000001
177776
000024
020234
020326
020346
020366
020406
020426

CROSS REFERENCE

PSEL
=
PSU
=
PSW
=
PWRVEC=
QCNT
QDRVO
QDRV1
QDRVZ2
QDRV3
QDRV4

1057
1058
6844
9874
9884
9864
6904
7284
7324
S59#4
6534
8294
3481
S764
ST74
S784
S7H
5804
5814
5824
5834
S564
3750«
6674
8724
5574
6484
L2794
4290
42N
4292
4293
4294
4295
4296
4297
42904
43014
43104
43114

14:10

001456
001467
000020
001242
001244
001240
002000
001000
020000
177772
000240
020000
020722
000000
000040
000100
000140
000200
000240
000300
000340
177776

24~MAY=79

PAR3
PARG
PAT
=
PATA
PATB
PATSEL
PGE
=
PGM
=
PIP
=
PIRQ
=
PIRQVE=
PLU
=
POPQUE
PRO
=
PR1
=
PR2
=
PR3
=
PR4
=
PRS
=
PR6
=
PR7
=
PS
=

30A(1052)

OO
O
—s
win)
—

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

1334
2004

1546
4853

3595

41N

4854

3633

4245

3291«

3404

3405«

3458+

3468

3517+

3793

3816

3884

3894

3909

CZRJBDO, RPO4/S5/6 FMTR MACY11
CZRJBD.P11
28-MAR-79 11:23
READIN= 000121
RECAL = 000107

30A(1052)

24~MAY=79

164:10
PAGE 107
CROSS REFERENCE TABLE -- USER SYMBOLS

9104

RELSE = 000113
RESREG= 104413

RESVEC=
RETRY
RMR
=
RNOP
=
RPADR

000010
001250
000004
000101
012474

RPAS
RPBA
RPCA
RPCC
RPCS1

000016
000004
000034
000036
000000

=
=
=
=
=

RPER2 =
RPER3 =
RPINIT
RPLA
=
RPMR
=
RPOF
=
RPSN
=
RPTMR

000006
000022
000012
000026
000044
000046
012326
000014
000040
000042
012512
000020
000024
000032
000030
016744

RPVEC
012476
RPWC
= 000002

RP.REG

001306

RPO4
RPO4B
RPOS
RPO6
RTC_
=

013312
021221
021226
021233
000117

SAVEFG
SAVREG=
SAVSEC
SAWC
SC
SCAWC
SC1
=
SC10 =
SC11
5C12

SC13
SC2°

012434
104412
001252
001254
015612
006002
000100
001000
016444
016534

016604
= 000200

3518

3722

1753«

1756%

3576

3778

4026

4254

4353

3735

3772

4043

4138

4144

4148

3572

3614

3634

3645

3660

3671

4202

3663

3682
4235+«

4241

4860

4863

4085

RPCS2 = 000010
RPDA
=
RPDB
=
RPDS1 =
RPDT
=
RPECT =
RPEC2 =
RPERRS
RPERT =

SEQ 0104

3596

3600

3620

3269

327

3405

1681
4876
1675

1693
4881
1780

1695
4884

31514
29994

3649
3252
1684«

3798
3407

3804

3810

38144

1683«
1936

39484
39634
3974

4044

3964

4046

3965+«
3965

4206

1717
4890

34044

1685+

3551
4192
3424
3977«

3957
3467
1726

3681
1727

3536«

3556+

3577%

4060+

4145

3966+

3968«

4851

1896

2230

2232

4857

377

4013
4868

4231
4881

4337

4866

3694

(ZRJBDO, RP0O4L/S/6 FMTR
MACY11
CZRJBD.AN
28-MAR-79 11:23

SC20
SC3
SC&

SCS

SC6
SC6A

= 002000
015662
015666
015700

SC7
SCB
SEARCH=
SEC20

SEEK
=
SEEKFG
SELDRV=
SETFMT=
SETHDR
SETPAT
SETTBL

SETVEC
SET.IE
SKITM
=
SLASH
SOFSW
SRCHWT
STACK =
STCLK]
STCLK2
STCLK3
STKLMT=
ST0.

ST01
ST02

STO3
ST05
ST06

SW03
SW04
SWO5
SW06
SW07
SW08
Sw09

Swi_
SW10
Swi1l

000105
012436
000145
000143
006030
(004014
005630

002506
020162
040000
021271
001216
012410
001100
006246
006316
006322
177774
017036

017066
017264

017424

ST08
STO9
ST.CLK
SVRH11
SWR
SWREG

016336
016414
000131
001264

017334
017360
017366

ST107

SW0
SW00
SwW01
Sw02

016100
016210

017454
017464
006170
020044
001140

=
=
=
=

=
=
=
=
=
=
=

000176

000001
000001
000002
000004

000010
000020
000040
000100
000200
000400
001000

= 000002
= 002000
= 004000

807«
38294
3831#
3830
3858
3856
3893
3870

9124
9964
#
904
1505+«
9154
14H
1626
1587
1625
1362
3286
8774
2059
Q774
31044
S474
1988
1999
1997

558#

4020
40504
4049
4087
L0647
4089
4091
4114

4084
1370
3651
9514
2245
5204
6114
6014
600#
5994
5984
S97#
5964

595#
5944
5934
5924
6104
5914
5904

30A(1052)

3833
3862
38364
38794
39034
3906
3886

24-MAY-79

14:10
PAGE 108
(ROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0105

3874

3878

3926

3940

3947

3962

3908
3896

3918
3902

3928#
39

3939

39414

3973

1462+

1668+

1628

1951

31594

3257

3499

1631
1771
1597
1770
13704

19464
16034
19034

3317
887#

LL78N
1637~
3469+
1308
19984

20074
2006

40414

4093
4051
4094

4066
41074
41154
41214
4102

3442

3516

3721

3823

42634

1701

1736~

1738

1740

17642«

1647

1674

1779

1849

2019

4119

41234

3847
1355
2688+
2656

3898
1375

3574«

3952

4003

1747+«

1939

3916
1712

3959
1719

2008#
4098
4053
4096

4104
19884

3699
1320+
2254
1355

1375

1889

3998
1758

4059
1846

4122
1889

4231a
2238

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

SW12
Sw13

SW14
SW1S

SW2

Sw3

= 010000
= 020000

= 040000
= 100000
= 000004

= 000010

SW4&

= 000020

SW6

= 000100

SWS

= 000040

SW7
=
Sw8
=
SWw9
=
SYSTAT

T
TABLE
TAP
=
T81TVE=
1)
IDF
=
TIMER

TITLE

000200
000400
001000
021240

021277
001376
040000
000014
015452
000040
012440

025574

TKVEC = 000060

TPVEC = 000064
TRAPVE= 000034
TRE
= 040000
TRKCNT
001236
TRKTST
005720
TRK1
= 004000

TRK10 = 040000

TRKZ2

= 010000

TRK20 = 100000

TRK4
=
TRNSWT
TRTVEC=
TSTPGM
TTRKS
TTRKSC
TUF
=

TYPADR

020000
012406
000014
013310
001232
001234
000100

006364

TYPDS = 104405
TYPE
= 104401

30A(1052)

C
14:10
PAGE 109
CROSS REFERENCE TABLE -- USER SYMBOLS

24-MAY-79

5894
S88#
S87#
5864
6094
608#
6074
6064
605#
6044
6034
6024

1380

2035

10554
7924
6hbH

1528+

2050

2076

4103«
1342

4115+

3511+

3654~

3700~

3775
821#
31644

6514
652#
6504
6694

9854
1761
808#

3787~

3880+

ULDFLG

007272
104402
104404
104403
012414

UNLOAD= 000103

JUNS

= 040000

3924+

3975+«

3983«

4016

4018+

4069

4082+

4076+

2572+
1313+

1333«

1920

1922+

1926+

8114
8094
8124
810#
2020
6454
1293+
9834
9844
8224

3789

1342
1415
1493
1821

1396
1443
1545

1595~

1566
1826

1406
1465
1571

2035
2311
2669
2823

2248
2463
TYPERR
TYPOC =
TYPON =
TYPOS =

SEQ 0106

3611x

3674%

3706%

3844

3930

3932«

3948

1407
1482
1578

2071
2327
2757
5009

2240

3950~

6062+

2763
5013

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

UNTON
UPDACY

vu30

A%
WAO
WC
WCE

110

TABLE -- USER SYMBOLS

SEaQ 0107

6824
874LH

8734

1460
1693

WCF

WCKHD
WwCTBL

1613

1672
1731

WRTRK?2

WRT.AD
WRT.RP

WRT.R1
WRT.R2

WRT.R3
WRT.R4

004000
004000
000161
000163
004120
004174
004236
017742

017652

017736
020026
020034

WRT.RS

WRT.WD
WRU
wSuU
$AUTOB

8344

1896
1645

1760
1737
4197+

3354
3644

42004

3488

4854

3659

3542
3670

3546
3868

4207

4213

42204

4196+

41994

4854

1359«

2647

2804

2240
2378
2996

2262
2385

2600
2394«

1303

1304

1314

2669
279
2772

27974

2367
2539
28614
29094

2402
25474

1379

012132
005432

1763

4218
42174
4204
42224
L2234
4189

8424

$8DADR
$BDDAT
$BELL
$CHARC(C
$CKSWR
$CMTAG
$C(M3
=
$CNTLC
$CNTLG
$CNTLU
$CRLF

$0BLK
$082D
$DE CVL
$DOAGN

44430

6804
6814

WwCKD

wCU
WLE
WRL
WRTDAT
WRTHD
WRTRK
WRTRK1

1345

6934

PAGE

19664

- ON

UWR
VUF

44584
44604
1929
19774

16:10

CROSS REFERENCE

-—

Us1
us2
usé

1402
1406
1807
1924

24-MAY-79

UPE
USE

nunnnnan

UPDATK

30A(1052¢

1837

27984
1417

18434

1421
2690

3550
3900

3558
3937

41844

3567

3571

3582

3589

3599

3613

1827

2040

2248

2262

2279

2284

2294

2311

2797
23994

1578

2777

2797

CZRJBDO, RPO4/S5/6 FMTR MACY11
CZRJBD.P1
28-MAR-79 11:23
$DTBL
$ENDAD
SENDCT
$EOP
$EOPCT
$ERFLG
$ERMAX
$ERROR
$ERRPC
$ERRTB
SERTTL
$ESCAP

010374
005422
005406
005326
005400
001103
001115
007064
001116
001630
001112
001160

$FILLC
$FILLS
$GDADR
$GDDAT
$GE 142
$GTSWR
$HD
=
$ICNT
$INTAG
$ITEMB
$LF
$LKCSB
$LKCSR
$LKS
$SLLVEC
$LPADR
$LPERR
$LPVEC
SMAIL =
SMNEW
SMSWR
SNULL
SOCNT
$OMODE
$PASS
$QUES
$RDCHR
$RDDEC=
$RDL IN
$RDOCT=
$RDSZ =
$RE SRE
$RPADR
$RPVEC
$RTNAD

001156
001155
001120
001124
005412
011010
000000
001104
001135
001114
001170
001200
001176
001206
001210
001106
001110
001202

2508
528
18344

1805
18314
9344
9404
1310
9414
11384
9384
9614
2262
9594
9584
942K
944k
18364

30A(1052)

txnknn

011352
LA 2238

000007
012204
001172
001174
005434

$RCA
= LA4424
$SAVRE
012146
$5682D
011716
$SETUP= 000106

$STUP = 177777
$SUPRS
011656
$SVPC = 000200

16:10
PAGE 111
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0108

25 L34
18 394
1818#
18

2235+
1315+

1898

2262
2243

2244

2262

4857

1706*
1654+

1825
1667«
3876

2241«

2262

3872
2402

1686%
4154

1703+
4214

4866

4868

4878

4881

1709+
4423

1755%
4432

1786+
4433«

1796+
4435+

2402

2709

2780

2797

1352

1828

2225

2253

1892+

2257

2259

2261

2592

2597

4881

26554

499
9354
9494
9394
9654

2671
2262
2402

2691
2271
2787

2804

1673

1778«

1891

2256

2250

2355

2442
1846

2453«

24794

1495

1560

2262

4993

5027

5029

1312

1314

1316

2797

1996«

2005+

A4
LA888

011645
011634
001154
010164
010166
001100
001166
011262

24~-MAY=~79

2402
24774
2439
1829+«
1457
|J

3000
1365

2999
2038
1309

2628

2039
531

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

$SWR

= 123000

$7kB
STKCNT
STKINT
$TKQEN=
$TKQIN
$TKQOU
$TKQSR
$TKS
$TKSRV
$TN
=
$TNPWR
$TP8
$TPFLG
$TPS
$TRAP
$TRAP2
$TRP
=
$TRPAD
$TSTNWM
$TTYIN
STYPBN=
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS

$$GE T4=
$OFILL
$L0CAT.
=

001146
010414
010432
010431
010416
010420
010422
001144
010502
000000
012062
001152
001157
001150
(012242
012264
000014
012276
001102
011606
wxwwax |
010170
007522
007672
007740

007766
010002
007742

000000
010165
rrrwws
026502

4894
1844
954k
25534
1351
25578
25544
25554
25564

9534
2571
4894
2868
9564
9604
9554
1312
29764
%88?#

30A(1052)

499
1846
2552
2568+
1481
2623
2569+
2570+
2569

2552
25844
499
2869
2391+

F
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

2021
2733«
2736
2605+

2622+
2734

2623
2736

2625+

2607

2613«

29904

29914

29924

29934

29874
2237
2748

2262
2760

2778

2792

27964

23494
2370
2395

2992
2980
2377
2397

2988
2384
24004

2389

2390

2695

24334
2432
24288

2989
24354
2990

2991

2433+

2443

24784

5184
1846

526
2262

5274
2402

5294
25474

2552

2970
9334
2747
2993
24934

1838#
2429
2247
5144
1778

43224

43238

961
2238

962
2245

1314
2250

181¢
2254

2635

2651+

2661

2673+

2693+

2994

29954

2996

29978

5344
25564

5414
2557

9304
25588

966
27964

1828
2262

1838

29984

29994

30004

1307
2797

1646
2804

1673
29094

28894
2402

2349
2389
29654
2987
29894

SEQ 0109

2402
2402

4L324m

4L325K

43268

531 4

43278

4328

4329

4330

L7240

4LBLOE

L9754

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

ESCAPE
GETPRI
GETSWR
LOCP
MORETA
MULT
NEWTST
POP
PUSH
REPORT

RP0O4.D

5064

3872

3875

4153

4214

1657
1788

1658

1789

1659
1790

1660
1791

1654

1686

1703

1786

6544
1673

1352
1778

2534
2493

2949
2929

14
14
14

6544
2989
6544
6544
6544

2725
2990
1302

2991

2992

2994

4
1856
3011
14

524
2212
4439
6544

6544
2334

655
2405

659
2483

701
2551

22094
548#
1722

5036

1L
1%
14
4894
QoLN
14
1L
1%
1%
14

SCOPE

5494

SETTRA

2980#

SPA(CE

6544

SETPRI

SETUP
SKIP
SLASH

STARS

SWRSU
TRMTRP

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

$$CMRE
$SCMTM
$SESCA
SENEWT
$SSET
$ESKIP
.EQUAT
.HEADE

K111
. SETUP

. SWRHI
. SWRLO

LSACTT
.$APTB
.$APTH

29804
14
1L
14
14
14
14
14

9244
924H
14
14
29804
14
14
14

14
14
14
5084
14
14
14

1819
3821
2226
1656
1725

6544
6S4n

4894

1646

967
6544
6544
6544
6544
6544
3002

6544
6544
6544
6544
6544
654H
6544
6544
654K
2989
654k
4894
4894
48BN
4894
509
4894

5017

4603
13164

4607

1825

2302

1381

2299

1661
1792

1688
1795

1689
1797

1690
1801

1691

2996

2997

2998

2999

3000

705

896
2643

900
2714

2738

926

966
2807

29G7

2998

2999

3000

4726

4928

2628
4932

2992

2994

2996

3822

1572

2656

299N

1692

3873

1286

2831

1698

3877

1290

2850

1708
4155

14
1#

5079

18114
30024

2182

1548

ENDTYP
ERRCAL
ERRENT
ERROR

COMMEN
ENDCOM

2168

1485
2062
5001
6544
6544

SEQ 0110

—

489
(B9#
L85#

G
16:10
PAGE 114
CROSS REFERENCE TABLE == MACRO NAMES

24~MAY-79

(KCHR
CkDIG
CKNUM

30A(1052)

1852

2959

(ZRJBDO, RPO4/5/6 FMTR MACY11
(ZRJBD.P11
28-MAR-79 11:23
SAPTY
.$ASTA
.SCATC
.SCMTA
.$0B2D
. $0B20
8DV
.$EOP
.SERRO
.SERRT
JEMULT
. SPOWE
. SRAND
. SRDDE
- SRDOC
.SREAD
.$R2AZ
. $SAVE
.$58¢D
.$SB20
.$SCOP
.$SIZE
.$SUPR
.$TRAP
.$TYPB
.$TYPD
.STYPE
.$TYPO

1%
1%
14
#
1%
14
1L
14
14
1%
1L
14
1L
4
1L
1L
1L
1%
14
1»
14
14
4
1#
14
»
14
14

1170

.$40CA

ABS.

026502

FRRORS DETECTED:

30A(1052)

24=-MAY-79
14:10
PAGE 115
CROSS REFERENCE TABLE == MACRO NAMES

4894
4854
4854
4894
L4894
4854

4854

2549

4894
4894

2911
2829

4854
4894

2805
2957

4854
4894
L84

2481
2332
2403

000
0

DSKZ:CZRJBD.BIN,DSKZ:CZRJUBD.LST/CRF/SOL/NL :TOC:MD:MC:CND/LI:ME=CZRJBD.SML,CZRJRD.011,CZRJBD.P11
RUN-TIME: 48 65 4 SECONDS
RUN-TIME RATIO: 252/118-2.1
47K
CORE USED:
(93 PAGES)

SEQ 0111