;DateStamp: Sunday 07-May-89 18:43:20
; Flush.a   Flush out ram.  Mike 'Sirius' Stilson  (c) 1989 Sirius Software
;
;  A nice & tiny "Flush" program to make Exec EXPUNGE all that's EXPUNGABLE
;
;  (Assembled with CAPE this should come out to 52 bytes.. 14 bytes of program
;   and a bunch of bytes of hunk information)
;
	EXEOBJ
	OPTIMON
	SMALLOBJ
	OBJFILE		"Flush"
	LISFILE		"Flush.Lis"


AllocMem	equ	-$0c6

Flush:
	moveq	#-1,D0		; Allocate 4 Gig.
	move.l	#10001,D1	; MEMF_PUBLIC + MEMF_CLEAR
	movea.l	$4,A6		; ExecBase
	jsr	AllocMem(a6)	; AllocMem(ByteSize, Requirements) (D0/D1)
				; I hope none of you have 4 Gig... we don't
				; even test it let alone free it up.
	moveq	#0,d0		; So we don't return an error.
	rts			; Return
	END