[ASM] Ti-82 Stats.Fr sans câble...

→ **MyCalcs** profile · by **alexvire** » 19 Apr 2010, 08:52

Bonjour, tout d'abord je possède une Ti-82 Stats.Fr (Ti-83 en français) sans câble. (J'en cherche un mais je n'en trouve pas en contre-remboursement...)

Etant donné que je n'ai pas de câble, je ne peux pas taper les programmes s'exécutant avec ZASMLOAD ou encore les shells (ION...). Les seuls programmes ASM que je peux taper à la main sont les programmes en héxadécimal.

Exemple:
A54B1594F655D25C
End
0000
End

En effet ils ne requirent pas de caractères indisponibles contrairement aux autres.

J'aimerais savoir si c'est possible de convertir un programme s'ouvrant avec ZASMLOAD ou encore ION en programme ASM en héxadécimal. Ou encore pourriez-vous m'expliquer comment créer un fichier ".83p" à partir de sa source ? (".z80" ou ".asm")

Car j'avoue que j'ai essayé pas mal de programmes ASM en héxadécimal et que j'aimerais en taper d'autres comme KEYON (ou ONBLOCK) ou alors des jeux comme FALLDOWN le problème c'est que je ne peux pas, je suis limité sans câble...

Edit: J'ai oublié de préciser que les programmes ASM en héxadécimal de la Ti-83+ comme ONBLOCK par exemple ne fonctionnent pas sur ma Ti-82 Stats.Fr, existe-t-il un moyen de les convertir ?

→ **MyCalcs** profile · by **critor** » 19 Apr 2010, 09:57

alexvire wrote:Bonjour, tout d'abord je possède une Ti-82 Stats.Fr (Ti-83 en français) sans câble. (J'en cherche un mais je n'en trouve pas en contre-remboursement...)

Très bien. Peu de gens savent que la TI-82Stats.fr est logiciellement identique à une TI-83

alexvire wrote:pourriez-vous m'expliquer comment créer un fichier ".83p" à partir de sa source ? (".z80" ou ".asm")

Le fichier .asm contient la source assembleur.

La 1ère chose à faire, c'est d'obtenir le code machine équivalent, à l'aide d'un assembleur Z80.
Personnellement, j'utillise TASM.

La 2ème chose est de générer un fichier 83p contenant ce code.

Tente l'expérience, et au fur et à mesure on te donnera plus de détails.

→ **MyCalcs** profile · by **alexvire** » 19 Apr 2010, 10:09

Merci de votre réponse, j'avais déjà essayé avec "TASM301 assembleur", par exemple avec le fichier "fdown.z80":

Show/Hide spoilerAfficher/Masquer le spoiler

;-------------= Fall Down =-------------
; Author: Ian Graf (port)
; (ian_graf@geocities.com)
; Florent Dhordain (original)
; (flo.dh@usa.net)
; Ahmed El-Helw (original)
; (ahmedre@bellsouth.net)
; Version: 1.5
; Platform: ION
; Date: 11/3/99
;---------------------------------------

#define ballx saferam1 ; 1 byte - ball x coord
#define bally ballx+1 ; 1 byte - ball y coord
#define blockcnt bally+1 ; 1 byte - num blocks
#define score blockcnt+1 ; 2 bytes - score
#define tmpx score+2 ; 1 byte - temp x coord

;---------------= header =--------------

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

start_of_program:
bcall(_clrlcdf) ;
ld de,4*256+0 ;
ld (currow),de ;
ld hl,titlestr ;
bcall(_puts) ;
ld bc,0*256+55 ; draw line
ld de,94*256+55 ;
bcall(_darkline) ;
ld de,10*256+1 ; write "By AE, FD, and IG"
ld (pencol),de ;
ld hl,authorstr ;
bcall(_vputs) ;
ld de,22*256+4 ; write "2nd - Start"
ld (pencol),de ;
bcall(_vputs) ;
ld de,29*256+4 ; write "ALPHA - Speed:"
ld (pencol),de ;
bcall(_vputs) ;
ld de,36*256+4 ; write "CLEAR - Exit:"
ld (pencol),de ;
bcall(_vputs) ;
ld de,55*256+1 ; write "High: "
ld (pencol),de ;
bcall(_vputs) ;
ld hl,(high) ;
bcall(_setxxxxop2) ; write high score
bcall(_op2toop1) ;
ld a,5 ;
bcall(_dispop1a) ;
updatm: ld de,29*256+53 ; write speed
ld (pencol),de ;
ld a,(speed) ;
bcall(_setxxop1) ;
bcall(_dispop1a) ;
menul: bcall(_getk) ;
cp 15 ; [CLEAR]
ret z ; quit
cp 48 ; [ALPHA]
jr nz,nchngs ;
ld hl,speed ; change num players
ld a,(hl) ;
xor %00000011 ;
ld (hl),a ;
jr updatm ;
nchngs: cp 54 ; [2nd]
jr nz,menul ;
bcall(_cleargbuf) ;
ld hl,0 ; reset score
ld (score),hl ;
ld hl,ballx ;
ld (hl),44 ; ballx = 44
inc hl ;
ld (hl),0 ; bally = 0
init: call randomblocks ;
ld hl,(score) ;
add hl,hl ; hl = score*2
ld a,24 ;
sub h ;
ld b,a ;
sloop: ld a,b ;
ld (blockcnt),a ;
call scroll ;
call checkcoll ; check collisions
call putball ; draw ball
call ionFastCopy ;
call putball ; clear ball
ei ;
ld a,(speed) ;
ld b,a ;
delay: halt ;
djnz delay ;
ld a,$FF ;
out (1),a ;
ld a,$FE ;
out (1),a ;
in a,(1) ;
bit 1,a ; [(left)]
jr z,moveleft ;
bit 2,a ; [(right)]
jr z,moveright ;
donemv: bcall(_getk) ;
cp 15 ; [CLEAR]
jp z,exit ;
cp 55 ; [MODE]
jr nz,npause ;
ld a,1 ; turn off calc
out (3),a ;
ei ;
halt ;
npause: ld a,(blockcnt) ;
ld b,a ;
djnz sloop ;
jr init ;

moveleft:
ld a,(ballx) ;
sub 2 ;
jr c,donemv ; offscreen
ld (tmpx),a ;
jr xcheck ;

moveright:
ld a,(ballx) ;
add a,2 ;
cp 96-4 ;
jr nc,donemv ; offscreen
ld (tmpx),a ;
add a,5 ; check right side
xcheck: ld hl,bally ;
ld e,(hl) ;
call ionGetPixel ;
ld a,(hl) ;
or a ;
jr nz,donemv ; something in way
ld de,5*12 ;
add hl,de ; something in way
ld a,(hl) ;
or a ;
jr nz,donemv ;
ld a,(tmpx) ;
ld (ballx),a ; move ball
jr donemv ;

randomblocks:
ld b,12 ; 12 blocks
ld hl,grbuf+(60*12) ;
rloop1: push bc ;
push hl ;
ld b,4 ;
call ionRandom ; one luck on 5 to have a hole
pop hl ;
or a ;
jr z,rloop3 ; skip space
ld ix,block ;
ld de,12 ;
ld b,4 ; 4 lines
push hl ;
rloop2: ld a,(ix) ;
ld (hl),a ;
inc ix ;
add hl,de ;
djnz rloop2 ;
pop hl ;
rloop3: inc hl ;
pop bc ;
djnz rloop1 ;
ld hl,grbuf+(60*12) ;
ld b,12 ;
xor a ;
rloop4: ld c,(hl) ;
rrc c ;
adc a,0 ;
djnz rloop4 ;
cp 12 ; less than 12 bricks
ret c ;
ld b,12 ;
call ionRandom ; put random space
ld hl,grbuf+(60*12) ;
ld d,0 ;
ld e,a ;
add hl,de ;
ld b,4 ;
ld de,12 ;
rloop5: ld (hl),0 ;
add hl,de ;
djnz rloop5 ;
ret ;

scroll: ld hl,grbuf+12 ;
ld de,grbuf ;
ld bc,756 ;
ldir ;
ld h,d ;
ld l,e ;
inc e ;
ld (hl),b ;
ld c,11 ;
ldir ;
ret ;

checkcoll:
ld a,(bally) ;
add a,6 ;
ld e,a ;
ld a,(ballx) ;
call ionGetPixel ; check left
ld a,(hl) ;
or a ;
jr nz,ndown ;
ld a,(bally) ;
add a,6 ;
ld e,a ;
ld a,(ballx) ;
add a,5 ;
call ionGetPixel ; check right
ld a,(hl) ;
or a ;
jr nz,ndown ;
ld hl,(score) ; inc score
inc hl ;
ld (score),hl ;
ld hl,bally ; move the ball down
inc (hl) ;
ld a,(hl) ;
cp 60-5 ;
ret c ;
dec (hl) ;
ret ;

ndown: ld a,(bally) ;
add a,5 ;
ld e,a ;
ld a,(ballx) ;
call ionGetPixel ; check left
ld a,(hl) ;
or a ;
jr nz,moveup ; move up
ld a,(bally) ;
add a,5 ;
ld e,a ;
ld a,(ballx) ;
add a,5 ;
call ionGetPixel ; check right
ld a,(hl) ;
or a ;
ret z ;

moveup: ld hl,bally ;
dec (hl) ;
ld a,(hl) ;
and %10000000 ; y ret z ;
pop hl ;
exit: bcall(_clrscr) ;
bcall(_homeup) ;
ld hl,scorestr ;
bcall(_puts) ; write "Score: "
ld hl,(score) ;
bcall(_disphl) ;
ld hl,(score) ;
ld de,(high) ;
bcall(_cphlde) ;
jr c,exitl ;
ld (high),hl ;
bcall(_newline) ;
ld hl,highstr ;
bcall(_puts) ; write "New High!"
exitl: bcall(_getk) ;
cp 54 ;
jp z,start_of_program ;
jr exitl ;

putball:
ld b,6 ;
ld hl,ballx ;
ld a,(hl) ;
inc hl ;
ld l,(hl) ;
ld ix,ball ;
jp ionPutSprite ;

titlestr: .db "Falldown",0
authorstr: .db "By AE, FD, and IG",0
startstr: .db "2nd - Start",0
playerstr: .db "ALPHA - Speed:",0
exitstr: .db "CLEAR - Exit",0
hscorestr: .db "High: ",0
scorestr: .db "Score:",0
highstr: .db "New High!",0

high: .dw 0
speed: .db 1

block: .db %11111111
.db %10000001
.db %10111111
.db %11111111
ball: .db %01111000
.db %10110100
.db %11001100
.db %11001100
.db %10110100
.db %01111000

.end

Je crée un fichier au format ".8xp" ou ".83p", mais quand je l'ouvre avec Ti Graph Link par exemple, j'obtient ce code:

Show/Hide spoilerAfficher/Masquer le spoiler

sinhñ(0}FFDøParamùtanhñ(UG)üPlot2(SñÑmean(Q nCr tanhñ(ÜGåDMS7)77Output(J)åDMSõPlot2(SR*mean(Z nCr tanhñ(ÒG)ürow+(Plot2(SR*tanhñ(ÒG)üPåRx(Plot2(SR*tanhñ(ÒG)üfnInt(Plot2(SR*tanhñ(ÒG)åDMS7Plot2(SR*tanhñ(ÒG"Ä nCr tanhñ(DependAutoJtanhñ(sin(A:Boxplottanhñ(EndQ)5PåRx(Plot2(SR*.' nCr tanhñ(HorizJtanhñ(EndQtanhñ(*row+(JScatterÓsinh(Scatter0randM(}mean(' nCr nCr åFracParam*row+(Prompt Scatter6randM(PlotsOn tanhñ(ÁQmean(solve(Eng*mean(Degree*6àseq(6tanhñ(N nPr "Eng* :*row+( nPr GPolar2Sci*tanhñ(Vertical nPr tanhñ(int( nPr tanhñ(B nCr tanhñ(sum(""tanhñ(B nCr ClrTable.' nCr GFunc(xyLine:LinReg(ax+b) For(åDMS:ScatterFor(åDMSDS"""randM(ý^() or max(max(randM(iPart(.=*2Degree**row+(int([ñmean(QuadReg ZoomRclcosñ(DispTable[ütanhñ(tanhñ(ClrHomeprod(fMax(augment(Prompt mean(? nCr )ñ[üDispTablePrompt SequentialParamPrompt seq(max((PwrReg ClrHomeseq(ý^((Prompt mean(QuadReg ZoomRcl[ñ?Ncoshñ(}If (QuadReg ScatterñPause [ñtanhñ(tanhñ(mean(QuadReg ZoomRclrow+(prgmmax([ü)ñ6max((ClrTablesinhñ(mean(5ZDecimal) ZDecimalåDMSLinReg(a+bx) åDecPlot2(úúRåPÁ(+öôPlot2(úsinhñ(.Normal*tan([prgm.Degree*tanhñ(det(""""randM(seq(.Normal*tan([prgm.Degree*tan(Boxplottanhñ(det(""""randM()"Eng*seq(solve(Eng*mean(Normal*447Pause 5sinhñ(.Normal*tan(Boxplotprgm.Degree*tanhñ(det(""""randM().Normal*tan(Boxplotprgm.Degree*tan(Boxplottanhñ(det(""""sinh(mean(Normal*55Ñsinh(ClrHometanhñ(YGtanhñ(FullGmean(RecallGDB nCr tanhñ(ÜG"Eng*tanhñ(}G"Eng*Plot2(ÁÄ nCr tanhñ(ü and 8ñsolve(Ä nCr tanhñ( xor Gmean(Pxl-Off( nCr tanhñ(ÜGtanhñ(*row+(JScatter6cosh(3Text(*row+(LnReg [[mean(Degree**ùPrompt mean(det( nCr sinñ(getKey""FFRadianøParamùBSeqrandM(AEàrandM(FDàrandM(randM(RadianrandM(IG2ùRadianrandM(!randM(SHorizHorizHorizALPHArandM(!randM(S+DegreeDegreeRadian.CLEARrandM(!randM(EPolarFloatHorizHFloatSciEng.randM(SSAnsDegree.NDegreeParamrandM(HFloatSciEngmean(åDMSLinReg(ax+b) Òë^(LinReg(ax+b) Polaridentity(tanh(tanh(identity(Polar

Or ne possèdant pas de câble je ne peux pas taper ces caractères, j'aimerais obtenir un code du genre:

Show/Hide spoilerAfficher/Masquer le spoiler

0600165F26020E3F1E3FCDE44A79FE002806C6FF4F5F18F2C9
End
0000
End

Je pourrais taper celui-ci à la main et le lancer en écrivant "Envoi(9prgmFDOWN".

→ **MyCalcs** profile · by **critor** » 19 Apr 2010, 10:14

TASM ne fabrique pas de fichier 83p.
Je t'ai bien dit qu'il y avait 2 étapes.

TASM génère 2 fichiers:
- un fichier .obj qui contient le code que tu veux, mais en hexadécimal
- un fichier .lst qui contient le code que tu veux en texte, avec divers commentaires/indications

→ **MyCalcs** profile · by **alexvire** » 19 Apr 2010, 10:19

Donc j'ai téléchargé TASM ici.

J'ai glissé fdown.z80 dans le même répertoire que TASM, après comment faire ?

→ **MyCalcs** profile · by **critor** » 19 Apr 2010, 11:14

alexvire wrote:Donc j'ai téléchargé TASM ici.

J'ai glissé fdown.z80 dans le même répertoire que TASM, après comment faire ?

Il te faut ouvrir la fenêtre de commandes, et aller dans le bon dossier.

Tu tapes ensuite:

Code asm-z80 : Select all: tasm -b -80 -r16 nom de ton fichier .asm

Cela te génères les 2 fichiersdont je t'ai parlé précédemment:
.lst
.obj

Fin de la 1ère étape!

→ **MyCalcs** profile · by **alexvire** » 19 Apr 2010, 12:45

J'ai fais ce que vous m'avez dit, l'invite de commande me dit:
'tasm' n'est pas reconnu en tant que commande interne ou externe, un programme exécutable ou un fichier de commandes.

Pourtant j'ai bien mis "TASM.EXE" et les autres fichiers ainsi que le fichier ".asm" sur mon bureau.

→ **MyCalcs** profile · by **critor** » 19 Apr 2010, 12:48

C'est donc qu'à l'invite de commande, tu n'as pas tapé les commandes pour changer le répertoire courant et aller sur le bureau.

Essaye de taper avant:

Code bash : Select all: cd Bureau

→ **MyCalcs** profile · by **alexvire** » 19 Apr 2010, 12:55

Merci, ça marche, j'obtiens les deux fichiers, j'ai essayé avec la source de BOXWORLD, quand j'ouvre "boxworld.obj", j'obtiens ceci:

Show/Hide spoilerAfficher/Masquer le spoiler

Í•GÍUG!"€!–ÍG!"€!+–ÍG!"€!2–ÍGÍþL! "e‚2g‚!j‚6ñ#û!I–`+ý:g‚G` ý{‚^ í°~2h‚W#~2i‚G ƒý‚2e‚!Ù‚6ñ#û! "€!j‚Å~ÍG#Áö~ÍG:i‚2€:h‚2
€+ÍGÍJÍÑ•Ê–ÍÑ•Êq”ÍÑ•ÊÞ”"ÍÑ•ÊU•-ÍÑ•Ê_“_ÍÑ•Êâ•UÍÑ•ÊØ•ÍÑ• ¾:
€þÊÍ“ÍÈ•íSe‚~ÍG+ÍGÍÈ•~þñÊq”þÐ(àÍ“ÍÈ•#~þñÊq”þÐÊq”þ:(Ðw+ w:
€€ÍÈ•#~þ:(ÐÍG:
€=2
€àð•:
€þÊÍ“=2
€+ÍGÍÈ•íSe‚~ÍG:
€=2
€ÍÈ•~þñÊ”þÐ(àÍ“ÍÈ•+~þñÊ”þÐÊ”þ:(Ðw# w:
€=2
€ÍÈ•+~þ:(ÐÍG:
€€àð•:€þÊÍ“ÍÈ•~ÍG:€=2€*e‚ íB"e‚+ÍGÍÈ•~þñÊU•þÐ(àÍ“ÍÈ• íB~þñÊU•þÐÊU•þ:(Ðw w:€=2€ íB~þ:(ÐÍG:€€àð•:€þÊÍ“ÍÈ•~ÍG:€€*e‚ "e‚+ÍGÍÈ•~þñÊÞ”þÐ(àÍ“ÍÈ• ~þñÊÞ”þÐÊÞ”þ:(ÐwÍÈ• w:€€ ~þ:(ÐÍG:€=2€àð•í[e‚!j‚ÉÍtJÍfAÉ‚þ(=:g‚þ(€~þÐ#ÊÍ“÷:g‚Â_“ÍUG!"€!@–ÍGÍþLÉ
BoxWorld v1.0by Joe
WingbermuehleYou Won!ñññññ ñññññññññññññÐ ñññññññññññññ Ðñññññññññññ Ð Ð ñ ññ ñ ññ ñ ññ Ð Ð :ññññññ ñ ññññññññññ ñ ññññññññññÐ Ð Ð ññññññññññ Ðññ ññññññññññ Ð ñ ñññññññññ: ññññññññ: ññññññññññññ Ðññññññññññ ÐñÐ Ð ññññññññ ÐÐ ñÐ ññññññññ ñ ñññññññññññ ññññññññ: ñ ññññññññ Ð Ð ññññññ ÐñÐ ññ ñññññ ññ ÐñÐ ññññññ Ð Ð ññññññññ ñ ññññ ñ ñ ñññ ñññ Ð Ð Ð ñ ñññ ñÐ ñ ñññ ññññ Ð ÐÐ Ð ññññññ ñÐ ñññññññ: ñññññññññññ ñ ññññññññ ÐÐÐ Ð ññññññññ Ð ñ Ð ññññññññ ÐÐÐ Ð ñññññ: ññññññññññññññññññ

Et non de l'héxadécimal...

Edit: Juste une question, peut-on faire de même avec les fichiers ".z80" ?