/* m08mch.c */

/*
 *  Copyright (C) 1993-2009  Alan R. Baldwin
 *
 *  This program is free software: you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation, either version 3 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 *
 *
 * Alan R. Baldwin
 * 721 Berkeley St.
 * Kent, Ohio  44240
 */

#include "asxxxx.h"
#include "m6808.h"

char    *cpu    = "Motorola 68HC(S)08";
char    *dsft   = "asm";

/*
 * Opcode Cycle Definitions
 */
#define OPCY_SDP        ((char) (0xFF))
#define OPCY_ERR        ((char) (0xFE))
#define OPCY_CPU        ((char) (0xFD))


/*      OPCY_NONE       ((char) (0x80)) */
/*      OPCY_MASK       ((char) (0x7F)) */

#define UN      ((char) (OPCY_NONE | 0x00))
#define P2      ((char) (OPCY_NONE | 0x01))


/*
 * 6805 Cycles
 */

static char m05cyc[256] = {
/*--*--* 0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F */
/*--*--* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - */
/*00*/  10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,
/*10*/   7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
/*20*/   4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
/*30*/   6,UN,UN, 6, 6,UN, 6, 6, 6, 6, 6,UN, 6, 6,UN, 6,
/*40*/   4,UN,UN, 4, 4,UN, 4, 4, 4, 4, 4,UN, 4, 4,UN, 4,
/*50*/   4,UN,UN, 4, 4,UN, 4, 4, 4, 4, 4,UN, 4, 4,UN, 4,
/*60*/   7,UN,UN, 7, 7,UN, 7, 7, 7, 7, 7,UN, 7, 7,UN, 7,
/*70*/   6,UN,UN, 6, 6,UN, 6, 6, 6, 6, 6,UN, 6, 6,UN, 6,
/*80*/   9, 6,UN,11,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN, 2, 2,
/*90*/  UN,UN,UN,UN,UN,UN,UN, 2, 2, 2, 2, 2, 2, 2,UN, 2,
/*A0*/   2, 2, 2, 2, 2, 2, 2,UN, 2, 2, 2, 2,UN, 8, 2,UN,
/*B0*/   4, 4, 4, 4, 4, 4, 4, 5, 4, 4, 4, 4, 3, 7, 4, 5,
/*C0*/   5, 5, 5, 5, 5, 5, 5, 6, 5, 5, 5, 5, 4, 8, 5, 6,
/*D0*/   6, 6, 6, 6, 6, 6, 6, 7, 6, 6, 6, 6, 5, 9, 6, 7,
/*E0*/   5, 5, 5, 5, 5, 5, 5, 6, 5, 5, 5, 5, 4, 8, 5, 6,
/*F0*/   4, 4, 4, 4, 4, 4, 4, 5, 4, 4, 4, 4, 3, 7, 4, 5
};


/*
 * 146805 CMOS Cycles
 */

static char mcmcyc[256] = {
/*--*--* 0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F */
/*--*--* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - */
/*00*/   5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
/*10*/   5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
/*20*/   3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
/*30*/   5,UN,UN, 5, 5,UN, 5, 5, 5, 5, 5,UN, 5, 4,UN, 5,
/*40*/   3,UN,UN, 3, 3,UN, 3, 3, 3, 3, 3,UN, 3, 3,UN, 3,
/*50*/   3,UN,UN, 3, 3,UN, 3, 3, 3, 3, 3,UN, 3, 3,UN, 3,
/*60*/   6,UN,UN, 6, 6,UN, 6, 6, 6, 6, 6,UN, 6, 5,UN, 6,
/*70*/   5,UN,UN, 5, 5,UN, 5, 5, 5, 5, 5,UN, 5, 4,UN, 5,
/*80*/   9, 6,UN,10,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN, 2, 2,
/*90*/  UN,UN,UN,UN,UN,UN,UN, 2, 2, 2, 2, 2, 2, 2,UN, 2,
/*A0*/   2, 2, 2, 2, 2, 2, 2,UN, 2, 2, 2, 2,UN, 6, 2,UN,
/*B0*/   3, 3, 3, 3, 3, 3, 3, 4, 3, 3, 3, 3, 2, 5, 3, 4,
/*C0*/   4, 4, 4, 4, 4, 4, 4, 5, 4, 4, 4, 4, 3, 6, 4, 5,
/*D0*/   5, 5, 5, 5, 5, 5, 5, 6, 5, 5, 5, 5, 4, 7, 5, 6,
/*E0*/   4, 4, 4, 4, 4, 4, 4, 5, 4, 4, 4, 4, 3, 6, 4, 5,
/*F0*/   3, 3, 3, 3, 3, 3, 3, 4, 3, 3, 3, 3, 2, 5, 3, 4
};


/*
 * 68HC08 Cycles
 */

static char  m08pg1[256] = {
/*--*--* 0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F */
/*--*--* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - */
/*00*/   5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
/*10*/   4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
/*20*/   3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
/*30*/   4, 5,UN, 4, 4, 4, 4, 4, 4, 4, 4, 5, 4, 3,UN, 3,
/*40*/   1, 4, 5, 1, 1, 3, 1, 1, 1, 1, 1, 3, 1, 1, 5, 1,
/*50*/   1, 4, 7, 1, 1, 4, 1, 1, 1, 1, 1, 3, 1, 1, 4, 1,
/*60*/   4, 5, 3, 4, 4, 3, 4, 4, 4, 4, 4, 5, 4, 3, 4, 3,
/*70*/   3, 4, 2, 3, 3, 4, 3, 3, 3, 3, 3, 4, 3, 2, 4, 2,
/*80*/   7, 4,UN, 9, 2, 1, 2, 2, 2, 2, 2, 2, 1,UN, 1, 1,
/*90*/   3, 3, 3, 3, 2, 2,UN, 1, 1, 1, 2, 2, 1, 1,P2, 1,
/*A0*/   2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,UN, 4, 2, 2,
/*B0*/   3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 4, 3, 3,
/*C0*/   4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 3, 5, 4, 4,
/*D0*/   4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, 4, 4,
/*E0*/   3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 3, 3,
/*F0*/   2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 4, 2, 2
};

static char  m08pg2[256] = {
/*--*--* 0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F */
/*--*--* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - */
/*00*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*10*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*20*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*30*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*40*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*50*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*60*/   5, 6,UN, 5, 5,UN, 5, 5, 5, 5, 5, 6, 5, 4,UN, 4,
/*70*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*80*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*90*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*A0*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*B0*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*C0*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*D0*/   5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,UN,UN, 5, 5,
/*E0*/   4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,UN,UN, 4, 4,
/*F0*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN
};

static char *m08Page[2] = {
    m08pg1, m08pg2
};


/*
 * 68HCS08 Cycles
 */

static char  s08pg1[256] = {
/*--*--* 0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F */
/*--*--* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - */
/*00*/   5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
/*10*/   5, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
/*20*/   3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
/*30*/   5, 5, 5, 5, 5, 4, 5, 5, 5, 5, 5, 7, 5, 4, 6, 5,
/*40*/   1, 4, 5, 1, 1, 3, 1, 1, 1, 1, 1, 4, 1, 1, 6, 1,
/*50*/   1, 4, 6, 1, 1, 4, 1, 1, 1, 1, 1, 4, 1, 1, 5, 1,
/*60*/   5, 5, 1, 5, 5, 3, 5, 5, 5, 5, 5, 7, 5, 4, 4, 5,
/*70*/   4, 5, 1, 4, 4, 5, 4, 4, 4, 4, 4, 6, 4, 3, 5, 4,
/*80*/   9, 6, 5,11, 1, 1, 3, 2, 3, 2, 3, 2, 1,UN, 2, 2,
/*90*/   3, 3, 3, 3, 2, 2, 5, 1, 1, 1, 1, 1, 1, 1,P2, 1,
/*A0*/   2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,UN, 5, 2, 2,
/*B0*/   3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 3, 3,
/*C0*/   4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, 4, 4,
/*D0*/   4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, 4, 4,
/*E0*/   3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 3, 3,
/*F0*/   3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 5, 3, 2
};

static char  s08pg2[256] = {
/*--*--* 0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F */
/*--*--* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - */
/*00*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*10*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*20*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*30*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*40*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*50*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*60*/   6, 6,UN, 6, 6,UN, 6, 6, 6, 6, 6, 8, 6, 5,UN, 6,
/*70*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*80*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*90*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,
/*A0*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN, 5,UN,
/*B0*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN, 6,UN,
/*C0*/  UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN, 5,UN,
/*D0*/   5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,UN,UN, 5, 5,
/*E0*/   4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,UN,UN, 4, 4,
/*F0*/  UN,UN,UN, 6,UN,UN,UN,UN,UN,UN,UN,UN,UN,UN, 5, 5
};

static char *s08Page[2] = {
    s08pg1, s08pg2
};


static int mchtyp;


/*
 * Process a machine op.
 */
VOID
machine(mp)
struct mne *mp;
{
        int op, t1, t2, type;
        struct expr e1, e2, e3;
        a_uint espv;
        struct area *espa;
        char id[NCPS];
        int c, v1;

        clrexpr(&e1);
        clrexpr(&e2);
        clrexpr(&e3);
        op = (int) mp->m_valu;
        type = mp->m_type;
        switch (type) {

        case S_SDP:
                opcycles = OPCY_SDP;
                espa = NULL;
                if (more()) {
                        expr(&e1, 0);
                        if (e1.e_flag == 0 && e1.e_base.e_ap == NULL) {
                                if (e1.e_addr) {
                                        err('b');
                                }
                        }
                        if ((c = getnb()) == ',') {
                                getid(id, -1);
                                espa = alookup(id);
                                if (espa == NULL) {
                                        err('u');
                                }
                        } else {
                                unget(c);
                        }
                }
                if (espa) {
                        outdp(espa, &e1, 0);
                } else {
                        outdp(dot.s_area, &e1, 0);
                }
                lmode = SLIST;
                break;

        case S_CPU:
                opcycles = OPCY_CPU;
                mchtyp = op;
                sym[2].s_addr = op;
                lmode = SLIST;
                break;

        case S_INH8S:
                if (mchtyp != X_HCS08) {
                        opcycles = OPCY_ERR;
                        err('o');
                        break;
                } /* Fall Through */
        case S_INH8:
                if ((mchtyp != X_HC08) && (mchtyp != X_HCS08)) {
                        opcycles = OPCY_ERR;
                        err('o');
                        break;
                } /* Fall Through */
        case S_INH:
                outab(op);
                break;

        case S_BRA8:
                if ((mchtyp != X_HC08) && (mchtyp != X_HCS08)) {
                        opcycles = OPCY_ERR;
                        err('o');
                        break;
                } /* Fall Through */
        case S_BRA:
                expr(&e1, 0);
                outab(op);
                if (mchpcr(&e1)) {
                        v1 = (int) (e1.e_addr - dot.s_addr - 1);
                        if ((v1 < -128) || (v1 > 127))
                                aerr();
                        outab(v1);
                } else {
                        outrb(&e1, R_PCR);
                }
                if (e1.e_mode != S_USER)
                        rerr();
                break;

        case S_TYP1:
                t1 = addr(&e1);
                if (t1 == S_A) {
                        outab(op+0x10);
                        break;
                }
                if (t1 == S_X) {
                        outab(op+0x20);
                        break;
                }
                if (t1 == S_DIR || t1 == S_EXT) {
                        outab(op);
                        outrb(&e1, R_PAG0);
                        break;
                }
                if (t1 == S_IX) {
                        outab(op+0x40);
                        break;
                }
                if (t1 == S_IX1 || t1 == S_IX2) {
                        outab(op+0x30);
                        outrb(&e1, R_USGN);
                        break;
                }
                if (t1 == S_SP1 || t1 == S_SP2) {
                        if ((mchtyp == X_HC08) || (mchtyp == X_HCS08)) {
                                outab(0x9e);
                                outab(op+0x30);
                                outrb(&e1, R_USGN);
                                break;
                        }
                }
                aerr();
                break;

        case S_TYP2:
                t1 = addr(&e1);
                if (t1 == S_IMMED) {
                        if ((op == 0xA7) || (op == 0xAC) ||
                            (op == 0xAD) || (op == 0xAF))
                                aerr();
                        outab(op);
                        outrb(&e1, 0);
                        break;
                }
                if (t1 == S_DIR) {
                        outab(op+0x10);
                        outrb(&e1, R_PAG0);
                        break;
                }
                if (t1 == S_EXT) {
                        outab(op+0x20);
                        outrw(&e1, 0);
                        break;
                }
                if (t1 == S_IX) {
                        outab(op+0x50);
                        break;
                }
                if (t1 == S_IX1) {
                        outab(op+0x40);
                        outrb(&e1, R_USGN);
                        break;
                }
                if (t1 == S_IX2) {
                        outab(op+0x30);
                        outrw(&e1, 0);
                        break;
                }
                if (t1 == S_SP1) {
                        if ((mchtyp == X_HC08) || (mchtyp == X_HCS08)) {
                                if (op == 0xAC || op == 0xAD)
                                        aerr();
                                outab(0x9e);
                                outab(op+0x40);
                                outrb(&e1, R_USGN);
                                break;
                        }
                }
                if (t1 == S_SP2) {
                        if ((mchtyp == X_HC08) || (mchtyp == X_HCS08)) {
                                if (op == 0xAC || op == 0xAD)
                                        aerr();
                                outab(0x9e);
                                outab(op+0x30);
                                outrw(&e1, 0);
                                break;
                        }
                }
                aerr();
                break;

        case S_TYP3:
                t1 = addr(&e1);
                espv = e1.e_addr;
                if (t1 != S_IMMED || espv & ~0x07)
                        aerr();
                comma(1);
                t2 = addr(&e2);
                if (t2 != S_DIR)
                        aerr();
                outab(op + 2*(espv&0x07));
                outrb(&e2, R_PAG0);
                break;

        case S_TYP4:
                t1 = addr(&e1);
                espv = e1.e_addr;
                if (t1 != S_IMMED || espv & ~0x07)
                        aerr();
                comma(1);
                t2 = addr(&e2);
                if (t2 != S_DIR)
                        aerr();
                comma(1);
                expr(&e3, 0);
                outab(op + 2*(espv&0x07));
                outrb(&e2, R_PAG0);
                if (mchpcr(&e3)) {
                        v1 = (int) (e3.e_addr - dot.s_addr - 1);
                        if ((v1 < -128) || (v1 > 127))
                                aerr();
                        outab(v1);
                } else {
                        outrb(&e3, R_PCR);
                }
                if (e3.e_mode != S_USER)
                        rerr();
                break;

        case S_TYPAI:
                if ((mchtyp != X_HC08) && (mchtyp != X_HCS08)) {
                        opcycles = OPCY_ERR;
                        err('o');
                        break;
                }
                t1 = addr(&e1);
                if (t1 == S_IMMED) {
                        outab(op);
                        if (e1.e_flag == 0 && e1.e_base.e_ap == NULL) {
                                v1 = (int) e1.e_addr;
                                if ((v1 < -128) || (v1 > 127))
                                        aerr();
                                outab(v1);
                        } else {
                                outrb(&e1, 0);
                        }
                        break;
                }
                aerr();
                break;

        case S_TYPHX:
                if ((mchtyp != X_HC08) && (mchtyp != X_HCS08)) {
                        opcycles = OPCY_ERR;
                        err('o');
                        break;
                }
                t1 = addr(&e1);
                if (t1 == S_IMMED) {
                        if (op == 0x25)
                                aerr();
                        outab(op);
                        outrw(&e1, 0);
                        break;
                }
                if (mchtyp == X_HCS08) {
                        if (t1 == S_EXT) {
                                switch (op) {
                                default:
                                case 0x25:      outab(0x96);    break;
                                case 0x45:      outab(0x32);    break;
                                case 0x65:      outab(0x3E);    break;
                                }
                                outrw(&e1, 0);
                                break;
                        }
                        if ((t1 == S_SP1) || (t1 == S_SP2)) {
                                outab(0x9E);
                                switch (op) {
                                default:
                                case 0x25:      outab(0xFF);    break;
                                case 0x45:      outab(0xFE);    break;
                                case 0x65:      outab(0xF3);    break;
                                }
                                outrb(&e1, R_USGN);
                                break;
                        }
                        if ((t1 == S_IX) && (op == 0x45)) {
                                outab(0x9E);
                                outab(0xAE);
                                break;
                        }
                        if ((t1 == S_IX1) && (op == 0x45)) {
                                outab(0x9E);
                                outab(0xCE);
                                outrb(&e1, R_USGN);
                                break;
                        }
                        if ((t1 == S_IX2) && (op == 0x45)) {
                                outab(0x9E);
                                outab(0xBE);
                                outrw(&e1, 0);
                                break;
                        }
                } else {
                        if (t1 == S_EXT) {
                                t1 = S_DIR;
                        }
                }
                if (t1 == S_DIR) {
                        outab(op | 0x10);
                        outrb(&e1, R_PAG0);
                        break;
                }
                aerr();
                break;

        case S_CBEQ:
                if ((mchtyp != X_HC08) && (mchtyp != X_HCS08)) {
                        opcycles = OPCY_ERR;
                        err('o');
                        break;
                }
                t1 = addr(&e1);
                comma(1);
                expr(&e2, 0);
                if (t1 == S_IMMED) {
                        outab(op);
                        outrb(&e1, 0);
                } else
                if (t1 == S_DIR || t1 == S_EXT) {
                        outab(op);
                        outrb(&e1, R_PAG0);
                } else
                if (t1 == S_IXP) {
                        outab(op+0x40);
                } else
                if (t1 == S_IX1P || t1 == S_IX2P) {
                        outab(op+0x30);
                        outrb(&e1, R_USGN);
                } else
                if (t1 == S_SP1 || t1 == S_SP2) {
                        outab(0x9E);
                        outab(op+0x30);
                        outrb(&e1, R_USGN);
                } else {
                        aerr();
                        break;
                }
                if (mchpcr(&e2)) {
                        v1 = (int) (e2.e_addr - dot.s_addr - 1);
                        if ((v1 < -128) || (v1 > 127))
                                aerr();
                        outab(v1);
                } else {
                        outrb(&e2, R_PCR);
                }
                if (e2.e_mode != S_USER)
                        rerr();
                break;

        case S_CQAX:
                if ((mchtyp != X_HC08) && (mchtyp != X_HCS08)) {
                        opcycles = OPCY_ERR;
                        err('o');
                        break;
                }
                t1 = addr(&e1);
                if (t1 != S_IMMED)
                        aerr();
                comma(1);
                expr(&e2, 0);
                outab(op);
                outrb(&e1, 0);
                if (mchpcr(&e2)) {
                        v1 = (int) (e2.e_addr - dot.s_addr - 1);
                        if ((v1 < -128) || (v1 > 127))
                                aerr();
                        outab(v1);
                } else {
                        outrb(&e2, R_PCR);
                }
                if (e2.e_mode != S_USER)
                        rerr();
                break;

        case S_DBNZ:
                if ((mchtyp != X_HC08) && (mchtyp != X_HCS08)) {
                        opcycles = OPCY_ERR;
                        err('o');
                        break;
                }
                t1 = addr(&e1);
                comma(1);
                expr(&e2, 0);
                if (t1 == S_DIR || t1 == S_EXT) {
                        outab(op);
                        outrb(&e1, R_PAG0);
                } else
                if (t1 == S_IX) {
                        outab(op+0x40);
                } else
                if (t1 == S_IX1 || t1 == S_IX2) {
                        outab(op+0x30);
                        outrb(&e1, R_USGN);
                } else
                if (t1 == S_SP1 || t1 == S_SP2) {
                        outab(0x9E);
                        outab(op+0x30);
                        outrb(&e1, R_USGN);
                } else {
                        aerr();
                        break;
                }
                if (mchpcr(&e2)) {
                        v1 = (int) (e2.e_addr - dot.s_addr - 1);
                        if ((v1 < -128) || (v1 > 127))
                                aerr();
                        outab(v1);
                } else {
                        outrb(&e2, R_PCR);
                }
                if (e2.e_mode != S_USER)
                        rerr();
                break;

        case S_DZAX:
                if ((mchtyp != X_HC08) && (mchtyp != X_HCS08)) {
                        opcycles = OPCY_ERR;
                        err('o');
                        break;
                }
                expr(&e1, 0);
                outab(op);
                if (mchpcr(&e1)) {
                        v1 = (int) (e1.e_addr - dot.s_addr - 1);
                        if ((v1 < -128) || (v1 > 127))
                                aerr();
                        outab(v1);
                } else {
                        outrb(&e1, R_PCR);
                }
                if (e1.e_mode != S_USER)
                        rerr();
                break;

        case S_MOV:
                if ((mchtyp != X_HC08) && (mchtyp != X_HCS08)) {
                        opcycles = OPCY_ERR;
                        err('o');
                        break;
                }
                t1 = addr(&e1);
                if (t1 == S_IX1P || t1 == S_IX2P) {
                        outab(op+0x10);
                        outrb(&e1, R_PAG0);
                        break;
                }
                comma(1);
                t2 = addr(&e2);
                if (t1 == S_IMMED) {
                        if (t2 == S_DIR || t2 == S_EXT) {
                                outab(op+0x20);
                                outrb(&e1, 0);
                                outrb(&e2, R_PAG0);
                                break;
                        }
                }
                if (t1 == S_DIR || t1 == S_EXT) {
                        if (t2 == S_DIR || t2 == S_EXT) {
                                outab(op);
                                outrb(&e1, R_PAG0);
                                outrb(&e2, R_PAG0);
                                break;
                        }
                }
                if (t1 == S_IXP) {
                        if (t2 == S_DIR || t2 == S_EXT) {
                                outab(op+0x30);
                                outrb(&e2, R_PAG0);
                                break;
                        }
                }
                aerr();
                break;


        default:
                opcycles = OPCY_ERR;
                err('o');
                break;
        }

        if (opcycles == OPCY_NONE) {
                switch (mchtyp) {
                case X_HC08:            /* 68HC08 */
                        opcycles = m08pg1[cb[0] & 0xFF];
                        if ((opcycles & OPCY_NONE) && (opcycles & OPCY_MASK)) {
                                opcycles = m08Page[opcycles & OPCY_MASK][cb[1] & 0xFF];
                        }
                        break;
                case X_HCS08:           /* 68HCS08 */
                        opcycles = s08pg1[cb[0] & 0xFF];
                        if ((opcycles & OPCY_NONE) && (opcycles & OPCY_MASK)) {
                                opcycles = s08Page[opcycles & OPCY_MASK][cb[1] & 0xFF];
                        }
                        break;
                case X_6805:            /* 6805 */
                        opcycles = m05cyc[cb[0] & 0xFF];
                        break;
                case X_HC05:            /* 146805 */
                        opcycles = mcmcyc[cb[0] & 0xFF];
                        break;
                }
        }
}

/*
 * Branch/Jump PCR Mode Check
 */
int
mchpcr(esp)
struct expr *esp;
{
        if (esp->e_base.e_ap == dot.s_area) {
                return(1);
        }
        if (esp->e_flag==0 && esp->e_base.e_ap==NULL) {
                /*
                 * Absolute Destination
                 *
                 * Use the global symbol '.__.ABS.'
                 * of value zero and force the assembler
                 * to use this absolute constant as the
                 * base value for the relocation.
                 */
                esp->e_flag = 1;
                esp->e_base.e_sp = &sym[1];
        }
        return(0);
}

/*
 * Machine specific initialization.
 */
VOID
minit()
{
        /*
         * Byte Order
         */
        hilo = 1;

        if (pass == 0) {
                mchtyp = X_HC08;
                sym[2].s_addr = X_HC08;
        }
}