Метки в Pascal

← →
Igit © (2003-11-11 18:20) [0]

C асма гоню это дело в паскаль
Check_video proc mov ah,0Fh int 10h cmp al,3 je Ok_video mov ax,3 int 10h Ok_video: or bh,bh jz Ok_page mov ax,0500h int 10h Ok_page: ret Check_video endp

хотелось бы покороче, без использования переменных типа Reg(или типа того)
попробовал так
Procedure Check_video; assembler; Asm mov ah,0Fh int 10h cmp al,TextMode {Текстовый режим?} je Ok_video mov ax,TextMode {Если нет - делаем текстовый} int 10h Ok_video: or bh,bh {Нулевая страница?} jz Ok_page mov ax,0500h {Если нет - делаем нулевую текущей} int 10h Ok_page: end; end{Check_video};

на метки ругается...

← →
Skier © (2003-11-11 18:21) [1]

je @Ok_video

← →
igit © (2003-11-11 18:23) [2]

тогда он ругается на Ok_video:

← →
Skier © (2003-11-11 18:24) [3]

Ну в общем так :

asm
JE @SomeLabel
@SomeLabel:
end;

P.S. Читай help !

спасибо

Метки в Pascal Найти похожие ветки