SUBROUTINE  GENLA 
 
      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 
 
      INTEGER  AREG,   XREG,   YREG,   NRREGS 
      INTEGER  STATUS (10),    STAREG, STXREG, STYREG 
      INTEGER  REGS (10) 
      INTEGER  ACTREG (2),      ACTLO,  ACTHI 
      INTEGER  NZREG 
      INTEGER ICLP10 
      COMMON   / REGS / AREG,   XREG,   YREG,   NRREGS 
      COMMON   / REGS / STATUS, REGS,   ACTREG, NZREG 
      COMMON   / REGS / ICLP10 
      EQUIVALENCE    (ACTLO,  ACTREG (1)) 
      EQUIVALENCE    (ACTHI,  ACTREG (2)) 
      EQUIVALENCE    (STAREG, STATUS (1)) 
      EQUIVALENCE    (STXREG, STATUS (2)) 
      EQUIVALENCE    (STYREG, STATUS (3)) 
 
      INTEGER  CLRACV 
      INTEGER  CLRACX 
      INTEGER  CLRSTA 
      INTEGER  TRAREG 
      INTEGER  SAVREG 
      INTEGER  CTFREE 
      INTEGER  SETREG 
      INTEGER  ICLP11 
      COMMON   /RMCODE/ CLRACV, CLRACX, CLRSTA, TRAREG, SAVREG 
      COMMON   /RMCODE/ CTFREE, SETREG 
      COMMON   /RMCODE/ ICLP11 
 
      INTEGER     STK (20, 13) 
      INTEGER     NAMEX (40) 
      INTEGER     OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      INTEGER ICLP14 
      COMMON      /SDEFS/ STK,    OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      COMMON      /SDEFS/ ICLP14 
      EQUIVALENCE (STK (1,1), NAMEX (1)) 
 
      INTEGER     MODE (40),   SUBX (20),   SUBXM (20),  BIAS (40) 
      EQUIVALENCE (STK (1, 3), MODE  (1)) 
      EQUIVALENCE (STK (1, 2), SUBX  (1)) 
      EQUIVALENCE (STK (1, 4), SUBXM (1)) 
      EQUIVALENCE (STK (1, 5), BIAS  (1)) 
      INTEGER     X, TRACK 
      IF (.NOT. (SIDE .EQ. LEFT))GO TO 13022 
 
      TRACK = LSTKX 
      GO TO 13023 
13022 CONTINUE 
 
      TRACK = RSTKX 
13023 CONTINUE 
 
      X = 0 
      IF (TRACK .NE. 0) CALL REGSRC (2, NAMEX (LSTKX), MODE (LSTKX), SUB
     1X(LSTKX), SUBXM (LSTKX), BIAS  (LSTKX), X) 
      IF (.NOT. (X .NE. AREG))GO TO 13024 
 
      IF (STAREG .NE. SIDE + STKSIZ) CALL REGMAN (SAVREG, AREG, X) 
      CALL GENDO 
13024 CONTINUE 
 
      IF (.NOT. (TRACK .NE. 0))GO TO 13026 
 
      CALL REGMAN (SETREG, AREG, TRACK) 
      GO TO 13027 
13026 CONTINUE 
 
      CALL REGMAN (CLRACX, AREG, 0) 
13027 CONTINUE 
 
      RETURN 
      END