Listing: 1 2 IMPLEMENTATION MODULE MaxFiles; 3 (* copyright 1988 John McMonagle *) 4 5 FROM EnvironUtils IMPORT 6 GetPSP; 7 8 FROM SYSTEM IMPORT 9 ADR, SIZE, ADDRESS; 10 11 FROM LowLevel IMPORT 12 Fill, Move,Address8086,AddAddr; 13 14 TYPE 15 hand = ARRAY[ 0 .. 255 ] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 16 17 VAR 18 Handles : hand; ***** ^ not supported yet 19 20 21 PROCEDURE Max; 22 23 VAR 24 psp : Address8086; 25 pspNumber : POINTER TO CARDINAL; ***** ^ not supported yet 26 pspHandles : POINTER TO ADDRESS; ***** ^ not supported yet 27 28 BEGIN 29 Fill( ADR( Handles ), SIZE( Handles ), 255 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 30 psp.off := 0; ***** ^ not supported yet ***** ^ not supported yet 31 psp.seg := GetPSP( ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 32 pspNumber := AddAddr(psp.a,50); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 33 pspHandles := AddAddr(psp.a, 52); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 34 Move( pspHandles^, ADR( Handles ), pspNumber^ ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 35 pspNumber^ := 255; ***** ^ not supported yet 36 pspHandles^ := ADR( Handles ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 37 END Max; ***** ^ not supported yet 38 39 BEGIN 40 Max; ***** ^ not supported yet 41 END MaxFiles. ***** ^ not supported yet 39 errors