home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / norskdata / ndkext.pas < prev    next >
Pascal/Delphi Source File  |  2020-01-01  |  3KB  |  61 lines
  1.  
  2.     (*  Various monitor-calls *)
  3.  
  4.     (*      For further reference - see Sintran III Reference Manual *)
  5.  
  6.     function    inbt ( dev : integer ): char; extern;    
  7.         (* return a character from device dev, with parity stripped *)
  8.     procedure   m8out ( Dev : integer; VAR Buffer : integer );extern;
  9.         (* output up to 8 bytes on device dev.  (possibly terminated by
  10.          * a <nul> byte.)  Registers only used for parameter passing.
  11.          *)
  12.     procedure   xbrkm ( Dev : integer; Mode : integer;
  13.                         VAR BrkTab : integer; NByt : integer ); extern;
  14.         (* set break strategy, but possible to use "user-defined" break
  15.          * strategy.
  16.          *)
  17.     procedure   t8inb ( Dev : integer; Var Data : integer;
  18.                         VAR BreakRead : boolean; VAR NByt : integer );extern;
  19.         (* read up to 8 bytes from device dev.  Currently not used 
  20.          *)
  21.     function    cxor ( ch1, ch2 : char ): char; extern;
  22.         (* return the logical xor between ch1 and ch2 *)
  23.     function    isize ( dev : integer ): integer; extern;    
  24.         (* return number of pending characters on device dev *)
  25.     function    iand ( i1 , i2 : integer ): integer; extern;
  26.         (* return logical and between i1 and i2 *)
  27.     function    ior ( i1 , i2 : integer ): integer; extern;
  28.         (* return logical or between i1 and i2 *)
  29.     procedure   cibuf ( dev : integer ); extern;
  30.         (* clear input-buffer of device dev *)
  31.     procedure   brkm ( mode : integer ); extern;
  32.         (* define break strategy to be used on the user's terminal *)
  33.     procedure   echom ( mode : integer ); extern;
  34.         (* define echo strategy to be used on the user's terminal *)
  35.     procedure   Descf; extern;
  36.         (* disable abort with <esc> *)
  37.     procedure   Eescf; extern;
  38.         (* enable abort with <esc> *)
  39.     procedure   rsio ( var runmod, idev, odev, usno: integer ); extern;
  40.         (* return runmode, input/output dev and user-ix of current run *)
  41.     procedure   outbt ( dev : integer; ch : char ); extern;
  42.         (* output ch on device dev *)
  43.     procedure   xhold( unit, n : integer); extern;
  44.         (* Put me in Time-queue for n units of time, where unit is:
  45.                 1   :   Basic time-units (20 ms)
  46.                 2   :   Seconds
  47.                 3   :   Minutes         (not used)
  48.                 4   :   Hours           (not used)
  49.         *)
  50.     function    xtime : longint; extern;
  51.         (* gives internal time in basic time-units (20 ms) *)
  52.     function    xtusd : longint; extern;
  53.         (* gives CPU time since login measured in basic time-units (20 ms) *)
  54.     procedure   resrv( dev:integer; outp, nowt:boolean;  VAR retcode:integer); extern;
  55.         (* reserve device dev. *)
  56.     procedure   reles( dev:integer; outp:boolean ); extern;
  57.         (* release device dev. *)
  58.     procedure   DoHelp;extern;
  59.         (* Separately compiled help-module *)
  60. 
  61.