include "OS.h"
xdef Install
xdef Uninstall
xdef Quit
<-- ICI!!!
pea (a5)
pea (a2)
move.l ($c8).w,a5
move.w #$700,d0
trap #1
move.l #$40078,a2
cmp.l #$200000,(a2)
bcs.s Uninstall
Install:
pea (6).w
move.l HeapAllocPtr*4(a5),a0
jsr (a0)
move.l (a2),(a0)+ ;ancien vecteur
move.w #$4e73,(a0) ;rte
move.l a0,(a2)
pea InstMsg(pc)
Quit:
move.l ST_helpMsg*4(a5),a0
jsr (a0)
addq.w #8,a7
moveq #0,d0
trap #1
move.l (a7)+,a2
move.l (a7)+,a5
rts
Uninstall:
move.l (a2),a0
pea (a0)
move.l -4(a0),(a2) ;ancien vecteur
move.l HeapFreePtr*4(a5),a0
pea UninstMsg(pc)
bra.s Quit
UninstMsg dc.b "un"
InstMsg dc.b "installed.",0
ben c ce ke g fai non??? mai meme comme ca j'ai mon internal error alors pk???
include "OS.h"
xdef Install
xdef Uninstall
xdef Quit
pea (a5)
pea (a2)
move.l ($c8).w,a5
move.w #$700,d0
trap #1
move.l #$40078,a2
cmp.l #$200000,(a2)
bcs.s Uninstall
Install:
pea (6).w
move.l HeapAllocPtr*4(a5),a0
jsr (a0)
move.l (a2),(a0)+ ;ancien vecteur
move.w #$4e73,(a0) ;rte
move.l a0,(a2)
pea InstMsg(pc)
Quit:
move.l ST_helpMsg*4(a5),a0
jsr (a0)
addq.w #8,a7
moveq #0,d0
trap #1
move.l (a7)+,a2
move.l (a7)+,a5
rts
Uninstall:
move.l (a2),a0
pea (a0)
move.l -4(a0),(a2) ;ancien vecteur
move.l HeapFreePtr*4(a5),a0
pea UninstMsg(pc)
bra.s Quit
UninstMsg dc.b "un"
InstMsg dc.b "installed.",0
g toujour l'internall error
ok mai alors si je fai ca expliquer moi l'interet du programme puisquil se desinstalle tout de suite !!!!!!!!!????????
include "OS.h"
xdef Install
xdef Uninstall
xdef Quit
Install:
pea (a5)
pea (a2)
move.l ($c8).w,a5
move.w #$700,d0
trap #1
move.l #$40078,a2
cmp.l #$200000,(a2)
bcs.s Uninstall
pea (6).w
move.l HeapAllocPtr*4(a5),a0
jsr (a0)
move.l (a2),(a0)+ ;ancien vecteur
move.w #$4e73,(a0) ;rte
move.l a0,(a2)
pea InstMsg(pc)
Quit:
move.l ST_helpMsg*4(a5),a0
jsr (a0)
addq.w #8,a7
moveq #0,d0
trap #1
move.l (a7)+,a2
move.l (a7)+,a5
rts
Uninstall:
move.l (a2),a0
pea (a0)
move.l -4(a0),(a2) ;ancien vecteur
move.l HeapFreePtr*4(a5),a0
pea UninstMsg(pc)
bra.s Quit
UninstMsg dc.b "un"
InstMsg dc.b "installed.",0
ok ca mrache pour install mai comment je fai pour les labels uninsatlle et quit fau aussi les mettres enhaut pour que ca marhce car la ca plante pareille pour unistall ????
rahh !!!
Mais comment vosu pouvez supporter cela ?
Il fait chier tout le monde depuis qq temps sur yN, il pompe des sources qu'il ne comprend pas ! il veut que vous lui fassiez son prog tout simplement !!!
PpHd Le 09/04/2004 à 16:28 Mais que quelqu'un lui fasse son programme !
TU peux dire que nous aussi nous avons débuté, mais tu peux pas dire que nous aussi, nous avons créé une vingtaine de topics en un semaine

<<< Kernel Extremis©®™ >>> et Inventeur de la différence administratif/judiciaire ! (©Yoshi Noir)
<Vertyos> un poil plus mais elle suce bien quand même la mienne ^^
<Sabrina`> tinkiete flan c juste qu'ils sont jaloux que je te trouve aussi appétissant
Il ne peut en rester qu'un... (mais qui ?)

Que cache le pays des Dieux ? -
Forum Ghibli -
Forum LittéraireLa fin d'un monde souillé est venue. L'oiseau blanc plane dans le ciel annonçant le début d'une longue ère de purification. Détachons-nous à jamais de notre vie dans ce monde de souffrance. Ô toi l'oiseau blanc, l'être vêtu de bleu, guide nous vers ce monde de pureté. - Sutra originel dork.
ok desoler je posterai que pour un probleme reel!!! je ferai d efforts