Digital PDFs

DIGITAL-7-40-U

December 1964

13 pages

Original

0.2MB

Document:	MasterTapeDuplicator
Order Number:	DIGITAL-7-40-U
Revision:
Pages:	13
Original Filename:	http://bitsavers.org/pdf/dec/pdp7/DIGITAL-7-40-U_MasterTapeDuplicator_Dec64.pdf

OCR Text

1•

IDENTIFICATION

1• 1

Dig i to 1-7-40-U

1.2

Master Tape Dupl icator

1 .3

December 11, 1964

PDP

LIBRARY

DiS ita 1-7-40... U
Page 2

ABSTRACT

This program will make master tapes punched with a character count and checksum. The program will also verify a tope dupl icoted from the master tape. The master tape
dupl icator may also be used to dupl icate a master tape or any tape.

USAGE
1. To make a master tape

Read in the duplicator. Put up AC • (All other switches = 0.) Place the tape
O
from which the master is to be made in the reader. Press CONTI NUE. When the computer
halts after punching tape feed, type a title consisting of letters, numbers, and dashes on the
teleprinter. * Follow th is with a carriage return and line feed. When the punch stops, th~
new master is complete. A halt in 231 indicates that the checksum computed while reading
does not match the one accumulated while punching.
2. To verify a tape dupl icated from the mQster
Place the dupl icated tape in the reader wrong end first. Make sure that all the
AC switches are down. Press CONTI NUE. If the tape is correct, the program will type OK.
If the tope has an incorrect character count, the program will type ERROR and halt in 630 with
AC=O. If the checksum is incorrect, the program will type ERROR and holt in the some place.
The AC contains the difference between the checksum on the tape and the accumulated checksum. Pressing continue after such a halt will restart the program at 200.
3. To dupl icate a master tape or any tape
Place the tape to be dupl icated in the reader.
0.) Press CONTINUE.

Put up AC • (All other switches =
1

DESCRIPTION

A master tape consists of a typed-in title punched in readable format with the
seventh hole punched, a duplicate of the original tape, and a check block consisting of two
binary words with the seventh hole punched. In order of punching the two words are the complement of the count of all the characters on the tape starting with the first character read
and the checksum of all the characters.
The verify routine reads the master tape backward starting with the check block
and compares this checksum and character count to the one accumulated while reading the
tape. Neither the title punch nor leading tape feed are included in this count. Every tape
dupl icated from a master is a master as it has the checksum and character count on it.
*True for KSR28 or KSR33.

PDP

LIBRARY

Di 9 ita 1-7.. 40-U
Page 3

FORMAT
Tape format: FIODEC, ASCII symbolic; FB.
Starting Address: location 200 (octal).

EXECUTION TIME

9.4

Timing

The program is I/O bound (will punch at the rate of 63.3 characters per sec.ond
on the high-speed punch).
10.

PROGRAM

10.4

Program Listi ng
MASTER TAPE DUPLICATOR PDP-7
/DUPLICATE
1/
JMP SERVIS
21/
HLT
SERVIS,
DAC AC
RSF
JMP .+2
JMP READER
PSF
JMP OUT
JMP PUNCHO
OUT,
KRB
LAC 0
RAL

READER,

LAC AC
ION
JMP I 0
RRB
XX
AND

READ,

/JMP TAPE OR NOP

(377

DAC TEMP
ADD TEST
DAC TEST
LAC TEMP
DAC I 10
RSA
LAC 10
SAD (ENDBUF
L.AC (BUF
DAC 10

PDP

LIBRARY

Dig ita 1-7-40- U
Page 4
CMA

TAPE,

PUNCHO,

ADD 11
SPA
ADD (ENDBUF-BUF
ADD (-10
SMA
JMP OUT
LAC (Nap
DAC READ
JMP OUT
SNA
JMP READ
DAC TEM
L.AC (Nap
DAC READER+1
LAC TEM
JMP READER+2
LAC I 11
PLS
ISZ COUNT
AND (377

PUNCHIl,
DONE,
DONE 1 ,

ADD CHKSUM
DAC CHKSUM
LAC 11
SAD (ENDBUF
LAC (BUF
DAC 11
CMA
ADD 10
SAD (1
JMP DONE
SPA
ADD (ENDBUF-BUF
ADD (-10
SMA
JMP OUT
LAC PUNCH 1
SAD READ
JMP OUT
DAC READ
RSA
JMP OUT
LAM -100
DAC TE..,M
ISZ C"OUNT
PSF
JMP .-1

PDP

LIBRARY

6igital-7-40-U
Page 5
PLS+IO
ISZ T~EM
JMP DONE1
RRB
LAC I 11
CMA
ADD TEST
DAC TEST
JMP 1 BEG
BEG,

FEED1,

CLEAR,

LAC (BUF
DAC 10
DAC 11
LAC (JMP TAPE
DAC READER+1
LAM -100
DAC TEM
DZM I 10
ISZ TEM
JMP .-2
CRRB
CPCF
LSCF·
LPCF
CLOF
KRB
TCF
DCF
MCI
MSI
LAC .+2
DAC READ
RSA
PLS+10
ION
JMP .

/MASTER TAPE DUPLICATOR
/MAIN LOOP
200/MAIN,
HLTVCLA
CLL
DZM C-+OUNT
DZM CHK..,SUM
DZM T+EST
LAS
SPA
STL
SZA
PDP

LIBRARY

Digital-'7-40-U
Page 6

MAIN1,

ROTBEG,

JMP .+3
JMS VERIFY
JMP MAIN
SZL
JMS TITLE
JMS BEG
LAS
SPAVCLL
STL
SNL
JMP MAIN
LAC TEST
CMA
ADD CHKSUM
SAD (-0
JMP .+2
HLT
LAM -100
JMS FEED
LAC COUNT
CMA
DAC COUNT
'LAM -1
DAC CHE-lCK
LAM -2
DAC FINCN~T
LAC COUNT
DAC TEMP
AND (77

XOR (300
PSF
JMP .-1
PLS
LAC TEMP
RTR
RTR
ISZ FINCNT
JMP ROT BEG
LAC CHKSUM
DAC COUNT
ISZ CHECK
JMP'ROTBEG-3
PSF
JMP .-1
LAM -500
JMS FEED
JMP MAIN,

RTR

PDP

'7
LIBRARY

/MASTER TAPE DUPLICATOR
/TITLE PUNCH
o
TITLE,
LAM -400
JMS FEED
DZM FIGA DD
KSF
JMP ,-I
KRB
703301
SKP
JMS TITLEA
DAC TEMP
SAD (2
JMP TITLE+3
SAD (10
JMP 1 TITLE
SAD (37
JMP TITLE+3
SAD (33
JMP FIG
LAC FIGADD
SZA
JMP FIG+3
LAC TEMP
CODEAD,
RCL
ADD (LAC TABLE-2
ADD FIGADD
DAC CODE
JMS PUNCHR
JMP TITLE+4
PUNCHR,
o

Dig ita 1-7-40-U
Page 7

LAM-1

DAC CNT
XCT CODE
DAC. TEMP
LAM -2

LEFT

DAC CNTPU N
LAC TEMP
RTL
RTL
RTL
DAC TEMP
RAL
JMS PUNLET
ISZ CNTPUN
JMP LEFT
ISZ C NT
JMP .+2
JMP I PUNCHR
ISZ CODE
JMP LEFT-4
PDP

LIBRARY

PUNLET,

Digital-7-40-U
Page 8

a
AND
ADD
PSF
JMP
PLS
JMP

(77
(100
.-1
I PUNLET

/MASTER TAPE DUPLICATOR
/TELETYPE CONVERSION FOR FIGURES
LAC (76
FIG,
DAC FIGADD
. JMP TITLE+4
LAC TEMP
SAD (1
LAC (5
SAD (3
LAC (11
SAD (4
LAC (13
SAD (15
CLA
SAD (35 .
LAC (1
SAD (31
LAC (2
SAD (20
LAC (3
SAD (12
LAC (4
SAD (25
LAC (6
SAD (34
LAC (7
SAD (14
LAC (10
SAD (30
LAC (12
JMP CODEAD
TITLEA,
0
DAC ITEM*A
SAD (240
JMP ATBU
TAD (-237
SPA
JMP ATBL
TAD (-77
SMA

/0
/1
/2

/3
/4
/6
/7

PDP

LIBRARY

Digital-7-40-U ' .
Page 9
JMP TITLE 4
TAD (400100
RCR
ADD (ATB
DAC . 1
XX

SNL

/ODD CODES IN RIGHT HALF, EVEN CODES IN
/LEFT HALF
JMS TITLEC
DAC ITEMA

TITLED,
RAR

DAC ITEM.. B
LAC FIGADD
SZA
JMP XCH1
SZL
LAC (76
DAC FIGADD
LAC ITEMB
AND (37
JMP I TITLEA
SNL
DZM FIGADD
JMP ATBY
LAC ITEMA
SAD (211
JMP ATBTAB
SAD (212
LAC (400010
SAD (215
LAC (400002
SMA
JMP TITLE 4
AND (37
JMP I TITLEA
LAC (51
JMP TITLED
LAC (4
JMP I TITLEA

ATBY,
XCH1,
ATBL,

ATBTAB,
ATBU,
TITLEC,

0
RTR
RTR
RTR

RTR
RAR

JMP I TITLEC

PDP

LIBRARY

Dig i ta 1-7-40-U
Page 10

AlB,

55
43013
45000
27065
75023
13027
15061
17057
33073
63041
25003
53071
31007
35037

/BAUDOT CODES IN 9 BIT BYTES
/LEAST SIX CONCISE

o
47
60
46034
44040
54026
12030
64074
22016
14006
32072
24050
2070
36062
56052
42000

55000

/MASTER TAPE DUPLICATOR
/TABLE FOR TITLE PUNCH
010177
TABLE,

010100

364141

413600

771010
770214
770214

107700
207700
027700

774040
771111
364151

404000
314600
513000

Digital-7...40-U

Page 11

004177
771111
364141
073060
774545
615141
774141
774545
224545
010274
770505
412214
761111
376014
204040

410000
110600
412200
300700
414100
454300
413600
453200
453000
020100
010100
224100
117600
603700
403700

374040
364151
771014
364141
004277
625151
224145
141211
274545
364545
010171
324545
065151
101010

403700
215600
224100
413600
400000
514600
453200
771000
453100
453000
050300
453200
513600
101000

FEED,
FEEl,

o
o

DAC CNT
PLS+10
PSF
JMP .-1
PLS+10
ISZ CNT
JMP FEEl
JMP I FEED

1~71

iL~

Dig i ta 1-7-40- U
Page 12
/MASTER TAPE DUPLICATOR
/VERIFY
VERIFY,
0
DZM~ERROR

VERI,

VER2,

OK,
ERROUT,

/INITIALIZE NEW CHECKSUM
DZM NEWCHK
RSB
RSF
JMP .-1
RRB
/GET MASTER CHECKSUM
DAC CKSUM
RSB
RSF
JMP .-1
RRB
ADD (1
/ISZ GOES THROUGH -0
DAC CHARCT~
/GET MASTER CHARCNT
RSA
RSF
JMP .-1
RRB
RSA
ADD NEWCHK
DAC NEWCB"K
/ACCUMULATE NEW CHECKSUM
ISZ CHARCT
/ACCUMULATE NEW CHARCNT
JMP VER2
RSF
JMP .-1
RRB
SZA
JMP ERROUT
LAC NEWCHK
CMA
ADD CKSUM
SAD (-0
JMP OK
DAC ERROR
JMP ERROUT
LAW A-I
JMS ERRI
JMP MAIN
LAW B-1
JMS ERRI
LAC ERROR
HLT
JMP MAIN

·PDP

LIBRARY

',_. ~---~-~

Dig ita 1-7-40- U
Page 13

/MASTER TAPE DUPLICATOR
/TYPE ROUTINEi
0
ERR1,
DAC 17
LAC I 17
ERRO,
SNA
JMP I ERR1
703301
SKP
JMS RR6
TLS
TSF
JMP .-1
JMP ERRO
20037
A,
31703
31336
21502
21502
21210
0
B,
20037
30520
32212
32212
31703
32212
21502
21502
21210
0
.0
RR6,
RTR
RTR
RTR
JMP I RR6
BUF,
BUF 6000/
ENDBUF,
0
START MAIN

pDP I

i LIBRARY
I

J
1