BiFrost Multicolour engine.

[slenkar]

small problem:
When I change the position of the tiles to my UDG block the program says OK at the bottom like its finished and then when I press a button I am typing in basic commands,

Code:

#include "bifrost.bas"

INK 5: PAPER 0: BORDER 0: CLS
PRINT INK 6;AT 4,22;"slenkars";AT 5,23;"ENGINE";AT 6,24;"DEMO"; INK 4; AT 10,24;"WITH";AT 11,23;"BORIEL";AT 12,22;"ZX-BASIC"
   BIFROSTstart()
   BIFROSTresetTileImages(@MyUdgBlock)


While 1
LET a$=INKEY$
IF a<>"" THEN
Dim iter as UInteger
for x=0 to 8
for y=0 to 8
BIFROSTsetTile(x, y, iter)
iter=iter+1
next
next

PRINT INK 6;AT 4,22;"slenkars";AT 5,23;"you";AT 6,24;"pressed"; INK 4; AT 10,24;"a";AT 11,23;"Button";
END IF
Wend

MyUdgBlock: REM a simple Label; @Label returns it's memory address
ASM
defb 255,129,129,129,129,129,129,255
defb 231,231,165,231,189,231,165,255
defb 0,248,190,255,127,255,213,255
END ASM

this doesnt happen when I do the POKE commands to make sprites




Trying to poke some values for a static sprite:

Code:

#include "bifrost.bas"

INK 5: PAPER 0: BORDER 0: CLS
PRINT INK 6;AT 4,22;"slenkars";AT 5,23;"ENGINE";AT 6,24;"DEMO"; INK 4; AT 10,24;"WITH";AT 11,23;"BORIEL";AT 12,22;"ZX-BASIC"
   BIFROSTstart()
Dim pokepos as Uinteger
pokepos=48500+(BIFROSTSTATIC*64)
POKE pokepos,0
POKE pokepos+1,16
POKE pokepos+2,0
POKE pokepos+3,56
POKE pokepos+4,0
POKE pokepos+5,124
POKE pokepos+6,0
POKE pokepos+7,124
POKE pokepos+8,0
POKE pokepos+9,124
POKE pokepos+10,0
POKE pokepos+11,56
POKE pokepos+12,0
POKE pokepos+13,16
POKE pokepos+14,0
POKE pokepos+15,0
POKE pokepos+16,0
POKE pokepos+17,0
POKE pokepos+18,0
POKE pokepos+19,0
POKE pokepos+20,0
POKE pokepos+21,0
POKE pokepos+22,0
POKE pokepos+23,0
POKE pokepos+24,0
POKE pokepos+25,0
POKE pokepos+26,0
POKE pokepos+27,0
POKE pokepos+28,0
POKE pokepos+29,0
POKE pokepos+30,0
POKE pokepos+31,0

While 1
LET a$=INKEY$
IF a<>"" THEN
Dim iter as UInteger
iter=0
for x=0 to 8
for y=0 to 8
BIFROSTsetTile(x, y,BIFROSTSTATIC+ iter)
iter=iter+1
next
next

PRINT INK 6;AT 4,22;"slenkars";AT 5,23;"you";AT 6,24;STR(pokepos); INK 4; AT 10,24;"a";AT 11,23;"Button";
END IF
Wend

but none of the sprites look different

also how do you convert ink,paper,bright,flash into a byte?

so far im doing this...
ink value e.g. 011
plus paper value e.g.111
plus bright 1 or 0
plus flash 1 or 0

it doesnt seem to work

by binary to int function must be right because it works for the bitmaps