*DECK S$GNRTN 
          IDENT  S$GNRTN
          TITLE  S$GNRTN -  GENERATE- RETURN FROM INVERSION CODE
          COMMENT  RETURN FROM INVERSION CODE 
  
*CALL LBLPTR
  
          SPACE  4
**        S$GNRTN -  GENERATE- RETURN FROM INVERSION CODE 
* 
*     CALLING SEQUENCE- 
*         S$GNRTN 
* 
          ENTRY  S$GNRTN
 S$GNRTN  SUBR
          GEN    (EQ "INVERT") RETURN FROM INVERSION TO CALLER
          GENLBL RECDESC
          GENMAC (DATA 0) 
          GENLBL JUMP2          CONTINUE FROM S$GNJSR 
          EXIT
          END 
