New Faster BrainF*ck

'// Todo: input 
'// Brainfuck JIT-A By GW 2009 //
'------------------------------
SuperStrict  
Framework brl.retro
Import brl.reflection  
Import brl.system 
  
Const CE% = 16
Global CODE$
Local T$
Global OPS$ 
Global Func(A:Byte Ptr,B:Byte Ptr)

RestoreData DAT
Repeat	
	ReadData T$
	If T$="" Then Exit
	CODE$=CODE$+T$
Forever

Global Mem:Byte Ptr = MemAlloc(65535)
MemClear(mem,65535)
	
Global BC%=0	
Global LC%=0
Global BA% 
Global FP:Byte Ptr
Global Labels:TList = CreateList()
Global Pa% = Int(Byte Ptr(altprint))

Func = MemAlloc(Len(code)*16)
BA = Int(Varptr(mem))
fp = func
For Local I% = 0 To (Len(code)*CE)-1
	fp[i] = $90
Next

Global LA%[1024]

outop($5A)
outop($5E)
outop($5B)
outop($52)
outop($60)

For Local I% = 0 To CODE.length-1
	Select CODE[i]
		Case Asc("+")
			outop($FE);outop($06)
		Case Asc("-")
			outop($FE);outop($0E)
		Case Asc(">")
			outop($46)
		Case Asc("<")
			outop($4E)
		Case Asc("[") 
			labels.addlast("label_" + LC)
			LC:+1
			outop($80);outop($3E);outop($00)
			outop($0F);outop($84); outop(lc);outop($01);outop($02);outop($03) 
			LA[LC-1] = BC
			LC:+1
		Case Asc("]") 
			If labels.isempty() Then RuntimeError("mismached labels!")
			Local t$ = String(labels.removelast())
			Local z% = Int(t.Replace("label_",""))
			z:+1
			LA[z] = BC
			outop($E9); outop(z);outop($F1);outop($F2);outop($F3)
		Case Asc(".")  
			outop($FF);outop($36)
			outop($FF)
			outop($D3)
			outop($81);outop($C4);outop($04);outop($00);outop($00);outop($00)
			outop($B8);outop($00);outop($00);outop($00);outop($00);
		Case Asc(",")
			'TODO
		Default
	EndSelect	
Next
outop($61)
outop($c3)

For Local I% = 1 To (Len(code)*CE)-4
	If fp[i] = $01 And fp[i+1] = $02 And fp[i+2] = $03 Then
		Local z% = fp[i-1]
		Local TMP% = (la[z]-la[z-1])+5 
		fp[i-1] = Byte(Byte Ptr( Varptr(TMP))[0] )   
		fp[i] = Byte(Byte Ptr( Varptr(TMP))[1] )  
		fp[i+1] = Byte(Byte Ptr( Varptr(TMP))[2] )
		fp[i+2] = Byte(Byte Ptr( Varptr(TMP))[3] )
	EndIf
	If fp[i] = $F1 And fp[i+1] = $F2 And fp[i+2] = $F3 Then
		Local z% = fp[i-1] 
		Local TMP% = -(la[z]-la[z-1]+(5+3+6))
		fp[i-1] = Byte(Byte Ptr( Varptr(TMP))[0] )  
		fp[i] = Byte(Byte Ptr( Varptr(TMP))[1] )  
		fp[i+1] = Byte(Byte Ptr( Varptr(TMP))[2] )
		fp[i+2] = Byte(Byte Ptr( Varptr(TMP))[3] )
	EndIf
Next

Function Out(S$) 
	Print s
End Function
	
Function outop(s:Byte)
	fp[bc] = s
	bc:+1
	If bc > Len(code)*CE Then RuntimeError("out of space!")
End Function    

Function AltPrint(b:Int)
	Print Chr(Byte(b))
End Function

'DebugStop
'-------------------------------------------------------------------------------------
Func(mem,altprint)

#DAT	'Hello world
DefData "++++++++++[>+++++++>++++++++++>+++<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+."
DefData ""