WebSVN – Kolibri OS – Diff – /programs/develop/tinypad/trunk/tinypad.asm

 ;-----------------------------------------------------------------------------
 ; project name:      TINYPAD
-; compiler:          flat assembler 1.64
+; compiler:          flat assembler 1.67.1
-; memory to compile: 3.0/11.5 MBytes (without/with size optimizations)
+; memory to compile: 2.0/7.0 MBytes (without/with size optimizations)
-; version:           4.0
+; version:           4.0.3
-; last update:       2006-04-13 (Apr 13, 2006)
+; last update:       2006-08-28 (Aug 28, 2006)
+; minimal kernel:    revision #138 (svn://kolibrios.org/kernel)
 ;-----------------------------------------------------------------------------
 ; originally by:     Ville Michael Turjanmaa >> villemt@aton.co.jyu.fi
 ; maintained by:     Ivan Poddubny           >> ivan-yar@bk.ru
 ;                    Mike Semenyako          >> mike.dld@gmail.com
 ;-----------------------------------------------------------------------------
 ; TODO:
-;   optimize drawing (reduce flickering);
+;   - optimize drawing (reduce flickering)
-;   optimize memory usage (allocate only needed amount, not static 3 Mbytes);
+;   - optimize memory usage (allocate only needed amount, not static 3 Mbytes)
-;   add block selection ability, undo action;
+;   - add block selection ability, undo action, goto position
-;   working with multiple files (add tabs);
+;   - working with multiple files (add tabs)
+;   - improve window drawing with small dimensions
-;   other bugfixes and speed/size optimizations
+;   - other bugfixes and speed/size optimizations
+;
 ; HISTORY:
+; 4.0.3 (mike.dld)
+;   bug-fixes:
+;     - 1-char selection if pressing  out of real line length
+;     - fault in `writepos`, added call to function 9
+;     - main menu items weren't highlighted if popup opened and cursor
+;       isn't in menu item's area
+;     - statusbar and textboxes drawing fixes (wrong colors)
+;     - perform no redraw while pressing Shift, Ctrl, Alt keys
+;     - data length from DOCPAK in string representation (fix by diamond)
+;   changes:
+;     - function 70 instead of 58 for files loading/saving
+;     - clientarea-relative drawing (less code)
+;     - every line's dword is now splitted into 2 words;
+;       low word - line block length, so max line length is 65535 now
+;       high word - various flags. for now, only 2 of 16 bits are used:
+;         if bit #0 is set, line was modified since file open
+;         if bit #1 is set, line was saved after last modification
+;       high word could also be further used for code collapsing and different
+;         line marking features (breakpoints, errors, bookmarks, etc.)
+;   new features:
+;     - line markers for modified and saved lines
+;     - status messages for various actions
 ; 4.0.2 (mike.dld)
 ;   bug-fixes:
 ;     - program terminates if started with parameters (fine for DOCPAK)
 ; 4.0.1 (mike.dld)
 ;   bug-fixes:
 ;     - unable to run program after exiting from main menu (Alt+X)
 ;   new features:
 ;     - integration with DOCPAK
 ; 4.0 (mike.dld)
 ;   bug-fixes:
 ;     - main menu popups' "on show" was called only for first shown popup
 ;     - clear selection on left/right arrow keys
 ;   new features:
 ;     - "replace" dialog (w/o "skip", "replace all")
 ;     - line numbers display
 ;     - options (except "appearance" and "smart tabulation")
 ;     - options saving (colors, window position, "Options" popup triggers)
 ; 4.0 beta 2 (mike.dld)
 ;   bug-fixes:
 ;     - unable to start if /rd/1/example.asm is missing (from Halyavin)
 ;     - clicking on menu items draws main window in popup (from Rohan)
 ;     - passed parameters aren't taken into account (from Mario79)
 ;     - background isn't erased if text lines < screen lines after
 ;       selection deletion (from Rohan)
 ; 4.0 beta 1 (mike.dld)
 ;   menu bar and popup menu;
 ;     removed buttons from the top and input fields from the bottom since
 ;     now they're accesible through main/popup menu;
 ;   improved keyboard handling (using 66th function);
 ;     support for almost all FASMW keyboard shourtcuts;
 ;   added text selection ability, standard selection operations
 ;     (copy,cut,paste);
 ;   new integrated dialogs (open, save, find)
 ;   fix to collapse SPACEs into TABs only for *.asm and *.inc files
 ; 3.78a (mike.dld)
 ;   fixed termination while typing in x positions higher than (line_length+10);
 ;   improved drawing on small heights
 ;     don't draw window while its height = 0 (Kolibri "minimize" support)
 ; 3.78 (mike.dld)
 ;   now lines may be of ANY length;
 ;     optimized memory usage (less memory for internal file representation)
 ;       after loading file, it's internal size equals to its real size
 ;       plus 14 bytes for each line (4 bytes for line length
 ;         and 10 spaced to the end - to reduce data relocations count);
 ;     completely rewritten keyboard handling;
 ;     added horizontal scrollbar;
 ;   all line feed formats are supported: WIN(CRLF),*NIX(LF),MAC(CR);
 ;   etc.
 ; 3.77 (mike.dld)
 ;   changed save_string to collapse SPACEs into TABs;
 ;   rewrote drawfile from scratch (speed++)
-;     through some drawing improvements still needed
+;     through some drawing improvements  needed
 ;     (some checkups to reduce flickering);
 ;   writepos (size--);
 ;   fixed drawing window while height < 100px, and for non-asm files;
 ;   several small fixes; speed/size optimizations
 ; 3.76 (mike.dld)
 ;   changed loadfile/loadhdfile to expand TABs into SPACEs;
 ;   changed TAB,ENTER,DELETE,BSPACE keys behaviour (rewritten from scratch);
 ;   vertical scrollbar;
 ;   extra window resizing capabilities (added a couple of constants);
 ;   completely new text cursor management & moving text cursor with mouse;
 ;   improved search function, moving cursor to beginning of text found;
 ;   adjustable max line width (change LINE_WIDTH & recompile) // (obsolet)
 ; 3.75a
 ;   fixed converting char to upper case in read_string
 ; 3.75
 ;   rewrote save_file from scratch; bugfix in loadfile;
 ; 3.74
 ;   optimisation
 ; 3.73
 ;   completly new load_file function
 ; 3.72
 ;   speed++
 ; 3.71
 ;   error beep
 ; 3.6,3.7:
 ;   many bugs fixed
 ;   simple toolbar
 ;   compile, run applications from TINYPAD, all fasm output is in debug board
 ;   TAB button
 ;   auto-indent
 ;   Ctrl+L - insert comment string
 ;-----------------------------------------------------------------------------
 ; Memory 0x300000:
 ;   stack for popup  0x00dff0 -
 ;   stack for help   0x00eff0 -
 ;   stack            0x00fff0 -
 ;   load position    0x010000 +
 ;   edit area        0x080000 +
 ;   copy/paste area  0x2f0000 +
 ;-----------------------------------------------------------------------------
 include 'lang.inc'
+include 'macros.inc' ; useful stuff
-include 'macros.inc' ; useful stuff
+;include 'proc32.inc'
 include 'tinypad.inc'
-purge mov,add,sub            ;  SPEED
+;purge mov,add,sub            ;  SPEED
 header '01',1,@CODE,TINYPAD_END,AREA_ENDMEM,MAIN_STACK,@PARAMS,self_path
 ;include 'debug.inc'
 ASEPC     = '-'           ; separator character (char)
 ATOPH     = POP_IHEIGHT+2 ; menu bar height (pixels)
 ;OLEFT    = 50+1          ; left offset (pixels)        !!! don't change !!!
 SCRLW     = 16            ; scrollbar widht/height (pixels)
 ATABW     = 8             ; tab width (chars)
 LINEH     = 10            ; line height (pixels)
 PATHL     = 255           ; maximum path length (chars) !!! don't change !!!
 AMINS     = 8             ; minimal scroll thumb size (pixels)
+LCHGW     = 2             ; changed/saved marker width
 STATH     = 14            ; status bar height
 MEV_LDOWN = 1
 MEV_LUP   = 2
 MEV_RDOWN = 3
 MEV_RUP   = 4
 MEV_MOVE  = 5
 ;-----------------------------------------------------------------------------
 section @OPTIONS ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 ;-----------------------------------------------------------------------------
 label color_tbl dword
   RGB(  0,  0,  0) ; RGB(  0,  0,  0) ; RGB(  0,  0,  0) ; text
   RGB(  0,144,  0) ; RGB(  0,144,  0) ; RGB(  0,160,  0) ; numbers
   RGB(176,  0,  0) ; RGB(160,  0,  0) ; RGB(  0,128,255) ; strings
   RGB(128,128,128) ; RGB(144,144,144) ; RGB(160,160,160) ; comments
   RGB( 48, 48,240) ; RGB( 48, 48,240) ; RGB(255,  0,  0) ; symbols
   RGB(255,255,255) ; RGB(224,224,224) ; RGB(255,255,255) ; background
   RGB(255,255,255) ; RGB(255,255,255) ; RGB(255,255,255) ; selection text
   RGB( 10, 36,106) ; RGB(  0,  0,128) ; RGB(  0, 64,128) ; selection background
+  RGB(  0,255,  0) ; modified line marker
+  RGB(255,255,  0) ; saved line marker
 ins_mode db 1
 options  db OPTS_AUTOINDENT+OPTS_OPTIMSAVE+OPTS_SMARTTAB
 mainwnd_pos:
   .x dd 100
   .y dd 75
   .w dd 6*80+6+SCRLW+5
   .h dd 402
 ;-----------------------------------------------------------------------------
 section @CODE ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 ;-----------------------------------------------------------------------------
 ;       fninit
+;        stdcall ini.get_int,finfo_ini,ini_sec_window,ini_window_left,50
+;        mov     [mainwnd_pos.x],eax
+;        stdcall ini.get_int,finfo_ini,ini_sec_window,ini_window_top,50
+;        mov     [mainwnd_pos.y],eax
+;        stdcall ini.get_int,finfo_ini,ini_sec_window,ini_window_right,350
+;        sub     eax,[mainwnd_pos.x]
+;        mov     [mainwnd_pos.w],eax
+;        stdcall ini.get_int,finfo_ini,ini_sec_window,ini_window_bottom,450
+;        sub     eax,[mainwnd_pos.y]
+;        mov     [mainwnd_pos.h],eax
         cld
         mov     edi,@UDATA
         mov     ecx,@PARAMS-@UDATA
         mov     al,0
         rep     stosb
+	inc	[do_not_draw]
         mov     [left_ofs],40+1
         mov     [f_info+4],0
         mov     [f_info+12],AREA_TEMP
         mov     [f_info+16],AREA_EDIT-AREA_TEMP
-;        mov     esi,s_example
-;        mov     edi,s_fname
-;        mov     ecx,s_example.size
-;        mov     [s_fname.size],ecx
 ;        rep     movsb
         mov     esi,s_example
         mov     edi,tb_opensave.text
         mov     ecx,s_example.size
         mov     [tb_opensave.length],cl
         rep     movsb
         mov     esi,s_still
         mov     edi,s_search
         mov     ecx,s_still.size
         mov     [s_search.size],ecx
         rep     movsb
         cmp     byte[@PARAMS],0
         jz      no_params
 ;// Willow's code to support DOCPAK [
         cmp     byte[@PARAMS],'*'
         jne     .noipc
-; convert size from decimal representation to dword
+;// diamond [ (convert size from decimal representation to dword)
+;--     mov     edx,dword[@PARAMS+1]
-        mov     esi, @PARAMS+1
+        mov     esi,@PARAMS+1
-        xor     edx, edx
+        xor     edx,edx
-        xor     eax, eax
+        xor     eax,eax
-@@:
-        lodsb
+    @@: lodsb
-        test    al, al
+        test    al,al
         jz      @f
-        lea     edx, [edx*4+edx]
+        lea     edx,[edx*4+edx]
-        lea     edx, [edx*2+eax]
+        lea     edx,[edx*2+eax-'0']
         jmp     @b
-@@:
+    @@:
+;// diamond ]
         add     edx,20
         mcall   60,1,AREA_TEMP-16 ; 0x10000-16
         mov     dword[AREA_TEMP-16+4],8 ; [0x10000-16+4],8
         mcall   40,1000000b
         mcall   23,200
         cmp     eax,7
         jne     key.alt_x.close  ; ýòî íà mcall -1 ìåòêà
         mov     esi,AREA_TEMP-16 ; 0x10000-16
         mov     byte[esi],1
         mov     eax,[esi+12]
         inc     eax
         call    load_file.file_found
         jmp     @f
-;       call    file_found  ; çàãðóçêà ôàéëà
-;       jmp     do_load_file.restorecursor ; îòîáðàæåíèå
   .noipc:
 ;// Willow's code to support DOCPAK ]
     ; parameters are at @PARAMS
         mov     esi,@PARAMS
         mov     edi,tb_opensave.text
         mov     ecx,PATHL
         rep     movsb
         mov     edi,tb_opensave.text
         mov     ecx,PATHL
         xor     al,al
         repne   scasb
         jne     key.alt_x.close
         lea     eax,[edi-tb_opensave.text-1]
         mov     [tb_opensave.length],al
   no_params:
         call    btn.load_file;do_load_file
         jnc     @f
         call    new_file
     @@:
-        call    drawwindow
+	dec	[do_not_draw]
         mcall   66,1,1
         mcall   40,00100111b
+red:
+	call    drawwindow
+	call	check_inv_all.skip_check
 ;-----------------------------------------------------------------------------
 still:
        call    writepos ; write current position & number of strings
   .skip_write:
         mcall   10;23,50; wait here until event
         cmp     [main_closed],0
         jne     key.alt_x
         dec     eax     ; redraw ?
         jz      red
         dec     eax     ; key ?
         jz      key
         dec     eax     ; button ?
         jz      button
         sub     eax,3   ; mouse ?
         jz      mouse
         jmp     still.skip_write
 ;-----------------------------------------------------------------------------
-func red ;///// window redraw ////////////////////////////////////////////////
-;-----------------------------------------------------------------------------
-        call    drawwindow
-        call    check_inv_all.skip_check
-        jmp     still
-endf
-;-----------------------------------------------------------------------------
 func start_fasm ;/////////////////////////////////////////////////////////////
 ;-----------------------------------------------------------------------------
 ; BL = run after compile
 ;-----------------------------------------------------------------------------
         cmp     [asm_mode],0
         jne     @f
         ret
     @@: mov     esi,f_info.path ; s_fname
         mov     edi,fasm_parameters
         cmp     byte[esi],'/'
         je      .yes_systree
         mov     ecx,[f_info.length] ; [s_fname.size]
         rep     movsb
         mov     al,','
         stosb
         mov     ecx,[f_info.length] ; [s_fname.size]
         add     ecx,-4
         mov     esi,f_info.path ; s_fname
         rep     movsb
         mov     al,','
         stosb
         mov     dword[edi],'/RD/'
         mov     word[edi+4],'1/'
         add     edi,6
         mov     al,0
         stosb
         jmp     .run
  .yes_systree:
         mov     eax,[f_info.length]
         add     esi,eax ; [s_fname.size]
         dec     esi
         xor     ecx,ecx
         mov     al,'/'
     @@: cmp     [esi],al
         je      @f
         dec     esi
         inc     ecx
         jmp     @b
     @@: inc     esi
         push    esi esi ecx
         rep     movsb
         mov     al,','
         stosb
         pop     ecx esi
         add     ecx,-4
         rep     movsb
         mov     al,','
         stosb
         pop     ecx
         sub     ecx,f_info.path ; s_fname
         mov     esi,f_info.path ; s_fname
         rep     movsb
         mov     al,0
         stosb
  .run:
         cmp     bl,0 ; run outfile ?
         je      @f
         mov     dword[edi-1],',run'
         mov     byte[edi+3],0
+    @@:
-    @@: mcall   19,fasm_filename,fasm_parameters
+        mov     ebx, fasm_start
+start_ret:
+        mov     eax, 70
+        int     0x40
         ret
 endf
 ;-----------------------------------------------------------------------------
 func open_debug_board ;///////////////////////////////////////////////////////
 ;-----------------------------------------------------------------------------
-        mcall   19,debug_filename,0
+        mov     ebx, board_start
-        ret
+        jmp     start_ret
 endf
 ;-----------------------------------------------------------------------------
 func open_sysfuncs_txt ;//////////////////////////////////////////////////////
 ;-----------------------------------------------------------------------------
-        mcall   19,docpak_filename,sysfuncs_param
+        mov     ebx, docpak_start
+        call    start_ret
         cmp     eax,0xfffffff0
         jb      @f
+        mov     ebx, tinypad_start
-        mcall   19,tinypad_filename,sysfuncs_filename
+        mov     dword [ebx+8], sysfuncs_filename
+        call    start_ret
     @@: ret
 endf
 ;-----------------------------------------------------------------------------
-func layout  ;///// change keyboard layout ///////////////////////////////////
+;func layout  ;///// change keyboard layout ///////////////////////////////////
 ;-----------------------------------------------------------------------------
-        mcall   19,setup,param_setup
+;        mcall   19,setup,param_setup
-        mcall   5,eax
+;        mcall   5,eax
-;       call    activate_me
+;;       call    activate_me
-;       ret
+;;       ret
+;;endf
+;;func activate_me
+;        mcall   9,p_info,-1
+;        inc     eax
+;        inc     eax
+;        mov     ecx,eax
+;        mov     edi,[p_info.PID]
+;        mov     ebx,p_info
+;    @@: dec     ecx
+;        jz      @f    ; counter=0 => not found? => return
+;        mcall   9
+;        cmp     edi,[p_info.PID]
+;        jne     @b
+;        mcall   18,3
+;        mcall   5,eax
+;    @@: ret
 ;endf
-;func activate_me
-        mcall   9,p_info,-1
-        inc     eax
-        inc     eax
-        mov     ecx,eax
-        mov     edi,[p_info.PID]
-        mov     ebx,p_info
-    @@: dec     ecx
-        jz      @f    ; counter=0 => not found? => return
-        mcall   9
-        cmp     edi,[p_info.PID]
-        jne     @b
-        mcall   18,3
-        mcall   5,eax
-    @@: ret
-endf
 func set_opt
         test    [options],al
         je      @f
         not     al
         and     [options],al
         ret
     @@: or      [options],al
         ret
 endf
 func set_line_numbers
         mov     al,OPTS_LINENUMS
         call    set_opt
         ret
 endf
 func set_optimal_fill
         mov     al,OPTS_OPTIMSAVE
         call    set_opt
         ret
 endf
 func set_auto_indents
         mov     al,OPTS_AUTOINDENT
         call    set_opt
         ret
 endf
 func set_auto_braces
         mov     al,OPTS_AUTOBRACES
         call    set_opt
         ret
 endf
 func set_secure_sel
         mov     al,OPTS_SECURESEL
         call    set_opt
         ret
 endf
 ;-----------------------------------------------------------------------------
 include 'tp-draw.asm'
 include 'tp-key.asm'
-;include 'tp-key2.asm'
 include 'tp-butto.asm'
 include 'tp-mouse.asm'
 include 'tp-files.asm'
 include 'tp-commo.asm'
 include 'tp-dialo.asm'
-;include 'tp-find.asm'
 include 'tp-popup.asm'
 include 'tp-tbox.asm'
+;include 'lib-ini.asm'
 ;-----------------------------------------------------------------------------
 section @DATA ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 ;-----------------------------------------------------------------------------
 ;addr       dd s_fname  ; address of input string
 ;temp       dd 0xABCD   ; used in read_string
 vscrl_capt dd -1
 hscrl_capt dd -1
 body_capt  dd -1
 key0 db \
 x00,0x00,0x02,0x03,0x04,0x05,0x06,0x07,\
 x08,0x09,0x0A,0x0B,0x0C,0x0D,0x00,0x00,\
 x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,\
 x18,0x19,0x1A,0x1B,0x00,0x00,0x1E,0x1F,\
 x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,\
 x28,0x29,0x00,0x2B,0x2C,0x2D,0x2E,0x2F,\
 x30,0x31,0x32,0x33,0x34,0x35,0x00,0x00,\
 x00,0x39,0x00,0x00,0x00,0x00,0x00,0x00
   times 12*16 db 0x00
 accel_table dd                      \
 x0000000E,key.bkspace           ,\ ; BackSpace
 x0000000F,key.tab               ,\ ; Tab
 x0000001C,key.return            ,\ ; Return
 x0000003D,key.f3                ,\ ; F3
 x00000043,key.f9                ,\ ; F9
 x00000147,key.home              ,\ ; Home
 x00000148,key.up                ,\ ; Up
 x00000149,key.pgup              ,\ ; PageUp
 x0000014B,key.left              ,\ ; Left
 x0000014D,key.right             ,\ ; Right
 x0000014F,key.end               ,\ ; End
 x00000150,key.down              ,\ ; Down
 x00000151,key.pgdn              ,\ ; PageDown
 x00000152,key.ins               ,\ ; Insert
 x00000153,key.del               ,\ ; Delete
 x00010147,key.shift_home        ,\ ; Shift+Home
 x00010148,key.shift_up          ,\ ; Shift+Up
 x00010149,key.shift_pgup        ,\ ; Shift+PageUp
 x0001014B,key.shift_left        ,\ ; Shift+Left
 x0001014D,key.shift_right       ,\ ; Shift+Right
 x0001014F,key.shift_end         ,\ ; Shift+End
 x00010150,key.shift_down        ,\ ; Shift+Down
 x00010151,key.shift_pgdn        ,\ ; Shift+PageDown
 x00010153,key.del               ,\ ; Shift+Delete
 x00020015,key.ctrl_y            ,\ ; Ctrl+Y
 x00020018,key.ctrl_o            ,\ ; Ctrl+O
 x0002001E,key.ctrl_a            ,\ ; Ctrl+A
 x0002001F,key.ctrl_s            ,\ ; Ctrl+S
 x00020020,key.ctrl_d            ,\ ; Ctrl+D
 x00020021,key.ctrl_f            ,\ ; Ctrl+F
 x00020022,key.ctrl_g            ,\ ; Ctrl+G
 x00020023,key.ctrl_h            ,\ ; Ctrl+H
 \;0x00020026,key.ctrl_l            ,\ ; Ctrl+L
 x0002002D,key.ctrl_x            ,\ ; Ctrl+X
 x0002002E,key.ctrl_c            ,\ ; Ctrl+C
 x0002002F,key.ctrl_v            ,\ ; Ctrl+V
 x00020031,key.ctrl_n            ,\ ; Ctrl+N
 x00020043,key.ctrl_f9           ,\ ; Ctrl+F9
 x00020147,key.ctrl_home         ,\ ; Ctrl+Home
 \;0x00020148,key.ctrl_up           ,\ ; Ctrl+Up
 x00020149,key.ctrl_pgup         ,\ ; Ctrl+PageUp
 x0002014B,key.ctrl_left         ,\ ; Ctrl+Left
 x0002014D,key.ctrl_right        ,\ ; Ctrl+Right
 x0002014F,key.ctrl_end          ,\ ; Ctrl+End
 \;0x00020150,key.ctrl_down         ,\ ; Ctrl+Down
 x00020151,key.ctrl_pgdn         ,\ ; Ctrl+PageDown
 x00020153,key.del               ,\ ; Ctrl+Del
 x0003001F,key.shift_ctrl_s      ,\ ; Shift+Ctrl+S
 x00030147,key.shift_ctrl_home   ,\ ; Shift+Ctrl+Home
 \;0x00030148,key.shift_ctrl_up     ,\ ; Shift+Ctrl+Up
 x00030149,key.shift_ctrl_pgup   ,\ ; Shift+Ctrl+PageUp
 x0003014B,key.shift_ctrl_left   ,\ ; Shift+Ctrl+Left
 x0003014D,key.shift_ctrl_right  ,\ ; Shift+Ctrl+Right
 x0003014F,key.shift_ctrl_end    ,\ ; Shift+Ctrl+End
 \;0x00030150,key.shift_ctrl_down   ,\ ; Shift+Ctrl+Down
 x00030151,key.shift_ctrl_pgdn   ,\ ; Shift+Ctrl+PageDown
 x0004002D,key.alt_x             ,\ ; Alt+X
 accel_table_textbox dd              \
 \;0x00000001,key.tb.escape         ,\ ; Escape
 x0000000E,key.tb.bkspace        ,\ ; BackSpace
 \;0x0000000F,key.tb.tab            ,\ ; Tab
 \;0x0000001C,key.tb.return         ,\ ; Return
 x00000147,key.tb.home           ,\ ; Home
 x0000014B,key.tb.left           ,\ ; Left
 x0000014D,key.tb.right          ,\ ; Right
 x0000014F,key.tb.end            ,\ ; End
 x00000153,key.tb.del            ,\ ; Delete
 x00010147,key.tb.shift_home     ,\ ; Shift+Home
 x0001014B,key.tb.shift_left     ,\ ; Shift+Left
 x0001014D,key.tb.shift_right    ,\ ; Shift+Right
 x0001014F,key.tb.shift_end      ,\ ; Shift+End
 x00010153,key.tb.del            ,\ ; Shift+Del
 accel_table2 dd            \
 ,btn.close_main_window ,\
 \;10000,btn.compile       ,\
 \;10001,btn.compile_run   ,\
 \;10002,btn.debug_board   ,\
 \;10003,btn.sysfuncs_txt  ,\
   'UP',btn.scroll_up      ,\
   'DN',btn.scroll_down    ,\
   'LT',btn.scroll_left    ,\
   'RT',btn.scroll_right   ,\
 \;5,key.ctrl_o            ,\
 accel_table2_botdlg dd     \
 ,btn.close_main_window ,\
 ,btn.bot.cancel    ,\
 ,btn.bot.opensave  ,\
 ,btn.bot.find      ,\
 add_table:
 ; times $61 db -$00
   times $1A db -$20
   times $25 db -$00
   times $10 db -$20
   times $30 db -$00
   times $10 db -$50
   times $04 db -$00,-$01
   times $08 db -$00
 ;error_beep      db 0xA0,0x30,0
+s_status dd 0
 sz s_example,'EXAMPLE.ASM'
 sz s_still  ,'still'
 ;sz param_setup,'LANG',0 ; parameter for SETUP
+fasm_start:
+        dd      7
+        dd      0
+        dd      fasm_parameters
+        dd      0
+        dd      0
+        db      '/RD/1/FASM',0
+board_start:
+        dd      7
+        dd      0
+        dd      0
+        dd      0
-sz fasm_filename   ,'FASM       '
+        dd      0
+        db      '/RD/1/BOARD',0
+tinypad_start:
+        dd      7
+        dd      0
+        dd      ?
+        dd      0
-sz debug_filename  ,'BOARD      '
+        dd      0
+        db      '/RD/1/TINYPAD',0
+docpak_start:
+        dd      7
+        dd      0
+        dd      sysfuncs_param
+        dd      0
-sz tinypad_filename,'TINYPAD    '
+        dd      0
+        db      '/RD/1/DOCPAK',0
 sz docpak_filename ,'DOCPAK     '
 ;sz setup           ,'SETUP      ' ; to change keyboard layout
 sz sysfuncs_param,'g',0
 lsz sysfuncs_filename,\
   ru,<'SYSFUNCR.TXT',0>,\
   en,<'SYSFUNCS.TXT',0>
-sz htext,'TINYPAD'
+sz htext,'TINYPAD 4.0.3'
 lszc help_text,b,\
   ru,':',\
   ru,' ',\
   ru,'  CTRL+F1 : â® ®ª®',\
   ru,'  CTRL+S  : ¥à¢ ï áâà®ª  ¤«ï ª®¯¨à®¢ ¨ï',\
   ru,'  CTRL+E  : ®á«¥¤ïï áâà®ª  ¤«ï ª®¯¨à®¢ ¨ï',\
   ru,'  CTRL+P  : áâ ¢¨âì ¢ë¡à ®¥   â¥ªãéãî ¯®§¨æ¨î',\
   ru,'  CTRL+D  : ¤ «¨âì áâà®ªã',\
   ru,'  CTRL+L  : áâ ¢¨âì áâà®ªã-à §¤¥«¨â¥«ì',\
   ru,'  CTRL+[  : ¥à¥©â¨ ¢  ç «® ä ©« ',\
   ru,'  CTRL+]  : ¥à¥©â¨ ¢ ª®¥æ ä ©« ',\
   ru,'  CTRL+F2 :  £àã§¨âì ä ©«',\
   ru,'  CTRL+F3 : ®¨áª',\
   ru,'  CTRL+F4 : ®åà ¨âì ä ©«',\
   ru,'  CTRL+F5 : ¢¥áâ¨ ¨¬ï ä ©« ',\
   ru,'  CTRL+F6 : ¢¥áâ¨ áâà®ªã ¤«ï ¯®¨áª ',\
   ru,'  CTRL+F8 : ¬¥¨âì à áª« ¤ªã ª« ¢¨ âãàë',\
+\
   en,'COMMANDS:',\
   en,' ',\
   en,'  CTRL+F1 : SHOW THIS WINDOW',\
   en,'  CTRL+S  : SELECT FIRST STRING TO COPY',\
   en,'  CTRL+E  : SELECT LAST STRING TO COPY',\
   en,'  CTRL+P  : PASTE SELECTED TO CURRENT POSITION',\
   en,'  CTRL+D  : DELETE CURRENT LINE',\
   en,'  CTRL+L  : INSERT SEPARATOR LINE',\
   en,'  CTRL+[  : GO TO THE BEGINNING OF FILE',\
   en,'  CTRL+]  : GO TO THE END OF FILE',\
   en,'  CTRL+F2 : LOAD FILE',\
   en,'  CTRL+F3 : SEARCH',\
   en,'  CTRL+F4 : SAVE FILE',\
   en,'  CTRL+F5 : ENTER FILENAME',\
   en,'  CTRL+F6 : ENTER SEARCH STRING',\
   en,'  CTRL+F8 : CHANGE KEYBOARD LAYOUT'
 db 0
 menubar_res main_menu,\
   ru,' ©«'  ,popup_file   ,onshow.file   ,\
   ru,'à ¢ª ',popup_edit   ,onshow.edit   ,\
   ru,'®¨áª' ,popup_search ,onshow.search ,\
   ru,' ¯ãáª',popup_run    ,onshow.run    ,\
   ru,'¯æ¨¨' ,popup_options,onshow.options,\
+\
   en,'File'   ,popup_file   ,onshow.file  ,\
   en,'Edit'   ,popup_edit   ,onshow.edit  ,\
   en,'Search' ,popup_search ,onshow.search,\
   en,'Run'    ,popup_run    ,onshow.run   ,\
   en,'Options',popup_options,onshow.options
 popup_res popup_file,\
-  ru,'®¢ë©'           ,'Ctrl+N',key.ctrl_n      ,\
+  ru,'®¢ë©'           ,'Ctrl+N'      ,key.ctrl_n      ,\
-  ru,'âªàëâì...'      ,'Ctrl+O',key.ctrl_o      ,\
+  ru,'âªàëâì...'      ,'Ctrl+O'      ,key.ctrl_o      ,\
-  ru,'®åà ¨âì'       ,'Ctrl+S',key.ctrl_s      ,\
+  ru,'®åà ¨âì'       ,'Ctrl+S'      ,key.ctrl_s      ,\
-  ru,'®åà ¨âì ª ª...',''      ,key.shift_ctrl_s,\
+  ru,'®åà ¨âì ª ª...','Ctrl+Shift+S',key.shift_ctrl_s,\
-  ru,'-'               ,''      ,0               ,\
+  ru,'-'               ,''            ,0               ,\
-  ru,'ëå®¤'           ,'Alt+X' ,key.alt_x       ,\
+  ru,'ëå®¤'           ,'Alt+X'       ,key.alt_x       ,\
+\
-  en,'New'       ,'Ctrl+N',key.ctrl_n      ,\
+  en,'New'       ,'Ctrl+N'      ,key.ctrl_n      ,\
-  en,'Open...'   ,'Ctrl+O',key.ctrl_o      ,\
+  en,'Open...'   ,'Ctrl+O'      ,key.ctrl_o      ,\
-  en,'Save'      ,'Ctrl+S',key.ctrl_s      ,\
+  en,'Save'      ,'Ctrl+S'      ,key.ctrl_s      ,\
-  en,'Save as...',''      ,key.shift_ctrl_s,\
+  en,'Save as...','Ctrl+Shift+S',key.shift_ctrl_s,\
-  en,'-'         ,''      ,0               ,\
+  en,'-'         ,''            ,0               ,\
-  en,'Exit'      ,'Alt+X' ,key.alt_x
+  en,'Exit'      ,'Alt+X'       ,key.alt_x
 popup_res popup_edit,\
   ru,'ëà¥§ âì'    ,'Ctrl+X',key.ctrl_x,\
   ru,'®¯¨à®¢ âì'  ,'Ctrl+C',key.ctrl_c,\
   ru,'áâ ¢¨âì'    ,'Ctrl+V',key.ctrl_v,\
   ru,'¤ «¨âì'     ,''      ,key.del   ,\
   ru,'-'           ,''      ,0         ,\
   ru,'ë¤¥«¨âì ¢áñ','Ctrl+A',key.ctrl_a,\
+\;  ru,'-'           ,''      ,0         ,\
+\;  ru,'¥àâ¨ª «ì®¥ ¢ë¤¥«¥¨¥','Alt+Ins',0         ,\
+\
   en,'Cut'       ,'Ctrl+X',key.ctrl_x,\
   en,'Copy'      ,'Ctrl+C',key.ctrl_c,\
   en,'Paste'     ,'Ctrl+V',key.ctrl_v,\
   en,'Delete'    ,''      ,key.del   ,\
   en,'-'         ,''      ,0         ,\
-  en,'Select all','Ctrl+A',key.ctrl_a
+  en,'Select all','Ctrl+A',key.ctrl_a;,\
+;  en,'-'         ,''      ,0         ,\
+;  en,'Vertical selection','Alt+Ins',0
 popup_res popup_search,\
   ru,'¥à¥©â¨...' ,'Ctrl+G',key.ctrl_g,\
   ru,'-'          ,''      ,0         ,\
   ru,' ©â¨...'   ,'Ctrl+F',key.ctrl_f,\
   ru,' ©â¨ ¤ «¥¥','F3'    ,key.f3    ,\
   ru,' ¬¥¨âì...','Ctrl+H',key.ctrl_h,\
+\
   en,'Position...','Ctrl+G',key.ctrl_g,\
   en,'-'          ,''      ,0         ,\
   en,'Find...'    ,'Ctrl+F',key.ctrl_f,\
   en,'Find next'  ,'F3'    ,key.f3    ,\
   en,'Replace...' ,'Ctrl+H',key.ctrl_h
 popup_res popup_run,\
   ru,' ¯ãáâ¨âì'        ,'F9'     ,key.f9           ,\
   ru,'®¬¯¨«¨à®¢ âì'    ,'Ctrl+F9',key.ctrl_f9      ,\
   ru,'-'                ,''       ,0                ,\
   ru,'®áª  ®â« ¤ª¨'    ,''       ,open_debug_board ,\
   ru,'¨áâ¥¬ë¥ äãªæ¨¨',''       ,open_sysfuncs_txt,\
+\
   en,'Run'              ,'F9'     ,key.f9           ,\
   en,'Compile'          ,'Ctrl+F9',key.ctrl_f9      ,\
   en,'-'                ,''       ,0                ,\
   en,'Debug board'      ,''       ,open_debug_board ,\
   en,'System functions' ,''       ,open_sysfuncs_txt
 popup_res popup_options,\
   ru,'¥è¨© ¢¨¤...'        ,'',0,\
   ru,'-'                     ,'',0,\
   ru,'¥§®¯ á®¥ ¢ë¤¥«¥¨¥'  ,'',set_secure_sel,\
   ru,'¢â®¬ â¨ç¥áª¨¥ áª®¡ª¨' ,'',set_auto_braces,\
   ru,'¢â®¬ â¨ç¥áª¨© ®âáâã¯' ,'',set_auto_indents,\
   ru,'¬ ï â ¡ã«ïæ¨ï'       ,'',0,\
   ru,'¯â¨¬ «ì®¥ á®åà ¥¨¥','',set_optimal_fill,\
   ru,'-'                     ,'',0,\
   ru,'®¬¥à  áâà®ª'          ,'',set_line_numbers,\
+\
   en,'Appearance...'         ,'',0,\
   en,'-'                     ,'',0,\
   en,'Secure selection'      ,'',set_secure_sel,\
   en,'Automatic brackets'    ,'',set_auto_braces,\
   en,'Automatic indents'     ,'',set_auto_indents,\
   en,'Smart tabulation'      ,'',0,\
   en,'Optimal fill on saving','',set_optimal_fill,\
   en,'-'                     ,'',0,\
   en,'Line numbers'          ,'',set_line_numbers
 lsz s_modified,\
   ru,'§¬¥¥®',\
   en,'Modified'
 lsz s_2filename,\
   ru,'¬ï ä ©« :',\
   en,'Filename:'
 lsz s_2open,\
   ru,'âªàëâì',\
   en,'Open'
 lsz s_2save,\
   ru,'®åà ¨âì',\
   en,'Save'
 lsz s_2find,\
   ru,' ©â¨',\
   en,'Find'
 db ':'
 lsz s_2replace,\
   ru,' ¬¥¨âì',\
   en,'Replace'
 db ':'
 lsz s_2cancel,\
   ru,'â¬¥ ',\
   en,'Cancel'
+lsz s_enter_filename,\
+  ru,<'¢¥¤¨â¥ ¨¬ï ä ©« ',0>,\
+  en,<'Enter filename',0>
+lsz s_enter_text_to_find,\
+  ru,<'¢¥¤¨â¥ â¥ªáâ ¤«ï ¯®¨áª ',0>,\
+  en,<'Enter text to find',0>
+lsz s_enter_text_to_replace,\
+  ru,<'¢¥¤¨â¥ â¥ªáâ ¤«ï § ¬¥ë',0>,\
+  en,<'Enter text to replace',0>
+lsz s_text_not_found,\
+  ru,<'®áâ¨£ãâ ª®¥æ ä ©« , â¥ªáâ ¥  ©¤¥',0>,\
+  en,<'Reached end of file, text not found',0>
+lszc s_fs_error,b,\
+  ru,<'¯¥à æ¨ï § ¢¥àè¥  ãá¯¥è® (0)',0>,\
+  ru,<'',0>,\
+  ru,<'ãªæ¨ï ¥ ¯®¤¤¥à¦¨¢ ¥âáï ¤«ï ¤ ®© ä ©«®¢®© á¨áâ¥¬ë (2)',0>,\
+  ru,<'¥¨§¢¥áâ ï ä ©«®¢ ï á¨áâ¥¬  (3)',0>,\
+  ru,<'',0>,\
+  ru,<'¥¢®§¬®¦® ®âªàëâì ä ©« (5)',0>,\
+  ru,<'¯¥à æ¨ï § ¢¥àè¥  ãá¯¥è® (6)',0>,\
+  ru,<'¤à¥á  å®¤¨âáï §  £à ¨æ ¬¨ ¯ ¬ïâ¨ ¯à®£à ¬¬ë (7)',0>,\
+  ru,<'  ¤¨áª¥ ¥â á¢®¡®¤®£® ¬¥áâ  (8)',0>,\
+  ru,<' ¡«¨æ  FAT ã¨çâ®¦¥  (9)',0>,\
+  ru,<'®áâã¯ § ¯à¥éñ (10)',0>,\
+  ru,<'è¨¡ª  ãáâà®©áâ¢  (11)',0>,\
+\
+  en,<'Operation executed successfully (0)',0>,\
+  en,<'',0>,\
+  en,<'Function is not supported for the given filesystem (2)',0>,\
+  en,<'Unknown filesystem (3)',0>,\
+  en,<'',0>,\
+  en,<'Unable to open file (5)',0>,\
+  en,<'Operation executed successfully (6)',0>,\
+  en,<'Pointer lies outside of application memory (7)',0>,\
+  en,<'Disk is full (8)',0>,\
+  en,<'FAT table is destroyed (9)',0>,\
+  en,<'Access denied (10)',0>,\
+  en,<'Device error (11)',0>
 sz symbols_ex,';?.%"',"'"
 sz symbols   ,'#&*\:/<>|{}()[]=+-, '
+ini_sec_window    db 'Window',0
+ini_window_top    db 'Top',0
+ini_window_left   db 'Left',0
+ini_window_right  db 'Right',0
+ini_window_bottom db 'Bottom',0
+finfo_ini dd ?,?,?,AREA_TEMP,AREA_EDIT-AREA_TEMP
+          db '/rd/1/tinypad.ini',0
 TINYPAD_END:     ; end of file
 self_path rb PATHL
 ;-----------------------------------------------------------------------------
 section @UDATA ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 ;-----------------------------------------------------------------------------
+f_info70 rd 7
 f_info.length dd ?
 f_info dd ?,?,?,?,?;?,0,?,AREA_TEMP,AREA_EDIT-AREA_TEMP
 f_info.path:
     times PATHL+1 db ?
 pos.x         dd ?    ; global X position (cursor)
 pos.y         dd ?    ; global Y position (cursor)
 sel.x         dd ?    ; global X position (selection start)
 sel.y         dd ?    ; global Y position (selection start)
 lines         dd ?    ; number of lines in file
 lines.scr     dd ?    ; number of lines on the screen
 columns       dd ?    ; number of columns in file
 columns.scr   dd ?    ; number of columns on the screen
 top_ofs       dd ?    ; height occupied by top buttons
 bot_ofs       dd ?    ; height occupied by bottom buttons
               dw ?
 left_ofs      dd ?    ;
 top_line      dd ?    ; topmost visible line on screen
 left_col      dd ?    ; leftmost visible char on line
 vscrl_top     dd ?
 vscrl_size    dd ?
 hscrl_top     dd ?
 hscrl_size    dd ?
-skinh         dd ?    ; skin height
+;skinh         dd ?    ; skin height
 __rc          dd ?,?,?,?
 ;filelen       dd ?    ; file size (on save) ???
 filesize      dd ?    ; file size (on load) ???
 ya            dd ?    ; for read_string
 ;copy_start    dd ?    ; first line for copying (Ctrl+S)
 copy_count    dd ?    ; number of lines for copying (Ctrl+E)
 copy_size     dd ?    ; size of data to copy
 s_title.size  dd ?    ; caption length
 draw_blines   dd ?    ; last line to draw
 cur_line_len  dd ?
 h_popup       dd ?
 bot_dlg_handler dd ?
 sel.begin.x   dd ?
 sel.begin.y   dd ?
 sel.end.x     dd ?
 sel.end.y     dd ?
 sel.selected  db ?
 in_sel        db ?
 asm_mode      db ?    ; ASM highlight?
 do_not_draw   db ?    ; draw top and bottom buttons?
 main_closed   db ?    ; main window closed?
 tb_casesen    db ?    ; focused textbox is case-sensitive?
 align 4
 s_fname.size  dd ?
 s_fname       rb PATHL+1
 align 4
 s_search.size dd ?
 s_search      rb PATHL+1
 s_title       rb PATHL+11  ; window caption
 chr db ?
 ext db ?
 shi dd ?
 align 4
 cl_3d_normal dd ?
 cl_3d_pushed dd ?
 cl_3d_outset dd ?
 cl_3d_inset  dd ?
 cl_3d_grayed dd ?
 tb_opensave  TBOX
 tb_find      TBOX
 tb_replace   TBOX
 tb_gotorow   TBOX
 tb_gotocol   TBOX
 focused_tb   dd ?
 key1 rb 256
 mst  db ?
 mst2 db ?
 mev  db ?
 mouse_captured  db ?
 just_from_popup db ?
 bot_mode db ?
 modified db ?
 align 4
 bot_dlg_height dd ?
 bot_dlg_mode2  db ?
 ;-----------------------------------------------------------------------------
 section @PARAMS ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 ;-----------------------------------------------------------------------------
 fasm_parameters:
 p_info  process_information
 p_info2 process_information
 sc      system_colors
 diff16 'Main memory size',0,$
 MAIN_STACK  = 0x0000FFF0
 POPUP_STACK = 0x0000EFF0
 AREA_TEMP   = 0x00010000 ; 0x00010000
 AREA_EDIT   = 0x000C0000 ; 0x00080000
 AREA_TEMP2  = 0x00190000 ; 0x002E0000
 AREA_CBUF   = 0x001A0000 ; 0x002F0000
 AREA_ENDMEM = 0x001B0000 ; 0x00300000
 diff10 'Header+options size',0,@CODE
 diff10 'Load area size',AREA_TEMP,AREA_EDIT
 diff10 'Edit area size',AREA_EDIT,AREA_TEMP2
 diff10 'Total memory usage',0,AREA_ENDMEM
 ;store dword '/hd/' at tb_opensave.text+4*0
 ;store dword '1/tp' at tb_opensave.text+4*1
 ;store dword 'ad4/' at tb_opensave.text+4*2
 ;store dword 'tiny' at tb_opensave.text+4*3
 ;store dword 'pad.' at tb_opensave.text+4*4
 ;store dword 'asm'  at tb_opensave.text+4*5
 ;store byte  23     at tb_opensave.length

Subversion Repositories Kolibri OS

(root)/programs/develop/tinypad/trunk/tinypad.asm – Rev 122 → 178