| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586 |
- 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
|
