add tests for timeout checking

Author: boriel

tests/functional/opt2_infinite_loop.asm

@@ -0,0 +1,46 @@
+	org 32768
+__START_PROGRAM:
+	di
+	push ix
+	push iy
+	exx
+	push hl
+	exx
+	ld hl, 0
+	add hl, sp
+	ld (__CALL_BACK__), hl
+	ei
+	jp __MAIN_PROGRAM__
+ZXBASIC_USER_DATA:
+	; Defines USER DATA Length in bytes
+ZXBASIC_USER_DATA_LEN EQU ZXBASIC_USER_DATA_END - ZXBASIC_USER_DATA
+	.__LABEL__.ZXBASIC_USER_DATA_LEN EQU ZXBASIC_USER_DATA_LEN
+	.__LABEL__.ZXBASIC_USER_DATA EQU ZXBASIC_USER_DATA
+_kill:
+	DEFB 00
+ZXBASIC_USER_DATA_END:
+__MAIN_PROGRAM__:
+	ld hl, 0
+	ld b, h
+	ld c, l
+__END_PROGRAM:
+	di
+	ld hl, (__CALL_BACK__)
+	ld sp, hl
+	exx
+	pop hl
+	pop iy
+	pop ix
+	exx
+	ei
+	ret
+__CALL_BACK__:
+	DEFW 0
+_bulletcuchillo:
+	ld a, (_kill)
+	or a
+	jp nz, _bulletcuchillo__leave
+__LABEL__endbulletcuchillo:
+_bulletcuchillo__leave:
+	ret
+	END

tests/functional/opt2_infinite_loop.bas

@@ -0,0 +1,14 @@
+REM This was causing an infinite loop.
+
+DIM kill as Ubyte
+
+sub fastcall bulletcuchillo()
+  if kill then
+    return
+  end if
+endbulletcuchillo:
+end sub
+
+DIM dummy as Uinteger
+dummy = @bulletcuchillo
+