Google
 

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