Quelques trucs utiles pour les possesseurs de TI83+/TI84+ : scroller l'écran
pour les nuls :)

1. Créer un nouveau programme
   
2. Sur la première ligne, mettre AsmPrgm (cette instruction se trouve dans le catalogue)
   
3. La suite, c'est une chaine héxadécimale
   

Scroller une partie de l'écran à droite :
2140930Exx060CB7CB1E2310FB0D20F5EF6A48C9

Remplacer xx par le nombre de lignes à "scroller" à partir du haut en héxadécimal (entre 0 et 40)

Scroller une partie de l'écran à gauche :
213F960Exx060CB7CB162B10FB0D20F5EF6A48C9

Pareil que précédemment, remplacer xx par le nombre de lignes à "scroller"
Cette fois à partir du bas

Scroller une partie de l'écran en haut :
214C9311409301yyyyEDB0EB010C00EF304CEF6A48C9
Nombre de lignes à partir du haut

Alors là, c'est plus compliqué pour yyyy:
On va prendre n pour le nombre de lignes

1. Multiplier n par 12
   
2. Convertir le résultat en héxadécimal
   
3. Inverser l'ordre des octets : par exemple 02F416 (75610) devient F402
   

Prenons un exemple, pour 50 lignes :

1. 50*12=600
   
2. 60010 = 025816
   
3. Résultat final pour yyyy : 5802
   

Le code pour scroller 50 lignes est donc :
214C93114093015802EDB0EB010C00EF304CEF6A48C9

Scroller une partie de l'écran en bas :
213396113F9601yyyyEDB823010C00EF304CEF6A48C9

Même principe que précedemment pour yyyy
Nombre de lignes à partir du bas

Un exemple pour illustrer tout ça

prgmCREDIT

Code:

ClrDraw
AxesOff
0->Xmin
94->Xmax
0->Ymin
62->Ymax
Text(57,0,"(c)Tama 2007
For(T,0,94
For(Z,0,5
Pt-Change(T,Z
End
End
"ExempleUn exemple de creditsCode : TamaGraphismes: TamaEn basic ''pur''Pas mal hein :pSuper l'assembleur :)Surtout pour les prgmEncore une ligneEt encore uneEt voila la fin :)C'etait la ptite demodu scroll en partie  (c)Tama 2007->Str1
{1,7,8,21,29,11,40,16,56,16,72,15,87,21,108,18,126,16,142,13,155,18,173,21,194,19,213,1,214,1,215,1,216,12->L1
50->C
1->L
While 2L-1
If not(fPart((C+4)/6
Then
Text(C+6L-6,0,sub(Str1,L(2L-1),L(2L
L+1->L
End
For(Z,1,15
End
Asm(prgmSCRLUP
C-1->C
End
Pause
ClrDraw

Commentaires :
Rien de compliqué, d'abord on affiche "(c) Tama 2007" tout en bas de l'écran, puis on change l'état de tous les pixels des dernières lignes (Pt-Change)
Après c'est la chaine contenant tout le texte mis à la suite et on affiche ce qu'on veut, quand on veut, où on veut :)
Pour ceux qui ont besoin de plus de précisions, bah demandez :)

Ah oui, la liste 1 c'est simple, faut la séparer en groupes de 2 :
début de la chaine à afficher, nombre de caractères à afficher...

prgmSCRLUP

Code:

AsmPrgm
214C9311409301A002EDB0EB010C00EF304CEF6A48C9

Commentaires :
Bah j'ai juste appliqué ce que j'avais marqué plus haut :)
A002 => 56 lignes :
56*12=672
67210 => (0)2A016
"A l'envers" => A002


Capture d'écran : WabbitEmu (TI83+ OS 1.12)


Ah oui, et aussi si vous préférez avoir un "vrai" programme ASM, et non une chaine héxa, utilisez "AsmComp(in,out)"

• In -> programme contenant la chaine héxa
  
• Out -> nom du programme ASM
  

Bon et enfin, je précise que je ne suis pas responsable d'un éventuel crash de la TI, et que ça ne marche que sur 83+/84+.
Voilà maintenant bon codage :)

En attendant, le programme CREDITS :
>>Par ici<<

EDIT : corrigé une faute
EDIT : mis la bonne image
EDIT : ajouté des précisions
EDIT : ajouté un lien pour télécharger les programmes

T'as pu qu'a nous trouver ça pour 68k!

[mode chieur]T'avais qu'à acheter une 83+/84+ :p[/mode chieur]

Pour les 68k, y a une fonction en C mais je m'en souviens plus de son nom

Une ébauche de jeu d'hélico, faite en 5' (véridique :))


prgmHELICO

Code:

ClrDraw
AxesOff
0->Xmin
94->Xmax
0->Ymin
62->Ymax
For(Z,0,94
Line(Z,6,Z,randInt(6,21
Line(Z,62,Z,randInt(47,62
If 5>randInt(0,100
Line(Z,randInt(25,43),Z,randInt(25,43
End
0->B
34->C
0->S
3->V
0->K
Pt-On(B,C
While V
getKey->K
Text(57,0,"Vie(s):",V," Score :",S
S+1->S
B+1->B
C-.5->C
If K=25
C+1->C
Pt-On(B,C
If B>=94
Then
Line(94,6,94,randInt(6,21
Line(94,62,94,randInt(47,62
If 10>randInt(0,100
Line(Z,randInt(25,43),Z,randInt(25,43
Asm(prgmSCRLLFT
B-1->B
End
End
ClrHome
Disp "Score:
Output(1,11,S

Commentaires :
Rien de compliqué...

prgmSCRLLFT

Code:

AsmPrgm
21F7950E38060CB7CB162B10FB0D20F5EF6A48C9

Commentaires :

• 21F795 : dans le 1er post, j'ai mis 213F96...Seulement je veux conserver les 6 dernières lignes :
  

Pour les programmeurs ASM :
3F96 -> plotsscreen+767 -> 9340h+767
ou 38463 en décimal

Je retire les 6 dernières lignes, soit 72 octets :
->38463-72=38391 -> 95F7 en héxadécimal
"à l'envers" : F795

Le reste n'est qu'une bête application du 1er post :)


Reste à faire :

• Tracer des lignes aléatoirement au milieu de l'écran
  
• Gestion des collisions
  

(désolé pour l'image, elle est un peu petite (96x64))

Téléchargement :
>>Par ici<<