{"id":3094,"date":"2020-03-27T17:51:27","date_gmt":"2020-03-27T16:51:27","guid":{"rendered":"https:\/\/ceo.oric.org\/?p=3094"},"modified":"2020-03-27T17:51:27","modified_gmt":"2020-03-27T16:51:27","slug":"print-et-plot-en-mode-hires","status":"publish","type":"post","link":"https:\/\/oric.bqtt.net\/index.php\/2020\/03\/27\/print-et-plot-en-mode-hires\/","title":{"rendered":"PRINT@ et PLOT en mode HIRES"},"content":{"rendered":"\n

par Andr\u00e9 C.<\/em><\/p>\n\n\n\n

Les commandes PRINT@ et PLOT sont rejet\u00e9es en mode HIRES. On obtient le message d’erreur “?DISP TYPE MISMATCH ERROR<\/em>“. C’est une limitation tr\u00e8s f\u00e2cheuse pour utiliser la zone TEXT du bas de l’\u00e9cran ! Et c’est un probl\u00e8me qui me titille depuis des ann\u00e9es.
Pour d\u00e9velopper un jeu en mode HIRES, j’avais besoin d’exploiter les 3 lignes de la zone TEXT<\/em> pour y afficher certains param\u00e8tres de l’\u00e9volution du jeu (messages, score etc.) et il fallait trouver une solution.<\/p>\n\n\n\n

Etat des lieux<\/h4>\n\n\n\n

En mode HIRES, la zone TEXT fonctionne comme l’\u00e9cran TEXT normal (mais h\u00e9las avec quelques limitations). Si les num\u00e9ros de colonnes restent inchang\u00e9s (X va de 0 \u00e0 39<\/em>), par contre, les num\u00e9ros de lignes sont restreints (Y va de 1 \u00e0 3<\/em>). En mode HIRES, on peut observer ces valeurs en suivant le contenu des variables #0268 (num\u00e9ro de ligne du curseur TEXT) et #0269 (num\u00e9ro de colonne du curseur TEXT). Mais \u00e0 quoi cela peut-il servir puisque les commandes PRINT@X,Y; et PLOTX,Y sont prohib\u00e9es? C’est ce que nous allons voir.<\/p>\n\n\n\n

Pour la petite anecdote<\/h4>\n\n\n\n

Il existe en RAM, entre la zone \u00e9cran HIRES et la zone \u00e9cran TEXT, une zone m\u00e9moire de 40 octets, inutilis\u00e9e \u00e0 l’\u00e9cran, qui pourrait correspondre \u00e0 une ligne num\u00e9ro z\u00e9ro (une sorte de ligne service inutilis\u00e9e). Il s’agit peut-\u00eatre d’un r\u00e9sidu de d\u00e9veloppement. Notons sur le plan pratique, qu’avec une routine appropri\u00e9e, il serait possible de scroller la zone TEXT d’une ligne vers le haut (c’est \u00e0 dire cacher la ligne num\u00e9ro 1 en vue de la r\u00e9cup\u00e9rer ult\u00e9rieurement). Tout autre usage est \u00e9galement \u00e0 recommander (par exemple stockage de variables ou d’un bout de code en langage machine). Comme en mode TEXT, le scrolling de l’\u00e9cran vers le haut n’affecte pas cette “ligne 0”.<\/p>\n\n\n\n

Revenons \u00e0 nos moutons<\/h4>\n\n\n\n

Que faire pour afficher s\u00e9lectivement au point X,Y ? Il n’y a pas 36000 solutions. Soit<\/strong> on arrive \u00e0 repositionner le curseur en X,Y et le PRINT suivant se fera \u00e0 partir de ce point. Soit<\/strong> on calcule l’adresse en RAM correspondant \u00e0 ce point X,Y et on y POKE le code Ascii souhait\u00e9.
La zone texte commence en #BF68. La formule est donc AD=#BF40+(#28*Y)+X <\/em> avec Y de 1 \u00e0 3<\/em> et X de 0 \u00e0 39<\/em>. Mais le probl\u00e8me n’est pas l\u00e0. Pour afficher une cha\u00eene de caract\u00e8re, il faudra d\u00e9couper celle-ci avec la commande MID$ et en POKEr tous les code Ascii un \u00e0 un. Idem pour les nombres qu’il faut d’abord transformer en chaine de caract\u00e8res. Vous pouvez imaginer la lenteur de l’affichage !
Reste donc la commande PRINT qui a la particularit\u00e9 d’afficher au curseur. Le probl\u00e8me est \u00e9l\u00e9mentaire mon cher Watson, il suffit de repositionner le curseur<\/em>. En quelque sorte, la commande PRINT@X,Y; est scind\u00e9e en deux :
1) positionner le curseur en X,Y
2) envoyer un PRINT.<\/p>\n\n\n\n

Positionner le curseur sur une ligne Y<\/h4>\n\n\n\n

Je me suis demand\u00e9 s’il ne serait pas possible de forcer la variable #0268 avec les valeurs 1, 2 ou 3 \u00e0 l’aide d’un POKE. Zut, \u00e7a ne marche pas : l’affichage commence syst\u00e9matiquement sur la premi\u00e8re ligne. Divers autres essais ne se sont pas r\u00e9v\u00e9l\u00e9s plus heureux.
A la r\u00e9flexion, ce n’est pas grave, car il suffit d’un PRINT pour passer \u00e0 la ligne suivante et comme il n’y a que 3 lignes, c’est vite fait. Cette solution serait bien trop lourde en mode TEXT o\u00f9 il faudrait r\u00e9p\u00e9ter 26 fois la commande PRINT pour placer le curseur sur la derni\u00e8re ligne !
Je rappelle en passant que PRINT”” (cha\u00eene vide) ne fait rien sinon passer \u00e0 la ligne suivante et que PRINT””; ne fait absolument rien (sinon valider des variables du syst\u00e8me, mais c’est un autre sujet).
Il est utile de se rappeler que la commande CLS nettoie la zone TEXT et repositionne le curseur au d\u00e9but de la premi\u00e8re ligne. Elle peut \u00eatre utilis\u00e9e \u00e0 tout moment, alors que les commandes PAPER et INK doivent \u00eatre plac\u00e9es avant la commande HIRES si on veut affecter la zone TEXT. Sinon, elles affectent la zone HIRES.
Attention, la zone TEXT est scroll\u00e9e exactement comme en mode TEXT, mais comme ici on ne dispose que de 3 lignes, les infos fichent rapidement le camp vers le haut, notamment lors du retour au Ready. Seule solution pour contr\u00f4ler \u00e7a : Utiliser un”;” \u00e0 la fin des commandes PRINT.<\/em><\/p>\n\n\n\n

Positionner le curseur sur une colonne X<\/h4>\n\n\n\n

Et que faut-il faire pour afficher \u00e0 un endroit sp\u00e9cifique sur la ligne ?
Ecartons tout de suite l’utilisation d’espaces pour atteindre la case cibl\u00e9e, car ces espaces \u00e9crasent les informations situ\u00e9es \u00e0 gauche de cette case.
On pourrait \u00e9videmment remplacer ces espaces par des codes Ascii 9 (d\u00e9placement \u00e0 droite). Mais imaginez-vous en train d’\u00e9crire PRINT CHR$(9) CHR$(9) CHR$(9) CHR$(9) CHR$(9) CHR$(9) CHR$(9) CHR$(9) CHR$(9)CHR$(9) CHR$(9) CHR$(9) CHR$(9) CHR$(9) CHR$(9) CHR$(9) CHR$(9) CHR$(9)”OK”<\/em> seulement pour afficher “OK” au milieu de la ligne !
J’ai donc repris l’\u00e9tude des variables du syst\u00e8me.
En page z\u00e9ro, l’adresse #30 contient la position du curseur sur la ligne TEXT, mais la commande POKE#30,X ne modifie pas l’affichage.
En page 2, la variable #0253 contient le num\u00e9ro de la premi\u00e8re colonne valide (et donc 0 ou 2), mais la commande POKE#0253,X ne modifie pas l’affichage. De toute fa\u00e7on, il me semblait farfelu de toucher \u00e0 ce param\u00e8tre qui g\u00e8re les 2 colonnes prot\u00e9g\u00e9es.
Apr\u00e8s le #0268 qui n’avait pas march\u00e9, il me semblait peu probable que modifier la variable #0269 (num\u00e9ro de colonne du curseur TEXT de 0 \u00e0 39) donne des r\u00e9sultats. Mais j’ai quand m\u00eame test\u00e9.
Divine surprise, un POKE#0269,10:PRINT”OK”<\/em> affiche bien “OK” \u00e0 la position X=10 de la premi\u00e8re ligne de la zone TEXT. Un POKE#0269,12:PRINT”OK”<\/em> envoie le “OK” sur la deuxi\u00e8me ligne. Enfin, avec un POKE#0269,14:PRINT”OK”;<\/strong><\/em> on voit appara\u00eetre le hoquet sur la troisi\u00e8me ligne (attention \u00e0 ne pas oublier le “;” final<\/em>). Ceci est illustr\u00e9 par la recopie du bas de l’\u00e9cran ci-dessous et le programme correspondant.<\/p>\n\n\n\n

\"\"
Affichage contr\u00f4l\u00e9 dans la zone TEXT en mode HIRES<\/figcaption><\/figure>\n\n\n\n
\"\"
Et le bout de programme qui permet de faire \u00e7a…<\/figcaption><\/figure>\n\n\n\n

Dernier point sensible, cette m\u00e9thode ne permet pas la mise \u00e0 jour automatique de l’affichage du curseur TEXT et mes essais laissent tra\u00eener des curseurs fant\u00f4mes\u2026 Il est donc imp\u00e9ratif de bloquer l’affichage du curseur en pla\u00e7ant la commande suivante :
POKE#26A,(PEEK(#26A)AND#FE):PRINT””:’ CURSEUR TEXT OFF<\/em> dans le programme Basic, juste apr\u00e8s la commande HIRES.<\/em>
NB. Cette commande \u00e9teint le curseur quelle que soit son statut ant\u00e9rieur, alors que : POKE#26A,(PEEK(#26A)OR#01):PRINT””:’ CURSEUR TEXT ON<\/em> allume le curseur \u00e0 coup s\u00fbr (dans un programme Basic complexe, l’utilisation r\u00e9p\u00e9t\u00e9e de la bascule PRINTCHR$(17) c’est-\u00e0-dire contr\u00f4le + Q est vite difficile \u00e0 g\u00e9rer, car on ne sait plus o\u00f9 on en est).
La recopie du bas de l’\u00e9cran ci-dessous et le programme correspondant donnent un exemple concret de pseudo PRINT@ en mode HIRES !<\/strong><\/p>\n\n\n\n

\"\"
Exemple d’application en situation r\u00e9elle<\/figcaption><\/figure>\n\n\n\n
\"\"
Et le bout de programme qui permet de faire \u00e7a…<\/figcaption><\/figure>\n\n\n\n

En conclusion<\/h4>\n\n\n\n

N’importe laquelle des 120 cases de la zone TEXT est adressable individuellement. En fait, pas la 124e, qui n’est accessible qu’avec un POKE#BFDF,code Ascii sous peine de d\u00e9clencher un scrolling.<\/p>\n\n\n\n

Coule, je vais pouvoir retourner au d\u00e9veloppent de mon jeu\u2026<\/p>\n","protected":false},"excerpt":{"rendered":"

En mode HIRES, n’importe laquelle des 120 cases de la zone TEXT est adressable individuellement.<\/p>\n","protected":false},"author":1,"featured_media":3097,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[338,347,348,22,317],"tags":[668],"class_list":["post-3094","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-338","category-atmos","category-basic","category-ceomag","category-programmation","tag-ceomag359"],"_links":{"self":[{"href":"https:\/\/oric.bqtt.net\/index.php\/wp-json\/wp\/v2\/posts\/3094","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/oric.bqtt.net\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/oric.bqtt.net\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/oric.bqtt.net\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/oric.bqtt.net\/index.php\/wp-json\/wp\/v2\/comments?post=3094"}],"version-history":[{"count":0,"href":"https:\/\/oric.bqtt.net\/index.php\/wp-json\/wp\/v2\/posts\/3094\/revisions"}],"wp:attachment":[{"href":"https:\/\/oric.bqtt.net\/index.php\/wp-json\/wp\/v2\/media?parent=3094"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/oric.bqtt.net\/index.php\/wp-json\/wp\/v2\/categories?post=3094"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/oric.bqtt.net\/index.php\/wp-json\/wp\/v2\/tags?post=3094"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}