CloseFiles PROC NEAR ; Закрываем открытые файлы

mov bx,HandExe

cmp bx,0

3e Next

mov ah,3Eh

int 21h

30 Error

mov HandExe,0 Next:

mov bx,HandVir

cmp bx, 0

3e All

mov ah,3Eh

int 21h

30 Error

mov HandVir,0 All:ret

FreeMem PROC NEAR

; Возвращаем зарезервированную память

mov bx,MemF

cmp bx,0

30 Return

mov ah,49h

mov es,Mem3

int 21h

Return: ret

; Ошибка доступа к диску ERROR:

lea dx,Txt3 •" • ' ""

call Print ; 'Ошибка доступа к диску'

jmp Exit CSEG endS

end START

ПО. ПРОГРАММА ANTIVIR

Описание программы см. п.6.4.2.

П9.1. Текст программы AntiVir

{$Х+.Т-}

{

Программа контроля исполняемых файлов на возможность заражения компьютерным вирусом. При запуске командой ANTIVIR инициируется диалоговый режим, при запуске командой ANTIVIR /AUTO осуществляется автоматический контроль файлов, параметры которых хранятся в файле ANTIVIR.DAT.

}

Uses F Anti, {Включаем автоконтроль программы} CRT, DOS, F_Disk, Memory, StdDIg, MsgBox, HelpFile, {Этот модуль в исходном тексте входит в поставку TV и обычно

располагается в каталоге \bp\examples\idos\tvd.emos} Арр, Dialogs, Objects, Drivers,Views, Menus;

!

+-.--—--—---——-——-——---------————-—--+

1 Глобальные определения I