Синтакт. ошибка: ругается на ASM

[ComAlex]

Выдается ошибка: Fatal Syntax error, "BEGIN" expected but "ASM" found
на
"procedure DivMod(Dividend: Integer; Divisor: Word; var Result, Remainder: Word);
asm
PUSH EBX
MOV EBX,EDX
MOV EDX,EAX
SHR EDX,16
DIV BX
MOV EBX,Remainder
MOV [ECX],AX
MOV [EBX],DX
POP EBX
end; ", хотя такие конструкции имеются и на них не ругается

[Maxizar]

Код: Выделить всё

procedure DivMod(Dividend: Integer; Divisor: Word; var Result, Remainder: Word); assembler;
{$ASMMODE intel}
asm
PUSH EBX
MOV EBX,EDX
MOV EDX,EAX
SHR EDX,16
DIV BX
MOV EBX,Remainder
MOV [ECX],AX
MOV [EBX],DX
POP EBX
end;