Matrefeytontias's hex codes (ne pas poster ici, y'a un topic de discussion !)

Salut la com' !

À la demande de certains membres (et je dirais même d'un membre certain) je créé un topic où je posterai touuuutes mes créations hexadécimales

J'updaterai à chaque fois que j'en aurai un nouveau, c'est à dire PAS D'EDIT, donc c'est pas la peine de hurler au double-post à chaque fois, c'est normal

On commence en douceur avec ZHIDE, je copie-colle mon topic parce que hein, bon

Voici donc zHide, un programme qui cache un autre programme, dont le nom est passé dans Str0. Mais c'est caché, caché hein, il devient invisible dans tous les menus de la calto, EXEC, EDIT, SEND et même le menu MEM (et même MEM ). Évidemment, le deuxième programme, ZUNHIDE, sert à révéler votre programme quand vient le temps de l'utiliser.

J'ai donc fais une version pour 82 stats et une version pour 83+ (et tout ce qui va bien), donc ça marche sur toutes les z80

Version 83+:

Version 82 stats:

Code:

:Input "Hide prgm",Str0
:Asm(prgmZHIDE
ou
:Send(9prgmZHIDE

Et voici un screen montrant comment les utiliser :

[Vous devez être inscrit et connecté pour voir cette image]

Cette fois-ci, je vous propose un programme qui permet d'exécuter le programme dont le nom est contenu dans Ans !

Par contre, pour l'instant vous ne pouvez exécuter que d'autres programmes hexa, mais je planche actuellement sur la version permettant d'exécuter un programme Basic

Version 83+:

Version 82 stats:

Pour l'utiliser, mettez le nom du programme ASM à exécuter dans Ans, et lancez prgmZASMEXEC !

Exemple : vous faites un programme pour vos poteaux qui sont des nouilles et pas capables de lancer un programme ASM tout seuls :

Code:

Input "Launch prgm",Str1
Str1
Send(9prgmZEXECASM ou Asm(prgmZEXECASM
DelVar Str1

Et le tour est joué, votre programme ASM est lancé !

[Vous devez être inscrit et connecté pour voir cette image]

Bah en fait ça y est, j'ai fini le programme permettant d'exécuter un programme Basic dont le nom est passé dans Ans !

Il marche exactement de la même manière que zExecAsm, mais exécute un programme Basic.

Version 83+:

Version 82 stats:

Code:

:Input "Launch basic prgm",Str1
:Str1
:Asm(ZEXECBAS
ou
:Send(9prgmZEXECBAS

[Vous devez être inscrit et connecté pour voir cette image]

Imaginez ... vous faites un menu avec 6 choix, tous des programmes à lancer ... à la place, demandez directement à l'utilisateur quel programme lancer, stockez sa réponse dans Ans et exécutez zExecBas !

On continue avec zScrollD, un programme pas forcément utile, mais qui peut être sympa pour des animations ou autres en Basic : il scrolle le buffer vers le bas (l'écran graphique). Je suis en train de faire les 3 autres directions, pas de panique

Voici donc le code, toujours pour les deux caltos :

Version 82 stats:

Version 83+:

Sachez cependant que ce prgm ne scroll l'écran qu'une fois -> ne fais descendre son contenu que d'un pixel, donc utilisez-le dans une boucle dans un programme Basic :

Code:

:For(I,1,64,1)
:Send(9prgmZSCROLLD
ou
:Asm(prgmZSCROLLD
:End

Fais disparaître l'image du graph buffer vers le bas

Le programme hexa met le graph à jour tout seul, pas besoin de DispGraph.

Un screen qui fait disparaître les axes ... sans AxesOff !
[Vous devez être inscrit et connecté pour voir cette image]

Update !

Voilà maintenant zScroll fonctionnel dans toutes les directions ! :D

De plus, on stocke le nombre de pixels à scroller dans Ans avant l'appel du programme !

Ce sont tous des programmes 82 stats, donc pour les versions 83+ il y a toujours les 4 mêmes lignes à changer :

Pour les 83+:

zScrollD (down) :

Code:

CDDC4E
CDFC4E
43
C5
21298E
110003
19
0640
C5
060C
11E8FF
19
7E
110C00
19
77
11F5FF
19
10F4
C1
10EA
CD9C4B
C1
10DA
C9
End
0000
End


zScrollL (left) :

Code:

CDDC4E
CDFC4E
43
C5
21298E
11FF02
19
0640
C5
37
3F
060C
7E
17
77
2B
10FA
C1
10F2
CD9C4B
C1
10E2
C9
End
0000
End


zScrollR (right) :

Code:

CDDC4E
CDFC4E
43
C5
21298E
0640
C5
37
3F
060C
7E
1F
77
23
10FA
C1
10F2
CD9C4B
C1
10E6
C9
End
0000
End


zScrollU (up) :

Code:

CDDC4E
CDFC4E
43
C5
21298E
110C00
19
0640
C5
060C
7E
11F4FF
19
77
110D00
19
10F4
C1
10EE
CD9C4B
C1
10DE
C9
End
0000
End


Et un ptit exemple Basic pour la route :

Code:

AxesOff
ClrDraw
0->Xmin
94->Xmax
0->Ymin
62->Ymax
Text(15,20,"ESPACE-TI
Circle(37,42,20
RandInt(10,25
Send(9prgmZSCROLLD
RandInt(10,25
Send(9prgmZSCROLLR
RandInt(10,25
Send(9prgmZSCROLLU
RandInt(10,25
Send(9prgmZSCROLLL

Je ne peux pas prévoir ce qu'il se passe si le contenu de Ans n'est pas un nombre ...

Bref, testez-le et faites part de vos commentaires

Voilà maintenant un p'tit programme hexa qui sécurise la calto via un pseudo-mot de passe ; en effet la calto va rester éteinte jusqu'à ce qu'on appuie simultanément sur [Enter] [-] [÷] et [clear]/[annul]. Pratique pour remplacer l'appui sur Off

Le code est compatible toutes z80 puisqu'il n'utilise aucune adresse ni romcall :

Code:

3E02
D310
3EFD
D301
DB01
FEAA
20F6
3E03
D310
C9
End
0000
End

Il est court mais efficace : si vous oubliez la combinaison, vous n'avez plus qu'à enlever les piles !

C'est le retour des codes hexa, et cette fois avec du lourd !

Voici cette fois un key hook, c'est à dire un programme qui modifie les réactions de l'OS aux touches, tout en hexa !

Ce programme est très utile avec les gros codes sources : lors de l'édition d'un programme, appuyez sur [2nd] [X,t,θ,n] et pouf ! Vous pouvez lâcher votre calculatrice, le curseur ira tout seul jusqu'au dernier caractère de la dernière ligne du programme !

Pour l'utiliser, lancez le programme avec Asm() et pas avec un shell car ça ne marchera pas, puis vous pourrez aller direct à la fin des programmes en accédant au menu Link (sauf qu'au lieu d'aller au menu Link, ça va au bout du prog). Pour désactiver cette fonctionnalité, accédez au menu Calc avec [2nd] [trace], et au lieu d'ouvrir le menu ça désactivera le hook, et tout redeviendra normal dans l'OS. Pour le réactiver, relancez juste le programme.

Attention ! Les hooks n'existent que sur les Ti à mémoire flash ! Rien pour les 82 stats donc, désolé

Code:

:AsmPrgm
:21A99D
:110080
:011900
:EDB0
:210080
:3E01
:EF664F
:C9
:83
:FDCB0156
:C8
:FE41
:2006
:EF5D49
:3E00
:C9
:FE3B
:C0
:EF6F4F
:3E00
:C9

Pas de screen car je suis sur tél encore une fois. Enjoy