Digital PDFs

DEC-08-EUFB-D

May 1970

59 pages

Original

3.5MB

Document:	TC01-TU55 DECtape Formatter Apr1970
Order Number:	DEC-08-EUFB-D
Revision:
Pages:	59
Original Filename:	http://bitsavers.org/pdf/dec/pdp8/diag/DEC-08-EUFB-D_TC01-TU55_DECtape_Formatter_Apr1970.pdf

OCR Text

IDENTIFICATION

PRODUCT CODE:

DEC-08-EUFB-D

PRODUCT NAME:

TC01-TUSS DECTAPE FORMATTER

DATE CREATED:

APRIL 9, 1970

MAINTENANCE
CONTRACT

SOFTWARE INFORH)'I.TION SERVICE
(CDB)

ABSTRACT
This program (TOG-S) records the required timing and mark

tracks on a DECtape mounted on the TC01-TU55 DECtape unit.
The program interacts with you via the ASR-33 Teletype l to
obtain the necessary data for each set of DECtapes to be formatted.
As soon as one set of tapes is formatted, the program is ready to
format another set.
Two full passes are required to completely format each DECtape,
and up to eiqht DECtapes may be formatted at a time (assuming that
the user has eight tape transports).

Upon completion of a cycle,

new tapes may be mounted and formatted as the last, with a
minimum of operator-program communication.

One tape, excluding tape

setup time, requires two minutes from start to finish.
2.

PRELIMINARY REQUIREMENTS

2.1

Equipment
PDP-S(R), ASR-33 Teletype, TC01-TU55 DECtape Control.

2.2

Storage
TOG-S requires 2500 S registers.

LOADING PROCEDURE
Load the program into core using the standard Binary Loader.

USING THE PROGRAM

4.1

Starting Procedure
a.

Key 1000 into the SWITCH REGISTER.

depress START.

"DTA?" is

printed

Depress LOl>.D ADDRESS and

on the ASR 33.

Mount the DECtapes to be marked onto the tape transports, with
just enough turns of tape on the riqht hand reel of each transport
to provide a grip.

Make sure that no two tape units are set to the

same unit number.

Set the RDMK-WRTM-NORMAL switch located on the

TCOl maintenance control panel to the WRIM position; for each transport to be used, set the WRITE ENABLED-WRITE LOCK switch to WRITE
ENABLED, and the REMOTE-OFF-LOCAL switch to REMOTE.
1Teletype is a registered trademark of the Teletype corporation.
(R)PDP is a registered Trademark of the Digital Equipment Corporation.

4.2

Operating Procedures
The program and operator now converse.

asking which DECtape units will be used.

The printout "DTA?" is

The operator types a unit

number or series of unit numbers, corresponding to the DECtape units
upon which he has mounted tapes.

For instance, if the operator has

mounted tapes on units 2, 5, 7, and 8, he would type 2 5 7 8)
(where') signifies carriage return).

Spaces are ignored, so it makes

no difference if the operator types spaces between the unit numbers.
Only one specification of a unit is significant, i.e., typing
2 2 5 7 7 5 8 2 8)

has the same effect as typing 2 5 7 8)

Once the operator has specified the units he wishes to use, the
program types "DIRECT?"
MARK XXXX).
2702 8 blocks

The operator responds by typing tA-ARK)

If he types MARK) , the program assumes 201 8 words,
Otherwise, XXXX is
(standard PDP-8 format).

accepted as a decimal number of words per block, and must be
divisible by 3.

Note that typing MARK 384)

will cause the program

to generate a standard PDP-IO format DECtape (1102 8 blocks of 600 8
words, which is equivalent to 1102 8 blocks of 200 8 words, were each
word is 36 bits rather than 12 bits).
The program now types "xxxx WORDS, YYYY BLOCKS OK?
This serves as a final check for block count.

(YES OR NO)."

XXXX and YYYY are

octal values representing the final outcome of a formula solved by
the program, determining the number of blocks that may be written on
a DECtape knowing the number of words.
the program reverts to "DIRECT?"

If a NO)

answer is given,

Otherwise (if YES) ), the tape on

the first unit specified begins to move.
Once all of the tapes specified have been marked, the printout
"SET SWITCH TO NORMAL" appears.

Then the operator returns the

"RDMK-WRTM-NORMAL" switch to NORMAL, and strikes the RETURN key on
the ASR-33, starting the second pass.

Note that during the second

pass with multiple DECtape units, as soon as one tape stops and the
next tape starts, the first tape is completed and may be replaced
with a fresh tape in preparation for recycling.
The program continues by itself until completed, at which time
the "DIRECT?" printout occurs.

Typing "SAME)" repeats the entire

process with the original constants.

The new DECtapes must be

mounted and ready to write timing and mark tracks before "SAME)" is

typed.

Also, in response to "DIRECT?", typing "RDR) " causes the

printout of the unit numbers of the DECtapes and the last twelve
block numbers; "RDF) " causes the printout of the unit numbers and
the first twelve block numbers; and "RESTART) " returns the program
to "DTA?"

Unit numbers are printed as "NOOO", where N is the unit

number (0 means DECtape unit S).

If the ION lamp on the PDP-S

console is lit, typing "CONTROL C" causes the program to restart at
"DTA?"

Following are several examples of successful operation.
lined statements are printed by the program.

The under-

ALL operator responses

should be followed by a carriage return.
a.

Create a standard tape on unit 4.

DTA? 4
is''fRECT? MARK
¢2"n WORDS, 27%2 BLOC'KS.OK? YES OR NO
YES
SET SWITCH TO NORMAL
DIRECT?
b.

Create 16 standard PDP-IO format tapes - eight at a time, on

units 1 - S.
DTA? 12345678
DIRECT? MARK 384
@6@¢ WORDS, 11%2 BLOCKS OK? Y~S OR NO
YES
SET SWITCH TO NORMAL (USER TYPES )
DIRECT? SAME
SET SWITCH TO NORMAL (USER TYPES )
DIRECT?
4.3
4.3.1

Errors
Errors Typed to "DTA?" and "DIRECT?" - Revert back to "DTA?"
or "DIRECT?"

4.3.2

Error Messages for Response to MARK XXXX NOT DECIMAL
NOT DIVISIBLE BY 3
TOO MANY WORDS
TOO MANY BLOCKS

A character in XXXX is not 0-9.
XXXX cannot be divided evenly by 3.
The number of words plus 15 exceeds 7777 S •
The number of blocks generated by XXXX
exceeds 7777 8 •

4.3.3

Error Messqges for Response to YES

(After message - revert back to

"DTA?")
SETUP?

Indicates an error in the DECtape setup Unit in WRITE LOCK
Nonselectable unit
Switch not in WRTH position

4.3.4

Error Messages for Marking and Verifying a Tape

XXXX SHOULD BE YYYY BLK ERROR PHASE X
XXXX SHOULD BE YYYY DATA ERROR PHASE X
END TAPE ERROR PHASE X
MARK TRACK ERROR PHASE X
PARITY ERROR PHASE X
SELECT ERROR PHASE X
TIMING ERROR PHASE X
LAST INT NOT END ZONE (see 4.4)
4.4

Recovery
Although error should cause doubt concerning the entire process,

restarts may be made by phases
phase by typing "RETRy).n

PHASE
PHASE
PHASE
PHASE

0:
1:
2:
3:

(except when in phase 0).

Restart the

Type "RESTART" to return to "DTA?"

MARK TRACK WRITE
WRITING LAST REVERSE BLOCK NUMBER FORWARD
WRITING BLOCK NUMBERS AND DATA IN REVERSE
READING AND CHECKING BLOCK NUMBERS AND DATA

An error that should be considered catastrophic is LAST INT NOT
END ZONE.

This indicates that between the last

(or first) block num-

ber and the end zone, something caused an interrupt

(DTF).

The entire program may be restarted at 1000 8 any time.

DETAILS OF OPERATION AND STORAGE
The program writes timing and mark tracks on a DECtape, then in-

serts block numbers and parity correct

infor~ation,

checking the re-

sults of all operations.
The number of block frames to be written is a function of the
number of words per block.
blocks per tape

The formula

212080

NW+15

./f

where NW equals the number of words to be written, is used by the
programto compute the number of blocks, but is adjusted by the pro-

1<r:7lJ

gram to provide the standard PDP-8 format ~f 1~9 (12-bit). WO~dSI ~
blocks I and standa.rn pnplo f0J':'mi'lt. nf 12R (Jb-b1. t) words r·5T81;)lock~,>,~'

~--

Two full passes are requ1.red to mark and verify a tape.

57~

fk
v.> u~j)</bl.tfSt<

Pass 1

Marks the tape fonJard r inserts block numbers
and parity correct data in reverse.

Pass 2

Reads and checks block numbers and data forward and reverse.

During the forward direction of the first pass, the TCOl is
switched into WRITE TIMING AND MARK TRACKS, CONTINUOUS MODE, FORWARD.
The program manipulates data to be written by monitoring the word
count register and the DTF,

(DECtape flag).

Initially, ten feet of

end-zone code is written, and abuttino the end zone are about two
standard block lengths of interblock sync.

To the TC01, this inter-

block sync acts as no operation, but guarantees that at turn-around
time, block 0 is read first
end zone).
frames.

(or 2701 if turning out of the forward

Now the remainder of the tape is written creating block

The number of such frames

determined by the above formula.

Upon completion of the block framing, another extended interblock sync
zone is written as well as ten feet of end zone.

Pass 1 forward is now complete (timing and mark tracks are
written).

The tape is ordered to MOVE in reverse for three seconds,

thus moving it out of the end zone and onto the marked section.

The

tape is once again moved forward, and the last REVERSE BLOCK NUMBER
is written until the forward end zone is sensed.

Now the tape is

turned out of the end zone in SEARCH, and the program waits for a
block interrupt (first reverse block number).

When the DTF rises,

the TCOl is switched into WRITE ALL, CONTINUOUS, REVERSE; thus the
system is synchronized and all block numbers and data ar~ written
until the forward end zone is sensed.
and blocking of the tape.

This completes the marking

Pass 2 in CONTINUOUS ~~ODE checks the data

and block numbers to be certain they are correct.

When multiple DEC-

tape units are specified, ~ass 1 forward is completed for each tape
before Pass 1 reverse is begun.

5.1

Theory
The program flow is based on the following detailed description

of the bit structure on the mark track, followed by a description of
block and data writina.
a.

Install the tape with e~ouqh turns to create a pull.

The re-

verse end zone requires a sequence of three data words for its pattern.
4044
0440
4404
In the mark track the words appear as 101101101101 (5555 8 ).
The reverse end zone should cover 10 feet of tape. Write the above three
words 4096 10 times.
b.

100 interblock sync (see c.).

Interblock sync.

Three words. of interblock sync should imme-

diately follow each block.
0404
0404
0404
In the mark track the words appear as 010101010101 (2525 8 ).
d.

The forward block mark and reverse guard require three words.

0404
4004
4040

which appear on the mark track as 010110011010 (2632 S )'
t

block
number
frames

The lock mark, reverse checksum, reverse final, and reverse

prefina1 consist of six PDP-8 memory words.
0040
0000
4000
0040
0000
4000
These words appear on the mark track as
001000001000001000001000

(10101010 8 )

l['~~Ha1f 2nd data word
.

First data word
(PDP-8 )
Reverse checksum

Mark track code for data is generated by

4440
0044
4000
These three words appear as 111000111000(7070 8 ) and are repeated 41 10
times for a 129 word block.
g.

The pre final , final, checksum, and reverse lock consist of six

PDP-8 words.
4440
4444
4044
4440
4444
4044
These words appear in the mark track as

rl-T'P

,0 111110 11111011

Checksum under these bits
Last PDP-8 data word
Half a data word

The guard and reverse block number consist of three words

4040
0440
0404
which appear as 101001100101

(5145 8 )

~reverse block number

Generate 2702 8 block patterns,

Repeat c throuqh h, 2702 8

times.
j.

100 more interblock syncs

(see c.).

The end zone pattern consist of three words

0400
4004
0040
which appear as 010010010010

(2222 8 ),

Repeat these three words 4096

times.
5.2

Format Block Numbers and Data
Once the mark track has been prepared for each tape specified

block numbers and data must be written.
a.

with tape in the forward end zone reverse tape for a few

seconds to move the head onto the mark track.
b.

Go forward in SEARCH waiting for a DTF.

When the DTF rises, switch to READ DATA with the word count

When the word count goes to zero, write 12 10 words

1) including block number

(last reverse) in WRITE ALL.

(see figure

When the word

count goes to zero, go back to step c.
d.

Continue this process until the forward end zone is sensed.

Reverse tape now in SEARCH and wait for the DTF.

DTF rises, switch to WRITE ALL CONTINUOUS.
WRITE ALL.

~hen

the

The system remains in

Write three words.

VI
V2
V3

0000
0000
0077

forward checksum

When the word count register goes to zero, reload it with one less
than the total words to be written and set the current address counter
to the address of three words of all sevens.
until it goes to zero.

Monitor the word count

Keep resetting the current address counter to

the address of three words of all sevens.
When the word count goes to zero, write the twelve words (fiqure
2) shown below and return to write the three words aqain.

Continue

this process until the reverse end zone is reached.
Core

VI
V2

~Direction

0000
0000
0000
0000
OOll
0677
7777
7700
0000
0000
0000
0000

of write forward

Assumlng that the last block number is
1763, VI and V2 constitute the last reverse block number. When read in reverse,
4106 becomes 1763. Pemember that a 1
written forward becomes a a when read
in reverse, and a a becomes a 1.
(The
trailing 7's are necessary so that the
36 bit block number used on the PDP-la,
will be read in reverse with leadinq a's).
Direction of read reverse

Figure 1

Last Reverse Block Number as Written Forward

Core

VI
V2

V3
V4

CCOO
0000
0000
0000
00.ll
0677
7777
7700
0000
0017
6200
0000

CC=reverse checksum should be 00
VI and V2 comprise the forward block
number. V3 and V4 comprise the reverse
block number.
Therefore, when VI and
V2 are read forward, the resulting block
number is 1763. Remember that a 1 written in reverse is read forward as a 0,
and a a as a 1. V3 and v4 are read in
reverse as written, 1762.

Forward Block Number

11:::ec
Figure 2

Reverse Block Number

L: Jl ::Jrs[:J

Block Numbers Written in Reverse

IDEC-fIlS-EUFB

PDP-8 DECTAPE FORMATTER PAL10/3 V141

1! .. MAY-70

ICOpyRIGHT 1970 DIGITA~ EQUIPMENT CORP,
IMAYNARD, MASS,
IREVISED MARCH 1970
TOG~8
TO MARK AND CHECK PDP-e O[CTAPE
ITHIS PROGRAM WRITES TIMING AND MARK TRACKS ON
IDECTAP£ MOUNTED ON TH~ TC01-TU!5 TAP~ CONTROL UNIT,

Xl-1IlI
X2=U

i:i 211"
0011

ISYMBOL TABLE AUGMENTATION
6761
6762
6764
6771
6772
6774

DTRA·~761
DTCA=~762

DTXA-6764
DTSF=6771
DTRB-6772
aTLB a 6774
DTCX=6766

t,766

ISET III FOR THE LOGIN FEATURE
P'fIl;~
~H",,::J

.HH:l

,"~i~' 1
On12

54%'2

IIfil

'JMP
" I ,·1

[,543

CONC

I~ORKING

[:,2"

LOCATIONS
-2f1l

002i:1

p?;,)"

•.il ,

rofll"il

0(A21

~J ,'I ~~:l

10;>,

0022
10023
01024
01025
0026
fIl027

i1J0,J'j

\013,

~! (J ,) ,,1

1<14,

IJ ~~ :LL1
~5 0 0;1
l/"J,j

"""111
001'"
0f1llllfll
fIl000

1015,
\<16,
00","
BLOCKS, IIIfIlfll0
BLOCKA, fIlfllfllfll
o Til,
fIl0f1l"
ERX,
i1!0f1lfll
PHASE· fIllllfllfll
T('TAL' nil"
VAR1.
fIl000
VAR2,
ill III 00

k) l1i<)~'

rJ",'
o~ 16 ~i1

~fIl3J

1.1

0031
0032
0033
09134
02135

;)0 <ii')
v) 21U il
l' (1 W'

1.1JJ"

IC-ONTROL "C" AND LOGIN

2.6l1il:5

PAGE 2

PDP-8 DECTAPE fORMATTER PAL1B/3 v141

IDEC-~'-EUF'B

ICONSTANTS
0036
1il037
11l11l411l
0041
111042
0043
0044
ilIil45
0046
0047
0050
01il51
011152
0053
0054
0055
11I1il56
011157
006111
0061
111062
111063
011164
111065
011166
011167
0070
1110;1
00;2
0073
0074
00;5
00;6
0077
011110
0101
0102
0103
010 4
0105

01301
el1l11l2
I<H'03
13004
kl017
01Z7~

00n

1110137
kl030
,,"1110
1IJ700
0203
0201
l1210
026J
",261
0267
0270
0271
0277
1111 0 111
1620
7011113
77111111
771"
7761
7772
7775
flJ215
0313
[.1212
7776
7775
7774
7772
7771
7764
7~34

750::'
024~

Cl,
C2,
C3,
C4,
C0017,
C·;070,
clIl0n,
C~'0r.n ,
C0030,
C'-'''1il0.
C071il0.
C203,
C201,
C211il,
C260,
C261,
C267,
C271il,
C271.
C277,
C1I1l1il11l,
C162111.
C711l11l0,
C77011l,
C7714,
C77U,
C7772,
C7775,
CRCCD,

LETK,

L.F"COD,
1'12,
1'13,
1'14,
1'16,
1'17,
1'114,
1'1144,
1'1300.
SPCOD,

0Ul
o lila 2
Iillila 3
0004
ilet7
flH1I71il
U77
U07
0I1J 3 0
04011J
1il7U
02QJJ
02QJ1
QJ2U
026fiJ
0261
QJ267
1il270
0271
0277

Uf/J0
1620
700 III
77011J

7714

7761
7772
7775
1il215
0313
0212
.. 2
-3
.4

-6
-7
-14
-1<14
-3QJQJ
11I24QJ

U-MAY .. 7B

2.~UJ3

PAGE

10EC-fila-tuFa

PDP-6 DECTAPE FORMATTER PAL10/3 v141
/I NTERPAGE LI NKS

0106
i1l107
01itl
121111
0112
0113
011 4
tl115
0116
0117
i1l120
0121
0122
0123
tl124
0125
il1. 2 6
tl127
1il13 tl
tl131
1il132
0133
0134

002111
012121
2452
2453
7755
031tl
1!000
ii1J55
1Zl51i!6
1!527
0400
~411i)

0422
0434
0454
0633
1000
0613
.0334
12120"
ll256
,,6tl0
7754

AOW2.
1I0W3.
SADO.
B-R,
CA,
COHPAR.
fCON.

IT,

fORMA.
FORMS.
QUi.
QU2,
QU3,
QU4.
HESS.
HWA IT,
STX,
TURN.
nOCl.
TYPE,
TYPIN'
WAlT.

we,

W2-1
w3-1
BUFFER-1
8UFf'ER
7755
~OHPRE

001110

I NI T1

FORM·~

FORH
Q1
Q2
Q3
Q4
HE!
MINI
START
TRN
TY1:T

MESAGE
TYPN
STALL

7754

1'-MAV-7fil

1~ iiI 3

PAGE 4

PDP-8 DEC TAPE rORMATTER PA~10/3 Vl.l

IDEC-08-£UF"B

l'·I'IAY-7"

ITYPE THE CHARACTER IN THE AC ON THE KEYBOARD PRINTER
0135
121136
121137
014121
0141
121142

~kl~0

RSEND.

6",,46
6~41

5137
6042
5535

0f1JIilil
TLS
TSF'
JMP
TCF'
JMP

.-1

RSEND

ILOAD AND PRINT, CLEAR '~AG
IWAIT fOR CON'IRMATION
IEND~ESS~Y

IC~EAR

THE F'~AG ANYWAY

IPRINT A "1" ON THE KEYBOARD TYPER
0143
014 4
13145
121146
0147
1J:5 0
0151

1t144
6>102

QU,

73~1!~

1001
4135
5551
.1.,161

.+1
IOf
CLA
CLL
TAD
C277
JMS
RSEND
JMp I .+1
INIT

IKILL LOG AND CONTROL C F'CTN
ICCAC)+CCUa"

1"1"

ITYPE THE CHARACTER
IRESTART

IDECTAPE CONTROL WORDS
0::'52
":53

kJ'~ J ','

,.;~6'

0:5 4

,<,HOI

:<l155

',' ltl7
,1.3 J

0 ,b
L

"'-,,57
;1:60
0161
0162
121:63
016 4
0:65

~'14 ,~
,;20'~

2.1.'"

,'36;~

J5121
0600
('61l~

OT1il031:l, 0030
D¥0061l1, 006111
D 0'H0, 1ilI1I70
oT 011J':l, 010 fIl
OT0131:l, 0130
DT0140, 0140
oT1il200, 0200
Dflil21l:l, 1il210
O'0361:l, 1il360
D~0511il, 0510
DH1601il, 061il0
0"061~, 13610
T

ISOME SPECIAL LINKS
0166
0167
0:7 111

2475
2476
2477

ADBA,
Ar:JWA,
ADWAB,

2475
2476
2477

ICO~STANTS

0171
0172

0173
017 4
0175

0172
10001
0012
0144
1750

fOR

BINCON, ,+1
nr/l1

01il12
01H
1750

,ORMU~A

TRANSLATION SECTION

161m

PACE'

IDEC-11l8-EUfB

III 2 III III
111201
0202
0203
0204
0205
ilJ206
0207
ilJ21 iIJ
111211
0212
kJ213
ilJ21 4
0215
0(16
0217

PDP-B DECTAPE fORMATTER
01200

.2 zrIl
IPAGE 1
ITYPE CANNED MESSAGES •••••
ITHANKS TO DI~ITAL B-1B-U

t11'100

MESAGE,

6iH12
7240
121Hl
3i<lH'
1410
3217
1217
7012
7Q112
HJ12
422:·'
1217
4220

lOp'
CLA
TAD
DCA
TAD
DCA
TAO
RTR
RTR
RTR
JMS
TAD
JMS
JMP
MSRGHT, III
TYPECH, Ii!
AND
SNA
JMP
TAO
SMA
JMP
TAD
JMP
TAO
SlA
JMP
TAO
JHP
TAO
SlA
JMP
TAO
JMP
TAD
HTP,
TLS
TSf'
JMP
CLA
JI'IP

52~J5
l~ ~J 0:""-'

0;:>2::'1

0J0.~

0221
0222
"223

1<Jit:l44

e22 4

»225
U<:26

:0227

1i'230
<!231
ll?32
0233
kl234
"~'35

0236
""37
024 111
0241
0242
0243
0244
0245
\)246
0247
025"

745:.l
54171

1251
75.:1"
5231
1252
5244
1,)76
744 '
5236
1253
5244
1(175
74 4.~
5243
1254
5244
1255
6046
60'11
5245
720"
5620

774:.1
0341'
0212
0215
1J245

/140,
C340,
C212,
C215,
C24'5,

V141

15 w MAY-7fIJ

til

ICO>JSTANTS
0251
0252
0253
0254
1Il255

PA~lS/3

~40

340
212
215
24'5

CMA
MESAGE
1111
1111
MSRGHT
I1SRGHT

IKILL LOG AND CONTRO~ fUNCTION
ISET C(AC)--l
/ADD LOCATION
IAUTO INDEX REGISTER
If ETCH fiRST WORD
IS AVE IT
IROTATE 6 BITS TO THE RIGHT

TYPECH
MSRGHT
TYPECH
I1ESAGE+5
C0i1J77

/TYPE IT
IGET DATA AGAIN
ITYPE RIGHT HALf
ICOr.JrI NUE
ITEMPORARY STORAGE
ITYPE CHARACTER IN CIAC)6-11
115 IT END OF' MESSAGE'

M40

IYESI EXIT
ISUBTRACT 410

1(407

,+3
C340
MTP
113
,+3
C212
MTP
H2
,+3
C215
HTP
C245
,-1
TYPECH

INO
IYES I ADO 30fi1
/TO CODES (40
ISUBTRACT 3
lIS IT lERO'
INO
IYES I CODE 43 IS
ILiNE-fEED (212)
ISUBTRACT 2
lIS IT i!EROl
INO
IYESI CODE 45 IS
ICARRIAGE RETURN (215)
IAOD 2S0 TO OTHERS )40
ITRANSMIT CHARACTER
IWAIT FOR THE FLAG
Ir.JOT SET YET
IS£TI CLEAR CIAC)
IRETURN

1611113

PAGE 6

PDP-8 DECTAPt FORMATTE~ PA~11/J/3 Vl~l

IDEC-~'-EUFB

"'-MAY-7111

UII3

IROUTINE WAITS UNTI~~ A COMP~ETE MESSAGE HAS BEEN ENTERED
ISIGNIFIED BY A CR.
111256
111257
11126111
1IJ261
111262

0llllIIfil
601112
60~2

111111
;S1ll20

TYPN.

0
10,.

KCC
TAD
DCA

!lADD
Wi

IKIL~ THE ~OG AND CONTRO~ C FUNCTION
IC~EAR AC. K[Y!lOARD "~AG
IGET BUF"E~ ADDRESS
ISTORE FOR TH~ CHARACTER STRING

IREAD AND RESPOND WITH THE CHARACTER
111263
1IJ26 4
111265
1IJ266
1IJ267
I1I2711J

2020
6111U
5264
6U6
4135
3420

1IJ271
111272
1IJ273
111274
0275

142fil
711141
lillJ5
7650
5264

NTYRTN. lSa
Wl
INORMA~ RETURN. INCREMENT BUFFER
KS,
IWAIT FOR KEyBOARD
JMP
,-2IF~AG TO RAiSE
KRB
IGOT F~AG. RE~ET IT. GET CHARACTER
JMS
RIEND
ISEND CHA~ACTE~ BACK
DCA
Wl
ILDAD CHARACTER INTO BurFER AREA
IIF' CHARACTER IS A SPACE. IGNORE IT
TAD

TAD
SNA
JHP

SPCOD
CLA
NTYRTN·l

CIA

ICHARACTER INTO THE AC
ISUBTRACT FROM SPACE COOt (241)
ICOMPLETE COMPARISON
IwAS IT A SPACE?
IYES, DO NOT iNCREMENT BUFFER

IIF' CHARACTER 15 A CR. EXIT ~ROM ROUTINE

111276
111277
03filfil
11131111
fil302

fil303
1113fil4
fil3fil5
1113fil6
fil3 III 7

1~2e

7fil41
1fil72
76411
5263

TAD

ICHARACTER TO AC
ISET AC TO SUBTRACT CR (215)
TAD
CRCOD
ICOMP~ETE COMPARISON
SH
CLA
IWAS IT C'U
JMP
NTYRTN
INO: INCREMENT BUrF'ER • WAIT
ICARRlAGE RETURN FOUND, EXIT FROM ROuTINE

111174
4135

TAD
JHS
CLA

6 III III 1
5656

JON

?30~

CIA

JHP

LFCOD
RSEND
CL~

TYPN

IGIVE KEYBOARD LINE FEED
IEXECUTE ~INE FEED
IEXIT WITH CCACC)'. AND CCI.)II
IRESET LOG AND CONTROL C FUNCTION
IRETURN TO CA~L

PUE 7

IDEC- 01-[UrB

PDP-8 DECTAP£ rORMATTER PAL1B/3 V141
ICD~PARE

l'·MAY-70

A STRING or CHARACTERS IN "BUrrER"

ITO A CHARACTER STRING AfTER A JMS IN ASCII
031eJ

0311
03i2
0313
031"
13315

eJIIJ0eJ

7240
1310
3111U
1110
3011

COMPRE. 0
CLA
TAD
DCA
TAD
DCA

CMA
COMPRE
11

BADD

IC(Ac)a7777
ISUBTRACT 1 ,OR INDEX REG 1
IAUTO INDEX 1 SET TO eHA STRING
IAUTO INDEx 2 SET TO Bu,rER-l
ILOAD X2

ICOMPARE CHARACTERS TI~L ONE DOESN'T COMPARE OR TILL
IA 0 IS rOUND IN Xl. I' OK, RETURN TO TWO PLUS THE
IlERO, Ir BAD ONE P~US
0316
0317
0320
0321
13322
0323
0324
111325
0326
0327

1412'
7041
1411

TAD
CIA
TAD

7~4eJ

,3321
1410
744111
'317
21111 QI

JHP
TAD

JMP
IS I!

JMP

'4113

Xl
X2
CLA
C[RR

Xl
,,,6
Xl

ICHARACTER rROM PROGRAM
ITO IUBTRACT fROM
ICHARACTER IN BurrER
ICOMPARE!
INOIRESYNC roR NON COMPARE EXIT
IYESI CHECK ,OR 0000 ExIT
IIF' 111, EXIT GOOD
INO: TEST NExT CHAACTER
1+1 to Xl(TOTA~ 2 'ROM THE II
1+1 TO Xl, ExIT

IERROR rOUND, RESYNC AND EXIT NO COMPARE
0330
0331
111332
0333

1410
7640
'330
'410

CERR.

TAD
SU

JHP
JH,

Xl
CLA
, .. 2
Xl

ICHARACTER F'ROM PROGRAM
lIS THIS EXIT KEy1 (B"I)
INOI GET NUT
IYESI EXIT, NOT COMPARE

uil3

,AG[ •

IDEC-lila-EUf8

PDP-B OECTAPE fORMATTER PAL1B/J V141

U-MAY-7B

ITYPE ONE fOUR CHARACTER OCTAL WORO GIVEN TO THE
IRoUTINE VIA C(ACC), C(ACC)=B ON EXIT
033 4
0335
0336
0337
034"
0341
0342
0343
034 4
0345
0346
0347
0350
0351
13352
0353
035 4
0355
1il356
0357
036"
0361
0362
0363
036 4
0365
0361>
0367

3374
1374
7012
7012
7"12
3371
1371
.,045
1375
3370
1371
712'1216
7004
.,"5[
1373
337"
1374
1Il045
1375
3371
1374
701216
7004
0kl5fi1
1371
3371
4531

037~

0e~i

037'_
0372
0373

nCT,

rMHP

0
DCA
TAO
RTR
RTR
RTR
DCA
TAD
AND
TAD
DCA
TAO
RTL
RAL
AND
TAO
DCA
TAO
AND
TAD
DCA
TAD
RTL
RAL
AND
TAD
DCA
JMS
0
0

iO 16 i<J ,7

12)"00

nCT1,

5734
1<!01ilJ
606!71

TOIl,
C6060,

ISToRE WORD GIVEN
ITO C(ACC) AGAIN
16 BITS GIGHT

TYCT1+2
TYCTh2
C0007
C6060
TYCTi+1
TYCT1+2

ISAVE ROTATED VALUE, 1ST TWO
ITO C(ACC) AGAIN
IISOLATE SECOND CHARACTER
ICONVERT TO ASCII
ISTORE AS fIRST PARTIAL 2
IROTATED VALUE STORED ABOVE

C0700
TYCT1+1
TYCU+1
TW1
C00"7
C6060
TYCT1+2
TWl

13 BITS U:fT
IISOLATE fIRsT CHARACTER
ICONVERT 1ST TO ASCII
liST AND 2ND CHARACTERS REAOY
loRIGloNAL WORD
IISOLATE 4TH gHARACTER
ICONVERT 4 TH TO ASCII
1ST ORE 4TH fOR A MOMENT
IORIGIONAL WoRD

CB7r1J0
TYCTi+2
TyCU+2
TYPE

JMP I TYCT
ISO~E

"37 4
0375

TW1
TW1

IPOSITION IT JRD CHARACTER
IISOLATE JRD 9HARACTER
ICONVERT TO ASCII
ICONVERSION COMPLETE
ITYPE THE fOUR CHARACTERS
IflRST 2
ISECOND 2
IKILL KEy
IEXIT fROM RoUTINE

CONSTANTS fOR THE ROUTINE
rIJ0r1J0
6M'l6 0

16,03

PAGE 9

IDEC-0B~EUF8

pDP-8 DEC TAPE rORMATTER pA~l~/J V141

* 4 0Iil

04021

IVARIOUS ERROR MESSAGES
I"NaT DECIMA~"
r2i400
04i/11
0402
0403
~404

0405
0406
0407

<4531
1617

Ql.

JMS 1 TyPE
INO

1617
2441')

244~

IDE
"0311
. ,,' leI

0405
\?JJ11
1501

1!i1ll1
141110
JMP

14021
5247

IMA
IL

CUX

I"TO MANY WORDS"
0411

4531
2417

0412
0413

151211

041 21

041 4
21415
0416
0417
0420
0421

Q2.

174~

1631
~027

1722

JMS I TyPE
2417 ITO
1740
151111
1631
4021

lOR
IDS

~423

1722
1il423

000'3

00riHll

5247

JMP

IMA
I~Y

\oj

100

QUX

InTO MANY BLOCKS"
0422
0423
21 4 2.1

2417
174J

~425

1501

0426
121427
0430
111431
121432
0433

1631
4002
1417
2.50]
5247

1343 4

4531

0435

1611

13436
0437
04413
13441
0442
0443
0444
13445
13446

121447

4531

C3,

JMS ! TYPE
ITO

2417

1740
1211
1631
4002
1417
"313
23r.l1il

10
1M!

1.'

~313

JMP

INY
I B
ILO
lel(

ISk'
GlUX

111411
2611

IHNaT DIVISIBLE BY 3"
JMS I TYPE
1611 INa
2440 IT
0411 101
2611 IVI

1<121<1

0214

(0540

0540
0231
4063
00iHJ

24421

2311

Qq.

2311

~231

041363
130,"'1
4531

13450

4345

13451
0452

0000
5653

QUX,

IS!

tBL

IBV

I 3

100
JMS I TYPE
4345 ICR+LF"
i! SIiJ 0 lEND
JMP I , .. 1

15"MAY"70

2.~ln

pAGEU

... ,
....,

...

6:1

•,

....,

111\

......
ri

'".....
&

.....

...A

..:
n.
III:

.........xc
<r

....a

... :z
...
~

......

<:>
<0

•

Q..

0
£L

.......

15>

.....

..,

"'-

....
•
sa,
:::>

0lIl>

I
U
LeI

...-

lSi

IDEC~11l8~[UF'8

PDP~8

DECTAPE 'ORMATTE~ PAL111l/J V141

HlmMAV'"?'1ll

ITHE CODING B£~OW CREATES THE BLOCK NUMBER
ICONVER!ION PRIOR TO THE TAPE WRiTE.
0454

UIllIil

0455
0456
1il4!57

U~;S

0460
13461
flJ462
13463
111464
1il465
1il466
1il467
1iJ47f11
0471
0472
0473
1il4'14
21415
f114;6
f11477
050121
05U
0502

0503
13504
0505
13506

1023
i' Ii!

Ii'"

7006
7U4

31324
U24
1/I1!64
3334
1024
III 111 43
3333

l B:U
71il40
71il12

?hll.l
JIil24

HI:! 4
f110''Il

1334

U44
3334
1024
rlJ1il4'
13:53
3333

MES,

DCA
TAO
eMA
RTL
RAl
DCA
TAO
AND
DCA
TAO
AND
DCA
TAO
eMA
RTR
RAR
DCA
TAO
AND
TAO
TAO
DCA
TAO
AND
TAD
DCA

I'd 4

NUMIER GiVEN IN Ae
IRES TORE TO Ae AGAIN

IB~OCK

ICOMP~EMENTEO

104'

W!!

C70t1Hi1

V2
W!5

C0071/l
V1
W4

101'

(:&1700

IlEft 3
ITEMP SAVE
ITO AC AGAIN
IIIClATE HIGH CHA
IF'ORWARD aLaCK NUMBER
ISHlnED VALU~
IUOLATE 6,7,'
IF'ORWARO aLOCK NUMBER
IORIGIONM. SET
IUPSIDE DOWN
IRIGHT J
ITEMP SAVE
ITO Ae AGAI N
IISOLATE 3,4,~
ICOMBINE ~ORwARD SLOCK NUMiER

(:0077

W!!

CUIll?

V2-

1112 COMPLETE:

ISHlnED VALU~
IISOLATE 9. 11,11
ICOP1BINE WITH iN
IFORWARD aLOCK NUMBER COMPLETE

ICONVERT R[VERSE BLOCK NUMIER
051217
051f11
0511
f11512
121513
05i4
121515
0516
0517
052f11
111521
0522
f11523
0524
0525
0526

1040
112123
3f1124
lf1124
7h2
1 1Il12
1 0 12
J1l044

334111
111124
101il6
711If11 6
711.106
1i1065
:5341

5654

CMA
TAO
DCA
TAD
RTR
RTR
RTR
AND
DCA
TAD
RTl
IHl

I-~

W4
W5

TO GIVEN aLOCK #
BLOCK'

IO~IGIONAL
IT~MP SAVE

ITO AC AGAIN
16 RIGHT

C1il0.,.,
1/:5

IISOLATE LOW
IHIGH REVERSE:
ICOMPLEMENT ORIGIONA~ -1
16 LEFT

FHL

AND
DCA
JMP

C1711.111l
1/4

MES

IISOLATE HIGH
IRE VERSE COMPLETED

16lil3

pAGE 11

IDEC-~8-EUF8

PDP-8 DECTAPE FORMATTER PA~le/J V141

1'-MAY-7e

IFORM USED TO WRITE 12 DATA WORDS FOR BLOCK NUMBERING
0527
0530
0531
0532
0533
0534
0535
0536
0537
0540
0541
0542

",000
«1000
"'000
"'000
~11l00

liHHHl

7777
7700
111000
""O00
0~Hl0

0000

FORM,

Vi,

V2,

uee
un
UU
UU
UU
0erlllil
7777
?71i10

V3,
V4,

Urlllil
UrIIIil

UU
0000

~~In

PAGE ~2

IDEC-Ii!I!I~EUF8

PDP-8 DECTAPE FORMATTER PAL10/3 ',1141

l!1·MAV-711l

/ITHlS ROUTINE ALLOWS KEYBOARD INTERRUPTION
/FOR LOGGING ON THE KEYBOARD OR FOR A MAJOR
ICLEAR IN THE PROGRAM. By HI TING "CONTROL C"
IA SySTEM RESTART WILL OCCUR
0543
0544
0545
0546
0547

6041
5346

CCNC,

604Z

6031
5364

TSF'
JMP
TCF'
KS;
JMP

,.2
RSYC·2

liS THE

PRINT~R

IYESI RESET iT
lIS THE READER F'LAG aNi
INO! RETURN TO SEQUENCE

IUK, CHECK FOR EITHER LOG OR CONTROL
0550

3254

01551

7004

0552
11553

3374

1155 4
0555
121556

DCA
RAL
DCA
KR8
TLS
CIA

6:'.36
6046
7~41

TAD

1051

SNA
JMP
TAD
RAR
TAD
ION
JMP

76521

0557
056 0

5366

0561

1374

0562

Hlli!

0563

1254

056 4

6~01

21565

54,"1

MES
RSYC·6

C21213

FLAG aNi

IND. CHECK READER

ISAVECCACI
ISAVE THE LINK
IFOR LOGGING
IGET CHARACTER FROM KEYBOARD
IRETURN CHARACTER
ITO SEE IF
I"CONTROL CIt

CLA

lIS

MES

IYESI RESYNC THE PROGRAM
IR[STORE THE LINK
IFOR EXiT.
/THE AC TOO
IINHRRUPT ON
IRETURN

RSYC
RSYC+6

IT?

/RESyNC THE SYSTEM TO START
<:1566

fl567
0570
0571
0572

0573
01514

62'41
5366
4531
22(:;5
23.11
1603
c ;J00

0515

.1. C'l3:~

0516
0517

6766
5526

RSYC •

TS;
JMF'
.-1
JMS I TYPE
2205 IRE
2331

lSI'

1603

INC
lEND

fIl0121f1l

TAD
DTA
OlCX
JMP ! STX

/loU I T FOR FLAG

ION LAST SENDOFF

/TO KIL~ EXiSTING TAPE MOTION
INOW
IR£TURN TO START

Uin

PAGE U

PDP-8 DECTAPE fORMATTE~ PA~11/3 V14!

IDEC-~'-[UF'B

1!1-MAV-7il

-nl

~60",

IwAIT F'OR THE DECTAPE 'LAG TO RiSE
"6Ql"
0601
0602
06Ql3
060 4
0605
06il6
0607
il61 1il
1il611
1il612

,,£100
7200
6772
7510
5242
7Ql10
7620
521il2
6764
U31
561il0

STALL,

RERR,

1
CL.A
DTRB
SPA
JHP
RAR
SNL
JHP
DTXA
DCA
JMP

IRIAD TCU "B" REGISTER

ERROR
CLA
, .. 5

ERx

STALL

IE~ROR'
IYES~ DECiDE

WHAT TO DO
IDECTAPE FLAG TO ~lNK
IFLAG!
INOI CONTINUE WATCH
IRES[T THE DEgTAPE F~AG
ICLEAR THE END TAPE 'LAG
IGOT FLAG. EXIT

IDRIVE TAPE INTO THE END ~ONE, AND TURN IT
IAROUND.
IIF' C<AC).14"', TAPE INTO REVERSE END iONE
IIF' C(AC)."ill~/ TAPE INTO FORWARD END ~ONE
1il613
"614
0615
0616
061 7
0620
0621
0622
0623
"624
0625
0626
1il627
0630
0631
0632

1il000
2031
JflI23
1161il
1023
1"30
6766
4533
1165
1023
1il232
Hl30
6766
3£131
5613
0777

TRN.

C[,777,

0
ERI(
lSi
DCA
W4
DTQl2U
TAD
TAD
1/4
DTA
TAD
DTCI(
JHS I WAIT
DTQl6U
TAO
W4
TAD
C0777
AND
TAD
DTA
DTCI(
[RI(
DCA
JHP I TRN
il777

lEND lONE IS LEGA~
ISAVE DIRECTION
IHOVE FUNCTiON/GO
IDIRECTION 0 MOVE
ID"IVE TO MOVE
ICLEAR AND RESET "A"
IFOR END lONE FLAG
ISEARCH. GO
IDIRECTION TO .EARCH
IDELETE OVER,LOW BIT
ISET THE DECTAPE
IRESET STATUS "A"
lEND lONE NOT LEGAL NOW
IRETURN TO SEQUENCE

IWAIT TILL WORD COUNT REGISTER GOES TO IERO
0633
063 4
0635
£1636
0637
0640
0641

0000
7300
1534
7640
5235
6764
5633

~INI

•

un
CL.A
CLL
TAD I WC
UA
CLA
•• 2
JHP
DTI(A
JMP I MINI

IWORD COUNT TO THE AC
IWORO COUNT EQUAL. TO IERO?
INO: BE PATIENT
IVESI RESET TMI DECTAPE FLAG
IRETURN to SEQUENCE

uln

PAGE 14

PDP-8 OECTAPE 'ORMATTE~ PAL1f1J/3 V141

IDEC-0'-EU'B

U-MAY-71

IAN ERROR ~LAG HAS BEEN SET. IN SOME gASES
lEND lONE IS LEGAL. OTHERWISE. A ~ESTA~T ATTEMPT
IMAY BE INITIATED,
IDETERMINE WHICH 'lAG lET THE DECTAPE 'LAG
1642
1643
1644
'645
1646
1647
1650
In1
1652
1653
1654
In5
1656
1657
1660

3824
111130
6766
1124
UI1I6
7'10

ERROR.

'261

7430
5274
U06
7510
5304
;U0
U12
'~2fIJ

DCA
TAD
DTCX
TAO
RTL
IPA
JMP
Si!L
JM,
RTL
SPA
JMP
51L
JHP
JHP

W'
DTA

W'
IEOT
IMKTK
I'AR
CLA
IIEI.
ITIM

ISAVE "B" REGIIT[~
IGOING TO KILL
ITAPE MOTION
IRISTORE "I" REGISTER
IPOSiTION IITS 1.2
lEND or TA'E 'LAG'
IYES, GO TO ROUTINE
IMARK TRACK [~ROR7
IYES, GO TO ROUTiNE
IPOSITION IITS 2.3
IPARJTY ERROR?
IYES, GO TO ,ARITY ERROR ROUTINE
ISELECT [RROR7
IYES' GO TO ROUTINE
IMUST BE TIMtNG [RROR

lEND O~ TA,E 'LAG 'OUNO. SEE I~ IT'S LEGAL
0661
1662
1663
1664

7300
1031
76040
'210

lEOT,

CLA
T~D

UA
JH;

CLL
[RX
CLA
RERR

INOT LEGAL END lONE 'LAG
'665
1666
0667
1116;0
0671
0672
0673

JHS I TYPE
U16
lEN
10
'441
2411
ITA
all5
IPE
41l1li
I I
il!COH
..IMP

4'31
fIJ!516
134040
2401
2005
40130
5325

IMARK TRACK ERROR
06;4
0675
0676
0677
07k!iIJ
0701
11702
0703

4531
1501
2213
4024
2201
0313
40 III IIJ
5325

lMKTK.

JHS I TYPt
IHA
1511
2213
lRK
04124
I T
2281
IRA
1313
ICK
UIII

JHP

I fIJ

il!CDH

ICLEAR REMAINS
ISWITCH
IERROR?
10K. 1T' S LEGAL

urn

flAGE is

IDEC-08~EUF"B

PDP-8 OECTAPE fORMATTER pALle/J Vl~l

1!H'1AV-70

16103

IPARITV ERROR
070 4

IIJ7 5

0706
0707
0711'1
0711

4531
2001
2211
2431
4000
5325

ii!PAR.

JMS ! TVp[
IpA

2U1
2211
2431
4Q1rara

JMP

IRI

I 0

~COM

ISELECT ERROR
0712
0713
0714
0715
0716
071 7

4531
2305

tSEL.

JMS I TYPE
231115

14<15

1 4 05

eJ324

0324
d00

4"03

jMp

5325

ISE
ILoE

ICT
I

III

i!COM

!TIMING ERROR
0722
0721
0722
0723
072 4

4531
2411
1511
1607
4 ~ ,1

inl.."

JMS 1 TVpE
IT!
1M!
16 III 7
INC

2411
1511
411100

ITYPE "ERROR PHASE X"
072~

0726
072 7
0730
0731
0732
"'733
"'73';
0735
0736
"'737
074 0
"'741
0742

l eJ J2
1373
3337
45.$1
",522
2217
224"
2 eli "
e123
054l'
4060
4345
~"J 0 L)

4532

i!COM,

TI'"ORM.

PHASE
TAO
PfORM
TAD
DCA
HaRM
JMS I TVPE
0522
IER
2217
IRO
2240
IR
2flJHl
IPH
ra123
lAS
05418
IE
4UI1J
I X
4345
ICR·L,F'
lEND
011J00
JMS I TYPIN

IWHAT PHASE of OpERATiON
IWAS THE MACHINE IN
IWHEN ERROR OCCURED

IHE CAN RESTART If HE TYPES "RETRY"
"'743

"~i13

0744

",322
0305
0324
0322
r11331
0itlkHl
5515

0745

0746
0747
1117,I1J

0751
0752

JMS I COMPAR
IR

(1)322
1/J 305
(1)324
(1)322

0331
0fiJ0I/J

IR
IV
Ie

JMP I IT

IGUESS HE DOESN'T WISH TO TRV AGAIN

PAGE 16

IDEC-108-[UfB

pop-a DECTAPE fORMATTER pA~le/3 V141

l'·MAY-'"

IATTEMPT RESTART. NOTE, "ATT[MPT"
rIl753
rIl754
13755
13756
rIl757
13760
13761
13762
13763
0764
13765
13766
rIl767
137713
0771
0772
"773

1r1l32
1357
3360

5760
1lI7f11

13l1! kl(~
5766
5767

lfORM.

577i1J
5772
10r1l0

1622
200~

22fiH"
7"l:l?

.·2
""1110

PHASE
IF'ORM
,.3

PFORM.

~OP

""6111

IRESTART ACCORDING TO
IWHICH PHASE WAS HE IN

,·2

J"IP I ,.5
-JMP I •• 5
JMP I ,.,
JMP 1 ,.5
JMP I •• 5
-SURT
PS[R
DOB-LK
DBN

5771

,,061"

TAD
TAD
DCA
JMP

IPHASE III
IPHASE 1
IPHASE 2
IPHASE 3
IPJ04AS£ 4

,~,e3

PAGE H

IDEC·II-IUF'B

POP-8 DECTAPE F'ORMATTER PA~1B/3 V141

1!J-MAY-7B

l~ln

IHERE STARTS TMIS PROGRAM. IT WI~~ ASK TME
laPERATOR ~OR DRIVE NUMBE~S~ TMEN ASK HIM F'OR
IA DIRECTION ON WHAT TD DO WITH THE DRIVEl,
ITHE SEQUENCE F'OR MARKING A TAPE WOULD APPEAR AI'
10TAl 13 OR 1 a 3 OR 2 4 7)
10IRECT' (MARK'·~
12277 WORDS. '~56 ILDCKS,OK? YES OR NO
IIYES)
ITMAT DATA IN PARENTHEIIS IS TYPED BY THE OPERATOR
IIHE DOESN'T TVPE TME PARENTHESIS)
IIF' ME HAD\AN'WERED NO, "DIRECT'" WOULD BE TVPED OUT.
IIF' THE DRIVE WAS WRONG, HE WOULD TVpE REITART,
IIF' HE HAD, TYP~D "MARK" IN RESPONSE TO "DIRECT'" TME
ITAPE WOULD BE MARKED WITH THE STANDARD PDP-I CONF'IGURATI0N,
IIF' ME HAD TVPED "MARK 314" tHE TAPE WOULD
IBE MARKED. WITH THE ITANDA~D PDP-i' CONF'lGURATI0N
INOTEI THE WORD AND BLOCK NUMBERS ARE TYPED IN OCTA~
IIF' A MISTAKE OCCURS ON THE OPERATORS PART (WITH REF'IRANCE
ITO BLOCK. WORD SI!E) HE WILL BE TOLQ ABOUT IT

PAGE~'

IDEC-"I~fUF8

PDP~a

DEC TAPE rORMATTER PAL11/J v141

l'-MAY-"

16,113

-11111

Ulll0

IMAKE A CALL FOR THE DECTAPE NUMBERS TO BE
IWORKED,
10,,0
1"f/l1

u,,2

U03
U,,4

u,,5
U06

UQJ7

1010
lUl

Uli2
U13
1014

ui.5

Ul1 6
112117
U2f/1
1021

1022
U23
U24

1025
1026
1i1J 2 7
1030
1031
1032
1033
1034

1035
1036
1037
1040
1041
1042
1043

4'31
4'43
43""
'''31
81424
fI!I177
41!J11J"

TYQU,

74'0
5244
J346
1iIl"

7041
l:Hl
711~

'203
1057
71'14"
1511
7700
'2113
1511
7012
7012
0~64

43117

2111
'215

721/1%1

1346
7650
5200
137/1

11'52
Hl53

3375
7040

1376

4318 ILF'.END
JHI 1 TYPE
11424 lOT

I'"

JHS
TAD
lAC
DCA
DCA
DCA
tAD

TYPIN
UDD

TAD
SNA
JMP
DCA
VALCHK. TAD
CIA
TAD
SPA
JMP
TAD
CHA
TAO
SMA
JHP
TAD
RTR
RTR
AND
JMS
IS!
JMP

BF'R

ISET UP TYPO

I"DU?"

I END
IWAIT FOR A REPLY
~III

J111

1511

ICR.~F'

11177

3374

3346
1072
7"41

JMS 1 TYPE
4543

4'32
11111l
7"01

U44
112145
1046
U47
!e150

1051

START'

CRCHK,

CIA

BrR
DCTR
CRF"1.,AG
CRCOD
OKCR
CRF"I.AG
C261

erR
CLA
TYQU

C2711

BrR
CLA
TYQU
B'R
C7UI
REflEAT
BF'R
CRCHK

IGET NUMBERS
IINITIALIIE pOINTER CBfR)
ICBADD-BUF'F'ER-1, SO BUMP THE AC)
ITO START OF INPUT BUFFER
IINITIALIIE DTA COUNTER TO II
ICI.EAR F'LAG 10 CR NOT ACCEPTIBI.E
IGET CODE FOR CAR, RETN
INEGATE IT
ISEE IF' NEXT CHAR, IN
IBUF'~ER IS CAR, RETN~
IYESI SEE IF' C,R, LEGAL HERE
INO: SO C.R. IS LEGAL NOW
ISEE IF * IS LESS THAN
IAICli 1 CU1)
ISUBTRACT BUrFtR DATA
liS IT LEI. THAN AlII II,
IYESI TELL OuTSIDE WORLD
INO: SEE IF GREATER THAN
lAIC II a (27'1
ISUBTRACT IUF;rR DATA
IGREATER THAN ASCII 7?
IYESI TELL OUTSIDE WORLD
INO: ACCEPT BUFFE~
14 BITS RIQHT

I ISOLATE DTA
IGO CHECK FOR REpEATED DTA AND STORE *
IINCREMENT INPUT Bur. PTR,
IGO LOOK AT NEXT CHAR.

ITHIS SECTI~N CHECKS TO SEE IF THERE ~AS BEEN ANY
IVALID INPUT ONCE A CARRIAGE RETURN IS SEEN
OKCR.
CLA
ICLEAR AC
TAD
CRFLAG IlOAD CR FLAG' II MEANS NO 0000
SNA
CLA
JMP
START
1111 NO VALID INPUT, RESTART
TAD
DCTR
INOT It SO HAVE VALID INPUT
TAD
DBUF'AD ICALCULATE END OF DTA LIST .1
DCA
DBurPT ISTORE IT IN iUFF'ER POINTER, THEN
CMA
ICOMPLEMENT THE AC AND

;AGE it

IDEc·ell3-EUFB
11il54
11il55

1056

10!P
1060

PDP~8

3775
1200
1376
3375
~745

1061
1062
1063
106 4
1065
12166
1067
1070
11,171
1072
1073
1074
1075
lZ76
1077

4531
0411

111il~

120~'

2205
0324
7740
0000
4532
4513

c315
0301
~322

t313
~001j

5301
5700

INIT:I,.

DECTAPE rORMATTE~ PAL1a/3 V141
DCA
CLA
TAD
DCA
JMS

DBUF'PT
DBUF'AD
DBUF'PT
GnOTA

UlwMAY-7f1J

ITERMiNATE DTA LIST WITH 7'7'
ICLEAR AC IF' COME TMRU Loe iT
lAND RES~T LIST POINTER
ITO START OF' L1ST
IGO GET A OTA NUMBER

IINrORM THE OPERATOR THAT THE PROGRAM IS SET TO START
ITYPE "DIRECT" AND WAIT FOR iHE REPLV
I NIT,
JMS I TVpE
IMESSAGE OUT
0411 IO!
22ra5 IRE
0324 leT
77~a

0an lEND
JMS I TVI'I N
JMS I COMPAR
0315 1M
1il31/l1 IA
0322 IR
1il313 II<
IilIilU
lEND
,.3
JMP
JMp I ,·1
MARl<

IWAIT FOR A REPLY
HE TYPE "MARK"?

1010

ITO

MARl< A TAPE

Uln

flACE~II.~

10 '~1Il8·[UFB

PDP~8

DECTAPE ~ORMATTER PALllll/3 Y141

1!5~MAY-711l

UIU

ISEE IF HE TYPED "ROR" (READ AN~ TYPE FIRST 12
IBLOCK NUMBERS IN REYERSE),
1101
111112
1103

4513
~322

lH,4

l1304
.,322

1105
111'16
liel7
1110

5311
571<1
2450

lJ~kJQJ

JMS I COM PAR
1322 IR
1/l311l4 10
8322 IR
I/lIIlIllIll II
,.3
JMP
JMP I ,.1
RDR

ITYPE BLOCKS

ISEE IF HE TYPED "RD~" (READ AND TYPE FIRST 12
IBLOCK NUMBERS FORWARD).
1111
lH2
1113
1114
1~.15

1116
1:17
1121/J

4513
:322
.-3,' 4
r 3,j6
l;J0:;J

5.521
572~

24"'''

JMS I COMPAR
111322 IR
III 31 4 10
1316 IF'
BIll III 8 II
,.3
JMP
JMP 1 ,.1
RDFA

ITYP£ BLOCKS

ISEE IF HE TYPED "SAME" (MEANING MARK A TAPE
I~SING THE SAME CONSTANTS AS BEFORE),
1121
1122
1123
1124
1125
1126
1127
1130
1131

4513
".523
0301
k.315
~31il5
';00~

5332
573:l.
1353

JMS I COMPAR
III 323 IS
1311 IA
8315 1M
" 315 IE
UIIIl II
,.3
JMP
JMP I ,.1
RSTSH

ITO HAR~ AS BEFORE

ISEE IF HE TYPED "RESTART"
1132
1133
113 4
1135
1136
1137
1140
1141
1142
1143
1144
1145
1146

4513
r322
~3~5

;,323
1tl324
~301

0322
0324
0000
11143
5200
1703
1il1ll0 '

JMS I CDMPAR
111322 IR
1315 IE
1/l323 IS
111324 IT
831ll IA
8322 IR
U24 IT
UIIl8 till
QIJ
JHS
JMP
START
GETDTA. NUDTA
CRFLAG, III

IMUST BE NONSENSE
ISTART ALL OyER
IPOINTER TO ROUTINE TO SWITCH UNITS
CR NO GOODJ NOT I, CR IS OK

la,.

PAGE 21

PDP·e DECTAPE F'ORMATTE~ PA~1./3 V141

IDEC-~'·EUF'B

1147
1150
11!51
1152
1153
1154
1155
1156
1157
116111
1161
1162
1163

olillil 0
3~77

lj76
U75
1374
71!J4fIJ
3373
2373
5364
1377
377'
2374
,747

1164
1165
1166
1167
1170
1171
117 2

1775
711141
1377

1173
1174
1175
1176
1177

00130
00130

7~'fIJ

,747
2375
5356

1!J2J03

1725
fjl03'"

l'·MAY-1I

UIU

ISUBROUTINE TO CHECK F'OR REPEATED DTA NUMBERS
IOTA' TO COMPARE TO LIST IS IN AC ON ENTRY·.THIS
IROUTINE STOR~S THE DTA • IF' IT 15 NEW AND IGNORES IT
IIF' IT IS NOT-CALL BY JMS AEPEAT WITH OTA • IN AC
REPEAT, •
DCA
DNUM
ITEM STORAGE 'OR NEW OTA •
TAD
DBU'AD IINITiALII' ;OINTER COIU'PT)
DCA
DBU'PT ITO START OF' OTA LIST
TAD
DCTR
ILOAD NUM. 0' OTAI STORED
CMA
ICOM;LEMENT iT
DCA
CDMCTR ISTo~E IN COMPARE COUNTER
COMCHK, lSi!
COMCTR IDONE WITH ALL COMPARES'
DOCOMP INOI GO DO COMPARE
JMP
TAD
DNUM
IYESi STORE NEW DTA.
DBUrPT IAT END 0' LIST
DCA
DCTR
IINCR •• OF' DTAS STORED
lSi!
JMP
REPEAT IRETuRN
ITHIS SECTION DOES THE ACTUAL COMPARI!ON BETWEEN
ITHE DTA' ;AI5ED ~O THE ROUTiNE AND A NUMIER ON THE LIlT
OBU,.PT IGET NEXT OTA NUMBE~ F'ROM ~IST
DOCOMP, TAD I
CIA
INEGATE IT
TAO
DNUM
IADD IN DTA NUMBER PASSED
SNA
C~A
IARE THEY THE SAME'
JMP
REPEAT /YES I RETURN
DBUF'PT INOI INCREMENT LIlT POINTER
lSI
JMP
COMCHK ISEE IF' DONE A~L COMPARES
I
I

CDMCTR, •
DCTR,
I!J
OBUF'PT, I!J
DBUF'AD, aUBUF'
DNUM,
IiJ
I
I

PAUSE

ICOUNTER F'OR • 0' LIlT COMPARISONS TO IE DONE
ICOUNTER F'OR - 0' DTAS IN LIST
IPOINTER TO CURRENT pOSITION IN DTA ~IST
1ST ART OF' DTA NUM. LIST
ITEM STORAGE F'OR DTA •

PAGE U

IDEC-IIII-EUFB

12I1I1II
121111
12,,2

POP-8 DEC TAPE FORMATTER PAL1111/J Vl"l

U-MAV-711

uin

1200

*12111111
IMARK WAS TYPED IN, IF Wl-1 IS NOT A "K",ASSUME THAT
IA NUMIER WAS TYPED IN, AND VERI'Y THIS. IF' Wl-l II
IA "K", ASSUME STANDARD FORMAT.(Wl-LAST ENTRY INTO THE BU"ER)

1171
311124
3filJJ

MARK,

TAD
DCA
DCA

IINCON

TOTAL

IADDRESS OF' ,IRST BINARY
ICONSTANT rOR DEC TO BIN
IWILL BE IINARY EQUIVILANT

ISAVE C(Xll FOR DECREMENT THROUGH IU,rER
12"J
12,,4
12,,5

724111
1I'2rlI

3"2111

DNC,

CLA
TAD
D.cA

CMA
Wl
Wl

IDECREMENT BUr'ER ADDRESS
IADDRESS BY 1
IW'-SWEEP ADDRESS

ILOOK rOR END 0' PROCEISING BY LOOKING F'OR A "K" IN BUF'rER
12,,6
12,,7
121"
1211
1212

111173
,041
1420
7650
,244

TAD
CIA
TAD
SNA
JMP

I.nK
Wl
CI.A
DIVJ

ILETTER ASCII "K"
ISUBTRACT rRoM CHARACTER
lIN BUrF'ER
IEQUAL?
IYESi SEE IF' DIVIIIBLE BY J

IVERIFy THIS CHARACTER AS BEING OF' DECIMAL ORIGIN
1213
1214
121 5
1216
1217
1220
1221
1222
1223
1224

111154

'''41
1420

77H1
5520
1"60
,"40
1420
,'00
,520

TAD
CIA
TAD
SPA
Jl1P
TAD
CMA
TAD
SMA
JI1P

CI6"
Wl
CLA
QUi
C271
Wl

CLA
QUl

IAICII F'OR •
ITO lEE I' CHARACTER
III ~ESS THAN a6.
IIIIU
IYESI NOT DECIMAl. OHARACTER
IAiCII FOR 9
ITO SEE IF' GREATER THAN
19

III IT7
INOT A DECIMAL CHARACTER

~AGE

IDEC~12I8·EUfB

PDP·a oECTAPE rORMATTER PA~10/3 Vl.l

is-MAY-711

2,~11I3

ICHARACTER IS DECIMA~. NOW CONVERT IT TO BINARY
IREMEMBER POSITION O~ CHARACTER IN BUf~ER MAY BE

110,11211,18118.
1225
1226
1227
123121

TAD
AND
SNA
JMP

142111
0042
7450
'242

Wl
ClliI17

IBS

IISO~ATE THE NUMBER
If OR PROPER CONVERSION
IIr 8, NO BINARY CONVERSION NEEDED
IYEsi II INCREMENT BINARY CONVERSION

INOT 121, SET UP CONVERSION ~OOP
1231 7141
1232 3023
1233 1424
1234 1033
1235 7430
1236 5521
1237 312133
124121 2023
1241 . 5233

C~l

CIA

DCA
TAD
TAD

TOTAL

Si!~

JMP
DCA
lSi!
JMP

W.
W,

QU2
TOU~

,-6

INUMBER or ADDITIONS
ITO NEGATIVE fOR lSi!
IBINARY POSITION TO C(ACC)
IAoD TO PRESENT TOTA~
ICHECK ON TO MANy WORDS
ITO MANY WORDS CA~LED fOR
IKEEP RUNNING SUM
ILAST ADDITION?
INO: ADD AGAIN

IFINAL ADDITION fOR THIS POSITION COMP~ETED

1242
1243

2"'24
521213

lSi!
INEXT POSITION
JMP
DNC
100 NEXT CHARACTER
ILAST CHARACTER COMP~ETEO. SEE If DIVISIB~E BY :5
IIf NOT A NORMAL INPUT

1244
1245
1246
1247
1250
1251
1252
1253
1254
1255
1256
1257
126 121
1261
1262
1263

112133
74Si'
1052
1042
312133
3034

DIV3,

126 4
1265
1266
1267

1101

12133

71il21
1076
2034

7440
742fi1
741 III
,253

7640
,523

1Ql34

712141
:512134

I8S,

TAD
SNA
TAD
TAO
DCA
DCA

TOUl

IGET TOTA~ WORDS
IIf TOTA~ e, NORMAL INPUT
C21211
1129 OCT. THIS TEST REDUNDANT
CU17
IAOO CONSTANT l' TO TOTAL
TOTAL
If OR fUTURE CONSIDERATIONS
VARl
I ' Of WORDS/:5 ~OR MARK TRACK WRITING
TOTA~
TAO
IRESTORE IN THE ACC
ITO DIVIDE BY 3, ~INK KEEPS OVER~~OW
CLL
M3
TAD
ISUBTRACT 3
lSi!
VARl
ION EACH DIVISION, KEEP RUNNING SUM
Si!A
IIf AC • I,NO REMAINDER
SNL
IWHEN LINC GOES TO I, DIVISION ENDED
SKP
INOw SEE If IT DIVIDED EVEN~Y
.~6
JMP
ISUBTRACT 3 MORE
Si!A
CLA
I l f II,OK, OTHERWISE ERROR
QU4
INOT DIViSIBLE By 3
JMP
ICORRECT "VAR1" ( THE NUMBER Of WORDS/3) rOR THE .~,
IADDED JUST ABOVE AND AN INHERANT .2 DUE TO MARK TRACK
ICONflGURATION TO BE WRITTEN.
TAD
TAD

CIA
DCA

VARl
VARl

ISUBTRACT 7 rROM PHONY SETUP
IGIVING THE NUMBER 0' TIMES
ITO BE USED ~ATER IN A lSi!
IDATA MARK Wi~L BE WRITTEN

PAGE n

IOEC-"8·EUFB

PDP-8 DECTAPE rORMATTER PA~11/3 V141

l'"MAY-71

2,6,13

IIAU 24

ICOMPUTE A VALUE rOR TOTAL NUMBER OF BLOCKS
IRE CoRD SIIE • l ' INTO 636161 OCT.
1270
1271
1272

1273
1274
1275
1271)
1277
1300
1301

13,,2
1303
13",4
1305
131'l1)
1307
131 0

li;l¢¢

3020
",775

1063
7100
1033
2026

7 "110

5522
7112"

5275
202C:
5274
730<l
Hl26
7"'4t'

3035

TAD
DCA
JMS
TAD
CLL
TAD
lSI

SKP
JMP
SNL
JMP
ISl
JHP
CLA
r10RTN. TAD
CMA
DCA

C771"

Wl
'ORMU
C1621

TOTAL
BLOCKS
QU3
.-5

.-1111

CLL
BLOCKS
VAR2

IEXTENDED .'" VALUE. SETS ACta
ISET rOR
IPATCH TO CHECK rOR ITD.ll 'ORMAT
IVERNIER ADJuSTMENT rOR ,ORMULA
IACC.2 CARRY rUNCTION
IWORO COUNT
1·1 TO BLOCK COUNT

1411'.

ITO MANY BLOCKS CALLED rOR
ICARRY INTO ACC'2'
INO: CONTINUE-COUNT
IYESI FULLY DIVIDED?
INO: CONTINUE PROCESS
ICIACC). CIL)-I
IFOR MARK TRACK ICOME HERE rR F11PAT I' 11 'RMT)
IWRITING
ISH MARK WRITE

IVALUES rOR BLOCK AND RECORD SIIE HAVE BEEN
,COMPUTED. TELL OUTSIDE wORLD AND GET THE OK.
1311

1312
1313
1314
131 5
1316
1317
1320
1321
1322
1323
1324
1325
1326
1327

1330
1331

1033
111167
3033
1033
,,53[11
4531
,,027

1722
0423
5"00

1026
71!"'1
4532)
,,531

""""2
1 "11 7

1332
1333
1334
1335

0313
2356
1713
7733
3105

1336

23"QI

1337

1340
1341

13",2
13"13
1344

1722
"'016

1735

"'''3
U0Z1
4532

TOTAL
TAD
C7761
TAD
TOTAL
DCA
TOTAL
TAD
JMS
TYOCT
JMS I TYPE
4127 I OJ
1722 lOR
1423 IDS
I. END
BLOCKS
TAD
lAC
JMS I TYOCT
JMS I TYpE
"'.12 I B

5""

1417
1313

2356
1713
7733
3115

ISUBTRACT 15 'ROM TOTA~
IWORDS FOOLING OPERATOR
ICORRECTED rOR TAPE WRITING
IFOR OCTA~ TyPEOUT
ITYPE OCTA~ wORDS
ITYPE MESSAGE

ITYPE OUT a~OCK .5
ITO 'DOL THE OPERATOR
liN OCTAL
/TYPE MESSAGES

ICK
IS.
10K

III

lYE
IS
1722 lOR
"116 I N
1735 10)
4543 ICR·L'
un lEND
JMS I TYPIN
23"11

IWAIT 'OR REPLY

IDEC- el 8-EUFB

PDP-8 DECT.PE FORMATTER PAL10/3 V141

15-MAV-70

ISEE IF A VES OR NO ANSWER WAS GIVEN
1345
1346
1347
1350
1351
1352

4513
kl331
03115
.:323
,,(:100

JMS I COMPAR
0331
IV
03,,5
IE
0323
IS
01210121
lEND
JMP 1 IT

5n5

ISEE IF THE DRIVE IS OK
135.3
1354
1355
1356
1357
1360
1361
1362
1363
1364
1365
1366
1367
1370

1153
1030
6766

RSTSM,

3~2Z

6772
.,700
5371
4531
23[15
2425
2077
000<3
5770
1"'(:11Z

C~TRD'

OT0iil60
TAD
TAD
DTA
DTCX
DCA
Wi
DTRB
SMA
CLA
JMP
CIi!
JMS I TYPE
2305 ISE
2425 ITU
2077 IP
lEND
0121"
JMP " I ,·1
START

IGIVEWRTM, NO GO
lAND DTA II
IORDER EXECUTE
1ST ALL FUNCTION
IREAD SUTUS "B"
IERROR?
INO: TIME OUT STA~L
IVES, INCORRECT SETUP

1ST ALL ~OR A WHILE FOR THE INTERRUPT
1371
1372
1373
1374
1375

2~2Q!

5357
5774
1400
1560

CIi!,

lSi!
Wi
COTRD
JMP
JMP I ,.1
STMK
FORM10. F'10PAT

ROUND'S WORTH
IOF lSi!
lONE

10K, GO DO

T~E

MARK TRACK

16,03

PAGE 2'

IDEC-'I-EUF'B

PD~-a

1400

1411"

1411
1412
1483
14.4
1485

11/13111
6766
U32
lBn
3825

DECTAP[ 'ORMATTE" PAL1./3V141

15"MU-71
-14.'
ISET THE TAPE INTO MOTION. ALL VARIABLES ARE
ISET. F'ROH THII POINT ON, CONTROL IS EXECUTED
IVIA THE WCO INTERRUPT

ICLEAR OUT STATUS "A" AND RELOAD IT WITH CONTINUOUI
IWRITE TIHING AND MA"K TRACK COMMAND
STMK,
TAD
DTn ..
IF'WD, CONT,T.M,;O,INT
TAD
DTA
IADD IN THE DTA
DTCl(
ICLEAR F'LAGS START MOTION
DCA
PHASE
IFOR ERROR "OUTINE
TAD
VAR2
ITO HAKE A REITART 'DR THE "IAHE"
W6
DCA
10PTION POSIIILE
IWRIT£' END iONE. WRITE ABOUT 11' OF T~IS
ICONF'IGURATION. 4144
I
144.
ON TAPE AS
I
44'4
~5"') OCTAL.

1486
1417
1418
1411
1412

311J2111
1312
3;12
1876
3534

CEi,

OCA
TAD
DCA
TAD
DCA

Wl
RU
CA
H3
we

ICLEAR CDUNTE", 1117. ABOUT 1"
ILOAD ADDRESI OF' DATA
ITO IE W"ITTEN INTO THE CA
ILOAD • WOROI TO I' WRITTEN INTO
IWC LOCATION

IWAIT rOR iNTE"RUPT, TEST '0" END or
lEND iONE WRITING.
1413
1414
1415

4'33
2I1J2111
521117

1416
1417
142111
1421
1422
1423

111113
311120
4224
2820
52221
5235

16113

JHS
lSi
JHP

Wl
CU

TAD
DCA
JHI
lSi
JHP
JMP

Ml44
Wl
I NIlSY
Wl
,-2
WDi

IFOR INTE"RUpT
lEND OF' '00TAGE7
INOT END F'OOTAGE, CONTINUE
10K, WRITE INTERBLOCK SYNC
IHRITE INTERB~OCK SyNC, SINCE THIS CONrlGURATION
IACT AS A NOP TO THE TCU, AT THE BEGINING or
ITAP[, MORE LENGTH 0' THIS II NEEDED 'OR TURN AROUND
ITIHE TO GUARANTEE BLOCK 1'1. TO THE lllRARY SYSTEM
ITHEREFORE AT THE BEGINING 0' TAPE ONLY, NRITE SEvERAL
IINTERBlOCK iO~ES
.
WAn

INUMBER oF' TIMES TO
IHRITE INTERBlOCK SYNC
IWRITE 1 INTERllOCK IYNC
ICON,IGURATION, TEIT END
INOT TOTAL F'OOTAGE. W"ITE AGAIN
ICOHIiLET[D, GO ON

IiAGEU

,
IDEC-KlB-EUFa

PDP-8 DECTAPE FORMATTER PAL1~/3 V141

1'-MAY~7fJ

UIIIJJ

IAT NORMAL RETURN, WRITE ONLY ONE INTERSLCcK SYNC
ICONFIGURATICN, APPEARS AS
~4~4
I
04m4
ON TAPE AS
I
04~4
2525 OCTAL
1424
1425
1426
1427
143'"
1431
1432

02100
1316
3512
1 0 76

3534
1034

31324

INBLSV, "
TAD
DCA
TAD
DCA
TAD
DCA
I~A!T

lSi!
CA
M3

/COUNTER AND WORD
/COUNT ~ITH KEyS
/FOR CONTROL

VARl

/REsn THE WORDS
/PER BLOCK COUNTER

1015

FOR !NTERRUPT, RETURN TO SEQUENCE

1433

4,33

JMS

WAIT

1434

5624

JMP

IN8LSY

/I.,R I TE

FORWARD
/THREE WORDS

BLOC~

1322
::5;12

4~04
4~4~

WOt,

TAD

FBM

DCA

1276
3534

TAD

U4J

1441

4533

DCA

JMS

WA IT

MARK 4ND REVERSE GUARD

1/14&14

I
I

1·135
1436
1437

/FOR INTERRUPT

ON TAPE AS
2632 OCTAL
IADDRESS OF pATTERN
ITO CURRENT ADDRESS
I'IUMBER OF WORDS
;TO wORD COUNTER
IJROP THROUGH AFTER WRITE

RJTE LOCK MARK, REVERSE CKSUM, REVERSE rINAL,REV PREFINAL
WORDS
1, 0i1J4i/l
4, 1IJ12I4121
5, lIJilJlIJ~
ON TAPE OCTAL
2. "~~12I

I~lx

I
I

1 42
1 43
1 4· i

1445
1·14~

3, 4011J1il

TAD
DCA
TAD
DCA

1326
3512
11' ~
3534
4533

JMS

WLM~F

CA
M6

WAIT

41/)1IJ~

1 12111/) 1i1J10

IADDRESS OF pATTERN
ITO CURRENT .DDRESS
I'JU~BER OF WORDS
/TO WORD COUNTER
IDR~PTHROUGH AFTER WRITE

NRITE THE DATA TRACK, SINCE THE ~ENGTH OF EACH
IS A VARIABLE. "v_Ri" KEEPS TRACK OF THE
OF TIMES THIS CONFIGURATION wILL BE wRITTEN
"'VAH1" WAS DECIDED FROM ABovE IN THE FORMULA
I RANSLArloN SECT!O~
I

I~ECORD
I U~8ER

I'HR~E

WORDS

4440
~044

I
I

1447

1335

145J

3~12

1451
1452

1 ii 7 IS

3534

D~RK.

4121~~

TAD
DCA
TAD
DCA

CA
M3
WC

ON TAPE AS
7rP0 OCT AL
I~OAD ADDRESS OF THE DATA
ICONFIGURATIoN INTO CA
ILOAD # WORDS
IINTO WORD COUNT

I'AGi: t/7

IOEC~kl8~£UF8

POP-B OECTAPE rORMATTER PAL1B/3 Vl.l

15-MAY-7"

IWRITE ONE SET TEST "VAR1" FOR LAST S~T
1453
1454
1455

4533

JMS
ISl
JMP

2~24

5247

WAIT
W5
DTRK

lONE CONrlOURATION
IlAST?
INOW WRITE DATA MARK TRACK AGAIN

MARK TRACK CODE rOR DATA IS COMPLETE, NOW WRITE
IPREFINAL. rINAL. CHECKSUM AND REVERS~ CHECKSUM,
ISIx WORDS
1 4440
4 4440
I
2 4444
5 4444
ON TAPE AS
I
3 4044
6 40~4
737~7373 OCTAL
I

1456

1457
1460
1461
1462

1341
3512

uriHl

3534
4533

TAD
DCA
TAD
DCA
JMS

F'U

CA
M6
WC
WAIT

IlOAD ADDRESS OF
IDATA CONFIGURATION INTO CA
ILOAD • WORDS
/INTO WORD COUNT
ITllL COMPLETED WRITE

I~RITE GUARD, REVERSE BLOCK
ITHREE WORDS
404~
I
044111
ON TAPE AS
I
III 4"4
5145 OCTAL

1463
1464
1465
1466
1467

1350
3512
1~76

3534
4533

TAD
DCA
TAO
DCA
JMS

GRl
CA
M3
WC
lolA IT

10AH ADDRESS TO
/THE CA
INUMBER OF WORDS
/TO WORD COUNT
IT I lL COMPLETE

ITHIS COMPLETE SET OF DATA TRANsrERES
ICOMPLETES ONE BLOC~ ON TAPE, SINCE THE
INUMBER OF BLOCKS IS VARIABLE, "VAR2" IS
IUSEO TO RECYCLE, "VARin WAS SET UP ABOVE IN
ITHE FORMULA TRANSLATION SECTION
147~

1471
1472

4224
2025
5235

JMS
lSi!!
JMP

INBLSy
W6
WDi!

IWRITE INTERBlOCK SYNC
ITOTAL NUMBER OF BLOCKS
IWRITTEN? NO!

uln

PAGE U

IDEC-f!lI-IEUF'B

PDP-8 DECTAPE rORMATTER PA~10/3 V141

15"MAY-70

1~ I fiI3

DATA B~OCKS HAVE iEEN WRITTEN.
INOW PROVIDE A BurF'ER lONE or INTE~BLOCK SYNC AT THE END
lor TAPE AS AT THE START or TAPE
IA~L

1473
1474
1475
14;6

1477

TAO
DCA
JMS
lSi
JMP

1103
3fil2fil
012201
2020
5275

Ml44
Wl

INB~SY

loll

,-2

IABoUT TWO BLOCKSCSTANOARD) WORTH
IAlOUT 101 TIMES
IWRITE ONE PATTERN
IAT END yET?
INO CONTINUE WRITING INTERB~OCK SYNC

ICOMP~ETED B~OCK WRITING
IWRITE ANOtHER 1 III , or END lONE crORWARD>
IBEroRE ~OADING B~OCK NUMBERS.
ITHREE WORDS
III 01 10
I
011'01
ON TAPE AS
I
0040
2222 OCTA~

15 III III
15,,1
15fil2
151113
151114

1505
1506
1507
15111l

1511

3 III 2 111
1354
3512
111176

:5534

01533
2 III 2 III
53fr.'!1
5711
161110

DCA
loll
IIUd0 rEET
TAD
ElM
ILOAD ADDRESS OF' DATA
DCA
CA
IINTO CA
TAD
M:5
INUMBER or woRDS
DCA
WC
IWORD COUNT
IWRITE 1 SET, CHECK [NO oF' 11'.
WEiF',

JMS
WAIT
lSi!!
Wl
JMP
wur
JMP 1 ,·1
MWTM

ITILL COMPLETE
lEND OF' rOOUGE?
INO. CONTINUE-WITH END lONE
IGO AND START a~OCK NUMBER
ISEQUENCING

PAGE 29

/D[C-Iill-U;UF"B

~DP-8

O!CTAPE fORMATTER PA~1~/3 Vl~1

U~MAy

.. ,ra

ITMESE ARE THE DATA CONrIGURATION! FOR TME MARK TRACK
IRE VERSE END ~gN£
RE~,

1512

1'12

1513

4044

4\IiH4

1514
1515

tll""0

i!44f.l

4404

•

4413/1

II N'fERilL.OCK

1!H6
1517

1520
1521

1~H6

ION TAPE AS 555' 10CTl

lBiIl,

,
14"4
0414

ill 4fl1 4
0404
1il41//4

nNC
ION TAPE AS 2'2'

locr l

f.l4il4

IFORWARD BLOCK M~RK AND REVERSE GUARD

F'BM,

1522
1523

1'22
1il404

III 41l! 4

1524

4~Hl4

4i5i4

1525

ION TA~E AS 2632 (OCTI

4111411

4""0

ILOCK MARK, REVERS~ CHECKSUM, REVERSE rlNAL
lAND REVERSE PR[~INA~
1'26
1527
1530
1'531
1532

1533
1534

3,526

WL.MRF',

U<4!1l

1/1 1/1 AI 0

111000

.. !!I0IIl

'11111210
11HiJ4eJ

UOIIil

ilium
"!lin

",O00

400121

IDAU

1535
1536
1537
154 111

1535
444121
1311J44
,HHl0

ION TAPE AS 11111!1l11 tOCTI

oii!.

MARK

,
4HflJ

ION TAPE AI

7Z7~

loct>

U44
diU"

IPREFINAL. rINAL, FWO CHECKSUM, AND REVERSE LOCK
1541
1542
1543
1544
1545
1546
1547

1541

Hi! •

•

4<1\01121

444111

4444
41H4
444121
4444

4444
411JH
4441/1
.1\444

4i1J44

"i!l4~

ION TAPE AI 73131373 <OCTI

uiU

PAGE 31

IDEC-08~EUF"B

PDP-8 DECTAPE rORMATTER PAL1~/3 Vl~i

l'-MAY-70

16103

IF"ORwARD GUARD AND REVERSE BLOCK NUMBER
1550
1551
1552
1553

1550
4040

GRi!,

•

'111140

044V"

ION TAPE AS 5145 (OCT)

~440
04~'I

0404

IFORWARD END i!ONE
155 4
1555
1556
1557
1560
1561
1562
1563
156 4
1565
1566
1567
1570
1571
1572
1573
1574

1554

£i!M,

12!~:J;t.

ION TAPE AS 2222 (OCT)
4U4
I/JUI/J
ISUBROUTINE TO SEE IF" USER TYPED MARK 384
ITO SPECIF"Y STANDARD PDP-l~ F"ORMAT
F'UpAT, I/J
DCA
BLOCKS ICLEAR LOC. BLOCKS IN CASE NOT 11/J-'ORMAT
TAO
lAND GET NUMBER TYPED BY USER
TOTAL
TAD
M617
II<IAS IT 38U
Si!A
CLA
JMP
F'UPAT INO-RETURN
DCA
wi
IYES-CLEAR W1 rOR WAIT LOOP
TAD
C1101
lAND ADJUST BLOCK TOTAL rOR
BLOCKS Ill~2(OCTAL) B~OCKS.
DCA
JMP I
,·1
F'108AK, F'URTN
Mo17,
-617
Cl1010 lUi

41i!04
1i!1i!40
r.l1i!0!)
3026
1033
1373
764;j
576(1
3ei2,1
1374
3026
5772
13~6

7161

1101

•

~4U

PACE ;U

IOEC-08~EUFB

POP-8 OEeTAPE rORMATTER PA~le/3 V141
3,60,)

U-MAY-7e

u,e3

*16ee
ITHE MARK TRACK HAS BEEN WRITTEN, AND TAPE IS
IMOVING ~ORWARD IN THE FORWARD END ~ON[. STOP
ITHE TAPE AND SEE IF THERE ARE ANY TAPES ~E~T TO
IMARK-~If SO ~D 00 THEM, E~SE TE~~ OP~RATOR TO THROW THE
I"NORMAL/WRTM/RDTM" SWiTCH TO "NORMAL"
IHE WILL THEN CONTINUE AFTER THIS ACTION
IKILL WRITE, STOP TAPE

16111111
1601
1602
161113
161114

1154

MwTM.

103'~

6766
4303
57;)2
I~EsSAGE

1605
161"6
16oj7

161 0
1611
1612
1513
161 4
1615
1616
1617
1623
1621

TAD
TAD
DTCl(
JMS
JMP

DUIlI70
DTA
NUDTA
DOMARK

TO OPERATOR
JMS I TYPE
23e5 ISE
2440 IT
2327 ISW
1124 lIT
1lI310
ICH
41124 I T
1740 10
1617 INO
2215 IRM
U14 IAL
UU lEND
JMS I TYP IN

4!:1Jl

2305
2441
2327
1124
031;'
4"24
1742,
1617
2215
0114
11l;J '" ~1

4532

IS TOP TAPE WITH SELECT ERROR
ILOAD DTA INTO ORDER
IEXECUTE THE ABOVE
IANy MORE OTAS TO MARK?
IYESI GO MARK THEM

INO: BACK TO fIRST DTA AND CONTINUE

IWAIT FOR CR

IREVERSE TAPE FOR A FEW SECONDS TO GUARANTEE
IBLOCK MARK SECT WILL BE UNDER THE HEAD
1622
1623
162 4

1164
1\l30
6766

PSER.

TAD
TAO
OTC)(

DT06U
DTA

IREVERSE, MOVE, GO
IAOO DTA TO ORDER
ICLEAR TCU.GET MOVING IN REVERSE

1ST ALL A FEW SECONDS
1625
1626
1627
163111
1631
1632

1104
3e121
202111
5227
21321
5227

TAD
DCA
IS~

JMP
IS~

JMP

M301/J

w:z

Wi
,-1
W2
,-3

IAROUND 2 SECONDS
II'UJOR STALL
IMINOR SULL
ILOOP MINOR
IMAJOR SULL
ILOOP MAJOR

PAGE on

IDEC-flJl-EUF'B

POP-8 DECTAPE F'ORMATfER PA~10/3 V141

i5-MAY-70

206,83

ITAPE OUT ON MARK TRACK NOW. TURN AND GET IT
IMOVING F'ORWARO, AT THIS POINT, THE LAST REVERSE
IB~OCK NUMBER W!~~ BE WRITTEN UNTIL~ END lONE IS
IREACHED, THEREF'ORE, WHEN THE BOUNCE OUT OF' THE END
I~ONE TAKES P~ACE, THE SYSTEM WILL BE ABLE TO SYNC ON
ITHE REVERSE B~OCK NUMBER TO WRITE THE REST OF'
ITHE B~OCK NUMBERS AND KNOWN GOOD DATA IN REVERSE.
ITHIS PROCESS WI~~ ELIMINATE A NEEO~ESS REWIND AND
IKEEP THE ENTIRE PROCESS TO TWO COMPLETE PASSES
IWRITE LAST REVERSE BLOCK NUMBER
1633
1634
1635
1636
1637

TAD
TAD
DTC)(
TAD
DCA

1161
111!30
6766
1036
3032

OTfiJ2U
DTA

01
PHASE

GOING F'ORWARD

IF'ORWARD, SEARCH, GO
IADD IN THE DTA
ICLEAR STATUS "A" AND RE~OAD IT
IPHASE 1 ERRoR
IF'OR ERROR RoUTINE

IWAIT HERE F'OR DECTAPE F'LAG. CHECK ALSO F'OR ERRORS
ISET BLOCK NUMBER (REVERSE) INTO F'ORM
1640
1641

TAD
B~OCKS
JMS I MESS

111!26
4524

IINTO AC WITH LAST B~OCK NUMBER
ICONVERT BLOCK NUMBER F'OR TAPE

/INTERRUPTED' ERROR?
1642
1643
1644
'1645

DTRB
RAR
SNL
JMP

6772

7010
7620
5242

C~A

, .. 3

IREAD STATUS "B"
IDECTAPE F'~AG TO ~INK
IF'LAG SEU
INOI CONTINUE WAIT

IB~OCK rOUND, SWITCH TO READ DATA WITH WC ONE LESS THAN
INUMBER OF' WORDS TO BE READ. READ TIL~ WC~8

1646
1647
1650
1651
1652
1653
1654
1655
1656
1657
1660
1661
1662
1663
1664

1156
6764
7240
1033
7i!J4QJ
3534
1i!41
3512
6772
0062
7640
5701
1534
764121
5254

RCYBR.

TAD
DTflJ130
DT)(A
CLA
CMA
TAD
TOTA~
CioIA
DCA
WC
TAD
C4
DCA I CA
OTRS
AND
CUIIJIIJ
SilA
CLA
JMP
GDB~K
TAD
WC
Si!A
C~A
JMP
.-u

ITO sET STATuS "A" INTO
ITHE READ DATA MODE
ISUBTRACT 1 F'ROM TOTA~
IGIViNG TOTAL-l (HO HOI
/I NVERT F'OR lSi!
ISET WC
INOP
IJIMMIED TO DO NOTHING
IREAD "B" REGISTER
IISO~ATE END i!ONE BIT
lEND i!ONE!
IYES, GO AND WRITE THE B~OCK NUMBERS
IWAIT TI~L WORD COUNT IERO
IE QUAI. TO !ERO'
INO: LOOP AGAIN

PAGE n

PDP-8 DECTAPE rORMATTER PAL1i/3 V141

IDEC~II'-[UFB

1'-MAy-7i

1~,13

lEND Or BLOCK rOUND. WRITE JUNK AND REVERSE BLOCK NUMBER
1665
1666
1667
167 121
1671
1672

TAD
DCA
TAO
DCA
TAD
DTxA

1102
35H
1117
;'512
11'4
6764

1'414
WC
F'ORMB
CA
DTifll7i

112 wORDS TO BE WRITTEN

ITO WORD COUNT REG.
IFORM TO CA
IOF NUMBERING rORM
ISWITCH TO WRITE ALL
IMODE.

IlOOK rOR THE OECTAPE rlAG INDICATING ANOTHER RECYCL[
1673
167 4
1675

1676
1677
1700
17i1J1

1702

6772
7111121
762121
5273
1154
5247

21100
1~12I0

DTRB
INOI GET "I" AGAIN
RAR
IFLAG TO LINK
SNl
CLA
IFLAG lETt
,-3
.,,1'41'
INO; BE PATIENT. HAST NOT.
DUl7i
TAD
ITO IWITCH TO READ DATA
.,IMP
RCYBR
QDBlK, ooaLK
DOMARK, IHIK
IPOINTER TO START or MARK ROUTINE
ISUBROUTINE TO GET NEXT DTA UNIT' rROM INPUT LIST OR
IRE CYCLE TO FIRIT UNIT IF ALL HAVE BEEN PROCESSED UP TO
ITHIS POIN,--CALL SEQU~NCE
I
.,11'41 NUDTA
ICALL THE ROUTINE
I
(RETN1)
IRE TURNS HERE IF' MORE DTAS TO PROCESS
I
(RETN2~
IRETURNS HERE IF' END OF LIST
lEND OF LIST MEANS RESET TO F'IRST AND RETURN TO (RETN2)
IRETURN IS WITH DTA SET TO NEW VALUE AND AC,f11

17;13
171214
171215
171216
171217
171121
1711
1712
1713
1714
1715

12112112121
1724
;)323
1723
1211214'
764121
5316
1723
31213121
2724
571213

1717

1716

172121
1721

231213
1722
3724
531214

1722
1723
1724
1725

1176
0121121121
1175
121121121121

NUDTA'

"
TAO
DCA
TAO
AND

IGET CURRENT VALUE or OTA LIST PTR
ISTORE IT AS TEM, auF'. PTR.
IGET A DTA , F'ROM THE LIST
Cl!IIIJf17
IISOLATE LOW ORDER DIGIT
SU
CLA
liS IT 77777
.,IMP
LSTEND IYESI END OF' LIST
TAO
TBUF'PT INa: GET IT BACK
lAND STORE AS NEW DTA ,
DCA
DU
LSTPT
IINCREMENT LIST POINTER
lSI I
IRETURN
.
.,IMP I
NUOU
ICOMES HERE AT END or LIST TO RESET pTRS AND RETN TO CALL ••
LSTEND, ISl
NUDTA
IINCREMENT RETURN POINTER
STRTPT IGET ADR. OF' iTART
TAO
liST
LSTPT
DCA
ISTORE TO Rt-INITIALI!E LIST PTR,
.,IMP
NUDU·l IGO GET F'IRST DTA , AND RETURN
STRTPT, OBUrAO IPOINTER TO START OF' DTA LIST
T8UF'PT, i
ITEM, STORAGE rOR BUr. PTR.
LSTPT, DBUF'PT IPOINTER TO cURRENT VALUE OF' DTA LIST PTR
DTABUF. i
ISTART OF DTA , lIST - MAX. 9 WORDS
LSTPT
TBUF'PT
TBUF'PT

PAG[~.

IDEC-IIlS-EUFa

PDP-8 DECTAPE rOR~ATTER pAL10/3 Vi4i

U .. MAY-70

2000

.20r1J1!l
IGO INTO SEARCH IN REVERSE MODE LOOKING PaR
ITHE LAST BLOCK NUMBER, WHEN FOUND, SYNC THE SYSTEM
lAND WRITE ALL DATA AND BLOCK NUMBERS

20 21 III
2001
201/J2
201113
2004

4527
11/J26
3027

DOBLK,

2005

4533

1~37

3.132

JMS
TAO
DCA
TAD
DCA

TURN
BLOCKS
BLOCK A
C2
PHASE

UII/J:5

/INTO REVERSE AND SEARCH MODE
ITO SET UP
/FOR BLOCK DECREMENTING
/PHASE 2 ERRoR
IFOR ERROR ROUTINE

ILOOK FOR INTERRUPT INDICATING BLOCK NUMBER
JMS I WAIT

IFOR DECTAPE fLAG

ISWITCH TO WRITE ALL. SYSTEM NOW IN SYNC
2",~6

21307
2~ lIIl
2011
2012
2313
2G1 4

20i:5
2lJ16
201 7
2il2'"

1157
6764
1265
3512
1v.:76
3534
4234
1534
7640
5214
6764

~EXTBN,

I~RITE

22'21
2022
2'l!23
202 4
21/J25

12133

TAD
DTXA
TAD
DCA
TAD
DCA
JMS
TAD
SH
JMP
DTXA

3534
1271
3512

ADF3
CA
M3
WC
CE~N

CLA
.-3

ISWITCH TO WRITE ALL
IEXECUTE ORDER
IADDRESS OF fiRST 3 WORDS INCLUDING
ITHE FORWARD CHECKSUM TO BE WRITTEN
I~UMBER Of woRDS TO BE WRITTEN
ITO WORD COUNT
ICHECK FOR END ~ONE
ICHECt< FOR WC·"
1=01

INOPEI TRY AGAIN
IYUPI CLEAR THE fLAG

DATA TRACK, REMEMBER CORRECT DATA IS BEING WRITTEN
TAD
CIA
DCA
TAD
DCA

71)41

DT0141/J

TOTAL
WC
AD7777
CA

lONE FROM TOTAL NUMBER
WORDS fOR COUNTING
IOATA WORDS WRITTEN
IAODRESS Of sEVENS
IDATA TO BE wRITTEN

101'

I~O~ITOR WORD COUNT rOR A ~ERO READING
ISOME OF THIS TIME IS USED TO SET THE NEXT
IBLOCK NUMBER INTO THE fORM.

2026
21/J27
2031/J
2031
21/J32
2('133
2213 4
2035
21/J36
211137
204"
21/J41

1027
4524

TAD
JMS
CLA
TAD
DCA
JMP

724~

1~27

3027
5242

BLOCK A
MESS
CMA
BLOCK A
ilLOCKA
CE~B

ICURRENT BLOCK NUMBER
ICONVERT INTO fORM
/TO DECREMENT
/THE BLOCK COUNT
IDOWN TO HRO
IBYPASS fOLLOWING ROUTINE

ICHECK FOR END ~ONE
1<J"'<lQl

6772
<)062
765111
'~34

5664

CE~N,

"DTRB
CUJ0IIJ
AND
SNA
JMP
JMP

CLA

CE~N

GDBN

I~EAD STATUS "B"
I!SOLATE END ~ONE
IHAVE IT?
INOT E~, RETURN
ICOMPLETED

pAGE U

IDEC~08~EUFB

PDP~8

DEC TAPE FORMATTER PAL10/3 V141

15·MAY .. 70

:1,6,03

ICHECK HERE ALSO TO SEE IF END ~ONE. INDICATING
ITHAT THE LAST BLOCK HAS BEEN WRITTEN
21342

4234

CElB.

JMS

CE~N

lEND i!ONEI

ILOOK FOR WORD COUNT AS BEING EQUAL TO ~ERO
2(l43
2044
2H5
2:/)46
2047
2050

1534
765t,J
5251
1271
3512
52'12

Iwe TO C(AC)
lEND OF OAT A WRITE'
IYESI GO TO WRITE SLOCK NUMBER
IRESET CURRENT ADDRESS COUNT
IDON'T LET THE CA ADVANCE TO
IMUCH
IOATA HAS BEEN WRITTEN, NOW WRITE REVERSE
IBLOcK NUMBER. ~ORWARD BL~CK NUMBER. AND REVERSE
ICHECKSUM. (12 WORDS)

2051
2052
2053
2054
2055

6764
11<12
3534
1116
3512

WBN.

TAD
SNA
JMP
TAO
DCA
JMP

WC
CLA
WBN
AD7777
CA
CUB

DTXA

TAO

DCA
TAD
DCA

M14
WC
fORMA
CA

ICLEAR OUT DE9TAPE FLAG
IWILL WRITE 12 WORDS
IFOR THIS BIT
IFROM A FORM CONTAINING
IBLOCK NUMIiIERS

I"AIT FOR END
2056
2 35 7
206 0
2061
1

2162

2.Hi3
2;'64

423'1
1534
7640
5256
6764
521·~

22::1:'1

GGBN.

CE~N
JMS
TAD 1 WC
Si!A
CLA
, .. J
JMP
oTXA
JMP
NEXTBN
DBN

lEND i!ONE7
INO: SEE IF DONE THE WRITE
loONE YET 7
INO: PATIENCE IS A VIRTUE????
IRESET THE CURRENT FLAG
IYESI GO RECyCLE COMPLETLY

I FIRST 3 WORDS TO BE WRITTEN

22'65

22165

20~6

,,2i~0

2067
2070

I/J0U

\)<H10
0",,"

0077

ADFJ.
0fi'I0fi'I

IDATA TO BE WRITTEN ON TAPE (REVERSE)

22174
2075

2n3

2071
7777
7777
7777
7777

AD7777 • ,
7777
7777
7777
7777
ICHECK IF ALL DTAS ARE DONE BEFORE RESTARTING

22176
21377
2100
2101
211<'12

'1701
5702
5515
1703
1622

SEToTA. JMS I
JMP 1
JMP 1
GOH.
NUoTA
CONTNU. PS[R

2071
22172

GDTA
IALL OTAS DONE?
CONTNU INO: BACK TO WRITE BLOCK *S ON NEXT
IYES, GO ASK "DIRECT?"
IT
IPOINT'R TO SUBR FOR ~[TTING NEXT UNIT
IPOINTtR TO START O~ BLOCK * WRITt ROUTINE

PAGE U

IDEC-IiJI-EUfB

PDP-8 OECTAP[ fORMATTER PAL10/3 V141
2200

1!5-MAY-'0

-2201iJ

IVERIfy TME TAPE AS 8EING WRITTEN CORRlCT~y
IWITH DATA AND BLOCK NUMBERS, THE IN~ORMATION WRITTEN
IWAS WRITTEN IN SUCH A WAY AS TO BE CORRECT
IUPON READING IT BACK
ITURN TAPE AND HAVE IT GOING fORWARD

2200
2201
221iJ 2
2203
2204
2205
2206
220 7

lH0
3250

3114
3020

1047
"'27
1040
3032

DBN,

TAO
DCA
DCA
DCA
TAO
DBNAUX, JMS
TAD
DCA

ISi!V
vrsi!
'CON

C0 .. 00

TURN

PMASE

IRESET INCREMENT
IBLOCK NUMBERS fORWARD
IWILL BE !EROS fORWARD
I;IRST BLOCK NUMBtR fORWARD
ITURN TO GO fORWARD
IERROR IN PMASE 3
If OR ERROR ROUTINE

ISET SOME Of THE CONTROL REGS
2210
2211
2212

3534
1166

3512

DAB,

DCA
TAO
DCA

WC
AD8A
CA

IWORD COUNT DON'T CARE
ISOME WHERE uP ABOVE
ITO GET BL.OCK NUMBERS

IWAIT fOR INTERRUPT
2213
2214
221 5
2216
2217
222 0

4'33
1020
71iJ41
1566
7640
5312

JMS
TAD
CIA
TAD
aU

JMP

WAIT
W1
ADBA
CLA
BL.KERi!

II NTERRUPT

IfIRST OR NEXT BL.OCK NUMBER
ITO COHPARE
IGET THE BL.OCK NUMBER
ICOMPARE OK?
IBLOCK ERROR ~OUND

IBLOCK COMPARES, NOW CMECK DATA
2221
2222
2223
2224
2225

1152
6764
3534
1167
3512

2226
2227
2230
2231
2232
2233
2234
2235
2236

1534
7650
5237
1114
7041
157Pl
7 640
5342
3534

OT0030
TAD
ITO SWITCM INTO ~EAD
DTXA
IOATA HODE
DCA I WC
IDON'T CARE ABOUT THE WC
CTST ,
TAD
ADWA
If OR COMPARING
DCA I CA
If ROM TAPE
IEVERY TIME THE WORD COUNT MOVES
IA DATA TRANSfERE HAS BEEN COMPLETED,
IMAKE SURE THAT TME INfORMATioN is OK

TAD
WC
SNA
CLA
JMP
CEfR
TAD
PCON
CIA
TAD
ADWAB
Si!A
CL.A
JMP DTAR
DCA I WC

IG£T WORD COUNT
ISTIL.L. AT iERO?
IYES, SEE If AT ENO
INOI SEE If DATA
lIS SAME AS wRITTEN
IRECEIVED DATA
ISAMEl
IOATA ERROR pOUND
IYES; RESET wORD COUNT

U,1/l3

PAGE 3?

ID[C-IlII~[Ur8

2237
22040
2241

PDP-8 O[CT~P[ FORMATTER PALlm/3 \1141

6712

"10
~n61

UeMA'I' .. n

ICHECK rOR O~~TAPE FbAG INDICATING END 0'
IBL.OCK OR [FHiOR
CEFR,
DTRB
IREAO "8" REGIST£~
SPA
IE"ROR?
I'ARIR
IPARjTy ERROR. I GUES9
JMP
INO [FiROR, END or ~LOCK?

2242

'1V'iU

RAFt

224.)

i'~20

!lNt-

2244
2245
2246

'224
11'2

JMP
TM
[HXA

6764

eLA
CUT
DUI1l30

IFLAG TO T~[ LINK
lEND'
INOI CONTINUE CHECKING
ICLEAR OECTAP[ FLAG
lAND RETURN TO SEARCH

lEND OF BLOCK. SEE Ir [NO OF TAPE
2247
2250
2251
2252
2253
2254
2255
2256

1020

2020

., 4 10

visa.

7<402
711141

TAD
lSii

1[826

1+1

TAD

ilL.OCKS

I4Il1S0LUT[ PANIC
ITO BE COMPAR~D WITH
nOT AI. BLOCKS

JMP

DAB

SKP
HI.T
SilA

,210

IBL.OCK NUMIER JUST TESTED
OR -1 TO SLaCK COUNT

CIA

.,6040

III

ClLA

/LAST?

INO. 00 ANOTHER BI.OCK

tHERE PUT IN THE REVERSE C~ECK
2257

2260
2261
2262
2263
2264
2265
2266

6771
!H!57

7300

6772

0062
;650
5363
6766

DDSF.

DTS'
JMP
Ct.A
DHIS
AND

!iNA
"HlP

orel(

IWAIT faA ANY FLAG TO APPEAR
, .. 1

CLio
CUlIiH'I

CI.A
loNE

INOT YET

IRID

AC OF' GARBAGE
THE "B" REGISTER
IBETTER BE END ~ONE
IRr~D

lIS I a

ILAST INTtRRuPT NOT END iONE
IVUPI A OK

uin

PA~t:

IDEC-0S-EUfe

PDP-S DECTAPE FORMATTER PAL19/3 V141

1'·HAY·7111
IBLOCK NUMBERS AND DATA HAVE BEEN CH~CKED FORWARD
lAND ARE OK. USING THE ABOVE ROUTINE FOR CHECKING
IRESET A fEW THINGS AND CHECK IN REVERSE

Uln

IwAS COMPLETION FOUND F'ORWARD? If SO ~O CHECK
lIN REVERSE' IF' NOT GO SEE IF' ALL TAPES HAVE BEEN CHECKED.
2267
2270
2271

1114

TAD

164f:

Si!A

JMP

5711

FCON
CLA
rlNCHK

IIF 9'S. IT WAS rWD
IFWD?
INIII: REVERSE.SEE IF ALL DTAS DONE

IRESET THE ABOVE ROUTINE TO READ IN REVERSE
2272
2273
2274
2275
2276
2277
23'!10

CMA
DCA
TAD
DCA
TAO
DCA
JMP

10421

3114
1301
3250
1026
3(>2;'
5205

rCON
SJMP
VISl
BLOCKS
Wi
DBNAUX

IDATA WILL BE AS WRITTEN
II.E,. 7177'S
IINSTEAD OF INCREMENTING
IWE WILL DECREMENT B~OCK NUMBERS
ISTARTING WITH THE HIGHEST
IANO WILL WORK TO lERO
IALL SET, TRAVEL ONWARD

IRETURN HERE AFTER EACH BLOCK fOR CHECKING WHEN LAST BLOCK
IYAS BEN PROCESSED????????????
2331

53~2

23r?2

145;'
5257

23;03

230 4
2305

'''41
7'114.

230 7

302'
521 '

2310

V2'

2311

2076

23~6

SJMP,

,.1

JMP
SNA
JMP

DDSF

CM4
DCA
JMP

Wi
DAB

CIA

ISi!V,
ISl
W1
f INCHK, SETDU

IIF" AC • III. WE ARE DONE
lAND NEXT FLAG SHOULD BE END lONE
IOTHERWISE, SUBTRACT ONE fROM
IBLOCKS GIVING BLOCKS~1, •••• ,?
I~OT DONE
IGO 00 ANOTHER BLOCK
IVARIABLE TAG

FlACE 39

pDP-8 DECTAPE fORMATTER pAL10/3 V141

IDEC-flJB-EUfB

1!1M!04AY·7111

IBLOCK ERROR fOUND
2312
2313
2314
2315
231 1;
2317
2320
2321
2322
2323
232 4
2325
2326
2327
2330

103~

6766
1566
453~

4331
102J
453"
4531
4Cif02
1413
4 £IfIJ 5
2243
45fHi

5730
0725

BLKERl. TAD
OU
DTCX
TAD I ADBA
JH5 I TYOCT
TYSB
JMS
TAD
1011
JMS
TYOCT
JMS I TYPE
41il1ll2 I B
1413 ILK
401115 I E
2243 IR CR
450111 ILf·E~D
DBER;!, JMP I ,·1
i!eOH

/TO RESET TApE
IMOTION
IGET BAD BLOCK NUMBER
lAND TYPE IT OUT
ITYPE "SHOULD BE"
IGOOD BLOCK NUMBER
/TYPE IT OUT

ICOHMON ROUTINE
2331
2332
2333
2334
2335
233~

2337
234el
2341

(. ~10.:

TYSA,

4531
4023
1(,17
2514
Ij4 4':.;2<i5
4fJ0:
5731

0
JMS I TYPE
4023 I S
1017 {HO
2514 IUL
111440 10
02215 IBE
4111111111 I fIJ
JMP I TYSB

liJATA ERROR
2342
2343
2344
2345
2346
2347
2350
2351
2352
2353
2354
2355
2356
235 7

1230
6766
1567
453,
4331
1114
453:'
4531
42104

236 1

;327

~124

014<'

<1522
,,543
r,C.F

O'A~,

OTA
TAO
OTex
TAO I ADWA
JMS I HOCT
JM5 TYSB
PCON
TAO
JM5
TYOCT
JMS I TYPE
411104 10
0124 I .. T
014111 n,
111522 fER
4543 ICR·Lf
IIIIIII!II/J lEND
OBERi!
JMP

ITO STOP TAPE
1;.10TION

IGET THE BAD WORD

ITYPE "SHOULD BE"
{GOOD WORD
/TYPE I TOUT

1611113

PAGE 4121

IDEC~01l"[Ur8

PDP-8 DEC TAPE ;ORMATiER PAL10/3 V141

l!'1~MAV~"1iJ

IPAR[Ty ERROR rOUND
2361
2362

5762

PARIR.

0~"'2

JMP I ,"'l.
ERROR

IMAIN ERROR ROUTINE

ILAST INTERRUPT WAS NOT END ~ONE
2363
2364
2365
2366
2367
23;0
2371

2372

23,3
2374
23f5
2376

4531
1<>101

2324

I..NE,

JMS I 'i'VPE
14"1 /LA
2324 In

4011

4h:l.

1624

I !

:1.624
4(816
1724

t N

4016

1724
4005
1724
4345

tNT

lOT

4011)5
1724
4345

I E

011".10

1iJ1iJ1il0

:5327

JMP

lEND
DBER!!

IOi

/i.F''''CR

16103

PAGE 'H

IDEC-01-[UFB

PDP-6 DECTAPE fORMATTER PAL10/3 V141

1'·MA't'~"1/I

16103

G241iHiI

2400

/ TypE OUT THE DTA UNIT NUMBER AND THE fIRST 12 BLOCK
INUMBERS IN EITHER DIRECTION, If RDR. IN REVERSE
/If RDf, TYPE THEM OUT GOING IN THE fORWARD
IDIRECTION fROM THE BEGINING Of TAPE
2400

1111'17

2401

3251

24,,2

1251

2403

<1527

2404

241115
2406
2407
2410
2411
2412
2413
2414
2415

2416
2417
242121

RDF'A.

TAD

Cftl41111iJ

DCA
TAD
JMS

SAVEIi
SAVEIT
TURN
M:l.4

TAD

1102
3022

DCA
TAD
DCA
TAD
DCA
JMS
TAO
DCA

111121

3011

111117

3512
4533

ili121
3411

2022
5212
1030

1':'
WAIT

lSi!

)(2
1'13

JMP
TAD

PiA

Qrex

6766

"13

BADD
X2
ADw3

.~4

IDIRECTION FOR TURNING
ISTORE DIRECTION fOR NEXT OTA UNIT
IGET DIRECTiON rOR TURNING
IAROUND
IREAD 12 BLOCK
ICOUNTER
IADDRESS Of BUffER
ITO AUTO INDEX 2
IADDRESS Or w2
IrOR DATA )(F'ER
If OR BLOCK INTERRUPT
IBLOcK NUMBER
ISTORE BLOCK NUMBER
!TOTAL Il 121
INO: GR~8 NEXT
IKILL TAPE MOTION
IHERE

ITYPE OUT BLOCK NUMBERS AND OTA UNIT
2421
2422
2423
2424
2425
2426
2427
2430
2431
2432
2433
2434

2435
2436
2437
244,)
2441

2442
2443
2444
2445
2446

4531

JMS I

0'124
f/ll~0

0424
11114111

~2H10

1!l011l11l

Hl3Q!

TAD
JMS I

453'21

4531
4345
011100
1102
3f:l201

k'JilIl1Il1J

TAD
DCA
TAD
DCA
TAO
JMS

1110
3011
1411

4530
4531
4345

lEND

Ml'l
Wi,

iHOD
)(2
)(2

HOCT
I TVPE
4345 ICR-Lf

J~1S

~00!~

1Zl1IJ1IJ1Zl

2020

lSi!
JMf'
JMS
JMP
JMP
JMP

5236

RDR.

2451

0000

SAVEll, III

2452

1703

NEWDTA, NUDTA

!T'!'PE "OTA"

lEND
DTA
nOCT
TYPE
ICR&Lf

Jt1S I
4345

4652
52f:l2
5515
52f:ll

2447
245121

TYPE
lOT

10/1
,~6

NEWDU
RDFA-2

RcrA+l

IGn UN IT 1/
TYPE Ii OUT

I AND

/WILL TYPE ALL
/TWELVE WORDS
IADDRESS Or BLOCK
INUMBERS TO INDEX 2
IFIRsr OR NEXT BLOCK
/TYPE IT OUT
ICR AND LINE FEED
ICOMPLETE?
INO
IYESI AN'!' MORE DTAS?
IYESI GO GET BLOCK -$
INO: GO ASK FOR "DIRECT?"
IOTHER DIRECTION

ITEM, STORAGE rDR DIRECTION
IPOINTER TO SUBR, TO GET ~ NEW DTA UNIT

PAGE 42

IDEC-\:l8-EUFEl

PDP-8 DECTAPE fORMATTER PAL1~/3 V141

l,5 .. MAY-70

IINPUT BUFFER fOR THE TELETYPE,
I~OTE """,THIS MUST BE AT THE END Of THE PROGRAM
2453

00<1,:1

BUFFER, 00r1H!l
$

3,6103

PAGE 43

PDP-8 OECTAPE 'OR MATTER PAL11/3 Yl~l

IOEC-il-[UF'B
V2

y3
y4
yALCHK
yARl
i/AR2
Y ISi!
W1

0'34
0540
050\1

1023
0034

ilQJ!5

225""
11102"

11111121

1!JI/J22
0fJ23

}/4

ii24
l/Je25

W~IT

0U3

WBN
WC
wDi!
WEiF'
WLHR1
Xl

211151
0134

0011

!COM
i!EOT
IF'ORM
I'MKTK
IPAR
iSEL
iTIM

1~35

l'lil1
1526
III 1111 fIJ
21725
0661
-0757
0674

0704
0712
0720

ERRoRS DETECTED. "
LINKS GENERATED.
RUN-TIME:

16 SECONDS

2K CORE USEO

l'-HAY-71il

16113

PAGE 43~2

IDEC~08-E:UF8

AD7777
ADBA
ADF3
ADW2
ADW3
ADWA
ADWAB
BADD
BFR
BINCoN
BLKERii!
BLOCkA
BLOCKS
BUFFER
C,"007
C 017
c 030
C 1070
C 'cn
C 43;)
C 72'll
C' 777
Cl
C100~

C:1.1i1
C162J
c2
C2lii1
C203
c21'
c2L'
C215

PDP-8 DECTAFE rORMATTER pAL10/3 V141
2071
U66
2065
0106
0107
<;167
017<i
011;)
0111
10171
2312
10027
0e'26
24!;3

0045
0Z42

0(;146
0[J43
.:'? 4 4
,:647
005'"'

.:6J2
c Ci 36
v·?62
1'74
Z:'63

<,137
.;"52
" "?1

~·?53

'J253
r2:l4

001

L2,5
CJ54
uJ55

C267

';~56

c245
C26?
c27:l
c2 7 <

0(' 57

C277

;] 9 6~)
Ii~' 61

L' ,14,"

C34'

C2:;2

f' ': 41

C60t;;

(;375

C7 ~;:' <'

i' -'04
,-,65
:' -166

C77;[.

C7714
el761

c7772

." b 7
l.- 7

C7775
CA

,,: 0'71

CDTC;O
cEFD

13;'7

>112

2237

CERR
eEl!!
CEi!B
CEi!N
eli!
COMCHK
COMCTR
COMPAR
COMPRE
CONC
CONTNU
CRCHK
CRCOD
CRFLAG
CTST
DAB
OBERt
D8N
DBNAUX
DBUfAD
D8UFPT
DCTR
DO SF"
D!V3
DNC
ONUM
D08LK
DOCOMP
OOMARK
OT0030
DT0i1J60
OT01'l70
DT0100
DTIil13il1
DT0140
DTii1200
DT0210
DH1360
DT~5:1,0

OT0600
OHl6Hl
DTA
DTA8UF
DTAR
DrCA
DTCX
OILS
OTRA
DTRB
DTRK
DTSf
OTXA

0330
1407
2042
20J4
1371
1156
l.173
0113
0310
0543
2102
1U5
0072
1146
2224
22U
2327
220 iii
2205
1176
1175
1174
2257
1244
1203
1177
2i11~il

1164

1702
0152
0153
111154
kl155
0156
0151
>Jib0

IH61
0162
0163
<lU,,,

0165
0030
1725
2342
6762

6766
6774

6761
6772
1447
6771
6764

Ol
ERROR
ERX
Eii!M
FUBAK
F1I/lPH
fURTN
fBM
F"CON
FEi!
F"l NCHK
FORM
F"D~M1"

fORMA
FORMB
CDIlLK
GDBN
GDrA
CETOTA
(iRa
IBS
IBi!
INBLSY
I NIT
I NI T1
XSi!V
IT
LETK
l.FCOO
LNE
l.STEND
LSTPT
M14
M144
M2
M3
M3~0

M4
MAl"
1'16
M6l,7
1'17
MARK
MES
t1ESACE
MESS
MIN I
MSRGHT
MTP
MWAIT
MWTM
NE..JDrA

l'·MAY~'10

16;03

pAGE 43 .. 1

1'35
0642
"" :51
1"4
15'12
1560
1306
1'22
0114
15>41
2311
0'2'1
1315
IlIU6
0111
11 rII1
211164
2101
114'
1,,1Il
1242
1516
1424
1061
lf1l55
231"
Ii! 115
0"73
0074
2363
1 '1l. 6
1124
0102
ilJ1i113

NE)(TBN
NTyRTN
NUQU
OI<CR

2i/JUl
0263
1703
1 III 44
23U
0773
UJ2
1622
04110
04U
,,,.. 22

0~75

ill' 76

"104

0077
025:1,
"100
15'3
011111
12~fIl

0454
0200
0124
0633
~2l,7

0244
0125
1600
2452

"."IR
PF'ORM
PHASE
PS[R
Ql
Q2

QJ
Q4
QU

,,434

QUi

"120

QU2
QU3
QU4
QUJ(
RCVBR
ROrA
RDR
RE:PEAT
RERR
REi!
RSEND
RSTSM
RSYC
S.VE IT
SErDTA
SJMP
SPCOD
STAll.
START
STMK
STRTPT
ST)(
TBUF"PT
TFORM
TOTAL
TRN
TURN
TW1
rvCT
TYCn
HOCT
TYPE
TYPECH
TVP I N
TVI'N
TYQU
HSB
Vl

U43

"121
0122
0123
0447
1647
2411l1ll

24'1Il

11"7

0610
1512
01,35
13'3
i11566
2451
2kl76
2301
I'lU5
1'l611l0
H'12I0
141210
1722
1111.26
1723
0737
~033

0613
0127
0374
il334
~J67

0130

"131
111220
0132
02"6
1003
2331
0533

Title

AII,~
8'

ITech Tip
Number TCOI-TT-4

PROBLEM WITH TCOI-TUSS DECTAPE FORMATTER
Processor Applicability
Author K. Wunderlich

I I I I 1 I

Approval

\-I"',.. ....'"

Rev

Date 2/6/74

Cross Reference

TUSS-TT-1

The program TeOl-TUSS Dectape Formatter, DEC-OS-EUFB will write
the
correct mark track and timing track on the dectapes first
specified by the user.
However. following the statement "set
switch to normal~' and after the user resets the switch and types
carriage return, the first dectape speci.fied will go in reverse
for some time and then switch to the forward direction writing
the last reverse block number.
At this point in time due to the
current address not getting reset by the program after ~riting
the Forward End Zone during the write timing and mark track pass
location 1557 gets modified from ~fl411 to 04411.
Location 1557
contains parts of the code for writing the Forward End Zone, therefore. any new dectapes puts on the drives after this will not have
the correct forward end zone written on the mark track.
The error can be detected by the TDS-E Diagnostic, (Maindec-08-DHTDA)
routine for checking the mark track and the routine to search and
find all block numbers.
To avoid this the following change can be made:
Locat ion

Old

New

1161
4360
1633
0000
1760
1166
1761
3512
1762
1161
1763
5760
1764
DEC·OS-EUFS has been corrected and resubmitted to the Program Library
as DEC-08-UDTFA-A.

Page 102