kolibrios-gitea/programs/system/run/trunk/editbox.inc

; <Lrz> 21.07.2006 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>㭪<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Del, ⥯<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㤠<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: <EFBFBD><EFBFBD><EFBFBD><EFBFBD>客 <EFBFBD><EFBFBD><EFBFBD>ᨬ (Maxxxx32) email: maxxxxm@mail.ru
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 13.07.06 10:40
;  <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD>室<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᢮<EFBFBD><EFBFBD> <EFBFBD>ணࠬ<EFBFBD><EFBFBD> use_edit_box,
; <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>⠢<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>室<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>襩 <EFBFBD>ணࠬ<EFBFBD><EFBFBD>.
;  <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD>:
;   edit_box.draw - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD>;
;   edit_box.key - <EFBFBD><EFBFBD>ࠡ<EFBFBD>⪠ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;
;   edit_box.mouse - <EFBFBD><EFBFBD>ࠡ<EFBFBD>⪠ <EFBFBD><EFBFBD><EFBFBD><EFBFBD>;
;   edit_box.focus - <EFBFBD><EFBFBD>⠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD> 䮪<EFBFBD><EFBFBD><EFBFBD>;
;   edit_box.blur - <EFBFBD><EFBFBD><EFBFBD> ࠧ<EFBFBD>뢠<EFBFBD><EFBFBD><EFBFBD>;
;   edit_box.get_n - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ뢠<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
;  <EFBFBD><EFBFBD><EFBFBD> <EFBFBD>맮<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD> <EFBFBD> ॣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> edi ᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <EFBFBD><EFBFBD>⠢<EFBFBD><EFBFBD><EFBFBD> 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
;  <EFBFBD>ਬ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
; some_edit edit_box 100,10,30,0x00ffffff,0,0x00aaaaaa,0,255,some_edit_text
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD>, 梥<EFBFBD> 䮭<EFBFBD>, 梥<EFBFBD> ࠬ<EFBFBD><EFBFBD>, <EFBFBD>᫨ <EFBFBD><EFBFBD><EFBFBD>࠭,
; 梥<EFBFBD> ࠬ<EFBFBD><EFBFBD>, <EFBFBD>᫨ <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>࠭, <EFBFBD><EFBFBD><EFBFBD>ᨬ<EFBFBD><EFBFBD>쭮<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
; 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>࠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD>稢<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>㫥<EFBFBD>, <EFBFBD><EFBFBD><EFBFBD>ਬ<EFBFBD><EFBFBD> <EFBFBD>᫨ <EFBFBD><EFBFBD><EFBFBD>ᨬ<EFBFBD><EFBFBD>쭮<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ 255:
;  some_edit_text:
;       rb      256 ;255+1

;  <EFBFBD>ਬ<EFBFBD><EFBFBD> <EFBFBD>맮<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD>:
;       mov     edi,some_edit
;       call    edit_box.draw

;  <EFBFBD><EFBFBD><EFBFBD> <EFBFBD>맮<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD> edit_box.key <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <EFBFBD><EFBFBD>室<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> ah, <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>। <EFBFBD>맮<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>⮩ <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>맢<EFBFBD><EFBFBD><EFBFBD>
; 2-<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ᥬ<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>㭪<EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD>ਬ<EFBFBD><EFBFBD>:
;       mov     eax,2
;       int     0x40
;       mov     edi,some_edit1
;       call    edit_box.key
;       mov     edi,some_edit2
;       call    edit_box.key
;  <EFBFBD><EFBFBD>। <EFBFBD>맮<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ࠡ<EFBFBD><EFBFBD>稪<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>஢<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <EFBFBD><EFBFBD>⨢<EFBFBD><EFBFBD><EFBFBD>.
;  <EFBFBD>᫨ 饫箪 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ன<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD>।<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> edit box
; 䮪<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
macro use_edit_box
{
edit_box:
ed_width        equ [edi]
ed_left         equ [edi+2]
ed_top          equ [edi+4]
ed_color        equ [edi+6]
ed_focus_border_color   equ [edi+10]
ed_blur_border_color    equ [edi+14]
ed_text_color   equ [edi+18]
ed_flags        equ [edi+22]
ed_max  equ [edi+24]
ed_size equ [edi+26]
ed_pos  equ [edi+28]
ed_offset       equ [edi+30]
ed_text equ [edi+32]
ed_height=14 ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;==========================================================
;=== <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD> =================================
;==========================================================
.draw:
pusha
;--- <EFBFBD><EFBFBD><EFBFBD>㥬 ࠬ<EFBFBD><EFBFBD> ---
        call    .draw_border

.draw_bg_cursor_text:
;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞 ᬥ饭<EFBFBD><EFBFBD>, <EFBFBD>᫨ <EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
        call    .check_offset
;--- <EFBFBD><EFBFBD><EFBFBD>㥬 <EFBFBD><EFBFBD><EFBFBD><EFBFBD>७<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
        call    .draw_bg
.draw_cursor_text:
;--- <EFBFBD><EFBFBD><EFBFBD>㥬 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
        ;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD><EFBFBD> ----
        bt      word ed_flags,1
        jnc     @f
        call    .draw_cursor
@@:
        call    .draw_text
popa
ret

;----------------------------------------------------------
;--- <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD> ⥪<EFBFBD><EFBFBD><EFBFBD> --------------------------
;----------------------------------------------------------
.draw_text:
;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞, ᪮<EFBFBD>쪮 <EFBFBD><EFBFBD><EFBFBD><EFBFBD>頥<EFBFBD><EFBFBD><EFBFBD> ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
        call    .get_n
;--- <EFBFBD>⮡<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD><EFBFBD> ---
        movsx   esi,word ed_size
        sub     si,ed_offset
        cmp     ax,si
        ja      @f
        mov     si,ax
@@:

;--- <EFBFBD><EFBFBD><EFBFBD>㥬 ⥪<EFBFBD><EFBFBD> ---
        mov     eax,4
        mov     bx,ed_left
        add     bx,2
        shl     ebx,16
        mov     bx,ed_top
        add     bx,4
        mov     ecx,ed_text_color
        movsx   edx,word ed_offset
        add     edx,ed_text
        int     0x40
ret

;----------------------------------------------------------
;--- <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD> 䮭<EFBFBD> ----------------------------
;----------------------------------------------------------
.draw_bg_eax:
pusha
        movsx   ebx,ax
        lea     ebx,[ebx*2+ebx]
        shl     bx,1
        shl     ebx,16
        shr     eax,16
        lea     eax,[eax*2+eax]
        shl     ax,1
        add     ax,ed_left
        add     ax,2
        mov     bx,ax
        ror     ebx,16
        jmp     @f
.draw_bg:
pusha
        mov     bx,ed_left
        inc     bx
        shl     ebx,16
        mov     bx,ed_width
        dec     bx

@@:
        mov     cx,ed_top
        inc     cx
        shl     ecx,16
        mov     cx,ed_height
        dec     cx

        mov     edx,ed_color
        mov     eax,13
        int     0x40
popa
ret

;----------------------------------------------------------
;--- <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢠ ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> --------------
;----------------------------------------------------------
.get_n:
        xor     edx,edx
        movsx   eax,word ed_width
        sub     ax,4
        mov     bx,6
        div     bx
ret

;----------------------------------------------------------
;--- <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> --------------------------
;----------------------------------------------------------
.clear_cursor:
        mov     edx,ed_color
        jmp     @f
.draw_cursor:
        mov     edx,ed_text_color
@@:
        movsx   ebx,word ed_pos
        sub     bx,ed_offset
        ;lea     ebx,[ebx*2+ebx]
        ;shl     ebx,1
        imul    ebx,6
        add     bx,ed_left
        inc     bx
        push    bx
        shl     ebx,16
        pop     bx
        mov     cx,ed_top
        add     cx,2
        push    cx
        shl     ecx,16
        pop     cx
        add     cx,ed_height-4
        mov     eax,38
        int     0x40
ret

;----------------------------------------------------------
;--- <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠬ<EFBFBD><EFBFBD> ----------------------------
;----------------------------------------------------------
.draw_border:
;--- 梥<EFBFBD> ࠬ<EFBFBD><EFBFBD> ---
        bt      word ed_flags,1
        mov     edx,ed_focus_border_color
        jc     @f
        mov     edx,ed_blur_border_color
@@:
;--- ᢥ<EFBFBD><EFBFBD><EFBFBD> ---
        mov     bx,ed_left
        push    bx
        shl     ebx,16
        pop     bx
        add     bx,ed_width
        mov     cx,ed_top
        push    cx
        shl     ecx,16
        pop     cx
        mov     eax,38
        int     0x40

;--- ᭨<EFBFBD><EFBFBD> ---
        push    cx
        add     cx,ed_height
        push    cx
        shl     ecx,16
        pop     cx
        int     0x40

;--- ᫥<EFBFBD><EFBFBD> ---
        pop     cx
        push    bx
        sub     bx,ed_width
        int     0x40

;--- <EFBFBD><EFBFBD>ࠢ<EFBFBD> ---
        pop     bx
        push    bx
        shl     ebx,16
        pop     bx
        int     0x40
ret

;----------------------------------------------------------
;--- <EFBFBD>஢<EFBFBD>ઠ, <EFBFBD><EFBFBD>襫 <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD>࠭<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>, <EFBFBD>᫨ <EFBFBD><EFBFBD><EFBFBD><EFBFBD>, ---
;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞 ᬥ饭<EFBFBD><EFBFBD> ------------------------------------
;--- eax = 1, <EFBFBD>᫨ <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> eax = 0, <EFBFBD>᫨
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;----------------------------------------------------------
.check_offset:
        push    word ed_offset
        call    .get_n
;--- <EFBFBD>ࠢ<EFBFBD><EFBFBD> ---
        mov     bx,ed_offset
        add     bx,ax
        cmp     bx,ed_pos
        ja      @f
        mov     bx,ed_pos
        mov     cx,ax
        shr     cx,2
        sub     bx,cx
        mov     cx,ax
        shr     cx,1
        sub     bx,cx
        mov     ed_offset,bx
@@:
;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
        mov     bx,ed_offset
        cmp     bx,ed_pos
        jb      @f
        mov     bx,ed_pos
        mov     cx,ax
        shr     cx,2
        sub     bx,cx
        jnc     $+5
        xor     bx,bx
        mov     ed_offset,bx
@@:
        xor     eax,eax
        pop     bx
        cmp     bx,ed_offset
        jne     @f
        inc     eax
@@:
ret

;==========================================================
;=== <EFBFBD><EFBFBD>ࠡ<EFBFBD>⪠ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> =================================
;==========================================================
.key:
pusha
        bt      word ed_flags,1 ; <EFBFBD>᫨ <EFBFBD><EFBFBD> <EFBFBD> 䮪<EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD>室<EFBFBD><EFBFBD>
        jc     @f
        popa
        ret
@@:

;----------------------------------------------------------
;--- <EFBFBD>஢<EFBFBD><EFBFBD>塞, <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> --------------------------------
;----------------------------------------------------------
        cmp     ah,8
        je      .backspace
	cmp	ah,0xb6
	je	.delete
        cmp     ah,176
        je      .left
        cmp     ah,179
        je      .right
        cmp     ah,180
        je      .home
        cmp     ah,181
        je      .end

;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>㣠<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
        bt      word ed_flags,15  ; ⮫쪮 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ?
        jnc     @f
        cmp     ah,'0'
        jb      .no_figure
        cmp     ah,'9'
        ja      .no_figure
        jmp     @f
.no_figure:
        popa
        ret
@@:
        ; <EFBFBD>஢<EFBFBD><EFBFBD>塞, <EFBFBD><EFBFBD>室<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        mov     bx,ed_max
        cmp     bx,ed_pos
        jne     @f ; <EFBFBD>᫨ <EFBFBD><EFBFBD>, <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD>
        popa
        ret
@@:
        ; ᤢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫥ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ࠢ<EFBFBD>
        mov     edx,ed_text
        dec     edx
        xor     ecx,ecx
        mov     cx,ed_size
        cmp     cx,ed_pos
        je      @f
.mov_right_next:
        mov     bh,[edx+ecx]
        mov     [edx+ecx+1],bh
        dec     cx
        cmp     cx,ed_pos
        jne     .mov_right_next
@@:


        ; <EFBFBD><EFBFBD>⠢<EFBFBD>塞 <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>㤠, <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        mov     edx,ed_text
        movsx   ebx,word ed_pos
        mov     [ebx+edx],ah

        call    .clear_cursor
        ; 㢥<EFBFBD><EFBFBD>稢<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD><EFBFBD> ࠧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>樨
        inc     word ed_pos
        mov     bx,ed_size
        cmp     bx,ed_max
        je      .draw_bg_cursor_text;.key_end_draw
        inc     word ed_size

        ;push    word ed_offset
        call    .check_offset
        ;pop     ax
        ;cmp     ax,ed_offset
        ;jne     .draw_bg_cursor_text
        test    eax,eax
        jz      .draw_bg_cursor_text

        call    .get_n
        sub     ax,ed_pos
        add     ax,ed_offset
        inc     ax
        shl     eax,16
        mov     ax,ed_pos
        sub     ax,ed_offset
        dec     ax
        ror     eax,16
        call    .draw_bg_eax

        jmp    .draw_cursor_text

        ;jmp     .draw_cursor_text;.key_end_draw

.delete:	
	mov	dx,ed_size
	mov	cx,ed_pos
	;inc	edx
	;add	ecx,900
	;sub	ecx,1
	cmp	dx,cx
	jg	@f
	popa
	ret

@@:	
	mov	edx,ed_text
	;dec	edx
.mov_stop_next:
	mov	bh,[edx+ecx+1]
	mov	[edx+ecx],bh
	inc	cx
	mov	bx,ed_size
	;dec	bx
	;dec	bx
	cmp	cx,bx
	jne	.mov_stop_next

	; 㬥<EFBFBD><EFBFBD>蠥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>樨 <EFBFBD> ࠧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	;dec	word ed_pos
	dec	word ed_size
		;push    word ed_offset
	call	.check_offset
	;pop     ax
	;cmp     ax,ed_offset
	;jne     .draw_bg_cursor_text
	test	eax,eax
	jz	.draw_bg_cursor_text

	call	.get_n
	sub	ax,ed_pos
	add	ax,ed_offset
	shl	eax,16
	mov	ax,ed_pos
	sub	ax,ed_offset
	ror	eax,16
	call	.draw_bg_eax

	jmp    .draw_cursor_text
popa
ret

;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> backspace ---
.backspace:
        ; <EFBFBD>஢<EFBFBD><EFBFBD>塞, <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> ?
        mov     bx,ed_pos
        ;cmp     bx,0
        ;jne     @f; .key_end ; <EFBFBD>᫨ <EFBFBD><EFBFBD>, <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        test    bx,bx
        jnz     @f
        popa
        ret
@@:

        ; ᤢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫥ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        mov     edx,ed_text
        dec     edx
        movsx   ecx,word ed_pos

.mov_left_next:
        mov     bh,[edx+ecx+1]
        mov     [edx+ecx],bh
        inc     cx
        mov     bx,ed_size
        inc     bx
        cmp     cx,bx
        jne     .mov_left_next

        ; 㬥<EFBFBD><EFBFBD>蠥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>樨 <EFBFBD> ࠧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        dec     word ed_pos
        dec     word ed_size

        ;push    word ed_offset
        call    .check_offset
        ;pop     ax
        ;cmp     ax,ed_offset
        ;jne     .draw_bg_cursor_text
        test    eax,eax
        jz      .draw_bg_cursor_text

        call    .get_n
        sub     ax,ed_pos
        add     ax,ed_offset
        shl     eax,16
        mov     ax,ed_pos
        sub     ax,ed_offset
        ror     eax,16
        call    .draw_bg_eax

        jmp    .draw_cursor_text
popa
ret

;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> left ---
.left:
        mov     bx,ed_pos
        ;cmp     bx,0
        ;je      @f
        test    bx,bx
        jz      @f
        call    .clear_cursor
        dec     word ed_pos
        call    .check_offset
        test    eax,eax
        jz      .draw_bg_cursor_text
        call    .draw_cursor
@@:
popa
ret

;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> right ---
.right:
        mov     bx,ed_pos
        cmp     bx,ed_size
        je      @f
        call    .clear_cursor
        inc     word ed_pos
        call    .check_offset
        test    eax,eax
        jz      .draw_bg_cursor_text
        call    .draw_cursor
@@:
popa
ret

.home:
        mov     bx,ed_pos
        test    bx,bx
        jz      @f
        call    .clear_cursor
        xor     eax,eax
        mov     ed_pos,ax
        call    .check_offset
        test    eax,eax
        jz      .draw_bg_cursor_text
        call    .draw_cursor
@@:
popa
ret

.end:
        mov     bx,ed_pos
        cmp     bx,ed_size
        je      @f
        call    .clear_cursor
        mov     ax,ed_size
        mov     ed_pos,ax
        call    .check_offset
        test    eax,eax
        jz      .draw_bg_cursor_text
        call    .draw_cursor
@@:
popa
ret


;==========================================================
;=== <EFBFBD><EFBFBD>ࠡ<EFBFBD>⪠ <EFBFBD><EFBFBD><EFBFBD><EFBFBD> =======================================
;==========================================================
.mouse:
pusha
;----------------------------------------------------------
;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD>砥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ﭨ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> -----------------------
;----------------------------------------------------------
        mov     eax,37
        mov     ebx,2
        int     0x40
;----------------------------------------------------------
;--- <EFBFBD>஢<EFBFBD><EFBFBD>塞 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ﭨ<EFBFBD> ----------------------------------
;----------------------------------------------------------
        bt      eax,0
        jc      .mouse_left_button

        bt      eax,1
        jc      @f
        btr     word ed_flags,2
@@:

        popa
        ret

.mouse_left_button:
;----------------------------------------------------------
;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD>砥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>न<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> -----------------------------
;----------------------------------------------------------
        bts     word ed_flags,2
        jc      .mouse_pressed
        mov     eax,37
        ;mov     ebx,1
        xor     ebx,ebx
        inc     ebx
        int     0x40
;----------------------------------------------------------
;--- <EFBFBD>஢<EFBFBD><EFBFBD>塞, <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> edit box -------------
;----------------------------------------------------------
        mov     bx,ed_top
        cmp     ax,bx
        jl      ._blur;.mouse_end_no_focus

        add     bx,ed_height
        cmp     ax,bx
        jg      ._blur;.mouse_end_no_focus

        shr     eax,16

        mov     bx,ed_left
        cmp     ax,bx
        jl      ._blur;.mouse_end_no_focus

        add     bx,ed_width
        cmp     ax,bx
        jg      ._blur;.mouse_end_no_focus

;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
        push    eax
        call    .clear_cursor
        pop     eax
        xor     dx,dx
        sub     ax,ed_left
        add     ax,2
        mov     bx,6
        div     bx
        add     ax,ed_offset
        cmp     ax,ed_size
        jna      @f
        mov     ax,ed_size
@@:
        mov     ed_pos,ax
        call    .check_offset
        test    eax,eax
        jz      .draw_bg_cursor_text
        call    .draw_cursor

        call    .focus

.mouse_pressed:
popa
ret

;.mouse_end_no_focus:
;        call    .blur
;popa
;ret


;----------------------------------------------------------
;--- <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>⠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD> 䮪<EFBFBD><EFBFBD><EFBFBD> ---------------------------
;----------------------------------------------------------
.blur:
pusha
._blur:
        bt      word ed_flags,14
        jc      @f
        btr     word ed_flags,1
        jnc     @f
        call    .clear_cursor
        jmp     .blur_end
.focus:
pusha
        bts     word ed_flags,1
        jc      @f
        call    .draw_cursor
.blur_end:
        call    .draw_border
@@:
popa
ret

;----------------------------------------------------------
;--- <EFBFBD><EFBFBD><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD> ࠧ<EFBFBD>뢠<EFBFBD><EFBFBD><EFBFBD> 䮪<EFBFBD><EFBFBD><EFBFBD> --------------------------
;----------------------------------------------------------
;.blur:
;pusha
;._blur:
        ;btr      word ed_flags,1
        ;jnc     @f
        ;call    .draw_border
        ;call    .clear_cursor
;@@:
;popa
;ret
}
ed_figure_only=1000000000000000b
ed_always_focus=100000000000000b
ed_focus=10b
ed_struc_size=36
macro draw_edit_boxes start,end
{
        mov     edi,start
        mov     ecx,((end-start)/ed_struc_size)
@@:
        call    edit_box.draw
        add     edi,ed_struc_size
        loop    @b
}

macro mouse_edit_boxes start,end
{
        mov     edi,start
        mov     ecx,((end-start)/ed_struc_size)
@@:
        call    edit_box.mouse
        add     edi,ed_struc_size
        loop    @b
}

macro key_edit_boxes start,end
{
        mov     edi,start
        mov     ecx,((end-start)/ed_struc_size)
@@:
        call    edit_box.key
        add     edi,ed_struc_size
        loop    @b
}

struc  edit_box width,left,top,color,focus_border_color,\
       blur_border_color,text_color,max,text,flags,size
{
.width dw width
.left dw left
.top dw top
.color dd color
.focus_border_color dd focus_border_color
.blur_border_color dd blur_border_color
.text_color dd text_color
.flags dw flags+0
.max dw max
.size dw size+0
.pos dw 0
.offset dw 0
.text dd text
}

macro edit_boxes_set_sys_color start,end,color_table
{
        mov     edi,start
        mov     ecx,((end-start)/ed_struc_size)
        mov     esi,color_table
@@:
        mov     eax,[esi+36]
        mov     ebx,[esi+20]
        mov     ed_focus_border_color,eax
        shr     bh,1
        shr     bl,1
        shr     ah,1
        shr     al,1
        add     ah,bh
        add     al,bl
        ror     eax,16
        ror     ebx,16
        shr     bl,1
        shr     al,1
        add     al,bl
        ror     eax,16
        mov     ed_blur_border_color,eax
        add     edi,ed_struc_size
        loop    @b
}

macro draw_edit_box ed_ptr
{
        mov     edi,ed_ptr
        call    edit_box.draw
}

macro mouse_edit_box ed_ptr
{
        mov     edi,ed_ptr
        call    edit_box.mouse
}

macro key_edit_box ed_ptr
{
        mov     edi,ed_ptr
        call    edit_box.key
}