cseg    segment
        org 100h
        assume cs:cseg,ds:cseg,ss:cseg,es:cseg
START:		JMP BEGIN
		db	'Copyright (C)  Saenko  Alex ,1991',13,10
INT_21_VECT	DD 	0
doc		dw	0
pag		dw	0
fl		db	0
docf		dw	0
pagf		dW	0
flag		db	0
wers		db	0
ROUT    PROC    FAR
ROUT    ENDP
BEGIN:  CLI

        mov     ax,3517h
        int     21h

	cmp	bx,offset rout
	je	tyl
	jmp	endes

tyl:	mov	ah,3dh
	mov	al,2
	lea	dx,path
	int	21h
	mov	handle,ax

	mov	bx,ax
	mov	cx,0
	mov	dx,220
	mov	al,0
	mov	ah,42h
	int	21h

	mov	bx,handle	
	mov	ah,3fh
	mov	cx,4
	lea	dx,docf
	int	21h
	

	mov	bx,handle
	mov	cx,0
	mov	dx,220
	mov	al,0
	mov	ah,42h
	int	21h

	push	ds
	push	es
	pop	ds
	mov	dx,word	ptr int_21_vect	
	mov	ax,word ptr int_21_vect+2
        mov     ax,2517h
        int     21h

	mov	ax,word ptr doc
	mov	cx,word ptr pag
	
	pop	ds	

	mov	doc,ax
	mov	pag,cx

	push	ds
	push	es
	pop	ds
	mov	ah,49h
	int	21h
	pop	ds

	mov	ax,docf
	add	doc,ax
	mov	ax,pagf
	add	pag,ax

	mov	ah,40h
	mov	bx,handle
	mov	cx,4
	lea	dx,doc
	int	21h
	
	mov	bx,handle
	mov	ah,3eh
	int	21h

        mov     dx,offset MESSAGE
        mov     ah,09h
        int     21h

        STI
	int	20h
	
endes:	mov	ah,9
	mov	dx,offset str2
	int	21h
	int	20h

		db	4 dup(0)				
	str2       db 'ANTISKOP.COM  not found !$'
        MESSAGE    DB 'ANTISKOP.COM  is  destroyed !$'
	path		db	'abort.com',0
	handle		dw	?
cseg    ends
        END     START
