Turbo Pascal 3 bitmap graphics extensions

Post your CP/M & TDOS questions here
User avatar
Wmaalouli
Posts: 155
Joined: Sat Jul 20, 2019 2:09 pm

Turbo Pascal 3 bitmap graphics extensions

Post by Wmaalouli » 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.

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)...
Attachments
TP3BITMAP.ZIP
(565.89 KiB) Downloaded 334 times
Last edited by Wmaalouli on Sat Jan 02, 2021 4:21 pm, edited 1 time in total.

lotonah
Posts: 14
Joined: Sat Jul 20, 2019 5:26 pm

Re: Turbo Pascal 3 bitmap graphics extensions

Post by lotonah » Mon Aug 26, 2019 9:24 pm

Definitely need to try this out. Are you open to making sound and controller modules, too?

User avatar
Wmaalouli
Posts: 155
Joined: Sat Jul 20, 2019 2:09 pm

Re: Turbo Pascal 3 bitmap graphics extensions

Post by Wmaalouli » Tue Aug 27, 2019 7:23 am

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.

User avatar
Milli
Site Admin
Posts: 224
Joined: Fri Jul 19, 2019 3:13 pm
Location: Beaver Falls PA
Contact:

Re: Turbo Pascal 3 bitmap graphics extensions

Post by Milli » Fri Oct 25, 2019 8:33 am

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
Milli

User avatar
Wmaalouli
Posts: 155
Joined: Sat Jul 20, 2019 2:09 pm

Re: Turbo Pascal 3 bitmap graphics extensions

Post by Wmaalouli » Sat Oct 26, 2019 8:18 am

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.

User avatar
joltguy
Posts: 91
Joined: Wed Aug 21, 2019 5:17 am
Location: Toronto, Canada
Contact:

Re: Turbo Pascal 3 bitmap graphics extensions

Post by joltguy » 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.

User avatar
Wmaalouli
Posts: 155
Joined: Sat Jul 20, 2019 2:09 pm

Re: Turbo Pascal 3 bitmap graphics extensions

Post by Wmaalouli » Mon Jun 22, 2020 8:57 am

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.
Attachments
TP3 extensions demo programs.zip
(1.63 KiB) Downloaded 263 times

User avatar
joltguy
Posts: 91
Joined: Wed Aug 21, 2019 5:17 am
Location: Toronto, Canada
Contact:

Re: Turbo Pascal 3 bitmap graphics extensions

Post by joltguy » Mon Jun 22, 2020 1:05 pm

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

User avatar
joltguy
Posts: 91
Joined: Wed Aug 21, 2019 5:17 am
Location: Toronto, Canada
Contact:

Re: Turbo Pascal 3 bitmap graphics extensions

Post by joltguy » Sat Jul 04, 2020 8:43 am

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.

User avatar
Milli
Site Admin
Posts: 224
Joined: Fri Jul 19, 2019 3:13 pm
Location: Beaver Falls PA
Contact:

Re: Turbo Pascal 3 bitmap graphics extensions

Post by Milli » Sat Jul 04, 2020 12:32 pm

TDOS uses the VRAM to save a copy of the CCP so that may be the problem
Milli

Post Reply