Оптимальні програми

End;

Procedure Emit(s: String);

Begin

Write(TAB, s);

End;

Procedure EmitLn(s: String);

Begin

Emit(s);

WriteLn;

End;

Procedure Ident;

Var Name: String[8];

Begin

Name:= GetName;

If Look = '(' Then Begin

Match('(');

Match(')');

EmitLn('CALL ' + Name);

End

Else

EmitLn('MOV ' + Name + ',AX');

End;

Procedure Expression; Forward;

Procedure Factor;

Begin