title    4to12_Dmux

device 26cv12

CLK      1
A        2
B        3
C        4
D        5
LD       6
CLR      8
TOG      9

 Q11     27
 Q10     26
 Q9      25
/Q8      24
/Q7      23
/Q6      22
/Q5      20
/Q4      19
/Q3      18
/Q2      17
/Q1      16
 Q0      15

start

ARESET =  D * C * B;

SPRESET = D * C;

Q0  :=  CLR                       'Clear Q0
     +  LD*/D*/C*/B*/A            'Decode 000
     + /LD*/TOG* Q0               'Hold
     + /LD* TOG*/Q0;              'Toggle polarity

/Q1 /:=  CLR                       'Clear Q1
     +  LD*/D*/C*/B* A            'Decode 001
     + /LD*/TOG* Q1               'Hold
     + /LD* TOG*/Q1;              'Toggle polarity

/Q2 /:=  CLR                       'Clear Q2
     +  LD*/D*/C* B*/A            'Decode 010
     + /LD*/TOG* Q2               'Hold
     + /LD* TOG*/Q2;              'Toggle polarity

/Q3 /:=  CLR                       'Clear Q3
     +  LD*/D*/C* B* A            'Decode 011
     + /LD*/TOG* Q3               'Hold
     + /LD* TOG*/Q3;              'Toggle polarity

/Q4 /:=  CLR                       'Clear Q4
     +  LD*/D* C*/B*/A            'Decode 100
     + /LD*/TOG* Q4               'Hold
     + /LD* TOG*/Q4;              'Toggle polarity

/Q5 /:=  CLR                       'Clear Q5
     +  LD*/D* C*/B* A            'Decode 101
     + /LD*/TOG* Q5               'Hold
     + /LD* TOG*/Q5;              'Toggle polarity

/Q6 /:=  CLR                       'Clear Q6
     +  LD*/D* C* B*/A            'Decode 110
     + /LD*/TOG* Q6               'Hold
     + /LD* TOG*/Q6;              'Toggle polarity

/Q7 /:=  CLR                       'Clear Q7
     +  LD*/D* C* B* A            'Decode 111
     + /LD*/TOG* Q7               'Hold
     + /LD* TOG*/Q7;              'Toggle polarity

/Q8 /:=  CLR                       'Clear Q8
     +  LD* D*/C*/B*/A            'Decode
     + /LD*/TOG* Q8               'Hold
     + /LD* TOG*/Q8;              'Toggle polarity

Q9  :=  CLR                       'Clear Q9
     +  LD* D*/C*/B* A            'Decode
     + /LD*/TOG* Q9               'Hold
     + /LD* TOG*/Q9;              'Toggle polarity

Q10 :=  CLR                       'Clear Q10
     +  LD* D*/C* B*/A            'Decode
     + /LD*/TOG* Q10              'Hold
     + /LD* TOG*/Q10;              'Toggle polarity

Q11 :=  CLR                       'Clear Q11
     +  LD* D*/C* B* A            'Decode
     + /LD*/TOG* Q11              'Hold
     + /LD* TOG*/Q11;             'Toggle polarity


vector C00000N10HHHH0HLLLLLNLLLHHH0 ' 1
vector C00000N01HHHH0LHHHHHNHHHLLL0 ' 2
vector C00000N01HHHH0HLLLLLNLLLHHH0 ' 3
vector C00000N00HHHH0HLLLLLNLLLHHH0 ' 4
vector C00000N00HHHH0HLLLLLNLLLHHH0 ' 5
vector 001110N00HHHH0LHHHHHNHHHLLL0 ' 6
vector 000110N00HHHH0LHHHHHNHHHLLL0 ' 7
vector C00110N00HHHH0HLLLLLNLLLHHH0 ' 8
vector C00001N00HHHH0HHHHHHNHHHLLL0 ' 9
vector C10001N00HHHH0LLHHHHNHHHLLL0 ' 10
vector C01001N00HHHH0LHLHHHNHHHLLL0 ' 11
vector C11001N00HHHH0LHHLHHNHHHLLL0 ' 12
vector C00101N00HHHH0LHHHLHNHHHLLL0 ' 13
vector C10101N00HHHH0LHHHHLNHHHLLL0 ' 14
vector C01101N00HHHH0LHHHHHNLHHLLL0 ' 15
vector C11101N00HHHH0LHHHHHNHLHLLL0 ' 16
vector C00011N00HHHH0LHHHHHNHHLLLL0 ' 17
vector C10011N00HHHH0LHHHHHNHHHHLL0 ' 18
vector C01011N00HHHH0LHHHHHNHHHLHL0 ' 19
vector C11011N00HHHH0LHHHHHNHHHLLH0 ' 20
vector P10011N00HHHH0101010N0101010 ' 21
vector 010011N00HHHH0LLHLHLNLHLLHL0 ' 22

end