Vos_derniers_programmes_?

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Avatar de l’utilisateur
Marge
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4659
Inscription : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: Vos_derniers_programmes_?

Message par Marge » 30 nov. 2016 15:13

tyann a écrit :... [S]ur Hp-41cx.
J'ai toujours pensé qu'il était dommage de n'avoir qu'un seul registre Alpha.
J'ai donc entrepris de remédier au moins en partie à ce manque grâce à la x-mémoire.
Mon programme offre donc :
SIZA qui créer un fichier de x registres Alpha
ASTOA qui stocke le contenu du registre Alpha dans le registre Alpha n° x
ARCLA qui met dans le registre Alpha le contenu du registre Alpha n° x
A<>A qui échange le contenu du registre Alpha avec celui du registre Alpha n° x
CLRGA supprime ces registres.

[...]
Dans mon idée de base, il y avait aussi des tests entre le registre Alpha et les autres registres Alpha créés,
mais je ne sais pas si cela est faisable, je n'ai pas approfondi la chose.
Voilà.
Excellent ! À approfondir, et comment ! :D
3 hommes, 3 demis, un 3a... Magnéto, Serge !

« Boris », c'est juste Maurice enrhumé.

Avatar de l’utilisateur
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 548
Inscription : 18 sept. 2015 18:59

Re: Vos_derniers_programmes_?

Message par steste » 30 nov. 2016 19:48

Pour ma question sur les
jeux graphiques ?
...
...

tyann
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 718
Inscription : 06 oct. 2012 14:37

Re: Vos_derniers_programmes_?

Message par tyann » 30 nov. 2016 20:18

Bonsoir

A steste, désolé je n'ai pas regardé cela même de loin.

A Marge, avec une instruction qui permet de rechercher une chaîne
dans un fichier ASCII (POSFL je crois) et ALENG, il y peut-être moyen
de faire le test d'égalité et son inverse.
J'ai ça dans un petit coin de ma tête.
Ti(s) 60, 62 Galaxy, 66, 67 Galaxy, 68, 74 Basical 80, 81, 82, 83+, 83 CE, 84+SE, 85, 86, 89, 89 titanium, 92, 95 Procalc, v200, nSpire cx
Hp(s) 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702p, 4000P, 4500P, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, El 5120, 9200, 9600

Canon X-07

Avatar de l’utilisateur
Thierry Loiseau
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 807
Inscription : 10 avr. 2004 22:23
Localisation : Terrasson (Périgord)
Contact :

Re: Vos_derniers_programmes_?

Message par Thierry Loiseau » 09 déc. 2016 16:41

En cours de programmation... sur FX-602P, un truc qui permet de présenter une suite infinie définie de chiffres sous forme de fraction : Élémentaire mon cher Watson... pas si facile que cela :(
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
Apple //e, 7100, 8100, 8500, PB-540c, PISMO, CPC-6128, MO5... et bien d'autres trucs

http://astrophoto.free.fr/

Avatar de l’utilisateur
spacemax
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 85
Inscription : 05 nov. 2011 13:45
Localisation : Alpes de Haute Provence
Contact :

Re: Vos_derniers_programmes_?

Message par spacemax » 09 déc. 2016 18:21

Don't forget the spirit of the game...

Canon X-07 / Casio fx-850P / TI74 / Casio fx-8500G / Psion 3 / Psion 3a / Psion II XP / Psion II Lz / Psion Revo / Fx-4000p / Dell Axim x50V / Spiga Sagem / Casio fx-3900p / Casio fc-200 / Sharp 1403

tyann
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 718
Inscription : 06 oct. 2012 14:37

Re: Vos_derniers_programmes_?

Message par tyann » 12 déc. 2016 01:12

Bonsoir
Voici donc la dernière version de mon programme de simulation
de plusieurs registres alpha pour 41cx avec un test d'égalité :

Code : Tout sélectionner

01   LBL "SIZA"      
02   "XALPHA"          
03   1                 
04   +                   
05   STO Y             
06   3,7                     
07   *                     
08   INT                     
09   1                     
10   +                     
11   CRFLAS             
12   " "                     
13   LBL 00             
14   APPREC             
15   DSE Y             
16   GTO 00             
17   CLA                     
18   RTN                     
19   LBL "ASTOA"          
20   SEEKPT             
21   DELREC             
22   INSREC             
23   RTN                     
24   LBL "ARCLA"          
25   SEEKPT             
26   GETREC             
27   RTN                     
28   LBL "A<>"          
29   X<>L             
30   CLX                     
31   SEEKPT             
32   DELREC
33   INSREC
34   X<>L
35   SEEKPT
36   GETREC
37   DELREC
38   X<>L
39   SEEKPT
40   INSREC
41   X<>L
42   SIGN
43   SEEKPT
44   GETREC
45   DELREC
46   X<>L
47   SF 25
48   SEEKPT
49   FC?C 25
50   APPREC
51   INSREC
52   X<>L
53   CLX
54   SEEKPT
55   GETREC
56   X<>L
57   RTN
58 LBL "A=?"
59 STO L
60 SEEKPT
61 POSFL
62 X#Y?
63 GTO 02
64 ALENG
65 X<>Y
66 CLX
67 XEQ "ASTOA"
68 X<>L
69 XEQ "ARCLA"
70 X<>Y
71 ALENG
72 X<>L
73 XEQ "ARCLA"
74 X<>L
75 X#Y?
76 GTO 01
77 -
78 CLX
79 1
80 RTN
81 LBL 01
82 RDN
83 LBL 02
84 CLX
85 RTN
86  LBL "CLRA"
87  "XALPHA"
88  PURFL
89  CLA
90  END
X#Y? -> X DIFFÉRENT DE Y
Le test renvoie dans X : 1 si alpha = registre n°X, sinon 0
Alpha est préservé.
A noter que X doit toujours être un entier pour toutes les fonctions.
214 octets.
Ti(s) 60, 62 Galaxy, 66, 67 Galaxy, 68, 74 Basical 80, 81, 82, 83+, 83 CE, 84+SE, 85, 86, 89, 89 titanium, 92, 95 Procalc, v200, nSpire cx
Hp(s) 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702p, 4000P, 4500P, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, El 5120, 9200, 9600

Canon X-07

Avatar de l’utilisateur
Marge
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4659
Inscription : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: Vos_derniers_programmes_?

Message par Marge » 12 déc. 2016 02:43

tyann a écrit :Bonsoir
Voici donc la dernière version de mon programme de simulation
de plusieurs registres alpha pour 41cx avec un test d'égalité [...] 214 octets.
Bon boulot, tyann, je regarderai ça, merci.
3 hommes, 3 demis, un 3a... Magnéto, Serge !

« Boris », c'est juste Maurice enrhumé.

Avatar de l’utilisateur
gege
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 6574
Inscription : 31 janv. 2008 15:24
Localisation : Banlieue Paârisienne
Contact :

Re: Vos_derniers_programmes_?

Message par gege » 12 déc. 2016 18:56

Bonjour,
Pour faire une seule fonction de comparaison qui fait tout et pour le même "prix", il faudrait renvoyer :
+1 si a>b
0 si a==b
-1 si a<b

On a l'impression que c'est faisable avec 3 ou 4 pas de plus...
A voir,
G.E.

tyann
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 718
Inscription : 06 oct. 2012 14:37

Re: Vos_derniers_programmes_?

Message par tyann » 12 déc. 2016 19:07

Bonsoir
Pour faire une seule fonction de comparaison qui fait tout et pour le même "prix", il faudrait renvoyer :
+1 si a>b
0 si a==b
-1 si a<b
On a l'impression que c'est faisable avec 3 ou 4 pas de plus...
Hum! à la base, la 41 ne sait pas faire de test de > ou < sur les chaînes.
La cx peut les faire en utilisant les tests x>NN? ou x<NN? qui est un test
indirect par Y donc utilisant un registre de données.
Après il y a ATOX qui envoie le code du premier caractère alpha dans x
il faudrait faire cela dans une boucle si les premiers caractères sont identiques.
A voir effectivement.
Ti(s) 60, 62 Galaxy, 66, 67 Galaxy, 68, 74 Basical 80, 81, 82, 83+, 83 CE, 84+SE, 85, 86, 89, 89 titanium, 92, 95 Procalc, v200, nSpire cx
Hp(s) 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702p, 4000P, 4500P, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, El 5120, 9200, 9600

Canon X-07

Avatar de l’utilisateur
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 548
Inscription : 18 sept. 2015 18:59

Re: Vos_derniers_programmes_?

Message par steste » 12 déc. 2016 19:18

Salut Tyann,
...
J'insiste, pourrait tu m'expliquer rapidement si ton
algorithme s'adapte aussi a des jeux comme
l' (unique) jeux du Crocodile, parut dans
"l'Ordinateur de poche"
...
(une merveille a lire entre autre !)
...
a+

Avatar de l’utilisateur
kenneth
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 455
Inscription : 22 sept. 2010 13:48
Localisation : France PdD

Re: Vos_derniers_programmes_?

Message par kenneth » 12 déc. 2016 19:48

En ce qui me concerne j'écris actuellement un petit prog en BASIC pour envoyer des messages a 2 Hertz et des bananes à une carte SD avec des PEEK et POKE avant le codage en LM dans le but de remplacer le magnéto de l'Oric par la microSD.

Avatar de l’utilisateur
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 548
Inscription : 18 sept. 2015 18:59

Re: Vos_derniers_programmes_?

Message par steste » 12 déc. 2016 20:10

OUCH !!!

Mais surement bien vu...
...
...

Avatar de l’utilisateur
C.Ret
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2018
Inscription : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Vos_derniers_programmes_?

Message par C.Ret » 12 déc. 2016 22:51

gege a écrit :Bonjour,
Pour faire une seule fonction de comparaison qui fait tout et pour le même "prix", il faudrait renvoyer :
+1 si a>b
0 si a==b
-1 si a<b

On a l'impression que c'est faisable avec 3 ou 4 pas de plus...

Code : Tout sélectionner

SGN(a-b)
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803+ sd2iec. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator |HP-15C | CASIO fx-602p + FA-1. .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

tyann
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 718
Inscription : 06 oct. 2012 14:37

Re: Vos_derniers_programmes_?

Message par tyann » 13 déc. 2016 08:07

Bonjour
gege a écrit:
Bonjour,
Pour faire une seule fonction de comparaison qui fait tout et pour le même "prix", il faudrait renvoyer :
+1 si a>b
0 si a==b
-1 si a<b

On a l'impression que c'est faisable avec 3 ou 4 pas de plus...



Code:
SGN(a-b)
Pas sur hp-41 : SIGN 0 renvoie 1
Ti(s) 60, 62 Galaxy, 66, 67 Galaxy, 68, 74 Basical 80, 81, 82, 83+, 83 CE, 84+SE, 85, 86, 89, 89 titanium, 92, 95 Procalc, v200, nSpire cx
Hp(s) 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702p, 4000P, 4500P, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, El 5120, 9200, 9600

Canon X-07

Avatar de l’utilisateur
C.Ret
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2018
Inscription : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Vos_derniers_programmes_?

Message par C.Ret » 13 déc. 2016 18:52

Ah! Oui c'est vrai, j'oubliais cette spécificité.

Bon alors il reste :

Code : Tout sélectionner

 b   a  - RCL X  ABS  / 
Ah! Zut ça marche pas pour a=b :(

Code : Tout sélectionner

 b   a   -   RCL X   ABS   x<>0? 1/x   *    
Il doit y avoir plus court !

Par exemple

Code : Tout sélectionner

 b   a   -   x<>0? SIGN  

Je suis donc en mesure de publier ici mon dernier programme et de le commenter :

Code : Tout sélectionner

01 LBL "SGN     Programme pour HP-41 permettant le calcul de SGN comme sur d'autres Pockets
02 X≠0?         Cette petite astuce permet de renvoyer 0 pour un argument nul.
03 SIGN         L'instruction originale sur le HP-41 renvoie -1 pour les nombres négatifs, +1 pour les nombres positifs
04 END          ou nuls et 0 pour les chaines de caractères.
Dernière édition par C.Ret le 06 mai 2017 08:51, édité 1 fois.
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803+ sd2iec. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator |HP-15C | CASIO fx-602p + FA-1. .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

Répondre

Revenir vers « Tous les Pockets »