Derniers sujets
» CEO-MAG 337
Jeu 19 Juil 2018 - 21:35 par Symoon

» Manuel Compilateur Graphique (ERE)
Mer 18 Juil 2018 - 23:28 par assinie

» FOOT - Mondial 2018 en Russie
Lun 16 Juil 2018 - 7:02 par maximus

» Discussions High-Tech
Ven 13 Juil 2018 - 16:35 par maximus

» Twilighte card : Suivi des commandes
Jeu 12 Juil 2018 - 20:36 par Jede

» Nouveau RPG des Studios du CEO
Mar 3 Juil 2018 - 21:10 par maximus

» Changement des conditions de Forumactif: perte de notre adresse
Lun 2 Juil 2018 - 23:27 par laurentd75

» Adresse e-mail en oric.org
Lun 2 Juil 2018 - 22:47 par Hialmar

» [sujet Public] - le Ceo-Mag
Sam 30 Juin 2018 - 18:50 par maximus

» Schémas Oric et Microdisc
Sam 30 Juin 2018 - 17:55 par Voyageur

» Recherche image disque pour Jasmin
Jeu 28 Juin 2018 - 19:22 par assinie

» Envol des prix sur eBay...
Mer 27 Juin 2018 - 21:53 par Voyageur

» The Ring of Darkness
Mer 27 Juin 2018 - 8:56 par Oric1-Atmos

» CEO-MAG 336
Sam 16 Juin 2018 - 20:19 par Voyageur

» La Visu de l'Ete ...
Mer 13 Juin 2018 - 0:51 par kenneth

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité :: 1 Moteur de recherche

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 147 membres enregistrés
L'utilisateur enregistré le plus récent est Nonoo78

Nos membres ont posté un total de 6913 messages dans 516 sujets
Portail ORIC




A Propos des Pokes de valeurs négatives

Aller en bas

A Propos des Pokes de valeurs négatives

Message  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+
avatar
Zodiac

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

Revenir en haut Aller en bas

Revenir en haut


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