Page 1 of 2

Turbo Pascal 3 bitmap graphics extensions

Posted: Sun Aug 25, 2019 8:53 pm
by Wmaalouli
Here's a complete bitmap package for the Turbo Pascal 3 compiler under CP/M which will allow you to take advantage of the Adam's graphic capabilities using the power of a compiled Pascal environment.

Here's a video demo of the package: https://youtu.be/u5RGUHVmTDA

UPDATE 1/2/21: Apparently CP/M on the Adam does not allow more than 16 sprites (sprite # 0-15)...

Re: Turbo Pascal 3 bitmap graphics extensions

Posted: Mon Aug 26, 2019 9:24 pm
by lotonah
Definitely need to try this out. Are you open to making sound and controller modules, too?

Re: Turbo Pascal 3 bitmap graphics extensions

Posted: Tue Aug 27, 2019 7:23 am
by Wmaalouli
lotonah wrote:
Mon Aug 26, 2019 9:24 pm
Definitely need to try this out. Are you open to making sound and controller modules, too?
Funny, I was just looking at the technical data on this in the Hacker's Guide. The short answer is yes.

Re: Turbo Pascal 3 bitmap graphics extensions

Posted: Fri Oct 25, 2019 8:33 am
by Milli
I just tried to copy the BMPDRAW.PAS from the image to my PC so I can look at the source and discovered that Eric Pearson's ADAM Image Manager corrupted it badly :cry:

Wmaalouli do you have just the Z80 source code for the routines? I would like to try and implement them in some pure Z80 code. Mainly need the initialization and single pixel routines, the rest I can make as necessary.

Milli

Re: Turbo Pascal 3 bitmap graphics extensions

Posted: Sat Oct 26, 2019 8:18 am
by Wmaalouli
I programmed the modules straight into Turbo Pascal, so there is no master Z80 source. However, most of the modules have inline 8080 assembly code for the critical sections and it should give you most of what you need. The format of the inline code is opcode/LSB/MSB (if applicable). Here's a link to a handy conversion table: http://pastraiser.com/cpu/i8080/i8080_opcodes.html
That sounds like a great project which will open up the Adam to the Basic programmer. I'll be very interested in seeing how you progress and feel free to reach out with any questions.

Re: Turbo Pascal 3 bitmap graphics extensions

Posted: Sat Jun 20, 2020 9:21 am
by joltguy
Wmaalouli wrote:
Sun Aug 25, 2019 8:53 pm
Here's a complete bitmap package for the Turbo Pascal 3 compiler under CP/M which will allow you to take advantage of the Adam's graphic capabilities using the power of a compiled Pascal environment.
I’d like to play around with this on my Adam. Wmaalouli could you please post the source code for the BmpDemo program and the sound & controller demos that you showed on YouTube? They don’t seem to be included on the disk image.

Re: Turbo Pascal 3 bitmap graphics extensions

Posted: Mon Jun 22, 2020 8:57 am
by Wmaalouli
joltguy wrote:
Sat Jun 20, 2020 9:21 am
Wmaalouli wrote:
Sun Aug 25, 2019 8:53 pm
Here's a complete bitmap package for the Turbo Pascal 3 compiler under CP/M which will allow you to take advantage of the Adam's graphic capabilities using the power of a compiled Pascal environment.
I’d like to play around with this on my Adam. Wmaalouli could you please post the source code for the BmpDemo program and the sound & controller demos that you showed on YouTube? They don’t seem to be included on the disk image.
Here you go. Feel free to ask any questions.

Re: Turbo Pascal 3 bitmap graphics extensions

Posted: Mon Jun 22, 2020 1:05 pm
by joltguy
Wmaalouli wrote:
Mon Jun 22, 2020 8:57 am
Here you go. Feel free to ask any questions.
Thank you!! 8-)

Re: Turbo Pascal 3 bitmap graphics extensions

Posted: Sat Jul 04, 2020 8:43 am
by joltguy
Is it odd that these extensions don't work under T-DOS? The demo programs compile fine but when you run the resulting .com file the system just freezes up. I thought T-DOS it was 99% CP/M compatible but maybe this falls into that 1%? If these could work in T-DOS it'd be awesome mainly because its support for more drives and disks larger than 160K sure gives a lot more breathing room. And... the TP editor actually seems to work halfway decent in T-DOS.

Also, I can't seem to find the Joyst() and Pad() procedures that are called in the SndTest demo program. I looked in control.pas but there is only a Controller() procedure defined there.

Re: Turbo Pascal 3 bitmap graphics extensions

Posted: Sat Jul 04, 2020 12:32 pm
by Milli
TDOS uses the VRAM to save a copy of the CCP so that may be the problem