Extension de PEEK et POKE

Aujourd'hui, la fonction PEEK() et la commande POKE agissent sur un seul octet, auquel on passe une adresse. Dans certaines situations, on aimerait pourvoir agir sur des mots de 32 bits, en une seule opération. C'est pourquoi de propose la création des éléments de langage suivants:
x% = PEEK32(a%)
POKE32 a%,x%

Ceci pourrait éviter des constructions du genre:

Code:

dim x%, y%
poke32(adr(x%),1234567)
print str$(x%)
end

sub poke32(a%,v%)
  dim_local av%
  av% = adr(v%)
  poke a%,peek(av%)
  poke a%+1,peek(av%+1)
  poke a%+2,peek(av%+2)
  poke a%+3,peek(av%+3)
end_sub

Et je dirai même plus ...
Je vais coder PEEK32(), PEEK64(), POKE32, POKE64.

YES!!!!!!!!!!!!

En codant POKE16 A,V qui écrit la valeur V de 16 bits à l'adresse A
et POKE32 A,V qui écrit la valeur V de 32 bits à l'adresse A,
je me suis rendu compte en faisant des tests que la commande POKE et la fonction PEEK() n'avaient jamais fonctionné comme écrivant ou lisant des octets.

Je viens d'éditer une fiche d'erreur pour POKE:
https://panoramic.1fr1.net/t5678-8-en-analyse-poke-ne-fonctionne-pas-correctement

Merci, Jack ! C'est prometteur.

En fait, ces commandes POKE, POKE16 et POKE32 et ces fonctions PEEK(), PEEK16() et PEEK32() reviennent à utiliser des pointeurs et des contenus de pointeurs.
Dommage que le magazine de Yannick ne fonctionne plus, j'aurais écrit un article sur les pointeurs en Panoramic.

Si tu veux, je le publierai en Une, sur mon site...

Jack a écrit:

Dommage que le magazine de Yannick ne fonctionne plus, j'aurais écrit un article sur les pointeurs en Panoramic.

Tu peux le mettre dans Tutoriels et éclaircissements.
De cette façon, il sera toujours accessible à tous pour consultation.