HP71 et HPIL : comportement étrange

[johnvax]

Bonjour,
Que je vous narre mon problème : attention c'est du haut niveau
J'ai un HP-71 version 1BBBB et un module HPIL:1A
Je l'ai relié à la PIL-BOX, chaînée avec le logiciel HP-IL pilbox et HP-IL Video Interface 80 colonnes (HP92198). Au départ c'était pour jouer au jeu REVERSI proposé sur le site de J-F Garnier.

Au cours du jeu, des retour-chariot sont ajoutés de temps en temps, ce qui provoque un mauvais placement des pions ; ce n'est donc pas systématique, mais toujours au même endroit dans la séquence de jeu si l'on répète les mêmes mouvements de pions. Evidemment il devient difficile de suivre la partie.

J'ai alors inséré le module logiciel HPIL Interface Scope pour regarder les codes qui circulent sur le réseau. Dans un autre espace de travail vierge, j'ai saisi une séquence qui provoque l'anomalie

Code : Tout sélectionner

10 P1$="TOTO"
20 PRINT CHR$(27)&"%"&CHR$(0)&CHR$20);P1$;" :YOUR MOVE (Row,Col)";CHR$(27)&"J"

Pour info, la séquence suivante place le curseur en ligne 20, colonne 0:

Code : Tout sélectionner

CHR$(27)&"%"&CHR$(0)&CHR$20)

la séquence suivante efface la fin de l'écran:

Code : Tout sélectionner

CHR$(27)&"J"

Je le lance plusieurs fois. Les 4 premières fois l'affichage est normal,

Code : Tout sélectionner

TOTO :YOUR MOVE (Row,Col)

la cinquième, un CRLF est ajouté et l'affichage est le suivant

Code : Tout sélectionner

TOTO
 :YOUR MOVE (Row,Col)

Sur les traces, il y a bien une séquence CRLF supplémentaire : DAB 0D DAB 0A

Je ne comprends pas, quelqu'un a t'il déjà constaté cela ou peut essayer de reproduire le problème ?
Merci

[pcscote]

Au cours du jeu, des retour-chariot sont ajoutés de temps en temps, ce qui provoque un mauvais placement des pions ; ce n'est donc pas systématique, mais toujours au même endroit dans la séquence de jeu si l'on répète les mêmes mouvements de pions.

Quelle était la valeur du WIDTH ou du PWIDTH ?

Commande pour récupérer la valeur du WIDTH

Code : Tout sélectionner

HTD(PEEK$("2F950,1)&PEEK$("2F94F,1)))

Commande pour récupérer la valeur du PWIDTH

Code : Tout sélectionner

HTD(PEEK$("2F959,1)&PEEK$("2F958,1)))

Ceci devrait éclairer ta lanterne.

Code : Tout sélectionner

5 DISPLAY IS *                              # désactivation de la redirection de l'écran LCD vers l'interface vidéo HP-IL
10 PRINTER IS :DISPLAY(1)                   # redirection des commandes d'impression vers l'interface vidéo HP-IL
15 PWIDTH INF                               # largeur de la ligne d'impression, désactivation de la génération automatique du CR+LF de fin de ligne
20 U$="TOTO"                                # nom de l'utilisateur
25 PRINT CHR$(27)&"E";                      # effacement de la mémoire vidéo, positionnement du curseur à la position 0,0 (col.,ligne), le point-virgule à la fin du PRINT prévient la génération de fin de ligne (CR+LF)
30 PRINT CHR$(27)&"%"&CHR$(0)&CHR$(20);     # positionnement du curseur à la position 0,20 (col.,ligne), le point-virgule à la fin du PRINT prévient la génération de fin de ligne (CR+LF)
35 PRINT U$;                                # affiche le nom de l'utilisateur, le point-virgule à la fin du PRINT prévient la génération de fin de ligne (CR+LF)
40 PRINT " :YOUR MOVE (Row,Col)";           # affiche le message, le point-virgule à la fin du PRINT prévient la génération de fin de ligne (CR+LF)
45 PRINT CHR$(27)&"J";                      # effacement de la mémoire vidéo qui suit la position du curseur, le point-virgule à la fin du PRINT prévient la génération de fin de ligne (CR+LF)

Références:

• 71B - ordinateur de poche - manuel de l'utilisateur
• 82401A - interface HP-IL - owner's manual
• 92198 - interface video HP-IL - owner's manual
• HP-71 Software Developers' Handbook
• The Basic HP-71

PS: une réponse presque identique à la même question est aussi disponible sur le forum de Silicium

[johnvax]

Bonjour et Merci Sylvain !!.

Réponses toujours très complètes, avec les liens sur la documentation. Très pro.

Je t'ai répondu sur Silicium. C'est vrai que j'ai posté sur les 2 au cas où...
Je progresse dans mes connaissances, je ne brille pas mais je progresse ...
A la prochaine aventure.