program ComMouse;
 
uses
    Crt, Graph;
 
{type
  TTryData =}
 
var
  { Data }
  Dat0, Dat1, Dat2, Dat3, Dat4 : Byte;
  PortAdr : Word;
 
  { Mouse }
  LBut, MBut, RBut : Boolean;
  PX, PY : Integer;
 
function TryMS : boolean; far;
var
  r : Boolean;
begin
  r := False;
  asm
      MOV   DX,    PortAdr
      ADD   DX,    5
      IN    AL,    DX
      TEST  AL,    01h
      JZ    @x
 
      SUB   DX,    5
      IN    AL,    DX
      TEST  AL,    40h
      JZ   @x
 
      MOV   Dat0,  AL
 
      ADD   DX,    5
  @1: IN    AL,    DX
      TEST  AL,    80h
      JNZ   @x
      TEST  AL,    01h
      JZ    @1
      SUB   DX,    5
 
      IN    AL,    DX
      MOV   Dat1,  AL
 
      ADD   DX,    5
  @2: IN    AL,    DX
      TEST  AL,    80h
      JNZ   @x
      TEST  AL,    01h
      JZ    @2
      SUB   DX,    5
 
      IN    Al,    DX
      MOV   Dat2,  AL
 
      MOV   AH,    Dat0
      SHL   AH,    6
      MOV   AL,    Dat1
      AND   AL,    3Fh
      OR    AH,    AL
      SAR   AX,    8
      ADD   PX,    AX
 
      MOV   AH,    Dat0
      AND   AH,    0Ch
      SHL   AH,    4
      MOV   AL,    Dat2
      AND   AL,    3Fh
      OR    AH,    AL
      SAR   AX,    8
      ADD   PY,    AX
 
      MOV   AL,    Dat0
      MOV   LBut,  False
      TEST  Al,    20h
      JZ   @r
      MOV   LBut,  True
  @r: MOV   MBut,  False
      MOV   RBut,  False
      TEST  Al,    10h
      JZ   @t
      MOV   RBut,  True
 
  @t: MOV   r,     True
  @x:
  end;
  TryMS := r;
end;
 
function TryPC : boolean;  far;
var
  r : Boolean;
begin
  r := False;
  asm
      MOV   DX,    PortAdr
      ADD   DX,    5
      IN    AL,    DX
      TEST  AL,    01h
      JZ    @x
 
      SUB   DX,    5
      IN    AL,    DX
      MOV   AH,    AL
      AND   AH,    $F8
      CMP   AH,    80h
      JNE   @x
 
      MOV   Dat0,  AL
 
      ADD   DX,    5
  @1: IN    AL,    DX
      TEST  AL,    80h
      JNZ   @x
      TEST  AL,    01h
      JZ    @1
      SUB   DX,    5
 
      IN    AL,    DX
      MOV   Dat1,  AL
 
      ADD   DX,    5
  @2: IN    AL,    DX
      TEST  AL,    80h
      JNZ   @x
      TEST  AL,    01h
      JZ    @2
      SUB   DX,    5
 
      IN    Al,    DX
      MOV   Dat2,  AL
 
      ADD   DX,    5
  @3: IN    AL,    DX
      TEST  AL,    80h
      JNZ   @x
      TEST  AL,    01h
      JZ    @3
      SUB   DX,    5
 
      IN    Al,    DX
      MOV   Dat3,  AL
 
      ADD   DX,    5
  @4: IN    AL,    DX
      TEST  AL,    80h
      JNZ   @x
      TEST  AL,    01h
      JZ    @4
      SUB   DX,    5
 
      IN    Al,    DX
      MOV   Dat4,  AL
 
 
      MOV   AH,    Dat1
      SAR   AX,    8
      ADD   PX,    AX
 
      MOV   AH,    Dat2
      SAR   AX,    8
      SUB   PY,    AX
 
      MOV   AL,    Dat0
      MOV   RBut,  False
      TEST  Al,    01h
      JNZ   @r
      MOV   RBut,  True
  @r: MOV   MBut,  False
      TEST  Al,    02h
      JNZ   @s
      MOV   MBut,  True
  @s: MOV   LBut,  False
      TEST  Al,    04h
      JZ   @t
      MOV   LBut,  True
 
  @t: MOV   r,     True
  @x:
  end;
  TryPC := r;
end;
 
type
  TTryMouse = function : Boolean;
var
  TryMouse : TTryMouse;
 
procedure InitPC;
begin
     asm
        MOV   AX, 40h
        MOV   ES, AX
        MOV   DX, ES:[0]
        MOV   PortADR, DX
        ADD   DX, 3
        MOV   AL, 10000000b
        OUT   DX, AL
        SUB   DX, 2
        XOR   AL, AL
        OUT   DX, AL
        DEC   DX
        MOV   AL, 60h
        OUT   DX, AL
 
        MOV   AL, 00000011b
        ADD   DX, 3
        OUT   DX, AL
 
        SUB   DX, 2
        MOV   AL, 0
        OUT   DX, AL
 
        XOR   AX, AX
        MOV   PX, AX
        MOV   PY, AX
     end;
  TryMouse := TryPC;
end;
 
procedure InitMS;
begin
     asm
        MOV   AX, 40h
        MOV   ES, AX
        MOV   DX, ES:[0]
        MOV   PortADR, DX
 
        ADD   DX, 3
        MOV   AL, 10000000b
        OUT   DX, AL
        SUB   DX, 2
        XOR   AL, AL
        OUT   DX, AL
        DEC   DX
        MOV   AL, 60h
        OUT   DX, AL
        MOV   AL, 00000010b
        ADD   DX, 3
        OUT   DX, AL
 
        SUB   DX, 2
        MOV   AL, 0
        OUT   DX, AL
 
        XOR   AX, AX
        MOV   PX, AX
        MOV   PY, AX
     end;
  TryMouse := TryMS;
end;
 
procedure UpDatePicture;
const
  Page : integer = 0;
var
  C : Word;
  S : String;
begin
  Page := Page xor 1;
  SetActivePage(Page);
  SetBkColor(Black);
  ClearDevice;
  SetColor(White);
  OutTextXY(10,10,'Press Q to exit');
  OutTextXY(10,20,'Press P to Init PC-Mouse');
  OutTextXY(10,30,'Press M to Init MS-Mouse');
 
  Str(PX,S);
  OutTextXY(GetMaxX-80,GetMaxY-10,S);
  Str(PY,S);
  OutTextXY(GetMaxX-40,GetMaxY-10,S);
end;
 
var
  GrDriv, GrMode : Integer;
begin
                { Init Graph Section }
  GrDriv := VGA;
  InitGraph(GrDriv,GrMode,'С:\BP\BGI');
  UpDatePicture;
                { Maim Program Loop }
  while true do
    begin
                { Read A Command }
      if KeyPressed then
        case ReadKey of
          'Q','q' : break;
          'M','m' : InitMS;
          'P','p' : InitPC;
        end;
                { Read A Mouse }
      if Assigned(TryMouse) then
        if TryMouse then
          UpDatePicture;
    end;
 
  CloseGraph;
end.
 

cHJvZ3JhbSBDb21Nb3VzZTsKCnVzZXMKICAgIENydCwgR3JhcGg7Cgp7dHlwZQogIFRUcnlEYXRhID19Cgp2YXIKICB7IERhdGEgfQogIERhdDAsIERhdDEsIERhdDIsIERhdDMsIERhdDQgOiBCeXRlOwogIFBvcnRBZHIgOiBXb3JkOwoKICB7IE1vdXNlIH0KICBMQnV0LCBNQnV0LCBSQnV0IDogQm9vbGVhbjsKICBQWCwgUFkgOiBJbnRlZ2VyOwoKZnVuY3Rpb24gVHJ5TVMgOiBib29sZWFuOyBmYXI7CnZhcgogIHIgOiBCb29sZWFuOwpiZWdpbgogIHIgOj0gRmFsc2U7CiAgYXNtCiAgICAgIE1PViAgIERYLCAgICBQb3J0QWRyCiAgICAgIEFERCAgIERYLCAgICA1CiAgICAgIElOICAgIEFMLCAgICBEWAogICAgICBURVNUICBBTCwgICAgMDFoCiAgICAgIEpaICAgIEB4CgogICAgICBTVUIgICBEWCwgICAgNQogICAgICBJTiAgICBBTCwgICAgRFgKICAgICAgVEVTVCAgQUwsICAgIDQwaAogICAgICBKWiAgIEB4CgogICAgICBNT1YgICBEYXQwLCAgQUwKCiAgICAgIEFERCAgIERYLCAgICA1CiAgQDE6IElOICAgIEFMLCAgICBEWAogICAgICBURVNUICBBTCwgICAgODBoCiAgICAgIEpOWiAgIEB4CiAgICAgIFRFU1QgIEFMLCAgICAwMWgKICAgICAgSlogICAgQDEKICAgICAgU1VCICAgRFgsICAgIDUKCiAgICAgIElOICAgIEFMLCAgICBEWAogICAgICBNT1YgICBEYXQxLCAgQUwKCiAgICAgIEFERCAgIERYLCAgICA1CiAgQDI6IElOICAgIEFMLCAgICBEWAogICAgICBURVNUICBBTCwgICAgODBoCiAgICAgIEpOWiAgIEB4CiAgICAgIFRFU1QgIEFMLCAgICAwMWgKICAgICAgSlogICAgQDIKICAgICAgU1VCICAgRFgsICAgIDUKCiAgICAgIElOICAgIEFsLCAgICBEWAogICAgICBNT1YgICBEYXQyLCAgQUwKCiAgICAgIE1PViAgIEFILCAgICBEYXQwCiAgICAgIFNITCAgIEFILCAgICA2CiAgICAgIE1PViAgIEFMLCAgICBEYXQxCiAgICAgIEFORCAgIEFMLCAgICAzRmgKICAgICAgT1IgICAgQUgsICAgIEFMCiAgICAgIFNBUiAgIEFYLCAgICA4CiAgICAgIEFERCAgIFBYLCAgICBBWAoKICAgICAgTU9WICAgQUgsICAgIERhdDAKICAgICAgQU5EICAgQUgsICAgIDBDaAogICAgICBTSEwgICBBSCwgICAgNAogICAgICBNT1YgICBBTCwgICAgRGF0MgogICAgICBBTkQgICBBTCwgICAgM0ZoCiAgICAgIE9SICAgIEFILCAgICBBTAogICAgICBTQVIgICBBWCwgICAgOAogICAgICBBREQgICBQWSwgICAgQVgKCiAgICAgIE1PViAgIEFMLCAgICBEYXQwCiAgICAgIE1PViAgIExCdXQsICBGYWxzZQogICAgICBURVNUICBBbCwgICAgMjBoCiAgICAgIEpaICAgQHIKICAgICAgTU9WICAgTEJ1dCwgIFRydWUKICBAcjogTU9WICAgTUJ1dCwgIEZhbHNlCiAgICAgIE1PViAgIFJCdXQsICBGYWxzZQogICAgICBURVNUICBBbCwgICAgMTBoCiAgICAgIEpaICAgQHQKICAgICAgTU9WICAgUkJ1dCwgIFRydWUKCiAgQHQ6IE1PViAgIHIsICAgICBUcnVlCiAgQHg6CiAgZW5kOwogIFRyeU1TIDo9IHI7CmVuZDsKCmZ1bmN0aW9uIFRyeVBDIDogYm9vbGVhbjsgIGZhcjsKdmFyCiAgciA6IEJvb2xlYW47CmJlZ2luCiAgciA6PSBGYWxzZTsKICBhc20KICAgICAgTU9WICAgRFgsICAgIFBvcnRBZHIKICAgICAgQUREICAgRFgsICAgIDUKICAgICAgSU4gICAgQUwsICAgIERYCiAgICAgIFRFU1QgIEFMLCAgICAwMWgKICAgICAgSlogICAgQHgKCiAgICAgIFNVQiAgIERYLCAgICA1CiAgICAgIElOICAgIEFMLCAgICBEWAogICAgICBNT1YgICBBSCwgICAgQUwKICAgICAgQU5EICAgQUgsICAgICRGOAogICAgICBDTVAgICBBSCwgICAgODBoCiAgICAgIEpORSAgIEB4CgogICAgICBNT1YgICBEYXQwLCAgQUwKCiAgICAgIEFERCAgIERYLCAgICA1CiAgQDE6IElOICAgIEFMLCAgICBEWAogICAgICBURVNUICBBTCwgICAgODBoCiAgICAgIEpOWiAgIEB4CiAgICAgIFRFU1QgIEFMLCAgICAwMWgKICAgICAgSlogICAgQDEKICAgICAgU1VCICAgRFgsICAgIDUKCiAgICAgIElOICAgIEFMLCAgICBEWAogICAgICBNT1YgICBEYXQxLCAgQUwKCiAgICAgIEFERCAgIERYLCAgICA1CiAgQDI6IElOICAgIEFMLCAgICBEWAogICAgICBURVNUICBBTCwgICAgODBoCiAgICAgIEpOWiAgIEB4CiAgICAgIFRFU1QgIEFMLCAgICAwMWgKICAgICAgSlogICAgQDIKICAgICAgU1VCICAgRFgsICAgIDUKCiAgICAgIElOICAgIEFsLCAgICBEWAogICAgICBNT1YgICBEYXQyLCAgQUwKCiAgICAgIEFERCAgIERYLCAgICA1CiAgQDM6IElOICAgIEFMLCAgICBEWAogICAgICBURVNUICBBTCwgICAgODBoCiAgICAgIEpOWiAgIEB4CiAgICAgIFRFU1QgIEFMLCAgICAwMWgKICAgICAgSlogICAgQDMKICAgICAgU1VCICAgRFgsICAgIDUKCiAgICAgIElOICAgIEFsLCAgICBEWAogICAgICBNT1YgICBEYXQzLCAgQUwKCiAgICAgIEFERCAgIERYLCAgICA1CiAgQDQ6IElOICAgIEFMLCAgICBEWAogICAgICBURVNUICBBTCwgICAgODBoCiAgICAgIEpOWiAgIEB4CiAgICAgIFRFU1QgIEFMLCAgICAwMWgKICAgICAgSlogICAgQDQKICAgICAgU1VCICAgRFgsICAgIDUKCiAgICAgIElOICAgIEFsLCAgICBEWAogICAgICBNT1YgICBEYXQ0LCAgQUwKCgogICAgICBNT1YgICBBSCwgICAgRGF0MQogICAgICBTQVIgICBBWCwgICAgOAogICAgICBBREQgICBQWCwgICAgQVgKCiAgICAgIE1PViAgIEFILCAgICBEYXQyCiAgICAgIFNBUiAgIEFYLCAgICA4CiAgICAgIFNVQiAgIFBZLCAgICBBWAoKICAgICAgTU9WICAgQUwsICAgIERhdDAKICAgICAgTU9WICAgUkJ1dCwgIEZhbHNlCiAgICAgIFRFU1QgIEFsLCAgICAwMWgKICAgICAgSk5aICAgQHIKICAgICAgTU9WICAgUkJ1dCwgIFRydWUKICBAcjogTU9WICAgTUJ1dCwgIEZhbHNlCiAgICAgIFRFU1QgIEFsLCAgICAwMmgKICAgICAgSk5aICAgQHMKICAgICAgTU9WICAgTUJ1dCwgIFRydWUKICBAczogTU9WICAgTEJ1dCwgIEZhbHNlCiAgICAgIFRFU1QgIEFsLCAgICAwNGgKICAgICAgSlogICBAdAogICAgICBNT1YgICBMQnV0LCAgVHJ1ZQoKICBAdDogTU9WICAgciwgICAgIFRydWUKICBAeDoKICBlbmQ7CiAgVHJ5UEMgOj0gcjsKZW5kOwoKdHlwZQogIFRUcnlNb3VzZSA9IGZ1bmN0aW9uIDogQm9vbGVhbjsKdmFyCiAgVHJ5TW91c2UgOiBUVHJ5TW91c2U7Cgpwcm9jZWR1cmUgSW5pdFBDOwpiZWdpbgogICAgIGFzbQogICAgICAgIE1PViAgIEFYLCA0MGgKICAgICAgICBNT1YgICBFUywgQVgKICAgICAgICBNT1YgICBEWCwgRVM6WzBdCiAgICAgICAgTU9WICAgUG9ydEFEUiwgRFgKICAgICAgICBBREQgICBEWCwgMwogICAgICAgIE1PViAgIEFMLCAxMDAwMDAwMGIKICAgICAgICBPVVQgICBEWCwgQUwKICAgICAgICBTVUIgICBEWCwgMgogICAgICAgIFhPUiAgIEFMLCBBTAogICAgICAgIE9VVCAgIERYLCBBTAogICAgICAgIERFQyAgIERYCiAgICAgICAgTU9WICAgQUwsIDYwaAogICAgICAgIE9VVCAgIERYLCBBTAoKICAgICAgICBNT1YgICBBTCwgMDAwMDAwMTFiCiAgICAgICAgQUREICAgRFgsIDMKICAgICAgICBPVVQgICBEWCwgQUwKCiAgICAgICAgU1VCICAgRFgsIDIKICAgICAgICBNT1YgICBBTCwgMAogICAgICAgIE9VVCAgIERYLCBBTAoKICAgICAgICBYT1IgICBBWCwgQVgKICAgICAgICBNT1YgICBQWCwgQVgKICAgICAgICBNT1YgICBQWSwgQVgKICAgICBlbmQ7CiAgVHJ5TW91c2UgOj0gVHJ5UEM7CmVuZDsKCnByb2NlZHVyZSBJbml0TVM7CmJlZ2luCiAgICAgYXNtCiAgICAgICAgTU9WICAgQVgsIDQwaAogICAgICAgIE1PViAgIEVTLCBBWAogICAgICAgIE1PViAgIERYLCBFUzpbMF0KICAgICAgICBNT1YgICBQb3J0QURSLCBEWAoKICAgICAgICBBREQgICBEWCwgMwogICAgICAgIE1PViAgIEFMLCAxMDAwMDAwMGIKICAgICAgICBPVVQgICBEWCwgQUwKICAgICAgICBTVUIgICBEWCwgMgogICAgICAgIFhPUiAgIEFMLCBBTAogICAgICAgIE9VVCAgIERYLCBBTAogICAgICAgIERFQyAgIERYCiAgICAgICAgTU9WICAgQUwsIDYwaAogICAgICAgIE9VVCAgIERYLCBBTAogICAgICAgIE1PViAgIEFMLCAwMDAwMDAxMGIKICAgICAgICBBREQgICBEWCwgMwogICAgICAgIE9VVCAgIERYLCBBTAoKICAgICAgICBTVUIgICBEWCwgMgogICAgICAgIE1PViAgIEFMLCAwCiAgICAgICAgT1VUICAgRFgsIEFMCgogICAgICAgIFhPUiAgIEFYLCBBWAogICAgICAgIE1PViAgIFBYLCBBWAogICAgICAgIE1PViAgIFBZLCBBWAogICAgIGVuZDsKICBUcnlNb3VzZSA6PSBUcnlNUzsKZW5kOwoKcHJvY2VkdXJlIFVwRGF0ZVBpY3R1cmU7CmNvbnN0CiAgUGFnZSA6IGludGVnZXIgPSAwOwp2YXIKICBDIDogV29yZDsKICBTIDogU3RyaW5nOwpiZWdpbgogIFBhZ2UgOj0gUGFnZSB4b3IgMTsKICBTZXRBY3RpdmVQYWdlKFBhZ2UpOwogIFNldEJrQ29sb3IoQmxhY2spOwogIENsZWFyRGV2aWNlOwogIFNldENvbG9yKFdoaXRlKTsKICBPdXRUZXh0WFkoMTAsMTAsJ1ByZXNzIFEgdG8gZXhpdCcpOwogIE91dFRleHRYWSgxMCwyMCwnUHJlc3MgUCB0byBJbml0IFBDLU1vdXNlJyk7CiAgT3V0VGV4dFhZKDEwLDMwLCdQcmVzcyBNIHRvIEluaXQgTVMtTW91c2UnKTsKIAogIFN0cihQWCxTKTsKICBPdXRUZXh0WFkoR2V0TWF4WC04MCxHZXRNYXhZLTEwLFMpOwogIFN0cihQWSxTKTsKICBPdXRUZXh0WFkoR2V0TWF4WC00MCxHZXRNYXhZLTEwLFMpOwplbmQ7Cgp2YXIKICBHckRyaXYsIEdyTW9kZSA6IEludGVnZXI7CmJlZ2luCiAgICAgICAgICAgICAgICB7IEluaXQgR3JhcGggU2VjdGlvbiB9CiAgR3JEcml2IDo9IFZHQTsKICBJbml0R3JhcGgoR3JEcml2LEdyTW9kZSwn0KE6XEJQXEJHSScpOwogIFVwRGF0ZVBpY3R1cmU7CiAgICAgICAgICAgICAgICB7IE1haW0gUHJvZ3JhbSBMb29wIH0KICB3aGlsZSB0cnVlIGRvCiAgICBiZWdpbgogICAgICAgICAgICAgICAgeyBSZWFkIEEgQ29tbWFuZCB9CiAgICAgIGlmIEtleVByZXNzZWQgdGhlbgogICAgICAgIGNhc2UgUmVhZEtleSBvZgogICAgICAgICAgJ1EnLCdxJyA6IGJyZWFrOwogICAgICAgICAgJ00nLCdtJyA6IEluaXRNUzsKICAgICAgICAgICdQJywncCcgOiBJbml0UEM7CiAgICAgICAgZW5kOwogICAgICAgICAgICAgICAgeyBSZWFkIEEgTW91c2UgfQogICAgICBpZiBBc3NpZ25lZChUcnlNb3VzZSkgdGhlbgogICAgICAgIGlmIFRyeU1vdXNlIHRoZW4KICAgICAgICAgIFVwRGF0ZVBpY3R1cmU7CiAgICBlbmQ7CgogIENsb3NlR3JhcGg7CmVuZC4K