*DECK S$GNSM9 
          IDENT  S$GNSM9
          COMMENT GENERATE SUMMING CODE - LAST
  
*CALL LBLPTR
  
**        S$GNSM9- GENERATE SUMMING CODE - LAST 
* 
*     CALLING SEQUENCE- 
*         S$GNSM9 
* 
*     DOES- 
*         GENERATE CODE TO- 
*                RESTORE SAVED GENERATED CODE REGISTER VALUES TO REGISTERS
* 
*                CHECK OVERFLOW FLAG.  IF OVERFLOW HAS OCCURRED, SET X7=0 
*                AND FALL THROUGH TO THE NORMAL CODE FOLLOWING S$GNCMP. 
*                IF OVERFLOW HAS NOT OCCURRED, SET A6=A4 (TO REPLACE LL 
*                WITH CR), AND JUMP TO SUMDONE (IN THE CODE FOR SHORT,
*                INIT,LONG,ETC.). 
* 
*     GENERATED CODE EXPECTS REGISTERS- 
*         SAME AS S$GNSMA, WITHOUT X2.
* 
  
          ENTRY  S$GNSM9
 S$GNSM9  SUBR
  
*         RESTORE SAVE REGISTER VALUES
  
          SB1    1           CONSTANT 1 
  
          GEN    (SA2 "SUMSVX2")
  
          GEN    (MX7 1)               (SET RESULT COMPARE FLAG)
  
          GENLBL SUMNOEQ               (FROM S$GNCMP/GNCMPSA) 
*                                      (FALL THROUGH TO NEXT GENERATED CODE)
  
          EXIT
          END 
