         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
PROCEDURE PRINT'FILE'INFO(FN);                                          40002000
      VALUE FN;                                                         40004000
      INTEGER FN;                                                       40006000
      OPTION EXTERNAL;                                                  40008000
                                                                        40010000
INTEGER PROCEDURE THISCPU;                                     <<HM.02>>40012000
OPTION EXTERNAL;                                               <<HM.02>>40014000
                                                                        40016000
                                                                        40018000
PROCEDURE BLANKBUF;                                                     40020000
      OPTION FORWARD;                                                   40022000
                                                                        40024000
 LOGICAL PROCEDURE GTCSTIDX;                                   <<01.3A>>40026000
      OPTION FORWARD;                                          <<01.3A>>40028000
                                                               <<01.3A>>40030000
PROCEDURE CHKLDMAP;                                            <<01.3A>>40032000
      OPTION FORWARD;                                          <<01.3A>>40034000
                                                               <<01.3A>>40036000
PROCEDURE CHECKSTACK(DSTNO);                                   <<03076>>40038000
VALUE DSTNO;                                                   <<03076>>40040000
LOGICAL DSTNO;                                                 <<03076>>40042000
      OPTION FORWARD;                                                   40044000
                                                                        40046000
                                                                        40048000
PROCEDURE ERROR;                                                        40050000
      OPTION FORWARD;                                                   40052000
                                                                        40054000
                                                                        40056000
PROCEDURE FORMATFCB(DSTNO);                                    <<03076>>40058000
VALUE DSTNO;                                                   <<03076>>40060000
LOGICAL DSTNO;                                                 <<03076>>40062000
OPTION FORWARD;                                                <<03076>>40064000
                                                                        40066000
PROCEDURE FORMAT'LSTT(DSTNO);                                           40068000
VALUE DSTNO;                                                            40070000
LOGICAL DSTNO;                                                          40072000
OPTION FORWARD;                                                         40074000
                                                               <<03077>>40076000
PROCEDURE GETDATE;                                                      40078000
      OPTION FORWARD;                                                   40080000
                                                                        40082000
LOGICAL PROCEDURE CORE(ADR);                                  <<<01.02>>40084000
      VALUE ADR;                                                        40086000
      DOUBLE ADR;                                                       40088000
      OPTION FORWARD;                                                   40090000
                                                                        40092000
PROCEDURE MEMBUFOFL;                                           << WBT >>40094000
   OPTION FORWARD;                                             << WBT >>40096000
                                                               << WBT >>40098000
LOGICAL PROCEDURE NAMECST(ENT);                                <<01.3A>>40100000
       VALUE ENT; LOGICAL ENT;                                 <<01.3A>>40102000
       OPTION FORWARD;                                         <<01.3A>>40104000
                                                               <<01.3A>>40106000
PROCEDURE NAMEPROC(A,B,C,D,E);                                 <<00221>>40108000
VALUE A,B,C,D,E;                                               <<00221>>40110000
LOGICAL A,B;                                                   <<00221>>40112000
INTEGER C,D,E;                                                 <<00221>>40114000
OPTION FORWARD;                                                <<00221>>40116000
                                                               <<00221>>40118000
PROCEDURE NAMEDST;                                                      40120000
      OPTION FORWARD;                                                   40122000
                                                                        40124000
                                                                        40126000
PROCEDURE NEWPAGE;                                                      40128000
      OPTION FORWARD;                                                   40130000
                                                               <<01791>>40132000
PROCEDURE MAKEFREEMAP(TABLEBASE, MAP, ENTRYSIZE, MAXENTNO,     <<01875>>40134000
                      TABLENAME);                              <<01875>>40136000
VALUE ENTRYSIZE, MAXENTNO; INTEGER ENTRYSIZE, MAXENTNO;        <<01791>>40138000
DOUBLE TABLEBASE; ARRAY MAP; BYTE ARRAY TABLENAME;             <<01875>>40140000
OPTION FORWARD;                                                <<01791>>40142000
                                                               <<01791>>40144000
                                                               << WBT >>40146000
LOGICAL PROCEDURE ONFREELIST(TABLEBASE, INDEX);                << WBT >>40148000
VALUE TABLEBASE, INDEX;                                        << WBT >>40150000
DOUBLE TABLEBASE; LOGICAL INDEX;                               << WBT >>40152000
OPTION FORWARD;                                                << WBT >>40154000
                                                                        40156000
PROCEDURE PCHEAD;                                                       40158000
      OPTION FORWARD;                                                   40160000
                                                                        40162000
PROCEDURE PDHEAD;                                                       40164000
      OPTION FORWARD;                                                   40166000
                                                                        40168000
PROCEDURE PFXMEM;                                                       40170000
      OPTION FORWARD;                                                   40172000
                                                                        40174000
PROCEDURE PHEAD1;                                                       40176000
      OPTION FORWARD;                                                   40178000
                                                                        40180000
PROCEDURE PHEAD2;                                                       40182000
      OPTION FORWARD;                                                   40184000
                                                                        40186000
PROCEDURE PIOQHEAD;                                                     40188000
      OPTION FORWARD;                                                   40190000
PROCEDURE PRINTICS;                                            <<03080>>40192000
      OPTION FORWARD;                                          <<03080>>40194000
                                                               <<03080>>40196000
                                                                        40198000
PROCEDURE PRINTLINE;                                                    40200000
      OPTION FORWARD;                                                   40202000
                                                                        40204000
PROCEDURE PRINTLPDT;                                                    40206000
      OPTION FORWARD;                                                   40208000
                                                                        40210000
PROCEDURE PRINTCST;                                                     40212000
      OPTION FORWARD;                                                   40214000
                                                                        40216000
                                                                        40218000
PROCEDURE PRINTSIR;                                                     40220000
      OPTION FORWARD;                                                   40222000
                                                                        40224000
                                                                        40226000
                                                                        40228000
PROCEDURE PRINTDIT;                                                     40230000
      OPTION FORWARD;                                                   40232000
                                                                        40234000
PROCEDURE PRINTDRT;                                                     40236000
      OPTION FORWARD;                                                   40238000
                                                                        40240000
PROCEDURE PRINTDST;                                                     40242000
      OPTION FORWARD;                                                   40244000
                                                               << WBT >>40246000
PROCEDURE PRINTFLAGS(F);                                       << WBT >>40248000
VALUE F; LOGICAL F;                                            << WBT >>40250000
OPTION FORWARD;                                                << WBT >>40252000
                                                                        40254000
PROCEDURE PRINTPCB;                                                     40256000
      OPTION FORWARD;                                                   40258000
                                                                        40260000
PROCEDURE PRINTINDEX;                                                   40262000
      OPTION FORWARD;                                                   40264000
                                                                        40266000
PROCEDURE PRINTILT;                                                     40268000
      OPTION FORWARD;                                                   40270000
                                                                        40272000
PROCEDURE PRINTNEWILT;                                         <<02012>>40274000
      OPTION FORWARD;                                          <<01296>>40276000
                                                               <<01296>>40278000
PROCEDURE PRINTIOQ;                                                     40280000
      OPTION FORWARD;                                                   40282000
                                                                        40284000
PROCEDURE PRINTMEMLOCS(BNK);                                   <<00221>>40286000
VALUE BNK;                                                     <<00221>>40288000
LOGICAL BNK;                                                   <<00221>>40290000
OPTION FORWARD;                                                <<00221>>40292000
                                                               <<00221>>40294000
                                                               <<00221>>40296000
PROCEDURE PRINTPXFILE(A,B);                                    <<00221>>40298000
VALUE A,B;                                                     <<00221>>40300000
LOGICAL A;                                                     <<00221>>40302000
DOUBLE B;                                                      <<00221>>40304000
OPTION FORWARD;                                                <<00221>>40306000
                                                               <<00221>>40308000
PROCEDURE PRINTREGS;                                                    40310000
      OPTION FORWARD;                                                   40312000
                                                                        40314000
PROCEDURE PRINTSBUF;                                                    40316000
      OPTION FORWARD;                                                   40318000
                                                               << WBT >>40320000
PROCEDURE PRINTSLL;                                            << WBT >>40322000
OPTION FORWARD;                                                << WBT >>40324000
                                                                        40326000
PROCEDURE PRINTSTACKS;                                         <<00221>>40328000
   OPTION FORWARD;                                             <<00221>>40330000
                                                                        40332000
PROCEDURE PRINTTBUF;                                                    40334000
      OPTION FORWARD;                                                   40336000
                                                                        40338000
PROCEDURE PRINTTRL;                                                     40340000
      OPTION FORWARD;                                                   40342000
                                                                        40344000
PROCEDURE PRINTVDSL;                                                    40346000
      OPTION FORWARD;                                                   40348000
                                                                        40350000
PROCEDURE PRINTVDSM;                                                    40352000
      OPTION FORWARD;                                                   40354000
                                                                        40356000
PROCEDURE PUTCHAR(WORD);                                       <<01.3A>>40358000
      VALUE WORD;                                              <<01.3A>>40360000
      LOGICAL WORD;                                            <<01.3A>>40362000
      OPTION FORWARD;                                          <<01.3A>>40364000
                                                               <<01.3A>>40366000
PROCEDURE PUTDNUM(DNUM);                                                40368000
      VALUE DNUM;                                                       40370000
      DOUBLE DNUM;                                                      40372000
      OPTION FORWARD;                                                   40374000
                                                                        40376000
PROCEDURE PUTDNUMP(DNUM);                                               40378000
      VALUE DNUM;                                                       40380000
      DOUBLE DNUM;                                                      40382000
      OPTION FORWARD;                                                   40384000
                                                                        40386000
PROCEDURE PUTNUM(NUM);                                                  40388000
      VALUE NUM;                                                        40390000
      INTEGER NUM;                                                      40392000
      OPTION FORWARD;                                                   40394000
                                                                        40396000
PROCEDURE PUTNUMP(NUM);                                                 40398000
      VALUE NUM;                                                        40400000
      INTEGER NUM;                                                      40402000
      OPTION FORWARD;                                                   40404000
                                                                        40406000
PROCEDURE PUTNZ(NUM, COL);                                     << WBT >>40408000
VALUE NUM, COL;                                                << WBT >>40410000
LOGICAL NUM;                                                   << WBT >>40412000
INTEGER COL;                                                   << WBT >>40414000
OPTION FORWARD;                                                << WBT >>40416000
                                                               << WBT >>40418000
PROCEDURE PUTSEGID(SEGID, SEGID1, COL);                        <<01791>>40420000
VALUE SEGID, SEGID1, COL; LOGICAL SEGID, SEGID1, COL;      <<01791>>    40422000
OPTION FORWARD;                                                <<01791>>40424000
                                                               <<01791>>40426000
PROCEDURE RECOVER'DATE(TBUF);                                  <<03083>>40428000
      ARRAY TBUF;                                              <<03083>>40430000
      OPTION FORWARD;                                          <<03083>>40432000
                                                               <<03083>>40434000
PROCEDURE SKIPLINES(NLINES);                                            40436000
      VALUE NLINES;                                                     40438000
      INTEGER NLINES;                                                   40440000
      OPTION FORWARD;                                                   40442000
                                                                        40444000
PROCEDURE SKIPOCTALDUMP(CURAD,NXT);                            <<01.3A>>40446000
      VALUE CURAD,NXT; DOUBLE CURAD,NXT;                       <<01.3A>>40448000
      OPTION FORWARD;                                          <<01.3A>>40450000
                                                               <<01.3A>>40452000
PROCEDURE SORTMEMBUF;                                                   40454000
      OPTION FORWARD;                                                   40456000
                                                               <<03083>>40458000
PROCEDURE TAPE'MODIFY'ERROR(MSGNUM,FILENUM);                   <<03083>>40460000
  VALUE MSGNUM;                                                <<03083>>40462000
  INTEGER MSGNUM,                                              <<03083>>40464000
          FILENUM;                                             <<03083>>40466000
  OPTION FORWARD;                                              <<03083>>40468000
                                                                        40470000
PROCEDURE TAPETODISK;                                                   40472000
      OPTION FORWARD;                                                   40474000
PROCEDURE VERIFYTBL;                                           <<00221>>40476000
OPTION FORWARD;                                                <<00221>>40478000
                                                               <<00221>>40480000
DOUBLE PROCEDURE VERIFYP(DSTNO,SYSDBP);                        <<01.02>>40482000
      VALUE DSTNO,SYSDBP;                                               40484000
      DOUBLE SYSDBP;                                                    40486000
      INTEGER DSTNO;                                                    40488000
      OPTION FORWARD;                                                   40490000
                                                              <<MRJE>>  40492000
PROCEDURE DO'MRJE'DITS;                                       <<MRJE>>  40494000
  OPTION FORWARD;                                             <<MRJE>>  40496000
                                                              <<MRJE>>  40498000
PROCEDURE DODSDIT(LDV,TYPE,LOCDIT);                                     40500000
VALUE LDV,TYPE,LOCDIT;                                                  40502000
INTEGER LDV, TYPE;                                             <<01199>>40504000
DOUBLE LOCDIT;                                                          40505000
OPTION FORWARD;                                                <<01199>>40506000
                                                               <<01199>>40508000
PROCEDURE WARNING;                                             <<01.02>>40510000
OPTION FORWARD;                                                <<01.02>>40512000
                                                               <<01.02>>40514000
PROCEDURE NOFORMT';                                            <<00221>>40516000
OPTION FORWARD;                                                <<01.02>>40518000
                                                               <<01.02>>40520000
PROCEDURE FILCSTBLK;                                           <<01.02>>40522000
OPTION FORWARD;                                                <<01.02>>40524000
                                                               <<01.02>>40526000
PROCEDURE PRINTXCST;                                           <<01.02>>40528000
OPTION FORWARD;                                                <<01.02>>40530000
                                                               <<01.02>>40532000
PROCEDURE PCXHEAD;                                             <<01.02>>40534000
OPTION FORWARD;                                                <<01.02>>40536000
PROCEDURE CSTENTRY(CURAD,CKSUM,SKIP);                          <<03076>>40538000
DOUBLE CURAD;                                                  <<03076>>40540000
LOGICAL CKSUM;                                                 <<03076>>40542000
LOGICAL SKIP;                                                  <<03076>>40544000
OPTION FORWARD;                                                <<03076>>40546000
                                                               <<03076>>40548000
PROCEDURE DSTENTRY(DSTNO,SKIP);                                <<03076>>40550000
LOGICAL DSTNO;                                                 <<03076>>40552000
LOGICAL SKIP;                                                  <<03076>>40554000
OPTION FORWARD;                                                <<03076>>40556000
                                                               <<03076>>40558000
PROCEDURE FILLMEMBUF(BANKNUM);                                 <<03076>>40560000
VALUE BANKNUM;                                                 <<03076>>40562000
LOGICAL BANKNUM;                                               <<03076>>40564000
OPTION FORWARD;                                                <<03076>>40566000
PROCEDURE FORMATSTACK(DSTNO);                                  <<03076>>40568000
VALUE DSTNO;                                                   <<03076>>40570000
LOGICAL DSTNO;                                                 <<03076>>40572000
OPTION FORWARD;                                                <<03076>>40574000
                                                               <<03076>>40576000
DOUBLE PROCEDURE DSTTOADDR(DSTNO);                             <<03076>>40578000
VALUE DSTNO;                                                   <<03076>>40580000
LOGICAL DSTNO;                                                 <<03076>>40582000
OPTION FORWARD;                                                <<03076>>40584000
                                                                        40586000
integer procedure print'octal'dit                              <<RWP29>>40588000
    (dit'start'addr, relative'index, dit'length,               <<RWP29>>40590000
                      asciiflag, dispbase, rightbyte);         <<RWP29>>40592000
value  dit'start'addr, relative'index, dit'length,             <<RWP29>>40594000
                      asciiflag, dispbase, rightbyte;          <<RWP29>>40596000
double dit'start'addr;                                         <<RWP29>>40598000
logical relative'index;                                        <<RWP29>>40600000
integer dit'length;                                            <<RWP29>>40602000
logical asciiflag;                                             <<RWP29>>40604000
integer dispbase;                                              <<RWP29>>40606000
logical rightbyte;                                             <<RWP29>>40608000
option variable;                                               <<RWP29>>40610000
option forward;                                                <<RWP29>>40612000
                                                               <<03752>>40614000
procedure do'atp'dits(lociltx, locdit);                        <<RWP29>>40616000
value lociltx, locdit;                                         <<RWP29>>40618000
double lociltx, locdit;                                        <<RWP29>>40620000
option forward;                                                <<RWP29>>40622000
                                                               <<RWP29>>40624000
procedure do'atp'drt'hdr(lociltx, locdit);   <<Entry pt.>>     <<RWP29>>40626000
value lociltx, locdit;                                         <<RWP29>>40628000
double lociltx, locdit;                                        <<RWP29>>40630000
option forward;                                                <<RWP29>>40632000
                                                               <<RWP29>>40634000
integer procedure hascii(binval, base, destbuf);               <<RWP29>>40636000
value binval, base;                                            <<RWP29>>40638000
byte array destbuf;                                            <<RWP29>>40640000
logical binval;                                                <<RWP29>>40642000
integer base;                                                  <<RWP29>>40644000
option forward;                                                <<RWP29>>40646000
                                                               <<RWP29>>40648000
integer procedure decode'filename(inbuf, boutbuf);             <<RWP29>>40650000
logical array inbuf;                                           <<RWP29>>40652000
byte array boutbuf;                                            <<RWP29>>40654000
option forward;                                                <<RWP29>>40656000
                                                               <<RWP29>>40658000
PROCEDURE TEST'DRT'INFO(MINDRT,MAXDRT,VALID'DRTS,PFLAG);                40660000
   VALUE PFLAG;                                                         40662000
   INTEGER MINDRT,MAXDRT;                                               40664000
   LOGICAL VALID'DRTS,PFLAG;                                            40666000
   OPTION FORWARD;                                                      40668000
                                                                        40670000
PROCEDURE PRINTDRQT;                                                    40672000
   OPTION FORWARD;                                                      40674000
                                                                        40676000
PROCEDURE SEARCH'CBTS(STACKADDR,DLREG,STACKDST);                        40678000
   DOUBLE DLREG,STACKADDR;                                              40680000
   LOGICAL STACKDST;                                                    40682000
   OPTION FORWARD;                                                      40684000
                                                                        40686000
PROCEDURE CURR'PROCESS(STACKADDR,DSTNO,LOCPCB,INDX,PCBSIZE);            40688000
   INTEGER INDX,PCBSIZE;                                                40690000
   DOUBLE STACKADDR,LOCPCB;                                             40692000
   LOGICAL DSTNO;                                                       40694000
   OPTION FORWARD;                                                      40696000
                                                                        40698000
PROCEDURE CATEGORIZE'DST;                                               40700000
   OPTION FORWARD;                                                      40702000
                                                                        40704000
PROCEDURE PRINT'DFS'DATA'SEG'LIST;                                      40706000
   OPTION FORWARD;                                                      40708000
                                                                        40710000
PROCEDURE GET'DST'ENTRY(DST'NUMBER,DST'ENTRY);                 <<*1392>>40712000
   VALUE DST'NUMBER;                                           <<*1392>>40714000
   INTEGER DST'NUMBER;                                         <<*1392>>40716000
   ARRAY DST'ENTRY;                                            <<*1392>>40718000
   OPTION FORWARD;                                             <<*1392>>40720000
                                                               <<*1392>>40722000
INTEGER PROCEDURE GETDATASEG(MSIZE,VMSIZE);                    <<*1392>>40724000
   VALUE MSIZE, VMSIZE;                                        <<*1392>>40726000
   INTEGER MSIZE, VMSIZE;                                      <<*1392>>40728000
   OPTION EXTERNAL;                                            <<*1392>>40730000
                                                               <<*1392>>40732000
INTEGER PROCEDURE LFDS(DST'NO,WORD'OFFSET);                    <<*1392>>40734000
   VALUE DST'NO,WORD'OFFSET;                                   <<*1392>>40736000
   INTEGER DST'NO,WORD'OFFSET;                                 <<*1392>>40738000
   OPTION FORWARD;                                             <<*1392>>40740000
                                                               <<*1392>>40742000
procedure DumpPortDST(dstno);                                           40744000
  value dstno;                                                          40746000
  integer dstno;                                                        40748000
  option forward;                                                       40750000
                                                                        40752000
