取指令部分 的一部分
2018/7/10
process(ir,w)
{
case IR is
when"0110"=> --ST
LIR <= W(0);
M <= W(1);
S <= W(1) & W(1) & W(1) & W(1);
ABUS <= W(1);
LAR <= W(1);
LONG <= W(1);
S <= W(2) & '0' & W(2) & '0';
M <= W(2);
ABUS <= W(2);
MEMW <= W(2);
when"0111"=>--JC
LIR <= W(0);
if(C ='1') then
PCADD <= W(1);
when"1000"=>--JZ
LIR <= W(0);
if(Z ='1') then
PCADD <= W(1);
when"1001"=>--JMP
LIR <= W(0);
M <= W(1);
S <= W(1) & W(1) & W(1) & W(1);
ABUS <= W(1);
LPC <= W(1);
when"1110"=>--STP
LIR <= W(0);
STOP <= W(1);
}