static int m6509_get_argword(int addr) { if ((addr&0xffff)==0xffff) return cpu_readop_arg(addr)+(cpu_readop_arg(addr&~0xffff) << 8); else return cpu_readop_arg(addr)+(cpu_readop_arg(addr+1) << 8); }
static UINT16 ARG16(void) { UINT16 w; w = cpu_readop_arg(I.PC.d); I.PC.w.l++; w += cpu_readop_arg(I.PC.d) << 8; I.PC.w.l++; return w; }
unsigned DasmF8(char *buffer, unsigned pc) { UINT8 op = cpu_readop(pc); UINT16 ea; unsigned size = 1; const char *sym, *sym2; switch( op ) { /* opcode bitmask */ case 0x00: /* 0000 0000 */ sym = set_ea_info( 0, 12, EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "LR A,KU"); break; case 0x01: /* 0000 0001 */ sym = set_ea_info( 0, 13, EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "LR A,KL"); break; case 0x02: /* 0000 0010 */ sym = set_ea_info( 0, 14, EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "LR A,QU"); break; case 0x03: /* 0000 0011 */ sym = set_ea_info( 0, 15, EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "LR A,QL"); break; case 0x04: /* 0000 0100 */ sym = set_ea_info( 0, 12, EA_UINT8, EA_ZPG_WR ); sprintf(buffer, "LR KU,A"); break; case 0x05: /* 0000 0101 */ sym = set_ea_info( 0, 13, EA_UINT8, EA_ZPG_WR ); sprintf(buffer, "LR KL,A"); break; case 0x06: /* 0000 0110 */ sym = set_ea_info( 0, 14, EA_UINT8, EA_ZPG_WR ); sprintf(buffer, "LR QU,A"); break; case 0x07: /* 0000 0111 */ sym = set_ea_info( 0, 15, EA_UINT8, EA_ZPG_WR ); sprintf(buffer, "LR QL,A"); break; case 0x08: /* 0000 1000 */ sym = set_ea_info( 0, 12, EA_UINT16, EA_ZPG_WR ); sprintf(buffer, "LR K,P"); break; case 0x09: /* 0000 1001 */ sym = set_ea_info( 0, 12, EA_UINT16, EA_ZPG_RD ); sprintf(buffer, "LR P,K"); break; case 0x0a: /* 0000 1010 */ sprintf(buffer, "LR A,IS"); break; case 0x0b: /* 0000 1011 */ sprintf(buffer, "LR IS,A"); break; case 0x0c: /* 0000 1100 */ sprintf(buffer, "PK") ; break; case 0x0d: /* 0000 1101 */ sprintf(buffer, "LR P0,Q"); sym = set_ea_info( 0, 14, EA_UINT16, EA_ZPG_RD ); break; case 0x0e: /* 0000 1110 */ sym = set_ea_info( 0, 14, EA_UINT16, EA_ZPG_WR ); sprintf(buffer, "LR Q,DC"); break; case 0x0f: /* 0000 1111 */ sym = set_ea_info( 0, 14, EA_UINT16, EA_ZPG_RD ); sprintf(buffer, "LR DC,Q"); break; case 0x10: /* 0001 0000 */ sym = set_ea_info( 0, 10, EA_UINT16, EA_ZPG_RD ); sprintf(buffer, "LR DC,H"); break; case 0x11: /* 0001 0001 */ sym = set_ea_info( 0, 10, EA_UINT16, EA_ZPG_WR ); sprintf(buffer, "LR H,DC"); break; case 0x12: /* 0001 0010 */ sprintf(buffer, "SR 1"); break; case 0x13: /* 0001 0011 */ sprintf(buffer, "SL 1"); break; case 0x14: /* 0001 0100 */ sprintf(buffer, "SR 4"); break; case 0x15: /* 0001 0101 */ sprintf(buffer, "SL 4"); break; case 0x16: /* 0001 0110 */ sym = set_ea_info( 0, activecpu_get_reg(F8_DC0), EA_UINT8, EA_MEM_RD ); sprintf(buffer, "LM") ; break; case 0x17: /* 0001 0111 */ sym = set_ea_info( 0, activecpu_get_reg(F8_DC0), EA_UINT8, EA_MEM_WR ); sprintf(buffer, "ST"); break; case 0x18: /* 0001 1000 */ sprintf(buffer, "COM"); break; case 0x19: /* 0001 1001 */ sprintf(buffer, "LNK"); break; case 0x1a: /* 0001 1010 */ sprintf(buffer, "DI"); break; case 0x1b: /* 0001 1011 */ sprintf(buffer, "EI"); break; case 0x1c: /* 0001 1100 */ sym = set_ea_info( 0, activecpu_get_reg(F8_PC1), EA_UINT16, EA_ABS_PC ); sprintf(buffer, "POP"); break; case 0x1d: /* 0001 1101 */ sym = set_ea_info( 0, 9, EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "LR W,J"); break; case 0x1e: /* 0001 1110 */ sym = set_ea_info( 0, 9, EA_UINT8, EA_ZPG_WR ); sprintf(buffer, "LR J,W"); break; case 0x1f: /* 0001 1111 */ sprintf(buffer, "INC"); break; case 0x20: /* 0010 0000 */ size += 1; sym = set_ea_info( 0, cpu_readop_arg(pc+1), EA_UINT8, EA_VALUE ); sprintf(buffer, "LI %s",sym); break; case 0x21: /* 0010 0001 */ size += 1; sym = set_ea_info( 0, cpu_readop_arg(pc+1), EA_UINT8, EA_VALUE ); sprintf(buffer, "NI %s",sym); break; case 0x22: /* 0010 0010 */ size += 1; sym = set_ea_info( 0, cpu_readop_arg(pc+1), EA_UINT8, EA_VALUE ); sprintf(buffer, "OI %s",sym); break; case 0x23: /* 0010 0011 */ size += 1; sym = set_ea_info( 0, cpu_readop_arg(pc+1), EA_UINT8, EA_VALUE ); sprintf(buffer, "XI %s",sym); break; case 0x24: /* 0010 0100 */ size += 1; sym = set_ea_info( 0, cpu_readop_arg(pc+1), EA_UINT8, EA_VALUE ); sprintf(buffer, "AI %s",sym); break; case 0x25: /* 0010 0101 */ size += 1; sym = set_ea_info( 0, cpu_readop_arg(pc+1), EA_UINT8, EA_VALUE ); sprintf(buffer, "CI %s",sym); break; case 0x26: /* 0010 0110 */ size += 1; sym = set_ea_info( 0, cpu_readop_arg(pc+1), EA_UINT8, EA_PORT_RD ); sprintf(buffer, "IN %s",sym); break; case 0x27: /* 0010 0111 */ size += 1; sym = set_ea_info( 0, cpu_readop_arg(pc+1), EA_UINT8, EA_PORT_WR ); sprintf(buffer, "OUT %s",sym); break; case 0x28: /* 0010 1000 */ size += 2; ea = cpu_readop_arg(pc+1) << 8; ea |= cpu_readop_arg(pc+2); sym = set_ea_info( 0, ea, EA_UINT16, EA_ABS_PC ); sprintf(buffer, "PI %s",sym); break; case 0x29: /* 0010 1001 */ size += 2; ea = cpu_readop_arg(pc+1) << 8; ea |= cpu_readop_arg(pc+2); sym = set_ea_info( 0, ea, EA_UINT16, EA_ABS_PC ); sprintf(buffer, "JMP %s",sym); break; case 0x2a: /* 0010 1010 */ size += 2; ea = cpu_readop_arg(pc+1) << 8; ea |= cpu_readop_arg(pc+2); sym = set_ea_info( 0, ea, EA_UINT16, EA_VALUE ); sprintf(buffer, "DCI %s",sym); break; case 0x2b: /* 0010 1011 */ sprintf(buffer, "NOP"); break; case 0x2c: /* 0010 1100 */ sprintf(buffer, "XDC"); break; case 0x2d: /* 0010 1101 */ case 0x2e: /* 0010 1110 */ case 0x2f: /* 0010 1111 */ sprintf(buffer, "??? $%02X",op); break; case 0x30: /* 0011 0000 */ case 0x31: /* 0011 0001 */ case 0x32: /* 0011 0010 */ case 0x33: /* 0011 0011 */ case 0x34: /* 0011 0100 */ case 0x35: /* 0011 0101 */ case 0x36: /* 0011 0110 */ case 0x37: /* 0011 0111 */ case 0x38: /* 0011 1000 */ case 0x39: /* 0011 1001 */ case 0x3a: /* 0011 1010 */ case 0x3b: /* 0011 1011 */ sym = set_ea_info( 0, op & 15, EA_UINT8, EA_ZPG_RDWR ); sprintf(buffer, "DS %s",rname[op & 15]); break; case 0x3c: /* 0011 1100 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RDWR ); sprintf(buffer, "DS (IS)"); break; case 0x3d: /* 0011 1101 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RDWR ); sprintf(buffer, "DS (IS++)"); break; case 0x3e: /* 0011 1110 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RDWR ); sprintf(buffer, "DS (IS--)"); break; case 0x3f: /* 0011 1111 */ sprintf(buffer, "??? $%02X",op); break; case 0x40: /* 0100 0000 */ case 0x41: /* 0100 0001 */ case 0x42: /* 0100 0010 */ case 0x43: /* 0100 0011 */ case 0x44: /* 0100 0100 */ case 0x45: /* 0100 0101 */ case 0x46: /* 0100 0110 */ case 0x47: /* 0100 0111 */ case 0x48: /* 0100 1000 */ case 0x49: /* 0100 1001 */ case 0x4a: /* 0100 1010 */ case 0x4b: /* 0100 1011 */ sym = set_ea_info( 0, op & 15, EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "LR A,%s",rname[op & 15]); break; case 0x4c: /* 0100 1100 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "LR A,(IS)"); break; case 0x4d: /* 0100 1101 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "LR A,(IS++)"); break; case 0x4e: /* 0100 1110 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "LR A,(IS--)"); break; case 0x4f: /* 0100 1111 */ sprintf(buffer, "??? $%02X",op); break; case 0x50: /* 0101 0000 */ case 0x51: /* 0101 0001 */ case 0x52: /* 0101 0010 */ case 0x53: /* 0101 0011 */ case 0x54: /* 0101 0100 */ case 0x55: /* 0101 0101 */ case 0x56: /* 0101 0110 */ case 0x57: /* 0101 0111 */ case 0x58: /* 0101 1000 */ case 0x59: /* 0101 1001 */ case 0x5a: /* 0101 1010 */ case 0x5b: /* 0101 1011 */ sym = set_ea_info( 0, op & 15, EA_UINT8, EA_ZPG_WR ); sprintf(buffer, "LR %s,A",rname[op & 15]); break; case 0x5c: /* 0101 1100 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_WR ); sprintf(buffer, "LR (IS),A"); break; case 0x5d: /* 0101 1101 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_WR ); sprintf(buffer, "LR (IS++),A"); break; case 0x5e: /* 0101 1110 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_WR ); sprintf(buffer, "LR (IS--),A"); break; case 0x5f: /* 0101 1111 */ sprintf(buffer, "??? $%02X",op); break; case 0x60: /* 0110 0000 */ case 0x61: /* 0110 0001 */ case 0x62: /* 0110 0010 */ case 0x63: /* 0110 0011 */ case 0x64: /* 0110 0100 */ case 0x65: /* 0110 0101 */ case 0x66: /* 0110 0110 */ case 0x67: /* 0110 0111 */ sym = set_ea_info( 0, op & 7, EA_UINT8, EA_VALUE ); sprintf(buffer, "LISU %s", sym); break; case 0x68: /* 0110 1000 */ case 0x69: /* 0110 1001 */ case 0x6a: /* 0110 1010 */ case 0x6b: /* 0110 1011 */ case 0x6c: /* 0110 1100 */ case 0x6d: /* 0110 1101 */ case 0x6e: /* 0110 1110 */ case 0x6f: /* 0110 1111 */ sym = set_ea_info( 0, op & 7, EA_UINT8, EA_VALUE ); sprintf(buffer, "LISL %s", sym); break; case 0x70: /* 0111 0000 */ case 0x71: /* 0111 0001 */ case 0x72: /* 0111 0010 */ case 0x73: /* 0111 0011 */ case 0x74: /* 0111 0100 */ case 0x75: /* 0111 0101 */ case 0x76: /* 0111 0110 */ case 0x77: /* 0111 0111 */ case 0x78: /* 0111 1000 */ case 0x79: /* 0111 1001 */ case 0x7a: /* 0111 1010 */ case 0x7b: /* 0111 1011 */ case 0x7c: /* 0111 1100 */ case 0x7d: /* 0111 1101 */ case 0x7e: /* 0111 1110 */ case 0x7f: /* 0111 1111 */ sym = set_ea_info( 0, op & 15, EA_UINT8, EA_VALUE ); sprintf(buffer, "LIS %s", sym); break; case 0x80: /* 1000 0000 */ case 0x81: /* 1000 0001 */ case 0x82: /* 1000 0010 */ case 0x83: /* 1000 0011 */ case 0x84: /* 1000 0100 */ case 0x85: /* 1000 0101 */ case 0x86: /* 1000 0110 */ case 0x87: /* 1000 0111 */ size += 1; sym = set_ea_info( 0, op & 7, EA_UINT8, EA_VALUE ); ea = pc + (INT32)(INT16)(INT8)cpu_readop_arg(pc+1) - 3; sym2 = set_ea_info( 1, ea, EA_UINT16, EA_REL_PC ); sprintf(buffer, "BT %s,%s", sym, sym2); break; case 0x88: /* 1000 1000 */ sprintf(buffer, "AM"); break; case 0x89: /* 1000 1001 */ sprintf(buffer, "AMD"); break; case 0x8a: /* 1000 1010 */ sprintf(buffer, "NM"); break; case 0x8b: /* 1000 1011 */ sprintf(buffer, "OM"); break; case 0x8c: /* 1000 1100 */ sprintf(buffer, "XM"); break; case 0x8d: /* 1000 1101 */ sprintf(buffer, "CM"); break; case 0x8e: /* 1000 1110 */ sprintf(buffer, "ADC"); break; case 0x8f: /* 1000 1111 */ size += 1; ea = pc + (INT8)cpu_readop_arg(pc+1) - 3; sym = set_ea_info( 0, ea, EA_UINT16, EA_REL_PC ); sprintf(buffer, "BR7 %s", sym); break; case 0x90: /* 1001 0000 */ case 0x91: /* 1001 0001 */ case 0x92: /* 1001 0010 */ case 0x93: /* 1001 0011 */ case 0x94: /* 1001 0100 */ case 0x95: /* 1001 0101 */ case 0x96: /* 1001 0110 */ case 0x97: /* 1001 0111 */ case 0x98: /* 1001 1000 */ case 0x99: /* 1001 1001 */ case 0x9a: /* 1001 1010 */ case 0x9b: /* 1001 1011 */ case 0x9c: /* 1001 1100 */ case 0x9d: /* 1001 1101 */ case 0x9e: /* 1001 1110 */ case 0x9f: /* 1001 1111 */ size += 1; sym = set_ea_info( 0, op & 15, EA_UINT8, EA_VALUE ); ea = pc + (INT8)cpu_readop_arg(pc+1) - 3; sym2 = set_ea_info( 1, ea, EA_UINT16, EA_REL_PC ); sprintf(buffer, "BF %s,%s", sym, sym2); break; case 0xa0: /* 1010 0000 */ case 0xa1: /* 1010 0001 */ sym = set_ea_info( 0, op & 15, EA_INT8, EA_PORT_RD ); sprintf(buffer, "INS %s", sym); break; case 0xa2: /* 1010 0010 */ case 0xa3: /* 1010 0011 */ sprintf(buffer, "??? $%02X\n", op); break; case 0xa4: /* 1010 0100 */ case 0xa5: /* 1010 0101 */ case 0xa6: /* 1010 0110 */ case 0xa7: /* 1010 0111 */ case 0xa8: /* 1010 1000 */ case 0xa9: /* 1010 1001 */ case 0xaa: /* 1010 1010 */ case 0xab: /* 1010 1011 */ case 0xac: /* 1010 1100 */ case 0xad: /* 1010 1101 */ case 0xae: /* 1010 1110 */ case 0xaf: /* 1010 1111 */ sym = set_ea_info( 0, op & 15, EA_INT8, EA_PORT_RD ); sprintf(buffer, "INS %s", sym); break; case 0xb0: /* 1011 0000 */ case 0xb1: /* 1011 0001 */ sym = set_ea_info( 0, op & 15, EA_INT8, EA_PORT_WR ); sprintf(buffer, "OUTS %s", sym); break; case 0xb2: /* 1011 0010 */ case 0xb3: /* 1011 0011 */ sprintf(buffer, "??? $%02X\n", op); break; case 0xb4: /* 1011 0100 */ case 0xb5: /* 1011 0101 */ case 0xb6: /* 1011 0110 */ case 0xb7: /* 1011 0111 */ case 0xb8: /* 1011 1000 */ case 0xb9: /* 1011 1001 */ case 0xba: /* 1011 1010 */ case 0xbb: /* 1011 1011 */ case 0xbc: /* 1011 1100 */ case 0xbd: /* 1011 1101 */ case 0xbe: /* 1011 1110 */ case 0xbf: /* 1011 1111 */ sym = set_ea_info( 0, op & 15, EA_INT8, EA_PORT_WR ); sprintf(buffer, "OUTS %s", sym); break; case 0xc0: /* 1100 0000 */ case 0xc1: /* 1100 0001 */ case 0xc2: /* 1100 0010 */ case 0xc3: /* 1100 0011 */ case 0xc4: /* 1100 0100 */ case 0xc5: /* 1100 0101 */ case 0xc6: /* 1100 0110 */ case 0xc7: /* 1100 0111 */ case 0xc8: /* 1100 1000 */ case 0xc9: /* 1100 1001 */ case 0xca: /* 1100 1010 */ case 0xcb: /* 1100 1011 */ sym = set_ea_info( 0, op & 15, EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "AS %s", rname[op & 15]); break; case 0xcc: /* 1100 1100 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "AS (IS)"); break; case 0xcd: /* 1100 1101 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "AS (IS++)"); break; case 0xce: /* 1100 1110 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "AS (IS--)"); break; case 0xcf: /* 1100 1111 */ sprintf(buffer, "??? $%02X\n", op); break; case 0xd0: /* 1101 0000 */ case 0xd1: /* 1101 0001 */ case 0xd2: /* 1101 0010 */ case 0xd3: /* 1101 0011 */ case 0xd4: /* 1101 0100 */ case 0xd5: /* 1101 0101 */ case 0xd6: /* 1101 0110 */ case 0xd7: /* 1101 0111 */ case 0xd8: /* 1101 1000 */ case 0xd9: /* 1101 1001 */ case 0xda: /* 1101 1010 */ case 0xdb: /* 1101 1011 */ sym = set_ea_info( 0, op & 15, EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "ASD %s", rname[op & 15]); break; case 0xdc: /* 1101 1100 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "ASD (IS)"); break; case 0xdd: /* 1101 1101 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "ASD (IS++)"); break; case 0xde: /* 1101 1110 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "ASD (IS--)"); break; case 0xdf: /* 1101 1111 */ sprintf(buffer, "??? $%02X\n", op); break; case 0xe0: /* 1110 0000 */ case 0xe1: /* 1110 0001 */ case 0xe2: /* 1110 0010 */ case 0xe3: /* 1110 0011 */ case 0xe4: /* 1110 0100 */ case 0xe5: /* 1110 0101 */ case 0xe6: /* 1110 0110 */ case 0xe7: /* 1110 0111 */ case 0xe8: /* 1110 1000 */ case 0xe9: /* 1110 1001 */ case 0xea: /* 1110 1010 */ case 0xeb: /* 1110 1011 */ sym = set_ea_info( 0, op & 15, EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "XS %s", rname[op & 15]); break; case 0xec: /* 1110 1100 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "XS (IS)"); break; case 0xed: /* 1110 1101 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "XS (IS++)"); break; case 0xee: /* 1110 1110 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "XS (IS--)"); break; case 0xef: /* 1110 1111 */ sprintf(buffer, "??? $%02X\n", op); break; case 0xf0: /* 1111 0000 */ case 0xf1: /* 1111 0001 */ case 0xf2: /* 1111 0010 */ case 0xf3: /* 1111 0011 */ case 0xf4: /* 1111 0100 */ case 0xf5: /* 1111 0101 */ case 0xf6: /* 1111 0110 */ case 0xf7: /* 1111 0111 */ case 0xf8: /* 1111 1000 */ case 0xf9: /* 1111 1001 */ case 0xfa: /* 1111 1010 */ case 0xfb: /* 1111 1011 */ sym = set_ea_info( 0, op & 15, EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "NS %s", rname[op & 15]); break; case 0xfc: /* 1111 1100 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "NS (IS)"); break; case 0xfd: /* 1111 1101 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "NS (IS++)"); break; case 0xfe: /* 1111 1110 */ sym = set_ea_info( 0, activecpu_get_reg(F8_IS), EA_UINT8, EA_ZPG_RD ); sprintf(buffer, "NS (IS--)"); break; case 0xff: /* 1111 1111 */ sprintf(buffer, "??? $%02X\n", op); break; } return size; }
/*************************************************************** * ARG * read next opcode argument ***************************************************************/ INLINE UINT8 ARG(void) { UINT8 result = cpu_readop_arg(S.page + S.iar); S.iar = (S.iar + 1) & PMSK; return result; }
static UINT8 ARG(void) { return cpu_readop_arg(I.PC.w.l++); }
static INLINE int m4510_cpu_readop_arg(void) { register UINT16 t=m4510.pc.w.l++; return cpu_readop_arg(M4510_MEM(t)); }
static INLINE UINT8 READ_OP_ARG(void) { return cpu_readop_arg(sc61860.pc++); }
/**************************************************************************** * Disassemble opcode at PC and return number of bytes it takes ****************************************************************************/ unsigned DasmZ80( char *buffer, unsigned pc ) { z80dasm *d; const char *symbol, *src; const char *ixy; char *dst; unsigned PC = pc; INT8 offset = 0; UINT8 op, op1; UINT16 ea = 0, xy = 0; ixy = "oops!!"; dst = buffer; symbol = NULL; op = cpu_readop( pc++ ); op1 = 0; /* keep GCC happy */ switch (op) { case 0xcb: op = cpu_readop(pc++); d = &mnemonic_cb[op]; break; case 0xed: op1 = cpu_readop(pc++); d = &mnemonic_ed[op1]; break; case 0xdd: ixy = "ix"; op1 = cpu_readop(pc++); if( op1 == 0xcb ) { offset = (INT8) cpu_readop_arg(pc++); op1 = cpu_readop_arg(pc++); /* fourth byte from OP_RAM! */ xy = z80_get_reg( Z80_IX ); ea = (xy + offset) & 0xffff; d = &mnemonic_xx_cb[op1]; } else d = &mnemonic_xx[op1]; break; case 0xfd: ixy = "iy"; op1 = cpu_readop(pc++); if( op1 == 0xcb ) { offset = (INT8) cpu_readop_arg(pc++); op1 = cpu_readop_arg(pc++); /* fourth byte from OP_RAM! */ xy = z80_get_reg( Z80_IY ); ea = (ea + offset) & 0xffff; d = &mnemonic_xx_cb[op1]; } else d = &mnemonic_xx[op1]; break; default: d = &mnemonic_main[op]; break; } if( d->arguments ) { dst += sprintf(dst, "%-4s ", s_mnemonic[d->mnemonic]); src = d->arguments; while( *src ) { switch( *src ) { case '?': /* illegal opcode */ dst += sprintf( dst, "$%02x,$%02x", op, op1); break; case 'A': ea = cpu_readop_arg(pc) + ( cpu_readop_arg((pc+1)&0xffff) << 8); pc += 2; symbol = set_ea_info(0, ea, EA_UINT16, d->access); dst += sprintf( dst, "%s", symbol ); break; case 'B': /* Byte op arg */ ea = cpu_readop_arg( pc++ ); symbol = set_ea_info(1, ea, EA_UINT8, EA_VALUE); dst += sprintf( dst, "%s", symbol ); break; case '(': /* Memory byte at (HL) */ *dst++ = *src; if( !strncmp( src, "(bc)", 4) ) { ea = z80_get_reg( Z80_BC ); set_ea_info(0, ea, EA_UINT8, d->access); } else if( !strncmp( src, "(de)", 4) ) { ea = z80_get_reg( Z80_DE ); set_ea_info(0, ea, EA_UINT8, d->access); } else if( !strncmp( src, "(hl)", 4) ) { ea = z80_get_reg( Z80_HL ); if( d->access == EA_ABS_PC ) set_ea_info(0, ea, EA_DEFAULT, EA_ABS_PC); else set_ea_info(0, ea, EA_UINT8, d->access); } else if( !strncmp( src, "(sp)", 4) ) { ea = z80_get_reg( Z80_SP ); set_ea_info(0, ea, EA_UINT16, d->access); } else if( !strncmp( src, "(P)", 3) ) { ea = (z80_get_reg( Z80_AF ) & 0xff00) | cpu_readop_arg( pc ); set_ea_info(0, ea, EA_UINT16, d->access); } else if( !strncmp( src, "(c)", 3) ) { ea = z80_get_reg( Z80_BC ); set_ea_info(0, ea, EA_UINT16, d->access); } else if( !strncmp( src, "(I)", 3) ) { ea = xy; set_ea_info(0, ea, EA_DEFAULT, d->access); } break; case 'N': /* Immediate 16 bit */ ea = cpu_readop_arg(pc) + ( cpu_readop_arg((pc+1)&0xffff) << 8 ); pc += 2; symbol = set_ea_info(1, ea, EA_UINT16, EA_VALUE ); dst += sprintf( dst, "%s", symbol ); break; case 'O': /* Offset relative to PC */ offset = (INT8) cpu_readop_arg(pc++); symbol = set_ea_info(0, PC, offset + 2, d->access); dst += sprintf( dst, "%s", symbol ); break; case 'P': /* Port number */ ea = cpu_readop_arg( pc++ ); dst += sprintf( dst, "$%02X", ea ); break; case 'V': /* Restart vector */ ea = op & 0x38; symbol = set_ea_info(0, ea, EA_UINT8, d->access); dst += sprintf( dst, "%s", symbol ); break; case 'W': /* Memory address word */ ea = cpu_readop_arg(pc) + ( cpu_readop_arg((pc+1)&0xffff) << 8); pc += 2; symbol = set_ea_info(0, ea, EA_UINT16, d->access); dst += sprintf( dst, "%s", symbol ); break; case 'X': offset = (INT8) cpu_readop_arg(pc++); ea = (xy + offset) & 0xffff; case 'Y': symbol = set_ea_info(0, ea, EA_UINT8, d->access); dst += sprintf( dst,"(%s%c$%02x)", ixy, sign(offset), offs(offset) ); break; case 'I': dst += sprintf( dst, "%s", ixy); break; default: *dst++ = *src; } src++; } *dst = '\0'; } else { dst += sprintf(dst, "%s", s_mnemonic[d->mnemonic]); } return pc - PC; }
NEC_INLINE UINT8 fetch(nec_state_t *nec_state) { prefetch(nec_state); return cpu_readop_arg(((Sreg(PS)<<4)+nec_state->ip++) ^ nec_state->fetch_xor); // ^ fetch_xor? }
INLINE int READ_OP_ARG(void) { saturn_ICount-=3; return cpu_readop_arg(saturn.pc++); }
static int m6502_get_argword(int addr) { return cpu_readop_arg(addr)+(cpu_readop_arg((addr+1)&0xffff) << 8); }