Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
BiFrost Multicolour engine.
#28
ok I used jSpeccy

I loaded the basic code into the emulator and it appeared on the screen
then I pressed 'run'
inserted the bifrost DEMO tape from world of spectrum
it loaded the tiles

it also loaded bifrost* which is the engine correct?

then
inserted the bifrostdem tape that I compiled from boriels zxbasic
press play on tape
and it runs! I inserted my name to make sure I was doing it right



[Image: giY47.png]



I decided to make a simple program so I can experiment poking values, to change the tiles,

here is my code:
Code:
#include "bifrost.bas"
POKE Uinteger 48500, @MyUdgBlock
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()

While 1
LET a$=INKEY$
IF a<>"" THEN
BIFROSTsetTile(0, 0, 0)
BIFROSTsetTile(0, 1, 1)
BIFROSTsetTile(0, 2, 2)
BIFROSTsetTile(0, 3, 3)
BIFROSTsetTile(1, 0, 4)
BIFROSTsetTile(1, 1, 5)
BIFROSTsetTile(1, 2, 6)
BIFROSTsetTile(1, 3, 7)

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


STOP : REM Avoid execution to enter this zone
MyUdgBlock: REM a simple Label; @Label returns it's memory address
'some bytes
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

it looks like this:
[Image: O2Bgr.png]
which weird because I didnt put any tiles on the screen in my code

but anyway, when I press a key the tiles change correctly,
but they dont look any different,
it seems my POKE didnt make any difference


doing this seems to work:
Code:
POKE Uinteger 48500,1
POKE Uinteger 48501,2
POKE Uinteger 48502,3
POKE Uinteger 48503,4
POKE Uinteger 48504,5
POKE Uinteger 48505,6
POKE Uinteger 48506,7
POKE Uinteger 48507,8
POKE Uinteger 48508,9
POKE Uinteger 48509,1
POKE Uinteger 48510,2
POKE Uinteger 48511,3
POKE Uinteger 48512,4
POKE Uinteger 48513,5
POKE Uinteger 48514,6
POKE Uinteger 48515,7
POKE Uinteger 48516,8
POKE Uinteger 48517,9

is there a better way of inputting the data?
Reply


Messages In This Thread

Forum Jump:


Users browsing this thread: 2 Guest(s)