Программа проверяет наличие мыши если она есть выводит символ b и устанавливает свой обработчик события, иначе выдается символ а. Обработчик события по нажатию левой кнопки мыши выдает слово "Привет" в позиции курсора мыши.
cseg segment ;0бъявление сегментов
assume cs:cseg,ds:cseg,es:cseg
handle proc far ; Процедура обработки события
;Сохранение регистров в стеке
push ds
push bx
push сx
push dx
push si
push di
pushax
; Переключение на сегмент данных программы
mov ax, cseg
mov ds,ax
вычисление позиции курсора мыши
shr CX,1; в cx - колонка *8, в dx - строка*8
shr CX,1; получим строку и колонку
shr CX,1; разделим cx и dx на 8 при помощи
shr DX,1 ; сдвига вправо на 3
shr DX,1
shr DX,1
;Позиционирование текстового курсора в позицию курсора мыши
mov dh, dl ; dh - строка
mov dl, cl ; dl - колонка
mov ah, 02h; ah - номер функции (02h)
int 10h
;Вывод слова Привет
mov сx,7
mov di,offset mystr
11: mov al,[di]
int 29h
inc di
loop 11
Мова програмування Turbo Pascal 7.0
ЗМІСТ
§1. Основні поняття та елементи мови
§2. Типи даних
§3. Прості програми
§4. Розгалуження
§5. Цикли
§6. Масиви
§7. Рядки(string)
§8. Підпрограми
§9. Записи
§10. Файли
§11. Списки
§12. Множини
§13. Графіка
§14. Середовище Turbo Pascal 7.0
