x74ls160.lst

以前做的一个数字钟

0002 |
0003 |	CLK, CLR, P, T, LD		PIN ;
0004 |	D0, D1, D2, D3			PIN ;
0005 |	Q0, Q1, Q2, Q3			PIN  ISTYPE 'REG';
0006 |	TC				PIN ISTYPE 'COM';
0007 |	DATA = [D3, D2, D1, D0];
0008 |	COUNT = [Q3, Q2, Q1, Q0];
0009 |
0010 |EQUATIONS
0011 |
0012 |	COUNT.CLK = CLK;
0013 |	COUNT.AR = CLR;
0014 |	WHEN ((COUNT == ^h9) & P & T) THEN COUNT := 0;
0015 |		ELSE WHEN ((P & T) & LD) THEN COUNT := (COUNT.FB + 1);
0016 |			ELSE WHEN (!LD) THEN COUNT := DATA;
0017 |				ELSE WHEN (!(P & T) & LD) THEN COUNT := (COUNT.FB);
0018 |
0019 |	TC = (COUNT == ^h9) & P & T;
0020 |
0021 |END 
0022 |