C     EDIT DATE   09OCT78  11:13
C     SOURCE FILE GENCMB.IN
C     AUTHOR      F. T. MICKEY
C     CLUSTER     X
      INTEGER GENRET
      INTEGER MODEX
      INTEGER RAWMDX
      INTEGER SPTR
C     GENER FUNCTIONS
      INTEGER TSTSTK    // TEST STACK
      INTEGER SWAP
      INTEGER TOPDP     // CONVERT (TOPX) TO DP
      INTEGER NEXTDP    // CONVERT (NEXTX) TO DP
      INTEGER TOPSP     // CONVERT (TOPX) TO SP
      INTEGER NEXTSP    // CONVERT (NEXTX) TO SP
      INTEGER SAVCAL    // SAVE ANY ACTIVE REGISTERS
      INTEGER OUT
      INTEGER GETSP     // GET STACK POINTER
      INTEGER SMODEX    // SET MODEX
      INTEGER SETX
I     INTEGER ICLP02
      COMMON   /GENC/   GENRET
      COMMON   /GENC/   MODEX
      COMMON   /GENC/   RAWMDX
      COMMON   /GENC/   SPTR
      COMMON   /GENC/   TSTSTK
      COMMON   /GENC/   SWAP
      COMMON   /GENC/   TOPDP
      COMMON   /GENC/   NEXTDP
      COMMON   /GENC/   TOPSP
      COMMON   /GENC/   NEXTSP
      COMMON   /GENC/   SAVCAL
      COMMON   /GENC/   OUT
      COMMON   /GENC/   GETSP
      COMMON   /GENC/   SMODEX
      COMMON   /GENC/   SETX
I     COMMON   /GENC/   ICLP02