MODULE callidp

TITLE 'Decodage adresse carte callidplus'

declarations
"entrees
ECLK 		Pin 1;
A15,A14 	Pin 2,3;
RW		Pin 6;
"sorties
EPROMCE		Pin 19;
ELCD		Pin 18;
EPROMOE	  	Pin 17;

;
H,L,C,K,U,D,Z,X = 1,0,.C.,.K.,.U.,.D.,.Z.,.X.;
Address =[A15,A14,X,X,X,X,X,X,X,X,X,X,X,X,X,X];
VCC=1;
GND=0;
equations
!EPROMCE =( (Address >=^hC000) & (Address <=^hFFFF)  );
ELCD = ((Address >=^h8000) & (Address <=^h7FFF) & (ECLK==1));
EPROMOE = !(RW & ECLK);
END