Download ABEL-HDL Reference Manual

Hierarchy Examples
@dcset
state_diagram Qstate
State Clear:
AddClk
= !ClkIN;
Ace
:= Low;
if (Restart==Low) then Clear else ShowHit;
State ShowHit: AddClk
= Low;
Ace
:= Ace;
if (CardIn==Low) then AddCard else ShowHit;
State AddCard: AddClk
= !ClkIN;
Ace
:= Ace;
if (is_Ace & !Ace) then Add_10 else Wait;
State Add_10:
AddClk
= !ClkIN;
Ace
:= High;
goto
Wt;
State Wt:
AddClk
= Low;
Ace
:= Ace;
if (CardOut==Low) then Test_17 else Wait;
State Test_17: AddClk
= Low;
Ace
:= Ace;
if !GT16 then ShowHit else Test_22;
State Test_22: AddClk
= Low;
Ace
:= Ace;
case
LT22
: ShowStand;
!LT22 & !Ace
: ShowBust;
!LT22 & Ace
: Sub_10;
endcase;
State Sub_10:
AddClk
= !ClkIN;
Ace
:= Low;
goto
Test_17;
State ShowBust: AddClk
= Low;
Ace
:= Ace;
if (Restart==Low) then Clear else ShowBust;
State ShowStand: AddClk
= Low;
Ace
:= Ace;
if (Restart==Low) then Clear else ShowStand;
State Zero:
goto Clear;
end
ABEL-HDL Reference Manual
151