Mad Pascal

[tebe]

Is it possible to use Write routine with channel #6 in text modes 1 and 2? Or do I have to poke to display memory to show a character in specific color?

GotoXY and Write routines do seem to work only in text mode 0 and in window area in graphics modes.

 

uses crt, graph;
 
var f: file;
txt: string;
 
begin
 
 assign(f, 'S:'); rewrite(f,1);
 
 InitGraph(1);
 
 txt:='ATARI';
 blockwrite(f, txt[1], length(txt));
 
 gotoxy(5,;
 
 txt:='atari';
 blockwrite(f, txt[1], length(txt));
 
 close(f);
 
 repeat until keypressed;
 
end.

[Gury]

Thank you, that's exactly what I want. Simple device manipulation, nice.

 

And great to see MP source code published!

[tebe]

MadPascal v1.3.2 http://mads.atari8.info

 

 

- DOS: GetTime, SetTime
- MATH: Ceil
- SYSUTILS: GetTickCount
- FindFirst
- INT, FRAC, TRUNC, ROUND, ODD (build in compilator)

[Dmitry]

Mad Pascal looks great.

[greblus]

 

MadPascal v1.3.2 http://mads.atari8.info

 

 

Great! I attach (probably lame) quick fix allowing to run it on Linux.

 

Thanks Tebe!

mp.diff.txt

[tebe]

Bitmap Loader (4, 8 BitsPerPixel) for VBXE

loadbmp.zip

[Gury]

 

Great! I attach (probably lame) quick fix allowing to run it on Linux.

 

Thanks Tebe!

 

Everything new like this is great.

We now have Linux version. Thank you!

[tebe]

VBXE blitter

 

 

 
{$r blit.rc}
 
uses crt, graph, vbxe;
 
const
sinustable: array [0..255] of byte = (
$80, $7d, $7a, $77, $74, $70, $6d, $6a,
$67, $64, $61, $5e, $5b, $58, $55, $52,
$4f, $4d, $4a, $47, $44, $41, $3f, $3c,
$39, $37, $34, $32, $2f, $2d, $2b, $28,
$26, $24, $22, $20, $1e, $1c, $1a, $18,
$16, $15, $13, $11, $10, $0f, $0d, $0c,
$0b, $0a, $08, $07, $06, $06, $05, $04,
$03, $03, $02, $02, $02, $01, $01, $01,
$01, $01, $01, $01, $02, $02, $02, $03,
$03, $04, $05, $06, $06, $07, $08, $0a,
$0b, $0c, $0d, $0f, $10, $11, $13, $15,
$16, $18, $1a, $1c, $1e, $20, $22, $24,
$26, $28, $2b, $2d, $2f, $32, $34, $37,
$39, $3c, $3f, $41, $44, $47, $4a, $4d,
$4f, $52, $55, $58, $5b, $5e, $61, $64,
$67, $6a, $6d, $70, $74, $77, $7a, $7d,
$80, $83, $86, $89, $8c, $90, $93, $96,
$99, $9c, $9f, $a2, $a5, $a8, $ab, $ae,
$b1, $b3, $b6, $b9, $bc, $bf, $c1, $c4,
$c7, $c9, $cc, $ce, $d1, $d3, $d5, $d8,
$da, $dc, $de, $e0, $e2, $e4, $e6, $e8,
$ea, $eb, $ed, $ef, $f0, $f1, $f3, $f4,
$f5, $f6, $f8, $f9, $fa, $fa, $fb, $fc,
$fd, $fd, $fe, $fe, $fe, $ff, $ff, $ff,
$ff, $ff, $ff, $ff, $fe, $fe, $fe, $fd,
$fd, $fc, $fb, $fa, $fa, $f9, $f8, $f6,
$f5, $f4, $f3, $f1, $f0, $ef, $ed, $eb,
$ea, $e8, $e6, $e4, $e2, $e0, $de, $dc,
$da, $d8, $d5, $d3, $d1, $ce, $cc, $c9,
$c7, $c4, $c1, $bf, $bc, $b9, $b6, $b3,
$b1, $ae, $ab, $a8, $a5, $a2, $9f, $9c,
$99, $96, $93, $90, $8c, $89, $86, $83
);
 
bonus = $18000; // adres bitmapy w pamięci VBXE, ladowana przez RESOURCE $R
 
src0 = bonus + 0;
src1 = bonus + 16;
src2 = bonus + 16*2;
src3 = bonus + 16*3;
src4 = bonus + 16*4;
src5 = bonus + 16*5;
src6 = bonus + 16*6;
src7 = bonus + 16*7;
src8 = bonus + 16*8;
src9 = bonus + 16*9;
 
dst0 = VBXE_OVRADR+16*320+24;
dst1 = VBXE_OVRADR+16*2*320+24;
dst2 = VBXE_OVRADR+16*3*320+24;
dst3 = VBXE_OVRADR+16*4*320+24;
dst4 = VBXE_OVRADR+16*5*320+24;
dst5 = VBXE_OVRADR+16*6*320+24;
dst6 = VBXE_OVRADR+16*7*320+24;
dst7 = VBXE_OVRADR+16*8*320+24;
dst8 = VBXE_OVRADR+16*9*320+24;
dst9 = VBXE_OVRADR+16*10*320+24;
 
var i: byte;
 
blit0: TBCB absolute $4000;
blit1: TBCB absolute $4000+21;
blit2: TBCB absolute $4000+21*2;
blit3: TBCB absolute $4000+21*3;
blit4: TBCB absolute $4000+21*4;
blit5: TBCB absolute $4000+21*5;
blit6: TBCB absolute $4000+21*6;
blit7: TBCB absolute $4000+21*7;
blit8: TBCB absolute $4000+21*8;
blit9: TBCB absolute $4000+21*9;
 
 
procedure InitBlit(var a: TBCB; src, dst: cardinal; ctr: byte);
begin
 
 fillbyte(a, 0, sizeof(a));
 
 a.src_adr.byte2:=src shr 16;
 a.src_adr.byte1:=src shr 8;
 a.src_adr.byte0:=src;
 
 a.dst_adr.byte2:=dst shr 16;
 a.dst_adr.byte1:=dst shr 8;
 a.dst_adr.byte0:=dst;
 
 a.src_step_x:=1;
 a.src_step_y:=256;
 
 a.dst_step_x:=1;
 a.dst_step_y:=320;
 
 a.blt_width:=16-1;
 a.blt_height:=16-1;
 
 a.blt_and_mask:=$ff;
 
 a.blt_control:=ctr;
 
end;
 
 
procedure MoveBlit(var a: TBCB; dst: cardinal);
begin
 
 a.dst_adr.byte2 := dst shr 16;
 a.dst_adr.byte1 := dst shr 8;
 a.dst_adr.byte0 := dst;
 
 a.blt_and_mask := $ff;
 
end;
 
 
begin
 
 InitGraph(vbxe, 0, '');
 
 if GraphResult <> grOK then begin
  writeln('VBXE not detected');
  halt;
 end;
 
 SetVideoBank($81);
 
 InitBlit(blit0, src0, dst0, %1000);
 InitBlit(blit1, src1, dst1, %1000);
 InitBlit(blit2, src2, dst2, %1000);
 InitBlit(blit3, src3, dst3, %1000);
 InitBlit(blit4, src4, dst4, %1000);
 InitBlit(blit5, src5, dst5, %1000);
 InitBlit(blit6, src6, dst6, %1000);
 InitBlit(blit7, src7, dst7, %1000);
 InitBlit(blit8, src8, dst8, %1000);
 InitBlit(blit9, src9, dst9, 0);
 
 repeat
 
 pause;
 
 blit0.blt_and_mask := 0; // clear
 blit1.blt_and_mask := 0; //
 blit2.blt_and_mask := 0; //
 blit3.blt_and_mask := 0; //
 blit4.blt_and_mask := 0; //
 blit5.blt_and_mask := 0; //
 blit6.blt_and_mask := 0; //
 blit7.blt_and_mask := 0; //
 blit8.blt_and_mask := 0; //
 blit9.blt_and_mask := 0; //
//
 RunBlit(Blit0); //
 
 MoveBlit(blit0, dst0 + sinustable[i]);
 MoveBlit(blit1, dst1 + sinustable[i+16]);
 MoveBlit(blit2, dst2 + sinustable[i+16*2]);
 MoveBlit(blit3, dst3 + sinustable[i+16*3]);
 MoveBlit(blit4, dst4 + sinustable[i+16*4]);
 MoveBlit(blit5, dst5 + sinustable[i+16*5]);
 MoveBlit(blit6, dst6 + sinustable[i+16*6]);
 MoveBlit(blit7, dst7 + sinustable[i+16*7]);
 MoveBlit(blit8, dst8 + sinustable[i+16*8]);
 MoveBlit(blit9, dst9 + sinustable[i+16*9]);
 
 RunBlit(blit0);
 
 inc(i);
 
 until keypressed;
 
 SetVideoBank(0);
 
end.

vbxe_blit.zip

[+Stephen]

Can't get the VBXE working in Altirra. I've tried various settings but nothing works. It does animate, but looks like below:

[tebe]

System -> Memory Config -> Power-up Pattern -> Cleared

[tebe]

MadPascal 1.3.3 http://mads.atari8.info

[Gury]

Hi,

I started with larger project in Mad Pascal, but I came across with a problem of free available memory for code and variables. Normally I try to develop in structured fashion, with custom variables and routines as I need them. Now I try to use as few variables as I can, making routines with more functionality, to make room for additonal code.

 

To make maximum use of free memory, I have to (correct me if I am wrong):

- declare variables on absolute addresses with data (allowed memory locations)

- use moderate amount of variables

- make routines with more functionality to shrink amount of additional routines

...

 

Now here is a question... Does normally Mad Pascal code size depend on free available memory? Is Mad Pascal capable of smart linking (using routines in units as needed)? I tested this and it is obviously not the case, so I have to remove routines which are not needed.

 

Sorry for my annoyance and greetings

Gury

[Gury]

Ok, maybe one solution is using resource files for data (graphics, fonts, sprites...).

[tebe]

resource file is good solution

 

p.s.

use -o for compile (shorter and faster result)

mads, use -x (exclude unreferenced procedures)

[Gury]

Ok, thx, I use these options anyway. I will prepare special MP environment with only necessary core library routines, some variables directed to specific free locations (if needed) and probably resource file data, also on specific memory locations.

 

Normal Mad Pascal object code size is cca 29k - 30k (used by standard available free memory), but I can get along with data on specific addresses.

 

It would be wonderful, someday of course, to adapt Mad Pascal using additional XL memory (with PORTB flag set) or other free memory for code. Just a thought.

 

Greetings and thank you for such a great language!

[pps]

Wow, tebe made an rmt library

 

For everyone who wants amiga style stereo playback of rmt modules, simply use this resource of the rmt_player routine instead the provided one in the examples: rmt_pl_stereo.obx

 

Notice, this one is not optimised and will have all features of rmt included, so maybe compile your own routine if, you want it to use less of the memory.

[tebe]

VBXE Silly Venture 2k16 Invitro (MadPascal)

vbxe_sv2k16.zip

[JoSch]

Is it possible to get the source for this?

[pps]

VBXE Silly Venture 2k16 Invitro (MadPascal)

Hey, cool, but made me mad till I got that it needs VBXE

[+Stephen]

VBXE Silly Venture 2k16 Invitro (MadPascal)

Excellent, I so need to get my VBXE installed!

[flashjazzcat]

Finally watched this, and it's pretty astounding.

[greblus]

Hi.

 

Here's another small patch needed to compile blit.pas VBXE example on Linux. And static binaries (32-bit) for Linux.

Mp + VBXE is... like a dream come true

 

W.

mp133.diff.txt

mp133-static-i386.tar.gz

[+Stephen]

Hi.

 

Here's another small patch needed to compile blit.pas VBXE example on Linux. And static binaries (32-bit) for Linux.

Mp + VBXE is... like a dream come true

 

W.

Damn right! I never thought I would have a reason to try learning Pascal for anything these days.

[JoSch]

And I never thought of ever using Pascal for anything other than looking at old code.

[Gury]

And I never thought of ever using Pascal for anything other than looking at old code.

I am glad you figured it out The fact is that Pascal is as strong as C for several years, from Turbo Pascal, Delphi and now Lazarus and Free Pascal on PC platform.