;	Extra voor Kickstart V1.3
;	Ontdekt de volgende virussen en laadt ze niet in.
;	SCA, ByteBandit en ByteWarrior

;	Dit Programma in kickstart zetten vanaf adres $fc0038


;	Verder moet in de strap routine het volgende veranderd worden:

;	lea	44(a5),a1
;	jsr	12(a4)

;	moet worden:

;	jmp	$fc0038


	org	$fc0038
	load	$7c000
CheckBB:
	move.w	#[eindtabel-tabel/6]-1,d3
	lea	tabel(pc),a0
CheckLoop:
	move.w	(a0)+,d0
	move.l	(a0)+,d1
	move.l	0(a4,d0.w),d2
	cmp.l	d2,d1		;als B15 van d0 = 1 dan iets dat 
				;overgeslagen moet worden
	beq.s	Virus		;Dit BootBlock is niet bekend
	dbra	d3,CheckLoop
stop:				;Geen virus gevonden ga terug
	lea	44(a5),a1
	jsr	12(a4)
	jmp	$fe85ca


Virus:
	move.w	#$800,d0
rood:	move.w	#$0f00,$dff180
	dbra	d0,rood	
	move.l	#$ff3e94,a0	;Zet start van Dos in a0
				;Wordt normaal gedaan door het BB
	clr.l	d0
	jmp	$fe85ca

	even

Tabel:
	dc.w	$1ae		;ByteBandit $1ae(a4),$4eae fd9c
	dc.l	$4eaefd9c	;Check op jsr -612(a6)

	dc.w	$96		;ByteWarrior
	dc.l	$4eaefd9c	;Check op jsr -612(a6)

	dc.w	$56		;SCA-Virus
	dc.l	$4bf900df	;lea	$DFF000,a5

	dc.w	$3fc		;ABC-Virus
	dc.l	$0007f400	;jmp $7f400
EindTabel:
	even
l = eindtabel - $fc0038