github.com/j-core.j-core-ice40
1
0
Fork 0
mirror of https://github.com/j-core/j-core-ice40.git synced 2026-01-11 23:52:49 +00:00
Code Issues Releases Wiki Activity
j-core.j-core-ice40/predecode_pkg.vhd
Rob Landley 11c1ba7c5a Separate out predecoder. (Mostly Jeff's work.)
2019-11-15 02:21:29 -06:00

276 lines
25 KiB
VHDL
Raw Permalink Blame History

-- ******************************************************************
-- ******************************************************************
-- ******************************************************************
-- This file is generated. Changing this file directly is probably
-- not what you want to do. Any changes will be overwritten next time
-- the generator is run.
-- ******************************************************************
-- ******************************************************************
-- ******************************************************************
library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
use work.decode_pack.all;
use work.cpu2j0_components_pack.all;
use work.mult_pkg.all;
package predecode_pack is
function predecode_rom_addr (code : std_logic_vector(15 downto 0)) return std_logic_vector;
end package;
package body predecode_pack is
function predecode_rom_addr (code : std_logic_vector(15 downto 0)) return std_logic_vector is
variable addr : std_logic_vector(7 downto 0);
begin
case code(15 downto 12) is
when x"0" =>
-- 0000 0000 0000 1000 => 00000000 CLRT
-- 0000 0000 0000 1001 => 00000011 NOP
-- 0000 0000 0000 1011 => 00001000 RTS
-- 0000 0000 0001 1000 => 00001010 SETT
-- 0000 0000 0001 1001 => 00000010 DIV0U
-- 0000 0000 0001 1011 => 00001011 SLEEP
-- 0000 0000 0010 1000 => 00000001 CLRMAC
-- 0000 0000 0010 1011 => 00000100 RTE
-- 0000 0000 0011 1011 => 00001111 BGND
-- 0000 mmmm 0000 0011 => 01001110 BSRF Rm
-- 0000 mmmm 0010 0011 => 01001100 BRAF Rm
-- 0000 nnnn 0000 0010 => 00100010 STC SR, Rn
-- 0000 nnnn 0000 1010 => 00100101 STS MACH, Rn
-- 0000 nnnn 0001 0010 => 00100011 STC GBR, Rn
-- 0000 nnnn 0001 1010 => 00100110 STS MACL, Rn
-- 0000 nnnn 0010 0010 => 00100100 STC VBR, Rn
-- 0000 nnnn 0010 1001 => 00010011 MOVT Rn
-- 0000 nnnn 0010 1010 => 00100111 STS PR, Rn
-- 0000 nnnn mmmm 0100 => 10001100 MOV.B Rm, @(R0, Rn)
-- 0000 nnnn mmmm 0101 => 10001101 MOV.W Rm, @(R0, Rn)
-- 0000 nnnn mmmm 0110 => 10001110 MOV.L Rm, @(R0, Rn)
-- 0000 nnnn mmmm 0111 => 01100111 MUL.L Rm, Rn
-- 0000 nnnn mmmm 1100 => 10001111 MOV.B @(R0, Rm), Rn
-- 0000 nnnn mmmm 1101 => 10010000 MOV.W @(R0, Rm), Rn
-- 0000 nnnn mmmm 1110 => 10010001 MOV.L @(R0, Rm), Rn
-- 0000 nnnn mmmm 1111 => 01111110 MAC.L @Rm+, @Rn+
addr(0) := not ((not code(11) and not code(10) and not code(9) and not code(8) and not code(7) and not code(6) and not code(5) and code(3) and not code(2) and not code(1) and not code(0)) or (not code(11) and not code(10) and not code(9) and not code(8) and not code(7) and not code(6) and not code(5) and code(4) and code(3) and not code(2) and not code(1)) or (not code(11) and not code(10) and not code(9) and not code(8) and not code(7) and not code(6) and not code(4) and code(3) and not code(2) and code(1) and code(0)) or (not code(7) and not code(6) and not code(4) and not code(3) and not code(2) and code(1)) or (not code(7) and not code(6) and not code(5) and code(4) and code(3) and not code(2) and code(1) and not code(0)) or (code(3) and code(2) and code(0)) or (not code(3) and code(2) and not code(0)));
addr(1) := not ((not code(11) and not code(10) and not code(9) and not code(8) and not code(7) and not code(6) and not code(4) and code(3) and not code(2) and not code(1) and not code(0)) or (not code(11) and not code(10) and not code(9) and not code(8) and not code(7) and not code(6) and not code(4) and code(3) and not code(2) and code(1) and code(0)) or (not code(7) and not code(6) and code(5) and not code(4) and not code(3) and not code(2) and code(1)) or (not code(7) and not code(6) and not code(5) and not code(4) and code(3) and not code(2) and code(1) and not code(0)) or (not code(3) and code(2) and not code(1)) or (code(2) and not code(1) and code(0)) or (code(3) and code(2) and code(1) and not code(0)));
addr(2) := not ((not code(11) and not code(10) and not code(9) and not code(8) and not code(7) and not code(6) and not code(4) and code(3) and not code(2) and not code(1) and not code(0)) or (not code(11) and not code(10) and not code(9) and not code(8) and not code(7) and not code(6) and not code(5) and code(3) and not code(2) and code(0)) or (not code(11) and not code(10) and not code(9) and not code(8) and not code(7) and not code(6) and not code(5) and code(3) and not code(2) and not code(1)) or (not code(7) and not code(6) and code(5) and not code(4) and code(3) and not code(2) and not code(1) and code(0)) or (not code(7) and not code(6) and not code(5) and not code(3) and not code(2) and code(1) and not code(0)) or (code(3) and code(2) and not code(1) and code(0)) or (code(3) and code(2) and code(1) and not code(0)));
addr(3) := ((not code(11) and not code(10) and not code(9) and not code(8) and not code(7) and not code(6) and not code(5) and code(3) and not code(2) and code(1) and code(0)) or (not code(11) and not code(10) and not code(9) and not code(8) and not code(7) and not code(6) and not code(5) and code(4) and code(3) and not code(2) and not code(1) and not code(0)) or (not code(11) and not code(10) and not code(9) and not code(8) and not code(7) and not code(6) and code(4) and code(3) and not code(2) and code(1) and code(0)) or (not code(7) and not code(6) and not code(4) and not code(3) and not code(2) and code(1) and code(0)) or (code(3) and code(2) and code(1) and code(0)) or (not code(3) and code(2) and not code(1)) or (not code(3) and code(2) and not code(0)) or (code(2) and not code(1) and not code(0)));
addr(4) := ((not code(7) and not code(6) and code(5) and not code(4) and code(3) and not code(2) and not code(1) and code(0)) or (code(3) and code(2) and code(0)) or (code(3) and code(2) and code(1)));
addr(5) := ((not code(7) and not code(6) and not code(5) and not code(2) and code(1) and not code(0)) or (not code(7) and not code(6) and not code(4) and not code(2) and code(1) and not code(0)) or (code(2) and code(1) and code(0)));
addr(6) := ((not code(7) and not code(6) and not code(4) and not code(3) and not code(2) and code(1) and code(0)) or (code(2) and code(1) and code(0)));
addr(7) := ((code(2) and not code(1)) or (code(2) and not code(0)));
when x"1" =>
-- 0001 nnnn mmmm dddd => 10010110 MOV.L Rm, @(disp, Rn)
addr := x"96";
when x"2" =>
-- 0010 nnnn mmmm 0000 => 01111000 MOV.B Rm, @Rn
-- 0010 nnnn mmmm 0001 => 01111001 MOV.W Rm, @Rn
-- 0010 nnnn mmmm 0010 => 01111010 MOV.L Rm, @Rn
-- 0010 nnnn mmmm 0011 => 01011010 CAS.L Rm, Rn, @R0
-- 0010 nnnn mmmm 0100 => 10001001 MOV.B Rm,@-Rn
-- 0010 nnnn mmmm 0101 => 10001010 MOV.W Rm,@-Rn
-- 0010 nnnn mmmm 0110 => 10001011 MOV.L Rm,@-Rn
-- 0010 nnnn mmmm 0111 => 01011111 DIV0S Rm, Rn
-- 0010 nnnn mmmm 1000 => 01110011 TST Rm, Rn
-- 0010 nnnn mmmm 1001 => 01010011 AND Rm, Rn
-- 0010 nnnn mmmm 1010 => 01110100 XOR Rm, Rn
-- 0010 nnnn mmmm 1011 => 01101101 OR Rm, Rn
-- 0010 nnnn mmmm 1100 => 01011001 CMP /STR Rm, Rn
-- 0010 nnnn mmmm 1101 => 01110101 XTRACT Rm, Rn
-- 0010 nnnn mmmm 1110 => 01101001 MULU.W Rm, Rn
-- 0010 nnnn mmmm 1111 => 01101000 MULS.W Rm, Rn
addr(0) := not ((not code(3) and not code(2) and code(1)) or (code(3) and code(2) and code(1) and code(0)) or (not code(2) and code(1) and not code(0)) or (not code(3) and not code(2) and not code(0)) or (not code(3) and code(2) and not code(1) and code(0)));
addr(1) := ((code(3) and not code(2) and not code(1)) or (not code(3) and code(1)) or (not code(3) and code(2) and code(0)));
addr(2) := ((not code(3) and code(2) and code(1) and code(0)) or (code(3) and not code(2) and code(1)) or (code(3) and code(2) and not code(1) and code(0)));
addr(3) := not ((code(3) and not code(2) and not code(0)) or (code(3) and not code(1) and code(0)));
addr(4) := not ((code(3) and code(1) and code(0)) or (not code(3) and code(2) and not code(1)) or (code(2) and code(1) and not code(0)));
addr(5) := not ((code(3) and not code(2) and not code(1) and code(0)) or (code(2) and not code(1) and not code(0)) or (not code(3) and code(1) and code(0)) or (not code(3) and code(2)));
addr(6) := not ((not code(3) and code(2) and not code(1)) or (not code(3) and code(2) and not code(0)));
addr(7) := ((not code(3) and code(2) and not code(1)) or (not code(3) and code(2) and not code(0)));
when x"3" =>
-- 0011 nnnn mmmm 0000 => 01010100 CMP /EQ Rm, Rn
-- 0011 nnnn mmmm 0010 => 01010101 CMP /HS Rm, Rn
-- 0011 nnnn mmmm 0011 => 01010110 CMP /GE Rm, Rn
-- 0011 nnnn mmmm 0100 => 01011110 DIV1 Rm, Rn
-- 0011 nnnn mmmm 0101 => 01100001 DMULU.L Rm, Rn
-- 0011 nnnn mmmm 0110 => 01010111 CMP /HI Rm, Rn
-- 0011 nnnn mmmm 0111 => 01011000 CMP /GT Rm, Rn
-- 0011 nnnn mmmm 1000 => 01101110 SUB Rm, Rn
-- 0011 nnnn mmmm 1010 => 01101111 SUBC Rm, Rn
-- 0011 nnnn mmmm 1011 => 01110000 SUBV Rm, Rn
-- 0011 nnnn mmmm 1100 => 01010000 ADD Rm, Rn
-- 0011 nnnn mmmm 1101 => 01100000 DMULS.L Rm, Rn
-- 0011 nnnn mmmm 1110 => 01010001 ADDC Rm, Rn
-- 0011 nnnn mmmm 1111 => 01010010 ADDV Rm, Rn
addr(0) := ((code(1) and not code(0)) or (not code(3) and code(2) and not code(1) and code(0)));
addr(1) := ((code(3) and code(2) and code(1) and code(0)) or (not code(3) and not code(2) and code(1) and code(0)) or (not code(3) and code(2) and not code(0)) or (code(3) and not code(2) and not code(0)));
addr(2) := not ((code(3) and code(2)) or (code(2) and code(0)) or (code(3) and code(1) and code(0)));
addr(3) := ((not code(3) and code(2) and code(1) and code(0)) or (not code(3) and code(2) and not code(1) and not code(0)) or (code(3) and not code(2) and not code(0)));
addr(4) := not ((code(2) and not code(1) and code(0)) or (code(3) and not code(2) and not code(0)));
addr(5) := ((code(2) and not code(1) and code(0)) or (code(3) and not code(2) and not code(0)) or (code(3) and not code(2) and code(1)));
addr(6) := '1';
addr(7) := '0';
when x"4" =>
-- 0100 mmmm 0000 0110 => 01001000 LDS.L @Rm+, MACH
-- 0100 mmmm 0000 0111 => 00111111 LDC.L @Rm+, SR
-- 0100 mmmm 0000 1010 => 00111000 LDS Rm, MACH
-- 0100 mmmm 0000 1011 => 00111101 JSR @Rm
-- 0100 mmmm 0000 1110 => 00110101 LDC Rm, SR
-- 0100 mmmm 0001 0110 => 01001001 LDS.L @Rm+, MACL
-- 0100 mmmm 0001 0111 => 01000010 LDC.L @Rm+, GBR
-- 0100 mmmm 0001 1010 => 00111001 LDS Rm, MACL
-- 0100 mmmm 0001 1110 => 00110110 LDC, Rm, GBR
-- 0100 mmmm 0010 0110 => 01001010 LDS.L @Rm+, PR
-- 0100 mmmm 0010 0111 => 01000101 LDC.L @Rm+, VBR
-- 0100 mmmm 0010 1010 => 00111010 LDS Rm, PR
-- 0100 mmmm 0010 1011 => 00111011 JMP @Rm
-- 0100 mmmm 0010 1110 => 00110111 LDC Rm, VBR
-- 0100 nnnn 0000 0000 => 00011010 SHLL Rn
-- 0100 nnnn 0000 0001 => 00011011 SHLR Rn
-- 0100 nnnn 0000 0010 => 00110010 STS.L MACH, @-Rn
-- 0100 nnnn 0000 0011 => 00101100 STC.L SR, @-Rn
-- 0100 nnnn 0000 0100 => 00010100 ROTL Rn
-- 0100 nnnn 0000 0101 => 00010101 ROTR Rn
-- 0100 nnnn 0000 1000 => 00011100 SHLL2 Rn
-- 0100 nnnn 0000 1001 => 00011101 SHLR2 Rn
-- 0100 nnnn 0001 0000 => 00010010 DT Rn
-- 0100 nnnn 0001 0001 => 00010001 CMP/PZ Rn
-- 0100 nnnn 0001 0010 => 00110011 STS.L MACL, @-Rn
-- 0100 nnnn 0001 0011 => 00101110 STC.L GBR, @-Rn
-- 0100 nnnn 0001 0101 => 00010000 CMP/PL Rn
-- 0100 nnnn 0001 1000 => 00011110 SHLL8 Rn
-- 0100 nnnn 0001 1001 => 00011111 SHLR8 Rn
-- 0100 nnnn 0001 1011 => 00101000 TAS.B @Rn
-- 0100 nnnn 0010 0000 => 00011000 SHAL Rn
-- 0100 nnnn 0010 0001 => 00011001 SHAR Rn
-- 0100 nnnn 0010 0010 => 00110100 STS.L PR, @-Rn
-- 0100 nnnn 0010 0011 => 00110000 STC.L VBR, @-Rn
-- 0100 nnnn 0010 0100 => 00010110 ROTCL Rn
-- 0100 nnnn 0010 0101 => 00010111 ROTCR Rn
-- 0100 nnnn 0010 1000 => 00100000 SHLL16 Rn
-- 0100 nnnn 0010 1001 => 00100001 SHLR16 Rn
-- 0100 nnnn mmmm 1100 => 01110110 SHAD Rm, Rn
-- 0100 nnnn mmmm 1101 => 01110111 SHLD Rm, Rn
-- 0100 nnnn mmmm 1111 => 10000001 MAC.W @Rm+, @Rn+
addr(0) := not ((not code(7) and not code(6) and not code(5) and code(4) and not code(3) and code(2) and code(0)) or (not code(7) and not code(6) and not code(5) and not code(2) and not code(1) and not code(0)) or (not code(7) and not code(6) and not code(4) and not code(3) and not code(0)) or (not code(7) and not code(6) and not code(4) and not code(2) and not code(0)) or (not code(7) and not code(6) and not code(5) and code(4) and not code(2) and code(1) and code(0)) or (not code(7) and not code(6) and not code(4) and not code(3) and not code(2) and code(1)) or (not code(7) and not code(6) and not code(5) and code(4) and code(3) and code(2) and code(1) and not code(0)) or (code(3) and code(2) and not code(1) and not code(0)));
addr(1) := not ((not code(7) and not code(6) and not code(5) and code(4) and not code(3) and not code(1) and code(0)) or (not code(7) and not code(6) and not code(5) and code(3) and not code(2) and code(1)) or (not code(7) and not code(6) and code(5) and not code(4) and not code(3) and not code(2)) or (not code(7) and not code(6) and code(5) and not code(4) and not code(3) and code(1) and code(0)) or (not code(7) and not code(6) and not code(5) and not code(3) and code(2) and code(1) and not code(0)) or (code(3) and code(2) and code(1) and code(0)) or (not code(7) and not code(6) and not code(4) and code(3) and not code(2) and not code(1)) or (not code(7) and not code(6) and not code(5) and not code(4) and not code(3) and code(2) and not code(1)) or (not code(7) and not code(6) and not code(4) and not code(3) and not code(2) and code(1) and code(0)) or (not code(7) and not code(6) and not code(5) and not code(4) and code(3) and code(1) and not code(0)));
addr(2) := ((not code(7) and not code(6) and not code(4) and not code(3) and code(2) and not code(1)) or (not code(7) and not code(6) and not code(5) and code(3) and not code(2) and not code(1)) or (not code(7) and not code(6) and not code(5) and not code(3) and not code(2) and code(1) and code(0)) or (not code(7) and not code(6) and code(5) and not code(4) and not code(3) and not code(2) and code(1) and not code(0)) or (not code(7) and not code(6) and not code(5) and code(3) and code(2) and code(1) and not code(0)) or (not code(7) and not code(6) and not code(4) and code(3) and code(2) and code(1) and not code(0)) or (not code(7) and not code(6) and not code(4) and not code(3) and code(2) and code(0)) or (code(3) and code(2) and not code(1)) or (not code(7) and not code(6) and not code(5) and not code(4) and code(3) and not code(2) and code(0)));
addr(3) := ((not code(7) and not code(6) and not code(4) and not code(3) and not code(2) and not code(1)) or (not code(7) and not code(6) and not code(5) and code(3) and not code(2)) or (not code(7) and not code(6) and not code(5) and not code(2) and code(1) and code(0)) or (not code(7) and not code(6) and not code(4) and code(3) and not code(2) and code(1)) or (not code(7) and not code(6) and not code(5) and not code(3) and code(2) and code(1) and not code(0)) or (not code(7) and not code(6) and not code(4) and not code(3) and code(2) and code(1) and not code(0)) or (not code(7) and not code(6) and not code(5) and not code(4) and not code(3) and code(1) and code(0)));
addr(4) := not ((not code(7) and not code(6) and code(5) and not code(4) and code(3) and not code(2) and not code(1)) or (not code(7) and not code(6) and not code(5) and code(4) and not code(2) and code(1) and code(0)) or (not code(7) and not code(6) and not code(5) and not code(3) and not code(2) and code(1) and code(0)) or (not code(7) and not code(6) and code(5) and not code(4) and not code(3) and code(2) and code(1)) or (code(3) and code(2) and code(1) and code(0)) or (not code(7) and not code(6) and not code(5) and not code(3) and code(2) and code(1) and not code(0)) or (not code(7) and not code(6) and not code(5) and code(4) and not code(3) and code(1) and code(0)));
addr(5) := not ((not code(7) and not code(6) and not code(5) and not code(2) and not code(1)) or (not code(7) and not code(6) and not code(4) and not code(3) and not code(1)) or (not code(7) and not code(6) and code(5) and not code(4) and not code(3) and code(2)) or (code(3) and code(2) and code(1) and code(0)) or (not code(7) and not code(6) and not code(5) and not code(3) and code(2) and code(1) and not code(0)) or (not code(7) and not code(6) and not code(5) and code(4) and not code(3) and code(2) and code(0)));
addr(6) := ((not code(7) and not code(6) and not code(5) and code(4) and not code(3) and code(2) and code(1)) or (not code(7) and not code(6) and code(5) and not code(4) and not code(3) and code(2) and code(1)) or (code(3) and code(2) and not code(1)) or (not code(7) and not code(6) and not code(5) and not code(3) and code(2) and code(1) and not code(0)));
addr(7) := ((code(3) and code(2) and code(1) and code(0)));
when x"5" =>
-- 0101 nnnn mmmm dddd => 10010111 MOV.L @(disp, Rm), Rn
addr := x"97";
when x"6" =>
-- 0110 nnnn mmmm 0000 => 01111011 MOV.B @Rm, Rn
-- 0110 nnnn mmmm 0001 => 01111100 MOV.W @Rm, Rn
-- 0110 nnnn mmmm 0010 => 01111101 MOV.L @Rm, Rn
-- 0110 nnnn mmmm 0011 => 01100110 MOV Rm, Rn
-- 0110 nnnn mmmm 0100 => 10000011 MOV.B @Rm+, Rn
-- 0110 nnnn mmmm 0101 => 10000101 MOV.W @Rm+, Rn
-- 0110 nnnn mmmm 0110 => 10000111 MOV.L @Rm+, Rn
-- 0110 nnnn mmmm 0111 => 01101100 NOT Rm, Rn
-- 0110 nnnn mmmm 1000 => 01110001 SWAP.B Rm, Rn
-- 0110 nnnn mmmm 1001 => 01110010 SWAP.W Rm, Rn
-- 0110 nnnn mmmm 1010 => 01101011 NEGC Rm, Rn
-- 0110 nnnn mmmm 1011 => 01101010 NEG Rm, Rn
-- 0110 nnnn mmmm 1100 => 01100100 EXTU.B Rm, Rn
-- 0110 nnnn mmmm 1101 => 01100101 EXTU.W Rm, Rn
-- 0110 nnnn mmmm 1110 => 01100010 EXTS.B Rm, Rn
-- 0110 nnnn mmmm 1111 => 01100011 EXTS.W Rm, Rn
addr(0) := not ((code(3) and code(2) and not code(0)) or (not code(2) and code(0)) or (not code(3) and code(1) and code(0)));
addr(1) := not ((not code(3) and code(2) and code(0)) or (code(3) and not code(1) and not code(0)) or (not code(3) and not code(1) and code(0)) or (not code(3) and not code(2) and code(1) and not code(0)) or (code(3) and code(2) and not code(1)));
addr(2) := not ((code(3) and code(1)) or (code(3) and not code(2)) or (not code(3) and not code(1) and not code(0)));
addr(3) := ((code(3) and not code(2) and code(1)) or (not code(3) and code(2) and code(1) and code(0)) or (not code(3) and not code(2) and not code(1)) or (not code(3) and not code(2) and not code(0)));
addr(4) := ((not code(2) and not code(1)) or (not code(3) and not code(2) and not code(0)));
addr(5) := not ((not code(3) and code(2) and not code(1)) or (not code(3) and code(2) and not code(0)));
addr(6) := not ((not code(3) and code(2) and not code(1)) or (not code(3) and code(2) and not code(0)));
addr(7) := ((not code(3) and code(2) and not code(1)) or (not code(3) and code(2) and not code(0)));
when x"7" =>
-- 0111 nnnn iiii iiii => 11000111 ADD #imm, Rn
addr := x"c7";
when x"8" =>
-- 1000 0000 nnnn dddd => 10010100 MOV.B R0, @(disp, Rn)
-- 1000 0001 nnnn dddd => 10010101 MOV.W R0, @(disp, Rn)
-- 1000 0100 mmmm dddd => 10010010 MOV.B @(disp, Rm), R0
-- 1000 0101 mmmm dddd => 10010011 MOV.W @(disp, Rm), R0
-- 1000 1000 iiii iiii => 10111100 CMP /EQ #imm, R0
-- 1000 1001 dddd dddd => 10100100 BT label
-- 1000 1011 dddd dddd => 10011111 BF label
-- 1000 1101 dddd dddd => 10100111 BT /S label
-- 1000 1111 dddd dddd => 10100010 BF /S label
addr(0) := not ((not code(11) and not code(9) and not code(8)) or (code(11) and code(10) and code(9) and code(8)) or (code(11) and not code(10) and not code(9)));
addr(1) := not ((not code(10) and not code(9)));
addr(2) := not ((not code(11) and code(10) and not code(9)) or (code(11) and code(10) and code(9) and code(8)));
addr(3) := ((code(11) and not code(10) and code(9) and code(8)) or (code(11) and not code(10) and not code(9) and not code(8)));
addr(4) := not ((code(11) and code(10) and code(8)) or (code(11) and not code(9) and code(8)));
addr(5) := not ((not code(11) and not code(9)) or (code(11) and not code(10) and code(9) and code(8)));
addr(6) := '0';
addr(7) := '1';
when x"9" =>
-- 1001 nnnn dddd dddd => 10101101 MOV.W @(disp, PC), Rn
addr := x"ad";
when x"a" =>
-- 1010 dddd dddd dddd => 10101001 BRA label
addr := x"a9";
when x"b" =>
-- 1011 dddd dddd dddd => 10101011 BSR label
addr := x"ab";
when x"c" =>
-- 1100 0000 dddd dddd => 10011000 MOV.B R0, @(disp, GBR)
-- 1100 0001 dddd dddd => 10011001 MOV.W R0, @(disp, GBR)
-- 1100 0010 dddd dddd => 10011010 MOV.L R0, @(disp, GBR)
-- 1100 0011 iiii iiii => 11000000 TRAPA #imm
-- 1100 0100 dddd dddd => 10011011 MOV.B @(disp, GBR), R0
-- 1100 0101 dddd dddd => 10011100 MOV.W @(disp, GBR), R0
-- 1100 0110 dddd dddd => 10011101 MOV.L @(disp, GBR), R0
-- 1100 0111 dddd dddd => 10011110 MOVA @(disp, PC), R0
-- 1100 1000 iiii iiii => 10111110 TST #imm, R0
-- 1100 1001 iiii iiii => 10111011 AND #imm, R0
-- 1100 1010 iiii iiii => 10111111 XOR #imm, R0
-- 1100 1011 iiii iiii => 10111101 OR #imm, R0
-- 1100 1100 iiii iiii => 10110101 TST.B #imm, @(R0, GBR)
-- 1100 1101 iiii iiii => 10101111 AND.B #imm, @(R0, GBR)
-- 1100 1110 iiii iiii => 10111000 XOR.B #imm, @(R0, GBR)
-- 1100 1111 iiii iiii => 10110010 OR.B #imm, @(R0, GBR)
addr(0) := not ((not code(11) and code(10) and code(8)) or (code(11) and code(10) and code(9)) or (not code(10) and not code(9) and not code(8)) or (not code(11) and not code(10) and code(9)));
addr(1) := not ((not code(11) and not code(10) and not code(9)) or (not code(11) and not code(9) and code(8)) or (code(10) and code(9) and not code(8)) or (code(11) and code(10) and not code(8)) or (not code(10) and code(9) and code(8)));
addr(2) := not ((not code(11) and not code(10)) or (not code(11) and not code(9) and not code(8)) or (code(11) and code(10) and code(9)) or (not code(10) and not code(9) and code(8)));
addr(3) := not ((code(11) and code(10) and code(9) and code(8)) or (code(11) and code(10) and not code(9) and not code(8)) or (not code(11) and not code(10) and code(9) and code(8)));
addr(4) := not ((code(11) and code(10) and not code(9) and code(8)) or (not code(11) and not code(10) and code(9) and code(8)));
addr(5) := not (not code(11));
addr(6) := ((not code(11) and not code(10) and code(9) and code(8)));
addr(7) := '1';
when x"d" =>
-- 1101 nnnn dddd dddd => 10101110 MOV.L @(disp, PC), Rn
addr := x"ae";
when x"e" =>
-- 1110 nnnn iiii iiii => 11001000 MOV #imm, Rn
addr := x"c8";
when others =>
addr := x"ff";
end case;
return addr;
end;
end;
Reference in New Issue View Git Blame Copy Permalink