NOLIST
FreeMem     MACRO              ; 11 Jan 88
*------------------------------; Start of FreeMem macro.
                               ; Make A1 point to the memory block start.
     MOVEA.L \1.Adr,A1
                               ; Put the block size in D0.
     MOVE.L \1.Size,D0
     CallLib FreeMem,exec      ; Call FreeMem.
*------------------------------; End of FreeMem macro.
     ENDM
     LIST