hp-saturn/opcodes/8[45]n_ST_EQ_[01]_n.v

/******************************************************************************
 * 84n	ST=0   n
 * 85n	ST=1   n
 */ 

`include "decstates.v"

`DEC_ST_EQ_0_N: begin
    ST[nibble] <= 0;
    decstate <= `DEC_START;
`ifdef SIM
    $display("%05h ST=0\t%h", saved_PC, nibble);
`endif
end
`DEC_ST_EQ_1_N: begin
    ST[nibble] <= 1;
    decstate <= `DEC_START;
`ifdef SIM
    $display("%05h ST=1\t%h", saved_PC, nibble);
`endif
end
entirely redesign the state machine 2019-02-07 22:54:06 +01:00			`/******************************************************************************`
			`* 84n ST=0 n`
			`* 85n ST=1 n`
			`*/`

implement more instructions, catch errors 2019-02-07 23:31:35 +01:00			`include "decstates.v"

			`DEC_ST_EQ_0_N: begin
			`ST[nibble] <= 0;`
			decstate <= `DEC_START;
			`ifdef SIM
			`$display("%05h ST=0\t%h", saved_PC, nibble);`
			`endif
			`end`
			`DEC_ST_EQ_1_N: begin
			`ST[nibble] <= 1;`
			decstate <= `DEC_START;
			`ifdef SIM
			`$display("%05h ST=1\t%h", saved_PC, nibble);`
			`endif
			`end`