Форум: "Основная";
Текущий архив: 2003.11.20;
Скачать: [xml.tar.bz2];

Вниз

Метки в 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c