"Date: 03-May-00, 21-Mar-01 with test vectors
 final version compiled 17/04/01

 Channel Sounder, Receiver PAL 1
 chspg1v1.txt
 using PLPL
"
DEVICE chspg1 (p22v10)
PIN
clk 	= 1 (CLK_INPUT combinatorial)
a0  	= 2 (INPUT combinatorial)
a1  	= 3 (INPUT combinatorial)
d6  	= 4 (INPUT combinatorial)
d4  	= 5 (INPUT combinatorial)
d7  	= 6 (INPUT combinatorial)
d2  	= 7 (INPUT combinatorial)
d5  	= 8 (INPUT combinatorial)
d0  	= 9 (INPUT combinatorial)
d3 	= 10 (INPUT combinatorial)
d1  	= 11 (INPUT combinatorial)
ci  	= 13 (INPUT combinatorial)
q4  	= 14 (OUTPUT active_high registered)
q5  	= 15 (OUTPUT active_high registered)
q6  	= 16 (OUTPUT active_high registered)
q7  	= 17 (OUTPUT active_high registered)
sex  	= 18 (OUTPUT active_high registered)
co  	= 19 (OUTPUT active_high registered)
q0  	= 20 (OUTPUT active_high registered)
q1  	= 21 (OUTPUT active_high registered)
q2 	= 22 (OUTPUT active_high registered)
q3 	= 23 (OUTPUT active_high registered)

;

DEFINE

mode0	= /a0 * /a1,
mode1	=  a0 * /a1,
mode2	= /a0 *  a1,
mode3	=  a0 *  a1 ;

"Logic Equation Section"

BEGIN

enable(q4,q5,q6,q7,sex,co,q0,q1,q2,q3) = #b1111111111;
reset (q4,q5,q6,q7,sex,co,q0,q1,q2,q3) = #b0000000000;
preset(q4,q5,q6,q7,sex,co,q0,q1,q2,q3) = #b0000000000;

q0	= (mode0 + mode1) * d0  +  mode2 * sex ;
q1	= (mode0 + mode1) * d1  +  mode2 * sex ;
q2	= (mode0 + mode1) * d2  +  mode2 * sex ;
q3	= (mode0 + mode1) * d3  +  mode2 * sex ;
q4	= (mode0 + mode1) * d4  +  mode2 * sex ;
q5	= (mode0 + mode1) * d5  +  mode2 * sex ;
q6	= (mode0 + mode1) * d6  +  mode2 * sex ;
q7	= (mode0 + mode1) * d7  +  mode2 * sex ;

sex 	= d7 ;

co	= ci * /mode0  + mode3 ;

END.

test_vectors  "with deliberate rror"
in clk a1 a0 d7 d6 d5 d4 d3 d2 d1 d0 ci;
out q7 q6 q5 q4 q3 q2 q1 q0 sex co;
begin
"
CLK AA  DDDDDDDD Ci  QQQQQQQQ   S Co
_____________________________________________________"
C  00  01010101  1   LHLHLHLH   L L ;
C  01  11010101  1   HHLHLHLH   H H ;
C  10  01010101  0   HHHHHLHH   L L ;
C  11  00000000  0   LLLLLLLL   L H ;

END.