<< LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION>>               00000001
PROCEDURE PRINT'FILE'INFO(FN);                                          00010000
      VALUE FN;                                                         00012000
      INTEGER FN;                                                       00014000
      OPTION EXTERNAL;                                                  00016000
                                                                        00018000
INTEGER PROCEDURE THISCPU;                                     <<HM.02>>00020000
OPTION EXTERNAL;                                               <<HM.02>>00022000
                                                                        00024000
                                                                        00026000
PROCEDURE BLANKBUF;                                                     00028000
      OPTION FORWARD;                                                   00030000
                                                                        00032000
 LOGICAL PROCEDURE GTCSTIDX;                                   <<01.3A>>00034000
      OPTION FORWARD;                                          <<01.3A>>00036000
                                                               <<01.3A>>00038000
PROCEDURE CHKLDMAP;                                            <<01.3A>>00040000
      OPTION FORWARD;                                          <<01.3A>>00042000
                                                               <<01.3A>>00044000
PROCEDURE CHECKSTACK(DSTNO);                                   <<03076>>00046000
VALUE DSTNO;                                                   <<03076>>00048000
LOGICAL DSTNO;                                                 <<03076>>00050000
      OPTION FORWARD;                                                   00052000
                                                                        00054000
                                                                        00056000
PROCEDURE ERROR;                                                        00058000
      OPTION FORWARD;                                                   00060000
                                                                        00062000
                                                                        00064000
PROCEDURE FORMATFCB(DSTNO);                                    <<03076>>00066000
VALUE DSTNO;                                                   <<03076>>00068000
LOGICAL DSTNO;                                                 <<03076>>00070000
OPTION FORWARD;                                                <<03076>>00072000
                                                               <<03077>>00074000
PROCEDURE GETDATE;                                                      00076000
      OPTION FORWARD;                                                   00078000
                                                                        00080000
LOGICAL PROCEDURE CORE(ADR);                                  <<<01.02>>00082000
      VALUE ADR;                                                        00084000
      DOUBLE ADR;                                                       00086000
      OPTION FORWARD;                                                   00088000
                                                                        00090000
PROCEDURE MEMBUFOFL;                                           << WBT >>00092000
   OPTION FORWARD;                                             << WBT >>00094000
                                                               << WBT >>00096000
LOGICAL PROCEDURE NAMECST(ENT);                                <<01.3A>>00098000
       VALUE ENT; LOGICAL ENT;                                 <<01.3A>>00100000
       OPTION FORWARD;                                         <<01.3A>>00102000
                                                               <<01.3A>>00104000
PROCEDURE NAMEPROC(A,B,C,D,E);                                 <<00221>>00106000
VALUE A,B,C,D,E;                                               <<00221>>00108000
LOGICAL A,B;                                                   <<00221>>00110000
INTEGER C,D,E;                                                 <<00221>>00112000
OPTION FORWARD;                                                <<00221>>00114000
                                                               <<00221>>00116000
PROCEDURE NAMEDST;                                                      00118000
      OPTION FORWARD;                                                   00120000
                                                                        00122000
                                                                        00124000
PROCEDURE NEWPAGE;                                                      00126000
      OPTION FORWARD;                                                   00128000
                                                               <<01791>>00130000
PROCEDURE MAKEFREEMAP(TABLEBASE, MAP, ENTRYSIZE, MAXENTNO,     <<01875>>00132000
                      TABLENAME);                              <<01875>>00134000
VALUE ENTRYSIZE, MAXENTNO; INTEGER ENTRYSIZE, MAXENTNO;        <<01791>>00136000
DOUBLE TABLEBASE; ARRAY MAP; BYTE ARRAY TABLENAME;             <<01875>>00138000
OPTION FORWARD;                                                <<01791>>00140000
                                                               <<01791>>00142000
                                                               << WBT >>00144000
LOGICAL PROCEDURE ONFREELIST(TABLEBASE, INDEX);                << WBT >>00146000
VALUE TABLEBASE, INDEX;                                        << WBT >>00148000
DOUBLE TABLEBASE; LOGICAL INDEX;                               << WBT >>00150000
OPTION FORWARD;                                                << WBT >>00152000
                                                                        00154000
PROCEDURE PCHEAD;                                                       00156000
      OPTION FORWARD;                                                   00158000
                                                                        00160000
PROCEDURE PDHEAD;                                                       00162000
      OPTION FORWARD;                                                   00164000
                                                                        00166000
PROCEDURE PFXMEM;                                                       00168000
      OPTION FORWARD;                                                   00170000
                                                                        00172000
PROCEDURE PHEAD1;                                                       00174000
      OPTION FORWARD;                                                   00176000
                                                                        00178000
PROCEDURE PHEAD2;                                                       00180000
      OPTION FORWARD;                                                   00182000
                                                                        00184000
PROCEDURE PIOQHEAD;                                                     00186000
      OPTION FORWARD;                                                   00188000
PROCEDURE PRINTICS;                                            <<03080>>00190000
      OPTION FORWARD;                                          <<03080>>00192000
                                                               <<03080>>00194000
                                                                        00196000
PROCEDURE PRINTLINE;                                                    00198000
      OPTION FORWARD;                                                   00200000
                                                                        00202000
PROCEDURE PRINTLPDT;                                                    00204000
      OPTION FORWARD;                                                   00206000
                                                                        00208000
PROCEDURE PRINTCST;                                                     00210000
      OPTION FORWARD;                                                   00212000
                                                                        00214000
                                                                        00216000
PROCEDURE PRINTSIR;                                                     00218000
      OPTION FORWARD;                                                   00220000
                                                                        00222000
                                                                        00224000
                                                                        00226000
PROCEDURE PRINTDIT;                                                     00228000
      OPTION FORWARD;                                                   00230000
                                                                        00232000
PROCEDURE PRINTDRT;                                                     00234000
      OPTION FORWARD;                                                   00236000
                                                                        00238000
PROCEDURE PRINTDST;                                                     00240000
      OPTION FORWARD;                                                   00242000
                                                               << WBT >>00244000
PROCEDURE PRINTFLAGS(F);                                       << WBT >>00246000
VALUE F; LOGICAL F;                                            << WBT >>00248000
OPTION FORWARD;                                                << WBT >>00250000
                                                                        00252000
PROCEDURE PRINTPCB;                                                     00254000
      OPTION FORWARD;                                                   00256000
                                                                        00258000
PROCEDURE PRINTINDEX;                                                   00260000
      OPTION FORWARD;                                                   00262000
                                                                        00264000
PROCEDURE PRINTILT;                                                     00266000
      OPTION FORWARD;                                                   00268000
                                                                        00270000
PROCEDURE PRINTNEWILT;                                         <<02012>>00272000
      OPTION FORWARD;                                          <<01296>>00274000
                                                               <<01296>>00276000
PROCEDURE PRINTIOQ;                                                     00278000
      OPTION FORWARD;                                                   00280000
                                                                        00282000
PROCEDURE PRINTMEMLOCS(BNK);                                   <<00221>>00284000
VALUE BNK;                                                     <<00221>>00286000
LOGICAL BNK;                                                   <<00221>>00288000
OPTION FORWARD;                                                <<00221>>00290000
                                                               <<00221>>00292000
                                                               <<00221>>00294000
PROCEDURE PRINTPXFILE(A,B);                                    <<00221>>00296000
VALUE A,B;                                                     <<00221>>00298000
LOGICAL A;                                                     <<00221>>00300000
DOUBLE B;                                                      <<00221>>00302000
OPTION FORWARD;                                                <<00221>>00304000
                                                               <<00221>>00306000
PROCEDURE PRINTREGS;                                                    00308000
      OPTION FORWARD;                                                   00310000
                                                                        00312000
PROCEDURE PRINTSBUF;                                                    00314000
      OPTION FORWARD;                                                   00316000
                                                               << WBT >>00318000
PROCEDURE PRINTSLL;                                            << WBT >>00320000
OPTION FORWARD;                                                << WBT >>00322000
                                                                        00324000
PROCEDURE PRINTSTACKS;                                         <<00221>>00326000
   OPTION FORWARD;                                             <<00221>>00328000
                                                                        00330000
PROCEDURE PRINTTBUF;                                                    00332000
      OPTION FORWARD;                                                   00334000
                                                                        00336000
PROCEDURE PRINTTRL;                                                     00338000
      OPTION FORWARD;                                                   00340000
                                                                        00342000
PROCEDURE PRINTVDSL;                                                    00344000
      OPTION FORWARD;                                                   00346000
                                                                        00348000
PROCEDURE PRINTVDSM;                                                    00350000
      OPTION FORWARD;                                                   00352000
                                                                        00354000
PROCEDURE PUTCHAR(WORD);                                       <<01.3A>>00356000
      VALUE WORD;                                              <<01.3A>>00358000
      LOGICAL WORD;                                            <<01.3A>>00360000
      OPTION FORWARD;                                          <<01.3A>>00362000
                                                               <<01.3A>>00364000
PROCEDURE PUTDNUM(DNUM);                                                00366000
      VALUE DNUM;                                                       00368000
      DOUBLE DNUM;                                                      00370000
      OPTION FORWARD;                                                   00372000
                                                                        00374000
PROCEDURE PUTDNUMP(DNUM);                                               00376000
      VALUE DNUM;                                                       00378000
      DOUBLE DNUM;                                                      00380000
      OPTION FORWARD;                                                   00382000
                                                                        00384000
PROCEDURE PUTNUM(NUM);                                                  00386000
      VALUE NUM;                                                        00388000
      INTEGER NUM;                                                      00390000
      OPTION FORWARD;                                                   00392000
                                                                        00394000
PROCEDURE PUTNUMP(NUM);                                                 00396000
      VALUE NUM;                                                        00398000
      INTEGER NUM;                                                      00400000
      OPTION FORWARD;                                                   00402000
                                                                        00404000
PROCEDURE PUTNZ(NUM, COL);                                     << WBT >>00406000
VALUE NUM, COL;                                                << WBT >>00408000
LOGICAL NUM;                                                   << WBT >>00410000
INTEGER COL;                                                   << WBT >>00412000
OPTION FORWARD;                                                << WBT >>00414000
                                                               << WBT >>00416000
PROCEDURE PUTSEGID(SEGID, COL);                                <<01791>>00418000
VALUE SEGID, COL; LOGICAL SEGID, COL;                          <<01791>>00420000
OPTION FORWARD;                                                <<01791>>00422000
                                                               <<01791>>00424000
PROCEDURE RECOVER'DATE(TBUF);                                  <<03083>>00426000
      ARRAY TBUF;                                              <<03083>>00428000
      OPTION FORWARD;                                          <<03083>>00430000
                                                               <<03083>>00432000
PROCEDURE SKIPLINES(NLINES);                                            00434000
      VALUE NLINES;                                                     00436000
      INTEGER NLINES;                                                   00438000
      OPTION FORWARD;                                                   00440000
                                                                        00442000
PROCEDURE SKIPOCTALDUMP(CURAD,NXT);                            <<01.3A>>00444000
      VALUE CURAD,NXT; DOUBLE CURAD,NXT;                       <<01.3A>>00446000
      OPTION FORWARD;                                          <<01.3A>>00448000
                                                               <<01.3A>>00450000
PROCEDURE SORTMEMBUF;                                                   00452000
      OPTION FORWARD;                                                   00454000
                                                               <<03083>>00456000
PROCEDURE TAPE'MODIFY'ERROR(MSGNUM,FILENUM);                   <<03083>>00458000
  VALUE MSGNUM;                                                <<03083>>00460000
  INTEGER MSGNUM,                                              <<03083>>00462000
          FILENUM;                                             <<03083>>00464000
  OPTION FORWARD;                                              <<03083>>00466000
                                                                        00468000
PROCEDURE TAPETODISK;                                                   00470000
      OPTION FORWARD;                                                   00472000
PROCEDURE VERIFYTBL;                                           <<00221>>00474000
OPTION FORWARD;                                                <<00221>>00476000
                                                               <<00221>>00478000
DOUBLE PROCEDURE VERIFYP(DSTNO,SYSDBP);                        <<01.02>>00480000
      VALUE DSTNO,SYSDBP;                                               00482000
      DOUBLE SYSDBP;                                                    00484000
      INTEGER DSTNO;                                                    00486000
      OPTION FORWARD;                                                   00488000
                                                              <<MRJE>>  00490000
PROCEDURE DO'MRJE'DITS;                                       <<MRJE>>  00492000
  OPTION FORWARD;                                             <<MRJE>>  00494000
                                                              <<MRJE>>  00496000
PROCEDURE DODSDIT( LDV, TYPE );                                <<01199>>00498000
VALUE LDV, TYPE;                                               <<01199>>00500000
INTEGER LDV, TYPE;                                             <<01199>>00502000
OPTION FORWARD;                                                <<01199>>00504000
                                                               <<01199>>00506000
PROCEDURE WARNING;                                             <<01.02>>00508000
OPTION FORWARD;                                                <<01.02>>00510000
                                                               <<01.02>>00512000
PROCEDURE NOFORMT';                                            <<00221>>00514000
OPTION FORWARD;                                                <<01.02>>00516000
                                                               <<01.02>>00518000
PROCEDURE FILCSTBLK;                                           <<01.02>>00520000
OPTION FORWARD;                                                <<01.02>>00522000
                                                               <<01.02>>00524000
PROCEDURE PRINTXCST;                                           <<01.02>>00526000
OPTION FORWARD;                                                <<01.02>>00528000
                                                               <<01.02>>00530000
PROCEDURE PCXHEAD;                                             <<01.02>>00532000
OPTION FORWARD;                                                <<01.02>>00534000
PROCEDURE CSTENTRY(CURAD,CKSUM,SKIP);                          <<03076>>00536000
DOUBLE CURAD;                                                  <<03076>>00538000
LOGICAL CKSUM;                                                 <<03076>>00540000
LOGICAL SKIP;                                                  <<03076>>00542000
OPTION FORWARD;                                                <<03076>>00544000
                                                               <<03076>>00546000
PROCEDURE DSTENTRY(DSTNO,SKIP);                                <<03076>>00548000
LOGICAL DSTNO;                                                 <<03076>>00550000
LOGICAL SKIP;                                                  <<03076>>00552000
OPTION FORWARD;                                                <<03076>>00554000
                                                               <<03076>>00556000
PROCEDURE FILLMEMBUF(BANKNUM);                                 <<03076>>00558000
VALUE BANKNUM;                                                 <<03076>>00560000
LOGICAL BANKNUM;                                               <<03076>>00562000
OPTION FORWARD;                                                <<03076>>00564000
PROCEDURE FORMATSTACK(DSTNO);                                  <<03076>>00566000
VALUE DSTNO;                                                   <<03076>>00568000
LOGICAL DSTNO;                                                 <<03076>>00570000
OPTION FORWARD;                                                <<03076>>00572000
                                                               <<03076>>00574000
DOUBLE PROCEDURE DSTTOADDR(DSTNO);                             <<03076>>00576000
VALUE DSTNO;                                                   <<03076>>00578000
LOGICAL DSTNO;                                                 <<03076>>00580000
OPTION FORWARD;                                                <<03076>>00582000
                                                                        00584000
PROCEDURE PRINT'OCTAL'DIT                                      <<03752>>00586000
   (DIT'START'ADDR, RELATIVE'INDEX, DIT'LENGTH);               <<03752>>00588000
      VALUE DIT'START'ADDR, RELATIVE'INDEX, DIT'LENGTH;        <<03752>>00590000
      DOUBLE DIT'START'ADDR;                                   <<03752>>00592000
      LOGICAL RELATIVE'INDEX;                                  <<03752>>00594000
      INTEGER DIT'LENGTH;                                      <<03752>>00596000
      OPTION FORWARD;                                          <<03752>>00598000
                                                               <<03752>>00600000
PROCEDURE TEST'DRT'INFO(MINDRT,MAXDRT,VALID'DRTS,PFLAG);                00602000
   VALUE PFLAG;                                                         00604000
   INTEGER MINDRT,MAXDRT;                                               00606000
   LOGICAL VALID'DRTS,PFLAG;                                            00608000
   OPTION FORWARD;                                                      00610000
                                                                        00612000
PROCEDURE PRINTDRQT;                                                    00614000
   OPTION FORWARD;                                                      00616000
                                                                        00618000
PROCEDURE SEARCH'CBTS(STACKADDR,DLREG,STACKDST);                        00620000
   DOUBLE DLREG,STACKADDR;                                              00622000
   LOGICAL STACKDST;                                                    00624000
   OPTION FORWARD;                                                      00626000
                                                                        00628000
PROCEDURE CURR'PROCESS(STACKADDR,DSTNO,LOCPCB,INDX,PCBSIZE);            00630000
   INTEGER INDX,PCBSIZE;                                                00632000
   DOUBLE STACKADDR,LOCPCB;                                             00634000
   LOGICAL DSTNO;                                                       00636000
   OPTION FORWARD;                                                      00638000
                                                                        00640000
PROCEDURE CATEGORIZE'DST;                                               00642000
   OPTION FORWARD;                                                      00644000
                                                                        00646000
PROCEDURE PRINT'DFS'DATA'SEG'LIST;                                      00648000
   OPTION FORWARD;                                                      00650000
                                                                        00652000
