x74ls160.abl

以前做的一个数字钟

MODULE X74LS160

	CLK, CLR, P, T, LD		PIN ;
	D0, D1, D2, D3			PIN ;
	Q0, Q1, Q2, Q3			PIN  ISTYPE 'REG';
	TC				PIN ISTYPE 'COM';
	DATA = [D3, D2, D1, D0];
	COUNT = [Q3, Q2, Q1, Q0];

EQUATIONS

	COUNT.CLK = CLK;
	COUNT.AR = CLR;
	WHEN ((COUNT == ^h9) & P & T) THEN COUNT := 0;
		ELSE WHEN ((P & T) & LD) THEN COUNT := (COUNT.FB + 1);
			ELSE WHEN (!LD) THEN COUNT := DATA;
				ELSE WHEN (!(P & T) & LD) THEN COUNT := (COUNT.FB);

	TC = (COUNT == ^h9) & P & T;

END