Nombres négatifs 16 bits via DEEK

Bonjour à tous,

Je rencontre un sérieux problème avec l'usage des nombres négatifs en BASIC.

Je veux pouvoir charger des entiers signés 16 bits et les manipuler dans des opérations arithmétique.
Mais je ne parviens pas à expliquer à DEEK que ce sont des nombres signés.

Voici le programme qui me permet de mettre en évidence le point sur lequel je bloque.
Ce programme charge les données 3, -2 et 2 fournies par DATA dans une plage mémoire (à #800) puis va les relire avec des DEEK.

Cela marche très bien pour les nombres positifs 3 et 2
Mais cela ne marche pas pour le nombre négatif -2

Code:

10     LET ADRBASE = # 800
20     ' Je stocke mes donnees en memoire
30     FOR N=0TO5
40     : READ DTA: POKE ADRBASE+N,DTA
50     NEXT N
60     ' Je relis mes donnees depuis la memoire
70     LET OFFSET = 0
80     V1 = DEEK (ADRBASE + OFFSET): OFFSET = OFFSET + 2
90     V2 = DEEK (ADRBASE + OFFSET): OFFSET = OFFSET + 2
100     V3 = DEEK (ADRBASE + OFFSET): OFFSET = OFFSET + 2
110     PRINT "V1 = ";V1;", V2 = ";V2;", V3 = ";V3
120     ' Mes donnees
130     DATA 3, 0, #FE, #FF, 2, 0


Ce programme m'affiche:
 V1 =  3 , V2 =  65534 , V3 =  2
Alors que moi je voudrais qu'il affiche:
 V1 =  3 , V2 =  -2 , V3 =  2
 
Si je remplace la ligne 130 par

130     DATA 3, 0, -2, 0, 2, 0

Je tombe sur le message d'erreur:
?ILLEGAL QUANTITY ERROR IN  40  

Comment puis-je faire pour avoir
V1 =  3 , V2 =  -2 , V3 =  2
 
Merci d'avance à ceux qui pourront me venir en aide ..

Si on stocke des valeurs en mémoire avec des variables Basic, on peut utiliser des nombres avec décimales, de grand format et négatifs, si l'on souhaite stocker "sois-même" des valeurs en mémoire avec Doke, on se retrouve avec des outils réduits: nombres positifs, entiers, avec une valeur maximum de 65535. La signature est choisie par le programmeur: on peut décider de la placer sur le bit 7 si on se contente de nombres sur un octet ou le bit 15 pour un nombre en 2 octets. Il faudra faire un calcul pour retrouver la valeur souhaitee.

OK je comprends .. merci

Je te remercie pour cette explication.

Je tente d'abuser de ta gentillesse pour te soumettre deux questions concernant cette approche.
En fait à terme j'envisage de traiter ces données en assembleur.
Je les charge de cette manière pour maîtriser (et surtout) connaître leurs adresses.
Si je définis ces données en BASIC comment puis-je connaitre leurs adresses ?
Est-ce que je peux être sur que ce sera des 16 bits signés ?

kenneth a écrit:La signature est choisie par le programmeur:.

Oui je réalise que j'ai déjà un bout de code qui manipule une donnée BASIC en Assembleur .. et j'ai une piste pour connaitre l'adresse d'une variable BASIC dans le bouquin "les cléfs de l'Oric"

Merci pour tout ;-)

jbperin a écrit:Bonjour à tous,

Je rencontre un sérieux problème avec l'usage des nombres négatifs en BASIC.

Je veux pouvoir charger des entiers signés 16 bits et les manipuler dans des opérations arithmétique.
Mais je ne parviens pas à expliquer à DEEK que ce sont des nombres signés.

Voici le programme qui me permet de mettre en évidence le point sur lequel je bloque.
Ce programme charge les données 3, -2 et 2 fournies par DATA dans une plage mémoire (à #800) puis va les relire avec des DEEK.

Cela marche très bien pour les nombres positifs 3 et 2
Mais cela ne marche pas pour le nombre négatif -2

Code:

10     LET ADRBASE = # 800
20     ' Je stocke mes donnees en memoire
30     FOR N=0TO5
40     : READ DTA: POKE ADRBASE+N,DTA
50     NEXT N
60     ' Je relis mes donnees depuis la memoire
70     LET OFFSET = 0
80     V1 = DEEK (ADRBASE + OFFSET): OFFSET = OFFSET + 2
90     V2 = DEEK (ADRBASE + OFFSET): OFFSET = OFFSET + 2
100     V3 = DEEK (ADRBASE + OFFSET): OFFSET = OFFSET + 2
110     PRINT "V1 = ";V1;", V2 = ";V2;", V3 = ";V3
120     ' Mes donnees
130     DATA 3, 0, #FE, #FF, 2, 0


Ce programme m'affiche:
 V1 =  3 , V2 =  65534 , V3 =  2
Alors que moi je voudrais qu'il affiche:
 V1 =  3 , V2 =  -2 , V3 =  2
 
Si je remplace la ligne 130 par

130     DATA 3, 0, -2, 0, 2, 0

Je tombe sur le message d'erreur:
?ILLEGAL QUANTITY ERROR IN  40  

Comment puis-je faire pour avoir
V1 =  3 , V2 =  -2 , V3 =  2
 
Merci d'avance à ceux qui pourront me venir en aide ..

Salut jbperin !

J'ai essayé de t'apporter un élément de réponse :
J'ai codé ce mini programme qui demande un nombre (négatif ou positif ) et le stock en ram adresse 0, puis il lit le nombre à cette même adresse et il l'affiche avec son signe. La condition est que le nombre 16 bits ne soit pas supérieur à 32767 ...
                           
 

Code:


 10 CLS                              
   20 PRINT "NOMBRE:";:INPUT A          
   30 PRINT"N/P";:INPUT S$              
   40 IF S$="N" THENA=A+32768          
   50 DOKE0,A                          
   55 A=DEEK(0)                        
   60 IFA>=32768THENA=A-32768:B=-A:ELSE
  B=A                                  
   70 PRINT "NOMBRE LU EN RAM=";B      



ha oui ok excellent ! :-)
c'est super astucieux ton histoire.
en plus ça illustre exactement le principe évoqué par kenneth .. c'est nous qui décidons si c'est négatif ou positif  .. et il y a une petite mécanique à faire pour concrétiser ce choix.

Merci pour ce snippet

Je viens de voir que Zodiac avait ouvert un sujet:
http://forums.oric.org/t100-a-propos-des-pokes-de-valeurs-negatives

belle astuce également