IMPLEMENTATION MODULE Storage ;


IMPORT SysStorage ;


PROCEDURE ALLOCATE (VAR a: ADDRESS ; Size: CARDINAL) ;
BEGIN
   SysStorage.ALLOCATE(a, Size)
END ALLOCATE ;


PROCEDURE DEALLOCATE (a: ADDRESS; Size: CARDINAL);
BEGIN
   SysStorage.DEALLOCATE(a, Size)
END DEALLOCATE ;


PROCEDURE Available (Size: CARDINAL) : BOOLEAN;
BEGIN
   RETURN( SysStorage.Available(Size) )
END Available ;


END Storage.