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

Procedure Term;

Begin

Factor;

While Look In ['*', '/'] Do Begin

EmitLn('PUSH AX');

Case Look Of

'*': Multiply;

'/': Divide;

End;

End;

End;

Procedure Add;

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');