Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50326/abacus.shr
There are 3 other files named abacus.shr in the archive. Click here to see a list.
-
+x{(C
=9 `@ @@@0*"h@ b B b BS"X( B[ZBZ "SB\ ZB[ "SBg A B0 " 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 .,+< T2ax @
i,X J3ax@
m,X J3
ax+E,X J45JG@
q
34*I2l3@
t+Kl@3,3@
x .`x,@
}2TC@
}l,d 2(T}GN@ Q R3BH+U2TH9R DH9R,7,9 2,,9 C,6 9,A
3,9,d,9,\,d,7
3
43J3@+b3*3++X2j3++Xax @-,Y+ax @-,K,7+ax @-,Q,7+ax @- j
+ax @-
ax @-
Jd@@
d@@@-@@
J
J@-"`
2 b +ax @-
2D b+dEZBe@@e@@f@@f@@g!"X"d ba+ax@iax@ .,+< TU*d# *@`x+ax@,iax @ZDUl,c4V**p)," W\SQZ UbE8XSZ.2@8 #\Q" ,"*#\*p1," %\,>d>Z Z,3+6,^Z +
2 ,i`x @ax+= .,+<ax += UZ+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+q2T9nO@HU+ra@@+j,X`G
,X`G6@c`
: Il+k7BHU+z2T9wO@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+(2T9%O@HU++ $@aV $ c@+,, @+", l+"@7THU+13T:9. -9.,c`@+ $ D\@@]
\@
* :*$fDd+_@@d$d`c$+,dl``x +=,0,ax @2@@!2a@ +J@ #[3"Z+Dd L+J #[2"Z+J [,} TH8Z["=...*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+2T9O@HU+
a@@+,X`G
,X`G6@c`
:,+ J8
Jl+,3+P.0n@`
` T8:+7BHU+2T9O@HU+a@ +,3+* UZ 0 ZXB\,X`GZ&J.$."3"[+$ b`"Z B["`Q W\,X`G*p%6@c`
: #\ BZ
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] dad@@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,~dd@@+~"US`3T8U+*n}(T}GN THl*rd@
bP./U"GO+l3\9+"L,+
1n@
\ QX,<+c,3@P.0n@@
` T8@@8:+(T}GP,< P THl*rc@
bdl@@*r@
b JH*rd@
bdd@@cd@@+c TH*r@
b TH*rc+
bdl@+)d@+),,5d+,\ TH,0*r&@
bP80X@cP8S.}[<73X+/*n-@75$6@1t $,~XhWpdd@@
b "XBg@ g"J,
E9CSUXZ]_aeflqtd
,\
p
Jp,~,\
p
Jp,~,\
p
Jp,~,\
p
Jp,~,\,\,
,<,~,\"`,<,~(T,@
,<8,~,<3,~8,=g,~,h,<,~ZhMeD+kZ+h/"P,~,\,\,\XDg@,\d Bh,<,~ hl,< \h,~(T, +{,?@
@
p JP,~,^,~ M@ax+
<.6X,8+:x+i"S`3T8+.4.
,~P.:x,~S"_3T
,~.4":x,~igP0id0i?$vhvgVKzofoI'mI'mgR~Ef(
G3=1~G3Kz|M?;INJ6cIca*| jgRM9OgR@OE=8E,G:>9wGLI5RI0aJMmEId]I`eVvJ6eG>vJ6hezgR~) :Y'@>Qf:
8+6 &
"+:
(1X+C1X+F1X81X+81X 8PdI`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 :&*hQLx6@,][x.&`@+b
",~ +`+a,>,>,g,^,^,~P 7 l #`4J? .3j+l..
+j2*+o/.
+l R2j*do^`2J/$5Nz1$1$+z2*+x
2L+z
d*d*~``,>+\@@
aJO@
d*3*R+&*.$0*P+$*/$.d80n@@3nS@@7@4.0n7S,``,>7@5N
+\0.@@ $,~ :4D :&*4J5L7
:QLx,_
x5,4n6,&0,`=N6+=`x,~X`fp,~*pT,"W\T@,~,>,>Z#\[0d+(.$ d@"ZD[/"`Q,^,^,~,9[,8Z["=.$.$8"`Q8[,*n0+7,>,+:,+6+<, +=,?+9 /,^,~,^+ 3,^,~ ;,^,~ 7,^,~@ Z`@/"1c[,~3U[+8Z[(=...+A [/"3bZ,~ b@>Z B[+F<H 1d+R . N"`S`.. @.4$P,~ I,~Z[2.Z+\@ #[2"Z+[ [ @8Z[$=...+UZ[ NZ+F L,~ #[8Z[(=.(.Q#[.(/Z"HZ*#Z:Z,F,~@@Ud`!"{`x ,~ax@
&".$)D}=nX&YFc,~!"LuB]+@ B^!"=+B^@@^@@,.,@iax+5T@, ax,~,%`x@, ,~@
,iax,~ 8`080x@z$*.*gx,8+,0j@}ax@
,i(J,0*@
SJ_ax@
,0*@
ax@
XJ_+i ] b5B-@
aB@
ab@
,~.,@` D]
\`
$ :*$f@@dBd,~ e Dd:x,~ $ D\ $aSD]
\`
*ab +Bl c Dd!$K8 De@@e@@f+C :*$f7BdS"^$TdU$U7@_dVdd+Q,~ Z/"M".dZ 3$+O.& f`
F F[+K/$X[0f+R,B=P.$XD[,~[(Q[[(Z[/.dZXB[ZB(*"+F? a+[`FVc:x,~B+X
BaV@+^`A`V ,~+[?`b+bVb,~d+a`D
d@`Da@+q :*$fBd+j"<@@d"d+_ c Dd!$K8 DeDd+c :*$fb<$d+c"$+S,>,>c 8Z["=.""`Q@@cFVc,` [*nx c,`
T,^c,^,~,>,>c l Vc,` 8FVc,` 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
{CS; [> M@,
I,~d
,> +`b + .`b+ 7`b@+ .4< +@b4~ -Z
@f,^++mlZ+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+ I4F61F/+ 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)/;`:XD0(|h&f0
o
p o
0
nD
q+@0,~!t0_'"S'qf!um. .#Y% !vrX5b t q@
,~ tU*,~ 4,h
, x,<+l4*
#`4J
3J
+
)
r.*!J1!*nJ1(
|h,
L1
1
1
,~ w
,~@*,~ 0i/X3 6P'M 5( bB W
R x+ y `@,>,>!"5,
#`B!"+
(LdL5L
`@
+
,^,^,~,^,^#3b
+
5l
+
25l
25j
`L+
,
1U*,~,
1
,~4L
45J
!4,
5,~#4*
6 ")B/"@4b
)Z0f+
) ")B5D
)7 "`
+
,>, x
x,^`@
+
/#
2l q+
0, `,~#
2,
+
44*
2 {U*,~ ~@
,~!*,~ U*,~ 3D+
" #`+
! 4,h
,
=,<+l 4"
J4B
G)r/"@("XB0(Bn(|D? D
H
I D
+@0,~ @s/M{,> ,^#`+
?l 4,h
d@
j,
U,<+ll 4,h
d@
j,
V,<+l
i B2#`3b
j,~
i3b
+
`%"(? "@($)B
k4D
`hd
hdad"`7 2"` B2
i
h
h
g
i
2,~_k*}43"_aLmLsm=i 9~j!\Rw!v@!\Rwl 4,h
d@
j,
v,<+ll 4,h
d@
j,
u,<+l"`
i J1,
U4J
z*
1,
V
1,~ U*,~l 4,h
,d@
j,<+l#3b,~T2"+!$3beDh& B1
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 2l6+4
4L5
+2 U*,<+l!P@@W%S COMMAND NOT IMPLEMENTED IN THIS VERSION,=@
W,4N@ .,+=,,~INPUT ERROR -- CANNOT RECOVEROUTPUT ERROR -- CANNOT RECOVERBAD END TO INPUT FILE %BZe0b "!
L,~
-
/
2
7,J`OINPUT FILE %B,J`ROUTPUT FILE %BPLEASE TYPE 'YES' OR 'NO'-- ONLY /L MAY FOLLOW THE HELP COMMANDHELP COMMAND MUST OUTPUT TO TTY OR LPT ONLY :*$f``CAN'T DELETE THE FILE %B c Dd!$K8 De`eCAN'T RENAME THE TEMPORARY FILE %BDEVICE OR FILENAME OF MORE THAN 6 CHARACTERSNO DEVICE PRECEEDS COLONFILENAME OF MORE THAN 6 CHARACTERSNO FILENAME PRECEEDS PERIODEXTENSION OF MORE THAN 3 CHARACTERSNON OCTAL DIGIT SEENPROTECTION CODE IS A 3 DIGIT OCTAL NUMBERPROTECTION CODE MUST END WITH A GREATER THAN SIGNBAD OCTAL NUMBER %O -- MUST RANGE FROM 1 TO 377777BAD DELIMITER FOR PROJECT NUMBER %O -- MUST BE COMMABAD END FOR PROGRAMMER NUMBER %O -- MUST BE "]"NON-EXISTANT DEVICE %PBINARY MODE IS ILLEGAL FOR DEVICE %PDEVICE %P IS UNAVAILABLE AT THE MOMENTDEVICE %P CANNOT DO INPUTCANNOT OPEN INPUT DEVICE %PDEVICE %P CANNOT DO OUTPUTCANNOT OPEN OUTPUT DEVICE %PCAN'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 RECOVERFILE %B IS EMPTY :*$f`
BIMPROPER FORMAT FOR INPUT FILE %BCAN'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 -- VTOO MANY CHARACTERS IN NO SUCH COMMAND AS %S%S MAY NOT BE UPDATED BY THIS COMMANDNO ROOM FOR VARIABLE %SNO MORE ROOM IN PNSFOR VARIABLE MUST BEGIN WITH A LETTER ONLYEQUAL SIGN MUST FOLLOW FOR VARIABLEIMPROPER DELIMITER AFTER STARTING VALUEINCREMENT OF ZERO IS ILLEGALEND<START ILLEGAL FOR POSITIVE INCREMENTEND>START ILLEGAL FOR NEGITIVE INCREMENTTHE WORD "DO" MUST PRECEED THE EXPRESSIONNO CHANGES IN VALUES -- INCREMENT TOO SMALLDO LOOP VALUES MUST BE NUMERIC OR VARIABLESUNDEFINED VARIABLE %SBAD CHARACTER SEEN IN EXPRESSIONTRAILING OPERATORBAD END TO FUNCTION CALLIMPROPER EXPRESSIONADJACENT TERMSMISSING OPERATORMISSING RIGHT PARENTHESISMISPLACED RIGHT PARENTHESISEXTRA RIGHT PARENTHESISADJACENT OPERATORSONLY NEGATION MAY BE A LEADING OR ADJACENT OPERATORONLY A SINGLE VARIABLE MAY PRECEED AN EQUAL SIGNMISPLACED COMMA -- CAN'T FOLLOW LEFT PAREN OR OPERATORMISPLACED COMMA -- NO PRECEEDING FUNCTION CALLUNDEFINED FUNCTION %S%S IS A FUNCTION OF %D ARGUMENTS %D WERE SUPPLIEDILLEGAL CHARACTER SEEN ON INPUTTHE WORD 'ON' MUST PRECEED THE FILE SPECIFICATION"&" MAY ONLY COME AT END OF LINEONLY ONE DECIMAL POINT PER NUMBER PLEASEA DIGIT MUST PRECEED "E" FOR SCIN. NOTATIONNO NUMBER SEEN AFTER "E" IN NUMBERNO DIGIT FOUND AFTER A DECIMAL POINTOVERFLOW -- CONSTANT TOO LARGEUNDERFLOW -- CONSTANT TOO SMALL CURRENT DISPLAY=%F%_ SUBTOTAL=%F%_OVERFLOW ON TAKING A SUBTOTALUNDERFLOW ON TAKING A SUBTOTAL TOTAL=%F%_ TOTAL CLEARED%_ SUBTOTAL CLEARED%_ BACKED UP%_ SIGN CHANGEDJOB %D%_LABLES MUST BEGIN WITH A LETTERFUNCTION NAMES MUST BEGIN WITH A LETTERDUMMY ARGUMENTS MUST BE ENCLOSED IN PARENTHESESDUMMY FUNCTION ARGUMENTS MUST BEGIN WITH A LETTERONLY %D DUMMY ARGUMENTS MAY BE SUPPLIEDIMPROPER DUMMY ARGUMENT DELIMITEREQUAL 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 SPACEONLY 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 DELETIONMAY 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 ITSELFPDL OVERFLOW AT LOCATION %OPOSITIVE 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 READERIMPROPERLY PLACED EQUAL SIGNTOO MANY ARGUMENTS SUPPLIED TO COMMANDNO ARGUMENTS SUPPLIED TO COMMAND%S COMMAND MUST BE FOLLOWED BY <CR> OR ";"IMPROPER TERMINATION OF LINE -- MUST BE <CR> OR ";"UNDEFINED UUO~4vPD+`dP,e0e
$1[C2dm7C2fh9_8]<sC
=90JeMi? , 8I<VALUExY>=}:<ZLISTING FROM FILE CREATED-- %S=%F%_$0X"<p<[<< H~ [%O,%O] SEC.mn@~w~B |Hlle6$6$e6$%S COMMAND NOT YET IMPLEMENTED