         SYSTEM   SIG7FDP
         PAGE
         TITLE    'ROUND DECA ROUTINE'
         DEF      C:RND
SAVRET   RES      1
DECSAV   RES      1
*
C:RND    RES      0
         STW,11   SAVRET            SAVE RETURN ADDRESS
         LI,11    0                 PRESET OVERFLOW DIGIT
         STW,15   DECSAV            SAVE DECA WORD
         AND,15   L(X'F')           PRESERVE DECA SIGN
         OR,15    L(X'50')          LOAD ROUNDING FACTOR
         DA,4     DECSAV            ROUND
         BCR,4    %+2               BRANCH IF NO OVERFLOW
         LW,11    L(X'10000000')    LOAD OVERFLOW BIT
         DSA      -1                SHIFT OFF ROUNDING POSITION
         OR,12    11                SUPPLY OVERFLOW BIT, IF ANY
         B        *SAVRET           RETURN
         END
