[83/]et[83+/] (à partir de la version 2) :Mon 1er vrai programme en ASM : formules d'aires et volumes

Comme l'indique le titre, voici mon premier programme en assembleur (excepté une "clrhome" et quelques "Hello world!"). Il tourne sous ion et affiche les formules usuelles d'aires et de volumes.

Les liens:
-le programme pour la TI : FORMULES.83p
-la source (voir plus bas) : FORMULES.z80
-le lanceur du compilateur : compiler2.bat
-le compilateur même : spasm.exe
-le fichier include : ion.inc

N'UTILISER QU'AVEC UNE TI82stats, TI82stats.fr, ou TI83(non+)
JE NE SUIS NULEMENT RESPONSABLE DE L'UTILISATION DE CE PROGRAMME (ni bugs possibles, ni punition pour triche, ni autre).

Voici le code source

Code:

 .nolist
#include "ion.inc"
.list
#ifdef TI83P
.org progstart-2
.db $BB,$6D
#else
.org progstart
#endif
ret
jr nc,start
.db "FORMULES",0

start:
ld hl,0
ld (currow),hl
ld hl,0
ld (curcol),hl
ld hl,titre1
call _puts
ld a,7
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,carre
call _vputs
ld a,13
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,rectangle
call _vputs
ld a,19
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,triangle
call _vputs
ld a,25
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,losange
call _vputs
ld a,31
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,disque
call _vputs
ld a,37
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,parallelogramme
call _vputs
ld a,43
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,trapeze
call _vputs
ld a,49
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,cerfvolant
call _vputs
ld a,55
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,sphere
call _vputs

call _getkey
call _clrlcdf
ld hl,0
ld (currow),hl
ld hl,2
ld (curcol),hl
ld hl,titre21
call _puts
ld hl,1
ld (currow),hl
ld hl,4
ld (curcol),hl
ld hl,titre22
call _puts
ld a,15
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,cube
call _vputs
ld a,21
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,parallelepipederectangle1
call _vputs
ld a,27
ld (penrow),a
ld a,4
ld (pencol),a
ld hl,parallelepipederectangle2
call _vputs
ld a,33
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,prisme
call _vputs
ld a,39
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,cylindre
call _vputs
ld a,45
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,cone
call _vputs
ld a,51
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,pyramide
call _vputs
ld a,57
ld (penrow),a
ld a,1
ld (pencol),a
ld hl,boule
call _vputs
call _getkey
ret

titre1:
.db"Formules d'aires",0
carre:
.db"Carre : A=c*c",0
rectangle:
.db"Rectangle:A=L*l",0
triangle:
.db"Triangle:A=(b*h)/2",0
losange:
.db"Losange:A=(d1*d2)/2",0
disque:
.db"Disque:A=pi*r*r",0
parallelogramme:
.db"Parallelogramme:A=b*h",0
trapeze:
.db"Trapeze:A=(B+b)/2*h",0
cerfvolant:
.db"Cerf-volant : A=(d1*d2)/2",0
sphere:
.db"Sphere:4*pi*r*r",0
titre21:
.db"Formules de",0
titre22:
.db"volumes",0
cube:
.db"Cube:V=c*c*c",0
parallelepipederectangle1:
.db"Parallelepipederectangle:",0
parallelepipederectangle2:
.db"V=l*L*h",0
prisme:
.db"Prisme:V=B*h",0
cylindre
.db"Cylindre:V=pi*r*r*h",0
cone:
.db"Cone:V=r*r*h*pi/3",0
pyramide:
.db"Pyramide:V=B*h/3",0
boule:
.db"Boule:V=4/3*r*r*r",0
.end

Sandro

Bravo, il est tout simplement excellent !

Merci beaucoup, je devrias poster une seconde version tout-à l'heure qui devrait être plus optimisée et lus lisible (utilisation de carractères spéciaux).

EDIT : version 2 : 620 octés au lieu de 701, utilisation des carractères spéciaux pour une meilleur lisibilité et version pour TI83+ (non testée, mais vue que la version pour TI82stats compillée simultanémant fonctionne, il ne devrait pas y avoir de problèmes; néanmoins, je décline toute responsbilité dans le cas où il y en aurrait).

les liens :
-le programme pour la TI82stats/TI83 : FORMULES.83p
-le programme pour la TI83+ : FORMULES.8xp
-la source (voir plus bas) : FORMULES.z80
-le lanceur du compilateur : compiler2.bat
-le compilateur même : spasm.exe
-le fichier include : ion.inc
la source:

Code:

 .nolist
#include "ion.inc"
.list
#ifdef TI83P
.org progstart-2
.db $BB,$6D
#else
.org progstart
#endif
ret
jr nc,start
.db "FORMULES",0

start:
ld hl,0
ld (currow),hl
ld hl,0
ld (curcol),hl
ld hl,titre1
bcall _puts
ld hl,$0701
ld (pencol),hl
ld hl,carre
bcall _vputs
ld hl,$0D01
ld (pencol),hl
ld hl,rectangle
bcall _vputs
ld hl,$1301
ld (pencol),hl
ld hl,triangle
bcall _vputs
ld hl,$1901
ld (pencol),hl
ld hl,losange
bcall _vputs
ld hl,$1F01
ld (pencol),hl
ld hl,disque
bcall _vputs
ld hl,$2501
ld (pencol),hl
ld hl,parallelogramme
bcall _vputs
ld hl,$2B01
ld (pencol),hl
ld hl,trapeze
bcall _vputs
ld hl,$3101
ld (pencol),hl
ld hl,cerfvolant
bcall _vputs
ld hl,$3701
ld (pencol),hl
ld hl,sphere
bcall _vputs

bcall _getkey
bcall _clrlcdf
ld hl,0
ld (currow),hl
ld hl,2
ld (curcol),hl
ld hl,titre21
bcall _puts
ld hl,1
ld (currow),hl
ld hl,4
ld (curcol),hl
ld hl,titre22
bcall _puts
ld hl,$0F01
ld (pencol),hl
ld hl,cube
bcall _vputs
ld hl,$1501
ld (pencol),hl
ld hl,parallelepipederectangle1
bcall _vputs
ld hl,$1B04
ld (pencol),hl
ld hl,parallelepipederectangle2
bcall _vputs
ld hl,$2101
ld (pencol),hl
ld hl,prisme
bcall _vputs
ld hl,$2701
ld (pencol),hl
ld hl,cylindre
bcall _vputs
ld hl,$2D01
ld (pencol),hl
ld hl,cone
bcall _vputs
ld hl,$3301
ld (pencol),hl
ld hl,pyramide
bcall _vputs
ld hl,$3901
ld (pencol),hl
ld hl,boule
bcall _vputs
bcall _getkey
ret

titre1:
.db"Formules d'aires",0
carre:
.db"Carr",$96," : A=c",$12,0
rectangle:
.db"Rectangle:A=L*l",0
triangle:
.db"Triangle:A=(b*h)/2",0
losange:
.db"Losange:A=(d1*d2)/2",0
disque:
.db"Disque:A=",$C4," r",$12,0
parallelogramme:
.db"Parall",$96,"logramme:A=b*h",0
trapeze:
.db"Trap",$97,"ze:A=(B b)/2*h",0
cerfvolant:
.db"Cerf-volant : A=(d1*d2)/2",0
sphere:
.db"Sph",$97,"re:4",$C4," r",$12,0
titre21:
.db"Formules de",0
titre22:
.db"volumes",0
cube:
.db"Cube:V=c",$D5,0
parallelepipederectangle1:
.db"Parall",$96,"l",$96,"pip",$97,"de-rectangle:",0
parallelepipederectangle2:
.db"V=L*l*h",0
prisme:
.db"Prisme:V=B*h",0
cylindre
.db"Cylindre:V=",$C4," r",$D3,"*h",0
cone:
.db"C",$4A,"ne:V=",$C4," r",$12,"*h/3",0
pyramide:
.db"Pyramide:V=B*h/3",0
boule:
.db"Boule:V=4/3*r",$D5," ",$C4,0

Sandro

PS : y a-t-il un moyen de savoir qui est-ce qui nous à donné des remerciment, réputations positives ou négatives?

Sandro, enregistrer les formules dans sa calculatrice n'est pas considérer comme de la triche. C'est les formules marquées sur un bout de papier qui s'appelle tricher. Et ouais, c'est un peu illogique, mais c'est comme ça.

En téorie peut-être, mais si le prof est de mauvaise humeur ...

Sandro

PS : j'ai édité la v2: il manquait le "*pi" dans la formule du volume de la sphère.

EDIT : voici la v3 : elle fait 602 octés:
les fichiers qui changent :
-Le fichier pour les TI83+ : FORMULES.8xp
-Le fichier pour les TI83/82stats/82stats.fr : FORMULES.83p
-La source (cf en-dessous) : FORMULES.z80

Voici la source :

Code:

   .nolist
#include "ion.inc"
   .list
#ifdef TI83P
   .org progstart-2
   .db $BB,$6D
#else
   .org progstart
#endif
   ret
   jr nc,start
   .db "FORMULES",0
 
start:
   ld   hl,$0000
   ld   (currow),hl
   ld   hl,titre1
   bcall _puts

   ld   hl,$0701
   ld   (pencol),hl
   ld   hl,carre
   bcall _vputs

   ld   hl,$0D01
   ld   (pencol),hl
   ld   hl,rectangle
   bcall _vputs

   ld   hl,$1301
   ld   (pencol),hl
   ld   hl,triangle
   bcall _vputs

   ld   hl,$1901
   ld   (pencol),hl
   ld   hl,losange
   bcall _vputs

   ld   hl,$1F01
   ld   (pencol),hl
   ld   hl,disque
   bcall _vputs

   ld   hl,$2501
   ld   (pencol),hl
   ld   hl,parallelogramme
   bcall _vputs

   ld   hl,$2B01
   ld   (pencol),hl
   ld   hl,trapeze
   bcall _vputs

   ld   hl,$3101
   ld   (pencol),hl
   ld   hl,cerfvolant
   bcall _vputs

   ld   hl,$3701
   ld   (pencol),hl
   ld   hl,sphere
   bcall _vputs


   bcall _getkey
   bcall _clrlcdf

   ld   hl,$0200
   ld   (currow),hl
   ld   hl,titre21
   bcall _puts

   ld   hl,$0401
   ld   (currow),hl
   ld   hl,titre22
   bcall _puts

   ld   hl,$0F01
   ld   (pencol),hl
   ld   hl,cube
   bcall _vputs

   ld   hl,$1501
   ld   (pencol),hl
   ld   hl,parallelepipederectangle1
   bcall _vputs

   ld   hl,$1B04
   ld   (pencol),hl
   ld   hl,parallelepipederectangle2
   bcall _vputs

   ld   hl,$2101
   ld   (pencol),hl
   ld   hl,prisme
   bcall _vputs

   ld   hl,$2701
   ld   (pencol),hl
   ld   hl,cylindre
   bcall _vputs

   ld   hl,$2D01
   ld   (pencol),hl
   ld   hl,cone
   bcall _vputs

   ld   hl,$3301
   ld   (pencol),hl
   ld   hl,pyramide
   bcall _vputs

   ld   hl,$3901
   ld   (pencol),hl
   ld   hl,boule
   bcall _vputs

   bcall _getkey

   ret



titre1:
   .db"Formules d'aires",0
carre:
   .db"Carr",$96," : A=c",$12,0
rectangle:
   .db"Rectangle:A=L*l",0
triangle:
   .db"Triangle:A=(b*h)/2",0
losange:
   .db"Losange:A=(d1*d2)/2",0
disque:
   .db"Disque:A=",$C4," r",$12,0
parallelogramme:
   .db"Parall",$96,"logramme:A=b*h",0
trapeze:
   .db"Trap",$97,"ze:A=(B+b)/2*h",0
cerfvolant:
   .db"Cerf-volant : A=(d1*d2)/2",0
sphere:
   .db"Sph",$97,"re:4",$C4," r",$12,0

titre21:
   .db"Formules de",0
titre22:
   .db"volumes",0
cube:
   .db"Cube:V=c",$D5,0
parallelepipederectangle1:
   .db"Parall",$96,"l",$96,"pip",$97,"de-rectangle:",0
parallelepipederectangle2:
   .db"V=L*l*h",0
prisme:
   .db"Prisme:V=B*h",0
cylindre
   .db"Cylindre:V=",$C4," r",$D3,"*h",0
cone:
   .db"C",$4A,"ne:V=",$C4," r",$12,"*h/3",0
pyramide:
   .db"Pyramide:V=B*h/3",0
boule:
   .db"Boule:V=4/3*r",$D5,"*",$C4,0
.end

Sandro

sandro a écrit:En téorie peut-être, mais si le prof est de mauvaise humeur ...

Tu lui invite à lire le règlement à ce sujet (pléonasme ? ).

Lequel, où trouver ce texte officiel?

sandro a écrit:PS : y a-t-il un moyen de savoir qui est-ce qui nous à donné des remerciment, réputations positives ou négatives?

Non pas que je sache...

Sinon pour essayer ton programme sur TI-83+ tu peux utiliser un émulateur PC.

Cool comme programme, reste plus qu'a faire WoW sur TI et c'est bon. :P

Pas jusqu'à ce point là quant même. ^^

Ouais bof d'accord. :roll:

Mdr1 voulait faire Age of Empires en ASM, pourquoi pas WoW (au moins la foret d'Elwyn) ? :P

Je ne suis pas trop dans vos jeux, mais je suis loin d'en être là, en ce moment j'essaye déjà de faire un plus ou moins en ASM, et déjà là j'ai besoin d'aide.

Sandro

J'ai vu ca sur le Sdz, oui.

Je ne le poste pas ici car je compte repatir de la v1 pour le concours, donc à partir du moment ou Alexis à posté le message comme quoi le programme ne doit pas encore être pzrut avant le concours, j'ai arrêtter de publier la v1 (de toute façon, ilo y a un tas d'amméliorations sur la v1.1 que je garde pour le concours), mais si ça t'interrèce, j'ai mis la v2 qui va jusqu'à 10 000 (de nouveau différent car registre 16 bit au lieu de sur TOUT 82.

Sandro