Листинг 2

word Expr()
//Создание кода загрузки первого операнда
Scan();
while 1=1 do
I=0;
if Buff[0]=?+? then
I=$0101; // В старшем байте приоритет
end
if Buff[0]=?-? then
I=$0102;
end
if Buff[0]=?*? then
I=$0203;
end
//Распознавание прочих операторов
..//Сравнение приоритетов
if I/256<=Stk[pStk-1]/256 then
return 0; // Выход из цикла
end
C:=$50; // push AX
Emit();
Push();
Scan();
Expr();
Pop ();
C:=$5B; // pop BX
Emit();
//Создание кода, соответствующего оператору I
end
end