Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/ptplot.exe
There are 2 other files named ptplot.exe in the archive. Click here to see a list.
?p ?x aSKzKb)E ]'$E` INX Q F: { A) '[ {B E@ (#sX y M
70D 1D + m < r, , + d < u, , < x, < {,
E0D 1D + t < |, , + m < , , < , < ,
71D + ) < , , < , < ,
B0$ 0d + + < , , + y E0D + < , , 0D + < , , < , < ,
A0D +
2F U3F Q+ 0D + 2F T3F R+ < , , + P D F A2D Q+ T F F2D T+ Q F F2D R+ S F F < , < #,
c< (, , < , , 3D S+ " < ., < 1,
2D S+ % < 3, < 6,
< ], %7D D+ L < 8, , + y E1D + - < ;, , + . < >, , S D F R D A < A, < D,
E0D 1D + 6 < E, , + ) < H, , < K, < N,
< P, < S,
c B2D R+ LC< X, , < X, F < ^, < a,
< c, < f,
< V, %7D D+ L < h, , + y < k, < n,
< p, , < U, 4 < T, E < S,
x Zx O` 5 9 7 D@ P 5 8 7 C 6 D 6` 5 9 7 D@ P 5 8 7 C 6 D 6X 3 G X 3 J P 9 ^ V^ W^ YX 3 Q $ 7 X 3 R X 3 T X 3 Q $ E X 3 R X 3 Z X 3 ` @ 9 X 3 a X 3 e $ B X 3 R X 3 e X 3 j X 3 o ( A X 3 R X p $ 7 $ E $ B $ F $ E $ B $ F ( A ( A X 3 X 3 X 3 $ 7 X 3 ( A $ F X 3 X 3 X 3 % X 3 Q $ E X 3 R X 3 * X 3 0 $ B X p $ 7 $ E $ B $ F $ E $ B $ F ( A ( A X 3 0 X 3 5 X 3 8 $ 7 X 3 = ( A ( A X 3 X A @ 9 X 3 O (A1,14A5) (' ?TOO MANY LINES')(1X,I2,':',A1,14A5) (/,' OK?(YES OR NO) ',$) (A3) (' ENTER LINE NUMBER,LINE(E.G. 3,IX=1)',/) (I,A1,14A5) (/) (6X,A1,14A5) (A1,14A5) (' ?ERROR IN LINE') (' ?LAST LINE IGNORED',/)(' ?LINE #',I2,' NEVER ENTERED-LAST LINE IGNORED') 9 YES TTY 1 KG, \ ! p @ p @ t p @ { p @ z"$ D u@d s < ., #_D zZD } $ $ s. } < 1,
: }; z+ ., s0$ + :$$ |2F $+ 9 |2F $+ 9 }3F $+ >: s+ + < 3, , {2D #+ + < 6, , 7D s+ R" s $ F y D "& $ D u $ $ . u t2D $+ G> u8& C {2D #+ Q < 9, < <,
" u $ F x D } $ $ . } < =,
: }; x+ L, : ; y+ A {2D #+ y < ?, , < B, < E,
{3D "+ y < F, , < I, < L,
#_D xZD } } < N,
: }; x+ ^, 7d + R & . s3& + %0d + 2d s: s"& $ D u u }2D $+ k> u8& h # & $ .& } Ht*d k < O, < R,
" u $ F v D } $ $ . } < T,
: }; v+ r, < U, , + Z" s $ F } D w"& $ D u $ $ w. u t2D $+ > u8& | $ $ w t3D $+ $ $ w t3& $+ t3f "+ $ $ w t3D {+ < X, " u $ F { D } $ $ w. } < [,
: }; {+
, + < ], " u $ F z D } $ $ w. } < `,
: }; z+ , : w; }+ {+ , < a, , {2D #+ + < d, , + Y < g, , {2D #+ + < j, , + Y {2D #+ +"& . F t < m, < p,
3D #+ YR$ D z^ ! zSAp ,~ X > + ${ X | X | X | $ $t X | X u ( { X | X u $ $} X | $ $t X | X t $t X t $t X | X | X | X | X | $ t ('+INPUT? (for help type HELP) '$) ('+INPUT? ',$) ('+OUTPUT? (for help type HELP) ',$) ('+OUTPUT? ',$)('+Either a colon was missing or the file name',' is too long'/) (80A1) ('+Device ',A6,' does not exist'/) ('+Device 'A6,' cannot do input'/)('+Device ',A6,' cannot do output.'/) ('WMU',I3,'.',I3) ('+Only a /COPIES switch may follow a LPT:'/)('+Illegal character "',A1,'" in COPIES swicth'/) ('+Copies must be between 1 and 63.'/) (I2) ('+Only switch available if for the LPT'/) ('+Non-directory devices require no additional information'/) ('+File name too long'/) ('+Character"',A1,'" is not valid in a file name'/) ('+Only one period is allowed in the file name.'/)('+BANK files must be read from the disk'/) ('+Bank files can not be used for output.'/) ('+PROJECT or PROGRAMMER number cannont be longer'/' than 6 characters'/) ('+Illegal character "',A1,'" in PROJECT-PROGRAMMMER',' number'/)('+ Comma missing between PROJECT and PROGRAMMER number'/) (O10)('+Nothing should follow the closing bracket for the',' PROJECT-PROGRAMMER number'/) ('+File not found or protected'/) ('R ',4A1,4X) ('+You must have answered this question in this',' program previously to use "SAME" now.'/) ('+You cannot do a /OUT while answering a /OUT'/) (' No output defined yet'/) ('+To use the CONTINUE an input must have already been',' defined.'/) (' The answer to this question defines where the program is'/' to find the data. It usually consists of a device, and'/' possibly a file name with or without a PROJECT-PROGRAMMER'/' number. Devices may be specified by their physical'/' or logical name followed by a colon (:). If the'/' device is a directory device (DSK, DTA), then a filename,'/' extension and PROJECT-PROGRAMMER number may follow it.'/' If the device used is a magtape or dectape, the tape'/' must be mounted, and in the case of a magtape it must'/' be positioned.'/'0DEFAULTS:'/' (1) If no input devices is specified but a filename is'/' given, the default device will be DSK:.'/' (2) If a device which requires a filename and extension'/' is specified, but no filename is given INPUT.DAT'/' will be used.'/' (3) If no response is given (CARRIAGE RETURN is entered)'/' the default is TTY:.'/' (4) If DSK: is specified as the input device, but no') (' PROJECT-PROGRAMMER number is used, the PROJECT-'/' PROGRAMMER number of the job is used.'/'0EXAMPLES:'/' DSK:DATA.DAT'/' TEST.DAT[220,220]'/' MTA:'/'0The following responses may also be used after the first'/' response to this question.'/' "CONTINUE" - (For MAGTAPE) Use the next set of data'/' "SAME" - Use same device specifications as used before.'/' "FINI" - End of run.'/' "/PROG" - User may initiate the run of a bank program'/' (STP, BANK, TAB, FREQ, CORL, or REGR) from'/' this program.'/' "/OUTPUT" - Redefine the output device, the program will'/' respond with "OUTPUT? ".'/)('0The answer to this question defines the destination'/' for the program''s results. It usually consists of a device'/' and possibly a filename with or without an extension.'/' Devices may be indicated by their physical or'/' logical name followed by a colon (:). If the device is'/' a directory device (DSK, DTA), then a filename,'/' extension and PROJECT-PROGRAMMER number may follow it.'/' If the device used is a magtape or dectape, the tape'/' must be mounted, and in the case of the magtape, it must'/' be positioned. If the device is a lineprinter, the user'/' may request multiple copies by following the "LPT:" with'/' a "/COPIES:" and the number of copies desired (1-63).'/'0DEFAULTS:'/' (1) - If no input device is specified but a filename is'/' given, the default device will be DSK:') (' (2) - If a device which requires a filename and extension"'/' is specified but no filename is given OUTPUT.DAT is'/' used.'/' (3) - If no response is given (a CARRIAGE RETURN is entered),'/' the default is TTY:.'/' (4) - If LPT: is spedified and no /COPEIS switch is used,'/' 1 copy is assumed.'/'0EXAMPLES:'/' DSK:SAM.F4'/' LPT:/COPIES:3'/' MTA:'/) S B . /REGR /STP DSK /OUT E ~ 9 (K HELP /OUTPUT N LPT CONTINUE 0 DSK C TTY ?FINI /FREQ Z I /CORL /BANK ] O A / 0 z , TTY FINISH @ INPUT.DAT SAME : { [ ` 7 END /TAB p a OUTPUT.DATP LPT DSK SEQOUT SEQIN SEQOUT RANDIN BINARY S< \
p B M @
5$ .D
@d P@ O % M & F
2d R+ 3F
+ q+ , 3D q+ 6D r+ 1< C, , 4D < F, , & F r < 8,
D U
+ a3F a3F 1+ 1 a3F 0+ 1 U0f + & a H U: U:
+ ,< I, , +
: U; _+ +, < 6, %6D U+ 3 < Q, < T,
+
1D + 8 U, < X,
+ U5D < < Z, < ],
+ U4D $ 2 D U: U < 5, ) $ 2.D P < ^, < b,
< 3, 27D a+ ?:
+ a3F a3F 1+ z+ a3F
+ b2F b2F
V D V $ D U.d
+ a3F a3F 1+ k a3& U: U:
+ [ < g,
< j,
+ k, , + V2D
: U; ]+ r, < s, < w,
0$ 0d + i^ ^( q4D < x, ^( $q D
1f 2+ "& 2.f
$ 2.& )F [7f 2+ ^( $ D
0D +
+ a2F ~, , +
+ a3F a3F 1+ H, +
+ a3F a3F 0+ 7 a3F 1+ 7 U0f + / a H U: U:
+ &< , , +
0D + 6 % < , <
,
T3D 3D
Z U< U3 U3H
+
1F + h3< , , +
+ r:D U1 U+ U3D / U
1$ sD U: U0d + U2F
+ < , , +
a2D 0+ H U.d
+ a3F 0+ + a3F a H U: U:
+ ,< , , +
< &,
+ (, , + Z2D V/$ 8&
< 1, < 4,
H U*d & $ D U.d
+ a3F 0+ 5+ a3F a3& U: U:
+ )" U1D + A Z2D 8& 9
< <, < ?,
a3D 0:
+ a3F a3F 1+ H < A, , +
D N@d a2D
+ M(< ', -7D a+ P,< D, , + q D
1f 2+ ^"& 2.f
$ 2.& )F [7f 2+ c( $ D
+ k < I, 0D + o < M, + o < Q, ^( Sq ^( Q ^ O( .
VF .f MzF =
+ f
"F = r0F + "( 2/
h H =0F + P ^gH 4( q3H
ZD U U < Y,
: U;
+ @d c"& $ F
2D U6& =+ %"< [, ( q3H
1f 2+ "& 2.f
$ 2.& )F [7f 2+ !( $ D
+ (< , E ^( q5D ,< ], , +
@f M!& 2F =+ 7 & F MF ="F
1f 2+ :"& 2.F
< , %
0D + > < `, + H"& $ F
2D U6& =+ V"< d, ( q3H
1f 2+ M"& 2.f
$ 2.& )F [7f 2+ R( $ D
+ D < , 57D P+ \*< f, , + +
D
$ D
!$ D P+ ^
D
+ ^( q5D n < l, , + S ^ .&
@f M!& 2F =+ y & F MF ="F
1f 2+ |"& 2.F
< , %
1D + + H
1D + ,< o, , ,< r, , + O Ap
-Ap M Ap ,~ p S U`
X
[p S Ux b`
X
[`
X
[p S Q a O
p S U`
X
[p Q a Uh b
p S UX 3
X 3
X 3
X 3
X 3
P
! S $ U X 3
" 0 S X 3
& 0 S X 3
) 0 S P
- Q $ U $ P X 3
/ X 3
4 $ a X 3
9 P
! ` $ U P
= ` $
h ^ P ^ ~
= X 3
B X 3
H P
! T @ V X 3
K $ U X 3
P P
! T @ V X 3
U X 3
Z X 3
^ X 3
f $ a X 3
l P
! T @ V P
r T $ O P
! T @ V P
r T $
X 3
s X 3
{ h ^ H ^ p SP Q ^
b $ U h U X 3 h ^ ` ^ h U X 3
X 3 X 3 X 3 ^X 3 w ?X 3
6 QX 3 (3~ + ~ + Z . \x <x *<x .-> uez+ !" b + " b + Z . h + gg M?Th
& + {,
?NO CORE AVAILABLE - CAN NOT PROCEED
!* 0** ,^ ,~ * x ,> < 0*< 3 p Z@ &@@ '@@ ' g`|+ P w,~ "p h a`~ + h ``~ + !$ h!"d h/"+ P ,~ @ @ @ @ @0 @x @@ @` edX91 ,> 7,> Zp @ &\` & < &, ,^ ,~ SMI 1 ,> 7, j B&+ J_MI 1 ,> 7, k B&+ JI5R1 ,> 7, m B&*\ U7Ap X" m B&/& p d"~ l" B&*\ U/& p d"~ l" $ B&*\ U/& p d"~ l"
B&*\ USp *\ U/&Xp B /@@ 0 n B&*\ U/& p d"~ l" B&RF & < &, + EV4i91 ,> 7+ bS ,i@1 ,> 7+ b_ ,i@1 ,> 7+ bK>2 1 ,> 7+ bK>40 1 ,> 7+ b[<I71 ,> 7
& o w @ )@ .
" 5B d
& u,~ ` .
.4 SEQIN ^ iSEQOUT ^ jRANDOM ^ lSEQINOUT /
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
!$h X$h @@h *% " } Bh L " Bh M+ x eX2G iSH YC aS iSH INX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INX INX INX INX INX I2 I2 I20 I2@ G iSH O 1 ,> 7@ p .#p < XB Q#p %p 8 XD $ Ep *" #p XB @Ap p @
( 1D + 1D + 4. $d $ FK 1d >1D Kp
& %,~ :
O&
1 ,> 7 `
ZAp [Ap ,~ U>m61 ,> 7 `
Ap ,~ H /H gZ x/ A=Qi7 + @ ` 1p Q0A` ,@@ / * C@ , 4T u1T + J1T )+ `1 , 4T PT + N ." &" "` QB - ` + U + INX U` + _ `
& b & b ` ` C+ ,?` /
& ` 5H NO , $ , 1T + 0T *+ F, 1T ', 0T + F> @@ , 0T 1T + l0T 1T -+ s4T s+ u $ ,, 7@ + s1T + w4T 1T -+ y0T + u, + p!*Lu*
J + o
&
'p
& " ` $ #, + p@
, 0T 1T .+ 1T + 1t 14 + u(L .,Wh+ zSL + yXL + , !>9 @ 2 #*& 8+ 0@@ $*& , 1T + 7 , 14 ,~ 1t +
6 Ux0 - 5$ C0 C< CCANNOT ENTER TMP FILE!
Command error:
H b( 0bX I4:1 ,> 7, y Ap ,~ 4 4 )4 U KbN=1 ,> 7O@ V p 4B 1, y4@ 19 59 4KbN= 1 ,> 7@@ V!$Lu ` @Ap `` a` + Sa` + U D ,A (` :/" #B +@@ , !p X@ (,> < (, \,^ 7@ U+ @OAp + T #p Q"A` $ 1@ + E0` =d B! H: @ *@@ +a|+ K[ p d 0@ + P[ p d 0@ + P+ N_ w6@ V_ w#` 1 + PSp Xp @ +
++ R@ )+ S+ T
& V+ T Ap ,~ ERROR ON OPEN!
H H ZH [ G.t21 ,> 7@ @Ap ! A`.!p @ X Y @ Z@@ Z@@ [ & " X< 1D + g- r=b b X< 0D + pO " Y @ Z X< - r=b i7@ ZOAp !p < , Z, [,~ <& k X1D + o Ap + k 1D + o1$ + l1d + w0$ 0d -+ l $ D Z+ r" , "0@ + p 4B L ad+ `b+ $ 0d "+ &$ $& (&}Z .G .& $ .$ 7F + ,~ A$ &$ (D G$1$ ((D (D
` 5@ .2b M+ L.& 7D !$Lu+ 2" +
&p , ` ,~
& < ,
.p M}ILLEGAL DEVICE NUMBER!
" !, " ' Q&A` !@ 1x ,~ 18 0.8 X =` ,~ . H a|+ %0" 0b / ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> 7, p+ E@ , , l+ EZ" 6Ep " B` " b N $ 7cp $ 1B $ d N, G, 9+ F6cp 0b " b O$ { ({." XB` &$ @6@ .$ .$
a|+ >[p d p0B + B+ @_w#` 1" + B6cp 0d $QD` , + , w ,~
& O+ D
& R+ D@b -p . Q,A`
T 4P M1P + U/0 P =n J,~ `
` `
CANNOT INIT DISK!
FILE NOT FOUND!
H H .
T+ JYC G aS a3 S; YC&<G<aS<a3&<E$;w |x[ PV B` 1T !"L b @ XB` O@ v v@ , w
+ !, 2, a@ !.~ , w` + "" 1T "" QB t, w
b " $ S X& f + o2FPY+ f + 1$ 9 + o 8 [@` [ *( t n @ `N + 6`
1T B` " B` \"
b @ B` \" b !" Z (Brb b
B w b
+" `B` !" 2 b `b `b + 4!" 2 b !` 2B` + 4!$ 2 d !$Lu+ 7 b @ , d !$Lu B u D v,~ @@ y *( B y D z BX B` DX Z w(D} d ` D y DX " 2D` b d " b , w@ x+ BX @@ b $+ I!" X"X *"X !"`
+ [!, 2, aB , w" X
z z, w + [ JX , w + o
& " b a` + Z+ Ca` + Z, w x+ + Z x H j h &( 2
PV . w &. .0 P `bp + ed
@ u, w+ j`L+ c u+ o ( !*Lu@
, w
,~ : x ,~ " B O@ wO@ xg " ?$ + d 5D s (D Dw+ o,> e` p+ {7 x+ ~l! x+ }7 w+ ~l! w: +@ > ,^ + o
& ,~ "
& ",~ "
& (,~ ,
& 0
& , b ( 0+
& 4,~ @ ;` v+ + {8\ 0 CMQ Cannot do MPB QUEUE on GALAXY system. (
+ `` ` P $` h y
X HX a` ,~ !" GB` + Z @ 6$ z
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0 NO FREE CHANNELS!
% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!
% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMR CNC Can't CONTINUE -- try REENTER
KbN@ 1 ,> 7,
,~ 7Y\ 9Q< X\ 9* +