$PAGE "Include File for Kernelc Importable Procedure Declarations"      00010000
                                                                        00015000
<<begin inclkcmp>>                                                      00020000
                                                                        00025000
integer procedure convextlabeltodeltap(extlabel);                       00030000
value extlabel;                                                         00035000
integer extlabel;                                                       00040000
option external;                                                        00045000
                                                                        00050000
procedure awake (pcbpt,wakecode,waitflags);                             00055000
value pcbpt,wakecode,waitflags;                                         00060000
integer pcbpt,waitflags;                                                00065000
logical wakecode;                                                       00070000
option external;                                                        00075000
                                                                        00080000
                                                                        00085000
logical procedure getsystabentry(tabledst,primary,wait');      <<06614>>00090000
value tabledst,primary,wait';                                  <<06614>>00095000
integer tabledst;                                              <<06614>>00100000
logical primary,wait';                                         <<06614>>00105000
option external;                                                        00110000
                                                                        00115000
procedure relsystabentry(tabledst,entryinx);                   <<06614>>00120000
value tabledst,entryinx;                                       <<06614>>00125000
logical tabledst,entryinx;                                     <<06614>>00130000
option external;                                                        00135000
                                                                        00140000
integer procedure portstatus(portnumber);                               00145000
value portnumber;                                                       00150000
integer portnumber;                                                     00155000
option external;                                                        00160000
procedure pseudoint;                                                    00165000
option external;                                                        00170000
                                                                        00175000
logical procedure setsysdb;                                             00180000
option external;                                                        00185000
                                                                        00190000
procedure resetdb(where);                                               00195000
value where;                                                            00200000
integer where;                                                          00205000
option external;                                                        00210000
                                                                        00215000
logical procedure exchangedb(where);                                    00220000
value where;                                                            00225000
integer where;                                                          00230000
option external;                                                        00235000
                                                                        00240000
procedure getdatasegchangestate(segnum);                                00245000
value segnum;                                                           00250000
integer segnum;                                                         00255000
option external;                                                        00260000
                                                                        00265000
procedure impede(pcbpt);                                                00270000
value pcbpt;                                                            00275000
integer pcbpt;                                                          00280000
option external;                                                        00285000
                                                                        00290000
procedure unimpede(pcbpt);                                              00295000
value pcbpt;                                                            00300000
integer pcbpt;                                                          00305000
option external;                                                        00310000
                                                                        00315000
procedure queueproc(procsysdbinx,queuename,location);                   00320000
value procsysdbinx,queuename,location;                                  00325000
integer procsysdbinx,queuename,location;                                00330000
option external;                                                        00335000
                                                                        00340000
procedure iofreeze'(objident);                                          00345000
value objident;                                                         00350000
double objident;                                               <<06653>>00355000
option external;                                                        00360000
                                                                        00365000
procedure iounfreeze'(objident);                                        00370000
value objident;                                                         00375000
double objident;                                               <<06653>>00380000
option external;                                                        00385000
                                                                        00390000
procedure queueonobject(objident);                                      00395000
value objident;                                                         00400000
double objident;                                               <<06653>>00405000
option external;                                                        00410000
                                                                        00415000
procedure wait(eventmask,specialinfo);                                  00420000
value eventmask,specialinfo;                                            00425000
integer eventmask;                                                      00430000
logical specialinfo;                                                    00435000
option external;                                                        00440000
                                                                        00445000
procedure addtolocality(sllheadinx,objidentifier,flags);       <<06622>>00450000
value sllheadinx,objidentifier,flags;                          <<06622>>00455000
integer sllheadinx,flags;                                      <<06622>>00460000
double objidentifier;                                          <<06653>>00465000
option external;                                                        00470000
                                                                        00475000
procedure prefetchobject(pin, objid);                                   00480000
value pin, objid;                                                       00485000
integer pin;                                                            00490000
double objid;                                                  <<06653>>00495000
option external;                                                        00500000
                                                                        00505000
procedure adjustlocality(procinx,objident,reqsize,flags);               00510000
value procinx,objident,reqsize,flags;                                   00515000
logical procinx,reqsize,flags;                                 <<06653>>00520000
double objident;                                               <<06653>>00525000
option external;                                                        00530000
                                                                        00535000
logical procedure setcritical;                                          00540000
option external;                                                        00545000
                                                                        00550000
procedure resetcritical(oldcritical);                                   00555000
value oldcritical;                                                      00560000
                                                                        00565000
logical oldcritical;                                                    00570000
option external;                                                        00575000
                                                                        00580000
procedure releaseregion(regionbase,reqsize);                            00585000
value regionbase,reqsize;                                               00590000
double regionbase;                                                      00595000
integer reqsize;                                                        00600000
option external;                                                        00605000
                                                                        00610000
procedure startobjwrite(objid,urgclass,regionbase,logxferreq,           00615000
                        discreqinx);                                    00620000
value objid,urgclass,regionbase,logxferreq,discreqinx;                  00625000
double objid;                                                  <<06653>>00630000
integer urgclass,logxferreq,discreqinx;                                 00635000
double regionbase;                                                      00640000
option external;                                                        00645000
                                                                        00650000
procedure recoveroc (objid,segdescstinx, ocregionbase);                 00655000
value objid, segdescstinx, ocregionbase;                                00660000
double objid,ocregionbase;                                     <<06653>>00665000
integer segdescstinx;                                          <<06653>>00670000
option external;                                                        00675000
                                                                        00680000
double procedure buildobjid(objtype,objnumber,pin);            <<06653>>00685000
value objtype,objnumber,pin;                                            00690000
integer objtype,objnumber,pin;                                          00695000
option external;                                                        00700000
                                                                        00705000
logical procedure isobjectabsent ( objid );                             00710000
value objid;                                                            00715000
double objid;                                                  <<06653>>00720000
option external;                                                        00725000
                                                                        00730000
logical procedure isobjectroc ( objid );                                00735000
value objid;                                                            00740000
double objid;                                                  <<06653>>00745000
option external;                                                        00750000
                                                               <<*8002>>00755000
                                                               <<*8002>>00760000
logical procedure isobjectimi ( objid );                       <<*8002>>00765000
value objid;                                                   <<*8002>>00770000
double objid;                                                  <<*8002>>00775000
option external;                                               <<*8002>>00780000
                                                               <<*8002>>00785000
                                                                        00790000
                                                                        00795000
integer procedure processpri(pin);                                      00800000
value pin;                                                              00805000
integer pin;                                                            00810000
option external;                                                        00815000
                                                                        00820000
                                                                        00825000
procedure flagprocabsent(pin,objident,specialinst);            <<06408>>00830000
value pin,objident,specialinst;                                <<06408>>00835000
integer pin,specialinst;                                       <<06653>>00840000
double objident;                                               <<06653>>00845000
option external;                                                        00850000
                                                                        00855000
                                                                        00860000
procedure mmstat'(event,p1,p2,p3,p4,p5,p6);                    <<06791>>00865000
value event,p1,p2,p3,p4,p5,p6;                                 <<06791>>00870000
integer event,p1,p2,p3,p4,p5,p6;                               <<06791>>00875000
option external;                                                        00880000
                                                                        00885000
procedure set'psif(pcbpt,flag);                                         00890000
value pcbpt,flag;                                                       00895000
integer pcbpt;                                                          00900000
logical flag;                                                           00905000
option external;                                                        00910000
                                                                        00915000
procedure sendmsg(destpin,destportnum,msglength,flags);                 00920000
value destpin,destportnum,msglength,flags;                              00925000
integer destpin,destportnum,msglength;                                  00930000
logical flags;                                                          00935000
option external;                                                        00940000
                                                                        00945000
procedure genspecreq(segnum,newsize,readdisp,movelength);      <<06618>>00950000
value segnum,newsize,readdisp,movelength;                      <<06618>>00955000
double segnum;                                                 <<06618>>00960000
integer newsize,readdisp,movelength;                           <<06618>>00965000
option external;                                                        00970000
                                                                        00975000
integer procedure convsegidtostinx(objidentifier);                      00980000
value objidentifier;                                                    00985000
double objidentifier;                                          <<06653>>00990000
option external;                                                        00995000
                                                                        01000000
procedure lockseg'(objident,blockedlock);                               01005000
value objident,blockedlock;                                             01010000
double objident;                                               <<06653>>01015000
logical blockedlock;                                                    01020000
option external;                                                        01025000
                                                                        01030000
procedure freezeseg'(objident,blockedlock);                             01035000
value objident,blockedlock;                                             01040000
double objident;                                               <<06653>>01045000
logical blockedlock;                                                    01050000
option external;                                                        01055000
                                                                        01060000
procedure unlockseg'(objident);                                         01065000
value objident;                                                         01070000
double objident;                                               <<06653>>01075000
option external;                                                        01080000
                                                                        01085000
procedure unfreezeseg'(objident);                                       01090000
value objident;                                                         01095000
double objident;                                               <<06653>>01100000
option external;                                                        01105000
                                                                        01110000
integer procedure getsir(sirnumber);                                    01115000
value sirnumber;                                                        01120000
integer sirnumber;                                                      01125000
option external;                                                        01130000
                                                                        01135000
procedure relsir(sirnumber,savedvalue);                                 01140000
value sirnumber,savedvalue;                                             01145000
integer sirnumber,savedvalue;                                           01150000
option external;                                                        01155000
                                                               <<06790>>01160000
procedure makeoc(descstinx,objident,reqsize,regionbase);       <<06790>>01165000
value descstinx,objident,reqsize,regionbase;                   <<06790>>01170000
integer descstinx,reqsize;                                     <<06790>>01175000
double objident,regionbase;                                    <<06790>>01180000
option external;                                               <<06790>>01185000
                                                               <<06790>>01190000
                                                                        01195000
                                                               <<06408>>01200000
procedure stringpinattail(headpin,newpin);                     <<06408>>01205000
value headpin,newpin;                                          <<06408>>01210000
integer headpin,newpin;                                        <<06408>>01215000
option external;                                               <<06408>>01220000
                                                               <<06408>>01225000
integer procedure unstringheadpin(headpin);                    <<06408>>01230000
value headpin;                                                 <<06408>>01235000
integer headpin;                                               <<06408>>01240000
option external;                                               <<06408>>01245000
                                                               <<06408>>01250000
procedure clearwws;                                                     01255000
option external;                                                        01260000
                                                                        01265000
integer procedure updatestatistics(class,subclass,subclassentry<<06408>>01270000
                                  ,startingitem,newvalueflag,  <<06408>>01275000
                                   valuechange,doubleitemflag);<<06408>>01280000
  value   class,subclass,subclassentry,startingitem,           <<06408>>01285000
          newvalueflag,valuechange,doubleitemflag;             <<06408>>01290000
  integer class,subclass,subclassentry,startingitem;           <<06408>>01295000
  double  valuechange;                                         <<06408>>01300000
  logical newvalueflag,doubleitemflag;                         <<06408>>01305000
  option  external;                                            <<06408>>01310000
                                                               <<06408>>01315000
integer procedure fupdatestatistics(class,subclass,            <<06408>>01320000
                  subclassentry,startingitem,newvalueflag,     <<06408>>01325000
                                   valuechange,doubleitemflag);<<06408>>01330000
  value   class,subclass,subclassentry,startingitem,           <<06408>>01335000
          newvalueflag,valuechange,doubleitemflag;             <<06408>>01340000
  integer class,subclass,subclassentry,startingitem;           <<06408>>01345000
  double  valuechange;                                         <<06408>>01350000
  logical newvalueflag,doubleitemflag;                         <<06408>>01355000
  option  external;                                            <<06408>>01360000
double procedure proctime;                                     <<06408>>01365000
option external;                                               <<06408>>01370000
                                                               <<06790>>01375000
procedure delay(interval);                                     <<06790>>01380000
value interval;                                                <<06790>>01385000
double interval;                                               <<06790>>01390000
option external;                                               <<06790>>01395000
<<end inclkimp>>                                                        01400000
