Программа с ассемблерными вставками

@Andy_G · Регистрация: 21.11.2012

Author24 — интернет-сервис помощи студентам

Доброго времени суток! Начал писать программу на паскаль с ассемблерными вставками, но не знаю как дальше продолжить. Помогите сделать программу или хотя бы распишите что и как делать дальше. Спасибо
Задание: при нажатии левой кнопки мыши текстовые символы на экране, которые имеют такой же цвет, как и те, где находится курсор, увеличивают цвет на 1. Выход из программы по нажатию правой кнопки мыши

Pascal

Program lab_4;
uses crt;
type
T=record
   asci:char;
   atr:byte;
end;
type Tex=array[0..24,0..79] of T;
var MAS:Tex absolute $B800:$0;
    a:byte;
    s,b:integer;
Procedure InitMouseDrv;
begin
     asm
        mov ax,0
        int 33h
        mov s,ax
     end;
     If s=0 then
        writeln('Drayvera net')
     else
        writeln('Drayver gotov');
end;
 Procedure VM;
begin
     asm
        mov ah,00h
        mov al,03h
        int 10h
     end;
end;
Procedure CursorOn;
begin
     asm
        mov ax,1
        int 33h
     end;
end;
Procedure CursorOff;
begin
     asm
        mov ax,2
        int 33h
     end;
end;
begin
    InitMouseDrv;
     VM;
     CursorOn;
repeat
asm
      mov ax, 03h
      int 33h
      mov b, bx
     end;
   if (b and 2) = 2 then    {маска для проверки состояния 1 бита}
until (b=1);
end.

Вот так должно

Pascal

1
2
3

   if (b and 1) = 1 then    {маска для проверки состояния 0 бита}
until (b=2);[
end.

	18.04.2013, 02:06