Subversion Repositories Kolibri OS

Rev

Rev 227 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 227 Rev 233
Line 916... Line 916...
916 
        mov   [0x2d0000],edi
 916 
        mov   [0x2d0000],edi
917 
        shl   edi,4
 917 
        shl   edi,4
918 
        mov   [0x2d0000+edi+0],dword 1
 918 
        mov   [0x2d0000+edi+0],dword 1
919 
        mov   [0x2d0000+edi+4],dword 0x0
 919 
        mov   [0x2d0000+edi+4],dword 0x0
920 
        mov   [0x2d0000+edi+8],dword 0xdf
 920 
        mov   [0x2d0000+edi+8],dword 0xdf
921
921 
 
922 
        inc   dword [0x2d0000]          ; 0xe5-0xff
 922 
        inc   dword [0x2d0000]          ; 0xe5-0xff
923 
        mov   edi,[0x2d0000]
 923 
        mov   edi,[0x2d0000]
924 
        shl   edi,4
 924 
        shl   edi,4
925 
        mov   [0x2d0000+edi+0],dword 1
 925 
        mov   [0x2d0000+edi+0],dword 1
926 
        mov   [0x2d0000+edi+4],dword 0xe5
 926 
        mov   [0x2d0000+edi+4],dword 0xe5
927 
        mov   [0x2d0000+edi+8],dword 0xff
 927 
        mov   [0x2d0000+edi+8],dword 0xff
928
928 
 
929
929 
 
930 
;        cmp   [0xf604],byte 2          ; com1 mouse -> 0x3f0-0x3ff
 930 
;        cmp   [0xf604],byte 2          ; com1 mouse -> 0x3f0-0x3ff
931 
;        jne   ripl1
 931 
;        jne   ripl1
932 
;        inc   dword [0x2d0000]
 932 
;        inc   dword [0x2d0000]
933 
;        mov   edi,[0x2d0000]
 933 
;        mov   edi,[0x2d0000]
934 
;        shl   edi,4
 934 
;        shl   edi,4
Line 1728... Line 1728...
1728 
 
 1728 
 
1729 
align 4
 1729 
align 4
1730 
mousefn dd msscreen, mswin, msbutton, msset
 1730 
mousefn dd msscreen, mswin, msbutton, msset
1731 
        dd app_load_cursor
 1731 
        dd app_load_cursor
1732 
        dd app_set_cursor
 1732 
        dd app_set_cursor
Line 1733... Line 1733...
1733 
        dd msset    ;app_delete_cursor
 1733 
        dd app_delete_cursor
Line 1734... Line 1734...
1734 
 
 1734 
 
1735 
readmousepos:
 1735 
readmousepos:
Line 1787... Line 1787...
1787 
app_set_cursor:
 1787 
app_set_cursor:
1788 
           stdcall set_cursor, ebx
 1788 
           stdcall set_cursor, ebx
1789 
           mov [esp+36], eax
 1789 
           mov [esp+36], eax
1790 
           ret
 1790 
           ret
Line -... Line 1791...
- 
 
 1791 
 
- 
 
 1792 
app_delete_cursor:
- 
 
 1793 
           stdcall delete_cursor, ebx
- 
 
 1794 
           mov [esp+36], eax
Line 1791... Line 1795...
1791 
 
 1795 
           ret
Line 1792... Line 1796...
1792 
 
 1796 
 
1793 
is_input:
 1797 
is_input:
1794 
 
 1798 
 
1795 
   push edx
 1799 
   push edx
1796 
   mov  dx,word [midisp]
 1800 
   mov  dx,word [midisp]
1797 
   in   al,dx
 1801 
   in   al,dx
Line 1798... Line -...
1798 
   and  al,0x80
 - 
 
1799 
   pop  edx
 1802 
   and  al,0x80
Line 1800... Line 1803...
1800 
   ret
 1803 
   pop  edx
1801 
 
 1804 
   ret
1802 
 
 1805