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

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Hot Angles ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Compile with FASM
-; Version 0.3.6: Oct 9, 2018
+; Version 0.3.7: Oct 14, 2018
 ; Copyright (c) 2018, Efremenkov Sergey aka TheOnlyMirage
 ; All rights reserved.
 ; Redistribution and use in source and binary forms, with or without modification,
 use32
 org 0x0    ; áàçîâûé àäðåñ ðàçìåùåíèÿ êîäà, âñåãäà 0x0
 UNLOCKd = 0
+LOCKd   = 1
-LOCKd   = 1
+SUPERLOCKd = 2
 ; çàãîëîâîê
 db 'MENUET01'     ;ìàãè÷åñêèé èäåíòèôèêàòîð
    jne hotkey.end
    cmp ah, byte[keyActivate]   ;åñëè íàæàòà íàøà ãîðÿ÷àÿ êëàâèøà
+   jne @f
-   jne @f
+   ;ïðîâåðêè äëÿ mode 3
    cmp byte[state], SUPERLOCKd
-;for mode 3 [
+   je hotkey.end
    cmp byte[keyState], 1
-   je hotkey.e
+   je hotkey.end
    push eax ebx
    mov word[o.x], ax
    pop ebx eax
    mov byte[keyState], 1
-   mov byte[state], UNLOCKd
-.e:
-;]
-   ;mov byte[state], UNLOCKd
+   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  ;ñòðîêè äëÿ îòëàäêè è òåñòà
+   jne @f       ;hotkey.end
    ;call run_command
    mov byte[keyState], 0
    mov byte[state], LOCKd
 @@:
    pop edx
 ;çàïóñê ïðèëîæåíèÿ: ecx - àêòèâíûé óãîë: lu=0, ld=1, ru=2, rd=3
 run_command:
    cmp byte[state], UNLOCKd
    jne run_command.end
-;   cmp byte[mode], 2     ;åñëè ðåæèì âòîðîé
-;   jne @f
    push eax ebx ecx
    cmp ecx, 0
+   jne @f
+   mov eax, apps.path1 ;dword[newData.lu]
-   jne @f
+   cmp byte[eax], 0 ;åñëè ïî àäðåñó ïóñòî (èëè ëåæàë ñèìâîë '-'), òî àäðåñ 0
+   je .set0
+   mov dword[struct70.path_adr], eax
-   mov eax, dword[newData.lu]
+   mov eax, apps.param1
-   mov dword[struct70.path_adr], eax
+   mov dword[struct70.param_adr], eax
    jmp .end_set_path
 @@:
    cmp ecx, 1
+   jne @f
+   mov eax, apps.path2 ;dword[newData.ld]
-   jne @f
+   cmp byte[eax], 0 ;åñëè ïî àäðåñó ïóñòî (èëè ëåæàë ñèìâîë '-'), òî àäðåñ 0
+   je .set0
+   mov dword[struct70.path_adr], eax
-   mov eax, dword[newData.ld]
+   mov eax, apps.param2
-   mov dword[struct70.path_adr], eax
+   mov dword[struct70.param_adr], eax
    jmp .end_set_path
 @@:
    cmp ecx, 2
+   jne @f
+   mov eax, apps.path3 ;dword[newData.ru]
-   jne @f
+   cmp byte[eax], 0 ;åñëè ïî àäðåñó ïóñòî (èëè ëåæàë ñèìâîë '-'), òî àäðåñ 0
+   je .set0
+   mov dword[struct70.path_adr], eax
-   mov eax, dword[newData.ru]
+   mov eax, apps.param3
-   mov dword[struct70.path_adr], eax
+   mov dword[struct70.param_adr], eax
    jmp .end_set_path
 @@:
    cmp ecx, 3
+   jne .set0 ;.end_set_path
+   mov eax, apps.path4 ;dword[newData.rd]
-   jne .end_set_path
+   cmp byte[eax], 0 ;åñëè ïî àäðåñó ïóñòî (èëè ëåæàë ñèìâîë '-'), òî àäðåñ 0
+   je .set0
+   mov dword[struct70.path_adr], eax
-   mov eax, dword[newData.rd]
+   mov eax, apps.param4
-   mov dword[struct70.path_adr], eax
+   mov dword[struct70.param_adr], eax
-   jmp .end_set_path
-.end_set_path:
-   ;ïàðàìåòðû
-   ;mov dword[struct.adr],
+   jmp .end_set_path
-;åñëè àäðåñ 0, òî íè÷åãî íå äåëàòü
-   cmp dword[struct70.path_adr], 0
-   jne .next
+.set0:
-   ;mov eax, testData.ld
+   ;mov dword[struct70.path_adr], 0
-   ;mov dword[struct70.path_adr], eax
+   ;mov dword[struct70.param_adr], 0
-   jmp @f
-.next:
-;êîíåö êîäà äëÿ çàìåíû
+   jmp @f
 .end_set_path:
    mcall 70, struct70
 @@:
-   mov byte[state], LOCKd
-   ;mov byte[keyState], 0
+   mov byte[state], LOCKd
    ;mov byte[keyState], 0
    pop ecx ebx eax
 .end:
    ret
 struct70: ;Ôîðìàò èíôîðìàöèîííîé ñòðóêòóðû
   .func       dd 7 ; íîìåð ïîäôóíêöèè
   .mask       dd 0
   .param_adr  dd 0 ; óêàçàòåëü íà ASCIIZ-ñòðîêó ñ ïàðàìåòðàìè
   .other      dd 0, 0
-  .path       db 0 ; "/rd/1/TINYPAD",0 ; ïóòü
+  .path       db 0
+  .path_adr   dd 0 ; óêàçàòåëü íà ñòðîêó ñ ïóò¸ì
+;èìÿ êîíôèãóðàöèîííîãî ôàéëà
+fileName: db 'SETTINGS/HOTANGLES.CFG', 0
+;ïðîõîäèì äî êîíöà òåêóùåé ñòðîêè
+gotoEndString:
+   cmp eax, edx  ;åñëè ôàéë çàêîí÷èëñÿ, òî
+   ja @f         ;âûõîäèì
+   cmp byte[eax], 10
+   je @f
+   cmp byte[eax], 0
+   je @f
+   cmp byte[eax], 13
+   je @f
+   ;èíà÷å ïåðåõîäèì íà ñëåäóþùèé ñèìâîë
+   inc eax
+   jmp gotoEndString
+@@:
+   ret
+;ïðîïóñêàåì ïåðåíîñû â íà÷àëå ñòðîêè äî ïåðâîãî àäåêâàòíîãî ñèìâîëà
+gotoStartString:
+   cmp eax, edx  ;åñëè ôàéë çàêîí÷èëñÿ, òî
+   ja @f         ;âûõîäèì
+   cmp byte[eax], 10
+   je .next
+   cmp byte[eax], 0
+   je .next
+   cmp byte[eax], 13
+   je .next
+   jmp @f ;åñëè ýòî äðóãîé ñèìâîë, òî âûõîäèì
+.next:   ;ïåðåõîäèì íà ñëåäóþùèé ñèìâîë
+   inc eax
+   jmp gotoStartString
+@@:
+   ret
+sep: db '|' ;ñèìâîë ðàçäåëèòåëü ñòðîêè ïóòè + ïàðàìåòðû çàïóñêà
+readPath:
+   push ebx esi edi
+   mov bh, 0 ; 0 -  çíàê òîãî, ÷òî ïàðàìåòðû åù¸ íå âñòðå÷àëèñü
+   mov byte[esi], 0   ;ïðîèíèöèàëèçèðóåì áóôåðû-ñòðîêè ïóñòîòîé (íà âñÿêèé ñëó÷àé)
+   mov byte[edi], 0
+@@:
+   cmp eax, edx  ;åñëè ôàéë çàêîí÷èëñÿ, òî
+   ja @f         ;âûõîäèì
+   mov bl, byte[eax]
+   ;åñëè î÷åðåäíîé ñèìâîë íå êîíåö ñòðîêè
+   cmp bl, 10
+   je @f  ;èíà÷å âûõîä
+   cmp bl, 0
+   je @f
+   cmp bl, 13
+   je @f
+   ;è íå íà÷àëî ïàðàìåòðîâ
+   cmp bl, byte[sep]
+   jne .read
+   ;åñëè sep óæå âñòðå÷àëè ðàíåå, òî
+   cmp bh, 0
+   jne .read ;ïðîñòî ïðîäîëæàåì ñ÷èòûâàòü ïàðàìåòðû äàëüøå  (â íèõ ìîæåò áûòü ÷òî óãîäíî)
+   ;èíà÷å êëàä¸ì çàâåðøàþùèé 0 è ïåðåõîäèì ê áóôåðó ñ ïàðàìåòðàìè
+   mov byte[esi], 0
+   call trim ;åù¸ íå çàáóäåì óáðàòü ëèøíèå òàáóëÿöèè è ïðîáåëû íà êîíöå íàøåé ñòðîêè
+   mov esi, edi
+   mov bh, 1
+   inc eax
+   jmp @b
+.read: ;òî çàïèñûâàåì ñèìâîë â íàø áóôåð è ïåðåõîäèì íà ñëåäóþùèé ñèìâîë
+   mov byte[esi], bl
+   inc esi
+   inc eax
+   jmp @b
+@@:
+   mov byte[esi], 0 ;êëàä¸ì çàâåðøàþùèé íîëü
+   pop edi esi ebx
+   ret
+trim:  ;esi - ïîñëåäíèé íóëåâîé ñèìâîë ñòðîêè
+   ;push esi
+   mov byte[esi], 0
+   dec esi
+   cmp byte[esi], 8
+   je trim
+   cmp byte[esi], 32
+   je trim
+   inc esi
+   ;pop esi
-  .path_adr   dd 0 ;testData.lu
+   ret
 ;èìÿ êîíôèãóðàöèîííîãî ôàéëà
+cfgFileAdr: dd 0     ;àäðåñ êîíôèãóðàöèîííîãî ôàéëà â ïàìÿòè
 fileName: db 'SETTINGS/HOTANGLES.CFG', 0
 loadConfig:
-loadConfig:
+   push eax ebx ecx edx
-   push eax ebx ecx edx
+   mcall 68, 27, fileName   ;çàãðóæàåì êîíôèãóðàöèîííûé ôàéë â ÎÇÓ
-   mcall 68, 27, fileName   ;çàãðóæàåì êîíôèãóðàöèîííûé ôàéë â ÎÇÓ
+   mov dword[cfgFileAdr], eax
    cmp eax, 0
    je loadConfig.exit       ;åñëè ôàéëà êîíôèãóðàöèè íåò, òî çàâåðøàåì ðàáîòó ïðèëîæåíèÿ
    ;èíà÷å äàííûå çàãðóæåíû â ÎÇÓ, ðàçìåð â edx
    cmp edx, 0               ;åñëè ôàéë ïóñò, â í¸ì íåò äàííûõ, òî çàâåðøàåì ðàáîòó
    je loadConfig.exit
    add edx, eax             ;èíà÷å êëàä¸ì â edx - àäðåñ êîíöà ôàéëà
+   mov byte[mode], 0
+   cmp byte[eax], '0'       ;åñëè ïàðàìåòð àêòèâíîñòè ïðèëîæåíèÿ èìååò ñòàòóñ: íå àêòèâíî
+   je loadConfig.exit       ;òî çàâåðøàåì ðàáîòó ïðèëîæåíèÿ
+   cmp byte[eax], 110 ;'n'
+   je loadConfig.exit
+   ;èíà÷å âûñòàâëÿåì ðåæèì
+   cmp byte[eax], 121 ;'y'  ;êëàññè÷åñêèé ðåæèì
+   jne @f
    mov byte[mode], 1
-   mov byte[mode], 0
+   jmp loadConfig.modeEnd
-   cmp byte[eax], '0' ;121 ;'y'  ;åñëè ïàðàìåòð àêòèâíîñòè ïðèëîæåíèÿ èìååò ñòàòóñ: íå àêòèâíî
+@@:
-   je loadConfig.exit      ;òî çàâåðøàåì ðàáîòó ïðèëîæåíèÿ
+   cmp byte[eax], '1'       ;êëàññè÷åñêèé ðåæèì
-   cmp byte[eax], 110 ;'n'
+   jne @f
-   je loadConfig.exit
+   mov byte[mode], 1
    jmp loadConfig.modeEnd
-   ;èíà÷å âûñòàâëÿåì ðåæèì
+@@:
    cmp byte[eax], '2'       ;ðåæèì àêòèâàöèè ïî ãîðÿ÷åé êëàâèøå
    jne @f
    mov byte[mode], 2
+   jmp loadConfig.modeEnd
-   jmp loadConfig.modeEnd
+@@:
+   cmp byte[eax], '3'       ;ðåæèì æåñòà ïðè çàæàòîé êëàâèøå
+   jne @f
+   mov byte[mode], 3
+   jmp loadConfig.modeEnd
+@@:
-@@:
+   mov byte[mode], 0        ;âî âñåõ îñòàëüíûõ ñëó÷àÿõ - îòêëþ÷åíî
+   jmp loadConfig.exit
+.modeEnd:
+   ;èä¸ì äî êîíöà ýòîé ñòðîêè
+   call gotoEndString
+   ;íàõîäèì íà÷àëî ñëåäóþùåé ñòðîêè
+   call gotoStartString
+   push esi edi
-   cmp byte[eax], '3'       ;ðåæèì æåñòà ïðè çàæàòîé êëàâèøå
+   ;ñ÷èòûâàåì ïóòü äëÿ ëåâîãî âåðõíåãî óãëà
+   mov esi, apps.path1
+   mov edi, apps.param1
-   jne @f
+   call readPath
+   call gotoStartString  ;íàõîäèì íà÷àëî ñëåäóþùåé ñòðîêè
-   mov byte[mode], 3
+   ;ñ÷èòûâàåì ïóòü äëÿ ëåâîãî íèæíåãî óãëà
+   mov esi, apps.path2
+   mov edi, apps.param2
-   jmp loadConfig.modeEnd
+   call readPath
-@@:
+   call gotoStartString
+   ;ñ÷èòûâàåì ïóòü äëÿ ïðàâîãî âåðõíåãî óãëà
+   mov esi, apps.path3
+   mov edi, apps.param3
+   call readPath
-   mov byte[mode], 1        ;âî âñåõ îñòàëüíûõ ñëó÷àÿõ - êëàññè÷åñêèé ðåæèì
+   call gotoStartString
-.modeEnd:
+   ;ñ÷èòûâàåì ïóòü äëÿ ïðàâîãî íèæíåãî óãëà
+   mov esi, apps.path4
+   mov edi, apps.param4
+   call readPath
+   call gotoStartString
-   push edi
+   ;call checkAdr ;ïðîâåðèì ñòðîêè íà '-' è ïóñòîòó è âûñòàâèì áèòîâóþ ìàñêó
+   call checkPathAdr
+   pop edi esi
+   ;ïðîïóñêàåì ñòðîêó ñ èìåíåì êëàâèøè
+   call gotoEndString
+   call gotoStartString
+   ;ñ÷èòûâàåì ñêàíêîä àêòèâàöèîííîé êëàâèøè
-   push esi
+   ;call readKey
+   ;call gotoEndString
-   ; ñîõðàíÿåì â edi óêàçàòåëü íà íà÷àëî òàáëèöû àäðåñîâ íàøèõ êîìàíä
+   push esi edi ecx
-   mov edi, newData
+   mov esi, keystr
+   mov edi, keystr
+   call readPath
+   ;ïðåîáðàçóåì ñòðîêó â ÷èñëî
+   mov esi, keystr
+   call strToInteger
+   mov byte[keyActivate], cl
+   pop ecx edi esi
+   call gotoStartString
-   ; ñîõðàíÿåì àäðåñà ñòðîê è äîáàâëÿåì 0 â êîíöå
+   ;ñ÷èòûâàåì ðàäèóñ
+   push esi edi ecx
+   mov esi, radstr
+   mov edi, radstr
+   call readPath
-   mov esi, eax
+   ;ïðåîáðàçóåì ñòðîêó â ÷èñëî
-.block:
+   mov esi, radstr
-   inc esi
-   cmp byte[esi], 10         ;åñëè î÷åðåäíîé êîä ñèìâîëà 10 èëè 13, òî ïðîïóñêàåì ñèìâîëû
-   je loadConfig.propusk     ;äî ïåðâîãî îòëè÷íîãî îò íèõ
-   cmp byte[esi], 13
-   je loadConfig.propusk
-   ; ñèìâîë îòëè÷åí îò ïåðåíîñà ñòðîêè è âîçâðàòà êàðåòêè - åñëè ýòî íà çíàê ìèíóñ, òî çàïîìèíàåì åãî
-   mov dword[edi], esi
+   call strToInteger
-   add edi, 4
-   ;èä¸ì äî êîíöà ýòîé ñòðîêè: ïîêà íå âñòðåòèì î÷åðåäíîé 10, 13, 0 èëè file end
-.while:
-   inc esi
+   ;òåïåðü ecx - çíà÷åíèå ðàäèóñà
+   ;!!! äîáàâèòü ïðîâåðêó, ÷òîáû ÷èñëî íå áûëî áîëüøå îáëàñòè ýêðàíà
+   ;íàñ èíòåðåñóåò êâàäðàò ÷èñëà
+   push eax edx
+   mov eax, ecx ;dword[radius2]
+   mul ecx
+   mov dword[radius2], eax
+   pop edx eax
+   pop ecx edi esi
+   ;ñ÷èòûâàòü ðàçìåð ýëåìåíòîâ èíòåðôåéñà íàì íå íóæíî (ïîêà ÷òî ýòîò ïàðàìåòð òîëüêî äëÿ êîíôèãà)
+   jmp .end
+.exit:
+   pop edx ecx ebx eax
+   mcall -1 ;çàêðûòü ýòó ïðîãðàììó
+.end:
+   mov ecx, dword[cfgFileAdr]    ;åñëè ôàéë áûë çàãðóæåí, òî
+   cmp ecx, 0
+   je @f
+   mcall 68, 13, ecx  ;âûãðóæàåì ôàéë èç ïàìÿòè
+@@:
+   pop edx ecx ebx eax
+   ret
+;readKey:
+   ;÷èòàåì êëàâèøó è âûõîäèì
+;   cmp dword[eax], 'Ctrl'
+;   jne .notCtrl
+;   mov byte[keyActivate], 3
+;   jmp .end
+;.notCtrl:
+;   cmp dword[eax], 'Shif'
+;   jne .notShift
+;   mov byte[keyActivate], 2
+;   jmp .end
+;.notShift:
+;   cmp dword[eax], 'Spac'
+;   jne .notSpace
+;   mov byte[keyActivate], 32
+;   jmp .end
+;.notSpace:
+;   cmp word[eax], 'Al'
+;   jne .notAlt
+;   mov byte[keyActivate], 1
+;   jmp .end
+;.notAlt:
+   ;óáåäèìñÿ, ÷òî òàì 1 ñèìâîë, à íå ñòðîêà
+;   cmp byte[eax+1], 10
+;   je .oneSymb
+;   cmp byte[eax+1], 0
+;   je .oneSymb
+;   cmp byte[eax+1], 13
+;   je .oneSymb
+;   jmp .default    ;â ëþáîì äðóãîì ñëó÷àå îøèáêà êîíôèãà - âûõîä
+;.oneSymb:
+   ;ïðîâåðÿåì, ÷òî ñèìâîë ðàçðåø¸ííûé  !!!  äîäåëàòü
+   ;äîáàâëÿåì ñèìâîë êàê åñòü
+;   push ebx
+;   ;xor ebx, ebx
+;   mov bl, byte[eax]
+;   mov byte[keyActivate], bl
+;   pop ebx
+;   jmp .end
+;.default:
+;   mcall -1
+;   ;mov byte[keyActivate], 2
+;.end:
+;   ret
+checkPathAdr:
-   cmp esi, edx           ;òóò áóäåò ïðîáëåìà - òê ôàéë çàêîí÷èëñÿ, à íóëÿ íå áûëî !!! èñïðàâèòü
+   push eax ebx
+   xor eax, eax
-   jae loadConfig.fileend
+   mov ebx, apps.path1
-   cmp byte[esi], 10
+   cmp byte[ebx], '-'
+   jne @f
-   je loadConfig.ura
+   ;cmp byte[ebx+1], 0
-   cmp byte[esi], 0
+   ;jne @f
-   je loadConfig.ura
+   mov byte[ebx], 0
-   cmp byte[esi], 13
+@@:
+   mov ebx, apps.path2
+   cmp byte[ebx], '-'
+   jne @f
+   ;cmp byte[ebx+1], 0
+   ;jne @f
-   jne loadConfig.while
+   mov byte[ebx], 0
+@@:
+   mov ebx, apps.path3
-.ura:
+   cmp byte[ebx], '-'
-   mov byte[esi], 0
+   jne @f
+   ;cmp byte[ebx+1], 0
+   ;jne @f
-   ;cmp byte[esi-1], '-'
-   ;jne @f
-   push esi  ;åñëè ýòî áûë çíàê ìèíóñ, òî ìåíÿåì àäðåñ íà íîëü
+   mov byte[ebx], 0
-   mov esi, dword[edi-4]
+@@:
-   cmp byte[esi], '-'
+   mov ebx, apps.path4
+   cmp byte[ebx], '-'
    jne @f
+   ;cmp byte[ebx+1], 0
+   ;jne @f
+   mov byte[ebx], 0
+@@:
+   pop ebx eax
+   ret
+checkAdr:
+   push eax ebx
+   xor eax, eax
+   mov ebx, apps.path1
+   cmp byte[ebx], '-'
+   jne @f
+   inc eax
+@@:
+   mov ebx, apps.path2
+   cmp byte[ebx], '-'
+   jne @f
-   cmp byte[esi+1], 0
+   add eax, 2
+@@:
+   mov ebx, apps.path3
+   cmp byte[ebx], '-'
    jne @f
+   add eax, 4
+@@:
+   mov ebx, apps.path4
+   cmp byte[ebx], '-'
-   mov dword[edi-4], 0
+   jne @f
+   add eax, 8
+@@:
-@@:
-   pop esi
+   mov ebx, apps.param1
+   cmp byte[ebx], '-'
+   jne @f
+   add eax, 16
-   cmp edi, newDataEnd ;newData.end      ;åñëè âñÿ òàáëèöà àäðåñîâ çàïîëíåíà, òî âûõîäèì èç öèêëà
+@@:
+   mov ebx, apps.param2
+   cmp byte[ebx], '-'
-   jb loadConfig.block
+   jne @f
-.fileend:
+   add eax, 32
+@@:
+   mov ebx, apps.param3
+   cmp byte[ebx], '-'
+   jne @f
+   add eax, 64
+@@:
+   mov ebx, apps.param4
+   cmp byte[ebx], '-'
+   jne @f
+   add eax, 128
+@@:
+   mov byte[apps.bits], al
+   pop ebx eax
+   ret
+;ïðåîáðàçîâàíèå ñòðîêè â öåëîå ÷èñëî
+strToInteger: ;âõîä: esi - óêàçàòåëü íà ñòðîêó ñ äåñÿòè÷íîé çàïèñüþ ÷èñëà, âûõîä: eñx - ÷èñëî
+   push eax ebx edx edi
+   xor eax, eax  ;îáíóëÿåì eax
+   xor ecx, ecx
+   mov edi, esi
+.get_last_symbol:
+   ;÷èòàåì î÷åðåäíîé ñèìâîë
+   mov al, byte[edi]
+   ;åñëè ýòî íîëü, òî ñòðîêà çàêîí÷èëàñü
+   cmp al, 0
+   je @f
+   ;èíà÷å ïåðåõîäèì íà ñëåäóþùèé ñèìâîë
+   inc edi
+   jmp .get_last_symbol
+@@:   ;äîøëè äî ïîñëåäíåãî ñèìâîëà è êëàä¸ì àäðåñ íà íåãî â edi
+   dec edi
+   cmp edi, esi    ;àäðåñ ïîñëåäíåãî ñèìâîëà äîëæåí áûòü äàëüøå àäðåñà ïåðâîãî ñèìâîëà
+   jae @f
+   jmp .error  ;èíà÷å îøèáêà
+@@:
+   ;òåïåðü â edi ïîñëåäíèé ñèìâîë, à esi óêàçûâàåò íà íà÷àëî ñòðîêè (íà ïåðâé ñèìâîë ñòðîêè)
+   mov cl, byte[edi]
+   sub cl, 48 ;0x30 ;'0'
+   dec edi         ;ïåðåõîäèì íà ñëåä ñèìâîë îò êîíöà
+   mov ebx, 10     ;ìíîæèòåëü ñòåïåíè
+.tranform_cicle:
+   cmp edi, esi        ;åñëè áîëüøå íåò ñèìâîëîâ ñòðîêå, òî ÷èñëî ïðåîáðàçîâàëè - âûõîäèì
+   jb .end
+   mov eax, 0
+   mov al, byte[edi]
+   sub al, 48 ;'0'
+   cmp al, 9 ;0x39           ;åñëè ÷èñëî áîëüøå 9, òî âèäèìî â ñòðîêå áûëî ÷òî-òî íå òàê
+   ja .error
+   cmp al, 0 ;0x30           ;åñëè ÷èñëî ìåíüøå 0, òî âèäèìî â ñòðîêå áûëî ÷òî-òî íå òàê
    jb .error
-   pop esi
+   mov edx, 0
-   pop edi
+   mul ebx
    ret
 ;MODE 3
 init03:
-   mov dword[radius2], 100; 10*10
+   ;mov dword[radius2], 100; 10*10
    mov dword[backAdr], mode03
    call setHotKey
 mode03:
    je mouse03.updateCoord
    cmp byte[state], LOCKd    ;åñëè óãîë çàáëîêèðîâàí, òî îáíîâèì íà÷àëüíûå êîîðäèíàòû
+   je mouse03.updateCoord
+   cmp byte[state], SUPERLOCKd  ;åñëè äåéñòâèå áûëî âûïîëíåíî è ïîëó÷èëè áëîêèðîâêó, òî æä¸ì îòïóñêàíèÿ êëàâèøè àêòèâàöèè
-   je mouse03.updateCoord
+   je @f
    call checkPointInCircle   ;èíà÷å åñëè ïðåîäîëåëè ðàäèóñ àêòèâàöèè, òî âûçûâàåì äåéñòâèå íóæíîãî óãëà
    jmp @f
 .updateCoord:
    ;èíà÷å ëåâûé íèæíèé óãîë
    mov ecx, 1
    call run_command
    mov byte[keyState], 0
-   mov byte[state], LOCKd
+   mov byte[state], SUPERLOCKd
    jmp activateCorner.end
 .leftup:
    ;ëåâûé âåðõíèé óãîë
    mov ecx, 0
    call run_command
    mov byte[keyState], 0
-   mov byte[state], LOCKd
+   mov byte[state], SUPERLOCKd
    jmp activateCorner.end
    ;èíà÷å ïðàâûé íèæíèé óãîë
    mov ecx, 3
    call run_command
    mov byte[keyState], 0
-   mov byte[state], LOCKd
+   mov byte[state], SUPERLOCKd
    jmp activateCorner.end
 .rightup:
    ;ïðàâûé âåðõíèé óãîë
    mov ecx, 2
    call run_command
    mov byte[keyState], 0
-   mov byte[state], LOCKd
+   mov byte[state], SUPERLOCKd
    jmp activateCorner.end
 keyActivate db 41 ;16 ;'Q' ;êëàâèøà àêòèâàöèè
 keyState    db 0  ;0-êëàâèøà íå àêòèâíà, 1 - êëàâèøà àêòèâíà
-backAdr rd 1      ;àäðåñ äëÿ âîçâðàòà èç ïðîâåðêè ìûøè
-;slotMax dd 0
 ;selfPID dd 0
-;buf db 1024 dup(0)
+backAdr rd 1      ;àäðåñ äëÿ âîçâðàòà èç ïðîâåðêè ìûøè
 slotMax rd 1
 selfPID rd 1
 buf rb 1024
 ;ñòðóêòóðêà äàííûõ äëÿ õðàíåíèÿ ïàðàìåòðîâ ýêðàíà
 screen:
   .width  rw 1
+  .height rw 1
-  .height rw 1
+state: rb 1  ;ñîñòîÿíèå: 0=unlock, 1=lock, 2=superlock for mode 3
+mode:  rb 1  ;ðåæèì ðàáîòû ïðèëîæåíèÿ: 0=íå ðàáîòàåò, 1=êëàññè÷åñêèé, 2=ïî ãîðÿ÷åé êëàâèøå
+keystr: rb 4 ;ñòðîêà ñî çíà÷åíèåì ñêàíêîäà àêòèâàöèîííîé êëàâèøè
-state: rb 1  ;ñîñòîÿíèå: 0=unlock, 1=lock
+radstr: rb 5 ;ñòðîêà ñî çíà÷åíèåì ðàäèóñà
+apps:
+ .bits: rb 1
-mode:  rb 1  ;ðåæèì ðàáîòû ïðèëîæåíèÿ: 0=íå ðàáîòàåò, 1=êëàññè÷åñêèé, 2=ïî ãîðÿ÷åé êëàâèøå
+ .path1: rb 512
+ .path2: rb 512
+ .path3: rb 512
-newData:  ;òàáëè÷êà àäðåñîâ êîìàíäíûõ ñòðîê
+ .path4: rb 512
+ .param1: rb 512
-  .lu rd 1
+ .param2: rb 512

Subversion Repositories Kolibri OS

(root)/programs/other/ha/HOTANGLES.ASM – Rev 7443 → 7459