Turbo Pascal 3 bitmap graphics extensions
Turbo Pascal 3 bitmap graphics extensions
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)...
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.
Re: Turbo Pascal 3 bitmap graphics extensions
Definitely need to try this out. Are you open to making sound and controller modules, too?
Re: Turbo Pascal 3 bitmap graphics extensions
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
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

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
Re: Turbo Pascal 3 bitmap graphics extensions
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.
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
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
Here you go. Feel free to ask any questions.
- Attachments
-
- TP3 extensions demo programs.zip
- (1.63 KiB) Downloaded 263 times
Re: Turbo Pascal 3 bitmap graphics extensions
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.
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
TDOS uses the VRAM to save a copy of the CCP so that may be the problem
Milli