$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
