/* must fix: callm chk */ /* ======================================================================== */ /* ========================= LICENSING & COPYRIGHT ======================== */ /* ======================================================================== */ /* * MUSASHI * Version 3.4 * * A portable Motorola M680x0 processor emulation engine. * Copyright 1998-2001 Karl Stenerud. All rights reserved. * * Permission is hereby granted, free of charge, to any person obtaining a copy * of this software and associated documentation files (the "Software"), to deal * in the Software without restriction, including without limitation the rights * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell * copies of the Software, and to permit persons to whom the Software is * furnished to do so, subject to the following conditions: * * The above copyright notice and this permission notice shall be included in * all copies or substantial portions of the Software. * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN * THE SOFTWARE. */ /* Special thanks to Bart Trzynadlowski for his insight into the * undocumented features of this chip: * * http://dynarec.com/~bart/files/68knotes.txt */ /* Input file for m68kmake * ----------------------- * * All sections begin with 80 X's in a row followed by an end-of-line * sequence. * After this, m68kmake will expect to find one of the following section * identifiers: * M68KMAKE_PROTOTYPE_HEADER - header for opcode handler prototypes * M68KMAKE_PROTOTYPE_FOOTER - footer for opcode handler prototypes * M68KMAKE_TABLE_HEADER - header for opcode handler jumptable * M68KMAKE_TABLE_FOOTER - footer for opcode handler jumptable * M68KMAKE_TABLE_BODY - the table itself * M68KMAKE_OPCODE_HANDLER_HEADER - header for opcode handler implementation * M68KMAKE_OPCODE_HANDLER_FOOTER - footer for opcode handler implementation * M68KMAKE_OPCODE_HANDLER_BODY - body section for opcode handler implementation * * NOTE: M68KMAKE_OPCODE_HANDLER_BODY must be last in the file and * M68KMAKE_TABLE_BODY must be second last in the file. * * The M68KMAKE_OPHANDLER_BODY section contains the opcode handler * primitives themselves. Each opcode handler begins with: * M68KMAKE_OP(A, B, C, D) * * where A is the opcode handler name, B is the size of the operation, * C denotes any special processing mode, and D denotes a specific * addressing mode. * For C and D where nothing is specified, use "." * * Example: * M68KMAKE_OP(abcd, 8, rr, .) abcd, size 8, register to register, default EA * M68KMAKE_OP(abcd, 8, mm, ax7) abcd, size 8, memory to memory, register X is A7 * M68KMAKE_OP(tst, 16, ., pcix) tst, size 16, PCIX addressing * * All opcode handler primitives end with a closing curly brace "}" at column 1 * * NOTE: Do not place a M68KMAKE_OP() directive inside the opcode handler, * and do not put a closing curly brace at column 1 unless it is * marking the end of the handler! * * Inside the handler, m68kmake will recognize M68KMAKE_GET_OPER_xx_xx, * M68KMAKE_GET_EA_xx_xx, and M68KMAKE_CC directives, and create multiple * opcode handlers to handle variations in the opcode handler. * Note: M68KMAKE_CC will only be interpreted in condition code opcodes. * As well, M68KMAKE_GET_EA_xx_xx and M68KMAKE_GET_OPER_xx_xx will only * be interpreted on instructions where the corresponding table entry * specifies multiple effective addressing modes. * Example: * clr 32 . . 0100001010...... A+-DXWL... U U U 12 6 4 * * This table entry says that the clr.l opcde has 7 variations (A+-DXWL). * It is run in user or supervisor mode for all CPUs, and uses 12 cycles for * 68000, 6 cycles for 68010, and 4 cycles for 68020. */ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX M68KMAKE_PROTOTYPE_HEADER #ifndef M68KOPS__HEADER #define M68KOPS__HEADER /* ======================================================================== */ /* ============================ OPCODE HANDLERS =========================== */ /* ======================================================================== */ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX M68KMAKE_PROTOTYPE_FOOTER /* Build the opcode handler table */ void m68ki_build_opcode_table(void); extern void (*m68ki_instruction_jump_table[0x10000])(void); /* opcode handler jump table */ extern unsigned char m68ki_cycles[][0x10000]; /* ======================================================================== */ /* ============================== END OF FILE ============================= */ /* ======================================================================== */ #endif /* M68KOPS__HEADER */ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX M68KMAKE_TABLE_HEADER /* ======================================================================== */ /* ========================= OPCODE TABLE BUILDER ========================= */ /* ======================================================================== */ #include "m68kops.h" #define NUM_CPU_TYPES 3 void (*m68ki_instruction_jump_table[0x10000])(void); /* opcode handler jump table */ unsigned char m68ki_cycles[NUM_CPU_TYPES][0x10000]; /* Cycles used by CPU type */ /* This is used to generate the opcode handler jump table */ typedef struct { void (*opcode_handler)(void); /* handler function */ unsigned int mask; /* mask on opcode */ unsigned int match; /* what to match after masking */ unsigned char cycles[NUM_CPU_TYPES]; /* cycles each cpu type takes */ } opcode_handler_struct; /* Opcode handler table */ static opcode_handler_struct m68k_opcode_handler_table[] = { /* function mask match 000 010 020 */ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX M68KMAKE_TABLE_FOOTER {0, 0, 0, {0, 0, 0}} }; /* Build the opcode handler jump table */ void m68ki_build_opcode_table(void) { opcode_handler_struct *ostruct; int cycle_cost; int instr; int i; int j; int k; for(i = 0; i < 0x10000; i++) { /* default to illegal */ m68ki_instruction_jump_table[i] = m68k_op_illegal; for(k=0;kmask != 0xff00) { for(i = 0;i < 0x10000;i++) { if((i & ostruct->mask) == ostruct->match) { m68ki_instruction_jump_table[i] = ostruct->opcode_handler; for(k=0;kcycles[k]; } } ostruct++; } while(ostruct->mask == 0xff00) { for(i = 0;i <= 0xff;i++) { m68ki_instruction_jump_table[ostruct->match | i] = ostruct->opcode_handler; for(k=0;kmatch | i] = ostruct->cycles[k]; } ostruct++; } while(ostruct->mask == 0xf1f8) { for(i = 0;i < 8;i++) { for(j = 0;j < 8;j++) { instr = ostruct->match | (i << 9) | j; m68ki_instruction_jump_table[instr] = ostruct->opcode_handler; for(k=0;kcycles[k]; // For all shift operations with known shift distance (encoded in instruction word) if((instr & 0xf000) == 0xe000 && (!(instr & 0x20))) { // On the 68000 and 68010 shift distance affect execution time. // Add the cycle cost of shifting; 2 times the shift distance cycle_cost = ((((i-1)&7)+1)<<1); m68ki_cycles[0][instr] += cycle_cost; m68ki_cycles[1][instr] += cycle_cost; // On the 68020 shift distance does not affect execution time m68ki_cycles[2][instr] += 0; } } } ostruct++; } while(ostruct->mask == 0xfff0) { for(i = 0;i <= 0x0f;i++) { m68ki_instruction_jump_table[ostruct->match | i] = ostruct->opcode_handler; for(k=0;kmatch | i] = ostruct->cycles[k]; } ostruct++; } while(ostruct->mask == 0xf1ff) { for(i = 0;i <= 0x07;i++) { m68ki_instruction_jump_table[ostruct->match | (i << 9)] = ostruct->opcode_handler; for(k=0;kmatch | (i << 9)] = ostruct->cycles[k]; } ostruct++; } while(ostruct->mask == 0xfff8) { for(i = 0;i <= 0x07;i++) { m68ki_instruction_jump_table[ostruct->match | i] = ostruct->opcode_handler; for(k=0;kmatch | i] = ostruct->cycles[k]; } ostruct++; } while(ostruct->mask == 0xffff) { m68ki_instruction_jump_table[ostruct->match] = ostruct->opcode_handler; for(k=0;kmatch] = ostruct->cycles[k]; ostruct++; } } /* ======================================================================== */ /* ============================== END OF FILE ============================= */ /* ======================================================================== */ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX M68KMAKE_OPCODE_HANDLER_HEADER #include "m68kcpu.h" /* ======================================================================== */ /* ========================= INSTRUCTION HANDLERS ========================= */ /* ======================================================================== */ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX M68KMAKE_OPCODE_HANDLER_FOOTER /* ======================================================================== */ /* ============================== END OF FILE ============================= */ /* ======================================================================== */ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX M68KMAKE_TABLE_BODY The following table is arranged as follows: name: Opcode mnemonic size: Operation size spec proc: Special processing mode: .: normal s: static operand r: register operand rr: register to register mm: memory to memory er: effective address to register re: register to effective address dd: data register to data register da: data register to address register aa: address register to address register cr: control register to register rc: register to control register toc: to condition code register tos: to status register tou: to user stack pointer frc: from condition code register frs: from status register fru: from user stack pointer * for move.x, the special processing mode is a specific destination effective addressing mode. spec ea: Specific effective addressing mode: .: normal i: immediate d: data register a: address register ai: address register indirect pi: address register indirect with postincrement pd: address register indirect with predecrement di: address register indirect with displacement ix: address register indirect with index aw: absolute word address al: absolute long address pcdi: program counter relative with displacement pcix: program counter relative with index a7: register specified in instruction is A7 ax7: register field X of instruction is A7 ay7: register field Y of instruction is A7 axy7: register fields X and Y of instruction are A7 bit pattern: Pattern to recognize this opcode. "." means don't care. allowed ea: List of allowed addressing modes: .: not present A: address register indirect +: ARI (address register indirect) with postincrement -: ARI with predecrement D: ARI with displacement X: ARI with index W: absolute word address L: absolute long address d: program counter indirect with displacement x: program counter indirect with index I: immediate mode: CPU operating mode for each cpu type. U = user or supervisor, S = supervisor only, "." = opcode not present. cpu cycles: Base number of cycles required to execute this opcode on the specified CPU type. Use "." if CPU does not have this opcode. spec spec allowed ea mode cpu cycles name size proc ea bit pattern A+-DXWLdxI 0 1 2 000 010 020 comments ====== ==== ==== ==== ================ ========== = = = === === === ============= M68KMAKE_TABLE_START 1010 0 . . 1010............ .......... U U U 4 4 4 1111 0 . . 1111............ .......... U U U 4 4 4 abcd 8 rr . 1100...100000... .......... U U U 6 6 4 abcd 8 mm ax7 1100111100001... .......... U U U 18 18 16 abcd 8 mm ay7 1100...100001111 .......... U U U 18 18 16 abcd 8 mm axy7 1100111100001111 .......... U U U 18 18 16 abcd 8 mm . 1100...100001... .......... U U U 18 18 16 add 8 er d 1101...000000... .......... U U U 4 4 2 add 8 er . 1101...000...... A+-DXWLdxI U U U 4 4 2 add 16 er d 1101...001000... .......... U U U 4 4 2 add 16 er a 1101...001001... .......... U U U 4 4 2 add 16 er . 1101...001...... A+-DXWLdxI U U U 4 4 2 add 32 er d 1101...010000... .......... U U U 6 6 2 add 32 er a 1101...010001... .......... U U U 6 6 2 add 32 er . 1101...010...... A+-DXWLdxI U U U 6 6 2 add 8 re . 1101...100...... A+-DXWL... U U U 8 8 4 add 16 re . 1101...101...... A+-DXWL... U U U 8 8 4 add 32 re . 1101...110...... A+-DXWL... U U U 12 12 4 adda 16 . d 1101...011000... .......... U U U 8 8 2 adda 16 . a 1101...011001... .......... U U U 8 8 2 adda 16 . . 1101...011...... A+-DXWLdxI U U U 8 8 2 adda 32 . d 1101...111000... .......... U U U 6 6 2 adda 32 . a 1101...111001... .......... U U U 6 6 2 adda 32 . . 1101...111...... A+-DXWLdxI U U U 6 6 2 addi 8 . d 0000011000000... .......... U U U 8 8 2 addi 8 . . 0000011000...... A+-DXWL... U U U 12 12 4 addi 16 . d 0000011001000... .......... U U U 8 8 2 addi 16 . . 0000011001...... A+-DXWL... U U U 12 12 4 addi 32 . d 0000011010000... .......... U U U 16 14 2 addi 32 . . 0000011010...... A+-DXWL... U U U 20 20 4 addq 8 . d 0101...000000... .......... U U U 4 4 2 addq 8 . . 0101...000...... A+-DXWL... U U U 8 8 4 addq 16 . d 0101...001000... .......... U U U 4 4 2 addq 16 . a 0101...001001... .......... U U U 4 4 2 addq 16 . . 0101...001...... A+-DXWL... U U U 8 8 4 addq 32 . d 0101...010000... .......... U U U 8 8 2 addq 32 . a 0101...010001... .......... U U U 8 8 2 addq 32 . . 0101...010...... A+-DXWL... U U U 12 12 4 addx 8 rr . 1101...100000... .......... U U U 4 4 2 addx 16 rr . 1101...101000... .......... U U U 4 4 2 addx 32 rr . 1101...110000... .......... U U U 8 6 2 addx 8 mm ax7 1101111100001... .......... U U U 18 18 12 addx 8 mm ay7 1101...100001111 .......... U U U 18 18 12 addx 8 mm axy7 1101111100001111 .......... U U U 18 18 12 addx 8 mm . 1101...100001... .......... U U U 18 18 12 addx 16 mm . 1101...101001... .......... U U U 18 18 12 addx 32 mm . 1101...110001... .......... U U U 30 30 12 and 8 er d 1100...000000... .......... U U U 4 4 2 and 8 er . 1100...000...... A+-DXWLdxI U U U 4 4 2 and 16 er d 1100...001000... .......... U U U 4 4 2 and 16 er . 1100...001...... A+-DXWLdxI U U U 4 4 2 and 32 er d 1100...010000... .......... U U U 6 6 2 and 32 er . 1100...010...... A+-DXWLdxI U U U 6 6 2 and 8 re . 1100...100...... A+-DXWL... U U U 8 8 4 and 16 re . 1100...101...... A+-DXWL... U U U 8 8 4 and 32 re . 1100...110...... A+-DXWL... U U U 12 12 4 andi 16 toc . 0000001000111100 .......... U U U 20 16 12 andi 16 tos . 0000001001111100 .......... S S S 20 16 12 andi 8 . d 0000001000000... .......... U U U 8 8 2 andi 8 . . 0000001000...... A+-DXWL... U U U 12 12 4 andi 16 . d 0000001001000... .......... U U U 8 8 2 andi 16 . . 0000001001...... A+-DXWL... U U U 12 12 4 andi 32 . d 0000001010000... .......... U U U 14 14 2 andi 32 . . 0000001010...... A+-DXWL... U U U 20 20 4 asr 8 s . 1110...000000... .......... U U U 6 6 6 asr 16 s . 1110...001000... .......... U U U 6 6 6 asr 32 s . 1110...010000... .......... U U U 8 8 6 asr 8 r . 1110...000100... .......... U U U 6 6 6 asr 16 r . 1110...001100... .......... U U U 6 6 6 asr 32 r . 1110...010100... .......... U U U 8 8 6 asr 16 . . 1110000011...... A+-DXWL... U U U 8 8 5 asl 8 s . 1110...100000... .......... U U U 6 6 8 asl 16 s . 1110...101000... .......... U U U 6 6 8 asl 32 s . 1110...110000... .......... U U U 8 8 8 asl 8 r . 1110...100100... .......... U U U 6 6 8 asl 16 r . 1110...101100... .......... U U U 6 6 8 asl 32 r . 1110...110100... .......... U U U 8 8 8 asl 16 . . 1110000111...... A+-DXWL... U U U 8 8 6 bcc 8 . . 0110............ .......... U U U 10 10 6 bcc 16 . . 0110....00000000 .......... U U U 10 10 6 bcc 32 . . 0110....11111111 .......... . . U . . 6 bchg 8 r . 0000...101...... A+-DXWL... U U U 8 8 4 bchg 32 r d 0000...101000... .......... U U U 8 8 4 bchg 8 s . 0000100001...... A+-DXWL... U U U 12 12 4 bchg 32 s d 0000100001000... .......... U U U 12 12 4 bclr 8 r . 0000...110...... A+-DXWL... U U U 8 10 4 bclr 32 r d 0000...110000... .......... U U U 10 10 4 bclr 8 s . 0000100010...... A+-DXWL... U U U 12 12 4 bclr 32 s d 0000100010000... .......... U U U 14 14 4 bfchg 32 . d 1110101011000... .......... . . U . . 12 timing not quite correct bfchg 32 . . 1110101011...... A..DXWL... . . U . . 20 bfclr 32 . d 1110110011000... .......... . . U . . 12 bfclr 32 . . 1110110011...... A..DXWL... . . U . . 20 bfexts 32 . d 1110101111000... .......... . . U . . 8 bfexts 32 . . 1110101111...... A..DXWLdx. . . U . . 15 bfextu 32 . d 1110100111000... .......... . . U . . 8 bfextu 32 . . 1110100111...... A..DXWLdx. . . U . . 15 bfffo 32 . d 1110110111000... .......... . . U . . 18 bfffo 32 . . 1110110111...... A..DXWLdx. . . U . . 28 bfins 32 . d 1110111111000... .......... . . U . . 10 bfins 32 . . 1110111111...... A..DXWL... . . U . . 17 bfset 32 . d 1110111011000... .......... . . U . . 12 bfset 32 . . 1110111011...... A..DXWL... . . U . . 20 bftst 32 . d 1110100011000... .......... . . U . . 6 bftst 32 . . 1110100011...... A..DXWLdx. . . U . . 13 bkpt 0 . . 0100100001001... .......... . U U . 10 10 bra 8 . . 01100000........ .......... U U U 10 10 10 bra 16 . . 0110000000000000 .......... U U U 10 10 10 bra 32 . . 0110000011111111 .......... U U U . . 10 bset 32 r d 0000...111000... .......... U U U 8 8 4 bset 8 r . 0000...111...... A+-DXWL... U U U 8 8 4 bset 8 s . 0000100011...... A+-DXWL... U U U 12 12 4 bset 32 s d 0000100011000... .......... U U U 12 12 4 bsr 8 . . 01100001........ .......... U U U 18 18 7 bsr 16 . . 0110000100000000 .......... U U U 18 18 7 bsr 32 . . 0110000111111111 .......... . . U . . 7 btst 8 r . 0000...100...... A+-DXWLdxI U U U 4 4 4 btst 32 r d 0000...100000... .......... U U U 6 6 4 btst 8 s . 0000100000...... A+-DXWLdx. U U U 8 8 4 btst 32 s d 0000100000000... .......... U U U 10 10 4 callm 32 . . 0000011011...... A..DXWLdx. . . U . . 60 not properly emulated cas 8 . . 0000101011...... A+-DXWL... . . U . . 12 cas 16 . . 0000110011...... A+-DXWL... . . U . . 12 cas 32 . . 0000111011...... A+-DXWL... . . U . . 12 cas2 16 . . 0000110011111100 .......... . . U . . 12 cas2 32 . . 0000111011111100 .......... . . U . . 12 chk 16 . d 0100...110000... .......... U U U 10 8 8 chk 16 . . 0100...110...... A+-DXWLdxI U U U 10 8 8 chk 32 . d 0100...100000... .......... . . U . . 8 chk 32 . . 0100...100...... A+-DXWLdxI . . U . . 8 chk2cmp2 8 . pcdi 0000000011111010 .......... . . U . . 23 chk2cmp2 8 . pcix 0000000011111011 .......... . . U . . 23 chk2cmp2 8 . . 0000000011...... A..DXWL... . . U . . 18 chk2cmp2 16 . pcdi 0000001011111010 .......... . . U . . 23 chk2cmp2 16 . pcix 0000001011111011 .......... . . U . . 23 chk2cmp2 16 . . 0000001011...... A..DXWL... . . U . . 18 chk2cmp2 32 . pcdi 0000010011111010 .......... . . U . . 23 chk2cmp2 32 . pcix 0000010011111011 .......... . . U . . 23 chk2cmp2 32 . . 0000010011...... A..DXWL... . . U . . 18 clr 8 . d 0100001000000... .......... U U U 4 4 2 clr 8 . . 0100001000...... A+-DXWL... U U U 8 4 4 clr 16 . d 0100001001000... .......... U U U 4 4 2 clr 16 . . 0100001001...... A+-DXWL... U U U 8 4 4 clr 32 . d 0100001010000... .......... U U U 6 6 2 clr 32 . . 0100001010...... A+-DXWL... U U U 12 6 4 cmp 8 . d 1011...000000... .......... U U U 4 4 2 cmp 8 . . 1011...000...... A+-DXWLdxI U U U 4 4 2 cmp 16 . d 1011...001000... .......... U U U 4 4 2 cmp 16 . a 1011...001001... .......... U U U 4 4 2 cmp 16 . . 1011...001...... A+-DXWLdxI U U U 4 4 2 cmp 32 . d 1011...010000... .......... U U U 6 6 2 cmp 32 . a 1011...010001... .......... U U U 6 6 2 cmp 32 . . 1011...010...... A+-DXWLdxI U U U 6 6 2 cmpa 16 . d 1011...011000... .......... U U U 6 6 4 cmpa 16 . a 1011...011001... .......... U U U 6 6 4 cmpa 16 . . 1011...011...... A+-DXWLdxI U U U 6 6 4 cmpa 32 . d 1011...111000... .......... U U U 6 6 4 cmpa 32 . a 1011...111001... .......... U U U 6 6 4 cmpa 32 . . 1011...111...... A+-DXWLdxI U U U 6 6 4 cmpi 8 . d 0000110000000... .......... U U U 8 8 2 cmpi 8 . . 0000110000...... A+-DXWL... U U U 8 8 2 cmpi 8 . pcdi 0000110000111010 .......... . . U . . 7 cmpi 8 . pcix 0000110000111011 .......... . . U . . 9 cmpi 16 . d 0000110001000... .......... U U U 8 8 2 cmpi 16 . . 0000110001...... A+-DXWL... U U U 8 8 2 cmpi 16 . pcdi 0000110001111010 .......... . . U . . 7 cmpi 16 . pcix 0000110001111011 .......... . . U . . 9 cmpi 32 . d 0000110010000... .......... U U U 14 12 2 cmpi 32 . . 0000110010...... A+-DXWL... U U U 12 12 2 cmpi 32 . pcdi 0000110010111010 .......... . . U . . 7 cmpi 32 . pcix 0000110010111011 .......... . . U . . 9 cmpm 8 . ax7 1011111100001... .......... U U U 12 12 9 cmpm 8 . ay7 1011...100001111 .......... U U U 12 12 9 cmpm 8 . axy7 1011111100001111 .......... U U U 12 12 9 cmpm 8 . . 1011...100001... .......... U U U 12 12 9 cmpm 16 . . 1011...101001... .......... U U U 12 12 9 cmpm 32 . . 1011...110001... .......... U U U 20 20 9 cpbcc 32 . . 1111...01....... .......... . . U . . 4 unemulated cpdbcc 32 . . 1111...001001... .......... . . U . . 4 unemulated cpgen 32 . . 1111...000...... .......... . . U . . 4 unemulated cpscc 32 . . 1111...001...... .......... . . U . . 4 unemulated cptrapcc 32 . . 1111...001111... .......... . . U . . 4 unemulated dbt 16 . . 0101000011001... .......... U U U 12 12 6 dbf 16 . . 0101000111001... .......... U U U 12 12 6 dbcc 16 . . 0101....11001... .......... U U U 12 12 6 divs 16 . d 1000...111000... .......... U U U 158 122 56 divs 16 . . 1000...111...... A+-DXWLdxI U U U 158 122 56 divu 16 . d 1000...011000... .......... U U U 140 108 44 divu 16 . . 1000...011...... A+-DXWLdxI U U U 140 108 44 divl 32 . d 0100110001000... .......... . . U . . 84 divl 32 . . 0100110001...... A+-DXWLdxI . . U . . 84 eor 8 . d 1011...100000... .......... U U U 4 4 2 eor 8 . . 1011...100...... A+-DXWL... U U U 8 8 4 eor 16 . d 1011...101000... .......... U U U 4 4 2 eor 16 . . 1011...101...... A+-DXWL... U U U 8 8 4 eor 32 . d 1011...110000... .......... U U U 8 6 2 eor 32 . . 1011...110...... A+-DXWL... U U U 12 12 4 eori 16 toc . 0000101000111100 .......... U U U 20 16 12 eori 16 tos . 0000101001111100 .......... S S S 20 16 12 eori 8 . d 0000101000000... .......... U U U 8 8 2 eori 8 . . 0000101000...... A+-DXWL... U U U 12 12 4 eori 16 . d 0000101001000... .......... U U U 8 8 2 eori 16 . . 0000101001...... A+-DXWL... U U U 12 12 4 eori 32 . d 0000101010000... .......... U U U 16 14 2 eori 32 . . 0000101010...... A+-DXWL... U U U 20 20 4 exg 32 dd . 1100...101000... .......... U U U 6 6 2 exg 32 aa . 1100...101001... .......... U U U 6 6 2 exg 32 da . 1100...110001... .......... U U U 6 6 2 ext 16 . . 0100100010000... .......... U U U 4 4 4 ext 32 . . 0100100011000... .......... U U U 4 4 4 extb 32 . . 0100100111000... .......... . . U . . 4 illegal 0 . . 0100101011111100 .......... U U U 4 4 4 jmp 32 . . 0100111011...... A..DXWLdx. U U U 4 4 0 jsr 32 . . 0100111010...... A..DXWLdx. U U U 12 12 0 lea 32 . . 0100...111...... A..DXWLdx. U U U 0 0 2 link 16 . a7 0100111001010111 .......... U U U 16 16 5 link 16 . . 0100111001010... .......... U U U 16 16 5 link 32 . a7 0100100000001111 .......... . . U . . 6 link 32 . . 0100100000001... .......... . . U . . 6 lsr 8 s . 1110...000001... .......... U U U 6 6 4 lsr 16 s . 1110...001001... .......... U U U 6 6 4 lsr 32 s . 1110...010001... .......... U U U 8 8 4 lsr 8 r . 1110...000101... .......... U U U 6 6 6 lsr 16 r . 1110...001101... .......... U U U 6 6 6 lsr 32 r . 1110...010101... .......... U U U 8 8 6 lsr 16 . . 1110001011...... A+-DXWL... U U U 8 8 5 lsl 8 s . 1110...100001... .......... U U U 6 6 4 lsl 16 s . 1110...101001... .......... U U U 6 6 4 lsl 32 s . 1110...110001... .......... U U U 8 8 4 lsl 8 r . 1110...100101... .......... U U U 6 6 6 lsl 16 r . 1110...101101... .......... U U U 6 6 6 lsl 32 r . 1110...110101... .......... U U U 8 8 6 lsl 16 . . 1110001111...... A+-DXWL... U U U 8 8 5 move 8 d d 0001...000000... .......... U U U 4 4 2 move 8 d . 0001...000...... A+-DXWLdxI U U U 4 4 2 move 8 ai d 0001...010000... .......... U U U 8 8 4 move 8 ai . 0001...010...... A+-DXWLdxI U U U 8 8 4 move 8 pi d 0001...011000... .......... U U U 8 8 4 move 8 pi . 0001...011...... A+-DXWLdxI U U U 8 8 4 move 8 pi7 d 0001111011000... .......... U U U 8 8 4 move 8 pi7 . 0001111011...... A+-DXWLdxI U U U 8 8 4 move 8 pd d 0001...100000... .......... U U U 8 8 5 move 8 pd . 0001...100...... A+-DXWLdxI U U U 8 8 5 move 8 pd7 d 0001111100000... .......... U U U 8 8 5 move 8 pd7 . 0001111100...... A+-DXWLdxI U U U 8 8 5 move 8 di d 0001...101000... .......... U U U 12 12 5 move 8 di . 0001...101...... A+-DXWLdxI U U U 12 12 5 move 8 ix d 0001...110000... .......... U U U 14 14 7 move 8 ix . 0001...110...... A+-DXWLdxI U U U 14 14 7 move 8 aw d 0001000111000... .......... U U U 12 12 4 move 8 aw . 0001000111...... A+-DXWLdxI U U U 12 12 4 move 8 al d 0001001111000... .......... U U U 16 16 6 move 8 al . 0001001111...... A+-DXWLdxI U U U 16 16 6 move 16 d d 0011...000000... .......... U U U 4 4 2 move 16 d a 0011...000001... .......... U U U 4 4 2 move 16 d . 0011...000...... A+-DXWLdxI U U U 4 4 2 move 16 ai d 0011...010000... .......... U U U 8 8 4 move 16 ai a 0011...010001... .......... U U U 8 8 4 move 16 ai . 0011...010...... A+-DXWLdxI U U U 8 8 4 move 16 pi d 0011...011000... .......... U U U 8 8 4 move 16 pi a 0011...011001... .......... U U U 8 8 4 move 16 pi . 0011...011...... A+-DXWLdxI U U U 8 8 4 move 16 pd d 0011...100000... .......... U U U 8 8 5 move 16 pd a 0011...100001... .......... U U U 8 8 5 move 16 pd . 0011...100...... A+-DXWLdxI U U U 8 8 5 move 16 di d 0011...101000... .......... U U U 12 12 5 move 16 di a 0011...101001... .......... U U U 12 12 5 move 16 di . 0011...101...... A+-DXWLdxI U U U 12 12 5 move 16 ix d 0011...110000... .......... U U U 14 14 7 move 16 ix a 0011...110001... .......... U U U 14 14 7 move 16 ix . 0011...110...... A+-DXWLdxI U U U 14 14 7 move 16 aw d 0011000111000... .......... U U U 12 12 4 move 16 aw a 0011000111001... .......... U U U 12 12 4 move 16 aw . 0011000111...... A+-DXWLdxI U U U 12 12 4 move 16 al d 0011001111000... .......... U U U 16 16 6 move 16 al a 0011001111001... .......... U U U 16 16 6 move 16 al . 0011001111...... A+-DXWLdxI U U U 16 16 6 move 32 d d 0010...000000... .......... U U U 4 4 2 move 32 d a 0010...000001... .......... U U U 4 4 2 move 32 d . 0010...000...... A+-DXWLdxI U U U 4 4 2 move 32 ai d 0010...010000... .......... U U U 12 12 4 move 32 ai a 0010...010001... .......... U U U 12 12 4 move 32 ai . 0010...010...... A+-DXWLdxI U U U 12 12 4 move 32 pi d 0010...011000... .......... U U U 12 12 4 move 32 pi a 0010...011001... .......... U U U 12 12 4 move 32 pi . 0010...011...... A+-DXWLdxI U U U 12 12 4 move 32 pd d 0010...100000... .......... U U U 12 14 5 move 32 pd a 0010...100001... .......... U U U 12 14 5 move 32 pd . 0010...100...... A+-DXWLdxI U U U 12 14 5 move 32 di d 0010...101000... .......... U U U 16 16 5 move 32 di a 0010...101001... .......... U U U 16 16 5 move 32 di . 0010...101...... A+-DXWLdxI U U U 16 16 5 move 32 ix d 0010...110000... .......... U U U 18 18 7 move 32 ix a 0010...110001... .......... U U U 18 18 7 move 32 ix . 0010...110...... A+-DXWLdxI U U U 18 18 7 move 32 aw d 0010000111000... .......... U U U 16 16 4 move 32 aw a 0010000111001... .......... U U U 16 16 4 move 32 aw . 0010000111...... A+-DXWLdxI U U U 16 16 4 move 32 al d 0010001111000... .......... U U U 20 20 6 move 32 al a 0010001111001... .......... U U U 20 20 6 move 32 al . 0010001111...... A+-DXWLdxI U U U 20 20 6 movea 16 . d 0011...001000... .......... U U U 4 4 2 movea 16 . a 0011...001001... .......... U U U 4 4 2 movea 16 . . 0011...001...... A+-DXWLdxI U U U 4 4 2 movea 32 . d 0010...001000... .......... U U U 4 4 2 movea 32 . a 0010...001001... .......... U U U 4 4 2 movea 32 . . 0010...001...... A+-DXWLdxI U U U 4 4 2 move 16 frc d 0100001011000... .......... . U U . 4 4 move 16 frc . 0100001011...... A+-DXWL... . U U . 8 4 move 16 toc d 0100010011000... .......... U U U 12 12 4 move 16 toc . 0100010011...... A+-DXWLdxI U U U 12 12 4 move 16 frs d 0100000011000... .......... U S S 6 4 8 U only for 000 move 16 frs . 0100000011...... A+-DXWL... U S S 8 8 8 U only for 000 move 16 tos d 0100011011000... .......... S S S 12 12 8 move 16 tos . 0100011011...... A+-DXWLdxI S S S 12 12 8 move 32 fru . 0100111001101... .......... S S S 4 6 2 move 32 tou . 0100111001100... .......... S S S 4 6 2 movec 32 cr . 0100111001111010 .......... . S S . 12 6 movec 32 rc . 0100111001111011 .......... . S S . 10 12 movem 16 re pd 0100100010100... .......... U U U 8 8 4 movem 16 re . 0100100010...... A..DXWL... U U U 4 4 4 cycles for hypothetical d addressing mode (020 unverified) movem 32 re pd 0100100011100... .......... U U U 8 8 4 movem 32 re . 0100100011...... A..DXWL... U U U 0 0 4 cycles for hypothetical d addressing mode (020 unverified) movem 16 er pi 0100110010011... .......... U U U 12 12 8 movem 16 er pcdi 0100110010111010 .......... U U U 16 16 9 movem 16 er pcix 0100110010111011 .......... U U U 18 18 11 movem 16 er . 0100110010...... A..DXWL... U U U 8 8 8 cycles for hypothetical d addressing mode (020 unverified) movem 32 er pi 0100110011011... .......... U U U 12 12 8 movem 32 er pcdi 0100110011111010 .......... U U U 16 16 9 movem 32 er pcix 0100110011111011 .......... U U U 18 18 11 movem 32 er . 0100110011...... A..DXWL... U U U 4 4 8 cycles for hypothetical d addressing mode (020 unverified) movep 16 er . 0000...100001... .......... U U U 16 16 12 movep 32 er . 0000...101001... .......... U U U 24 24 18 movep 16 re . 0000...110001... .......... U U U 16 16 11 movep 32 re . 0000...111001... .......... U U U 24 24 17 moveq 32 . . 0111...0........ .......... U U U 4 4 2 moves 8 . . 0000111000...... A+-DXWL... . S S . 14 5 moves 16 . . 0000111001...... A+-DXWL... . S S . 14 5 moves 32 . . 0000111010...... A+-DXWL... . S S . 16 5 muls 16 . d 1100...111000... .......... U U U 54 32 27 muls 16 . . 1100...111...... A+-DXWLdxI U U U 54 32 27 mulu 16 . d 1100...011000... .......... U U U 54 30 27 mulu 16 . . 1100...011...... A+-DXWLdxI U U U 54 30 27 mull 32 . d 0100110000000... .......... . . U . . 43 mull 32 . . 0100110000...... A+-DXWLdxI . . U . . 43 nbcd 8 . d 0100100000000... .......... U U U 6 6 6 nbcd 8 . . 0100100000...... A+-DXWL... U U U 8 8 6 neg 8 . d 0100010000000... .......... U U U 4 4 2 neg 8 . . 0100010000...... A+-DXWL... U U U 8 8 4 neg 16 . d 0100010001000... .......... U U U 4 4 2 neg 16 . . 0100010001...... A+-DXWL... U U U 8 8 4 neg 32 . d 0100010010000... .......... U U U 6 6 2 neg 32 . . 0100010010...... A+-DXWL... U U U 12 12 4 negx 8 . d 0100000000000... .......... U U U 4 4 2 negx 8 . . 0100000000...... A+-DXWL... U U U 8 8 4 negx 16 . d 0100000001000... .......... U U U 4 4 2 negx 16 . . 0100000001...... A+-DXWL... U U U 8 8 4 negx 32 . d 0100000010000... .......... U U U 6 6 2 negx 32 . . 0100000010...... A+-DXWL... U U U 12 12 4 nop 0 . . 0100111001110001 .......... U U U 4 4 2 not 8 . d 0100011000000... .......... U U U 4 4 2 not 8 . . 0100011000...... A+-DXWL... U U U 8 8 4 not 16 . d 0100011001000... .......... U U U 4 4 2 not 16 . . 0100011001...... A+-DXWL... U U U 8 8 4 not 32 . d 0100011010000... .......... U U U 6 6 2 not 32 . . 0100011010...... A+-DXWL... U U U 12 12 4 or 8 er d 1000...000000... .......... U U U 4 4 2 or 8 er . 1000...000...... A+-DXWLdxI U U U 4 4 2 or 16 er d 1000...001000... .......... U U U 4 4 2 or 16 er . 1000...001...... A+-DXWLdxI U U U 4 4 2 or 32 er d 1000...010000... .......... U U U 6 6 2 or 32 er . 1000...010...... A+-DXWLdxI U U U 6 6 2 or 8 re . 1000...100...... A+-DXWL... U U U 8 8 4 or 16 re . 1000...101...... A+-DXWL... U U U 8 8 4 or 32 re . 1000...110...... A+-DXWL... U U U 12 12 4 ori 16 toc . 0000000000111100 .......... U U U 20 16 12 ori 16 tos . 0000000001111100 .......... S S S 20 16 12 ori 8 . d 0000000000000... .......... U U U 8 8 2 ori 8 . . 0000000000...... A+-DXWL... U U U 12 12 4 ori 16 . d 0000000001000... .......... U U U 8 8 2 ori 16 . . 0000000001...... A+-DXWL... U U U 12 12 4 ori 32 . d 0000000010000... .......... U U U 16 14 2 ori 32 . . 0000000010...... A+-DXWL... U U U 20 20 4 pack 16 rr . 1000...101000... .......... . . U . . 6 pack 16 mm ax7 1000111101001... .......... . . U . . 13 pack 16 mm ay7 1000...101001111 .......... . . U . . 13 pack 16 mm axy7 1000111101001111 .......... . . U . . 13 pack 16 mm . 1000...101001... .......... . . U . . 13 pea 32 . . 0100100001...... A..DXWLdx. U U U 6 6 5 reset 0 . . 0100111001110000 .......... S S S 0 0 0 ror 8 s . 1110...000011... .......... U U U 6 6 8 ror 16 s . 1110...001011... .......... U U U 6 6 8 ror 32 s . 1110...010011... .......... U U U 8 8 8 ror 8 r . 1110...000111... .......... U U U 6 6 8 ror 16 r . 1110...001111... .......... U U U 6 6 8 ror 32 r . 1110...010111... .......... U U U 8 8 8 ror 16 . . 1110011011...... A+-DXWL... U U U 8 8 7 rol 8 s . 1110...100011... .......... U U U 6 6 8 rol 16 s . 1110...101011... .......... U U U 6 6 8 rol 32 s . 1110...110011... .......... U U U 8 8 8 rol 8 r . 1110...100111... .......... U U U 6 6 8 rol 16 r . 1110...101111... .......... U U U 6 6 8 rol 32 r . 1110...110111... .......... U U U 8 8 8 rol 16 . . 1110011111...... A+-DXWL... U U U 8 8 7 roxr 8 s . 1110...000010... .......... U U U 6 6 12 roxr 16 s . 1110...001010... .......... U U U 6 6 12 roxr 32 s . 1110...010010... .......... U U U 8 8 12 roxr 8 r . 1110...000110... .......... U U U 6 6 12 roxr 16 r . 1110...001110... .......... U U U 6 6 12 roxr 32 r . 1110...010110... .......... U U U 8 8 12 roxr 16 . . 1110010011...... A+-DXWL... U U U 8 8 5 roxl 8 s . 1110...100010... .......... U U U 6 6 12 roxl 16 s . 1110...101010... .......... U U U 6 6 12 roxl 32 s . 1110...110010... .......... U U U 8 8 12 roxl 8 r . 1110...100110... .......... U U U 6 6 12 roxl 16 r . 1110...101110... .......... U U U 6 6 12 roxl 32 r . 1110...110110... .......... U U U 8 8 12 roxl 16 . . 1110010111...... A+-DXWL... U U U 8 8 5 rtd 32 . . 0100111001110100 .......... . U U . 16 10 rte 32 . . 0100111001110011 .......... S S S 20 24 20 bus fault not emulated rtm 32 . . 000001101100.... .......... . . U . . 19 not properly emulated rtr 32 . . 0100111001110111 .......... U U U 20 20 14 rts 32 . . 0100111001110101 .......... U U U 16 16 10 sbcd 8 rr . 1000...100000... .......... U U U 6 6 4 sbcd 8 mm ax7 1000111100001... .......... U U U 18 18 16 sbcd 8 mm ay7 1000...100001111 .......... U U U 18 18 16 sbcd 8 mm axy7 1000111100001111 .......... U U U 18 18 16 sbcd 8 mm . 1000...100001... .......... U U U 18 18 16 st 8 . d 0101000011000... .......... U U U 6 4 4 st 8 . . 0101000011...... A+-DXWL... U U U 8 8 6 sf 8 . d 0101000111000... .......... U U U 4 4 4 sf 8 . . 0101000111...... A+-DXWL... U U U 8 8 6 scc 8 . d 0101....11000... .......... U U U 4 4 4 scc 8 . . 0101....11...... A+-DXWL... U U U 8 8 6 stop 0 . . 0100111001110010 .......... S S S 4 4 8 sub 8 er d 1001...000000... .......... U U U 4 4 2 sub 8 er . 1001...000...... A+-DXWLdxI U U U 4 4 2 sub 16 er d 1001...001000... .......... U U U 4 4 2 sub 16 er a 1001...001001... .......... U U U 4 4 2 sub 16 er . 1001...001...... A+-DXWLdxI U U U 4 4 2 sub 32 er d 1001...010000... .......... U U U 6 6 2 sub 32 er a 1001...010001... .......... U U U 6 6 2 sub 32 er . 1001...010...... A+-DXWLdxI U U U 6 6 2 sub 8 re . 1001...100...... A+-DXWL... U U U 8 8 4 sub 16 re . 1001...101...... A+-DXWL... U U U 8 8 4 sub 32 re . 1001...110...... A+-DXWL... U U U 12 12 4 suba 16 . d 1001...011000... .......... U U U 8 8 2 suba 16 . a 1001...011001... .......... U U U 8 8 2 suba 16 . . 1001...011...... A+-DXWLdxI U U U 8 8 2 suba 32 . d 1001...111000... .......... U U U 6 6 2 suba 32 . a 1001...111001... .......... U U U 6 6 2 suba 32 . . 1001...111...... A+-DXWLdxI U U U 6 6 2 subi 8 . d 0000010000000... .......... U U U 8 8 2 subi 8 . . 0000010000...... A+-DXWL... U U U 12 12 4 subi 16 . d 0000010001000... .......... U U U 8 8 2 subi 16 . . 0000010001...... A+-DXWL... U U U 12 12 4 subi 32 . d 0000010010000... .......... U U U 16 14 2 subi 32 . . 0000010010...... A+-DXWL... U U U 20 20 4 subq 8 . d 0101...100000... .......... U U U 4 4 2 subq 8 . . 0101...100...... A+-DXWL... U U U 8 8 4 subq 16 . d 0101...101000... .......... U U U 4 4 2 subq 16 . a 0101...101001... .......... U U U 8 4 2 subq 16 . . 0101...101...... A+-DXWL... U U U 8 8 4 subq 32 . d 0101...110000... .......... U U U 8 8 2 subq 32 . a 0101...110001... .......... U U U 8 8 2 subq 32 . . 0101...110...... A+-DXWL... U U U 12 12 4 subx 8 rr . 1001...100000... .......... U U U 4 4 2 subx 16 rr . 1001...101000... .......... U U U 4 4 2 subx 32 rr . 1001...110000... .......... U U U 8 6 2 subx 8 mm ax7 1001111100001... .......... U U U 18 18 12 subx 8 mm ay7 1001...100001111 .......... U U U 18 18 12 subx 8 mm axy7 1001111100001111 .......... U U U 18 18 12 subx 8 mm . 1001...100001... .......... U U U 18 18 12 subx 16 mm . 1001...101001... .......... U U U 18 18 12 subx 32 mm . 1001...110001... .......... U U U 30 30 12 swap 32 . . 0100100001000... .......... U U U 4 4 4 tas 8 . d 0100101011000... .......... U U U 4 4 4 tas 8 . . 0100101011...... A+-DXWL... U U U 14 14 12 trap 0 . . 010011100100.... .......... U U U 4 4 4 trapt 0 . . 0101000011111100 .......... . . U . . 4 trapt 16 . . 0101000011111010 .......... . . U . . 6 trapt 32 . . 0101000011111011 .......... . . U . . 8 trapf 0 . . 0101000111111100 .......... . . U . . 4 trapf 16 . . 0101000111111010 .......... . . U . . 6 trapf 32 . . 0101000111111011 .......... . . U . . 8 trapcc 0 . . 0101....11111100 .......... . . U . . 4 trapcc 16 . . 0101....11111010 .......... . . U . . 6 trapcc 32 . . 0101....11111011 .......... . . U . . 8 trapv 0 . . 0100111001110110 .......... U U U 4 4 4 tst 8 . d 0100101000000... .......... U U U 4 4 2 tst 8 . . 0100101000...... A+-DXWL... U U U 4 4 2 tst 8 . pcdi 0100101000111010 .......... . . U . . 7 tst 8 . pcix 0100101000111011 .......... . . U . . 9 tst 8 . i 0100101000111100 .......... . . U . . 6 tst 16 . d 0100101001000... .......... U U U 4 4 2 tst 16 . a 0100101001001... .......... . . U . . 2 tst 16 . . 0100101001...... A+-DXWL... U U U 4 4 2 tst 16 . pcdi 0100101001111010 .......... . . U . . 7 tst 16 . pcix 0100101001111011 .......... . . U . . 9 tst 16 . i 0100101001111100 .......... . . U . . 6 tst 32 . d 0100101010000... .......... U U U 4 4 2 tst 32 . a 0100101010001... .......... . . U . . 2 tst 32 . . 0100101010...... A+-DXWL... U U U 4 4 2 tst 32 . pcdi 0100101010111010 .......... . . U . . 7 tst 32 . pcix 0100101010111011 .......... . . U . . 9 tst 32 . i 0100101010111100 .......... . . U . . 6 unlk 32 . a7 0100111001011111 .......... U U U 12 12 6 unlk 32 . . 0100111001011... .......... U U U 12 12 6 unpk 16 rr . 1000...110000... .......... . . U . . 8 unpk 16 mm ax7 1000111110001... .......... . . U . . 13 unpk 16 mm ay7 1000...110001111 .......... . . U . . 13 unpk 16 mm axy7 1000111110001111 .......... . . U . . 13 unpk 16 mm . 1000...110001... .......... . . U . . 13 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX M68KMAKE_OPCODE_HANDLER_BODY M68KMAKE_OP(1010, 0, ., .) { m68ki_exception_1010(); } M68KMAKE_OP(1111, 0, ., .) { m68ki_exception_1111(); } M68KMAKE_OP(abcd, 8, rr, .) { uint* r_dst = &DX; uint src = DY; uint dst = *r_dst; uint res = LOW_NIBBLE(src) + LOW_NIBBLE(dst) + XFLAG_AS_1(); FLAG_V = ~res; /* Undefined V behavior */ if(res > 9) res += 6; res += HIGH_NIBBLE(src) + HIGH_NIBBLE(dst); FLAG_X = FLAG_C = (res > 0x99) << 8; if(FLAG_C) res -= 0xa0; FLAG_V &= res; /* Undefined V behavior part II */ FLAG_N = NFLAG_8(res); /* Undefined N behavior */ res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; } M68KMAKE_OP(abcd, 8, mm, ax7) { uint src = OPER_AY_PD_8(); uint ea = EA_A7_PD_8(); uint dst = m68ki_read_8(ea); uint res = LOW_NIBBLE(src) + LOW_NIBBLE(dst) + XFLAG_AS_1(); FLAG_V = ~res; /* Undefined V behavior */ if(res > 9) res += 6; res += HIGH_NIBBLE(src) + HIGH_NIBBLE(dst); FLAG_X = FLAG_C = (res > 0x99) << 8; if(FLAG_C) res -= 0xa0; FLAG_V &= res; /* Undefined V behavior part II */ FLAG_N = NFLAG_8(res); /* Undefined N behavior */ res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(abcd, 8, mm, ay7) { uint src = OPER_A7_PD_8(); uint ea = EA_AX_PD_8(); uint dst = m68ki_read_8(ea); uint res = LOW_NIBBLE(src) + LOW_NIBBLE(dst) + XFLAG_AS_1(); FLAG_V = ~res; /* Undefined V behavior */ if(res > 9) res += 6; res += HIGH_NIBBLE(src) + HIGH_NIBBLE(dst); FLAG_X = FLAG_C = (res > 0x99) << 8; if(FLAG_C) res -= 0xa0; FLAG_V &= res; /* Undefined V behavior part II */ FLAG_N = NFLAG_8(res); /* Undefined N behavior */ res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(abcd, 8, mm, axy7) { uint src = OPER_A7_PD_8(); uint ea = EA_A7_PD_8(); uint dst = m68ki_read_8(ea); uint res = LOW_NIBBLE(src) + LOW_NIBBLE(dst) + XFLAG_AS_1(); FLAG_V = ~res; /* Undefined V behavior */ if(res > 9) res += 6; res += HIGH_NIBBLE(src) + HIGH_NIBBLE(dst); FLAG_X = FLAG_C = (res > 0x99) << 8; if(FLAG_C) res -= 0xa0; FLAG_V &= res; /* Undefined V behavior part II */ FLAG_N = NFLAG_8(res); /* Undefined N behavior */ res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(abcd, 8, mm, .) { uint src = OPER_AY_PD_8(); uint ea = EA_AX_PD_8(); uint dst = m68ki_read_8(ea); uint res = LOW_NIBBLE(src) + LOW_NIBBLE(dst) + XFLAG_AS_1(); FLAG_V = ~res; /* Undefined V behavior */ if(res > 9) res += 6; res += HIGH_NIBBLE(src) + HIGH_NIBBLE(dst); FLAG_X = FLAG_C = (res > 0x99) << 8; if(FLAG_C) res -= 0xa0; FLAG_V &= res; /* Undefined V behavior part II */ FLAG_N = NFLAG_8(res); /* Undefined N behavior */ res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(add, 8, er, d) { uint* r_dst = &DX; uint src = MASK_OUT_ABOVE_8(DY); uint dst = MASK_OUT_ABOVE_8(*r_dst); uint res = src + dst; FLAG_N = NFLAG_8(res); FLAG_V = VFLAG_ADD_8(src, dst, res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); *r_dst = MASK_OUT_BELOW_8(*r_dst) | FLAG_Z; } M68KMAKE_OP(add, 8, er, .) { uint* r_dst = &DX; uint src = M68KMAKE_GET_OPER_AY_8; uint dst = MASK_OUT_ABOVE_8(*r_dst); uint res = src + dst; FLAG_N = NFLAG_8(res); FLAG_V = VFLAG_ADD_8(src, dst, res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); *r_dst = MASK_OUT_BELOW_8(*r_dst) | FLAG_Z; } M68KMAKE_OP(add, 16, er, d) { uint* r_dst = &DX; uint src = MASK_OUT_ABOVE_16(DY); uint dst = MASK_OUT_ABOVE_16(*r_dst); uint res = src + dst; FLAG_N = NFLAG_16(res); FLAG_V = VFLAG_ADD_16(src, dst, res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | FLAG_Z; } M68KMAKE_OP(add, 16, er, a) { uint* r_dst = &DX; uint src = MASK_OUT_ABOVE_16(AY); uint dst = MASK_OUT_ABOVE_16(*r_dst); uint res = src + dst; FLAG_N = NFLAG_16(res); FLAG_V = VFLAG_ADD_16(src, dst, res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | FLAG_Z; } M68KMAKE_OP(add, 16, er, .) { uint* r_dst = &DX; uint src = M68KMAKE_GET_OPER_AY_16; uint dst = MASK_OUT_ABOVE_16(*r_dst); uint res = src + dst; FLAG_N = NFLAG_16(res); FLAG_V = VFLAG_ADD_16(src, dst, res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | FLAG_Z; } M68KMAKE_OP(add, 32, er, d) { uint* r_dst = &DX; uint src = DY; uint dst = *r_dst; uint res = src + dst; FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_ADD_32(src, dst, res); FLAG_X = FLAG_C = CFLAG_ADD_32(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_32(res); *r_dst = FLAG_Z; } M68KMAKE_OP(add, 32, er, a) { uint* r_dst = &DX; uint src = AY; uint dst = *r_dst; uint res = src + dst; FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_ADD_32(src, dst, res); FLAG_X = FLAG_C = CFLAG_ADD_32(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_32(res); *r_dst = FLAG_Z; } M68KMAKE_OP(add, 32, er, .) { uint* r_dst = &DX; uint src = M68KMAKE_GET_OPER_AY_32; uint dst = *r_dst; uint res = src + dst; FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_ADD_32(src, dst, res); FLAG_X = FLAG_C = CFLAG_ADD_32(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_32(res); *r_dst = FLAG_Z; } M68KMAKE_OP(add, 8, re, .) { uint ea = M68KMAKE_GET_EA_AY_8; uint src = MASK_OUT_ABOVE_8(DX); uint dst = m68ki_read_8(ea); uint res = src + dst; FLAG_N = NFLAG_8(res); FLAG_V = VFLAG_ADD_8(src, dst, res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); m68ki_write_8(ea, FLAG_Z); } M68KMAKE_OP(add, 16, re, .) { uint ea = M68KMAKE_GET_EA_AY_16; uint src = MASK_OUT_ABOVE_16(DX); uint dst = m68ki_read_16(ea); uint res = src + dst; FLAG_N = NFLAG_16(res); FLAG_V = VFLAG_ADD_16(src, dst, res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); m68ki_write_16(ea, FLAG_Z); } M68KMAKE_OP(add, 32, re, .) { uint ea = M68KMAKE_GET_EA_AY_32; uint src = DX; uint dst = m68ki_read_32(ea); uint res = src + dst; FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_ADD_32(src, dst, res); FLAG_X = FLAG_C = CFLAG_ADD_32(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_32(res); m68ki_write_32(ea, FLAG_Z); } M68KMAKE_OP(adda, 16, ., d) { uint* r_dst = &AX; *r_dst = MASK_OUT_ABOVE_32(*r_dst + MAKE_INT_16(DY)); } M68KMAKE_OP(adda, 16, ., a) { uint* r_dst = &AX; *r_dst = MASK_OUT_ABOVE_32(*r_dst + MAKE_INT_16(AY)); } M68KMAKE_OP(adda, 16, ., .) { signed short src = MAKE_INT_16(M68KMAKE_GET_OPER_AY_16); uint* r_dst = &AX; *r_dst = MASK_OUT_ABOVE_32(*r_dst + src); } M68KMAKE_OP(adda, 32, ., d) { uint* r_dst = &AX; *r_dst = MASK_OUT_ABOVE_32(*r_dst + DY); } M68KMAKE_OP(adda, 32, ., a) { uint* r_dst = &AX; *r_dst = MASK_OUT_ABOVE_32(*r_dst + AY); } M68KMAKE_OP(adda, 32, ., .) { uint src = M68KMAKE_GET_OPER_AY_32; uint* r_dst = &AX; *r_dst = MASK_OUT_ABOVE_32(*r_dst + src); } M68KMAKE_OP(addi, 8, ., d) { uint* r_dst = &DY; uint src = OPER_I_8(); uint dst = MASK_OUT_ABOVE_8(*r_dst); uint res = src + dst; FLAG_N = NFLAG_8(res); FLAG_V = VFLAG_ADD_8(src, dst, res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); *r_dst = MASK_OUT_BELOW_8(*r_dst) | FLAG_Z; } M68KMAKE_OP(addi, 8, ., .) { uint src = OPER_I_8(); uint ea = M68KMAKE_GET_EA_AY_8; uint dst = m68ki_read_8(ea); uint res = src + dst; FLAG_N = NFLAG_8(res); FLAG_V = VFLAG_ADD_8(src, dst, res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); m68ki_write_8(ea, FLAG_Z); } M68KMAKE_OP(addi, 16, ., d) { uint* r_dst = &DY; uint src = OPER_I_16(); uint dst = MASK_OUT_ABOVE_16(*r_dst); uint res = src + dst; FLAG_N = NFLAG_16(res); FLAG_V = VFLAG_ADD_16(src, dst, res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | FLAG_Z; } M68KMAKE_OP(addi, 16, ., .) { uint src = OPER_I_16(); uint ea = M68KMAKE_GET_EA_AY_16; uint dst = m68ki_read_16(ea); uint res = src + dst; FLAG_N = NFLAG_16(res); FLAG_V = VFLAG_ADD_16(src, dst, res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); m68ki_write_16(ea, FLAG_Z); } M68KMAKE_OP(addi, 32, ., d) { uint* r_dst = &DY; uint src = OPER_I_32(); uint dst = *r_dst; uint res = src + dst; FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_ADD_32(src, dst, res); FLAG_X = FLAG_C = CFLAG_ADD_32(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_32(res); *r_dst = FLAG_Z; } M68KMAKE_OP(addi, 32, ., .) { uint src = OPER_I_32(); uint ea = M68KMAKE_GET_EA_AY_32; uint dst = m68ki_read_32(ea); uint res = src + dst; FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_ADD_32(src, dst, res); FLAG_X = FLAG_C = CFLAG_ADD_32(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_32(res); m68ki_write_32(ea, FLAG_Z); } M68KMAKE_OP(addq, 8, ., d) { uint* r_dst = &DY; uint src = (((REG_IR >> 9) - 1) & 7) + 1; uint dst = MASK_OUT_ABOVE_8(*r_dst); uint res = src + dst; FLAG_N = NFLAG_8(res); FLAG_V = VFLAG_ADD_8(src, dst, res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); *r_dst = MASK_OUT_BELOW_8(*r_dst) | FLAG_Z; } M68KMAKE_OP(addq, 8, ., .) { uint src = (((REG_IR >> 9) - 1) & 7) + 1; uint ea = M68KMAKE_GET_EA_AY_8; uint dst = m68ki_read_8(ea); uint res = src + dst; FLAG_N = NFLAG_8(res); FLAG_V = VFLAG_ADD_8(src, dst, res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); m68ki_write_8(ea, FLAG_Z); } M68KMAKE_OP(addq, 16, ., d) { uint* r_dst = &DY; uint src = (((REG_IR >> 9) - 1) & 7) + 1; uint dst = MASK_OUT_ABOVE_16(*r_dst); uint res = src + dst; FLAG_N = NFLAG_16(res); FLAG_V = VFLAG_ADD_16(src, dst, res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | FLAG_Z; } M68KMAKE_OP(addq, 16, ., a) { uint* r_dst = &AY; *r_dst = MASK_OUT_ABOVE_32(*r_dst + (((REG_IR >> 9) - 1) & 7) + 1); } M68KMAKE_OP(addq, 16, ., .) { uint src = (((REG_IR >> 9) - 1) & 7) + 1; uint ea = M68KMAKE_GET_EA_AY_16; uint dst = m68ki_read_16(ea); uint res = src + dst; FLAG_N = NFLAG_16(res); FLAG_V = VFLAG_ADD_16(src, dst, res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); m68ki_write_16(ea, FLAG_Z); } M68KMAKE_OP(addq, 32, ., d) { uint* r_dst = &DY; uint src = (((REG_IR >> 9) - 1) & 7) + 1; uint dst = *r_dst; uint res = src + dst; FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_ADD_32(src, dst, res); FLAG_X = FLAG_C = CFLAG_ADD_32(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_32(res); *r_dst = FLAG_Z; } M68KMAKE_OP(addq, 32, ., a) { uint* r_dst = &AY; *r_dst = MASK_OUT_ABOVE_32(*r_dst + (((REG_IR >> 9) - 1) & 7) + 1); } M68KMAKE_OP(addq, 32, ., .) { uint src = (((REG_IR >> 9) - 1) & 7) + 1; uint ea = M68KMAKE_GET_EA_AY_32; uint dst = m68ki_read_32(ea); uint res = src + dst; FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_ADD_32(src, dst, res); FLAG_X = FLAG_C = CFLAG_ADD_32(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_32(res); m68ki_write_32(ea, FLAG_Z); } M68KMAKE_OP(addx, 8, rr, .) { uint* r_dst = &DX; uint src = MASK_OUT_ABOVE_8(DY); uint dst = MASK_OUT_ABOVE_8(*r_dst); uint res = src + dst + XFLAG_AS_1(); FLAG_N = NFLAG_8(res); FLAG_V = VFLAG_ADD_8(src, dst, res); FLAG_X = FLAG_C = CFLAG_8(res); res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; } M68KMAKE_OP(addx, 16, rr, .) { uint* r_dst = &DX; uint src = MASK_OUT_ABOVE_16(DY); uint dst = MASK_OUT_ABOVE_16(*r_dst); uint res = src + dst + XFLAG_AS_1(); FLAG_N = NFLAG_16(res); FLAG_V = VFLAG_ADD_16(src, dst, res); FLAG_X = FLAG_C = CFLAG_16(res); res = MASK_OUT_ABOVE_16(res); FLAG_Z |= res; *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; } M68KMAKE_OP(addx, 32, rr, .) { uint* r_dst = &DX; uint src = DY; uint dst = *r_dst; uint res = src + dst + XFLAG_AS_1(); FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_ADD_32(src, dst, res); FLAG_X = FLAG_C = CFLAG_ADD_32(src, dst, res); res = MASK_OUT_ABOVE_32(res); FLAG_Z |= res; *r_dst = res; } M68KMAKE_OP(addx, 8, mm, ax7) { uint src = OPER_AY_PD_8(); uint ea = EA_A7_PD_8(); uint dst = m68ki_read_8(ea); uint res = src + dst + XFLAG_AS_1(); FLAG_N = NFLAG_8(res); FLAG_V = VFLAG_ADD_8(src, dst, res); FLAG_X = FLAG_C = CFLAG_8(res); res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(addx, 8, mm, ay7) { uint src = OPER_A7_PD_8(); uint ea = EA_AX_PD_8(); uint dst = m68ki_read_8(ea); uint res = src + dst + XFLAG_AS_1(); FLAG_N = NFLAG_8(res); FLAG_V = VFLAG_ADD_8(src, dst, res); FLAG_X = FLAG_C = CFLAG_8(res); res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(addx, 8, mm, axy7) { uint src = OPER_A7_PD_8(); uint ea = EA_A7_PD_8(); uint dst = m68ki_read_8(ea); uint res = src + dst + XFLAG_AS_1(); FLAG_N = NFLAG_8(res); FLAG_V = VFLAG_ADD_8(src, dst, res); FLAG_X = FLAG_C = CFLAG_8(res); res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(addx, 8, mm, .) { uint src = OPER_AY_PD_8(); uint ea = EA_AX_PD_8(); uint dst = m68ki_read_8(ea); uint res = src + dst + XFLAG_AS_1(); FLAG_N = NFLAG_8(res); FLAG_V = VFLAG_ADD_8(src, dst, res); FLAG_X = FLAG_C = CFLAG_8(res); res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(addx, 16, mm, .) { uint src = OPER_AY_PD_16(); uint ea = EA_AX_PD_16(); uint dst = m68ki_read_16(ea); uint res = src + dst + XFLAG_AS_1(); FLAG_N = NFLAG_16(res); FLAG_V = VFLAG_ADD_16(src, dst, res); FLAG_X = FLAG_C = CFLAG_16(res); res = MASK_OUT_ABOVE_16(res); FLAG_Z |= res; m68ki_write_16(ea, res); } M68KMAKE_OP(addx, 32, mm, .) { uint src = OPER_AY_PD_32(); uint ea = EA_AX_PD_32(); uint dst = m68ki_read_32(ea); uint res = src + dst + XFLAG_AS_1(); FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_ADD_32(src, dst, res); FLAG_X = FLAG_C = CFLAG_ADD_32(src, dst, res); res = MASK_OUT_ABOVE_32(res); FLAG_Z |= res; m68ki_write_32(ea, res); } M68KMAKE_OP(and, 8, er, d) { FLAG_Z = MASK_OUT_ABOVE_8(DX &= (DY | 0xffffff00)); FLAG_N = NFLAG_8(FLAG_Z); FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(and, 8, er, .) { FLAG_Z = MASK_OUT_ABOVE_8(DX &= (M68KMAKE_GET_OPER_AY_8 | 0xffffff00)); FLAG_N = NFLAG_8(FLAG_Z); FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(and, 16, er, d) { FLAG_Z = MASK_OUT_ABOVE_16(DX &= (DY | 0xffff0000)); FLAG_N = NFLAG_16(FLAG_Z); FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(and, 16, er, .) { FLAG_Z = MASK_OUT_ABOVE_16(DX &= (M68KMAKE_GET_OPER_AY_16 | 0xffff0000)); FLAG_N = NFLAG_16(FLAG_Z); FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(and, 32, er, d) { FLAG_Z = DX &= DY; FLAG_N = NFLAG_32(FLAG_Z); FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(and, 32, er, .) { FLAG_Z = DX &= M68KMAKE_GET_OPER_AY_32; FLAG_N = NFLAG_32(FLAG_Z); FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(and, 8, re, .) { uint ea = M68KMAKE_GET_EA_AY_8; uint res = DX & m68ki_read_8(ea); FLAG_N = NFLAG_8(res); FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_Z = MASK_OUT_ABOVE_8(res); m68ki_write_8(ea, FLAG_Z); } M68KMAKE_OP(and, 16, re, .) { uint ea = M68KMAKE_GET_EA_AY_16; uint res = DX & m68ki_read_16(ea); FLAG_N = NFLAG_16(res); FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_Z = MASK_OUT_ABOVE_16(res); m68ki_write_16(ea, FLAG_Z); } M68KMAKE_OP(and, 32, re, .) { uint ea = M68KMAKE_GET_EA_AY_32; uint res = DX & m68ki_read_32(ea); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; m68ki_write_32(ea, res); } M68KMAKE_OP(andi, 8, ., d) { FLAG_Z = MASK_OUT_ABOVE_8(DY &= (OPER_I_8() | 0xffffff00)); FLAG_N = NFLAG_8(FLAG_Z); FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(andi, 8, ., .) { uint src = OPER_I_8(); uint ea = M68KMAKE_GET_EA_AY_8; uint res = src & m68ki_read_8(ea); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; m68ki_write_8(ea, res); } M68KMAKE_OP(andi, 16, ., d) { FLAG_Z = MASK_OUT_ABOVE_16(DY &= (OPER_I_16() | 0xffff0000)); FLAG_N = NFLAG_16(FLAG_Z); FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(andi, 16, ., .) { uint src = OPER_I_16(); uint ea = M68KMAKE_GET_EA_AY_16; uint res = src & m68ki_read_16(ea); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; m68ki_write_16(ea, res); } M68KMAKE_OP(andi, 32, ., d) { FLAG_Z = DY &= (OPER_I_32()); FLAG_N = NFLAG_32(FLAG_Z); FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(andi, 32, ., .) { uint src = OPER_I_32(); uint ea = M68KMAKE_GET_EA_AY_32; uint res = src & m68ki_read_32(ea); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; m68ki_write_32(ea, res); } M68KMAKE_OP(andi, 16, toc, .) { m68ki_set_ccr(m68ki_get_ccr() & OPER_I_16()); } M68KMAKE_OP(andi, 16, tos, .) { if(FLAG_S) { uint src = OPER_I_16(); m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_set_sr(m68ki_get_sr() & src); return; } m68ki_exception_privilege_violation(); } M68KMAKE_OP(asr, 8, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = src >> shift; if(GET_MSB_8(src)) res |= m68ki_shift_8_table[shift]; *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_X = FLAG_C = src << (9-shift); } M68KMAKE_OP(asr, 16, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_16(*r_dst); uint res = src >> shift; if(GET_MSB_16(src)) res |= m68ki_shift_16_table[shift]; *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_X = FLAG_C = src << (9-shift); } M68KMAKE_OP(asr, 32, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = *r_dst; uint res = src >> shift; if(GET_MSB_32(src)) res |= m68ki_shift_32_table[shift]; *r_dst = res; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_X = FLAG_C = src << (9-shift); } M68KMAKE_OP(asr, 8, r, .) { uint* r_dst = &DY; uint shift = DX & 0x3f; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = src >> shift; if(shift != 0) { USE_CYCLES(shift<> shift; if(shift != 0) { USE_CYCLES(shift<> (shift - 1))<<8; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } if(GET_MSB_16(src)) { *r_dst |= 0xffff; FLAG_C = CFLAG_SET; FLAG_X = XFLAG_SET; FLAG_N = NFLAG_SET; FLAG_Z = ZFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; return; } *r_dst &= 0xffff0000; FLAG_C = CFLAG_CLEAR; FLAG_X = XFLAG_CLEAR; FLAG_N = NFLAG_CLEAR; FLAG_Z = ZFLAG_SET; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_16(src); FLAG_Z = src; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(asr, 32, r, .) { uint* r_dst = &DY; uint shift = DX & 0x3f; uint src = *r_dst; uint res = src >> shift; if(shift != 0) { USE_CYCLES(shift<> (shift - 1))<<8; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } if(GET_MSB_32(src)) { *r_dst = 0xffffffff; FLAG_C = CFLAG_SET; FLAG_X = XFLAG_SET; FLAG_N = NFLAG_SET; FLAG_Z = ZFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; return; } *r_dst = 0; FLAG_C = CFLAG_CLEAR; FLAG_X = XFLAG_CLEAR; FLAG_N = NFLAG_CLEAR; FLAG_Z = ZFLAG_SET; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_32(src); FLAG_Z = src; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(asr, 16, ., .) { uint ea = M68KMAKE_GET_EA_AY_16; uint src = m68ki_read_16(ea); uint res = src >> 1; if(GET_MSB_16(src)) res |= 0x8000; m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = FLAG_X = src << 8; } M68KMAKE_OP(asl, 8, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = MASK_OUT_ABOVE_8(src << shift); *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; FLAG_X = FLAG_C = src << shift; FLAG_N = NFLAG_8(res); FLAG_Z = res; src &= m68ki_shift_8_table[shift + 1]; FLAG_V = (!(src == 0 || (src == m68ki_shift_8_table[shift + 1] && shift < 8)))<<7; } M68KMAKE_OP(asl, 16, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_16(*r_dst); uint res = MASK_OUT_ABOVE_16(src << shift); *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_X = FLAG_C = src >> (8-shift); src &= m68ki_shift_16_table[shift + 1]; FLAG_V = (!(src == 0 || src == m68ki_shift_16_table[shift + 1]))<<7; } M68KMAKE_OP(asl, 32, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = *r_dst; uint res = MASK_OUT_ABOVE_32(src << shift); *r_dst = res; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_X = FLAG_C = src >> (24-shift); src &= m68ki_shift_32_table[shift + 1]; FLAG_V = (!(src == 0 || src == m68ki_shift_32_table[shift + 1]))<<7; } M68KMAKE_OP(asl, 8, r, .) { uint* r_dst = &DY; uint shift = DX & 0x3f; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = MASK_OUT_ABOVE_8(src << shift); if(shift != 0) { USE_CYCLES(shift<> 8; FLAG_N = NFLAG_16(res); FLAG_Z = res; src &= m68ki_shift_16_table[shift + 1]; FLAG_V = (!(src == 0 || src == m68ki_shift_16_table[shift + 1]))<<7; return; } *r_dst &= 0xffff0000; FLAG_X = FLAG_C = ((shift == 16 ? src & 1 : 0))<<8; FLAG_N = NFLAG_CLEAR; FLAG_Z = ZFLAG_SET; FLAG_V = (!(src == 0))<<7; return; } FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_16(src); FLAG_Z = src; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(asl, 32, r, .) { uint* r_dst = &DY; uint shift = DX & 0x3f; uint src = *r_dst; uint res = MASK_OUT_ABOVE_32(src << shift); if(shift != 0) { USE_CYCLES(shift<> (32 - shift)) << 8; FLAG_N = NFLAG_32(res); FLAG_Z = res; src &= m68ki_shift_32_table[shift + 1]; FLAG_V = (!(src == 0 || src == m68ki_shift_32_table[shift + 1]))<<7; return; } *r_dst = 0; FLAG_X = FLAG_C = ((shift == 32 ? src & 1 : 0))<<8; FLAG_N = NFLAG_CLEAR; FLAG_Z = ZFLAG_SET; FLAG_V = (!(src == 0))<<7; return; } FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_32(src); FLAG_Z = src; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(asl, 16, ., .) { uint ea = M68KMAKE_GET_EA_AY_16; uint src = m68ki_read_16(ea); uint res = MASK_OUT_ABOVE_16(src << 1); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_X = FLAG_C = src >> 7; src &= 0xc000; FLAG_V = (!(src == 0 || src == 0xc000))<<7; } M68KMAKE_OP(bcc, 8, ., .) { if(M68KMAKE_CC) { m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_branch_8(MASK_OUT_ABOVE_8(REG_IR)); return; } USE_CYCLES(CYC_BCC_NOTAKE_B); } M68KMAKE_OP(bcc, 16, ., .) { if(M68KMAKE_CC) { uint offset = OPER_I_16(); REG_PC -= 2; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_branch_16(offset); return; } REG_PC += 2; USE_CYCLES(CYC_BCC_NOTAKE_W); } M68KMAKE_OP(bcc, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { if(M68KMAKE_CC) { uint offset = OPER_I_32(); REG_PC -= 4; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_branch_32(offset); return; } REG_PC += 4; return; } m68ki_exception_illegal(); } M68KMAKE_OP(bchg, 32, r, d) { uint* r_dst = &DY; uint mask = 1 << (DX & 0x1f); FLAG_Z = *r_dst & mask; *r_dst ^= mask; } M68KMAKE_OP(bchg, 8, r, .) { uint ea = M68KMAKE_GET_EA_AY_8; uint src = m68ki_read_8(ea); uint mask = 1 << (DX & 7); FLAG_Z = src & mask; m68ki_write_8(ea, src ^ mask); } M68KMAKE_OP(bchg, 32, s, d) { uint* r_dst = &DY; uint mask = 1 << (OPER_I_8() & 0x1f); FLAG_Z = *r_dst & mask; *r_dst ^= mask; } M68KMAKE_OP(bchg, 8, s, .) { uint mask = 1 << (OPER_I_8() & 7); uint ea = M68KMAKE_GET_EA_AY_8; uint src = m68ki_read_8(ea); FLAG_Z = src & mask; m68ki_write_8(ea, src ^ mask); } M68KMAKE_OP(bclr, 32, r, d) { uint* r_dst = &DY; uint mask = 1 << (DX & 0x1f); FLAG_Z = *r_dst & mask; *r_dst &= ~mask; } M68KMAKE_OP(bclr, 8, r, .) { uint ea = M68KMAKE_GET_EA_AY_8; uint src = m68ki_read_8(ea); uint mask = 1 << (DX & 7); FLAG_Z = src & mask; m68ki_write_8(ea, src & ~mask); } M68KMAKE_OP(bclr, 32, s, d) { uint* r_dst = &DY; uint mask = 1 << (OPER_I_8() & 0x1f); FLAG_Z = *r_dst & mask; *r_dst &= ~mask; } M68KMAKE_OP(bclr, 8, s, .) { uint mask = 1 << (OPER_I_8() & 7); uint ea = M68KMAKE_GET_EA_AY_8; uint src = m68ki_read_8(ea); FLAG_Z = src & mask; m68ki_write_8(ea, src & ~mask); } M68KMAKE_OP(bfchg, 32, ., d) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint offset = (word2>>6)&31; uint width = word2; uint* data = &DY; uint64 mask; if(BIT_B(word2)) offset = REG_D[offset&7]; if(BIT_5(word2)) width = REG_D[width&7]; offset &= 31; width = ((width-1) & 31) + 1; mask = MASK_OUT_ABOVE_32(0xffffffff << (32 - width)); mask = ROR_32(mask, offset); FLAG_N = NFLAG_32(*data<>6)&31; uint width = word2; uint mask_base; uint data_long; uint mask_long; uint data_byte = 0; uint mask_byte = 0; uint ea = M68KMAKE_GET_EA_AY_8; if(BIT_B(word2)) offset = MAKE_INT_32(REG_D[offset&7]); if(BIT_5(word2)) width = REG_D[width&7]; /* Offset is signed so we have to use ugly math =( */ ea += offset / 8; offset %= 8; if(offset < 0) { offset += 8; ea--; } width = ((width-1) & 31) + 1; mask_base = MASK_OUT_ABOVE_32(0xffffffff << (32 - width)); mask_long = mask_base >> offset; data_long = m68ki_read_32(ea); FLAG_N = NFLAG_32(data_long << offset); FLAG_Z = data_long & mask_long; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; m68ki_write_32(ea, data_long ^ mask_long); if((width + offset) > 32) { mask_byte = MASK_OUT_ABOVE_8(mask_base); data_byte = m68ki_read_8(ea+4); FLAG_Z |= (data_byte & mask_byte); m68ki_write_8(ea+4, data_byte ^ mask_byte); } return; } m68ki_exception_illegal(); } M68KMAKE_OP(bfclr, 32, ., d) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint offset = (word2>>6)&31; uint width = word2; uint* data = &DY; uint64 mask; if(BIT_B(word2)) offset = REG_D[offset&7]; if(BIT_5(word2)) width = REG_D[width&7]; offset &= 31; width = ((width-1) & 31) + 1; mask = MASK_OUT_ABOVE_32(0xffffffff << (32 - width)); mask = ROR_32(mask, offset); FLAG_N = NFLAG_32(*data<>6)&31; uint width = word2; uint mask_base; uint data_long; uint mask_long; uint data_byte = 0; uint mask_byte = 0; uint ea = M68KMAKE_GET_EA_AY_8; if(BIT_B(word2)) offset = MAKE_INT_32(REG_D[offset&7]); if(BIT_5(word2)) width = REG_D[width&7]; /* Offset is signed so we have to use ugly math =( */ ea += offset / 8; offset %= 8; if(offset < 0) { offset += 8; ea--; } width = ((width-1) & 31) + 1; mask_base = MASK_OUT_ABOVE_32(0xffffffff << (32 - width)); mask_long = mask_base >> offset; data_long = m68ki_read_32(ea); FLAG_N = NFLAG_32(data_long << offset); FLAG_Z = data_long & mask_long; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; m68ki_write_32(ea, data_long & ~mask_long); if((width + offset) > 32) { mask_byte = MASK_OUT_ABOVE_8(mask_base); data_byte = m68ki_read_8(ea+4); FLAG_Z |= (data_byte & mask_byte); m68ki_write_8(ea+4, data_byte & ~mask_byte); } return; } m68ki_exception_illegal(); } M68KMAKE_OP(bfexts, 32, ., d) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint offset = (word2>>6)&31; uint width = word2; uint64 data = DY; if(BIT_B(word2)) offset = REG_D[offset&7]; if(BIT_5(word2)) width = REG_D[width&7]; offset &= 31; width = ((width-1) & 31) + 1; data = ROL_32(data, offset); FLAG_N = NFLAG_32(data); data = MAKE_INT_32(data) >> (32 - width); FLAG_Z = data; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; REG_D[(word2>>12)&7] = data; return; } m68ki_exception_illegal(); } M68KMAKE_OP(bfexts, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); sint offset = (word2>>6)&31; uint width = word2; uint data; uint ea = M68KMAKE_GET_EA_AY_8; if(BIT_B(word2)) offset = MAKE_INT_32(REG_D[offset&7]); if(BIT_5(word2)) width = REG_D[width&7]; /* Offset is signed so we have to use ugly math =( */ ea += offset / 8; offset %= 8; if(offset < 0) { offset += 8; ea--; } width = ((width-1) & 31) + 1; data = m68ki_read_32(ea); data = MASK_OUT_ABOVE_32(data< 32) data |= (m68ki_read_8(ea+4) << offset) >> 8; FLAG_N = NFLAG_32(data); data = MAKE_INT_32(data) >> (32 - width); FLAG_Z = data; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; REG_D[(word2 >> 12) & 7] = data; return; } m68ki_exception_illegal(); } M68KMAKE_OP(bfextu, 32, ., d) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint offset = (word2>>6)&31; uint width = word2; uint64 data = DY; if(BIT_B(word2)) offset = REG_D[offset&7]; if(BIT_5(word2)) width = REG_D[width&7]; offset &= 31; width = ((width-1) & 31) + 1; data = ROL_32(data, offset); FLAG_N = NFLAG_32(data); data >>= 32 - width; FLAG_Z = data; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; REG_D[(word2>>12)&7] = data; return; } m68ki_exception_illegal(); } M68KMAKE_OP(bfextu, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); sint offset = (word2>>6)&31; uint width = word2; uint data; uint ea = M68KMAKE_GET_EA_AY_8; if(BIT_B(word2)) offset = MAKE_INT_32(REG_D[offset&7]); if(BIT_5(word2)) width = REG_D[width&7]; /* Offset is signed so we have to use ugly math =( */ ea += offset / 8; offset %= 8; if(offset < 0) { offset += 8; ea--; } width = ((width-1) & 31) + 1; data = m68ki_read_32(ea); data = MASK_OUT_ABOVE_32(data< 32) data |= (m68ki_read_8(ea+4) << offset) >> 8; FLAG_N = NFLAG_32(data); data >>= (32 - width); FLAG_Z = data; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; REG_D[(word2 >> 12) & 7] = data; return; } m68ki_exception_illegal(); } M68KMAKE_OP(bfffo, 32, ., d) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint offset = (word2>>6)&31; uint width = word2; uint64 data = DY; uint bit; if(BIT_B(word2)) offset = REG_D[offset&7]; if(BIT_5(word2)) width = REG_D[width&7]; offset &= 31; width = ((width-1) & 31) + 1; data = ROL_32(data, offset); FLAG_N = NFLAG_32(data); data >>= 32 - width; FLAG_Z = data; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; for(bit = 1<<(width-1);bit && !(data & bit);bit>>= 1) offset++; REG_D[(word2>>12)&7] = offset; return; } m68ki_exception_illegal(); } M68KMAKE_OP(bfffo, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); sint offset = (word2>>6)&31; sint local_offset; uint width = word2; uint data; uint bit; uint ea = M68KMAKE_GET_EA_AY_8; if(BIT_B(word2)) offset = MAKE_INT_32(REG_D[offset&7]); if(BIT_5(word2)) width = REG_D[width&7]; /* Offset is signed so we have to use ugly math =( */ ea += offset / 8; local_offset = offset % 8; if(local_offset < 0) { local_offset += 8; ea--; } width = ((width-1) & 31) + 1; data = m68ki_read_32(ea); data = MASK_OUT_ABOVE_32(data< 32) data |= (m68ki_read_8(ea+4) << local_offset) >> 8; FLAG_N = NFLAG_32(data); data >>= (32 - width); FLAG_Z = data; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; for(bit = 1<<(width-1);bit && !(data & bit);bit>>= 1) offset++; REG_D[(word2>>12)&7] = offset; return; } m68ki_exception_illegal(); } M68KMAKE_OP(bfins, 32, ., d) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint offset = (word2>>6)&31; uint width = word2; uint* data = &DY; uint64 mask; uint64 insert = REG_D[(word2>>12)&7]; if(BIT_B(word2)) offset = REG_D[offset&7]; if(BIT_5(word2)) width = REG_D[width&7]; offset &= 31; width = ((width-1) & 31) + 1; mask = MASK_OUT_ABOVE_32(0xffffffff << (32 - width)); mask = ROR_32(mask, offset); insert = MASK_OUT_ABOVE_32(insert << (32 - width)); FLAG_N = NFLAG_32(insert); FLAG_Z = insert; insert = ROR_32(insert, offset); FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; *data &= ~mask; *data |= insert; return; } m68ki_exception_illegal(); } M68KMAKE_OP(bfins, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); sint offset = (word2>>6)&31; uint width = word2; uint insert_base = REG_D[(word2>>12)&7]; uint insert_long; uint insert_byte; uint mask_base; uint data_long; uint mask_long; uint data_byte = 0; uint mask_byte = 0; uint ea = M68KMAKE_GET_EA_AY_8; if(BIT_B(word2)) offset = MAKE_INT_32(REG_D[offset&7]); if(BIT_5(word2)) width = REG_D[width&7]; /* Offset is signed so we have to use ugly math =( */ ea += offset / 8; offset %= 8; if(offset < 0) { offset += 8; ea--; } width = ((width-1) & 31) + 1; mask_base = MASK_OUT_ABOVE_32(0xffffffff << (32 - width)); mask_long = mask_base >> offset; insert_base = MASK_OUT_ABOVE_32(insert_base << (32 - width)); FLAG_N = NFLAG_32(insert_base); FLAG_Z = insert_base; insert_long = insert_base >> offset; data_long = m68ki_read_32(ea); FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; m68ki_write_32(ea, (data_long & ~mask_long) | insert_long); if((width + offset) > 32) { mask_byte = MASK_OUT_ABOVE_8(mask_base); insert_byte = MASK_OUT_ABOVE_8(insert_base); data_byte = m68ki_read_8(ea+4); FLAG_Z |= (data_byte & mask_byte); m68ki_write_8(ea+4, (data_byte & ~mask_byte) | insert_byte); } return; } m68ki_exception_illegal(); } M68KMAKE_OP(bfset, 32, ., d) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint offset = (word2>>6)&31; uint width = word2; uint* data = &DY; uint64 mask; if(BIT_B(word2)) offset = REG_D[offset&7]; if(BIT_5(word2)) width = REG_D[width&7]; offset &= 31; width = ((width-1) & 31) + 1; mask = MASK_OUT_ABOVE_32(0xffffffff << (32 - width)); mask = ROR_32(mask, offset); FLAG_N = NFLAG_32(*data<>6)&31; uint width = word2; uint mask_base; uint data_long; uint mask_long; uint data_byte = 0; uint mask_byte = 0; uint ea = M68KMAKE_GET_EA_AY_8; if(BIT_B(word2)) offset = MAKE_INT_32(REG_D[offset&7]); if(BIT_5(word2)) width = REG_D[width&7]; /* Offset is signed so we have to use ugly math =( */ ea += offset / 8; offset %= 8; if(offset < 0) { offset += 8; ea--; } width = ((width-1) & 31) + 1; mask_base = MASK_OUT_ABOVE_32(0xffffffff << (32 - width)); mask_long = mask_base >> offset; data_long = m68ki_read_32(ea); FLAG_N = NFLAG_32(data_long << offset); FLAG_Z = data_long & mask_long; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; m68ki_write_32(ea, data_long | mask_long); if((width + offset) > 32) { mask_byte = MASK_OUT_ABOVE_8(mask_base); data_byte = m68ki_read_8(ea+4); FLAG_Z |= (data_byte & mask_byte); m68ki_write_8(ea+4, data_byte | mask_byte); } return; } m68ki_exception_illegal(); } M68KMAKE_OP(bftst, 32, ., d) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint offset = (word2>>6)&31; uint width = word2; uint* data = &DY; uint64 mask; if(BIT_B(word2)) offset = REG_D[offset&7]; if(BIT_5(word2)) width = REG_D[width&7]; offset &= 31; width = ((width-1) & 31) + 1; mask = MASK_OUT_ABOVE_32(0xffffffff << (32 - width)); mask = ROR_32(mask, offset); FLAG_N = NFLAG_32(*data<>6)&31; uint width = word2; uint mask_base; uint data_long; uint mask_long; uint data_byte = 0; uint mask_byte = 0; uint ea = M68KMAKE_GET_EA_AY_8; if(BIT_B(word2)) offset = MAKE_INT_32(REG_D[offset&7]); if(BIT_5(word2)) width = REG_D[width&7]; /* Offset is signed so we have to use ugly math =( */ ea += offset / 8; offset %= 8; if(offset < 0) { offset += 8; ea--; } width = ((width-1) & 31) + 1; mask_base = MASK_OUT_ABOVE_32(0xffffffff << (32 - width)); mask_long = mask_base >> offset; data_long = m68ki_read_32(ea); FLAG_N = ((data_long & (0x80000000 >> offset))<>24; FLAG_Z = data_long & mask_long; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; if((width + offset) > 32) { mask_byte = MASK_OUT_ABOVE_8(mask_base); data_byte = m68ki_read_8(ea+4); FLAG_Z |= (data_byte & mask_byte); } return; } m68ki_exception_illegal(); } M68KMAKE_OP(bkpt, 0, ., .) { if(CPU_TYPE_IS_010_PLUS(CPU_TYPE)) { m68ki_bkpt_ack(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE) ? REG_IR & 7 : 0); /* auto-disable (see m68kcpu.h) */ } m68ki_exception_illegal(); } M68KMAKE_OP(bra, 8, ., .) { m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_branch_8(MASK_OUT_ABOVE_8(REG_IR)); if(REG_PC == REG_PPC) USE_ALL_CYCLES(); } M68KMAKE_OP(bra, 16, ., .) { uint offset = OPER_I_16(); REG_PC -= 2; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_branch_16(offset); if(REG_PC == REG_PPC) USE_ALL_CYCLES(); } M68KMAKE_OP(bra, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint offset = OPER_I_32(); REG_PC -= 4; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_branch_32(offset); if(REG_PC == REG_PPC) USE_ALL_CYCLES(); return; } m68ki_exception_illegal(); } M68KMAKE_OP(bset, 32, r, d) { uint* r_dst = &DY; uint mask = 1 << (DX & 0x1f); FLAG_Z = *r_dst & mask; *r_dst |= mask; } M68KMAKE_OP(bset, 8, r, .) { uint ea = M68KMAKE_GET_EA_AY_8; uint src = m68ki_read_8(ea); uint mask = 1 << (DX & 7); FLAG_Z = src & mask; m68ki_write_8(ea, src | mask); } M68KMAKE_OP(bset, 32, s, d) { uint* r_dst = &DY; uint mask = 1 << (OPER_I_8() & 0x1f); FLAG_Z = *r_dst & mask; *r_dst |= mask; } M68KMAKE_OP(bset, 8, s, .) { uint mask = 1 << (OPER_I_8() & 7); uint ea = M68KMAKE_GET_EA_AY_8; uint src = m68ki_read_8(ea); FLAG_Z = src & mask; m68ki_write_8(ea, src | mask); } M68KMAKE_OP(bsr, 8, ., .) { m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_push_32(REG_PC); m68ki_branch_8(MASK_OUT_ABOVE_8(REG_IR)); } M68KMAKE_OP(bsr, 16, ., .) { uint offset = OPER_I_16(); m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_push_32(REG_PC); REG_PC -= 2; m68ki_branch_16(offset); } M68KMAKE_OP(bsr, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint offset = OPER_I_32(); m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_push_32(REG_PC); REG_PC -= 4; m68ki_branch_32(offset); return; } m68ki_exception_illegal(); } M68KMAKE_OP(btst, 32, r, d) { FLAG_Z = DY & (1 << (DX & 0x1f)); } M68KMAKE_OP(btst, 8, r, .) { FLAG_Z = M68KMAKE_GET_OPER_AY_8 & (1 << (DX & 7)); } M68KMAKE_OP(btst, 32, s, d) { FLAG_Z = DY & (1 << (OPER_I_8() & 0x1f)); } M68KMAKE_OP(btst, 8, s, .) { uint bit = OPER_I_8() & 7; FLAG_Z = M68KMAKE_GET_OPER_AY_8 & (1 << bit); } M68KMAKE_OP(callm, 32, ., .) { /* note: watch out for pcrelative modes */ if(CPU_TYPE_IS_020_VARIANT(CPU_TYPE)) { uint ea = M68KMAKE_GET_EA_AY_32; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ REG_PC += 2; (void)ea; /* just to avoid an 'unused variable' warning */ M68K_DO_LOG((M68K_LOG_FILEHANDLE "%s at %08x: called unimplemented instruction %04x (%s)\n", m68ki_cpu_names[CPU_TYPE], ADDRESS_68K(REG_PC - 2), REG_IR, m68k_disassemble_quick(ADDRESS_68K(REG_PC - 2)))); return; } m68ki_exception_illegal(); } M68KMAKE_OP(cas, 8, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint ea = M68KMAKE_GET_EA_AY_8; uint dest = m68ki_read_8(ea); uint* compare = ®_D[word2 & 7]; uint res = dest - MASK_OUT_ABOVE_8(*compare); m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_V = VFLAG_SUB_8(*compare, dest, res); FLAG_C = CFLAG_8(res); if(COND_NE()) *compare = MASK_OUT_BELOW_8(*compare) | dest; else { USE_CYCLES(3); m68ki_write_8(ea, MASK_OUT_ABOVE_8(REG_D[(word2 >> 6) & 7])); } return; } m68ki_exception_illegal(); } M68KMAKE_OP(cas, 16, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint ea = M68KMAKE_GET_EA_AY_16; uint dest = m68ki_read_16(ea); uint* compare = ®_D[word2 & 7]; uint res = dest - MASK_OUT_ABOVE_16(*compare); m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_V = VFLAG_SUB_16(*compare, dest, res); FLAG_C = CFLAG_16(res); if(COND_NE()) *compare = MASK_OUT_BELOW_16(*compare) | dest; else { USE_CYCLES(3); m68ki_write_16(ea, MASK_OUT_ABOVE_16(REG_D[(word2 >> 6) & 7])); } return; } m68ki_exception_illegal(); } M68KMAKE_OP(cas, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint ea = M68KMAKE_GET_EA_AY_32; uint dest = m68ki_read_32(ea); uint* compare = ®_D[word2 & 7]; uint res = dest - *compare; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(*compare, dest, res); FLAG_C = CFLAG_SUB_32(*compare, dest, res); if(COND_NE()) *compare = dest; else { USE_CYCLES(3); m68ki_write_32(ea, REG_D[(word2 >> 6) & 7]); } return; } m68ki_exception_illegal(); } M68KMAKE_OP(cas2, 16, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_32(); uint* compare1 = ®_D[(word2 >> 16) & 7]; uint ea1 = REG_DA[(word2 >> 28) & 15]; uint dest1 = m68ki_read_16(ea1); uint res1 = dest1 - MASK_OUT_ABOVE_16(*compare1); uint* compare2 = ®_D[word2 & 7]; uint ea2 = REG_DA[(word2 >> 12) & 15]; uint dest2 = m68ki_read_16(ea2); uint res2; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ FLAG_N = NFLAG_16(res1); FLAG_Z = MASK_OUT_ABOVE_16(res1); FLAG_V = VFLAG_SUB_16(*compare1, dest1, res1); FLAG_C = CFLAG_16(res1); if(COND_EQ()) { res2 = dest2 - MASK_OUT_ABOVE_16(*compare2); FLAG_N = NFLAG_16(res2); FLAG_Z = MASK_OUT_ABOVE_16(res2); FLAG_V = VFLAG_SUB_16(*compare2, dest2, res2); FLAG_C = CFLAG_16(res2); if(COND_EQ()) { USE_CYCLES(3); m68ki_write_16(ea1, REG_D[(word2 >> 22) & 7]); m68ki_write_16(ea2, REG_D[(word2 >> 6) & 7]); return; } } *compare1 = BIT_1F(word2) ? MAKE_INT_16(dest1) : MASK_OUT_BELOW_16(*compare1) | dest1; *compare2 = BIT_F(word2) ? MAKE_INT_16(dest2) : MASK_OUT_BELOW_16(*compare2) | dest2; return; } m68ki_exception_illegal(); } M68KMAKE_OP(cas2, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_32(); uint* compare1 = ®_D[(word2 >> 16) & 7]; uint ea1 = REG_DA[(word2 >> 28) & 15]; uint dest1 = m68ki_read_32(ea1); uint res1 = dest1 - *compare1; uint* compare2 = ®_D[word2 & 7]; uint ea2 = REG_DA[(word2 >> 12) & 15]; uint dest2 = m68ki_read_32(ea2); uint res2; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ FLAG_N = NFLAG_32(res1); FLAG_Z = MASK_OUT_ABOVE_32(res1); FLAG_V = VFLAG_SUB_32(*compare1, dest1, res1); FLAG_C = CFLAG_SUB_32(*compare1, dest1, res1); if(COND_EQ()) { res2 = dest2 - *compare2; FLAG_N = NFLAG_32(res2); FLAG_Z = MASK_OUT_ABOVE_32(res2); FLAG_V = VFLAG_SUB_32(*compare2, dest2, res2); FLAG_C = CFLAG_SUB_32(*compare2, dest2, res2); if(COND_EQ()) { USE_CYCLES(3); m68ki_write_32(ea1, REG_D[(word2 >> 22) & 7]); m68ki_write_32(ea2, REG_D[(word2 >> 6) & 7]); return; } } *compare1 = dest1; *compare2 = dest2; return; } m68ki_exception_illegal(); } M68KMAKE_OP(chk, 16, ., d) { sint src = MAKE_INT_16(DX); sint bound = MAKE_INT_16(DY); FLAG_Z = ZFLAG_16(src); /* Undocumented */ FLAG_V = VFLAG_CLEAR; /* Undocumented */ FLAG_C = CFLAG_CLEAR; /* Undocumented */ if(src >= 0 && src <= bound) { return; } FLAG_N = (src < 0)<<7; m68ki_exception_trap(EXCEPTION_CHK); } M68KMAKE_OP(chk, 16, ., .) { sint src = MAKE_INT_16(DX); sint bound = MAKE_INT_16(M68KMAKE_GET_OPER_AY_16); FLAG_Z = ZFLAG_16(src); /* Undocumented */ FLAG_V = VFLAG_CLEAR; /* Undocumented */ FLAG_C = CFLAG_CLEAR; /* Undocumented */ if(src >= 0 && src <= bound) { return; } FLAG_N = (src < 0)<<7; m68ki_exception_trap(EXCEPTION_CHK); } M68KMAKE_OP(chk, 32, ., d) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { sint src = MAKE_INT_32(DX); sint bound = MAKE_INT_32(DY); FLAG_Z = ZFLAG_32(src); /* Undocumented */ FLAG_V = VFLAG_CLEAR; /* Undocumented */ FLAG_C = CFLAG_CLEAR; /* Undocumented */ if(src >= 0 && src <= bound) { return; } FLAG_N = (src < 0)<<7; m68ki_exception_trap(EXCEPTION_CHK); return; } m68ki_exception_illegal(); } M68KMAKE_OP(chk, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { sint src = MAKE_INT_32(DX); sint bound = MAKE_INT_32(M68KMAKE_GET_OPER_AY_32); FLAG_Z = ZFLAG_32(src); /* Undocumented */ FLAG_V = VFLAG_CLEAR; /* Undocumented */ FLAG_C = CFLAG_CLEAR; /* Undocumented */ if(src >= 0 && src <= bound) { return; } FLAG_N = (src < 0)<<7; m68ki_exception_trap(EXCEPTION_CHK); return; } m68ki_exception_illegal(); } M68KMAKE_OP(chk2cmp2, 8, ., pcdi) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint compare = REG_DA[(word2 >> 12) & 15]&0xff; uint ea = EA_PCDI_8(); uint lower_bound = m68ki_read_pcrel_8(ea); uint upper_bound = m68ki_read_pcrel_8(ea + 1); if(!BIT_F(word2)) FLAG_C = MAKE_INT_8(compare) - MAKE_INT_8(lower_bound); else FLAG_C = compare - lower_bound; FLAG_Z = !((upper_bound==compare) | (lower_bound==compare)); if(COND_CS()) { if(BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } FLAG_C = upper_bound - compare; if(COND_CS() && BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } m68ki_exception_illegal(); } M68KMAKE_OP(chk2cmp2, 8, ., pcix) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint compare = REG_DA[(word2 >> 12) & 15]&0xff; uint ea = EA_PCIX_8(); uint lower_bound = m68ki_read_pcrel_8(ea); uint upper_bound = m68ki_read_pcrel_8(ea + 1); if(!BIT_F(word2)) FLAG_C = MAKE_INT_8(compare) - MAKE_INT_8(lower_bound); else FLAG_C = compare - lower_bound; FLAG_Z = !((upper_bound==compare) | (lower_bound==compare)); if(COND_CS()) { if(BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } FLAG_C = upper_bound - compare; if(COND_CS() && BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } m68ki_exception_illegal(); } M68KMAKE_OP(chk2cmp2, 8, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint compare = REG_DA[(word2 >> 12) & 15]&0xff; uint ea = M68KMAKE_GET_EA_AY_8; uint lower_bound = m68ki_read_8(ea); uint upper_bound = m68ki_read_8(ea + 1); if(!BIT_F(word2)) FLAG_C = MAKE_INT_8(compare) - MAKE_INT_8(lower_bound); else FLAG_C = compare - lower_bound; FLAG_Z = !((upper_bound==compare) | (lower_bound==compare)); if(COND_CS()) { if(BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } FLAG_C = upper_bound - compare; if(COND_CS() && BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } m68ki_exception_illegal(); } M68KMAKE_OP(chk2cmp2, 16, ., pcdi) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint compare = REG_DA[(word2 >> 12) & 15]&0xffff; uint ea = EA_PCDI_16(); uint lower_bound = m68ki_read_pcrel_16(ea); uint upper_bound = m68ki_read_pcrel_16(ea + 2); if(!BIT_F(word2)) FLAG_C = MAKE_INT_16(compare) - MAKE_INT_16(lower_bound); else FLAG_C = compare - lower_bound; FLAG_Z = !((upper_bound==compare) | (lower_bound==compare)); FLAG_C = CFLAG_16(FLAG_C); if(COND_CS()) { if(BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } if(!BIT_F(word2)) FLAG_C = MAKE_INT_16(upper_bound) - MAKE_INT_16(compare); else FLAG_C = upper_bound - compare; FLAG_C = CFLAG_16(FLAG_C); if(COND_CS() && BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } m68ki_exception_illegal(); } M68KMAKE_OP(chk2cmp2, 16, ., pcix) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint compare = REG_DA[(word2 >> 12) & 15]&0xffff; uint ea = EA_PCIX_16(); uint lower_bound = m68ki_read_pcrel_16(ea); uint upper_bound = m68ki_read_pcrel_16(ea + 2); if(!BIT_F(word2)) FLAG_C = MAKE_INT_16(compare) - MAKE_INT_16(lower_bound); else FLAG_C = compare - lower_bound; FLAG_Z = !((upper_bound==compare) | (lower_bound==compare)); FLAG_C = CFLAG_16(FLAG_C); if(COND_CS()) { if(BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } if(!BIT_F(word2)) FLAG_C = MAKE_INT_16(upper_bound) - MAKE_INT_16(compare); else FLAG_C = upper_bound - compare; FLAG_C = CFLAG_16(FLAG_C); if(COND_CS() && BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } m68ki_exception_illegal(); } M68KMAKE_OP(chk2cmp2, 16, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint compare = REG_DA[(word2 >> 12) & 15]&0xffff; uint ea = M68KMAKE_GET_EA_AY_16; uint lower_bound = m68ki_read_16(ea); uint upper_bound = m68ki_read_16(ea + 2); if(!BIT_F(word2)) FLAG_C = MAKE_INT_16(compare) - MAKE_INT_16(lower_bound); else FLAG_C = compare - lower_bound; FLAG_Z = !((upper_bound==compare) | (lower_bound==compare)); FLAG_C = CFLAG_16(FLAG_C); if(COND_CS()) { if(BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } if(!BIT_F(word2)) FLAG_C = MAKE_INT_16(upper_bound) - MAKE_INT_16(compare); else FLAG_C = upper_bound - compare; FLAG_C = CFLAG_16(FLAG_C); if(COND_CS() && BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } m68ki_exception_illegal(); } M68KMAKE_OP(chk2cmp2, 32, ., pcdi) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint compare = REG_DA[(word2 >> 12) & 15]; uint ea = EA_PCDI_32(); uint lower_bound = m68ki_read_pcrel_32(ea); uint upper_bound = m68ki_read_pcrel_32(ea + 4); FLAG_C = compare - lower_bound; FLAG_Z = !((upper_bound==compare) | (lower_bound==compare)); FLAG_C = CFLAG_SUB_32(lower_bound, compare, FLAG_C); if(COND_CS()) { if(BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } FLAG_C = upper_bound - compare; FLAG_C = CFLAG_SUB_32(compare, upper_bound, FLAG_C); if(COND_CS() && BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } m68ki_exception_illegal(); } M68KMAKE_OP(chk2cmp2, 32, ., pcix) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint compare = REG_DA[(word2 >> 12) & 15]; uint ea = EA_PCIX_32(); uint lower_bound = m68ki_read_pcrel_32(ea); uint upper_bound = m68ki_read_pcrel_32(ea + 4); FLAG_C = compare - lower_bound; FLAG_Z = !((upper_bound==compare) | (lower_bound==compare)); FLAG_C = CFLAG_SUB_32(lower_bound, compare, FLAG_C); if(COND_CS()) { if(BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } FLAG_C = upper_bound - compare; FLAG_C = CFLAG_SUB_32(compare, upper_bound, FLAG_C); if(COND_CS() && BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } m68ki_exception_illegal(); } M68KMAKE_OP(chk2cmp2, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint compare = REG_DA[(word2 >> 12) & 15]; uint ea = M68KMAKE_GET_EA_AY_32; uint lower_bound = m68ki_read_32(ea); uint upper_bound = m68ki_read_32(ea + 4); FLAG_C = compare - lower_bound; FLAG_Z = !((upper_bound==compare) | (lower_bound==compare)); FLAG_C = CFLAG_SUB_32(lower_bound, compare, FLAG_C); if(COND_CS()) { if(BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } FLAG_C = upper_bound - compare; FLAG_C = CFLAG_SUB_32(compare, upper_bound, FLAG_C); if(COND_CS() && BIT_B(word2)) m68ki_exception_trap(EXCEPTION_CHK); return; } m68ki_exception_illegal(); } M68KMAKE_OP(clr, 8, ., d) { DY &= 0xffffff00; FLAG_N = NFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; FLAG_Z = ZFLAG_SET; } M68KMAKE_OP(clr, 8, ., .) { m68ki_write_8(M68KMAKE_GET_EA_AY_8, 0); FLAG_N = NFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; FLAG_Z = ZFLAG_SET; } M68KMAKE_OP(clr, 16, ., d) { DY &= 0xffff0000; FLAG_N = NFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; FLAG_Z = ZFLAG_SET; } M68KMAKE_OP(clr, 16, ., .) { m68ki_write_16(M68KMAKE_GET_EA_AY_16, 0); FLAG_N = NFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; FLAG_Z = ZFLAG_SET; } M68KMAKE_OP(clr, 32, ., d) { DY = 0; FLAG_N = NFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; FLAG_Z = ZFLAG_SET; } M68KMAKE_OP(clr, 32, ., .) { m68ki_write_32(M68KMAKE_GET_EA_AY_32, 0); FLAG_N = NFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; FLAG_Z = ZFLAG_SET; } M68KMAKE_OP(cmp, 8, ., d) { uint src = MASK_OUT_ABOVE_8(DY); uint dst = MASK_OUT_ABOVE_8(DX); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); FLAG_C = CFLAG_8(res); } M68KMAKE_OP(cmp, 8, ., .) { uint src = M68KMAKE_GET_OPER_AY_8; uint dst = MASK_OUT_ABOVE_8(DX); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); FLAG_C = CFLAG_8(res); } M68KMAKE_OP(cmp, 16, ., d) { uint src = MASK_OUT_ABOVE_16(DY); uint dst = MASK_OUT_ABOVE_16(DX); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); FLAG_C = CFLAG_16(res); } M68KMAKE_OP(cmp, 16, ., a) { uint src = MASK_OUT_ABOVE_16(AY); uint dst = MASK_OUT_ABOVE_16(DX); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); FLAG_C = CFLAG_16(res); } M68KMAKE_OP(cmp, 16, ., .) { uint src = M68KMAKE_GET_OPER_AY_16; uint dst = MASK_OUT_ABOVE_16(DX); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); FLAG_C = CFLAG_16(res); } M68KMAKE_OP(cmp, 32, ., d) { uint src = DY; uint dst = DX; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); } M68KMAKE_OP(cmp, 32, ., a) { uint src = AY; uint dst = DX; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); } M68KMAKE_OP(cmp, 32, ., .) { uint src = M68KMAKE_GET_OPER_AY_32; uint dst = DX; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); } M68KMAKE_OP(cmpa, 16, ., d) { uint src = MAKE_INT_16(DY); uint dst = AX; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); } M68KMAKE_OP(cmpa, 16, ., a) { uint src = MAKE_INT_16(AY); uint dst = AX; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); } M68KMAKE_OP(cmpa, 16, ., .) { uint src = MAKE_INT_16(M68KMAKE_GET_OPER_AY_16); uint dst = AX; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); } M68KMAKE_OP(cmpa, 32, ., d) { uint src = DY; uint dst = AX; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); } M68KMAKE_OP(cmpa, 32, ., a) { uint src = AY; uint dst = AX; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); } M68KMAKE_OP(cmpa, 32, ., .) { uint src = M68KMAKE_GET_OPER_AY_32; uint dst = AX; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); } M68KMAKE_OP(cmpi, 8, ., d) { uint src = OPER_I_8(); uint dst = MASK_OUT_ABOVE_8(DY); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); FLAG_C = CFLAG_8(res); } M68KMAKE_OP(cmpi, 8, ., .) { uint src = OPER_I_8(); uint dst = M68KMAKE_GET_OPER_AY_8; uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); FLAG_C = CFLAG_8(res); } M68KMAKE_OP(cmpi, 8, ., pcdi) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint src = OPER_I_8(); uint dst = OPER_PCDI_8(); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); FLAG_C = CFLAG_8(res); return; } m68ki_exception_illegal(); } M68KMAKE_OP(cmpi, 8, ., pcix) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint src = OPER_I_8(); uint dst = OPER_PCIX_8(); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); FLAG_C = CFLAG_8(res); return; } m68ki_exception_illegal(); } M68KMAKE_OP(cmpi, 16, ., d) { uint src = OPER_I_16(); uint dst = MASK_OUT_ABOVE_16(DY); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); FLAG_C = CFLAG_16(res); } M68KMAKE_OP(cmpi, 16, ., .) { uint src = OPER_I_16(); uint dst = M68KMAKE_GET_OPER_AY_16; uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); FLAG_C = CFLAG_16(res); } M68KMAKE_OP(cmpi, 16, ., pcdi) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint src = OPER_I_16(); uint dst = OPER_PCDI_16(); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); FLAG_C = CFLAG_16(res); return; } m68ki_exception_illegal(); } M68KMAKE_OP(cmpi, 16, ., pcix) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint src = OPER_I_16(); uint dst = OPER_PCIX_16(); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); FLAG_C = CFLAG_16(res); return; } m68ki_exception_illegal(); } M68KMAKE_OP(cmpi, 32, ., d) { uint src = OPER_I_32(); uint dst = DY; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); } M68KMAKE_OP(cmpi, 32, ., .) { uint src = OPER_I_32(); uint dst = M68KMAKE_GET_OPER_AY_32; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); } M68KMAKE_OP(cmpi, 32, ., pcdi) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint src = OPER_I_32(); uint dst = OPER_PCDI_32(); uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); return; } m68ki_exception_illegal(); } M68KMAKE_OP(cmpi, 32, ., pcix) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint src = OPER_I_32(); uint dst = OPER_PCIX_32(); uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); return; } m68ki_exception_illegal(); } M68KMAKE_OP(cmpm, 8, ., ax7) { uint src = OPER_AY_PI_8(); uint dst = OPER_A7_PI_8(); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); FLAG_C = CFLAG_8(res); } M68KMAKE_OP(cmpm, 8, ., ay7) { uint src = OPER_A7_PI_8(); uint dst = OPER_AX_PI_8(); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); FLAG_C = CFLAG_8(res); } M68KMAKE_OP(cmpm, 8, ., axy7) { uint src = OPER_A7_PI_8(); uint dst = OPER_A7_PI_8(); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); FLAG_C = CFLAG_8(res); } M68KMAKE_OP(cmpm, 8, ., .) { uint src = OPER_AY_PI_8(); uint dst = OPER_AX_PI_8(); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); FLAG_C = CFLAG_8(res); } M68KMAKE_OP(cmpm, 16, ., .) { uint src = OPER_AY_PI_16(); uint dst = OPER_AX_PI_16(); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); FLAG_C = CFLAG_16(res); } M68KMAKE_OP(cmpm, 32, ., .) { uint src = OPER_AY_PI_32(); uint dst = OPER_AX_PI_32(); uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_C = CFLAG_SUB_32(src, dst, res); } M68KMAKE_OP(cpbcc, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { M68K_DO_LOG((M68K_LOG_FILEHANDLE "%s at %08x: called unimplemented instruction %04x (%s)\n", m68ki_cpu_names[CPU_TYPE], ADDRESS_68K(REG_PC - 2), REG_IR, m68k_disassemble_quick(ADDRESS_68K(REG_PC - 2)))); return; } m68ki_exception_1111(); } M68KMAKE_OP(cpdbcc, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { M68K_DO_LOG((M68K_LOG_FILEHANDLE "%s at %08x: called unimplemented instruction %04x (%s)\n", m68ki_cpu_names[CPU_TYPE], ADDRESS_68K(REG_PC - 2), REG_IR, m68k_disassemble_quick(ADDRESS_68K(REG_PC - 2)))); return; } m68ki_exception_1111(); } M68KMAKE_OP(cpgen, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { M68K_DO_LOG((M68K_LOG_FILEHANDLE "%s at %08x: called unimplemented instruction %04x (%s)\n", m68ki_cpu_names[CPU_TYPE], ADDRESS_68K(REG_PC - 2), REG_IR, m68k_disassemble_quick(ADDRESS_68K(REG_PC - 2)))); return; } m68ki_exception_1111(); } M68KMAKE_OP(cpscc, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { M68K_DO_LOG((M68K_LOG_FILEHANDLE "%s at %08x: called unimplemented instruction %04x (%s)\n", m68ki_cpu_names[CPU_TYPE], ADDRESS_68K(REG_PC - 2), REG_IR, m68k_disassemble_quick(ADDRESS_68K(REG_PC - 2)))); return; } m68ki_exception_1111(); } M68KMAKE_OP(cptrapcc, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { M68K_DO_LOG((M68K_LOG_FILEHANDLE "%s at %08x: called unimplemented instruction %04x (%s)\n", m68ki_cpu_names[CPU_TYPE], ADDRESS_68K(REG_PC - 2), REG_IR, m68k_disassemble_quick(ADDRESS_68K(REG_PC - 2)))); return; } m68ki_exception_1111(); } M68KMAKE_OP(dbt, 16, ., .) { REG_PC += 2; } M68KMAKE_OP(dbf, 16, ., .) { uint* r_dst = &DY; uint res = MASK_OUT_ABOVE_16(*r_dst - 1); *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; if(res != 0xffff) { uint offset = OPER_I_16(); REG_PC -= 2; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_branch_16(offset); USE_CYCLES(CYC_DBCC_F_NOEXP); return; } REG_PC += 2; USE_CYCLES(CYC_DBCC_F_EXP); } M68KMAKE_OP(dbcc, 16, ., .) { if(M68KMAKE_NOT_CC) { uint* r_dst = &DY; uint res = MASK_OUT_ABOVE_16(*r_dst - 1); *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; if(res != 0xffff) { uint offset = OPER_I_16(); REG_PC -= 2; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_branch_16(offset); USE_CYCLES(CYC_DBCC_F_NOEXP); return; } REG_PC += 2; USE_CYCLES(CYC_DBCC_F_EXP); return; } REG_PC += 2; } M68KMAKE_OP(divs, 16, ., d) { uint* r_dst = &DX; sint src = MAKE_INT_16(DY); sint quotient; sint remainder; if(src != 0) { if((uint32)*r_dst == 0x80000000 && src == -1) { FLAG_Z = 0; FLAG_N = NFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; *r_dst = 0; return; } quotient = MAKE_INT_32(*r_dst) / src; remainder = MAKE_INT_32(*r_dst) % src; if(quotient == MAKE_INT_16(quotient)) { FLAG_Z = quotient; FLAG_N = NFLAG_16(quotient); FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; *r_dst = MASK_OUT_ABOVE_32(MASK_OUT_ABOVE_16(quotient) | (remainder << 16)); return; } FLAG_V = VFLAG_SET; return; } m68ki_exception_trap(EXCEPTION_ZERO_DIVIDE); } M68KMAKE_OP(divs, 16, ., .) { uint* r_dst = &DX; sint src = MAKE_INT_16(M68KMAKE_GET_OPER_AY_16); sint quotient; sint remainder; if(src != 0) { if((uint32)*r_dst == 0x80000000 && src == -1) { FLAG_Z = 0; FLAG_N = NFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; *r_dst = 0; return; } quotient = MAKE_INT_32(*r_dst) / src; remainder = MAKE_INT_32(*r_dst) % src; if(quotient == MAKE_INT_16(quotient)) { FLAG_Z = quotient; FLAG_N = NFLAG_16(quotient); FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; *r_dst = MASK_OUT_ABOVE_32(MASK_OUT_ABOVE_16(quotient) | (remainder << 16)); return; } FLAG_V = VFLAG_SET; return; } m68ki_exception_trap(EXCEPTION_ZERO_DIVIDE); } M68KMAKE_OP(divu, 16, ., d) { uint* r_dst = &DX; uint src = MASK_OUT_ABOVE_16(DY); if(src != 0) { uint quotient = *r_dst / src; uint remainder = *r_dst % src; if(quotient < 0x10000) { FLAG_Z = quotient; FLAG_N = NFLAG_16(quotient); FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; *r_dst = MASK_OUT_ABOVE_32(MASK_OUT_ABOVE_16(quotient) | (remainder << 16)); return; } FLAG_V = VFLAG_SET; return; } m68ki_exception_trap(EXCEPTION_ZERO_DIVIDE); } M68KMAKE_OP(divu, 16, ., .) { uint* r_dst = &DX; uint src = M68KMAKE_GET_OPER_AY_16; if(src != 0) { uint quotient = *r_dst / src; uint remainder = *r_dst % src; if(quotient < 0x10000) { FLAG_Z = quotient; FLAG_N = NFLAG_16(quotient); FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; *r_dst = MASK_OUT_ABOVE_32(MASK_OUT_ABOVE_16(quotient) | (remainder << 16)); return; } FLAG_V = VFLAG_SET; return; } m68ki_exception_trap(EXCEPTION_ZERO_DIVIDE); } M68KMAKE_OP(divl, 32, ., d) { #if M68K_USE_64_BIT if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint64 divisor = DY; uint64 dividend = 0; uint64 quotient = 0; uint64 remainder = 0; if(divisor != 0) { if(BIT_A(word2)) /* 64 bit */ { dividend = REG_D[word2 & 7]; dividend <<= 32; dividend |= REG_D[(word2 >> 12) & 7]; if(BIT_B(word2)) /* signed */ { quotient = (uint64)((sint64)dividend / (sint64)((sint32)divisor)); remainder = (uint64)((sint64)dividend % (sint64)((sint32)divisor)); if((sint64)quotient != (sint64)((sint32)quotient)) { FLAG_V = VFLAG_SET; return; } } else /* unsigned */ { quotient = dividend / divisor; if(quotient > 0xffffffff) { FLAG_V = VFLAG_SET; return; } remainder = dividend % divisor; } } else /* 32 bit */ { dividend = REG_D[(word2 >> 12) & 7]; if(BIT_B(word2)) /* signed */ { quotient = (uint64)((sint64)((sint32)dividend) / (sint64)((sint32)divisor)); remainder = (uint64)((sint64)((sint32)dividend) % (sint64)((sint32)divisor)); } else /* unsigned */ { quotient = dividend / divisor; remainder = dividend % divisor; } } REG_D[word2 & 7] = remainder; REG_D[(word2 >> 12) & 7] = quotient; FLAG_N = NFLAG_32(quotient); FLAG_Z = quotient; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_trap(EXCEPTION_ZERO_DIVIDE); return; } m68ki_exception_illegal(); #else if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint divisor = DY; uint dividend_hi = REG_D[word2 & 7]; uint dividend_lo = REG_D[(word2 >> 12) & 7]; uint quotient = 0; uint remainder = 0; uint dividend_neg = 0; uint divisor_neg = 0; sint i; uint overflow; if(divisor != 0) { /* quad / long : long quotient, long remainder */ if(BIT_A(word2)) { if(BIT_B(word2)) /* signed */ { /* special case in signed divide */ if(dividend_hi == 0 && dividend_lo == 0x80000000 && divisor == 0xffffffff) { REG_D[word2 & 7] = 0; REG_D[(word2 >> 12) & 7] = 0x80000000; FLAG_N = NFLAG_SET; FLAG_Z = ZFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } if(GET_MSB_32(dividend_hi)) { dividend_neg = 1; dividend_hi = (uint)MASK_OUT_ABOVE_32((-(sint)dividend_hi) - (dividend_lo != 0)); dividend_lo = (uint)MASK_OUT_ABOVE_32(-(sint)dividend_lo); } if(GET_MSB_32(divisor)) { divisor_neg = 1; divisor = (uint)MASK_OUT_ABOVE_32(-(sint)divisor); } } /* if the upper long is greater than the divisor, we're overflowing. */ if(dividend_hi >= divisor) { FLAG_V = VFLAG_SET; return; } for(i = 31; i >= 0; i--) { quotient <<= 1; remainder = (remainder << 1) + ((dividend_hi >> i) & 1); if(remainder >= divisor) { remainder -= divisor; quotient++; } } for(i = 31; i >= 0; i--) { quotient <<= 1; overflow = GET_MSB_32(remainder); remainder = (remainder << 1) + ((dividend_lo >> i) & 1); if(remainder >= divisor || overflow) { remainder -= divisor; quotient++; } } if(BIT_B(word2)) /* signed */ { if(quotient > 0x7fffffff) { FLAG_V = VFLAG_SET; return; } if(dividend_neg) { remainder = (uint)MASK_OUT_ABOVE_32(-(sint)remainder); quotient = (uint)MASK_OUT_ABOVE_32(-(sint)quotient); } if(divisor_neg) quotient = (uint)MASK_OUT_ABOVE_32(-(sint)quotient); } REG_D[word2 & 7] = remainder; REG_D[(word2 >> 12) & 7] = quotient; FLAG_N = NFLAG_32(quotient); FLAG_Z = quotient; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } /* long / long: long quotient, maybe long remainder */ if(BIT_B(word2)) /* signed */ { /* Special case in divide */ if(dividend_lo == 0x80000000 && divisor == 0xffffffff) { FLAG_N = NFLAG_SET; FLAG_Z = ZFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; REG_D[(word2 >> 12) & 7] = 0x80000000; REG_D[word2 & 7] = 0; return; } REG_D[word2 & 7] = MAKE_INT_32(dividend_lo) % MAKE_INT_32(divisor); quotient = REG_D[(word2 >> 12) & 7] = MAKE_INT_32(dividend_lo) / MAKE_INT_32(divisor); } else { REG_D[word2 & 7] = MASK_OUT_ABOVE_32(dividend_lo) % MASK_OUT_ABOVE_32(divisor); quotient = REG_D[(word2 >> 12) & 7] = MASK_OUT_ABOVE_32(dividend_lo) / MASK_OUT_ABOVE_32(divisor); } FLAG_N = NFLAG_32(quotient); FLAG_Z = quotient; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_trap(EXCEPTION_ZERO_DIVIDE); return; } m68ki_exception_illegal(); #endif } M68KMAKE_OP(divl, 32, ., .) { #if M68K_USE_64_BIT if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint64 divisor = M68KMAKE_GET_OPER_AY_32; uint64 dividend = 0; uint64 quotient = 0; uint64 remainder = 0; if(divisor != 0) { if(BIT_A(word2)) /* 64 bit */ { dividend = REG_D[word2 & 7]; dividend <<= 32; dividend |= REG_D[(word2 >> 12) & 7]; if(BIT_B(word2)) /* signed */ { quotient = (uint64)((sint64)dividend / (sint64)((sint32)divisor)); remainder = (uint64)((sint64)dividend % (sint64)((sint32)divisor)); if((sint64)quotient != (sint64)((sint32)quotient)) { FLAG_V = VFLAG_SET; return; } } else /* unsigned */ { quotient = dividend / divisor; if(quotient > 0xffffffff) { FLAG_V = VFLAG_SET; return; } remainder = dividend % divisor; } } else /* 32 bit */ { dividend = REG_D[(word2 >> 12) & 7]; if(BIT_B(word2)) /* signed */ { quotient = (uint64)((sint64)((sint32)dividend) / (sint64)((sint32)divisor)); remainder = (uint64)((sint64)((sint32)dividend) % (sint64)((sint32)divisor)); } else /* unsigned */ { quotient = dividend / divisor; remainder = dividend % divisor; } } REG_D[word2 & 7] = remainder; REG_D[(word2 >> 12) & 7] = quotient; FLAG_N = NFLAG_32(quotient); FLAG_Z = quotient; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_trap(EXCEPTION_ZERO_DIVIDE); return; } m68ki_exception_illegal(); #else if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint divisor = M68KMAKE_GET_OPER_AY_32; uint dividend_hi = REG_D[word2 & 7]; uint dividend_lo = REG_D[(word2 >> 12) & 7]; uint quotient = 0; uint remainder = 0; uint dividend_neg = 0; uint divisor_neg = 0; sint i; uint overflow; if(divisor != 0) { /* quad / long : long quotient, long remainder */ if(BIT_A(word2)) { if(BIT_B(word2)) /* signed */ { /* special case in signed divide */ if(dividend_hi == 0 && dividend_lo == 0x80000000 && divisor == 0xffffffff) { REG_D[word2 & 7] = 0; REG_D[(word2 >> 12) & 7] = 0x80000000; FLAG_N = NFLAG_SET; FLAG_Z = ZFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } if(GET_MSB_32(dividend_hi)) { dividend_neg = 1; dividend_hi = (uint)MASK_OUT_ABOVE_32((-(sint)dividend_hi) - (dividend_lo != 0)); dividend_lo = (uint)MASK_OUT_ABOVE_32(-(sint)dividend_lo); } if(GET_MSB_32(divisor)) { divisor_neg = 1; divisor = (uint)MASK_OUT_ABOVE_32(-(sint)divisor); } } /* if the upper long is greater than the divisor, we're overflowing. */ if(dividend_hi >= divisor) { FLAG_V = VFLAG_SET; return; } for(i = 31; i >= 0; i--) { quotient <<= 1; remainder = (remainder << 1) + ((dividend_hi >> i) & 1); if(remainder >= divisor) { remainder -= divisor; quotient++; } } for(i = 31; i >= 0; i--) { quotient <<= 1; overflow = GET_MSB_32(remainder); remainder = (remainder << 1) + ((dividend_lo >> i) & 1); if(remainder >= divisor || overflow) { remainder -= divisor; quotient++; } } if(BIT_B(word2)) /* signed */ { if(quotient > 0x7fffffff) { FLAG_V = VFLAG_SET; return; } if(dividend_neg) { remainder = (uint)MASK_OUT_ABOVE_32(-(sint)remainder); quotient = (uint)MASK_OUT_ABOVE_32(-(sint)quotient); } if(divisor_neg) quotient = (uint)MASK_OUT_ABOVE_32(-(sint)quotient); } REG_D[word2 & 7] = remainder; REG_D[(word2 >> 12) & 7] = quotient; FLAG_N = NFLAG_32(quotient); FLAG_Z = quotient; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } /* long / long: long quotient, maybe long remainder */ if(BIT_B(word2)) /* signed */ { /* Special case in divide */ if(dividend_lo == 0x80000000 && divisor == 0xffffffff) { FLAG_N = NFLAG_SET; FLAG_Z = ZFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; REG_D[(word2 >> 12) & 7] = 0x80000000; REG_D[word2 & 7] = 0; return; } REG_D[word2 & 7] = MAKE_INT_32(dividend_lo) % MAKE_INT_32(divisor); quotient = REG_D[(word2 >> 12) & 7] = MAKE_INT_32(dividend_lo) / MAKE_INT_32(divisor); } else { REG_D[word2 & 7] = MASK_OUT_ABOVE_32(dividend_lo) % MASK_OUT_ABOVE_32(divisor); quotient = REG_D[(word2 >> 12) & 7] = MASK_OUT_ABOVE_32(dividend_lo) / MASK_OUT_ABOVE_32(divisor); } FLAG_N = NFLAG_32(quotient); FLAG_Z = quotient; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_trap(EXCEPTION_ZERO_DIVIDE); return; } m68ki_exception_illegal(); #endif } M68KMAKE_OP(eor, 8, ., d) { uint res = MASK_OUT_ABOVE_8(DY ^= MASK_OUT_ABOVE_8(DX)); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(eor, 8, ., .) { uint ea = M68KMAKE_GET_EA_AY_8; uint res = MASK_OUT_ABOVE_8(DX ^ m68ki_read_8(ea)); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(eor, 16, ., d) { uint res = MASK_OUT_ABOVE_16(DY ^= MASK_OUT_ABOVE_16(DX)); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(eor, 16, ., .) { uint ea = M68KMAKE_GET_EA_AY_16; uint res = MASK_OUT_ABOVE_16(DX ^ m68ki_read_16(ea)); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(eor, 32, ., d) { uint res = DY ^= DX; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(eor, 32, ., .) { uint ea = M68KMAKE_GET_EA_AY_32; uint res = DX ^ m68ki_read_32(ea); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(eori, 8, ., d) { uint res = MASK_OUT_ABOVE_8(DY ^= OPER_I_8()); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(eori, 8, ., .) { uint src = OPER_I_8(); uint ea = M68KMAKE_GET_EA_AY_8; uint res = src ^ m68ki_read_8(ea); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(eori, 16, ., d) { uint res = MASK_OUT_ABOVE_16(DY ^= OPER_I_16()); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(eori, 16, ., .) { uint src = OPER_I_16(); uint ea = M68KMAKE_GET_EA_AY_16; uint res = src ^ m68ki_read_16(ea); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(eori, 32, ., d) { uint res = DY ^= OPER_I_32(); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(eori, 32, ., .) { uint src = OPER_I_32(); uint ea = M68KMAKE_GET_EA_AY_32; uint res = src ^ m68ki_read_32(ea); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(eori, 16, toc, .) { m68ki_set_ccr(m68ki_get_ccr() ^ OPER_I_16()); } M68KMAKE_OP(eori, 16, tos, .) { if(FLAG_S) { uint src = OPER_I_16(); m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_set_sr(m68ki_get_sr() ^ src); return; } m68ki_exception_privilege_violation(); } M68KMAKE_OP(exg, 32, dd, .) { uint* reg_a = &DX; uint* reg_b = &DY; uint tmp = *reg_a; *reg_a = *reg_b; *reg_b = tmp; } M68KMAKE_OP(exg, 32, aa, .) { uint* reg_a = &AX; uint* reg_b = &AY; uint tmp = *reg_a; *reg_a = *reg_b; *reg_b = tmp; } M68KMAKE_OP(exg, 32, da, .) { uint* reg_a = &DX; uint* reg_b = &AY; uint tmp = *reg_a; *reg_a = *reg_b; *reg_b = tmp; } M68KMAKE_OP(ext, 16, ., .) { uint* r_dst = &DY; *r_dst = MASK_OUT_BELOW_16(*r_dst) | MASK_OUT_ABOVE_8(*r_dst) | (GET_MSB_8(*r_dst) ? 0xff00 : 0); FLAG_N = NFLAG_16(*r_dst); FLAG_Z = MASK_OUT_ABOVE_16(*r_dst); FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(ext, 32, ., .) { uint* r_dst = &DY; *r_dst = MASK_OUT_ABOVE_16(*r_dst) | (GET_MSB_16(*r_dst) ? 0xffff0000 : 0); FLAG_N = NFLAG_32(*r_dst); FLAG_Z = *r_dst; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(extb, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint* r_dst = &DY; *r_dst = MASK_OUT_ABOVE_8(*r_dst) | (GET_MSB_8(*r_dst) ? 0xffffff00 : 0); FLAG_N = NFLAG_32(*r_dst); FLAG_Z = *r_dst; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_illegal(); } M68KMAKE_OP(illegal, 0, ., .) { m68ki_exception_illegal(); } M68KMAKE_OP(jmp, 32, ., .) { m68ki_jump(M68KMAKE_GET_EA_AY_32); m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ if(REG_PC == REG_PPC) USE_ALL_CYCLES(); } M68KMAKE_OP(jsr, 32, ., .) { uint ea = M68KMAKE_GET_EA_AY_32; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_push_32(REG_PC); m68ki_jump(ea); } M68KMAKE_OP(lea, 32, ., .) { AX = M68KMAKE_GET_EA_AY_32; } M68KMAKE_OP(link, 16, ., a7) { REG_A[7] -= 4; m68ki_write_32(REG_A[7], REG_A[7]); REG_A[7] = MASK_OUT_ABOVE_32(REG_A[7] + MAKE_INT_16(OPER_I_16())); } M68KMAKE_OP(link, 16, ., .) { uint* r_dst = &AY; m68ki_push_32(*r_dst); *r_dst = REG_A[7]; REG_A[7] = MASK_OUT_ABOVE_32(REG_A[7] + MAKE_INT_16(OPER_I_16())); } M68KMAKE_OP(link, 32, ., a7) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { REG_A[7] -= 4; m68ki_write_32(REG_A[7], REG_A[7]); REG_A[7] = MASK_OUT_ABOVE_32(REG_A[7] + OPER_I_32()); return; } m68ki_exception_illegal(); } M68KMAKE_OP(link, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint* r_dst = &AY; m68ki_push_32(*r_dst); *r_dst = REG_A[7]; REG_A[7] = MASK_OUT_ABOVE_32(REG_A[7] + OPER_I_32()); return; } m68ki_exception_illegal(); } M68KMAKE_OP(lsr, 8, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = src >> shift; *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; FLAG_N = NFLAG_CLEAR; FLAG_Z = res; FLAG_X = FLAG_C = src << (9-shift); FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(lsr, 16, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_16(*r_dst); uint res = src >> shift; *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_CLEAR; FLAG_Z = res; FLAG_X = FLAG_C = src << (9-shift); FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(lsr, 32, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = *r_dst; uint res = src >> shift; *r_dst = res; FLAG_N = NFLAG_CLEAR; FLAG_Z = res; FLAG_X = FLAG_C = src << (9-shift); FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(lsr, 8, r, .) { uint* r_dst = &DY; uint shift = DX & 0x3f; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = src >> shift; if(shift != 0) { USE_CYCLES(shift<> shift; if(shift != 0) { USE_CYCLES(shift<> (shift - 1))<<8; FLAG_N = NFLAG_CLEAR; FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } *r_dst &= 0xffff0000; FLAG_X = XFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_CLEAR; FLAG_Z = ZFLAG_SET; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_16(src); FLAG_Z = src; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(lsr, 32, r, .) { uint* r_dst = &DY; uint shift = DX & 0x3f; uint src = *r_dst; uint res = src >> shift; if(shift != 0) { USE_CYCLES(shift<> (shift - 1))<<8; FLAG_N = NFLAG_CLEAR; FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } *r_dst = 0; FLAG_X = FLAG_C = (shift == 32 ? GET_MSB_32(src)>>23 : 0); FLAG_N = NFLAG_CLEAR; FLAG_Z = ZFLAG_SET; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_32(src); FLAG_Z = src; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(lsr, 16, ., .) { uint ea = M68KMAKE_GET_EA_AY_16; uint src = m68ki_read_16(ea); uint res = src >> 1; m68ki_write_16(ea, res); FLAG_N = NFLAG_CLEAR; FLAG_Z = res; FLAG_C = FLAG_X = src << 8; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(lsl, 8, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = MASK_OUT_ABOVE_8(src << shift); *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_X = FLAG_C = src << shift; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(lsl, 16, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_16(*r_dst); uint res = MASK_OUT_ABOVE_16(src << shift); *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_X = FLAG_C = src >> (8-shift); FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(lsl, 32, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = *r_dst; uint res = MASK_OUT_ABOVE_32(src << shift); *r_dst = res; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_X = FLAG_C = src >> (24-shift); FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(lsl, 8, r, .) { uint* r_dst = &DY; uint shift = DX & 0x3f; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = MASK_OUT_ABOVE_8(src << shift); if(shift != 0) { USE_CYCLES(shift<> 8; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } *r_dst &= 0xffff0000; FLAG_X = XFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_CLEAR; FLAG_Z = ZFLAG_SET; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_16(src); FLAG_Z = src; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(lsl, 32, r, .) { uint* r_dst = &DY; uint shift = DX & 0x3f; uint src = *r_dst; uint res = MASK_OUT_ABOVE_32(src << shift); if(shift != 0) { USE_CYCLES(shift<> (32 - shift)) << 8; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } *r_dst = 0; FLAG_X = FLAG_C = ((shift == 32 ? src & 1 : 0))<<8; FLAG_N = NFLAG_CLEAR; FLAG_Z = ZFLAG_SET; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_32(src); FLAG_Z = src; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(lsl, 16, ., .) { uint ea = M68KMAKE_GET_EA_AY_16; uint src = m68ki_read_16(ea); uint res = MASK_OUT_ABOVE_16(src << 1); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_X = FLAG_C = src >> 7; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(move, 8, d, d) { uint res = MASK_OUT_ABOVE_8(DY); uint* r_dst = &DX; *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, d, .) { uint res = M68KMAKE_GET_OPER_AY_8; uint* r_dst = &DX; *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, ai, d) { uint res = MASK_OUT_ABOVE_8(DY); uint ea = EA_AX_AI_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, ai, .) { uint res = M68KMAKE_GET_OPER_AY_8; uint ea = EA_AX_AI_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, pi7, d) { uint res = MASK_OUT_ABOVE_8(DY); uint ea = EA_A7_PI_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, pi, d) { uint res = MASK_OUT_ABOVE_8(DY); uint ea = EA_AX_PI_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, pi7, .) { uint res = M68KMAKE_GET_OPER_AY_8; uint ea = EA_A7_PI_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, pi, .) { uint res = M68KMAKE_GET_OPER_AY_8; uint ea = EA_AX_PI_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, pd7, d) { uint res = MASK_OUT_ABOVE_8(DY); uint ea = EA_A7_PD_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, pd, d) { uint res = MASK_OUT_ABOVE_8(DY); uint ea = EA_AX_PD_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, pd7, .) { uint res = M68KMAKE_GET_OPER_AY_8; uint ea = EA_A7_PD_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, pd, .) { uint res = M68KMAKE_GET_OPER_AY_8; uint ea = EA_AX_PD_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, di, d) { uint res = MASK_OUT_ABOVE_8(DY); uint ea = EA_AX_DI_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, di, .) { uint res = M68KMAKE_GET_OPER_AY_8; uint ea = EA_AX_DI_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, ix, d) { uint res = MASK_OUT_ABOVE_8(DY); uint ea = EA_AX_IX_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, ix, .) { uint res = M68KMAKE_GET_OPER_AY_8; uint ea = EA_AX_IX_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, aw, d) { uint res = MASK_OUT_ABOVE_8(DY); uint ea = EA_AW_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, aw, .) { uint res = M68KMAKE_GET_OPER_AY_8; uint ea = EA_AW_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, al, d) { uint res = MASK_OUT_ABOVE_8(DY); uint ea = EA_AL_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 8, al, .) { uint res = M68KMAKE_GET_OPER_AY_8; uint ea = EA_AL_8(); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, d, d) { uint res = MASK_OUT_ABOVE_16(DY); uint* r_dst = &DX; *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, d, a) { uint res = MASK_OUT_ABOVE_16(AY); uint* r_dst = &DX; *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, d, .) { uint res = M68KMAKE_GET_OPER_AY_16; uint* r_dst = &DX; *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, ai, d) { uint res = MASK_OUT_ABOVE_16(DY); uint ea = EA_AX_AI_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, ai, a) { uint res = MASK_OUT_ABOVE_16(AY); uint ea = EA_AX_AI_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, ai, .) { uint res = M68KMAKE_GET_OPER_AY_16; uint ea = EA_AX_AI_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, pi, d) { uint res = MASK_OUT_ABOVE_16(DY); uint ea = EA_AX_PI_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, pi, a) { uint res = MASK_OUT_ABOVE_16(AY); uint ea = EA_AX_PI_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, pi, .) { uint res = M68KMAKE_GET_OPER_AY_16; uint ea = EA_AX_PI_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, pd, d) { uint res = MASK_OUT_ABOVE_16(DY); uint ea = EA_AX_PD_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, pd, a) { uint res = MASK_OUT_ABOVE_16(AY); uint ea = EA_AX_PD_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, pd, .) { uint res = M68KMAKE_GET_OPER_AY_16; uint ea = EA_AX_PD_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, di, d) { uint res = MASK_OUT_ABOVE_16(DY); uint ea = EA_AX_DI_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, di, a) { uint res = MASK_OUT_ABOVE_16(AY); uint ea = EA_AX_DI_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, di, .) { uint res = M68KMAKE_GET_OPER_AY_16; uint ea = EA_AX_DI_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, ix, d) { uint res = MASK_OUT_ABOVE_16(DY); uint ea = EA_AX_IX_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, ix, a) { uint res = MASK_OUT_ABOVE_16(AY); uint ea = EA_AX_IX_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, ix, .) { uint res = M68KMAKE_GET_OPER_AY_16; uint ea = EA_AX_IX_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, aw, d) { uint res = MASK_OUT_ABOVE_16(DY); uint ea = EA_AW_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, aw, a) { uint res = MASK_OUT_ABOVE_16(AY); uint ea = EA_AW_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, aw, .) { uint res = M68KMAKE_GET_OPER_AY_16; uint ea = EA_AW_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, al, d) { uint res = MASK_OUT_ABOVE_16(DY); uint ea = EA_AL_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, al, a) { uint res = MASK_OUT_ABOVE_16(AY); uint ea = EA_AL_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 16, al, .) { uint res = M68KMAKE_GET_OPER_AY_16; uint ea = EA_AL_16(); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, d, d) { uint res = DY; uint* r_dst = &DX; *r_dst = res; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, d, a) { uint res = AY; uint* r_dst = &DX; *r_dst = res; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, d, .) { uint res = M68KMAKE_GET_OPER_AY_32; uint* r_dst = &DX; *r_dst = res; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, ai, d) { uint res = DY; uint ea = EA_AX_AI_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, ai, a) { uint res = AY; uint ea = EA_AX_AI_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, ai, .) { uint res = M68KMAKE_GET_OPER_AY_32; uint ea = EA_AX_AI_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, pi, d) { uint res = DY; uint ea = EA_AX_PI_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, pi, a) { uint res = AY; uint ea = EA_AX_PI_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, pi, .) { uint res = M68KMAKE_GET_OPER_AY_32; uint ea = EA_AX_PI_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, pd, d) { uint res = DY; uint ea = EA_AX_PD_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, pd, a) { uint res = AY; uint ea = EA_AX_PD_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, pd, .) { uint res = M68KMAKE_GET_OPER_AY_32; uint ea = EA_AX_PD_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, di, d) { uint res = DY; uint ea = EA_AX_DI_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, di, a) { uint res = AY; uint ea = EA_AX_DI_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, di, .) { uint res = M68KMAKE_GET_OPER_AY_32; uint ea = EA_AX_DI_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, ix, d) { uint res = DY; uint ea = EA_AX_IX_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, ix, a) { uint res = AY; uint ea = EA_AX_IX_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, ix, .) { uint res = M68KMAKE_GET_OPER_AY_32; uint ea = EA_AX_IX_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, aw, d) { uint res = DY; uint ea = EA_AW_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, aw, a) { uint res = AY; uint ea = EA_AW_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, aw, .) { uint res = M68KMAKE_GET_OPER_AY_32; uint ea = EA_AW_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, al, d) { uint res = DY; uint ea = EA_AL_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, al, a) { uint res = AY; uint ea = EA_AL_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(move, 32, al, .) { uint res = M68KMAKE_GET_OPER_AY_32; uint ea = EA_AL_32(); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(movea, 16, ., d) { AX = MAKE_INT_16(DY); } M68KMAKE_OP(movea, 16, ., a) { AX = MAKE_INT_16(AY); } M68KMAKE_OP(movea, 16, ., .) { AX = MAKE_INT_16(M68KMAKE_GET_OPER_AY_16); } M68KMAKE_OP(movea, 32, ., d) { AX = DY; } M68KMAKE_OP(movea, 32, ., a) { AX = AY; } M68KMAKE_OP(movea, 32, ., .) { AX = M68KMAKE_GET_OPER_AY_32; } M68KMAKE_OP(move, 16, frc, d) { if(CPU_TYPE_IS_010_PLUS(CPU_TYPE)) { DY = MASK_OUT_BELOW_16(DY) | m68ki_get_ccr(); return; } m68ki_exception_illegal(); } M68KMAKE_OP(move, 16, frc, .) { if(CPU_TYPE_IS_010_PLUS(CPU_TYPE)) { m68ki_write_16(M68KMAKE_GET_EA_AY_16, m68ki_get_ccr()); return; } m68ki_exception_illegal(); } M68KMAKE_OP(move, 16, toc, d) { m68ki_set_ccr(DY); } M68KMAKE_OP(move, 16, toc, .) { m68ki_set_ccr(M68KMAKE_GET_OPER_AY_16); } M68KMAKE_OP(move, 16, frs, d) { if(CPU_TYPE_IS_000(CPU_TYPE) || FLAG_S) /* NS990408 */ { DY = MASK_OUT_BELOW_16(DY) | m68ki_get_sr(); return; } m68ki_exception_privilege_violation(); } M68KMAKE_OP(move, 16, frs, .) { if(CPU_TYPE_IS_000(CPU_TYPE) || FLAG_S) /* NS990408 */ { uint ea = M68KMAKE_GET_EA_AY_16; m68ki_write_16(ea, m68ki_get_sr()); return; } m68ki_exception_privilege_violation(); } M68KMAKE_OP(move, 16, tos, d) { if(FLAG_S) { m68ki_set_sr(DY); return; } m68ki_exception_privilege_violation(); } M68KMAKE_OP(move, 16, tos, .) { if(FLAG_S) { uint new_sr = M68KMAKE_GET_OPER_AY_16; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_set_sr(new_sr); return; } m68ki_exception_privilege_violation(); } M68KMAKE_OP(move, 32, fru, .) { if(FLAG_S) { AY = REG_USP; return; } m68ki_exception_privilege_violation(); } M68KMAKE_OP(move, 32, tou, .) { if(FLAG_S) { m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ REG_USP = AY; return; } m68ki_exception_privilege_violation(); } M68KMAKE_OP(movec, 32, cr, .) { if(CPU_TYPE_IS_010_PLUS(CPU_TYPE)) { if(FLAG_S) { uint word2 = OPER_I_16(); m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ switch (word2 & 0xfff) { case 0x000: /* SFC */ REG_DA[(word2 >> 12) & 15] = REG_SFC; return; case 0x001: /* DFC */ REG_DA[(word2 >> 12) & 15] = REG_DFC; return; case 0x002: /* CACR */ if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { REG_DA[(word2 >> 12) & 15] = REG_CACR; return; } return; case 0x800: /* USP */ REG_DA[(word2 >> 12) & 15] = REG_USP; return; case 0x801: /* VBR */ REG_DA[(word2 >> 12) & 15] = REG_VBR; return; case 0x802: /* CAAR */ if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { REG_DA[(word2 >> 12) & 15] = REG_CAAR; return; } m68ki_exception_illegal(); break; case 0x803: /* MSP */ if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { REG_DA[(word2 >> 12) & 15] = FLAG_M ? REG_SP : REG_MSP; return; } m68ki_exception_illegal(); return; case 0x804: /* ISP */ if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { REG_DA[(word2 >> 12) & 15] = FLAG_M ? REG_ISP : REG_SP; return; } m68ki_exception_illegal(); return; default: m68ki_exception_illegal(); return; } } m68ki_exception_privilege_violation(); return; } m68ki_exception_illegal(); } M68KMAKE_OP(movec, 32, rc, .) { if(CPU_TYPE_IS_010_PLUS(CPU_TYPE)) { if(FLAG_S) { uint word2 = OPER_I_16(); m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ switch (word2 & 0xfff) { case 0x000: /* SFC */ REG_SFC = REG_DA[(word2 >> 12) & 15] & 7; return; case 0x001: /* DFC */ REG_DFC = REG_DA[(word2 >> 12) & 15] & 7; return; case 0x002: /* CACR */ if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { REG_CACR = REG_DA[(word2 >> 12) & 15]; return; } m68ki_exception_illegal(); return; case 0x800: /* USP */ REG_USP = REG_DA[(word2 >> 12) & 15]; return; case 0x801: /* VBR */ REG_VBR = REG_DA[(word2 >> 12) & 15]; return; case 0x802: /* CAAR */ if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { REG_CAAR = REG_DA[(word2 >> 12) & 15]; return; } m68ki_exception_illegal(); return; case 0x803: /* MSP */ if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { /* we are in supervisor mode so just check for M flag */ if(!FLAG_M) { REG_MSP = REG_DA[(word2 >> 12) & 15]; return; } REG_SP = REG_DA[(word2 >> 12) & 15]; return; } m68ki_exception_illegal(); return; case 0x804: /* ISP */ if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { if(!FLAG_M) { REG_SP = REG_DA[(word2 >> 12) & 15]; return; } REG_ISP = REG_DA[(word2 >> 12) & 15]; return; } m68ki_exception_illegal(); return; default: m68ki_exception_illegal(); return; } } m68ki_exception_privilege_violation(); return; } m68ki_exception_illegal(); } M68KMAKE_OP(movem, 16, re, pd) { uint i = 0; uint register_list = OPER_I_16(); uint ea = AY; uint count = 0; for(; i < 16; i++) if(register_list & (1 << i)) { ea -= 2; m68ki_write_16(ea, MASK_OUT_ABOVE_16(REG_DA[15-i])); count++; } AY = ea; USE_CYCLES(count<> 8)); m68ki_write_8(ea += 2, MASK_OUT_ABOVE_8(src)); } M68KMAKE_OP(movep, 32, re, .) { uint ea = EA_AY_DI_32(); uint src = DX; m68ki_write_8(ea, MASK_OUT_ABOVE_8(src >> 24)); m68ki_write_8(ea += 2, MASK_OUT_ABOVE_8(src >> 16)); m68ki_write_8(ea += 2, MASK_OUT_ABOVE_8(src >> 8)); m68ki_write_8(ea += 2, MASK_OUT_ABOVE_8(src)); } M68KMAKE_OP(movep, 16, er, .) { uint ea = EA_AY_DI_16(); uint* r_dst = &DX; *r_dst = MASK_OUT_BELOW_16(*r_dst) | ((m68ki_read_8(ea) << 8) + m68ki_read_8(ea + 2)); } M68KMAKE_OP(movep, 32, er, .) { uint ea = EA_AY_DI_32(); DX = (m68ki_read_8(ea) << 24) + (m68ki_read_8(ea + 2) << 16) + (m68ki_read_8(ea + 4) << 8) + m68ki_read_8(ea + 6); } M68KMAKE_OP(moves, 8, ., .) { if(CPU_TYPE_IS_010_PLUS(CPU_TYPE)) { if(FLAG_S) { uint word2 = OPER_I_16(); uint ea = M68KMAKE_GET_EA_AY_8; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ if(BIT_B(word2)) /* Register to memory */ { m68ki_write_8_fc(ea, REG_DFC, MASK_OUT_ABOVE_8(REG_DA[(word2 >> 12) & 15])); return; } if(BIT_F(word2)) /* Memory to address register */ { REG_A[(word2 >> 12) & 7] = MAKE_INT_8(m68ki_read_8_fc(ea, REG_SFC)); if(CPU_TYPE_IS_020_VARIANT(CPU_TYPE)) USE_CYCLES(2); return; } /* Memory to data register */ REG_D[(word2 >> 12) & 7] = MASK_OUT_BELOW_8(REG_D[(word2 >> 12) & 7]) | m68ki_read_8_fc(ea, REG_SFC); if(CPU_TYPE_IS_020_VARIANT(CPU_TYPE)) USE_CYCLES(2); return; } m68ki_exception_privilege_violation(); return; } m68ki_exception_illegal(); } M68KMAKE_OP(moves, 16, ., .) { if(CPU_TYPE_IS_010_PLUS(CPU_TYPE)) { if(FLAG_S) { uint word2 = OPER_I_16(); uint ea = M68KMAKE_GET_EA_AY_16; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ if(BIT_B(word2)) /* Register to memory */ { m68ki_write_16_fc(ea, REG_DFC, MASK_OUT_ABOVE_16(REG_DA[(word2 >> 12) & 15])); return; } if(BIT_F(word2)) /* Memory to address register */ { REG_A[(word2 >> 12) & 7] = MAKE_INT_16(m68ki_read_16_fc(ea, REG_SFC)); if(CPU_TYPE_IS_020_VARIANT(CPU_TYPE)) USE_CYCLES(2); return; } /* Memory to data register */ REG_D[(word2 >> 12) & 7] = MASK_OUT_BELOW_16(REG_D[(word2 >> 12) & 7]) | m68ki_read_16_fc(ea, REG_SFC); if(CPU_TYPE_IS_020_VARIANT(CPU_TYPE)) USE_CYCLES(2); return; } m68ki_exception_privilege_violation(); return; } m68ki_exception_illegal(); } M68KMAKE_OP(moves, 32, ., .) { if(CPU_TYPE_IS_010_PLUS(CPU_TYPE)) { if(FLAG_S) { uint word2 = OPER_I_16(); uint ea = M68KMAKE_GET_EA_AY_32; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ if(BIT_B(word2)) /* Register to memory */ { m68ki_write_32_fc(ea, REG_DFC, REG_DA[(word2 >> 12) & 15]); if(CPU_TYPE_IS_020_VARIANT(CPU_TYPE)) USE_CYCLES(2); return; } /* Memory to register */ REG_DA[(word2 >> 12) & 15] = m68ki_read_32_fc(ea, REG_SFC); if(CPU_TYPE_IS_020_VARIANT(CPU_TYPE)) USE_CYCLES(2); return; } m68ki_exception_privilege_violation(); return; } m68ki_exception_illegal(); } M68KMAKE_OP(moveq, 32, ., .) { uint res = DX = MAKE_INT_8(MASK_OUT_ABOVE_8(REG_IR)); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(muls, 16, ., d) { uint* r_dst = &DX; uint res = MASK_OUT_ABOVE_32(MAKE_INT_16(DY) * MAKE_INT_16(MASK_OUT_ABOVE_16(*r_dst))); *r_dst = res; FLAG_Z = res; FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(muls, 16, ., .) { uint* r_dst = &DX; uint res = MASK_OUT_ABOVE_32(MAKE_INT_16(M68KMAKE_GET_OPER_AY_16) * MAKE_INT_16(MASK_OUT_ABOVE_16(*r_dst))); *r_dst = res; FLAG_Z = res; FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(mulu, 16, ., d) { uint* r_dst = &DX; uint res = MASK_OUT_ABOVE_16(DY) * MASK_OUT_ABOVE_16(*r_dst); *r_dst = res; FLAG_Z = res; FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(mulu, 16, ., .) { uint* r_dst = &DX; uint res = M68KMAKE_GET_OPER_AY_16 * MASK_OUT_ABOVE_16(*r_dst); *r_dst = res; FLAG_Z = res; FLAG_N = NFLAG_32(res); FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(mull, 32, ., d) { #if M68K_USE_64_BIT if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint64 src = DY; uint64 dst = REG_D[(word2 >> 12) & 7]; uint64 res; FLAG_C = CFLAG_CLEAR; if(BIT_B(word2)) /* signed */ { res = (sint64)((sint32)src) * (sint64)((sint32)dst); if(!BIT_A(word2)) { FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_N = NFLAG_32(res); FLAG_V = ((sint64)res != (sint32)res)<<7; REG_D[(word2 >> 12) & 7] = FLAG_Z; return; } FLAG_Z = MASK_OUT_ABOVE_32(res) | (res>>32); FLAG_N = NFLAG_64(res); FLAG_V = VFLAG_CLEAR; REG_D[word2 & 7] = (res >> 32); REG_D[(word2 >> 12) & 7] = MASK_OUT_ABOVE_32(res); return; } res = src * dst; if(!BIT_A(word2)) { FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_N = NFLAG_32(res); FLAG_V = (res > 0xffffffff)<<7; REG_D[(word2 >> 12) & 7] = FLAG_Z; return; } FLAG_Z = MASK_OUT_ABOVE_32(res) | (res>>32); FLAG_N = NFLAG_64(res); FLAG_V = VFLAG_CLEAR; REG_D[word2 & 7] = (res >> 32); REG_D[(word2 >> 12) & 7] = MASK_OUT_ABOVE_32(res); return; } m68ki_exception_illegal(); #else if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint src = DY; uint dst = REG_D[(word2 >> 12) & 7]; uint neg = GET_MSB_32(src ^ dst); uint src1; uint src2; uint dst1; uint dst2; uint r1; uint r2; uint r3; uint r4; uint lo; uint hi; FLAG_C = CFLAG_CLEAR; if(BIT_B(word2)) /* signed */ { if(GET_MSB_32(src)) src = (uint)MASK_OUT_ABOVE_32(-(sint)src); if(GET_MSB_32(dst)) dst = (uint)MASK_OUT_ABOVE_32(-(sint)dst); } src1 = MASK_OUT_ABOVE_16(src); src2 = src>>16; dst1 = MASK_OUT_ABOVE_16(dst); dst2 = dst>>16; r1 = src1 * dst1; r2 = src1 * dst2; r3 = src2 * dst1; r4 = src2 * dst2; lo = r1 + (MASK_OUT_ABOVE_16(r2)<<16) + (MASK_OUT_ABOVE_16(r3)<<16); hi = r4 + (r2>>16) + (r3>>16) + (((r1>>16) + MASK_OUT_ABOVE_16(r2) + MASK_OUT_ABOVE_16(r3)) >> 16); if(BIT_B(word2) && neg) { hi = (uint)MASK_OUT_ABOVE_32((-(sint)hi) - (lo != 0)); lo = (uint)MASK_OUT_ABOVE_32(-(sint)lo); } if(BIT_A(word2)) { REG_D[word2 & 7] = hi; REG_D[(word2 >> 12) & 7] = lo; FLAG_N = NFLAG_32(hi); FLAG_Z = hi | lo; FLAG_V = VFLAG_CLEAR; return; } REG_D[(word2 >> 12) & 7] = lo; FLAG_N = NFLAG_32(lo); FLAG_Z = lo; if(BIT_B(word2)) FLAG_V = (!((GET_MSB_32(lo) && hi == 0xffffffff) || (!GET_MSB_32(lo) && !hi)))<<7; else FLAG_V = (hi != 0) << 7; return; } m68ki_exception_illegal(); #endif } M68KMAKE_OP(mull, 32, ., .) { #if M68K_USE_64_BIT if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint64 src = M68KMAKE_GET_OPER_AY_32; uint64 dst = REG_D[(word2 >> 12) & 7]; uint64 res; FLAG_C = CFLAG_CLEAR; if(BIT_B(word2)) /* signed */ { res = (sint64)((sint32)src) * (sint64)((sint32)dst); if(!BIT_A(word2)) { FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_N = NFLAG_32(res); FLAG_V = ((sint64)res != (sint32)res)<<7; REG_D[(word2 >> 12) & 7] = FLAG_Z; return; } FLAG_Z = MASK_OUT_ABOVE_32(res) | (res>>32); FLAG_N = NFLAG_64(res); FLAG_V = VFLAG_CLEAR; REG_D[word2 & 7] = (res >> 32); REG_D[(word2 >> 12) & 7] = MASK_OUT_ABOVE_32(res); return; } res = src * dst; if(!BIT_A(word2)) { FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_N = NFLAG_32(res); FLAG_V = (res > 0xffffffff)<<7; REG_D[(word2 >> 12) & 7] = FLAG_Z; return; } FLAG_Z = MASK_OUT_ABOVE_32(res) | (res>>32); FLAG_N = NFLAG_64(res); FLAG_V = VFLAG_CLEAR; REG_D[word2 & 7] = (res >> 32); REG_D[(word2 >> 12) & 7] = MASK_OUT_ABOVE_32(res); return; } m68ki_exception_illegal(); #else if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint word2 = OPER_I_16(); uint src = M68KMAKE_GET_OPER_AY_32; uint dst = REG_D[(word2 >> 12) & 7]; uint neg = GET_MSB_32(src ^ dst); uint src1; uint src2; uint dst1; uint dst2; uint r1; uint r2; uint r3; uint r4; uint lo; uint hi; FLAG_C = CFLAG_CLEAR; if(BIT_B(word2)) /* signed */ { if(GET_MSB_32(src)) src = (uint)MASK_OUT_ABOVE_32(-(sint)src); if(GET_MSB_32(dst)) dst = (uint)MASK_OUT_ABOVE_32(-(sint)dst); } src1 = MASK_OUT_ABOVE_16(src); src2 = src>>16; dst1 = MASK_OUT_ABOVE_16(dst); dst2 = dst>>16; r1 = src1 * dst1; r2 = src1 * dst2; r3 = src2 * dst1; r4 = src2 * dst2; lo = r1 + (MASK_OUT_ABOVE_16(r2)<<16) + (MASK_OUT_ABOVE_16(r3)<<16); hi = r4 + (r2>>16) + (r3>>16) + (((r1>>16) + MASK_OUT_ABOVE_16(r2) + MASK_OUT_ABOVE_16(r3)) >> 16); if(BIT_B(word2) && neg) { hi = (uint)MASK_OUT_ABOVE_32((-(sint)hi) - (lo != 0)); lo = (uint)MASK_OUT_ABOVE_32(-(sint)lo); } if(BIT_A(word2)) { REG_D[word2 & 7] = hi; REG_D[(word2 >> 12) & 7] = lo; FLAG_N = NFLAG_32(hi); FLAG_Z = hi | lo; FLAG_V = VFLAG_CLEAR; return; } REG_D[(word2 >> 12) & 7] = lo; FLAG_N = NFLAG_32(lo); FLAG_Z = lo; if(BIT_B(word2)) FLAG_V = (!((GET_MSB_32(lo) && hi == 0xffffffff) || (!GET_MSB_32(lo) && !hi)))<<7; else FLAG_V = (hi != 0) << 7; return; } m68ki_exception_illegal(); #endif } M68KMAKE_OP(nbcd, 8, ., d) { uint* r_dst = &DY; uint dst = *r_dst; uint res = MASK_OUT_ABOVE_8(0x9a - dst - XFLAG_AS_1()); if(res != 0x9a) { FLAG_V = ~res; /* Undefined V behavior */ if((res & 0x0f) == 0xa) res = (res & 0xf0) + 0x10; res = MASK_OUT_ABOVE_8(res); FLAG_V &= res; /* Undefined V behavior part II */ *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; FLAG_Z |= res; FLAG_C = CFLAG_SET; FLAG_X = XFLAG_SET; } else { FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; FLAG_X = XFLAG_CLEAR; } FLAG_N = NFLAG_8(res); /* Undefined N behavior */ } M68KMAKE_OP(nbcd, 8, ., .) { uint ea = M68KMAKE_GET_EA_AY_8; uint dst = m68ki_read_8(ea); uint res = MASK_OUT_ABOVE_8(0x9a - dst - XFLAG_AS_1()); if(res != 0x9a) { FLAG_V = ~res; /* Undefined V behavior */ if((res & 0x0f) == 0xa) res = (res & 0xf0) + 0x10; res = MASK_OUT_ABOVE_8(res); FLAG_V &= res; /* Undefined V behavior part II */ m68ki_write_8(ea, MASK_OUT_ABOVE_8(res)); FLAG_Z |= res; FLAG_C = CFLAG_SET; FLAG_X = XFLAG_SET; } else { FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; FLAG_X = XFLAG_CLEAR; } FLAG_N = NFLAG_8(res); /* Undefined N behavior */ } M68KMAKE_OP(neg, 8, ., d) { uint* r_dst = &DY; uint res = 0 - MASK_OUT_ABOVE_8(*r_dst); FLAG_N = NFLAG_8(res); FLAG_C = FLAG_X = CFLAG_8(res); FLAG_V = *r_dst & res; FLAG_Z = MASK_OUT_ABOVE_8(res); *r_dst = MASK_OUT_BELOW_8(*r_dst) | FLAG_Z; } M68KMAKE_OP(neg, 8, ., .) { uint ea = M68KMAKE_GET_EA_AY_8; uint src = m68ki_read_8(ea); uint res = 0 - src; FLAG_N = NFLAG_8(res); FLAG_C = FLAG_X = CFLAG_8(res); FLAG_V = src & res; FLAG_Z = MASK_OUT_ABOVE_8(res); m68ki_write_8(ea, FLAG_Z); } M68KMAKE_OP(neg, 16, ., d) { uint* r_dst = &DY; uint res = 0 - MASK_OUT_ABOVE_16(*r_dst); FLAG_N = NFLAG_16(res); FLAG_C = FLAG_X = CFLAG_16(res); FLAG_V = (*r_dst & res)>>8; FLAG_Z = MASK_OUT_ABOVE_16(res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | FLAG_Z; } M68KMAKE_OP(neg, 16, ., .) { uint ea = M68KMAKE_GET_EA_AY_16; uint src = m68ki_read_16(ea); uint res = 0 - src; FLAG_N = NFLAG_16(res); FLAG_C = FLAG_X = CFLAG_16(res); FLAG_V = (src & res)>>8; FLAG_Z = MASK_OUT_ABOVE_16(res); m68ki_write_16(ea, FLAG_Z); } M68KMAKE_OP(neg, 32, ., d) { uint* r_dst = &DY; uint res = 0 - *r_dst; FLAG_N = NFLAG_32(res); FLAG_C = FLAG_X = CFLAG_SUB_32(*r_dst, 0, res); FLAG_V = (*r_dst & res)>>24; FLAG_Z = MASK_OUT_ABOVE_32(res); *r_dst = FLAG_Z; } M68KMAKE_OP(neg, 32, ., .) { uint ea = M68KMAKE_GET_EA_AY_32; uint src = m68ki_read_32(ea); uint res = 0 - src; FLAG_N = NFLAG_32(res); FLAG_C = FLAG_X = CFLAG_SUB_32(src, 0, res); FLAG_V = (src & res)>>24; FLAG_Z = MASK_OUT_ABOVE_32(res); m68ki_write_32(ea, FLAG_Z); } M68KMAKE_OP(negx, 8, ., d) { uint* r_dst = &DY; uint res = 0 - MASK_OUT_ABOVE_8(*r_dst) - XFLAG_AS_1(); FLAG_N = NFLAG_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = *r_dst & res; res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; } M68KMAKE_OP(negx, 8, ., .) { uint ea = M68KMAKE_GET_EA_AY_8; uint src = m68ki_read_8(ea); uint res = 0 - src - XFLAG_AS_1(); FLAG_N = NFLAG_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = src & res; res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(negx, 16, ., d) { uint* r_dst = &DY; uint res = 0 - MASK_OUT_ABOVE_16(*r_dst) - XFLAG_AS_1(); FLAG_N = NFLAG_16(res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_V = (*r_dst & res)>>8; res = MASK_OUT_ABOVE_16(res); FLAG_Z |= res; *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; } M68KMAKE_OP(negx, 16, ., .) { uint ea = M68KMAKE_GET_EA_AY_16; uint src = m68ki_read_16(ea); uint res = 0 - MASK_OUT_ABOVE_16(src) - XFLAG_AS_1(); FLAG_N = NFLAG_16(res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_V = (src & res)>>8; res = MASK_OUT_ABOVE_16(res); FLAG_Z |= res; m68ki_write_16(ea, res); } M68KMAKE_OP(negx, 32, ., d) { uint* r_dst = &DY; uint res = 0 - MASK_OUT_ABOVE_32(*r_dst) - XFLAG_AS_1(); FLAG_N = NFLAG_32(res); FLAG_X = FLAG_C = CFLAG_SUB_32(*r_dst, 0, res); FLAG_V = (*r_dst & res)>>24; res = MASK_OUT_ABOVE_32(res); FLAG_Z |= res; *r_dst = res; } M68KMAKE_OP(negx, 32, ., .) { uint ea = M68KMAKE_GET_EA_AY_32; uint src = m68ki_read_32(ea); uint res = 0 - MASK_OUT_ABOVE_32(src) - XFLAG_AS_1(); FLAG_N = NFLAG_32(res); FLAG_X = FLAG_C = CFLAG_SUB_32(src, 0, res); FLAG_V = (src & res)>>24; res = MASK_OUT_ABOVE_32(res); FLAG_Z |= res; m68ki_write_32(ea, res); } M68KMAKE_OP(nop, 0, ., .) { m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ } M68KMAKE_OP(not, 8, ., d) { uint* r_dst = &DY; uint res = MASK_OUT_ABOVE_8(~*r_dst); *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(not, 8, ., .) { uint ea = M68KMAKE_GET_EA_AY_8; uint res = MASK_OUT_ABOVE_8(~m68ki_read_8(ea)); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(not, 16, ., d) { uint* r_dst = &DY; uint res = MASK_OUT_ABOVE_16(~*r_dst); *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(not, 16, ., .) { uint ea = M68KMAKE_GET_EA_AY_16; uint res = MASK_OUT_ABOVE_16(~m68ki_read_16(ea)); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(not, 32, ., d) { uint* r_dst = &DY; uint res = *r_dst = MASK_OUT_ABOVE_32(~*r_dst); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(not, 32, ., .) { uint ea = M68KMAKE_GET_EA_AY_32; uint res = MASK_OUT_ABOVE_32(~m68ki_read_32(ea)); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(or, 8, er, d) { uint res = MASK_OUT_ABOVE_8((DX |= MASK_OUT_ABOVE_8(DY))); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(or, 8, er, .) { uint res = MASK_OUT_ABOVE_8((DX |= M68KMAKE_GET_OPER_AY_8)); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(or, 16, er, d) { uint res = MASK_OUT_ABOVE_16((DX |= MASK_OUT_ABOVE_16(DY))); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(or, 16, er, .) { uint res = MASK_OUT_ABOVE_16((DX |= M68KMAKE_GET_OPER_AY_16)); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(or, 32, er, d) { uint res = DX |= DY; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(or, 32, er, .) { uint res = DX |= M68KMAKE_GET_OPER_AY_32; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(or, 8, re, .) { uint ea = M68KMAKE_GET_EA_AY_8; uint res = MASK_OUT_ABOVE_8(DX | m68ki_read_8(ea)); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(or, 16, re, .) { uint ea = M68KMAKE_GET_EA_AY_16; uint res = MASK_OUT_ABOVE_16(DX | m68ki_read_16(ea)); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(or, 32, re, .) { uint ea = M68KMAKE_GET_EA_AY_32; uint res = DX | m68ki_read_32(ea); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(ori, 8, ., d) { uint res = MASK_OUT_ABOVE_8((DY |= OPER_I_8())); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(ori, 8, ., .) { uint src = OPER_I_8(); uint ea = M68KMAKE_GET_EA_AY_8; uint res = MASK_OUT_ABOVE_8(src | m68ki_read_8(ea)); m68ki_write_8(ea, res); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(ori, 16, ., d) { uint res = MASK_OUT_ABOVE_16(DY |= OPER_I_16()); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(ori, 16, ., .) { uint src = OPER_I_16(); uint ea = M68KMAKE_GET_EA_AY_16; uint res = MASK_OUT_ABOVE_16(src | m68ki_read_16(ea)); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(ori, 32, ., d) { uint res = DY |= OPER_I_32(); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(ori, 32, ., .) { uint src = OPER_I_32(); uint ea = M68KMAKE_GET_EA_AY_32; uint res = src | m68ki_read_32(ea); m68ki_write_32(ea, res); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(ori, 16, toc, .) { m68ki_set_ccr(m68ki_get_ccr() | OPER_I_16()); } M68KMAKE_OP(ori, 16, tos, .) { if(FLAG_S) { uint src = OPER_I_16(); m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_set_sr(m68ki_get_sr() | src); return; } m68ki_exception_privilege_violation(); } M68KMAKE_OP(pack, 16, rr, .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { /* Note: DX and DY are reversed in Motorola's docs */ uint src = DY + OPER_I_16(); uint* r_dst = &DX; *r_dst = MASK_OUT_BELOW_8(*r_dst) | ((src >> 4) & 0x00f0) | (src & 0x000f); return; } m68ki_exception_illegal(); } M68KMAKE_OP(pack, 16, mm, ax7) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { /* Note: AX and AY are reversed in Motorola's docs */ uint ea_src = EA_AY_PD_8(); uint src = m68ki_read_8(ea_src); ea_src = EA_AY_PD_8(); src = ((src << 8) | m68ki_read_8(ea_src)) + OPER_I_16(); m68ki_write_8(EA_A7_PD_8(), ((src >> 4) & 0x00f0) | (src & 0x000f)); return; } m68ki_exception_illegal(); } M68KMAKE_OP(pack, 16, mm, ay7) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { /* Note: AX and AY are reversed in Motorola's docs */ uint ea_src = EA_A7_PD_8(); uint src = m68ki_read_8(ea_src); ea_src = EA_A7_PD_8(); src = ((src << 8) | m68ki_read_8(ea_src)) + OPER_I_16(); m68ki_write_8(EA_AX_PD_8(), ((src >> 4) & 0x00f0) | (src & 0x000f)); return; } m68ki_exception_illegal(); } M68KMAKE_OP(pack, 16, mm, axy7) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint ea_src = EA_A7_PD_8(); uint src = m68ki_read_8(ea_src); ea_src = EA_A7_PD_8(); src = ((src << 8) | m68ki_read_8(ea_src)) + OPER_I_16(); m68ki_write_8(EA_A7_PD_8(), ((src >> 4) & 0x00f0) | (src & 0x000f)); return; } m68ki_exception_illegal(); } M68KMAKE_OP(pack, 16, mm, .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { /* Note: AX and AY are reversed in Motorola's docs */ uint ea_src = EA_AY_PD_8(); uint src = m68ki_read_8(ea_src); ea_src = EA_AY_PD_8(); src = ((src << 8) | m68ki_read_8(ea_src)) + OPER_I_16(); m68ki_write_8(EA_AX_PD_8(), ((src >> 4) & 0x00f0) | (src & 0x000f)); return; } m68ki_exception_illegal(); } M68KMAKE_OP(pea, 32, ., .) { uint ea = M68KMAKE_GET_EA_AY_32; m68ki_push_32(ea); } M68KMAKE_OP(reset, 0, ., .) { if(FLAG_S) { m68ki_output_reset(); /* auto-disable (see m68kcpu.h) */ USE_CYCLES(CYC_RESET); return; } m68ki_exception_privilege_violation(); } M68KMAKE_OP(ror, 8, s, .) { uint* r_dst = &DY; uint orig_shift = (((REG_IR >> 9) - 1) & 7) + 1; uint shift = orig_shift & 7; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = ROR_8(src, shift); *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = src << (9-orig_shift); FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(ror, 16, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_16(*r_dst); uint res = ROR_16(src, shift); *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = src << (9-shift); FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(ror, 32, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint64 src = *r_dst; uint res = ROR_32(src, shift); *r_dst = res; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = src << (9-shift); FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(ror, 8, r, .) { uint* r_dst = &DY; uint orig_shift = DX & 0x3f; uint shift = orig_shift & 7; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = ROR_8(src, shift); if(orig_shift != 0) { USE_CYCLES(orig_shift<> ((shift - 1) & 15)) << 8; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_16(src); FLAG_Z = src; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(ror, 32, r, .) { uint* r_dst = &DY; uint orig_shift = DX & 0x3f; uint shift = orig_shift & 31; uint64 src = *r_dst; uint res = ROR_32(src, shift); if(orig_shift != 0) { USE_CYCLES(orig_shift<> ((shift - 1) & 31)) << 8; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_32(src); FLAG_Z = src; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(ror, 16, ., .) { uint ea = M68KMAKE_GET_EA_AY_16; uint src = m68ki_read_16(ea); uint res = ROR_16(src, 1); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = src << 8; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(rol, 8, s, .) { uint* r_dst = &DY; uint orig_shift = (((REG_IR >> 9) - 1) & 7) + 1; uint shift = orig_shift & 7; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = ROL_8(src, shift); *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_C = src << orig_shift; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(rol, 16, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_16(*r_dst); uint res = ROL_16(src, shift); *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = src >> (8-shift); FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(rol, 32, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint64 src = *r_dst; uint res = ROL_32(src, shift); *r_dst = res; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_C = src >> (24-shift); FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(rol, 8, r, .) { uint* r_dst = &DY; uint orig_shift = DX & 0x3f; uint shift = orig_shift & 7; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = ROL_8(src, shift); if(orig_shift != 0) { USE_CYCLES(orig_shift<> 8; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = (src & 1)<<8; FLAG_N = NFLAG_16(src); FLAG_Z = src; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_16(src); FLAG_Z = src; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(rol, 32, r, .) { uint* r_dst = &DY; uint orig_shift = DX & 0x3f; uint shift = orig_shift & 31; uint64 src = *r_dst; uint res = ROL_32(src, shift); if(orig_shift != 0) { USE_CYCLES(orig_shift<> (32 - shift)) << 8; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = CFLAG_CLEAR; FLAG_N = NFLAG_32(src); FLAG_Z = src; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(rol, 16, ., .) { uint ea = M68KMAKE_GET_EA_AY_16; uint src = m68ki_read_16(ea); uint res = MASK_OUT_ABOVE_16(ROL_16(src, 1)); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_C = src >> 7; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(roxr, 8, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = ROR_9(src | (XFLAG_AS_1() << 8), shift); FLAG_C = FLAG_X = res; res = MASK_OUT_ABOVE_8(res); *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(roxr, 16, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_16(*r_dst); uint res = ROR_17(src | (XFLAG_AS_1() << 16), shift); FLAG_C = FLAG_X = res >> 8; res = MASK_OUT_ABOVE_16(res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(roxr, 32, s, .) { #if M68K_USE_64_BIT uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint64 src = *r_dst; uint64 res = src | (((uint64)XFLAG_AS_1()) << 32); res = ROR_33_64(res, shift); FLAG_C = FLAG_X = res >> 24; res = MASK_OUT_ABOVE_32(res); *r_dst = res; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; #else uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = *r_dst; uint res = MASK_OUT_ABOVE_32((ROR_33(src, shift) & ~(1 << (32 - shift))) | (XFLAG_AS_1() << (32 - shift))); uint new_x_flag = src & (1 << (shift - 1)); *r_dst = res; FLAG_C = FLAG_X = (new_x_flag != 0)<<8; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; #endif } M68KMAKE_OP(roxr, 8, r, .) { uint* r_dst = &DY; uint orig_shift = DX & 0x3f; if(orig_shift != 0) { uint shift = orig_shift % 9; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = ROR_9(src | (XFLAG_AS_1() << 8), shift); USE_CYCLES(orig_shift<> 8; res = MASK_OUT_ABOVE_16(res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = FLAG_X; FLAG_N = NFLAG_16(*r_dst); FLAG_Z = MASK_OUT_ABOVE_16(*r_dst); FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(roxr, 32, r, .) { #if M68K_USE_64_BIT uint* r_dst = &DY; uint orig_shift = DX & 0x3f; if(orig_shift != 0) { uint shift = orig_shift % 33; uint64 src = *r_dst; uint64 res = src | (((uint64)XFLAG_AS_1()) << 32); res = ROR_33_64(res, shift); USE_CYCLES(orig_shift<> 24; res = MASK_OUT_ABOVE_32(res); *r_dst = res; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = FLAG_X; FLAG_N = NFLAG_32(*r_dst); FLAG_Z = *r_dst; FLAG_V = VFLAG_CLEAR; #else uint* r_dst = &DY; uint orig_shift = DX & 0x3f; uint shift = orig_shift % 33; uint src = *r_dst; uint res = MASK_OUT_ABOVE_32((ROR_33(src, shift) & ~(1 << (32 - shift))) | (XFLAG_AS_1() << (32 - shift))); uint new_x_flag = src & (1 << (shift - 1)); if(orig_shift != 0) USE_CYCLES(orig_shift<> 8; res = MASK_OUT_ABOVE_16(res); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(roxl, 8, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = ROL_9(src | (XFLAG_AS_1() << 8), shift); FLAG_C = FLAG_X = res; res = MASK_OUT_ABOVE_8(res); *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(roxl, 16, s, .) { uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = MASK_OUT_ABOVE_16(*r_dst); uint res = ROL_17(src | (XFLAG_AS_1() << 16), shift); FLAG_C = FLAG_X = res >> 8; res = MASK_OUT_ABOVE_16(res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(roxl, 32, s, .) { #if M68K_USE_64_BIT uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint64 src = *r_dst; uint64 res = src | (((uint64)XFLAG_AS_1()) << 32); res = ROL_33_64(res, shift); FLAG_C = FLAG_X = res >> 24; res = MASK_OUT_ABOVE_32(res); *r_dst = res; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; #else uint* r_dst = &DY; uint shift = (((REG_IR >> 9) - 1) & 7) + 1; uint src = *r_dst; uint res = MASK_OUT_ABOVE_32((ROL_33(src, shift) & ~(1 << (shift - 1))) | (XFLAG_AS_1() << (shift - 1))); uint new_x_flag = src & (1 << (32 - shift)); *r_dst = res; FLAG_C = FLAG_X = (new_x_flag != 0)<<8; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; #endif } M68KMAKE_OP(roxl, 8, r, .) { uint* r_dst = &DY; uint orig_shift = DX & 0x3f; if(orig_shift != 0) { uint shift = orig_shift % 9; uint src = MASK_OUT_ABOVE_8(*r_dst); uint res = ROL_9(src | (XFLAG_AS_1() << 8), shift); USE_CYCLES(orig_shift<> 8; res = MASK_OUT_ABOVE_16(res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = FLAG_X; FLAG_N = NFLAG_16(*r_dst); FLAG_Z = MASK_OUT_ABOVE_16(*r_dst); FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(roxl, 32, r, .) { #if M68K_USE_64_BIT uint* r_dst = &DY; uint orig_shift = DX & 0x3f; if(orig_shift != 0) { uint shift = orig_shift % 33; uint64 src = *r_dst; uint64 res = src | (((uint64)XFLAG_AS_1()) << 32); res = ROL_33_64(res, shift); USE_CYCLES(orig_shift<> 24; res = MASK_OUT_ABOVE_32(res); *r_dst = res; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; return; } FLAG_C = FLAG_X; FLAG_N = NFLAG_32(*r_dst); FLAG_Z = *r_dst; FLAG_V = VFLAG_CLEAR; #else uint* r_dst = &DY; uint orig_shift = DX & 0x3f; uint shift = orig_shift % 33; uint src = *r_dst; uint res = MASK_OUT_ABOVE_32((ROL_33(src, shift) & ~(1 << (shift - 1))) | (XFLAG_AS_1() << (shift - 1))); uint new_x_flag = src & (1 << (32 - shift)); if(orig_shift != 0) USE_CYCLES(orig_shift<> 8; res = MASK_OUT_ABOVE_16(res); m68ki_write_16(ea, res); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(rtd, 32, ., .) { if(CPU_TYPE_IS_010_PLUS(CPU_TYPE)) { uint new_pc = m68ki_pull_32(); m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ REG_A[7] = MASK_OUT_ABOVE_32(REG_A[7] + MAKE_INT_16(OPER_I_16())); m68ki_jump(new_pc); return; } m68ki_exception_illegal(); } M68KMAKE_OP(rte, 32, ., .) { if(FLAG_S) { uint new_sr; uint new_pc; uint format_word; m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ if(CPU_TYPE_IS_000(CPU_TYPE)) { new_sr = m68ki_pull_16(); new_pc = m68ki_pull_32(); m68ki_jump(new_pc); m68ki_set_sr(new_sr); CPU_INSTR_MODE = INSTRUCTION_YES; CPU_RUN_MODE = RUN_MODE_NORMAL; return; } if(CPU_TYPE_IS_010(CPU_TYPE)) { format_word = m68ki_read_16(REG_A[7]+6) >> 12; if(format_word == 0) { new_sr = m68ki_pull_16(); new_pc = m68ki_pull_32(); m68ki_fake_pull_16(); /* format word */ m68ki_jump(new_pc); m68ki_set_sr(new_sr); CPU_INSTR_MODE = INSTRUCTION_YES; CPU_RUN_MODE = RUN_MODE_NORMAL; return; } CPU_INSTR_MODE = INSTRUCTION_YES; CPU_RUN_MODE = RUN_MODE_NORMAL; /* Not handling bus fault (9) */ m68ki_exception_format_error(); return; } /* Otherwise it's 020 */ rte_loop: format_word = m68ki_read_16(REG_A[7]+6) >> 12; switch(format_word) { case 0: /* Normal */ new_sr = m68ki_pull_16(); new_pc = m68ki_pull_32(); m68ki_fake_pull_16(); /* format word */ m68ki_jump(new_pc); m68ki_set_sr(new_sr); CPU_INSTR_MODE = INSTRUCTION_YES; CPU_RUN_MODE = RUN_MODE_NORMAL; return; case 1: /* Throwaway */ new_sr = m68ki_pull_16(); m68ki_fake_pull_32(); /* program counter */ m68ki_fake_pull_16(); /* format word */ m68ki_set_sr_noint(new_sr); goto rte_loop; case 2: /* Trap */ new_sr = m68ki_pull_16(); new_pc = m68ki_pull_32(); m68ki_fake_pull_16(); /* format word */ m68ki_fake_pull_32(); /* address */ m68ki_jump(new_pc); m68ki_set_sr(new_sr); CPU_INSTR_MODE = INSTRUCTION_YES; CPU_RUN_MODE = RUN_MODE_NORMAL; return; } /* Not handling long or short bus fault */ CPU_INSTR_MODE = INSTRUCTION_YES; CPU_RUN_MODE = RUN_MODE_NORMAL; m68ki_exception_format_error(); return; } m68ki_exception_privilege_violation(); } M68KMAKE_OP(rtm, 32, ., .) { if(CPU_TYPE_IS_020_VARIANT(CPU_TYPE)) { m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ M68K_DO_LOG((M68K_LOG_FILEHANDLE "%s at %08x: called unimplemented instruction %04x (%s)\n", m68ki_cpu_names[CPU_TYPE], ADDRESS_68K(REG_PC - 2), REG_IR, m68k_disassemble_quick(ADDRESS_68K(REG_PC - 2)))); return; } m68ki_exception_illegal(); } M68KMAKE_OP(rtr, 32, ., .) { m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_set_ccr(m68ki_pull_16()); m68ki_jump(m68ki_pull_32()); } M68KMAKE_OP(rts, 32, ., .) { m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ m68ki_jump(m68ki_pull_32()); } M68KMAKE_OP(sbcd, 8, rr, .) { uint* r_dst = &DX; uint src = DY; uint dst = *r_dst; uint res = LOW_NIBBLE(dst) - LOW_NIBBLE(src) - XFLAG_AS_1(); FLAG_V = ~res; /* Undefined V behavior */ if(res > 9) res -= 6; res += HIGH_NIBBLE(dst) - HIGH_NIBBLE(src); FLAG_X = FLAG_C = (res > 0x99) << 8; if(FLAG_C) res += 0xa0; res = MASK_OUT_ABOVE_8(res); FLAG_V &= res; /* Undefined V behavior part II */ FLAG_N = NFLAG_8(res); /* Undefined N behavior */ FLAG_Z |= res; *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; } M68KMAKE_OP(sbcd, 8, mm, ax7) { uint src = OPER_AY_PD_8(); uint ea = EA_A7_PD_8(); uint dst = m68ki_read_8(ea); uint res = LOW_NIBBLE(dst) - LOW_NIBBLE(src) - XFLAG_AS_1(); FLAG_V = ~res; /* Undefined V behavior */ if(res > 9) res -= 6; res += HIGH_NIBBLE(dst) - HIGH_NIBBLE(src); FLAG_X = FLAG_C = (res > 0x99) << 8; if(FLAG_C) res += 0xa0; res = MASK_OUT_ABOVE_8(res); FLAG_V &= res; /* Undefined V behavior part II */ FLAG_N = NFLAG_8(res); /* Undefined N behavior */ FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(sbcd, 8, mm, ay7) { uint src = OPER_A7_PD_8(); uint ea = EA_AX_PD_8(); uint dst = m68ki_read_8(ea); uint res = LOW_NIBBLE(dst) - LOW_NIBBLE(src) - XFLAG_AS_1(); FLAG_V = ~res; /* Undefined V behavior */ if(res > 9) res -= 6; res += HIGH_NIBBLE(dst) - HIGH_NIBBLE(src); FLAG_X = FLAG_C = (res > 0x99) << 8; if(FLAG_C) res += 0xa0; res = MASK_OUT_ABOVE_8(res); FLAG_V &= res; /* Undefined V behavior part II */ FLAG_N = NFLAG_8(res); /* Undefined N behavior */ FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(sbcd, 8, mm, axy7) { uint src = OPER_A7_PD_8(); uint ea = EA_A7_PD_8(); uint dst = m68ki_read_8(ea); uint res = LOW_NIBBLE(dst) - LOW_NIBBLE(src) - XFLAG_AS_1(); FLAG_V = ~res; /* Undefined V behavior */ if(res > 9) res -= 6; res += HIGH_NIBBLE(dst) - HIGH_NIBBLE(src); FLAG_X = FLAG_C = (res > 0x99) << 8; if(FLAG_C) res += 0xa0; res = MASK_OUT_ABOVE_8(res); FLAG_V &= res; /* Undefined V behavior part II */ FLAG_N = NFLAG_8(res); /* Undefined N behavior */ FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(sbcd, 8, mm, .) { uint src = OPER_AY_PD_8(); uint ea = EA_AX_PD_8(); uint dst = m68ki_read_8(ea); uint res = LOW_NIBBLE(dst) - LOW_NIBBLE(src) - XFLAG_AS_1(); FLAG_V = ~res; /* Undefined V behavior */ if(res > 9) res -= 6; res += HIGH_NIBBLE(dst) - HIGH_NIBBLE(src); FLAG_X = FLAG_C = (res > 0x99) << 8; if(FLAG_C) res += 0xa0; res = MASK_OUT_ABOVE_8(res); FLAG_V &= res; /* Undefined V behavior part II */ FLAG_N = NFLAG_8(res); /* Undefined N behavior */ FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(st, 8, ., d) { DY |= 0xff; } M68KMAKE_OP(st, 8, ., .) { m68ki_write_8(M68KMAKE_GET_EA_AY_8, 0xff); } M68KMAKE_OP(sf, 8, ., d) { DY &= 0xffffff00; } M68KMAKE_OP(sf, 8, ., .) { m68ki_write_8(M68KMAKE_GET_EA_AY_8, 0); } M68KMAKE_OP(scc, 8, ., d) { if(M68KMAKE_CC) { DY |= 0xff; USE_CYCLES(CYC_SCC_R_TRUE); return; } DY &= 0xffffff00; } M68KMAKE_OP(scc, 8, ., .) { m68ki_write_8(M68KMAKE_GET_EA_AY_8, M68KMAKE_CC ? 0xff : 0); } M68KMAKE_OP(stop, 0, ., .) { if(FLAG_S) { uint new_sr = OPER_I_16(); m68ki_trace_t0(); /* auto-disable (see m68kcpu.h) */ CPU_STOPPED |= STOP_LEVEL_STOP; m68ki_set_sr(new_sr); if(m68ki_remaining_cycles >= CYC_INSTRUCTION[REG_IR]) m68ki_remaining_cycles = CYC_INSTRUCTION[REG_IR]; else USE_ALL_CYCLES(); return; } m68ki_exception_privilege_violation(); } M68KMAKE_OP(sub, 8, er, d) { uint* r_dst = &DX; uint src = MASK_OUT_ABOVE_8(DY); uint dst = MASK_OUT_ABOVE_8(*r_dst); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_8(res); *r_dst = MASK_OUT_BELOW_8(*r_dst) | FLAG_Z; } M68KMAKE_OP(sub, 8, er, .) { uint* r_dst = &DX; uint src = M68KMAKE_GET_OPER_AY_8; uint dst = MASK_OUT_ABOVE_8(*r_dst); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_8(res); *r_dst = MASK_OUT_BELOW_8(*r_dst) | FLAG_Z; } M68KMAKE_OP(sub, 16, er, d) { uint* r_dst = &DX; uint src = MASK_OUT_ABOVE_16(DY); uint dst = MASK_OUT_ABOVE_16(*r_dst); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_16(res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | FLAG_Z; } M68KMAKE_OP(sub, 16, er, a) { uint* r_dst = &DX; uint src = MASK_OUT_ABOVE_16(AY); uint dst = MASK_OUT_ABOVE_16(*r_dst); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_16(res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | FLAG_Z; } M68KMAKE_OP(sub, 16, er, .) { uint* r_dst = &DX; uint src = M68KMAKE_GET_OPER_AY_16; uint dst = MASK_OUT_ABOVE_16(*r_dst); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_16(res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | FLAG_Z; } M68KMAKE_OP(sub, 32, er, d) { uint* r_dst = &DX; uint src = DY; uint dst = *r_dst; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_X = FLAG_C = CFLAG_SUB_32(src, dst, res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_32(res); *r_dst = FLAG_Z; } M68KMAKE_OP(sub, 32, er, a) { uint* r_dst = &DX; uint src = AY; uint dst = *r_dst; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_X = FLAG_C = CFLAG_SUB_32(src, dst, res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_32(res); *r_dst = FLAG_Z; } M68KMAKE_OP(sub, 32, er, .) { uint* r_dst = &DX; uint src = M68KMAKE_GET_OPER_AY_32; uint dst = *r_dst; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_X = FLAG_C = CFLAG_SUB_32(src, dst, res); FLAG_V = VFLAG_SUB_32(src, dst, res); FLAG_Z = MASK_OUT_ABOVE_32(res); *r_dst = FLAG_Z; } M68KMAKE_OP(sub, 8, re, .) { uint ea = M68KMAKE_GET_EA_AY_8; uint src = MASK_OUT_ABOVE_8(DX); uint dst = m68ki_read_8(ea); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); m68ki_write_8(ea, FLAG_Z); } M68KMAKE_OP(sub, 16, re, .) { uint ea = M68KMAKE_GET_EA_AY_16; uint src = MASK_OUT_ABOVE_16(DX); uint dst = m68ki_read_16(ea); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); m68ki_write_16(ea, FLAG_Z); } M68KMAKE_OP(sub, 32, re, .) { uint ea = M68KMAKE_GET_EA_AY_32; uint src = DX; uint dst = m68ki_read_32(ea); uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_X = FLAG_C = CFLAG_SUB_32(src, dst, res); FLAG_V = VFLAG_SUB_32(src, dst, res); m68ki_write_32(ea, FLAG_Z); } M68KMAKE_OP(suba, 16, ., d) { uint* r_dst = &AX; *r_dst = MASK_OUT_ABOVE_32(*r_dst - MAKE_INT_16(DY)); } M68KMAKE_OP(suba, 16, ., a) { uint* r_dst = &AX; *r_dst = MASK_OUT_ABOVE_32(*r_dst - MAKE_INT_16(AY)); } M68KMAKE_OP(suba, 16, ., .) { signed short src = MAKE_INT_16(M68KMAKE_GET_OPER_AY_16); uint* r_dst = &AX; *r_dst = MASK_OUT_ABOVE_32(*r_dst - src); } M68KMAKE_OP(suba, 32, ., d) { uint* r_dst = &AX; *r_dst = MASK_OUT_ABOVE_32(*r_dst - DY); } M68KMAKE_OP(suba, 32, ., a) { uint* r_dst = &AX; *r_dst = MASK_OUT_ABOVE_32(*r_dst - AY); } M68KMAKE_OP(suba, 32, ., .) { uint src = M68KMAKE_GET_OPER_AY_32; uint* r_dst = &AX; *r_dst = MASK_OUT_ABOVE_32(*r_dst - src); } M68KMAKE_OP(subi, 8, ., d) { uint* r_dst = &DY; uint src = OPER_I_8(); uint dst = MASK_OUT_ABOVE_8(*r_dst); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); *r_dst = MASK_OUT_BELOW_8(*r_dst) | FLAG_Z; } M68KMAKE_OP(subi, 8, ., .) { uint src = OPER_I_8(); uint ea = M68KMAKE_GET_EA_AY_8; uint dst = m68ki_read_8(ea); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); m68ki_write_8(ea, FLAG_Z); } M68KMAKE_OP(subi, 16, ., d) { uint* r_dst = &DY; uint src = OPER_I_16(); uint dst = MASK_OUT_ABOVE_16(*r_dst); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | FLAG_Z; } M68KMAKE_OP(subi, 16, ., .) { uint src = OPER_I_16(); uint ea = M68KMAKE_GET_EA_AY_16; uint dst = m68ki_read_16(ea); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); m68ki_write_16(ea, FLAG_Z); } M68KMAKE_OP(subi, 32, ., d) { uint* r_dst = &DY; uint src = OPER_I_32(); uint dst = *r_dst; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_X = FLAG_C = CFLAG_SUB_32(src, dst, res); FLAG_V = VFLAG_SUB_32(src, dst, res); *r_dst = FLAG_Z; } M68KMAKE_OP(subi, 32, ., .) { uint src = OPER_I_32(); uint ea = M68KMAKE_GET_EA_AY_32; uint dst = m68ki_read_32(ea); uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_X = FLAG_C = CFLAG_SUB_32(src, dst, res); FLAG_V = VFLAG_SUB_32(src, dst, res); m68ki_write_32(ea, FLAG_Z); } M68KMAKE_OP(subq, 8, ., d) { uint* r_dst = &DY; uint src = (((REG_IR >> 9) - 1) & 7) + 1; uint dst = MASK_OUT_ABOVE_8(*r_dst); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); *r_dst = MASK_OUT_BELOW_8(*r_dst) | FLAG_Z; } M68KMAKE_OP(subq, 8, ., .) { uint src = (((REG_IR >> 9) - 1) & 7) + 1; uint ea = M68KMAKE_GET_EA_AY_8; uint dst = m68ki_read_8(ea); uint res = dst - src; FLAG_N = NFLAG_8(res); FLAG_Z = MASK_OUT_ABOVE_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); m68ki_write_8(ea, FLAG_Z); } M68KMAKE_OP(subq, 16, ., d) { uint* r_dst = &DY; uint src = (((REG_IR >> 9) - 1) & 7) + 1; uint dst = MASK_OUT_ABOVE_16(*r_dst); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); *r_dst = MASK_OUT_BELOW_16(*r_dst) | FLAG_Z; } M68KMAKE_OP(subq, 16, ., a) { uint* r_dst = &AY; *r_dst = MASK_OUT_ABOVE_32(*r_dst - ((((REG_IR >> 9) - 1) & 7) + 1)); } M68KMAKE_OP(subq, 16, ., .) { uint src = (((REG_IR >> 9) - 1) & 7) + 1; uint ea = M68KMAKE_GET_EA_AY_16; uint dst = m68ki_read_16(ea); uint res = dst - src; FLAG_N = NFLAG_16(res); FLAG_Z = MASK_OUT_ABOVE_16(res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); m68ki_write_16(ea, FLAG_Z); } M68KMAKE_OP(subq, 32, ., d) { uint* r_dst = &DY; uint src = (((REG_IR >> 9) - 1) & 7) + 1; uint dst = *r_dst; uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_X = FLAG_C = CFLAG_SUB_32(src, dst, res); FLAG_V = VFLAG_SUB_32(src, dst, res); *r_dst = FLAG_Z; } M68KMAKE_OP(subq, 32, ., a) { uint* r_dst = &AY; *r_dst = MASK_OUT_ABOVE_32(*r_dst - ((((REG_IR >> 9) - 1) & 7) + 1)); } M68KMAKE_OP(subq, 32, ., .) { uint src = (((REG_IR >> 9) - 1) & 7) + 1; uint ea = M68KMAKE_GET_EA_AY_32; uint dst = m68ki_read_32(ea); uint res = dst - src; FLAG_N = NFLAG_32(res); FLAG_Z = MASK_OUT_ABOVE_32(res); FLAG_X = FLAG_C = CFLAG_SUB_32(src, dst, res); FLAG_V = VFLAG_SUB_32(src, dst, res); m68ki_write_32(ea, FLAG_Z); } M68KMAKE_OP(subx, 8, rr, .) { uint* r_dst = &DX; uint src = MASK_OUT_ABOVE_8(DY); uint dst = MASK_OUT_ABOVE_8(*r_dst); uint res = dst - src - XFLAG_AS_1(); FLAG_N = NFLAG_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; *r_dst = MASK_OUT_BELOW_8(*r_dst) | res; } M68KMAKE_OP(subx, 16, rr, .) { uint* r_dst = &DX; uint src = MASK_OUT_ABOVE_16(DY); uint dst = MASK_OUT_ABOVE_16(*r_dst); uint res = dst - src - XFLAG_AS_1(); FLAG_N = NFLAG_16(res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); res = MASK_OUT_ABOVE_16(res); FLAG_Z |= res; *r_dst = MASK_OUT_BELOW_16(*r_dst) | res; } M68KMAKE_OP(subx, 32, rr, .) { uint* r_dst = &DX; uint src = DY; uint dst = *r_dst; uint res = dst - src - XFLAG_AS_1(); FLAG_N = NFLAG_32(res); FLAG_X = FLAG_C = CFLAG_SUB_32(src, dst, res); FLAG_V = VFLAG_SUB_32(src, dst, res); res = MASK_OUT_ABOVE_32(res); FLAG_Z |= res; *r_dst = res; } M68KMAKE_OP(subx, 8, mm, ax7) { uint src = OPER_AY_PD_8(); uint ea = EA_A7_PD_8(); uint dst = m68ki_read_8(ea); uint res = dst - src - XFLAG_AS_1(); FLAG_N = NFLAG_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(subx, 8, mm, ay7) { uint src = OPER_A7_PD_8(); uint ea = EA_AX_PD_8(); uint dst = m68ki_read_8(ea); uint res = dst - src - XFLAG_AS_1(); FLAG_N = NFLAG_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(subx, 8, mm, axy7) { uint src = OPER_A7_PD_8(); uint ea = EA_A7_PD_8(); uint dst = m68ki_read_8(ea); uint res = dst - src - XFLAG_AS_1(); FLAG_N = NFLAG_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(subx, 8, mm, .) { uint src = OPER_AY_PD_8(); uint ea = EA_AX_PD_8(); uint dst = m68ki_read_8(ea); uint res = dst - src - XFLAG_AS_1(); FLAG_N = NFLAG_8(res); FLAG_X = FLAG_C = CFLAG_8(res); FLAG_V = VFLAG_SUB_8(src, dst, res); res = MASK_OUT_ABOVE_8(res); FLAG_Z |= res; m68ki_write_8(ea, res); } M68KMAKE_OP(subx, 16, mm, .) { uint src = OPER_AY_PD_16(); uint ea = EA_AX_PD_16(); uint dst = m68ki_read_16(ea); uint res = dst - src - XFLAG_AS_1(); FLAG_N = NFLAG_16(res); FLAG_X = FLAG_C = CFLAG_16(res); FLAG_V = VFLAG_SUB_16(src, dst, res); res = MASK_OUT_ABOVE_16(res); FLAG_Z |= res; m68ki_write_16(ea, res); } M68KMAKE_OP(subx, 32, mm, .) { uint src = OPER_AY_PD_32(); uint ea = EA_AX_PD_32(); uint dst = m68ki_read_32(ea); uint res = dst - src - XFLAG_AS_1(); FLAG_N = NFLAG_32(res); FLAG_X = FLAG_C = CFLAG_SUB_32(src, dst, res); FLAG_V = VFLAG_SUB_32(src, dst, res); res = MASK_OUT_ABOVE_32(res); FLAG_Z |= res; m68ki_write_32(ea, res); } M68KMAKE_OP(swap, 32, ., .) { uint* r_dst = &DY; FLAG_Z = MASK_OUT_ABOVE_32(*r_dst<<16); *r_dst = (*r_dst>>16) | FLAG_Z; FLAG_Z = *r_dst; FLAG_N = NFLAG_32(*r_dst); FLAG_C = CFLAG_CLEAR; FLAG_V = VFLAG_CLEAR; } M68KMAKE_OP(tas, 8, ., d) { uint* r_dst = &DY; FLAG_Z = MASK_OUT_ABOVE_8(*r_dst); FLAG_N = NFLAG_8(*r_dst); FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; *r_dst |= 0x80; } M68KMAKE_OP(tas, 8, ., .) { uint ea = M68KMAKE_GET_EA_AY_8; uint dst = m68ki_read_8(ea); FLAG_Z = dst; FLAG_N = NFLAG_8(dst); FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; m68ki_write_8(ea, dst | 0x80); } M68KMAKE_OP(trap, 0, ., .) { /* Trap#n stacks exception frame type 0 */ m68ki_exception_trapN(EXCEPTION_TRAP_BASE + (REG_IR & 0xf)); /* HJB 990403 */ } M68KMAKE_OP(trapt, 0, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { m68ki_exception_trap(EXCEPTION_TRAPV); /* HJB 990403 */ return; } m68ki_exception_illegal(); } M68KMAKE_OP(trapt, 16, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { m68ki_exception_trap(EXCEPTION_TRAPV); /* HJB 990403 */ return; } m68ki_exception_illegal(); } M68KMAKE_OP(trapt, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { m68ki_exception_trap(EXCEPTION_TRAPV); /* HJB 990403 */ return; } m68ki_exception_illegal(); } M68KMAKE_OP(trapf, 0, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { return; } m68ki_exception_illegal(); } M68KMAKE_OP(trapf, 16, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { REG_PC += 2; return; } m68ki_exception_illegal(); } M68KMAKE_OP(trapf, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { REG_PC += 4; return; } m68ki_exception_illegal(); } M68KMAKE_OP(trapcc, 0, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { if(M68KMAKE_CC) m68ki_exception_trap(EXCEPTION_TRAPV); /* HJB 990403 */ return; } m68ki_exception_illegal(); } M68KMAKE_OP(trapcc, 16, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { if(M68KMAKE_CC) { m68ki_exception_trap(EXCEPTION_TRAPV); /* HJB 990403 */ return; } REG_PC += 2; return; } m68ki_exception_illegal(); } M68KMAKE_OP(trapcc, 32, ., .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { if(M68KMAKE_CC) { m68ki_exception_trap(EXCEPTION_TRAPV); /* HJB 990403 */ return; } REG_PC += 4; return; } m68ki_exception_illegal(); } M68KMAKE_OP(trapv, 0, ., .) { if(COND_VC()) { return; } m68ki_exception_trap(EXCEPTION_TRAPV); /* HJB 990403 */ } M68KMAKE_OP(tst, 8, ., d) { uint res = MASK_OUT_ABOVE_8(DY); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(tst, 8, ., .) { uint res = M68KMAKE_GET_OPER_AY_8; FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(tst, 8, ., pcdi) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint res = OPER_PCDI_8(); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_illegal(); } M68KMAKE_OP(tst, 8, ., pcix) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint res = OPER_PCIX_8(); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_illegal(); } M68KMAKE_OP(tst, 8, ., i) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint res = OPER_I_8(); FLAG_N = NFLAG_8(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_illegal(); } M68KMAKE_OP(tst, 16, ., d) { uint res = MASK_OUT_ABOVE_16(DY); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(tst, 16, ., a) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint res = MAKE_INT_16(AY); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_illegal(); } M68KMAKE_OP(tst, 16, ., .) { uint res = M68KMAKE_GET_OPER_AY_16; FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(tst, 16, ., pcdi) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint res = OPER_PCDI_16(); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_illegal(); } M68KMAKE_OP(tst, 16, ., pcix) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint res = OPER_PCIX_16(); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_illegal(); } M68KMAKE_OP(tst, 16, ., i) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint res = OPER_I_16(); FLAG_N = NFLAG_16(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_illegal(); } M68KMAKE_OP(tst, 32, ., d) { uint res = DY; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(tst, 32, ., a) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint res = AY; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_illegal(); } M68KMAKE_OP(tst, 32, ., .) { uint res = M68KMAKE_GET_OPER_AY_32; FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; } M68KMAKE_OP(tst, 32, ., pcdi) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint res = OPER_PCDI_32(); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_illegal(); } M68KMAKE_OP(tst, 32, ., pcix) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint res = OPER_PCIX_32(); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_illegal(); } M68KMAKE_OP(tst, 32, ., i) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint res = OPER_I_32(); FLAG_N = NFLAG_32(res); FLAG_Z = res; FLAG_V = VFLAG_CLEAR; FLAG_C = CFLAG_CLEAR; return; } m68ki_exception_illegal(); } M68KMAKE_OP(unlk, 32, ., a7) { REG_A[7] = m68ki_read_32(REG_A[7]); } M68KMAKE_OP(unlk, 32, ., .) { uint* r_dst = &AY; REG_A[7] = *r_dst; *r_dst = m68ki_pull_32(); } M68KMAKE_OP(unpk, 16, rr, .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { /* Note: DX and DY are reversed in Motorola's docs */ uint src = DY; uint* r_dst = &DX; *r_dst = MASK_OUT_BELOW_16(*r_dst) | (((((src << 4) & 0x0f00) | (src & 0x000f)) + OPER_I_16()) & 0xffff); return; } m68ki_exception_illegal(); } M68KMAKE_OP(unpk, 16, mm, ax7) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { /* Note: AX and AY are reversed in Motorola's docs */ uint src = OPER_AY_PD_8(); uint ea_dst; src = (((src << 4) & 0x0f00) | (src & 0x000f)) + OPER_I_16(); ea_dst = EA_A7_PD_8(); m68ki_write_8(ea_dst, (src >> 8) & 0xff); ea_dst = EA_A7_PD_8(); m68ki_write_8(ea_dst, src & 0xff); return; } m68ki_exception_illegal(); } M68KMAKE_OP(unpk, 16, mm, ay7) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { /* Note: AX and AY are reversed in Motorola's docs */ uint src = OPER_A7_PD_8(); uint ea_dst; src = (((src << 4) & 0x0f00) | (src & 0x000f)) + OPER_I_16(); ea_dst = EA_AX_PD_8(); m68ki_write_8(ea_dst, (src >> 8) & 0xff); ea_dst = EA_AX_PD_8(); m68ki_write_8(ea_dst, src & 0xff); return; } m68ki_exception_illegal(); } M68KMAKE_OP(unpk, 16, mm, axy7) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { uint src = OPER_A7_PD_8(); uint ea_dst; src = (((src << 4) & 0x0f00) | (src & 0x000f)) + OPER_I_16(); ea_dst = EA_A7_PD_8(); m68ki_write_8(ea_dst, (src >> 8) & 0xff); ea_dst = EA_A7_PD_8(); m68ki_write_8(ea_dst, src & 0xff); return; } m68ki_exception_illegal(); } M68KMAKE_OP(unpk, 16, mm, .) { if(CPU_TYPE_IS_EC020_PLUS(CPU_TYPE)) { /* Note: AX and AY are reversed in Motorola's docs */ uint src = OPER_AY_PD_8(); uint ea_dst; src = (((src << 4) & 0x0f00) | (src & 0x000f)) + OPER_I_16(); ea_dst = EA_AX_PD_8(); m68ki_write_8(ea_dst, (src >> 8) & 0xff); ea_dst = EA_AX_PD_8(); m68ki_write_8(ea_dst, src & 0xff); return; } m68ki_exception_illegal(); } XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX M68KMAKE_END