PROCEDURE ABORTSESS(JSID,JSNUM,ERR);                                    00001000
VALUE JSID,JSNUM;                                                       00002000
INTEGER JSID;                                                           00003000
DOUBLE JSNUM;                                                           00004000
INTEGER ARRAY ERR;                                                      00005000
OPTION PRIVILEGED;                                                      00006000
                                                                        00007000
         << DATA FOR BUILDING MPE INTRINSIC FILE >><<A01.01>>           00008000
PROCEDURE ACTIVATE(PIN,SUSP);                                           00009000
   VALUE           PIN,SUSP;                                            00010000
   INTEGER         PIN;                                                 00011000
   LOGICAL             SUSP;                                            00012000
      OPTION VARIABLE, EXTERNAL;                                        00013000
INTEGER PROCEDURE ADJUSTUSLF(USLFNUM,RECORDS);                          00014000
   VALUE                     USLFNUM,RECORDS;                           00015000
   INTEGER                   USLFNUM,RECORDS;                           00016000
      OPTION EXTERNAL;                                                  00017000
PROCEDURE ALTDSEG(INDEX,INC,SIZE);                                      00018000
   VALUE          INDEX,INC;                                            00019000
   LOGICAL        INDEX;                                                00020000
   INTEGER              INC,SIZE;                                       00021000
      OPTION EXTERNAL;                                                  00022000
PROCEDURE ARITRAP(STATE);                                               00023000
   VALUE          STATE;                                                00024000
   LOGICAL        STATE;                                                00025000
      OPTION EXTERNAL;                                                  00026000
INTEGER PROCEDURE ASCII(WD,BASE,STR);                                   00027000
   VALUE                WD,BASE;                                        00028000
   LOGICAL              WD;                                             00029000
   INTEGER                 BASE;                                        00030000
   BYTE ARRAY                   STR;                                    00031000
      OPTION EXTERNAL;                                                  00032000
LOGICAL PROCEDURE BINARY(STR,LEN);                                      00033000
   VALUE                     LEN;                                       00034000
   BYTE ARRAY            STR;                                           00035000
   INTEGER                   LEN;                                       00036000
      OPTION EXTERNAL;                                                  00037000
LOGICAL PROCEDURE CALENDAR;                                             00038000
      OPTION EXTERNAL;                                                  00039000
PROCEDURE CAUSEBREAK;                                                   00040000
      OPTION EXTERNAL;                                                  00041000
INTEGER PROCEDURE CLEANUSL(USLFILE,FILENAME);                  <<00695>>00042000
   VALUE USLFILE;                                              <<00695>>00043000
   INTEGER USLFILE;                                            <<00695>>00044000
   BYTE ARRAY FILENAME;                                        <<00695>>00045000
   OPTION EXTERNAL;                                            <<00695>>00046000
DOUBLE PROCEDURE CLOCK;                                                 00047000
      OPTION EXTERNAL;                                                  00048000
PROCEDURE COMMAND(IMAGE,ERR,P);                                         00049000
   BYTE ARRAY     IMAGE;                                                00050000
   INTEGER              ERR,P;                                          00051000
      OPTION EXTERNAL;                                                  00052000
PROCEDURE CREATE(PROGNAME,ENTRYNAME,PIN,PARAM,FLAGS,STACKSIZE,DLSIZE,   00053000
                    MAXDATA,PRIORITYCLASS,RANK);                        00054000
   VALUE                                PARAM,FLAGS,STACKSIZE,DLSIZE,   00055000
                    MAXDATA,PRIORITYCLASS,RANK;                         00056000
   INTEGER                          PIN,PARAM,      STACKSIZE,DLSIZE,   00057000
                    MAXDATA,              RANK;                         00058000
   LOGICAL                                    FLAGS,                    00059000
                            PRIORITYCLASS;                              00060000
   BYTE ARRAY    PROGNAME,ENTRYNAME;                                    00061000
      OPTION VARIABLE, EXTERNAL;                                        00062000
PROCEDURE CTRANSLATE(CODE,INSTRING,OUTSTRING,STRINGLENGTH,TABLE);       00063000
   VALUE CODE,STRINGLENGTH;                                             00064000
   INTEGER CODE,STRINGLENGTH;                                           00065000
   BYTE ARRAY INSTRING,OUTSTRING,TABLE;                                 00066000
      OPTION VARIABLE, EXTERNAL;                                        00067000
INTEGER PROCEDURE DASCII (WD, BASE, STR);                               00068000
   VALUE WD, BASE;                                                      00069000
   DOUBLE WD;                                                           00070000
   INTEGER BASE;                                                        00071000
   BYTE ARRAY STR;                                                      00072000
      OPTION EXTERNAL;                                                  00073000
PROCEDURE DATE'LINE(STRING);                                   <<04.EB>>00074000
   BYTE ARRAY STRING;                                          <<04.EB>>00075000
      OPTION EXTERNAL;                                         <<04.EB>>00076000
DOUBLE PROCEDURE DBINARY (STR, LEN);                                    00077000
   VALUE LEN;                                                           00078000
   BYTE ARRAY STR;                                                      00079000
   INTEGER LEN;                                                         00080000
      OPTION EXTERNAL;                                                  00081000
PROCEDURE DEBUG;                                                        00082000
      OPTION EXTERNAL;                                                  00083000
INTEGER PROCEDURE DLSIZE(SIZE);                                         00084000
   VALUE                 SIZE;                                          00085000
   INTEGER               SIZE;                                          00086000
      OPTION EXTERNAL;                                                  00087000
PROCEDURE DMOVIN(INDEX,DISP,NUMBER,LOCATION);                           00088000
  VALUE   INDEX,DISP,NUMBER;                                            00089000
  LOGICAL INDEX;                                                        00090000
  INTEGER DISP,NUMBER;                                                  00091000
  ARRAY   LOCATION;                                                     00092000
      OPTION EXTERNAL;                                                  00093000
PROCEDURE DMOVOUT(INDEX,DISP,NUMBER,LOCATION);                          00094000
  VALUE   INDEX,DISP,NUMBER;                                            00095000
  LOGICAL INDEX;                                                        00096000
  INTEGER DISP,NUMBER;                                                  00097000
  ARRAY   LOCATION;                                                     00098000
      OPTION EXTERNAL;                                                  00099000
PROCEDURE DUMPPMAP(PROGFILE, XPMAPFILE, XPMAPRECLEN, RECCOUNT,          00100000
                   SEGNUM, STATUS);                                     00101000
   VALUE PROGFILE, XPMAPFILE, XPMAPRECLEN, SEGNUM;                      00102000
   INTEGER PROGFILE;              << PROGRAM/SL FILE NUMBER >>          00103000
   INTEGER XPMAPFILE;             << EXTERNAL PMAP FILE # >>            00104000
   INTEGER XPMAPRECLEN;           << MAX LENGTH OF XPMAP RECS >>        00105000
   INTEGER SEGNUM;                 << SEGMENT TO BE DUMPED >>           00106000
   INTEGER RECCOUNT;              << RECORD COUNT RETURNED >>           00107000
   INTEGER STATUS;                << STATUS CODE RETURNED >>            00108000
OPTION EXTERNAL;                                                        00109000
INTEGER PROCEDURE EXPANDUSLF (FNUM,RECORDS);                            00110000
   VALUE FNUM,RECORDS;                                                  00111000
   INTEGER FNUM,RECORDS;                                                00112000
      OPTION EXTERNAL;                                                  00113000
INTEGER PROCEDURE FATHER;                                               00114000
      OPTION EXTERNAL;                                                  00115000
PROCEDURE FCARD(RECODE,FILENUM,BUFADR,COUNT,STATUS);                    00116000
   INTEGER RECODE,FILENUM,COUNT,STATUS;                                 00117000
   INTEGER ARRAY BUFADR;                                                00118000
      OPTION EXTERNAL;                                                  00119000
PROCEDURE FCHECK (FILENUM,ERRORCODE,TLOG,BLKNUM,NUMRECS);               00120000
   VALUE FILENUM;                                                       00121000
   INTEGER FILENUM,ERRORCODE,TLOG,NUMRECS;                              00122000
   DOUBLE BLKNUM;                                                       00123000
      OPTION VARIABLE, EXTERNAL;                                        00124000
PROCEDURE FCLOSE (FILENUM,DISP,SECCODE);                                00125000
   VALUE FILENUM,DISP,SECCODE;                                          00126000
   INTEGER FILENUM,DISP,SECCODE;                                        00127000
      OPTION EXTERNAL;                                                  00128000
PROCEDURE FCONTROL (FILENUM,CONTROLCODE,PARAM);                         00129000
   VALUE FILENUM,CONTROLCODE;                                           00130000
   INTEGER FILENUM,CONTROLCODE;                                         00131000
   LOGICAL PARAM;                                                       00132000
      OPTION EXTERNAL;                                                  00133000
PROCEDURE FDELETE (FILENUM,REC);                               <<01RIO>>00134000
   VALUE FILENUM,REC;                                          <<01RIO>>00135000
   INTEGER FILENUM;  <<REQUIRED>>                              <<01RIO>>00136000
   DOUBLE REC;  <<OPTIONAL>>                                   <<01RIO>>00137000
   OPTION VARIABLE,EXTERNAL;                                   <<01RIO>>00138000
PROCEDURE FDEVICECONTROL(FILENO,TARGET,TCOUNT,CNTRLCODE,       <<01661>>00139000
              P1,P2,ERRNUM);                                   <<01661>>00140000
   VALUE FILENO,TCOUNT,P1,P2,CNTRLCODE;                        <<01661>>00141000
   INTEGER FILENO,TCOUNT,ERRNUM;                               <<01661>>00142000
   LOGICAL CNTRLCODE,P1,P2;                                    <<01661>>00143000
   ARRAY TARGET;                                               <<01661>>00144000
   OPTION EXTERNAL;                                            <<01661>>00145000
PROCEDURE FERRMSG(ERRNUM,MSGBUF,MSGLGTH);                               00146000
   INTEGER ERRNUM,MSGLGTH;                                              00147000
   ARRAY MSGBUF;                                                        00148000
      OPTION EXTERNAL;                                                  00149000
PROCEDURE FFILEINFO (FILENUM,                                  <<01RIO>>00150000
                     ITEMNUM1,ITEMVAL1,ITEMNUM2,ITEMVAL2,      <<01RIO>>00151000
                     ITEMNUM3,ITEMVAL3,ITEMNUM4,ITEMVAL4,      <<01RIO>>00152000
                     ITEMNUM5,ITEMVAL5);                       <<01RIO>>00153000
   VALUE FILENUM,ITEMNUM1,ITEMNUM2,ITEMNUM3,ITEMNUM4,ITEMNUM5; <<01RIO>>00154000
   INTEGER FILENUM;  <<REQUIRED>>                              <<01RIO>>00155000
   INTEGER ITEMNUM1; BYTE ARRAY ITEMVAL1;  <<OPTIONAL>>        <<01RIO>>00156000
   INTEGER ITEMNUM2; BYTE ARRAY ITEMVAL2;  <<OPTIONAL>>        <<01RIO>>00157000
   INTEGER ITEMNUM3; BYTE ARRAY ITEMVAL3;  <<OPTIONAL>>        <<01RIO>>00158000
   INTEGER ITEMNUM4; BYTE ARRAY ITEMVAL4;  <<OPTIONAL>>        <<01RIO>>00159000
   INTEGER ITEMNUM5; BYTE ARRAY ITEMVAL5;  <<OPTIONAL>>        <<01RIO>>00160000
   OPTION VARIABLE,EXTERNAL;                                   <<01RIO>>00161000
PROCEDURE FGETINFO (FILENUM,FILENAME,FOPTIONS,AOPTIONS,RECSIZE,         00162000
   DEVTYPE,LDNUM,HDADDR,FILECODE,RECPTR,EOF,FLIMIT,LOGCOUNT,PHYSCOUNT,  00163000
   BLKSIZE,EXTSIZE,NUMEXTENTS,USERLABELS,CREATORID,DISKADR);            00164000
   VALUE FILENUM;                                                       00165000
   INTEGER FILENUM,RECSIZE,DEVTYPE,FILECODE,BLKSIZE,NUMEXTENTS,         00166000
   USERLABELS;                                                          00167000
   BYTE ARRAY FILENAME,CREATORID;                                       00168000
   LOGICAL FOPTIONS,AOPTIONS,LDNUM,HDADDR,EXTSIZE;                      00169000
   DOUBLE RECPTR,EOF,FLIMIT,LOGCOUNT,PHYSCOUNT,DISKADR;                 00170000
      OPTION VARIABLE, EXTERNAL;                                        00171000
PROCEDURE FINDJCW(JCWNAME,JCWVALUE,STATUS);                    <<01.HC>>00172000
   BYTE ARRAY JCWNAME;                                         <<01.HC>>00173000
   LOGICAL JCWVALUE;                                           <<01461>>00174000
   INTEGER STATUS;                                             <<01461>>00175000
      OPTION EXTERNAL;                                         <<01.HC>>00176000
PROCEDURE FINDPMAPADDR(PROGFILE, SEGNUM, ADDRESS, XPMAPREC,             00177000
                       XPMAPRECLEN, STATUS);                            00178000
   VALUE PROGFILE, SEGNUM, ADDRESS, XPMAPRECLEN;                        00179000
   INTEGER PROGFILE;              << PROGRAM/SL <FOPEN> NUMBER >>       00180000
   INTEGER SEGNUM;                 << # OF SEG CONTAINING ADDR >>       00181000
   INTEGER ADDRESS;               << ADDRESS TO SEARHCH FOR >>          00182000
   INTEGER ARRAY XPMAPREC;        << EXTERNAL PMAP REC RETURNED>>       00183000
   INTEGER XPMAPRECLEN;           << # WORDS TO RETURN >>               00184000
   INTEGER STATUS;                << STATUS RETURNED >>                 00185000
OPTION EXTERNAL;                                                        00186000
PROCEDURE FINDPMAPNAME(PROGFILE, SEGNAME, ENTNAME, XPMAPREC,            00187000
                       XPMAPRECLEN, STATUS);                            00188000
   VALUE PROGFILE, XPMAPRECLEN;                                         00189000
   INTEGER PROGFILE;              << PROGRAM/SL FILE NUMBER >>          00190000
   BYTE ARRAY SEGNAME;            << SEGMENT NAME TO BE FOUND >>        00191000
   BYTE ARRAY ENTNAME;            << ENTRY POINT TO BE FOUND >>         00192000
   INTEGER ARRAY XPMAPREC;        << EXTERN. PMAP REC RETURNED >>       00193000
   INTEGER XPMAPRECLEN;           << # WORDS TO BE RETURNED >>          00194000
   INTEGER STATUS;                << STATUS RETURNED >>                 00195000
OPTION VARIABLE,EXTERNAL;                                               00196000
LOGICAL PROCEDURE FINTSTATE (NEWSTATE);                                 00197000
   VALUE NEWSTATE;                                                      00198000
   LOGICAL NEWSTATE;                                                    00199000
    OPTION EXTERNAL;                                                    00200000
PROCEDURE FINTEXIT (NEWSTATE);                                          00201000
   VALUE NEWSTATE;                                                      00202000
   LOGICAL NEWSTATE;                                                    00203000
    OPTION VARIABLE, EXTERNAL;                                          00204000
PROCEDURE FLABELINFO (FNAME,MODE,MERROR,ITEMS,VALUES,ERRORS);           00205000
   VALUE MODE;                                                          00206000
   BYTE ARRAY FNAME, VALUES;                                            00207000
   INTEGER MODE, MERROR;                                                00208000
   INTEGER ARRAY ITEMS, ERRORS;                                         00209000
   OPTION EXTERNAL;                                                     00210000
PROCEDURE FLOCK (FILENUM,T);                                            00211000
   VALUE FILENUM,T;                                                     00212000
   INTEGER FILENUM;                                                     00213000
   LOGICAL T;                                                           00214000
      OPTION EXTERNAL;                                                  00215000
PROCEDURE FMTCALENDAR(CALENDAR',STRING);                       <<04.EB>>00216000
   VALUE CALENDAR';                                            <<04.EB>>00217000
   LOGICAL CALENDAR';                                          <<04.EB>>00218000
   BYTE ARRAY STRING;                                          <<04.EB>>00219000
      OPTION EXTERNAL;                                         <<04.EB>>00220000
PROCEDURE FMTCLOCK(CLOCK',STRING);                             <<04.EB>>00221000
   VALUE CLOCK';                                               <<04.EB>>00222000
   DOUBLE CLOCK';                                              <<04.EB>>00223000
   BYTE ARRAY STRING;                                          <<04.EB>>00224000
      OPTION EXTERNAL;                                         <<04.EB>>00225000
PROCEDURE FMTDATE(CALENDAR',CLOCK',STRING);                    <<04.EB>>00226000
   VALUE CALENDAR',CLOCK';                                     <<04.EB>>00227000
   LOGICAL CALENDAR';                                          <<04.EB>>00228000
   DOUBLE CLOCK';                                              <<04.EB>>00229000
   BYTE ARRAY STRING;                                          <<04.EB>>00230000
      OPTION EXTERNAL;                                         <<04.EB>>00231000
INTEGER PROCEDURE FOPEN (FORMDESIGNATOR,FOPTIONS,AOPTIONS,RECSIZE,      00232000
   DEVICE,FORMMSG,USERLABELS,BLOCKFACTOR,NUMBUFFERS,FILESIZE,           00233000
   NUMEXTENTS,INITALLOC,FILECODE);                                      00234000
   VALUE FOPTIONS,AOPTIONS,RECSIZE,USERLABELS,BLOCKFACTOR,NUMBUFFERS,   00235000
   FILESIZE,NUMEXTENTS,INITALLOC,FILECODE;                              00236000
   BYTE ARRAY FORMDESIGNATOR,DEVICE,FORMMSG;                            00237000
   LOGICAL FOPTIONS,AOPTIONS;                                           00238000
   INTEGER RECSIZE,USERLABELS,BLOCKFACTOR,NUMBUFFERS,NUMEXTENTS,        00239000
   INITALLOC,FILECODE;                                                  00240000
   DOUBLE FILESIZE;                                                     00241000
      OPTION VARIABLE, EXTERNAL;                                        00242000
PROCEDURE FPARSE (FD'STRING, RESULT, ITEMS, USERS'VECTORS);             00243000
   BYTE ARRAY FD'STRING;                                                00244000
   INTEGER ARRAY RESULT, ITEMS;                                         00245000
   DOUBLE ARRAY USERS'VECTORS;                                          00246000
   OPTION VARIABLE, EXTERNAL;                                           00247000
PROCEDURE FPOINT (FILENUM,RECNUM);                                      00248000
   VALUE FILENUM,RECNUM;                                                00249000
   INTEGER FILENUM;                                                     00250000
   DOUBLE RECNUM;                                                       00251000
      OPTION EXTERNAL;                                                  00252000
INTEGER PROCEDURE FREAD(FILENUM,TARGET,TCOUNT);                         00253000
   VALUE FILENUM,TCOUNT;                                                00254000
   INTEGER FILENUM,TCOUNT;                                              00255000
   ARRAY TARGET;                                                        00256000
      OPTION EXTERNAL;                                                  00257000
INTEGER PROCEDURE FREADBACKWARD(FILENUM,TARGET,TCOUNT);        <<01996>>00258000
   VALUE FILENUM,TCOUNT;                                       <<01996>>00259000
   INTEGER FILENUM,TCOUNT;                                     <<01996>>00260000
   ARRAY TARGET;                                               <<01996>>00261000
      OPTION EXTERNAL;                                         <<01996>>00262000
PROCEDURE FREADDIR (FILENUM,TARGET,TCOUNT,RECNUM);                      00263000
   VALUE FILENUM,TCOUNT,RECNUM;                                         00264000
   INTEGER FILENUM,TCOUNT;                                              00265000
   ARRAY TARGET;                                                        00266000
   DOUBLE RECNUM;                                                       00267000
      OPTION EXTERNAL;                                                  00268000
PROCEDURE FREADLABEL(FN,TARGET,TCOUNT,LBL);                             00269000
   VALUE FN,TCOUNT,LBL;                                                 00270000
   INTEGER FN,TCOUNT,LBL;                                               00271000
   ARRAY TARGET;                                                        00272000
      OPTION EXTERNAL,VARIABLE;                                         00273000
PROCEDURE FREADSEEK(FN,REC);                                            00274000
   VALUE FN,REC;                                                        00275000
   INTEGER FN;                                                          00276000
   DOUBLE REC;                                                          00277000
      OPTION EXTERNAL;                                                  00278000
PROCEDURE FREEDSEG(INDEX,ID);                                           00279000
   VALUE   INDEX,ID;                                                    00280000
   LOGICAL INDEX,ID;                                                    00281000
      OPTION EXTERNAL;                                                  00282000
PROCEDURE FREELOCRIN;                                                   00283000
      OPTION EXTERNAL;                                                  00284000
LOGICAL PROCEDURE FRELATE(FN1,FN2);                                     00285000
   VALUE FN1,FN2;                                                       00286000
   INTEGER FN1,FN2;                                                     00287000
      OPTION EXTERNAL;                                                  00288000
PROCEDURE FRENAME (FILENUM,NEWFREF);                                    00289000
   VALUE FILENUM;                                                       00290000
   INTEGER FILENUM;                                                     00291000
   BYTE ARRAY NEWFREF;                                                  00292000
      OPTION EXTERNAL;                                                  00293000
PROCEDURE FSETMODE(FN,FLAGS);                                           00294000
  VALUE FN,FLAGS;                                                       00295000
  INTEGER FN;                                                           00296000
  LOGICAL FLAGS;                                                        00297000
     OPTION EXTERNAL;                                                   00298000
PROCEDURE FSPACE (FILENUM,DISPLACEMENT );                               00299000
   VALUE FILENUM,DISPLACEMENT;                                          00300000
   INTEGER FILENUM,DISPLACEMENT;                                        00301000
      OPTION EXTERNAL;                                                  00302000
PROCEDURE FUNLOCK (FILENUM);                                            00303000
   VALUE FILENUM;                                                       00304000
   INTEGER FILENUM;                                                     00305000
      OPTION EXTERNAL;                                                  00306000
PROCEDURE FUPDATE (FILENUM,TARGET,TCOUNT);                              00307000
   VALUE FILENUM,TCOUNT;                                                00308000
   INTEGER FILENUM,TCOUNT;                                              00309000
   ARRAY TARGET;                                                        00310000
      OPTION EXTERNAL;                                                  00311000
PROCEDURE FWRITE (FILENUM,TARGET,TCOUNT,CONTROL);                       00312000
   VALUE FILENUM,TCOUNT,CONTROL;                                        00313000
   INTEGER FILENUM,TCOUNT;                                              00314000
   ARRAY TARGET;                                                        00315000
   LOGICAL CONTROL;                                                     00316000
      OPTION EXTERNAL;                                                  00317000
PROCEDURE FWRITEDIR(FILENUM,TARGET,TCOUNT,RECNUM);                      00318000
   VALUE FILENUM,TCOUNT,RECNUM;                                         00319000
   INTEGER FILENUM,TCOUNT;                                              00320000
   ARRAY TARGET;                                                        00321000
   DOUBLE RECNUM;                                                       00322000
      OPTION EXTERNAL;                                                  00323000
PROCEDURE FWRITELABEL(FN,TARGET,TCOUNT,LBL);                            00324000
   VALUE FN,TCOUNT,LBL;                                                 00325000
   INTEGER FN,TCOUNT,LBL;                                               00326000
   ARRAY TARGET;                                                        00327000
      OPTION EXTERNAL,VARIABLE;                                         00328000
INTEGER PROCEDURE GENMESSAGE(FILENO,SETNO,MSGNO,BUFF,          <<08.EB>>00329000
      BUFFSIZE,PARMASK,PARM1,PARM2,PARM3,PARM4,PARM5,          <<08.EB>>00330000
      DESTFILE,ERRNO);                                         <<08.EB>>00331000
   VALUE FILENO,SETNO,MSGNO,BUFFSIZE,PARMASK,PARM1,            <<08.EB>>00332000
      PARM2,PARM3,PARM4,PARM5,DESTFILE;                        <<08.EB>>00333000
   INTEGER FILENO,SETNO,MSGNO,BUFFSIZE,DESTFILE,ERRNO;         <<08.EB>>00334000
   BYTE ARRAY BUFF;                                            <<08.EB>>00335000
   LOGICAL PARMASK,PARM1,PARM2,PARM3,PARM4,PARM5;              <<08.EB>>00336000
   OPTION VARIABLE,EXTERNAL;                                   <<08.EB>>00337000
PROCEDURE GETDSEG(INDEX,LENGTH,ID);                                     00338000
   VALUE   ID;                                                          00339000
   LOGICAL INDEX,ID;                                                    00340000
   INTEGER LENGTH;                                                      00341000
      OPTION EXTERNAL;                                                  00342000
INTEGER PROCEDURE GETINFO (INFO,INFOLEN,PARM);                          00343000
BYTE ARRAY INFO;                                                        00344000
INTEGER INFOLEN,PARM;                                                   00345000
OPTION PRIVILEGED,VARIABLE,EXTERNAL;                                    00346000
LOGICAL PROCEDURE GETJCW;                                               00347000
      OPTION EXTERNAL;                                                  00348000
PROCEDURE GETLOCRIN(N);                                                 00349000
   VALUE N;                                                             00350000
   LOGICAL N;                                                           00351000
      OPTION EXTERNAL;                                                  00352000
INTEGER PROCEDURE GETORIGIN;                                            00353000
      OPTION EXTERNAL;                                                  00354000
PROCEDURE GETPRIORITY(PIN,PRIORITYCLASS,RANK);                          00355000
   VALUE PIN,PRIORITYCLASS,RANK;                                        00356000
   LOGICAL PRIORITYCLASS;INTEGER PIN,RANK;                              00357000
      OPTION VARIABLE, EXTERNAL;                                        00358000
PROCEDURE GETPRIVMODE;                                                  00359000
      OPTION EXTERNAL;                                                  00360000
INTEGER PROCEDURE GETPROCID(Y); VALUE Y; INTEGER Y;                     00361000
      OPTION EXTERNAL;                                                  00362000
DOUBLE PROCEDURE GETPROCINFO(PIN);VALUE PIN;INTEGER PIN;                00363000
      OPTION EXTERNAL;                                                  00364000
PROCEDURE GETUSERMODE;                                                  00365000
      OPTION EXTERNAL;                                                  00366000
INTEGER PROCEDURE INITUSLF (USLFNUM,REC0);                              00367000
   VALUE USLFNUM;                                                       00368000
   INTEGER USLFNUM;                                                     00369000
   INTEGER ARRAY REC0;                                                  00370000
      OPTION EXTERNAL;                                                  00371000
INTEGER PROCEDURE IODONTWAIT(IONUM,INBUF,RLENGTH,CSTATION);             00372000
   VALUE IONUM;                                                         00373000
   INTEGER IONUM,RLENGTH;                                               00374000
   LOGICAL CSTATION;                                                    00375000
   ARRAY INBUF;                                                         00376000
      OPTION VARIABLE, EXTERNAL;                                        00377000
INTEGER PROCEDURE IOWAIT(IONUMBER,INPUTBUFFER,RECORDLENGTH,CSTATION);   00378000
   VALUE IONUMBER;                                                      00379000
   INTEGER IONUMBER,RECORDLENGTH;                                       00380000
   LOGICAL CSTATION;                                                    00381000
   ARRAY INPUTBUFFER;                                                   00382000
      OPTION VARIABLE, EXTERNAL;                                        00383000
PROCEDURE KILL(PIN);VALUE PIN;INTEGER PIN;                              00384000
      OPTION EXTERNAL;                                                  00385000
INTEGER PROCEDURE LOADPROC (PROCNAME,LIBSEARCH,PLABEL);                 00386000
   VALUE LIBSEARCH;                                                     00387000
   BYTE ARRAY PROCNAME;                                                 00388000
   INTEGER LIBSEARCH,PLABEL;                                            00389000
      OPTION EXTERNAL;                                                  00390000
PROCEDURE LOCKGLORIN(RIN,UNCOND,RINPASSW);                              00391000
   VALUE RIN;INTEGER RIN; LOGICAL UNCOND;BYTE ARRAY RINPASSW;           00392000
      OPTION EXTERNAL;                                                  00393000
PROCEDURE LOCKLOCRIN(Y,T);                                              00394000
   VALUE Y;INTEGER Y;LOGICAL T;                                         00395000
      OPTION EXTERNAL;                                                  00396000
PROCEDURE LOGINFO(ENTRY'INDEX,STATUS',ITEMNUM1,ITEMVAL1,        << CML>>00397000
         ITEMNUM2,ITEMVAL2,ITEMNUM3,ITEMVAL3,ITEMNUM4,ITEMVAL4);<< CML>>00398000
VALUE ENTRY'INDEX,ITEMNUM1,ITEMNUM2,ITEMNUM3,ITEMNUM4;          << CML>>00399000
DOUBLE ENTRY'INDEX;                                             << CML>>00400000
INTEGER STATUS',ITEMNUM1,ITEMNUM2,ITEMNUM3,ITEMNUM4;            << CML>>00401000
BYTE ARRAY ITEMVAL1,ITEMVAL2,ITEMVAL3,ITEMVAL4;                 << CML>>00402000
OPTION VARIABLE,PRIVILEGED;                                     << CML>>00403000
LOGICAL PROCEDURE MAIL(PIN,COUNT);                                      00404000
   VALUE   PIN;                                                         00405000
   INTEGER PIN,COUNT;                                                   00406000
      OPTION EXTERNAL;                                                  00407000
INTEGER PROCEDURE MYCOMMAND (IMAGE, DELS, MP, NP, PS, DC, DF);          00408000
   VALUE MP;                                                            00409000
   BYTE ARRAY IMAGE, DELS, DC;                                          00410000
   INTEGER MP, NP;                                                      00411000
   DOUBLE ARRAY PS;                                                     00412000
   BYTE POINTER DF;                                                     00413000
      OPTION VARIABLE, EXTERNAL;                                        00414000
PROCEDURE PAUSE(TIME);                                                  00415000
   REAL TIME;                                                           00416000
      OPTION EXTERNAL;                                                  00417000
PROCEDURE PRINT(MESSAGE,LENGTH,CONTROL);                                00418000
   VALUE                LENGTH,CONTROL;                                 00419000
   INTEGER              LENGTH,CONTROL;                                 00420000
   ARRAY        MESSAGE;                                                00421000
      OPTION EXTERNAL;                                                  00422000
PROCEDURE PRINT'FILE'INFO(FNUM);                               <<01795>>00423000
VALUE FNUM;                                                    <<01795>>00424000
INTEGER FNUM;                                                  <<01795>>00425000
OPTION EXTERNAL;                                               <<01795>>00426000
PROCEDURE PRINTFILEINFO (F);                                            00427000
          VALUE          F;                                             00428000
          INTEGER        F;                                             00429000
    OPTION EXTERNAL;                                                    00430000
PROCEDURE PRINTOP (BUF, LEN, CNTRL);                                    00431000
   VALUE LEN, CNTRL;                                                    00432000
   ARRAY BUF;                                                           00433000
   INTEGER LEN, CNTRL;                                                  00434000
      OPTION EXTERNAL;                                                  00435000
INTEGER PROCEDURE PRINTOPREPLY(MESS,LEN,CONT,REPLY,EXPL);               00436000
   VALUE LEN,CONT,EXPL;                                                 00437000
   ARRAY MESS,REPLY;                                                    00438000
   INTEGER LEN,CONT,EXPL;                                               00439000
      OPTION EXTERNAL;                                                  00440000
DOUBLE PROCEDURE PROCTIME;                                              00441000
      OPTION EXTERNAL;                                                  00442000
PROCEDURE PTAPE(FNT,FND);                                               00443000
   VALUE      FNT,FND;                                                  00444000
   INTEGER    FNT,FND;                                                  00445000
      OPTION EXTERNAL;                                                  00446000
PROCEDURE PUTJCW(JCWNAME,JCWVALUE,STATUS);                     <<01.HC>>00447000
   BYTE ARRAY JCWNAME;                                         <<01.HC>>00448000
   LOGICAL JCWVALUE;                                           <<01461>>00449000
   INTEGER STATUS;                                             <<01461>>00450000
      OPTION EXTERNAL;                                         <<01.HC>>00451000
PROCEDURE QUIT(NUM);                                                    00452000
   VALUE   NUM;                                                         00453000
   INTEGER NUM;                                                         00454000
      OPTION EXTERNAL;                                                  00455000
PROCEDURE QUITPROG(NUM);                                                00456000
   VALUE NUM;                                                           00457000
   INTEGER NUM;                                                         00458000
      OPTION EXTERNAL;                                                  00459000
INTEGER PROCEDURE READ (BUF, LEN);                                      00460000
   VALUE LEN;                                                           00461000
   ARRAY BUF;                                                           00462000
   INTEGER LEN;                                                         00463000
      OPTION EXTERNAL;                                                  00464000
INTEGER PROCEDURE READX(MESSAGE,EXPECTEDL);                             00465000
   VALUE EXPECTEDL;                                                     00466000
   ARRAY MESSAGE;INTEGER EXPECTEDL;                                     00467000
      OPTION EXTERNAL;                                                  00468000
LOGICAL PROCEDURE RECEIVEMAIL(PIN,LOCATION,WAITFLAG);                   00469000
   VALUE   PIN,WAITFLAG;                                                00470000
   LOGICAL WAITFLAG;                                                    00471000
   INTEGER PIN;                                                         00472000
   ARRAY   LOCATION;                                                    00473000
      OPTION EXTERNAL;                                                  00474000
PROCEDURE RESETCONTROL;                                                 00475000
      OPTION EXTERNAL;                                                  00476000
PROCEDURE RESETDUMP;                                                    00477000
      OPTION EXTERNAL;                                                  00478000
INTEGER PROCEDURE SEARCH (TG, LEN, DICT, DEFN);                         00479000
   VALUE LEN;                                                           00480000
   BYTE ARRAY TG, DICT;                                                 00481000
   INTEGER LEN;                                                         00482000
   BYTE POINTER DEFN;                                                   00483000
      OPTION VARIABLE, EXTERNAL;                                        00484000
LOGICAL PROCEDURE SENDMAIL(PIN,LENGTH,LOCATION,WAITFLAG);               00485000
   VALUE   PIN,LENGTH,WAITFLAG;                                         00486000
   LOGICAL WAITFLAG;                                                    00487000
   INTEGER PIN,LENGTH;                                                  00488000
   ARRAY   LOCATION;                                                    00489000
      OPTION EXTERNAL;                                                  00490000
PROCEDURE SETDUMP(FLAGS);                                               00491000
   VALUE          FLAGS;                                                00492000
   LOGICAL        FLAGS;                                                00493000
      OPTION EXTERNAL;                                                  00494000
PROCEDURE SETJCW (NJ);                                                  00495000
   VALUE NJ;                                                            00496000
   LOGICAL NJ;                                                          00497000
      OPTION EXTERNAL;                                                  00498000
PROCEDURE STACKDUMP(FILENAME,IDNUMBER,FLAGS,SELEC);                     00499000
   BYTE ARRAY       FILENAME;                                           00500000
   DOUBLE ARRAY                             SELEC;                      00501000
   INTEGER                   IDNUMBER;                                  00502000
   LOGICAL                            FLAGS;                            00503000
      OPTION VARIABLE, EXTERNAL;                                        00504000
PROCEDURE STACKDUMP'(FILENAME,IDNUMBER,FLAGS,SELEC);                    00505000
   BYTE ARRAY        FILENAME;                                          00506000
   DOUBLE ARRAY                              SELEC;                     00507000
   INTEGER                    IDNUMBER;                                 00508000
   LOGICAL                             FLAGS;                           00509000
      OPTION VARIABLE, EXTERNAL;                                        00510000
                                                                        00511000
PROCEDURE STARTSESS(LDEV,LOGONSTR,JSID,JSNUM,ERR);                      00512000
VALUE LDEV;                                                             00513000
LOGICAL LDEV;                                                           00514000
BYTE ARRAY LOGONSTR;                                                    00515000
INTEGER JSID;                                                           00516000
DOUBLE JSNUM;                                                           00517000
INTEGER ARRAY ERR;                                                      00518000
OPTION PRIVILEGED;                                                      00519000
                                                                        00520000
PROCEDURE SUSPEND(SUSP,RIN);VALUE SUSP,RIN;LOGICAL SUSP;INTEGER RIN;    00521000
      OPTION VARIABLE, EXTERNAL;                                        00522000
LOGICAL PROCEDURE SWITCHDB(D);VALUE D;LOGICAL D;                        00523000
      OPTION UNCALLABLE, EXTERNAL;                                      00524000
PROCEDURE TERMINATE;                                                    00525000
      OPTION EXTERNAL;                                                  00526000
DOUBLE PROCEDURE TIMER;                                                 00527000
      OPTION EXTERNAL;                                                  00528000
PROCEDURE UNLOADPROC (PROCID);                                          00529000
   VALUE PROCID;                                                        00530000
   INTEGER PROCID;                                                      00531000
      OPTION EXTERNAL;                                                  00532000
PROCEDURE UNLOCKGLORIN(A);                                              00533000
   VALUE A;INTEGER A;                                                   00534000
      OPTION EXTERNAL;                                                  00535000
PROCEDURE UNLOCKLOCRIN(Y);                                              00536000
   VALUE Y;INTEGER Y;                                                   00537000
      OPTION EXTERNAL;                                                  00538000
PROCEDURE WHO (MODE, CAP, LATTR, UN, GN, AN, HN, JOBIN);                00539000
   LOGICAL MODE;                                                        00540000
   DOUBLE CAP, LATTR;                                                   00541000
   BYTE ARRAY UN, GN, AN, HN;                                           00542000
   LOGICAL JOBIN;                                                       00543000
      OPTION VARIABLE, EXTERNAL;                                        00544000
PROCEDURE XARITRAP(MASK,PLAB,XMASK,XPLAB);                              00545000
   VALUE   MASK,PLAB;                                                   00546000
   INTEGER MASK,PLAB,XMASK,XPLAB;                                       00547000
      OPTION EXTERNAL;                                                  00548000
PROCEDURE XCONTRAP(PLAB,XPLAB);                                         00549000
   VALUE   PLAB;                                                        00550000
   INTEGER PLAB,XPLAB;                                                  00551000
      OPTION EXTERNAL;                                                  00552000
PROCEDURE XLIBTRAP(PLAB,XPLAB);                                         00553000
   VALUE   PLAB;                                                        00554000
   INTEGER PLAB,XPLAB;                                                  00555000
      OPTION EXTERNAL;                                                  00556000
PROCEDURE XSYSTRAP(PLAB,XPLAB);                                         00557000
   VALUE   PLAB;                                                        00558000
   INTEGER PLAB,XPLAB;                                                  00559000
      OPTION EXTERNAL;                                                  00560000
INTEGER PROCEDURE ZSIZE(SIZE);                                          00561000
   VALUE   SIZE;                                                        00562000
   INTEGER SIZE;                                                        00563000
      OPTION EXTERNAL;                                                  00564000
INTEGER PROCEDURE LOCRINOWNER (RIN);                           <<00549>>00565000
  VALUE RIN;   INTEGER RIN;                                    <<00549>>00566000
  OPTION PRIVILEGED, EXTERNAL;                                 <<00549>>00567000
PROCEDURE OPENLOG(INDEX,LOGID,PASS,MODE,STATUS);               <<00706>>00568000
DOUBLE INDEX;                                                  <<00706>>00569000
INTEGER MODE,STATUS;                                           <<00706>>00570000
ARRAY LOGID,PASS;                                              <<00706>>00571000
OPTION PRIVILEGED,CHECK 3,EXTERNAL;                            <<00706>>00572000
PROCEDURE CLOSELOG(INDEX,MODE,STATUS);                         <<00706>>00573000
DOUBLE INDEX;                                                  <<00706>>00574000
INTEGER MODE,STATUS;                                           <<00706>>00575000
OPTION PRIVILEGED,CHECK 3,EXTERNAL;                            <<00706>>00576000
PROCEDURE WRITELOG(INDEX,DATA,LEN,MODE,STATUS);                <<00706>>00577000
DOUBLE INDEX;                                                  <<00706>>00578000
INTEGER LEN,MODE,STATUS;                                       <<00706>>00579000
ARRAY DATA;                                                    <<00706>>00580000
OPTION PRIVILEGED,CHECK 3,EXTERNAL;                            <<00706>>00581000
PROCEDURE BEGINLOG(INDEX,DATA,LEN,MODE,STATUS);                <<01499>>00582000
DOUBLE INDEX;                                                  <<01499>>00583000
INTEGER LEN,MODE,STATUS;                                       <<01499>>00584000
ARRAY DATA;                                                    <<01499>>00585000
OPTION EXTERNAL,CHECK 2;                                       <<01499>>00586000
PROCEDURE ENDLOG(INDEX,DATA,LEN,MODE,STATUS);                  <<01499>>00587000
DOUBLE INDEX;                                                  <<01499>>00588000
INTEGER LEN,MODE,STATUS;                                       <<01499>>00589000
ARRAY DATA;                                                    <<01499>>00590000
OPTION EXTERNAL,CHECK 2;                                       <<01499>>00591000
PROCEDURE LOGSTATUS(INDEX,LOGINFO,STATUS);                     <<01499>>00592000
INTEGER STATUS;                                                <<01499>>00593000
DOUBLE INDEX;                                                  <<01499>>00594000
LOGICAL ARRAY LOGINFO;                                         <<01499>>00595000
OPTION EXTERNAL,CHECK 2;                                       <<01499>>00596000
PROCEDURE FLUSHLOG(INDEX,STATUS);                              <<01499>>00597000
DOUBLE INDEX;                                                  <<01499>>00598000
INTEGER STATUS;                                                <<01499>>00599000
OPTION EXTERNAL,CHECK 2;                                       <<01499>>00600000
PROCEDURE CREATEPROCESS (ERROR, PIN, PROGNAME, OPTIONNUMS,     <<01251>>00601000
                         OPTIONS);                             <<01251>>00602000
  INTEGER ERROR, PIN;                                          <<01251>>00603000
  BYTE ARRAY PROGNAME;                                         <<01251>>00604000
  INTEGER ARRAY OPTIONNUMS;                                    <<01251>>00605000
  LOGICAL ARRAY OPTIONS;                                       <<01251>>00606000
  OPTION VARIABLE, EXTERNAL;                                   <<01251>>00607000
PROCEDURE PROCINFO(ERROR1,ERROR2,PIN,OPTION1,ITEM1,           <<4247>>  00608000
                                     OPTION2,ITEM2,           <<4247>>  00609000
                                     OPTION3,ITEM3,           <<4247>>  00610000
                                     OPTION4,ITEM4,           <<4247>>  00611000
                                     OPTION5,ITEM5,           <<4247>>  00612000
                                     OPTION6,ITEM6);          <<4247>>  00613000
                                                              <<4247>>  00614000
VALUE PIN,OPTION1,OPTION2,OPTION3,OPTION4,OPTION5,OPTION6;    <<4247>>  00615000
INTEGER ERROR1,ERROR2,PIN,OPTION1,OPTION2,OPTION3,OPTION4,    <<4247>>  00616000
        OPTION5,OPTION6;                                      <<4247>>  00617000
BYTE ARRAY ITEM1,ITEM2,ITEM3,ITEM4,ITEM5,ITEM6;               <<4247>>  00618000
OPTION VARIABLE,EXTERNAL;                                     <<4247>>  00619000
PROCEDURE JOBINFO( JSIND, JSNNN, STATUS, ITEMNUM1, ITEM1, ER1, << LJC >>00620000
                                         ITEMNUM2, ITEM2, ER2, << LJC >>00621000
                                         ITEMNUM3, ITEM3, ER3, << LJC >>00622000
                                         ITEMNUM4, ITEM4, ER4, << LJC >>00623000
                                         ITEMNUM5, ITEM5, ER5);<< LJC >>00624000
   VALUE JSIND, ITEMNUM1, ITEMNUM2, ITEMNUM3, ITEMNUM4,        << LJC >>00625000
         ITEMNUM5;                                             << LJC >>00626000
   INTEGER JSIND, ITEMNUM1, ITEMNUM2, ITEMNUM3, ITEMNUM4,      << LJC >>00627000
           ITEMNUM5, ER1, ER2, ER3, ER4, ER5;                  << LJC >>00628000
   DOUBLE JSNNN;                                               << LJC >>00629000
   LOGICAL ARRAY STATUS, ITEM1, ITEM2, ITEM3, ITEM4, ITEM5;    << LJC >>00630000
   OPTION VARIABLE, EXTERNAL;                                  << LJC >>00631000
