+1226,1226        S29582 C.W. F03 8-25-77                               COBOL42N
VDR05    EQU      $                                                     COBOL42N
         CI,R7    3                 SEE IF = ANE                        COBOL42N
         BE       VDR06             YES                                 COBOL42N
         LI,V0    R5                NORMAL REGISTER                     COBOL42N
         B        VDR06+1                                               COBOL42N
VDR06    EQU      $                                                     COBOL42N
         LI,V0    R2                                                    COBOL42N
+END
