Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50326/abacus.hgh
There are 2 other files named abacus.hgh in the archive. Click here to see a list.
-
+ x{( C
=9 ` @ @@@ 0*" h@ b B b B S" X ( B [ZB Z " SB \ ZB [ " SB g A B 0 " B A B B B B B " &ZB * " $ b 9 " B *, , 7
U[
/, ], =Z
/, ], 9, @, 9, R, 7, 7ax , 5!2 @ @@ 9, i`x + `x + (`x
+ /, f 9,< , A
J ,\ + . , + <, +
`x
Y1. + <`x + 3,<L, y+ $,<L, + $ax + 5 . , + <`x T , y+ 6l , e 9, A ,\ , 9, , ;, d, 6+ d @`x @
dax @
d . , + < T 2ax @
i, X J 3ax @
m, X J 3
ax + E, X J 45J G @
q
34* I2l 3 @
t+ Kl @3, 3 @
x . `x , @
}2TC @
}l , d 2(T}GN@ Q R3BH+ U2TH9 R DH9 R, 7, 9 2, , 9 C, 6 9, A
3, 9, d, 9,\ , d, 7
3
43J 3 @+ b3* 3+ + X2j 3+ + Xax @-, Y+ ax @-, K, 7+ ax @-, Q, 7+ ax @- j
+ ax @-
ax @-
J d@ @
d@ @ @-@@
J
J @-"`
2 b + ax @-
2 D b + d EZB e@@ e@@ f@@ f@@ g!" X" d b a + ax @iax @ . , + < TU*d# * @ `x + ax @, iax @ZD Ul , c4V**p), " W \SQ Z UbE8 XS Z.2@ 8 # \Q" , "*# \*p1, " % \,> d > Z Z, 3+ 6,^ Z +
2 , i`x @ ax + = . , + <ax + = U Z+ 3 + 6l @ !$L D ] @ D ^!$L D ^@@ _@@ _ $ , ; $ , H, d `*ax + W@ `@ @ , &`@ , /, 77THU+ S, + N`@ @ 9J , $9J, ?+ Qa@ , +9J,> d -,^ 9J4RT, 7e@ + $ , S+ , 0, ax @2, 7, +ab `
!, 3+ N $ , H, X `
?0V9 +
Aa@ + k F, , 9, Y, 7 G"<, A`@ + i, 9";&"
, [, <
, [, 6+ k, @ @@ c, X+ eT + w7BHU+ q2T 9nO@HU+ ra@ @ + j, X ` G
, X ` G6@ c `
: Il + k7BHU+ z2T 9wO@HU+ {a@ + j, 9, , X ` GZ .J, X ` G , =n~, 7, X ` G=06@ c `
:l + ke@ + 1 $ + 1, d @*ax + @ `@ @ , K`@ , S7THU+ `@ @ + , + 0n +
\9
"8Q"8> $$ *" @9
`@ + , ?+ @, ]9
`@ @ a@ -9
, 0, ax @2, +ab @B, 3+ N, : $ , H, X+ 10V9 +
A, `@@ c, X+ . d @ 7BHU+ (2T 9%O@HU+ + $ @ aV $ c@ + ,, @+ ", l + "@ 7THU+ 13T:9. -9., c`@ + $ D \@@ ]
\ @
* :*$ fD d+ _@@ d $ d ` c$ + , dl ` `x + =, 0, ax @2@@ !2 a@ + J@ # [3" Z+ Dd L+ J # [2" Z+ J [, } TH8 Z ["=. .. *rD @
ba@ @ + T 0n + Nd @ I+ T"` S` ..5.T 8, } TH.*rP @
b@ 7T8U+ X3T:9T TH8 *rT @
b@@H, +ab + v, 3+ v, : $ , H, X+ x0V9 +
A, `@@ c, X+ m d @ 7BH+ l3T + e9bO@H
L
O, u+ l, ?+ i, s+ k, + l, }, + _ -, + _@ 7TH+ u3T:9n, ?+ r, s9n, + t, }9n -9n, c+ ab `
', : $ , H 69 , `+ m, dl ` `x + |, 0, ax @2, +ab @
!, 3+ N $ , H, X `
?0V9 +
A, 7+ , @ @@ c, X+ 1 eT + 7BHU+ 2T 9O@HU+
a@ @ + , X ` G
, X ` G6@ c `
:, + J8
Jl + , 3+ P. 0n @ `
` T8: + 7BHU+ 2T 9O@HU+ a@ + , 3+ * U Z 0 ZXB \, X ` GZ &J.$ ." 3" [+ $ b `"Z B ["` Q W \, X ` G*p%6@ c `
: # \ B Z
Jl + , [ , i`x + ax + 0 . , + 0, [+ + * " , Sa@ + 5a@ La@ @ + 7a@ I@ 7THU+ 2T: -97!$M `x + A & 0F` @ V, i . , @ V2TK @ Vax @2!$L D ] d ad @ @ Z $ D \ $ aSD ]
\ @
* @ D ^!$ D ^@@ _@@ _!$>9 D ] $ , 3+ N K, H, X ` , `+ Max @- P, R, 6 R, K, 9 T, Q, 6
U
X, &, /+ , iax + \ "` 0B + \l , iax
+ , kd@ "` ,~ ax @
8,~ , i`x + v`x
+ `x @ + `x + `x + #`x + 9`x @#ax @
b`@ @ +O`TH,~ d d@ @ + ~" US` 3T8U+ *n}(T}GN THl *rd @
bP. / U" GO+ l 3\9+ "L, +
1n @
\ QX ,< + c, 3 @ P. 0n @ @
` T8@@8: + (T}GP,< P THl *rc @
bd l@ @*r @
b JH*rd @
bd d@ @cd@ @ + c TH*r @
b TH*rc+
bd l@ + )d@ + ), ,5d+,\ TH, 0*r& @
bP8 0X @cP8 S.}[<73X + /*n- @75$6@ 1t $ ,~ X h W p d d@ @
b " XB g@ g"J,
E9C S U X Z ] _ a e f l q t d
,\
p
Jp ,~ ,\
p
Jp ,~ ,\
p
Jp ,~ ,\
p
Jp ,~ ,\ ,\ ,
,< ,~ ,\ "` ,< ,~ (T , @
,<8,~ ,< 3,~ 8 ,= g,~ , h,< ,~ Z hM eD + kZ + h/"P ,~ ,\ ,\ ,\ XD g@ ,\ d B h,< ,~ hl ,< \ h,~ (T , + {, ? @
@
p JP,~ ,^ ,~ M@ ax +
<.6X , 8+ : x + i" S` 3T8+ .4.
,~ P. : x ,~ S"_3T
,~ .4": x ,~ igP 0id 0i?$ vh vgVKz of oI' mI' mgR~ Ef(
G3=1 ~G3Kz |M? ;INJ6 cI ca*| jgRM9 OgR@ OE =8 E, G:>9w GL I5R I0 aJMm EId] I` eVvJ6 eG>vJ6 he zgR~) :Y' @ >Qf :
8 + 6 &
" + :
( 1X + C1X + F1X 8 1X + 81X 8 PdI`X Qd)`x @
( 1X + C1X + 8 @
` @ @ @ @ @ @ @ @ @ @ @ , 8ax ,~ + i@j ( P + m, 8ax + sl 4Jp=hp9q$* .*gx`` /4 + max + ul` @
9l*6
D14 + /4
+ 24N+ .4
+
T`@ @ z8] p1: T=8) 9Lf30 ! !y "`z #SD $85 % B & 4 &wka ']fY(RPd)7$ ]* e4T", =, 6B + $,~ [
NZ
,O,~ 1d + , -["` S` .., $.4$*,~ ,> d I,^ ,~ @ Z [2" Z+ 4 # [2" Z,~ , ++ 1,> d L,^ ,~ , 7 & , ` & , `,~ & + ` & + ` & + ` & + ` & + ` & + ` & + ` b &" * , [&" E, * + [*
, \, =
, [ P,~ b / + S b &Q
, [, < &"j0
, [, <
&* t, [,~ , @, 9, R+ 71j , ?7Q : &*h QLx 6@ , ][x .& `@ + b
" ,~ + `+ a,> ,> , g,^ ,^ ,~ P 7 l #` 4J? . 3j+ l..
+ j2*+ o/.
+ l R2j*do^` 2J/$ 5Nz1$ 1$ + z2*+ x
2L + z
d* d*~ `` , >+ \@@
aJ O@
d* 3*R+ &* .$ 0*P+ $* /$ .d 8 0n @@ 3nS@@ 7@ 4.0n 7S, `` , >7@ 5N
+ \0. @@ $ ,~ :4D : &* 4J5L7
: QLx , _
x 5,4n6, &0 , `=N6+ =`x ,~ X `fp ,~ *pT, "W \T@ ,~ ,> ,> Z# \ [0d + (.$ d @"Z D [/ "` Q ,^ ,^ ,~ , 9 [, 8 Z ["=.$ .$8 "` Q 8 [, *n0 + 7,> , + :, + 6+ <, + =, ?+ 9 /,^ ,~ ,^ + 3,^ ,~ ;,^ ,~ 7,^ ,~ @ Z`@ /" 1c [,~ 3U [+ 8 Z [(=. .. + A [/" 3b Z,~ b @>Z B [+ F< H 1d + R . N "` S` .. @.4$P,~ I,~ Z [2. Z+ \@ # [2" Z+ [ [ @8 Z [$=. .. + UZ [ N Z+ F L,~ # [8 Z [(=.( . Q# [.( / Z"H Z*# Z: Z, F,~ @@ Ud ` !"{`x ,~ ax @
&" .$ )D}=nX&Y F c,~ !"Lu B ]+@ B ^!"=+B ^@@ ^@@ ,. , @ iax + 5T@, ax ,~ , %`x @, ,~ @
, iax ,~ 8` 08 0x @ z$* .*gx, 8+ , 0j @ }ax @
, i(J , 0* @
SJ _ax @
, 0* @
ax @
XJ _+ i ] b 5B- @
aB @
ab @
,~ . , @` D ]
\ `
$ :*$ f@@ dB d,~ e D d: x ,~ $ D \ $ aSD ]
\ `
*ab + Bl c D d!$K8 D e@@ e@@ f+ C :*$ f7B dS"^ $TdU$U7@ _dVd d+ Q,~ Z/" M".d Z 3$ + O.& f `
F F [+ K/$ X [0f + R,B =P.$ XD [,~ [ (Q [[ (Z [/ .d ZXB [ZB (*"+ F? a+ [ `FV c: x ,~ B + X
B aV@ + ^ ` A`V ,~ + [?` b+ bV b,~ d + a ` D
d@ ` Da@ + q :*$ fB d+ j"<@@ d " d+ _ c D d!$K8 D eD d+ c :*$ fb< $ d+ c " $ + S,> ,> c 8 Z ["=." "` Q @@ cFV c, ` [*nx c, `
T,^ c,^ ,~ ,> ,> c l V c, ` 8FV c, ` c, `
T,^ c,^ ,~ l , `+ d " `V + , X ` GZ "J." `@ , `, X ` G=b
`@ , `7@ c,~ `
:!.o3T< ,~ .4. : x ,~ gG@
:Y>8 uKc ]g&p
QG?
Mg&t@
QG? @
Lip
mit@
lG?
qG?$@
qCR
|CR
{C S; [> M @ ,
I,~ d
,> +`b + .`b + 7`b @ + .4< + @b4~ -Z
@f,^ + +m l Z +0"S0"a+ -a@ + 54* 4 iU*+ - k
+ - m@
+ -l o+ -,> ,> ,> ,> "V1b +
< @7+ >+ C+ A, G,^ ,^ ,^ ,^ ,~ " $ , Sd , G, 6d@ > Z 9, [+ !(A`X + I, ` 4F60F + I 4F61F /+ U1F '+ V1F "+ W1F #+ X1F )+ T1F (+ Y0F !+ I, + I, + I, 7+ I, ]+ I, \+ I, d+ I ], + I`x ,~ , 8+ [ 4 , h
, `,< + l #
2j q+ r@@ 0%" j" % p)/;` : XD 0(|h& f 0
o
p o
0
n D
q+@ 0,~ !t0 _' "S'qf!um. .#Y% !v rX5b t q@
,~ tU*,~ 4 , h
, x,< + l4*
#` 4J
3J
+
)
r.* !J 1!*nJ 1(
|h,
L 1
1
1
,~ w
,~ @* ,~ 0 i/X3 6P'M 5( bB W
R x+ y `@ ,> ,> !" 5,
#` B !" +
(LdL 5L
`@
+
,^ ,^ ,~ ,^ ,^ # 3b
+
5l
+
25l
25j
`L +
,
1U*,~ ,
1
,~ 4L
45J
!4,
5,~ # 4*
6 " )B /" @4b
)Z 0f +
) " )B 5D
)7 "`
+
,> , x
x ,^ `@
+
/#
2l q+
0, `,~ #
2,
+
44*
2 {U*,~ ~@
,~ !* ,~ U*,~ 3D +
" #` +
! 4 , h
,
=,< + l 4"
J4B
G)r/" @("XB 0(Bn(|D ? D
H
I D
+@ 0,~ @ s/M { ,> ,^ #` +
?l 4 , h
d@
j,
U,< + ll 4 , h
d@
j,
V,< + l
i B 2#` 3b
j,~
i3b
+
`%" (? " @($ )B
k4D
`hd
hd ad "` 7 2"` B 2
i
h
h
g
i
2,~ _k*} 43"_aLmLs m=i 9~j!\Rw !v@ !\Rwl 4 , h
d@
j,
v,< + ll 4 , h
d@
j,
u,< + l"`
i J 1,
U4J
z*
1,
V
1,~ U*,~ l 4 , h
, d@
j,< + l# 3b ,~ T 2" + !$ 3b e D h& B 1
J
J
1`F
i1
i7 "` ,~ &` V-G {G ZCv\ 7f ]V#Q_I+0`} 4 , h#
,< + l 4 , h#
7
2* +
7 "` ,< + l&p 4 , h
4 , h
# J `@
+ *#` 2, + +
7 "`
,< + l`@ + )@
+ ) 4 , h#
7
2J 2l 6+ 4
4L 5
+ 2 U*,< + l!P@ @W%S COMMAND NOT IMPLEMENTED IN THIS VERSION , = @
W, 4N @ . , + =, ,~ INPUT ERROR -- CANNOT RECOVER OUTPUT ERROR -- CANNOT RECOVER BAD END TO INPUT FILE %B Z e0b " !
L,~
-
/
2
7, J ` OINPUT FILE %B , J ` ROUTPUT FILE %B PLEASE TYPE 'YES' OR 'NO'-- ONLY /L MAY FOLLOW THE HELP COMMAND HELP COMMAND MUST OUTPUT TO TTY OR LPT ONLY :*$ f ` `CAN'T DELETE THE FILE %B c D d!$K8 D e ` eCAN'T RENAME THE TEMPORARY FILE %B DEVICE OR FILENAME OF MORE THAN 6 CHARACTERS NO DEVICE PRECEEDS COLON FILENAME OF MORE THAN 6 CHARACTERS NO FILENAME PRECEEDS PERIOD EXTENSION OF MORE THAN 3 CHARACTERS NON OCTAL DIGIT SEEN PROTECTION CODE IS A 3 DIGIT OCTAL NUMBER PROTECTION CODE MUST END WITH A GREATER THAN SIGN BAD OCTAL NUMBER %O -- MUST RANGE FROM 1 TO 377777 BAD DELIMITER FOR PROJECT NUMBER %O -- MUST BE COMMA BAD END FOR PROGRAMMER NUMBER %O -- MUST BE "]" NON-EXISTANT DEVICE %P BINARY MODE IS ILLEGAL FOR DEVICE %P DEVICE %P IS UNAVAILABLE AT THE MOMENT DEVICE %P CANNOT DO INPUT CANNOT OPEN INPUT DEVICE %P DEVICE %P CANNOT DO OUTPUT CANNOT OPEN OUTPUT DEVICE %P CAN'T FIND OR ENTER NON-EXISTANT UFD FOR PROTECTION FAILURE OR DTA DIRECTORY FULL FOR UNDEFINED I/O ERROR CODE FOR BAD PARITY FOR DEFINITION %S -- CAN'T RECOVER FILE %B IS EMPTY :*$ f `
BIMPROPER FORMAT FOR INPUT FILE %B CAN'T EXPAND CORE TO SET UP A BUFFER AREA %S RECALLED%_ DEFINITON %S EXISTS ON THE FILE%_ DO YOU WISH TO OVERLAY WHAT'S ON THE FILE? %S STORED%_ ABACUS -- V TOO MANY CHARACTERS IN NO SUCH COMMAND AS %S %S MAY NOT BE UPDATED BY THIS COMMAND NO ROOM FOR VARIABLE %S NO MORE ROOM IN PNS FOR VARIABLE MUST BEGIN WITH A LETTER ONLY EQUAL SIGN MUST FOLLOW FOR VARIABLE IMPROPER DELIMITER AFTER STARTING VALUE INCREMENT OF ZERO IS ILLEGAL END<START ILLEGAL FOR POSITIVE INCREMENT END>START ILLEGAL FOR NEGITIVE INCREMENT THE WORD "DO" MUST PRECEED THE EXPRESSION NO CHANGES IN VALUES -- INCREMENT TOO SMALL DO LOOP VALUES MUST BE NUMERIC OR VARIABLES UNDEFINED VARIABLE %S BAD CHARACTER SEEN IN EXPRESSION TRAILING OPERATOR BAD END TO FUNCTION CALL IMPROPER EXPRESSION ADJACENT TERMS MISSING OPERATOR MISSING RIGHT PARENTHESIS MISPLACED RIGHT PARENTHESIS EXTRA RIGHT PARENTHESIS ADJACENT OPERATORS ONLY NEGATION MAY BE A LEADING OR ADJACENT OPERATOR ONLY A SINGLE VARIABLE MAY PRECEED AN EQUAL SIGN MISPLACED COMMA -- CAN'T FOLLOW LEFT PAREN OR OPERATOR MISPLACED COMMA -- NO PRECEEDING FUNCTION CALL UNDEFINED FUNCTION %S %S IS A FUNCTION OF %D ARGUMENTS %D WERE SUPPLIED ILLEGAL CHARACTER SEEN ON INPUT THE WORD 'ON' MUST PRECEED THE FILE SPECIFICATION "&" MAY ONLY COME AT END OF LINE ONLY ONE DECIMAL POINT PER NUMBER PLEASE A DIGIT MUST PRECEED "E" FOR SCIN. NOTATION NO NUMBER SEEN AFTER "E" IN NUMBER NO DIGIT FOUND AFTER A DECIMAL POINT OVERFLOW -- CONSTANT TOO LARGE UNDERFLOW -- CONSTANT TOO SMALL CURRENT DISPLAY=%F%_ SUBTOTAL=%F%_ OVERFLOW ON TAKING A SUBTOTAL UNDERFLOW ON TAKING A SUBTOTAL TOTAL=%F%_ TOTAL CLEARED%_ SUBTOTAL CLEARED%_ BACKED UP%_ SIGN CHANGED JOB %D%_ LABLES MUST BEGIN WITH A LETTER FUNCTION NAMES MUST BEGIN WITH A LETTER DUMMY ARGUMENTS MUST BE ENCLOSED IN PARENTHESES DUMMY FUNCTION ARGUMENTS MUST BEGIN WITH A LETTER ONLY %D DUMMY ARGUMENTS MAY BE SUPPLIED IMPROPER DUMMY ARGUMENT DELIMITER EQUAL SIGN MUST FOLLOW FUNCTION NAME AND ARGS %S DEFINED%_ TYPE NEW NAME TO RENAME CURRENT FUNCTION OR <CR> TO DELETE-- IMPROPER FUNCTION NAME %S%_ CAN'T EXPAND CORE TO CREATE MORE FUNCTION SPACE ONLY COMMAS AND CARRIAGE RETURNS ARE LEGAL DELIMITERS %S NOT DEFINED%_ %S IS IN USE AS A USER DEFINED FUNCTION.%_ %S IS RESERVED AS A COMMAND.%_ %S IS RESERVED AS AN INTRINSIC FUNCTION.%_ %S IS IN USE AS A VARIABLE.%_ CAN'T CRUNCH CORE %S DELETED%_ DEVICES MUST BE DSK OR DTA FOR DELETION MAY NOT DELETE FROM A FILE %_ NO USER DEFINED VARIABLES%_ %_ NO USER DEFINED FUNCTIONS%_ %_STATUS OF ABACUS AT RUN TIME-- ELAPSED TIME-- MAIN REGISTER 'RESLT'=%F%_ TOTAL REGISTER 'TOT'=%F%_%_ %_ USER DEFINED VARIABLES:%_%_ %_ USER DEFINED FUNCTIONS:%_%_ STACK OVERFLOW -- FUNCTION CALLS ITSELF PDL OVERFLOW AT LOCATION %O POSITIVE OVERFLOW%_ NEGATIVE OVERFLOW%_ UNDERFLOW%_ DIVISION BY ZERO%_ UNDERFLOW IN EXP ROUTINE%_ OVERFLOW IN EXP ROUTINE%_ LOG OF ZERO%_ LOG OF NEGATIVE NUMBER%_ OVERFLOW IN EXPONENTIAL ROUTINE%_ UNDERFLOW IN "^" OPERATOR%_ ZERO TO A NEGATIVE POWER%_ ABSOLUTE VALUE RAISED TO A POWER%_ SQRT OF NEGATIVE NUMBER%_ TAN OF PI/2 OR COTAN OF ZERO%_ FACTORIAL OF NEGETIVE NUMBER%_ FACTORIAL OF FRACTIONAL NUMBER%_ FACTORIAL ARGUMENT MUST BE LESS THAN 33%_ ?CAN'T CONTINUE%_ CAN'T DO A LOG OUT--TRY IT FROM MONITOR%_ CANNOT RETURN TO READER IMPROPERLY PLACED EQUAL SIGN TOO MANY ARGUMENTS SUPPLIED TO COMMAND NO ARGUMENTS SUPPLIED TO COMMAND %S COMMAND MUST BE FOLLOWED BY <CR> OR ";" IMPROPER TERMINATION OF LINE -- MUST BE <CR> OR ";" UNDEFINED UUO ~ 4vP D +`d P , e 0 e
$1 [C2dm7C2fh9_8 ]< s C
=9 0J e M i? , 8I< VALUE x Y>=}:< ZLISTING FROM FILE CREATED-- %S=%F%_ $0 X "<p < [<< H ~ [%O, %O] SEC. mn@ ~w~ B | H l l e6$ 6$ e6$ %S COMMAND NOT YET IMPLEMENTED