heu simple question..
;-----------------------------------------------------
;
; Fichier
;
;-----------------------------------------------------
CreeFichier:
movem.l d1-d7/a0-a6,-(a7)
pea VarStr(pc)
CALL SymFind ;On va chercher le Handle
lea 4(a7),a7
tst.w d0
bne FichierExistant ;Si il existe deja, on ne cree pas le fichier
pea VarStr(pc)
add.l #TailleRab+1+TailleTotaleRecords+1+3+1+1-1,(a7) ;Tag (STR)
move.w #TailleRab+TailleTotaleRecords+5+1,-(a7) ;Taille par défaut
move.w #$4000,-(a7) ;C'est un Token
pea VarStr(pc) ;Nom de la Var
CALL VarStore ;On enregistre
CALL SymFind ;On va chercher le Handle
lea 12(a7),a7
FichierExistant:
move.l d0,-(a7)
CALL DerefSym
add #4,a7
move.w 12(a0),d0
move.w d0,-(a7)
CALL HLock
lea 2(a7),a7
addq.l #2,a0
move.l a0,AdresseRecords
movem.l (a7)+,d1-d7/a0-a6
rts
TailleRab equ 50
dc.b 0,"maintpsave"
VarStr dc.b 0
dc.b "---------",0,0,0,39,16
dc.b "*TI-Pang*",0,0,0,29,76
dc.b "---------",0,0,0,19,136
ds.b TailleRab
dc.b 0
dc.b "SAV",0,$f8
NombreRecords equ 3
TailleChaineRecord equ 10
TailleValeurRecord equ 4
TailleRecord equ TailleValeurRecord+TailleChaineRecord
TailleTotaleRecords equ TailleRecord*NombreRecords
SymFind equ $60
DerefSym equ $79
VarStore equ $86
ca veut dire que tu reserves cette place aussi dans ton programme... c'est carrement bourin ce truc non!