OTHER CONTRIBUTIONS: IF SPEED TEST - example - ugBASIC

OTHER CONTRIBUTIONS: IF SPEED TEST

This example is intended to illustrate the speed with which logical comparisons are performed within the IFs. Which solution is the fastest?

Click here for more informations.

source compile sandbox issues? back to examples

SOURCE CODE ()

	CLS

	DIM a AS BYTE
	DIM b AS BYTE
	DIM i AS WORD

	DIM ti AS WORD

	PRINT "------------------------"
	PRINT "SPEED TEST"
	PRINT "IF + AND (16.000 cycles)"
	PRINT "------------------------"
	PRINT

	TIMER = 0

	REM 1 if a=0 and b=0 then

	ti = TIMER

	FOR i=0 TO 16000
		IF a=0 AND b=0 THEN
			NOP
		ENDIF
	NEXT

	ti = TIMER - ti

	PRINT "1) a=0 and b=0     : t = "; (ti / TICKS PER SECOND); " sec(s)"

	REM 2 if a=0 then if b=0 then

	ti = TIMER

	FOR i=0 TO 16000
		IF a=0 THEN
			IF b=0 THEN
				NOP
			ENDIF
		ENDIF
	NEXT

	ti = TIMER - ti

	PRINT "2) a=0 then b=0    : t = "; (ti / TICKS PER SECOND); " sec(s)"

	REM 3 if (a=0)*(b=0)=1 then

	ti = TIMER

	FOR i=0 TO 16000
		IF (a=0)*(b=0)=1 THEN
			NOP
		ENDIF
	NEXT

	ti = TIMER - ti

	PRINT "3) (a=0)*(b=0)=1   : t = "; (ti / TICKS PER SECOND); " sec(s)"

	REM 4 if a*a+b*b=0 then

	ti = TIMER

	FOR i=0 TO 16000
		IF (a*a)+(b*b)=0 THEN
			NOP
		ENDIF
	NEXT

	ti = TIMER - ti

	PRINT "4) a*a+b*b=0       : t = "; (ti / TICKS PER SECOND); " sec(s)"

	REM 5 if abs(a)+abs(b)=0 then

	ti = TIMER

	FOR i=0 TO 16000
		IF ABS(a)+ABS(b)=0 THEN
			NOP
		ENDIF
	NEXT

	ti = TIMER - ti

	PRINT "5) abs(a)+abs(b)=0 : t = "; (ti / TICKS PER SECOND); " sec(s)"

How to compile and run the example

The instructions here refer to compiling the example from the command line. For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile each single example with just one click.

Are instructions for your specific home computer / console missing? First of all, check if your computer is supported by clicking here. If so, since ugBASIC is a language which does not provide abstractions, it is possible that this example will not work on your target. If you think this is an issue, please click here.

Amstrad CPC 464, Amstrad CPC 6128, Amstrad CPC 664

In order to compile the example, type this command on the command line:

Linux

ugbc.cpc -O dsk -o contrib_if_test_speed.dsk contrib_if_test_speed.bas

Windows

ugbc.cpc.exe -O dsk -o contrib_if_test_speed.dsk contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

Atari 1200XL, Atari 130XE, Atari 600XL, Atari 65XE, Atari 800XE, Atari 800XL, Atari XEGS

In order to compile the example, type this command on the command line:

Linux

ugbc.atarixl -O xex -o contrib_if_test_speed.xex contrib_if_test_speed.bas

Windows

ugbc.atarixl.exe -O xex -o contrib_if_test_speed.xex contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

Atari 400, Atari 800

In order to compile the example, type this command on the command line:

Linux

ugbc.atari -O xex -o contrib_if_test_speed.xex contrib_if_test_speed.bas

Windows

ugbc.atari.exe -O xex -o contrib_if_test_speed.xex contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

Coleco Vision, Dina (Chuang Zao Zhe 50), SpectraVideo SV-603 VGA

In order to compile the example, type this command on the command line:

Linux

ugbc.coleco -O rom -o contrib_if_test_speed.rom contrib_if_test_speed.bas

Windows

ugbc.coleco.exe -O rom -o contrib_if_test_speed.rom contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

Commodore 128 (CPU 8502)

In order to compile the example, type this command on the command line:

Linux

ugbc.c128 -O prg -o contrib_if_test_speed.prg contrib_if_test_speed.bas

Windows

ugbc.c128.exe -O prg -o contrib_if_test_speed.prg contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

Commodore 64, Commodore Executive 64

In order to compile the example, type this command on the command line:

Linux

ugbc.c64 -O prg -o contrib_if_test_speed.prg contrib_if_test_speed.bas

Windows

ugbc.c64.exe -O prg -o contrib_if_test_speed.prg contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

Dragon 32

In order to compile the example, type this command on the command line:

Linux

ugbc.d32 -O bin -o contrib_if_test_speed.bin contrib_if_test_speed.bas

Windows

ugbc.d32.exe -O bin -o contrib_if_test_speed.bin contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

Dragon 64

In order to compile the example, type this command on the command line:

Linux

ugbc.d64 -O bin -o contrib_if_test_speed.bin contrib_if_test_speed.bas

Windows

ugbc.d64.exe -O bin -o contrib_if_test_speed.bin contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

Olivetti Prodest PC128, Thomson MO6

In order to compile the example, type this command on the command line:

Linux

ugbc.pc128op -O k7 -o contrib_if_test_speed.k7 contrib_if_test_speed.bas

Windows

ugbc.pc128op.exe -O k7 -o contrib_if_test_speed.k7 contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

SEGA SC-3000

In order to compile the example, type this command on the command line:

Linux

ugbc.sc3000 -O rom -o contrib_if_test_speed.rom contrib_if_test_speed.bas

Windows

ugbc.sc3000.exe -O rom -o contrib_if_test_speed.rom contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

SEGA SG-1000

In order to compile the example, type this command on the command line:

Linux

ugbc.sg1000 -O rom -o contrib_if_test_speed.rom contrib_if_test_speed.bas

Windows

ugbc.sg1000.exe -O rom -o contrib_if_test_speed.rom contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

TRS-80 Color Computer, TRS-80 Color Computer 2

In order to compile the example, type this command on the command line:

Linux

ugbc.coco -O bin -o contrib_if_test_speed.bin contrib_if_test_speed.bas

Windows

ugbc.coco.exe -O bin -o contrib_if_test_speed.bin contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

TRS-80 Color Computer 3

In order to compile the example, type this command on the command line:

Linux

ugbc.coco3 -O bin -o contrib_if_test_speed.bin contrib_if_test_speed.bas

Windows

ugbc.coco3.exe -O bin -o contrib_if_test_speed.bin contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

Thomson TO8

In order to compile the example, type this command on the command line:

Linux

ugbc.to8 -O k7 -o contrib_if_test_speed.k7 contrib_if_test_speed.bas

Windows

ugbc.to8.exe -O k7 -o contrib_if_test_speed.k7 contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

VIC-20

In order to compile the example, type this command on the command line:

Linux

ugbc.vic20 -O prg -o contrib_if_test_speed.prg contrib_if_test_speed.bas

Windows

ugbc.vic20.exe -O prg -o contrib_if_test_speed.prg contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

ZX Spectrum +2, ZX Spectrum 128K, ZX Spectrum 48K

In order to compile the example, type this command on the command line:

Linux

ugbc.zx -O tap -o contrib_if_test_speed.tap contrib_if_test_speed.bas

Windows

ugbc.zx.exe -O tap -o contrib_if_test_speed.tap contrib_if_test_speed.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

Any problem?

If you have found a problem trying to run this example, if you think there is a bug or, more simply, you would like it to be improved, open an issue for this example on GitHub.
Thank you!

open an issue BACK TO EXAMPLES