Derniers sujets
» Listings de l'ORIC-1 Manual
A Propos des Pokes de valeurs négatives EmptyHier à 23:40 par Ladywasky

» le retour du Commodore 64
A Propos des Pokes de valeurs négatives EmptyHier à 1:55 par jbperin

» Type in Master Mind
A Propos des Pokes de valeurs négatives EmptyJeu 5 Déc 2019 - 14:53 par Ladywasky

» Pictoric
A Propos des Pokes de valeurs négatives EmptyMer 4 Déc 2019 - 12:02 par Sheld67

» Nouveau site ceo.oric.org
A Propos des Pokes de valeurs négatives EmptyMar 3 Déc 2019 - 5:08 par didierv

» Bocco's adventures - nouveau jeu pour Oric
A Propos des Pokes de valeurs négatives EmptyMar 3 Déc 2019 - 0:08 par retroric

» Problème avec les boucles
A Propos des Pokes de valeurs négatives EmptyLun 2 Déc 2019 - 13:43 par TotoShampoin

» Nouvel ancien jeu: Oric Golf par K. Smith
A Propos des Pokes de valeurs négatives EmptyDim 1 Déc 2019 - 12:19 par Symoon

» Aux couleurs de l'Atmos
A Propos des Pokes de valeurs négatives EmptyDim 1 Déc 2019 - 11:52 par Dom50

» ORIC-1 sur LE BON COIN
A Propos des Pokes de valeurs négatives EmptyVen 29 Nov 2019 - 21:15 par didierv

» recherche racine carrée 32 bits (et arctangente 16 bits) [RESOLU !! ]
A Propos des Pokes de valeurs négatives EmptyVen 29 Nov 2019 - 9:43 par jbperin

» une atan2 pour vos lib math
A Propos des Pokes de valeurs négatives EmptyJeu 28 Nov 2019 - 21:19 par jbperin

» Materiels Oric pour membres du CEO
A Propos des Pokes de valeurs négatives EmptyMer 27 Nov 2019 - 14:38 par jbperin

» I had a dream .. glOric
A Propos des Pokes de valeurs négatives EmptyMer 27 Nov 2019 - 1:01 par retroric

» CEO-MAG 355
A Propos des Pokes de valeurs négatives EmptyMar 26 Nov 2019 - 23:19 par retroric

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

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

Nos membres ont posté un total de 8296 messages dans 716 sujets
Portail ORIC




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