;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