Vos_derniers_programmes_?

[Marge]

... [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 !

[steste]

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

[tyann]

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.

[Thierry Loiseau]

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

[spacemax]

Comme promis,

c'est là : viewtopic.php?f=25&t=40966&p=493249#p493249

[tyann]

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.

[Marge]

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.

[gege]

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]

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.

[steste]

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+

[kenneth]

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.

[steste]

OUCH !!!

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

[C.Ret]

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)

[tyann]

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

[C.Ret]

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.