Tennecomp_Minidek_Part_3 Tennecomp Minidek Part 3

User Manual: Pdf Tennecomp_Minidek_Part_3

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

How

to

Use

the

Iv\i

niDek

Wi

th the p D P 8j..!L- Computer

Parr

III

Installation

Program

Li

stj

ngs

Drawings

August

I

1971

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

broad-

casting

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

selec-

tion,

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

infor-

mation

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

com-

puter

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-of-

Tape

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

indi-

cates

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

pre-

sence

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

o 0

,

I

FI

LE

PROTECT

(

p:gram

Control Motor/ :

Manua

I Contro I

Motor

o

Track

Selector

Switch

(on

rear

apron)

"'-,

Tape

Cartridge

-

File

Protect

Pin

Figure

1.

FRONT

Pfu\JEL

CONTROLS

I

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:

(1) Read

in

the

tape

record

routine

from

paper

tape

on

the

ASRw33

Teletype

using

the

RIM

loader;

(2)

(3)

(4)

Insert

a

the

tape

Push

the

Set

the

file

protect

pin

into

cartridge

to

be

used;

tape

cartridge

firmly

track

selection

switch

the

hole

in

the

cover

of

into

the

front

panel

slot;

to

the

desired

channel;

(5)

Set

the

computer's

front

panel

switches

to

77008 and

press

the

load

address

switch

..

then

the

start

switch;"

(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

in-

formation

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

tape

cartridge

firmly

into

the

front

panel

slot;

(3)

Set

the

track

selection

switch

to

the

desired

channel;

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

indi-

cates

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

selec-

tion

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

indi-

cated

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

groundl 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

sub-

routines.

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

TST~23S

Splicing

Tape

(4) SC9tch

Type

51-7/325

Alummized

Sensing

Tape

These

materials

can

be

obtained

from

Allied

Electronics,

100

N.

Western

Avenue, Chicago,

Illinois

60680.

Substitutions

of

other

type

materials

'are

not

recommended,

-.,

t ,

• •

I •

'0"

,

I

I I

I t I

J !

~

.~

~

~

I

I

~

,"'-"

, .

• g

• I

,

9

~

,..-

...

I I

a i

j ,

,

I

I

LU

Figure

20

Tape

Signals

]

I

,

.~

,-

-1

• Q

• •

•

~

o

-

~

•

I

~

-

-

n @

®

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

speedl 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

check-

sum

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;

Editing

(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.

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;

other-

wise

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

obstruc-

tion 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

elec-

tronics. 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

switchr the 110 V, and

the+5§

-15

V ground lines.

(

11)

Toggle in the following

shori"

program:

200

1210

TAD

210

ILOAD

COMMAt~D

REGISTER

201 6375

lOT

375 I

202

6373 lOT 373 15KIP &

READ

STATUS

203

5202

JMP

.-1 I

204

021'1

AND 211 I

205

7450

SNA

/BEGINNING

OF

TAPE?

206

5202 JMP

.-4

I

207

7402

HLT

/STOP

210 0002

0002

;WRITE COMMAND

BITS

211

0010

0010 /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) e 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.

(13) Now you

are

ready to go

..

Refer

to

the programming write-upe

"ED~S'V

l=.£l

&UE

;"'1.fV

t=2J

BLACkCND

bl

I

----ENfAlfERE7IT~·

-

6.2

:TO .

Tf!AlI---!J!aRT

2.

TAPE

TRANSPORT

#:

1

: TO

..

AC·

{)UTLET

_.ON

REAl.

O.P.

CQMPi;

TAli

~RJ:EN731.0CKS

I

INTER.

FACE

CAR

[)

~OMPONcN7

$/OE

REVISIONS

I<EAO/WRITE

E/.£

C'rRONIC~

'-:£QtlTRCJL

fLECTRONA

TENNECOMP

SYSTEMS,INC.

:;P/1371

:PDP-SE INSTALlATION

:SIJPP/.EMENTARY INSTRUCTIONS

"p~.

ISHEeT

OESIG

....

__

OF

°7:NJl.lEI

lfiiAY,;q.lf7Jlip.:;i'l/aE:

"8-.

/

TENNECOMP

SYSTEMS~

INC.

MINIDEK

FOCAL

/ 4K VERSION

/

TP-1371

DEFINITIONS

SHSH=6373

CLCR=6375

RWCF=6376

T\,1CF=637

LJ

CLB1=6365

CGAP=6364

/

SKIP

ON

STATUS

AND

READ~STATUS

/ CLEAR

AND

LOAD

COMMAND

REGISTER

/

READ

WORD

AND

CLEAR

READ

FLAG

/ TRANSFER

HORD

AND

CLEAR

HRITE

FLAG

/ CLEA.R BOT

FLAG

FOR

UN!

T 1

/

CLEAR

GAP

FLAG

/

FOCAL~

1969

DEFINITIONS

SPNOR=L1560

GETC=45L15

SORTC=L1550

TESTN=4561

SORTJ=45

/

-47

PUSHl1=45

L

!2

POPA=1413

POPJ=55

Ll1

ERHOH7=4566

'CHAR==0066

GL1S1'=1377

SOH1'CN==0054

BUFR==0060

CFRS==-0133

STARTV=BUFR

LASTV==0031

/

GET

NEXT NON-SPACE

CHARACTER

/

GET

NEXT CHARACTER

/

SORT

A CHARACTER

AGAINST

A

LIST

/ TEST A CHARACTER

FOB.

NU(1BER

/ SORT

AND

JUMP

ROUTINE

/ PUSH

AC

ON

PUSH-DOHN

LI5T

/

POP

AC

OFF PUSH-DOHN

LI

ST

/ EXIT

FROM

RECURSIVE

RoutINE

/

ERROR

CALL

/

CHAHACTEH

STORAGE

/SOHT

Ll

ST,

FQ~R

TE&7\11

NATORS

/

BINARY

VALUE

OF

CHARACTER

/ STORAGE FOR LAST TEXT LOCATION

/ BEGINNING

OF

TEXT

POINTER

/ BEGINNING OF VARIABLE STORAGE

/ STORAGE FOR LAST VARIABLE LOCATION

/ OPERATE INSTRUCTION CONSTANT ,GENERATION

DEFINITIONS

GET==CLA

eLL / BASIC

CONST~~T

INSTHUCTION

CNSTl=IAC /

GET

CNSTI = 00(11 IN

AC'

CNST2==IAC

RAL

/

GET

CNST2

=

0002

IN

AC

eNS T 3 = C

pH

...

lAC

RAL

/

GET

CNST3

--

0003

IN

AC

eN

S

Tt11

==

CI'1A

/'

GET

CNSTMI

-

7777

IN

AC

/

THI

S

PATCH

I S

TO

BE

USED

ONLY

HI

TIl

4K

FOCAL"

1969

AND

A

/ DIFFERENT

VERSION

USED

WITH

BK

FOCAL~

1969

/

LOADING

INSTRUCTIONS:

/

I.

LOAD

RIM LOADER INTO

COMPUTER

/

2.

LOAD

BINAHY LOADER INTO

COMPUTER

1012

7000

1173

6321

6321

Lt560

6322

1066

/

3.

LOAD

FOCAL~

1969

INTO

COMPUTER

/

4.

LOAD

r'1INIDEK

FOCAL OVERLAY

INTO

C00~PUTER

/

FOCAL

MAY

NOW

BE

STARTED

AND

INITIALIZATION

QUESTIONS

/

ANS\'IERED

ACCORDING

TO

THE

viI

SHES

OF

THE

USER.

/

OPER.ATING

INSTRUCTIONS:

RECORDING

TEXT

I

TO

RECORD

TEXT

STORED

IN

MEMORY

ONTO A TRACK

OF

/ YOUR

t-H

NI

DEK~

FI

HST

PLACE

A CAHTRI

DC1E

HI

TH

A

FI

LE

/

"PHOTECT

PIN

INSERTED

INTO

TIiE

l"lINI DEK

CAHTRI

DGE "

/

SLOT.

PLACE

THE

TRACK",SELECT

S\'lI'rCH

ON

THE

"AUTO'"

I

POSITION.

IN

RESPONSE

TO"

FOCAL'S

ASTERISK

(*)~

/

TYPE

THE

COr·1f<1AND

ItLIBRAHY

OUT

Xu

..

\1.7HEHE

"X"

IS

THE

/ TRACK YOU

\·:ISH

USED,

AND

HIT

RETUnN.

THE

TEXT

\vIL

/ THEN

BE

HECORDED AND CONTROL RETURNED TO FOCAL&

/

THE

COMt1AND

"LI

BRARY

OUT

X"

MAY

BE

ABBREVI

ATED

AS

/

[lfL

0

X"

AND

MA.Y

ALSO

BE

Gl

VF"::-.J

AS

AN

I

NDI

R~CT

COr1tt

jAn

/

IN

YOUR FOCAL PROGRAM.

/

OPERI4TING

INSTRUCTIO:-,JS:

READI0JG

TEXT

/

1'0

READ

TEXT

STORED

ON

A TRACK OF youn

rvE

NI

DE!{

INTO

/ !>1Et10RY.,

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

NOP

,/

DELETE

HIGH

SPEED

READER

*1173

LIBRARY

I

POINTER

TO

LIBRARY

ROUTINE

*6321

LIBRAR..t

SPNOR

/ GET

NEXT'NON-SPACE

CHARACTER

TAD CHAR

6323

4542

PUSHA /

SAVE

KJ

P@lH

(PUSH-

DOt·}N

LIST)

6324

45/15

GETC

0/

GET

NEXT CHARACTER

6325

4550

SORTC /

IS

IT

A

TEHt"iI

NATOR???

6326.

1376

GLI

51'-

°1

/

TEHMINATOH.LIST

POINTER

6327

7410

SKP /

YES.

GET

TRACK

NUMBER

6330

5324

JMP •

-4

/

NO

• KEEP LOOKING

6331

4560

SPNOR /

GO

PAST

TEHMINATOR

(SPACE)

6332

4561

TESTN /

MAKE

'SURE

IT'S

A

NUMBER

~

.'.

6333

4566

ERBOR7 /

?25.91

--

FOUI'JD~'PERl

aD

(..,:

.

6334

14566

ERHOR7 /

?25c92

--

FOUND

TEPJ;lI

NATon

63~35

636L!

CGAP

/ CLEAR THE GAP

FL.AG

6336

6373

SHSR / GOOD.

REA

0

t>1

I N I D

EX

STATUS

6337

7000

NOP

/

SKIP

PROTECT

63

L

10

0363

AND BOT1 /

MASK

OFF

SPLICE

1

BIT

63

/

11

7640

SZA

CLA

/

IS

I

THERE??

•

63L42

53/17

JMP

.+5

/

YES.

DON'T

HAVE

TO

RE1;·JI

ND

6343

7325

GET

CNST3 I NO. REHIND TAPE

UNI

T

63/..!LI

0000

CHCH

/

LOAD

C011i'1AND

REGISTEB

63LJ5

6373

SRSR

(/

SElP

ON

SPLICE

63L16

5345

JMP

C>

-1

63117

6365

CLB1 / CLEAR BOT

FLAG

(UNIT

1 )

6350

73LHa

GET

CNSTMl /

TAD

MINUSl

6351

1

(iJ

5L1

TAD

SORTCN / SUBTRACT 1

FROM

TRACK

NilllBEE

6352

036

L

1

AND

C3 / HAl{E SURE

NO

OVERFLOW

6353

71171

r:..

~

'--' v

eLL

HTL

/ ROTATE 3 LEFT

635L}

700

Ll

RAL

6355

3167

DCA

TEMPt / STORE

THAC}{

NUt1BER TEI'1P.

6356

1

III

3 POPA /

GET

fSUB-COr-'1r]AND

FROtvl

PDL

6357

/15

LI7

SORTJ

/

sonT

AND

JUt-H)

6360

6364

LLISTl-l

/ SOUBCE AND

DESTINATION

LI$

6361

000.2

LLIST2-LLISTl

6362

L1566

ERROR7 /

?25.;3

--

ILLEGAL

SUB-

COf1MAND

6363

0010

BOTl"

10

/ BOT 1

MASK

6361-1

0003

C3"

3 /

TRACK

!>1ASK

6365·

0311

LLISTl"

0311

/

"In

FOR

"IN"

FOR

"READ"

6366.

0317

031

7 /

"ou,FOR

"OUT"

FOR

"RECORD"

~.

6367

7511

LLIST2"

READ

/ JUMP

TO

READ

ON

I

.

6370

7533

HRITE

/

JU£1P

TO

HRITE

ON

0

*7503

07503

0000

UPDATE" 0 / UPDATE

POINTERS

ROUTINE

7504

1567

TAD

I

TE!>lPl

/ UPDATE

CHEC}{SUM

1505

1171

TAD

TENP3

7506

3171

DCA

TEMP3

7507

2167

I SZ TEMP! / INCREMENT

LOC.l\

TI

ON

POINTEH

7510

5703

JMP I UPDATE

7511

7301

READ"

GET

CNST! /

READ

TEXT--AC

= 1

,.""

..

,.~

..

"._.-.,.

.....

1512

11351 JMS SETUP / SET

UP

TAPE

UNIT

7513

4351

JMS

READH

I

READ

FIRST

vIORD

7514

3060

DCA

BUFR

/

STORE

AS

LAST

TEXT

LOCAT!

ON

7515

'4361

JMS

I

t~I

TAL

/

INITIALIZA

PKINTERS

7516

4357

JNS REA.DH /

READ

DATA

~\JORD

7517

3561

DCA

I

TEr-1P

1 /

STORE

IN

MEiVlORY

7520

143(;; 3 JMS

UPDATE

/

UPDATE

POINTERS

7521

2170

I

SZ

TEf

v

IP2

/

COUNTDO

\llN

HORDS

:,

~

.>

7522

5316

Jt1P

e-/4

/

NOT

FI

NI

SHED.

\(~

7523

1-1351 Jt1S HEADv] /

HEAD

CHECKSUM

752/4

70L11 CIA /

NEGATE

7525

1111

TAD

TEt>'1P3

/

ADD

CALC.

CHECKSUM

7526

76/40

SZA

CLA

/

READ

EHROR???

7521

'1566

ERROrt7

/ ?

30.87

--

CHECKSUf:.1

ERROR

7530

1060

"

TAD

STAHTV

/ NO. ERASE VARIABLES

...

".7531

3031

DCA

LASTV

7532

55/J1

POPJ

/ EXIT

7533

7305

·HHITE,

GET

C0JST2

/

BECOHD

TEXT--AC

==

2

753/1

1!3S1

JMS

SETUP / SET

UP

TAPE

UNIT

7535

11573

JMS

I

viAl

TX

/

\·JAl

T

FOH

FIRST

THANSFER

7536

106(3

TAD

BUFR /

GET

LASr

TEXT

LOC.

7537

4363

Jt·~S

HECORD

/

RECOHD

IT.

75/J0

L1367

JI"-lS

INITAL /

INITIALIZE

POINTERS

75/-11

1567

TAD

I

TEMP1

/

GET

DATA.

HORD

75/-42

I.

-

•.

-

r"'.

L'!JOd

JMS

RECOriD

/

REC

Of.,:

D

IT

75L13

4303

Ji'1S

UPD~TE /

UPDATE

POINTEHS

75LJA

2170

I

SZ

TE1'iP2

I

THANSFEi1

COr1PLETE?

75/15

53

L

11

JMP

.-4

/

NO.

< ...

1546

I t

71

TAD

TEt;lP3 / YES.

GET

CHECI{SUI1

75/17

L1363

Jt1S

HECORD

/

RECOHD

IT.

7550

55

/

t,1

POPJ

/ EXIT

7551

. 00GJ0 SETUP.,

0'

/ SET

UP

TAPE

UNIT

ROUTINE

7552

3172

DCA

J:.1ASK

/

STORE

FUNCTION

MASK

1553

1172

TAD

MASK

/

CALCULATE

C01V1i'IAND

1554

1.167

TAD

TEMPI /

ADD

TRACi{

7555

6375

CLen

/

LOAD

"COI"1t1AND

REG.

-·7556

5751

JMP

I SETUP /

RETURN

7557

·0000

"READ~v.,

0 /

READ

A

HORD

ROUTINE

7560

L1573

JMS

I

\vAI

TX

/ HAlT

FOR

vIORD

7561

6376

R\vCF

/

READ

HORD

AND

CLEAR

FLAG

7562

5757

JMP

I

READ'"

/

RETURN

'7563

0000

RECORD.,

0 /

RECORD

A

\ClORD

ROUTINE

7564

6374

THCF

/ TRANSFER

AND

CLEAR

FHAG

7565

45'73 JMS I

\-lAITX

/ HAlT UNIT

DONE

7566

5763

JMP

I

RECORD

/

RETURN

7567

0000

INITAL., 0 I SET

UP

POINTERS ROUTINE

7570

1060

TAD

BUFR

I

GET

LAST

TEXT

LOCAPION

7571 70/-10

CMA

/

SEtvn

-NEGATE

,

....

7572

1133

TAD

CFRS /

ADD

FIRST

TEXT

LOC.

7573

3178

DCA

TEMP2

'/'

STORE

NEGATIVE vlORD

COUNT

7574

1133

TAD

CFRS

/

GET

FIHST

DATA

LOC.

7575

3167

-DCA

TEMPl / SET

UP

ADDR

POINTER

7576

3171

DCA

TEMP3

/

CLEAH

CHECl{SUM

7577

5767

JMP I

INITAL

/

RETURN

*6160

•

)-

'r

r-

'*

"

v..

5160

0000

\.JAI

TH,

0 / \']AI T

FOR

READY

"

6161

6373

SHSR /

SKIP

ON

STATUS

6162

5361

JNP

.-1

6163

0172

AND

NASK

/

MASK

OFF

FUNCTION

616

L

1

7650

SNA

CLA

/

CORRECT

FUNCTION??

6165

L1566 ERROR7 /

124.;7

--

TAPE

FAILUHE

6166

5760

Jt1P

I vIAl T\·] / YESI>

RETURN

*'

*0167

0167

0000

TEMPI,

(iJ

/

DATA

ADDRESS

STORAGE:

0170

0000

TEt1P2,

0 /

\tJORD

COUNT

STORAGE

0171

0000

TEr-iP3" 0 /

CHECKSU£lJ

STOBAGE

.0172

0000

l'1ASK, 0 / .

FU0JCTI

O:'-J

r'lASK

0173

6160

HAITX"

~IAI

T\o1

/

INDIRECT

POINTER

I

THAT'S

ALL!

! !

<j

;:."

IEDI

T-r~

£<)01

F'I

Cf.\TI

-)L\iS

FDi{

Tf,;\}.\jET6,PE

1/'.1

In

UFF

El{F. D I

,\J?

UT

-')

~

lIe

UT

\}El

{S

IY\

S

i{

S n = 6

3'/

:i

/ S

~

I P :)

~\}

~)

'1

A T

i.

1 S C

:0,

L L T

~

dJ

E

1L\~0D

dE·6D

STATUS

dF:r~I

STEll

CLCt~=6~~'/5

T

~,,'

C

F'

=

f->

3 'I /J

H~':

C

F=

6

~

'/6

I C L E;'\

Ii

t,\

i\J

D L ,)

/~

D C J

~'<

[< f\

=\~

Dd

F:

c~

1ST

E H

ITd·~~\!Si;·F:.:'~

(~CClh,;riL~"T):{

TJ

·:.'.':d

'j

E

"~

-r

I

S~1

I F'j

iU~

(11

S

TEi

{

~

,\J

n CL EI\

J:~"

'I'.

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

~

I

TJ

(')

C C U

I'.

r J L

r'\

T J ; {

r'\

c\}

n C LEA!'\ •

~

E

,'\

D

f'L

f)

C i

\'H-:JH=

63

71

I'.')n

T:'~

E:0

r'-

J

F-

HECJrU)

*57

rY157

~671

El'JD"

* 1 1 5

~115

~A11

nUFn"

* 1 1

~

'7

1127

11

~1

11

31

'1:1

:~1

'1

I

ri:)

(,)

"

~rrp

I',,;

ASH

1

I,

~

H S ?

i.'~

ED

H.

F>")

DEi

\

571~

LJt

..

:

PIS

'7

:::;

'1

!4

5 '/ ? 7 t'l 7 5

f7J

"

\..oW:?

1.

I 75(;)

113~

?117

S1500"

5150

*11~)/-J

1154

1001

lUTH,

~0?

/

~'I

6,

S H I

(j

H S P E

F,

D P U

~\)

C H

1155

IJ

'/5

'7

1 1

(~

/'

r-

r/

t,:*

J.

1

.I.

__

, U J I

~,)"

1 1 5

rl

1 6

L!

1 P T

1'\

l-=>

E 1 , T

!\

P

E:)

*1~1!?

1

~

II

2

/1

6/1

L1

1

~/13

56311

1 ? /J

L!

1 6

~

II

1~55

/1657

1256

7/41'.1

1

?5

~1

?'Tl'l

1261

7101

J~"jS

I P

Si~CH

J>~P

I

TST:JUT

p SeCH.1

SF.~;:-{CH

151

JUT=

1

~3l1

*1?55

Jl~~S

I

PLrJ.J!-,(

S~?

PL'Y)K.1

LT)K

N'JP

* 1

62/!

I""

162/1

71'11

SEI.\itCH"

~\1.J?

IFIND

SPLICE

F:)n

HE:CJ2~DL\jG

16~5

6373

16~6

'/:lrl

:'}

16~'l

03?1

163

r'j

765'1

1631

11365

163~

1

~17

L1

1633

3133

16~Jl

131

3

1635

33~~

16:16 1 31 Il

163?

3315

SnS1~

N')?

A:'JD

SN~

l.E(S

T!~f)

DCA

T~f)

nCCi

Tl\D

DCl\

'lJTH8

CL6,

HEi:,:I

N D

HIGH

JUTD!.~V

iv,

571]

S \';1

TCH

PllUFI,)

ICHECK

80TH

SPLICE

111

TS

HI

CiH:::

'I!!

'J U T D

:~

\/::: 1 J:1

16/11

'/'1'11

'l'(\;JEi),

~'~,Jl)

If)!~~

3'/15

16l~3

1'/15

16/-4

1;

}'~1~j

1

6/~

5 '16/! 1

1

6/!

6

~')

':;

5 1

16/17

1

31

6

~16E:d

~3~1??

1651

~315

~OrD~

·165?

P:-i~q

1

()~j:1

56!U

1

()

5/1

111

l

1

()S5

33?~

1 ()5(.)

5'/76

165'1

~11S

165':)

1'115

1 6 6 1

Ii

3

'~j

?

1660,

:?31~)

1653

~~)??

1 6 5

/j

~)

~~

()1

1665

1~n3

1666

33?~

1/) 6 7 1

31

Ll

1

()Tl

:-il15

16'/1

6~~'il

16'1?

'l~~Jr~

1671

1S373

167f!

5?73

It;

-(

5

(;)

3

7.

7

1676

7651

1677

5~73

17')

J

1 7

,~)

1

1

Tl'?

1 'F) 3

1 '/:1

I!

17~"

5

,

1716

1707

171

(j

171

1

171~

1713

171/j

1715

()36LJ

56/!

1

7'111

637/~

7?

:'}

'}

63'13

53',) 5

f}

31

7

765J

7

!!'l?

57'1'?

7:~'!L!

2'~17

.1

('I

')

~}

'1

iIECJED.I

1:'.

57/!

-'

pqfJfIJ"

AODd,-,

DC~

L\DDi{

T f\

f)

('d) 0

i'{

Tc0,

D

~\]!;J

L.,/~:{

SZ~

CiJ'\

II

S

CHA!'{!~r;TE;{

r':J.

nl!-,LJ'<~

SI>r~;~\J?

JY;"J

~0

)TD

Del") S

',',

I T C

~i

I sz

L\

nrL'{

I S Z S

\':'

I T C

:-:r

J:''-:;:)

I'

]'

I,\~)

!~:

')

T

()

D

i'~:)'

111

DC0

S

~'I

ITCH

J;';.

e I

,S

~,~

'1'>:

1

TAD I

t~DD:-{

Jf'·:s

L{ECJ1.~D

~

DDd

,

Jl"~P

•

-L)

DC

~~

S

,',

I

rl'

C:-!

T6f)

P~~jF'l)

DCi\

~DD~-{'

CLA

SHSH

..

JL'-':.P

• - 1

f\;\! D

G::\,P

FL

(J

S:0;~

eLf\.

Jl'-:? •

-L!

CG~P

Tf-\?EJ

l.E·~P

I

i\lJP

,

T\'':CF

IT~PF.

;tEC')FlD

i-:.J(JTI i\iE

/1.iU~NSFE1·{

12

nI

T

t·.')~:;D

CLA

S!'~SH

/Sl'~I

P Ji.\!

STATUS

C~d

....

L

'L1UE

J~'<;?

• - 1

l\'~

D

hH

I

TEL;;

S.\Jt':\

CLL\

HLT

/ [

...

<iiI

TE

FLAG

<)N?

Jfv:P I

!iECOd.D

IYSS,

~~ET

U3

..

\J

-57/!

I)qUFd.

1

1716

'1775

1

71

7

0Tl'?

1

'1?r:)

7

~)

~~!;

17~1

~;r.j

1 ]

178~

r;j "'j

0)

'1

1

7:-:>'

:1

('J

':'j

;')

'~~

1

7r;~

/J

'I~)()

r:j

1725

?3~J

17'?6

53/J'I

17~7

1

1f"<5

f

'/3

rJ

6,1'1

~)

1?31

7.'-:>.'~1

(",)

173~

1

11

3

17

3

~~

33?

:1

17~V!

1

16/1

1735

13()~~

1736

1<3S?

1737

3'/62

1 7 /J

(,~

~~

1 G?

17/)

1

?3?3

1711

?

5336

17

Ll3

~)

'I

IJ!~

17

/

t/J

~>.r:l:5

'1

17

L~

5 1

~bL!

1

7/46

336~~

17/J '{ 1

76?

1'15(.) ?:3

6:~

1751

~)

'I

~'=!

Ii

1 '/S,?

7',j

I)

n

175.3

6:-~73

175

/\

53:)3

1755

0363

1756

'i

65:1

175',

5353

176~

63'/6

~.

1761

5752

1762

r.)'):'J:'j

1763

Tl~j

1

176/J

2073

1765

7 ('j

(:~

,'1

1766

1

375

1767

6375

17Tl

6373

1771

~)

3

'(1

177~

??()]

17

'"13

6,)6~)

t<j3., - 3

~',

iU

T Fr,;" ?

:\J

jY)

L f\

1":,.,

-

~

/)/1

n)THP.,

l(j

S

:',

ITCH.,

:)

~EY"

1

T

1\

l~

E I

.,

~\l

!)

P

I

SZ

!-\J~Y

T t'l

[)

CLCH

CLA

I T E

>]

~\J

r:

T

i,\

? E I

>}

p r iT

/

L]!~

D

~:~F!\

D

~v;

J

DE

lTD

S T (\ l"{ T T

A?

S

['<

,J

l'

I ;)

~\J

T

0.

D

I"~;

5 '{

/~

DC6,

~~EY

TAD

r)

I J n U

17'

DC

1\

?

,.")

I

.\~

T,

~

J[<S

l~EL\D

DCA.

I

~"))

I

:\J

T

£)l

I S Z

PJ

I

~

0 T

L"{

lSi.:.

r~,El

J;'iP

•

-I)

IN',

PIS

EE:(~

GP

S2E;"~(11")"

F'I:0DC~"?

::>

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

f.i

D

~)

I J q U F

DC.f\

P J L\: T:{

I

>]H

~

~'~

D"

T:~

DIe

")

I~\:

T

l'~

I Sf.:

PJ

1.\1'£-<.

Jl'<P I

:,})?

S:-{SE

J~;?

.-1

IlAPE

h

E;~

D

:~,JUT

I:\J E

ISI-{IP

J\

STATUS

C

i\LL

TI'UJE

Al\}

D

L-1E:A

Dr',)

$:-J!\

CL~

JI":P • -

LJ

Jt,,:p I TIE!\ D

p:)

I

~'~

Tit"

J

!'~E~f)L<-'

1

? 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

~"{E

~';~

I

:\}

D

-'

X

');J

T

(\

D

~

{

:.';

.\)

Dt.c

CLCH

SiiS!t

JVP

.-1

CLA

CnOTl

\ "

1

77:5

:) '-iF) 3

it

~';'l\}

DI(.,'

3

1776

P;l/!

1

SET>~

I

~

SETL<

1777

r;j

':Fj 1\

C0PFL~-iJ'

II

en

J T 1

:::

«3

(:,

:;

*~T~)r;j

2(,)']

r,)

'"11'1-:';)

('j

L')

,-)

~\

~

N

,]

P

8:~":l

1 6

~

7

~3

~'~:Fl

~

7 ')

'""Vi

2TJ

3

'~')

~~

1

:)

P-l ('j

11

" r) 5

':)

2];'lj

5

I)

65

6

,~,tJ

'0

6 1

'i}

·S

:5

~-::J

~l

7

3/]

()

'?

~~~:)

1 n 3

t>

1 4

~·n

1 1 ?

~)

Lil

;.:(;

1 2 J 61 6

prj

1 3

:'5

(-,':;

':j

snSd

L~)!J

·~:\jD

II

JT

18

S:v6,

eLl)

J:"J

.~~;

I

11

;.'

..

{.~

D

T(-\D

CLI

f)cr~

I

i{Eynid)

DC?\

lSi:,

T C H

Cl"<(.\

De

C

\ I :<:Ei

E:

J('l[J

I

L')

iJ:\

?--:ll/~

1

'/

:.~

r:~

,co;

~.;

T C H

~

S

:;:

ITCH

2:-'j 1 5 (Jr') 1

"1

n)

T 1 ?

~

1

r:j

l-'\E"l'

r·'·L

!D=

6?

CZ1=:0~)

?:l16

l'/~?3

(~E'lF:-,

!.E:Y

?:10.1

~lllS

'j

~:n2q

1!<~3/J

21?3

1~~31

~~)

8

11

? 6 1

Ll

2:~')

2 5 :) 6

~

7

2',)26

5633

2r

l?

7 1 1 31

? '13 D

753

L;

2'")

3 1 D ?

!;

11

tYi,:)

I'

PTr~~)EI

T

~

D

iv;

D :)

LJ1,}

~

S>J,~

TAD

~)

D-')Lf-\

it

I Sl.. I S',:TCH

Ji"::t:.>

I

t)

'7

5~'1:~

Jlv:

PIP

FULL

075',)f-\"

6.75()

li;

D.J

1..

t\:t., -

~

L!

L~

~J

D

,)

L

A.

:{

"

~

IJ

11

~:J

3?

.

?133

1

'1

'?

!!

P T

l\

PEl.,

T

/~

1')

E I

05'1'6

;:JFULL"

576

2~13/J

7:Tl;'~

. [\JJlv;:Jf{E., ;'-JJP

2:l 3

51?,

L!

r;1

~;:!

36

~61

LJ

?O

3 7 5 6

3/~

8'1/+

'1

'(

7 ? 5

\J

3

.1

21111 1

~5L!

SETl''!"

2{1/!~

63'15

~~:1/~:1

6373

~::()

/J

II

5

~

L)

~~

~;)

Ii 5

'-:1

~~

5

:1

(J."]LI6

765'1

~')/;

'f

:)?/l

~1

TAD

~\J

3

DCA' I

Sf,.:-rCH

Jl'-jP

I'

~\E)[<

IJ

~:c,::

-3

T{~D

~,

..

HTtv';D

CLCn.

SHS.Ci

l.E'-:-t::)

.-1

A

_\j

D

\;,

iU

T£'<

1.)

S~\J

1,\

C

Ll\

-.;,

~j

.

~,

~~151

~r151

~::n5~

?,r.)

5:-3

~n5/--4

1

?~)

~

5()~3

?'.':'J'f3

1.

(j:)

7

?'liJF'

~

T

::

T

":'L'.]

-'

\'.

~"(L'~

D,

T·'40

!)nUF

I

'FiUFi{

T'~'{E:T

~

~".j

~)

()

~:n

5

rl

1 . i (,

~)

;.:

:,:

>:

p

~

~

1

:-;;

:

..

J

:':

i)

6

~3

'(

~~

~.~

I

>J

n

i_~;-;

-'

S~

is

:-!.

:::;rj

63

5

~) ~)

7

?'~j

6L4

636/]

Po;;,

65

1 6

'1

~

2866

3616

2,1

6 7

~5

6

'7

r,j

?r:j

7(:1

?O

71

2~J

72

1 ?

L!

':)

''')

;-_~

~.l/!

1

'11

3

SST?T,

G;)FL

C~.J

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'

S~~TPl\JT

/4

~';

~)

'II]

f-\DJ):t

0.

'/~)

'~I

A.

'1

~)

"'1

:l.

r.;,)

'i'~::J

n),!

I'')

1

'/1

5

1 1 ] 1

?

~.)

P

'i

1 '/

~

1

0'~}

1:'5

q u

:;'

~

;.:

Cj

9.

01

1

1l J

l'

l ( ,-, 1 1

~)

C q

.J

T 1 6

:1

6 :)

L.

G 0 e 6 1

(-)

/~

.CLC

~'f

6

~~

7

:)

C!,l

r;F16:-)

E>J

f)

FI

i\l

n(~::)

(-:;0

;-)

!~"1

,

(~

G!)

i'L(;

,HI:.3H

I~J:-1~~..jD

I

')G

U F'!t

I

75'~

!<EY

XF':r'n;:~D

L].)

:~~

iV;DJLAd,

rv~:1'

':F'~)

'/

?';'j57

1

'7,/'(

Pr:)1 1

'l'l,/1!

1 '7/1 'j'

?

r)

'11

110.'1

1

'Ir~

~1

CVi

r) '?

8'-11 6

~-:)-)

:l

1

'i1

6

P~~)'l!l

1'/13

~\J

D ) L

~

;''\.

. 1"1

~-:>.

~1

NE

G 5 7

L~

~

r)

'/

?

NJC'·,li~r.:

?:tJ

31)

N-)TD

'1

O~)

1

NJ

~()

/}:::j

.)()TDEV

013:1

'YJTP. 1 1

5/1

pgUF'

Pn,UFI-J

.PDJL:~d

PFULL

PIJQlJF

PLO')!{

P'.)I:~Tl{

PS~\CH

PTt.\PEI

PT0PE:J

HF:l\

f)

HF.l\

Di'i;

,;iEC

JilD

?0SP

1

'7

III

~~:):i

1

P,1 J

~3

1 76LI

1?5

'(

1

769.

1 ?

Ij

/J

~1

~~?

1157

1

'I:):::>.

1'1(,3

1

71:'~

4

U;:;

\',

I

~\;

D 1

'7

6

:)

Hi;.CF

6176

iL'.:'JD

20:;6

!

~

:,',

>J

f)

c",

1 7 7

~

SF:r\J~~H

SEF:

«

;:;~j

SF'n<

SST~'<

I

-SF:T:;J.0

'1'

SET'!''!'

S\':

ITCH

'S~'.TCH

5'151';)

srI 5 "'j i\

T·,\~JEI

Tl\:~

E,)

T!~F~T

T:-iT

!~~\j

'1'51' J U'i'

T,'iCF

";;

~

~

I 1

r,

i",

~!i!n

TY

D

1

()

~

/1

1

7/1/1

~:-)!j

1

1

'I

'I

~

1.

,//!

~

2'"

7'~1

61'/

~i

17?~

211/!

~

'1

1

'f

11~~

1

7?

/J

1

()

It 1

1

r,-:')

5

rl

?

:')

::)

1

1

~,rv!

617/1

f)3'l1

1

71

'7

?':\55

~~

fJ

511

/PAL-III

MODIFICATIONS

FOR

TB~NETAPE

INPUT

/BUFFERED INPUT VERSION

SRSR=6373

ISKIP

ON

STATUS

CALL

TRUE

AND

RvlCF=6376 IREAD STATUS REGISTER

ITRANSFER

READ

BUFFER REGISTER

ITO

ACCUI"lLJLATOR

AND

CLEAR

READ

FLAG

*115

0115

3141

lAMI,

*2(30

SYTA-l

JMP

I START!

0200

0201

0202

f;203

0204

0205

0206

0207

0210

0211

0212

0213

021

/J

0215

5620

7000

3156

5242

3125

636

14

6373

7000

0217

7650

L!616

7200

3004

56vJ

1

SPAL,

LOOK,

NOP

IFIND

SPLICE

BEFORE

READING

DCA

S\vI rCB

Jt1P

HREAD

TPUNr11,

DCA

RBGN

eGAP

SRSR

NOP

AND

BOTl

SNA

CLA

JMS

I

Rl.,rND

CLA

DCA

RFLG

Jt1P

I

LOOl{

0216

3100

RWND,

REWIND

0217

0010

BOT1,

10

0220

3067

·STARTI~

START

0241'

5200

S\t]I

TCH=

1

56

HREAD=242

LOREDI=5L!

AAA=20

TBUF=131

RBGN=125

*241

JMP

SPAL

*245

~.

02

1

15

520/-1 JMP TPUNMI

*266

0266

4201

INITAL,

JMS

LOOK

*373

0373

4201

. 03711 .

5446

1441

1l!112

l/-1 L

13

14/14

4651

1255

7/150

11653

A46=46

* 1

LI/.!!

JMS

LOOK

J~lP

I

A46

READIN,

JMS

I

PREAD

TAD

MDOLAR

SNA

JNS I

PNOMOR

115

CHARACTER

A

DOLLAR

SIGN?

I~

.•

1/1115

1.

25

/!

1L1L16

2256

1 L14 7 5.8 5

rl

TAD

PDOLI\l-l

I S Z F I

:J

r

~j

H

Jl"~?

PI

L15

7

IllS':")

5~?63

J'i-=?

FULLl

II!

51

31

1 1

;.)

':1::::0.D.,

1(S6J)

1/152

1131

1/1:53

3)

3 1

1/!

:3

..

~

()

2/':

11

1/155

75311

1

11

5 6

(.J

C)

;j

0

3:3

'iIi

7ei

1

~)

3071

'/630

3S

72

1

r:j:)

3

3;] 7 3 7

l~

:2

:)

30 '/

I)

1

;']

5

2.

3375

3(j21

3:076

5677

p

~

\}

0

~,:

D

i'

~

~

~,I

0

~

I~

:J

1:;'

E

PDOL():~"

~~L~Ll

:':lD~J

L-~:·i-,

-

81]

LI

F I

~\}

I

5}-1

-'

~j

FULL

1 =

l/L63

P 1

L\

57=

1

L;

5 7

*3067

HAR

SZL

CL!'!

T!\D

H I

PU~'J

I

S~\:L

3877

G223

A223"

T

t~

D L 07)'[J>JI

DCA B:;TJ

J£'E) I !-!.22 3

A/\223

31

.-'"

r?

,

__

:'1-) 7D(JO

31

()

1

131D

3102

6375

3103

6373

310LJ

5303

3105

72'TJ

3106

6365

31

r} 7

57rJ0

31

1

~"J

OCJD3

31

11

7CVJQ

31

12

IDOL!

31

13

7/1

LJ'-J

311

I!

r-')r)~

:J

...

1,:::

•

.1.

3115

'/

CJ

liD

31

16

3~j~)

Lk

3117

7;YJ 1

3128

6375

;312 i

72(JO

3122

6373

3123

:)3::~?

IlA223=223

LOPtE,}1

=52

HIP

T.JL'!

I = 5

~3

BBB::::2.1

.'

'L6~

D

:{

:,}

~,}

D:"l

CLen

SRSR

JL'~P

.-1

CLA

CROTl

JE?

I

nE~':I

:'JD .

'H~)l\JDE:I

3

CL"Cil=

6375

CBOT1=6365

i-lEAD",

CD,:-\JT

..

SCHEI{.1

100?

Tl1D

SZA

J"/1:)

Ci":t':\

DCA

L~C

CLen

CLA

Sl1S:~

Ji·:~J

EFLG

COi\!T

HFLG

• - 1

,

ITAPE READ ROUTINE

,/5KI?

O~

STATUS CALL

Tnu~

3124

0335

AND

READ:1

·/READ

FLAG

ON?

3125

7652) SN.4

CLA

3126

53/1:J

Ji-jP CLEER

3127

6376

HHCF

IT2ANSFEfi

12

BIT

wonD

3130

5711

Jl-iP I

HEAD

HFLG=4

3131

'-71

l00

Nori~ORE-,

NOP

lEND

OF

INPUT IN 3

CHARACTERS

3132

1337

TAD

N3

3133

3736

DCA

I

PFll\~S:r

313

L

1

5731

Ji'lP

I

NOJ>~02E

...

3135

CVJO

1

n.EL~D:·1.,

1

RI(ON=126

nC~\JT=

1

57

3136

1

'156

PFINSH"

FINISH

3137

7775

N3.,

-3

31/18

636/~

CLEE:1., .

CG!\?

31

Lll

531

5

JT',':D

.

-.

READ

+ 4

CGAP=636!I

31 L12 aGOg

SYTA.,

('

f:J..rIl.A,

002O,

AA223

0.223

A223

3077

AL!6

(:)0/46

BBB

0821

BOT1

~J21

7

CBOT1

6365

eGA?

636L1

CLen

6375

CLEEH

31

L!0

CONT

3121

FI

i\jI

SH

1456

FULL!

1

L!63

HI

~)U:,J

I

0053

HiU::.l!.D

02

/12

I;~~':;

1

01

15

I

"t-Jr"Tt'\L

O?66

LOOK

0201

LO?U~'JI

8J52

LOEEDI

~)

0 5L1

1':])0

L:~

':1

1

L155·

NOt-lORE

3131

N3

3137

PDOLA.~l

1

L15

LJ

PFI

NS~i

3136

PNO:'::JE.

1/153

PREAD

1

L151

PI

'!57

1/157

H13ClI~

r;t.

.J

1

25

j~C~"!T

r; 1

57

Pl~?\D

31 1 1

E~~(\DI

i·j

1

11/1 1

TtE0_Di'':

')

•

'>

1

15

:·U~:,"

I

~\}

D~

3 1

rY:J

l'-:It"\LG

:J:"j

nLl

';I

.~

f'

H

\,(

:':ZO~'0

rt

1

~6

...

.)

l'l~JCF

63'/6

~

:t:;':;:ji>JD

D::~

1 6

H~'}i'0Di'::

"

.)

1.

1

CJ

SCEEi<

"

..

) 1

22

SPAL

Cj

2()

(3

SH511

6373

STA1~T

3CHS

'/

STA1-lTI

(J

8

~~

/~')

::;\)1

TCr·I

r:J

1 5

()

r·

....

1""'

(\.

.") 1

J.._

....

,

,-)

1

II·...,

•...

r

.•

TDUF

CJ

J.

~

1

••

J

'n::>UNI"11

02f1

li

29

IEDII-8

MODIFICATIONS 'FOri

TENNETA~E

1/0

IBUF'FERED

I

N.P

UT-

OUT2l,rr

VErlSION

*56

0056

2522

END"

BUFBEG

*114

0114

2522

BUFH"

BUFBEG

*172

t

g!~~

1522

FrAPE

I"

TAPEI

1720

PNOMOH

..

NOMOrlE

r

0174

0565

jJFULL"

565

0175

0000

S

v]

ITCH

..

0

~

*1126

1126

7000

1150

..

NOP

I~I}AS

HIGH

SPEED

READEli

1127

4572

JMS

I PTAPEI

1130

1357

TAD

£viDOLAh

1131

7450

SNA

I

IS

CHAHAC'!'ER

A

DOLLAR

SIGN?

1132

4573

JMS I

.PNOMOR

1133

1360

TAD

.PDOLAR

1134

2175

lSZ

SWITCH

1135

5726

JMf>

I

1750

1136

'5574

JMP

I PFULL

*1153

1153

7000

OUTH

..

NOP

IWAS

HIGH

SPEED

PUNCH

1154

4756

JMS

I PTAPEO

1155

5753

I

JMP

I

OUTH

1.156

1620

PTAPEO

..

TAfiEO

1157

7534

L'1DOLAH

..

-244

1160

0244

PDOLAR

..

244

*12£14

1244

4646

JMS

I PSrlCH

1245

5636

JMP

I

TSTOUT

1246

~1600

PSRCH

..

SEAHCH

TSTOUT=1236

*1257

1257

4.661

JMS

I PLOQK

1260

7410

SKP

1261

1500

PLOOK

..

LOOK

*1500

1500

7000

LOOK

..

NOP

IFIND

SPLICE

FOri i1.EADING

1501

6371

TPS?

1502

0001

ONE

..

0001

IEFFECTIVE "NaP"

1503

6372

TPMC

1504

5301

JM?

.... 3

1505

1373

TAD WAI'fH

1506

3277

DCA

COUNT

1507

6373

TP~?

T~rvIC

1510

7000

NOP

1511

4775

JMS

I .PDELAY

1512

2277

ISZ

COUNT

1513

5307

JMP

."""4

1514

1063

'fAD

eZl

1515

3460

DCA

I

KEYB.~D

1516

3175

DCA

SWI'l'CH

1517

7040

CtvlA

1520

3274

DCA

KEY

1521

5700

JM?

I LOOi{

CZ1=63

KEYBrlD=60

30

1522

7000

TAPEI"

NO~

IIENNETAPE

INPUI

1523

2274

ISl

KE¥

1524

5345

JL'4}J

INHAND

1525

6373

TPSP

TPMC

ISTArtT

'l'At>E

MO'fION

1526

2274

IS"

KE't

1527

5325

JM~

.-2

1530

137'"'

TAD

N574

1531

327'-1

DCA.

KE't

1538

1372

TAD PIOBUF

1533

3275

DCA

POINTri

1534

4350

JfilS

rlEAD

1535

3675

DCA

I POINTR

1536

2275

ISZ

POINl'H

1537

2274

ISl

KEY

1540

5334

JMP

.-4

1541

1377

TAD

~574

1542

3274

DCA

KEY

1543

1372

TAD

?IOBUF

1544

3275

DCA

POINTrl

154.5

1675

INHAND"

TAD

I

POINIH

1546

2275

ISZ

POIN'fa

1547

5722

Jl'1P I

'fAPEI

1550

7000

rlEAD"

NOt->

INOrlMAL

l'ENNETAPE

READ

LOOP

1551

6371

l'?SP

1552

5351

J!'1'p

.-1

1553

6372

TPMC

1554

1376

TAD

N14

1555

3277

DCA'

COUNT

1556

" .

1374

TAD

HDELAY

I"AND

I

0"

FOrl a/s

1557

4775

JMS I .?DELAY

I"AND

0"

FOri

SIS

1560

7104

BITS" eLL

H.AL

1561

3276

DCA

SAVE

1562

4775

JMS I

?DELAY

I"NO,tl ..

FOR

8/~

1563

1276

'fAD

SAVE

1564

6373.

TPSP

TPMC'

1565

7410

SK.P

.1566

1302

TAD

ONE

1567

2277

ISl

COUN'!,

1570

5360

JMP BITS

157.1

5750

JlvI~

I

R.EAD

1572

1724

.PIOBUF"

IOBUFri.

1573

5000

WAlTa"

-3000

1574

0034

HDELA)'

"

34

1575

1677

PDELA¥"

DELA

'{

1576

7764

N14"

-14

1577

7204

N574"

-574

KEY=1474

t>OINTrl='l475

SAVE=1476

COUNT=1477

31

*1600

1600

7000

SEArlCH"

NO~

IF'IND

SpLICE

F'01\ HECOrlDING

1601

6376

TP'v2i

v;

1602

5201

Ji:vl.t.J

•

-1

1603

1317

TAD

t·JA

I

TW

1604

3312

DCA

COUNTH

1605

637Ll

TP\~~

1606

4277

Jr1S

DELAY

1607

2312

I.S/~

COUNTri

1610

5205

JMP

.-3

1611

1072

TAD

HIGH

1612

3132

~)CA

OUTDEV

1613

1307

TAD

1"'1574

1614

3175

DCA

~\'JITC}i

1615

1310

TAD

PBUFIO

1616

3311

DCA

ADDR

161 7

5600

JivlP I SEAHCH

HIGP:72

QUTDEV=132

1620

7000

TAP EO"

NO?

ITENNETAPE OUTPUT

1621

3711

DCA

1

ADDH.

1622

1

711

TAD

I ADDrl

1623

1315

TAD

NDOLArl

1624

7640

SZA

CLA

lIS

C

HARA

C T

EH.

A DOLLAR SIGN?

1625

5230

JMP NOTD

1626

1314

TAD

M3

1627

3175

DCA

SWITCH

1630

2311

NOTD"

1St:

ADDd.

163'1

2175

ISZ

SvlI

reH

1632

5620

J£~l.P

I

TAPEO

1633

1316

TAD

vj{-\

I T

1634

3175

DCA

SWITCH

1635

6374

TJ?

(-}r>

/G£1'

TAPE

UP

If

I ::;?EED

1636.

4277

JMS

DELAY·

1637

2175

lSi;

SvJITCH

1640

5235

Jt"1.P

.-3

1641

1307

'fAD i'1574

1642

3175

DCA

Sv)ITCH

1643

1310

TAD

PBUr"

10

1644

3311

DCA

ADDH

1645

1711

TAD

I

'~DDH.

1646

4257

JM~

HECOl'iD

1647

2311

ISZ

ADDrt

1650

2175

ISL:.

.s~'J

I

'feH

1651

5245

JM?

,-4

1652

1307

TAD

1'1574

1653

3175

DCA

oS

~~

I Ie H

1654

1310

TAD

~BUFIO

1655

3311

DCA

ADDn

1656

5620

JLv.1P

I TArJEO

32

1657

7000

RECOrlD"

NOP

I

NOrllVIAL

TENNETAPE

RECORD

LOOP

1660

6375

TjJWB

1661

3313

DCA

,sTOrlE

1662

1306

TAD

N16

1663

3312

DCA

COUNTR

1664

4277

JMS DELAY

I"AND

I 0"

FOri

BIS

1665.

1313

1:3

IT"

TAD

S'I'OrlE

1666

7500

SMA

1667

7410

SKi>

1670

6375

T?WB

1671

7104

eLL

HAL

1672

3313

DCA

STOrlE

1673

4277

JvlS

DELAY

I"NO;J" FOri

B/~

1674

2312

ISZ

COUNTR

1675

5265

JMP

SIT

1676

5657

JMP I

rlECOHD

1677

7000

DELAY"

NOP

1700

1305

TAD

MDELA'f

1701

7001

lAC

1702

7440

Sl:A

1703

5301

JMP

.-8

1704

5677

JMP

I

DELAY

1705

7710

MDELA¥

..

-70

1"-2"

FOrt

SIS

1706

7762

N16"

-16

1707

7804

M574"

"'574

171

O~

1724

PBUFIO

..

.IOBUFH

1.711

.·0000

ADDR"

0

1712

0000

COUNTH."

0

1713

0000

STORE"

0

1714

7775

M3"

...

3

1715

7534

NDOLAH"

-244

1716

6400

tvA!

T"

-1400

/"-3000"

fOr?

8/S

1717

4000

t\JAIT'~~

-4000

1720

7000

NOMOHE"

NOP

lEWD

OF INPUT

IN

THHEE

CHARACTERS

1721

1314

lAD

M3

1722

3175

DCA

SWITCH

1723

5720

JMP

1

NO{\I}ORE

1724

1724

IOBUFH."

•

BUFBEG=IOBUFR+576·

TPSP=6371

TPMC=6372

TPWP=6374

TP\'iB=6

375

,!,k'\>JM=6376

33

ADDrl

1711

aIT

1665

BITS

1560

BUF'BEG

'2522

BUFrl

0114

COUNT

1477

COUNTR

1712

ell

0063

DELAY

1677

EJ.\JD

0056

HDELAY

1574

HIGH

0072

INl-iAND

1545

IOBUFH.

1724

1750

'

1126

KEY

1474

KEYBRD

0060

LOOK

1500

MDELAY

1705

MDOLAR

1157'

M3

1714

M574

1707

NDOLAH

1715

NOL'10rlE

1720

NOTD

1630

N14

1576

N16

1706

N574

1577

ONE

1502

OUTDEV

0138

OUTH

1153

PBUF

10

1710

PDELAY

1575

PDOLAR

1160

'PFULL'

0174

PIOBUF

1578

PLOOK

1261

'PNOMOR

0173

POINTR

1475

PSRCH

1246

PTAtJEI

0172

PTAPEO

1156

READ

1550

RECORD

1657

SAVE

1476

SEARCH

1600

STOHE

1713

~\V

J,

TCH

0175

TA.~E

I

1522

TArlEO

1620

It>

Me

6372

TpSp

6371

TPl~B

6375

,

Tp\.JM

6376

TP

vj,tJ

6374

l'STOUT

1236

\vA

IT

1716

WAlTH

1573

~'iA

I

TW

1717

34

/PAL-III

MODIFICATIONS FOri TENNETAPE INPUT

/8UFFErlED

INr'UT VERSION

*115

0115

3065

IAMI

~

SYTA-l

*200

0200

5222

SPAL~

JIVlP

STA.rl'!'

0201

7000

LOOK~

NOP

/FIND

SPLICE

BEFORE READING

0202

3156

DCA

SWITCH

0203

7604

LAS

0204"

7010

KAn

0205

7630

SZL

CLA

0206

5243

JMP "

HHEAD

0207

1054

TAD

LOREDI

0210

3020

DCA

AAA

0211

1131

TAD

rBUF

0212

3125

DCA

RBGN

0213

5601

JMP I

LOOK

0214

3125

TPUNMI

~

DCA.

RBGN

0215

6371

TPS?

0216

7000

NOP

0217

6372

TPMC

0220

5215

JMP

.-3

0221

5601

JMP

I

LOOK

SWITCH=156

HREAD:.:243

STAH.T=222

"

LOREDI=54

AAA=20

TBUF=131

RBGN=125

*246

0246

5214

JMP

J:~UNMl

*271

0271

4201

INITAL~

JMS

LOOK

*1441

1441

4651

READIN~

JMS I

PREAD

1442

1255

TAD

tvlDOL..AH

1443

7450

SNA IISCHARACTEH A

DOLLAH.

SIGN?

1444

4653

JMS I

PNOMOR

1445

1254

TAD

PDOLAR

1446

2256

ISZ FINISH

1447

5257

JM?

P1457

1450

5263

JMP

FULLl

1451

3006

PHEAD~

rlEAD

1452

1131

TAD

"~'8UF'

1453

3060

PNOMOrl"

NOMOHE

1454

0244

sJ

DO

LArl

..

244

1455

7534

ivlDOLArl

..

-244

1456

0000

F

IN

ISH~

0

"

FULL1=1463

;)1457=1457

35

*3006

3006

7000

READ

..

NOP

3007

1126

TAD

liKON

3010

'7041

CIA

3011

1157

TAD RCNT

3012

7640

SZA

CLA

3013

5222

JMP

NOGAP

3014

1253

TAD

WAIT

3015

3257

DCA

COUNTR

3016

6373

TPSP

TPMC

IGET

TAPE

UP

TO

SPEED

3017

4243

JMS

DELAY

3020

2257

ISZ

COUNTH

3021

5216

JMP

-"'"3

3022

6371

NOGAP

..

TPSP

3023

5222

JMP .... 1

3024

6372

TPMC

3025

1254

TAD

N14

3026

3257

DCA

COUNTH

-

3027

1252

TAD

HDELAY .

/'''AND

I

0"

FOR

8/5

3030

4243

JIVlS

DELAY

/,'AND'

0"

FOR

8/S

3031

7104

BITS"

eLL

AAL

3032

3256

DCA

STORE

3033

4243

JMS

DELAY

/"

NOP'"

FOR

8/

S

3034

12.56

'fAD

STO~E

3035,

6373

TPS.P

TPMC

3036

7410

SKP

3037

1255

TAD

ONE

3040

2257

ISZ

COUNTR

3041

5231

JMP

BITS

·3042

5606

JMP

1

HEAD

3043

7000

DELAY

..

NOP

3044

\I

1251

TAO

MDELAY

3045

1001

lAC

3046

7440

SZA

3047

5245

JMP

,-2

3050

5643

JMP I

DELAY

..

3051

77io

MO'ELAY,

.....

70

I"~

"'2"

FOri.

8/~

3052

.

0034

HDELA

't,

34

3053

7000

WAIT

..

-1000

3054

7764

N14.1

-14

3055

0001

ONE" 1

30.56

0000

STORE"

0

3057

0000

COUNTR" 0

3060

7000

NOMORE

..

NOP

lEND

OF

INPUT

IN

THREE

CHArlACTERS

3061

1265

TAD

N3

3062

3664

DCA

I

PFINSH

3063

5660

JMP I

NOMO~E

3064

1456

PFINSH

..

FINISH

3065

7775

N3

..

...

3

3066

0000

SYTA

..

0

HKON=126

,

RCNT=157

TPSP=6371

TPMC=6372

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

0376

0377

LOOK

POPJ

,36

4201

5446

0201

5446

IUPDATE

OF

JUNE~

1969

IfIXES

PAUSE PSEUDO-OP

*376

JMS

LOOK

POPJ

LOOK=201

POPJ=54046

II

,

37

1

CALLING

SEQUENCE:

1

1

TAD

CODE

'I

~1S

~ji1.

I T E

1

IA

1

FA

1 (ERROR

rlETURN)

1

(NORMAL

RETURN)

1

vlRITE"

NOP

DCA

CODE

TAD

I

\l}rlI

TE

IPICK

UP

INITIAL

ADDHESS

DCA

IA

ISZ v}HITE

TAD

I

WRITE

IPICK

UP

FINAL

ADDRESS

CMA

TAD

IA

DCA

NWORDS

ISZ

\,JHITE

TAD

t.JDELAY

IWRITE

RECORD

GAP

AND

DCA

, CHKSUM

I'GET

TAPE

UP

TO

SPEED

TPWP

JMS

DELAY

JMS SPLICE

'ISZ

CHKSUM

JMP

.-4

TAD

CODE

IWHITE

CODE

WORD

JMS

HECQRD

JMS SPLICE

TAD

NWORDS

I\~RI

TE

WORD

COUNT

JMS

HECORD

JMS

SPLICE

DUMP"

TAD

CHKSUM

IUPDATE

CHECKSUM

TAD

I

IA

DCA

CHKSUM

TA.O

I

IA

IWRITE

DATA

WOHD

JMS

HECORD

JMS

SPLICE

ISZ

IA

ISZ

N~~OHDS

IWRITTEN

ALL

DATA?

JM?

DUMP

TAD

CHKSUM

I,{ES., WRI'fE

CHECKSUM

JMS

RECORD

TAD

SDELAY

/PAUSE

TO

LET

HEAD·

wR

lifE

DCA

CHKSUM

IRELAY

SWITCH

TO

HEAD

MODE

JMS

DELAY

JMS

S~LICE

ISZ

CHKSUM

J1"lP

.-3

ISZ

lvftl 'fE

JMP I o

~vHI

orE,

itEcoao.,

NOf>

ITENNETA~E

HECORD

LOOr

TPHB

DCA

STOHE

TAD

MEXT~iA

DCA

COUi\rr

~t

JMS

UE~A

'I I"AND I

on

FOrt

8/S

I

38

BIT"

TAD

STOHE

.sMA

SKP

TP

~';B

eLL

HAL

DCA

STORE

JMS

DELAY

I"NO~"

FOR

8/S

ISZ

COUNTR

JMP

BIT

JMP I

rlECORD

DELAY"

NOP

TAD

MDELAY

lAC

SZA

JMP

.-2

JMP I

DELAY

SPLICE"

NOP

TPMC

ISPLICE

FOUND?

JMP

I SPLICE

JMS

wao!

/YES"

SPACE

TO

BOT

JMP I

WRITE

WDELAY"

-1400

SDELAY"

-700

MDELAY"

-70

I"

..

a"

Fon

8/S

MEXTHA"

-16

CHKSUM"

0

COUNTR" 0

NWORDS" 0

STORE" 0

CODE" 0

IA"

0

I

I CALLING

SEQUENCE;

I

I

JMS

waor

/

(NORMAL

RETUHN)

/

waor"

NOP

TP\I]P

TPMC

ITEST

FOH

SPLICE

JMP

.-1

TAD

M4

DCA

NttjORDS

CMA

IWrllTE

"7777"

FOUR

TIMES

JMS

RECOrlD

ISZ NWORDS

JMP

.-3

TAD

BDELAY ISET

INDEX

FOrt

S?ACE

DCA

CHKSUM

l'PWP

ISPACE

.sPLICE

PAST

HEAD

JMS

DELAY

ISZ

CHKSUM

JMP

.-3

JMP

I

\vBOT

BDELAY"

-l!OOO

M4

..

-4

/

CALLING

SEQUENCE:

/

/

TAD

CODE

/

JMS

SEARCH

/

IA

I

FA

I

(EHHOrl

rlETUrlN)

I

(NOdMAL

I

SEAHCH"

NOP

DCA

TAD

I

DCA

ISZ

TAD

I

DCA

ISZ

-.READ" JMS I

NOP

NOP

Jolt>

CIA

TAD

SZA

CLIA

JMP

ISZ

JMP

I

ERROR"

CIA

TAD

SNA

CLA

JMP

I

TAD

I

TAD

SZA

CLA

JMP

CMA

JMP

I

FREAD"

READ

FERROR"

READ+I02

NEOT"

-READ-61

READ=WrlITE+200

TPMC=6372

T.PWP=6374

TPWB=6375

$

HETURN)

CODE

SEARCH

JaEAD+l

SEArlCH

SEARCH

JHEAD+2

SEAHCH

PREAD

EHROH.

CODE

JREAD

SEARCH

SEARCH

CODE

SEARCH

PER-ROR

NEOT

JREAD

SEARCH

,

39

IPICK

UP INITIAL

ADDRESS

IPICK

UP FINAL ADDRESS

IREAD

A

FILE

IIF

EliHOR"

\tJHAT

KIND?

IHIGH!

CODE?

IYES"

INCREMENT

RETURN

ADDRESS

IHIGHT

CODE?

/YES" H.ETURN

\I}ITH

AC=O

lEND

OF

TAPE?

IYES"

SET

AC=-l

FOR

RETURN

IASSUME

CONSECUTIVE

PAGES

40

1

CALLING

!:iEQUENCE:

1

I

cJMS

READ

1

IA

1

FA

1

(ERROrl

RETURN)

·1

(NORMAL

RETURN)

1

HEAD"

NOP

TAD

I READ

IPICK

UP

INITIAL

ADDRESS

DCA

IA

ISZ

READ·

TAD

I

READ

IPICK

UP

FINAL

ADDRESS

CMA

TAD

IA.

DCA

NWOHDS

ISZ

HEAD

TPMC

ICLEAR

BIT

FLAG

TAD

RDELAY

DCA

CHKSUM

TPSP

TPMC

ITEST

FOR

RECORD

GAP

SKP

JMP

JUNK

JMS

DELAY

ISZ

CHKSUM

JMP

.-5

JMS

ASSMBL

IREAD

CODE

WORD

DCA·

CODE

JMS

St='LICE

JMS

ASSMBL

IREAD

WOrlD

COUNT

CIA

TAD

NWORDS

SZA

CLA

ISIZE

ERROR?

Jl.Vlp

SIZE

JMS SPLICE

GET"

JMS

ASSMBL

IREAD

DATA

\vORD

DCA

I

IA

TAD

CHI{SUM

IUPDATE

CHECKSUM

TAD

I

IA

DCA

CHKSUM

JMS SPLICE

ISZ

IA

ISZ

NWQRDS

IREAD

ALL

DATA?

JMP

GET

JMS

ASSMBL

IYES"

rlEAD

CHECKSUM

CIA

TAD ,"HKSUM

SZA

CLA

ICHECK!:iUM

ERROrl1

JMS

ERROH.

lSi;

BEAD

INO~

I

NCHEMENT

RE1'URN

ADDRESS

RErUH.N~

TAD

CODE

JMP I

READ

ICODE

IN

AC

U?ON

EXIT

41

SklLICE

..

NOP

TPMC

ISt'LICE

FOUND?

JM~

1 SPLICE

JMS

RBOT

I¥ES

..

SPACE

'I'O

BOT

Jl'1S EHROn.

JJNK

..

JMS

BLANK

I!:)PACE

TO

RECOaD

GAP

JMS

EdflOrl

BLANK

..

NOP

T~D

RDELAY

ISET

INDEX

FOR

BLANK

TAPE

DCA

CHKSUM

T?MC

ITEST

FOR

SPLICE

SKP

JMP

SPLICE+3

TPS?

ITES'f

FOR

BIT

SKP

JMP

BLANK+l

18IT

FOUND

..

HESET

INDEX

JMS

DELAY

ISZ

CHKSUM

JMP

.-5

JMP I

BLANK

SIZE"

JMS

BLANK

ISPACE

TO

itEOOrlD

GAP

JMS ERrlOR

ERrlOrt"

NOP

IER~OR

CODE

LOCATION

..lMP

B,ETUrl.N

ASSMBL

..

NOP

Il'ENWETAPE HEAD

LOOP

TPS?

JMp

."1

TPMC

TA.O

HDElAY

JMS

DELAY

TAD

M14

.

I"A.ND

I

0"

FOR

8/S

DCA

COUNTR

I"AND

0"

FOri

8/S

BIT

..

eLL

HAL

DCA

STORE

JMS

DELAY

I"NOP"

FOR

8/S

TAD

STORE

TPS?

TPMC

Sf{?

'fAD

ONE

ISZ

COUNTR

JMP

BIT

JMP

I

ASSMBL

DELA

,{"

NOP

TAD

MDELA'i

lAC

SZA

JM~

...

2

JMP

I

DELAY

MDELAY~

HDELAY"

.M14"

CHKSUM"

STORE"

IA"

NWOrlDS"

COUN'fH"

RDELAY"

CODE"

I

I,

I

I

/

/

RBOT~

·

ONE"

BDELAY"

1

/

...

/

/

I

/

/

SPACE"

SKI.P~

TPSf>=6371

1'?MC=6372

$

-70

34

-14

0

0

0

0

0

-100

0

CALLING

SEQUENCE:

JMS

REOT

(NORMAL

RE.l'URN)

NOP

TPSP

1

TPMC

Jr-1P

~-3

TAD

8DELAY

DCA

COUNTrl

JMS ,

DELAY

TPSP

'!'PMC

ISZ

COUI\11'a

JMP

.-3

JMP

I

HSOT

-4000

CALLI,NG

SEQUENCE:

TAD

+W

JMS

SPACE

(NORMAL

RETURN)

NOP

CIA

DCA

SKIP

.

JMS

HEAD

0

0

NOP

CLA

ISZ SKlP

J.'1,p

SPACE+3

JMp

I

SPACE

0

.

42

ITEST

FOR.

SPLICE

ISET

INDEX

FOR

SPACE

1~f.ACE

SPLICE

PAST

HEAD

ISET

NEGATIVE

INDEX

IREAO

A FIL.E

IWITH

RIDICULOUS

ARGUMENTS

/TO

FOaCE

AN

ERROR

•

IIGNORE

CODE

'WORD

ISKIP

ANOTHER

FILE

IFINISHED

SKIPPING