Passing Integer Arrays between ByPic functions July 31, 2014 11:41PM |
Registered: 9 years ago Posts: 14 |
function DoStuff( a(), b(), results() ) results(0)=a(0)+b(0) results(1)=a(1)+b(1) endf function Test() dim i(2),j(2),k(2) i(0)=1; i(1)=2 j(0)=3; j(1)=4 DoStuff( i(), j(), k() ) print k(0), k(1) endf
constant Billion 1000000000 // // Add 2 18 digit integers, return result in p // m, n, p are integer arrays // function Add18(m,n,p) dim i dim Cy i=peek(?m+0) + peek(?n+0) Cy=i / Billion i=i % Billion poke(p+0,i) i=peek(?m+4) + peek(?n+4) +Cy i=i % Billion poke(p+4,i) endf function a() dim I(2),J(2),K(2),R$[24] I(0)=383680000 I(1)=343597 J(0)=973836800 J(1)=3435 Add18(I(0),J(0),?K(0)) R$=format$( "%9u", K(1) ) + "" + format$( "%9u", K(0) ) print R$ + "\n" endf
Re: Passing Integer Arrays between ByPic functions August 01, 2014 08:38AM |
Admin Registered: 11 years ago Posts: 351 |
Re: Passing Integer Arrays between ByPic functions August 01, 2014 03:39PM |
Registered: 9 years ago Posts: 14 |
Re: Passing Integer Arrays between ByPic functions August 01, 2014 04:15PM |
Admin Registered: 11 years ago Posts: 351 |
Re: Passing Integer Arrays between ByPic functions August 01, 2014 06:12PM |
Registered: 9 years ago Posts: 14 |