Subversion Repositories socgen

   





   

   
reg [7*8-1:0]  A_instr;
reg [10*8-1:0] A_state;
reg [3*8-1:0]  A_alu_mode;
reg [3*8-1:0]  A_alu_op_a_sel;
reg [3*8-1:0]  A_alu_op_b_inv;
reg [3*8-1:0]  A_alu_op_b_sel;
reg [3*8-1:0]  A_alu_op_c_sel;
reg [4*8-1:0]  A_alu_status_update;
reg [3*8-1:0]  A_dest;
reg [7*8-1:0]  A_ctrl;
reg [8*8-1:0]  A_cmd;
reg [5*8-1:0]  A_ins_type;
reg [3*8-1:0]  A_idx_sel;      


   always@(posedge clk) 
    begin
    if (enable && now_fetch_op)
       begin
        if(prog_counter[0])
         begin
         $display("%t  %h   %h     %h",$realtime,prog_counter,prog_data[15:8],addr);
         end
        else
         begin
         $display("%t  %h   %h     %h",$realtime,prog_counter,prog_data[7:0],addr);
         end
       end
    end


always @(*) begin
   case  (state)

      `FETCH_OP:     A_state = "FETCH_OP  ";
       `EXECUTE:     A_state = "EXECUTE   ";
         `EXE_1:     A_state = "EXE_1     ";
         `AXE_1:     A_state = "AXE_1     ";
         `AXE_2:     A_state = "AXE_2     ";     
         `IDX_1:     A_state = "IDX_1     ";
         `IDX_2:     A_state = "IDX_2     ";
         `IDX_3:     A_state = "IDX_3     ";
         `IDY_1:     A_state = "IDY_1     ";
         `IDY_2:     A_state = "IDY_2     ";
         `IDY_3:     A_state = "IDY_3     ";
         `RESET:     A_state = "RESET     ";
          `HALT:     A_state = "HALT      ";
         `INT_2:     A_state = "INT_2     ";
         `INT_1:     A_state = "INT_1     ";
        default:     A_state = "-XXXXXXXX-";                
   endcase    
end
   



   
always @(*) begin
   case  (ir)
     `ADC_IMM:
      begin
      A_instr = "ADC_IMM";
      end
 
     `ADC_ZPG:
      begin
      A_instr = "ADC_ZPG";
      end 

     `ADC_ZPX:
      begin
      A_instr = "ADC_ZPX";
      end 

     `ADC_ABS:
      begin
      A_instr = "ADC_ABS";
      end 

     `ADC_ABX:
      begin
      A_instr = "ADC_ABX";
      end 

     `ADC_ABY:
      begin
      A_instr = "ADC_ABY";
      end 
 
     `ADC_IDX:
      begin
      A_instr = "ADC_IDX";
      end 

     `ADC_IDY:
      begin
      A_instr = "ADC_IDY";
      end 

     `AND_IMM:
      begin
      A_instr = "AND_IMM";
      end 

     `AND_ZPG:
      begin
      A_instr = "AND_ZPG";
      end 

     `AND_ZPX:
      begin
      A_instr = "AND_ZPX";
      end 

     `AND_ABS:
      begin
      A_instr = "AND_ABS";
      end 

     `AND_ABX:
      begin
      A_instr = "AND_ABX";
      end 

     `AND_ABY:
      begin
      A_instr = "AND_ABY";
      end 

     `AND_IDX:
      begin
      A_instr = "AND_IDX";
      end 

     `AND_IDY:
      begin
      A_instr = "AND_IDY";
      end 

     `ASL_ACC:
      begin
      A_instr = "ASL_ACC";
      end 

     `ASL_ZPG:
      begin
      A_instr = "ASL_ZPG";
      end 

     `ASL_ZPX:
      begin
      A_instr = "ASL_ZPX";
      end 

     `ASL_ABS:
      begin
      A_instr = "ASL_ABS";
      end 

     `ASL_ABX:
      begin
      A_instr = "ASL_ABX";
      end 

     `BCC_REL:
      begin
      A_instr = "BCC_REL";
      end 

     `BCS_REL:
      begin
      A_instr = "BCS_REL";
      end 

     `BEQ_REL:
      begin
      A_instr = "BEQ_REL";
      end 

     `BIT_ZPG:
      begin
      A_instr = "BIT_ZPG";
      end 

     `BIT_ABS:
      begin
      A_instr = "BIT_ABS";
      end 

     `BMI_REL:
      begin
      A_instr = "BMI_REL";
      end 

     `BNE_REL:
      begin
      A_instr = "BNE_REL";
      end 

     `BPL_REL:
      begin
      A_instr = "BPL_REL";
      end 

     `BRK_IMP:
      begin
      A_instr = "BRK_IMP";
      end 

     `BVC_REL:
      begin
      A_instr = "BVC_REL";
      end 

     `BVS_REL:
      begin
      A_instr = "BVS_REL";
      end 

     `CLC_IMP:
      begin
      A_instr = "CLC_IMP";
      end 

     `CLD_IMP:
      begin
      A_instr = "CLD_IMP";
      end 

     `CLI_IMP:
      begin
      A_instr = "CLI_IMP";
      end 

     `CLV_IMP:
      begin
      A_instr = "CLV_IMP";
      end 

     `CMP_IMM:
      begin
      A_instr = "CMP_IMM";
      end 

     `CMP_ZPG:
      begin
      A_instr = "CMP_ZPG";
      end 

     `CMP_ZPX:
      begin
      A_instr = "CMP_ZPX";
      end 

     `CMP_ABS:
      begin
      A_instr = "CMP_ABS";
      end 

     `CMP_ABX:
      begin
      A_instr = "CMP_ABX";
      end 

     `CMP_ABY:
      begin
      A_instr = "CMP_ABY";
      end 

     `CMP_IDX:
      begin
      A_instr = "CMP_IDX";
      end 

     `CMP_IDY:
      begin
      A_instr = "CMP_IDY";
      end 

     `CPX_IMM:
      begin
      A_instr = "CPX_IMM";
      end 

     `CPX_ZPG:
      begin
      A_instr = "CPX_ZPG";
      end 

     `CPX_ABS:
      begin
      A_instr = "CPX_ABS";
      end 

     `CPY_IMM:
      begin
      A_instr = "CPY_IMM";
      end 

     `CPY_ZPG:
      begin
      A_instr = "CPY_ZPG";
      end 

     `CPY_ABS:
      begin
      A_instr = "CPY_ABS";
      end 

     `DEC_ZPG:
      begin
      A_instr = "DEC_ZPG";
      end


     `DEC_ZPX:
      begin
      A_instr = "DEC_ZPX";
      end 

     `DEC_ABS:
      begin
      A_instr = "DEC_ABS";
      end 

     `DEC_ABX:
      begin
      A_instr = "DEC_ABX";
      end 

     `DEX_IMP:
      begin
      A_instr = "DEX_IMP";
      end 

     `DEY_IMP:
      begin
      A_instr = "DEY_IMP";
      end 

     `EOR_IMM:
      begin
      A_instr = "EOR_IMM";
      end 

     `EOR_ZPG:
      begin
      A_instr = "EOR_ZPG";
      end 

     `EOR_ZPX:
      begin
      A_instr = "EOR_ZPX";
      end 

     `EOR_ABS:
      begin
      A_instr = "EOR_ABS";
      end 

     `EOR_ABX:
      begin
      A_instr = "EOR_ABX";
      end 

     `EOR_ABY:
      begin
      A_instr = "EOR_ABY";
      end 

     `EOR_IDX:
      begin
      A_instr = "EOR_IDX";
      end 

     `EOR_IDY:
      begin
      A_instr = "EOR_IDY";
      end 

     `INC_ZPG:
      begin
      A_instr = "INC_ZPG";
      end 

     `INC_ZPX:
      begin
      A_instr = "INC_ZPX";
      end 

     `INC_ABS:
      begin
      A_instr = "INC_ABS";
      end 

     `INC_ABX:
      begin
      A_instr = "INC_ABX";
      end 

     `INX_IMP:
      begin
      A_instr = "INX_IMP";
      end 

     `INY_IMP:
      begin
      A_instr = "INY_IMP";
      end 

     `JMP_ABS:
      begin
      A_instr = "JMP_ABS";
      end 

     `JMP_IND:
      begin
      A_instr = "JMP_IND";
      end 

     `JSR_ABS:
      begin
      A_instr = "JSR_ABS";
      end 

     `LDA_IMM:
      begin
      A_instr = "LDA_IMM";
      end 

     `LDA_ZPG:
      begin
      A_instr = "LDA_ZPG";
      end 

     `LDA_ZPX:
      begin
      A_instr = "LDA_ZPX";
      end 

     `LDA_ABS:
      begin
      A_instr = "LDA_ABS";
      end 

     `LDA_ABX:
      begin
      A_instr = "LDA_ABX";
      end 

     `LDA_ABY:
      begin
      A_instr = "LDA_ABY";
      end 

     `LDA_IDX:
      begin
      A_instr = "LDA_IDX";
      end 

     `LDA_IDY:
      begin
      A_instr = "LDA_IDY";
      end 

     `LDX_IMM:
      begin
      A_instr = "LDX_IMM";
      end 

     `LDX_ZPG:
      begin
      A_instr = "LDX_ZPG";
      end 

     `LDX_ZPY:
      begin
      A_instr = "LDX_ZPY";
      end 

     `LDX_ABS:
      begin
      A_instr = "LDX_ABS";
      end 

     `LDX_ABY:
      begin
      A_instr = "LDX_ABY";
      end 

     `LDY_IMM:
      begin
      A_instr = "LDY_IMM";
      end 

     `LDY_ZPG:
      begin
      A_instr = "LDY_ZPG";
      end 

     `LDY_ZPX:
      begin
      A_instr = "LDY_ZPX";
      end 

     `LDY_ABS:
      begin
      A_instr = "LDY_ABS";
      end 

     `LDY_ABX:
      begin
      A_instr = "LDY_ABX";
      end 

     `LSR_ACC:
      begin
      A_instr = "LSR_ACC";
      end 

     `LSR_ZPG:
      begin
      A_instr = "LSR_ZPG";
      end 

     `LSR_ZPX:
      begin
      A_instr = "LSR_ZPX";
      end 

     `LSR_ABS:
      begin
      A_instr = "LSR_ABS";
      end 

     `LSR_ABX:
      begin
      A_instr = "LSR_ABX";
      end 

     `NOP_IMP:
      begin
      A_instr = "NOP_IMP";
      end 

     `ORA_IMM:
      begin
      A_instr = "ORA_IMM";
      end 

     `ORA_ZPG:
      begin
      A_instr = "ORA_ZPG";
      end 

     `ORA_ZPX:
      begin
      A_instr = "ORA_ZPX";
      end 

     `ORA_ABS:
      begin
      A_instr = "ORA_ABS";
      end 

     `ORA_ABX:
      begin
      A_instr = "ORA_ABX";
      end 

     `ORA_ABY:
      begin
      A_instr = "ORA_ABY";
      end 

     `ORA_IDX:
      begin
      A_instr = "ORA_IDX";
      end 

     `ORA_IDY:
      begin
      A_instr = "ORA_IDY";
      end 

     `PHA_IMP:
      begin
      A_instr = "PHA_IMP";
      end 

     `PHP_IMP:
      begin
      A_instr = "PHP_IMP";
      end 

     `PLA_IMP:
      begin
      A_instr = "PLA_IMP";
      end 

     `PLP_IMP:
      begin
      A_instr = "PLP_IMP";
      end 

     `ROL_ACC:
      begin
      A_instr = "ROL_ACC";
      end 

     `ROL_ZPG:
      begin
      A_instr = "ROL_ZPG";
      end 

     `ROL_ZPX:
      begin
      A_instr = "ROL_ZPX";
      end 

     `ROL_ABS:
      begin
      A_instr = "ROL_ABS";
      end 

     `ROL_ABX:
      begin
      A_instr = "ROL_ABX";
      end 

     `ROR_ACC:
      begin
      A_instr = "ROR_ACC";
      end 

     `ROR_ZPG:
      begin
      A_instr = "ROR_ZPG";
      end 

     `ROR_ZPX:
      begin
      A_instr = "ROR_ZPX";
      end 

     `ROR_ABS:
      begin
      A_instr = "ROR_ABS";
      end 

     `ROR_ABX:
      begin
      A_instr = "ROR_ABX";
      end 

     `RTI_IMP:
      begin
      A_instr = "RTI_IMP";
      end 

     `RTS_IMP:
      begin
      A_instr = "RTS_IMP";
      end 

     `SBC_IMM:
      begin
      A_instr = "SBC_IMM";
      end 

     `SBC_ZPG:
      begin
      A_instr = "SBC_ZPG";
      end 

     `SBC_ZPX:
      begin
      A_instr = "SBC_ZPX";
      end 

     `SBC_ABS:
      begin
      A_instr = "SBC_ABS";
      end 

     `SBC_ABX:
      begin
      A_instr = "SBC_ABX";
      end 

     `SBC_ABY:
      begin
      A_instr = "SBC_ABY";
      end 

     `SBC_IDX:
      begin
      A_instr = "SBC_IDX";
      end 

     `SBC_IDY:
      begin
      A_instr = "SBC_IDY";
      end 

     `SEC_IMP:
      begin
      A_instr = "SEC_IMP";
      end 

     `SED_IMP:
      begin
      A_instr = "SED_IMP";
      end 

     `SEI_IMP:
      begin
      A_instr = "SEI_IMP";
      end 

     `STA_ZPG:
      begin
      A_instr = "STA_ZPG";
      end 

     `STA_ZPX:
      begin
      A_instr = "STA_ZPX";
      end 

     `STA_ABS:
      begin
      A_instr = "STA_ABS";
      end 

     `STA_ABX:
      begin
      A_instr = "STA_ABX";
      end 

     `STA_ABY:
      begin
      A_instr = "STA_ABY";
      end 

     `STA_IDX:
      begin
      A_instr = "STA_IDX";
      end 

     `STA_IDY:
      begin
      A_instr = "STA_IDY";
      end 

     `STX_ZPG:
      begin
      A_instr = "STX_ZPG";
      end 

     `STX_ZPY:
      begin
      A_instr = "STX_ZPY";
      end 

     `STX_ABS:
      begin
      A_instr = "STX_ABS";
      end 

     `STY_ZPG:
      begin
      A_instr = "STY_ZPG";
      end 

     `STY_ZPX:
      begin
      A_instr = "STY_ZPX";
      end 

     `STY_ABS:
      begin
      A_instr = "STY_ABS";
      end 

     `TAX_IMP:
      begin
      A_instr = "TAX_IMP";
      end 

     `TAY_IMP:
      begin
      A_instr = "TAY_IMP";
      end 

     `TXA_IMP:
      begin
      A_instr = "TXA_IMP";
      end 

     `TYA_IMP:
      begin
      A_instr = "TYA_IMP";
      end

      default:    A_instr = "XXX_XXX";
   endcase

end
   






   
always @(*) begin
   case  (alu_mode)
      `alu_mode_add:          begin    
                              A_alu_mode = "ADD";
                              end
      `alu_mode_and:          begin    
                              A_alu_mode = "AND";
                              end
      `alu_mode_orr:          begin    
                              A_alu_mode = "OR ";
                              end
      `alu_mode_eor:          begin    
                              A_alu_mode = "EOR";
                              end
      `alu_mode_sfl:          begin    
                              A_alu_mode = "SFL";
                              end
      `alu_mode_sfr:          begin    
                              A_alu_mode = "SFR";
                              end
     default:                begin
                              A_alu_mode = "XXX";
                              end
   endcase

end









   
   
// alu_op_a_sel


   
always @(*) begin
   case  (alu_op_a_sel)
      `alu_op_a_00:           begin    
                              A_alu_op_a_sel = "00 ";
                              end
      `alu_op_a_acc:          begin    
                              A_alu_op_a_sel = "ACC";
                              end
      `alu_op_a_x  :          begin    
                              A_alu_op_a_sel = " X ";
                              end
      `alu_op_a_y  :          begin    
                              A_alu_op_a_sel = " Y ";
                              end
      `alu_op_a_ff :          begin    
                              A_alu_op_a_sel = " FF ";
                              end
      `alu_op_a_psr:          begin    
                              A_alu_op_a_sel = "PSR";
                              end

      default:                begin
                              A_alu_op_a_sel = "XXX";
                              end
   endcase

end









   
// alu_op_b_sel


always @(*) begin
   case  (alu_op_b_sel)
      `alu_op_b_00:           begin    
                              A_alu_op_b_sel = " 0 ";
                              end
      `alu_op_b_opnd:         begin    
                              A_alu_op_b_sel = "OPR";
                              end
      `alu_op_b_stk:          begin    
                              A_alu_op_b_sel = "STK";
                              end
      `alu_op_b_imm:          begin    
                              A_alu_op_b_sel = "IMM";
                              end
      default:                begin
                              A_alu_op_b_sel = "XXX";
                              end
   endcase

end



   
// alu_op_b_inv


always @(*) begin
   case  (alu_op_b_inv)
      1'b1:                   begin    
                              A_alu_op_b_inv = "INV";
                              end
      1'b0:                   begin    
                              A_alu_op_b_inv = "   ";
                              end

      default:                begin
                              A_alu_op_b_inv = "XXX";
                              end
   endcase

end


   

// alu_op_c_sel


always @(*) begin
   case  (alu_op_c_sel)
      `alu_op_c_00:          A_alu_op_c_sel = " 0 ";
      `alu_op_c_01:          A_alu_op_c_sel = " 1 ";
      `alu_op_c_cin:         A_alu_op_c_sel = "CIN";    
      default:               A_alu_op_c_sel = "XXX";
                             
   endcase

end


   
// alu_status_update



always @(*) begin
   case  (alu_status_update)
      `alu_status_update_none:begin    
                              A_alu_status_update = "    ";
                              end
      `alu_status_update_nz:  begin    
                              A_alu_status_update = "N Z ";
                              end
      `alu_status_update_nzc: begin    
                              A_alu_status_update = "N ZC";
                              end
      `alu_status_update_nzcv:begin    
                              A_alu_status_update = "NVZC";
                              end
      `alu_status_update_wr:  begin    
                              A_alu_status_update = " WR ";
                              end
      `alu_status_update_z67: begin    
                              A_alu_status_update = "76Z ";
                              end
      `alu_status_update_res: begin    
                              A_alu_status_update = "RES ";
                              end
      default:                begin
                              A_alu_status_update = "XXXX";
                              end
   endcase

end





   

// dest


always @(*) begin
   case  (dest)
      `dest_none:          A_dest = "   ";
      `dest_alu_a:         A_dest = " A ";
      `dest_alu_x:         A_dest = " X ";
      `dest_alu_y:         A_dest = " Y ";
      `dest_mem:           A_dest = "MEM";
       default:            A_dest = "XXX";
                          
   endcase

end




// ctrl


always @(*) begin
   case  (ctrl)
      `ctrl_none:        A_ctrl = "       ";
      `ctrl_jsr:         A_ctrl = "JMP_SUB";
      `ctrl_jmp:         A_ctrl = " JUMP  ";
      `ctrl_jmp_ind:     A_ctrl = "JMP_IND";
      `ctrl_brk:         A_ctrl = " BREAK ";
      `ctrl_rti:         A_ctrl = "RET INT";
      `ctrl_rts:         A_ctrl = "RET SUB";
      `ctrl_branch:      A_ctrl = "BRANCH ";
       default:          A_ctrl = " -XXX- ";    
   endcase

end




// cmd


always @(*) begin
   case  (cmd)
      `cmd_none:        A_cmd = "        ";
      `cmd_run:         A_cmd = "   RUN  ";
      `cmd_load_add:    A_cmd = "LOAD ADD";
      `cmd_load_vec:    A_cmd = "LOAD VEC";
       default:         A_cmd = " -XXX- ";    
   endcase

end

   

   

// ins_type


always @(*) begin
   case  (ins_type)
      `ins_type_none:     A_ins_type = "     ";
      `ins_type_read:     A_ins_type = "READ ";
      `ins_type_write:    A_ins_type = "WRITE";
      `ins_type_rmw:      A_ins_type = " RMW ";
       default:           A_ins_type = "-XXX-";    
   endcase

end


// idx_sel


always @(*) begin
   case  (idx_sel)
      `idx_sel_00:        A_idx_sel = " 0 ";
      `idx_sel_x:         A_idx_sel = " X ";
      `idx_sel_y:         A_idx_sel = " Y ";
       default:           A_idx_sel = "---";    
   endcase

end