bh.abl

电子拔河游戏的实现, 二极管,移位寄存器和计数器的实现

MODULE BH

TITLE '拔河游戏机 '

DECLARATIONS
	LEFT,RIGHT 	PIN 9,22;
	CLR 	PIN ;
	L8..L0 	PIN 16,25,17,30,43,31,10,32,28 ISTYPE 'REG';
	P3,P2,P1,P0 PIN ISTYPE 'REG'
        Q3,Q2,Q1,Q0 PIN ISTYPE 'REG'
        D1,D2,D3,D4	NODE ISTYPE 'REG';
        E1,E2,E3,E4     NODE ISTYPE 'REG';
	W	NODE ISTYPE 'REG';
	D1=D2=D3=D4=E1=E2=E3=E4;
	L=[L8..L0];
EQUATIONS
	L.CLK=LEFT#RIGHT;
	W.CLK=LEFT#RIGHT;
	WHEN CLR==1 THEN L:=[0,0,0,0,1,0,0,0,0];
	ELSE
	{
		WHEN((LEFT&L8)#(RIGHT&L0)#W) THEN {W:=1;L:=L}
		ELSE
		{
		WHEN(!W&(LEFT#RIGHT)) 
	 	THEN	L:=(LEFT&[L7..L0,0])#(RIGHT&[0,L8..L1]);
	 	};
	
	WHEN(LEFT&L8) THEN [P3..P0]=[D4..D1]+1;
        WHEN(RIGHT&L0) THEN [Q3..Q0]=[E4..E1]+1;

};
	
	
	
	
	












END