jens
ea60299d26
git-svn-id: http://moon:8086/svn/vhdl/trunk@1414 cc03376c-175c-47c8-b038-4cd826a8556b
227 lines
8.6 KiB
VHDL
227 lines
8.6 KiB
VHDL
-------------------------------------------------------------------------
|
|
-- Project: JCPU, a portable 8-bit RISC CPU written in VHDL
|
|
-- This file: The ROM file for use in your VHDL design
|
|
--
|
|
-- Copyright (C) 2007 J. Ahrensfeld
|
|
--
|
|
-- This program is free software: you can redistribute it and/or modify
|
|
-- it under the terms of the GNU General Public License as published by
|
|
-- the Free Software Foundation, either version 3 of the License, or
|
|
-- (at your option) any later version.
|
|
--
|
|
-- This program is distributed in the hope that it will be useful,
|
|
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
-- GNU General Public License for more details.
|
|
--
|
|
-- You should have received a copy of the GNU General Public License
|
|
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
--
|
|
-- For questions and ideas, please contact the author at jens@jayfield.org
|
|
--
|
|
--------------------------------------------------------------------------
|
|
|
|
LIBRARY ieee;
|
|
use IEEE.STD_LOGIC_1164.ALL;
|
|
USE ieee.numeric_std.ALL;
|
|
|
|
library work;
|
|
use work.cpu_pkg.all;
|
|
|
|
-- JASM_ROM_INSERT_HERE
|
|
ENTITY irom IS
|
|
Port (
|
|
clk : in STD_LOGIC;
|
|
ce : in STD_LOGIC;
|
|
addr : in inst_addr_t;
|
|
dout : out inst_t
|
|
);
|
|
END irom;
|
|
|
|
ARCHITECTURE sdram_test_short OF irom IS
|
|
|
|
type imem_rom_t is array (0 to 164) of inst_t;
|
|
|
|
-- Assembled from sdram_test_short.jsm
|
|
constant imem_rom : imem_rom_t :=
|
|
(
|
|
"110000" & X"002", -- 0x000: JMP 0x002
|
|
"111111" & X"000", -- 0x001: RETI
|
|
"000011" & X"000", -- 0x002: MOV R00, 0x00
|
|
"100100" & X"010", -- 0x003: XOUT (0x01), R00
|
|
"000011" & X"040", -- 0x004: MOV R00, 0x04
|
|
"100100" & X"040", -- 0x005: XOUT (0x04), R00
|
|
"000011" & X"000", -- 0x006: MOV R00, 0x00
|
|
"000011" & X"801", -- 0x007: MOV R01, 0x80
|
|
"100100" & X"100", -- 0x008: XOUT (0x10), R00
|
|
"100100" & X"111", -- 0x009: XOUT (0x11), R01
|
|
"100100" & X"120", -- 0x00A: XOUT (0x12), R00
|
|
"110000" & X"026", -- 0x00B: JMP 0x026
|
|
"111011" & X"07D", -- 0x00C: CALL 0x07D
|
|
"000011" & X"800", -- 0x00D: MOV R00, 0x80
|
|
"000011" & X"08F", -- 0x00E: MOV R15, 0x08
|
|
"000111" & X"000", -- 0x00F: MOVX (R00), 0x00
|
|
"010001" & X"010", -- 0x010: INC R00
|
|
"010101" & X"01F", -- 0x011: DEC R15
|
|
"110010" & X"00F", -- 0x012: JNZ 0x00F
|
|
"101000" & X"080", -- 0x013: XIN R00, (0x08)
|
|
"001111" & X"400", -- 0x014: CMP R00, 0x40
|
|
"111001" & X"025", -- 0x015: JEQ 0x025
|
|
"000011" & X"082", -- 0x016: MOV R02, 0x08
|
|
"101000" & X"070", -- 0x017: XIN R00, (0x07)
|
|
"100100" & X"010", -- 0x018: XOUT (0x01), R00
|
|
"011001" & X"040", -- 0x019: AND R00, 0x04
|
|
"110010" & X"017", -- 0x01A: JNZ 0x017
|
|
"000011" & X"100", -- 0x01B: MOV R00, 0x10
|
|
"100100" & X"070", -- 0x01C: XOUT (0x07), R00
|
|
"010101" & X"022", -- 0x01D: SUB R02, 0x02
|
|
"110010" & X"017", -- 0x01E: JNZ 0x017
|
|
"111011" & X"072", -- 0x01F: CALL 0x072
|
|
"000011" & X"060", -- 0x020: MOV R00, 0x06
|
|
"100100" & X"070", -- 0x021: XOUT (0x07), R00
|
|
"000011" & X"080", -- 0x022: MOV R00, 0x08
|
|
"111011" & X"084", -- 0x023: CALL 0x084
|
|
"110000" & X"013", -- 0x024: JMP 0x013
|
|
"111011" & X"094", -- 0x025: CALL 0x094
|
|
"111011" & X"07D", -- 0x026: CALL 0x07D
|
|
"000011" & X"000", -- 0x027: MOV R00, 0x00
|
|
"001101" & X"000", -- 0x028: MOVC (0x00), R00
|
|
"101000" & X"080", -- 0x029: XIN R00, (0x08)
|
|
"001111" & X"400", -- 0x02A: CMP R00, 0x40
|
|
"111001" & X"046", -- 0x02B: JEQ 0x046
|
|
"000011" & X"082", -- 0x02C: MOV R02, 0x08
|
|
"001010" & X"001", -- 0x02D: MOVC R01, (0x00)
|
|
"000011" & X"800", -- 0x02E: MOV R00, 0x80
|
|
"000011" & X"08F", -- 0x02F: MOV R15, 0x08
|
|
"000110" & X"001", -- 0x030: MOVX (R01), R00
|
|
"010001" & X"010", -- 0x031: INC R00
|
|
"010001" & X"011", -- 0x032: INC R01
|
|
"010101" & X"01F", -- 0x033: DEC R15
|
|
"110010" & X"030", -- 0x034: JNZ 0x030
|
|
"101000" & X"070", -- 0x035: XIN R00, (0x07)
|
|
"100100" & X"010", -- 0x036: XOUT (0x01), R00
|
|
"011001" & X"040", -- 0x037: AND R00, 0x04
|
|
"110010" & X"035", -- 0x038: JNZ 0x035
|
|
"000011" & X"100", -- 0x039: MOV R00, 0x10
|
|
"100100" & X"070", -- 0x03A: XOUT (0x07), R00
|
|
"001010" & X"000", -- 0x03B: MOVC R00, (0x00)
|
|
"010001" & X"010", -- 0x03C: INC R00
|
|
"001101" & X"000", -- 0x03D: MOVC (0x00), R00
|
|
"010101" & X"022", -- 0x03E: SUB R02, 0x02
|
|
"110010" & X"02D", -- 0x03F: JNZ 0x02D
|
|
"111011" & X"072", -- 0x040: CALL 0x072
|
|
"000011" & X"060", -- 0x041: MOV R00, 0x06
|
|
"100100" & X"070", -- 0x042: XOUT (0x07), R00
|
|
"000011" & X"080", -- 0x043: MOV R00, 0x08
|
|
"111011" & X"084", -- 0x044: CALL 0x084
|
|
"110000" & X"029", -- 0x045: JMP 0x029
|
|
"111011" & X"094", -- 0x046: CALL 0x094
|
|
"111011" & X"07D", -- 0x047: CALL 0x07D
|
|
"000011" & X"000", -- 0x048: MOV R00, 0x00
|
|
"001101" & X"000", -- 0x049: MOVC (0x00), R00
|
|
"101000" & X"0A0", -- 0x04A: XIN R00, (0x0A)
|
|
"001111" & X"400", -- 0x04B: CMP R00, 0x40
|
|
"111001" & X"07A", -- 0x04C: JEQ 0x07A
|
|
"111011" & X"072", -- 0x04D: CALL 0x072
|
|
"000011" & X"050", -- 0x04E: MOV R00, 0x05
|
|
"100100" & X"070", -- 0x04F: XOUT (0x07), R00
|
|
"000011" & X"083", -- 0x050: MOV R03, 0x08
|
|
"101000" & X"070", -- 0x051: XIN R00, (0x07)
|
|
"100100" & X"010", -- 0x052: XOUT (0x01), R00
|
|
"011001" & X"200", -- 0x053: AND R00, 0x20
|
|
"110010" & X"051", -- 0x054: JNZ 0x051
|
|
"001010" & X"001", -- 0x055: MOVC R01, (0x00)
|
|
"000011" & X"800", -- 0x056: MOV R00, 0x80
|
|
"000011" & X"08F", -- 0x057: MOV R15, 0x08
|
|
"000100" & X"002", -- 0x058: MOVX R02, (R00)
|
|
"001110" & X"012", -- 0x059: CMP R02, R01
|
|
"111010" & X"07B", -- 0x05A: JNE 0x07B
|
|
"010001" & X"010", -- 0x05B: INC R00
|
|
"010001" & X"011", -- 0x05C: INC R01
|
|
"010101" & X"01F", -- 0x05D: DEC R15
|
|
"110010" & X"058", -- 0x05E: JNZ 0x058
|
|
"000011" & X"200", -- 0x05F: MOV R00, 0x20
|
|
"100100" & X"070", -- 0x060: XOUT (0x07), R00
|
|
"001010" & X"000", -- 0x061: MOVC R00, (0x00)
|
|
"010001" & X"010", -- 0x062: INC R00
|
|
"001101" & X"000", -- 0x063: MOVC (0x00), R00
|
|
"010101" & X"023", -- 0x064: SUB R03, 0x02
|
|
"110010" & X"051", -- 0x065: JNZ 0x051
|
|
"000011" & X"080", -- 0x066: MOV R00, 0x08
|
|
"111011" & X"084", -- 0x067: CALL 0x084
|
|
"110000" & X"04A", -- 0x068: JMP 0x04A
|
|
"111100" & X"000", -- 0x069: PUSH R00
|
|
"000011" & X"800", -- 0x06A: MOV R00, 0x80
|
|
"100100" & X"070", -- 0x06B: XOUT (0x07), R00
|
|
"101000" & X"070", -- 0x06C: XIN R00, (0x07)
|
|
"100100" & X"010", -- 0x06D: XOUT (0x01), R00
|
|
"011001" & X"800", -- 0x06E: AND R00, 0x80
|
|
"110001" & X"06C", -- 0x06F: JZ 0x06C
|
|
"111101" & X"000", -- 0x070: POP R00
|
|
"111110" & X"000", -- 0x071: RET
|
|
"111011" & X"069", -- 0x072: CALL 0x069
|
|
"111100" & X"000", -- 0x073: PUSH R00
|
|
"101000" & X"070", -- 0x074: XIN R00, (0x07)
|
|
"100100" & X"010", -- 0x075: XOUT (0x01), R00
|
|
"011001" & X"010", -- 0x076: AND R00, 0x01
|
|
"110010" & X"074", -- 0x077: JNZ 0x074
|
|
"111101" & X"000", -- 0x078: POP R00
|
|
"111110" & X"000", -- 0x079: RET
|
|
"110000" & X"07C", -- 0x07A: JMP 0x07C
|
|
"110000" & X"07C", -- 0x07B: JMP 0x07C
|
|
"110000" & X"00C", -- 0x07C: JMP 0x00C
|
|
"111100" & X"000", -- 0x07D: PUSH R00
|
|
"000011" & X"000", -- 0x07E: MOV R00, 0x00
|
|
"100100" & X"080", -- 0x07F: XOUT (0x08), R00
|
|
"100100" & X"090", -- 0x080: XOUT (0x09), R00
|
|
"100100" & X"0A0", -- 0x081: XOUT (0x0A), R00
|
|
"111101" & X"000", -- 0x082: POP R00
|
|
"111110" & X"000", -- 0x083: RET
|
|
"111100" & X"001", -- 0x084: PUSH R01
|
|
"111100" & X"002", -- 0x085: PUSH R02
|
|
"111100" & X"003", -- 0x086: PUSH R03
|
|
"101000" & X"081", -- 0x087: XIN R01, (0x08)
|
|
"101000" & X"092", -- 0x088: XIN R02, (0x09)
|
|
"101000" & X"0A3", -- 0x089: XIN R03, (0x0A)
|
|
"010000" & X"001", -- 0x08A: ADD R01, R00
|
|
"010011" & X"002", -- 0x08B: ADDC R02, 0x00
|
|
"010011" & X"003", -- 0x08C: ADDC R03, 0x00
|
|
"100100" & X"081", -- 0x08D: XOUT (0x08), R01
|
|
"100100" & X"092", -- 0x08E: XOUT (0x09), R02
|
|
"100100" & X"0A3", -- 0x08F: XOUT (0x0A), R03
|
|
"111101" & X"003", -- 0x090: POP R03
|
|
"111101" & X"002", -- 0x091: POP R02
|
|
"111101" & X"001", -- 0x092: POP R01
|
|
"111110" & X"000", -- 0x093: RET
|
|
"111110" & X"000", -- 0x094: RET
|
|
"111110" & X"000", -- 0x095: RET
|
|
"111110" & X"000", -- 0x096: RET
|
|
"111110" & X"000", -- 0x097: RET
|
|
"011001" & X"0F0", -- 0x098: AND R00, 0x0F
|
|
"001111" & X"0A0", -- 0x099: CMP R00, 0x0A
|
|
"110101" & X"09C", -- 0x09A: JLT 0x09C
|
|
"010001" & X"070", -- 0x09B: ADD R00, 0x07
|
|
"010001" & X"300", -- 0x09C: ADD R00, 0x30
|
|
"111110" & X"000", -- 0x09D: RET
|
|
"111100" & X"000", -- 0x09E: PUSH R00
|
|
"111011" & X"098", -- 0x09F: CALL 0x098
|
|
"000010" & X"001", -- 0x0A0: MOV R01, R00
|
|
"111101" & X"000", -- 0x0A1: POP R00
|
|
"101010" & X"000", -- 0x0A2: SWAP R00
|
|
"111011" & X"098", -- 0x0A3: CALL 0x098
|
|
"111110" & X"000" -- 0x0A4: RET
|
|
);
|
|
|
|
begin
|
|
|
|
PROM_READ:
|
|
process(clk, ce)
|
|
begin
|
|
if rising_edge(clk) and ce = '1' then
|
|
dout <= imem_rom(to_integer(addr));
|
|
end if;
|
|
end process;
|
|
|
|
end sdram_test_short;
|
|
|