**************************************************************************
*
*                  FREMEM  by Jim Locker, SofTech Inc.
*                          13 April, 1989
*
*                  called from AbSoft Fortran
*                  calls system FREEMEM routine
*                  Needed because Amiga.sub does it wrong.
*
*                  USAGE:
*
*                    Call Fremem(MEMBLOCK,MEMSIZE)
*
***************************************************************************

_LVOFREEMEM  EQU  -210

FREMEM:
         MOVE.L  4(A7),A3        *LOAD POINTER TO MEMBLOCK SIZE
         MOVE.L  (A3),D0         *LOAD MEMBLOCK SIZE
         MOVE.L  8(A7),A3        *LOAD POINTER TO MEMBLOCK POINTER
         MOVEA.L (A3),A1         *LOAD MEMBLOCK POINTER
         MOVEM.L A0/A4-A6,-(A7)  *SAVE EVERYTHING WE NEED
         MOVEA.L 4,A6            *MOVE IN EXEC LIB POINTER
*         move.l  d0,-(a7)
*         move.l  #0,d0
*         JSR     -114(a6)
         JSR     _LVOFREEMEM(A6) *FREE THE MEMORY
         MOVEM.L (A7)+,A0/A4-A6  *RESTORE EVERYTHING
         RTS