WebSVN – Kolibri OS – Diff – /programs/other/ha/HOTANGLES.ASM

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Hot Angles ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Compile with FASM
-; Version 0.3.3: Sep 25, 2018
+; Version 0.3.5: Oct 5, 2018
 ; Copyright (c) 2018, Efremenkov Sergey aka TheOnlyMirage
 ; All rights reserved.
 ; Redistribution and use in source and binary forms, with or without modification,
 START_DEBUG:
    call copyKill         ;ïðîñòåéøàÿ çàùèòà îò ïîâòîðíîãî çàïóñêà
    mcall  68, 11         ;èíèöèàëèçàöèÿ êó÷è
+   call loadConfig       ;çàãðóæàåì êîíôèãóðàöèþ ïðèëîæåíèÿ
+   cmp byte[mode], 0     ;ôóíêöèÿ îòêëþ÷åíà - âûõîä
+   jne @f
+   mcall -1
+@@:
+   ;ðåæèì àêòèâàöèè ãîðÿ÷åé êëàâèøåé?
+   cmp byte[mode], 2 ;ïîäïèñûâàåìñÿ íà èíòåðåñíûå íàì ñîáûòèÿ â çàâèñèìîñòè îò ðåæèìà ðàáîòû
-   call loadConfig       ;çàãðóæàåì êîíôèãóðàöèþ ïðèëîæåíèÿ
+   jne @f
-   mov ebx, 00000100000000000000000000100000b ;ïîäïèñûâàåìñÿ íà èíòåðåñíûå íàì ñîáûòèÿ
+   mov ebx, 00000100000000000000000000100010b    ;åñëè äà, òî ïîäïèñûâàåìñÿ íà êëàâèøè
+   mcall 40
+   jmp init02
+@@:
+   ; âî âñåõ îñòàëüíûõ ñëó÷àÿõ - êëàññè÷åñêèé ðåæèì ðàáîòû
+   ;mode=1 êëàññè÷åñêèé ðåæèì ðàáîòû - ðåàêöèÿ ïðè íàâåäåíèè â óãîë
+   mov byte[mode], 1
+   mov ebx, 00000100000000000000000000100000b
+   mcall 40
+   jmp init01
+init02:
+   mov dword[backAdr], mode02
+   call setHotKey
+mode02:
+   mcall 10
+   cmp eax, 2     ;îáðàáîòêà íàæàòèÿ êëàâèøè
+   je hotkey
+   cmp byte[keyState], 0
+   je mode02
+   cmp   eax, 6   ;îáðàáîòêà ïåðåìåùåíèé è íàæàòèÿ ìûøè
+   je    mouse
+   jmp mode02
+setHotKey:    ;óñòàíîâèòü ãîðÿ÷óþ êëàâèøó
+   push eax ebx ecx edx
+   xor ecx, ecx
+   mov cl, byte[keyActivate]  ;íàæàòèå ãîðÿ÷åé êëàâèøè
+   mov edx, 0x000
+   mcall 66, 4, ecx, edx
+   ;mov cl, byte[keyActivate]
+   add cl, 128              ;îòïóñêàíèå ãîðÿ÷åé êëàâèøè
+   ;mov edx, 0x000
+   mcall 66, 4, ecx, edx
+   pop edx ecx ebx eax
+   ret
+hotkey:
+   mcall 2
+   cmp eax, 1     ;áóôåð êëàâèø ïóñò?
+   je hotkey.end
+   cmp al, 2      ;íàñ èíòåðåñóåò òîëüêî ñêàí êîä ãîðÿ÷åé êëàâèøè, èíà÷å âûõîäèì
+   jne hotkey.end
+   cmp ah, byte[keyActivate]   ;åñëè íàæàòà íàøà ãîðÿ÷àÿ êëàâèøà
+   jne @f
+   mov byte[keyState], 1
+   mov byte[state], UNLOCKd
+   jmp hotkey.end
+@@:
+   push edx
+   xor edx, edx
+   mov dl, byte[keyActivate]
+   add dl, 128
+   cmp ah, dl   ;åñëè îòïóùåíà íàøà ãîðÿ÷àÿ êëàâèøà
+   jne @f       ;hotkey.end
+   ;mov ecx, 0  ;ñòðîêè äëÿ îòëàäêè è òåñòà
+   ;call run_command
+   mov byte[keyState], 0
+   mov byte[state], LOCKd
-   mcall 40
+@@:
+   pop edx
+.end:
+   jmp mode02
+init01:
    mov dword[backAdr], mode01
-START:
+mode01:
   mov     eax, 10                 ; function 10 : wait until event
   mcall                           ; event type is returned in eax
+  cmp   eax, 6           ;îáðàáîòêà ïåðåìåùåíèé è íàæàòèÿ ìûøè
-  cmp   eax, 6           ;îáðàáîòêà ïåðåìåùåíèé è íàæàòèÿ ìûøè
+  je    mouse
-  je    mouse
+  jmp mode01
   jmp START
 mouse:
-mouse:
+   push ebx
-  ;îñíîâíîé öèêë ïðîãðàììû
+   mcall 37, 0   ;ïîëó÷àåì òåêóùèå êîîðäèíàòû ìûøè
-  call get_mouse_pos ;ïîëó÷àåì òåêóùèå êîîðäèíàòû ìûøè
+   pop ebx
   cmp eax, 0 ;ëåâûé âåðõíèé óãîë
   jne @f
   ; -- çäåñü âûçûâàåì ñîîòâ. âûçîâ äëÿ ëåâîãî âåðõíåãî óãëà  (X=0, Y=0)
   push ecx
   mov ecx, 0
   call run_command
   push ecx
   mov ecx, 2
   call run_command
   pop ecx
-  jmp START
+  jmp dword[backAdr]
 Ytrue:
   ;åñëè Y ðàâíû, òî íàñ èíòåðåñóåò X=0 (ëåâûé íèæíèé óãîë) èëè X=ScreenWidth (ïðàâûé íèæíèé)
   shr eax, 16
   cmp ax, 0
   jne @f
   ; -- X=0, Y = Height  (ëåâûé íèæíèé óãîë)
   push ecx
   mov ecx, 1
   call run_command
   pop ecx
-  jmp START
+  jmp dword[backAdr]
 @@:
   cmp ax, word[screen.width]
   jne unlockend
   ; -- (ïðàâûé íèæíèé óãîë)
   push ecx
   mov ecx, 3
   call run_command
   pop ecx
-  jmp START
+  jmp dword[backAdr]
+unlockend:
-unlockend:
-  mov byte[state], UNLOCKd
-  jmp START
   mov byte[state], UNLOCKd
-;ñòðóêòóðêà äàííûõ äëÿ õðàíåíèÿ ïàðàìåòðîâ ýêðàíà
+  jmp dword[backAdr]
 screen:
    .width  dw 0
    .height dw 0
    mov word[screen.width], ax
    pop eax
    ret
-;ïîëó÷èòü ïîçèöèþ ìûøè
-get_mouse_pos:
-   ;push eax
-   push ebx
-   mcall 37, 0
-   pop ebx
    ;pop eax
    ret
-;çàïóñê ïðèëîæåíèÿ: ecx - àêòèâíûé óãîë: lu=0, ld=1, ru=2, rd=3
-run_command:
+;çàïóñê ïðèëîæåíèÿ: ecx - àêòèâíûé óãîë: lu=0, ld=1, ru=2, rd=3
-   cmp byte[state], UNLOCKd
+run_command:
+   cmp byte[state], UNLOCKd
    jne run_command.end
-   push eax
+;   cmp byte[mode], 2     ;åñëè ðåæèì âòîðîé
-   push ebx
+;   jne @f
    push ecx
    push eax ebx ecx
    cmp ecx, 0
 ;êîíåö êîäà äëÿ çàìåíû
    mcall 70, struct70
 @@:
+   mov byte[state], LOCKd
-   mov byte[state], LOCKd
-   pop ecx
+   ;mov byte[keyState], 0
    pop ebx
-   pop eax
+   pop ecx ebx eax
 .end:
    ret
   .param_adr  dd 0 ; óêàçàòåëü íà ASCIIZ-ñòðîêó ñ ïàðàìåòðàìè
   .other      dd 0, 0
   .path       db 0 ; "/rd/1/TINYPAD",0 ; ïóòü
   .path_adr   dd 0 ;testData.lu
-state: db 0 ; 0=unlock, 1=lock
-mode: db 0  ;ðåæèì ðàáîòû (äëÿ áóäóùåãî ðàñøèðåíèÿ ôóíêöèîíàëà)
-;testData:
-;  .lu db '/rd/1/SHELL', 0
-;  .ld db '/rd/1/RUN', 0
-;  .ru db "/rd/1/TINYPAD", 0
-;  .rd db '/rd/1/File Managers/EOLITE', 0
-newData:  ;òàáëè÷êà àäðåñîâ êîìàíäíûõ ñòðîê
-  .lu dd 0
-  .ld dd 0
-  .ru dd 0
-  .rd dd 0
-newDataEnd:
 ;èìÿ êîíôèãóðàöèîííîãî ôàéëà
 fileName: db 'SETTINGS/HOTANGLES.CFG', 0
    cmp edx, 0               ;åñëè ôàéë ïóñò, â í¸ì íåò äàííûõ, òî çàâåðøàåì ðàáîòó
    je loadConfig.exit
+   add edx, eax             ;èíà÷å êëàä¸ì â edx - àäðåñ êîíöà ôàéëà
-   add edx, eax             ;èíà÷å êëàä¸ì â edx - àäðåñ êîíöà ôàéëà
+   mov byte[mode], 0
+   cmp byte[eax], '0' ;121 ;'y'  ;åñëè ïàðàìåòð àêòèâíîñòè ïðèëîæåíèÿ èìååò ñòàòóñ: íå àêòèâíî
+   je loadConfig.exit      ;òî çàâåðøàåì ðàáîòó ïðèëîæåíèÿ
+   cmp byte[eax], 110 ;'n'
+   je loadConfig.exit
+   ;èíà÷å âûñòàâëÿåì ðåæèì
+   cmp byte[eax], '2'       ;ðåæèì àêòèâàöèè ïî ãîðÿ÷åé êëàâèøå
+   jne @f
+   mov byte[mode], 2
+   jmp loadConfig.modeEnd
+@@:
+   cmp byte[eax], '3'       ;ðåæèì æåñòà ïðè çàæàòîé êëàâèøå
+   jne @f
+   mov byte[mode], 3
+   jmp loadConfig.modeEnd
+@@:
-   cmp byte[eax], 121 ;'y'  ;åñëè ïàðàìåòð àêòèâíîñòè ïðèëîæåíèÿ èìååò ñòàòóñ: íå àêòèâíî
+   mov byte[mode], 1        ;âî âñåõ îñòàëüíûõ ñëó÷àÿõ - êëàññè÷åñêèé ðåæèì
-   jne loadConfig.exit      ;òî çàâåðøàåì ðàáîòó ïðèëîæåíèÿ
+.modeEnd:
    push edi
 selfName db '@HOTANGLES',0
 selfNameSize = 10 ;äî 11 byte
+;
 compareBytes:
    push edi esi ecx ebx
-   mov eax, 0 ;xor eax, eax
+   xor eax, eax
    mov ecx, selfNameSize    ;max ðàçìåð ñòðîê 11
 @@:
    mov bl, byte[edi]
    cmp bl, byte[esi]
    jne compareBytes.no
    mov eax, 1
 @@:
    pop ebx ecx esi edi
    ret
+;
-slotMax dd 0
-selfPID dd 0
-buf db 1024 dup(0)
 copyKill:
    push eax ebx ecx esi edi
    ;ñïåðâà ïðî÷ò¸ì ñâîþ èíôîðìàöèþ
 @@:
    pop edi esi ecx ebx eax
    ret
+keyActivate db 41 ;16 ;'Q' ;êëàâèøà àêòèâàöèè
+keyState db 0 ;0-êëàâèøà íå àêòèâíà, 1 - êëàâèøà àêòèâíà
+backAdr rd 1 ;dd 0 ; àäðåñ äëÿ âîçâðàòà èç ïðîâåðêè ìûøè
+;slotMax dd 0
+;selfPID dd 0
+;buf db 1024 dup(0)
+slotMax rd 1
+selfPID rd 1
+buf rb 1024
+;ñòðóêòóðêà äàííûõ äëÿ õðàíåíèÿ ïàðàìåòðîâ ýêðàíà
+screen:
+  .width  rw 1 ;dw 0
+  .height rw 1 ;dw 0
+state: rb 1  ;ñîñòîÿíèå: 0=unlock, 1=lock
+mode:  rb 1  ;ðåæèì ðàáîòû ïðèëîæåíèÿ: 0=íå ðàáîòàåò, 1=êëàññè÷åñêèé, 2=ïî ãîðÿ÷åé êëàâèøå
+newData:  ;òàáëè÷êà àäðåñîâ êîìàíäíûõ ñòðîê
+  .lu rd 1
+  .ld rd 1
+  .ru rd 1
   .rd rd 1

Subversion Repositories Kolibri OS

(root)/programs/other/ha/HOTANGLES.ASM – Rev 7416 → 7436