Derniers sujets
» Lecteur de sdcard (FAT32) et clé usb (FAT)
Lun 26 Juin 2017 - 14:03 par Jede

» SDCARD/usb card reader : Liste de suivi des demandes
Lun 26 Juin 2017 - 13:55 par Jede

» Panne Telestrat
Dim 25 Juin 2017 - 21:46 par Jede

» KRYSTAL WORLD 2
Dim 25 Juin 2017 - 0:15 par Symoon

» Correspondance clavier Oric - clavier PC [RESOLU]
Sam 24 Juin 2017 - 22:06 par kenneth

» Oric Atmos : problème de son
Mer 14 Juin 2017 - 6:49 par kenneth

» CEO-MAG 326
Lun 12 Juin 2017 - 20:00 par Symoon

» recherche de solution "Fantasy quest"
Lun 12 Juin 2017 - 15:43 par Invité

» Oric et lecteur SD Card
Ven 9 Juin 2017 - 6:33 par didierv

» visu Oricienne juin 2017
Dim 4 Juin 2017 - 7:58 par didierv

Qui est en ligne ?
Il y a en tout 3 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 3 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 120 membres enregistrés
L'utilisateur enregistré le plus récent est fbenard

Nos membres ont posté un total de 5397 messages dans 385 sujets
Portail ORIC




A Propos des Pokes de valeurs négatives

Voir le sujet précédent Voir le sujet suivant 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 : 93
Date d'inscription : 27/01/2014
Localisation : Yvelines

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

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