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

If Look = '(' Then Begin

Match('(');

Expression;

Match(')');

End

Else If IsAlpha(Look) Then

Ident

Else

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

End;

Procedure Multiply;

Begin

Match('*');

Factor;

EmitLn('POP DX');

EmitLn('MUL AX,DX');

End;

Procedure Divide;

Begin

Match('/');

Factor;

EmitLn('POP DX');

EmitLn('DIV DX,AX');

EmitLn('MOV DX,AX');

End;