2011-03-27, 02:37 PM
The complete code I was using is:
I simple change which start label is active before compiling.
Let me run yours for comparison and come back.
Incidentally, boriel - my loop counter (i) is an integer. Yours is a byte. I think that's the difference.
Code:
#include "fSin.bas"
FUNCTION t() as uLong
asm
DI
LD DE,(23674)
LD D,0
LD HL,(23672)
EI
end asm
end function
cls
DIM i as uInteger
DIM k,var,j as uByte
DIM time,endtime as uLong
LET k=5
LET i=2
let time =t()
goto start
subroutine:
return
'start:
label:
LET i=i+1
LET var=k/2*3+4-5
gosub subroutine
DIM M(5) as uInteger
FOR j=0 to 4
LET M(j)=i
NEXT j
IF i<1000 then GOTO label: END IF
goto finish
REM BM8
'start:
FOR i=1 to 100
result=i^2
result=ln(i)
result=Sin(i)
next i
goto finish
REM BM DRAW
start:
for i=1 to 127
draw i,160
plot i,0
next i
OVER 1
for i=0 to 80
plot 0,i
draw 250,i
next i
OVER 2
for i = 1 to 80
circle 127,87,i
next i
OVER 3
for i = 10 to 18
plot 127,87
draw i,i,i
next i
finish:
endtime=t()
OVER 0
print "Start:";time;" End:";endtime
print (CAST (FLOAT,t())-time)/50; " Seconds"
print "Done!"
print at 23,0;M(1);k;i;var;resultI simple change which start label is active before compiling.
Let me run yours for comparison and come back.
Incidentally, boriel - my loop counter (i) is an integer. Yours is a byte. I think that's the difference.