RGDFS.
VIF     FORM    5,7,6,18
$(1).
N6ND*   TE,M    A1,28
        SLJ     VI100                                                   VI000393
        L,S2    A1,VI03
        TG,M    A1,5
        SLJ     VI100
        J       VI160,A1
VI160   J       VI165             F51 W1
        J       VI170             F51 W2
        J       VI175             SUBEXD PARA
        J       VI180             F50 ITEM
        J       VI185
VI165   L,M     A1,30
        SLJ     VI155             OUTPUT ITEM
VI140     LMJ      B11,PRINT8
        J       VI123             GET NEXT ITEM
VI170   L,M     A1,32
        SLJ     VI155             OUTPUT ITEM
        J       VI182
VI175   L,M     A1,31
        SLJ     VI155             OUTPUT ITEM
          E$DITR   ED$PKT
          E$COL    14
          E$OCTF   6,VI03
          E$DITX
        J       VI140             OUTPUT LINE
TREDIT    S         A1,TRFL
          L,M       A1,9                 PRINT IMAGE FOR TRACE ITEM
          SLJ       VI155
          J         VI140               . FINISHED
VI180   .
          L         A1,TRFL
          JGD       A1,TREDIT
        LA,H2   A1,NLFLG
        JGD     A1,NLEDIT               JUMP IF MORE NL ITEMS
        L,S1    A1,VI04
        TG,M    A1,30
        SLJ     VI100                                                   VI000396
        SLJ     VI155             OUTPUT ITEM
VI182   L,S1    A1,VI04
        TG,M    A1,30
        SLJ     VI100
       L,M    A0,2
       S      A0,CRLIST
        J       VI135,A1          JUMP ON ID
VI135   SLJ     VI100             UNASSIGNED
        J       VI190             INDUC VARIABLE
        J       VI190             VARIABLE
        J       VI150             CONSTANT
        J       VI140             OFFSET
        J       VI142             SUBEXP
        J       VI140             TRIAD OP
        J       VI140             DROP OUT
        J       VI147             OPERATION
        J       VI142             LOOP COUNT
        J       VI149             STATEMENT TYPE
        J       VI150             STATEMENT LABEL
        J       VI150             GENERATED LABEL
        J       VI150             STATEMENT REF
        J       VI150             FORMAT REF
        J       VI146             BEGIN DO
       J       VI140
        SLJ     VI100
        SLJ     VI100
        SLJ     VI100
        J       VI140             LOG IF SEP
        J       VI150             B-O-P
        J       VI140             JUMP AROUND TO EXEC
        J       VI140             FIRST EXEC STATEMENT
        J       VI140             END-OF-SUB
        J       VI140             NEXT OCC IND
        J       VI150             STATEMENT FUNC LABEL
        J       VI140             END-OF-LIST
        J       VI140
        J       VI140
VI142   L,H2    A0,VI04           OUTPUT SUBEXD ENTRY
        DSL     A0,16
        SSL     A1,20
        L,H1    A2,SUBEXD,A1
        S       A2,VI31
        L,H2    A2,SUBEXD,A1
        S       A2,VI32
          E$DITR   ED$PKT
          E$COL    45
          E$COPY   3,VI41
          E$COL    50
          E$OCTF   6,VI31
          E$COL    58
          E$OCTF   6,VI32
          E$DITX
        J       VI140
VI146   RFF61      VI36A,VI280
         L,H1  A0,VI36A+1
        S      A0,VI31
         L,H2  A0,VI36A+1
       S       A0,VI32
       J      VI154
        J       VI154
VI150   L,H2    A0,VI04           GET L(SYM)
        TZ,S2  VI04
        J      VI154
        DSL     A0,16
        SSL     A1,20
        L,H1    A2,0,A1
        S       A2,VI31
        L,H2    A2,0,A1
        S       A2,VI32
        L,H1    A2,1,A1
        S       A2,VI33
        L,H2    A2,1,A1
        S       A2,VI34
        L,H1    A2,2,A1
        S       A2,VI35
        L,H2    A2,2,A1
        S       A2,VI36
        L,H1    A2,3,A1
        S       A2,VI37
        L,H2    A2,3,A1
        S       A2,VI38
VI154     E$DITR   ED$PKT
          E$COL    41
          E$COPY   3,VI40
          E$COL    47
          E$OCTF   6,VI31
          E$CHAR   ' '
          E$OCTF   6,VI32
          E$COL    66
          E$OCTF   6,VI33
          E$DITX
        J       VI140             OUTPUT LINE
VI36A   +0
        +0
VI147   L,S2    A1,VI04           SUBCLASS
        TG,M    A1,20
        L,M     A1,0
        L,M     A1,F50OP,A1       L(ID)
VI148   S,H2    A1,VS147
          E$DITR   ED$PKT
          E$COL    11
VS147     L,M      A0,0
          L,M      A1,6
          LMJ      B11,ECOPY$
          E$DITX
        J       VI140
VI149   L,S2    A1,VI04           SUBCLASS
          TG,M      A1,51
        L,M     A1,0
          TNE,M     A1,2                . TEST FOR TRACE HOLERITH DATA
          J         VI149B
        TE,M    A1,051
        J       VI149A
        LA,S3   A1,VI04                 NUMBER OF F50 NL ITEMS THAT
        SA      A1,NLFLG                FOLLOW
        SA,S1   A1,NLFLG                SET FOR DOT=0
        L,S2    A1,VI04
VI149A  L,M     A1,F50ST,A1
        J       VI148
VI149B    L,S3      A0,VI04             . NUMBEROF WORDS TO EDIT IN OCTAL
          S         A0,TRFL
          J         VI149A
VI190   L,H2    A0,VI04           LOCATE W1(SYMT)
        DSL     A0,16
        SSL     A1,20
        S,H2    A1,VI191
          E$DITR   ED$PKT
          E$COL    11
VI191     L,M      A0,0
          L,M      A1,6
          LMJ      B11,ECOPY$
          E$DITX
        J       VI150
VI155   J       -0
        SSC     A1,35
        L,M     A2,VI45,A1        LOAD L(ID)
        S,H2    A2,VI156
        L,H1    A2,VI04
        S       A2,VI31
          E$DITR   ED$PKT
          E$COL    7
VI156     L,M      A0,0
          L,M      A1,12
          LMJ      B11,ECOPY$
          E$COL    25
          E$OCTF   6,VI31
          E$CHAR   ' '
          E$OCTF   6,VI04
          E$DITX
        J       *VI155
NLEDIT  .
        L,S3    A0,VI04                 DOT VALUE
        TZ,S1   NLFLG
        L,M     A0,0                    DOT=0
        S       A1,NLFLG
        TG,M    A0,4
        SLJ     VI100
        LA      A1,NLID,A0
        SA      A1,VI45+1
        LA      A1,('F50 NL')
        SA      A1,VI45
        LA,M    A1,0
        SLJ     VI155
        J       VI190
VI185   LMJ     B11,NWDU$
        +       ((6))
        +       FMT
        +       $,0
        +       VI03
        +       VI04
        SLJ     NIO2$
        J       VI123
FMT     '(1X,14H*****PH5 SNAPS,2O13,6H *****)'
F50OP   +       '      '
        +       '    = '
        +       ' .OR. '
        +       '.AND. '
        +       ' .EQ. '
        +       ' .NE. '
        +       ' .LT. '
        +       ' .GT. '
        +       ' .GE. '
        +       ' .LE. '
        +       '    + '
        +       '    / '
        +       '    * '
        +       '   ** '
        +       'SBDEF '
        +       'SBCON '
        +       'FUNCT '
        +       '    , '
        +       ' SUB+ '
        +       ' OFF+ '
F50ST   +       'IGNORE'
        +       'ARITHM'
        +       'ASFUNC'
        +       'LOGICL'
        +       'LSFUNC'
        +       'ASSIGN'
        +       'ASSNGT'
        +       'UNCNGT'
        +       'CMPTGT'
        +       'ARTHIF'
        +       '  AOIF'
        +       '  QOIF'
        +       '  DCIF'
        +       '  SLIF'
        +       '  SSIF'
        +       'SLIGHT'
        +       '  CALL'
        +       ' PAUSE'
        +       '  STOP'
        +       'RETURN'
        +       '   END'
        +       '    DO'
        +       'BKSPAC'
        +       'REWIND'
        +       'ENDFIL'
        +       ' PRINT'
        +       ' PUNCH'
        +       'RDTAPE'
        +       'RFUNIT'
        +       'RDINPT'
        +       'RDUNIT'
        +       '  READ'
        +       'WFUNIT'
        +       'WROUTP'
        +       'WRUNIT'
        +       'WRTAPE'
        +       'INLIST'
        +       'OUTLST'
        +       'IGNORE'                . 046
        +       'RD NL '                . 047
        +       'WRT NL'                . 050
        +       'NAMLST'                . 051
        +       'DECODE'
        +       'ENCODE'
          +        'IGNORE'
          +        'D-FILE'
          +        'D-READ'
          +        'DWRITE'
          +        'D-FIND'
          'SHRTLS'
          'SHRTLS'
VI40      +        'SYM   '
VI41      +        'SBX   '
VI45    RES     2
        'F50         '
        'F50         '
        'F50 CONSTANT'
        'F50 OFFSET  '
        'F50 SUBEXPR '
        'F50 TRIAD OP'
        'F50 DROP OUT'
        'F50         '
          'F50  TRACE  '
        'F50         '
        'F50 STATLABL'
        'F50 GENRLABL'
        'F50 STATEREF'
        'F50 FRMATREF'
        'F50 BEGIN DO'
        'F50 END DO  '
        RES     6
        'F50 LOGIFSEP'
        'F50 BEGINPRO'
        'F50 JUMPARND'
        'F50 FRSTEXEC'
        'F50 ENDSUBPR'
        'F50 NXTOCCUR'
        'F50 FUNCLABL'
        'F50 END LIST'
        'F50 UNIT REF'
        'F50 END FILE'
        'F51 WORD 1  '
        'SUBEXD      '
        'F51 WORD 2  '
NLID    +       ' DOT=0'
        +       ' DOT=1'
        +       ' DOT=2'
        +       ' DOT=3'
NLFLG   +       0
TRFL     +0
        END.