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 );                                <<01199>>40500000
value ldv, type;                                               <<01199>>40502000
integer ldv, type;                                             <<01199>>40504000
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
