Digital PDFs

XX-80E34-C8

May 2000

39 pages

Original

3.6MB

Document:	FOCALJ -- DECtape FOCAL-69
Order Number:	XX-80E34-C8
Revision:
Pages:	39
Original Filename:	http://bitsavers.org/pdf/dec/pdp8/focal/focalj/FOCALJ_--_DECtape_FOCAL-69.pdf

OCR Text

FOCALJ -- DECtape FOCAL-69
Differences between FOCALJ and BK FOCAL-69:
1.
If started on a l~K PDP-8, it vli11 type an error messar,e
and return to the System. Do not attempt to run FOCALJ on a
4K machine as it will destroy itself.
i
2.
The Teletype output bt,lffer has heen increased from 16
characters to 128. See the ~ource or listing of the
modifications for information on setting the buffer length
to 64 or back to 16 characters.
·

3.
The equal sign (=) has been removed .from the number
typeout to Improve the looks of tabular typeouts.
It may be
put back as part of a quoted string if desired.

4.
The * command (high speed reader) has been removed, and
a* anywhere on a line will cause the rest of the line to be
ignored.
5•

T L~ -r- u n r, t ! o 11

r- crw h ;-1 s h " e n r e !J l 2 c e r! h y F PU P ,

v1 h i c h

moves the plotter pen up and down and advances the chart on
the plotter.
The function FDIS has been modified to accept one or
two arguments (set just X or both X and Y co-ordinated).

7.
The function FAOC has been modified to use the AFOlA
ADC/MPX and. the variable clock, and will accept one or two
arguments (argument 1 sets the MPX channel and optional
argument 2 will cause the program to wait for the variable
c 1 ock).
8.
Core 1 allocation has been modified. The first half is
now used as the program (text) buffer and the second half is
used as an array-l/0 buffer.
9.
A function~ FNEW, has bee~ implemented to access the
integers in the core 1 array-1/0 buffer.
10. The LIBRARY command has been modified to also
READ/WRITE on OECtapes using the core 1 array-1/0 buffer.

Error codes have heen added for the added and modified
commands and functioni.

11.

12.

The control-key function

h~s

been modified:

CTRL-P causes FOCALJ to restart.
CTRL-C causes FOCALJ to call the DECtap€ Library
System.
Either of these control keys will stop any DECtape
which is in motion without completing the transfer of words
to/from core.

LIBRARY COMMAND:
This command may have one of three forms. Two of these
require TC01-TU55 DECtapes (and the core 1 1/0 buffer) as
presently implemented:
LIBRARY INFO String
LIBRARY READ Blk, Page, Nblks, Unit
LIBRARY WRITE
same as READ
These commands may be terminated by eith~r a semi-colon (;)
or Carriage-Return. The parameters are as follows:
String
Blk
Page

Nblks
Unit

An optional string of characters which will
be typed on the Teletype when the command is
executed.
DECtape block number where READ or WRITE will start.
Core 1 buffer page (128 locations each)
where data transfer will start. May have
a value 0 thru 15, initialized to 0.
Number of DECtape blocks (1 page each)
to be transferred. May have a value 1
thru 16, initialized to 1.
DECtape unit for transfer. Initialized
to 1.

Any of these parameters may be constants or variables.
Abbreviations:
L
I
R

LIBRARY
INFO
READ
WRITE

LIBRARY INFO:
This command first causes the typeout in octal of the
contents of four FOCAL pointers: CFRS (the start of the text
buffer in core 1), BUFR (the end of the text buffer in core
1), LASTV (the end of the variable list in core 0--start of
it is 3400) and BOTTOM 'Cthe end of the push-do\\ln 1 ist in
core 0). The secoAd action is to type out whatever
characters follow the word INFO as instructions to the user.

3.
If the user wishes to save the text buffer in core 1
(using the modified DECtape System when it is available), he
should type 1 L I' and carriage-return to get a typeout of
these constants, type CTRL-C to go to the System and UPCATE
core 1 on tape ~s follows:
.

UPDATE
NAME: User's choice
S.A.: 3120 (to auto-start with FOCALJ in core)
or
7667 (to halt after loading)
CORE : 10100-lxxxx (where xxxx is the second octal
number that was typed out.)
·
LIBRARY READ/WRITE:
The argument list for this command may contain from one
to four arguments. The arguments are scanned from left to
right and omitted arguments are left as previously set (by a
previous LIBRARY READ/HRITE command or by the initial values
shown above). l f an argument is 1 eft out, the comma
preceding it must also be left out.
The DECtape transfer is done as specified by the
parameters of the co~mand with the program interrupt on.
After the transfer is initialized by the command, FOCALJ may
continue processing. Should the FOCALJ program attempt to
access the data contained within the transfer buffer or to
give another LIBRARY READ/i~RITE command, the processor wi 11
wait for completion of the previous command.
Examples:
LIBRARY READ B, 8, NBLK, 1
(Unit omitted.)
LtBRARY WRITE BLKNO, PG, 5
(Nblks and Unit omitted.)
L R B,8
(Page, Nblks and Unit omitted.)
L WR BLK

4.
FUNCTIONS:
All functions must be used in SET commands, even when
storing data. All can have either constants or varibales as
.agruments.
FADC(a,b) FADC( a ) -

Sample MPX channel a under clock control.
sa~·1plP f'iPX channel a.
(No clock.)

a = channel number, 0 thru 11 (12 channels).
For b I O, wait for clock flag before samplfng,
For b = O, wait for clock flag and then clear the
flag before sampling.
FDIS(x,y) FDIS( x ) -

Set X and Y position on scope and plotter.
Set X position on scope and plotter CY left
as previously set).

x & y are taken modulo 2**10 (-1 and 1023 are equivalent).
C 0,0 ) is lower left hand corner on plotter and
scope C-10 volts, -10 volts).
(1023,1023) is upper right hand corner (0 volts, 0 volts).
FNEW(i,x) FNEW( j ) -

Store integer part of x in location i.
Get unsigned integer from location j.

x is stored modulo 2**12 and assumed to be unsigned,
so care should be taken to keep the value of
x (which may be an expression) ·between 0 and
4095.
i & j must be within the range 0 thru 2047.
Each page
specified by the LIBRARY command contains 128 (base 10)
locations, hence i = 0 refers to the first locatlo~ in page
0 of the core 1 array-1/0 buffer, i = 128 refers to the ·
first location in page 1, i = 258 refers to the third
location in page 2, etc.• See the description of the array-·
1/0 buffer layout for a table.
FPUP( z )

Move hp 20-2 pen and chart:

For z > 0
For z = 0
For z = -1
For z = -2
For z < -2

Raise pen.
Lower pen.
Raise pen, move chart 3 inches.
Lower pen, move chart 3 inches.
Move chart 3 inches.

The last three options ~equire that the Moseley 17005A
chart advance be turned on and that rolled chart paper be
used.

FXC ••• ) - User function, can be added to do other 1/0
functions or complex calculations which FOCAL would
otherwise do slowly.
·.

ARRAY-1/0 BUFFER LAYOUT:
The following table shows the.layout of the core 1
array-1/0 buffer. This area in core 1 extends from 14000 177 7 7 ( o c ta 1 ) and i s used both for d a ta s tor age (a 2 0 l~ 8
location integer array accessed throueh FNEW) and for
DECtape read-write transfer (16 DECtape blocks or core
pages, as set up by the LIBRARY READ/NRITE commands).
FNEW will allow access to this array when one of the
following conditions is true:
1)
The location specified is outside the pages
specified by the last LIBRARY READ/WRITE command.

or
2) ·.The location is within the pages specified AND no
DECtape is presently in motion under program control.

These conditions are necessary because the DECtape
routines used by the LIBRt,RY commands use t~e pr0,";r::1:·~
intr:rrur.it to al lo•:r ccncurr0nt program execution and DECtape
1/0, and it is thus possible to reference a location within
the area of core to/from which a DECtape tr~nsfer is taking
place while the transfer is taking pl~ce. This could have
disastrous results. This setup, however, does allow a
user's FOCALJ program to do double buffering of DECtape 1/0
if that is desired.

A LIBRARY READ/WRITE command will always wait for any
DECtape that is in motion before it will attempt to execute
the command.
The following table shows the correspondence between
FNEW indices, LIBRARY pages and real core addresses. The
FNEW indices shown correspond to the first location in each
page.

FNEW index

Core location

14000
14200

14l~OO

14600
15000
15200
15400
15600
16000
16200
16110 0
16600
17000
17200
17400

17500

128
256
384
512
6li 0
768
896

1024
1152
1280
1408
1536
16 61~
1792
1920

Lt BRA RY page
0

4
5
6
7
8

9
10
11
12
13

PROGRAMMING HINTS TO INCREASE EXECUTION SPEED:
1)
Abbreviate all commands to a single letter
followed by a single space.
2)
Leave out all unnecessary spaces, including spaces
after the command terminator semi-colon (;).
3)
Use initialized variables, not literals, for
constants in the program wherever possible. ·
4)
Use only one letter for the most used variables
and constants in the program, and initialize them at the
beginning of the program In the order of frequency of use,
i.e., the most used variables and constants will be first in
the variable atea and will have only one letter. The order
of the variables is as shown when the command 'TYPE $' is
given. tf the order is not correct after going through the
program the first time, the program should be modified and
then the command 'ERASE' should be given to eras~ the
previously defined symbols so that they may be defined in a
new order.
5)
00 groups and steps to be executed by FOR commands
should be put at the beginning of the.program, starting with
group 1~ This will make the program harder to read and
start Cit must be started by a command other than 'GO') but
slightly faster in execution due to the method by which
FOCAL finds the specified group or line, which is a linear
search through the text area starting at the first line.

·-

7.
FOCALJ ERROR MESSAGES:
All errors are typed by FOCAL as:

?ZZ.ZZ@ YY.YY
where ZZ.ZZ is the error code shown below and YY.YY is the
program line number at which the error occurr~rl.
If FOCAL
is Pxccuting a direct command at the time that the error
occurs, the@ and 1 ine number will not be typed.

CODE

MEANING

oo.oo *

Manual restart given from console.
Interrupt from keyboard via CTRL-P.
Illegal step or line number used.
Group number is too large.
Double periods found in a line number.
Line number is too large.
Group zero is an illegal line number.
Nonexistant group referenced by DO.
Nonexistant line referenced by DO.
Stora7e was filled by push-down list.
Nonexistant line used after GOTO or IF.
llle.r;al command used . .
left of 1 = 1 in error in FOR or SET.
Excess right terminators encountered.
Illegal terminator in FOR command.
Bad argument in MODIFY command.
Illegal use of function or number.
Storage is filled by variables.
Operator missine in expression or double E's.
No operator used before parenthesis.
No argument given after function call.
Illegal function name or double operators used.
Parentheses do not match.
Bad argument in ERASE.
Storage was filled by text.
Input buffer has overflowed.

01. 00 *
01. 40
01. 78
01. 96
01. : 5
01.;lt

02.32
02.52
02.79

03.05
03.28
04.34
04.52
04.60
05.48

06.06
06.SL~

07.22
07.38
0 7. : 9
07.;6
08.47
09.11
10. : 4

11. 35

17.63
17.85
17.89
17.;0
17.;3
18.77 *
18.;3
20.34
21. ;9
23.36
26.99
28.73
30.05
31. <7

LIBRARY not followed by INFO, READ or WRITE.
Page number too large.
Number of blocks too small ( = 0).
Numher of blocks too large.
Sum of Page+Nblks greater than 16.
DECtape error. Error will show in MQ lights.
FNEW index out of range.
Logarithm of zero requested.
Illegal terminator of LIBRARY command.
Literal number is too large.
Exponent is too large or negative.
Division by zero requested.
Jmar,inary square roots required.
Illegal character, unavailable command or
unavailable function used.
I

The line number following the starred codes is meaningless because these errors are caused by action external to
the program.
Jim Crapuchettes
Stanford Electronics Labs
22 September 1969.

*W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

C- 8K F'OCALJ
01.10 F J=P1P+U;S W=FNEWCJ1FADCCC1ZJJ
0 1 • 2 0 L l.-J B I p; s B = 8 + E ; I ( - p ) 1 • 3 ; s p y ; k

01.30 S P=Z;R
02.10 s Z=0;S C=Z;S J:::Z; S W=Z
02.·20 s B=Z;S P=ZJS E=8; S Y=l024JS U=Y-t;S l=Z;S O=l
02.30 D 5
02.50 D 3JF I=Q,T;D
02.60 T .. NEXT BLK ::: .. 1%5. 0181 ! ; G 2.5
03.10 ASK "CHANNEL"1C1"TOTAL V..1R!TES",T;
03.20 LIB READ B,E,E10; SET C=C-1

SET P=Z

04.01 C- FOCALJ DEMONSTRATION PROGRAM, SAMPLING A SINGLE
04.03 CA-D CHANNEL & STORING ON TAPE.
MAXIMUM RAT£.
04.05 CIS ABOUT 45 SAMPLES/SECOND. THE PROGRAM
04.07 CHAS BEEN OPTIMIZED BY SETTING UP THE VARIABLES
04·09 CAND DO GROUP CAREFULLY AND BY LEAVING OUT ALL
04·11 CUNNECESSARY CHARACTERS.
04.13 CSTART BY TYPING "G 2.1• OR 'D 2'
05·10 ASK "START BLOCK".rB
*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

ifi:D 2
START BLOCK:10
CHANNEL: 1
TOTAL WRITES: 5

NEXT BLK =
50
CHANNEL:?0t.00@ 03.10
*T %5.31 $
Z@C00J 0.0000
tlOTE
C@C00> 0.0000
J@C00J 1024.0
W@ C0 0 ) 2 0 5 2 • 0
8@(00) 50.000
P@C00>

102.ti.0

E@C012l>

8·0000

Y@C00>

1024.0

U@C00>

1023.0

1@<00) 6.0000
0@(00)

1.0000

T@C00> 5.0000

THAT Tttt;:" LIAR.< ABL£S U~E oruL"{
· t..ETT-Ee.. Ff~O TftA.T ntE Y /tf!..-E:" ttJ
O~De-R..

ACCO~PlrV~

e>F use

(1.,os.1 c.t.SED

q-c

F~EQ.LtE~c.y

<~ t=cesr1

ere.)_

.1..

*W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@©@@@@@@@@@@@@@@@@@@@@@@@@@@@

C- BK FOCALJ
JQ}.02 C
C

10.04

THIS IS A DEMONSTRATION PROGRAM
OF THE CHANGES TO FOCAL-69.

WHICH

USES

SOME

11.10 TYPE !, "
BEGINNING OF DEMONSTRATION PROG~AM", !., !
11·30 T "PUT COSINE WAVE IN DATA BUFFER, PLOT IT, WrUTE IT ON",
11. 50 T "DECTAPE, ZERO THE BUFFER, PLOT Tt-tAT., READ THE DATA" .J !
11.·70 T "BACK IN,. AND THEN ~E-PLOT IT TO SHOW THAT IT KEALL t"., !
11.90 T "WAS SAVED.", !
12.10 A!, "PUT SCRATCH TAPE ON UNIT t, WRITE ENABLED",!
12.17 S W=0; S 1=0; S A=3.1Li159/128; S 8=511; S 0=0.5

12.24 S Z=0; S P=1024; S Q=P-1
12. 30 A "TYPE 'READY' & RETUi<N l.aJrlEN READY ", RE
12·50 IF CRE-0READY> 12. 6, 12. 62, 12· 6
12.60 T "YOU MUST USE THE WORD 'READY' ! • TRY AGAIN" !; G 12.3
12·62 00 13.0; T ! , "COSINE IN DATA BUFFER-- SEE PLOT".,
12-64 DO 1s.0; LIBRARY WRITE 10,0,8, u T "COSINE SAVED "
12.66 T "ON BLOCKS 10-17 C8), CLEAR DATA BUFFER & PLOT IT",!
12·68 F I=Z,P;S W=FNEWCI,0>
12.70 DO 15; T "NOh' READ DATA BACK IN, MODIFY & RE-PLOT IT.".,
12 • 7 3 L RE AD 1 0 ;F' I = Z , Q; S W= F N E W<I , F NE ~1 C I ) 0 )
12• 75 DO 15; T "END OF DEMONSTRATION PHO GRAM", ! ., !
12.99 Q

13.02
13.04

c THIS GROUP FILLS PART OF THE DATA BUFFER WITH A

c
13·06 c

V..IAVE C256 POINTS/CYCLE> ~HOSE
VALUE l S 511 •
13-20 F I=Z,P;S W=FNEWCI,<FCOSCI*A>+l>*B>

COSINE

AVERAGE

13.30 R

c THIS GROUP PLOTS OUT THE DATA BUFFER FROM 0 TO 1023.
15•0LJ c
LINE 15.1 POSITIONS THE PEN COHRECTLY BEFORE PLOTTING.
tS.06 c
NOTE: THIS ROUTINE DOES NOT SCALE THE DATA!

1s.02
15. t 0

15.28

s W=F'PUPCl); s vJ=FDISC0.,FNEWC0)); DO 1s.5; s w=FPUPC0)
c REMEMBER THAT FDIS TAKES ARGS MODULO 2tl0C1024>•

JS.30 F l=Z.,Q;S W=FDISCI,FNEW<I>>
15-40 s V.J=FPUP < 1 >; R
15-50 F K=l,100; S W=100*100; C- THIS

LINE ACTS AS A DELAY.

•@@@@@@@@@@@@@@a~@@@@@@@@@@@@@@@@@@@@@~~e@@@@@@@@@@@@@@@@@@@@@~ee~@@

*G
HEGINNING OF DEMONSTRATION PROGRAM
PUT COSINE WAVE IN DATA BUFFER, ~LOT IT, WRITE IT ON
DECTAPE, ZERO THE BUF~ER, PLOT THAT, READ TrlE DATA
BACK IN, ANu THEN RE-PLOT IT TO Snow THAT IT REALLY
WAS SAVED.
PUT

SCKATCH

TAPE ON UNIT I, WRITE ENABLED

TY Pt. '1.;EADY' & RETURN WrtEN REAOY : READY
COSIN~ iN DATA BUFFER--S~E PLOT
COSINE SAVED U1\I BLOCKS 10-17 C8J, CLEAR DATA BUFFEH
NOW READ DATA BACK IN, MODIFY & RE-PLOT IT.
END OF DEMONSTRA1ION PROGRAM

PLOT IT

FOCALK - DECtape FOCAL.W
Differences between FOCALK and 8K FOCAL.W:
1.
The Teletype output buffer has been Increased to 128
characters from'16.
2.
The Equal sign (=) has been removed from the number
typeout. It may be put back in as part of a quoted string
if desired.
3.

The * command (high speed reader) has been removed.

4.
The function FDXS has been replaced by FPUP (which
moves the plotter pen up and down and advances the chart
on the plotter).
5.
The function FDIS has been morlified to accept one
or two arguments {to set both X .and Y co-ordinates).
6.
The function FADC has been modified to use the
AFOlA ADC/MPX and will accept one or two arguments
(argument 1 sets the MPX channel, optional argument 2
will cause the program to wait for the variable clock).
7.
Core 1 allocation has been modified. The first half
is now used as the program (text) buffer and the second
half is used as an array/1/0 buffer.
8.
A function, FNEW, has been added to access the signed
Integers in the core 1 array/l/O buffer.
9.
A LIBRARY command has been implemented to READ/WRITE
using the core 1 1/0 buffer.
10. Error codes have been added for the added and modified
commands and functions.
11.

The control key function has been modified:

CTRl-p causes FOCALK to restart.
CTRL-C causes FOCALK to call the DECtape System.

2.
LIBRARY COMMAND:
This command requires TC01-TU55 DECtapes and 8K
of core as presently implemented.
The command' may have either of two forms:

LIBRARY READ (Blk, Page, Nblks, Unit)
LIBRARY WRITE ( Same as READ )
where:
Blk=
Page=
Nblks=
Unit=

DECtape block number where READ or WRITE
will start.
Core 1 buffer page (128 locations each)
where data transfer will start. May have
a value 0 thru 15. Initialized to O.
Number of DECtape blocks Cl page each)
to be transferred. May have a value 1
thru 16. Initialized to 1.
DECtape unit for transfer. Initialized
to 1.

These may be either constants or variables.
Abbreviations:

L
R

LIBRARY
READ
WRITE

The argument list (enclosed in parentheses) may
contain from one to four arguments. The arguments are
scanned from left to right and omitted arguments are
left as previously set (by a previous call or by the
initial values shown above). If an argument is left
out, the comma preceding It must be replaced by the
closing parenthesis. Any one of the three sets of
parentheses allowed in FOCAL may be used to enclose
the argument list, but the set must be matched.
Examples:
LIBRARY READ CB, 8, NBLK, 1)
LIBRARY WRITE CBLKNO, PG, 5) Unit omitted.
L R CB, 8)
Nblks and Unit omitted.
l WR CBLK)
Page, Nblks and Unit omitted.

FUNCTlONS:
All functions must be used in SET commands, even
when storing data. All can have either constants or
variables as arguments.
FAOC(a,b) FAOCC a ) .:_

Sample MPX channel a under clock control.
Sample MPX channel a. (No clock.)

a = channel number, 0 thru 11 (12 channels)
For b ~ O, wait for clock flag before sampling.
For b = O, wait for clock flag and then clear the
flag before sampling.
Set X and Y position on scope and plotter~
Set X position on scope and plotter CY left
as previously set).
x & y are taken modulo 2**10 C-1 & 1023 are equivalent).

FDIS(x,y) EDIS( x ) -

( 0,0 ) is lower left hand corner on plotter and
scope C-10 volt, -10 volt).
(1023,1023) is upper right hand corner CO volt, 0 volt).
FNEW(i,x)
FNEW( j

) -

Store integer part of x in location i.
Get integer from location j.

x Is stored modulo 2**12, so care should be taken
to keep
-2048 ~ x ~ 2047.
t & J must be 0 ~ i or j ~ 2047. Each page specified
by the LIBRARY command contains 128 (base 10) locations,

hence i = 0 refers to the first location in page 0 of the
core 1 array/1/0 buffer, i = 128 refers to the first
location in page 1, i = 256 refers to the first location
In page 2, i = 258 refers to the third location in page
2, etc. The next page has a diagram of the array/buffer
which shows this layout.
FPUPC z ) -

Move hp 20-2 pen and chart:

For z > 0
For z = 0
For z = -1
For z = -2
For z < -2

Raise pen.
Lower pen.
Raise pen, move chart 3 Inches.
Lower pen, move chart 3 inches.
Move chart 3 inches.

The last three options require that the Moseley
17005A chart advance be turned on and that ro 11 ed chart
paper be used.

4.
ARRAY/1/0 BUFFER LAYOUT:
The fol}owing diagram shows the layout of the
core 1 array/l/O buffer. This area in core 1 extends
from 14000 - 17777 (octal) and is used both for data
storage (2048 location integer array) and for DECtape
read-write transfer (16 DECtape blocks or core pages).
FNEW will allow access to this array when one of
the following conditions is true:
1.
The location specified is outside the pages
specified by the last LIBRARY command.
or
2.
The location is within the pages specified AND
no DECtape is in motion under program control.
These conditions are necessary because the DECtape
routines used by the LIBRARY command use the program
Interrupt to allow concurrent program execution and
DECtape 1/0. This setup allows a FOCALK program to do
double buffering of the DECtape if desired.
FNEW index

Core Loe e ·

LI BRA RY pages

4000

128

4200

256

4400

384

4600

512

5000

640

5200

768

5400

896

5600

1024

6000

1152

6200

1280

6400

1408

6600

Each of these
corresponds to the
first 1oca ti on in
each page.

0
'

5.
FOCALK

Apoendix B, Error Messages.

All errors are typed by FOCALK as:

?ZZ.ZZ @ YY.YY

YY.Y~

where ZZ.ZZ is the error code shown below and
is
the program line number at which the error occurred.'
If FOCALK is executing a direct command at the tim~ that
the error occurs, the@ and line number will not be
typed.
CODE

MEANING

00.00
01. 00
01. 35
01. 42
01. 89
01.: 3
01.; 2
02.48
02.63
02.81
03.09
03.31
04.07
04.35
04.48
04.56
05.63
06.13
06.64
07.14
07.34
07.;1
07.;8
07.<0
08.50
09.16
09.58
11. 20
12.82
17.55
17.63
17.67
17.80
17.96
17. : 7
17.;0
17.<1
18.;1
20.41
23.35
23.;7

Manual restart given from console.
Interrupt from keyboard via CTRL-P.
Group zero is an illegal line number.
Illegal step or line number used.
GOTO was not used as one word.
Double periods found in a line number.
Line number is too 1a rge.
Nonexistant line referenced by DO.
Nonexistant group referenced by DO.
Storage was filled by push-down list.
Nonexistant line used after GOTO or IF.
Illegal command used.
No space after IF or illegal format.
Left of '=' in error in FOR or SET.
Excess right parenthesis encountered.
Illegal -terminator in FOR command.
Bad argument to MODIFY.
Illegal use of function or number.
Storage is filled by variables.
Operator missing in an expression.
No operator used before parenthesis.
No argument given after function call.
Illegal function name given.
Double operators used.
Parentheses do not match.
Bad argument in ERASE.
Maximum group number exceeded.
Input buffer has overflowed.
Storage was filled by text.
LIBRARY not followed by READ or WRITE.
READ or WRITE not followed by legal terminator.
READ or WRITE not followed by a right paren.
Page number too large (maximum = 15).
Matching left paren not found after 4 args.
Number of blocks too large or 0 (max. = 16).
Sum of Page+Nblks greater than 16.
Left paren not followed by ; or CR.
DECtape error. Error will show in the MQ.*
Logarithm of zero requested.
Literal number is too large.
Neither a comma nor matching left paren
following an argument.

Errors (cont'd>.
CODE

MEANING

26.91

Negative exponent used.
Exponent is too large.
Division by zero requested.
FNEW Index is too large.
Imaginary square roots required.
Illegal character or unavailable command.
or unavailable function used.

26.96
28.58
28.;5
30.48
31. <7

The line number following error code 18.;1 is meaningless because the DECtape uses the program interrupt.

J tm Crapuchettes

26 August 1969.

Tete +y pe.

( t'ro VV\

ou+pu.+ bu~er tvicrea.se.& fo (25 clA.a.iracl-ev-~
l '=> ) •

Cove

¢ : Fee.AL pv-o.per

Cor-e

!. :

vayiaJole.s

Te.')(+ (a..iopf"ox, 4K.i~i~4e<s):-4) t(o..:+o..'. { z \Ci~,+esers)

FD~S ,f~Vtet-r'oll\ ~p{ct<!G<!d
FD I S

- ~\At'\ c.+iolf\

Modi+t'e& - , ot.e , or .Jwo a.~ume~
.

LtBgA~Y CoW\MO.v..d • · Gi\l\cl . i:-NE'v.J~ fu.rtc..ft~lA ~-ed
-to· K:eA i:> / vve n£ tu-L·~~ CD~e i bµ .(?{er 2f
· ,'<ctC(:.ess.. .

·: F4DC
~

-Ute bu..+fer .for s..fo<d.'de

.t reh-tev~ .

.fwV)ettt>V\ tv\Ool,'.(ie~ - oVle er <f,,.,o ~rtu.vtt~~

E.rro r . ~D&es

2: ,-: ~::~~:::· .I'\_{·:.~.),.-t' _._: ·;-·

_.-·;_ '~- .·'.k_- - ";,":_:-::__

.·

h4-ve bee.~ ci~J: ~c\"
o.J.ol.eol OJAd ~a.\A~e.ol . COM Wla...\/\.sQ_s,,

· . J.r.C.

·LtBri!A-R'l

'2E14D . (SLK~ PA.~e,'· NS~~~, UtJtT')

:t..1 f>R,At<.V

uJ R. \\"E"

~AMi:"'. A:S

'· (

J+~oVE ) .

wke<e ~ ..:Si.'K =

De::-+~f'e

:·.'•

,,_

...

,,.,

,_···: ;·.

block.. U\U.mloe.ir . ~li\e-re £cAP or We·ITE"'

wi ti Ma.rt

·.·
. ..
.
., . ... 'PAGE = C.Ore i bu ~tev-- ·P,.':le · ( iZ.Su, lees) . wheY-e..
t::b...+-o. .fv-ttMS ~V" will g~rt ,((1 1-o i5'J. T11i-I-= rp
JJSL~S=- /Jt.Lmbev- o.f Dedu.pe. bloc:..k.~ ( { pa.~e.
. :ea.ch) ib be -ti-t:UA sfe""e& [1. ~ 16]. 'I.ii.f.-= 1.
lfNIT: . . D~~ipe LJ.J\tf- .for fr~s.fer.
· Inl+=- i.
.
-

AbbYev ,O.+io~~ ; . , · '.'
, .·.' 'L

~,,Ll.5~~ ~. ·.~~··~ ;~.~~!;d: '~~~'.~. · '.• ,o.!'~7';I:~f1i;t :.j .•. ,.•
'':

i.i\ :;.· , ;;,~r.E: ·.'IMO.'j 'be -f.roUV\.,.?~e. ,~. ·.~u..r _,,a~L.tMe~+s. }'
'~ ene(~se&.. i\f\ · ..f-tte· pO.fe.vt~e.~e.S. : Tu.e'J tin;: ~ll\~ea
.VvcM
.· OIA+

t~ft -~;.;r~~k.f-~ ~,~;-a_n~r·~·j~~e~ts . te.f±~ ·> .···•
o..re {e# o..s pre v1eus~ s~.. T.\L cu'\ a.~ume~.

·.· ' •. ,s . {e ~ "eu.+ ~ .· ~e

c~WllJV\O... ·. pree?ec(ai\!1..
ntuS.t a..l~c
, .. ~ ··.bz ! ~.plac~el !=>~ ~e. clDstitl~ p:i.re\A. #esis.. ·. , · .·, :
,·
one o~ .. ~e · 4-\v-ee .poE:.Si ~le. · se-+s

of'

.. . , Ca,V\

...,-··

be. ·. a.sed. ' .. V
; Se+~ .' :'< '>.

Sll..V\-\.e
·r.

•

.~.
,. · t

'·

"?·>··"!-'

- ..

·-~

....,

".· ,- ·..~..
-

·,··,

"'1

.'.

'.·

s.
..

AII Mu~+ be u.sc& i"'

~SET'' co\M\.\'l~ \-\cf...
A\\ ca..\I\ h()..ve.,. either Co\I\ s +-a \A.-+-s ov- vo.v-\Al.o les.
Ct.NJu.Me~+.-s..

as
FAVC(

Q. .,,

So.~"'ple
So..Mpfe

FAt>C( a. )

~rx

~o.~n'\~t

MPX ™"~et

Q,.

U.V\~e.V' c.(o::..k

e>.. •.

ccvvhroL

[._,,o c\o~~J

b '# ¢ ') Wc:l.~t .for- cl~k ~la.<j o.~c! · ~e~ ~w.ple,
b= 0 ~ wc..\t ~ov- c.{ccl< .Cla.1 ., cl~v- .Cta.'3 O.\f\.&l +lteAA SA\A;l.fl<c.

'FoV"

For

FDtS( x .. y)
Fl)\S( x.)

x a.~el '{ po'i>'Jic\I\ af\ sc"pe • ploiter,

. Set
Se.+

X pos't\lDV\ OV\ .Sc.ope Et- ~lotte'(' (y le(+

(A.S

~e_.f ) •

-y.

-~~

·•

(o) o) '~ \o~er ;le.f-1- ~o.VI& coll"~e...- .01\ ploife.v- ~, SCofe · (-fo.,_,-Plv).
"';~ .

-·,,

.(ov,o'-1),

S+or-e \\l\k~er ~ar+ e.t X ;~ \oc:A.\to ~ i..

F~EW(
i,,. x) .
.

<be.+ .\rt.\2e.~ev- ~VOM 1oea_-\-tOlft ~,

Ftve-w(.i)
.. ·

, .·

.. ·

Cl.

., ,

sk>.-e.&. Modu.lo 2. , so edv-e. shou.\c:Q be +tt-ke~ 1u
. ·kee.p : -Z04S £ ~ '= 2.0+1
~

C:fl

r~rn~+ be 111 -Hte

ptl!f,e

126 1b

~;·

r<~\J\c:ae

. ¢ ~ i:-...-j~z.047 .. E"ac:...h
$pec(A~ b~ ~~ Ll BRA~'/ cowtV\4ct\f\&. a;,~+tti'"~
loc.o.·h'o"'$~ a.YI.& he'A(!e . t = O t-f!ters ..fo

· · 4-he 1~ l"c.ot+t;,411.

bt>..C.t-er.

t.". p!l~e ti> ~~· . -4-{\e. core:. · t alt1.+iQ.
( i;. tzB 1 tll foct.\..-hen o.t fttJe: 1 ~· i::: 2SS
1
(/

is 3 r_4 te>caA~ ... o ~ f~~c z., > e-4-c..) .

See. ne.~+

paz'3e.

·-.'

For

~ > ¢> ··

For

~-"'=- -1

For

~ l..-2.

H-P ~-0 -rz;

Move.

. .FPUP ( i!)

;.,

ret\ ~ cko..v-t •

. ·<· .·

··~

\
>

.l t•
¢

t t 1 t 1 t t t.' t 1 .,1

~~'

l
2.

7811i·1·11·1

:;
- -_:,,·,;
. ••f,:

'!>';

$-·I"

Tiu:> av-eC\ is . U.-s.e& -Por bo~ dQfa·· .S+ora.~e . at\c:l
· -_'. Dec+d.f<e --· t'e~d..:. \Orit~ +rcu~s~~. .• FNc·\J_:;_w;· ~iv
'. :·!':Access ~is bu#~r wt.te·v\ \
;~~··;h:'.:,;t;):~~~;~~:.. ~"R:{~;£,2: .:~

or·

.', 1) . loco..·l-io"' specu1.P1~d is 01A..fs1'c:te .+-ke pa~s ~petl~e.o..
b, ~«; .. C...l,&J<!ARV ~~~M 4\.\.~ •. ' . ·2.tt.":'~ ~:~q.~\~t·. . . . ·.·:.
2.) loeA-+t
. 0~V\ . l6 llJ/./-14,', "' ~e pa.~~~ AtJD DeC.ft:Lpe
I~

M.o-\-

; IA .

IAAl"l-4--ln IA

...

·.-·
. ..

~--:

A1:>01T1o~s

FocALK. ·

'? 17. o<f
1 11.4 7
117.51
? 17.C,4? 17. 8'1
1 11. "1
1 17.q+

? 11. :5

)

L1ee1u1.~ CoM~c~:v\tl. vief foH~we&. b'j .READ :o~ ~£-,TE"
te~o e1r Wf!ne: 11\0+ ~ollowe& !?~ le~Gtl +erM i~~~V'
re.c;1::rD or \AJe.\iE no+.f'otlowe.J. blj e.1'%kt f'o:revi.. (,(or (
Po.coe nu.M1'er (o.r81.(..Jt1e"* #2) -too la~e. (Pttl.·x~='t~).
Mo...f..c.h(h~ Le.C+ PareV\. no+ .fouYtd a...fieY" 4 e.v-~s. >, 1 o.-)
tJu.Mbev- o.C S1oc.lc..s (a~.~3) -foo fo.r-5e (M~X 16)
Su_vn o+ Pd~e + Sloe ks ~.-ea.fer ..J..l\a."' If>.
Left fb.r~ not foUo~e.d.: b'1 ; or:_ c.-, tia,

.•.;.

Dec.+a.pe G:rror. - T'1e. ~rro~ ~·tif:~·h6~ ~~·~~~·e-~·MG.* -~
-

? t.~.; 7

· ._': Ne,'-1-her 0 cowiW\~ _flOr-

an a.r~ me\\+.
(A,

: j

,; :

.; .

,, .- ·~~. -~~ '-'i

• :

_,,_ '«,.,,.:;

~-- mo.+c~:~·f\5 L~~+ fd~~"~otlo~'~S

- -1

{<OU Tl IVE
~ 4-ot:Jo

4Cic:>o

71.AO

<'i.>TA

. /rNrr1A"t..fZE

I INTO

~'010

Pl A

.A)C.IN

''Z-'34)

TA 'D

i''1'G'~P

'30 ,.,

PC!'\

·A'U>ttT

f "2.lf.9

lA D

Jl.1to

. ~'2..7..7

De.A

CNTf!...

4-2..f 7

.Jl\{~

MOUC

I /'A1) "~ rr

:to'? I

flC}D

. P77 ·

/REVJ 1r 11..

~.0/0

OcA

A't:/flJ

. It ..

tl070

TAD

Mt.6.,

'i.

· '$ZZ7

Pl-A

CwVTR

4-2..\-7

JM~

. , (Mou£"

4'
(<;"

~b·~

mP I"*°·!.

'2t70

.: 200

; t·.

7770

ML@~ -4.¢

I .

· bz11

CDF 4:f

;..

,'.3410

D t.t:l ..! A'/. I t.J

· ''='ZDI

,Ct>~

'- i.._. Io'-.
TA D r.. ·i/f>:t>c.tT

tf>~" .. ·.~

S'"Z2.fJ
;'S'bl7

J~ P

ft>~()

14~'30,

1.:

• .

•

. <j.

.,,,_

. ·~ ti
<P

6
b

·¢

'f-V

...
·.

·.·.sii\ .

. ,;_ / MotJe-. ··FR,~ · }~xoi.tT.. l(.Dtz.tz ¢)

/TO

Ceo
~·

...

·MO\J t -t-4..
-,.

'"·--'

•.. ,

;r-

vA«-nl-et..t:: l\JAf'.\G:" ao a

•·.I c >.· ; : ' ·,,, '

..: .:.. '

7~77.

· fb'Ob

:
,_

'. <fJ

Cl'VT'R
·\'
. ~ '1 '

1
3

(}.)O~DS

.~ l' :r. /llllJ~ ~ ~

rr£XP-f, •

.t.¢1.¢¢

,7.2.7..7

70 Pt-tT ttJTO

/ t.J.oiG""
rr
.
.
.

·~//;'

1fS (8) 11..)tiePS

{,. '.,

_LS

- . ~'.

fl\.W-e'~ ¢

.:f. ,., Z-7
. -

Fl~T

tf5¢¢¢

1 I ( 9)

14 tl

/ 4.!o:r

·.C

1-0

l..M--D

,J..

.. fl

q..

.. ,,-

·.

A-t11\l

...
·'

,.
.

1 ".
'1·

•.
...

SP.~w. ;

•

:'.' ·'

;;<:~~·.

:.. /. PotivTe:R. TO
,,.,,,.

f·

·~55'"

' ., ... 4-o70 . ' ...

.. :,,~·.~

..·.,·

..•-:·-~

F (! r. f'i !.. \·.' M(I DS

/MOf!JFJf':P.TIC1l\S TO fll-\ FOC/'.'IL TC1 PLLOL·! READif\ifi FROi'<I /\i\D
/\,JRlTif'i(~ Ot\1 !'FCTAPF, TO LFi\f~THN THF OUTPUT FlUFFFR
/AN[! TO MODIFY SFvr•'RAL cw THF l"lJl\CTICJNS.
/

ITHF HIGH SPFFn PAPER TAPE READFR COMMAl\n HAS BFFl\
/REfv/OVED·
I

/JIM CRAPUCHFTTFS,
NOVFMBFR 1962·

ST~NFORD

Ul\IVFRSITY

/LFNFTJ-JF.l\ OUTPUT
? 6L!~

vjvi?6

27?0

0026

27.43

1 02 /J

ril07 Li

~L!\.'10

BlJFFF.R TO

128 CHAR.l.ICTERS·

/!'.'.IND P177

I I NCRE/.\ SF>-" T 1 i\:T"

AND P177

/JNCREASE--"XOUTL"

TP.D P7600

/CLEAR

3 LJQQ}

/VARIABLES START

*2720

*2 7 /J~
128(1(il)

LOCS

·.q/J

FNQ,
/JN

LiK

/MOVED.

MOVE[)

FOCAL.w, THE DUMMY LINE AT BEGil\NING MUST ALSO BE
MOD TO ~.a CHARS BY USING P77 AND Mt00·

/S}-JORTEN UPPFR CORF

TEXT BUFFfR TO 1972Cl0> LOCS·

*311 6
3 t t f,

!3P3

~117

lV'ilVl

TAD TFNf!
TAD AXIN

81?0
31P1
31?P
31?3

7620
5707

JMP I PCKl

1?36
1?37

Li5? 6
Ll0VJ :1

7000

SNL.

/CHFCK FOR END OF BUFFER

CLA

/OK

F:RROf<?

T F'l\' D,

-3775

* 1236

!\OP

CTYPF2+2)
/RFMOVE

"="

ON TYPE OUT

NOP

7 0, (i'j (i)

/CHANGF TO

FDIS~-NO~

* 1 1 /iftl
xn1s,

FDISCX,Y> OR FOISCXl CNO CHANBE TO Yl

/NOTF--THIS IS
/IN 3
I i\TFC:Ff~

11.a0

/J/JSP

1141
J I 119
1 } /.13

1·sr-13
Li5911
43f.3

PUSHA
PUSHJ

lJ/J/i

53Ll7

JMP JlJSP

._IMS

\·!ORD F'·F'·

LiTH

LOC OF FLARG2,

~OT

PACl~AC'.E

/SAVF AC
/CHFCK SFP & IF COMMA, BET ARG
TCOM
/NOT COMMA
- 1-

USED

l l /j c;
1 t /J h
1 1 L•7
1 1 50

(-, (i'i (, 3

1 l 51

7 /1] 0

7?1710

1 /JI 3
f,057

!SET y

DYL

rnsp,

CL fl
PClPA

/SET

DXS
SKP
ICH~NGF

x g I NTn~ •

FDXS TO FPUP--PFN AND CHART

*5571
5 571
5572
5573
5574

5575
5576
5577

L!li5'?

XPlJP ..

JMS I I NTF. H:R

7L:50

SNA

f; 0? LJ

60? Li

75Ll(7i
6072
5777
7567

SMA

/(,ET AR G
/0=PEi\ not-JN

SZA

/+=PE"N UP

607?

JMP I
XPEN

• +1

*7567
7567
757!"1J
7571
7 57?
7572.
7574
7 r.;7r::.,
7S7fi
7 577

7Vl0 l
7Li50
(,07?.
7550

2200

?67?

XPFN,

IAC
SNA
f,(!') 7?

/-1 =PH-.:

up .. MOVE CHART

/-=t-'IOVF

CHART

/-2 =PEI\

ON, MOVE CHART

/CHANGE

HASH

SP.I\ st\: fl

f:.021

60?1

7!1101

IAC

7t.C,f7!

~Nf.

6024

6024
JMP I F:FUN3I

5500

r.1. t'\

*FNTf\~3L+ 5
2672

CODF--PUP

/GETARr RCIUTINF--RECURSIVE
:+6572
6 5 7'?

Li501

6578
6 57 Li
r,575

1 6~?

657f.

GETARF, PIJSHJ
F \If\ L- 1

/EVALUATE NFXT ARG
/SXIP THIS CH~R ALSO

/!Ll5'?

JMS I It\TF:GF:R

7300

CL.ti CLL

IARG IN FLAC+2

550'?.

POPJ

/RFCURSIVE EXIT

/JniECt<--Ct 1 FCKS FOR ti!\OTHER M::C:UMENT I l\ PARAM LI ST (I· E •
/

Lt'.IST

SFP/\RATCIP

OTHFR~ISE

v:AS P.

CCitJ,tvffl).

Of"E'

GF:TS

IT·

CHFCXS FOR MATCHING PARE~S.

*5755
5755
575,,;
5757

00~10

45(11

TCHECK, 0
PUSH,J

5 7 f,(11
5 7 fit

5~7S

57f.?
r:.,7r-.'?,

?001

57(..LI

7LI1 0

?Lil (,ii
4 51 I

/CHF.Cl<

FOR COMMt\

TCOM

/1~6'.1

SKP
JMP TCHl
SORTC:

/NOT

COMMA

/WAS COMMA, ARG HERE

TF.RMS-1 /CHFCK LJST FOR TERMINATOR
SKP
-2-

ON LIST--ERROH
PAR EN CODE

':-7AS

LIS? 6

F.RRORP

!NOT

576(-.
5767

l~t3

POPA
TAO P8A

/GF:T LAST

srrn
5771
5772
5773
S77Li
5775
5776
5777

1377
7f111]

CI~

1 1? 7
7 6Llfj

TAD SORTCN
SZ.A CLA

IDO THFY MATCH?

5365

JMP
SkP

/NO--SAME ERROR MESSA GE

7Ll10
::?.355

TCH l 1

ISZ TC.HF.CK
JMP I TCHECK

P3A,

5755

0003

• - f,

/HERE IF COMMA

IFNFW--ACCFSSF:S DATA POINTS IN UPPER CORF BUFFER
*7155
715S
7156
7157
71 6(1
7161
7 t 6l'
7163
7164
7165
7 l t;f,
7167
7] 70
7171
7 1 72
7173
7174
7175
717~

7177

LtA52

XFNF:\!i,

1375
317?.

JMS I I NTEf;ER
TAD BASE
DCA PTR

Li52 6

TAD PTR
NOP
SMA
FRROR2

/WAS

7000

NOP

/"TAD P2"

77Ls0

SMA SZA

s~r..~

._IMP

1 1 72

7000
7 SP.rel

POINTER
/"TAD C200" IF' START AT 3600
/CHECK

11 72

TAD PTR

PUSHA

/SAMF F-RROR

PUSH ..J

/CHF.CK

li363

TCOM

5776
5777
4000
6171
6353

JMP I XFGET
JMP I XFPUT
BASE,

XFGFT,
XFPUT,

Ir SAFETY NEEDF.D

CLA

·-3

A503
.li5'1 l

TOO BIG

4000
XC:FT
XPlJT

-3-

FOR ANOTHER ARG

IWASN •1 COMMA,

so (->ET

•

/CHf.\f\'f;F. TO Ffl.JJC rl/i\:CTION--FADCC I), Gf:T MPX CHAi\l\EL I
I
OR FADCCJ,c>, GFT MPX CHAN I & USE CLOCK
LJLJ5P
LJ503

*A317
XADr. ..

/NOTF THAT THIS REMOVES THE H.s. READER
..J!v.S I

I NTE (~ER

63 1 7
f, 3?.Vl
63:?1

LJSfH

PUSHJ

(, ;l!)~

Li363

63?3
6 3P 4
63?5

5335

TCOM
JMP XAD1+6
CLL

63?6

7100
7650
712(1

10, WAIT
/~JAIT

7200
(., 121
7Lil0

CKSF

5330

6333

6336

7Ll30
61 ::> f,
1 LI) 3
6 5Ll2

6337
63L1!?1

6002

JMP ·-2
SZL
CKCF CKDF
POPA
ADSC
I OF

6532

ADCV

72[7.;0
6531

CLA

6 ~Li I
(, 3 '1?

61Ll3
6 3 ill!
6345
6346
63LJ7

FOR CLOCK

SKP

/IF LINK, CLEAR_ CLOCK
/GET CHANNEL
tSET IT

/MUST WAIT WITH IOF FOR DONE

ADSF

53L1P

JMP

653L!

ADRB
ION

6001

3V'L45
3046

OR -, WAIT FOR CLOCK
A~D THF~ CLEAR

SNA CLA

6330
6331
633?

XAD1,

/CHECK SEP, ETC·
/NO SECOND ARG--SKIP CLOCK

STL
CLA

6327

6 33L1
6335

/SA VF CHANNF.L

f>USHA

XAD?,

• -1

OCA FLAC+l
DCA FLAC+2
TAO P13

/SET UP AS AN INTEGER

6350

1005

6351

3!/!L!L!

DCA F'l..AC

635?

5500

JMP I F.FllN3I

/COKTINUATION OF FNFW ROUTINr
., "!'2-c::>
XPUT;

6353

635it
6355

it862
~1...W4b
6? I l
3572
f.?. 0 1

6356
6357
63fi(i)
6361

636?.
6363
/..':}. 6A
f..3f.1:;,
f..3(,(-,
f, 3 (., 7
f, ::I 70

63 71
(,37?,
6373

5500

9.1000
1 Li 1 3
317?
11 7?
1 1 7 ::I
7510
537'1
l l 7 it
76?.0
l.J77 6

ICHFI-<:,

13-fi,~.
DP1\JF' t.lf\ .STL. /SAVE THE INTErr.R
/IF l-HTHIN OT BUFFER> viAIT FOR DONE
JMS ICHEK
TAD ~ FLl\Cf2..
CDF 1 (il

DCP I PTR
C:DF 00
..IMP I F:F llN3 I

())

/CHECKS POINTER FOR WITHIN OT

POPA

/BUFFER SPECIFIED BY LAST LIBRARY
/CALL· IF IT IS> WAITS°FOR NO
/NO OT MOTION

DCA PTR.
T 1\11 PTR
TPO Ml..Ov,;

SPA

IOK
MDIF
SNL CLA
.JMS I Dl·.IATE
J!v.P
T .0 fl

-Lt-

/Wt\S IN BUFFER--MOTION?

•
79.f~O!

IOK,

f.:.37L1
f..375

576?.

6376
6377

0000 · Sf'VL

Ll5 71

D l·JJ\ TE,

CLA
JMP l

/EVERYTHINf; OK
I CHF.K

fHU\I T

/REST OF FNEW ROUTINE
6171

6172
6173
617.6
6175
6176
6177

LJ.777
621 J

*61 71

xr.rr,

JMS I IICHf:K
CDF' 10

1 572
6201

TAI) I PTR
CDF 00·

5776
6346

JMP I

6362

IICHEK, ICHEK

• +1

XAD2

/ADDITIONS TO PAGE 0
*172

PTR,

0173
01 7.6

0000
4000
7600

Ml.Ol•i,
MDI F,

-4000

0175

(llrJ00.

MCOfvi,

0172

-20fl
0

/INTERCOM REG TO DT ROUTINES

/CHANGES TO VARIOUS TABLES

LIB

/COM GO
/POINT L TO LIB ROUTINE

ERRORS

I* COMMAND NOT LEGAL

*1201
U?.01

.6231

121217

2725

*1207

01.lfil 1

1140

01.!03
0Li0A

5571
6317

0413

7155

*F'NTABF-4·3
·XDIS

/PATCH NE\-J

r < :,

ROUTINES INTO FUNCTION TABLE
-~ : ~

;-~

*F'NTA8F+5

XPUP
XADC

~:.-

*Fl\'T.ABF+tS
X ft"Nf. \-J

/CHANr;F

BOTTOM OF PUSH-POP LIST FOR NE\-J LIBRARY CO<v'rMAND

*BOTTOM
00::?7

A230.

LIB-1

,-.·'.

-s-

F\lf:AL\·.I f"•OPS

:->.

•

!LIBRARY COMMAND--RFAD FROM OR WRITF ONTO OECTAPES
I
FROM l.IPPFR CORF BUFFFR· DATA IS ACCESSED BY lil\E~\I).
I
COMMANDS:
I
LIBRARY RFAO CBLK, PAGE, ~BLKS, UNIT )
I
LIBRARY WRITE C
SAME AS ABOVE
>
/
WHFRE:
/
BLK=TAPE BLOCK,
PAGE=CORE PAGE <0-15),
I
NBLKS=NUMBER OF BLOCKS TO READ OR WRITE,
I
AND
lJNIT=DECTAPE UNIT CJ -fD •
I
ABBRFVIATI.ONS:
I
L=LIPRARY, R=READ, W=WRITE·
I
IT IS POSSIBLF TO HAVF FROM ONE TO FOUR ARGUMENTS FOR
I
THIS COMMAND. THE OTHER ARGUMENTS ARE LEFT AS THEY
/
WFRF SET PREVIOUSLY· THE ARGUMENTS ARE SCANNED FROM
/
LEFT TO RIGHT SO <BLK), <BLK, PAGE, MNBLKS> AR~
I
BOTH LFGAL·
I
ANY OF THF THRFF SETS OF PARENTHESES CAN GE USED, BUT
I
THF.Y MIJST Bf MATCHED·
I
I
I

I
. I

IT IS POSSIBLE TO DOUBLE BUFFER THE DECTAPE BECAUSE
THF FNFW ROUTl~F WILL ALLOW REMOVAL OF DATA ONLY
IF IT IS NOT klTHIN THF BUFFER DESCRIBED BY THIS
COMMAND, OR IF THE DECTAPE IS NOT IN MOTIO~.

*4231
Ll231
Li232
"1233
AP~A

il235
Ll236

A'?37
A?L!0

Ll521
1 1 Ll2
Ll503
A506
Ll 51 1

4246
Ll'?A1

AS'? 6

4~50

1?7 Ll

42-41
A24P
Ll2A3
L!f> II LI
Ll2Ll5

/SKIP SPACES BETWEEN COMMANDS

PUS HA

/SAVE CHAR

GETC
SOR TC

/GO TO TERMINATOR

GL I ST-·1

1 't05
7Al0
523A
1A13
J35P
7450
5951
10f.7
76'10

SP NOR
TAD CHAR

SKP
JMP

• - Li

POPA

/GET CHAR
/R?

TAO MINR
SNA

LIRJ,

JMP LIBJ

/YES--READ

TAD MS
SZA CLA
F.RROR2
TAD P6

/W?

/NEITHFH--ERROR
/SET WRITE

TAD OTR

'1P ~ 1

1~56

Ll?.5?.
L!P53

3355
LIS? 1
Li 51 1
?f-Wll

fl CA DTIJ
SPNOR

SOR TC

/SET R- lv POINTF.R
/IGNORF. SPACFS
/CHECK TERMINATOR

IFRROR--TFRMINATOR NOT FOUND

Li?SA

Lt'? 5 5

LiP.S6
LJ2 57
/1? 1-0
Ii'> f. 1

71110
Li 5?. r,
1 1P.7

SKP
ERR Of~?

11503

PUSH<'

A262

'~523

TSTLPR

TAD SORTCN
TERM CODE
/TEST Ir L-PAREN
/SAVE

-6-

i" OCAL !-.'

MOD~

LJ?.63

L!S'?.6

ERROR?

A?.f,1.1

L1501
f.57?

PllSHJ

Lz!'.'65
LJ'?6f>

/NO·-F:RROR
/GF:T AN ARf>

GFTAR ("

1046

TAD FLAC+2

4'?67

3343

DC?\

BLK

LJ?.70

4757

,JMS

1 1 TCHFK

4271

5321

LJ??'?.
4273

1 353

JMP DOTAPE
TAO P20
MQL SHL

LJ'?..74

Ll?75
LJ276

L.i'2 77

7433
!7J0A6

P6,

/7 PLACES
/"TAD

NOP
FRROR?

7501

4302

3340
4757
53~ l
70.41
331.J:?

[)Cf.I.. CORE

/SET CORF. LOC

JMS I ITCHFK
..IMP l"lOTAPF

CIA
OCA MBLKS
JMS I ITCHEK

LJ757

Ll310

5321

JMP OOTAPF

7Lf33

MQL SHL

Ll 31 5

Ll316
4317
4320
LI 32 J

Ll3?.'?.
Lf323
43PLl

CU\ MQP>
TAD P10

LJ.757
741~

SKP

/OK--CORRECT R-PARF:N

4526
1340
1AL'1

ERROR2
TAD CORE:
CIA
OCA MLO~J
TAD MBLKS

/SORRY--SHOULD HAVE BEEN PAREN
/SET UP BUFFER LIMITS FOR FNE~

3173

0006

43?.7

7701

CL~.

IJ330
4331
A33'?.

317A
t 1 7 Li

DCA MDIF
TAD MDlF

7500

4333
4334
4335
4336

LI SP. 6

SMA
F'.RROR2

1173

TAD MLO!tJ

7710

SPA CLA
ERROR2
JMS I flTIJ

A3L15
113116

4';'.'17

9C10> PLACES

/SET FIELD TO 1

Lt326

Li31!3

BLOCKS

OCA UNIT
JMS I I TCHEK

1 342
7433

Ll3L!A

/-!f

/CLEAR MQ & SHIFT BACK

H'l

0010
7701
135.l!
33.l!l

Ll325

.1!337
Li 3 Lt,1
A3L'1
A3A'?

SAVE PA GE 32 or· CORE

/CIRCLED BACK INTO TEXT

L131 J
LI 312

"218
43)4

C200" TO

SMA CL.A

MfJA

4305
4306
4307

MEANS •000 CP17 FOR 3600>
/CLEAR MQ & SHIFT BACK

4526

L130LI

/PAGt~0

CLA MQA

7701
7000
7700

Ll300
Ll 301

4303

/BLOCK NUMBER
/CHECK TERM, ARG, ETC·
/WAS CORRECT PAREN

MOL SHL

A526
4755

4000
1010
7777
rj010
Ll$06

L!52]
L:510
1406

CORF,

UNIT,
M8LKS,
8LK,

t<:QA

/CHECK FOR CORRECT ARGUMENTS

/TOO MANY BLOCKS--BACK INTO TEXT
/CiO TO READ OR ~RITE ROUTINE
/INITIALIZF ALL

.t000
1010
-1
\(71

GfTC

/SKIP OVER THIS CHAR

SP NOR
SORTJ

/SKIP SPACES

/TEST TF:RMI NI\ TOR

TLIST-1
-7-

. rv.ons

r~ocA1..1,

•

.63"i0
ll351
Li35'?
LJ353
435Ll
11355

LIElLIS-TLIST

?751
Ll 5?. (,

7 /15(,
r.0::>n
001 r1
LiLJ00

'-1356

L:.-1f:10

L:357

5755

£1360
4361
.ti362

.1351
061 ti
{i1 f-20

LIR?,
MINR,

ERROr<2

ppfj,
PH>i,

/BAD

TERMINATOR

-3?2
10

DTI J,
R1?8
f)TR,
RJ?8
ITCHF.K, TCHF.CK
LIRLJS, LIPP
PROCFSS

/,--ERROR
/J--COl"ITINUF ON THIS LI l\F.
/C•R·--END OF LINF

PCJ

/TCOM ROUTil\F--CALLED RFCURSIVELY, CHECKS THAT TERMINATOR
/
IS A COMMA <IF SO GETS J'.INOTHER ARGU~E~T FROM THE LISTl•
4363

Li5?1

'6364
4365
Ll366

11 42

4367
4370
l.!37 J
L!37!?.
/.J';'.7';'.
.b.37 Li
Ll375
Li316

4'27 7

TCOM,

1377
76.tJ.0
550?.

SPNOR
TAO CHAR
TAD MCOMM
SZA CLA

/IGNORE SPACES

/WAS

4501

POPJ
PUSH ...J

6572
] Id 3

POPA

7 1{?)1
317R

OCA

GETARG

CLL

JMP I

Mf.OMM,

/GET THE

NEXT ARG·

/CORRFCT RF TURI\

Il\C

PTR
TJ'.ID FLAC+2

10LJ6

557?
752.l!

NOT COMMA, EXIT

/CET I NTEGF.R FROM GETARG
/NOW RETURN

PTR

-25.ti

-B-

FOCAL\•.' MODS

•

.t1

/MODIFIED DFCTA.PF ROUTINES TO BE USr-:D ltdTH

:t-LlL100

/FOCAL.\.!•

ERROR ROUTIKF. GOF.S TO FOCAL FHROR ROUTil\E:,

ITHF INTFRRUPT 8IT IS XOR'ED OUT ON AN ERROR, THE "ION"
/HAS BFFN RFMOVED AND TWO CONTSANTS AR[ TAKEN FROM FOCAL·
/LOAD STATUS A CCL.EAR AND XOR>

DTLA=6766
00~0

Ll371
l 2f1fll
3206
7?.01
5::' l 0

JMS
TAD
DCA
CL.A
JMP

Dlo.1AIT

IAC
OGR-2

/SFT TO WRITE

4371

JMS

l)l-c'fl IT

/WAIT IF MOTION IS ON

126?

T.OD
!1CA

DR128C
DRFT

CLA

CMA

4Ll0LJ
LI Llk1 5

LJ L!0 7
4Lll 0
44] l
A41?
4413
LILllLl
llL115

LILI](.,

R128,

/READ 1:?8 ~·JORDS
/WAIT IF MOTION IS ON

41100
L!Ll01
4 /1{11!'.>
Ll/103

3227
72Ll0
4232
3200
LJ232

0
R1?8
l;;t 28

Jfv\S DGFT
DCA

R128

JMS DGF.T
DCA DlJF

LJ L!2 J

3230
L:2 3P.
3265
1236

4417
LJLJ'?(':

OC/'.I. DNCB
TAD DC:RET

LI L!2?.

3277

DCA

336Ll

Or.A DSTOP

LI.ti 2 ii

4932

L14PS

3~7]

JMS DGET
DCA f'TEM
JMP DTS1-l

s::rn3

LJLl'?.1

00(i}0

.tiLi.:rn

0(iH?l0

4L131

5606

/UNIT AND FI ELD

JMS DGF:T

LIL1~3

ALIP.6

/READ WRITF RETURN AFTER SEARCH
/rIRST
/CORF LOC

DRET,
f1 !IF,

DSERH

/DON'T STOP TRANSPORT AFTER SEARCH
/GET BLOCX NUMBER
,.

/INITIATE SEARCH

0
fi1
JMP

~Jt 28

DTEtv:P,
L!432

0000

OTEMX,
DGET,

/PICK UP ARGUEMEl\!TS

0
~.'128

LIL!33

1 f.06

TAD I

LILl3L1

2206

I SZ t·i1?. 8

Ll435

5632

l.!Lt36

L!Li? 7

JMP I DEFT
DRET

Ll 113 7

1270
1?66

LILILl0

L!L!LlJ
IJ L! LlP
LIL!Ll3

II A ll LJ
LI Ll45
Li LILJ6

6 7f!-.Ll
] 20!.'i
3663

/WRITE
/READ
/SF:T FUi\CTION

TAfl D?!il

TAO J:'l30
f)TXA

TAF1 RlPf<

DCA I

2175
f, 76/.J

flTXA

1 ::-13 LI

TAD

/ADRESS OF DATA
/POINT INT TO DATA
/SEND A READ OR WRITE
/SFT WORD COUNT FOR 12BC10>WOROS

DCAA

I SZ MCOl'I,
D7f>0fil

-9-

•
LJ/Jil7

3661.J

LtLl50

5676

S32?

.6 LJ 5~

677?

Ll/.1t;~

7710
5851

Ll L!

J
~

.ti/JSLJ

4~55

L1L!$f,

~/.!.657

l!L!60

l ~ LiLl61
~

tLJLJ(..O
L!LJ{.3

LJ /J64

LI 465
LlLJ(.,6

fl CA I
JMP I

S?Li5

ONCB1

030.t

30
DINT-1
20
0
DTBLK

00?0
fHi'l00

02(ii,

(7j /J0

4475

DTFM1
DBL.K,

0LJ(il0,

L1('1(11

0 61 L!

0611.t,

61 4
0

0000.

/COUNT BLOCKS
/CONTINUE OPFRATION
/COMPLEMF.NT MOTION AND DIRECTION

DR12FC, OR128
7755
owe,
7754

DC INT,

/J/J? LJ

/F:RROR FLAG

OCAA,

LlLIS 1

.l.!467
tiL;70
4 "171
/JLJ7'?.
/JA73

/READ STATUS B

TAD 0400
JMP DRi 27

127~

7755
7754
0000
0030

DTRR

SPA CLA
JMP DER
ISZ 01\:CB
JMP ORl 27

nnmNx, TA[I 0200

52h5
LtLi31

/EXIT

JMP DTS3A
Dil\'T,

2:::>6 5

(F~1s\

D~iC

f\IS

11TPU~,

~POINTER TO CURRENT ADDRESS
/POINTER TO WORD COUNT

D20Ci1i=C?00

LJ476

265.l!

f)J

lll.J77

'1!0Cil0

DSERH·,

'1500

3271
4371
1P57
336il
1272
3663
1267
3175
720]
1977
323?

il501
450?.
4503

.a 50 Ll
4505
Ll50f.

LJ507
L!S 10
Lr 51 l

/J 512
LJ513

EXIT+6

/STORE BLOCK NUMBER

DCA DTEM
JMS Dt-!AIT
TAD DTURNX
DCA DST OP
DTS J,

TAD

ors2,

I DCAA
TAD DC INT
DCA MCOM
CLA IAC
TAD DSERH
DCA DTE MP
TAO I DTE MP

f)8Ll~

DCA

/INTERRUPT RETURN

451 I.I

l 632
0332

197LJ

ANO J)?f100
TAO D61/J

/PICK UP UNIT NUMBER

4515
4516

f.1fifi

DTLA

/LOAD STATUS A

/SET TO SEARCH,NORMAL,REVERSE

ti 51 7

f.77"1

DTL8

/FIELD 0

LI 520
Ll 5~ 1

2~32

ISZ DTFMP
..JMP I DTE MP

/RETURN TO USER

A522

677?.
7006

flTRP

/LOOK FOR F.ND ZONE

563?

DTS3A,

RTL

LJ523
Ll 5? Li

771Y'I

SPA

t15PS

5?.57

JMP DTURNX

1.15~6

6772

DTRB

CLA

/IN END ZONEJ TURN AROUND

-10-

~or:f\Ll·.'

iv:ons

SP~ CLA
J(v:p OFR

Lt 5::17
Lt5.'W
L1t;Jl
,, 53()

53 5 l
{., 7h1
7 (,1 (i 6

r1vi00,

L1538
Lt53L:

1nv1f,
7 (,f,1(1)

fl 7 MH~,

4535
4536

1?75
70L! l
1?71
7L15Vi

LJ5~7

LJ 5 Lt(')

77JM

L15 Lil

5360

Li 5L1?

7 ('1 E.! l
7Li?{7l

45Li3
LJSL<Li

LJSL15
Li$L1f,

7001
7,;20
1?73

LJ, 5Li7

5'.-'LtS

LJ 550

0204
6 7 61

LI 5 51
455~

LIS 53
455LJ
Ll555

4556
Ll557
L! 5 (-. rJ

Li 5 f,}

4562

1677

4563

3?77

Li564

00vlG
676 /J
1230
677/J
5677

Ll565
4566
L.1567
Ll570

FU\b

RTL
!~TL

7 f,(il ('l
Tf.iD flTb1Lk
CM,CI IAC
TAD 01 F~-M
SNA
Jtv:P flTF I f\'D
CMA I i\C
Si\'L

CLA

/OPE:RATE 2

/FOUND 8LOCH: CHECI< DH<

IAC

Sf\:L I.LA
DTlIRN,

TAD

D2QlL!,

20 Li

ITUf<N lF HF.RE
/XOR TO A STATUS AND DISMIS

[)Li00

JMP DR1?7
f\FR,

!ITR/\
/STOP TAPF: g XOR OUT I i-.;TF:RRUPT BIT
/DON'T CLEAR ERRORS

AND 0?04
TAD f)2

0350
1035
6 7 {-,Lt
677?
7 LJ? 1
L1 5? {,

76?0
5P45

I FRRO!~

OTRf\

DTXA
DTRB
MOL
FRROR?
DTFIND,

/ERROR
/SHOv,

Sf\:L

LIGHTS

/TFST MOTION
/DON'T TURN YET

ClfDRU?7
TAD I DSERH
DCA DSFRH
0

I GE:T

DTXA

/CLEAR FLAC:

JMP

DSTOP,

STATUS B

II\' MQ

COMPLETION RETURN

/EITHER A

('.)

OR TAD 0200

<STOP)

TP fl DlW
J')TL.f3
.JMP I

/SET
DSERH

f<,fqij

FIELD

/EXIT TO COMPLFTION RETURN

D2=P2

D l•IA IT,

/WAIT FOR NO MOTION

L157}
'1572
LI 57 3

0000
f, 7 61

DTRA

Ll57L1

0015

AND 0200

Li575
/JS7fl
LJ577

76'10

SZA

f:LP

537?

~JMP

nl-1AI.T+l

5771

JMP I D lt!A IT

OTRA

67f,1

/CHM\f;F TO If\iTERRlJPT ROUTINE FOR DECTAPE INTERFWPTS•

?6Li6
26Ll?

6771
5?54

FXJT,

DTSF
JMP .+5

/NOT DE:CTA.PE

- 1l -

p 65~)
9651
:? 65?

f.761

DTRfl

00rlLi

ANO DDT JR

SZt• CL?\

PAS~

7(:..110
5575

?651•

69.1/t

/=000A,

CHECKS INTERRUPT BIT·

JMP I MCOM
/~iAS DF.CTAPF. RF:P.LLY--GO SERVICF:
RMF
/RF: STORE: I NTF:RRIJPTED f'liEMORY F' I ELDS
/AND CONTINUE PROGRAM

-12-

F~OCAL\\'

MODS

/OFFINITIONS FROM

FOCAL ITSELF

P177=0n
P 71)0(') =2 L!
PCKl =31 rz17
ERROR2=4526
AXIN=ltiJ
INTFGf~R= 52
PUS!-l.6,=Li503
PUSl-l,J=Li50 l

POPA=1Ll13
POP,J= 550:?
FFU!\31=100
FNTA1::1L=21 73
FNT/:\8F=376

F'\JAL= 1 0~13
Pl3=5
FLAC=L!L!
r:OF=6?01
RMF=62 L!Lt
ERROR5=::?725
BOTT0i'l=2 7
SORTC=Ll51 l
SQPTr.i''= ! ? 7

SORTJ=Li510
GF:TC=Li5f16
GLIST.=1406
TERMS=2C'i02

M5= 6 7
'TSTLPR=IJS23
TLIST=l LJf/l?
PROCFSS=61L!
PC1=620

P2=35
C200=15
OflTJR=Li
CHAR=1Ll2
Lll\'Ft\:0=1Li3

SPl\!C-R=L!521

-13-

C- BK FOf.t\L
AP-10 flSI<
0f'·~0

0~·50

"START BLOC:l<".o g, "

UNIT",

lJ,

LJR RFAO (~,0,8,{J); SF.T SUM=0
FOR I=0,4J 00 8·9J TYPF !
!,

!71 R • 6 f7I T

"A VF RA c~ F

7. R • 3 ,

0~·7A

FOR 1=0 .. ~J

~fl• ~0

= " 1 S UM I CCl - 1 ) * CJ - 1 > J ,

no p.95; TYPE !

! J QUIT

0R·90 FOR J:J,~; S fl=FNFWC1*8+J)J
0f:·95 FOR J:J,8J s X=F'l\Fi..·<I*8+J);
l 5·0P- C

15·0Lr C
15·06 C

S SUM=SUM+A; T %Lt, A, ..
no 15J T ?,'Lt, our,"

THIS GROUP l·JILL CONVERT THF. VARIABLF 'X' TO A FORM
THAT MAY BF. l!SFD TO TYPF OUT ITS VALUE IN OCTAL•

TYPF 'OUT' Ul\DFR %Lr.0 TO

~FT

THF OCTAL DIGITS

15·20 IF C-X) 15~~' 15.~; SFT X=?0Lr8-X
15·~H1l SFT X=X/Sl?J SFT OUT=0
15·Lr0 FOR K=0,3; S N=~-K; S Xl=FITRCX>; S OUT=OUT+J0tN•XlJ S

l S • 50 RETURN
*.

-·

rSTART BLOCK :t 0

UN IT: 1

•·'

.
1018

1016

101 Lr

1012

967
9 .13

1019
999
961
906

996
955
897

992
949

987
942

935

8LrA

835

825

889
815

805

1021

10? 1

10?.0

1009
978

101216

101713

972
921
854

9?.B

863

983
872'
7,94

881
....

c~·

AVFRAf-F

1775
1761
17?2

1175·5300

l 6il0

1 631

177LI
1753
1707
16::>1

] 537

1526

151.l!

1775
1 751>
. 171il

. 1773
17A7
1 701
t f.t?
1503

1 77?.
l 7 LILI
1673
1601
] Lt 71

l 770
} 7A0
1665
157 J
1LIS7

1766
1 733
1656

14Ll5

1 76.lf
1727
1647
1550
1Lt32

·9

1 561

*" .
START

BLOCK: 11

UN IT: 1

12
Ll3

1 P. LI

29
72
132

?5
66

3LI

??
60
tt5

1 Ll0

l Lt9

186

196

20 (,

216

227

5
35

l 1

l(iH!I

108

1 S8

167

AVFRAf.;F

...

177

100.•71900

(i'l

·0

]

1 LI

?.?

7A
1 63
P.72

31
l0P

) 10

11 7

126

1 7LI

2(ilL1

21 LI

225

3~M

316

330.

3Ll3

135

] ~ii

P~6

PA?

l 5Lt
261

X=<X-Xt>~B

BEGINNING OF DEMONSTRATION PROGRAM

PUT r,osINF WAVF. IN DATA RlJFrFf<, PLOT IT.t WRITF IT ON
DECTAP~, Z~RO THE RUrFFR> PLOT THAT> RFAD THE DATA
BACK JN, AND THFN RF-PLOT IT TO SHOW THAT IT REALLY
WAS SAVF.D··

PUT SCRATCH TAPF ON UNIT j, WRITE ENABLEO
TYPF 'RfADY' AND A RETURN WHEN READY :READY
COSINE IN DATA 8UFF"F:R--SF.:E PLOT
CQSJNF SAVED ON BLOCKS 10-17 CB), CLEAR DATA BUFFER & PLOT IT
NOW RF.AD DATA BACK IN, MODIFY & RF-PLOT IT·
END OF DEMONSTRATION
/.
*W
C- 8K FOCAL

10·02 C

THIS IS A OF.MONSTRATION PROGRAM WHICH USES SOME

OF THF. CHANGFS TO FOCALK·

10·0A C

11•10 TYPE!,,"
BEGINNING OF OEMONSTRATION PROGRAM",!,!
11 ·~V'I T "PUT COSINF. t-JAVF: IN DATA BUFFER, PLOT·JT,, WRITE IT ON",
11 ·50 T "DECTAPE, ZERO THE BUFFER, PLOT THAT,, READ THE DATA",, !
11•70 T "BACK IN,,. AND THEN RE-PLOT IT TO SHO~J THAT IT REALLY",!
1 1 • 90 T " ~JA S SA VE D • " ,

12 -t 0 ASK ! ,, "PUT SCRATCH TAPE ON UI'\ IT 1, WRl TE ·ENABLED",, !
12·30 ASK "TYPF: 'RF:ADY' AND A RE.TURN WHEN READY ", READY,
12·50 IF' CRFADY-0RF:ADY) 12·6, 1~·621 12·6
12·60 T "YOU MUST USE THE ~.:ORD 'READY' !.
TRY AGAIN•"1!J GOTO 12·3
1:?·62 DO 13·£H T ··cosJNE IN DATA BUFFF.R--SEE PLOT", !
12·64 DO 15·0; LIRRARY ~JRJTE <10,,0,8,J)J T "COSINE SAVED ON"
1:?. • 66 T "BLOCKS 10-1 7 <8 >, CLEAR DATA BUFFER & PLOT IT",,!

12·68 FOR I=ti1'1200J S Z=FNFl·JCI,0>,

12·70 DO 15.J T "NOW RFAD OATA BACK IN, MODIF'Y .!! RE-PLOT.IT•",
12·73 L READ C10)J FOR l=0,1023J S Z=FNFW~I,FNEW<I>•0·5>

12·75 110 l5J T "FNO OF DF.MONSTRATION ", !, !
12·99 QUIT
THIS GROllP FILLS PART OF THE DATA BUFFFR ~JI TH A
13·A4 C
COS1NF WAVF: C256 POINTS/CYCL~) WHOSE AVERAGE
13°06 C
VALUE IS 511·
13·10 S A=3·1h159/128J S 8=511

13•0::> C

13°20 FOR J=011200J S Z=FNEWCI,<FCOS<I•A>+l>*B>
18·30 RF:TllRN
15·A~ C
15·0h C

THIS ~ROUP PLOTS OUT THF DATA BUFFFR FROM 0 TO 1023·
LINE 15·1 POSITIONS PEN CORRFCTLY BEFORE PLOTTING.
NOTE: THIS ROUTINE: OOES [\!QT SCALE THF DP.TA?·

15°06 C
15·10 S l•J=FPllPCI); S \.J=FOISC0,Fl\'ElH0))J DO 15•5J S W=FPUPC0)
ts.2g C R~MFMBFR THAT FDIS TAKFS ARGS MODULO 2t10·
15°30 FOR 1=0,,1023; s W=FnISCI1F~FWCl))J
1 5 • Lt0 S \.!=FPUP Ct); RF TURN
1~·5A
If-.

FOR k~J,100J S

W=t00*1~0;

C- THIS LINF ACTS AS A DELAY·

/oz:z.