Digital PDFs

DIGITAL-7-20-IO-FB

2000

56 pages

Original

1.4MB

Document:	DECTOG
Order Number:	DIGITAL-7-20-IO-FB
Revision:
Pages:	56
Original Filename:	http://bitsavers.org/pdf/dec/pdp7/DIGITAL-7-20-IO-FB_DECTOG.pdf

OCR Text

PDP-7 PROGRAM LIBRARY

1•

IDENTIFICATION

1.1

Digital-7-20-IO-FB PDP-7 DECTOG

1.2

Leonard M. Hantman

1.3

2-2-65

FDF

LIBRARY

Dig ita 1-7 -20-10
Page 2

ABSTRACT

2. 1

Purpose

To allow the user to perform various functions using DECtape and the toggle
switches of a PDP-7 computer. The programs are designed to detect any errors in the DECtape
Control. Separate binary tapes are available for either control 1 or for a second control.
Genera I Description
The user simply sets the accumulator switches as required and starts the computer
at the correct starting address for the particular program. The appropriate messages wi II be
typed when the function is completed or when any error occurs. A brief description of each
subroutine is given in the following paragraphs; however, a Iist of the current subroutines and
the ir starting addresses follows:
Starting
Address

Mnemonic

Function

100

TSTMM

Writes, reads, and compares up to 2000 words written
8
from 3600.

101

WRMKTR

Writes mark track and block mark numbers for unmod ified
controls with serial numbers 1- through 5.

102

WRYIRG

Writes virgin tape in the forward direction.

103

SUMF

Sum checks tape forward.

104

SUMR

Sum checks tape in reverse.

105

MMGEN

Generates 2000 words of desired pattern beginning at
8
3600.

106

MMGENA

Generat.es 2000 words beginning at 3600 in arithmetic
8
progress IOn •

107

MMWRT

110

MMREAD

111

WRYIRR

Writes up to 2000 words from 3600.
8
Reads up to 2000 words into core beg inn i ng at 5600.
8
Writes virgin tape in reverse direction.

112

EXER

Exercises requested tapes by writing a virgin tape pattern and sum checking in both directions continuousl y.

113

MMGENR

Generates 2000 random numbers beginning at 3600.
8

114

ROCKER

Moves tape in both directions for constant time in
variabl e modes.

FDF

LIBRARY

Digital-7-20-IO
Page 3
Starting
Address

Mnemonic

115

BLROCK

Reads tape in both directions beginning at designated
block number for constant number of blocks.

116

RWMKTR

Revised mark track writer for PDP-compatible DECtapes
(550 Control serial number 6 and higher). Used prior
to WRNVT below.

117

WRNVT

Second pass virgin tape program for revised mark track
writer. (To be used for RWMKTR above, only.)

120

STAP

Stop ad justment program. Provides suitable running
and stopping delays for correct adjustment of DECtape
delays.

121

RBMN

Reads block numbers from requested tape into successive
locations, beginning at 3600.

122

SPEXER

Spec ia I exerc iser. Operates as does the norma I exerc iser
(see k) except that a predescribed pattern is written in
place of the virg in tape pattern.

REQUIREMENTS

3.3

Equipment

Function

Paper Tape Reader, Teleprinter, DECtapes

USAGE

4.5

Errors

1} All error messages except the compare error from the TS TMM program have
the following format:
ERR XXX ZZZ (Y)*
where ERR is the code for the error, XXX is the block mark number of the block invol ved and
ZZZ is the nine bits of the report of the DECtape status using the MMRS instruction. The bits
can be interpreted as follows:

*If an error occurs in the exerciser, Y will indicate the offending unit number (in octal).

!PDP

LIBRARY

Dig i ta 1-7 - 20-10
Page 4
Bit 0 = Dato flag up
1 = Block flag up
2 = Error flag up
3 = End of tape
4 = Tim i ng error
5 = Reverse

6 = Go
7 = Mark track error
8 = Unable
Error Codes are as follows:
FMT

= Format Error.

NTF

= Not found.

ERS

= Error flag for other than end of tape, during search.

ERR

= Error flag during reading.

SUM

= Sum check error.

ERW =

Check ACS (block number will indicate block requested).

Error flag during writing.

BMW = Block mark read does not correspond to block mark predicted during writing.
BMC =

Block mark read does not correspond to block mark predicted during sum checking.

INT

Program interrupt occurred from other than error or data flags of DECtape unit.

FLC

= The block end flag occurred before or after 400 data flags had been found. Can
occur only during writing virgin tape. * Register MMWA2 contains the count of the
number of flags read; i. e., 400400 or 377377 etc.

NFL =

No flags.

BUF

Contents of DECtape buffer were wrong after issuing MMWR command and checking
by MMRD. Occurs during writing virgin tape only.

Program has stopped receiving program interrupts from DECtape unit.

NWR = Actual check sums do not agree with predicted check sums using exerciser, indicating
that probably nothing was written. In the exerciser, unit 10 (octal) will always
appear with this message. Can also occur if for any reason the first block in a pass
was not written (for example, NTF etc.).
NZB =

No zero block. WRNVT could not successfully write the first zero block. Rerun
WRNVT (see p).

*Assuming 400 word blocks, FLC cannot occur if SPEXER is used.
8

PDP

LJ BRARY

Digital-7-20-IO
Page 5
2)

Comparison errors will appear as follows:
CMP 0 ZZZ XXXXXX yyyyyy

where the first 3 words are as in 1) above, XXXXXX indicates the word written and YYYYYY
indicates the word read. The block number indicators wi II always be zero .
3)

When errors occur I the following registers may be of importance.

MMRVC

(3321)

The reverse check sum as read from the block.

MMRDC

(3320)

The forward check sum as read from the block.

MMCC

(3317)

The actual check sum calculated during reading. This should be
7777777.

MMWC

(3316)

The forward check sum as written on the tape during writing. This
should agree with MMRDC if the same direction is used.

MMWDC

(3305)

The word count expressed as - N+ 1. After all words have been written
or read, th is shou Id say + O.

NOTE: The forward check sum is the one read or written after the
data and the reverse check sum is the one read or written before
the data. Therefore, both are dependent on the direction be ing
used.

DESCRIPTION

TSTMM

Writes up to 2000 words beginning at 3600 into the indicated blocks in the
forward direction, reads it ba~ in the forward direction into 5600 and compares it against
the original, word by word. Any error except a comparison error or a sum check error with
ACS = 1 will stop the program. In case of a comparison error, the program will continue
unti all words have been checked.

Use:
1)

Set ACS as follows:
0*1~,678. 91011

Unit
2)

121314

Star~ Block

151617/

Start at 100

*If ACS Bit 0 = 1, sum check errors wi II be ignored.

FDF

LI BRARY

Dig ita 1-7 -20-10
Page 6
3)

At H LT set ACS as follows:

o1 2

34 5

6l 8

9 10 1 1

12 13 14

15 16 17./

Number of Words
4)

Press CONTINUE.

WRMKTR

Writes the timing and mark tracks and block mark numbers on the tape. (Note
that block mark numbers will have the 6-bit mark track code in the high-order six bits. These
must be ANDed out when reading block marks through a user's program.) The program can
create blocks of various constant lengths. The tape must be placed as close as possible to the
beginning of the reel, manually, before starting. This program should be used for unmodified
DEC tape controls serial numbered 1-5 only.
Use:

1) Set ACS as follows: Block number should indicate one higher than the
highest block which can be found by the tape subroutines, i. e., if the routines should search
for blocks up to 1100, the number 1101 should be used.
Ol~,-678

Un it
2)

15161V

91011

121314

H ighest

BI~k Number+- 1

Start at 101.

3) At HLT, set ACS as follows to indicate the actual number of data words
desired per block. (Do not confuse with the number of data marks per block.)
012

345\..678

91011

121314

151617,

Number of Words per Block
4)

Press CONTINUE.,

NOTE: This program will work only if the switch to allow writing
on the mark track is on. The switch should be turned off immediately
after the program is compl eted .

WRVIRG

Writes blocks with correct check sum, whose data portions consist of the numbers
0, 1001, 2002 etc., through 377377, in the forward direction on the tape. * Any error stops
the program.
*If other than a 400 word block is written, the constant at MMVK (1756) must be changed so
8
as to place the numoer of words desired in each hal f C?f the word. For example, for a 300
8
word block, make the constant 300300, etc. The check sum of a 400 word standard virg In
8
tape block is 100100.

PDP

LIBRARY

Dig ita 1-7- 20-10
Page 7
Use:
1)

Set ACS as follows:

o 1~\.6 7 8
Unit

9 10 11

12 13 14

Starti~Block

Start at 102.

When HLT occurs set ACS as follows:
012

345 \..678

15 16 1Z,

91011

121314

15161Z,

Number of Blocks
4)
d)

Press CONTINUE.

SUMF

Checks the val idity of the data and block marks on the tape by sum checking the
tape and checking the intervening block mark numbers in the forward direction. 1f an error
occurs, the program wi II type a message and continue beginning with the next block until all
indicated blocks have been read.
Use:
1)

Set ACS as follows:
01~'\..678

Unit

12 13 14

Start at 103.

When HLT occurs set ACS as follows:

345 \..678

15 16 1!,

Starti~lock

012

9 10 11

12 13 14 15 16 17~
V
Number of Blocks

9 10 11

Press CONTINUE.

SUMR
Same as SUMF (see d) except that the tape is checked in reverse direction.
Use:
1)

Set ACS as follows:
01~~78

Unit

91011

121314

15161~

Startinislock

FDF

LIBRARY

Dig i ta 1-7 - 20-10
Page 8

Stort at 104.

When H LT occurs set ACS as follows:

o12

3 4 5 ,6 7 8

9 10 11

12 13 14

15 16 -1?;

NumbeXf Blocks

4)
f)

Press CONTINUE.

MMGEN
Will spread the pattern set in the ACS into memory from 3600 through 5577.
Use:

Set ACS to pattern desired.

Start at 105.

MMGENA

Spreads a pattern beginning with 0 and incremented by the contents of the ACS,
into memory from 3600 to 5577. For example, if the ACS = 1, the numbers 0 through 1777 will
be spread.
Use:

Set ACS to increment desired.

Start at 106.

N,MWRT
Writes up to 2000 words in the forward direction from core locations 3600

through 5577.
Use:

Set ACS as follows:

o hL.~ \6 7 8 9 10 11 ~ 13 14
Unit

15 16 1}

Starting Block

Start at 107.

At H LT, set number of words to be written in ACS as follows:
(Max = 2000 )
8

012345

6.:t8

91011121314

15161}

Number of Words
4)

Press CONTINUE.

FDF

LIBRARY

Dig ita 1-7- 20-10
Page 9

MMREAD
Reads up to 2000 words in the forward direction into core locations 5600

through 7577 •
Use:
1)

Set ACS as foflows:
01~\..678

Un it

91011

12131415161)

Starti~lock

Start at 110.

At H LT, set number of words to read in ACS as follows:
(Max = 2000 )

o1 2

8
3 4 5 6\l. 8

9 10 11

12 13 14

15 16 1"'b

Number of Words
4)

Press CONTINUE.

WRVIRR
Same as WRVIRG (see c) except that blocks are written in the reverse direction.
Use:
1)

Set ACS as follows:

o 1~ --IL7 8 9 10 11 ~13 14
Unit

Starting Block

Start at 111 •

When H LT occurs set ACS as follows:

o12

345 ,,678

15 16 1~

9 10 11

12 13 14

15 16 1p

Number of Blocks
4)

Press CONTINUE.

EXER

Exercises a succession of tapes by writing modified virgin tape in the forward
direction on all desired tapes, sum checking in the reverse direction on all tapes, sum checking in the forward direction on all tapes, writing modified virgin tape in the reverse direction
on all tapes, sum checking in the forward direction on all tapes, and finally sum checking in

PDP

LIBRARY

Digital-7-20-IO
Page 10
the reverse direction on all tapes. The entire cycle will be repeated continuously until ACS
bit 0 is made a 1. A message is written at the end of each cycle giving the number of the
cycle. The pattern written during each pass is incremented by the pass number. If an error
occurs, the program will type a message and continue, beginning with the next block. All
error messages will indicate the unit number at the end of the message. The NWR message
will stop the program only if it occurs eight times.
Use:

Set ACS- as follows:
012

345~78

91011121314

15161V

Startin¥Slock
2)

Start at 112.

When H LT occurs set ACS as follows:
012345 ~78

91011

121314

15161Z,

Number of Blocks
4)

Press CONTINUE.

5) When HLT occurs, set AC switches 1-8 to a 1 to indicate which units numbered
1-8, respectively, are to be tested. For example, to exercise units 1-4 set only switches
1-4 to a 1; to exercise unit 3 only, set switch 3 to a 1 and all others to a O. Any combination
of bits may be used. Only bits 1-8 are examined. These switches can be reset at any time
during the running of the program to add or delete units. If ACS = 1, the program wi 1/ stop
O
at the end of a pass.
6)

Press CONTINUE.

MMGENR

Spreads 2000 random numbers into locations 3600 through 5577. A different
8
block will be created each time the program is used unless the program is reloaded or the location called RNK (1042) is reset to 736425.
Use:
1)

Start at 113.

ROCKER

The program will move the tape in the mode indicated for multiples of approximately 5-second intervals in both directions. The switches can be changed at any time during
the running of the program. The ERROR FLAG is cleared when a Block End Flag is detected.

PDP

7
,LIBRARY \

Digital-7-20-IO
Page 11
Meaning of the AC bits:
12 = Go FI ip-Flop On
13 = Reverse FI ip-Flop On
14 = Not used
15 - 17 = Mode: 0 = Move
1 = Search
2 = Read
3 = Write
4 = Spare
5 = Read through block ends
6 = Write through block ends
7 = Write timing track
Use:
1)

Set ACS as foi lows:
~ 67891011

\J21314..J.5161~

Time* Unit
2)

Mode, Dir., Go

Start at 114.

BLROCK

Reads DECtape blocks beginning at the block specified, for a variable number
of blocks in either direction. If end of tape is reached, repositioning at the starting block
occurs automatically. All other errors are cleared when a Block End Flag is detected. Read
Mode only, is used. To stop the program, set bit 0 of the ACS to 1.
Use:
1)

Set ACS as follows:
01~~78

Unit

91011 \31314
Starting Block

Start at 115.

At HLT, set ACS as follows:

o1 2

3 4 5 ,6 7 8

15161p

9 10 11

12 13 14

15 16 17;

Number of Blocks
4)

Press CONTINUE.

*00= 5 seconds, 01 = 10 seconds, 10= 15 seconds, 11 = 20 seconds approximately.

PDP

LI BRARY

Dig ita 1-7 - 20-10
Page 12

RWMKTR

For those tape controls using the revised bit format (serial number 6 and later),
two new programs have been designed to write the mark track, virgin tape pattern, and to
check the tape. These are described fully below: (WRMKTR should still be used for unmodified controls with serial numbers 1-5 as described in paragraph b, page 6.)
RWMKTR writes only the timing and mark tracks on the tape. The program can
create any number of blocks of any desired constant length.
Use:

Place the reel as close as possible to the physical start of the tape.

Set the switch which controls writing to ON.

3) Set ACS, as foil ows, to one higher than the highest block number to be
legally found by the subroutines:

o 1~ \6 7 8
Unit

9 10 11 ~ 13 14

15 16 1p

Highest block number +1

Start at 116.

At HLT, set ACS as follows to indicate the actual number of data words

per block:

o12
6)

345 \.678

9 10 11

12 13 14

15 16 ly

Y'
Number of words per block

Press CONTINUE.

7) When program is finished, turn mark track switch off, remount tape if
necessary, and continue with the virgin tape program (WRNVT) explained below.

WRNVT

Used to write the virgin tape pattern and the block mark numbers on a tape with
a newly created timing and mark track. This program should never be used except after
RWMKTR above. It is not a normal virgin tape program, but one which writes through block
ends. After the block ;rn;rk numbers and virgin tape have been written in the forward direction J
the tape is automatically sum checked in reverse, showing all errors. In addition, the first
block on the tape is rewritten to guarantee a 0 as the first block mark number. (There are two
blocks numbered 0 at the front of the tape.)

PDP

LIBRARY

Digital-7-20-IO
Page 13
Use:
1)

Set ACS as follows:

o 1~ 6 7 8

9 10 11

121314151617

Unit
2)

Start at 117.

3) The block mark track wi II be used to determ ine the length of each block,
and the end of tape wi II be used to determ ine the number of blocks. Since b lock mark numbers
are now put on in a second pass, it is no longer necessary to AND out bits 0-5 when reading
block mark numbers produced with th is program.

STAP

The program allows visual inspection and manual regulation of the DECtape Stop
Adjustment by the following routine: If ACS = 0 the tape will move forward (in move mode)
O
from its present position for 1 second, stop for 1 second, move in reverse for 1 second, stop for
1 second, then repeat the cycle.
If ACS = 1, the tape will move forward for O. 12 seconds, stop for 1 second,
O
move in reverse for 0.12 seconds, stop for 1 second, then repeat the cycle.
Use:

Set ACS as follows:
0* l~ 6 7 8

9 10 11

121314151617

Unit
2)

Start at 120.

Any of the accumulator switches can be changed at any time. Care should be
taken that the tape unit used is not presently in the end zones, as stopping will be premature.

RBMN

Rewinds the indicated tape unit, then searches forward reading all block mark
numbers and placing them (without masking) in successive locations beginning at 3600. When
the forward end of the rape is reached, the remainder of the area up through 7577 is filled
with minus zeros (777777), thus making clear what the last block mark number found was. The
area can be checked by using the Examine Key. For the standard tape, the first block number
will be in location 3600 and number 1101 will be in location 4702.

*Move for O. 12 second if on.

PDP

LIBRARY

Dig ita 1-7 - 20-10
Page 14
Use:
1)

Set ACS as follows:

o l~ 678

9 10 11

121314151617

Unit
2)

Start at 121 •

SPEXER

This special exercise program operates for the most part as does the normal
exercise program (see k) except for the following differences:
1) The user must generate the pattern to be written rather than use the standard
vi rg in tape pattern.
2) The check for flag count errors (FLC) is omitted as it depends on a check of
the pattern used.
Use:
1) Generate the pattern desired by using MMGEN (see f), MMGENA (see g)
or MMGENR (see I). If no pattern is generated, the block written will contain the information currently in memory beginning at location 3600.
2)

Set ACS as follows:
012

345 \§78

91011

12131415161lj

Star~ Block
3)

Start at 122.

When H LT occurs, set ACS as follows:

o1 2

3 4 5 ,,6 7 8

9 10 11

12 13 14

15 16 17)

Number of Blocks
5)

Press CONTINUE.

6) When HLToccurs, set Accumulator switches, bits 1-8, to a 1 to indicate
which units numbered, 1-8 respectively, are to be tested. For example, to exercise units
1-4, set bits 1-4 only to a 1, to exercise units 1, 3, 5 and 8, set bits 1, 3, 5 and 8 to a 1
etc. Any combination of bits may be used. These switches can be reset at any time during
the running of the program to add or delete units. Only bits 1-8 are examined. If ACS = 1,
O
the program wi II stop at the end of a pass.
7)

Press CONTINUE.

FDP

LIBRARY

Dig ita 1-7-20-10
Page 15

PROGRAM

9.4

Listing

EWIN

DECTOG

MMAUTO=17
211

CLA
MMLC

TIN

Xl,

LAW
TSH
LAC
TAD
AND
JMS
HLT
JMP

~1SG:1.

?0
( -0)

(7777)

TWin
.-1

501

CLA
MMLC
Ji~P

DISMIS=JMP .
LA. C

(11

RAL
L.AC

A#CSAVE

ION

Jr-1P I

1 ~Hjl

JMP
.JMP
..JMP
JMP
JMP
JMP
JiVlP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP

TS T:-.11-1 IRE AD, WR I TE AND CHECK '8LOCKS, 100
wRMKTR
IWRITE MARK TRACK, 101
WRVIRG
IwRITE VIRGIN TAPE, 102
SUMF ISUMCHECK FWD, 103
SUMR ISUMCHECK REV, 104
MMCEN IGENERATE 1 PATTERN BLOCKS, 105
MM~ENA
IGENERATE ASCENDING RLOCKS, 106
MMWRT IWRITE BLOCKS, 107
MMREAD
IREAD BLOCKS, 110
~RVIRR
IWRITE VIRGIN TAPE REVERSE, 111
tXE~
IWVF,SCR,SCF,WVR,SCF,SCR, 112
MMGENR
IGENERATE RANDOM BLOCKS, 113
ROCKER
IMOVES TAPE IN TWO DIRECTIONS FOR FIXED TIME
8LROCK
IREAOS TAPE BIDIRECTIONALLY FOR FIXED LENGTH
RWMKTR
IREVISEO MARK TRACK WRITER, 116
WRNVT IVIRGIN TAPE FOR NEW TAPE ONLY,
117

PDP

LI BRARY

· Digital-7-20-IO
Page 16

JMP STAP ISTOP ADJUSTMENT PROGRAM, 120
JMP RBMN IRECORD BLOCK MARK NUMBERS, 121
JMP SPEXER
IEXERCISE WITH PREDETERMINED PATTERN, 122
130/

ITEST DECTAPE SUBROUTINES
MMWRA=3600
MMROA=MMwRA+20vI0
TSTMM,
JMS CLRFLG
LAS
ISELECTION AND BLOCK NUMBER
DAC #Kl
DAC TSTMM2
OAC TSTMM3
SMA
JMP .+3
LAC (JMP MMRn4+10)
DAC MMUD1+6
JMS TSTNWD
IPICK UP NUM8ER OF WORDS
LAC (;1
CMA

ADD

(r~ MWR A )

OAC
ADO

TST!vP-12+2
(MMRDA-~MWRA)

rJ .A C TS Tr'1' '1 3 + 2

TSTMM2,

JMS Mr'1WRS
LAC Kl
IHLOC~ NUMBER
JMP TSTMr·16
IERROR RETURN
~
IUNIT SELECTION

TSTM~-13,

ICORr END

JMS

TSTM~8

,jMS

MMR!)S

IMULTI-PROGRAM

LAC Kl
18LOCt< NUMRER
JMP TSTMM6
IERROR RETURN
vI
ILJNIT SELECTION
t"1MROA.
ICORE START
(2)
ICORE END
J MS T S T !VP·1 H
IMULTI-PROGRAM
LAw t !MWRA-1
DAC 10
J

L A~i tvH1 R 'J A- 1
11

TSTMM4,

[lAC
LAC
OAC
LAC
SAO
SKP

C1
#C2
I
I

:l7J

PDP

LIBRARY

Digital-7-20-IO
Page 17

ICOMPARE ERROR

JMP TSTr-H'17
lSI C2
J 1-1 P T S T 1"1 !Vi 4
,JMS

T YP[ND

LAS
St"'lA

JMP Xl
Ji1S

/ DONF

L\~RFLG

JHP TSTi"1M2-,3
TSTMM6,

JMS fIECF:RR

Jf-iP xl
TSTMM7,

LAW
JMS
TSP

f)ECERR

I he

lv~

DAr:

t:C~~

L.AC r (:.3
JMS

1,~ (')

TSP

LAC 11
UAC C3
LAC
,JfVlS
Jfv1P

TSTMi'1d,

I c:~
f W6
TSTMiVl4+-t

/ C Ol\! T I NU E

v.l

LAC tvjMHAl

t St

Jrv1P • +4
J ClFLAW 130 VJ

JMP MMEHRX-l
I Sl i'-'iMnO~jE
J MP T S T H 1\1 ,j + 1
I l) F
J MP I T S T i1 h ,~

IFOR I'\JTFRRUPT
TSTMM9,
DAC ACSAVE
[1 t M

~1MF F

SKP
JMP r"lMERR

MMUF
SKP
JMP t"1MD.A.TA

L.AW

11(il~

J r-1 P

i1 MER R X - 1

PDP

LI BRARY

Dig ita 1-7 - 20-10
Page 18
/ CON S T l\ N 1" S A r'J 0 S U 8 !~ 0 UTI I\j E S

.1YPOK,

1 1 I\j
L. AC (F LEX

li lA\,

TY~

Jt"lP

TYPENO,

TYPO/<

vi
TIN
L. AC (F LEX F i\) rJ )
T Y,3
Ji"1P I TYPEt'<)

ERRTA8,

rLEX FMT
~-Lf:::X ERR

FLEX CMP
FLFX EI-<S
F LEX E R L~
FLEX INT
F L t X KlJ F

FLEX
FLEX
8
t~
W
F LEX
FLEX
FL[X FLC FLE..X
F L ~~ X

NTF
SUM

8MC
NFL

Nl~R

ERRTA8+30/
OECERR,

((

DAC [RRWA

S6D (LAw)
ot M i'1 M~! A 1
S A. f}

(L Awl v~ :,·1 )

.JMP
SAD
SKP

• +4
(LAW

2("1iv1)

J~1P

.+~3

LAC
DAC

tv~M8LKM

i"if"lWAl

TIN
LAC' [RRv'4A

kTR
HTR
h- T R ,

ERRWA,

,/l.i\JO

(77)

{l 0 0
[lAC

(L ACE R !~ T A 8 )
• +1

LAC FRRTA8

/MGOIFIEO

TY3

TSP
LAC

jvlMI.. l\l

JI"1S

TWi6

TSP
LAC i"1MRSA
TiAJORD

PDP

LI BRARY

Dig i ta 1-7- 20-10
Page 19
T ~6,

TWORD
6

JMP I Tw6
TWi6,

0
TWORU~

JMP I TWf6
FLEX CAL FLEX

MSG1,

FLEX M T-2

/WRITE VIRGIN TAPE
WRVlkG,
LAC (JMS MMVT)
[lA.C
JMS

wRVl-2

CLRFLG

LAS

/UNIT SELECTIUN ANO ALOCK NUMBER

[jAC Kl
D A C 01 R V 1 + 2

HLT
I r~ U fv1 PER

L .A S
Ai\j[)

0 F 8 L0 CK S

(7777)

C:v1A
.t,. D 1.1

(1)

nAC vdi V1
LAC (1001)
JMS GENRLA
o
,)MS

WRV1,

/rHn-1RER TO

LAC Kl

IHLOCK

/1\)0

ClF BLOCKS

/ERROR
IUNJT

1/1

WRV2,

jivlS TST!Vlfv1 8
Jt'1S TYPOK
JMP Xl

WRVlkti,

L A r:

(J tv) S Mf'-~ V T R )

J ;"1 P

~d~ V I RG+ 1

SUMF,

Ivi;'1 \j T

JMP TS1MI'''16

I SUM

srAF~T

C HE C K P k 0 (~ Rll. rlj S

LAC (JMS MMSCF)
DAr.
JMS

SUf'I'Fl

CLt"FLG

IUNIT AND RLUCK NUMBER

LAS

oAC S U ~.1 F 1 + 4
t, /\1 [ I

(7 7 7 7 )

[)AC Kl
~LT

PDP

LI BRARY

Digital-7-20-IO
Page 20

INUMHER OF 8LOCKS

LAS

AND (7777)
Ci"'; A

AnD (1)

SUMF1,

SUMF1A,
SUr-1F2,

DAC SUMF:l+?
J MS t-i MS CFlO R ~1 MS C R, !"1 0 0 I FIE f)
LAC t<:1
18LOCK
o
INUMRER OF BLOCKS, -N+l
~Ji1P SUM F? I ERR 0 R
Vi
IUNIT
J MS T S T 1,,\ i'l 8

JMS TYPENf)
JMP
jMS
LA-C
CMA

:<1
uECEt-(f~

fvlMwAj

Id)O K1
SPA
ADO

~UtvIFl+?

ADD (1)
SM.A

JMP SUMF1A
OAC

SUMF1+?

LAC

~H1~\jAl

TAO 1'1f"\SCFl'<:

DAC k1
JMS LWRFLG
SUM R ,

IGENEf~ATE

MMGEN,

.JMP SUMFl
LAC ( .J rJ: S ~~ r'1 S CR )
,)MP SUMF + 1
BLOCKS
LAC (elA)
OA C ~lMGEN1
LAC (LAS)
oAC r~ MGE N 1 - 3
LAW f'1MWRA-1
UAC r-iMAU ro

lAH

- MMR0 A + H ~1 W~<A + 1

nAC t-1Mv.! A2
LAS
DAC Ivl t-H-J Ai
OAC I M~AUT()

MMGEN1,

lOR LAS

ClA
A.DD

~:Mw .6..1.

DAC MMWAJ_
ISl rvjMwA2
JMP /Vi MG E i\j 1-1
Jf-1P wRV2
PDP

LIBRARY

Dig ita 1-7- 20-10
Page 21
MMr,[NA,

LAC (LAS)

nAC MMGENl
LAC (CLA)
JMP MMGEN+5

IREAU HLOCKS
MMREAO,
LAC (JMS MMROS)
nAC l"lRE AD?
L AW ~1 MR iJA
[JAC tI1READ2+4
LAS
IUNIT ANn BLOCK NUMBrR
[lAC t-'lREAD2+,~
IPICK UP NO OF wOS
JMS TSTi~WD
LAC C1

c r~ A
ADD tvlRFA02+4
GAC t"1R[ A02+
JMS CLHFLG
i

MREA 112,

)

JMS MMRDS lOR JMS MMWRS
18LOCK NUMBER
LAC . +2
IERROR
JMP lSTMi"16
v)
I Jl\l I T
LAw t.IMRiJA lOR LAW f'tlM\.-.;RA, CORE START
(/\
ICOR[ END, MODIFIED
..JMS TSTfvlM8
JMP WRV2

IwRI TE BLOCKS

MMWRT,

LAC (JMS

MIVlwRS)

I.) AC M REA [) 2

LAW

f"lM~!f-<A

JMP

MI"1READ+,-~

/CLEAR FLAGS, SET UP INTERRUPT, AND MODIFY READ AND WRITE RTNES
C L RF L G ,

(I)

IOF
CPCF

nCF

CRR8

700102

LPCF
PCF

T CF
CLA

"1 S I
7i1)7604

LSCF
KRH
CLOF

LAC (JMP

DAC

Mr-1Hn2-1

LAC

(J""IP MMr"10f)1 +3)
t-'iMRIl4+5

DAr

701604

IMMLC FOR 1ST AND 2ND CONTROLS

~MM001)

LAC (JMP MMMOD1+7)

PDP

LI BRARY

Digital-7-20-IO
Page 22
OAC Mr-1wR4+4
LAC (JI'-IP TS fMM9)
DAC 1
[)~M nIF

L.AC

(LAC

t·~t1VK)

DAC hI1V!-iR:3+1!il
LAC (JMP MMH04+4)
[) A C r-i Mr1 0 D 1 + ~
LAC (Jjv1S TYPFND)

DAC SU~A,F:LA
JMt-J I CLRFLG

MMM001,

DAC fv!I'~SUi1
DAC M#i-1RV C
Jr'1P MMRD?
DAC

tv! #r1,~O C

ADD tv:MSLJt>1
OAC

JMP

f"l#hCC
MMH [14 + 'l

10K JMP MMRu4+10

DAC (v1#M!"jC
MMWR
...JMP t1MwR4+5
TSTNr'lD,

(I;

~LT

INUMRER OF WURDS

LAS
Ai\jU

(7777)

CMA

ADO (1)
(JAC #Cl

AnO (MMROA-MMWRA)
ITOQ MANY WORDS

SMA
JMP

LAM

-MMRDA+~MWRA+l

TSTN\"iD

JMP .-5
MMOD1=MMMOOl
START

EXFR,

CONSFCUfIVE UNIT EXERCIS[R
JMS CLRFLG
LAC (J~1P MVT2)
nAC MMVWR3+10

LAC (JMS GFN8LA)
I) A C F X E" Ii 1 + ~)

LAS

18LOCK NUM8ER

PDP

LIBRARY

Digital-7-20-IO
Page 23
AND

(7777)

[tAC C2

HLT
LAS

Ir\j

AND (7777)
[JAC
Ci'1A

ADD

(1)

[lAC E#Xl
LAC C2

AnD
TAU
DAC
DtM
LAM

C3
(-0)
C3
IENOING BLOCK
TYPOK
-7

GAC

~'i#p,t,

ISET UP UNITS TO WORK ON

HLT

EXER1,

LAC TYPt'}K
DAr

• +:5

LAC

(1~1V11)

JMS GEr\f8L A

IMOOIFIED, NUMBER TO START WITH

LAC
Jr"1S

(Jf'v1S EXVT)
CONSEe

LAC (JMS S U '1 S tH< )
Yv1S CON SEC
J'''1S r·j WR C riK
S U ~'1 S 8 F )

LAC

(JMS

JMS

CUNSEC

LAC (Jt-1 S EXVTR)
J i'1 S COr>JSEC
LAC (JMS SUi'1S8F)
.JMS CONSFC
...J;·~S MwRCHK
Lo.C ( J~iS S i /l'oj5 B H)
JMS CONSEC
1St
JMS
TSP
LAC
.JMS

TYPOK
TYP[Nf)
TYPOK
TWit,

L,\ S

SPA

JMP Xl
JMS LWHFLG
\.Jr"lP fXFRl
PDP

LIBRARY

Digital-7-20-IO
Page 24
CONSEC,

(I;

OAC COl\lSC2
LA ,..,1 -7
nAC w#A4
LAS
DAC y.,i#A5
CLA
CONSC1~

ADU ( 1 Vi (i1 0,0 )

[JAC SUMSRF+13
LAC wA5
HAL
nAC WA5
CONSC;(,

SPA
Jr1S

/'vlonIFIED

LAC SUf\lSr:sF+13
1st

~,A 4

J'1P r:ONSCl
,j !"1 PIC () i\l S F C

SUMSRF,

LAC ( J~'" S rvj:viSCF)
UAC • +5
L AC C2
nAC r<1
LAC EXl
DAC
+-3
Jf'1S tv; ,"1 S CF

LAC v1

z!
Jrvjp

lOR MMSCR, MfvlV r , MMVTR
l~jLOCK NUMREk
/-!\!+1

~ XFf:F<

IFHROR
11.1 f\j I T

i/j

JMS 1 S T r-H-1 B
Jf"1P I S\H1 Si~ F
SU!'1SHri,

LAC · -1
S LJ rv1 S ~~ F
( J~'i S ~1 i" S r: R )
11.!\C T S I) ~1 S P f=" + 2
DAC

LAC

LAC C ,:5
,-J!\lP SUr·1 SYF of 4

[XVT,

(i1

LI\C

· -1

DAC SUf-iSHF
LAC ( JMS i'1 r1 V T )
Jt-1P

SLJMSYF+2

PDP

LI BRARY

Dig ita 1-7-20-10
Page 25
EXVTii,

r"
LAC .-1
OAC SUMSRF
L.A C (J tvi S MM V T R )

JMP SUMS8R+4
LWF(FLG,

EXERR,

o
TSF
JMP .-1
TCF
JMP I LWRFLG

Jf"1S nECERR
TSP
LAC SUMSBF+13
TrJORP2
2

LAC Mi"1wA 1
CMA
AOD K1
SPA
C!v1A

.AOO SUMSRF+l1
ADD (1)
SMA
JMP .+7
IDONE IN THIS DIRECTION
OAC
LAG
TAD
OAG
JMS
JMP

SUMSSF+11
~1 MWA 1

t-1MSCFK
K1
LWRFLG
SUMSHF+7

JMS LWRFLG
JMP J SU~-1SRF
RN,

LAC R!\JK
CLL!~;AR

StL
XUR

RNK,

(400V1:2'vJ)

XOR (335671)
AOO (335671)
nAG RNK
JMP I RN
73A425

I PDP I

I,Zyl

D;g; ta 1-7~ 20-10
Page 26
MMGENR,

MWRCHK,

LAW
LAM
OAC
JMS
DAC
ISl
JMP
JMP

Mf"1wRA-l

DAC MMAUTO

-MMROA+MMWRA+l
MMvJA2
RN
I r'<1MAUTO
MMWA2
.-3

W.RV2

LAC
SAD
JMP
LAC
1St
LAC

MMRVC
t'1MWC
I MWRCHK
(JMP Xl)
WAn
.-3

DAC t-1VT2-1

lAW 150.0 INWR
JMS DEC ERR
TSP
lAC SUMS8F+13
TWORut
2

JMS LWRFLG
JMP I MWRCHK
MVT2,

lOR JMP Xl

LAC lYPOK
ADD MMVK
JMP tv1MVWR3+11

/INTERNAL BLO~K GENERATORS
IGENERATE BLOCKS WITH SAME CONTENTS
/FORMAT
lAC CONTENTS
I
JMS GEN8L
GENBl,

CiJ

DAC
LAM
DAC
LAW
oAC
LAC
OAC

,..,1MWAl
-MMROA+MMWRA+l
MMwA2
MMWRA-l
MMAUTO
MMWAl
I MMAUTO
1St MMWA2
JMP .-2
JMP I GENBL

PDP

LIBRARY

Digital-7-20-10
Page 27

IGENERATE BLOCKS IN ARITHMETIC PROGRESSION
IFORMAT
LAC FACTOR
INUM8ER TO ADO
I
JMS GEN8LA
I
X
INUMBER TO START WITH
GENBLA,

0
MMWAl
-MMRDA+MMWRA+l
MMWA2
MMWRA-l
MMAUTO
I GEN8LA
I MMAUTO
MMWA1
IS~ MMWA2
JMP ,-3
ISl GENBLA
JMP I GENBLA

DAC
LAM
DAC
LAW
DAC
LAC
DAC
A.DD

SPEXER,

JMS
LAC
DAC
LAC
JMP

CLRFLG
MMVWR3+12
~1MV WR 3 +10
(SKP)
EXER+4

START

ROCKER,

ROCKER PROGRAM
JMS CLRFLG
DtM Cl
JMS MMWAIT
LAS
XOR Cl
MMSE
MMLC
RAL
RTL
AND ( 3 )
CMA.
OAC C3

PDP

LIBRARY

Digital-7-20-IO
Page 28
ROCK1,

LAC (DECIMAL -89285 OCTAL)
OAC C2
MMBF
JMP .+5
MMEF
JMP .. +3
LAS
MMSE
MMf)F
SKP
MMRD
ISr C2
JMP ROCK1+2
IS~ C3
JMP ROCKl
LAC
XOR
OAC
JMP

156 US LOOP

Cl
(20)
ICHG DIRECTION
Cl
ROCKER+2

IROCK FOR CONSTANT NUMBER OF BLOCKS
BLROCK,
JMS CLRFLG
OlM Cl
LAS
IUNIT AND BLOCK NUMBER
OAC HLRCKl
HLT
LAS
INUMBER OF BLOCKS
AND (7777)
CMA
A DO (1)
DAC C2
IBLOCK COUNTER
BLRCKA,
CLA
MMLC
JMS MMSCHl
LAC .+3
IBLOCK NUMBER
JMP .-2
IERROR, SEARCH AGAIN
DISMIS
BLRCK1,
0
IUN!T
LAC MMWAl IPRESENT BLOCK LOCATION
ISl MMDONE
JMP .-2
BLRCK2,

BLRCK3,

IOF
LAC C2
DAC C3
LAW 42
XOR Cl
MMLC
MMEF
SKP

IREAO FORWARD
IGET DIRECTION
IREAD FORWARO OR REVERSE

PDP

LIBRARY

Dig ita 1-7 - 20-10
Page 29

JMP 8LRCK5
MMOF
SKP
MMRO
MMRF
JMP 8LRCK3

IERROR FLAG

MMRO

MMEF
JMP .+3
LAC BLRC~l
MMSE
1St C3
JMP 8LRCK3
BLRCK4,

LAS
SPA
JMP 50
LAC Cl
XOR (20)
OAC Cl
"JMP RLRCK 2

BLRCK5,

MMRS
ANO (40V'l00)
SAD (40000)
JMP RLRCKA
JMP RLRCK3+,3

IEOT
IREPOSITION TAPE

START
PDp~7

DEC TAPE SUBROUTINES, CON1ROL "
LMH 12-2·64
IPDP-7 DECTAP~ SEARCH SUBROUTINE
IOISMIS MUST BE DEFINED AS JMP TO DISMISS INTERRUPT ROUTINE"
MMWR=707504
MMLC=7076V'14
MMSE=707644
MMRS =7 C~ 7 6 1 2

MMDF=707501
MMBF=707h01
MMEF=7(117541
MMRD=7r~7512

SKP7=703341

IFORMAT
I
I
I

I
I

JMS MMSCH lOR MMSCHl OR MMSCHR
LAW B
lOR LAC (B), BLOCK NUMRER
JMP X
IERROR RETURN
JMP Y
ISEARCH COMPLETED RETURN
rr0000
IUNIT SELECTION
MULTI-PROGRAM RETURN

PDP

LI BRARY

Digital-7-20-IO
Page 30

ILEAVE IN SEARCH REVERSE MODE
MMSCHR,
{i1
LAC .-1
OAC MMSCH1
LAC (JMP MMSCH6+2)
OAC MMSCH3+1
CLA
JMP MMSCH1+4
ILEAVE IN FORWARD nIRECTION WITH TAPE STOPPED
MMSCH,
0
LAC .-1
OAC MMSCH1
LAC (Jtv1P MMSCH6)
JMP MMSCH1+2
ILEAVE IN SEARCH FORWARD MODE
MMSCH1,
VI
LAC ( ,-JMP Mrv1 S r, H6 + 2 )
DAC /")MSCH5+1
CLC
OAC h#MS8K
TAD ( 1 )
DL\C t.t,#f>1SFK
LAw 61
OAr: ~1 # M~~ A 3
XCT I HMSCHl
ISt: t"j MS CH 1
ANn (7777)
OAC "'~#M8LKtvi
S\JA.
JMP I"i ~lS CH4
,AOD tvll'-lEK
S ,"1 ,l\.
Jt'-lP MMSCH4
LA r-1 -7
DAC M#MSUM

LAC I MMSCHl
DAC fvlMERRX
1St: f"1MSCHl
LAC I fvlMSCHl
OAC Mt'1SCH7
lSi MMSC H l
JMS MM(..It\l T
LA.C I MMSCHl

ICURRENT DIRECTION
IPICK UP BLOCK NUMBER
IPOINTS TO ERROR RETURN
IBLOCK TO SEARCH FOR

IFORMAT ERROR
ICHG OF DIRECTION COUNTER
IERROR RETURN

ICOMPLETION RETURN
ICHECK IF DELAY IS NFCESSARY
IUNIT SELECTION

PDP

LI BRARY

Digital-7-20-IO
Page 31

MMTU~~N

r~M[RRX,

MMSE
I Sf I"1MSCH1
IPOINTS TO MULTI-PROGRAM RETURN
LAC (NOP)
OAC 1"1MSAVE
ION
ISt: MMSUr-1
Jf"1P MMERRX+c
LAW 200
INOT FOUND
Jr-1P MMFK+1
JMP •
IERROR EXIT
HLT
IERROR EXIT WAS NOT JMP INSTR
L4W 41
SAD jvi!"1WA3
JMP t-li-1RF.: V

[lAC

MMwL\~5

t~ I"1L C

LAC
nA.C
LAC

(SMA)
MI1SCH~
~'-11-1RLK11

T An r1f1SFK

MMSAVE,

IBLOCK TO LOOK FOR IN THIS DIRECTION

DAC

~#M~A2

r'lt~1

ivl#MiJONF

NOP

IUR DISMIS

L.AC (OIS"1IS)

oA C Mt"1S A V E

JMP I MMSCHt

MMREV,

ICONTINUE MULTI-PROGRAMMING

LAW 61
DAC Mr'H~A~S
rv:ML C

LAC (SPA)
[l A C Mtvl S C H 2

LAC r1 i1BLKM
T l\ 0 f'-11"1 S 11 i\

JMP HMSAVE-?

MMERR,

~iMPS

,1;\)0

(4~~f~(;j9.1)

st\rJ

(4G300,0)
tv; ['1 T U R t\I

~j MP

MM[1ATA,

LAv.J 30~'
JMP ~1~ERF<X-l
t-'!MkD
,A,NO (7777)

INON-EOT ERROR DURING SEARCH

OL\C fV1#M...tA1
SAD
JMP

i"!MWA?
rvlMSCH3

CMA
AnD MMWA2

PDP

LIBRARY

Digital-7-20-IO
Page 32

MMSCH2,
MMSCH3,
MMSCH4,

lOR SPA FOR REVERSE
IKEE.P GOING
ITURN AROUND

SMA

JMP
JMP
SAD
JMP
Ji"1P
LAW

MMSAVE-l
I"IMTURN
f'/!M8LKM

MMSCH6
f'!IMTURN

IFORMAl ERROR

100

Mr~l C
Jt~P

MMSCH5,
MMSCH6,

Mf"1SCf-l-l

LAW 1[/)0
JHP iv;M~RHX-l
CLA
t'F'1 LC

IFUR~1A

TERROR

C'LC
DI\C

MMSCH7,
MMEK,

JMP

(VI ;10 () r,j

OECIMAL

CAC

IEXIT
-57f.;

OCTA.L

j~MSCH

tv!MhS
lJJ\C ivl#~'~KSA

LAC

r/'M~CY

rvlf~ L C

Ji"lP

f'-iMEiitiX

135 MILLrSF~nND SELECT OELAY LOOP
t-1MWAIT,
(.1

XCT
A i\j 0

(1 7 y1 ~) 1):1 )

SAn

rvif"lCHK-:J

J MP 1 1"11'1 ~J .6. I T
oAC ivi !'-1 C HK-'1

IPICK UP SELECT
ICHECK SELECT ONLY
ISAME SELECT
ISAVE SELECT

CL.n
t>liMSE
IS[LECT UNIT lERO
LAM DECIMAL -5000 OCTAL
SKP7
lIS THIS A POP-7?
ICOUNT 35 MS
LAM fJECIMAL -1094+1 OCTAL
OAC !-1MSr:H
1st I .-1
JMP .-1
J MP I 1'-1 tvi WAI T
(.Ii

ISAVE SELECTION

PDP

LI BRARY

Dig ita 1-7 - 20-10
Page 33
IPDP~7 OECTAP~

READ AND WRITE FORWARD SUBROUTINES

IUSES AUTO-INDEX REGISTER NAMED MMAUTO WHICH MUST RE DEFINED
ICOMMON ROUTINE FOR PICKING UP CONSTANTS AND SEARCHING FOR BLOCK
MMCHK,
l'
ADO ( -1 )
DAC rviMAUTO
LAC I MMAUTO
IBLOCK NUMBER
DAC MMCf-iK1+1
IERROR RETURN
LAC I Mi-1AUTU
[JAC

~1MERRX

DAC I"1MCHI\1+2
LAC I Mi'1AUTO
DAC MMCHK1+4
CLC
TAn I 1'-1i'1 AUT 0
AND (17777)
OAC M#Mi~A4
CLC
TAO I Mi"lAUT 0
AND (17777)
CMA

IUNIT SELECTION
/STA~TING

ADDRESS

lENDING ADDRESS

ADD MrviwA4
SMA

MMCHK1,

JMP
OAC
JMS
LAt.-J
JMP
JMP

MMSCH5
M#Mil.JDC
MMSCHl

MMCHK2

I7i

MMCHK2,

JMP
LAC
DAC
LAC
OAC
JMP

I MMAUTO
MMHA4
fviMAUTO
(DISMIS)
MMSCH7
I MMCHK

IILLEGAL FORMAT
IWORD COUNT
IBLOCK NUMBER, MODIFIED
IERROR RETURN, MODIFIED
lEND RETURN
IUNIT SELECTION, MODIFIED
IMULTIPROCESS WITH MAIN PROGRAM

IDECTAPE READ SUBROUTINE

IFORMAT
I
I
I
I
I
I

JMS MMROS
LAW R
JMP X

tt0000

Cl
C2
MULTI-PROGRAM RETURN

lOR LAC (8), BLOCK NUMBER
IERROR RETURf\J
IUNIT SELECTION
ICORE STARTING ADDRESS
ICORE ENDING ADDRESS, INCLUSIVE

PDP

LIBRARY

Digital-7-20-IO
Page 34

MMRDS,

MMR01,

~:.

L.AC MMROS
JMS MMCH'<
LAW 42
MMLC
LAC (OAC I MMAUTO)
OAC MMRD3
MMEF
Ji'1P . +3
LAv.j 4100

IREAD FORWARO

IERROR FLAG DURING READING

Jrv1P MMERRX-l
MtvlOF

JIv1P MMRDl
l"1t1Ro

MMR02,

MMR03,

MMR.D4,

nAC MMSUM
MMEF
SKP
JMP MMR01+2
IERROR FLAG DURING R~ADING
MMOF
JMP MMRn4
MMRO
OAC I MMAUTO
lOR NOP
Ano MMSUM
DAC MMSUM
1St MMWI)C
JMP MMR02
LAC (NOP)
OAC MMR03
JMP MMRD2
MM8F
JMP MMRD2
MMRO
ADD MMSUM
SAO (-0)
JMP .+3
LAW 50~
ISUM CHECK RfAOING
JMP MMERRX-l
1St MMWAl IUPOATE CURRlNT BLOCK ADDRESS
LAC (OAC I ~MAUTO)
SAD Mf~RD:S
JMP MMROl
JMP MMSCH6
IGOOU EXIT

IDECTAPE

WRJT~

IFORMAT
I
I

JMS MM~R$
LAW R
lOR LAC
JMP X

tt00Vj0

SUBROUTINE
8LOCK NUMRER
IERROR RETURN
IUNIT SELECTION
ICORE STARTING ADDRESS

(B),

\PDPI

lZJ

Dig ita 1-7- 20-10
Page 35
I
/

C2
ICORE ENDING ADDRESS, INCLUSIVE
MULTI-PROGRAM RETURN

MMWRS,

MMWR1,

LAC MMWRS
JMS MMCHK
LAC (LAC I. MMAUTO)
OAC MMwR3
CLC
DAC MMSUM
LAW 43
MMLC

MMWR?,

IWRITE FORWARD

MMEF

JMP .+3
LA~

60~

IERROR FLAG DURING WRITING

JMP MMERRX-l
MMDF

MMWR3,

MMWR4,

JMP MMWR4
LAC I MMAUTO
MMWR
ADD ~1MSUM
DAC MMSUM
1St t--1MWOC
JMP MMwR?
LAC (CLA)
OAC MMWR3
JMP MMWR2

lOR CLA

~1M8F

JMP

MMh~2

LAC MMSUM
CMA
MM~iR

LAW 41
MMLC

ISEARCH FORWARD

MMFF
SKP

JMP MMWR2+2

IERROR DURING WRITING

MMOF

JMP .-4
MMRD
Isr MMWAl IUPDATE CURRENT BLOCK ADDRESS
AND (7777)
SAD f"1MWAl
JMP .+3
LAW 700
IBLOCK MARK ERROR DURING WRITING
JMP MMERRX-1
LAC (LAC I MMAUTO)
SAD Iv1MWR3
JMP MMWRl
JMP MMSCH6
IGOOO EXIT
START
PDP

LIBRARY

Digital-7-20-IO
Page 36

DECTAPE VIRGIN TAPE AND SUMCHECK ROUTINES
IVIRGIN TAPE SUBROUTINE
IFORMAT
JMS MMVT lOR MMVTR
I
LAW 8
lOR LAC (8), BLOCK NUMRER
I
-N+l
INUMBER OF BLOCKS
I
JMP X
IERROR RETURN
I
l20000
IUNIT SELECTION
IMULTIPROGRAM RETURN
MMVT,

MMVTR2,

MMVWR1,

MMVWR2,

MMVWR3,

LAC (JMS MMVCHK)
DAC MMVWR1-1
LAC (1)
OAC MMSCFK
LAW 41
ISEARCH FWD
OAC MMVwR3+6
ADD (2)
OAC I'-'1MVWR1
LAC MMVT
JMS MMVCHK
lOR MMVCHR
LAW 43
IwRITE FWD OR wRITE REV
MMLC
CLC
OAC MMSUM
LAC (SAD MMWRA-1)
DAC MMAUTO
LAC I MMAUTO
MMEF
JMP .+3
LAW 600.
IERW, ERROR DURING WRITING
JMP MMERRX-l
MMDF
JMP MMVWR3
MMWR
MMRD
ICHECK IF BUFFER IS CORRECT
XCT MMAUTO
JMP • + 3
LAW 14?J0 18UF, BUFFER INCORRECT
JMP MMERRX-l
AOD MMSUM
nAC MMSJM
JMP MMVWR2
MMBF
J MP

t~ MV WR 2 + 1

LAC MMSUM
CMA

PDP

II BRARY

Digital-7-20-IO
Page 37

[JAr: MM\..JC
MMWR
LAW 41
ISEARCH FORWARD OR REVERSE
MMLC
LAC MMVK IMODIFIED BY EXERCISERS
XCT fvli"1AUTO
JMP .+3
LAW 12~0 IFLC, INCORRECT NUMBER OF FLAGS
JI'1P MME"RRX-l
LAC MMWA1
TAD MMSr:FK
DAC t-'1MwAl
r..,MEF
SKP

JMP tvIMV~JR2+3
rv1 MI)F
JMP .-4

IERROR OURING WRITING

f"lMRO

AND

(7777)

SAO /v1MWA1
JMP .+3
LAW 70~
IyMW, BLOCK MARK INCORRECT
J MP

!'-J ME ~ R X - 1

ISr MMWOC
JMP MMV~R1
JMP MMSCH6

MMVTR,

ICONTIN0E
IEXIT

LAC .-1
OAC i"iMV T
LAC (JMS MMVCHR)

o.A C t~ MV vJ R1 - 1

CLC
OAr. MMSCFK
LAW 61
ISEARCH REV
JMP MMVTR2
MMVK,

ILAST VIRGIN TAPE wORD +1

IDECTAP[ SUM CHECK PROGRAMS
JMS MMSCF lOR MMSCR

IFnRM~T

I
I
I
I
I

lOR LAC (8), BLOCK NUMBER
IN=NUMRER OF BLOCKS
IERRO~ RETURN
~r0000
IUNIT SELECTION
MULTI-PROGRAM RETURN

LA~ R
-N+1
JMP X

PDP

LI BRARY

Digital-7-20-IO
Page 38

MMSCF,

MMSCR2,

!.?

LAC
DAC
LAC
OAC
LAW
(JAC
Ano

(JMS MMVCHK)
MMSCF1
(1)

hMSCFt<
~1

ISFARCH FORwARD

~:;MSCF5

(1)
IRFAD MOGE
1'1MSCF1+l
LAC HMSCF
JMS MMVCHK
lOR ~MVCHR
LAW 42
IREAD FWD OR REV, MODIFIED
MMLC
DAC

MMSCF1,
MMSCF2,

~lMEF

JMP .+3
LAW ~00
IERROR DURING READING, ERR
JMP tvIMERRX-l
~1MnF

JMP MMSCF2
MMRD
I~EAD REVERSE CHECKSUM
[JAC 1"1i'1SUM

n AC 1'-1 MR 1/ C

MMSCF3,

fv1MEF
SKP
JMP MMSCF2+2
MMf)F
JMP f"IMSCF4
MMRO
IOATA
ADD Mi"'\SU~1
[JAC MMSUM
J 1-1 P

Mt~SCF

~1 MS CF 3

IERROR DURING READING

MMBF
Jt~P

MMSCF 3

MMRD
OAC MMROC

MMSCF5,

ADO MMSU~~
[JAC MMCC
SAD (-(71)
JMP .+3
LAW 50~
ISUM CYECK
J MP t--l MER RX-1
LAW 41
ISEARCH FWD OR REVERSE, MODIFIED
MMLC
LAC MMWAl
TAD MMSCFK

nA C f 1MrJ A1
v

~lMEF

PDP

LI BRARY

Digital-7-20-IO
Page 39
SKP
JMP MMSCF2+2
MMOF
JMP .-4
MMRD
AND (7777)
DAC M#MRfJ8
SAD f"ifV1WAl

IERROR DURING READING

JfvlP . +3
l.AW 10~0
/RLOCK MARK ERROR DURING READING, BME
J~P MMERRX-l
IS~ MMWOC 18LOCK COUNTER
J MP tv, MS CF 1 + 1
J~P

MMSCFK,

MMSC~6

IRE AD N X T RL 0 CK

IGOOD EXIT
/-0 FOR REVERSE, MODIFIED

/SUM CHECK RrVERSE
MMSCR,
VJ
LAC .-1
DAC t'lMSCF
LAC (JMS MMVCHR)
OAC MMSCFl
CLC
[JAC MMSCI="K
LAW Ai
/SfAPCH REVERSE
JMP MMSCR?
ICOMMON ROUTINE FOR PICKING UP VIRGIN TAPE CONSTANTS ETC
MMVCHK,
0
ADO ( -1 )
DAC t,1t1 AUT 0
LAC (JMS MMSCH1)
[lAC MMVCHl
IBLOCK NUMBER
LAC I MMAUTU
CAC MI'1VCH1+1
INLJMBER OF BLOCKS
LAC I jvlMAUTO
DAC f"iMWQC

MMVCH1,

IERROR RETURN
LAC 1 MM AUT iJ
nAC fvIMVCH1+2
IUNIT SELECTION
LAC I M~AUTO
OAC MMVCH1+4
lOR MMSCHR
JMS r-1MSCHl
I.. Ah'
/8LOCK NUMBER, MODIFIED
/ERROR RETURN, MODIFIED
J i'1 fJ
JMP MMVCH2
lEND RETURN

PDP

LIBRARY

Digital-7-20-IO
Page 40

MMVCH2,

/UNIT SELECTION
JMP I MMAUTO
ICONTINUE
LAC (OISMIS)
DAC MMSCH7
J/V1p I MMVCHK

MMVCHR,

(/j

AOD
['JAC
l.AC
(lAC
LAC
JMP

M~LTIPROGRAMMING

(-1)
MMAUTO
MMVCH~

MMVCHK
(JMS MMSCHk)
tv1MVCHK+4

START
88

MARK TRACK PROGRAM FOR DEC TOG
M=32ltH~00
8=670[~00

G =4500:10
O=07VJ000
GBAR=26(IJ(i'iVlvJ
BBAR=Vl40000
MBAR=51V10VJ~!

E=220000
EBAR=550tiJ00

INOTE THAT THESE MARKS AHE THE REVERSE OF THE WAY THEY ACTUALLY APPEAR ON
ITHE TAPF
WRMKTR,
EK,

JMS
LAC
OAC
LAM
[lAC

CLhFLG
(NOP)
l.JRM82
DECIMAL -7143 OCTAL
INO OF END MARKS
Cl
I~n OF E TO WRITE
Jt~S tvlMwAIT
LAS
/JNIT SELECTION ANO HIGHEST 8LOCK NUMRER
tvlMSE

.AND (7777)
eM/!,

[JAC INlr+2
HLT
LAS
INO OF DATA WORDS PER BLOCK
AND (7777)
CMA

AGD (5)
DAr .-;Rr!

PDP

LIBRARY

Digital-7-20-IO
Page 41

WRF,

LAC (47)
I~RITE BLOCK MARK TRACK, FORWARD
MMLC
LAC (E8AR)
MMOF
JMP

I NIT,

WRM,

.-1

MMWR
1St Cl
JMP WRF.+1
LAC (M)
OAC Mfvl
LAM DECIMAL -577 OCTAL
jMODIFIED
OAC r.l
INO OF BLOCKS TO WRITE -1
LAC (JMP ~.oJRl)ATA)
DAC l
fYiMFF
JMP .+11
LAC MM
ANO (7777)
OAC MM\..JAl
MMRS

DAC MMRSA
LAW 600
IERW
MML.C
. .JMP TSTMM6

LAC MM
MMOF
JMP
WRGBI\~,

.-1

fv1MWR
LAC (GRAf?)
~lMnF

WRBBAR,

"IMP .• -1
MM~~ R
L.AM -3

WRRB,

OAC C2
LAC (88AR)
MMDF
JMP .-1
HMWR

WRD,

JMP WRB8
LAM nECIMAL -251 OCTAL
[JAC C2

ISr C2
INO OF DATA FLAGS -1, MODIFIED

ION.

ICALCULATE ORVrRSE MARK, 1800US
COl,
LAC MM
PTL

RTL

PDP

LIBRARY

Dig i ta 1-7- 20-10

Page 42

RTL
DAC WA1
JMS CORV
6
RTR

RTR
RTR
A,!\JO

C02,

(77910)

nAC WA2
LAC wA1
~? T L

RTL
RTL
JMS COBV
6

RAL
RTL
RTt
RTL
AND (77)
XOR WA2
XOR (MRAR)
DAC MMBAR
JMP .
IWAIT FOR DATA TO FINISH
WR8,

LAt"l -3

WR82,

DAC C2
LAC (rj)
MMOF
,Jr-1P .-1
~1MwR

ISf C2
JMP i'iRB2

WRG,

WRMBAR,

LAC (G)
MMOF
JMP .-1
Mr-1WR
LAC MMH A'R
MMOF

JMP .-1
MMWR
WRMB2,

lOR JMP WRMB2+4

NOP

LAC
DAC
JMP

v.i RMR2

ISl

~'iM

IS~

(JfvjP

WRM82+4)

,n-1p IN Rt-1

WREBAR,

XCT EK
nAC C1
LAC (E)

FDF

LI BRARY

Digital-7-20-IO
Page 43

WRE2,

fvlMDF
Jrv1p

.-1

MM~JR

1St Cl
~H~P

h R E?

CLA
tvH·1LC
Ji~P

Mt-1,

wAl,
WA2,

~}I

MMBAR I

,,.,

IDONE

SUMF 1 A

WA3,
Vl
IWRITE DATA MAHKS, 12dUS, TDTAL=18l44US LEFT
DAC v"A3
WROATA,
LAC (D)
MMWR
LAC WA3
1St C2
SKP
Jr-1p WR8

ION
JMP I

START
IORVERSE LOOPS
IVARIAdLF COMPLEMENT URVFRSE LOOP, i48US+104US PER CHAR
IFORMAT
JMS OBV
I
6
/~o OF CHARACTERS FROM LEFT TO OBVERSE
COBV,
0
C MA
OA.C

C08Vl,

DRVi,

LAC
C,"'1A
DAC
1St:
OlM
LAC
RAL
GAC
LAC

IORIGII\JAL
08V'2
I COR V
08V ,,~

WORD

/r,OUNTER

08V~

OBV4
OBV2

INEW WORD

OBV2
ORV 4

RAR
UAC OBV4
TSil CYV,3
JMP OBVi
lSi C08V
JMP I C(H~V

PDP

II BRARY

Digital-7-20-IO
Page 44
OBV2,
OBV3,
OBV4,

Vi
(il

IVARIARLE NON COMPLEMENT OR VERSE LOOP, 176US+104US PER CHARACTER
OBV,
(-1
[JAC ClBV2
LAC 08V
OAC CiJRV

JMP C08Vl
START
TELETYPE ROUTINES ~ITH OCTAL PRINT LMH 8-8-63 (DLF 12-5-64)
ITURNS INTfRRUPT OFF
fOCTAL PRINT, wITH
IFORMAT
LAC ~·~D
I
Tr-JORnt
I

l~RO

SUPPRESSIO~

IN=NUMBER OF DIGITS TO PRINT FROM LEFT END OF WORD

OCTAL
TWORD~=Jt1S

•
[J A. C

LAC
nAC
LAC
CMA
DAC

r) C P l\j 11 U M
(Sl.A)

TWGR[Jt+17-Jr"1S
I TI,.JOR[1t-JMS

DCPC#NT

J S t i) CpeN T
1St- TWOROr-JMS

LAC liCPl\lUM
RTL

RAL
DACDC P i~ Ui"l
RAL
AND (7)
IMOOIFIED

S~A

JMP TWORDl+21:5-J:'1S
lS~ UCPCNT
JMP TwORDt+ll-JMS
TOIGIT

Ji"1P

TWORfJ:':-JMS

DAC DCpnitIG
LAC (JMD TwOROt+31-JMS)
nAC Two~nl+17-JMS
LAC 0 CP f) I G
TOIGIT

I Sr nCPCf\iT
JMP TWORO~+11-JMS
J MP I T I'JC) Rn t - J MS

PDP

LI BRARY

Digital-7-20-IO
Page 45

lorTAL PRINT, NO ~ERO SUPPRESSION
iFORMAT SAME AS TWORO~
TWORD=JMS .

[JCPNUM
LAC TWORD-JMS

[JAC

DAC

TWORn~-JMS

LAC (JMP T~ORO~+31-JMS)
JMP TWnRDt+3-JMS

ITABLE FOR OCTAL TO DECIMAL CONVERSION
DECIMAL
OCPTAB,
100000
1~000
1000
OCTAL

100

ITELETYPE OUTpuT PACKAGE MODIFIED FOR DECTOG LMH (nLF)
EXT =J i~ P I - ,J "1 S

12-5·64

TTA8=10

ITYPE 1 CHARACTER FROM AC AITS 12-17
TY1=JMS .
. (I;

PAR
Ji"lS T Y1 A
EXT TYl

ITYPE 1 tHARACTER (5 HIT), LINK INDICATES CASE
TY1A,

0
DAC
liND
SNA

T#EfvlY
(37

JMP TY2
703301
SKP

JMP TY1RRB
LAC OCL
SPL
L.AC OCl!

SAD DeS
JMP . 3
Jj"lS OTY
[lAC ()CS

FDF

LIBRARY

Disital-7-20-IO
Page 46

(
TY2,

LAC TEMY
JMS OTY
ISt T#RC
LAC TEMY
JMP I TY1A

ITYPE 3 CHARACTERS FROM AC 0-5, 0-11,12-17 RESPECTIVELY
TY3=,JMS .
(i':

Jr"1S
Jrv1S
JMS
JMS
JMS
JMS
[XT

RL 6
TY1A
RL6
TY1A
I-?L6
TY1A
TY3

ITYPE A CARRIAGE

RETU~N,

AND LINE FEED

TCR=,-H1S.

v
7~3301

JMP
LAW
JMS
LAW

TCRSSS,
TCkRRR,

lCRSSS
?15
DTY
212
,-JMP TCRRRR
LAW 2
JMS OTY
LAW l{~
JMS OTY

ntH Tac

rXT TCR

ITELETYPE OUTPUT PACKAGE - PAGE 2
ITYPE A SPACE
TSP=JMS .
(7:

L.l\ W 4

7033({'1
SKP

PDP

LIBRARY

Dig i ta 1-7-20-10

Page 47

LAW
JMS
ISf
FXT

240
OTY
TBC
TSP

ITYPE A TABULATION
TYT=JMS .
TAB=TYT
VI

LAC T8C
Ano (-TTAB-1
Si"1A
J'''1P

AOD

.-2

SMA

LAC (-TTAR-1
ADD (-1
DAC T#EM
TSP
IS~ TEM
JMP .-2
FXT TYT
ITYPEWRITER

INITIALI~E

TIN=JMS •

o
LAC GCl
OA,C OCS

703301
Jt"1S OTY
TCR
EXT TIN

ITYPE THE DIGIT IN THE AC
TDIGIT=JMS .
(~

AND

(1 7

ADD (LAC NCT
OAC . 1
XX
7033tJ!1

TDIGT1,

Jt-1P TDIGT1
RCL
JMS Rl6
JMS OTY
EXT TDIGIT
TY1
EXT TDIGIT
PDP

LIBRARY

Digital-7-20-IO
Page 48

ITElETYPE OUTPUT PACKAGE - PAGE 3
ITYPE A STRING OF CHARACTERS
TSR=JMS .
~j

TSR1,

[lAC
lAC
nAC
LAC
TY3
1St
Ji-1P
LAC

T#FMYl
(JMP TS~l
TY1A 4
I TF::MYl
TEHYl
.-3
( Jt1P TY2

DAr: TY1A

L.AC TEMYl
I:.XT TSR
IOUTPUT ONE FIVE 3IT CHARACTER

oT Y ,

IOF

OAC TWORO-JMS
LAC NIOT
703341
lAW
ICOUNTER
[JAC Rl6
LAC TWORO-Jr1S
TSF
SKP
JMP .+3
1St Rl6
JMP .-4
TlS
'OTY
JMP
IROTATE LEFT
Rl6,

ISAVE
ISKIP ON

PDP 7

63V1V?41
670071

RTl
HTl
RTL
JMP I Rl6
ITABlE OF DIGITS
NCT,

600033
64VJ0?5

610V173

620063

A5i1l0v!S

66r~053

700031
NIOT,
ICASE STORAGE

710007

OCU,
Del,

oes,

33
:37
,~

PDP

LIBRARY

Digital-7-20-IO
Page 49

14·7 ADDENDUM DECTOG
RCH
ADO (LAC MTATA8
DAC
1

TY1BBB,

StL
JMP TY2-2
J+1S RL6
RTL
RTL
JMP TY2-2
IBAUDOT TO ASCII, ASSUMES LETTERS CASE
1000 RIGHT HALF, EVEN LEFT HALF
MT.ATA8,
?it10324

TY1DDD,

215317
240310
316315
212314
322307
311320
~03326

305332
3Vl4302
323331
3~6330
3~1327

312377
325321
313377

START
REVISED MARK TRACK PROGRAM
RM=040440 126

R 8 =4 4 4 ll; 4 4 1 7 3

RG= 4 (li 4 0 0 4 1 5 1
RO=444001i1 170
RG8AR=~4404~

RB8AR=004000
RMRAR=400404
REBAR=404404
RE=040040 122
R25=04V!404

WFLAGS,

132
110
145
155

1;5

MMEF
SKP
JMS WRNVT8

IERW

\ PDP

lZJ

Digital-7-20-IO
Page 50

MMOF
JMP ~4FLAGS+1
t-1t-1W R

JMP I
RWMKTR,

WFLA~S

Ji'1S CLRFLG
JMS t"iMWA IT
LAS
IU~IT AND HIGHEST BLOCK NUMBER
MMSE
AND (7777)
CMA
nAC MMWA1 IRLOCK COUNTER
HLT
LAS
INUMBER OF DATA WDS PER 8LOCK
AND (7777)
CMA
AOD (5)
DAC MMWA? Iwns PER BLOCK
LAM DEC I MAL -7143 OCTAL
GAC MMWA4
LAW 47
IWRITE TIMING AND MARK TRACK FORWARD
MMLC
LAC (REBAR)
IRE VERSE END
JMS WFL

RWRM,

LAC
JI"1S
LAC
JtvJS
LAC
JMS
L.A t~
nAC
LAC
JMS

(R25)

WFLAGS
( f~ ~Jj )

IMARK
WFLAGS
(RGBAR)
hFLAGS

I-G

-3
HM~~A4

(ReBAR)

1-8

~JFL

LAC t"iMWA2
DAC MMWA4
LAC ( R0 )
IOATA
JMS WFL
LAM -3
DAC MMWA4
LAC ( R8 ) IFINAL MARKS
JMS WFL
IG
LAC ( RG)
JMS WFLAGS
LAC (RM8AR)
IREVERSE MARK
JMS WFLAGS
LAC (R25)
JMS WFLAGS
1St MMWA1
PDP

LIBRARY

Digital-7-20-IO
Page 51

JMP
LAC
DAC
LAC

RWRM
(DECIMAL -14286 OCTAL)
fvlMWA4

( RE )
WFL

JMS
JMP tv1M-3

WFL,

IDONE

(7!

JMS wFLAGS
1St MMWA4
JMP

.-2

JMP I WFL

/WRITE VIRGIN TAPE FO~ MARK TRACK ONLY
WRNVT,
JMS ClRFLG
LAC (1001)
JMS GENBLA.

IMARK

Dtrvi r"lM
Drl"! HMWAl

JMS MMwAIT

LAS

IUNIT

tv.MSE
DAC SUMF1+4

DAC FV:t8+4
J MS

i~ E IN I I'J

LAW 41
MMLC

ISEARCH FWD

CLC
[JAC

MMSUi"1

LAC (SAO MMWRA-1)

[lAC

f'l.MAUTO

rvlMFF
SKP

JMS wRNVT8

IERW

MMnF
JMP

WRNVT3,

.-4

LAW 43

IWRITE FWD

MMLC

ICALCULATE REVERSE MARK
LAC MM
RTR
RTR
.A NO

(70'?1000)

PDP

LI BRARY

Digital-7-20-IO
Page 52

PAC MMRAR IRITS 15-17
LAC MM
RTL
RTL
RTL
RAL
AND

RTL

(7vH100 )

ADO MMRAR
OAC

f-iMR AR

18ITS 12-14

LAC MM
RTL
PAL
AND (7000)
ADD MMRAR
OAC MMRAR 18IT5 9-11

LAC
RTR
RAR

t'H~

AND

(700)

ADD f-1MBAR
CMA
O.AC

WR~

. 'VT4,

tvlM8AR

18ITS 6-8

LAC I MMAUTO
MMEF

SKP

JMS

v~RNVT8

IERW

MMDF

JMP

~!RNVT5

MMWR
tv1MRD

XCT f1MAUT 0
JMP .+5
MMRS

[JAC f'-iMRSA.
LAW 140~
JMP ~~RM+10
ADD MMSUM

18UF

[JAC MMSUM

JMP WRf\JVT4

WRNVT5,

MMBF
JMP wRI\JVT4+1
LAC MMSUM
CMA
fl AC t>1 MWC
f'-1MWR

LAW 46

IWRITE THRU ENDS

PDP

LIBRARY

Digital-7-20-IO
Page 53

WRNVT6,

MMLC
CLC
OAC MMSUM
L A.C (SAD MMvoJRA-1 )
\lAC MMAUTO
LAM -1
DAC t-jMWA4
CLA
Ji'1S WFL
IWRITE -L AND G
LAC ~1M8AR IREVERSE MARK
JMS ~'liFLAr,S
IRE VERSE 25
rLC
JMS WFLAGS
IFORWARO 25
CLA
JMS wFLAGS
1St Mf"1
IUPDATE MARK
LAC MM
nAC MMWA1
JMS ~iFLAGS
IMARK
CLA
JMS r4FL AGS
I-G
rvlMEF
JMP .+6
MMRS
.A. NO (400v.10 )
St.A

JMP WRNVT7
jMS wRNVT8
MMflF
jMP wRNVT6
JMP 'wRNVT3
IAUTOMATIC CHECK SUM
WRI\!VT7,
CLA
MMLC
LAM -1
TAU Mi1
DAC K1
CMA
ADO

lEND OF TAPE

ISTARTING BLOCK

(1)

OAr: SUMF1+2
LAC (JMS MMSCR)
OAC SUMFl
LftC (JMP RVrR)
[lAC SUMF1A
jMP SUMFl
WRt'.~VT8,

(7i

Jt~P

IrJRI'1 +2

START
PDP

II BRARY

Digital-7-20-IO
Page 54
ISTOP ADJUSTMENT PROGkAM
IIF ACSO=0, GO FOR 1 SFcnND, OTHERWISE GO FOR 0.12 SECONDS
STAP,
JMS CLRFLG
JMS STAP3
D~M Cl
ICLEAR DIRECTION
JMS MM~lAIT
LAS
,..,lMSE

STAPK,
STAPK2,
STAPK3,
STAPK4,

LAW 40
IMOVE FWD
XOR Cl
IGET DIRECTION
MMLC
LAS
RAL
LAC STAPK
SPL
LAM OECIMAL -3750 OCTAL
10.12 SECONDS
JMS Tlt-IER
CLA
MMLC
LAC Cl
XOR (2~)
OAC Cl
ICHA~GE DIRECTION
LAC STAPK ISTOP FOR 1 SECOND
Jtv1S T I MER
JMP STAP+3
DEC I fvlAL -31.250 OCTAL
I i SECOND
DECIMAL -31.250 OCTAL
I i SECOND, PDP-4
DECIMAL 119287 OCTAL
I i SECOND, PDP-7
OECIMAL -17143 OCTAL
1.12 SECON8S, PDP-7

ITIMING.LOOP,
IFORMAT
LAC
I
JMS
TIMER,
0
DAC
ISr
,jMP
J MP

32 MICHOSECONDS PER COUNT FOR PDP-4, 7 MS FOR PDP-7
(-N)
/WHERE 'N=MICHOSECONOS OVER 32
TIMER

C2
I ,-1
.-1
I T I t-1 ER

STAP4,

SKP7
JMP STAP4
LAC (LAC STAPK4)
IFOR POP-7
fJAC STAP2
LAC STAPK3
DAC STAPK
Jt"1P 1ST AP ~
LAM DECIMAL -375~ OCTAL
IFOR POP-4
OAC STAP2
LAC STAPK2
JMP STAP4-2

I~DPI,

iLlBRARY\

Digital-7-20-IO
Page 55

IRECORD BLOCK MARK NUMRERS
RBMN,
JMS CLRFLG
JMS MMWAIT
LAS
MMSE
LAw MMWRA-l
DAC MMAUTO
LAM -3777
OAC WAl
JMS REWIND
LAW 41
MMLC
RBMNt,
MMEF
JMP .+6
MMRS
ANO (40G-H10)
SAD

RBMN2,

ISEARCH FWD

lEND OF TAPE

(4VlilH1I/J)

JMP HBMN?
JMP RBMNl-2
MMOF
JMP R8MN1
MMRO
DAC I f-1MAUTO
1St WAl
JMP HBMNl
CLA
MMLC
JMP SUMF1A
LAM
[JAC I MMALJTO
1St WAl
Jf1P .-2
JMP R8MN2-3

ITYPE END

IRE TURN FROM SUM CHECK TO WRITE FIRST BLOCK lERO NUMBER
RVtB,
JMS MMSCHR
LAW 1
IBLOCK NUMBER 1
JMP RVt8
IERROR RETURN, SEARCH AGAIN
JMP .• +3
IOONE RETURN
o
IUNIT
JMP •
IWAIT FOR SEARCH TO BE COMPLETED
~MDF

Jtvjp

.-1

t-1MRO
SiA
JMP RVtB5 INON-tERO 8LOCK FOUND
LAW 62
IREAO REVERSE

PDP

LIBRARY

Digital-7-20-IO
Page 56

MMLC

RVt:B2,

MMDF

JMP .+3
HMRO
Jt'1P

RVtB2

tvlMBF

JMP RVt82

MMRD
L.AW

IWRITE ALL RFVERSE

MMLC

RVtB3,

CLA
MMEF
SKP

JMP RVt=84
MMOF
JMP R V i.8.3+1

MMwR
JMP

RVl84,

RVtB3

MtvlRS

AND (400r;;,0)
SAO

(40000)

Jr'1P . +3

DtM MM
JMS

~!RNVT8

LAC

(Jr~S

TYPEND)

[JAC SUMF1A
JMP SUf"iF1A
INON-rERO RLOCK FOUNf)
RVlB5,
CLA
fv.MLC
TIN
LAC
T Y ~~
JMP

(FLEX

NtH)

IREWIND DECTAPE UNIT
REvJ IN f) ,
0
LA~./

f,(,1

IRFwINO

MMLC
fvlMtF

JMP .-1
tvlMRS
AND (4~10~)0)
SNA

JMP REwINO+l
JMP I REWIND

lEND

OF TAPE

IIGNORE ERROR

PDP

LIBRARY