As BorIDE progresses...

[LCD]

This looks like a compiler bug :!:
The code that produces it is the one posted above??

No, it is different, the upper code (Full code below) of the earlier prigram produces this:

Code:

Traceback (most recent call last): File "D:\Restliche Programme\zxbasic\zxb.py", line 339, in <module> sys.exit(main()) # Exit File "D:\Restliche Programme\zxbasic\zxb.py", line 287, in main asm_output = optimize(asm_output) + '\n' File "D:\Restliche Programme\zxbasic\arch\zx48k\optimizer.py", line 2326, in optimize x.optimize() File "D:\Restliche Programme\zxbasic\arch\zx48k\optimizer.py", line 1982, in optimize regs.op(i1, o1) File "D:\Restliche Programme\zxbasic\arch\zx48k\optimizer.py", line 693, in op self.inc(o[0]) File "D:\Restliche Programme\zxbasic\arch\zx48k\optimizer.py", line 558, in inc v_ = self.getv(self.mem.get(r_, None)) File "D:\Restliche Programme\zxbasic\arch\zx48k\optimizer.py", line 516, in getv v = self.get(r) File "D:\Restliche Programme\zxbasic\arch\zx48k\optimizer.py", line 498, in get if r.lower() == '(sp)' and self.stack: AttributeError: 'NoneType' object has no attribute 'lower'

Here it is:

Code:

dim control$,key$ as string dim posx,posy,dir,drw,found as byte dim shtx,shty,shard as Uinteger poke uinteger 23675,@UDGs01 sub waitnokey() while inkey$<>"":wend end sub sub Drawscreen() dim x,y,byt as ubyte dim adr as uinteger dim a$ as string adr=@Buffer for y=0 to 21 a$="" for x=0 to 31 byt=peek adr if byt=0 then a$=a$+" ":else a$=a$+"\a":end If adr=adr+1 next x print at y,0;ink 4;a$; next y end sub function Piece(x as Uinteger,y as Uinteger) dim b as uinteger dim a$ as string b=@Buffer+(y<<5)+x if peek b=0 then a$=" " elseif peek b=1 then a$="\{i4}\a" elseif peek b=2 then a$="\{i5}\g" elseif peek b=3 then a$="\{i5}\h" end if print at y,x;a$; end function sub PlacePiece(x as uinteger,y as Uinteger,piece as ubyte) poke @Buffer+(y<<5)+x,piece end sub function GetPiece(x as uinteger,y as Uinteger) as ubyte return @Buffer+(y<<5)+x end Function sub PlaceShards(cnt as integer) dim dir,dir1 as ubyte dim xy as uinteger while cnt>0 xy=int(rnd*704) if peek(@Buffer+xy)=1 then cnt=cnt-1 dir=int(rnd*1.99) if dir=1 then dir1=2 else dir1=3 end If poke @Buffer+xy,dir1 end If wend end sub border 1:paper 0:bright 0:ink 7:Flash 0:Inverse 0:cls print at 0,0;"\{b1}\{p1}Inu Yasha-Test by LCD"; print at 3,1;"1. Keyboard QAOPM"; print at 4,1;"2. Sinclair 67890"; control$="" while control$="" key$=inkey$ if key$="1" then control$="qaopm":end If if key$="2" then control$="98670":end If wend randomize cls PlaceShards(32) Drawscreen() posx=10:posy=20 print at posy,posx;"\{i7}\j"; mainloop: while key$<>control$(4) key$=inkey$ if key$=control$(0) and posy>0 then Piece(posx,posy):posy=posy-1:print at posy,posx;"\{i7}\j";:waitnokey():end If if key$=control$(1) and posy<21 then Piece(posx,posy):posy=posy+1:print at posy,posx;"\{i7}\j";:waitnokey():end If if key$=control$(2) and posx>0 then Piece(posx,posy):posx=posx-1:print at posy,posx;"\{i7}\j";:waitnokey():end If if key$=control$(3) and posx<31 then Piece(posx,posy):posx=posx+1:print at posy,posx;"\{i7}\j";:waitnokey():end If wend if key$=control$(4) then print at 22,0;"\{p6}\{i2}\{b1}Select firing direction"; print at 23,0;"\{p6}\{i2}\{b1}SPC to purify and get Shard"; waitnokey() dir=0 while dir=0 key$=inkey$ waitnokey() if key$=control$(0) then dir=1:end if if key$=control$(1) then dir=2:end if if key$=control$(2) then dir=3:end if if key$=control$(3) then dir=4:end if if key$=" " then found=0 if GetPiece(posx+1,posy)>1 then found=found+1:shard=shard+1:PlacePiece(posx+1,posy,1):end If if GetPiece(posx-1,posy)>1 then found=found+1:shard=shard+1:PlacePiece(posx-1,posy,1):end If if GetPiece(posx,posy-1)>1 then found=found+1:shard=shard+1:PlacePiece(posx,posy-1,1):end If if GetPiece(posx,posy+1)>1 then found=found+1:shard=shard+1:PlacePiece(posx,posy+1,1):end If if found=0 then border 2:pause 5:border 0:end if dir=5 end if wend if dir=5 then dir=0:end if print at 22,0;"\{p0}\{i7}\{b0} "; print at 23,0;"\{p0}\{i7}\{b0} "; shtx=posx shty=posy while dir>0 if dir=1 and shty>0 then shty=shty-1:end if if dir=2 and shty<22 then shty=shty+1:end if if dir=3 and shtx>0 then shtx=shtx-1:end if if dir=4 and shtx<31 then shtx=shtx+1:end if bg=peek(@Buffer+(shty<<5)+shtx) if bg=2 then dir=peek(@Shoottable1+dir-1):end If if bg=3 then dir=peek(@Shoottable2+dir-1):end if if shtx=0 or shtx=31 or shty=0 or shty=22 then dir=0:end If 'if bg<99 then if bg=0 then drw=1 else drw=0 end if if drw then print at shty,shtx;"*"; end if wend end if goto mainloop End Shoottable1: asm defb 4,3,2,1 ;/ end asm Shoottable2: asm defb 3,4,1,2 ;\ end asm UDGs01: asm defb 24, 44, 94, 60, 24, 24, 60, 0 ;A Tree defb 16, 56, 16, 16, 16, 16, 56, 40 ;B Arrow up defb 0, 0, 0,194,127,194, 0, 0 ;C Arrow right defb 40, 56, 16, 16, 16, 16, 56, 16 ;D Arrow down defb 0, 0, 0, 67,254, 67, 0, 0 ;E Arrow left defb 16, 42, 84, 40, 16, 8, 20, 0 ;F Tree Visited defb 0, 2, 12, 28, 56, 48, 64, 0 ;G Shard / defb 0, 64, 48, 56, 28, 12, 2, 0 ;H Shard \ defb 24, 24, 60, 60, 90, 24, 60, 36 ;I Youkai DEFB 0, 24, 24, 60, 90, 24, 36, 36 ;J Figure end asm Buffer: asm DEFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DEFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0 DEFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DEFB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 end asm