home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / amigalib.lzh / AMIGALIB / AMIGALIB.LZH / asm_source / Fremem.asm < prev    next >
Encoding:
Assembly Source File  |  1990-01-17  |  1.0 KB  |  31 lines
  1. **************************************************************************
  2. *
  3. *                  FREMEM  by Jim Locker, SofTech Inc.
  4. *                          13 April, 1989
  5. *
  6. *                  called from AbSoft Fortran
  7. *                  calls system FREEMEM routine
  8. *                  Needed because Amiga.sub does it wrong.
  9. *
  10. *                  USAGE:
  11. *
  12. *                    Call Fremem(MEMBLOCK,MEMSIZE)
  13. *
  14. ***************************************************************************
  15.  
  16. _LVOFREEMEM  EQU  -210
  17.  
  18. FREMEM:
  19.          MOVE.L  4(A7),A3        *LOAD POINTER TO MEMBLOCK SIZE
  20.          MOVE.L  (A3),D0         *LOAD MEMBLOCK SIZE
  21.          MOVE.L  8(A7),A3        *LOAD POINTER TO MEMBLOCK POINTER
  22.          MOVEA.L (A3),A1         *LOAD MEMBLOCK POINTER
  23.          MOVEM.L A0/A4-A6,-(A7)  *SAVE EVERYTHING WE NEED
  24.          MOVEA.L 4,A6            *MOVE IN EXEC LIB POINTER
  25. *         move.l  d0,-(a7)
  26. *         move.l  #0,d0
  27. *         JSR     -114(a6)
  28.          JSR     _LVOFREEMEM(A6) *FREE THE MEMORY
  29.          MOVEM.L (A7)+,A0/A4-A6  *RESTORE EVERYTHING
  30.          RTS
  31.