C     EDIT DATE   07SEP78  11:28
C     SOURCE FILE GENCOMAJH.IN
C     AUTHOR      A.  J. HOWARD
      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

C     EDIT DATE   09OCT78  11:13
C     SOURCE FILE GENCOMFTM.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
      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