         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
   DEFINE                                                      <<09499>>01104010
      DEF'MOVE'TO'DST =                                        <<09499>>01104020
      MOVE'TO'DST (DSTN, DSTOFFSET, DBSOURCE, WORD'COUNT);    <<<09499>>01104030
      VALUE DSTN, DSTOFFSET, DBSOURCE, WORD'COUNT;             <<09499>>01104040
      LOGICAL DSTN, DSTOFFSET, DBSOURCE, WORD'COUNT;           <<09499>>01104050
      BEGIN                                                    <<09499>>01104060
         XREG := TOS;      << Save return address            >><<09499>>01104070
         ASSEMBLE (MTDS 0);                                    <<09499>>01104080
         TOS := XREG;                                          <<09499>>01104090
      END#;                                                    <<09499>>01104100
                                                               <<09499>>01104110
INTEGER I;                                                     <<09499>>03436010
<< Link father to index block.  Recall that we are at the    >><<09499>>03490000
<< Directory Data Segment.  We first save DDSNAME in Q-rel-  >><<09499>>03490010
<< ative NAME while we find the father pointer.  DDSNAME is  >><<09499>>03490020
<< later restored.                                           >><<09499>>03490030
I := -1;                                                       <<09499>>03494000
WHILE (I:=I+1) < NAMESIZE DO                                   <<09499>>03494010
   NAME(I) := DDSNAME(I);                                      <<09499>>03494020
I := -1;                                                       <<09499>>03500000
WHILE (I:=I+1) < NAMESIZE DO                                   <<09499>>03500010
   DDSNAME(I) := NAME(I);                                      <<09499>>03500020
