Topspeed_JPI/TS/MODBASE/MAXFILES.MOD

IMPLEMENTATION MODULE MaxFiles;
(* copyright 1988 John McMonagle *)

  FROM EnvironUtils IMPORT
    GetPSP;

  FROM SYSTEM IMPORT
    ADR, SIZE, ADDRESS;

  FROM LowLevel IMPORT
    Fill, Move,Address8086,AddAddr;

  TYPE
    hand = ARRAY[ 0 .. 255 ] OF CHAR;

  VAR
    Handles : hand;


  PROCEDURE Max;

  VAR
    psp        : Address8086;
    pspNumber  : POINTER TO CARDINAL;
    pspHandles : POINTER TO ADDRESS;

  BEGIN
    Fill( ADR( Handles ), SIZE( Handles ), 255 );
    psp.off := 0;
    psp.seg := GetPSP( );
    pspNumber := AddAddr(psp.a,50);
    pspHandles := AddAddr(psp.a, 52);
    Move( pspHandles^, ADR( Handles ), pspNumber^ );
    pspNumber^ := 255;
    pspHandles^ := ADR( Handles );
  END Max;

BEGIN
  Max;
END MaxFiles.