Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.041 c
1-65878
guest_Dmitry
2003-11-09 07:31
2003.11.20
Edit1...Editx - как обратиться к нужному компоненту?


6-66030
zarochka
2003-09-24 22:29
2003.11.20
Как закачать файды на сервер


1-66011
goliath
2003-11-10 10:40
2003.11.20
TreeList. ОЧЕНЬ НУЖНО !!!


1-65966
Ord3f8h
2003-11-11 02:12
2003.11.20
как открыть файл используя Button


1-65975
amart
2003-11-05 22:56
2003.11.20
Как у компонента создать property типа class of для создания