[Info-vax] Python for x86?

Johnny Billquist bqt at softjar.se
Wed May 10 09:18:57 EDT 2023


On 2023-05-10 00:38, Chris Townley wrote:

> My changes:
> 
> sub testint(integer xscale)
> 
> declare integer constant NINT = 10000%
> declare integer constant N = 1000000%
> declare integer i, j, nintscale, sum
> declare quad t1, t2
> external sub printres(quad, quad, integer, integer, string)
> external long function sys$gettim(quad)
> 
> nintscale = NINT / xscale
> call sys$gettim(t1)
> for i = 1% to nintscale
>      sum = i - 1%
>      for j = 1 to N

Here is still an untyped 1...

>          sum = ((sum + 1%) * 2% + 1%) / 2%
>      next j
>      if sum <> (i - 1% + N) then
>          print "Integer test error"
>          stop
>      end if
> next i
> call sys$gettim(t2)
> call printres(t1, t2, nintscale, N, "integer operations")
> 
> end sub

But yeah, classic BASIC issue. Default all values are FP.

   Johnny




More information about the Info-vax mailing list