Forum Oric
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Derniers sujets
» Bla Bla général du Jury
A Propos des Pokes de valeurs négatives EmptyJeu 21 Mar 2024 - 8:51 par Dom50

» carte mère Oric (re)tracée
A Propos des Pokes de valeurs négatives EmptyMar 5 Mar 2024 - 18:54 par kenneth

» Meurtre à Grande Vitesse
A Propos des Pokes de valeurs négatives EmptyDim 25 Fév 2024 - 5:09 par Iurius

» ORIC-1 sur LE BON COIN
A Propos des Pokes de valeurs négatives EmptyVen 23 Fév 2024 - 23:01 par Mcar

» ORIC ATMOS sur LE BON COIN
A Propos des Pokes de valeurs négatives EmptyDim 4 Fév 2024 - 12:06 par kiwilevrai

» Problème d'affichage des couleurs avec un Oric Atmos
A Propos des Pokes de valeurs négatives EmptySam 27 Jan 2024 - 1:26 par pierbail

» Bienvenue dans le Forum des Oriciens
A Propos des Pokes de valeurs négatives EmptyMar 9 Jan 2024 - 12:33 par Dom50

» Rencontre avec Laurant Weill, co-fondateur de Loriciel, et mon garçon de 12 ans
A Propos des Pokes de valeurs négatives EmptyVen 29 Déc 2023 - 14:13 par Arcade-des-Monts

» Bonnes fêtes
A Propos des Pokes de valeurs négatives EmptyMar 26 Déc 2023 - 10:21 par Dom50

» Murders in Venice / Meutres à Venise
A Propos des Pokes de valeurs négatives EmptySam 18 Nov 2023 - 22:44 par retroric

» Un clavier PS/2 pour tester un ORIC
A Propos des Pokes de valeurs négatives EmptyDim 27 Aoû 2023 - 9:49 par Voyageur

» Disquette 3" Sedoric
A Propos des Pokes de valeurs négatives EmptyMar 1 Aoû 2023 - 14:22 par AtomeX

» faire un 6502 avec des phototransistor
A Propos des Pokes de valeurs négatives EmptyDim 16 Juil 2023 - 17:26 par Voyageur

» Oricutron linux et DSK
A Propos des Pokes de valeurs négatives EmptyJeu 29 Juin 2023 - 18:34 par Voyageur

» No Problem !
A Propos des Pokes de valeurs négatives EmptyDim 25 Juin 2023 - 17:53 par Voyageur

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

Nos membres ont posté un total de 8921 messages dans 811 sujets
Sites Sympas

> Culture Club


Le Deal du moment :
Xiaomi Mi Smart Camera 2K Standard Edition (design ...
Voir le deal
11.39 €

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 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