forked from KolibriOS/kolibrios
1033 lines
32 KiB
NASM
1033 lines
32 KiB
NASM
;-----------------------------------------------------------------------------
|
||
; project name: TINYPAD
|
||
; compiler: flat assembler 1.67.1
|
||
; memory to compile: 2.0/7.0 MBytes (without/with size optimizations)
|
||
; version: 4.0.3
|
||
; 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 memory usage (allocate only needed amount, not static 3 Mbytes)
|
||
; - add block selection ability, undo action, goto position
|
||
; - working with multiple files (add tabs)
|
||
; - improve window drawing with small dimensions
|
||
; - other bugfixes and speed/size optimizations
|
||
;
|
||
; HISTORY:
|
||
; 4.0.3 (mike.dld)
|
||
; bug-fixes:
|
||
; - 1-char selection if pressing <BS> 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 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 'proc32.inc'
|
||
include 'tinypad.inc'
|
||
;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,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
|
||
|
||
;// diamond [ (convert size from decimal representation to dword)
|
||
;-- mov edx,dword[@PARAMS+1]
|
||
mov esi,@PARAMS+1
|
||
xor edx,edx
|
||
xor eax,eax
|
||
@@: lodsb
|
||
test al,al
|
||
jz @f
|
||
lea edx,[edx*4+edx]
|
||
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 ; <20><><EFBFBD> <20><> mcall -1 <20><><EFBFBD><EFBFBD><EFBFBD>
|
||
mov esi,AREA_TEMP-16 ; 0x10000-16
|
||
mov byte[esi],1
|
||
mov eax,[esi+12]
|
||
inc eax
|
||
call load_file.file_found
|
||
jmp @f
|
||
.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
|
||
|
||
@@:
|
||
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 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
|
||
@@:
|
||
mov ebx, fasm_start
|
||
start_ret:
|
||
mov eax, 70
|
||
int 0x40
|
||
ret
|
||
endf
|
||
|
||
;-----------------------------------------------------------------------------
|
||
func open_debug_board ;///////////////////////////////////////////////////////
|
||
;-----------------------------------------------------------------------------
|
||
mov ebx, board_start
|
||
jmp start_ret
|
||
endf
|
||
|
||
;-----------------------------------------------------------------------------
|
||
func open_sysfuncs_txt ;//////////////////////////////////////////////////////
|
||
;-----------------------------------------------------------------------------
|
||
mov ebx, docpak_start
|
||
call start_ret
|
||
cmp eax,0xfffffff0
|
||
jb @f
|
||
mov ebx, tinypad_start
|
||
mov dword [ebx+8], sysfuncs_filename
|
||
call start_ret
|
||
@@: ret
|
||
endf
|
||
|
||
;-----------------------------------------------------------------------------
|
||
;func layout ;///// change keyboard layout ///////////////////////////////////
|
||
;-----------------------------------------------------------------------------
|
||
; mcall 19,setup,param_setup
|
||
; mcall 5,eax
|
||
;; call activate_me
|
||
;; 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-butto.asm'
|
||
include 'tp-mouse.asm'
|
||
include 'tp-files.asm'
|
||
include 'tp-commo.asm'
|
||
include 'tp-dialo.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 \
|
||
0x00,0x00,0x02,0x03,0x04,0x05,0x06,0x07,\
|
||
0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x00,0x00,\
|
||
0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,\
|
||
0x18,0x19,0x1A,0x1B,0x00,0x00,0x1E,0x1F,\
|
||
0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,\
|
||
0x28,0x29,0x00,0x2B,0x2C,0x2D,0x2E,0x2F,\
|
||
0x30,0x31,0x32,0x33,0x34,0x35,0x00,0x00,\
|
||
0x00,0x39,0x00,0x00,0x00,0x00,0x00,0x00
|
||
times 12*16 db 0x00
|
||
|
||
accel_table dd \
|
||
0x0000000E,key.bkspace ,\ ; BackSpace
|
||
0x0000000F,key.tab ,\ ; Tab
|
||
0x0000001C,key.return ,\ ; Return
|
||
0x0000003D,key.f3 ,\ ; F3
|
||
0x00000043,key.f9 ,\ ; F9
|
||
0x00000147,key.home ,\ ; Home
|
||
0x00000148,key.up ,\ ; Up
|
||
0x00000149,key.pgup ,\ ; PageUp
|
||
0x0000014B,key.left ,\ ; Left
|
||
0x0000014D,key.right ,\ ; Right
|
||
0x0000014F,key.end ,\ ; End
|
||
0x00000150,key.down ,\ ; Down
|
||
0x00000151,key.pgdn ,\ ; PageDown
|
||
0x00000152,key.ins ,\ ; Insert
|
||
0x00000153,key.del ,\ ; Delete
|
||
0x00010147,key.shift_home ,\ ; Shift+Home
|
||
0x00010148,key.shift_up ,\ ; Shift+Up
|
||
0x00010149,key.shift_pgup ,\ ; Shift+PageUp
|
||
0x0001014B,key.shift_left ,\ ; Shift+Left
|
||
0x0001014D,key.shift_right ,\ ; Shift+Right
|
||
0x0001014F,key.shift_end ,\ ; Shift+End
|
||
0x00010150,key.shift_down ,\ ; Shift+Down
|
||
0x00010151,key.shift_pgdn ,\ ; Shift+PageDown
|
||
0x00010153,key.del ,\ ; Shift+Delete
|
||
0x00020015,key.ctrl_y ,\ ; Ctrl+Y
|
||
0x00020018,key.ctrl_o ,\ ; Ctrl+O
|
||
0x0002001E,key.ctrl_a ,\ ; Ctrl+A
|
||
0x0002001F,key.ctrl_s ,\ ; Ctrl+S
|
||
0x00020020,key.ctrl_d ,\ ; Ctrl+D
|
||
0x00020021,key.ctrl_f ,\ ; Ctrl+F
|
||
0x00020022,key.ctrl_g ,\ ; Ctrl+G
|
||
0x00020023,key.ctrl_h ,\ ; Ctrl+H
|
||
\;0x00020026,key.ctrl_l ,\ ; Ctrl+L
|
||
0x0002002D,key.ctrl_x ,\ ; Ctrl+X
|
||
0x0002002E,key.ctrl_c ,\ ; Ctrl+C
|
||
0x0002002F,key.ctrl_v ,\ ; Ctrl+V
|
||
0x00020031,key.ctrl_n ,\ ; Ctrl+N
|
||
0x00020043,key.ctrl_f9 ,\ ; Ctrl+F9
|
||
0x00020147,key.ctrl_home ,\ ; Ctrl+Home
|
||
\;0x00020148,key.ctrl_up ,\ ; Ctrl+Up
|
||
0x00020149,key.ctrl_pgup ,\ ; Ctrl+PageUp
|
||
0x0002014B,key.ctrl_left ,\ ; Ctrl+Left
|
||
0x0002014D,key.ctrl_right ,\ ; Ctrl+Right
|
||
0x0002014F,key.ctrl_end ,\ ; Ctrl+End
|
||
\;0x00020150,key.ctrl_down ,\ ; Ctrl+Down
|
||
0x00020151,key.ctrl_pgdn ,\ ; Ctrl+PageDown
|
||
0x00020153,key.del ,\ ; Ctrl+Del
|
||
0x0003001F,key.shift_ctrl_s ,\ ; Shift+Ctrl+S
|
||
0x00030147,key.shift_ctrl_home ,\ ; Shift+Ctrl+Home
|
||
\;0x00030148,key.shift_ctrl_up ,\ ; Shift+Ctrl+Up
|
||
0x00030149,key.shift_ctrl_pgup ,\ ; Shift+Ctrl+PageUp
|
||
0x0003014B,key.shift_ctrl_left ,\ ; Shift+Ctrl+Left
|
||
0x0003014D,key.shift_ctrl_right ,\ ; Shift+Ctrl+Right
|
||
0x0003014F,key.shift_ctrl_end ,\ ; Shift+Ctrl+End
|
||
\;0x00030150,key.shift_ctrl_down ,\ ; Shift+Ctrl+Down
|
||
0x00030151,key.shift_ctrl_pgdn ,\ ; Shift+Ctrl+PageDown
|
||
0x0004002D,key.alt_x ,\ ; Alt+X
|
||
0
|
||
|
||
accel_table_textbox dd \
|
||
\;0x00000001,key.tb.escape ,\ ; Escape
|
||
0x0000000E,key.tb.bkspace ,\ ; BackSpace
|
||
\;0x0000000F,key.tb.tab ,\ ; Tab
|
||
\;0x0000001C,key.tb.return ,\ ; Return
|
||
0x00000147,key.tb.home ,\ ; Home
|
||
0x0000014B,key.tb.left ,\ ; Left
|
||
0x0000014D,key.tb.right ,\ ; Right
|
||
0x0000014F,key.tb.end ,\ ; End
|
||
0x00000153,key.tb.del ,\ ; Delete
|
||
0x00010147,key.tb.shift_home ,\ ; Shift+Home
|
||
0x0001014B,key.tb.shift_left ,\ ; Shift+Left
|
||
0x0001014D,key.tb.shift_right ,\ ; Shift+Right
|
||
0x0001014F,key.tb.shift_end ,\ ; Shift+End
|
||
0x00010153,key.tb.del ,\ ; Shift+Del
|
||
0
|
||
|
||
accel_table2 dd \
|
||
1,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 ,\
|
||
0
|
||
|
||
accel_table2_botdlg dd \
|
||
1,btn.close_main_window ,\
|
||
20001,btn.bot.cancel ,\
|
||
20002,btn.bot.opensave ,\
|
||
20003,btn.bot.find ,\
|
||
0
|
||
|
||
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
|
||
dd 0
|
||
db '/RD/1/BOARD',0
|
||
tinypad_start:
|
||
dd 7
|
||
dd 0
|
||
dd ?
|
||
dd 0
|
||
dd 0
|
||
db '/RD/1/TINYPAD',0
|
||
docpak_start:
|
||
dd 7
|
||
dd 0
|
||
dd sysfuncs_param
|
||
dd 0
|
||
dd 0
|
||
db '/RD/1/DOCPAK',0
|
||
|
||
;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 4.0.3'
|
||
|
||
lszc help_text,b,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:',\
|
||
ru,' ',\
|
||
ru,' CTRL+F1 : <20><><EFBFBD> <20><><EFBFBD><EFBFBD>',\
|
||
ru,' CTRL+S : <20><>ࢠ<EFBFBD> <20><>ப<EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E0AEA2><EFBFBD><EFBFBD>',\
|
||
ru,' CTRL+E : <20><><EFBFBD><E1ABA5><EFBFBD><EFBFBD> <20><>ப<EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E0AEA2><EFBFBD><EFBFBD>',\
|
||
ru,' CTRL+P : <20><>⠢<EFBFBD><E2A0A2><EFBFBD> <20><><EFBFBD>࠭<EFBFBD><E0A0AD><EFBFBD> <20><> ⥪<><E2A5AA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',\
|
||
ru,' CTRL+D : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD>',\
|
||
ru,' CTRL+L : <20><>⠢<EFBFBD><E2A0A2><EFBFBD> <20><>ப<EFBFBD>-ࠧ<><E0A0A7><EFBFBD><EFBFBD>⥫<EFBFBD>',\
|
||
ru,' CTRL+[ : <20><>३<EFBFBD><E0A5A9> <20> <20><>砫<EFBFBD> 䠩<><E4A0A9>',\
|
||
ru,' CTRL+] : <20><>३<EFBFBD><E0A5A9> <20> <20><><EFBFBD><EFBFBD><EFBFBD> 䠩<><E4A0A9>',\
|
||
ru,' CTRL+F2 : <20><><EFBFBD><EFBFBD>㧨<EFBFBD><E3A7A8> 䠩<>',\
|
||
ru,' CTRL+F3 : <20><><EFBFBD><EFBFBD><EFBFBD>',\
|
||
ru,' CTRL+F4 : <20><><EFBFBD>࠭<EFBFBD><E0A0AD><EFBFBD> 䠩<>',\
|
||
ru,' CTRL+F5 : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> 䠩<><E4A0A9>',\
|
||
ru,' CTRL+F6 : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD> <20><><EFBFBD> <20><><EFBFBD>᪠',\
|
||
ru,' CTRL+F8 : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>᪫<EFBFBD><E1AAAB><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',\
|
||
\
|
||
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,'<27><><EFBFBD><EFBFBD>' ,popup_file ,onshow.file ,\
|
||
ru,'<27>ࠢ<EFBFBD><E0A0A2>',popup_edit ,onshow.edit ,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD>' ,popup_search ,onshow.search ,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',popup_run ,onshow.run ,\
|
||
ru,'<27><>樨' ,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,'<27><><EFBFBD><EFBFBD><EFBFBD>' ,'Ctrl+N' ,key.ctrl_n ,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>...' ,'Ctrl+O' ,key.ctrl_o ,\
|
||
ru,'<27><><EFBFBD>࠭<EFBFBD><E0A0AD><EFBFBD>' ,'Ctrl+S' ,key.ctrl_s ,\
|
||
ru,'<27><><EFBFBD>࠭<EFBFBD><E0A0AD><EFBFBD> <20><><EFBFBD>...','Ctrl+Shift+S',key.shift_ctrl_s,\
|
||
ru,'-' ,'' ,0 ,\
|
||
ru,'<27><>室' ,'Alt+X' ,key.alt_x ,\
|
||
\
|
||
en,'New' ,'Ctrl+N' ,key.ctrl_n ,\
|
||
en,'Open...' ,'Ctrl+O' ,key.ctrl_o ,\
|
||
en,'Save' ,'Ctrl+S' ,key.ctrl_s ,\
|
||
en,'Save as...','Ctrl+Shift+S',key.shift_ctrl_s,\
|
||
en,'-' ,'' ,0 ,\
|
||
en,'Exit' ,'Alt+X' ,key.alt_x
|
||
|
||
popup_res popup_edit,\
|
||
ru,'<27><>१<EFBFBD><E0A5A7><EFBFBD>' ,'Ctrl+X',key.ctrl_x,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD><E0AEA2><EFBFBD>' ,'Ctrl+C',key.ctrl_c,\
|
||
ru,'<27><>⠢<EFBFBD><E2A0A2><EFBFBD>' ,'Ctrl+V',key.ctrl_v,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' ,'' ,key.del ,\
|
||
ru,'-' ,'' ,0 ,\
|
||
ru,'<27>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD> <20><><EFBFBD>','Ctrl+A',key.ctrl_a,\
|
||
\; ru,'-' ,'' ,0 ,\
|
||
\; ru,'<27><><EFBFBD>⨪<EFBFBD><E2A8AA>쭮<EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD>','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,'-' ,'' ,0 ,\
|
||
; en,'Vertical selection','Alt+Ins',0
|
||
|
||
popup_res popup_search,\
|
||
ru,'<27><>३<EFBFBD><E0A5A9>...' ,'Ctrl+G',key.ctrl_g,\
|
||
ru,'-' ,'' ,0 ,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD>...' ,'Ctrl+F',key.ctrl_f,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>','F3' ,key.f3 ,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>...','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,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' ,'F9' ,key.f9 ,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0AEA2><EFBFBD>' ,'Ctrl+F9',key.ctrl_f9 ,\
|
||
ru,'-' ,'' ,0 ,\
|
||
ru,'<27><>᪠ <20>⫠<EFBFBD><E2ABA0><EFBFBD>' ,'' ,open_debug_board ,\
|
||
ru,'<27><><EFBFBD>⥬<EFBFBD><E2A5AC><EFBFBD> <20>㭪樨','' ,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,'<27><><EFBFBD>譨<EFBFBD> <20><><EFBFBD>...' ,'',0,\
|
||
ru,'-' ,'',0,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>᭮<EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD>' ,'',set_secure_sel,\
|
||
ru,'<27><>⮬<EFBFBD><E2AEAC><EFBFBD><EFBFBD><EFBFBD>᪨<EFBFBD> <><E1AAAE><EFBFBD>' ,'',set_auto_braces,\
|
||
ru,'<27><>⮬<EFBFBD><E2AEAC><EFBFBD><EFBFBD><EFBFBD>᪨<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' ,'',set_auto_indents,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD> ⠡<><E2A0A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' ,'',0,\
|
||
ru,'<27><>⨬<EFBFBD><E2A8AC>쭮<EFBFBD> <20><><EFBFBD>࠭<EFBFBD><E0A0AD><EFBFBD><EFBFBD>','',set_optimal_fill,\
|
||
ru,'-' ,'',0,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ப' ,'',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,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',\
|
||
en,'Modified'
|
||
|
||
lsz s_2filename,\
|
||
ru,'<27><><EFBFBD> 䠩<><E4A0A9>:',\
|
||
en,'Filename:'
|
||
lsz s_2open,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',\
|
||
en,'Open'
|
||
lsz s_2save,\
|
||
ru,'<27><><EFBFBD>࠭<EFBFBD><E0A0AD><EFBFBD>',\
|
||
en,'Save'
|
||
lsz s_2find,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD>',\
|
||
en,'Find'
|
||
db ':'
|
||
lsz s_2replace,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',\
|
||
en,'Replace'
|
||
db ':'
|
||
lsz s_2cancel,\
|
||
ru,'<27>⬥<EFBFBD><E2ACA5>',\
|
||
en,'Cancel'
|
||
|
||
lsz s_enter_filename,\
|
||
ru,<'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> 䠩<><E4A0A9>',0>,\
|
||
en,<'Enter filename',0>
|
||
|
||
lsz s_enter_text_to_find,\
|
||
ru,<'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⥪<><E2A5AA> <20><><EFBFBD> <20><><EFBFBD>᪠',0>,\
|
||
en,<'Enter text to find',0>
|
||
|
||
lsz s_enter_text_to_replace,\
|
||
ru,<'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⥪<><E2A5AA> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0>,\
|
||
en,<'Enter text to replace',0>
|
||
|
||
lsz s_text_not_found,\
|
||
ru,<'<27><><EFBFBD>⨣<EFBFBD><E2A8A3><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> 䠩<><E4A0A9>, ⥪<><E2A5AA> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0>,\
|
||
en,<'Reached end of file, text not found',0>
|
||
|
||
lszc s_fs_error,b,\
|
||
ru,<'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>襭<EFBFBD> <20>ᯥ譮 (0)',0>,\
|
||
ru,<'',0>,\
|
||
ru,<'<27>㭪<EFBFBD><E3ADAA><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ন<EFBFBD><E0A6A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 䠩<><E4A0A9><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>⥬<EFBFBD> (2)',0>,\
|
||
ru,<'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⭠<EFBFBD> 䠩<><E4A0A9><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>⥬<EFBFBD> (3)',0>,\
|
||
ru,<'',0>,\
|
||
ru,<'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 䠩<> (5)',0>,\
|
||
ru,<'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>襭<EFBFBD> <20>ᯥ譮 (6)',0>,\
|
||
ru,<'<27><><EFBFBD><EFBFBD><EFBFBD> <20><>室<EFBFBD><E5AEA4><EFBFBD><EFBFBD> <20><> <20>࠭<EFBFBD>栬<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC> (7)',0>,\
|
||
ru,<'<27><> <20><>᪥ <20><><EFBFBD> <><E1A2AE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> (8)',0>,\
|
||
ru,<'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FAT 㭨<>⮦<EFBFBD><E2AEA6><EFBFBD> (9)',0>,\
|
||
ru,<'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (10)',0>,\
|
||
ru,<'<27>訡<EFBFBD><E8A8A1> <20><><EFBFBD>ன<EFBFBD>⢠ (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
|
||
__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
|