*DECK S$GNJSR 
          IDENT  S$GNJSR
          TITLE  S$GNJSR -  GENERATE- ENTRY/EXIT WORD FOR INVERSION 
          COMMENT  ENTRY/EXIT WORD FOR INVERSION
  
*CALL LBLPTR
  
          SPACE  4
**        S$GNJSR -  GENERATE- ENTRY/EXIT WORD FOR INVERSION
* 
*     CALLING SEQUENCE- 
*         S$GNJSR 
* 
          ENTRY  S$GNJSR
 S$GNJSR  SUBR
          NEWLBL JUMP2                  MAKE SURE CODE DOESN'T
          GEN    (EQ "JUMP2")           GET HERE BY FALL-THROUGH
          GENLBL INVERT 
          GENMAC (DATA -0)
          EXIT
          END 
