/*
|
/*
|
* Z80 instruction decoder
|
* Z80 instruction decoder
|
* Author: Guy Hutchison
|
* Author: Guy Hutchison
|
*/
|
*/
|
|
|
module op_decode;
|
module op_decode;
|
|
|
task decode0;
|
task decode0;
|
input [7:0] opcode;
|
input [7:0] opcode;
|
inout [7:0] state;
|
inout [7:0] state;
|
begin
|
begin
|
case (opcode)
|
case (opcode)
|
8'h00 : $display ("%t: OPCODE : NOP ", $time);
|
8'h00 : $display ("%t: OPCODE : NOP ", $time);
|
8'h01 :
|
8'h01 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD BC,word", $time);
|
$display ("%t: OPCODE : LD BC,word", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'h02 : $display ("%t: OPCODE : LD (BC),A", $time);
|
8'h02 : $display ("%t: OPCODE : LD (BC),A", $time);
|
8'h03 : $display ("%t: OPCODE : INC BC", $time);
|
8'h03 : $display ("%t: OPCODE : INC BC", $time);
|
8'h04 : $display ("%t: OPCODE : INC B", $time);
|
8'h04 : $display ("%t: OPCODE : INC B", $time);
|
8'h05 : $display ("%t: OPCODE : DEC B", $time);
|
8'h05 : $display ("%t: OPCODE : DEC B", $time);
|
8'h06 :
|
8'h06 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD B,byte", $time);
|
$display ("%t: OPCODE : LD B,byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h07 : $display ("%t: OPCODE : RLCA ", $time);
|
8'h07 : $display ("%t: OPCODE : RLCA ", $time);
|
8'h08 : $display ("%t: OPCODE : EX AF,AF'", $time);
|
8'h08 : $display ("%t: OPCODE : EX AF,AF'", $time);
|
8'h09 : $display ("%t: OPCODE : ADD HL,BC", $time);
|
8'h09 : $display ("%t: OPCODE : ADD HL,BC", $time);
|
8'h0a : $display ("%t: OPCODE : LD A,(BC)", $time);
|
8'h0a : $display ("%t: OPCODE : LD A,(BC)", $time);
|
8'h0b : $display ("%t: OPCODE : DEC BC", $time);
|
8'h0b : $display ("%t: OPCODE : DEC BC", $time);
|
8'h0c : $display ("%t: OPCODE : INC C", $time);
|
8'h0c : $display ("%t: OPCODE : INC C", $time);
|
8'h0d : $display ("%t: OPCODE : DEC C", $time);
|
8'h0d : $display ("%t: OPCODE : DEC C", $time);
|
8'h0e :
|
8'h0e :
|
begin
|
begin
|
$display ("%t: OPCODE : LD C,byte", $time);
|
$display ("%t: OPCODE : LD C,byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h0f : $display ("%t: OPCODE : RRCA ", $time);
|
8'h0f : $display ("%t: OPCODE : RRCA ", $time);
|
8'h10 :
|
8'h10 :
|
begin
|
begin
|
$display ("%t: OPCODE : DJNZ index", $time);
|
$display ("%t: OPCODE : DJNZ index", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h11 :
|
8'h11 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD DE,word", $time);
|
$display ("%t: OPCODE : LD DE,word", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'h12 : $display ("%t: OPCODE : LD (DE),A", $time);
|
8'h12 : $display ("%t: OPCODE : LD (DE),A", $time);
|
8'h13 : $display ("%t: OPCODE : INC DE", $time);
|
8'h13 : $display ("%t: OPCODE : INC DE", $time);
|
8'h14 : $display ("%t: OPCODE : INC D", $time);
|
8'h14 : $display ("%t: OPCODE : INC D", $time);
|
8'h15 : $display ("%t: OPCODE : DEC D", $time);
|
8'h15 : $display ("%t: OPCODE : DEC D", $time);
|
8'h16 :
|
8'h16 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD D,byte", $time);
|
$display ("%t: OPCODE : LD D,byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h17 : $display ("%t: OPCODE : RLA ", $time);
|
8'h17 : $display ("%t: OPCODE : RLA ", $time);
|
8'h18 :
|
8'h18 :
|
begin
|
begin
|
$display ("%t: OPCODE : JR index", $time);
|
$display ("%t: OPCODE : JR index", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h19 : $display ("%t: OPCODE : ADD HL,DE", $time);
|
8'h19 : $display ("%t: OPCODE : ADD HL,DE", $time);
|
8'h1a : $display ("%t: OPCODE : LD A,(DE)", $time);
|
8'h1a : $display ("%t: OPCODE : LD A,(DE)", $time);
|
8'h1b : $display ("%t: OPCODE : DEC DE", $time);
|
8'h1b : $display ("%t: OPCODE : DEC DE", $time);
|
8'h1c : $display ("%t: OPCODE : INC E", $time);
|
8'h1c : $display ("%t: OPCODE : INC E", $time);
|
8'h1d : $display ("%t: OPCODE : DEC E", $time);
|
8'h1d : $display ("%t: OPCODE : DEC E", $time);
|
8'h1e :
|
8'h1e :
|
begin
|
begin
|
$display ("%t: OPCODE : LD E,byte", $time);
|
$display ("%t: OPCODE : LD E,byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h1f : $display ("%t: OPCODE : RRA ", $time);
|
8'h1f : $display ("%t: OPCODE : RRA ", $time);
|
8'h20 :
|
8'h20 :
|
begin
|
begin
|
$display ("%t: OPCODE : JR NZ,index", $time);
|
$display ("%t: OPCODE : JR NZ,index", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h21 :
|
8'h21 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD HL,word", $time);
|
$display ("%t: OPCODE : LD HL,word", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'h22 :
|
8'h22 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (word),HL", $time);
|
$display ("%t: OPCODE : LD (word),HL", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'h23 : $display ("%t: OPCODE : INC HL", $time);
|
8'h23 : $display ("%t: OPCODE : INC HL", $time);
|
8'h24 : $display ("%t: OPCODE : INC H", $time);
|
8'h24 : $display ("%t: OPCODE : INC H", $time);
|
8'h25 : $display ("%t: OPCODE : DEC H", $time);
|
8'h25 : $display ("%t: OPCODE : DEC H", $time);
|
8'h26 :
|
8'h26 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD H,byte", $time);
|
$display ("%t: OPCODE : LD H,byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h27 : $display ("%t: OPCODE : DAA ", $time);
|
8'h27 : $display ("%t: OPCODE : DAA ", $time);
|
8'h28 :
|
8'h28 :
|
begin
|
begin
|
$display ("%t: OPCODE : JR Z,index", $time);
|
$display ("%t: OPCODE : JR Z,index", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h29 : $display ("%t: OPCODE : ADD HL,HL", $time);
|
8'h29 : $display ("%t: OPCODE : ADD HL,HL", $time);
|
8'h2a :
|
8'h2a :
|
begin
|
begin
|
$display ("%t: OPCODE : LD HL,(word)", $time);
|
$display ("%t: OPCODE : LD HL,(word)", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'h2b : $display ("%t: OPCODE : DEC HL", $time);
|
8'h2b : $display ("%t: OPCODE : DEC HL", $time);
|
8'h2c : $display ("%t: OPCODE : INC L", $time);
|
8'h2c : $display ("%t: OPCODE : INC L", $time);
|
8'h2d : $display ("%t: OPCODE : DEC L", $time);
|
8'h2d : $display ("%t: OPCODE : DEC L", $time);
|
8'h2e :
|
8'h2e :
|
begin
|
begin
|
$display ("%t: OPCODE : LD L,byte", $time);
|
$display ("%t: OPCODE : LD L,byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h2f : $display ("%t: OPCODE : CPL ", $time);
|
8'h2f : $display ("%t: OPCODE : CPL ", $time);
|
8'h30 :
|
8'h30 :
|
begin
|
begin
|
$display ("%t: OPCODE : JR NC,index", $time);
|
$display ("%t: OPCODE : JR NC,index", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h31 :
|
8'h31 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD SP,word", $time);
|
$display ("%t: OPCODE : LD SP,word", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'h32 :
|
8'h32 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (word),A", $time);
|
$display ("%t: OPCODE : LD (word),A", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'h33 : $display ("%t: OPCODE : INC SP", $time);
|
8'h33 : $display ("%t: OPCODE : INC SP", $time);
|
8'h34 : $display ("%t: OPCODE : INC (HL)", $time);
|
8'h34 : $display ("%t: OPCODE : INC (HL)", $time);
|
8'h35 : $display ("%t: OPCODE : DEC (HL)", $time);
|
8'h35 : $display ("%t: OPCODE : DEC (HL)", $time);
|
8'h36 :
|
8'h36 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (HL),byte", $time);
|
$display ("%t: OPCODE : LD (HL),byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h37 : $display ("%t: OPCODE : SCF ", $time);
|
8'h37 : $display ("%t: OPCODE : SCF ", $time);
|
8'h38 :
|
8'h38 :
|
begin
|
begin
|
$display ("%t: OPCODE : JR C,index", $time);
|
$display ("%t: OPCODE : JR C,index", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h39 : $display ("%t: OPCODE : ADD HL,SP", $time);
|
8'h39 : $display ("%t: OPCODE : ADD HL,SP", $time);
|
8'h3a :
|
8'h3a :
|
begin
|
begin
|
$display ("%t: OPCODE : LD A,(word)", $time);
|
$display ("%t: OPCODE : LD A,(word)", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'h3b : $display ("%t: OPCODE : DEC SP", $time);
|
8'h3b : $display ("%t: OPCODE : DEC SP", $time);
|
8'h3c : $display ("%t: OPCODE : INC A", $time);
|
8'h3c : $display ("%t: OPCODE : INC A", $time);
|
8'h3d : $display ("%t: OPCODE : DEC A", $time);
|
8'h3d : $display ("%t: OPCODE : DEC A", $time);
|
8'h3e :
|
8'h3e :
|
begin
|
begin
|
$display ("%t: OPCODE : LD A,byte", $time);
|
$display ("%t: OPCODE : LD A,byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'h3f : $display ("%t: OPCODE : CCF ", $time);
|
8'h3f : $display ("%t: OPCODE : CCF ", $time);
|
8'h40 : $display ("%t: OPCODE : LD B,B", $time);
|
8'h40 : $display ("%t: OPCODE : LD B,B", $time);
|
8'h41 : $display ("%t: OPCODE : LD B,C", $time);
|
8'h41 : $display ("%t: OPCODE : LD B,C", $time);
|
8'h42 : $display ("%t: OPCODE : LD B,D", $time);
|
8'h42 : $display ("%t: OPCODE : LD B,D", $time);
|
8'h43 : $display ("%t: OPCODE : LD B,E", $time);
|
8'h43 : $display ("%t: OPCODE : LD B,E", $time);
|
8'h44 : $display ("%t: OPCODE : LD B,H", $time);
|
8'h44 : $display ("%t: OPCODE : LD B,H", $time);
|
8'h45 : $display ("%t: OPCODE : LD B,L", $time);
|
8'h45 : $display ("%t: OPCODE : LD B,L", $time);
|
8'h46 : $display ("%t: OPCODE : LD B,(HL)", $time);
|
8'h46 : $display ("%t: OPCODE : LD B,(HL)", $time);
|
8'h47 : $display ("%t: OPCODE : LD B,A", $time);
|
8'h47 : $display ("%t: OPCODE : LD B,A", $time);
|
8'h48 : $display ("%t: OPCODE : LD C,B", $time);
|
8'h48 : $display ("%t: OPCODE : LD C,B", $time);
|
8'h49 : $display ("%t: OPCODE : LD C,C", $time);
|
8'h49 : $display ("%t: OPCODE : LD C,C", $time);
|
8'h4a : $display ("%t: OPCODE : LD C,D", $time);
|
8'h4a : $display ("%t: OPCODE : LD C,D", $time);
|
8'h4b : $display ("%t: OPCODE : LD C,E", $time);
|
8'h4b : $display ("%t: OPCODE : LD C,E", $time);
|
8'h4c : $display ("%t: OPCODE : LD C,H", $time);
|
8'h4c : $display ("%t: OPCODE : LD C,H", $time);
|
8'h4d : $display ("%t: OPCODE : LD C,L", $time);
|
8'h4d : $display ("%t: OPCODE : LD C,L", $time);
|
8'h4e : $display ("%t: OPCODE : LD C,(HL)", $time);
|
8'h4e : $display ("%t: OPCODE : LD C,(HL)", $time);
|
8'h4f : $display ("%t: OPCODE : LD C,A", $time);
|
8'h4f : $display ("%t: OPCODE : LD C,A", $time);
|
8'h50 : $display ("%t: OPCODE : LD D,B", $time);
|
8'h50 : $display ("%t: OPCODE : LD D,B", $time);
|
8'h51 : $display ("%t: OPCODE : LD D,C", $time);
|
8'h51 : $display ("%t: OPCODE : LD D,C", $time);
|
8'h52 : $display ("%t: OPCODE : LD D,D", $time);
|
8'h52 : $display ("%t: OPCODE : LD D,D", $time);
|
8'h53 : $display ("%t: OPCODE : LD D,E", $time);
|
8'h53 : $display ("%t: OPCODE : LD D,E", $time);
|
8'h54 : $display ("%t: OPCODE : LD D,H", $time);
|
8'h54 : $display ("%t: OPCODE : LD D,H", $time);
|
8'h55 : $display ("%t: OPCODE : LD D,L", $time);
|
8'h55 : $display ("%t: OPCODE : LD D,L", $time);
|
8'h56 : $display ("%t: OPCODE : LD D,(HL)", $time);
|
8'h56 : $display ("%t: OPCODE : LD D,(HL)", $time);
|
8'h57 : $display ("%t: OPCODE : LD D,A", $time);
|
8'h57 : $display ("%t: OPCODE : LD D,A", $time);
|
8'h58 : $display ("%t: OPCODE : LD E,B", $time);
|
8'h58 : $display ("%t: OPCODE : LD E,B", $time);
|
8'h59 : $display ("%t: OPCODE : LD E,C", $time);
|
8'h59 : $display ("%t: OPCODE : LD E,C", $time);
|
8'h5a : $display ("%t: OPCODE : LD E,D", $time);
|
8'h5a : $display ("%t: OPCODE : LD E,D", $time);
|
8'h5b : $display ("%t: OPCODE : LD E,E", $time);
|
8'h5b : $display ("%t: OPCODE : LD E,E", $time);
|
8'h5c : $display ("%t: OPCODE : LD E,H", $time);
|
8'h5c : $display ("%t: OPCODE : LD E,H", $time);
|
8'h5d : $display ("%t: OPCODE : LD E,L", $time);
|
8'h5d : $display ("%t: OPCODE : LD E,L", $time);
|
8'h5e : $display ("%t: OPCODE : LD E,(HL)", $time);
|
8'h5e : $display ("%t: OPCODE : LD E,(HL)", $time);
|
8'h5f : $display ("%t: OPCODE : LD E,A", $time);
|
8'h5f : $display ("%t: OPCODE : LD E,A", $time);
|
8'h60 : $display ("%t: OPCODE : LD H,B", $time);
|
8'h60 : $display ("%t: OPCODE : LD H,B", $time);
|
8'h61 : $display ("%t: OPCODE : LD H,C", $time);
|
8'h61 : $display ("%t: OPCODE : LD H,C", $time);
|
8'h62 : $display ("%t: OPCODE : LD H,D", $time);
|
8'h62 : $display ("%t: OPCODE : LD H,D", $time);
|
8'h63 : $display ("%t: OPCODE : LD H,E", $time);
|
8'h63 : $display ("%t: OPCODE : LD H,E", $time);
|
8'h64 : $display ("%t: OPCODE : LD H,H", $time);
|
8'h64 : $display ("%t: OPCODE : LD H,H", $time);
|
8'h65 : $display ("%t: OPCODE : LD H,L", $time);
|
8'h65 : $display ("%t: OPCODE : LD H,L", $time);
|
8'h66 : $display ("%t: OPCODE : LD H,(HL)", $time);
|
8'h66 : $display ("%t: OPCODE : LD H,(HL)", $time);
|
8'h67 : $display ("%t: OPCODE : LD H,A", $time);
|
8'h67 : $display ("%t: OPCODE : LD H,A", $time);
|
8'h68 : $display ("%t: OPCODE : LD L,B", $time);
|
8'h68 : $display ("%t: OPCODE : LD L,B", $time);
|
8'h69 : $display ("%t: OPCODE : LD L,C", $time);
|
8'h69 : $display ("%t: OPCODE : LD L,C", $time);
|
8'h6a : $display ("%t: OPCODE : LD L,D", $time);
|
8'h6a : $display ("%t: OPCODE : LD L,D", $time);
|
8'h6b : $display ("%t: OPCODE : LD L,E", $time);
|
8'h6b : $display ("%t: OPCODE : LD L,E", $time);
|
8'h6c : $display ("%t: OPCODE : LD L,H", $time);
|
8'h6c : $display ("%t: OPCODE : LD L,H", $time);
|
8'h6d : $display ("%t: OPCODE : LD L,L", $time);
|
8'h6d : $display ("%t: OPCODE : LD L,L", $time);
|
8'h6e : $display ("%t: OPCODE : LD L,(HL)", $time);
|
8'h6e : $display ("%t: OPCODE : LD L,(HL)", $time);
|
8'h6f : $display ("%t: OPCODE : LD L,A", $time);
|
8'h6f : $display ("%t: OPCODE : LD L,A", $time);
|
8'h70 : $display ("%t: OPCODE : LD (HL),B", $time);
|
8'h70 : $display ("%t: OPCODE : LD (HL),B", $time);
|
8'h71 : $display ("%t: OPCODE : LD (HL),C", $time);
|
8'h71 : $display ("%t: OPCODE : LD (HL),C", $time);
|
8'h72 : $display ("%t: OPCODE : LD (HL),D", $time);
|
8'h72 : $display ("%t: OPCODE : LD (HL),D", $time);
|
8'h73 : $display ("%t: OPCODE : LD (HL),E", $time);
|
8'h73 : $display ("%t: OPCODE : LD (HL),E", $time);
|
8'h74 : $display ("%t: OPCODE : LD (HL),H", $time);
|
8'h74 : $display ("%t: OPCODE : LD (HL),H", $time);
|
8'h75 : $display ("%t: OPCODE : LD (HL),L", $time);
|
8'h75 : $display ("%t: OPCODE : LD (HL),L", $time);
|
8'h76 : $display ("%t: OPCODE : HLT ", $time);
|
8'h76 : $display ("%t: OPCODE : HLT ", $time);
|
8'h77 : $display ("%t: OPCODE : LD (HL),A", $time);
|
8'h77 : $display ("%t: OPCODE : LD (HL),A", $time);
|
8'h78 : $display ("%t: OPCODE : LD A,B", $time);
|
8'h78 : $display ("%t: OPCODE : LD A,B", $time);
|
8'h79 : $display ("%t: OPCODE : LD A,C", $time);
|
8'h79 : $display ("%t: OPCODE : LD A,C", $time);
|
8'h7a : $display ("%t: OPCODE : LD A,D", $time);
|
8'h7a : $display ("%t: OPCODE : LD A,D", $time);
|
8'h7b : $display ("%t: OPCODE : LD A,E", $time);
|
8'h7b : $display ("%t: OPCODE : LD A,E", $time);
|
8'h7c : $display ("%t: OPCODE : LD A,H", $time);
|
8'h7c : $display ("%t: OPCODE : LD A,H", $time);
|
8'h7d : $display ("%t: OPCODE : LD A,L", $time);
|
8'h7d : $display ("%t: OPCODE : LD A,L", $time);
|
8'h7e : $display ("%t: OPCODE : LD A,(HL)", $time);
|
8'h7e : $display ("%t: OPCODE : LD A,(HL)", $time);
|
8'h7f : $display ("%t: OPCODE : LD A,A", $time);
|
8'h7f : $display ("%t: OPCODE : LD A,A", $time);
|
8'h80 : $display ("%t: OPCODE : ADD A,B", $time);
|
8'h80 : $display ("%t: OPCODE : ADD A,B", $time);
|
8'h81 : $display ("%t: OPCODE : ADD A,C", $time);
|
8'h81 : $display ("%t: OPCODE : ADD A,C", $time);
|
8'h82 : $display ("%t: OPCODE : ADD A,D", $time);
|
8'h82 : $display ("%t: OPCODE : ADD A,D", $time);
|
8'h83 : $display ("%t: OPCODE : ADD A,E", $time);
|
8'h83 : $display ("%t: OPCODE : ADD A,E", $time);
|
8'h84 : $display ("%t: OPCODE : ADD A,H", $time);
|
8'h84 : $display ("%t: OPCODE : ADD A,H", $time);
|
8'h85 : $display ("%t: OPCODE : ADD A,L", $time);
|
8'h85 : $display ("%t: OPCODE : ADD A,L", $time);
|
8'h86 : $display ("%t: OPCODE : ADD A,(HL)", $time);
|
8'h86 : $display ("%t: OPCODE : ADD A,(HL)", $time);
|
8'h87 : $display ("%t: OPCODE : ADD A,A", $time);
|
8'h87 : $display ("%t: OPCODE : ADD A,A", $time);
|
8'h88 : $display ("%t: OPCODE : ADC A,B", $time);
|
8'h88 : $display ("%t: OPCODE : ADC A,B", $time);
|
8'h89 : $display ("%t: OPCODE : ADC A,C", $time);
|
8'h89 : $display ("%t: OPCODE : ADC A,C", $time);
|
8'h8a : $display ("%t: OPCODE : ADC A,D", $time);
|
8'h8a : $display ("%t: OPCODE : ADC A,D", $time);
|
8'h8b : $display ("%t: OPCODE : ADC A,E", $time);
|
8'h8b : $display ("%t: OPCODE : ADC A,E", $time);
|
8'h8c : $display ("%t: OPCODE : ADC A,H", $time);
|
8'h8c : $display ("%t: OPCODE : ADC A,H", $time);
|
8'h8d : $display ("%t: OPCODE : ADC A,L", $time);
|
8'h8d : $display ("%t: OPCODE : ADC A,L", $time);
|
8'h8e : $display ("%t: OPCODE : ADC A,(HL)", $time);
|
8'h8e : $display ("%t: OPCODE : ADC A,(HL)", $time);
|
8'h8f : $display ("%t: OPCODE : ADC A,A", $time);
|
8'h8f : $display ("%t: OPCODE : ADC A,A", $time);
|
8'h90 : $display ("%t: OPCODE : SUB B", $time);
|
8'h90 : $display ("%t: OPCODE : SUB B", $time);
|
8'h91 : $display ("%t: OPCODE : SUB C", $time);
|
8'h91 : $display ("%t: OPCODE : SUB C", $time);
|
8'h92 : $display ("%t: OPCODE : SUB D", $time);
|
8'h92 : $display ("%t: OPCODE : SUB D", $time);
|
8'h93 : $display ("%t: OPCODE : SUB E", $time);
|
8'h93 : $display ("%t: OPCODE : SUB E", $time);
|
8'h94 : $display ("%t: OPCODE : SUB H", $time);
|
8'h94 : $display ("%t: OPCODE : SUB H", $time);
|
8'h95 : $display ("%t: OPCODE : SUB L", $time);
|
8'h95 : $display ("%t: OPCODE : SUB L", $time);
|
8'h96 : $display ("%t: OPCODE : SUB (HL)", $time);
|
8'h96 : $display ("%t: OPCODE : SUB (HL)", $time);
|
8'h97 : $display ("%t: OPCODE : SUB A", $time);
|
8'h97 : $display ("%t: OPCODE : SUB A", $time);
|
8'h98 : $display ("%t: OPCODE : SBC B", $time);
|
8'h98 : $display ("%t: OPCODE : SBC B", $time);
|
8'h99 : $display ("%t: OPCODE : SBC C", $time);
|
8'h99 : $display ("%t: OPCODE : SBC C", $time);
|
8'h9a : $display ("%t: OPCODE : SBC D", $time);
|
8'h9a : $display ("%t: OPCODE : SBC D", $time);
|
8'h9b : $display ("%t: OPCODE : SBC E", $time);
|
8'h9b : $display ("%t: OPCODE : SBC E", $time);
|
8'h9c : $display ("%t: OPCODE : SBC H", $time);
|
8'h9c : $display ("%t: OPCODE : SBC H", $time);
|
8'h9d : $display ("%t: OPCODE : SBC L", $time);
|
8'h9d : $display ("%t: OPCODE : SBC L", $time);
|
8'h9e : $display ("%t: OPCODE : SBC (HL)", $time);
|
8'h9e : $display ("%t: OPCODE : SBC (HL)", $time);
|
8'h9f : $display ("%t: OPCODE : SBC A", $time);
|
8'h9f : $display ("%t: OPCODE : SBC A", $time);
|
8'ha0 : $display ("%t: OPCODE : AND B", $time);
|
8'ha0 : $display ("%t: OPCODE : AND B", $time);
|
8'ha1 : $display ("%t: OPCODE : AND C", $time);
|
8'ha1 : $display ("%t: OPCODE : AND C", $time);
|
8'ha2 : $display ("%t: OPCODE : AND D", $time);
|
8'ha2 : $display ("%t: OPCODE : AND D", $time);
|
8'ha3 : $display ("%t: OPCODE : AND E", $time);
|
8'ha3 : $display ("%t: OPCODE : AND E", $time);
|
8'ha4 : $display ("%t: OPCODE : AND H", $time);
|
8'ha4 : $display ("%t: OPCODE : AND H", $time);
|
8'ha5 : $display ("%t: OPCODE : AND L", $time);
|
8'ha5 : $display ("%t: OPCODE : AND L", $time);
|
8'ha6 : $display ("%t: OPCODE : AND (HL)", $time);
|
8'ha6 : $display ("%t: OPCODE : AND (HL)", $time);
|
8'ha7 : $display ("%t: OPCODE : AND A", $time);
|
8'ha7 : $display ("%t: OPCODE : AND A", $time);
|
8'ha8 : $display ("%t: OPCODE : XOR B", $time);
|
8'ha8 : $display ("%t: OPCODE : XOR B", $time);
|
8'ha9 : $display ("%t: OPCODE : XOR C", $time);
|
8'ha9 : $display ("%t: OPCODE : XOR C", $time);
|
8'haa : $display ("%t: OPCODE : XOR D", $time);
|
8'haa : $display ("%t: OPCODE : XOR D", $time);
|
8'hab : $display ("%t: OPCODE : XOR E", $time);
|
8'hab : $display ("%t: OPCODE : XOR E", $time);
|
8'hac : $display ("%t: OPCODE : XOR H", $time);
|
8'hac : $display ("%t: OPCODE : XOR H", $time);
|
8'had : $display ("%t: OPCODE : XOR L", $time);
|
8'had : $display ("%t: OPCODE : XOR L", $time);
|
8'hae : $display ("%t: OPCODE : XOR (HL)", $time);
|
8'hae : $display ("%t: OPCODE : XOR (HL)", $time);
|
8'haf : $display ("%t: OPCODE : XOR A", $time);
|
8'haf : $display ("%t: OPCODE : XOR A", $time);
|
8'hb0 : $display ("%t: OPCODE : OR B", $time);
|
8'hb0 : $display ("%t: OPCODE : OR B", $time);
|
8'hb1 : $display ("%t: OPCODE : OR C", $time);
|
8'hb1 : $display ("%t: OPCODE : OR C", $time);
|
8'hb2 : $display ("%t: OPCODE : OR D", $time);
|
8'hb2 : $display ("%t: OPCODE : OR D", $time);
|
8'hb3 : $display ("%t: OPCODE : OR E", $time);
|
8'hb3 : $display ("%t: OPCODE : OR E", $time);
|
8'hb4 : $display ("%t: OPCODE : OR H", $time);
|
8'hb4 : $display ("%t: OPCODE : OR H", $time);
|
8'hb5 : $display ("%t: OPCODE : OR L", $time);
|
8'hb5 : $display ("%t: OPCODE : OR L", $time);
|
8'hb6 : $display ("%t: OPCODE : OR (HL)", $time);
|
8'hb6 : $display ("%t: OPCODE : OR (HL)", $time);
|
8'hb7 : $display ("%t: OPCODE : OR A", $time);
|
8'hb7 : $display ("%t: OPCODE : OR A", $time);
|
8'hb8 : $display ("%t: OPCODE : CP B", $time);
|
8'hb8 : $display ("%t: OPCODE : CP B", $time);
|
8'hb9 : $display ("%t: OPCODE : CP C", $time);
|
8'hb9 : $display ("%t: OPCODE : CP C", $time);
|
8'hba : $display ("%t: OPCODE : CP D", $time);
|
8'hba : $display ("%t: OPCODE : CP D", $time);
|
8'hbb : $display ("%t: OPCODE : CP E", $time);
|
8'hbb : $display ("%t: OPCODE : CP E", $time);
|
8'hbc : $display ("%t: OPCODE : CP H", $time);
|
8'hbc : $display ("%t: OPCODE : CP H", $time);
|
8'hbd : $display ("%t: OPCODE : CP L", $time);
|
8'hbd : $display ("%t: OPCODE : CP L", $time);
|
8'hbe : $display ("%t: OPCODE : CP (HL)", $time);
|
8'hbe : $display ("%t: OPCODE : CP (HL)", $time);
|
8'hbf : $display ("%t: OPCODE : CP A", $time);
|
8'hbf : $display ("%t: OPCODE : CP A", $time);
|
8'hc0 : $display ("%t: OPCODE : RET NZ", $time);
|
8'hc0 : $display ("%t: OPCODE : RET NZ", $time);
|
8'hc1 : $display ("%t: OPCODE : POP BC", $time);
|
8'hc1 : $display ("%t: OPCODE : POP BC", $time);
|
8'hc2 :
|
8'hc2 :
|
begin
|
begin
|
$display ("%t: OPCODE : JP NZ,address", $time);
|
$display ("%t: OPCODE : JP NZ,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hc3 :
|
8'hc3 :
|
begin
|
begin
|
$display ("%t: OPCODE : JP address", $time);
|
$display ("%t: OPCODE : JP address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hc4 :
|
8'hc4 :
|
begin
|
begin
|
$display ("%t: OPCODE : CALL NZ,address", $time);
|
$display ("%t: OPCODE : CALL NZ,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hc5 : $display ("%t: OPCODE : PUSH BC", $time);
|
8'hc5 : $display ("%t: OPCODE : PUSH BC", $time);
|
8'hc6 :
|
8'hc6 :
|
begin
|
begin
|
$display ("%t: OPCODE : ADD A,byte", $time);
|
$display ("%t: OPCODE : ADD A,byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'hc7 : $display ("%t: OPCODE : RST 0", $time);
|
8'hc7 : $display ("%t: OPCODE : RST 0", $time);
|
8'hc8 : $display ("%t: OPCODE : RET Z", $time);
|
8'hc8 : $display ("%t: OPCODE : RET Z", $time);
|
8'hc9 : $display ("%t: OPCODE : RET ", $time);
|
8'hc9 : $display ("%t: OPCODE : RET ", $time);
|
8'hca :
|
8'hca :
|
begin
|
begin
|
$display ("%t: OPCODE : JP Z,address", $time);
|
$display ("%t: OPCODE : JP Z,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hcb : state = 8'hcb;
|
8'hcb : state = 8'hcb;
|
8'hcc :
|
8'hcc :
|
begin
|
begin
|
$display ("%t: OPCODE : CALL Z,address", $time);
|
$display ("%t: OPCODE : CALL Z,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hcd :
|
8'hcd :
|
begin
|
begin
|
$display ("%t: OPCODE : CALL address", $time);
|
$display ("%t: OPCODE : CALL address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hce :
|
8'hce :
|
begin
|
begin
|
$display ("%t: OPCODE : ADC A,byte", $time);
|
$display ("%t: OPCODE : ADC A,byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'hcf : $display ("%t: OPCODE : RST 8", $time);
|
8'hcf : $display ("%t: OPCODE : RST 8", $time);
|
8'hd0 : $display ("%t: OPCODE : RET NC", $time);
|
8'hd0 : $display ("%t: OPCODE : RET NC", $time);
|
8'hd1 : $display ("%t: OPCODE : POP DE", $time);
|
8'hd1 : $display ("%t: OPCODE : POP DE", $time);
|
8'hd2 :
|
8'hd2 :
|
begin
|
begin
|
$display ("%t: OPCODE : JP NC,address", $time);
|
$display ("%t: OPCODE : JP NC,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hd4 :
|
8'hd4 :
|
begin
|
begin
|
$display ("%t: OPCODE : CALL NC,address", $time);
|
$display ("%t: OPCODE : CALL NC,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hd5 : $display ("%t: OPCODE : PUSH DE", $time);
|
8'hd5 : $display ("%t: OPCODE : PUSH DE", $time);
|
8'hd6 :
|
8'hd6 :
|
begin
|
begin
|
$display ("%t: OPCODE : SUB byte", $time);
|
$display ("%t: OPCODE : SUB byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'hd7 : $display ("%t: OPCODE : RST 10H", $time);
|
8'hd7 : $display ("%t: OPCODE : RST 10H", $time);
|
8'hd8 : $display ("%t: OPCODE : RET C", $time);
|
8'hd8 : $display ("%t: OPCODE : RET C", $time);
|
8'hd9 : $display ("%t: OPCODE : EXX ", $time);
|
8'hd9 : $display ("%t: OPCODE : EXX ", $time);
|
8'hda :
|
8'hda :
|
begin
|
begin
|
$display ("%t: OPCODE : JP C,address", $time);
|
$display ("%t: OPCODE : JP C,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hdb :
|
8'hdb :
|
begin
|
begin
|
$display ("%t: OPCODE : IN A,(byte)", $time);
|
$display ("%t: OPCODE : IN A,(byte)", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'hdc :
|
8'hdc :
|
begin
|
begin
|
$display ("%t: OPCODE : CALL C,address", $time);
|
$display ("%t: OPCODE : CALL C,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hdd : state = 8'hdd;
|
8'hdd : state = 8'hdd;
|
8'hde :
|
8'hde :
|
begin
|
begin
|
$display ("%t: OPCODE : SBC byte", $time);
|
$display ("%t: OPCODE : SBC byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'hdf : $display ("%t: OPCODE : RST 18H", $time);
|
8'hdf : $display ("%t: OPCODE : RST 18H", $time);
|
8'he0 : $display ("%t: OPCODE : RET PO", $time);
|
8'he0 : $display ("%t: OPCODE : RET PO", $time);
|
8'he1 : $display ("%t: OPCODE : POP HL", $time);
|
8'he1 : $display ("%t: OPCODE : POP HL", $time);
|
8'he2 :
|
8'he2 :
|
begin
|
begin
|
$display ("%t: OPCODE : JP PO,address", $time);
|
$display ("%t: OPCODE : JP PO,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'he3 : $display ("%t: OPCODE : EX (SP),HL", $time);
|
8'he3 : $display ("%t: OPCODE : EX (SP),HL", $time);
|
8'he4 :
|
8'he4 :
|
begin
|
begin
|
$display ("%t: OPCODE : CALL PO,address", $time);
|
$display ("%t: OPCODE : CALL PO,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'he5 : $display ("%t: OPCODE : PUSH HL", $time);
|
8'he5 : $display ("%t: OPCODE : PUSH HL", $time);
|
8'he6 :
|
8'he6 :
|
begin
|
begin
|
$display ("%t: OPCODE : AND byte", $time);
|
$display ("%t: OPCODE : AND byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'he7 : $display ("%t: OPCODE : RST 20H", $time);
|
8'he7 : $display ("%t: OPCODE : RST 20H", $time);
|
8'he8 : $display ("%t: OPCODE : RET PE", $time);
|
8'he8 : $display ("%t: OPCODE : RET PE", $time);
|
8'he9 : $display ("%t: OPCODE : JP (HL)", $time);
|
8'he9 : $display ("%t: OPCODE : JP (HL)", $time);
|
8'hea :
|
8'hea :
|
begin
|
begin
|
$display ("%t: OPCODE : JP PE,address", $time);
|
$display ("%t: OPCODE : JP PE,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'heb : $display ("%t: OPCODE : EX DE,HL", $time);
|
8'heb : $display ("%t: OPCODE : EX DE,HL", $time);
|
8'hec :
|
8'hec :
|
begin
|
begin
|
$display ("%t: OPCODE : CALL PE,address", $time);
|
$display ("%t: OPCODE : CALL PE,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hed : state = 8'hed;
|
8'hed : state = 8'hed;
|
8'hee :
|
8'hee :
|
begin
|
begin
|
$display ("%t: OPCODE : XOR byte", $time);
|
$display ("%t: OPCODE : XOR byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'hef : $display ("%t: OPCODE : RST 28H", $time);
|
8'hef : $display ("%t: OPCODE : RST 28H", $time);
|
8'hf0 : $display ("%t: OPCODE : RET P", $time);
|
8'hf0 : $display ("%t: OPCODE : RET P", $time);
|
8'hf1 : $display ("%t: OPCODE : POP AF", $time);
|
8'hf1 : $display ("%t: OPCODE : POP AF", $time);
|
8'hf2 :
|
8'hf2 :
|
begin
|
begin
|
$display ("%t: OPCODE : JP P,address", $time);
|
$display ("%t: OPCODE : JP P,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hf3 : $display ("%t: OPCODE : DI ", $time);
|
8'hf3 : $display ("%t: OPCODE : DI ", $time);
|
8'hf4 :
|
8'hf4 :
|
begin
|
begin
|
$display ("%t: OPCODE : CALL P,address", $time);
|
$display ("%t: OPCODE : CALL P,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hf5 : $display ("%t: OPCODE : PUSH AF", $time);
|
8'hf5 : $display ("%t: OPCODE : PUSH AF", $time);
|
8'hf6 :
|
8'hf6 :
|
begin
|
begin
|
$display ("%t: OPCODE : OR byte", $time);
|
$display ("%t: OPCODE : OR byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'hf7 : $display ("%t: OPCODE : RST 30H", $time);
|
8'hf7 : $display ("%t: OPCODE : RST 30H", $time);
|
8'hf8 : $display ("%t: OPCODE : RET M", $time);
|
8'hf8 : $display ("%t: OPCODE : RET M", $time);
|
8'hf9 : $display ("%t: OPCODE : LD SP,HL", $time);
|
8'hf9 : $display ("%t: OPCODE : LD SP,HL", $time);
|
8'hfa :
|
8'hfa :
|
begin
|
begin
|
$display ("%t: OPCODE : JM M,address", $time);
|
$display ("%t: OPCODE : JM M,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hfb : $display ("%t: OPCODE : EI ", $time);
|
8'hfb : $display ("%t: OPCODE : EI ", $time);
|
8'hfc :
|
8'hfc :
|
begin
|
begin
|
$display ("%t: OPCODE : CALL M,address", $time);
|
$display ("%t: OPCODE : CALL M,address", $time);
|
state = {4'd1, 4'd2};
|
state = {4'd1, 4'd2};
|
end
|
end
|
8'hfd : state = 8'hfd;
|
8'hfd : state = 8'hfd;
|
8'hfe :
|
8'hfe :
|
begin
|
begin
|
$display ("%t: OPCODE : CP byte", $time);
|
$display ("%t: OPCODE : CP byte", $time);
|
state = {4'd1, 4'd1};
|
state = {4'd1, 4'd1};
|
end
|
end
|
8'hff : $display ("%t: OPCODE : RST 38H", $time);
|
8'hff : $display ("%t: OPCODE : RST 38H", $time);
|
endcase
|
endcase
|
end
|
end
|
endtask
|
endtask
|
task decode1;
|
task decode1;
|
input [7:0] opcode;
|
input [7:0] opcode;
|
inout [7:0] state;
|
inout [7:0] state;
|
begin
|
begin
|
casex (state)
|
casex (state)
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
case (opcode)
|
case (opcode)
|
8'h07 :
|
8'h07 :
|
begin
|
begin
|
$display ("%t: OPCODE : RLC A", $time);
|
$display ("%t: OPCODE : RLC A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h00 :
|
8'h00 :
|
begin
|
begin
|
$display ("%t: OPCODE : RLC B", $time);
|
$display ("%t: OPCODE : RLC B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h01 :
|
8'h01 :
|
begin
|
begin
|
$display ("%t: OPCODE : RLC C", $time);
|
$display ("%t: OPCODE : RLC C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h02 :
|
8'h02 :
|
begin
|
begin
|
$display ("%t: OPCODE : RLC D", $time);
|
$display ("%t: OPCODE : RLC D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h03 :
|
8'h03 :
|
begin
|
begin
|
$display ("%t: OPCODE : RLC E", $time);
|
$display ("%t: OPCODE : RLC E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h04 :
|
8'h04 :
|
begin
|
begin
|
$display ("%t: OPCODE : RLC H", $time);
|
$display ("%t: OPCODE : RLC H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h05 :
|
8'h05 :
|
begin
|
begin
|
$display ("%t: OPCODE : RLC L", $time);
|
$display ("%t: OPCODE : RLC L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h06 :
|
8'h06 :
|
begin
|
begin
|
$display ("%t: OPCODE : RLC (HL)", $time);
|
$display ("%t: OPCODE : RLC (HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h17 :
|
8'h17 :
|
begin
|
begin
|
$display ("%t: OPCODE : RL A", $time);
|
$display ("%t: OPCODE : RL A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h10 :
|
8'h10 :
|
begin
|
begin
|
$display ("%t: OPCODE : RL B", $time);
|
$display ("%t: OPCODE : RL B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h11 :
|
8'h11 :
|
begin
|
begin
|
$display ("%t: OPCODE : RL C", $time);
|
$display ("%t: OPCODE : RL C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h12 :
|
8'h12 :
|
begin
|
begin
|
$display ("%t: OPCODE : RL D", $time);
|
$display ("%t: OPCODE : RL D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h13 :
|
8'h13 :
|
begin
|
begin
|
$display ("%t: OPCODE : RL E", $time);
|
$display ("%t: OPCODE : RL E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h14 :
|
8'h14 :
|
begin
|
begin
|
$display ("%t: OPCODE : RL H", $time);
|
$display ("%t: OPCODE : RL H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h15 :
|
8'h15 :
|
begin
|
begin
|
$display ("%t: OPCODE : RL L", $time);
|
$display ("%t: OPCODE : RL L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h16 :
|
8'h16 :
|
begin
|
begin
|
$display ("%t: OPCODE : RL (HL)", $time);
|
$display ("%t: OPCODE : RL (HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h0f :
|
8'h0f :
|
begin
|
begin
|
$display ("%t: OPCODE : RRC A", $time);
|
$display ("%t: OPCODE : RRC A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h08 :
|
8'h08 :
|
begin
|
begin
|
$display ("%t: OPCODE : RRC B", $time);
|
$display ("%t: OPCODE : RRC B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h09 :
|
8'h09 :
|
begin
|
begin
|
$display ("%t: OPCODE : RRC C", $time);
|
$display ("%t: OPCODE : RRC C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h0a :
|
8'h0a :
|
begin
|
begin
|
$display ("%t: OPCODE : RRC D", $time);
|
$display ("%t: OPCODE : RRC D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h0b :
|
8'h0b :
|
begin
|
begin
|
$display ("%t: OPCODE : RRC E", $time);
|
$display ("%t: OPCODE : RRC E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h0c :
|
8'h0c :
|
begin
|
begin
|
$display ("%t: OPCODE : RRC H", $time);
|
$display ("%t: OPCODE : RRC H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h0d :
|
8'h0d :
|
begin
|
begin
|
$display ("%t: OPCODE : RRC L", $time);
|
$display ("%t: OPCODE : RRC L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h0e :
|
8'h0e :
|
begin
|
begin
|
$display ("%t: OPCODE : RRC (HL)", $time);
|
$display ("%t: OPCODE : RRC (HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h1f :
|
8'h1f :
|
begin
|
begin
|
$display ("%t: OPCODE : RL A", $time);
|
$display ("%t: OPCODE : RL A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h18 :
|
8'h18 :
|
begin
|
begin
|
$display ("%t: OPCODE : RL B", $time);
|
$display ("%t: OPCODE : RL B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h19 :
|
8'h19 :
|
begin
|
begin
|
$display ("%t: OPCODE : RL C", $time);
|
$display ("%t: OPCODE : RL C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h1a :
|
8'h1a :
|
begin
|
begin
|
$display ("%t: OPCODE : RL D", $time);
|
$display ("%t: OPCODE : RL D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h1b :
|
8'h1b :
|
begin
|
begin
|
$display ("%t: OPCODE : RL E", $time);
|
$display ("%t: OPCODE : RL E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h1c :
|
8'h1c :
|
begin
|
begin
|
$display ("%t: OPCODE : RL H", $time);
|
$display ("%t: OPCODE : RL H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h1d :
|
8'h1d :
|
begin
|
begin
|
$display ("%t: OPCODE : RL L", $time);
|
$display ("%t: OPCODE : RL L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h1e :
|
8'h1e :
|
begin
|
begin
|
$display ("%t: OPCODE : RL (HL)", $time);
|
$display ("%t: OPCODE : RL (HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h47 :
|
8'h47 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 0,A", $time);
|
$display ("%t: OPCODE : BIT 0,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h40 :
|
8'h40 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 0,B", $time);
|
$display ("%t: OPCODE : BIT 0,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h41 :
|
8'h41 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 0,C", $time);
|
$display ("%t: OPCODE : BIT 0,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h42 :
|
8'h42 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 0,D", $time);
|
$display ("%t: OPCODE : BIT 0,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h43 :
|
8'h43 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 0,E", $time);
|
$display ("%t: OPCODE : BIT 0,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h44 :
|
8'h44 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 0,H", $time);
|
$display ("%t: OPCODE : BIT 0,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h45 :
|
8'h45 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 0,L", $time);
|
$display ("%t: OPCODE : BIT 0,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h46 :
|
8'h46 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 0,(HL)", $time);
|
$display ("%t: OPCODE : BIT 0,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h4f :
|
8'h4f :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 1,A", $time);
|
$display ("%t: OPCODE : BIT 1,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h48 :
|
8'h48 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 1,B", $time);
|
$display ("%t: OPCODE : BIT 1,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h49 :
|
8'h49 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 1,C", $time);
|
$display ("%t: OPCODE : BIT 1,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h4a :
|
8'h4a :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 1,D", $time);
|
$display ("%t: OPCODE : BIT 1,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h4b :
|
8'h4b :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 1,E", $time);
|
$display ("%t: OPCODE : BIT 1,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h4c :
|
8'h4c :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 1,H", $time);
|
$display ("%t: OPCODE : BIT 1,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h4d :
|
8'h4d :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 1,L", $time);
|
$display ("%t: OPCODE : BIT 1,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h4e :
|
8'h4e :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 1,(HL)", $time);
|
$display ("%t: OPCODE : BIT 1,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h57 :
|
8'h57 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 2,A", $time);
|
$display ("%t: OPCODE : BIT 2,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h50 :
|
8'h50 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 2,B", $time);
|
$display ("%t: OPCODE : BIT 2,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h51 :
|
8'h51 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 2,C", $time);
|
$display ("%t: OPCODE : BIT 2,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h52 :
|
8'h52 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 2,D", $time);
|
$display ("%t: OPCODE : BIT 2,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h53 :
|
8'h53 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 2,E", $time);
|
$display ("%t: OPCODE : BIT 2,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h54 :
|
8'h54 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 2,H", $time);
|
$display ("%t: OPCODE : BIT 2,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h55 :
|
8'h55 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 2,L", $time);
|
$display ("%t: OPCODE : BIT 2,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h56 :
|
8'h56 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 2,(HL)", $time);
|
$display ("%t: OPCODE : BIT 2,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h5f :
|
8'h5f :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 3,A", $time);
|
$display ("%t: OPCODE : BIT 3,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h58 :
|
8'h58 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 3,B", $time);
|
$display ("%t: OPCODE : BIT 3,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h59 :
|
8'h59 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 3,C", $time);
|
$display ("%t: OPCODE : BIT 3,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h5a :
|
8'h5a :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 3,D", $time);
|
$display ("%t: OPCODE : BIT 3,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h5b :
|
8'h5b :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 3,E", $time);
|
$display ("%t: OPCODE : BIT 3,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h5c :
|
8'h5c :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 3,H", $time);
|
$display ("%t: OPCODE : BIT 3,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h5d :
|
8'h5d :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 3,L", $time);
|
$display ("%t: OPCODE : BIT 3,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h5e :
|
8'h5e :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 3,(HL)", $time);
|
$display ("%t: OPCODE : BIT 3,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h67 :
|
8'h67 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 4,A", $time);
|
$display ("%t: OPCODE : BIT 4,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h60 :
|
8'h60 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 4,B", $time);
|
$display ("%t: OPCODE : BIT 4,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h61 :
|
8'h61 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 4,C", $time);
|
$display ("%t: OPCODE : BIT 4,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h62 :
|
8'h62 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 4,D", $time);
|
$display ("%t: OPCODE : BIT 4,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h63 :
|
8'h63 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 4,E", $time);
|
$display ("%t: OPCODE : BIT 4,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h64 :
|
8'h64 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 4,H", $time);
|
$display ("%t: OPCODE : BIT 4,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h65 :
|
8'h65 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 4,L", $time);
|
$display ("%t: OPCODE : BIT 4,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h66 :
|
8'h66 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 4,(HL)", $time);
|
$display ("%t: OPCODE : BIT 4,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h6f :
|
8'h6f :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 5,A", $time);
|
$display ("%t: OPCODE : BIT 5,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h68 :
|
8'h68 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 5,B", $time);
|
$display ("%t: OPCODE : BIT 5,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h69 :
|
8'h69 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 5,C", $time);
|
$display ("%t: OPCODE : BIT 5,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h6a :
|
8'h6a :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 5,D", $time);
|
$display ("%t: OPCODE : BIT 5,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h6b :
|
8'h6b :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 5,E", $time);
|
$display ("%t: OPCODE : BIT 5,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h6c :
|
8'h6c :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 5,H", $time);
|
$display ("%t: OPCODE : BIT 5,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h6d :
|
8'h6d :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 5,L", $time);
|
$display ("%t: OPCODE : BIT 5,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h6e :
|
8'h6e :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 5,(HL)", $time);
|
$display ("%t: OPCODE : BIT 5,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h77 :
|
8'h77 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 6,A", $time);
|
$display ("%t: OPCODE : BIT 6,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h70 :
|
8'h70 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 6,B", $time);
|
$display ("%t: OPCODE : BIT 6,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h71 :
|
8'h71 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 6,C", $time);
|
$display ("%t: OPCODE : BIT 6,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h72 :
|
8'h72 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 6,D", $time);
|
$display ("%t: OPCODE : BIT 6,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h73 :
|
8'h73 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 6,E", $time);
|
$display ("%t: OPCODE : BIT 6,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h74 :
|
8'h74 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 6,H", $time);
|
$display ("%t: OPCODE : BIT 6,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h75 :
|
8'h75 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 6,L", $time);
|
$display ("%t: OPCODE : BIT 6,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h76 :
|
8'h76 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 6,(HL)", $time);
|
$display ("%t: OPCODE : BIT 6,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h7f :
|
8'h7f :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 7,A", $time);
|
$display ("%t: OPCODE : BIT 7,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h78 :
|
8'h78 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 7,B", $time);
|
$display ("%t: OPCODE : BIT 7,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h79 :
|
8'h79 :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 7,C", $time);
|
$display ("%t: OPCODE : BIT 7,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h7a :
|
8'h7a :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 7,D", $time);
|
$display ("%t: OPCODE : BIT 7,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h7b :
|
8'h7b :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 7,E", $time);
|
$display ("%t: OPCODE : BIT 7,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h7c :
|
8'h7c :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 7,H", $time);
|
$display ("%t: OPCODE : BIT 7,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h7d :
|
8'h7d :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 7,L", $time);
|
$display ("%t: OPCODE : BIT 7,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h7e :
|
8'h7e :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 7,(HL)", $time);
|
$display ("%t: OPCODE : BIT 7,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h87 :
|
8'h87 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 0,A", $time);
|
$display ("%t: OPCODE : RES 0,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h80 :
|
8'h80 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 0,B", $time);
|
$display ("%t: OPCODE : RES 0,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h81 :
|
8'h81 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 0,C", $time);
|
$display ("%t: OPCODE : RES 0,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h82 :
|
8'h82 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 0,D", $time);
|
$display ("%t: OPCODE : RES 0,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h83 :
|
8'h83 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 0,E", $time);
|
$display ("%t: OPCODE : RES 0,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h84 :
|
8'h84 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 0,H", $time);
|
$display ("%t: OPCODE : RES 0,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h85 :
|
8'h85 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 0,L", $time);
|
$display ("%t: OPCODE : RES 0,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h86 :
|
8'h86 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 0,(HL)", $time);
|
$display ("%t: OPCODE : RES 0,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h8f :
|
8'h8f :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 1,A", $time);
|
$display ("%t: OPCODE : RES 1,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h88 :
|
8'h88 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 1,B", $time);
|
$display ("%t: OPCODE : RES 1,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h89 :
|
8'h89 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 1,C", $time);
|
$display ("%t: OPCODE : RES 1,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h8a :
|
8'h8a :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 1,D", $time);
|
$display ("%t: OPCODE : RES 1,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h8b :
|
8'h8b :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 1,E", $time);
|
$display ("%t: OPCODE : RES 1,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h8c :
|
8'h8c :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 1,H", $time);
|
$display ("%t: OPCODE : RES 1,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h8d :
|
8'h8d :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 1,L", $time);
|
$display ("%t: OPCODE : RES 1,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h8e :
|
8'h8e :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 1,(HL)", $time);
|
$display ("%t: OPCODE : RES 1,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h97 :
|
8'h97 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 2,A", $time);
|
$display ("%t: OPCODE : RES 2,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h90 :
|
8'h90 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 2,B", $time);
|
$display ("%t: OPCODE : RES 2,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h91 :
|
8'h91 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 2,C", $time);
|
$display ("%t: OPCODE : RES 2,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h92 :
|
8'h92 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 2,D", $time);
|
$display ("%t: OPCODE : RES 2,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h93 :
|
8'h93 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 2,E", $time);
|
$display ("%t: OPCODE : RES 2,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h94 :
|
8'h94 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 2,H", $time);
|
$display ("%t: OPCODE : RES 2,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h95 :
|
8'h95 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 2,L", $time);
|
$display ("%t: OPCODE : RES 2,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h96 :
|
8'h96 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 2,(HL)", $time);
|
$display ("%t: OPCODE : RES 2,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h9f :
|
8'h9f :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 3,A", $time);
|
$display ("%t: OPCODE : RES 3,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h98 :
|
8'h98 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 3,B", $time);
|
$display ("%t: OPCODE : RES 3,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h99 :
|
8'h99 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 3,C", $time);
|
$display ("%t: OPCODE : RES 3,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h9a :
|
8'h9a :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 3,D", $time);
|
$display ("%t: OPCODE : RES 3,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h9b :
|
8'h9b :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 3,E", $time);
|
$display ("%t: OPCODE : RES 3,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h9c :
|
8'h9c :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 3,H", $time);
|
$display ("%t: OPCODE : RES 3,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h9d :
|
8'h9d :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 3,L", $time);
|
$display ("%t: OPCODE : RES 3,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h9e :
|
8'h9e :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 3,(HL)", $time);
|
$display ("%t: OPCODE : RES 3,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha7 :
|
8'ha7 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 4,A", $time);
|
$display ("%t: OPCODE : RES 4,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha0 :
|
8'ha0 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 4,B", $time);
|
$display ("%t: OPCODE : RES 4,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha1 :
|
8'ha1 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 4,C", $time);
|
$display ("%t: OPCODE : RES 4,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha2 :
|
8'ha2 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 4,D", $time);
|
$display ("%t: OPCODE : RES 4,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha3 :
|
8'ha3 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 4,E", $time);
|
$display ("%t: OPCODE : RES 4,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha4 :
|
8'ha4 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 4,H", $time);
|
$display ("%t: OPCODE : RES 4,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha5 :
|
8'ha5 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 4,L", $time);
|
$display ("%t: OPCODE : RES 4,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha6 :
|
8'ha6 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 4,(HL)", $time);
|
$display ("%t: OPCODE : RES 4,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'haf :
|
8'haf :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 5,A", $time);
|
$display ("%t: OPCODE : RES 5,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha8 :
|
8'ha8 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 5,B", $time);
|
$display ("%t: OPCODE : RES 5,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha9 :
|
8'ha9 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 5,C", $time);
|
$display ("%t: OPCODE : RES 5,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'haa :
|
8'haa :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 5,D", $time);
|
$display ("%t: OPCODE : RES 5,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hab :
|
8'hab :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 5,E", $time);
|
$display ("%t: OPCODE : RES 5,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hac :
|
8'hac :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 5,H", $time);
|
$display ("%t: OPCODE : RES 5,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'had :
|
8'had :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 5,L", $time);
|
$display ("%t: OPCODE : RES 5,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hae :
|
8'hae :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 5,(HL)", $time);
|
$display ("%t: OPCODE : RES 5,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb7 :
|
8'hb7 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 6,A", $time);
|
$display ("%t: OPCODE : RES 6,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb0 :
|
8'hb0 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 6,B", $time);
|
$display ("%t: OPCODE : RES 6,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb1 :
|
8'hb1 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 6,C", $time);
|
$display ("%t: OPCODE : RES 6,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb2 :
|
8'hb2 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 6,D", $time);
|
$display ("%t: OPCODE : RES 6,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb3 :
|
8'hb3 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 6,E", $time);
|
$display ("%t: OPCODE : RES 6,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb4 :
|
8'hb4 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 6,H", $time);
|
$display ("%t: OPCODE : RES 6,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb5 :
|
8'hb5 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 6,L", $time);
|
$display ("%t: OPCODE : RES 6,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb6 :
|
8'hb6 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 6,(HL)", $time);
|
$display ("%t: OPCODE : RES 6,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hbf :
|
8'hbf :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 7,A", $time);
|
$display ("%t: OPCODE : RES 7,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb8 :
|
8'hb8 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 7,B", $time);
|
$display ("%t: OPCODE : RES 7,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb9 :
|
8'hb9 :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 7,C", $time);
|
$display ("%t: OPCODE : RES 7,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hba :
|
8'hba :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 7,D", $time);
|
$display ("%t: OPCODE : RES 7,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hbb :
|
8'hbb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 7,E", $time);
|
$display ("%t: OPCODE : RES 7,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hbc :
|
8'hbc :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 7,H", $time);
|
$display ("%t: OPCODE : RES 7,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hbd :
|
8'hbd :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 7,L", $time);
|
$display ("%t: OPCODE : RES 7,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hbe :
|
8'hbe :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 7,(HL)", $time);
|
$display ("%t: OPCODE : RES 7,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hc7 :
|
8'hc7 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 0,A", $time);
|
$display ("%t: OPCODE : SET 0,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hc0 :
|
8'hc0 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 0,B", $time);
|
$display ("%t: OPCODE : SET 0,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hc1 :
|
8'hc1 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 0,C", $time);
|
$display ("%t: OPCODE : SET 0,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hc2 :
|
8'hc2 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 0,D", $time);
|
$display ("%t: OPCODE : SET 0,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hc3 :
|
8'hc3 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 0,E", $time);
|
$display ("%t: OPCODE : SET 0,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hc4 :
|
8'hc4 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 0,H", $time);
|
$display ("%t: OPCODE : SET 0,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hc5 :
|
8'hc5 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 0,L", $time);
|
$display ("%t: OPCODE : SET 0,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hc6 :
|
8'hc6 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 0,(HL)", $time);
|
$display ("%t: OPCODE : SET 0,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hcf :
|
8'hcf :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 1,A", $time);
|
$display ("%t: OPCODE : SET 1,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hc8 :
|
8'hc8 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 1,B", $time);
|
$display ("%t: OPCODE : SET 1,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hc9 :
|
8'hc9 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 1,C", $time);
|
$display ("%t: OPCODE : SET 1,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hca :
|
8'hca :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 1,D", $time);
|
$display ("%t: OPCODE : SET 1,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 1,E", $time);
|
$display ("%t: OPCODE : SET 1,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hcc :
|
8'hcc :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 1,H", $time);
|
$display ("%t: OPCODE : SET 1,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hcd :
|
8'hcd :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 1,L", $time);
|
$display ("%t: OPCODE : SET 1,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hce :
|
8'hce :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 1,(HL)", $time);
|
$display ("%t: OPCODE : SET 1,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hd7 :
|
8'hd7 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 2,A", $time);
|
$display ("%t: OPCODE : SET 2,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hd0 :
|
8'hd0 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 2,B", $time);
|
$display ("%t: OPCODE : SET 2,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hd1 :
|
8'hd1 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 2,C", $time);
|
$display ("%t: OPCODE : SET 2,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hd2 :
|
8'hd2 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 2,D", $time);
|
$display ("%t: OPCODE : SET 2,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hd3 :
|
8'hd3 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 2,E", $time);
|
$display ("%t: OPCODE : SET 2,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hd4 :
|
8'hd4 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 2,H", $time);
|
$display ("%t: OPCODE : SET 2,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hd5 :
|
8'hd5 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 2,L", $time);
|
$display ("%t: OPCODE : SET 2,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hd6 :
|
8'hd6 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 2,(HL)", $time);
|
$display ("%t: OPCODE : SET 2,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hdf :
|
8'hdf :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 3,A", $time);
|
$display ("%t: OPCODE : SET 3,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hd8 :
|
8'hd8 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 3,B", $time);
|
$display ("%t: OPCODE : SET 3,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hd9 :
|
8'hd9 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 3,C", $time);
|
$display ("%t: OPCODE : SET 3,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hda :
|
8'hda :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 3,D", $time);
|
$display ("%t: OPCODE : SET 3,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hdb :
|
8'hdb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 3,E", $time);
|
$display ("%t: OPCODE : SET 3,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hdc :
|
8'hdc :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 3,H", $time);
|
$display ("%t: OPCODE : SET 3,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hdd :
|
8'hdd :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 3,L", $time);
|
$display ("%t: OPCODE : SET 3,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hde :
|
8'hde :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 3,(HL)", $time);
|
$display ("%t: OPCODE : SET 3,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he7 :
|
8'he7 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 4,A", $time);
|
$display ("%t: OPCODE : SET 4,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he0 :
|
8'he0 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 4,B", $time);
|
$display ("%t: OPCODE : SET 4,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he1 :
|
8'he1 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 4,C", $time);
|
$display ("%t: OPCODE : SET 4,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he2 :
|
8'he2 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 4,D", $time);
|
$display ("%t: OPCODE : SET 4,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he3 :
|
8'he3 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 4,E", $time);
|
$display ("%t: OPCODE : SET 4,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he4 :
|
8'he4 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 4,H", $time);
|
$display ("%t: OPCODE : SET 4,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he5 :
|
8'he5 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 4,L", $time);
|
$display ("%t: OPCODE : SET 4,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he6 :
|
8'he6 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 4,(HL)", $time);
|
$display ("%t: OPCODE : SET 4,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hef :
|
8'hef :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 5,A", $time);
|
$display ("%t: OPCODE : SET 5,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he8 :
|
8'he8 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 5,B", $time);
|
$display ("%t: OPCODE : SET 5,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he9 :
|
8'he9 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 5,C", $time);
|
$display ("%t: OPCODE : SET 5,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hea :
|
8'hea :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 5,D", $time);
|
$display ("%t: OPCODE : SET 5,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'heb :
|
8'heb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 5,E", $time);
|
$display ("%t: OPCODE : SET 5,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hec :
|
8'hec :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 5,H", $time);
|
$display ("%t: OPCODE : SET 5,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hed :
|
8'hed :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 5,L", $time);
|
$display ("%t: OPCODE : SET 5,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hee :
|
8'hee :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 5,(HL)", $time);
|
$display ("%t: OPCODE : SET 5,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hf7 :
|
8'hf7 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 6,A", $time);
|
$display ("%t: OPCODE : SET 6,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hf0 :
|
8'hf0 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 6,B", $time);
|
$display ("%t: OPCODE : SET 6,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hf1 :
|
8'hf1 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 6,C", $time);
|
$display ("%t: OPCODE : SET 6,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hf2 :
|
8'hf2 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 6,D", $time);
|
$display ("%t: OPCODE : SET 6,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hf3 :
|
8'hf3 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 6,E", $time);
|
$display ("%t: OPCODE : SET 6,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hf4 :
|
8'hf4 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 6,H", $time);
|
$display ("%t: OPCODE : SET 6,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hf5 :
|
8'hf5 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 6,L", $time);
|
$display ("%t: OPCODE : SET 6,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hf6 :
|
8'hf6 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 6,(HL)", $time);
|
$display ("%t: OPCODE : SET 6,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hff :
|
8'hff :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 7,A", $time);
|
$display ("%t: OPCODE : SET 7,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hf8 :
|
8'hf8 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 7,B", $time);
|
$display ("%t: OPCODE : SET 7,B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hf9 :
|
8'hf9 :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 7,C", $time);
|
$display ("%t: OPCODE : SET 7,C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hfa :
|
8'hfa :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 7,D", $time);
|
$display ("%t: OPCODE : SET 7,D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hfb :
|
8'hfb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 7,E", $time);
|
$display ("%t: OPCODE : SET 7,E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hfc :
|
8'hfc :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 7,H", $time);
|
$display ("%t: OPCODE : SET 7,H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hfd :
|
8'hfd :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 7,L", $time);
|
$display ("%t: OPCODE : SET 7,L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hfe :
|
8'hfe :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 7,(HL)", $time);
|
$display ("%t: OPCODE : SET 7,(HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h27 :
|
8'h27 :
|
begin
|
begin
|
$display ("%t: OPCODE : SLA A", $time);
|
$display ("%t: OPCODE : SLA A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h20 :
|
8'h20 :
|
begin
|
begin
|
$display ("%t: OPCODE : SLA B", $time);
|
$display ("%t: OPCODE : SLA B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h21 :
|
8'h21 :
|
begin
|
begin
|
$display ("%t: OPCODE : SLA C", $time);
|
$display ("%t: OPCODE : SLA C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h22 :
|
8'h22 :
|
begin
|
begin
|
$display ("%t: OPCODE : SLA D", $time);
|
$display ("%t: OPCODE : SLA D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h23 :
|
8'h23 :
|
begin
|
begin
|
$display ("%t: OPCODE : SLA E", $time);
|
$display ("%t: OPCODE : SLA E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h24 :
|
8'h24 :
|
begin
|
begin
|
$display ("%t: OPCODE : SLA H", $time);
|
$display ("%t: OPCODE : SLA H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h25 :
|
8'h25 :
|
begin
|
begin
|
$display ("%t: OPCODE : SLA L", $time);
|
$display ("%t: OPCODE : SLA L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h26 :
|
8'h26 :
|
begin
|
begin
|
$display ("%t: OPCODE : SLA (HL)", $time);
|
$display ("%t: OPCODE : SLA (HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h2f :
|
8'h2f :
|
begin
|
begin
|
$display ("%t: OPCODE : SRA A", $time);
|
$display ("%t: OPCODE : SRA A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h28 :
|
8'h28 :
|
begin
|
begin
|
$display ("%t: OPCODE : SRA B", $time);
|
$display ("%t: OPCODE : SRA B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h29 :
|
8'h29 :
|
begin
|
begin
|
$display ("%t: OPCODE : SRA C", $time);
|
$display ("%t: OPCODE : SRA C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h2a :
|
8'h2a :
|
begin
|
begin
|
$display ("%t: OPCODE : SRA D", $time);
|
$display ("%t: OPCODE : SRA D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h2b :
|
8'h2b :
|
begin
|
begin
|
$display ("%t: OPCODE : SRA E", $time);
|
$display ("%t: OPCODE : SRA E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h2c :
|
8'h2c :
|
begin
|
begin
|
$display ("%t: OPCODE : SRA H", $time);
|
$display ("%t: OPCODE : SRA H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h2d :
|
8'h2d :
|
begin
|
begin
|
$display ("%t: OPCODE : SRA L", $time);
|
$display ("%t: OPCODE : SRA L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h2e :
|
8'h2e :
|
begin
|
begin
|
$display ("%t: OPCODE : SRA (HL)", $time);
|
$display ("%t: OPCODE : SRA (HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h3f :
|
8'h3f :
|
begin
|
begin
|
$display ("%t: OPCODE : SRL A", $time);
|
$display ("%t: OPCODE : SRL A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h38 :
|
8'h38 :
|
begin
|
begin
|
$display ("%t: OPCODE : SRL B", $time);
|
$display ("%t: OPCODE : SRL B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h39 :
|
8'h39 :
|
begin
|
begin
|
$display ("%t: OPCODE : SRL C", $time);
|
$display ("%t: OPCODE : SRL C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h3a :
|
8'h3a :
|
begin
|
begin
|
$display ("%t: OPCODE : SRL D", $time);
|
$display ("%t: OPCODE : SRL D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h3b :
|
8'h3b :
|
begin
|
begin
|
$display ("%t: OPCODE : SRL E", $time);
|
$display ("%t: OPCODE : SRL E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h3c :
|
8'h3c :
|
begin
|
begin
|
$display ("%t: OPCODE : SRL H", $time);
|
$display ("%t: OPCODE : SRL H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h3d :
|
8'h3d :
|
begin
|
begin
|
$display ("%t: OPCODE : SRL L", $time);
|
$display ("%t: OPCODE : SRL L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h3e :
|
8'h3e :
|
begin
|
begin
|
$display ("%t: OPCODE : SRL (HL)", $time);
|
$display ("%t: OPCODE : SRL (HL)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
endcase
|
endcase
|
end
|
end
|
8'hdd :
|
8'hdd :
|
begin
|
begin
|
case (opcode)
|
case (opcode)
|
8'h7e :
|
8'h7e :
|
begin
|
begin
|
$display ("%t: OPCODE : LD A,(IX+index)", $time);
|
$display ("%t: OPCODE : LD A,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h46 :
|
8'h46 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD B,(IX+index)", $time);
|
$display ("%t: OPCODE : LD B,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h4e :
|
8'h4e :
|
begin
|
begin
|
$display ("%t: OPCODE : LD C,(IX+index)", $time);
|
$display ("%t: OPCODE : LD C,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h56 :
|
8'h56 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD D,(IX+index)", $time);
|
$display ("%t: OPCODE : LD D,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h5e :
|
8'h5e :
|
begin
|
begin
|
$display ("%t: OPCODE : LD E,(IX+index)", $time);
|
$display ("%t: OPCODE : LD E,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h66 :
|
8'h66 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD H,(IX+index)", $time);
|
$display ("%t: OPCODE : LD H,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h6e :
|
8'h6e :
|
begin
|
begin
|
$display ("%t: OPCODE : LD L,(IX+index)", $time);
|
$display ("%t: OPCODE : LD L,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h77 :
|
8'h77 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IX+index),A", $time);
|
$display ("%t: OPCODE : LD (IX+index),A", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h70 :
|
8'h70 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IX+index),B", $time);
|
$display ("%t: OPCODE : LD (IX+index),B", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h71 :
|
8'h71 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IX+index),C", $time);
|
$display ("%t: OPCODE : LD (IX+index),C", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h72 :
|
8'h72 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IX+index),D", $time);
|
$display ("%t: OPCODE : LD (IX+index),D", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h73 :
|
8'h73 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IX+index),E", $time);
|
$display ("%t: OPCODE : LD (IX+index),E", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h74 :
|
8'h74 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IX+index),H", $time);
|
$display ("%t: OPCODE : LD (IX+index),H", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h75 :
|
8'h75 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IX+index),L", $time);
|
$display ("%t: OPCODE : LD (IX+index),L", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h76 :
|
8'h76 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IX+index),byte", $time);
|
$display ("%t: OPCODE : LD (IX+index),byte", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h36 :
|
8'h36 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IX+index),byte", $time);
|
$display ("%t: OPCODE : LD (IX+index),byte", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h21 :
|
8'h21 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD IX,word", $time);
|
$display ("%t: OPCODE : LD IX,word", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'h2a :
|
8'h2a :
|
begin
|
begin
|
$display ("%t: OPCODE : LD IX,(word)", $time);
|
$display ("%t: OPCODE : LD IX,(word)", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'h22 :
|
8'h22 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (word),IX", $time);
|
$display ("%t: OPCODE : LD (word),IX", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'h22 :
|
8'h22 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (word),IY", $time);
|
$display ("%t: OPCODE : LD (word),IY", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'hf9 :
|
8'hf9 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD SP,IX", $time);
|
$display ("%t: OPCODE : LD SP,IX", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he3 :
|
8'he3 :
|
begin
|
begin
|
$display ("%t: OPCODE : EX (SP),IX", $time);
|
$display ("%t: OPCODE : EX (SP),IX", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h86 :
|
8'h86 :
|
begin
|
begin
|
$display ("%t: OPCODE : ADD A,(IX+index)", $time);
|
$display ("%t: OPCODE : ADD A,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h8e :
|
8'h8e :
|
begin
|
begin
|
$display ("%t: OPCODE : ADC A,(IX+index)", $time);
|
$display ("%t: OPCODE : ADC A,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h96 :
|
8'h96 :
|
begin
|
begin
|
$display ("%t: OPCODE : SUB (IX+index)", $time);
|
$display ("%t: OPCODE : SUB (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h9e :
|
8'h9e :
|
begin
|
begin
|
$display ("%t: OPCODE : SBC (IX+index)", $time);
|
$display ("%t: OPCODE : SBC (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h09 :
|
8'h09 :
|
begin
|
begin
|
$display ("%t: OPCODE : ADD IX,BC", $time);
|
$display ("%t: OPCODE : ADD IX,BC", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h19 :
|
8'h19 :
|
begin
|
begin
|
$display ("%t: OPCODE : ADD IX,DE", $time);
|
$display ("%t: OPCODE : ADD IX,DE", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h29 :
|
8'h29 :
|
begin
|
begin
|
$display ("%t: OPCODE : ADD IX,IX", $time);
|
$display ("%t: OPCODE : ADD IX,IX", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h39 :
|
8'h39 :
|
begin
|
begin
|
$display ("%t: OPCODE : ADD IX,SP", $time);
|
$display ("%t: OPCODE : ADD IX,SP", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h34 :
|
8'h34 :
|
begin
|
begin
|
$display ("%t: OPCODE : INC (IX+index)", $time);
|
$display ("%t: OPCODE : INC (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h35 :
|
8'h35 :
|
begin
|
begin
|
$display ("%t: OPCODE : DEC (IX+index)", $time);
|
$display ("%t: OPCODE : DEC (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h23 :
|
8'h23 :
|
begin
|
begin
|
$display ("%t: OPCODE : INC IX", $time);
|
$display ("%t: OPCODE : INC IX", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h2b :
|
8'h2b :
|
begin
|
begin
|
$display ("%t: OPCODE : DEC IX", $time);
|
$display ("%t: OPCODE : DEC IX", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RLC (IX+index)", $time);
|
$display ("%t: OPCODE : RLC (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RL (IX+index)", $time);
|
$display ("%t: OPCODE : RL (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RRC (IX+index)", $time);
|
$display ("%t: OPCODE : RRC (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RL (IX+index)", $time);
|
$display ("%t: OPCODE : RL (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'ha6 :
|
8'ha6 :
|
begin
|
begin
|
$display ("%t: OPCODE : AND (IX+index)", $time);
|
$display ("%t: OPCODE : AND (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hae :
|
8'hae :
|
begin
|
begin
|
$display ("%t: OPCODE : XOR (IX+index)", $time);
|
$display ("%t: OPCODE : XOR (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hb6 :
|
8'hb6 :
|
begin
|
begin
|
$display ("%t: OPCODE : OR (IX+index)", $time);
|
$display ("%t: OPCODE : OR (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hbe :
|
8'hbe :
|
begin
|
begin
|
$display ("%t: OPCODE : CP (IX+index)", $time);
|
$display ("%t: OPCODE : CP (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'he9 :
|
8'he9 :
|
begin
|
begin
|
$display ("%t: OPCODE : JP (IX)", $time);
|
$display ("%t: OPCODE : JP (IX)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he5 :
|
8'he5 :
|
begin
|
begin
|
$display ("%t: OPCODE : PUSH IX", $time);
|
$display ("%t: OPCODE : PUSH IX", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he1 :
|
8'he1 :
|
begin
|
begin
|
$display ("%t: OPCODE : POP IX", $time);
|
$display ("%t: OPCODE : POP IX", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 0,(IX+index)", $time);
|
$display ("%t: OPCODE : BIT 0,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 1,(IX+index)", $time);
|
$display ("%t: OPCODE : BIT 1,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 2,(IX+index)", $time);
|
$display ("%t: OPCODE : BIT 2,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 3,(IX+index)", $time);
|
$display ("%t: OPCODE : BIT 3,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 4,(IX+index)", $time);
|
$display ("%t: OPCODE : BIT 4,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 5,(IX+index)", $time);
|
$display ("%t: OPCODE : BIT 5,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 6,(IX+index)", $time);
|
$display ("%t: OPCODE : BIT 6,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 7,(IX+index)", $time);
|
$display ("%t: OPCODE : BIT 7,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 0,(IX+index)", $time);
|
$display ("%t: OPCODE : RES 0,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 1,(IX+index)", $time);
|
$display ("%t: OPCODE : RES 1,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 2,(IX+index)", $time);
|
$display ("%t: OPCODE : RES 2,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 3,(IX+index)", $time);
|
$display ("%t: OPCODE : RES 3,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 4,(IX+index)", $time);
|
$display ("%t: OPCODE : RES 4,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 5,(IX+index)", $time);
|
$display ("%t: OPCODE : RES 5,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 6,(IX+index)", $time);
|
$display ("%t: OPCODE : RES 6,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 7,(IX+index)", $time);
|
$display ("%t: OPCODE : RES 7,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 0,(IX+index)", $time);
|
$display ("%t: OPCODE : SET 0,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 1,(IX+index)", $time);
|
$display ("%t: OPCODE : SET 1,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 2,(IX+index)", $time);
|
$display ("%t: OPCODE : SET 2,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 3,(IX+index)", $time);
|
$display ("%t: OPCODE : SET 3,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 4,(IX+index)", $time);
|
$display ("%t: OPCODE : SET 4,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 5,(IX+index)", $time);
|
$display ("%t: OPCODE : SET 5,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 6,(IX+index)", $time);
|
$display ("%t: OPCODE : SET 6,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 7,(IX+index)", $time);
|
$display ("%t: OPCODE : SET 7,(IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SLA (IX+index)", $time);
|
$display ("%t: OPCODE : SLA (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SRA (IX+index)", $time);
|
$display ("%t: OPCODE : SRA (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SRL (IX+index)", $time);
|
$display ("%t: OPCODE : SRL (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
endcase
|
endcase
|
end
|
end
|
8'hed :
|
8'hed :
|
begin
|
begin
|
case (opcode)
|
case (opcode)
|
8'h57 :
|
8'h57 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD A,I", $time);
|
$display ("%t: OPCODE : LD A,I", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h4b :
|
8'h4b :
|
begin
|
begin
|
$display ("%t: OPCODE : LD BC,(word)", $time);
|
$display ("%t: OPCODE : LD BC,(word)", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'h5b :
|
8'h5b :
|
begin
|
begin
|
$display ("%t: OPCODE : LD DE,(word)", $time);
|
$display ("%t: OPCODE : LD DE,(word)", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'h6b :
|
8'h6b :
|
begin
|
begin
|
$display ("%t: OPCODE : LD HL,(word)", $time);
|
$display ("%t: OPCODE : LD HL,(word)", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'h7b :
|
8'h7b :
|
begin
|
begin
|
$display ("%t: OPCODE : LD SP,(word)", $time);
|
$display ("%t: OPCODE : LD SP,(word)", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'h43 :
|
8'h43 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (word),BC", $time);
|
$display ("%t: OPCODE : LD (word),BC", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'h53 :
|
8'h53 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (word),DE", $time);
|
$display ("%t: OPCODE : LD (word),DE", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'h6b :
|
8'h6b :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (word),HL", $time);
|
$display ("%t: OPCODE : LD (word),HL", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'h73 :
|
8'h73 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (word),SP", $time);
|
$display ("%t: OPCODE : LD (word),SP", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'h4a :
|
8'h4a :
|
begin
|
begin
|
$display ("%t: OPCODE : ADC HL,BC", $time);
|
$display ("%t: OPCODE : ADC HL,BC", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h5a :
|
8'h5a :
|
begin
|
begin
|
$display ("%t: OPCODE : ADC HL,DE", $time);
|
$display ("%t: OPCODE : ADC HL,DE", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h6a :
|
8'h6a :
|
begin
|
begin
|
$display ("%t: OPCODE : ADC HL,HL", $time);
|
$display ("%t: OPCODE : ADC HL,HL", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h7a :
|
8'h7a :
|
begin
|
begin
|
$display ("%t: OPCODE : ADC HL,SP", $time);
|
$display ("%t: OPCODE : ADC HL,SP", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h42 :
|
8'h42 :
|
begin
|
begin
|
$display ("%t: OPCODE : SBC HL,BC", $time);
|
$display ("%t: OPCODE : SBC HL,BC", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h52 :
|
8'h52 :
|
begin
|
begin
|
$display ("%t: OPCODE : SBC HL,DE", $time);
|
$display ("%t: OPCODE : SBC HL,DE", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h62 :
|
8'h62 :
|
begin
|
begin
|
$display ("%t: OPCODE : SBC HL,HL", $time);
|
$display ("%t: OPCODE : SBC HL,HL", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h72 :
|
8'h72 :
|
begin
|
begin
|
$display ("%t: OPCODE : SBC HL,SP", $time);
|
$display ("%t: OPCODE : SBC HL,SP", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h46 :
|
8'h46 :
|
begin
|
begin
|
$display ("%t: OPCODE : IM 0", $time);
|
$display ("%t: OPCODE : IM 0", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h56 :
|
8'h56 :
|
begin
|
begin
|
$display ("%t: OPCODE : IM 1", $time);
|
$display ("%t: OPCODE : IM 1", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h5e :
|
8'h5e :
|
begin
|
begin
|
$display ("%t: OPCODE : IM 2", $time);
|
$display ("%t: OPCODE : IM 2", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h47 :
|
8'h47 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD I,A", $time);
|
$display ("%t: OPCODE : LD I,A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h44 :
|
8'h44 :
|
begin
|
begin
|
$display ("%t: OPCODE : NEG ", $time);
|
$display ("%t: OPCODE : NEG ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h6f :
|
8'h6f :
|
begin
|
begin
|
$display ("%t: OPCODE : RLD ", $time);
|
$display ("%t: OPCODE : RLD ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h67 :
|
8'h67 :
|
begin
|
begin
|
$display ("%t: OPCODE : RRD ", $time);
|
$display ("%t: OPCODE : RRD ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha1 :
|
8'ha1 :
|
begin
|
begin
|
$display ("%t: OPCODE : CPI ", $time);
|
$display ("%t: OPCODE : CPI ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb1 :
|
8'hb1 :
|
begin
|
begin
|
$display ("%t: OPCODE : CPIR ", $time);
|
$display ("%t: OPCODE : CPIR ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha9 :
|
8'ha9 :
|
begin
|
begin
|
$display ("%t: OPCODE : CPD ", $time);
|
$display ("%t: OPCODE : CPD ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb9 :
|
8'hb9 :
|
begin
|
begin
|
$display ("%t: OPCODE : CPDR ", $time);
|
$display ("%t: OPCODE : CPDR ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h4d :
|
8'h4d :
|
begin
|
begin
|
$display ("%t: OPCODE : RETI ", $time);
|
$display ("%t: OPCODE : RETI ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h45 :
|
8'h45 :
|
begin
|
begin
|
$display ("%t: OPCODE : RETN ", $time);
|
$display ("%t: OPCODE : RETN ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h78 :
|
8'h78 :
|
begin
|
begin
|
$display ("%t: OPCODE : IN A,(C)", $time);
|
$display ("%t: OPCODE : IN A,(C)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h40 :
|
8'h40 :
|
begin
|
begin
|
$display ("%t: OPCODE : IN B,(C)", $time);
|
$display ("%t: OPCODE : IN B,(C)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h48 :
|
8'h48 :
|
begin
|
begin
|
$display ("%t: OPCODE : IN C,(C)", $time);
|
$display ("%t: OPCODE : IN C,(C)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h50 :
|
8'h50 :
|
begin
|
begin
|
$display ("%t: OPCODE : IN D,(C)", $time);
|
$display ("%t: OPCODE : IN D,(C)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h58 :
|
8'h58 :
|
begin
|
begin
|
$display ("%t: OPCODE : IN E,(C)", $time);
|
$display ("%t: OPCODE : IN E,(C)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h60 :
|
8'h60 :
|
begin
|
begin
|
$display ("%t: OPCODE : IN H,(C)", $time);
|
$display ("%t: OPCODE : IN H,(C)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h68 :
|
8'h68 :
|
begin
|
begin
|
$display ("%t: OPCODE : IN L,(C)", $time);
|
$display ("%t: OPCODE : IN L,(C)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha2 :
|
8'ha2 :
|
begin
|
begin
|
$display ("%t: OPCODE : INI ", $time);
|
$display ("%t: OPCODE : INI ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb2 :
|
8'hb2 :
|
begin
|
begin
|
$display ("%t: OPCODE : INIR ", $time);
|
$display ("%t: OPCODE : INIR ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'haa :
|
8'haa :
|
begin
|
begin
|
$display ("%t: OPCODE : IND ", $time);
|
$display ("%t: OPCODE : IND ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hba :
|
8'hba :
|
begin
|
begin
|
$display ("%t: OPCODE : INDR ", $time);
|
$display ("%t: OPCODE : INDR ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h79 :
|
8'h79 :
|
begin
|
begin
|
$display ("%t: OPCODE : OUT (C),A", $time);
|
$display ("%t: OPCODE : OUT (C),A", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h41 :
|
8'h41 :
|
begin
|
begin
|
$display ("%t: OPCODE : OUT (C),B", $time);
|
$display ("%t: OPCODE : OUT (C),B", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h49 :
|
8'h49 :
|
begin
|
begin
|
$display ("%t: OPCODE : OUT (C),C", $time);
|
$display ("%t: OPCODE : OUT (C),C", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h51 :
|
8'h51 :
|
begin
|
begin
|
$display ("%t: OPCODE : OUT (C),D", $time);
|
$display ("%t: OPCODE : OUT (C),D", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h59 :
|
8'h59 :
|
begin
|
begin
|
$display ("%t: OPCODE : OUT (C),E", $time);
|
$display ("%t: OPCODE : OUT (C),E", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h61 :
|
8'h61 :
|
begin
|
begin
|
$display ("%t: OPCODE : OUT (C),H", $time);
|
$display ("%t: OPCODE : OUT (C),H", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h69 :
|
8'h69 :
|
begin
|
begin
|
$display ("%t: OPCODE : OUT (C),L", $time);
|
$display ("%t: OPCODE : OUT (C),L", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha3 :
|
8'ha3 :
|
begin
|
begin
|
$display ("%t: OPCODE : OUTI ", $time);
|
$display ("%t: OPCODE : OUTI ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb3 :
|
8'hb3 :
|
begin
|
begin
|
$display ("%t: OPCODE : OTIR ", $time);
|
$display ("%t: OPCODE : OTIR ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hab :
|
8'hab :
|
begin
|
begin
|
$display ("%t: OPCODE : OUTD ", $time);
|
$display ("%t: OPCODE : OUTD ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hbb :
|
8'hbb :
|
begin
|
begin
|
$display ("%t: OPCODE : OTDR ", $time);
|
$display ("%t: OPCODE : OTDR ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha0 :
|
8'ha0 :
|
begin
|
begin
|
$display ("%t: OPCODE : LDI ", $time);
|
$display ("%t: OPCODE : LDI ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb0 :
|
8'hb0 :
|
begin
|
begin
|
$display ("%t: OPCODE : LDIR ", $time);
|
$display ("%t: OPCODE : LDIR ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'ha8 :
|
8'ha8 :
|
begin
|
begin
|
$display ("%t: OPCODE : LDD ", $time);
|
$display ("%t: OPCODE : LDD ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hb8 :
|
8'hb8 :
|
begin
|
begin
|
$display ("%t: OPCODE : LDDR ", $time);
|
$display ("%t: OPCODE : LDDR ", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
endcase
|
endcase
|
end
|
end
|
8'hfd :
|
8'hfd :
|
begin
|
begin
|
case (opcode)
|
case (opcode)
|
8'h7e :
|
8'h7e :
|
begin
|
begin
|
$display ("%t: OPCODE : LD A,(IY+index)", $time);
|
$display ("%t: OPCODE : LD A,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h46 :
|
8'h46 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD B,(IY+index)", $time);
|
$display ("%t: OPCODE : LD B,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h4e :
|
8'h4e :
|
begin
|
begin
|
$display ("%t: OPCODE : LD C,(IY+index)", $time);
|
$display ("%t: OPCODE : LD C,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h56 :
|
8'h56 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD D,(IY+index)", $time);
|
$display ("%t: OPCODE : LD D,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h5e :
|
8'h5e :
|
begin
|
begin
|
$display ("%t: OPCODE : LD E,(IY+index)", $time);
|
$display ("%t: OPCODE : LD E,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h66 :
|
8'h66 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD H,(IY+index)", $time);
|
$display ("%t: OPCODE : LD H,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h6e :
|
8'h6e :
|
begin
|
begin
|
$display ("%t: OPCODE : LD L,(IY+index)", $time);
|
$display ("%t: OPCODE : LD L,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h77 :
|
8'h77 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IY+index),A", $time);
|
$display ("%t: OPCODE : LD (IY+index),A", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h70 :
|
8'h70 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IY+index),B", $time);
|
$display ("%t: OPCODE : LD (IY+index),B", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h71 :
|
8'h71 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IY+index),C", $time);
|
$display ("%t: OPCODE : LD (IY+index),C", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h72 :
|
8'h72 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IY+index),D", $time);
|
$display ("%t: OPCODE : LD (IY+index),D", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h73 :
|
8'h73 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IY+index),E", $time);
|
$display ("%t: OPCODE : LD (IY+index),E", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h74 :
|
8'h74 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IY+index),H", $time);
|
$display ("%t: OPCODE : LD (IY+index),H", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h75 :
|
8'h75 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IY+index),L", $time);
|
$display ("%t: OPCODE : LD (IY+index),L", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h76 :
|
8'h76 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IY+index),byte", $time);
|
$display ("%t: OPCODE : LD (IY+index),byte", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h36 :
|
8'h36 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD (IY+index),byte", $time);
|
$display ("%t: OPCODE : LD (IY+index),byte", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h21 :
|
8'h21 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD IY,word", $time);
|
$display ("%t: OPCODE : LD IY,word", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'h2a :
|
8'h2a :
|
begin
|
begin
|
$display ("%t: OPCODE : LD IY,(word)", $time);
|
$display ("%t: OPCODE : LD IY,(word)", $time);
|
state = { 4'd1, 4'd2 };
|
state = { 4'd1, 4'd2 };
|
end
|
end
|
8'hf9 :
|
8'hf9 :
|
begin
|
begin
|
$display ("%t: OPCODE : LD SP,IY", $time);
|
$display ("%t: OPCODE : LD SP,IY", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he3 :
|
8'he3 :
|
begin
|
begin
|
$display ("%t: OPCODE : EX (SP),IY", $time);
|
$display ("%t: OPCODE : EX (SP),IY", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h86 :
|
8'h86 :
|
begin
|
begin
|
$display ("%t: OPCODE : ADD A,(IY+index)", $time);
|
$display ("%t: OPCODE : ADD A,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h8e :
|
8'h8e :
|
begin
|
begin
|
$display ("%t: OPCODE : ADC A,(IY+index)", $time);
|
$display ("%t: OPCODE : ADC A,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h96 :
|
8'h96 :
|
begin
|
begin
|
$display ("%t: OPCODE : SUB (IX+index)", $time);
|
$display ("%t: OPCODE : SUB (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h9e :
|
8'h9e :
|
begin
|
begin
|
$display ("%t: OPCODE : SBC (IX+index)", $time);
|
$display ("%t: OPCODE : SBC (IX+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h09 :
|
8'h09 :
|
begin
|
begin
|
$display ("%t: OPCODE : ADD IY,BC", $time);
|
$display ("%t: OPCODE : ADD IY,BC", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h19 :
|
8'h19 :
|
begin
|
begin
|
$display ("%t: OPCODE : ADD IY,DE", $time);
|
$display ("%t: OPCODE : ADD IY,DE", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h29 :
|
8'h29 :
|
begin
|
begin
|
$display ("%t: OPCODE : ADD IY,IY", $time);
|
$display ("%t: OPCODE : ADD IY,IY", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h39 :
|
8'h39 :
|
begin
|
begin
|
$display ("%t: OPCODE : ADD IY,SP", $time);
|
$display ("%t: OPCODE : ADD IY,SP", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h34 :
|
8'h34 :
|
begin
|
begin
|
$display ("%t: OPCODE : INC (IY+index)", $time);
|
$display ("%t: OPCODE : INC (IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h35 :
|
8'h35 :
|
begin
|
begin
|
$display ("%t: OPCODE : DEC (IY+index)", $time);
|
$display ("%t: OPCODE : DEC (IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'h23 :
|
8'h23 :
|
begin
|
begin
|
$display ("%t: OPCODE : INC IY", $time);
|
$display ("%t: OPCODE : INC IY", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'h2b :
|
8'h2b :
|
begin
|
begin
|
$display ("%t: OPCODE : DEC IY", $time);
|
$display ("%t: OPCODE : DEC IY", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RLC (IY+index)", $time);
|
$display ("%t: OPCODE : RLC (IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RL (IY+index)", $time);
|
$display ("%t: OPCODE : RL (IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RRC (IY+index)", $time);
|
$display ("%t: OPCODE : RRC (IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RL (IY+index)", $time);
|
$display ("%t: OPCODE : RL (IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'ha6 :
|
8'ha6 :
|
begin
|
begin
|
$display ("%t: OPCODE : AND (IY+index)", $time);
|
$display ("%t: OPCODE : AND (IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hae :
|
8'hae :
|
begin
|
begin
|
$display ("%t: OPCODE : XOR (IY+index)", $time);
|
$display ("%t: OPCODE : XOR (IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hb6 :
|
8'hb6 :
|
begin
|
begin
|
$display ("%t: OPCODE : OR (IY+index)", $time);
|
$display ("%t: OPCODE : OR (IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hbe :
|
8'hbe :
|
begin
|
begin
|
$display ("%t: OPCODE : CP (IY+index)", $time);
|
$display ("%t: OPCODE : CP (IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'he9 :
|
8'he9 :
|
begin
|
begin
|
$display ("%t: OPCODE : JP (IY)", $time);
|
$display ("%t: OPCODE : JP (IY)", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he5 :
|
8'he5 :
|
begin
|
begin
|
$display ("%t: OPCODE : PUSH IY", $time);
|
$display ("%t: OPCODE : PUSH IY", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'he1 :
|
8'he1 :
|
begin
|
begin
|
$display ("%t: OPCODE : POP IY", $time);
|
$display ("%t: OPCODE : POP IY", $time);
|
state = { 4'd0, 4'd0 };
|
state = { 4'd0, 4'd0 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 0,(IY+index)", $time);
|
$display ("%t: OPCODE : BIT 0,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 1,(IY+index)", $time);
|
$display ("%t: OPCODE : BIT 1,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 2,(IY+index)", $time);
|
$display ("%t: OPCODE : BIT 2,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 3,(IY+index)", $time);
|
$display ("%t: OPCODE : BIT 3,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 4,(IY+index)", $time);
|
$display ("%t: OPCODE : BIT 4,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 5,(IY+index)", $time);
|
$display ("%t: OPCODE : BIT 5,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 6,(IY+index)", $time);
|
$display ("%t: OPCODE : BIT 6,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : BIT 7,(IY+index)", $time);
|
$display ("%t: OPCODE : BIT 7,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 0,(IY+index)", $time);
|
$display ("%t: OPCODE : RES 0,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 1,(IY+index)", $time);
|
$display ("%t: OPCODE : RES 1,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 2,(IY+index)", $time);
|
$display ("%t: OPCODE : RES 2,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 3,(IY+index)", $time);
|
$display ("%t: OPCODE : RES 3,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 4,(IY+index)", $time);
|
$display ("%t: OPCODE : RES 4,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 5,(IY+index)", $time);
|
$display ("%t: OPCODE : RES 5,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 6,(IY+index)", $time);
|
$display ("%t: OPCODE : RES 6,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : RES 7,(IY+index)", $time);
|
$display ("%t: OPCODE : RES 7,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 0,(IY+index)", $time);
|
$display ("%t: OPCODE : SET 0,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 1,(IY+index)", $time);
|
$display ("%t: OPCODE : SET 1,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 2,(IY+index)", $time);
|
$display ("%t: OPCODE : SET 2,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 3,(IY+index)", $time);
|
$display ("%t: OPCODE : SET 3,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 4,(IY+index)", $time);
|
$display ("%t: OPCODE : SET 4,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 5,(IY+index)", $time);
|
$display ("%t: OPCODE : SET 5,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 6,(IY+index)", $time);
|
$display ("%t: OPCODE : SET 6,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SET 7,(IY+index)", $time);
|
$display ("%t: OPCODE : SET 7,(IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SLA (IY+index)", $time);
|
$display ("%t: OPCODE : SLA (IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SRA (IY+index)", $time);
|
$display ("%t: OPCODE : SRA (IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
8'hcb :
|
8'hcb :
|
begin
|
begin
|
$display ("%t: OPCODE : SRL (IY+index)", $time);
|
$display ("%t: OPCODE : SRL (IY+index)", $time);
|
state = { 4'd1, 4'd1 };
|
state = { 4'd1, 4'd1 };
|
end
|
end
|
endcase
|
endcase
|
end
|
end
|
endcase
|
endcase
|
end
|
end
|
endtask
|
endtask
|
|
|
task decode;
|
task decode;
|
input [7:0] byte;
|
input [7:0] byte;
|
inout [7:0] state;
|
inout [7:0] state;
|
begin
|
begin
|
if (state == 0)
|
if (state == 0)
|
decode0 (byte, state);
|
decode0 (byte, state);
|
else if (state[7:4] == 1)
|
else if (state[7:4] == 1)
|
begin
|
begin
|
state[3:0] = state[3:0] - 1;
|
state[3:0] = state[3:0] - 1;
|
if (state[3:0] == 0)
|
if (state[3:0] == 0)
|
state[7:0] = 0;
|
state[7:0] = 0;
|
end
|
end
|
else
|
else
|
begin
|
begin
|
decode1 (byte, state);
|
decode1 (byte, state);
|
end
|
end
|
end
|
end
|
endtask // decode
|
endtask // decode
|
|
|
endmodule // op_decode
|
endmodule // op_decode
|
|
|
