Sample file for the EP600      Use with SMS PLDASM   V3.0e or later

counter on right side of device is synch
counter on left side of device is asynch

/^:=  or  ^:=  means that the flip flop is a toggle type, not D type

Device ep600
 pin1    = 1
 pin2    = 2             ' count enable, active low
 pin3    = 3             ' asynch counter clock
 pin4    = 4
 pin5    = 5
 pin6    = 6
 pin7    = 7
 pin8    = 8
 pin9    = 9
 pin10    = 10
 pin11    = 11
 pin13    = 13
 pin14    = 14          ' active high reset
 pin15    = 15
 pin16    = 16
 pin17    = 17
 pin18    = 18
 pin19    = 19
 pin20    = 20
 pin21    = 21
 pin22    = 22
 pin23    = 23

turbo

start
                                ' use T type flip flop
 pin22   ^:=   pin2 * pin22     ' reset by toggling if high
           +  /pin2;            ' count => toggle
 pin22.rst = pin14;             ' another way to reset

 pin21   ^:=   pin2 * pin21     ' reset
           +  /pin2 * pin22;    ' carry count from pin22
 pin21.rst = pin14;

 pin20   ^:=   pin2 * pin20
           +  /pin2 * pin22 * pin21;
 pin20.rst = pin14;

 pin19   ^:=   pin2 * pin19
           +  /pin2 * pin22 * pin21 * pin20;
 pin19.rst = pin14;

 pin18   ^:=   pin2 * pin18
           +  /pin2 * pin22 * pin21 * pin20 * pin19;
 pin18.rst = pin14;

 pin17   ^:=   pin2 * pin17
           +  /pin2 * pin22 * pin21 * pin20 * pin19 * pin18;
 pin17.rst = pin14;

 pin16   ^:=   pin2 * pin16
           +  /pin2 * pin22 * pin21 * pin20 * pin19 * pin18 * pin17;
 pin16.rst = pin14;

 pin15   ^:=   pin2 * pin15
           +  /pin2 * pin22 * pin21 * pin20 * pin19 * pin18 * pin17 * pin16;
 pin15.rst = pin14;

 pin3     :=  /pin3;          ' toggle
 pin3.rst  =   pin2;          ' reset

 pin4     :=  /pin4;          ' make a T type from a D type
 pin4.clk  =  /pin3;          ' use pin 3 as asynch clock
 pin4.rst  =   pin2;

 pin5     :=  /pin5;
 pin5.clk  =  /pin4;
 pin5.rst  =   pin2;

 pin6     :=  /pin6;
 pin6.clk  =  /pin5;
 pin6.rst  =   pin2;

 pin7     :=  /pin7;
 pin7.clk  =  /pin6;
 pin7.rst  =   pin2;

 pin8     :=  /pin8;
 pin8.clk  =  /pin7;
 pin8.rst  =   pin2;

 pin9     :=  /pin9;
 pin9.clk  =  /pin8;
 pin9.rst  =   pin2;

vector K1LLLLLLLHHNK1LLLLLLLLHN ' 1     these vectors were made using
vector K1LLLLLLLHHNK1LLLLLLLLHN ' 2     the PAL 'G' command.
vector K0HLLLLLLHHNK0LLLLLLLHHN ' 3
vector K0LHLLLLLHHNK0LLLLLLHLHN ' 4
vector K0HHLLLLLHHNK0LLLLLLHHHN ' 5
vector K0LLHLLLLHHNK0LLLLLHLLHN ' 6
vector K0HLHLLLLHHNK0LLLLLHLHHN ' 7
vector K0LHHLLLLHHNK0LLLLLHHLHN ' 8
vector K0HHHLLLLHHNK0LLLLLHHHHN ' 9
vector K0LLLHLLLHHNK0LLLLHLLLHN ' 10
vector K0HLLHLLLHHNK0LLLLHLLHHN ' 11
vector K0LHLHLLLHHNK0LLLLHLHLHN ' 12
vector K0HHLHLLLHHNK0LLLLHLHHHN ' 13
vector K0LLHHLLLHHNK0LLLLHHLLHN ' 14
vector K0HLHHLLLHHNK0LLLLHHLHHN ' 15
vector K0LHHHLLLHHNK0LLLLHHHLHN ' 16
vector K0HHHHLLLHHNK0LLLLHHHHHN ' 17


end