SUBROUTINE  GENJMP (CSIDE, OPTS, WFTS) 
      INTEGER     CSIDE, OPTS, WFTS, TFSIDE 
 
      INTEGER     WOPTR,  WO (64), TLI,     TL (128) 
      INTEGER     BO,     SS,      SS2,     NRFCH 
      COMMON      /SCR1/  WOPTR,   WO,      TLI,    TL 
      COMMON      /SCR1/  BO,      SS,      SS2,    NRFCH 
 
      INTEGER  PLEVEL, STOPS (20) 
      INTEGER  CNLSID (9), CNLTLI (9), CNLEND (9) 
      INTEGER  CLX, CPLOC (30) 
      INTEGER  NESTX, PNESTX 
      INTEGER  RELLEV, RELCNT, TRUEF 
      LOGICAL  RELPAS 
      INTEGER  CMPFLG 
      INTEGER  ILB 
      INTEGER  BRCT, BROK, TNESTX 
      COMMON   /COMP/   PLEVEL, STOPS 
      COMMON   /COMP/   CNLSID, CNLTLI, CNLEND 
      COMMON   /COMP/   CLX, CPLOC 
      COMMON   /COMP/   NESTX, PNESTX 
      COMMON   /COMP/   RELLEV, RELCNT, TRUEF 
      COMMON   /COMP/   RELPAS 
      COMMON   /COMP/   CMPFLG 
      COMMON   /COMP/   ILB 
      COMMON   /COMP/   BRCT, BROK, TNESTX 
 
      INTEGER     ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      INTEGER     PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG 
      INTEGER     LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV 
      INTEGER     NEXT,   NUMBER, I,      IOTYPE 
      INTEGER     J,      K,      L,      LABNLX, M,      N 
      INTEGER     PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE 
      INTEGER     OPTOPX, OPNXTX, TOPX,   NEXTX 
      INTEGER     DUMMY,  OVCHN,  PEEKS 
      INTEGER     LO,     CI,     CO,     LOGICF, LOCSUP 
      INTEGER     VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT 
      INTEGER ICLP05 
      LOGICAL     ENDOK,CONEND 
      COMMON   /LOGOS/  ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      COMMON   /LOGOS/  PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG 
      COMMON   /LOGOS/  LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV 
      COMMON   /LOGOS/  NEXT,   NUMBER, I,      IOTYPE 
      COMMON   /LOGOS/  J,      K,      L,      LABNLX, M,      N 
      COMMON   /LOGOS/  PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE 
      COMMON   /LOGOS/  OPTOPX, OPNXTX, TOPX,   NEXTX 
      COMMON   /LOGOS/  DUMMY,  OVCHN,  PEEKS 
      COMMON   /LOGOS/  LO,     CI,     CO,     LOGICF, LOCSUP 
      COMMON   /LOGOS/  VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT 
      COMMON   /LOGOS/  ICLP05 
      COMMON   /LOGOS/  ENDOK,CONEND 
 
      INTEGER  WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,WF9,WF10,WF11,WF12,WF13,W
     1F14,WF15,WF16,WF17 
      INTEGER  ICLP16 
      COMMON   / WF / WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,WF9,WF10,WF11,WF12
     1,WF13,WF14,WF15,WF16,WF17 
      COMMON   / WF / ICLP16 
 
      INTEGER     OP, LEFT, RIGHT, LSTKX, RSTKX 
      INTEGER     TS, LOAD, BASE 
      INTEGER     THIS, OTHER, SIDE, HI, LOW 
      INTEGER     INTBR, ROW, COL, INREG, OUTREG 
      INTEGER     BCC, BNE 
      INTEGER     CLC, JMP, LDAABS, LDAI, LDAZP 
      INTEGER     SBCI, SEC, STAZP, TAX, TXA 
      LOGICAL     COMZER, EZSTA, MORE 
      COMMON      /GCOM/   OP, LEFT, RIGHT, LSTKX, RSTKX 
      COMMON      /GCOM/   TS, LOAD, BASE 
      COMMON      /GCOM/   THIS, OTHER, SIDE, HI, LOW 
      COMMON      /GCOM/   INTBR, ROW, COL, INREG, OUTREG 
      COMMON      /GCOM/   BCC, BNE 
      COMMON      /GCOM/   CLC, JMP, LDAABS, LDAI, LDAZP 
      COMMON      /GCOM/   SBCI, SEC, STAZP, TAX, TXA 
      COMMON      /GCOM/   COMZER, EZSTA, MORE 
      CALL BLDOP (OPTS, WFTS, 0, TLI, WF9) 
      TFSIDE = CSIDE 
      IF (.NOT. (ILB .NE. 0 .AND. TFSIDE .EQ. 0))GO TO 13036 
 
      TFSIDE = 1 
13036 CONTINUE 
 
      IF (.NOT. (CSIDE .EQ. 0))GO TO 13038 
 
      INTBR = TLI 
      GO TO 13039 
13038 CONTINUE 
 
      IF (.NOT. (CLX .GE. 30))GO TO 13040 
 
      CALL FAULTP (7) 
      GO TO 13041 
13040 CONTINUE 
 
      IF (CNLEND (NESTX) .EQ. 0 .AND. WFTS .EQ. WF5) CNLEND (NESTX) = LC
      CPLOC (CLX) = TLI*TRUEF*TFSIDE 
      CALL REGLEV (4) 
      CLX = CLX + 1 
13041 CONTINUE 
 
13039 CONTINUE 
 
      TLI = TLI + 1 
      RETURN 
      END