         SYSTEM   SIG7FDP
         PAGE
         TITLE    'SIZE ERROR TEST ROUTINE'
         DEF      C:SZT
DECSAV   RES      4
CFSAV    DATA     0
SAV11    RES      1
C:SZT    RES      0
         STW,11   SAV11             SAVE RETURN ADDRESS
         LI,11    0                 RESET OVERFLOW INDICATOR
         DST,0    DECSAV            SAVE DECA
         DSA      *10               SHIFT OUT DECA EXCESS
         BCR,4    %+2               TEST FOR OVERFLOW
         LI,11    X'40'              YES
         STB,11   CFSAV             SAVE OVERFLOW INDICATOR
         DL,0     DECSAV            RESTORE DECA AND CONDITION CODE
         STCF     11                X
         OR,11    CFSAV             X SET CC2 WITH OVERFLOW STATUS
         LCF      11                X
         B        *SAV11            RETURN
         END
