Tennecomp_Minidek_Part_3 Tennecomp Minidek Part 3

User Manual: Pdf Tennecomp_Minidek_Part_3

Open the PDF directly: View PDF .
Page Count: 45

Download
Open PDF In Browser	View PDF

August I 1971

How to Use the Iv\i niDek
Wi th the

p D P 8j..!L- Computer

Parr III
Installation
Program Li stj ngs

Drawings

TENNECOMP TP-1351 MAGNETIC TAPE STORAGE UNIT

The TP-1351 "TENNETAPE" is intended for use with the PDP Family-of-Eight
computers. The TENNETAPE is a high-speed I/O device capable of replacing
most paper tape I/O, and operates at approximately 200 twelve-qit words per
second in both read and record operations. The TENNETAPE was inspired by a
less sophisticated unit constructed by J. J. H. Park of the National Research
Council of Canada.
.
The TENNETAPE utilizes continuous-loop tape cartridges popular in the broadcasting industry for their reliability and ease of handling. Standard program
cartridges have a capacity of 4096 computer words on each of their four tracks.
Changing one cartridge for another is a five second op~ration and may be done
with the tape in any position.
All functions of the TENNETAPE are software controlled except for track selection, which is by means of a four-position rotary switch. The processor is
used to assemble words for writing and to disassemble words when reading. Only
a single bit at a time is transferred between the processor and the tape unit.
Since signals are transferred on a bit by bit basis, the FORMAT of the information is completely determined by programming. Record operations of the
TENNETAPE are file-protected to prevent accidental destruction of valuable
sylllbolic text, data, or programs.
In conjunction with the TP-1346 Automatic Loader, the TENNETAPE offers unique
"one button" loading and starting of programs. The program proper is stored
on the TENNETAPE; the tape reading routine is mechanically read into the computer by the Automatic Loader.

INTRODUCTION
Interfd.~t:

Unit

Serial information read or written by the tape unit is transferred to and
from the computer by means of lOT pulses. The interface contains a 1 bit
buffer (BIT FLAG) which is set when a "one" is read from tape. There are
also provisions for writing a "one" on tape and sensing the Beginning-ofTape reflective marker which is positioned at the sp1ic~ in the continuous
loop. The tape may be considered to have no "end" or "beginning," but one
may not write over the splice without a chance of losing inform~tion.
The control contains two timing circuits which operate mechanical relays. One
reiay turns on the motor and engages the capstan and pinch roller (MOTOR/
PINCH· ROLLER RELAY) and the other relay switches the heads from a read
configuration to a write configuration (WRITE MODE RELAY). The relay timing
circuits· hold the relays in for a specified time each time they are pulsed.
The delay for the WRITE MODE relay is somewhat longer than the delay for the
MOTOR/PINCH ROLLER RELAY so that the tape motion can stop before the READ/
WRITE relay opens. Otherwise, some information on the tape might not be erased
when starting and stopping the tape.
The device code (second and third octal digit of the instruction) is normally
37 but may be varied by clipping diodes on.the device selector card in the
interface. The code is denoted by XX in the following list of instructions.
Instructions
SKIP ON BIT AND PULSE MOTOR (TPSP)
Octal Code:6XXl
-(See computer manual for lOT execution time)
Operation: The BIT FLAG is sensed and if it is set (indicating a bit read
from tape), the contents of the PC is incremented by one thereby skipping
the next sequential instruction. The MOTOR/PINCH ROLLER RELAY of the transport
is pulsed for 12 milliseconds. If a continuous loop of TPSP instructions is
given, the MOTOR/PINCH ROLLER RELAY will remain engaged as long as the TPSP
instruction occurs at least once every 12 milliseconds.
SKIP ON MARK AND CLEAR FLAG (TPMG)
. Octal Code:~X-2-(See computer manual for rOT execution time)
Operation: The Beginning-of-Tape photocell output is sensed and if it indicates the presence of a reflective marker, the contents of the PC is incremented
by one, thereby skipping the next sequential instruction. The BIT FLAG is
cleared. The output of the photocell is A.C. coupled and the mark must be in
motion to be sensed. TPMC is normally combined with TPSP to search for the
mark in the READ MODE or with TPWP to search for the mark in the WRITE MODE.

Introduction (Cont'd)

WRITE MODE AND PULSE MOTOR (TPWP)
Octal Code:--6XX4
(See computer manual for lOT execution time)
Operation: The READ/WRITE relay is pulsed for 55 mil1isec. (The relay
requires about I millisec to pull in.) The READ/WRITE relay connects the
tape head in the WRITE mode and begins to saturate the tape in the "zero"
direction. When the READ/WRITE relay has pulled in, TPWP will also pulse the
MOTOR AND PINCH/ROLLER RELAY for 12 millisec. Thus a continuous loop of
TPWP will erase the tape.
WRITE MODE AND RECORD BIT (TPWB)
Octal Code:--6XX5
(See computer manual for lOT execution time)
Operation: The WRITE MODE RELAY is pulsed for 55 milliseconds and the MOTOR/
PINCH ROLLER RELAY is pulsed for 12 milliseconds. A pulse is written on tape.
If TPWB instructions are given, at least every 12 milliseconds, continuous tape
motion will result.
WRITE MODE AND SKIP ON MARK (TPWM)
Octal Code:--6XX6 - - - - - (See computer manual for lOT execution time)
Operation: A combination of TPWP and TPMC. Pulses the WRITE MODE RELAY
for 55 milliseconds and the MOTOR/PINCH ROLLER RELAY for 12 milliseconds.
The Beginning-of-Tape photocell output is sensed and if it indicates the presence of a reflective marker, the contents of the PC is in,crementedby one,
thereby skipping the next sequential instruction. The BIT FLAG is also cleared.
A continuous loop of TPWM is used to search for the Beginning-of-Tape mark
erasing tape while waiting for the mark.
Operating Controls
Refer to the following sketch.
File

Cartrid e Insertion Slot

....
Lift here
I

,

I

o
0
FI LE PROTECT
o

(

p:gram Control Motor/

:

Manua I Contro I Motor
(on rear apron)

"'-, File

Tape Cartridge -

Figure 1.

Track Selector
Switch

FRONT Pfu\JEL CONTROLS
I

Protect Pin

OPERATION
Read and record operations of the TENNETAPE require short programs to be .
resident in the computer memory. Normally both programs are stored in the
last page (200 words) of memory along with the RIM loader and are read
into memory by the RIM loader.
Recording on the TENNETAPE is accomplished as follows:

on the

(1)

Read in the tape record routine from paper tape
ASRw33 Teletype using the RIM loader;

(2)

Insert a file protect pin into the hole in the cover of
the tape cartridge to be used;

(3)

Push the tape cartridge firmly into the front panel slot;

(4)

Set the track selection switch to the desired channel;

(5)

Set the computer's front panel switches to 77008 and press
the load address switch .. then the start s w i t c h ; "

(6)

The computer will immediately halt. Set the initial octal
address of the block of memory to be recorded on the computer
front panel switches and press the continue switch;

(7)

The.computer will halt again. Set the final octal address
of the block of memory to be recorded on the computer front
panel switches and press the continue switch;

(8)

Check the file protect light on the TENNETAPE front panel.
If it is on, the record operation will not take place.
If you have forgotten the file protect pin .. stop the computer ..
remove the cartridge, and insert the file protect pin; and
start the procedure over again at step (3);

(9)

At the end of the record operation; the computer and the
tape motion will halt, The cartridge may be removed by
lifting up on its protruding end and pulling gently out of
the front panel slot;

(10)

Remove the file protect pin from the hole in the cover of the
tape cartridge to prevent accidental destruction of the information just recorded.

Reading from the TENNETAPE is-_ac-complished as follows:
(1)

Read in the tape read routine from paper tape on the ASR-33
Teletype using the RIM loader;

(2)

Push the

(3)

Set the track selection switch to the desired channel;

tape cartridge firmly into the front panel slot;

Operation (Contld)

6

(4)

Set the computer's 'front panel switches to 76008 and press the
load address switch, then the start switch;

(5)

Upon completion of the read operation, the computer and the
tape motion will halt. The checksum will be displayed on the
accumulator lights on the computer front panel. (Zero indicates a correct read operation, and non-zero indicates an error.)

For routine operation, it is convenient to prepare a systems cartridge which
holds the record routine, a short binary loader, and a read-compare routine,
rather than to obtain these routines from paper tape .. Preparing a systems
c~rtridge is facilitated by use of the system builder routine as follows:
(1)

Read in the system builder routine from paper tape on the
. ASR-33 Teletype using the RIM loader;

(2)

Insert a file protect pin into the hole in the cover of the
tape cartridge to be used;

(3)

Push the cartridge firmly into the front panel slot;

(4)

Set the computer's front panel switches to 2008 and press the
load address switch, then the start switch;

(5)

The computer will type out "Track 1 Record" and halt. Set the
track selection switch to channel I and press the continue
switch on the computer front panel. The record program will
be recorded on tape;

(6)

Step (5) will repeat for "Track 2 Short Binary Loader," "Track 3
Read-Compare," and "Track 4 Rim Loader." Set the track selection switch to the indicated channel at each halt and press the
continue switch;

(7)

Remove the cartridge from the front panel slot and remove the
file protect pin from the hole in the cover of the cartridge;

(8)

The teletype printout may be cut to size and used as a label for
the contents of the system cartridge;

(9)

The systems programs may now be read from the tape in the manner
described above'for reading. The "Record," "Short Binary Loader,"
and "Read-Compare" programs all start at 77008; only one of
these is resident in the last page of memory at a time along with
the "Read" program.

(10)

The "Short Binary Loader" may be used to read binary tapes on the
ASR-33 Teletype without the memory extension option;

(11)

The, "Read-Compare" may be used to check information recorded
on tape with information resident in memory. Errors are indicated by the toletype bell, and an "0" or an "E" is typed at
the end of the comparison indicating "O.K." or "Error."

7

PRINCIPLES OF OPERATION
Refer to the print of the Tape Unit Interface.
Write Mode
In the write mode of operation, information is recorded bit serial in the
selected track by means of the WRITE ONE SHOT. The pulse width is 134
microsec. Typically, a timing pulse is recorded, followed by 12 bit
pulses. Curve (1) of Figure 2 shows a timing pulse followed by bit pulses
for a word containing 7253 8 , The record mode of operation is. selected by
IOT-4, which causes closure of the WRITE MODE RELAY. The relay remains
energized for 5S milli.seconds each time the pulse is given. The time duration
is determined by an 8 microfarad capacitor connected across the input of a
WI07 module. The IOT-4 pulse discharges the capacitor to zero volts, and
the capacitor gradually charges up through the input circuit of the WI07.
The WID7 is a special DEC module which consists of two inverters in tandem.
The output is non~inverting. The first inverter requires only about .2 rna
input for proper operation, rather than about I rna, as with the standard
RlD7 inverter.
Read Mode
In the read· mode of operation, the signal from the tape head appears as
shown in Curve (2) of Figure 2. Two 1J. 709 operational amplifiers are used
to amplify the head voltage. The amplified output signal goes to a Schmidt
trigger circuit. The dashed line on Curve (2) of Figure 2 illustrates the
~,chmidt trigger threshold.
When the signal goes more negative than the
threshold the Schmidt trigger goes from -3 volts to ground l as shown on
Curve (3) of Figure 2. The leading edge of the signal from the Schmidt
trigger is used to set the BIT PLAG flip flop, as shown in Curve (4) of
Figure 2. IOT·1 tests the state of this flip flop and causes a SKIP if
the BIT FLAG is set. IOT-2 resets the flip flop.
In normal read operation, a series of 10T-l's is given to find the first
timing pulse, Then an 10T ... 2 clears the BIT FLAG. Then" the processor is
programmed to generate an IOT~l in about 402 microsec, followed by 11 more
lOT's every 468 microsec. These 10T-l's test the state of the BIT FLAG,
which is then reset by 10T·2's. The extra delay following the timing pulse
strobes the BIT FLAG half way between bit 0 and bit 1. The next 10T-1
strobes the BIT FLAG half way between bit 1 and bit 2, etc. This method of
strobing gives a tolerance of approximately 125 microsec to timing errors.
The cumulative timing error of the last IOT-1which test bit 11 should be
much less than 125 microsec.
On the PDP-8/S, the time delay for writing and reading is produced by the
program loop which generates the write pulses and the strobe pulses. On
faster computers, extra delay must be programmed in by means of delay subroutines. The pr~cessor cycle time and the memory cycle of the PDP-B/S
are separately adjustable and will vary somewhat. To insure compatibility
between one computer and another, the cycles times will have to be adjusted
to within the timing tolerance of the transport, or else the program can be
"padded" by extra dummy instructions.

Principles of Operation (Cont'd)

&

In the read mode, IOT-l also pulses the MOTOR/PINCH ROLLER RELAY and causes
it to close for 12 milliseconds. In addition to resetting the BIT FLAG,
10T-2 also tests the output of the Beginning-of-Tape mark photocell, causing
a skip whenever the mark passes by the photocell.
File Protect
The presence of the FILE PROTECT PIN actuates two microswitches in the
transport unit. One of these is connected in series with the write mode
relay so that if the FILE PROTECT PIN is absent the heads are not connected
in WRITE MODE. The other switch turns on the FILE PROTECT LIGHT if an attempt
is made to select WRITE MODE without the FILE PROTECT PIN.

Tape Cartridges
Standard tape cartridges are loaded with Scotch Type 282 "sandwich" tape. Sand ...
, wich tape prolongs both the life of the tape head and the life of information
stored on the tape. The tape is spliced with 3/8" of splicing tape on the
back side, and a 3/8" strip of reflective tape is placed on the front side,
trailing the splice by 1/4". The tape has from 1" to 2" of slack in the
continuous loop; less slack causes jerky oepration while more slack may cause
jamming of tape after it passes the pinch roller.

The TENNETAPE is provided with three standard program cartridges of 25 sec
length and one 100 sec tape. Additional cartridges, with tapes of 25, 100,
or 400 sec duration may be ordered from Tennecomp. Tennecomp cartridges are
covered by the TENNETAPE warrantf.
Users desiring to load their om1 cartridges should obtain satisfactory
, results with the following materials:

(1)

FIDELIPAC Cartridges

(2)

Scotch Type 156 Digital Tape!

(3)

Robbins Type

(4)

SC9tch Type 51-7/325 Alummized Sensing Tape

TST~23S

Splicing Tape

These materials can be obtained from Allied Electronics, 100 N. Western
Avenue, Chicago, Illinois 60680. Substitutions of other type materials
'are not recommended,

9

-

--

~

n

o

- .,

•

.

•

I

,..- ...

,,"'-"

t ,
••
I•

,

I

g

a

j

,- -1

I
i

•

,

Q

• •
•

,

'0"

~

~

,

]

I

I

@

®
I

I

t

I

J !

~

.~

I

I

I

I

~ ~

Figure 20

LU
Tape Signals

,
I

•

I

i
!

.~ ~ ~ ~

@.

10

PROGRAMMING·
Recording
Refer to the listing of the TENNETAPE record routine. From the initial and
final addresses l the processor calculates the negative of the number of words
to be recorded. Then the write mode is selected and the tape started in
motion, erasing previous information. A search for the reflective marker
is started; when it is found, a three second delay of erase only is entered
to insure that the tape is up to speed l and that the vicinity of the splice
is past the head before actual recording begins. The first recorded word
is the initial address, the second is the negative of the number of words
recorded, and the rest but one are the desired information. The last word
recorded is the checksum for the operation, namely the least significant 12
bits of the sum of all the recorded words.
Reading
Refer to the listing of the TENNETAPE read routine. A search loop for the
reflective marker is entered, and upon exit a one second delay is entered
to allow the splice to move past the head. The routine then searches for
the timing mark of the first word ,~hich it tal,6s as the initial address. The
second word it takes for the negative of the number of words to read, and it
then reads that number of words and deposits them in sequential memory
locations starting at the initial address. The r~ad routine keeps a checksum
of all but the first two words. Upon reading all information words, the
routine reads· t,he next word as the recorded checksum and compares that checksum with the one it has calculated. The difference between the two checksums
is placed in the· accumulator and the routine halts.
The read program can easily be modified to do either of the following:
(1)

Transfer control to some preassigned memory location when
the calculated and recorded checksums agree;

(2)

Compare (but not deposit) the information on tape with that
in memory and ring the Teletype bell if the two do not agree.
This read-compare operation is the best way to verify that
record operations were successful.

Editing
Refer to the listing of EDIT-8 modifications for TENNETAPE I/O. The high
speed reader options have been replaced by TENNETAPE I/O routines; otherwise editing is unchanged and operates according to the EDIT-8 manual. Text
written on tape is blocked out in S74 B word buffers for compatibility with
PAL~III input; the operate/test switch must be in test position to get the
tape up to speed ~apidly.
The two least significant positions on the computer's front panel switches
are used to denote tape input/output or Teletype input/output--one means
TENNETAPE I/O, and zero means Teletype I/O.

Programming (Cont'd)

11

One additional requirement is necessary for the TENNETAPE system. A dollar
sign ($) must be the last character in any' string of text for output; the
last buffer most likely will not be exactly filled and the dollar sign is
the symbol required to start output of the buffer.
It should be noted that the space available for text in the editor has been
reduced somewhat, but there remains ample storage space to handle one page
of liberally annoted text.
Assembling
Refer to the listing of PAL~III modifications for TENNETAPE input. The hig~
speed reader option has. been replaced by TENNETAPE input routines; otherwise
assembling is unchanged and operates according to the PAL -III ma~ual. The
operate/test switch must .be in the test position to get the tape up to speed
rapidly. The least significant bit on the computer front panel switches is
used to denote TENNETAPE input or Teletype input; one means TENNETAPE input,
and zero means Teletype input.
File Operations
Refer to the listings of the TENNETAPE file routines. The routines are
quite general and require two pages of memory; more $pecific routines could
be condensed into less space if necessary. All file operations should be
done with the operate/test switch in test position unless the delays change
to give more time for the tape to come up to speed. The format of files used
by these routines is:

WBOT (Beginning"Of Tape in Write mode) is necessary for initialization of any
given track on a tape. The routine writes l's at the end of tape and erases
a short section of the tape to space the splice past the tape head. Upon
return from WBOT, the tape is ready for writing files.
RBOT (Beginning Of Tape in Read mode) is used to find the beginning of tape.
Upon return from RBOT, the tape is ready for reading files, and for writing
files if the track has been previously initialized with WBOT.
WRITE is used to record the portion of memory from IA to FA. The file is
identified with the CODE word specified by the contents of the AC when WRITE
is called. The error return indicates that the end of tape was encountered
during recording and the operation aborted, the tape being spaced to the
beginning. of tape point.
READ is used to read a file from the tape into the portion of memory from
IA to FA; the code word is returned in the AC. The error return signifies
one of the following errors has been made; the error flag word may be found
in ERROR of the READ routine (READ + 102 8):
(a)

The tape was not in an inter-record gap when READ was
calle~ (flag word ~. READ + 63 8):
The tape was spaced to the
next lnter-record gap and the AC contains the code of the
last record read;

Programming (Cont'd)

12

(b)

The size of the file on tape'differs from the size called
for (flag word = READ + 1028). The tape was spaced to the
inter-record gap and the code is in the AC;

(c)

The checksum on tape differs from the checksum calculated
during reading (flag word == READ + 51 8). The code is in
the AC;

Cd)

The end-of-tape was encountered and the read operation was
aborted (flag word = READ + 61 8). The tape was spaced to
the beginning-of-tape point and the AC contains either the
code word or 7777~ depending on whether or not part of a
record was there.

SPACE is used to skip over the number of files indicated by the contents
of the AC when SPACE is called.

SEARCH is used to read a file with the code word specified by the
contents of the AC when SEARCH is called. The error return indicates
either that a file with the specified code was read incorrectly due to
one of the error conditions discussed above with reference to READ
CAC == 0) or that the end of tape wflsencountered without finding a file
with the specifiedcode.lAC :;: . . 1). If the tape was not at the beginning
of tape point when SEARCH was called, the proper file may have been on
a prior portion of the tape and SEARCH should be called again to find
it.
General Note
\

Due to the programmed delays for bit-to~bit timing in reading and writing,
all tape operatiorts should be protected from interrupts or data breaks
during the inner read and write subroutines.

6. 1

TP-1371

INSTALLATION INSTRUCTIONS FOR PDP-8/e'

Installation of the TENNECOMP TP-1371 requires the following st-eps:

(0)

Unpack i-he box and inspect a II components. tv\ake sure that none of the wi re-wrap
pins on the base of the control logic panel are bent or shorted and that no mechanical
damage has been done in shipment. Insert the cards firmly in their sockets.

(1)

Mount the j-ransport in a standard 19-inch relay rack. The trcmsport is normally
shipped wif·h tlearsll for rack mountin[j. It may be specified for Iltable top mounting Jl ,
in which case, itis shipped with Ufeet"instead of "earsl!. The feet are necessary
,for table top mounting to insure adequat-e air flow. The transport requires 7 inches
of rack height.

(2)

Make sure that there is adequai'e venti lotion for \-he transport. I t is necessary t'o have
free air flow through j-he louvers on f-he bottom of the cabinet i-o avoid excessive
internal t'emperatures. Do not mount the transport immediately above a large obstruction which blocks the air flow louvers. If the transport is IItable topl! mounted, make
sure that I-he rubber fee1- are in place to a !Iow an ai r flow gap between the transport
and the table top.

(3)

Turn off the 8/e and open it.

(4)

AHach the transport power wires to the lugs (3) on the interface card (TP023) in the
following order, stari"ing at the green blocks (see sketch):

+5 V
-15 V
Ground

RED
BLUE
BLACK

(5)

Check for loose plug-in cards, bent· or broken wires, etc., then plug the interface
card (attached to I-he green blocks and the other cards) into i-he rearmost siot of the
omnibus. Move previously installed cards forward the appropriate number of slots.
Some care is required 1-0 pass i'he control card (i-he center one) over the omnibus power
wiring. Ensure that the cards do not grind together. The resulting orientation is
shown in tl'1e sketch. The green b locks a re upper-most; a II components face forward
in the computer; the power and interface cables sit near i-he tray on the computer
power supply.

(6)

Attach a 110 V line cord to the transport- and plug it into the back of the PDP-8/e
(or a wall receptacle). The transport AC power should be de-energized by f-he computer
console power switch in order to prolong the motor life (the motor is rated ai- several
years of continuous'duty).

(7)

Plug the red, blue, and black wires onto the similarly colored sockets on the transport
rear.

(8)

Plug the printed circuit paddle marked 11111 into the 18-pin socket- on the transport
(make sure the pins mate - it can be inverted). Anach its other end to the IIMolex li
9-pin socket- marked 11111. Repeat if a second tTonsport is used (TP-1372).

6.2

(9)

Now energize the AC power to the computer, the transpori', and the control electronics. Give the system i'he "smoke test". Look for telltale wisps of smoke or
unusual sounds or smells. If all seems well, attempt to load a memory cell from
1,he PDP-8/e console switches to see if the compuf-er is working normally. If not,
check that the cards clear each other and the surrounding wiring. Check compui'er
vol tages.

(10)

Insert a cartridge in the transport; then pull it out and look to see if the capstan is
rotating (only if toggle switch on transport is in ('manual motor control II position).
The capstan should be slowing down to a halt. If it did not move, check the above
switch r the 110 V, and the+5§ -15 V ground lines.

( 11) Toggle in the following shori" program:
200
201

202
203
204
205
206
207
210
211

1210
6375
6373
5202
021'1
7450
5202
7402
0002

0010

TAD

210 ILOAD COMMAt~D REGISTER

lOT 375

I

lOT 373

15KIP & READ STATUS

JMP .-1

I

AND
211 I
SNA
/BEGINNING OF TAPE?
JMP .-4
I
HLT
/STOP
0002
0010

;WRITE COMMAND BITS
/MASK FOR IIBOTII

Insert a cartridge, load address, and start at location 200. The tape reel should
turn and the computer should stop when t-he splice comes around (about 25 seconds
for a 4K cari-ridge). The llfile protect ll light on the transport should come on if
the IIwrite allow" pin is not inser1"ed.
(12)

If the simple program works correctlYr try i"o record and read a full 31-page program
(from location 0 to 7577) You can use whatever junk happens to be in memory. If
you want to make sure that the program roaded a II right I check a few cells and
modi fy i-hem after you record. Then see if t-hey come back aft-er i"he read.
e

(13)

Now you are ready to go .. Refer to the programming write-upe

6.2

:TO .Tf!AlI---!J!aRT 2.

I

~RJ:EN731.0CKS

INTER. FACE CAR [)
~OMPONcN7

$/OE

TAPE TRANSPORT #: 1

I1Et10RY., FI RST PLACE THE CAETH! DGE HI TH THE DESI RED
FOCAL TEXT. INTO THE l<11NI DEK C.C\RTHI DGE SLOT.
PLAt:
I
THE T}1AC}-( SELECT SHI TCH ON THE "AUTO" POSI T1 ON. IN
/
RESPONSE TO FOCAL'S ASTERISK C*)., TYPE THE COMMAND
I
"LIBHAnY IN X"~ v.1iEHE "XU I STIlE TRACI{ 11-IAT rONTAINS
/
THE TEXT., AND HIT RETURN. TIiE TEXT WILL BE READ INTO
"/
MEMORY, THE VARIABLES ERASED., AND CONTROL-RETURNED
/
TO FOCAL.
THE C,9!:~r1AND "LIBRARY IN X" t'JAY BE AB
/
VIATED AS rtL" I XU AND MAY BE GI VEN AS AN INDI RECT
/
COI1MAND IN YOUR FOCAL PROGRAM.
/

PRO GHAttlMI NG NOTES:
\.JHEN USING EI THER OF THE LI BRARY COIvlIolANDS IN AN
/
INDIRECT CAPACITY~ THE FOCAL PROGRAM WILL STOP
/
(SAt-lE EFFECT AS THE Hour Tn COl\lL'~AND) AFTER THE
+
ACT! ON HAS BEEN TAKEN.... THEREFORE ANY CO,...,I'.--.c-1M
..A-.-cN----=D--=S~~~
/
G1 VEN AFTER THE LI BEARY COI'/1i'o'lAND ON THE SAME LI NE
. /
t'lILL BE IGNORED.

+

/

SLIGHT MODIFICATIONS TO FOCAL PROPER

*1012

1012

7000

1173

6321

6321
6322

Lt560

NOP

, / DELETE HIGH SPEED READER

*1173
LIBRARY

I

POINTER TO LIBRARY ROUTINE

SPNOR
TAD CHAR

/

GET NEXT'NON-SPACE CHARACTER

*6321
1066

LIBRAR..t

6323
6324
6325
6326.
6327
6330
6331
6332
6333
6334
63~35

6336
6337
63 L10
63 / 11

4542
45/15

4550

1376
7410
5324
4560
4561
4566
14566
636L!

6373
7000
0363
7640

63L42

53/17

6343
63/..!LI

7325
0000

63LJ5
63L16
63117

5345
6365

6373

6350
6351
6352

036 L1

6353

71171
r:..
~ '--' v

635L}

700 Ll
3167
1 III 3

73LHa
1 (iJ 5L1

6355
6356
6357
6360
6361
6362
6363

0010

6361-1

0003

/15 LI7

6364
000.2
L1566

6365· 0311
6366. 0317
7511
~. 6367
. 6370
7533

/ SAVE KJ P@lH (PUSH- DOt·}N LIST)
0/ GET NEXT CHARACTER
/ IS IT A TEHt"iI NATOR???
GLI 51'- °1 / TEHMINATOH.LIST POINTER
SKP
/ YES.
GET TRACK NUMBER
/ NO • KEEP LOOKING
JMP • -4
/ GO PAST TEHMINATOR (SPACE)
SPNOR
/ MAKE 'SURE IT'S A NUMBER
TESTN
(..,:
ERBOR7 / ?25.91
FOUI'JD~'PERl aD
ERHOR7 / ?25c92
FOUND TEPJ;lI NATon
/ CLEAR THE GAP FL.AG
CGAP
/ GOOD. REA 0 t>1 I N I DEX STATUS
SHSR
NOP
/ SKIP PROTECT
/ MASK OFF SPLICE 1 BIT
AND BOT1
/ IS I THERE??
SZA CLA
•
.+5
/ YES. DON'T HAVE TO RE1;·JI ND
JMP
I NO. REHIND TAPE UNI T
GET CNST3
/ LOAD C011i'1AND REGISTEB
CHCH
(/ SElP ON SPLICE
SRSR
JMP -1
/ CLEAR BOT FLAG (UNIT 1 )
CLB1
/ TAD MINUSl
GET CNSTMl
/ SUBTRACT 1 FROM TRACK NilllBEE
TAD SORTCN
/ HAl{E SURE NO OVERFLOW
AND C3
/
eLL HTL
ROTATE 3 LEFT
RAL
/ STORE THAC}{ NUt1BER TEI'1P.
DCA TEMPt
/ GET fSUB-COr-'1r]AND FROtvl PDL
POPA
/ sonT AND JUt-H)
SORTJ
/ SOUBCE AND DESTINATION LI$
LLISTl-l
LLIST2-LLISTl
ILLEGAL SUB- COf1MAND
ERROR7 / ?25.;3
/
BOT
MASK
10
1
BOTl"
/ TRACK !>1ASK
3
C3"
/ "In FOR "IN" FOR "READ"
LLISTl" 0311
/ "ou,FOR "OUT" FOR "RECORD"
031 7
/ JUMP TO READ ON I
LLIST2" READ
/ JU£1P TO HRITE ON 0
HRITE

PUSHA
GETC
SORTC

--

--

C>

--

*7503

,.""

..,.~ ..

07503
7504
1505
7506

0000
1567
1171

7507
7510
7511

2167
5703

"._.-.,.

.....

3171

7301

UPDATE" 0
TAD
TAD
DCA
I SZ
JMP
GET
READ"

/

UPDATE POINTERS ROUTINE
UPDATE CHEC}{SUM

/

INCREMENT LOC.l\ TI ON POINTEH

/

READ TEXT--AC = 1

/

I TE!>lPl
TENP3
TEMP3
TEMP!
I UPDATE
CNST!

~

.

.'.

1512
7513
7514
7515

4351
3060
'4361

4357

7516
7517
7520
7521
7522
7523

1-1351

752/4

70L11

7525
7526
7521
7530
".7531
7532
7533

1111

753/1

7535
7536
7537
75/J0
75/-11
75/-42
75L13
75LJA
75/15

3561
143(;; 3

2170

5316

76/40
'1566
1060 "
3031
55/J1
7305
1!3S1
11573

L1367

1567
r"'.

L'!JOd

4303
2170
53 L11

I t 71

75/17

L1363

7550 55 / t,1
7551 . 00GJ0
7552 3172
1553 1172
1554 1.167
7555 6375
-·7556 5751
7557 ·0000
7560 L1573
6376
7561
7562 5757
'7563 0000
7564 6374
7565 45'73
7566 5763
7567 0000
7570 1060
7571 70/-10

....

·HHITE,

4363
I. - •.-

SETUP
READH
BUFR
I t~I TAL
REA.DH
I TEr-1P 1

SETUP.,

/

UPDATE
TEfvIP2
e-/4

/
/

HEADv]

/

TEt>'1P3
CLA

DCA LASTV
POPJ
GET C0JST2
JMS SETUP
JMS I viAl TX
TAD BUFR
Jt·~S HECORD
JI"-lS INITAL
TAD I TEMP1
JMS RECOriD
Ji'1S UPD~TE
I SZ TE1'iP2
JMP .-4
TAD TEt;lP3
Jt1S HECORD
POPJ
0'

DCA J:.1ASK
MASK
TAD TEMPI
CLen
JMP I SETUP
TAD

"READ~v.,

/

I
/
/
/
/

ERROrt7
TAD STAHTV

106(3

1546

,

JMS
JMS
DCA
JMS
JNS
DCA
JMS
I SZ
Jt1P
Jt1S
CIA
TAD
SZA

11351

0
JMS I

\vAI TX
R\vCF
JMP I READ'"

RECORD., 0
THCF
JMS I \-lAITX
JMP I RECORD
INITAL., 0
TAD BUFR
CMA

/
/
/
/
/

/
/
/

/
/
/
/
/
/
/

I
/
/

SET UP TAPE UNIT
FIRST vIORD
STORE AS LAST TEXT LOCAT! ON
INITIALIZA PKINTERS
READ DATA ~\JORD
STORE IN MEiVlORY
UPDATE POINTERS
COUNTDO \llN HORDS :,
NOT FI NI SHED.
HEAD CHECKSUM
READ

~

NEGATE

ADD CALC. CHECKSUM
READ EHROR???
? 30.87
CHECKSUf:.1 ERROR
NO. ERASE VARIABLES
...

--

EXIT
BECOHD TEXT--AC == 2
SET UP TAPE UNIT
\·JAl T FOH FIRST THANSFER
GET LASr TEXT LOC.
RECOHD IT.
INITIALIZE POINTERS
GET DATA. HORD
REC Of.,: D IT

UPDATE POINTEHS
THANSFEi1 COr1PLETE?

NO.

< ...

YES. GET CHECI{SUI1
RECOHD IT.
EXIT
SET UP TAPE UNIT ROUTINE
STORE FUNCTION MASK
CALCULATE C01V1i'IAND
ADD TRACi{
LOAD "COI"1t1AND REG.
RETURN
/ READ A HORD ROUTINE
/ HAlT FOR vIORD
/ READ HORD AND CLEAR FLAG
/ RETURN
/ RECORD A \ClORD ROUTINE
/ TRANSFER AND CLEAR FHAG
/ HAlT UNIT DONE
/ RETURN
I SET UP POINTERS ROUTINE
I GET LAST TEXT LOCAPION
/ SEtvn -NEGATE

/
/
/
/
/
/
/
/

.>
\(~

7572
7573
7574

1133
3178
1133

7575
7576

3167
3171

7577

5767

CFRS
DCA TEMP2
TAD CFRS
-DCA TEMPl
DCA TEMP3
JMP I INITAL
TAD

/ ADD FIRST TEXT LOC.
'/' STORE NEGATIVE vlORD
/ GET FIHST DATA LOC.
/ SET UP ADDR POINTER
/ CLEAH CHECl{SUM
/

COUNT

RETURN

*6160
5160
6161

6162
6163
616 L1

6165
6166

0000

\.JAI TH,

6373
5361
0172
7650

0

/

SHSR
JNP .-1

/

AND NASK
SNA CLA

5760

Jt1P I

FOR READY
SKIP ON STATUS
\']AI T

vIAl T\·]

)- 'r
"

v..r- '*

"

OFF FUNCTION
CORRECT FUNCTION??
/ 124.;7
TAPE FAILUHE
/ YESI>
RETURN
/

MASK

/

ERROR7

L1566

•

--

*'

*0167
0000
0000
0000

TEMPI,

(iJ

0170
0171

TEt1P2,

TEr-iP3"

0
0

.0172

0000

l'1ASK,

0

0173

6160

HAITX"

~IAI

0167

I

T\o1

/
/
/
/
/

DATA ADDRESS STORAGE:
\tJORD COUNT STORAGE
CHECKSU£lJ STOBAGE
. FU0JCTI O:'-J r'lASK
INDIRECT POINTER

THAT'S ALL! ! !
 3 'I /J
-r
I S~1 I F'j iU~ (11 S TEi { ~ ,\J n CL EI\ J:~" id TF. FLr:, Ci
/ 1 !':-;' 1\ \J S F Ei { i ~ F ,t~ D q TJ F F E: i ~ r~ F. (; 1 ~~ 1 i\ l ~
H~': C F= 6 ~ '/6
I TJ (') C C UI'. r JL r'\ T J ; { r'\ c\} n C LEA!'\ •~ E ,'\ D f'L f) Ci
\'H-:JH= 63 71
I'.')n T:'~ E:0 r'- J F- HECJrU)
*57
El'JD"

~115

~A11

nUFn"

1127
11 ~1

'1:1 :~1 '1

I ri:) (,) "

571~

11 31

5 '/ ? 7

113~

?117

"~

'I'.

*1 1 5
* 1 1 ~ '7
t'l

7 5 f7J "

S1500"

~rrp

I',,; ASH 1 I, ~ H

S?

i.'~ ED

H. F>") DEi \

LJt. :P I S '7 :::; '1 !4
\..oW:? 1. I 75(;)

5150

*11~)/-J

1154

1001

1155

IJ '/5 '7

1

r-

1

(~

/'

1 .I. __, U

1 1 5 rl

J

r / t,:*

I

lUTH,

~0?

P T 1'\ l-=> E 1 ,

T !\ P E:)

/

~'I 6,

S HI

(j H

S P E F, D P U~\) CH

J.

~,)"

1 6 L! 1

*1~1!?

1~ II 2

/1 6/1 L1

J~"jS

1~/13
1 ? /J L!

56311
1 6 ~ II

J>~P

1~55

1256
1?5 ~1

/1657
7/41'.1
?'Tl'l

1261

7101

162/1

163 r'j

71'11
6373
'/:lrl :'}
03?1
765'1

1631

11365

l.E(S HEi:,:I N D

163~

1 ~17 L1
3133
131 3

T!~f)

I
I

P Si~CH
TST:JUT

p SeCH.1
SF.~;:-{CH
151 JUT= 1 ~3l1

*1?55

16~5
16~6
16~'l

1633
16~Jl

1635
16:16
163?

33~~

1 31 Il
3315

Jl~~S

I

PLrJ.J!-,(

S~?

PL'Y)K.1

* 1 62/!
SEI.\itCH"

LT)K
N'JP

I""

~\1.J?

IFIND SPLICE F:)n

HE:CJ2~DL\jG

SnS1~

N')?

A:'JD 'lJTH8
SN~

CL6,

HIGH

DCA

JUTD!.~V

T~f)

iv, 571]

nCCi S \';1 TCH
Tl\D PllUFI,)
DCl\

ICHECK 80TH

SPLICE 111 TS

HI CiH::: 'I!!
'J U T D :~ \/::: 1 J:1

16/11
If)!~~

'/'1'11
3'/15

'l'(\;JEi),

DC~

L\DDi{

16l~3

1'/15

T f\ f)

('d) 0 i'{
~\]!;J L.,/~:{

~'~,Jl)

}'~1~j

Tc0, D
SZ~

JY;"J

~0

16/17

'16/! 1
~') ':; 5 1
1 31 6

~16E:d

~3~1??

Del")

S ',', I T C ~i

I sz L\ nrL'{
I S Z S \':' I T C:-:r
J:''-:;:) I' ]' I,\~) !~: ')

16/-4 1;
1 6/~ 5
1 6/! 6

1651

~315

·165?
1 ()~j:1
1 () 5/1

P:-i~q

1 ()S5
1 ()5(.)
165'1
165':)
16 6 1
1660,
1653
1 6 5 /j
1665
1666
1/) 6 7
1 ()Tl
16'/1

33?~

~OrD~

56!U
111 l

T () D

CiJ'\ II S
)TD

CHA!'{!~r;TE;{

r':J.

nl!-,LJ'<~

SI>r~;~\J?

i'~:)'111

DC0 S ~'I ITCH
J;';. e I
,S ~,~ '1'>: 1

5'/76
~11S

1'115

TAD I

Ii 3 '~j ?

Jf'·:s

:?31~)

t~DD:-{

L{ECJ1.~D
~

DDd ,

~~)??
~) ~~ ()1

Jl"~P

• -L)

1~n3

33?~

DC ~~ S ,', I rl' C:-!

1 31

Ll

T6f)

P~~jF'l)

:-il15

DCi\

~DD~-{'

6~~'il

CLA
SHSH

16'1?

'l~~Jr~

1671

1S373

167f!
It; -( 5
1676
1677

5?73
(;) 3 7. 7

17') J
1 7 ,~) 1
1 Tl'?
1'F) 3
1 '/:1 I!
17~" 5

63'13

S!'~SH

, 1716
1707
171 (j

53',) 5
f} 31 7
765J

J~'<;?
l\'~ D

171 1

7 !!'l?

HLT

171~

57'1'?

1713
171/j
1715

7:~'!L!

..JL'-':.P

•- 1

f\;\! D

G::\,P FL (J

7651

S:0;~

eLf\.

5~73

Jl'-:?

• -L!

()36LJ
56/! 1

CG~P

7'111

i\lJP ,

IT~PF.

637/~

T\'':CF

/1.iU~NSFE1·{

7? :'} '}

CLA

l.E·~P

iIECJED.I

I

/Sl'~I

hH I TEL;;
S.\Jt':\ CLL\
Jfv:P

I

2'~17 .1

-57/!
I)qUFd.

('I ')

AODd,-,

1

'1

;tEC')FlD i-:.J(JTI i\iE
12 nI T t·.')~:;D

P Ji.\! STATUS

C~d. . L

'L1UE

•- 1

1:'. 57/! -'
pqfJfIJ"

~}

Tf-\?EJ

/ [...' :1

('J

~EY"

1

T 1\ l~ E I .,

~\l !) P

':'j ;')

'~~

1 7r;~ /J

'I~)() r:j

1725

?3~J

I SZ

17'?6
17~7

53/J'I
1 1f"<5

T t'l [)

f '/3 rJ

6,1'1 ~)

CLCH

1?31

7.'-:>.'~1

173~

(",)

17~V!

1 11 3
33? :1
1 16/1

1735

13()~~

17 3 ~~

~.

1]

t] ~\J r: T i,\ ? E

I

>} p r iT

!-\J~Y

/ L]!~ D ~:~F!\ D ~v; J DE
lTD S T (\ l"{ T T A? S ['< ,J l' I ;) ~\J
I"~;

5 '{ /~

~~EY

TAD r) I J n U17'
DC 1\ ? ,.") I .\~ T, ~
l~EL\D

1736

1<3S?

J[ E 'i'i J .\j T "

T f.i D ~) I J q UF
DC.f\ P J L\: T:{
T:~ D I e ") I~\: T l'~
I Sf.: PJ 1.\1'£-<.
Jl'
.r:l:5

336~~

1 76?

I >]H ~ ~'~ D"

?:3 6:~
~)

'I ~'=! Ii

7',j I) n
6:-~73

.-1

53:)3

J~;?

1756

0363
'i 65:1

175',

5353

Al\} D L-1E:A Dr',)
$:-J!\ CL~
JI":P • - LJ

176~

63'/6

1761

5752

1762

r.)'):'J:'j

1763
176/J

Tl~j

2073

? I .J >l U F " I;) q U F'; \
I "J r:H] F' i"~::: :?') 7 J
'8 U F n S (1::: I ~) n U F ~\ + 5 7 6

1765
1766

7 ('j (:~ ,'1

~"{E ~';~

1

Jt,,:p
p:) I ~'~ Tit"

J

!'~E~f)L<-'

1

I :\} D-'

I

TIE!\ D

X ');J
T (\ D ~ {:.'; .\) Dt.c

1767

1 375
6375

17Tl
1771

6373
~) 3 '(1

177~

??()]

CLA

17 '"13

6,)6~)

CnOTl

CLCH
SiiS!t
JVP .-1

\

"

1 77:5
1776

:) '-iF) 3
P;l/! 1

1777

r;j

2(,)'] r,)

'"11'1-:';) ('j

8:~":l

6

':Fj 1\

it ~';'l\} DI(.,'
SET>~ I ~

3
SETL<

C0PFL~-iJ'

II

en J T 1 ::: «3 (:, :;
*~T~)r;j

1

~'~:Fl ~

2TJ 3
P-l ('j 11
2];'lj 5

~

7

L') ,-) ~\ ~

snSd

~3

7 ') '""Vi
'~') ~~ 1 :)
" r) 5 ':)

,~,tJ '0

6

65 6
1 'i} ·S :5

~-::J ~l

N ,] P

·~:\jD

I)

7

3/] () '?

f)cr~

3 t> 1 4
? ~) Lil

DC?\

;.:(; 1 2
prj 1 3

J 61 6

?--:ll/~

15

1 '/ :.~ r:~
(Jr') 1 "1

n)

?:l16

l'/~?3

(~E'lF:-,

~·n

2:-'j

II JT 18

S:v6, eLl)
J:"J .~~; I 11 ;.'. {.~ D
T(-\D CLI

1n
11

~~~:)

-.;,

L~)!J

I i{Eynid)
lSi:, T C H

Cl"<(.\
De C\ I
J('l[J I

:'5 (-,':; ':j
,co; ~.;

T CH ~

:<:Ei E:

L') iJ:\

S :;: ITCH

1 r:j
T 1? ~
l-'\E"l' r·'·L !D= 6?
CZ1=:0~)

!.E:Y

I' PTr~~)EI
T ~ D iv; D :) LJ1,} ~
tYi,:)

?:10.1

~lllS 'j

~:n2q

1!<~3/J

21?3

1~~31

TAD

~~)

8 11
25
2',)26
r
2 l? 7
? '13 D
2'") 3 1

? 6 1 Ll

2:~')

:) 6 ~ 7
075',)f-\"

I Sl.. I S',:TCH
Ji"::t:.> I t) '7 5~'1:~
Jlv: P I P FULL
6.75()

li; D.J 1.. t\:t.,
~J D ,) L A. :{ "

~

. ?133
2~13/J

7:Tl;'~

3?

~j

5633
1 1 31
753 L;
D ? !; 11
1 '1 '? !!
05'1'6

~:J

S>J,~

P T l\ PEl.,
;:JFULL"
. [\JJlv;:Jf{E.,

2:l 3 51?, L! r;1
~;:!

36

?O 3 7
8'1/+ '1
21111

~61

1 ~5L!
63'15
6373

D-')Lf-\ it

~ L! L~
IJ 11

T /~ 1') E I
576
;'-JJP
TAD ~\J 3

LJ

5 6 3/~
'( 7 ? 5

-

~)

DCA' I

Sf,.:-rCH

Jl'-jP

~\E)[< IJ ~:c,::

\J 3 .1

-3

SETl''!"

I'

~::() /J

5 ~ L) ~~

~;)

II
Ii 5

~, . HTtv';D
CLCn.
SHS.Ci
l.E'-:-t::) .-1

'-:1 ~~ 5 :1

A_\j D \;, iU T£'< 1.)

(J."]LI6

765'1

S~\J 1,\

~')/;

:)?/l ~1

2{1/!~

~~:1/~:1

'f

T{~D

C Ll\

.

~~151

1 ?~) ~

~r151

5()~3

~::n5~

?'.':'J'f3
1. (j:) 7

?,r.)

5:-3

~n5/--4
~".j ~)

~:n

()

5 rl

;.: :,: >: p ~
~.~ I >J n i_~;-; -'

I 'FiUFi{
T'~'{E:T

~
~ 1 :-;; :..

S~

J :': i)

is :-!.

1'1 i\] n C~ P FL. r:~
.''; ~'J A C L (\!
d :.~ l-) • - I)
CC3A?
TAD I ':'0 ~: C3 57 II
DCA I ·:{};:Y E
Jl'J.P I ~)ETPl'

?r:j 7(:1

SST?T,

S~~TPl\JT

?O 71

''')

G;)FL C~.J

/4

2~J

1 '11 3

?'~j 6L4

Po;;, 65
2866
2,1 6 7

~,

?'liJF' ~
T :: T ":'L'.] -'
\'. ~"(L'~ D,

5 ~) ~) 7
636/]
1 6 '1 ~
3616
~5 6 '7 r,j
1 ? L! ':)

:::;rj

63

1 .i (, ~)
6 ~3 '( ~~

T·'40 !)nUF

72

;-_~ ~.l/!

~'; ~)

'II]

f-\DJ):t

1 '/1 5

0. '/~) '~I
A. '1 ~) "'1 :l.

11] 1

r.;,)

n),!
q

?

'i'~::J

I'')

l'

P 'i

1 '/ ~ 1
1:'5
9. 01 1
,-, 1 1 ~)
0'~}

u :;' ~ ;.: Cj

1l J

~.)

l (

C q .J T 1
L. G0 e

6 :1 6 :)
6 1 (-) /~
6 ~~ 7 :)
r;F16:-)

.CLC ~'f
C!,l

'/

E>J f)

':F'~)

FI i\l n(~::)
(-:;0 ;-) !~"1 , (~
G!) i'L(;

?';'j57

,HI:.3H

1 '7,/'(
Pr:)1 1
'l'l,/1!

I~J:-1~~..jD

1 '7/1

I ')G U F'!t
I 75'~
XF':r'n;:~D

? r) '11
110.'1
1 'Ir~ ~1
CVi r) '?

L].) :~~

8'-11 6
~-:)-) :l

!. ~1

NE G5 7 L~

~ r) '/

NJC'·,li~r.:

?:tJ 31)
'1 O~) 1

N-)TD
NJ
.)()TDEV

~()

?

/}:::j

013:1

'YJTP.

1 1 5/1

pgUF'
Pn,UFI-J

?0SP

.PDJL:~d

~~:):i

PFULL

1 '7

III

1

PS~\CH

P,1 J ~3
1 76LI
1?5 '(
1 769.
1 ? Ij /J

PTt.\PEI

~1 ~~?

PT0PE:J

1157
1 'I:):::>.
1'1(,3
1 71:'~

PIJQlJF
PLO')!{
P'.)I:~Tl{

HF:l\ f)
HF.l\ Di'i;
,;iEC JilD

4 U;:; \', I ~\; D
Hi;.CF
iL'.:'JD
! ~ :,', >J f) c",

1 '7 6 :)
6176
20:;6
177~

SF:r\J~~H

1 () ~ /1

SF'n<

~:-)!j

SEF: «;:;~j
SST~'< I
-SF:T:;J.0 '1'
SET'!''!'

1 7/1/1
1

1 'I 'I

~

1. ,//! ~

2'"

7'~1

61'/ ~i
S\': ITCH

17?~

'S~'.TCH

211/!
~ '1 1 'f

5'151';)
srI 5 "'j i\

11~~

";; ~ ~ I

1 r, i",

1 7? /J
1 () It 1
1 r,-:') 5 rl
? :') ::) 1
1 ~,rv!
617/1
f)3'l1
1 71 '7

~!i!n

TY D

?':\55

T·,\~JEI
Tl\:~

E,)

T!~F~T

T:-iT !~~\j
'1'51' J U'i'
T,'iCF

~~

fJ 511

0115

3141

0200

5620
7000
3156
5242
3125

/PAL-III MODIFICATIONS FOR TB~NETAPE INPUT
/BUFFERED INPUT VERSION
SRSR=6373
ISKIP ON STATUS CALL TRUE AND
IREAD STATUS REGISTER
RvlCF=6376
ITRANSFER READ BUFFER REGISTER
ITO ACCUI"lLJLATOR AND CLEAR READ FLAG
*115
lAMI,
SYTA-l
*2(30

0201
0202
f;203

JMP I START!
NOP
IFIND SPLICE BEFORE READING
DCA S\vI rCB
Jt1P HREAD

TPUNr11, DCA RBGN

0204
0205

636 14

eGAP

0206

6373

0207
0210

0217

SRSR
NOP
AND BOTl
SNA CLA

7000

021 / J

7650
L!616
7200
3004

0215
0216
0217
0220

56vJ 1
3100
0010
3067

0241'

5200

02 115

520/-1

0266

4201

0373

4201

0211
0212

0213

~.

SPAL,
LOOK,

JMS I

Rl.,rND

CLA
DCA RFLG
Jt1P I LOOl{
RWND,
REWIND
BOT1,
10
·STARTI~ START
S\t]I TCH= 1 56
HREAD=242
LOREDI=5L!
AAA=20
TBUF=131
RBGN=125
*241
JMP SPAL
*245
JMP TPUNMI

*266
INITAL, JMS LOOK
*373
JMS LOOK
J~lP

. 03711 . 5446

I A46

A46=46

* 1 LI/.!!

1441

4651

1l!112
l/-1 L13
14/14

7/150
11653

1255

READIN, JMS I PREAD
TAD MDOLAR
SNA
JNS I PNOMOR

115 CHARACTER A DOLLAR SIGN?

I~

.•

1/1115
1L1L16

1. 25 / !
2256

1 L14 7

5.8 5 rl

Jl"~?

IllS':")

5~?63

J'i-=? FULLl

II! 51
1/152

31 1 1
1131

;.) ':1::::0.D.,

1(S6J)

1/1:53

3) 3 1
() 2/': 11

p ~\} 0 ~,: D i' ~ ~

~,I 0 ~ I~ :J 1:;' E

PDOL():~"

~~L~Ll

75311

:':lD~J L-~:·i-,

-

(.J C) ;j 0

F I ~\} I 5}-1 -' ~j
FULL 1 = l/L63

1/! :3 . ~

1/155
111 5 6

TAD PDOLI\l-l
I S Z F I :J r ~j H
PI

L15 7

81] LI

P 1 L\ 57= 1 L; 5 7

*3067

3;] 7 3

7ei 1 ~)
'/630
1 r:j:) 3
7 l~ :2 :)

30 '/ I)

1 ;'] 5 2.

3375
3:076
3877

3(j21
5677

G223

.-'" r?
,31
__ :'1-)

7D(JO

3:3 'iIi
3071
3S 72

HAR

SZL CL!'!
T!\D H I PU~'J I
S~\:L

T t~ D L 07)'[J>JI
DCA B:;TJ
J£'E) I !-!.22 3
A/\223
A223"
IlA223=223
LOPtE,}1 =52
HIP T.JL'! I = 5 ~3

BBB::::2.1
31 () 1
3102
3103

310LJ
3105
3106
31 r} 7
31 1 ~"J

131D
6375
6373
5303
72'TJ
6365
57rJ0

OCJD3

'L6~

D :{ :,} ~,} D:"l

CLen
.'

SRSR
JL'~P

CROTl
JE? I

3
CL"Cil= 6375
CBOT1=6365
i-lEAD",
100?
Tl1D EFLG
SZA

7CVJQ

311 I!

:J ...1,:::• .1.

r-')r)~

J"/1:)

3115
31 16
3117
3128
;312 i
3122
3123

'/ CJ liD
3~j~) Lk

Ci":t':\

7;YJ 1
6375
72(JO
6373

L~C

7/1 LJ'-J

:)3::~?

nE~':I

:'JD .

,

'H~)l\JDE:I

31 11
31 12
31 13

IDOL!

.-1

CLA

ITAPE READ ROUTINE

COi\!T

DCA HFLG
CLen
CD,:-\JT ..
SCHEI{.1

CLA
Sl1S:~
Ji·:~J

,/5KI?

•- 1

O~

STATUS CALL

Tnu~

0335
7652)

3124

3125
3126

AND READ:1
SN.4 CLA
Ji-jP CLEER
HHCF
Jl-iP I HEAD

53/1:J

3127

6376

3130

5711

3131
3132
3133

'-7 1l00
1337

313 L1

5731
CVJO 1

·/READ FLAG ON?

IT2ANSFEfi 12 BIT wonD

HFLG=4

...

3135

Nori~ORE-,

TAD

3736
n.EL~D:·1.,

lEND OF INPUT IN 3 CHARACTERS

NOP
N3

DCA I
Ji'lP I
1

PFll\~S:r

NOJ>~02E

RI(ON=126
nC~\JT= 1 57
PFINSH" FINISH

3136
3137

1 '156
7775

N3.,

-3

31/18
31 Lll

636/~

CLEE:1., .

CG!\?

31 L12
f:J..rIl.A,
AA223
A223
AL!6

BBB

531 5

aGOg

002O,

0.223
3077
(:)0/46

BOT1

0821
~J21 7

CBOT1

6365

eGA?
CLen
CLEEH
CONT
FI i\jI SH

636L1
6375
31 L!0
3121
1456

FULL!
HI ~)U:,J I

1 L!63
0053

HiU::.l!.D
I;~~':; 1

02 / 12

I "t-Jr"Tt'\L
LOOK

O?66
0201

LO?U~'JI

8J52

LOEEDI
1':])0 L:~ ':1

~)

NOt-lORE
N3
PDOLA.~l

PFI NS~i
PNO:'::JE.

PREAD
PI '!57

.-.

JT',':D

CGAP=636!I
SYTA.,
('

01 15

0 5L1

1 L155·
3131
3137
1 L15 LJ
3136
1/153
1 L151
1/157

READ + 4

H13ClI~

r;t.

j~C~"!T

r; 1 57
31 1 1
1 11/1 1
• '> 1 15

.J

Pl~?\D
E~~(\DI

i·j

TtE0_Di'':
:·U~:,"

I ~\} D~

')

3 1 rY:J

l'-:It"\LG

:J:"j nLl

:':ZO~'0

rt

l'l~JCF
~

1 25

:t:;':;:ji>JD
H~'}i'0Di'::

.) 1 ~6
63'/6
D::~ 1 6
.)
" 1. 1 CJ

SCEEi<

." 1 22

SPAL

Cj 2() (3

SH511

6373

STA1~T

TDUF

3CHS '/
(J 8 ~~ /~')
r:J 1 5 ()
...., II·...,
,-) 1 •...
r.•
CJ J. ~ 1

'n::>UNI"11

02f1 l i

STA1-lTI

::;\)1 TCr·I
r· .... 1""' (\.

.") 1 J.._

)

•• J

';I

...

.~

f' H
\,(

29

IEDII-8 MODIFICATIONS 'FOri TENNETA~E 1/0
IBUF'FERED I N.P UT- OUT2l,rr VErlSION

t

r

0056

2522

*56
END"
*114

0114

2522

BUFH"

BUFBEG

BUFBEG

*172

g!~~

0174

0175

~ 1126

1522
1720
0565
0000

1127
1130
1131
1132
1133
1134
1135
1136

7000
4572
1357
7450
4573
1360
2175
5726
'5574

1153
1154
1155
1.156
1157
1160

7000
4756
5753
1620
7534
0244

1244
1245
1246

4646
5636

FrAPE I"
PNOMOH ..
jJFULL"

TAPEI
NOMOrlE

S v] ITCH ..

565
0

*1126
1150 ..

NOP

lSZ

I~I}AS HIGH SPEED READEli
PTAPEI
£viDOLAh
I IS CHAHAC'!'ER A DOLLAR SIGN?
.PNOMOR
.PDOLAR
SWITCH

JMf> I
JMP I

1750
PFULL

JMS

I

TAD

SNA
JMS

I

TAD

*1153
OUTH ..
I

PTAPEO ..
L'1DOLAH ..

PDOLAR ..

IWAS HIGH SPEED PUNCH

NOP
JMS
JMP

I

PTAPEO

I

OUTH

TAfiEO
-244
244

*12£14
~1600

JMS
JMP

PSRCH ..

PSrlCH
TSTOUT

I
I

SEAHCH

TSTOUT=1236
*1257
1257
1260
1261

4.661
7410
1500

1500
1501
1502
1503
1504
1505
1506
1507
1510
1511
1512
1513
1514
1515
1516
1517
1520
1521

7000
6371
0001
6372
5301
1373
3277
6373
7000
4775
2277
5307
1063
3460
3175
7040
3274
5700

JMS
SKP

PLOOK ..
*1500
LOOK ..

PLOQK

I

LOOK

NOP

IFIND SPLICE FOri i1.EADING

TPS?

ONE ..

IEFFECTIVE "NaP"

0001

TPMC
.... 3

JM?
TAD

WAI'fH

DCA

COUNT

TP~?

T~rvIC

NOP
JMS

I

.PDELAY

ISZ

COUNT

JMP

."""4
eZl

'fAD
DCA I

KEYB.~D

DCA
CtvlA
DCA

SWI'l'CH

JM? I

CZ1=63
KEYBrlD=60

KEY

LOOi{

30

7000
2274
5345
1524
1525 6373
1526 2274
5325
1527
1530
137'"'
1531
327'-1
1538 1372
1533 3275
1534 4350
1535 3675
1536 2275
1537 2274
1540 5334
1541
1377
1542 3274
1543 1372
1544 3275
154.5 1675
1546 2275
1547 5722
1550 7000
1551
6371
1552 5351
1553 6372
1554
1376
1555 3277
1556 " . 1374
1557 4775
1560 7104
1561
3276
1562 4775
1563 1276
1564 6373.
1565 7410
.1566 1302
1567 2277
1570 5360
157.1
5750
1572
1724
5000
1573
1574 0034
1575 1677
1576 7764
1577 7204
1522
1523

TAPEI"

NO~

IIENNETAPE INPUI

ISl

KE¥

JL'4}J

INHAND

TPSP TPMC
IS"

ISTArtT 'l'At>E MO'fION
.-2
N574

DCA.
TAD

PIOBUF

DCA

POINTri

KE't

JfilS

rlEAD

DCA I
ISZ

POINTR

ISl

KEY
.-4

POINl'H

JMP
TAD

INHAND"

~574

DCA

KEY

TAD

?IOBUF

DCA

POINTrl

TAD I

POINIH

ISZ

POIN'fa
'fAPEI

Jl'1P

rlEAD"

KE't

TAD

JM~

I

INOrlMAL l'ENNETAPE READ LOOP

NOt->
l'?SP

.-1

J!'1'p

TPMC
TAD

N14

DCA'

COUNT

TAD
JMS

BITS"

HDELAY
.?DELAY

I

eLL H.AL
DCA
JMS

SAVE

?DELAY
SAVE

I

'fAD

TPSP

TPMC'

SK.P
TAD

ONE

ISl

COUN'!,

BITS

JMP
JlvI~

.PIOBUF"
WAlTa"
HDELA)' "
PDELA¥"
N14"

I"AND I 0" FOrl a/s
I"AND 0" FOri SIS

I

IOBUFri.

-3000
34

DELA '{

-14

-574
N574"
KEY=1474
t>OINTrl='l475
SAVE=1476
COUNT=1477

R.EAD

I"NO,tl .. FOR

8/~

31

*1600
1600
1601
1602
1603
1604
1605
1606
1607
1610
1611
1612
1613
1614
1615
1616
161 7
1620
1621
1622
1623
1624
1625
1626
1627
1630
163'1
1632
1633
1634
1635
1636.
1637
1640
1641
1642
1643
1644
1645
1646
1647
1650
1651
1652
1653
1654
1655
1656

7000
6376
5201
1317
3312
637Ll
4277
2312
5205
1072
3132
1307
3175
1310
3311
5600
7000
3711
1 711
1315
7640
5230
1314
3175
2311
2175
5620
1316
3175
6374
4277
2175
5235
1307
3175
1310
3311
1711
4257
2311
2175
5245
1307
3175
1310
3311
5620

SEArlCH"

IF'IND SpLICE F'01\ HECOrlDING

NO~

TP'v2iv;

• -1

Ji:vl.t.J
TAD

t·JA I TW

DCA

COUNTH

TP\~~

DELAY
COUNTri

Jr1S
I.S/~

JMP

.-3

TAD

HIGH
OUTDEV

~)CA

1"'1574

TAD
DCA
TAD
DCA
JivlP

~\'JITC}i

PBUFIO
I

HIGP:72
QUTDEV=132
NO?
TAP EO"
DCA 1
TAD I
TAD
SZA CLA

NOTD"

ADDR
SEAHCH

ITENNETAPE OUTPUT
ADDH.
ADDrl

NDOLArl
lIS CHARA CT EH. A DOLLAR SIGN?

JMP

NOTD

TAD
DCA
1St:
ISZ

M3
SWITCH

J£~l.P

ADDd.

SvlI reH

I

TAD
DCA
TJ? (-}r>

TAPEO
vj{-\

IT

SWITCH
/G£1' TAPE UP If
DELAY·
SvJITCH

JMS

lSi;
Jt"1.P
'fAD

.-3
i'1574
Sv)ITCH

DCA
TAD
DCA

ADDH

TAD I

'~DDH.

JM~

HECOl'iD
ADDrt
.s~'J I 'feH
,-4
1'1574
oS ~~ I Ie H

PBUr" 10

ISZ
ISL:.
JM?

TAD
DCA
TAD
DCA
JLv.1P

~BUFIO

ADDn

I

TArJEO

I

::;?EED

32

1657 7000
1660 6375
1661
3313
1662 1306
1663 3312
1664 4277
1665. 1313
1666 7500
1667 7410
1670 6375
7104
1671
1672 3313
1673 4277
1674 2312
1675 5265
1676 5657
1677 7000
1700
1305
1701
7001
1702 7440
1703 5301
1704 5677
1705
7710
1706 7762
1707 7804
171 O~ 1724
1.711 .·0000
1712 0000
1713 0000
1714 7775
1715 7534
1716 6400
1717 4000
1720 7000
1721
1314
1722 3175
1723 5720
1724 1724

RECOrlD"

I NOrllVIAL TENNETAPE RECORD LOOP

NOP
TjJWB

1:3 IT"

DCA
TAD

,sTOrlE
N16

DCA

COUNTR

JMS

DELAY
S'I'OrlE

TAD
SMA

I"AND I 0"

FOri BIS

SKi>

T?WB
eLL HAL
DCA
JvlS
ISZ
JMP
JMP

DELAY"

STOrlE
DELAY

I"NO;J"

FOri

B/~

COUNTR
SIT
I

rlECOHD

NOP
TAD

MDELA'f

lAC
Sl:A
JMP
JMP I

MDELA¥ ..
N16"
M574"

PBUFIO ..
ADDR"
COUNTH."

STORE"
M3"
NDOLAH"

-70
-16
"'574

-244
-1400

t\JAIT'~~

-4000

NOMOHE"

NOP

/"-3000" fOr? 8/S

lAD

lEWD OF INPUT IN THHEE CHARACTERS
M3

DCA
JMP 1

SWITCH
NO{\I}ORE

•

BUFBEG=IOBUFR+576·
TPSP=6371
TPMC=6372
TPWP=6374
TP\'iB=6 375
,!,k'\>JM=6376

1"-2" FOrt SIS

.IOBUFH
0
0
0
... 3

tvA! T"

IOBUFH."

.-8

DELAY

33
ADDrl

aIT
BITS
BUF'BEG
BUFrl

COUNT
COUNTR

ell
DELAY
EJ.\JD
HDELAY
HIGH

INl-iAND
IOBUFH.
1750 '
KEY

KEYBRD
LOOK
MDELAY

MDOLAR
M3
M574

NDOLAH
NOL'10rlE

NOTD
N14
N16
N574

ONE
OUTDEV
OUTH

PBUF 10

PDELAY
PDOLAR
'PFULL'
PIOBUF
PLOOK
'PNOMOR

POINTR

PSRCH
PTAtJEI

PTAPEO
READ
RECORD
SAVE
SEARCH
STOHE
~\V J,

TCH

TA.~E

I
TArlEO

It> Me

TpSp
TPl~B

, Tp\.JM

TP vj,tJ
l'STOUT

\vA IT
WAlTH
~'iA I TW

1711
1665
1560
'2522
0114
1477
1712
0063
1677
0056
1574
0072
1545
1724

1126
1474
0060
1500
1705
1157'
1714
1707
1715
1720
1630
1576
1706
1577
1502
0138
1153
1710
1575
1160
0174

1578
1261
0173
1475
1246
0172
1156
1550
1657
1476
1600
1713
0175
1522

1620
6372
6371
6375
6376
6374
1236
1716
1573
1717

34

0115

3065

0200
0201
0202
0203
0204"
0205
0206
0207
0210
0211
0212
0213
0214
0215
0216
0217
0220
0221

5222
7000
3156
7604
7010
7630
5243
1054
3020
1131
3125
5601
3125
6371
7000
6372
5215
5601

/PAL-III MODIFICATIONS FOri TENNETAPE INPUT
/8UFFErlED INr'UT VERSION
*115
SYTA-l
IAMI ~
*200
SPAL~

JIVlP

STA.rl'!'

LOOK~

NOP

/FIND SPLICE BEFORE READING
SWITCH

DCA
LAS
KAn
SZL CLA
JMP "

HHEAD

TAD

DCA

LOREDI
AAA

TAD
DCA

RBGN

JMP

TPUNMI

~

rBUF

I

LOOK

RBGN

DCA.
TPS?
NOP
TPMC
JMP
JMP

.-3
I

LOOK

SWITCH=156
HREAD:.:243
STAH.T=222
" LOREDI=54
AAA=20

TBUF=131
RBGN=125
*246
0246

5214

JMP

J:~UNMl

JMS

LOOK

*271
0271

4201

INITAL~

*1441
1441
1442
1443
1444
1445
1446
1447
1450
1451
1452
1453
1454
1455
1456

4651
1255
7450
4653
1254
2256
5257
5263
3006
1131
3060
0244
7534
0000

READIN~

JMS

I

PREAD
tvlDOL..AH

I

PNOMOR

TAD
SNA
JMS

IISCHARACTEH A DOLLAH. SIGN?

TAD

ISZ
JM?
JMP
PHEAD~

PDOLAR
FINISH
P1457
FULLl

rlEAD

TAD
NOMOHE
PNOMOrl"
sJ DO LArl ..
244
ivlDOLArl ..
-244
F IN ISH~
0
" FULL1=1463
;)1457=1457

"~'8UF'

35

*3006
3006
3007
3010
3011
3012
3013
3014
3015
3016
3017
3020
3021
3022
3023

3024
3025
3026
- 3027
3030
3031
3032
3033
3034
3035,
3036
3037
3040

3041
·3042
3043
3044
3045

3046
3047
3050
3051
3052

\I

7000
1126
'7041
1157
7640
5222
1253
3257
6373
4243
2257
5216
6371
5222
6372
1254
3257
1252
4243
7104
3256
4243
12.56
6373
7410
1255
2257
5231
5606
7000
1251
1001
7440
5245
5643

NOP

READ ..

liKON

TAD

CIA
TAD
SZA

RCNT

CLA

JMS

NOGAP
WAIT
COUNTR
IGET TAPE UP TO SPEED
DELAY

ISZ

COUNTH

JMP

-"'"3

JMP
TAD
DCA

TPSP TPMC

TPSP

NOGAP ..

TAD

N14

DCA
TAD

COUNTH

JIVlS

DCA
JMS

'fAD
TPS.P

JMP
JMP 1

/" NOP'" FOR 8/ S

ONE
COUNTR
BITS
HEAD

NOP

DELAY ..

TAO

MDELAY

lAC
..

SZA
JMP
JMP I

3057
3060

3061

1265

3062
3063

3664
5660
1456
7775

DCA I

N3 ..

... 3

0000

SYTA ..

0

3065
3066

STORE
DELAY
STO~E

ISZ

HDELA 't,

3064

DELAY

TPMC

TAD

. 0034
7000
7764
0001
0000
0000
7000

30.56

I 0" FOR 8/5

/,'AND' 0" FOR 8/S

SKP

MO'ELAY,

3054
3055

. /'''AND

HDELAY

eLL AAL

BITS"

77io

3053

.... 1

JMP
TPMC

WAIT ..

. . . 70
34

,-2
DELAY
I"~ "'2" FOri.

8/~

N14.1

-1000
-14

ONE"

1

STORE"
COUNTR"

0

NOMORE ..

NOP

lEND OF INPUT IN THREE CHArlACTERS

TAD

N3
PFINSH

0

JMP I

PFINSH ..
HKON=126 ,
RCNT=157
TPSP=6371
TPMC=6372

FINISH

NOMO~E

,36

AAA
BITS
COUNTR
DELAY
FINISH

FULLl
HDELAY
HREAD

IAMl
INITAL
LOOI{
LOREDI
l"lDELA'f

MDOLAR
NO GAP
NOMOHE

N14
N3

ONE

PDOLAR
PFINSH
PNOMOR
PHEAD

P1457

RBGN
RCNT
READ

READIN
RKON

SPAL
START
STORE

SWITCH
SYTA
TSUF
TPMC
TPSP

TPUNM1
WAIT

0020
3031
3057
3043
1456
1463
3052
0243
0115
0271
0201
0054
3051 .
1455
3022
3060
3054
3065
3055
1454
3064
1453
1451
1457
0125
0157
3006
1441
0126
0200
0222
3056
0156
3066
0131
6372
6371
0214
3053

IUPDATE OF JUNE~ 1969
IfIXES PAUSE PSEUDO-OP
*376
0376

0377

JMS

4201
5446

POPJ

LOOK=201
POPJ=54046

LOOK
POPJ

0201

5446

II

LOOK

, 37

1
1
1

'I
1
1
1
1
1

vlRITE"

CALLING SEQUENCE:
TAD

CODE

~1S

~ji1.

I TE

IA
FA
(ERROR rlETURN)

(NORMAL RETURN)
NOP

TAD I

CODE
\l}rlI TE

DCA

IA

DCA

ISZ

v}HITE

TAD I

WRITE

IPICK

UP

INITIAL ADDHESS

IPICK UP FINAL ADDRESS

CMA
TAD

IA

DCA

NWORDS

ISZ

\,JHITE

t.JDELAY

TAD

DCA
TPWP

, CHKSUM

DELAY

JMS

SPLICE

JMS

'ISZ
JMP

CHKSUM

.-4

TAD

CODE
HECQRD

JMS
JMS

SPLICE
NWORDS
HECORD

TAD
JMS
JMS

DUMP"

IWHITE CODE WORD
I\~RI

WORD COUNT

TE

SPLICE

TAD
TAD I

CHKSUM

DCA
TA.O
JMS
JMS

CHKSUM
IA
HECORD
SPLICE
IA

I

ISZ
ISZ

N~~OHDS

DUMP

DCA

CHKSUM
RECORD
SDELAY
CHKSUM

JMS
JMS

S~LICE

ISZ

CHKSUM

J1"lP

.-3
lvftl 'fE
o ~vHI orE,

TAD

ISZ
JMP I

IUPDATE CHECKSUM

IA

JM?
TAD

JMS

itEcoao.,

IWRITE RECORD GAP AND
I'GET TAPE UP TO SPEED

IWRITE

DATA

WOHD

IWRITTEN ALL DATA?
I,{ES., WRI'fE CHECKSUM

TO LET HEAD· wR lifE
IRELAY SWITCH TO HEAD MODE

/PAUSE

DELAY

ITENNETA~E

NOf>

HECORD LOOr

TPHB

DCA
TAD
DCA

STOHE

JMS

UE~A 'I

MEXT~iA

COUi\rr ~t

I"AND I
I

on

FOrt 8/S

38

BIT"

TAD

STOHE

.sMA

SKP
TP ~';B

eLL HAL

DCA
JMS

STORE

ISZ

COUNTR

JMP
JMP

DELAY"

SPLICE"

WDELAY"
MDELAY"

MEXTHA"
CHKSUM"
COUNTR"

SZA
JMP
JMP I

.-2
DELAY

NOP
TPMC

ISPLICE FOUND?
SPLICE

I

wao!

WRITE

I

-1400
-700
-70
-16
0
0
0

STORE"
CODE"
IA"
I
I
I
I
/
/

0
0

waor"

NOP

FOR 8/S

rlECORD
MDELAY

NWORDS"

I"NO~"

BIT
I

NOP
TAD
lAC

JMP
JMS
JMP

SDELAY"

DELAY

/YES" SPACE TO BOT

I" ..

a" Fon

8/S

0
CALLING SEQUENCE;

waor

JMS

(NORMAL RETUHN)

TP\I]P
JMP

TAD
DCA

ITEST FOH SPLICE

TPMC
.-1
M4
NttjORDS

CMA

IWrllTE "7777" FOUR TIMES

JMS

RECOrlD

ISZ

NWORDS

JMP
TAD

.-3
BDELAY

DCA

CHKSUM
ISPACE .sPLICE PAST HEAD

l'PWP
JMS

ISZ
JMP

BDELAY"

JMP I
-l!OOO

M4 ..

-4

ISET INDEX FOrt S?ACE

DELAY
CHKSUM
.-3
\vBOT

, 39

/

/
/
/
/

I
I
I
I
SEAHCH"

CALLING SEQUENCE:
TAD

CODE

SEARCH
IA
FA
(EHHOrl rlETUrlN)
(NOdMAL HETURN)
JMS

NOP
DCA

TAD I
DCA
ISZ
TAD I
DCA
ISZ
-.READ"

JMS

I

CODE
SEARCH
JaEAD+l
SEArlCH
SEARCH

IPICK

UP

INITIAL ADDRESS

IPICK

UP

FINAL ADDRESS

JHEAD+2
SEAHCH
PREAD

IREAD A

EHROH.

IIF

FILE

NOP
NOP
Jolt>

EliHOR" \tJHAT KIND?

CIA
TAD
SZA
JMP

ERROR"

CLIA

CODE
IHIGH! CODE?
JREAD

ISZ

SEARCH

JMP I
CIA

SEARCH

TAD
SNA CLA
JMP I
TAD I

CODE
SEARCH
PER-ROR

TAD
SZA CLA

NEOT

JMP

JREAD

FREAD"
FERROR"
NEOT"

$

SEARCH

IYES"

TAPE?

SET AC=-l

FOR RETURN

READ
READ+I02
-READ-61

READ=WrlITE+200
TPMC=6372
T.PWP=6374
TPWB=6375

I

IHIGHT CODE?
/YES" H.ETURN \I}ITH AC=O

lEND OF

CMA
JMP

IYES" INCREMENT RETURN ADDRESS

IASSUME CONSECUTIVE PAGES

40

1
1
I
1
1
1
·1
1

HEAD"

CALLING !:iEQUENCE:
READ
cJMS
IA
FA
(ERROrl RETURN)
(NORMAL RETURN)
NOP
TAD
DCA
ISZ

I

TAD I

READ

IPICK UP INITIAL ADDRESS

IA
READ·

READ

IPICK UP FINAL ADDRESS

CMA
TAD

DCA
ISZ
TPMC
TAD
DCA

IA.
NWOHDS
HEAD

ICLEAR BIT FLAG

RDELAY
CHKSUM
ITEST FOR RECORD GAP

TPSP TPMC
SKP
JMP

JUNK

JMS

DELAY
CHKSUM
.-5
ASSMBL
CODE
St='LICE
ASSMBL

ISZ
JMP
JMS

DCA·
JMS

JMS

IREAD CODE WORD
IREAD WOrlD COUNT

CIA
TAD

NWORDS

SZA CLA
Jl.Vlp

GET"

JMS
JMS

DCA I
TAD

ISIZE ERROR?

SIZE
SPLICE
ASSMBL
IA
CHI{SUM

TAD I

IA

DCA

CHKSUM
SPLICE
IA
NWQRDS
GET
ASSMBL

JMS

ISZ
ISZ
JMP
JMS

CIA
TAD

lSi;
RErUH.N~

TAD
JMP I

IUPDATE CHECKSUM

IREAD ALL DATA?
IYES" rlEAD CHECKSUM

,"HKSUM

SZA CLA
JMS

IREAD DATA \vORD

ICHECK!:iUM ERROrl1
ERROH.
BEAD

INO~

CODE
READ

ICODE IN AC U?ON EXIT

I NCHEMENT RE1'URN ADDRESS

41

SklLICE ..

NOP
TPMC
JM~

ISt'LICE FOUND?

1

JMS

SPLICE
RBOT

Jl'1S

EHROn.

JJNK ..

JMS
JMS

BLANK

BLANK ..

NOP

I¥ES .. SPACE 'I'O BOT
I!:)PACE TO

RECOaD GAP

EdflOrl

RDELAY
CHKSUM

T~D

DCA

ISET INDEX FOR BLANK TAPE

ITEST FOR SPLICE

T?MC
SKP

SPLICE+3

JMP

TPS?

ITES'f FOR

BIT

SKP
JMP
JMS

ISZ

SIZE"
ERrlOrt"

JMP
JMP
JMS
JMS

I

18IT FOUND .. HESET INDEX

ISPACE TO itEOOrlD GAP

ERrlOR

NOP

IER~OR

..lMP

ASSMBL ..

BLANK+l
DELAY
CHKSUM
.-5
BLANK
BLANK

CODE LOCATION

B,ETUrl.N

NOP

Il'ENWETAPE HEAD LOOP

TPS?

BIT ..

JMp
TPMC

."1

TA.O

HDElAY

JMS
TAD

DELAY

M14 .

DCA

eLL HAL
DCA
JMS

TAD
TPS? TPMC

COUNTR

STORE
DELAY
STORE

Sf{?

'fAD
ISZ
JMP
JMP

DELA ,{"

I

NOP
TAD

ONE
COUNTR
BIT
ASSMBL
MDELA'i

lAC
SZA
JM~

... 2

JMP I

DELAY

I"A.ND I 0" FOR 8/S
I"AND 0" FOri 8/S

I"NOP" FOR 8/S

. 42

MDELAY~

-70

HDELAY"
.M14"

34
-14
0

CHKSUM"
STORE"

0

IA"
NWOrlDS"

0
0

COUN'fH"
RDELAY"
CODE"

0

I
I,
I
I

-100
0

CALLING SEQUENCE:

REOT

JMS

/
/

(NORMAL RE.l'URN)

RBOT~

NOP

· ONE"

TPSP
1

ITEST FOR. SPLICE

TPMC
Jr-1P

~-3

TAD
DCA

8DELAY
COUNTrl

JMS
,
TPSP '!'PMC

DELAY

ISZ

JMP
JMP

BDELAY"

I

ISET INDEX FOR SPACE
1~f.ACE

COUI\11'a

SPLICE PAST HEAD

.-3
HSOT

-4000

1
/
/

...

/

I
/
/

SPACE"

CALLI,NG
TAD
JMS

SEQUENCE:

+W
SPACE

(NORMAL RETURN)
NOP
CIA

ISET NEGATIVE INDEX

DCA

SKIP

. JMS
0

HEAD

0
NOP

SKI.P~

TPSf>=6371

1'?MC=6372
$

/TO FOaCE AN ERROR •

CLA
ISZ

SKlP

J.'1,p

SPACE+3

JMp I

SPACE

0

IREAO A FIL.E
IWITH RIDICULOUS ARGUMENTS
IIGNORE CODE 'WORD

ISKIP ANOTHER FILE
IFINISHED SKIPPING



File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.4
Linearized                      : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c041 52.342996, 2008/05/07-21:37:19
Modify Date                     : 2018:05:17 17:50:53-07:00
Create Date                     : 2018:05:17 17:46:03-07:00
Metadata Date                   : 2018:05:17 17:50:53-07:00
Format                          : application/pdf
Document ID                     : uuid:f39e2b95-ef92-b346-ba27-7a51c0b47bf0
Instance ID                     : uuid:66b1038f-53ef-8c4c-a8c0-0657f13ea655
Producer                        : Adobe Acrobat 9.0 Paper Capture Plug-in
Page Layout                     : SinglePage
Page Count                      : 45