memprepare.comp

/* sudo halcompile --install memprepare.comp */
component memprepare ;

pin in signed in;
pin out signed out;
pin out signed old; 
pin out bit part1;// включает 1-ю часть схемы
pin out bit part2;// включает 2-ю часть схемы
variable signed tmp;

function _;
license "GPL";
;;
#include "rtapi_math.h"

FUNCTION(_) {

out = in;

if(tmp){
       if(in != tmp){
                     old = tmp;
                     part1 = 1;
                     part2 = 0;
       }
} else {
        if(in != tmp){
                     old = tmp;
                      part1 = 0;
                      part2 = 1;
        }
}        
tmp = in;

}