Derniers sujets
» Le bonjour de codeur
A Propos des Pokes de valeurs négatives EmptyMer 1 Avr 2020 - 15:18 par Dany

» [résolu] Format des fichiers Hyperbasic...
A Propos des Pokes de valeurs négatives EmptySam 28 Mar 2020 - 19:50 par damien

» [résolu] Récupération contenu disquettes 3 pouces...
A Propos des Pokes de valeurs négatives EmptyVen 27 Mar 2020 - 15:06 par damien

» Echange de jeux/logiciels
A Propos des Pokes de valeurs négatives EmptyLun 23 Mar 2020 - 20:15 par Star42

» Ordi Portable Sony VAIO
A Propos des Pokes de valeurs négatives EmptyDim 22 Mar 2020 - 16:17 par froggy

» une atan2 pour vos lib math
A Propos des Pokes de valeurs négatives EmptyDim 22 Mar 2020 - 11:30 par drpsy

» 3D walkthrough template en moins de 600 lignes de C
A Propos des Pokes de valeurs négatives EmptyVen 20 Mar 2020 - 15:29 par Dany

» nouveau site
A Propos des Pokes de valeurs négatives EmptyJeu 19 Mar 2020 - 20:02 par Star42

» CEO Mag Spéciaux disponibles
A Propos des Pokes de valeurs négatives EmptyJeu 19 Mar 2020 - 9:33 par musepat

» Oric Explorer v2.0
A Propos des Pokes de valeurs négatives EmptyMer 18 Mar 2020 - 9:47 par damien

» Flappy Oric 3D
A Propos des Pokes de valeurs négatives EmptyMar 17 Mar 2020 - 7:50 par jbperin

» Cherche solution pour le jeu 007 A View To A Kill / Dangereusement Vôtre
A Propos des Pokes de valeurs négatives EmptySam 14 Mar 2020 - 16:14 par retroric

» Bocco's adventures
A Propos des Pokes de valeurs négatives EmptyVen 13 Mar 2020 - 5:01 par didierv

» Bienvenue dans le Forum des Oriciens
A Propos des Pokes de valeurs négatives EmptyJeu 12 Mar 2020 - 12:23 par maximus

» Abonnement
A Propos des Pokes de valeurs négatives EmptyMar 10 Mar 2020 - 11:29 par Dany

Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités

Aucun

Le record du nombre d'utilisateurs en ligne est de 29 le Mer 25 Fév 2015 - 14:01
Connexion

Récupérer mon mot de passe

Statistiques
Nous avons 210 membres enregistrés
L'utilisateur enregistré le plus récent est darq

Nos membres ont posté un total de 8565 messages dans 742 sujets
Portail ORIC



-23%
Le deal à ne pas rater :
TV QLED Samsung QE65Q65R 2019
999 € 1299 €
Voir le deal

A Propos des Pokes de valeurs négatives

Aller en bas

A Propos des Pokes de valeurs négatives Empty A Propos des Pokes de valeurs négatives

Message par Zodiac le Mar 1 Avr 2014 - 10:00

Bonjour,

Maximus, avait posé une question sur les pokes de valeurs négatives, à ce titre, je lui avait répondu, mais je n'avais pas posté l'exemple sur le forum.
Je viens de remettre la main dessus, je vous le donne à titre d'exemple.
Bien entendu, on ne peut adresser sur un octet que les valeurs de -127 à            + 127, car on prend le bit 7 comme bit de signe.
Le coeur  de la solution  se trouve uniquement en ligne 190, les autres lignes de code permettent d'en effectuer le test.

10 CLS
20 PRINT "VALEURS ACCEPTEES DE -127 A +127"
30 PRINT "ON UTILISE LE BIT 7 COMME BIT DE SIGNE"
40 PRINT "LA LIGNE 190 EFFECTUE L'ADAPTATION"
50 PRINT:INPUT "ENTREZ UNE VALEUR? ";X
60 IF X<-127 OR X > 127 THEN PRINT "ERREUR VALEUR ENTREE!!!" :END
70 T = X
80 GOSUB 190
90 PRINT "ENTREE: ";T; " POKE: ";X
100 POKE #5000,X
110 X = PEEK(#5000)
120 T= X
130 GOSUB 190
140 PRINT "PEEK: ";T; " ON RESTITUE: ";X
150 END
160 REM ****************************
170 REM ADAPTER LES VALEURS
180 REM ****************************
190 IF X AND 128 THEN X=(X*-1)+128
200 RETURN
210 REM ****************************

Bonne journée
A+
Zodiac
Zodiac

Messages : 92
Date d'inscription : 27/01/2014
Localisation : Yvelines

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum