INTEGER     OREG
      'INCLUDE'   LOGOSAJH.IN,
      'INCLUDE'   REGSJHP.IN,
      'INCLUDE'   RMCODES.IN,
      'INCLUDE'   STKDFA.IN,
      'INCLUDE'   STKDFE.IN,
      'INCLUDE'   GENCMA.IN,
      INTEGER     BCODE (3, 3)
      DATA        BCODE / 169, 173, 165, ^ // LDAI LDAABS LDAZP
                          162, 174, 166, ^ // LDXI LDXABS LDXZP
                          160, 172, 164/   // LDYI LDYABS LDYZP
C     CHECK FOR DIRECT LOAD
C
      TS = OPCODE (SIDE)
      'DOLOOP' I = 1, 3
         'IF' (BCODE (I, 1) .EQ. TS)
C           CORE TO X OR Y DIRECTLY
C
            OPCODE (SIDE) = BCODE (I, OREG)
            CALL REGMAN (SAVREG, OREG, DUMMY)
            CALL GENDO
            OPCODE (SIDE) = BCODE (I, 1)
            ACTLO = OREG
            RETURN
            'ENDIF'
         'END'
C     LOAD IT THROUGH THE AREG
C
      CALL GENLA
      CALL GENTRA (AREG, OREG)
      RETURN
      END