// asmz80.c

#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>

#define version "Z-80 assembler version 1.7.1"
#define maxOpcdLen  7       // max opcode legnth (for building opcode table)
#define INSTR_MAX   5       // length of longest valid instruction (really 4 for Z-80)
#define LITTLE_ENDIAN       // CPU is little-endian

enum instrType
{
    o_Illegal,  // Opcode not found in FindOpcode
    o_None,     // No operands
    o_LD,       // Generic LD opcode
    o_EX,       // Generic EX opcode
    o_ADD,      // Generic ADD opcode
    o_ADC_SBC,  // Generic ADC and SBC opcodes
    o_INC_DEC,  // Generic INC and DEC opcodes
    o_JP_CALL,  // Generic JP and CALL opcodes
    o_JR,       // Generic JR opcode
    o_RET,      // Generic RET opcode
    o_IN,       // Generic IN opcode
    o_OUT,      // Generic OUT opcode

    o_PushPop,  // PUSH and POP instructions
    o_Arith,    // Arithmetic instructions
    o_Rotate,   // Z-80 rotate instructions
    o_Bit,      // BIT, RES, and SET instructions
    o_IM,       // IM instruction
    o_DJNZ,     // DJNZ instruction
    o_RST,      // RST instruction

    o_DB,       // DB pseudo-op
    o_DWLE,     // DW pseudo-op
    o_DWBE,     // big-endian DW
    o_DS,       // DS pseudo-op
    o_HEX,      // HEX pseudo-op
    o_FCC,      // FCC pseudo-op
    o_ALIGN,    // ALIGN pseudo-op

    o_END,      // END pseudo-op
    o_Include,  // INCLUDE pseudo-op

    o_ENDM,     // ENDM pseudo-op
    o_MacName,  // Macro name

    o_LabelOp,  // the following pseudo-ops handle the label field specially
    o_EQU,      // EQU and SET pseudo-ops
    o_ORG,      // ORG pseudo-op
    o_RORG,     // RORG pseudo-op
    o_REND,     // REND pseudo-op
    o_LIST,     // LIST pseudo-op
    o_OPT,      // OPT pseudo-op
    o_ERROR,    // ERROR pseudo-op
    o_MACRO,    // MACRO pseudo-op
    o_SEG,      // SEG pseudo-op

    o_IF,       // IF <expr> pseudo-op
    o_ELSE,     // ELSE pseudo-op
    o_ELSIF,    // ELSIF <expr> pseudo-op
    o_ENDIF     // ENDIF pseudo-op
};

#include "asmguts.h"

const char conds[] = "NZZ NCC POPEP M ";
// NZ=0 Z=1 NC=2 C=3 PO=4 PE=5 P=6 M=7

const char regs[] = "B C D E H L   A I R BCDEHLSPIXIYAF( ";

enum regType    // these are keyed to regs[] above
{
    reg_None = -1,  // -1
    reg_B,          //  0
    reg_C,          //  1
    reg_D,          //  2
    reg_E,          //  3
    reg_H,          //  4
    reg_L,          //  5
    reg_M,          //  6
    reg_A,          //  7
    reg_I,          //  8
    reg_R,          //  9
    reg_BC,         // 10
    reg_DE,         // 11
    reg_HL,         // 12
    reg_SP,         // 13
    reg_IX,         // 14
    reg_IY,         // 15
    reg_AF,         // 16
    reg_Paren       // 17
};

#define IS_REG_BYTE(x) (reg_B  <= (x) && (x) <= reg_A)
#define IS_REG_WORD(x) (reg_BC <= (x) && (x) <= reg_SP)

struct OpcdRec opcdTab[] =
{
    {"EXX", o_None,     0xD9},
    {"LDI", o_None,     0xEDA0},
    {"LDIR",o_None,     0xEDB0},
    {"LDD", o_None,     0xEDA8},
    {"LDDR",o_None,     0xEDB8},
    {"CPI", o_None,     0xEDA1},
    {"CPIR",o_None,     0xEDB1},
    {"CPD", o_None,     0xEDA9},
    {"CPDR",o_None,     0xEDB9},
    {"DAA", o_None,     0x27},
    {"CPL", o_None,     0x2F},
    {"NEG", o_None,     0xED44},
    {"CCF", o_None,     0x3F},
    {"SCF", o_None,     0x37},
    {"NOP", o_None,     0x00},
    {"HALT",o_None,     0x76},
    {"DI",  o_None,     0xF3},
    {"EI",  o_None,     0xFB},
    {"RLCA",o_None,     0x07},
    {"RLA", o_None,     0x17},
    {"RRCA",o_None,     0x0F},
    {"RRA", o_None,     0x1F},
    {"RLD", o_None,     0xED6F},
    {"RRD", o_None,     0xED67},
    {"RETI",o_None,     0xED4D},
    {"RETN",o_None,     0xED45},
    {"INI", o_None,     0xEDA2},
    {"INIR",o_None,     0xEDB2},
    {"IND", o_None,     0xEDAA},
    {"INDR",o_None,     0xEDBA},
    {"OUTI",o_None,     0xEDA3},
    {"OTIR",o_None,     0xEDB3},
    {"OUTD",o_None,     0xEDAB},
    {"OTDR",o_None,     0xEDBB},

    {"LD",  o_LD,       0},
    {"EX",  o_EX,       0},
    {"ADD", o_ADD,      0},
    {"ADC", o_ADC_SBC,  0},
    {"SBC", o_ADC_SBC,  1},
    {"INC", o_INC_DEC,  0},
    {"DEC", o_INC_DEC,  1},
    {"JP",  o_JP_CALL,  0xC3C2},
    {"CALL",o_JP_CALL,  0xCDC4},
    {"JR",  o_JR,       0},
    {"RET", o_RET,      0},

    {"PUSH",o_PushPop,  0xC5},
    {"POP", o_PushPop,  0xC1},

    {"SUB", o_Arith,    0xD690},
    {"AND", o_Arith,    0xE6A0},
    {"XOR", o_Arith,    0xEEA8},
    {"OR",  o_Arith,    0xF6B0},
    {"CP",  o_Arith,    0xFEB8},

    {"RLC", o_Rotate,   0x00},
    {"RRC", o_Rotate,   0x08},
    {"RL",  o_Rotate,   0x10},
    {"RR",  o_Rotate,   0x18},
    {"SLA", o_Rotate,   0x20},
    {"SRA", o_Rotate,   0x28},
    {"SRL", o_Rotate,   0x38},

    {"BIT", o_Bit,      0x40},
    {"RES", o_Bit,      0x80},
    {"SET", o_Bit,      0xC0},

    {"IM",  o_IM,       0},

    {"DJNZ",o_DJNZ,     0},

    {"IN",  o_IN,       0},
    {"OUT", o_OUT,      0},

    {"RST", o_RST,      0},

    {"DB",  o_DB,       0},
    {"FCB", o_DB,       0},
    {"BYTE",o_DB,       0},
    {".BYTE",o_DB,      0},
    {"DC.B",o_DB,       0},
    {".DC.B",o_DB,      0},
    {"DFB", o_DB,       0},
    {"DW",  o_DWLE,     0},
    {"FDB", o_DWLE,     0},
    {"WORD",o_DWLE,     0},
    {".WORD",o_DWLE,    0},
    {"DC.W",o_DWLE,     0},
    {".DC.W",o_DWLE,    0},
    {"DA",  o_DWLE,     0},
    {"DRW", o_DWBE,     0},
    {"DS",  o_DS,       1},
    {"DS.B", o_DS,      1},
    {".DS.B",o_DS,      1},
    {"RMB", o_DS,       1},
    {"DS.W", o_DS,      2},
    {".DS.W",o_DS,      2},
    {"BLKW", o_DS,      2},
    {"HEX", o_HEX,      0},
    {"FCC", o_FCC,      0},
    {"ALIGN",o_ALIGN,   0},

    {"=",   o_EQU,      0},
    {"EQU", o_EQU,      0},
    {"SET", o_EQU,      1},
    {"DEFL",o_EQU,      1},

    {"ORG",  o_ORG,     0},
    {".ORG", o_ORG,     0},
    {"AORG", o_ORG,     0},
    {"RORG", o_RORG,    0},
    {"REND", o_REND,    0},
    {"END",  o_END,     0},
    {".END", o_END,     0},
    {"LIST", o_LIST,    0},
    {"OPT",  o_OPT,     0},
    {"ERROR",o_ERROR,   0},
    {"MACRO",o_MACRO,   0},
    {".MACRO",o_MACRO,  0},
    {"ENDM", o_ENDM,    0},
    {".ENDM",o_ENDM,    0},
    {"SEG",  o_SEG,     1},
    {"RSEG", o_SEG,     1},
    {"SEG.U",o_SEG,     0},

    {"IF",   o_IF,      0},
    {"ELSE", o_ELSE,    0},
    {"ELSIF",o_ELSIF,   0},
    {"ENDIF",o_ENDIF,   0},

    {"INCLUDE",o_Include,0},

    {"",    o_Illegal,  0}
};


// --------------------------------------------------------------


int FindReg(char *regName, const char *regList)
{

    const char  *p;
    char        r0,r1;
    int         reg;

    r0 = regName[0];
    r1 = regName[1];
    if (r1 == 0) r1 = ' ';
    else if (regName[2]) return reg_None;   // longer than 2 chars!

    reg = 0;
    p = regList;
    while (*p)
    {
        if (r0 == p[0] && r1 == p[1])
            return reg;

        p = p + 2;
        reg++;
    }

    return reg_None;
}


int IXOffset()
{
    Str255  word;
    int     token;
    int     val;

    token = GetWord(word);

    if (token == ')')
        val = 0;
    else if (token == '+' || token == '-')
    {
        val = Eval();
        if (token == '-')
            val = -val;
         RParen();
    }

    return val;
}


void DoArith(int imm, int reg)
{

    char        *oldLine;
    int         reg2;
    Str255      word;
    int         val;

    oldLine = linePtr;
    GetWord(word);
    reg2 = FindReg(word,regs);
    switch(reg2)
    {
        case reg_None:  // ADD A,nn
            linePtr = oldLine;
            val = Eval();
            Instr2(imm,val);
            break;

        case reg_B:
        case reg_C:
        case reg_D:
        case reg_E:
        case reg_H:
        case reg_L:
        case reg_A:     // ADD A,r
            Instr1(reg + reg2);
            break;

        case reg_Paren: // ADD A,(
            GetWord(word);
            reg2 = FindReg(word,regs);
            switch(reg2)
            {
                case reg_HL:
                    RParen();
                    Instr1(reg+reg_M);
                    break;

                case reg_IX:
                case reg_IY:
                    val = IXOffset();
                    if (reg2 == reg_IX) Instr3(0xDD,reg+reg_M,val);
                    else                Instr3(0xFD,reg+reg_M,val);
                    break;

                default:
                    IllegalOperand();
            }
            break;

         default:
            IllegalOperand();
    }
}


void DoOpcode(int typ, int parm)
{
    int     val;
    int     reg1;
    int     reg2;
    Str255  word;
    char    *oldLine;
    int     token;

    switch(typ)
    {

        case o_None:
            if (parm > 255) Instr2(parm >> 8, parm & 255);
            else            Instr1(parm);
            break;

        case o_LD:
            GetWord(word);
            reg1 = FindReg(word,regs);

            switch(reg1)
            {
                case reg_None:  // LD nnnn,?
                    IllegalOperand();
                    break;

                case reg_B:
                case reg_C:
                case reg_D:
                case reg_E:
                case reg_H:
                case reg_L:
                case reg_A:     // LD r,?
                    Comma();
                    oldLine = linePtr;
                    GetWord(word);
                    reg2 = FindReg(word,regs);

                    switch(reg2)
                    {
                        case reg_B:
                        case reg_C:
                        case reg_D:
                        case reg_E:
                        case reg_H:
                        case reg_L:
                        case reg_A:     // LD r,r
                           Instr1(0x40 + reg1*8 + reg2);
                           break;

                        case reg_I:     // LD A,I
                           Instr2(0xED,0x57);
                           break;

                        case reg_R:     // LD A,R
                           Instr2(0xED,0x5F);
                           break;

                        case reg_Paren:     // LD r,(?)
                            oldLine = linePtr;
                            GetWord(word);
                            reg2 = FindReg(word,regs);

                            switch(reg2)
                            {
                                    case reg_BC:    // LD A,(BC)
                                    case reg_DE:    // LD A,(DE)
                                        if (reg1 != reg_A)
                                            IllegalOperand();
                                        else
                                        {
                                            RParen();
                                            Instr1(0x0A + (reg2-reg_BC)*16);
                                        }
                                        break;

                                    case reg_HL:    // LD r,(HL)
                                        RParen();
                                        Instr1(0x40 + reg1*8 + reg_M);
                                        break;

                                    case reg_IX:    // LD r,(IX+d)
                                    case reg_IY:    // LD r,(IY+d)
                                        val = IXOffset();
                                        if (reg2 == reg_IX) Instr3(0xDD,0x46 + reg1*8,val);
                                        else                Instr3(0xFD,0x46 + reg1*8,val);
                                        break;

                                    case reg_None:  // LD A,(nnnn)
                                        if (reg1 != reg_A)
                                            IllegalOperand();
                                        else
                                        {
                                            linePtr = oldLine;
                                            val = Eval();
                                            RParen();
                                            Instr3W(0x3A,val);
                                        }
                                        break;

                                    default:
                                        IllegalOperand();
                                }
                            break;

                        case reg_None:  // LD r,nn
                            linePtr = oldLine;
                            Instr2(0x06 + reg1*8,Eval());
                            break;

                        default:
                            IllegalOperand();
                    }
                    break;

                case reg_I:     // LD I,A
                    Comma();
                    Expect("A");
                    Instr2(0xED,0x47);
                    break;

                case reg_R:     // LD R,A
                    Comma();
                    Expect("A");
                    Instr2(0xED,0x4F);
                    break;

                case reg_BC:
                case reg_DE:
                case reg_HL:
                case reg_SP:    // LD rr,?
                    Comma();
                    oldLine = linePtr;
                    GetWord(word);
                    reg2 = FindReg(word,regs);

                    if (reg1 == reg_SP &&       // LD SP,HL
                        (reg2 == reg_HL || reg2 == reg_IX || reg2 == reg_IY))
                    {
                        switch(reg2)
                        {
                            case reg_HL: Instr1(0xF9);      break;
                            case reg_IX: Instr2(0xDD,0xF9); break;
                            case reg_IY: Instr2(0xFD,0xF9); break;
                        }
                    }

                    else if (reg1 == reg_HL && reg2 == reg_Paren)
                    {
                        val = Eval();   // LD HL,(nnnn)
                        RParen();
                        Instr3W(0x2A,val);
                    }

                    else if (reg2 == reg_Paren)
                    {
                        val = Eval();   // LD BC,(nnnn)
                        RParen();
                        Instr4W(0xED,0x4B + (reg1-reg_BC)*16,val);
                    }

                    else if (reg2 == reg_None)  // LD rr,nnnn
                    {
                        linePtr = oldLine;
                        val = Eval();
                        Instr3W(0x01 + (reg1-reg_BC)*16,val);
                    }

                    else IllegalOperand();

                    break;

                case reg_IX:    // LD IX,?
                case reg_IY:    // LD IY,?
                    Comma();
                    oldLine = linePtr;
                    GetWord(word);
                    reg2 = FindReg(word,regs);

                    switch(reg2)
                    {
                        case reg_None:  // LD IX,nnnn
                            linePtr = oldLine;
                            val = Eval();
                            if (reg1 == reg_IX) Instr4W(0xDD,0x21,val);
                            else                Instr4W(0xFD,0x21,val);
                            break;

                       case reg_Paren:  // LD IX,(nnnn)
                            val = Eval();
                            RParen();
                            if (reg1 == reg_IX) Instr4W(0xDD,0x2A,val);
                            else                Instr4W(0xFD,0x2A,val);
                            break;

                        default:
                            IllegalOperand();
                    }
                    break;

                case reg_Paren:     // LD (?),?
                    oldLine = linePtr;
                    GetWord(word);
                    reg1 = FindReg(word,regs);

                    switch(reg1)
                    {
                        case reg_None:  // LD (nnnn),?
                            linePtr = oldLine;
                            val = Eval();
                            RParen();
                            Comma();
                            GetWord(word);
                            reg2 = FindReg(word,regs);

                            switch(reg2)
                            {
                                case reg_A:  Instr3W(0x32,val); break;
                                case reg_HL: Instr3W(0x22,val); break;
                                case reg_BC:
                                case reg_DE:
                                case reg_SP: Instr4W(0xED,0x43+(reg2-reg_BC)*16,val); break;
                                case reg_IX: Instr4W(0xDD,0x22,val); break;
                                case reg_IY: Instr4W(0xFD,0x22,val); break;

                                default:
                                    IllegalOperand();
                            }
                            break;

                            case reg_BC:
                            case reg_DE:
                                RParen();
                                Comma();
                                Expect("A");
                                Instr1(0x02+(reg1-reg_BC)*16);
                                break;

                            case reg_HL: // LD (HL),?
                                RParen();
                                Comma();
                                oldLine = linePtr;
                                GetWord(word);
                                reg2 = FindReg(word,regs);
                                if (reg2 == reg_None)
                                {
                                    linePtr = oldLine;
                                    val = Eval();
                                    Instr2(0x36,val);
                                }
                                else if (IS_REG_BYTE(reg2))
                                    Instr1(0x70 + reg2);
                                else IllegalOperand();
                                break;

                            case reg_IX:
                            case reg_IY:    // LD (IX),?
                                val = IXOffset();
                                Comma();
                                oldLine = linePtr;
                                GetWord(word);
                                reg2 = FindReg(word,regs);
                                if (reg2 == reg_None)
                                {
                                    linePtr = oldLine;
                                    reg2 = Eval();
                                    if (reg1 == reg_IX) Instr4(0xDD,0x36,val,reg2);
                                    else                Instr4(0xFD,0x36,val,reg2);
                                }
                                else if (IS_REG_BYTE(reg2))
                                {
                                    if (reg1 == reg_IX) Instr3(0xDD,0x70 + reg2,val);
                                    else                    Instr3(0xFD,0x70 + reg2,val);
                                }
                                else IllegalOperand();
                                break;

                            default: IllegalOperand();
                        }
                    break;

                default: IllegalOperand();
            }
            break;

        case o_EX:
            GetWord(word);
            reg1 = FindReg(word,regs);
            switch(reg1)
            {
                case reg_DE:    // EX DE,HL }
                    Comma();
                    Expect("HL");
                    Instr1(0xEB);
                    break;

                case reg_AF:    // EX AF,AF' }
                    Comma();
                    Expect("AF");
                    Expect("'");
                    Instr1(0x08);
                    break;

                case reg_Paren: // EX (SP),? }
                    Expect("SP");
                    RParen();
                    Comma();
                    GetWord(word);
                    reg2 = FindReg(word,regs);
                    switch(reg2)
                    {
                        case reg_HL: Instr1(0xE3);      break;
                        case reg_IX: Instr2(0xDD,0xE3); break;
                        case reg_IY: Instr2(0xFD,0xE3); break;
                        default:
                            IllegalOperand();
                    }
                    break;

                default:
                    IllegalOperand();
            }
            break;

        case o_ADD:
            GetWord(word);
            reg1 = FindReg(word,regs);
            switch(reg1)
            {
                case reg_A:
                    Comma();
                    DoArith(0xC6,0x80);
                    break;

                case reg_HL:
                case reg_IX:
                case reg_IY:
                    Comma();
                    GetWord(word);
                    reg2 = FindReg(word,regs);
                    if (reg2 == reg1) reg2 = reg_HL;
                    if (IS_REG_WORD(reg2))
                    {
                        switch(reg1)
                        {
                            case reg_HL: Instr1(0x09      + (reg2-reg_BC)*16); break;
                            case reg_IX: Instr2(0xDD,0x09 + (reg2-reg_BC)*16); break;
                            case reg_IY: Instr2(0xFD,0x09 + (reg2-reg_BC)*16); break;
                        }
                    }
                    else IllegalOperand();
                    break;

                default: IllegalOperand();
            }
            break;

        case o_ADC_SBC:
            GetWord(word);
            reg1 = FindReg(word,regs);
            switch(reg1)
            {
                case reg_A:
                    Comma();
                    DoArith(parm*16+0xCE,0x88+parm*16); // had to move 0xCE because GCC complained?
                    break;

                case reg_HL:
                    Comma();
                    GetWord(word);
                    reg2 = FindReg(word,regs);
                    if (IS_REG_WORD(reg2))  Instr2(0xED,0x4A + (reg2-reg_BC)*16 - parm*8);
                    else                    IllegalOperand();
                    break;

                default:
                    IllegalOperand();
            }
            break;

        case o_INC_DEC:
            GetWord(word);
            reg1 = FindReg(word,regs);
            switch(reg1)
            {
                case reg_B:
                case reg_C:
                case reg_D:
                case reg_E:
                case reg_H:
                case reg_L:
                case reg_A: // INC r
                    Instr1(0x04 + reg1*8 + parm);
                    break;

                case reg_BC:
                case reg_DE:
                case reg_HL:
                case reg_SP:    // INC rr
                    Instr1(0x03 + (reg1-reg_BC)*16 + parm*8);
                    break;

                case reg_IX: Instr2(0xDD,0x23 + parm*8); break;
                case reg_IY: Instr2(0xFD,0x23 + parm*8); break;

                case reg_Paren: // INC (HL)
                    GetWord(word);
                    reg1 = FindReg(word,regs);
                    switch(reg1)
                    {
                        case reg_HL:
                            RParen();
                            Instr1(0x34 + parm);
                            break;

                        case reg_IX:
                        case reg_IY:
                            val = IXOffset();
                            if (reg1 == reg_IX) Instr3(0xDD,0x34 + parm,val);
                            else                Instr3(0xFD,0x34 + parm,val);
                            break;

                        default:
                            IllegalOperand();
                    }
                    break;

                default:
                    IllegalOperand();
            }
            break;

        case o_JP_CALL:
            oldLine = linePtr;
            token = GetWord(word);
            if (token == '(')
            {
                if (parm >> 8 != 0xC3)
                    IllegalOperand();
                else
                {
                    GetWord(word);
                    reg1 = FindReg(word,regs);
                    RParen();
                    switch(reg1)
                    {
                        case reg_HL: Instr1(0xE9);      break;
                        case reg_IX: Instr2(0xDD,0xE9); break;
                        case reg_IY: Instr2(0xFD,0xE9); break;
                        default:
                            IllegalOperand();
                    }
                }
            }
            else
            {
                reg1 = FindReg(word,conds);
                if (reg1 == reg_None)
                {
                    linePtr = oldLine;
                    val = Eval();
                    Instr3W(parm >> 8,val);
                }
                else
                {
                    Comma();
                    val = Eval();
                    Instr3W((parm & 255) + reg1*8,val);
                }
                if ((parm >> 8) == 0xC3 && reg1 <= 3)
                {
                    val = locPtr + 2 - val;
                    if (-128 <= val && val <= 128)
                        Warning("JR instruction could be used here");
                }
            }
            break;

        case o_JR:
            oldLine = linePtr;
            GetWord(word);
            reg1 = FindReg(word,conds);
            if (reg1 == reg_None)
            {
                linePtr = oldLine;
                val = EvalBranch(2);
                Instr2(0x18,val);
            }
            else if (reg1 >= 4)
               IllegalOperand();
            else
            {
                Comma();
                val = EvalBranch(2);
                Instr2(0x20 + reg1*8,val);
            }
            break;

        case o_RET:
            GetWord(word);
            reg1 = FindReg(word,conds);
            if (reg1 == reg_None)   Instr1(0xC9);
                            else    Instr1(0xC0 + reg1*8);
            break;

        case o_IN:
            GetWord(word);
            reg1 = FindReg(word,regs);
            if (IS_REG_BYTE(reg1))
            {
                Comma();
                Expect("(");
                oldLine = linePtr;
                GetWord(word);
                reg2 = FindReg(word,regs);

                if (reg1 == reg_A && reg2 == reg_None)
                {
                    linePtr = oldLine;
                    val = Eval();
                    RParen();
                    Instr2(0xDB,val);
                }
                else if (reg2 == reg_C)
                {
                    RParen();
                    Instr2(0xED,0x40 + reg1*8);
                }
                else IllegalOperand();
            }
            else IllegalOperand();
            break;

        case o_OUT:
            Expect("(");
            oldLine = linePtr;
            GetWord(word);
            reg1 = FindReg(word,regs);

            if (reg1 == reg_None)
            {
                linePtr = oldLine;
                val = Eval();
                RParen();
                Comma();
                Expect("A");
                Instr2(0xD3,val);
            }
            else if (reg1 == reg_C)
            {
                RParen();
                Comma();
                GetWord(word);
                reg2 = FindReg(word,regs);
                if (IS_REG_BYTE(reg2))  Instr2(0xED,0x41 + reg2*8);
                else                    IllegalOperand();
            }
            else IllegalOperand();
            break;

        case o_PushPop:
            GetWord(word);
            reg1 = FindReg(word,regs);
            switch(reg1)
            {
                case reg_BC:
                case reg_DE:
                case reg_HL:
                    Instr1(parm + (reg1-reg_BC)*16);
                    break;

                case reg_AF:
                    Instr1(parm + 0x30);
                    break;

                case reg_IX:
                    Instr2(0xDD,parm + 0x20);
                    break;

                case reg_IY:
                    Instr2(0xFD,parm + 0x20);
                    break;

                default:
                    IllegalOperand();
            }
            break;

        case o_Arith:
            DoArith(parm >> 8, parm & 255);
            break;

        case o_Rotate:
            GetWord(word);
            reg1 = FindReg(word,regs);
            switch(reg1)
            {
                case reg_B:
                case reg_C:
                case reg_D:
                case reg_E:
                case reg_H:
                case reg_L:
                case reg_A:     // RLC r
                    Instr2(0xCB,parm+reg1);
                    break;

                case reg_Paren:
                    GetWord(word);
                    reg1 = FindReg(word,regs);
                    switch(reg1)
                    {
                        case reg_HL:
                            RParen();
                            Instr2(0xCB,parm+reg_M);
                            break;

                        case reg_IX:
                        case reg_IY:
                            val = IXOffset();
                            if (reg1 == reg_IX) Instr4(0xDD,0xCB,val,parm+reg_M);
                            else                Instr4(0xFD,0xCB,val,parm+reg_M);
                            break;

                        default:
                            IllegalOperand();
                    }
                    break;

                default:
                    IllegalOperand();
            }
            break;

        case o_Bit:
            reg1 = Eval();
            Comma();
            GetWord(word);
            reg2 = FindReg(word,regs);
            switch(reg2)
            {
                case reg_B:
                case reg_C:
                case reg_D:
                case reg_E:
                case reg_H:
                case reg_L:
                case reg_A:     // BIT n,r
                    Instr2(0xCB,parm + reg1*8 + reg2);
                    break;

                case reg_Paren:     // BIT n,(HL)
                    GetWord(word);
                     reg2 = FindReg(word,regs);
                     switch(reg2)
                     {
                        case reg_HL:
                              RParen();
                              Instr2(0xCB,parm + reg1*8 + reg_M);
                            break;

                        case reg_IX:
                        case reg_IY:
                            val = IXOffset();
                            if (reg2 == reg_IX) Instr4(0xDD,0xCB,val,parm + reg1*8 + reg_M);
                            else                Instr4(0xFD,0xCB,val,parm + reg1*8 + reg_M);
                            break;

                        default:
                            IllegalOperand();
                    }
                    break;
            }
            break;

        case o_IM:
            GetWord(word);
            if (word[1])
                IllegalOperand();
            else
                switch(word[0])
                {
                    case '0': Instr2(0xED,0x46); break;
                    case '1': Instr2(0xED,0x56); break;
                    case '2': Instr2(0xED,0x5E); break;
                    default:
                        IllegalOperand();
                }
            break;

        case o_DJNZ:
            val = EvalBranch(2);
            Instr2(0x10,val);
            break;

        case o_RST:
            val = Eval();
            if (0 <= val && val <= 7)
                Instr1(0xC7 + val*8);
            else if ((val & 0xC7) == 0) // [$08,$10,$18,$20,$28,$30,$38]
                Instr1(0xC7 + val);
            else IllegalOperand();
            break;

        default:
            DoStdOpcode(typ, parm);
            break;
    }
}


void DoLabelOp(int typ, int parm, char *labl)
{
//  int     i,val;
//  Str255  word;

    switch(typ)
    {
        default:
            DoStdLabelOp(typ, parm, labl);
            break;
    }
}


void usage(void)
{
    fprintf(stderr,version);
    stdusage();
    exit(1);
}


void PassInit(void)
{
}


void AsmInit(void)
{
}