Turbo Pascal v3 sur Amstrad CPC 6128

Nemo59 · **Inscription :** 03 Oct 2020, 16:46 **Message(s) :** 144

demoniakparadox a écrit :

Nemo59 a écrit :

Comme je suis en plein overscan et autres subtilités vidéos avancées, je me demande où trouver la structure des fichiers .scr que génère convimgcpc en overscan? Taille, palette CPC plus, découpage des deux blocs de 16ko…

Je viens juste de me rappeler qu'il y a aussi la description du format des fichiers générés par ConvImgcpc dans la doc (même si elle n'est pas très à jour) disponible sur la page "officielle" :
http://ldeplanque.free.fr/ConvImgCpc/new/

Merci ! Vu aussi ton msg sur l'autre forum. C'est bon je recupère la palette en mode normal et overscan. Tout OK en mode normal. Par contre en overscan je n'arrive qu'à afficher correctement que le haut de l'écran (ou le bas), l'autre partie est une bouillie de pixel (sauf à être en overscan sur la même zonde 16ko mais intérêt plus que limité lol).J'utilise la possibilité de Split d'écran du CPC+, ce qui veut dire que j'ai deux écrans bien différenciés qui s'affiche en 1 seul, l'écran 2 commençant à la ligne que je choisis pour le Split. Les lignes doivent être probablement être organisées differemment... Vais voir de plus pres ce soir ;d

EDIT : bon ça marche ! mais reste quelques scories d'affichage. Quand j'ouvre le fichier .scr j'ai toujours un delta de &80 octets. J'imagine que c'est l'en-tête Amsdos? Vais arranger ça. Et le fichier fait un peu moins que 32ko... (31,2 ko )

Les écrans utilisées sont ceux des configs mémoires &c1 et &c3 (les blocs ram vidéo 1 et 3). Ils sont tous les deux aux adresses &4000 et donc ne perturbent aucun vecteur, bios ou autre et ne prennent pas de place définitive en TPA (la zone utilisateur du CPM), homis 16 ko temporaire, ou même 32 si on veut être "propre", mais j'y reviendrai. Par contre ca ne fonctionne qu'avec un 6128+ car ça utilise la fonctionalité de "split" d'écran de l'ASIC (qui est d'une simplicité d'usage absolue!)

L'idée générale est celle là :

Code :

Program OverScreen;

Const Firm=$fc5a;

{$i UAsic }
{$i UGraph }
{$i UScreen }
{$i UKbd }

Var PScr1,PScr2 : TPScreen;

Begin

 SetMod(0); DlkAsic;
 New(PScr1);New(PScr2);
 LoadOvrScr('a:Diana3.scr',PScr1,PScr2,True);
 CpyBnk(1,0,Addr(PScr1^)+$80,$4000,$4000-$80);
 CpyBnk(1,2,Addr(PScr2^)+$80,$4000,$4000-$80);

 Port[$bc00]:=$1; Port[$bd00]:=48; Port[$bc00]:=$2; Port[$bd00]:=50;
 Port[$bc00]:=$6; Port[$bd00]:=34; Port[$bc00]:=$7; Port[$bd00]:=34;
 SetSplLin(136); SetSplAdr($30);

 WaitChr;

 { Remet l'affichage normal }
 Port[$bc00]:=$2; Port[$bd00]:=46; Port[$bc00]:=$1; Port[$bd00]:=40;
 Port[$bc00]:=$6; Port[$bd00]:=25; Port[$bc00]:=$7; Port[$bd00]:=30;
 SetSplLin(0); SetMod(2); SetInk(1,Blanc,Blanc);
 Dispose(PScr1); Dispose(PScr2);
End.

Nemo59 · **Inscription :** 03 Oct 2020, 16:46 **Message(s) :** 144

poulette73 · **Publié :** 07 Nov 2022, 08:28

Un grand bravo pour cette vidéo, c'est vraiment super intéressant !

Et merci pour nous partager avec détail toute la mise en œuvre.

Je n'aurais jamais imaginé que l'on pouvait intégrer de l'assembleur en Turbo Pascal, j'en avais gardé l'image d'un langage compilé relativement exhaustif et plutôt axé pour les fonctions/procédures, les sous-programmes, la gestion des tableaux, la récursivité, et bien entendu vraiment puissant dans la manipulation de nombres et chaines de caractères, etc. D'autant que le code est bien souvent très commenté, la lecture des sources reste aérée et compréhensible. Sans compter une vitesse de compilation honorable.
Cela fournit de nouvelles opportunités, et notamment ouvrir une porte d'entrée pour ceux qui auraient un peu de mal à se lancer dans l'apprentissage de l'assembleur Z80 (dont la culture pourrait rebuter les néophytes).

Je ne commente pas chacun de tes posts mais je les regarde tous avec plaisir.
Bref, encore bravo ! :biere:

Nemo59 · **Inscription :** 03 Oct 2020, 16:46 **Message(s) :** 144

Merci pour le commentaire ;D
Une nouvelle vidéo CPC+ qui mixte certaines techniques décrites avant :

Nemo59 · **Inscription :** 03 Oct 2020, 16:46 **Message(s) :** 144

poulette73

Superbe ! Merci pour cette belle réalisation.

Turbo Pascal v3 sur Amstrad CPC 6128

Qui est en ligne ?