home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 256.lha / flush / flush.asm < prev    next >
Assembly Source File  |  1989-06-08  |  740b  |  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.