.model tiny
.486
smart
.code
org 0100h
start:
jmp tsr
drv db 'MOUSE',0
Tsr:
cli
cmp ax,1234h
jne nomore
mov ax,4321h
jmp itsok
nomore:
push bx ax
mov ah,4
mov bh,0
int 50h
mov bl,al
pop ax
cmp byte ptr cs:isact,1
je  nottest
mov cs:isact,1
and bl,10000b
cmp bl,16
jae react
mov bl,ah
xor bh,bh
shl bx,1
mov bx,cs:[bx].tables
mov cs:current,bx
pop bx
call cs:current
itsok:
jnc noerror
push bp
mov bp,sp
or byte ptr [bp+6],1b
pop bp
mov ax,cs
shl eax,16
mov ax,cs:current
jmp endofint
noerror:
push bp
mov bp,sp
and byte ptr [bp+6],0FEh
pop bp
endofint:
mov cs:isact,0
sti
iret
nottest:
pop bx
jmp endofint
current dw 0
tables   dw cmdmouse
         dw cmdmouse2
         dw detectmouse
         dw getmouse

isact db 0

;Envoie une commande AL … la souris via controleur clavier
cmdmouse:
        push ax
videbuff1:
        in al, 64h                            
        and al, 10b                             
        jne videbuff1                   
        mov al, 00d4h                     
        out 64h, al
videbuff2:
        in al, 64h
        and al, 10b                            
        jne  videbuff2              
        pop ax
        out 60h, al                            
        in al, 60h                            
        ret

;Envoie une commande2 AL … la souris via controleur clavier carry=nomouse
cmdmouse2:
        push ax
videbuff21:
        in al, 64h                            
        and al, 10b                             
        jne videbuff21                   
        mov al, 0060h                     
        out 64h, al
videbuff22:
        in al, 64h
        and al, 10b                            
        jne  videbuff22               
        pop ax
        out 60h, al                            
        in al, 60h                            
        ret

Detectmouse:
        push ax cx
        mov al, 0a8h                            ;AUX enable
        out 64h, al
        mov al, 0f3h                            ;Set sample
        call cmdmouse
        mov al, 100                             ;Set sample
        call cmdmouse  
        mov al, 0e8h                            ;Set resolution
        call cmdmouse  
        mov al, 01                              ;Set resolution
        call cmdmouse  
        mov al, 0e7h                            ;Set scale 2:1
        call cmdmouse  
        mov al, 0f4h                            ;Enable device
        call cmdmouse  
        mov al, 47h                             ;Interruption ON
        call cmdmouse2  
        mov cx, 1024                 
testmouse:
        in al, 60h                              ;Lecture du port de donn‚es
        cmp al, 250                             ;Test si il y a une souris
        je okmouse
        dec cx
        jnz testmouse
        stc
        jmp endoftest
okmouse:
        clc
endoftest:
        pop cx ax
        ret

;envoie en bx,cx les coordonn‚es et en dl les boutons
getmouse:
mov bl,cs:vx
xor bh,bh
mov cl,cs:vy
xor ch,ch
mov dl,cs:button
;sub dl,8
;and dl,0Fh
clc
ret

Button       db 0
rx dw 0
ry dw 0
VX            db 0
VY            db 0
X dw 0
Y dw 0
count        db 0
error        db 0
xy dw 0
old dw 0
;Gestionnaire de souris PS/2
react:
        push ax bx cx dx di ds es
        push cs
        pop ds
        in al, 60h 
        cmp error, 1
        je gest1
        cmp count, 1
        je gest1
        cmp count, 2
        je gest2
        cmp count, 3
        je gest3

gest1:
        mov count, 2
        mov Button, al
        and al, 00001000b
        cmp al, 8
        je gest1end
        mov error, 1
        jmp gest1end2
gest1end:
        mov error, 0
gest1end2:
        mov count, 2
        jmp endgest
gest2:
        mov count, 3
        mov VX, al
        jmp endgest
gest3:
        mov count, 1
        mov VY, al
        jmp endgest
endgest:
        mov bl,VY
        xor bh,bh
        mov al,button
        shr al,5
        and al,1
        cmp al,0
        je addy
        add y,bx
        jmp hadsuby
        addy:
        sub y,bx
        hadsuby:
        mov bl,VX
        xor bh,bh
        mov al,button
        shr al,8
        and al,1
        cmp al,0
        je addx
        sub x,bx
        jmp hadsubx
        addx:
        add x,bx
        hadsubx:
        push cs
        pop es
        mov di,offset infos
        mov ah,34
        int 47h
        mov ax,x
        mov bx,0FFFFh
        xor ch,ch
        mov cl,[di+1]
        mul cx
        div bx
        mov rx,ax
        mov ax,y
        mov cl,[di]
        mul cx
        div bx
        mov ry,ax
        mul byte ptr [di+1]
        add ax,rx
        shl ax,1
        mov di,ax
        mov ax,0B800h
        mov es,ax
        mov bx,xy
        mov ax,old
        mov word ptr es:[bx],ax 
        mov xy,di
        mov ax,es:[di]
        mov old,ax
        mov word ptr es:[di],0FF70h 
        mov al, 20h
        out 0a0h, al                         
        out 20h, al             
        pop es ds di dx cx bx ax
        mov cs:isact,0
        pop bx
        iret
 infos db 10 dup (0)

end start