Bitmap screen and Omega Race

[funkheld]

hello, good day.
there is an error in the trse.

what can you do for it?

greeting

[funkheld]

tis is one plot in basic:
----------------------------------------
10200 rem plot
10230 gosub 10400
10240 poke ad,peek(ad) or ma
10250 return
10400 ad=4352
10410 ay=int(y/16)*336+(y and 15)
10420 ad=ad+16*int(x/8)+ay
10430 ma=2^(7-(x and 7))
10440 return
----------------------------------------

[funkheld]

I did that in vforth.

greeting

[AndyH]

That vforth looks interesting.

hello, good day.
there is an error in the trse.

what can you do for it?

greeting

You might not have the latest version '<<' was added recently, so it is possible it is that. If you a adventurous, the very, very latest is on GitHub.

[AndyH]

The new commands (that will be available in the new year) adds some useful methods. If you wanted to plot that wave you could use

Code: Select all

	vbmSetDisplayMode();
	vbmClear(0);
	
	vbmDrawDot(x,y);

[funkheld]

please show me the newest version running under window, ihne i have to make a new trse.

greeting

[funkheld]

hello thanks.
is ok with trse.

I'm glad that now also the vic20 is considered in the future.

greeting

[funkheld]

if that can be implemented on the fast on plot in trse, that would be fine.
----------------------------------------
10200 rem plot
10230 gosub 10400
10240 poke ad,peek(ad) or ma
10250 return
10400 ad=4352
10410 ay=int(y/16)*336+(y and 15)
10420 ad=ad+16*int(x/8)+ay
10430 ma=2^(7-(x and 7))
10440 return
----------------------------------------

and :
RightBitShift/LeftBitShift .. expand 16 bits then you can work in the graphics mode at vic20 synonymous.
 
greeting

[funkheld]

I compiled this program with target: 8191 and could start it with sys8192.

this not funktion (grafik vic20)
------------------------------------
poke(^36867,0,151);
poke(^36866,0,21);
poke(^36869,0,204);
poke(^36864,0,14);
-------------------------------------

this is the start in the asm : -
-----------------------------------------------
ORG $01

schiebechar
jmp block41
charset dc.b $018, $018, $03c, $07e, $0ff, $018, $024, $042
dc.b $0ff, $081, $081, $081, $081, $081, $081, $0ff
......
.......
-----------------------------------------------


thanks
greeting

Code: Select all

program schiebechar;

var
charset : array[16] of byte = ( 24,24,60,126,255,24,36,66,255,129,129,129,129,129,129,255 );

a, b : byte;
zpcharz: pointer;
zpscr: pointer;
zpcol: pointer;

begin
  ClearScreen(white, screen_col_loc);
    
  zpcharz:=5120;
  
  zpscr:=4096;
  zpcol:=37888;
  
  poke(^37139,0,0);
  poke(^37154,0,127);
  poke(^36869,0,205);
  poke(^36867,0,151);
    
	for b:=0 to 16 do
	begin
		zpcharz[b]:=charset[b];
	end;

  a:=5;
  zpscr[0]:=0;
  zpcol[0]:=5;
		 
end.

[AndyH]

Ctrl + R will start the program in vice and there is a basic stub that will do the sys call for you, unless you turn that off in the project settings.

Also, after definescreen() you will have access to a built in zero page pointer called ScreenMemory which you can use to manipulate the screen (or colour) memory to save allocating an additional zero page pointer.

Not sure how you got org $01 in the ASM? If you can upload the project I can take a closer look.

[funkheld]

hello thanks.

$1FFF start ist ok .
8191 not.

then sys8192 ok ;

greeting

[funkheld]

what is that.
please explain that to me once:

Thank you.
greeting

----------------------------------------------
Also, after definescreen() you will have access to a built in zero page pointer called ScreenMemory which you can use to manipulate the screen (or colour) memory to save allocating an additional zero page pointer.
----------------------------------------------

[AndyH]

what is that.
please explain that to me once:

Thank you.
greeting

----------------------------------------------
Also, after definescreen() you will have access to a built in zero page pointer called ScreenMemory which you can use to manipulate the screen (or colour) memory to save allocating an additional zero page pointer.
----------------------------------------------

try

definescreen(); // initialises a free ZP pointer called screenmemory - many methods use it

screenmemory := $1000; // you can use it also!
screenmemory[0] := 1;

[funkheld]

hello thanks.

greeting.

[funkheld]

another question.
I want to copy code to a disk and I'm loading memory into the program again.
how does that go with trse please?
Thank you.
greeting