Subversion Repositories ssbcc

// Copyright 2013-2015, Sinclair R.F., Inc.

// short, human-readable versions of s_opcode suitable for waveform viewers

reg [3*8-1:0] s_opcode_name = "nop";

always @ (posedge i_clk)

  if (s_interrupt)

    s_opcode_name = "int"; // interrupt cycle

  else if (s_interrupted)

    s_opcode_name = "npi"; // nop induced by interrupt

  else casez (s_opcode)

    9'b00_0000_000 : s_opcode_name = "nop";

    9'b00_0000_001 : s_opcode_name = "<<0";

    9'b00_0000_010 : s_opcode_name = "<<1";

    9'b00_0000_011 : s_opcode_name = "<<m";

    9'b00_0000_100 : s_opcode_name = "0>>";

    9'b00_0000_101 : s_opcode_name = "1>>";

    9'b00_0000_110 : s_opcode_name = "m>>";

    9'b00_0000_111 : s_opcode_name = "l>>";

    9'b00_0001_000 : s_opcode_name = "dup";

    9'b00_0001_001 : s_opcode_name = "r@ ";

    9'b00_0001_010 : s_opcode_name = "ovr";

    9'b00_0001_011 : s_opcode_name = "+c ";

    9'b00_0001_111 : s_opcode_name = "-c ";

    9'b00_0010_010 : s_opcode_name = "swp";

    9'b00_0011_000 : s_opcode_name = "+  ";

    9'b00_0011_100 : s_opcode_name = "-  ";

    9'b00_0100_000 : s_opcode_name = "0= ";

    9'b00_0100_001 : s_opcode_name = "0<>";

    9'b00_0100_010 : s_opcode_name = "-1=";

    9'b00_0100_011 : s_opcode_name = "-1#";

    9'b00_0101_000 : s_opcode_name = "rtn";

    9'b00_0110_000 : s_opcode_name = "inp";

    9'b00_0111_000 : s_opcode_name = "out";

    9'b00_1000_000 : s_opcode_name = ">r ";

    9'b00_1001_001 : s_opcode_name = "r> ";

    9'b00_1010_000 : s_opcode_name = "&  ";

    9'b00_1010_001 : s_opcode_name = "or ";

    9'b00_1010_010 : s_opcode_name = "^  ";

    9'b00_1010_011 : s_opcode_name = "nip";

    9'b00_1010_100 : s_opcode_name = "drp";

    9'b00_1011_000 : s_opcode_name = "1+ ";

    9'b00_1011_100 : s_opcode_name = "1- ";

    9'b00_1100_000 : s_opcode_name = "s0 ";

    9'b00_1100_001 : s_opcode_name = "s1 ";

    9'b00_1100_010 : s_opcode_name = "s2 ";

    9'b00_1100_011 : s_opcode_name = "s3 ";

    9'b00_1101_000 : s_opcode_name = "@0 ";

    9'b00_1101_001 : s_opcode_name = "@1 ";

    9'b00_1101_010 : s_opcode_name = "@2 ";

    9'b00_1101_011 : s_opcode_name = "@3 ";

    9'b00_1110_000 : s_opcode_name = "s0+";

    9'b00_1110_001 : s_opcode_name = "s1+";

    9'b00_1110_010 : s_opcode_name = "s2+";

    9'b00_1110_011 : s_opcode_name = "s3+";

    9'b00_1110_100 : s_opcode_name = "s0-";

    9'b00_1110_101 : s_opcode_name = "s1-";

    9'b00_1110_110 : s_opcode_name = "s2-";

    9'b00_1110_111 : s_opcode_name = "s3-";

    9'b00_1111_000 : s_opcode_name = "@0+";

    9'b00_1111_001 : s_opcode_name = "@1+";

    9'b00_1111_010 : s_opcode_name = "@2+";

    9'b00_1111_011 : s_opcode_name = "@3+";

    9'b00_1111_100 : s_opcode_name = "@0-";

    9'b00_1111_101 : s_opcode_name = "@1-";

    9'b00_1111_110 : s_opcode_name = "@2-";

    9'b00_1111_111 : s_opcode_name = "@3-";

    9'b0_100_????? : s_opcode_name = "jp ";

    9'b0_110_????? : s_opcode_name = "cl ";

    9'b0_101_????? : s_opcode_name = "jpc";

    9'b0_111_????? : s_opcode_name = "clc";

    9'b1_????_???? : s_opcode_name = "psh";

           default : s_opcode_name = "INV";

  endcase