Jump to content

Recommended Posts

Shanti example update, https://github.com/tebe6502/Mad-Pascal/tree/master/samples/a8/sprite

 

new tool, MIC2SHP, create listing ASM with shapes, assemble with MadAssembler

 

mic2shp filename.mic shape_name

 

procedure shape_name(a: byte); external;

{$link shape_name.obx}

begin

 shape_name(index);

end.

 

MIC with shapes examples

https://github.com/tebe6502/Mad-Pascal/blob/master/samples/a8/sprite/assets/face.mic

https://github.com/tebe6502/Mad-Pascal/blob/master/samples/a8/sprite/assets/monster.mic

https://github.com/tebe6502/Mad-Pascal/blob/master/samples/a8/sprite/assets/thing.mic

Edited by tebe
  • Like 4
  • Thanks 1
Link to comment
https://forums.atariage.com/topic/240919-mad-pascal/page/30/#findComment-5048657
Share on other sites

  • 4 weeks later...
1 hour ago, tebe said:

Awesome!  The more code the better, hopefully more people can start experimenting with VBXE.  I'm doing all of my stuff in 6502 now, forcing myself to learn, but that's certainly not for everyone, and I do miss the speed and ease of writing some test stubs in BASIC.

  • Like 1
Link to comment
https://forums.atariage.com/topic/240919-mad-pascal/page/30/#findComment-5062701
Share on other sites

  • 2 weeks later...
  • 3 weeks later...

Hi Tebe,

 

FYI: 

i often test with your current github mp.exe builds, but build 2022/05/03 seems to be the last one that works with my project.

All compile attempts with the (larger parts of the project) seem to hang the compiler in some infinite loop; only a force kill will stop the mp.exe process.

 

If it helps you, attached an example. 
"mp_compile_test.bat" contains my parameters.

mp_test_compiler_hangs.zip

Link to comment
https://forums.atariage.com/topic/240919-mad-pascal/page/30/#findComment-5076419
Share on other sites

On 6/20/2022 at 9:51 PM, Atlan_Roland said:

Hi Tebe,

 

FYI: 

i often test with your current github mp.exe builds, but build 2022/05/03 seems to be the last one that works with my project.

All compile attempts with the (larger parts of the project) seem to hang the compiler in some infinite loop; only a force kill will stop the mp.exe process.

 

If it helps you, attached an example. 
"mp_compile_test.bat" contains my parameters.

mp_test_compiler_hangs.zip 62.17 kB · 4 downloads

fixed

 

master branch

https://github.com/tebe6502/Mad-Pascal

  • Thanks 1
Link to comment
https://forums.atariage.com/topic/240919-mad-pascal/page/30/#findComment-5079402
Share on other sites

  • 2 weeks later...

simple as that :D

 

uses crt, aplib, rmt;

const
	screen = $0600;
	DL : array[0..8] of byte = (
		$70, $70, $70,
		$42, lo(screen), hi(screen),
		$41, lo(word(@DL)), hi(word(@DL))
	);

	SIZE = 3;
	modules : array[0..SIZE] of string[16] = (
		'D:AXELF.APL',
		'D:BEETLE.APL',
		'D:SUNDAY.APL',
		'D:VANTAGE.APL'
	);

	RMT_PLAYER = $9400;
	RMT_MODUL  = $9800;
	RMT_MUSIC  = $9000;


var
	msx    : TRMT;
	i      : byte = 0;
	SAVMSC : word absolute $58;
	DLIST  : word absolute $230;

begin
	DLIST  := word(@DL);
	SAVMSC := screen;

	msx.player := pointer(RMT_PLAYER);
	msx.modul  := pointer(RMT_MODUL);

	repeat
		unapl(modules[i], pointer(RMT_MUSIC));
		msx.init(0);

		FillChar(pointer(screen), 40, 0);
		GotoXY(0,0); write(modules[i]);

		repeat
			pause; msx.play;
		until keypressed; readkey;

		msx.stop;
		if i < SIZE then inc(i) else i := 0;
	until false;
end.

 

disk.atr

  • Like 3
Link to comment
https://forums.atariage.com/topic/240919-mad-pascal/page/30/#findComment-5083919
Share on other sites

  • 4 weeks later...
  • 2 weeks later...

https://github.com/tebe6502/Mad-Pascal/tree/master/samples/a8/sound/mod

 

MOD Player for 65816 fixed (Rapidus)

- left / right channel

- IRQ synchro fixed

 

https://github.com/tebe6502/Mad-Pascal/blob/master/samples/a8/sound/mod/mod.atr

 

MODPLAY5.OBX SSCHAN.MOD

 

Edited by tebe
  • Like 1
Link to comment
https://forums.atariage.com/topic/240919-mad-pascal/page/30/#findComment-5108899
Share on other sites

Just for curiosity... I have no plan to play with other supported systems, but I wanted to test sample program, which couldn't compile. I must have done something wrong:

 

d:\Atari\Appl\mpex\bin>mp ..\samples\c4plus\plasma.pas -ipath:..\lib -target:c4p

 

Output:

Mad Pascal Compiler version 1.6.6 [2022/07/23] for 6502
Compiling ..\samples\c4plus\plasma.pas
..\samples\c4plus\plasma.pas (101,15) Error: Incompatible types: got "Array[0..255] Of BYTE" expected "POINTER"

 

Link to comment
https://forums.atariage.com/topic/240919-mad-pascal/page/30/#findComment-5109372
Share on other sites

2 hours ago, Gury said:

Just for curiosity... I have no plan to play with other supported systems, but I wanted to test sample program, which couldn't compile. I must have done something wrong:

 

d:\Atari\Appl\mpex\bin>mp ..\samples\c4plus\plasma.pas -ipath:..\lib -target:c4p

 

Output:

Mad Pascal Compiler version 1.6.6 [2022/07/23] for 6502
Compiling ..\samples\c4plus\plasma.pas
..\samples\c4plus\plasma.pas (101,15) Error: Incompatible types: got "Array[0..255] Of BYTE" expected "POINTER"

 

the same here:

 

zbyti@X201:~/Programs/MadPascal/samples/a8/demoeffects$ mp-build-a8 plasma_2.pas 
Mad Pascal Compiler version 1.6.6 [2022/08/21] for 6502
Compiling plasma_2.pas
plasma_2.pas (96,14) Error: Incompatible types: got "Array[0..255] Of BYTE" expected "POINTER"

 

Link to comment
https://forums.atariage.com/topic/240919-mad-pascal/page/30/#findComment-5109474
Share on other sites

  • 2 weeks later...

new MP (SizeOfResource)

new unit SAPLZSS (unrolled SAP-R LZSS player, only 2 bytes on zero page 'sap_lzss.zp = $e0')

 

https://github.com/tebe6502/Mad-Pascal/tree/master/samples/a8/sound/sap_lzss

 

https://github.com/tebe6502/Mad-Pascal/tree/master/lib/saplzss_src

  • Like 3
Link to comment
https://forums.atariage.com/topic/240919-mad-pascal/page/30/#findComment-5115214
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...