home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / mod / CLib next >
Encoding:
Text File  |  1995-05-08  |  277 b   |  14 lines
  1. MODULE CLib; (* SvdW, 8 May 1995 *)
  2.  
  3. (* Interface to _kernel_swi in the Shared C Library *)
  4.  
  5.  
  6. TYPE SwiRegs* = RECORD
  7.     r*: ARRAY 10 OF LONGINT;
  8.   END;
  9.  
  10. (* Call _kernel_swi via c._Clib *)
  11. PROCEDURE -KernelSwi*(swino: LONGINT; in: LONGINT; out: LONGINT): LONGINT 0;
  12.  
  13. END CLib.
  14.