module  adrdecode                       "source compatible ABEL 4.0
title 'PALCE16V8 de decodage d'adresses pour carte moniteur 68hc11 Micro11
Concepteur: BENOIT                LNS-DIR            20 Juin 1997
Derniere mise a jour:                                23 Juin 1997 '
 
declarations

     
"entrees
        ECLK				Pin ;
        RW,!RESET 			Pin ;              
        A12,A13,A14,A15			Pin ;

"sorties
	!EPROM,!LED,!PIA		Pin   istype 'com,buffer';
        LCD				Pin   istype 'com,buffer';
	!WE,!OE				Pin   istype 'com,buffer';
	!BRESET				Pin   istype 'com,buffer';

	RAZ				node  istype '';

;

        H,L,C,K,U,D,Z,X = 1,0,.C.,.K.,.U.,.D.,.Z.,.X.;

        A = [A15,A14,A13,A12];
        VCC = 1;
        GND = 0;

equations       

	!BRESET	= !(!(!RESET)) ;			"RAZ GENERALE
	!OE = !(RW & ECLK);				"OUTPUT ENABLE
	!WE = !(ECLK & !(RW));				"WRITE ENABLE
	!EPROM = !(A15 & A14);				"CHIP ENABLE EPROM /C000-FFFF/ lecture seule
	!LED = !(A15 & A14) & (RW == 0);		"SELECT AFF. & SEGMENTS /C000-FFFF/ ecriture
"	!LED = !((A15&A12) & (!A14 & !A11 & !A13));	"SELECT AFF. 7 SEGMENTS /9000-901F/
	 LCD = ;					"ENABLE AFF. LCD 2*16 /8000-9000/
"	 LCD = (!A15 & !(!(A14&ECLK)));	     		"ENABLE AFF. LCD 2*16 /4000-7FFF/
	!PIA = ;					"6821 PI /B800-BFFF/
"
test_vectors "Test apres Fittage
@IFB() { 

([ECLK,RW,!RESET,A]->[!EPROM,!LED,!PIA,LCD,!WE,!OE,!BRESET])
"        ~               ~  ~  ~     ~  ~  ~  ~	 "
"  E  R  R  A  F  A      E  L  P  L  L  W  O  B  "
"  C  W  E  .  .  .      P  E  I  C  C  E  E  R  "
"  L  .  S  .  .  .      R  D  A  D  D  .  .  E  "     
"  K  .  E  .  .  .      O  .  .  .  .  .  .  S  "
"  .  .  T  .  .  .      M  .  .  .  .  .  .  E  "
"  .  .  .  .  .  .      .  .  .  .  .  .  .  T  "
"						 "
 [ X, X, 1, X, X, X] ->[ X, X, X, X, X, X, X, 1];"!RESET
 [ X, X, 0, X, X, X] ->[ X, X, X, X, X, X, X, 0];"!RESET

}
;#fin de fichier.