; Slayer - a desktop anti-virus for RISC OS
; Copyright (C) 1996 - 2000 Kiwi Software (UK)
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
;
; info@kiwisoft.co.uk
; -------------------------------------------------------------------------


#base		&8000
#type		&FF8
#name 		^.^.VDEngine

		swi	XOS_GetEnv
		mov	r13,r1

		mov	r0, #17
		adr	r1,filename
		swi	OS_File
		adr	r12, dBlock
		str	r2, [r12, #0]
		str	r3, [r12, #4]
		str	r4, [r12, #8]
		str	r5, [r12, #12]
		str	r0, [r12, #16]
		and	r2, r2, #&FFF00
		mov	r2, r2, lsr #8
		str	r2, [r12, #20]

		mov	r2, #0
		mov	r3, r12


		bl	main_engine

		adr	r1, dBlock
		mov	r2, #9*4
		swi	OS_BinaryToDecimal
		mov	r0, r1
		swi	OS_Write0

		swi	XOS_Exit

.filename	dcb	"VDEng:Viruses.Parasite",0
		align

.dBlock		dcd	0
		dcd	0
		dcd	0
		dcd	0
		dcd	0
		dcd	0
		dcd	0
		dcd	0
		dcd	0


.main_engine
#include 	"VDEng:main.s.main"
 		align

#include 	"VDEng:main.s.InfoBlocks"
 		align

