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

End;

Procedure Expression;

Begin

If IsAdDop(Look) Then

EmitLn('XOR AX,AX')

Else

Term;

While IsAdDop(Look) Do Begin

EmitLn('PUSH AX');

Case Look Of

'+': Add;

'-': Subtract;

End;

End;

End;

Procedure Assignment;

Var Name: String[8];

BeginName := GetName;

Match('=');

Expression;

EmitLn('MOV AX,' + Name);

End;

Procedure Init;

Begin

GetChar;