[Back to MEMORY SWAG index] [Back to Main SWAG index] [Original]

    unit DOSMem;  (* By Mitch Davis *)

    interface

    function Alloc (paras:word):word;
    procedure Free (p:word);
    function Largest:word;

    implementation

    function Alloc; assembler;
    asm
      mov  ah, $48
      mov  bx, paras
      int  $21
      jnc  @1
      xor  ax, ax
      @1:
    end;

    procedure Free; assembler;
    asm
      mov  ah, $49
      mov  es, p
      int  $21
    end;

    function Largest; assembler;
    asm
      mov  ah, $48
      mov  bx, -1
      int  $21
      mov  ax, bx
    end;

    end.

[Back to MEMORY SWAG index] [Back to Main SWAG index] [Original]