title    4to10_Dmux

device 18V10

CLK      1
A        2
B        3
C        4
D        5
LD       6
CLR      7
TOG      8
Q9       9
GND     10
/Q8      11
/Q7      12
/Q6      13
/Q5      14
/Q4      15
/Q3      16
/Q2      17
/Q1      18
Q0      19
VCC     20

start

ARESET =  D * 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 Q7
     +  LD* D*/C*/B*/A            'Decode 111
     + /LD*/TOG* Q8               'Hold
     + /LD* TOG*/Q8;              'Toggle polarity

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


vector C0000010HNLLLLLLLLHN ' 1
vector C0000000HNLLLLLLLLHN ' 2
vector C0000001LNHHHHHHHHLN ' 3
vector C0000001HNLLLLLLLLHN ' 4
vector 00101000LNHHHHHHHHLN ' 5
vector C0011000HNLLLLLLLLHN ' 6
vector C0000001LNHHHHHHHHLN ' 7
vector C0000100LNHHHHHHHHHN ' 8
vector C1000101LNHHHHHHHLLN ' 9
vector C0100101LNHHHHHHLHLN ' 10
vector C1100101LNHHHHHLHHLN ' 11
vector C0010101LNHHHHLHHHLN ' 12
vector C1010101LNHHHLHHHHLN ' 13
vector C0110101LNHHLHHHHHLN ' 14
vector C1110101LNHLHHHHHHLN ' 15
vector C0001101LNLHHHHHHHLN ' 16
vector C1001101HNHHHHHHHHLN ' 17
vector P00001010N101010101N ' 18
vector 00000101HNHLHLHLHLLN ' 19

end