Текущий архив: 2003.11.20;
Скачать: CL | DM;
Вниз
Метки в 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 !
← →
igit © (2003-11-11 18:36) [4]спасибо
Страницы: 1 вся ветка
Текущий архив: 2003.11.20;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
