Оптимальні програми обчислення виразів

Begin

Match('+');

Term;

EmitLn('POP DX');

EmitLn('ADD AX,DX');

End;

Procedure Subtract;

Begin

Match('-');

Term;

EmitLn('POP DX');

EmitLn('SUB DX,AX');

EmitLn('MOV DX,AX');

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];