Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Extended Precision Math Program

0 views
Skip to first unread message

Ian Smith

unread,
Apr 22, 1994, 9:03:08 PM4/22/94
to
This is an extended precision math package I have written for the
HP48SX calculator. It should work on the GX too (I hope).
It will handle numbers of any length (memory limits of course)
and add, subtract, multiply and divide with negative number and
floating point support. It's really great! It's really slow! :-)
Enjoy! I will post it on an FTP soon.

Ian Smith <ims...@psuvm.psu.edu>

$
ship LongMath.zip
s:V9"5{{{{hlV$Uj:hzeq'__#aaIp%)Qn{{2-LgDPB18@H#O.=qdAEpulQ@ccOEs*FoUA&1RUr>
-goEmXZKG5M23wbgOr.8pRXn&Kz&Ulz{h1pmFyk"(XsIT"bGXUn_Y-iNLxPUkLLY/gzVA,=wvwb
Xy2IPp-K(?x?YNlG92$:;KK9SsM"0HelQ.I8Ttch@C76D$AB(7=J&ARc+$/:HaXXZIOVv>b)1=9
Cwr#_V,1)dpL:OmX9B4TuW%G>Y&S>$US.(pN1RvpOwx'2NdAJu"X4d)>mOJ@td=0hi5:Z3:b%:d
i:TGJwC:.iqxkqPm=ofN#0O8O_vkVw;5heE$y0C9CLx0g9(lyhP8GUtv<p=%-v'ZIu{8DmGyglW
iYPqpRGG$dpo<Om"pif>(&Z"$vd-lp(Msw9OixWAg*A%fYbe)*(a8LQ=BVakO*-N.X=fme1>d<N
qn;vk?TmA,9_.;"39XN6Jk$kZN%pM$W$:r7.mWOu?K3B@UEb9<hVJgm>*o.M{vnEA84c&O9UO:.
SD&XH-<vLiA%65&Dnrl%iHGh#;*R{bufHf.dA)O?pXwvdH7wUvi7NU%KRovZQ88?"RP78'8A_*2
f1NS?-y0OaS_zK75U9i?QNqwBFI+3.u1hV4n;Hgi:UyQ"oc($jWeouf;2??knmxx1A3mjh)EKJI
9Xp2fcW_GveYI<Qi%A'vJgyxmbC2g.VNe:gFJ>uB&QsXM5Hy2jPq&D.a8>r/YH.HR{VLEiQPoDi
V"/{-L+I=>8cKL&bQbHw_lxC4AE6{MC#(xJ+(M3DlS'HWXm#bCmbjS-H2fs'-%F=fTN;-h:@->V
>M"lXxez&td.J.>hrXvJ*LJz/&=/M378bm,Xfzr*W4,wS'B>:0M.VW#dvG6VAoq_{Eo8L"8&vnA
ys,z_Bgp=%{$B)smCq/oFT3LSh7e:tggONGHOJHQ;w'd>r>$2Wcc,sYxZ%ZMA7-XJW=I?MlS8/b
G1ljuQmn8"J)nxDK%##NJ8Ne)7m.8xAPX(79=jJ/2,{Y@9w+6QReSfeJD,'8SnoIX$K@AG?R=+t
IyhsNM/jIHH&JPsYlPqFM%J4ct>l$*'+<_G)s0Qp@w&&aLwNV2v:#;),uw'=ZHZr6(kR'DDYbgg
>QoDC5@EV9,:'6h3'j+Po{*dCh#cX#>6Hx5Ds>OhP9*h_Mlg,6.dF1'5kyd50Z@k7>8=T$t>S"#
tn,ie#>p;B&rJGc*0Td.>i>qc@()u?kgOJ&NP_13EcAOsp)L-d:sTdmUOoI60QkoF4EV+ZSEn9M
{iNfwvu2ltVoY%#66wVNLL_L=X(@5Y=E2-8{DE@;.A;0l=<wICS-x/eS$gOp&nU_aZbBF@o1>-5
z-"R#Wo+JFm_39?={W:>Hwuo0Ms@)0(b/h<IzvIWv._D7MUkO:C7%A%E%VmC1p3"cg9(c8zZ$?Z
vsH"bY%"Hm5RG"gYg-MotgQ'a$i$-aVU5SJc;NEwq&ROc/soHU(*s0Lg2&>@j'7>UxEX6ti_tl(
gRK_L.#,)f1w(<>>mjYH,/XRW-Vcr$Jf#>)Xq7<;f=1mFS@*S1Eai7WGJB30h0kJS16CniG)>SC
WCC)qq)Da7l7@<JbjYjX1E;f*</R@DM1bS_sRXhi@z.PZFS*kU/)>C6#zGMP<&z>L"QfS2oV;A9
+QdZ@u#VPU9O'Z6"QhjmIwK,YjvnKQ<(yQrwlw=dS>jcW_lo9UVO/V)T-deho?m{rpaN:(Rm9wY
iA%D:AvXNvMV.N4K=XN{Pn:J7l5+RtzflKuTLgu9_5w&KpK:=p-Gq9BvGhi&I*s6DSkwzu)4O9=
I=9em6/v*cz*c3N,jdM7&cP_+m>C?>{*Hgg(zT0#7uvZs&Z-Xq+nBg>6(ytr3gR-@tW,%N4tfj,
KP3TrIA)<(r:w6R)AROqa,;4iirCYTF6uL)-X"L{SPmDd$xj9rw2{5XLwyvB6GTWI>W814eRF(f
wy>&Se4/RkhoF()9TawFCo7.-Ih>ZdC?$3m&KWB0uN+@?fU_'Xl;)QmC:0Ysilevbi{*N=OKWsQ
'Tz<d8r&ZsC1Y0t4Jg.aZ>Oviki)$ilAAwu*{EX)>0W,RThvF7T3Nx%x#;s.;V0u_2yEkb1N@,q
F<p<+bWPsYIXPk$5K=>J$0M/(>EGWXmNK&WL*mH/r)w(e5QMe7(OjAf,AY5v8%yV5$b&5-=JXMm
Z)<7pURY6820EI@gg5$;H""d+uo/-IF'7$oR</g1uq:8Xd;b@mLlpMv@SiJtJ(xYo+N*"$pjO31
?kYe"Upz)M_b=Ie+n<0t*"7.{a{;qHR.w79JfSVr>y7w3>T<A,:d3L'SG$ZW;f'E79oj:Uo/M*U
>T#gi,'q=TMu-'Mdc1Xl1XTyqy,xS3BZR?LY/BhJT#QZYv;jO>f*Ap0_L?8E#jh3S5;ljB+Y{Uv
FnvmK1?Loq6V-5d0@ZO<'u9VScb_'3%e2A&1O6issXw1&@>"&<x7t;w3N2_W9uR#Q4aYIbt"im4
)Ml-Jy5TJ&gq(ws#h(DLQ9=%Q76>/ad_JMl<{WXs2+vq:jHpBH4R&:bAmu=EDec(@p:Sdo>Us93
J29Wd='vzD??J2PZc0L&2O4=GMN;?hN?n*ZVv(x2&FmhTde.$sZts=f,uKRnAgoC=hC6De7D<Hh
"+9m7+_iIQ4xxIKU(/*Hx+CF)oW@I?+-QqsL<ON+w&ARjwdTGhNiZ6qfg{QCUi13SH;zdlz&K2u
ZO#K,O)6E8,Vm'SfNPSJ0_UW{s:V9"5{{{{y&YAUT1L_O3%Xn#Mjo>'-n8"{2-Lg...@u.Ws6
y_FF=/pGg_H<LNYWKmy3=DfE5:EnV-*+c9eHkXGNDD_K,i+h(CxG)dUn@s3x;5w18M9<$=,,Xf#
2RM$T$DY3ouN*WXQP{tkGf&vv/RRMB>lK4qRCm.Ud%s81Dtr?,5cKB7L9OJaFLv6Vw.-jl+VyX%
wsm:cE@zb<Ypx{e8k@c;%-q-Pyz94@'4_z8poL%MXB$SZR@eIqkuOiVhGt-O={=$/o3:S_;ui=8
Z*k{Yz&JL6H5.QwI)+J3rw@n(<b##"@Jy5sFTiu>DkRqWC-rHc_>{Ih&%e@p)4w8-2P/**gjAY"
4oW-VF(Jkv(w2='*@ir;PW>EN8kegR_5.56E@;qbZ4Ba3Wd$bA%1mp/m;rT.)@l+D$CL{Q#Jf&x
h9H6SQ)L_%<(Q9PIDOWTd-oX0e6vQdR+07xY9v/Tl,3/0F241Y3xwjXJn+I;FSrWic;D6JB%&;=
3R>j(Q0{QV.KR,.MU6ImMnzYktBG&i'oCX9JTTU.(l2<"QkSG#o..F/"22{S&ZQ"rhkt/-?OgWN
YB>4Dq>kRZRA;R5X/00V69bsq@V19?b9nV4=<J9$l"8v'hId@ShPcKK2Qx;gv;3oCc*7y<>"?K?
'Cnjt<0Yg<+BIo14q{u.SCTkVR..Aqx$?<8&{*0.z4*G'qg9L<)F&{L,DqRXtQt3BtMMYXl/O3K
2u_"&,WQaU1Bnq*43r=l)x)iTzT_TJoKu8VTA6REG?$LBN_N7?fYx.vsa_XJ$iCA&60,d5EnoHU
jF:<LEgx.ZfZ9YpOH$,hT4Tl:qZ-{V6T<G+9{v,gl3ud&XCI?A<;-uAY7@v1dIX:BidoaJdUZ&9
{;AWC6fcSRZw22TQiu'8SgoM;A<A>(Ca8IOh0#Cfi"T7_QiB=NODq3?8AWhWNpNxkX9L59#CL?m
SP),J':J.5Ck.SKv.k17+PmyNmIt>kjg<P8g,,V;5JROwC:Hw"BR#UHEOY>?1vxJ.e,LtsN(*,s
FI*)_;kEsgE,kE9M27$*>:z6MZ5zJeEOFNq0+5o>flvD=_/#):qzWL4dlTz,mbz4;p+<c?u,'Yd
lRp=8qeXbAnw7u6jkauc:89{Fn?:M:_eYRJ8XUYcW+2w"DdB+Lc&n?-$aml8;Y3m(gXh'Y<f9A8
<@qxeItqc70QmKbWtS3./6=l+oiS.{fS{0/OER*R{XlMGCYM0Dt/r>2s7l=Pf_v@dH)U#QHA1P-
j5_5#=&h%$_{hB<3AP?.jP6w8QI<JQ'7@0X)?,e:Z9QVpRfOo{Zd5*i%YJqL8js,ju3A=kSqh1%
PZMuf{&ws5jeTb-AB*L)JDv{k)tT*-re)1/9bM3XYGM#QYeqpbZ=g1rah1z2D)rQ*a$g,::t7k#
Q"b_Q4>cEeyP5x5nI.m@0%EA-AzUGlWvJ$;9-d{*Jy:q&V4Pf91jBN&J/R0SQuu+k4tNsaZIU7;
nz/&3;40X&nq8z<8R=#@ja6A$gupf($cX<1y3:Wlg&zP...@i.L9l=2<zbgOPD,nQa8sa"<D+&31
4StwWeq(dEwXG/JKMtdlbJ$x-H;lsnZCk#KxrU3<1Nai9PM?oV7'GR3Soy%i?8fD'pSdWC#A2Z=
.M"K'(-puRA(NxtqDNQoM$9I20v4fqdi;<Hri$cv5x='VY6")"H+a*vX_{VYgTdH#f31tg2)zsT
7U*W$mj4K1gkI8ax$vwTu;2l55o;#=6yB"iB.UgGbVWcP/6QO0jELz"OO+(>%UV;)z7qoU1U2-H
WN4S_hU0eWeIr4H;j%GCWpV_GB0Lj"1H,a>#j$P=XVm<tKw2Z,deui:d9Nuf=L;?@='m>nw{ioQ
T*Eus2K>V#y++JSHsJH+BtF9<s/PM9@2p/uQ6F3k%joKug?{<uqm#/&MGh1RnEG=AC6o5+8AL0@
'&nBwcckW<m?eXHnxrZ44;C+>6W-QR/x,?4oeX"#q#ZNN2B'g9'c@J#CSJn2okYe8.Mk#>yRKuD
4Apo,:Zu-rh8/ipTM18B((3%e&un./lu:P8n;w_LselL/&UCLBCR>xVwnn1S+<K<uE>d8sAp2"r
=.vWmaPejL0ypwO:lid"-eb>"FFF&b{q8;/hCLnRuZ$'4a"k8SgSC6AT3mO83#;C'(oO@3hD'OA
6@v"&dp=G6g.Z;eGV#s51{z1SzI;SuvS'Y.2cXt%zUGrh)IDK$gkG(*"F7pYRg#SXB<L*nMd(Hm
W#=WniNl"STfNpAvVQ?N1@B+H-z4naj_"T:>5ImW>0.@2:Wz'wQ5&SXkK{i/U*wXi.?km'YR7/p
2){'q(LOC+LSg>5%RXbfRa3C,+,c%A&+__dfQNV{,AXmDCC0votP.AdKZLU8sz;C,@.=N4VbqV>
+PMyt=0zZ{A$Hj+Z5dX=x))=%:@dOP,n#EASy7fFlS6U-roe-7rbIk@I1rym<y7(3p+p#Y?cHyB
6s$%PYh1fWOMaXhk$4rHBwe<k:zQSOeTmr@noQ%TgB=0+Ey;"#)mErn_Kz0d&C'S4otf,;F&9"f
NR$=L&,EvnSdHWNi-_ytC%%87E{vAD,<O;4.WNmZ8xX.&:9cXFx=CR:RkjQ'IT;:cG{oHtbprIW
3;.A:?A)CSV"1a_,l*2t#8EJ)48(kaW_?62z>d?Bpt3/<<Tl*u,vQH"==DV*BLWRcm2U8vIftSU
iRaJ#{jq/_jYV<Yt$zLl2+t(*9&:U?L=5MbF6hQF=S/wV3W*D0K/IvrwUI(K9&-)+:=bM4wF+m.
6v:A8kIvkl.2swp4?xPPFK+x4KMOL,DxBJ(8z8>aSw1pT>4c)nhq$S*AW<jEfVkm8ZqlrRx{gO0
2BLC3u'a+qo%iUQ0_@Qm,<14L1-vE;4gC>7Tk-t4k_'AfJ%R>N#.6E@ZTIQpp2f9I.y?c:-28*'
6b{{{qCR/r?Tuz*,VlL?UY#-/8nOQ#{{{{{{{{{{0Shk%%{{{{K2wJDVr@CF&7?D{KoJE')nOQ#
X<4DQr3;EY.Qv{{M6*#{-E{{{{{{{{"${{{hjMEKz%5E9c?Sp98?ks/3E+m:"UW{{#3WW{>vbzD
_.TwN2{{{{009+=k"
$
end

--
Ian Smith <ims...@psuvm.psu.edu>

0 new messages