         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
COMMENT                                                        <<*9178>>00039000
          ************************************                 <<*9178>>00040000
          **         L I S T D I R 5        **                 <<*9178>>00048000
          ************************************                 <<*9178>>00056000
;                                                              <<*9178>>00057000
PROCEDURE ERROR(ERR);                                          <<*9178>>00706000
   VALUE ERR;                                                  <<*9178>>00706100
   INTEGER ERR;                                                <<*9178>>00706200
   OPTION FORWARD;                                             <<*9178>>00706300
                                                               <<*9178>>00706400
PROCEDURE GETFNAME(QNAME,NONFATAL);                            <<*9178>>00708000
   VALUE QNAME,NONFATAL;                                       <<*9178>>00710000
   BYTE POINTER QNAME;                                         <<*9178>>00712000
   LOGICAL NONFATAL;                                           <<*9178>>00714000
   OPTION FORWARD;                                             <<*9178>>00716000
   INTEGER FILECODE,MNEMONIC'LENGTH;                           <<*9178>>00722000
   BYTE ARRAY MNEMONIC;                                        <<*9178>>00724000
   OPTION EXTERNAL;                                            <<*9178>>00726000
   VALUE LEVL,ASEC,GSEC,FSEC;                                  <<*9178>>00734000
   INTEGER LEVL;                                               <<*9178>>00734100
   BYTE ARRAY ANAME,GNAME,CR,UINFO;                            <<*9178>>00736000
   LOGICAL ASEC;                                               <<*9178>>00736100
   DOUBLE GSEC,FSEC;                                           <<*9178>>00738000
   OPTION VARIABLE, EXTERNAL;                                  <<*9178>>00738100
   VALUE LDEV,FLAGS,DSTX,QMISC,ADDR,FUNC,CNT,P1,P2;            <<*9178>>00744000
   INTEGER LDEV,FLAGS,DSTX,QMISC,ADDR,FUNC,CNT,P1,P2;          <<*9178>>00746000
   OPTION EXTERNAL;                                            <<*9178>>00748000
   VALUE DIRLEV,INX,MVTABX;                                    <<*9178>>00756000
   INTEGER DIRLEV,MVTABX;                                      <<*9178>>00758000
   DOUBLE INX;                                                 <<*9178>>00760000
   ARRAY ANAME,GUNAME,FNAME,PARM;                              <<*9178>>00762000
   INTEGER PROCEDURE RECIP;                                    <<*9178>>00764000
   OPTION EXTERNAL,VARIABLE;                                   <<*9178>>00766000
PROCEDURE ERROREXIT(WDS,ERR,PARM);                             <<*9178>>00770000
   VALUE WDS,ERR,PARM;                                         <<*9178>>00770100
   INTEGER WDS,ERR,PARM;                                       <<*9178>>00772000
   OPTION EXTERNAL;                                            <<*9178>>00773100
PROCEDURE ERRORON;                                             <<*9178>>00776000
   OPTION EXTERNAL;                                            <<*9178>>00776100
LOGICAL PROCEDURE EXCHANGEDB(DST);                             <<*9178>>00780000
   VALUE DST;                                                  <<*9178>>00780100
   LOGICAL DST;                                                <<*9178>>00780200
   OPTION EXTERNAL;                                            <<*9178>>00782000
                         D,R,O,DST,C);                         <<*9178>>00798000
PROCEDURE RELSIR(S,A);                                         <<*9178>>00810000
   VALUE S,A;                                                  <<*9178>>00810100
   INTEGER S,A;                                                <<*9178>>00810200
   OPTION EXTERNAL;                                            <<*9178>>00810300
   VALUE MVTABX;                                               <<*9178>>00816000
   INTEGER PROCEDURE RECIP;                                    <<*9178>>00818000
   ARRAY PARMS;                                                <<*9178>>00820000
   INTEGER MVTABX;                                             <<*9178>>00822000
   OPTION PRIVILEGED,FORWARD;                                  <<*9178>>00824000
INTRINSIC                                                      <<*9178>>00828000
   ASCII, DASCII, FCHECK, FCLOSE, FCONTROL, FGETINFO,          <<*9178>>00829000
   FMTCLOCK, FOPEN, FRELATE, FWRITE, GETPRIVMODE,              <<*9178>>00830000
   GETUSERMODE, PRINT, QUIT, READ, READX, RESETCONTROL,        <<*9178>>00832000
   TERMINATE, WHO, XCONTRAP;                                   <<*9178>>00833000
$EDIT VOID=01632000                                            <<*9102>>01626000
$EDIT VOID=01722000                                            <<*9102>>01698000
         ADLLEN=13,                                            <<*9102>>02606000
  ARRAY ADL(*)=PB:=ADLLEN2,9,1,25,27,5(29),2(10),37;           <<*9102>>02610000
    <<TOS:=TOS+74;>>                                                    02918000
         UDLLEN=7,                                             <<*9102>>03420000
  ARRAY UDL(*)=PB:=UDLLEN2,12,1,21,23,8,37,1,21,8;             <<*9102>>03432000
    TOS:=TOS+74;                                                        03560000
         FLMODTIME= ENTD(59)#,                                 <<*9178>>03777000
         FDLLEN=22,                                            <<*9178>>03800000
 ARRAY FDL(*)=PB:=FDLLEN2,16,1,30,2(20),5(30),24,22,4(24),     <<*9178>>03806000
    TOS:=TOS+26+FLCOL;                                         <<*9178>>04394000
                                                               <<*9178>>04395000
    << Format last modified time >>                            <<*9178>>04395100
    FMTCLOCK (FLMODTIME, BUF(S0+10));                          <<*9178>>04395200
    TOS:=TOS+26;                                               <<*9178>>04395300
