         PCC      0
         SYSTEM   BPM
         SYSTEM   SIG9
*
*
*        DLST...LISTS FILENAMES DUPLICATED BUT STARTS
*        WHERE THE M:SI DCB IS SET.
*
*
         TITLE    '     D L S T - DUPLICATE VERTICAL FILE LISTER '
         DEF      START
START    EQU      %
         LI,4     X'40'             BLANK NEEDED LATER
         M:OPEN   M:LL,OUT,SAVE
OPEN     EQU      %
         M:OPEN   M:SI,NXTF,IN,(ERR,ERROR),(ABN,ERROR),TEST
WRITE    EQU      %
         LB,1     M:SI+23           GET FILENAME SIZE
         LI,2     BA(M:SI+23)+1     GET SOURCE ADDRESS
         LI,3     BA(BUF)+1         GET DEST. (1ST TIME)
         STB,1    3                 GET COUNT/DEST
         MBS,2    0                 MOVE FILENAME TO BUFFER
         LI,2     BA(M:SI+23)+1     GET SOURCE ADDRESS
         STB,4    0,3               BLANK OUT NEXT CHARACTER
         AI,3     +1                POINT TO NEXT CHARACTER
         STB,1    3                 GET COUNT/DEST AGAIN
         MBS,2    0                 MOVE FILENAME 2ND TIME
         SLS,1    +1                GET TEXTC
         AI,1     1                  COUNT OF
         STB,1    BUF                 WHOLE BUFFER
         M:PRINT  (MESS,BUF)        OUTPUT VIA M:LL
         B        OPEN
ERROR    LB,10    10                GET CODE
         CI,10    2                 END OF FILES?
         BNE      WRITE             NOPE
         M:CLOSE  M:LL,SAVE
         M:EXIT
BUF      RES,1    31+31+1+1         2-FILENAMES+COUNT+SPACE
         BOUND    4
         PAGE
M:SI     DSECT    1
M:SI     M:DCB    FILE,SYNON,PASS
         END      START
