module minicpu(clk, reset, run, in, cs, pcout, irout, qtop, abus, dbus, out);
 input clk,reset,run; input [15:0] in; output [1:0] cs; output [15:0] irout, qtop, dbus, out; output [11:0] pcout, abus; wire [15:0] qnext, ramout, aluout; reg [11:0] abus; reg halt, jump, pcinc, push, pop, thru, qthru, dbus2qtop, dbus2ram, dbus2obuf, ir2dbus, qtop2dbus, alu2dbus, ram2dbus, in2dbus; reg pop2, ir2abus, qtop2abus, qnext2abus; reg [11:0] pcout, pcnext; reg [15:0] out;
 statef statef0(.clk(clk),.reset(reset),.run(run),.halt(halt),.cs(cs)); stackm stackm0(.clk(clk),.reset(reset),.load(dbus2qtop),.push(push),.pop(pop),.pop2(pop2),.thru(qthru),.d(dbus),.dthru(ramout),.qtop(qtop),.qnext(qnext)); alu alu0(.a(qtop),.b(qnext),.f(irout[4:0]),.s(aluout)); dpram #(16,10,1024) dpram0(.clk(clk),.load1(dbus2ram),.addr1(abus),.addr2(pcnext),.d1(dbus),.q1(ramout),.q2(irout));

#!/usr/bin/perl -W//*****************//print "*** LABEL LIST ***
";foreach $l (sort(keys(%label))){    printf "%-8s%03X
",$l,$label{$l};}
$addr=0;print "
*** MACHINE PROGRAM ***
";foreach (@source){    $line = $_;    s/w+://;    if(/PUSHIs+(-?d+)/){       printf "%03X:%04X	$line",$addr++,$MCODE{PUSHI}+($1&0xfff);    } elsif(/(PUSH|POP|JMP|JZ|JNZ)s+(w+)/){       printf "%03X:%04X	$line",$addr++,$MCODE{$1}+$label{$2};    }elsif(/(-?d+)/){       printf "%03X:%04X	$line",$addr++,$1&0xffff;    } elsif(/([A-Z]+)/){       printf "%03X:%04X	$line",$addr++,$MCODE{$1};    } else {       print "		$line";    }}

%{#include %}%union {char *s; int n;}%token  NAME NUMBER%destructor { free($$); } NAME NUMBER%token  IF WHILE DO%type  if0%token GOTO ELSE INT IN OUT HALT......%%int yyerror(char *s){ printf("%s
",s); }int main(){ yyparse(); }%{ #include  #include "y.tab.h" int n=0;%}......while    {yylval.n=++n;return(WHILE);}[0-9]+       {yylval.s=strdup(yytext);return(NUMBER);}[a-zA-Z][a-zA-Z0-9]*    {yylval.s=strdup(yytext);return(NAME);}.            {return(yytext[0]);}%%int yywrap(){ return(1);}

start: JK start       nop       sdal 32       sdah 0       datploop:  ting       inl       ting       inh       jend cxcute       nop       jmp loop       incexcute: call 32        nop        jmp start        nop

double KalmanFilter(const double ResrcData,                                        double ProcessNiose_Q,double MeasureNoise_R,double InitialPrediction){        double R = MeasureNoise_R;        double Q = ProcessNiose_Q;
        static        double x_last;
        double x_mid = x_last;        double x_now;
        static        double p_last;
        double p_mid ;        double p_now;        double kg;        
        x_mid=x_last; //x_last=x(k-1|k-1),x_mid=x(k|k-1)        p_mid=p_last+Q; //p_mid=p(k|k-1),p_last=p(k-1|k-1),Q=噪聲        kg=p_mid/(p_mid+R); //kg為kalman filter，R為噪聲        x_now=x_mid+kg*(ResrcData-x_mid);//估計(jì)出的最優(yōu)值                        p_now=(1-kg)*p_mid;//最優(yōu)值對(duì)應(yīng)的covariance        
        p_last = p_now; //更新covariance值        x_last = x_now; //更新系統(tǒng)狀態(tài)值
        return x_now;                }