home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 274.lha / Flush_II / flush.asm < prev    next >
Assembly Source File  |  1989-07-26  |  952b  |  30 lines
  1. ;DateStamp: Sunday 07-May-89 18:43:20
  2. ; Flush.a   Flush out ram.  Mike 'Sirius' Stilson  (c) 1989 Sirius Software
  3. ;
  4. ;  A nice & tiny "Flush" program to make Exec EXPUNGE all that's EXPUNGABLE
  5. ;
  6. ;  (Assembled with CAPE this should come out to 52 bytes.. 14 bytes of program
  7. ;   and a bunch of bytes of hunk information)
  8. ;
  9.        EXEOBJ
  10.        OPTIMON
  11.        SMALLOBJ
  12.        OBJFILE         "Flush"
  13.        LISFILE         "Flush.Lis"
  14.  
  15.  
  16. AllocMem       equ     -$0c6
  17.  
  18. Flush:
  19.        moveq   #-1,D0          ; Allocate 4 Gig.
  20.        move.l  #10001,D1       ; MEMF_PUBLIC + MEMF_CLEAR
  21.        movea.l $4,A6           ; ExecBase
  22.        jsr     AllocMem(a6)    ; AllocMem(ByteSize, Requirements) (D0/D1)
  23.                                ; I hope none of you have 4 Gig... we don't
  24.                                ; even test it let alone free it up.
  25.        moveq   #0,d0           ; So we don't return an error.
  26.        rts                     ; Return
  27.        END
  28.  
  29.  
  30.