comment This file consists of the procedure CALLI (which performs
        the Function of CALLI (similar to the CALL Function), and
        symbolic names for the individual CALLI codes. The symbolic
        names are of the form CALLI!name, where "name" is the
        assembler mnemonic for the CALLI. Thus we have:

               CALLI!MSTIME for the MSTIME calli  ('23)

        The global variable !Skip! will be set to 0 if the CALLI
        did not Skip and -1 if the CALLI Skipped. ;

simple integer procedure Calli(integer Argument, Function);
begin "Calli"
   external integer !Skip!;
   integer Result;
   start!code
      setom !Skip!;
      move  1,Argument;
      move  2,Function;
      calli 1,(2);
      setzm !Skip!;
      movem 1,Result;
   end;
   return(Result);
end "Calli";

define CALLI!Lights = -1;
define Calli!Reset = 0;
define Calli!SetDDT = 2;
define Calli!DDTOut = 3;
define Calli!DevChr = 4;
define Calli!DDTGT = 5;
define Calli!GetChr = 6;
define Calli!DDTRL = 7;
define Calli!Wait = '10;
define Calli!Core = '11;
define Calli!Exit = '12;
define Calli!UTPClr = '13;
define Calli!Date = '14;
define Calli!LogIn = '15;
define Calli!AprEnb = '16;
define Calli!LogOut = '17;
define Calli!Switch = '20;
define Calli!ReAssign = '21;
define Calli!Timer = '22;
define Calli!MsTime = '23;
define Calli!GetPPN = '24;
define Calli!TrpSet = '25;
define Calli!RunTim = '27;
define Calli!Pjob = '30;
define Calli!Sleep = '31;
define Calli!Peek = '33;
define Calli!GetLin = '34;
define Calli!Run = '35;
define Calli!SetUWP = '36;
define Calli!ReMap = '37;
define Calli!GetSeg = '40;
define Calli!GetTab = '41;
define Calli!Spy = '42;
define Calli!SetNam = '43;
define Calli!TmpCor = '44;
define Calli!DskChr = '45;
define Calli!SysStr = '46;
define Calli!JobStr = '47;
define Calli!StrUUO = '50;
define Calli!SysPhy = '51;
define Calli!DevTyp = '53;
define Calli!DevSts = '54;
define Calli!DevPPN = '55;
define Calli!Seek = '56;
define Calli!RtTrp = '57;
define Calli!Lock = '60;
define Calli!JobSts = '61;
define Calli!Locate = '62;
define Calli!Where = '63;
define Calli!DevNam = '64;
define Calli!CtlJob = '65;
define Calli!GobStr = '66;
define Calli!HPQ = '71;
define Calli!Hiber = '72;
define Calli!Wake = '73;
define Calli!ChgPPN = '74;
define Calli!SetUUO = '75;
define Calli!OthUsr = '77;
define Calli!ChkAcc = '100;
define Calli!DevSiz = '101;
define Calli!Daemon = '102;
define Calli!JobPek = '103;
define Calli!Attach = '104;
define Calli!DaeFin = '105;
define Calli!FrcUUO = '106;
define Calli!DevLnm = '107;
define Calli!Path = '110;
define Calli!Meter = '111;
define Calli!Mtchr = '112;
define Calli!JbSet = '113;
define Calli!Poke = '114;
define Calli!Trmno = '115;
define Calli!Trmop = '116;
define Calli!ResDv = '117;
define Calli!UnLok = '120;
define Calli!Disk = '121;
define Calli!DvRst = '122;
define Calli!DvUrs = '123;
define Calli!Call11 = '125;
define Calli!MtAid = '126;
define Calli!IONdx = '127;
define Calli!Cnect = '130;
define Calli!MvHdr = '131;
define Calli!ErLst = '132;
define Calli!Sense = '133;
define Calli!ClrSt = '134;
define Calli!PiIni = '135;
define Calli!PiSys = '136;
define Calli!DeBrk = '137;
define Calli!PiSav = '140;
define Calli!PiRst = '141;
define Calli!IPCFR = '142;
define Calli!IPCFS = '143;
define Calli!IPCFQ = '144;
define Calli!Page = '145;
define Calli!SuSet = '146;
define Calli!Sched = '150;
define Calli!EnQ = '151;
define Calli!DeQ = '152;
define Calli!EnQC= '153;
define Calli!TapOp = '154;
define Calli!FilOp = '155;
define Calli!ErrPt = '160;


comment all the above are from the monitor calls manual for the
   6.02 monitor manual revision number DEC-10-OMCMA-B-DN3,
   Many of the above are either priviledged or may destroy the
   SAIL runtime system. USER BEWARE!!!!;