home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / obero / oberon / projectoberonsrc / kernel.def (.txt) < prev    next >
Encoding:
Oberon Text  |  1994-10-18  |  1.1 KB  |  30 lines
  1. Syntax10.Scn.Fnt
  2. MODULE Kernel;  (*NW  11.4.86 / 24.8.92*)
  3.     TYPE Sector* = RECORD END ;
  4.     VAR ModList*: LONGINT;
  5.             NofPages*, NofSectors*, allocated*: LONGINT;
  6.             StackOrg*, HeapLimit*: LONGINT;
  7.             FileRoot*, FontRoot*: LONGINT;
  8.             SectNo*, PrAdr*: LONGINT;
  9.             pc*, fp*, eia*, err*: LONGINT; (*status upon trap*)
  10. (* Block storage management*)
  11.     PROCEDURE- AllocBlock*(VAR adr: LONGINT; size: LONGINT) 2;
  12.     PROCEDURE- FreeBlock*(adr: LONGINT) 3;
  13. (* Block storage management - garbage collector*)
  14.     PROCEDURE- GC* 4;
  15. (* Disk storage management*)
  16.     PROCEDURE- AllocSector*(hint: LONGINT; VAR sec: LONGINT) 5;
  17.     PROCEDURE- MarkSector*(sec: LONGINT) 6;
  18.     PROCEDURE- FreeSector*(sec: LONGINT) 7;
  19.     PROCEDURE- GetSector*(src: LONGINT; VAR dest: Sector) 8;
  20.     PROCEDURE- PutSector*(dest: LONGINT; VAR src: Sector) 9;
  21.     PROCEDURE- ResetDisk* 10;
  22. (* Miscellaneous procedures*)
  23.     PROCEDURE- InstallIP*(P: PROCEDURE; chan: INTEGER) 11;
  24.     PROCEDURE- InstallTrap*(P: PROCEDURE) 12;
  25.     PROCEDURE- SetICU*(n: CHAR) 13;
  26.     PROCEDURE- GetClock*(VAR time, date: LONGINT) 14;
  27.     PROCEDURE- SetClock*(time, date: LONGINT) 15;
  28.     PROCEDURE- MovePage*(src, dst, n: LONGINT) 16;
  29. END Kernel.
  30.