ABEL Program for Rotate
INTERFACE (A3..A0, S1, S0 -> B3..B0);
A3..A0 PIN; " data inputs
S1, S0 PIN; " Rotate amount
B3..B0 PIN; " data outputs
ELSE WHEN (S == 1) THEN B = [A2..A0, A3]
ELSE WHEN (S == 2) THEN B = [A1,A0,A3,A2]
ELSE WHEN (S == 3) THEN B = [A0, A3..A1];