*	FLASH.S
*	(C) by PKF

SIZE 	equ	$8000
NUMB	equ	$20

	move.w	#3,-(a7)
	trap	#14
	addq.w	#2,a7
	move.w	#NUMB,d2
loop1:
	move.w	#SIZE-1,d1
	move.l	d0,a0
loop2:	not.l	(A0)+
	dbf	d1,loop2
	dbf	d2,loop1

	clr.l	(a7)
	trap	#1