         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
PROCEDURE DODSDIT(LDV,TYPE,LOCDIT);                                     40500000
VALUE LDV,TYPE,LOCDIT;                                                  40502000
DOUBLE LOCDIT;                                                          40505000
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
