asm вставка

[Акоб]

uses crt;
type tpoint = record x, y : integer end;
var x, y:integer;  a:tpoint;
begin
a.x := 0;
a.y := 0;
asm
mov ax, 4
mov cx, a.x
mov dx, a.y
int 33h
end;
end.

Здравствуйте форумчане. компилятор ошибок не дает, но код не работает.Курсор должен был исчезнуть, но этого не происходит.В чем проблема?

[TinMan]

Под чем ты запускаешь? Windows or DOS?

[Serge_Bliznykov]

Сообщение от TinMan

Под чем ты запускаешь? Windows or DOS?

TinMan, +1

Согласен. Коллега зрит в корень проблемы. DOS Программы, которые выполняются в окошке Windows - ввод/вывод берёт на себя ОС Windows (это касается и шрифтов, и цветов, и отображения курсора).

Акоб
Если Вам нужно реально управлять курсором, то варианты решения:
1) воспользовать реальным DOS режимом. Загрузить машинку в DOS и выполнять свой код.
2) или поставить программку DosBox
3) или использовать любую виртуальную машинку, там установить DOS и гонять свою программку.

я бы начал с DosBox...

[Акоб]

Спасибо конечно, но неужели нельзя это реализовать под windows?
Я запускаю программу под windows.

[Tronix]

Нет, нельзя. Turbo Pascal создает программные файлы для операционной системы DOS. Windows - это другая операционная система, отличная от DOS, ровно так же, как, скажем Linux - это не Windows. Но, операционная система Windows позволяет запускать некоторые приложения, написанные для операционной системы DOS в режиме эмуляции. При этом не гарантируется абсолютно ничего - запуститься и будет работать как надо; запуститься и будет работать как не надо, или же не запуститься насовсем - это все неведомо.

Но, могу сказать точно что 33h прерывание NTVDM эмулит и на Win XP, и на Win 7, а то, что курсор не исчезает - это нормально. Хотите, чтобы мышка в винде пропала - юзайте компиляторы под винду и используйте WinApi, а не прерывания DOS. А так, установите DOS на компьютер, драйвер мыши пропишите в autoexec.bat и получите желаемое.

[Stilet]

но код не работает.

Еще как работает:

uses crt;
type tpoint = record x, y : integer end;
var x, y:integer;  a:tpoint;
begin
a.x := 0;
a.y := 0;
asm
mov ax, 4
mov cx, a.x
mov dx, a.y
int 33h
mov ax,1
int 33h
end;
readln;
end.

Курсор должен был исчезнуть

Кто сказал? Где вызов функции скрытия курсора?
И во-вторых: это проверять нужно распахнув ДОС окно на весь экран а не в консольном виде. И никакие виртаульные ДосБоксы не обязательны.

Нет, нельзя.

Нет можно.