Digital PDFs

DIGITAL-7-40-U

December 1964

13 pages

Original

0.3MB

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

OCR Text

1•

IDENTIFICATION

1• 1

Digital-7-40-U

1.2

Master Tape Dupl icator

1.3

December 11, 1964

PDP

LIBRARY

Digital-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 tape dupl icated 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 dupl icator. Put up AC • (All other switches = 0.) Place the tape
from which the master is to be made in the reader~ Press CONTINUE. When the computer
halts after punching tape feed, type a title consisting of letters, numbers, and dashes on the
teleprinter. * Follow this with a carriage return and I ine 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 master
Place the dupl icated tape in the reader wrong end first. Make sure that a II the
AC switches are down. Press CONTINUE. If the tape is correct, the program will type OK.
If the tape has an incorrect character count, the program will type ERROR and hal t in 630 with
AC=O. If the checksum is incorrect, the program will type ERROR and halt in the same place.
The AC contains the difference between the checksum on the tape and the accumulated checksum= Pressing continue after such a haltwill 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. Put up AC 1. (All other switches =
0.) Press CONTINUE.

DESCRIPTION

A master tape consists of a typed-in title punched in readable format with the
seventh hole punched, a dupl icate 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.

PDF

oi 9 i to 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).

10c

PROGRAM

10.4

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

LAC AC
ION
JMP I 0
READER,

READ,

RRB
XX
AND

/JMP TAPE OR NOP
(377

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

PDP

LiBRARY

Dig i ta 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
LAC (Nap
DAC READER+1
LAC TEM
JMP READER+2
LAC I 11
PLS
ISZ COUNT
AND (377

PUNCHI1,
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-tOUNT
PSF
JMP .-1

PDF

_IBRARY

O'igital-7-40-U
Page 5

PLS+10
ISZ T~EM
JMP DONE1
RRB
LAC I 11
CMA
ADD TEST
DAC TEST
JMP 1 BEG
BEG,

FEEDl,

CLEAR,

LAC (BUF
DAC 10
DAC 11
LAC (JMP TAPE
DAC READER+l
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+I0
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

LI BRARY

Dig ita 1-7-40- U
Page 6

MAINl,

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

LIBRARY

/MASTER TAPE DUPLICATOR
/TITLE PUNCH
0
TITLE,
LAM -400
JMS FEED
DZM FIGA DD
KSF
JMP .-1
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
RCL
CODEAD,
ADD (LAC TABLE-2
ADD FIGADD
DAC CODE
JMS PUNCHR
JMP TITLE+4
PUNCHR,
a
LAM-l
DAC CNT
XCT CODE
DAC. TEMP
LAM -2
DAC CNTPU N
LEFT
LAC TEMP
RTL
RTL
RTL
DAC TEMP

Dig ita 1-7-40- U
Page 7

RAL

JMS PUNLET
ISZ CNTPUN
JMP LEFT
ISZ C NT
JMP .+2
JMP I PUNCHR
ISZ CODE
JMP LEFT-4

--- ---_._----_... _----

PD:;::

r /'
L 2, R

~.~

-.--------

OJ 9 i ta 1-7-40-U
PUNLET,

Page 8

o
AND
ADD
PSF
JMP
PLS
JMP

(77
(100
.-1
I PUNLET

/MASTER TAPE DUPLICATOR
/TELETYPE CONVERSION FOR FIGURES
FIG,
LAC {76
DAC FIGADD
. JMP TITLE+4
LAC TEMP
SAD (1
LAC (5
SAD (3
LAC (11
SAD (4
LAC (13
SAD (15
/0
CLA
SAD ( 35
/1
LAC (1
SAD (31
/2
LAC (2
SAD (20
/3
LAC (3
SAD (12
/4
LAC (4
SAD (25
/6
LAC (6
SAD (34
/7
LAC {7
SAD (14
/8
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

PDP

LiBRARY

DiS i to 1-7-40- U
Page 9
JMP TITLE 4
TAD {400100
RCR
ADD {ATB
DAC . 1
XX

SNL

IODD CODES IN RIGHT HALF, EVEN CODES IN
ILEFT HALF
JMS TITLEC
DAC ITEMA

TITLED,
RAR

DAC ITEM.19B
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

L cRARY

OJ 9 i ta 1-7-40-U
Page 10
AlB,

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

/BAUDOT CODES IN 9 BIT BYTES
/LEAST SIX CONCISE

35037

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

55000

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

010100

364141

413600

771010
770214
770214

107700
207700
027700

774040
771111
364151

404000
314600
513000

PDP

LiBRp.R'v

Digital-7-40-U
Page 11

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

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

FEED,
FEEl,

o
o

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

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

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

PDP

LIBRARY

Dig ita 1-7-40- U
Page 12
/MASTER TAPE DUPLICATOR
/VERIFY
VERIFY,
o
DZM...,ERROR
DZM NEWCHK
/INITIALIZE NEW CHECKSUM
RSB
RSF
JMP .-1
RRB
DAC CKSUM
/GET MASTER CHECKSUM
RSB
VERI,
RSF
JMp· .-1
RRB
ADD (1
/ISZ GOES THROUGH -0
DAC CHARCT~
/GET MASTER CHARCNT
RSA
VER2,
RSF
JMP .-1
RRB
RSA
ADD NEWCHK
DAC NEWCE"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
OK,
LAW A-I
JMS ERRI
JMP MAIN
ERROUT,
LAW B-1
JMS ERRI
LAC ERROR
HLT
JMP MAIN

Dig ita 1-7-40-U
Page 13

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