ExecBase = 4
FindTask = -294
AddPort  = -354
RemPort  = -360
OpenLib  = -408
CloseLib = -414
OpenDev  = -444
CloseDev = -450
DoIO     = -456
OpenLibrary = -552
Output   = -60
Write    = -48		
AllocMem = -198
FreeMem  = -210
FindName = -276

run:
	move.l	ExecBase,a6
	move.l	148(a6),a0	;a0 pointer naar int5
	cmpi.l	#'Band',-$2aa(a0)
	bne	GeenByte
	move.l	$110(a0),148(a6)
	move.l	$10c(a0),a4	;a4 wijst naar orginele trackdisk
	lea	350(a6),a0	;list van Resident structures
	lea	trddevice,a1
	jsr	FindName(a6)
	move.l	d0,a0
	move.l	a4,-28(a0)	;Pointer weer goed zetten
	clr.w	550(a6)		;Resident slopen
	jsr	-612(a6)
	move.l	d0,554(a6)
	lea	alert2,a0
	jsr	alertprog	;Guru
GeenByte:
	tst.l	46(a6)		;test coolcap
	beq	GeenSCA
	cmpi.l	#'SCA ',$7efd2
	bne	GeenSCA
;Uitschakelen van SCA-Virus

	clr.l	46(a6)		;Clear CoolCap
	lea	34(a6),a0
	clr.w	d0		;bereken checksum van execbase
	moveq	#$17,d1
chksum:	add.w	(a0)+,d0
	dbra	d1,chksum
	not.w	d0
	move.w	d0,(a0)
	move.l	$7efde,d0
	move.l	#$-456,a0
	move.l	a6,a1
	jsr	-420(a6)
	lea	alert1,a0
	bsr	alertprog	;Guru
GeenSCA:
	cmpi.l	#$fc06dc,$7fa20
	bne	GeenByteWarrior
	cmpi.l	#$fc06dc,$7fa4e
	bne	GeenByteWarrior

	move.l	4,a6
	clr.w	550(a6)		;Resident slopen
	jsr	-612(a6)
	move.l	d0,554(a6)

	move.l	#$fc06dc,-454(a6)
	clr.l	$7fa20
	clr.l	$7fa4e
	lea	alert5,a0
	bsr	alertprog
GeenByteWarrior:
	rts

alertprog:	;a0 moet alert struct bevatten
	move.l	a0,-(sp)
	lea	intuitionname(pc),a1	
	clr.l	d0	
	jsr	-$228(a6)	;open intuition library
	move.l	d0,a6
	move.l	#60,d1		;hoogte van alert
	clr.l	d0
	move.l	(sp)+,a0
	jsr	-90(a6)		;display alert
	move.l	a6,a1
	move.l	$4,a6
	jsr	-414(a6)	;CloseLibrary
	rts
IntuitionName:
	dc.b	'intuition.library',0
	even

trddevice:	
	dc.b	'trackdisk.device',0
	even
Alert1:
	dc.w	180
	dc.b	20
	dc.b	'Something wonderful tried to screw up your disks.',0
	dc.b	1
	dc.w	200
	dc.b	30
	dc.b	'That is history. The SCA-Virus is eliminated.',0
	dc.b	1
	dc.w	140
	dc.b	46
	dc.b	'*** Thanks to SYSTEM Z KILLER V1.0 ***',0
	dc.b	0

	even	

Alert2:
	dc.w	160
	dc.b	20
	dc.b	'ByteBandit was playing with your AMIGA.',0
	dc.b	1
	dc.w	110
	dc.b	30
	dc.b	'That is history. The ByteBandit Virus is destroyed.',0
	dc.b	1
	dc.w	140
	dc.b	46
	dc.b	'*** Thanks to the SYSTEM Z VIRUS KILLER V1.0 ***',0
	dc.b	0
	dc.b	'Coding by A.Nonymous. (PVL)'
	even	


	even
Alert5:
	dc.w	160
	dc.b	20
	dc.b	"ByteWarrior was '??? protecting ???' your disks. ",0
	dc.b	1
	dc.w	110
	dc.b	30
	dc.b	'That is history. The ByteWarrior Virus '
	dc.b	'is destroyed. ',0
	dc.b	1
	dc.w	140
	dc.b	46
	dc.b	'*** Thanks to the SYSTEM Z VIRUS KILLER V4.0 ***',0
	dc.b	0