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