mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-05 06:41:55 +03:00
630234432f
git-svn-id: svn://kolibrios.org@109 a494cfbc-eb01-0410-851d-a64ba20cac60
2946 lines
48 KiB
NASM
2946 lines
48 KiB
NASM
;******************************************************************************
|
||
; project name: TINYPAD
|
||
; compiler: flat assembler 1.60
|
||
; memory to compile: 2 Mbytes +
|
||
; version: 3.78a
|
||
; last update: 13/05/2005
|
||
; maintained by: Ivan Poddubny, Mike Semenyako (aka mike.dld)
|
||
; e-mail: ivan-yar@bk.ru, mike.dld@tut.by
|
||
;******************************************************************************
|
||
; HISTORY:
|
||
; 3.79 (just some ideas for further releases)
|
||
; optimize drawing (reduce flickering)
|
||
; optimize memory usage (allocate only needed amount, not static 3 Mbytes)
|
||
; improve keyboard handling (use 66th function)
|
||
; introduce real selection capabilities (including block selection)
|
||
; and of course other small speed and size optimizations ;)
|
||
; 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 equals 0
|
||
; 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)
|
||
; 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
|
||
; (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) // (obsolete)
|
||
; 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 0x00eff0 - <20><><EFBFBD><EFBFBD>
|
||
; stack for help 0x00fff0 -
|
||
; load position 0x010000 + <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>㧪<EFBFBD> 䠩<><E4A0A9>
|
||
; screen comp 0x078000 + ᮤ<>ন<EFBFBD><E0A6A8><EFBFBD> <20><>࠭<EFBFBD> (obsolete)
|
||
; edit area 0x080000 + <20><><EFBFBD>㬥<EFBFBD><E3ACA5>
|
||
; copy/paste area 0x2f0000 + <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E0AEA2><EFBFBD><EFBFBD>/<2F><>⠢<EFBFBD><E2A0A2>
|
||
;******************************************************************************
|
||
|
||
include 'lang.inc'
|
||
include 'macros.inc' ; useful stuff
|
||
purge mov ; SPEED
|
||
|
||
macro mov op1,op2 {
|
||
if (op1 in __regs) & (op2 eq -1)
|
||
or op1,-1
|
||
else
|
||
mov op1,op2
|
||
end if
|
||
}
|
||
|
||
header '01',1,@CODE,TINYPAD_END,0x300000,0xeff0,@PARAMS,0
|
||
|
||
ASEPC = '-'
|
||
RBTNW = rstr.size*6/3
|
||
LBTNW = lstr.size*6/2
|
||
ABTNH = 16
|
||
ATOPH = 24
|
||
OLEFT = 5+1
|
||
SCRLW = 16
|
||
ATABW = 8
|
||
PATHL = 260
|
||
|
||
AMINS = 8
|
||
|
||
;-----------------------------------------------------------------------------
|
||
section @CODE ;///////////////////////////////////////////////////////////////
|
||
;-----------------------------------------------------------------------------
|
||
|
||
;******************************************************************************
|
||
; INITIALIZING
|
||
|
||
cld
|
||
mov esi,s_example
|
||
mov edi,s_fname
|
||
mov ecx,s_example.size
|
||
mov [s_fname.size],ecx
|
||
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
|
||
|
||
; parameters are at @PARAMS
|
||
mov esi,@PARAMS
|
||
mov edi,s_fname
|
||
mov ecx,PATHL
|
||
rep movsb
|
||
mov edi,s_fname
|
||
mov ecx,PATHL
|
||
xor al,al
|
||
repne scasb
|
||
sub edi,s_fname+1
|
||
mov [s_fname.size],edi
|
||
|
||
no_params:
|
||
mcall 40,00100111b
|
||
jmp do_load_file
|
||
|
||
;******************************************************************************
|
||
; MAIN LOOP
|
||
still:
|
||
call writepos ; write current position & number of strings
|
||
|
||
.skip_write:
|
||
mcall 10;23,50; wait here until event
|
||
dec eax ; redraw ?
|
||
jz red
|
||
dec eax ; key ?
|
||
jz key
|
||
dec eax ; button ?
|
||
jz button
|
||
sub eax,3 ; mouse ?
|
||
jz mouse
|
||
|
||
;d
|
||
|
||
jmp still.skip_write
|
||
;******************************************************************************
|
||
|
||
mouse:
|
||
mcall 9,p_info,-1
|
||
cmp ax,[p_info.window_stack_position]
|
||
jne still
|
||
|
||
mcall 37,2
|
||
test al,1
|
||
jz .capture_off
|
||
|
||
mcall 37,1
|
||
mov ebx,eax
|
||
and ebx,0x0000FFFF
|
||
shr eax,16
|
||
|
||
mov ecx,[top_ofs]
|
||
inc ecx
|
||
pushd OLEFT ecx [p_info.x_size] ecx
|
||
popd [__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]
|
||
sub [__rc+0x8],SCRLW+5+3
|
||
imul ecx,[slines],10
|
||
dec ecx
|
||
add [__rc+0xC],ecx
|
||
mov ecx,__rc
|
||
call pt_in_rect
|
||
jnc .check_vscroll
|
||
sub eax,OLEFT
|
||
sub ebx,[__rc+0x4]
|
||
push eax
|
||
mov eax,ebx
|
||
xor edx,edx
|
||
mov ecx,10
|
||
div ecx
|
||
@@: add eax,[top_line]
|
||
mov ebx,eax
|
||
pop eax
|
||
xor edx,edx
|
||
mov ecx,6
|
||
div ecx
|
||
@@: add eax,[left_col]
|
||
|
||
cmp eax,[columns]
|
||
jb @f
|
||
mov eax,[columns]
|
||
@@: cmp ebx,[lines]
|
||
jb @f
|
||
mov ebx,[lines]
|
||
dec ebx
|
||
@@:
|
||
cmp [posx],eax
|
||
jne .change_cur_pos
|
||
cmp [posy],ebx
|
||
je still.skip_write
|
||
|
||
.change_cur_pos:
|
||
mov [posx],eax
|
||
mov eax,[posy]
|
||
pushd ebx
|
||
popd [posy]
|
||
cmp eax,ebx
|
||
je @f
|
||
push ebx
|
||
mov ebx,eax
|
||
call drawfile.ex
|
||
pop eax
|
||
@@: mov ebx,eax
|
||
call drawfile.ex
|
||
jmp still
|
||
|
||
.check_vscroll:
|
||
mov ecx,[p_info.x_size]
|
||
sub ecx,SCRLW+5-2
|
||
pushd ecx [top_ofs] ecx [bot_ofs]
|
||
popd [__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]
|
||
add [__rc+0x8],SCRLW-2
|
||
add [__rc+0x4],SCRLW+1
|
||
sub [__rc+0xC],SCRLW*2+3
|
||
mov ecx,__rc
|
||
call pt_in_rect
|
||
jnc .check_hscroll
|
||
|
||
sub ebx,[__rc+0x4]
|
||
cmp [vscrl_capt],0
|
||
jge .vcaptured
|
||
mov eax,[vscrl_top]
|
||
cmp ebx,eax
|
||
jb .center_vcapture
|
||
add eax,[vscrl_size]
|
||
cmp ebx,eax
|
||
jae .center_vcapture
|
||
mov eax,ebx
|
||
sub eax,[vscrl_top]
|
||
dec eax
|
||
mov [vscrl_capt],eax
|
||
dec ebx
|
||
jmp .vcaptured
|
||
.center_vcapture:
|
||
mov eax,[vscrl_size]
|
||
shr eax,1
|
||
mov [vscrl_capt],eax
|
||
.vcaptured:
|
||
sub ebx,[vscrl_capt]
|
||
jns @f
|
||
xor ebx,ebx
|
||
@@:
|
||
mov [vscrl_top],ebx
|
||
mov eax,[lines]
|
||
sub eax,[slines]
|
||
mul ebx
|
||
mov ebx,[bot_ofs]
|
||
sub ebx,[top_ofs]
|
||
sub ebx,SCRLW*3+2+2 ;**
|
||
sub ebx,[vscrl_size]
|
||
div ebx
|
||
cmp eax,[top_line]
|
||
je still.skip_write
|
||
mov [top_line],eax
|
||
call check_bottom_right
|
||
call drawfile
|
||
jmp still.skip_write
|
||
|
||
.check_hscroll:
|
||
pushd (OLEFT+SCRLW+1) [bot_ofs] [p_info.x_size] [bot_ofs]
|
||
popd [__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]
|
||
add [__rc+0x8],-SCRLW*2-10-1
|
||
add [__rc+0x4],-SCRLW
|
||
add [__rc+0xC],-2
|
||
mov ecx,__rc
|
||
call pt_in_rect
|
||
jnc .capture_off
|
||
|
||
mov ebx,eax
|
||
sub ebx,[__rc+0x0]
|
||
cmp [hscrl_capt],0
|
||
jge .hcaptured
|
||
mov eax,[hscrl_top]
|
||
cmp ebx,eax
|
||
jb .center_hcapture
|
||
add eax,[hscrl_size]
|
||
cmp ebx,eax
|
||
jae .center_hcapture
|
||
mov eax,ebx
|
||
sub eax,[hscrl_top]
|
||
dec eax
|
||
mov [hscrl_capt],eax
|
||
dec ebx
|
||
jmp .hcaptured
|
||
.center_hcapture:
|
||
mov eax,[hscrl_size]
|
||
shr eax,1
|
||
mov [hscrl_capt],eax
|
||
.hcaptured:
|
||
sub ebx,[hscrl_capt]
|
||
jns @f
|
||
xor ebx,ebx
|
||
@@:
|
||
mov [hscrl_top],ebx
|
||
mov eax,[columns]
|
||
sub eax,[scolumns]
|
||
mul ebx
|
||
mov ebx,[p_info.x_size]
|
||
sub ebx,SCRLW*3+10+2 ;**
|
||
sub ebx,[hscrl_size]
|
||
div ebx
|
||
cmp eax,[left_col]
|
||
je still.skip_write
|
||
mov [left_col],eax
|
||
call check_bottom_right
|
||
call drawfile
|
||
jmp still.skip_write
|
||
|
||
.capture_off:
|
||
or [vscrl_capt],-1
|
||
or [hscrl_capt],-1
|
||
jmp still.skip_write
|
||
|
||
func pt_in_rect
|
||
cmp eax,[ecx+0x0]
|
||
jl @f
|
||
cmp ebx,[ecx+0x4]
|
||
jl @f
|
||
cmp eax,[ecx+0x8]
|
||
jg @f
|
||
cmp ebx,[ecx+0xC]
|
||
jg @f
|
||
stc
|
||
ret
|
||
@@: clc
|
||
ret
|
||
endf
|
||
|
||
func check_bottom_right
|
||
push eax
|
||
mov eax,[top_line]
|
||
add eax,[slines]
|
||
cmp eax,[lines]
|
||
jbe .lp1
|
||
mov eax,[lines]
|
||
sub eax,[slines]
|
||
jns @f
|
||
xor eax,eax
|
||
@@: mov [top_line],eax
|
||
.lp1: mov eax,[left_col]
|
||
add eax,[scolumns]
|
||
cmp eax,[columns]
|
||
jbe .exit
|
||
mov eax,[columns]
|
||
sub eax,[scolumns]
|
||
jns @f
|
||
xor eax,eax
|
||
@@: mov [left_col],eax
|
||
.exit:
|
||
pop eax
|
||
ret
|
||
endf
|
||
|
||
; *********************************
|
||
; * BUTTON HANDLER *
|
||
; *********************************
|
||
|
||
button:
|
||
|
||
mcall 17
|
||
shr eax,8
|
||
|
||
cmp eax,'UP'
|
||
jne not_up
|
||
dec [top_line]
|
||
jns check_inv_all.skip_check
|
||
mov [top_line],0
|
||
jmp still.skip_write
|
||
not_up:
|
||
|
||
cmp eax,'DN'
|
||
jne not_down
|
||
inc [top_line]
|
||
mov eax,[lines]
|
||
sub eax,[slines]
|
||
cmp eax,[top_line]
|
||
jae check_inv_all.skip_check
|
||
dec eax
|
||
mov [top_line],eax
|
||
jmp still.skip_write
|
||
not_down:
|
||
|
||
cmp eax,'LT'
|
||
jne not_left
|
||
dec [left_col]
|
||
jns check_inv_all.skip_check
|
||
mov [left_col],0
|
||
jmp still.skip_write
|
||
not_left:
|
||
|
||
cmp eax,'RT'
|
||
jne not_right
|
||
inc [left_col]
|
||
mov eax,[columns]
|
||
sub eax,[scolumns]
|
||
cmp eax,[left_col]
|
||
jae check_inv_all.skip_check
|
||
dec eax
|
||
mov [left_col],eax
|
||
jmp still.skip_write
|
||
not_right:
|
||
|
||
; SEARCH {
|
||
search:
|
||
cmp al,50
|
||
jne no_search
|
||
|
||
.skip_check:
|
||
|
||
cld
|
||
mov ecx,[posy]
|
||
mov edx,ecx
|
||
call get_line_offset
|
||
cmp dword[esi],0
|
||
je still
|
||
call get_real_length
|
||
add esi,4
|
||
or eax,eax
|
||
jz .end_line.2
|
||
mov ecx,eax
|
||
sub ecx,[posx]
|
||
push esi
|
||
add esi,[posx]
|
||
dec ecx
|
||
inc esi
|
||
jmp @f
|
||
|
||
.next_line:
|
||
push esi
|
||
@@:
|
||
sub ecx,[s_search.size]
|
||
inc ecx
|
||
|
||
.next_char:
|
||
dec ecx
|
||
js .end_line
|
||
xor edi,edi
|
||
|
||
.next_ok:
|
||
movzx eax,byte[edi+esi]
|
||
movzx ebx,byte[edi+s_search]
|
||
|
||
cmp al,$61
|
||
jb @f
|
||
add al,[eax+add_table-$61]
|
||
@@: cmp bl,$61
|
||
jb @f
|
||
add bl,[ebx+add_table-$61]
|
||
@@:
|
||
|
||
cmp al,bl
|
||
je @f
|
||
|
||
inc esi
|
||
jmp .next_char
|
||
@@:
|
||
inc edi
|
||
cmp edi,[s_search.size]
|
||
jne .next_ok
|
||
|
||
.found:
|
||
add esp,4
|
||
mov [posy],edx
|
||
mov ecx,edx
|
||
lea eax,[esi-4]
|
||
call get_line_offset
|
||
sub eax,esi
|
||
mov [posx],eax
|
||
jmp check_inv_all
|
||
|
||
.end_line:
|
||
pop esi
|
||
.end_line.2:
|
||
add esi,[esi-4]
|
||
inc edx
|
||
call get_real_length
|
||
mov ecx,eax
|
||
lodsd
|
||
or eax,eax
|
||
jnz .next_line
|
||
jmp still
|
||
|
||
; SEARCH }
|
||
|
||
no_search:
|
||
|
||
; TOOLBAR {
|
||
cmp eax,10000
|
||
jb no_toolbar
|
||
|
||
add eax,-10000
|
||
jnz @f
|
||
mov bl,0;[run_outfile],0
|
||
call start_fasm
|
||
jmp still
|
||
@@: dec eax
|
||
jnz @f
|
||
mov bl,1;[run_outfile],1
|
||
call start_fasm
|
||
jmp still
|
||
@@: dec eax
|
||
jnz @f
|
||
call open_debug_board
|
||
jmp still
|
||
@@: dec eax
|
||
jnz still
|
||
call open_sysfuncs_txt
|
||
jmp still
|
||
; TOOLBAR }
|
||
|
||
no_toolbar:
|
||
|
||
cmp al,4
|
||
jne noid4
|
||
|
||
; LOAD_FILE {
|
||
do_load_file:
|
||
cmp [s_fname],'/'
|
||
jne @f
|
||
call loadhdfile
|
||
jmp .restorecursor
|
||
@@: call loadfile
|
||
|
||
.restorecursor:
|
||
xor eax,eax
|
||
mov [top_line],eax
|
||
mov [posx],eax
|
||
mov [posy],eax
|
||
|
||
; enable color syntax for ASM and INC files:
|
||
mov [asm_mode],al
|
||
|
||
mov eax,[s_fname.size]
|
||
add eax,s_fname
|
||
mov byte[eax],0
|
||
cmp dword[eax-3],'ASM'
|
||
jne @f
|
||
inc [asm_mode]
|
||
jmp .nocol
|
||
@@: cmp dword[eax-3],'INC'
|
||
jne .nocol
|
||
inc [asm_mode]
|
||
.nocol:
|
||
|
||
; if the header is the same as previous,
|
||
; just redraw the text area
|
||
; else redraw the window
|
||
|
||
mov ecx, [s_fname.size]
|
||
add ecx, 10 ; strlen(" - TINYPAD");
|
||
cmp ecx, [s_title.size]
|
||
jne @f
|
||
add ecx, -10
|
||
mov esi, s_fname ; strcmp(s_fname,header);
|
||
mov edi, s_title
|
||
rep cmpsb
|
||
jne @f
|
||
call drawfile
|
||
jmp still
|
||
@@:
|
||
|
||
; set window title:
|
||
mov esi,s_fname
|
||
mov edi,s_title
|
||
mov ecx,[s_fname.size]
|
||
lea eax,[ecx+10]
|
||
mov [s_title.size],eax
|
||
cld
|
||
rep movsb
|
||
|
||
mov dword[edi],' - '
|
||
add edi,3
|
||
mov esi,htext
|
||
mov ecx,htext.size
|
||
rep movsb
|
||
|
||
call drawwindow
|
||
jmp still
|
||
; LOAD_FILE }
|
||
|
||
noid4:
|
||
|
||
cmp al, 2
|
||
jz yessave
|
||
|
||
dec al ; close if butid == 1
|
||
jnz nosave
|
||
; EXIT:
|
||
mov [main_closed],1
|
||
mcall -1
|
||
|
||
; SAVE_FILE {
|
||
yessave:
|
||
call save_file
|
||
jmp still
|
||
; SAVE_FILE }
|
||
|
||
nosave:
|
||
inc al
|
||
call read_string
|
||
jmp still
|
||
|
||
;**********************************
|
||
;* REDRAW HANDLER *
|
||
;**********************************
|
||
|
||
func red
|
||
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> <20><><EFBFBD><EFBFBD>
|
||
call drawwindow
|
||
jmp check_inv_all.skip_check
|
||
endf
|
||
|
||
;**********************************
|
||
;* KEY HANDLER *
|
||
;**********************************
|
||
|
||
key:
|
||
mcall 2 ; GET KEY
|
||
cmp al,1
|
||
je still
|
||
|
||
shr eax,8
|
||
|
||
; HELP_WND {
|
||
cmp al,0xD2;210 ; Ctrl + F1
|
||
jne no_help_text
|
||
|
||
mcall 51,1,help_thread_start,0xfff0
|
||
jmp still
|
||
; HELP_WND }
|
||
|
||
no_help_text:
|
||
; LOAD_FILE {
|
||
cmp al,211 ; Ctrl + F2
|
||
je do_load_file
|
||
; LOAD_FILE }
|
||
|
||
; SEARCH {
|
||
cmp al,212 ; Ctrl + F3
|
||
je search.skip_check
|
||
; SEARCH }
|
||
|
||
; SAVE_FILE {
|
||
cmp al,213 ; Ctrl + F4
|
||
je yessave
|
||
; SAVE_FILE }
|
||
|
||
; ENTER_FILENAME {
|
||
cmp al,214 ; Ctrl + F5
|
||
jne @f
|
||
mov al,5
|
||
call read_string
|
||
jmp still
|
||
@@:
|
||
; ENTER_FILENAME }
|
||
|
||
; ENTER_SEARCH {
|
||
cmp al,215 ; Ctrl + F6
|
||
jne @f
|
||
mov al,51
|
||
call read_string
|
||
jmp still
|
||
@@:
|
||
; ENTER_SEARCH }
|
||
|
||
; CHANGE_LANG_LAYOUT {
|
||
cmp al,217 ; Ctrl + F8
|
||
jne @f
|
||
call layout
|
||
jmp still
|
||
@@:
|
||
; CHANGE_LANG_LAYOUT }
|
||
|
||
; 3 times english -> <20><><EFBFBD>᪨<EFBFBD>
|
||
; 2 times <20><><EFBFBD>᪨<EFBFBD> -> english
|
||
|
||
; COPY START {
|
||
cmp al,19
|
||
jne no_copy_start
|
||
push [posy]
|
||
pop [copy_start]
|
||
jmp still
|
||
; COPY START }
|
||
|
||
no_copy_start:
|
||
|
||
; COPY END {
|
||
cmp al,5
|
||
jne no_copy_end
|
||
mov eax,[posy]
|
||
cmp eax,[copy_start]
|
||
jae @f
|
||
xchg eax,[copy_start]
|
||
@@: sub eax,[copy_start]
|
||
inc eax
|
||
mov [copy_count],eax
|
||
|
||
mov ecx,[copy_start]
|
||
call get_line_offset
|
||
push esi
|
||
mov ecx,eax
|
||
@@: lodsd
|
||
add esi,eax
|
||
loop @b
|
||
mov ecx,esi
|
||
pop esi
|
||
sub ecx,esi
|
||
mov [copy_size],ecx
|
||
|
||
mov edi,0x2f0000
|
||
cld
|
||
rep movsb
|
||
jmp still
|
||
; COPY END }
|
||
|
||
no_copy_end:
|
||
|
||
; PASTE {
|
||
cmp al,16
|
||
jne no_copy_paste
|
||
mov ebx,[copy_count]
|
||
or ebx,ebx
|
||
jz still
|
||
add [lines],ebx
|
||
|
||
mov ecx,[posy]
|
||
call get_line_offset
|
||
mov ebx,esi
|
||
mov edi,0x2E0000
|
||
mov esi,edi
|
||
mov ecx,[copy_size]
|
||
sub esi,ecx
|
||
lea ecx,[esi+4]
|
||
sub ecx,ebx
|
||
std
|
||
rep movsb
|
||
mov edi,ebx
|
||
mov esi,0x2F0000
|
||
mov ecx,[copy_size]
|
||
cld
|
||
rep movsb
|
||
|
||
jmp check_inv_all
|
||
; PASTE }
|
||
|
||
no_copy_paste:
|
||
|
||
; INSERT_SEPARATOR {
|
||
cmp al,0x0C ; Ctrl+L
|
||
jne no_insert_separator
|
||
|
||
mov ecx,[posy]
|
||
call get_line_offset
|
||
mov ebx,esi
|
||
|
||
mov ecx,[lines]
|
||
call get_line_offset
|
||
lea edi,[esi+90+4]
|
||
lea ecx,[esi+4]
|
||
sub ecx,ebx
|
||
std
|
||
rep movsb
|
||
|
||
lea edi,[ebx+5]
|
||
mov dword[ebx],90
|
||
mov al,ASEPC
|
||
mov ecx,79
|
||
cld
|
||
rep stosb
|
||
mov al,' '
|
||
mov ecx,10
|
||
rep stosb
|
||
mov byte[ebx+4],';'
|
||
|
||
inc [lines]
|
||
inc [posy]
|
||
|
||
jmp check_inv_all
|
||
; INSERT_SEPARATOR }
|
||
|
||
no_insert_separator:
|
||
|
||
; DEL_LINE {
|
||
cmp al,4
|
||
jne no_delete_line
|
||
|
||
mov eax,[posy]
|
||
inc eax
|
||
cmp eax,[lines]
|
||
jge still
|
||
|
||
mov ecx,[posy]
|
||
call get_line_offset
|
||
mov edi,esi
|
||
lodsd
|
||
add esi,eax
|
||
|
||
dec [lines]
|
||
mov ecx,0x2e0000
|
||
sub ecx,esi
|
||
shr ecx,2 ;// fixed (was 4)
|
||
cld
|
||
rep movsd
|
||
jmp check_inv_all
|
||
; DEL_LINE }
|
||
|
||
no_delete_line:
|
||
|
||
; ENTER {
|
||
cmp al,13
|
||
jnz noenter
|
||
|
||
mov ecx,[posy]
|
||
call get_line_offset
|
||
|
||
mov ebx,[posx]
|
||
cmp ebx,[esi]
|
||
jb @f
|
||
mov ebx,[esi]
|
||
dec ebx
|
||
jns @f
|
||
xor ebx,ebx
|
||
@@:
|
||
|
||
cld
|
||
|
||
mov edi,0x10000
|
||
mov ebp,esi
|
||
mov ecx,ebx
|
||
inc ecx
|
||
@@: dec ecx
|
||
jz @f
|
||
cmp byte[esi+ecx+4-1],' '
|
||
je @b
|
||
@@: lea eax,[ecx+10]
|
||
stosd
|
||
jecxz @f
|
||
push esi
|
||
add esi,4
|
||
rep movsb
|
||
pop esi
|
||
@@: mov al,' '
|
||
mov ecx,10
|
||
rep stosb
|
||
|
||
mov ecx,[esi]
|
||
sub ecx,ebx;[posx]
|
||
add esi,ebx;[posx]
|
||
add esi,4
|
||
inc ecx
|
||
@@: dec ecx
|
||
jz @f
|
||
cmp byte[esi+ecx-1],' '
|
||
je @b
|
||
@@: jz .lp1
|
||
@@: cmp byte[esi],' '
|
||
jne .lp1
|
||
inc esi
|
||
loop @b
|
||
.lp1: push edi ecx
|
||
mov ecx,[ebp]
|
||
lea edi,[ebp+4]
|
||
mov al,' '
|
||
repe scasb
|
||
mov eax,ecx
|
||
pop ecx edi
|
||
je .lp2
|
||
neg eax
|
||
add eax,[ebp]
|
||
dec eax
|
||
jmp @f
|
||
.lp2: xor eax,eax
|
||
@@: mov edx,edi
|
||
add edi,4
|
||
mov [posx],eax
|
||
jecxz @f
|
||
push ecx
|
||
mov ecx,eax
|
||
mov al,' '
|
||
rep stosb
|
||
pop ecx
|
||
@@: jecxz @f
|
||
rep movsb
|
||
@@: mov ecx,10
|
||
mov al,' '
|
||
rep stosb
|
||
|
||
lea eax,[edi-4]
|
||
sub eax,edx
|
||
mov [edx],eax
|
||
|
||
lea ecx,[edi-0x10000]
|
||
|
||
push ecx
|
||
mov edi,0x2E0000
|
||
lea esi,[edi+4]
|
||
sub esi,ecx
|
||
add esi,[ebp]
|
||
lea ecx,[esi-4]
|
||
sub ecx,ebp
|
||
std
|
||
cmp esi,edi
|
||
jb @f
|
||
je .lp3
|
||
lea esi,[ebp+4]
|
||
mov eax,[esp]
|
||
lea edi,[esi+eax-4]
|
||
add esi,[ebp]
|
||
mov ecx,0x2E0000
|
||
sub ecx,esi
|
||
cld
|
||
@@: rep movsb
|
||
.lp3: pop ecx
|
||
mov esi,0x10000
|
||
mov edi,ebp
|
||
cld
|
||
rep movsb
|
||
|
||
inc [posy]
|
||
inc [lines]
|
||
|
||
jmp check_inv_all
|
||
; ENTER }
|
||
|
||
noenter:
|
||
|
||
; UP {
|
||
cmp al,130+48
|
||
jnz noup
|
||
|
||
mov eax,[posy]
|
||
dec eax
|
||
jns @f
|
||
xor eax,eax
|
||
@@: mov ecx,[top_line]
|
||
cmp eax,ecx
|
||
jae @f
|
||
dec ecx
|
||
jns @f
|
||
xor ecx,ecx
|
||
@@: jmp check_inv_all.skip_init
|
||
; UP }
|
||
|
||
noup:
|
||
|
||
; DOWN {
|
||
cmp al,129+48
|
||
jnz nodown
|
||
|
||
mov eax,[posy]
|
||
inc eax
|
||
cmp eax,[lines]
|
||
jb @f
|
||
dec eax
|
||
@@: mov ecx,[top_line]
|
||
mov edx,eax
|
||
sub edx,ecx
|
||
cmp edx,[slines]
|
||
jb @f
|
||
inc ecx
|
||
@@: jmp check_inv_all.skip_init
|
||
; DOWN }
|
||
|
||
nodown:
|
||
|
||
; LEFT {
|
||
cmp al,128+48
|
||
jnz noleft
|
||
mov eax,[posx]
|
||
dec eax
|
||
jns @f
|
||
inc eax
|
||
@@: mov [posx],eax
|
||
jmp check_inv_all
|
||
; LEFT }
|
||
|
||
noleft:
|
||
|
||
; RIGHT {
|
||
cmp al,131+48
|
||
jnz noright
|
||
mov eax,[posx]
|
||
inc eax
|
||
cmp eax,[columns]
|
||
jbe @f
|
||
dec eax
|
||
@@: mov [posx],eax
|
||
jmp check_inv_all
|
||
; RIGHT }
|
||
|
||
noright:
|
||
|
||
; PAGE_UP {
|
||
page_up:
|
||
cmp al,136+48
|
||
jnz nopu
|
||
mov edx,[slines]
|
||
dec edx
|
||
mov eax,[posy]
|
||
mov ecx,[top_line]
|
||
sub eax,edx
|
||
jns @f
|
||
xor eax,eax
|
||
@@: sub ecx,edx
|
||
jns @f
|
||
xor ecx,ecx
|
||
@@: jmp check_inv_all.skip_init
|
||
; PAGE_UP }
|
||
|
||
nopu:
|
||
|
||
; PAGE_DOWN {
|
||
page_down:
|
||
cmp al,135+48
|
||
jnz nopd
|
||
mov edx,[slines]
|
||
dec edx
|
||
mov eax,[posy]
|
||
mov ecx,[top_line]
|
||
add eax,edx
|
||
add ecx,edx
|
||
cmp eax,[lines]
|
||
jb @f
|
||
mov eax,[lines]
|
||
dec eax
|
||
@@: jmp check_inv_all.skip_init
|
||
; PAGE_DOWN }
|
||
|
||
nopd:
|
||
|
||
; HOME {
|
||
cmp al,132+48
|
||
jnz nohome
|
||
mov [posx],0
|
||
jmp check_inv_all
|
||
; HOME }
|
||
|
||
nohome:
|
||
|
||
; END {
|
||
end_key:
|
||
cmp al,133+48
|
||
jnz noend
|
||
|
||
mov ecx,[posy]
|
||
call get_line_offset
|
||
call get_real_length
|
||
mov [posx],eax
|
||
jmp check_inv_all
|
||
; END }
|
||
|
||
noend:
|
||
|
||
; GO_START {
|
||
cmp al,251 ; Ctrl + [
|
||
jnz no_go_to_start
|
||
xor eax,eax
|
||
mov [top_line],eax
|
||
mov [posy],eax
|
||
jmp check_inv_all.skip_check
|
||
; GO_START }
|
||
|
||
no_go_to_start:
|
||
|
||
; GO_END {
|
||
cmp al,253 ; Ctrl + ]
|
||
jnz no_go_to_end
|
||
mov eax,[lines] ; eax = lines in the file
|
||
mov [posy],eax
|
||
sub eax,[slines] ; eax -= lines on the screen
|
||
jns @f
|
||
xor eax,eax
|
||
@@: mov [top_line],eax
|
||
dec [posy]
|
||
jmp check_inv_all.skip_check
|
||
; GO_END }
|
||
|
||
no_go_to_end:
|
||
|
||
; DELETE {
|
||
__key_delete:
|
||
cmp al,134+48
|
||
jne nodel
|
||
|
||
mov ecx,[posy]
|
||
call get_line_offset
|
||
lea ebx,[esi+4]
|
||
mov ebp,esi
|
||
|
||
call get_real_length
|
||
or eax,eax
|
||
je .line_up
|
||
|
||
mov ecx,[posx]
|
||
cmp ecx,eax
|
||
jae .line_up
|
||
lea edi,[ebx+ecx]
|
||
neg ecx
|
||
add ecx,[ebp]
|
||
repe scasb
|
||
je .line_up
|
||
|
||
mov edi,ebx
|
||
mov ecx,[posx]
|
||
add edi,ecx
|
||
lea esi,[edi+1]
|
||
neg ecx
|
||
add ecx,[ebp]
|
||
dec ecx
|
||
rep movsb
|
||
mov byte[edi],' '
|
||
|
||
jmp check_inv_all
|
||
|
||
.line_up:
|
||
mov eax,[lines]
|
||
dec eax
|
||
cmp eax,[posy]
|
||
je still;.ok
|
||
mov edi,0x10004
|
||
mov esi,ebx
|
||
mov ecx,[posx]
|
||
rep movsb
|
||
mov ecx,[posx]
|
||
mov [0x10000],ecx
|
||
cmp ecx,[ebp]
|
||
jbe @f
|
||
sub ecx,[ebp]
|
||
sub edi,ecx
|
||
mov al,' '
|
||
rep stosb
|
||
@@: lea esi,[ebx+4]
|
||
add esi,[ebp]
|
||
mov ecx,[esi-4]
|
||
add [0x10000],ecx
|
||
rep movsb
|
||
|
||
lea ecx,[edi-0x10000]
|
||
|
||
mov esi,0x10000
|
||
call get_real_length
|
||
cmp eax,[columns]
|
||
jbe @f
|
||
mov [columns],eax
|
||
@@:
|
||
|
||
push ecx
|
||
mov edi,0x2E0000
|
||
lea esi,[edi+8]
|
||
sub esi,ecx
|
||
add esi,[ebp]
|
||
lea eax,[ebp+4]
|
||
add eax,[ebp]
|
||
add esi,[eax]
|
||
lea ecx,[esi-4]
|
||
sub ecx,ebp
|
||
std
|
||
cmp esi,edi
|
||
jb @f
|
||
jz .lp1
|
||
mov edi,ebp
|
||
add edi,[esp]
|
||
lea esi,[ebp+8]
|
||
add esi,[esi-8]
|
||
add esi,[esi-4]
|
||
mov ecx,0x2E0000
|
||
sub ecx,esi
|
||
cld
|
||
@@: rep movsb
|
||
.lp1: pop ecx
|
||
mov esi,0x10000
|
||
mov edi,ebp
|
||
cld
|
||
rep movsb
|
||
|
||
.ok.dec.lines:
|
||
dec [lines]
|
||
mov eax,[lines]
|
||
cmp [posy],eax
|
||
jb check_inv_all
|
||
dec eax
|
||
mov [posy],eax
|
||
jmp check_inv_all
|
||
; DELETE }
|
||
|
||
nodel:
|
||
|
||
; INSERT {
|
||
cmp al,137+48
|
||
jnz noins
|
||
;// ... toggle insert/overwrite mode here ...
|
||
jmp still;check_inv_str
|
||
; INSERT }
|
||
|
||
noins:
|
||
|
||
; BACKSPACE {
|
||
cmp al,8
|
||
jnz nobs
|
||
|
||
mov eax,[posx]
|
||
dec eax
|
||
js .line_up
|
||
|
||
dec [posx]
|
||
mov ecx,[posy]
|
||
call get_line_offset
|
||
|
||
mov ebx,eax
|
||
call get_real_length
|
||
cmp eax,[posx]
|
||
jb check_inv_all
|
||
|
||
lea edi,[esi+4+ebx]
|
||
mov ecx,ebx
|
||
neg ecx
|
||
add ecx,[esi]
|
||
dec ecx
|
||
lea esi,[edi+1]
|
||
cld
|
||
rep movsb
|
||
mov byte[edi],' '
|
||
|
||
jmp check_inv_str
|
||
|
||
.line_up:
|
||
cmp [posy],0
|
||
je still
|
||
mov ecx,[posy]
|
||
dec ecx
|
||
call get_line_offset
|
||
mov ebp,esi
|
||
lea ebx,[esi+4]
|
||
mov ecx,[ebp]
|
||
@@: cmp byte[ebx+ecx-1],' '
|
||
jne @f
|
||
dec ecx
|
||
jg @b
|
||
@@: mov [posx],ecx
|
||
dec [posy]
|
||
cld
|
||
jmp __key_delete.line_up
|
||
; BACKSPACE }
|
||
|
||
nobs:
|
||
|
||
; TAB {
|
||
__key_tab:
|
||
cmp eax,9 ; Tab
|
||
jne notab
|
||
|
||
mov eax,[posx]
|
||
|
||
mov ecx,eax
|
||
add eax,ATABW
|
||
and eax,not(ATABW-1)
|
||
push eax ' '
|
||
sub eax,ecx
|
||
.direct:
|
||
mov ecx,[posy]
|
||
call get_line_offset
|
||
|
||
xchg eax,ecx
|
||
|
||
call get_real_length
|
||
cmp eax,[posx]
|
||
jae @f
|
||
mov eax,[posx]
|
||
@@: mov edx,[esi]
|
||
sub edx,eax
|
||
cmp ecx,edx
|
||
jl @f
|
||
pushad; esi ecx eax
|
||
mov ecx,0x2E0000-10+1
|
||
lea eax,[esi+4]
|
||
add eax,[esi]
|
||
sub ecx,eax
|
||
mov edi,0x2E0000
|
||
mov esi,0x2E0000-10
|
||
std
|
||
rep movsb
|
||
mov ecx,10
|
||
mov al,' '
|
||
rep stosb
|
||
popad; eax ecx esi
|
||
add dword[esi],10
|
||
jmp @b
|
||
@@: lea ebx,[esi+4]
|
||
push ecx
|
||
lea edi,[ebx-1]
|
||
add edi,[esi]
|
||
mov esi,edi
|
||
sub esi,ecx
|
||
lea ecx,[esi+1]
|
||
sub ecx,ebx
|
||
sub ecx,[posx]
|
||
std
|
||
rep movsb
|
||
.ok: pop ecx
|
||
pop eax
|
||
rep stosb
|
||
|
||
cld
|
||
|
||
pop [posx]
|
||
|
||
lea esi,[ebx-4]
|
||
call get_real_length
|
||
cmp eax,[posx]
|
||
jae @f
|
||
mov eax,[posx]
|
||
@@: cmp eax,[columns]
|
||
jbe @f
|
||
mov [columns],eax
|
||
@@:
|
||
jmp check_inv_all
|
||
; TAB }
|
||
|
||
notab:
|
||
|
||
; ADD_KEY {
|
||
push [posx] eax
|
||
inc dword[esp+4]
|
||
mov eax,1
|
||
jmp __key_tab.direct
|
||
; ADD_KEY }
|
||
|
||
check_inv_str = check_inv_all
|
||
@^
|
||
func check_inv_str
|
||
mov eax,[posy]
|
||
mov ecx,[top_line]
|
||
.skip_init:
|
||
call check_cur_vis
|
||
mov [posy],eax
|
||
mov [top_line],ecx
|
||
.skip_check:
|
||
; call invalidate_string
|
||
call drawfile
|
||
jmp still
|
||
endf
|
||
^@
|
||
func check_inv_all
|
||
mov eax,[posy]
|
||
mov ecx,[top_line]
|
||
.skip_init:
|
||
call check_cur_vis
|
||
mov [posy],eax
|
||
mov [top_line],ecx
|
||
.skip_check:
|
||
; call clear_screen
|
||
call drawfile
|
||
jmp still
|
||
endf
|
||
|
||
func check_cur_vis
|
||
cmp eax,ecx
|
||
jb .low
|
||
mov edx,ecx
|
||
add edx,[slines]
|
||
cmp edx,[lines]
|
||
jbe @f
|
||
mov edx,[lines]
|
||
@@: cmp eax,edx
|
||
jb @f
|
||
lea ecx,[eax+1]
|
||
sub ecx,[slines]
|
||
jns @f
|
||
xor ecx,ecx
|
||
jmp @f
|
||
.low: mov ecx,eax
|
||
@@:
|
||
mov edx,ecx
|
||
add edx,[slines]
|
||
cmp edx,[lines]
|
||
jbe @f
|
||
mov ecx,[lines]
|
||
sub ecx,[slines]
|
||
jns @f
|
||
xor ecx,ecx
|
||
@@:;mov [top_line],eax
|
||
|
||
pushad
|
||
mov eax,[posx]
|
||
mov ebx,[left_col]
|
||
mov ecx,ebx
|
||
add ecx,[scolumns]
|
||
cmp eax,ebx
|
||
jb .lp1
|
||
cmp eax,ecx
|
||
jb .exit.2
|
||
lea ebx,[eax]
|
||
sub ebx,[scolumns]
|
||
jmp @f
|
||
.lp1: mov ebx,eax
|
||
@@: mov [left_col],ebx
|
||
.exit.2:
|
||
mov [posx],eax
|
||
popad
|
||
|
||
ret
|
||
endf
|
||
|
||
func get_real_length
|
||
mov eax,[esi]
|
||
@@: cmp byte[esi+eax+4-1],' '
|
||
jne @f
|
||
dec eax
|
||
jnz @b
|
||
@@: ret
|
||
endf
|
||
|
||
;******************************************************************************
|
||
|
||
;----------------------------------------------------------------------------
|
||
func start_fasm ;////////////////////////////////////////////////////////////
|
||
;----------------------------------------------------------------------------
|
||
; BL = run after compile
|
||
;----------------------------------------------------------------------------
|
||
cmp [asm_mode],0
|
||
jne @f
|
||
ret
|
||
@@: mov esi,s_fname
|
||
mov edi,fasm_parameters
|
||
|
||
cmp byte[esi],'/'
|
||
je .yes_systree
|
||
|
||
mov ecx,[s_fname.size]
|
||
rep movsb
|
||
|
||
mov al,','
|
||
stosb
|
||
|
||
mov ecx,[s_fname.size]
|
||
add ecx,-4
|
||
mov esi,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:
|
||
add esi,[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,s_fname
|
||
mov esi,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
|
||
ret
|
||
endf
|
||
|
||
func open_debug_board
|
||
mcall 19,debug_filename,0
|
||
ret
|
||
endf
|
||
|
||
func open_sysfuncs_txt
|
||
mcall 19,tinypad_filename,sysfuncs_filename
|
||
ret
|
||
endf
|
||
|
||
func layout
|
||
; ᬥ<><E1ACA5><EFBFBD><EFBFBD> <20><>᪫<EFBFBD><E1AAAB><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
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
|
||
|
||
; *******************************************************************
|
||
; ************************** DRAW WINDOW **************************
|
||
; *******************************************************************
|
||
|
||
func drawwindow
|
||
|
||
mcall 48,3,sc,sizeof.system_colors
|
||
|
||
mcall 12,1
|
||
|
||
push [color_tbl+4*5]
|
||
pop [sc.work]
|
||
|
||
mov edx,[sc.work]
|
||
add edx,0x03000000
|
||
mov esi,[sc.grab]
|
||
or esi,0x80000000
|
||
mcall 0,<100,6*80+6+OLEFT+SCRLW>,<75,402>,,,[sc.frame]
|
||
|
||
mcall 48,4
|
||
mov [skinh],eax
|
||
push eax
|
||
|
||
mcall 9,p_info,-1
|
||
pop eax
|
||
cmp [p_info.y_size],0
|
||
je .exit.2
|
||
|
||
mov [top_ofs],eax
|
||
dec [top_ofs]
|
||
cmp [asm_mode],0
|
||
je @f
|
||
add [top_ofs],ATOPH+1
|
||
@@:
|
||
; header string
|
||
mov ebx,eax
|
||
shr ebx,1
|
||
adc ebx,1+0x000A0000-4
|
||
mcall 4,,[sc.grab_text],s_title,[s_title.size]
|
||
|
||
mov eax,[p_info.x_size]
|
||
sub eax,5*2+SCRLW+2
|
||
cdq
|
||
mov ebx,6
|
||
div ebx
|
||
mov [scolumns],eax
|
||
|
||
mov eax,[p_info.y_size] ; calculate buttons position
|
||
add eax,-5-ABTNH*3-2-2
|
||
mov [bot_ofs],eax
|
||
|
||
; mov eax,[procinfo.y_size]
|
||
mov [do_not_draw],1 ; do_not_draw = true
|
||
|
||
mov ebx,eax
|
||
sub ebx,[skinh]
|
||
sub ebx,ATOPH+SCRLW*3+AMINS+5
|
||
js .no_draw
|
||
|
||
; cmp eax,100
|
||
; jb .no_draw ; do not draw text & buttons if height < 100
|
||
|
||
mov [do_not_draw],0 ; do_not_draw = false
|
||
sub eax,SCRLW+2+2
|
||
sub eax,[top_ofs]
|
||
cdq
|
||
mov ebx,10
|
||
div ebx
|
||
mov [slines],eax
|
||
|
||
mov ebx,[p_info.x_size]
|
||
add ebx,5*65536-5
|
||
mov ecx,[top_ofs-2]
|
||
mov cx,word[top_ofs]
|
||
mcall 38,,,[sc.work_text]
|
||
mov ecx,[bot_ofs-2]
|
||
mov cx,word[bot_ofs]
|
||
sub ecx,0x00010001
|
||
push ecx
|
||
mcall
|
||
add ecx,(ABTNH+2)*65536+ABTNH+2
|
||
mcall
|
||
add ecx,(ABTNH+2)*65536+ABTNH+2
|
||
mcall
|
||
pop ecx
|
||
add cx,(ABTNH+2)*3
|
||
mov ebx,[p_info.x_size]
|
||
sub ebx,RBTNW+5+1
|
||
push bx
|
||
shl ebx,16
|
||
pop bx
|
||
mcall
|
||
mov ebx,(5+LBTNW+1)*65536+(5+LBTNW+1)
|
||
add ecx,(ABTNH+2)*65536
|
||
mcall
|
||
|
||
inc [top_ofs]
|
||
|
||
mov ebx,5*65536
|
||
mov bx,word[p_info.x_size]
|
||
sub bx,9
|
||
push bx
|
||
sub bx,RBTNW+2
|
||
mov ecx,[bot_ofs-2]
|
||
mov cx,ABTNH+1
|
||
mcall 13,,,[sc.work_graph] ; BAR STRIPE
|
||
|
||
pop bx
|
||
cmp [asm_mode],0
|
||
je .skip_top_btns
|
||
mov ecx,[skinh-2]
|
||
mov cx,ATOPH
|
||
mcall ; UPPER BAR
|
||
|
||
mov eax,8
|
||
mov ebx,6*65536+52
|
||
mov ecx,[skinh]
|
||
inc ecx
|
||
shl ecx,16
|
||
add ecx,ATOPH-3
|
||
mov edx,10000
|
||
mov esi,[sc.work_button]
|
||
@@:
|
||
mcall ; TOOLBAR BUTTONS
|
||
add ebx,54*65536
|
||
inc edx
|
||
cmp edx,10004
|
||
jb @b
|
||
|
||
.skip_top_btns:
|
||
mov ebx,5*65536+LBTNW
|
||
mov ecx,[bot_ofs]
|
||
shl ecx,16
|
||
add ecx,(ABTNH+2)*65536+ABTNH
|
||
mcall 8,,,5,[sc.work_button] ; FILE BUTTON
|
||
|
||
add ecx,(ABTNH+2)*65536
|
||
mcall ,,,51 ; STRING BUTTON
|
||
|
||
push ebx ecx
|
||
|
||
mov ebx,[p_info.x_size]
|
||
shl ebx,16
|
||
add ebx,(-5-RBTNW)*65536+RBTNW
|
||
mov ecx,[bot_ofs]
|
||
shl ecx,16
|
||
add ecx,ABTNH
|
||
mov edx,2
|
||
mcall ,,,2 ; SAVE BUTTON
|
||
|
||
add ecx,(ABTNH+2)*65536
|
||
mcall ,,,4 ; FILE BUTTON
|
||
|
||
add ecx,(ABTNH+2)*65536
|
||
mcall ,,,50 ; SEARCH BUTTON
|
||
|
||
shr ecx,16
|
||
mov bx,cx
|
||
add ebx,-ABTNH-2-ABTNH/2-2-3
|
||
mcall 4,,[sc.work_button_text],rstr,rstr.size/3
|
||
add ebx,ABTNH+2
|
||
add edx,rstr.size/3
|
||
mcall
|
||
add ebx,ABTNH+2
|
||
add edx,rstr.size/3
|
||
mcall
|
||
|
||
pop edi ebx
|
||
shr edi,16
|
||
mov bx,di
|
||
add ebx,-1-ABTNH/2-2-2
|
||
mcall ,,,lstr,lstr.size/2
|
||
add ebx,ABTNH+2
|
||
add edx,lstr.size/2
|
||
mcall
|
||
|
||
cmp [asm_mode],0
|
||
je @f
|
||
mov ebx,[skinh]
|
||
add ebx,0x000C0000+ATOPH/2-4
|
||
mcall ,,,toolbar_btn_text,toolbar_btn_text.size
|
||
@@:
|
||
mov eax,[bot_ofs]
|
||
add eax,ABTNH+2
|
||
mov [ya],eax
|
||
mov [addr],s_fname
|
||
call print_text
|
||
|
||
add eax,ABTNH+2
|
||
mov [ya],eax
|
||
mov [addr],s_search
|
||
call print_text
|
||
jmp .exit
|
||
|
||
.no_draw:
|
||
mov ebx,[skinh]
|
||
mov [top_ofs],ebx
|
||
mov eax,[p_info.y_size]
|
||
add eax,-3
|
||
mov [bot_ofs],eax
|
||
sub eax,ebx
|
||
push eax
|
||
add eax,-2-SCRLW
|
||
cdq
|
||
mov ebx,10
|
||
idiv ebx
|
||
mov [slines],eax
|
||
pop eax
|
||
|
||
mov ebx,[p_info.y_size]
|
||
sub ebx,[skinh]
|
||
sub ebx,SCRLW*3++AMINS+7
|
||
jns @f
|
||
|
||
inc [do_not_draw]
|
||
|
||
add eax,-2
|
||
cdq
|
||
mov ebx,10
|
||
idiv ebx
|
||
mov [slines],eax
|
||
|
||
mov eax,[p_info.x_size]
|
||
sub eax,5*2
|
||
cdq
|
||
mov ebx,6
|
||
idiv ebx
|
||
mov [scolumns],eax
|
||
@@:
|
||
|
||
.exit:
|
||
call drawfile
|
||
.exit.2:
|
||
mcall 12,2
|
||
ret
|
||
endf
|
||
|
||
;--------------------------------------------
|
||
func get_line_offset
|
||
;--------------------------------------------
|
||
; Input:
|
||
; ECX = line number
|
||
; Output:
|
||
; ESI = line data offset
|
||
;--------------------------------------------
|
||
push eax
|
||
mov esi,0x80000
|
||
jecxz .exit
|
||
@@: lodsd
|
||
add esi,eax
|
||
loop @b
|
||
.exit:
|
||
pop eax
|
||
ret
|
||
endf
|
||
|
||
; **********************************
|
||
; *********** DRAWFILE ***********
|
||
; **********************************
|
||
|
||
;---------------------------------------------------
|
||
func drawfile.ex
|
||
;---------------------------------------------------
|
||
; Input:
|
||
; EAX = start line
|
||
; EBX = end line
|
||
;---------------------------------------------------
|
||
cmp [p_info.y_size],0
|
||
jne @f
|
||
ret
|
||
@@:
|
||
call check_bottom_right
|
||
|
||
pushad
|
||
|
||
cmp [slines],0
|
||
jle drawfile.exit
|
||
|
||
cmp eax,ebx
|
||
jae @f
|
||
xchg eax,ebx
|
||
@@: cmp eax,[top_line]
|
||
jae @f
|
||
mov eax,[top_line]
|
||
@@: mov ecx,[top_line]
|
||
add ecx,[slines]
|
||
cmp ebx,ecx
|
||
jb @f
|
||
dec ecx
|
||
mov ebx,ecx
|
||
@@: cmp eax,ebx
|
||
ja drawfile.exit
|
||
|
||
mov ecx,eax
|
||
call get_line_offset
|
||
|
||
.start:
|
||
mov ecx,ebx
|
||
sub ecx,eax
|
||
|
||
mov ebx,[top_ofs]
|
||
add ebx,OLEFT*65536+1
|
||
sub eax,[top_line]
|
||
imul eax,10
|
||
add ebx,eax
|
||
|
||
imul ebp,[left_col],6*65536
|
||
|
||
jmp drawfile.next_line
|
||
endf
|
||
|
||
func drawfile
|
||
cmp [p_info.y_size],0
|
||
jne @f
|
||
ret
|
||
@@:
|
||
call check_bottom_right
|
||
|
||
pushad
|
||
|
||
mov ebx,[top_ofs]
|
||
add ebx,OLEFT*65536+1
|
||
|
||
mov ecx,[top_line]
|
||
call get_line_offset
|
||
|
||
.start:
|
||
mov ecx,[slines]
|
||
or ecx,ecx
|
||
jle .exit
|
||
|
||
imul ebp,[left_col],6*65536
|
||
|
||
.next_line:
|
||
|
||
push ecx ebx
|
||
|
||
mov ecx,ebx
|
||
shl ecx,16
|
||
mov cl,10
|
||
mov ebx,[p_info.x_size]
|
||
add ebx,(OLEFT-1)*65536-10-SCRLW ; <OLEFT-1,LINE_WIDTH*6+2>
|
||
mcall 13,,,[color_tbl+4*5]
|
||
|
||
xor ecx,ecx
|
||
lodsd
|
||
mov [cur_line_len],eax
|
||
|
||
or eax,eax
|
||
ja .next_block
|
||
add esp,4*2
|
||
jmp .draw_cursor
|
||
|
||
.next_block:
|
||
|
||
push esi
|
||
push ecx
|
||
call get_next_part
|
||
pop ebx
|
||
push ecx
|
||
mov ecx,eax
|
||
|
||
push esi ebx
|
||
mov eax,ebx
|
||
sub ebx,[left_col]
|
||
cmp ebx,[scolumns]
|
||
jge @f
|
||
add ebx,esi
|
||
jle @f
|
||
mov ebx,[esp+8+4*2] ;// 4*2=esi+ebx
|
||
sub eax,[left_col]
|
||
jge .qqq
|
||
sub edx,eax
|
||
add esi,eax
|
||
mov eax,OLEFT*65536
|
||
jmp .qqq2
|
||
.qqq:
|
||
inc eax
|
||
imul eax,6*65536
|
||
.qqq2:
|
||
and ebx,0x0000FFFF
|
||
add ebx,eax
|
||
|
||
mov eax,[esp]
|
||
add eax,[esp+4];esi
|
||
sub eax,[left_col]
|
||
sub eax,[scolumns]
|
||
jle .qweqwe
|
||
sub esi,eax
|
||
.qweqwe:
|
||
|
||
mcall 4;[esp+8]
|
||
@@:
|
||
pop eax eax ; ebx esi
|
||
imul eax,6
|
||
add [esp+10],ax
|
||
pop ecx esi
|
||
cmp ecx,[cur_line_len];LINE_WIDTH
|
||
jl .next_block
|
||
|
||
pop ebx ecx
|
||
and ebx,0x0000FFFF
|
||
add ebx,OLEFT*65536+10
|
||
add esi,[cur_line_len];LINE_WIDTH
|
||
dec ecx
|
||
jg .next_line
|
||
|
||
;--------------------------------------------------------------------------
|
||
.draw_cursor:
|
||
mov eax,[posy]
|
||
sub eax,[top_line]
|
||
js @f
|
||
mov ecx,[slines]
|
||
sub ecx,eax
|
||
jle @f
|
||
imul eax,10
|
||
add eax,[top_ofs]
|
||
inc eax
|
||
shl eax,16
|
||
add eax,10-1
|
||
mov ecx,eax
|
||
mov ebx,[posx]
|
||
sub ebx,[left_col]
|
||
js @f
|
||
cmp ebx,[scolumns]
|
||
ja @f
|
||
imul ebx,6
|
||
add ebx,OLEFT-1
|
||
shl ebx,16
|
||
inc ebx
|
||
inc ebx
|
||
mov edx,[color_tbl+4*5]
|
||
not edx
|
||
and edx,0x00FFFFFF
|
||
mcall 13
|
||
@@:
|
||
;--------------------------------------------------------------------------
|
||
cmp [do_not_draw],2
|
||
je .exit
|
||
|
||
mov ebx,[p_info.x_size]
|
||
shl ebx,16
|
||
add ebx,(-SCRLW-5+2)*65536+SCRLW-2
|
||
mov ecx,[top_ofs-2]
|
||
mov cx,SCRLW-1
|
||
mcall 8,,,'UP',[sc.work_button]
|
||
pushad
|
||
push 0x18
|
||
shr ecx,16
|
||
mov bx,cx
|
||
add ebx,(SCRLW/2-3)*65536+SCRLW/2-4
|
||
mcall 4,,[sc.work_button_text],esp,1
|
||
add esp,4
|
||
popad
|
||
mov ecx,[bot_ofs]
|
||
shl ecx,16
|
||
add ecx,(-SCRLW*2-1)*65536+SCRLW-1
|
||
mcall ,,,'DN'
|
||
pushad
|
||
push 0x19
|
||
shr ecx,16
|
||
mov bx,cx
|
||
add ebx,(SCRLW/2-3)*65536+SCRLW/2-4
|
||
mcall 4,,[sc.work_button_text],esp,1
|
||
add esp,4
|
||
popad
|
||
sub ebx,1*65536-2
|
||
|
||
push ebx
|
||
mov eax,[lines]
|
||
mov ebx,[slines]
|
||
mov ecx,[top_line]
|
||
mov edx,[bot_ofs]
|
||
sub edx,[top_ofs]
|
||
add edx,-(SCRLW*3+2)
|
||
call get_scroll_vars
|
||
mov [vscrl_top],eax
|
||
mov [vscrl_size],ebx
|
||
pop ebx
|
||
|
||
mov ecx,eax
|
||
add ecx,[top_ofs]
|
||
shl ecx,16
|
||
mov cx,word[vscrl_size]
|
||
add ecx,(SCRLW+1)*65536
|
||
mcall 13,,,[sc.work_button]
|
||
mov ecx,[top_ofs-2]
|
||
mov cx,word[vscrl_top]
|
||
add ecx,(SCRLW+1)*65536
|
||
mov edx,[color_tbl+4*5]
|
||
or cx,cx
|
||
jle @f
|
||
mcall
|
||
@@:
|
||
mov ecx,[top_ofs]
|
||
add ecx,[vscrl_top]
|
||
add ecx,[vscrl_size]
|
||
add ecx,SCRLW+1
|
||
mov di,cx
|
||
shl ecx,16
|
||
mov cx,word[bot_ofs]
|
||
sub cx,di
|
||
sub cx,(SCRLW+1)*2
|
||
jle @f
|
||
mcall
|
||
@@:
|
||
;-------------------------------
|
||
@^
|
||
pushad
|
||
mov eax,ebx
|
||
shr eax,16
|
||
mov bx,ax
|
||
add ebx,0x00010001
|
||
mov ecx,[top_ofs]
|
||
add ecx,[vscrl_top]
|
||
add ecx,SCRLW+1
|
||
mov eax,ecx
|
||
shl ecx,16
|
||
add eax,[vscrl_size]
|
||
dec eax
|
||
add ecx,eax
|
||
mov edx,[sc.work_button]
|
||
add edx,0x00202020
|
||
mcall 38
|
||
add ebx,(SCRLW-2)*65536+(SCRLW-2)
|
||
mov edx,[sc.work_button]
|
||
sub edx,0x00202020
|
||
mcall 38
|
||
sub ebx,(SCRLW-2)*65536
|
||
mov ax,cx
|
||
shl ecx,16
|
||
mov cx,ax
|
||
mcall 38
|
||
mov eax,[vscrl_size-2]
|
||
mov ax,word[vscrl_size]
|
||
sub eax,0x00010001
|
||
sub ecx,eax
|
||
mov edx,[sc.work_button]
|
||
add edx,0x00202020
|
||
mcall 38
|
||
popad
|
||
^@
|
||
;-------------------------------
|
||
mov eax,ebx
|
||
shr eax,16
|
||
add bx,ax
|
||
mov ecx,[top_ofs-2]
|
||
mov cx,word[top_ofs]
|
||
add ecx,SCRLW*65536+SCRLW
|
||
mcall 38,,,[sc.work_text]
|
||
mov ecx,[bot_ofs-2]
|
||
mov cx,word[bot_ofs]
|
||
sub ecx,(SCRLW*2+2)*65536+(SCRLW*2+2)
|
||
mcall
|
||
rol ebx,16
|
||
push bx
|
||
rol ebx,16
|
||
pop bx
|
||
mov ecx,[top_ofs-2]
|
||
mov cx,word[bot_ofs]
|
||
add ecx,-2
|
||
mcall
|
||
;--------------------------------------------------------------------------
|
||
mov ebx,5*65536+SCRLW-1
|
||
mov ecx,[bot_ofs]
|
||
shl ecx,16
|
||
add ecx,(-SCRLW)*65536+SCRLW-2
|
||
mcall 8,,,'LT',[sc.work_button]
|
||
pushad
|
||
push 0x1B
|
||
shr ecx,16
|
||
mov bx,cx
|
||
add ebx,(SCRLW/2-3)*65536+SCRLW/2-4
|
||
mcall 4,,[sc.work_button_text],esp,1
|
||
add esp,4
|
||
popad
|
||
mov ebx,[p_info.x_size]
|
||
shl ebx,16
|
||
add ebx,(-SCRLW*2-5)*65536+SCRLW
|
||
mcall ,,,'RT'
|
||
pushad
|
||
push 0x1A
|
||
shr ecx,16
|
||
mov bx,cx
|
||
add ebx,(SCRLW/2-2)*65536+SCRLW/2-4
|
||
mcall 4,,[sc.work_button_text],esp,1
|
||
add esp,4
|
||
popad
|
||
inc ecx
|
||
|
||
push ecx
|
||
mov eax,[columns]
|
||
mov ebx,[scolumns]
|
||
mov ecx,[left_col]
|
||
mov edx,[p_info.x_size]
|
||
add edx,-(SCRLW*3+10)
|
||
call get_scroll_vars
|
||
mov [hscrl_top],eax
|
||
mov [hscrl_size],ebx
|
||
pop ecx
|
||
|
||
mov ebx,eax
|
||
add ebx,OLEFT+SCRLW
|
||
shl ebx,16
|
||
mov bx,word[hscrl_size]
|
||
mcall 13,,,[sc.work_button]
|
||
mov ebx,(OLEFT+SCRLW)*65536
|
||
mov bx,word[hscrl_top]
|
||
mcall ,,,[color_tbl+4*5]
|
||
mov ebx,OLEFT+SCRLW-1
|
||
add ebx,[hscrl_top]
|
||
add ebx,[hscrl_size]
|
||
mov di,bx
|
||
shl ebx,16
|
||
mov bx,word[p_info.x_size]
|
||
sub bx,di
|
||
sub bx,SCRLW*2+6
|
||
jle @f
|
||
mcall
|
||
@@:
|
||
mov eax,ebx
|
||
shr eax,16
|
||
add bx,ax
|
||
mov ecx,[bot_ofs-2]
|
||
mov cx,word[bot_ofs]
|
||
sub ecx,SCRLW*65536+2
|
||
mcall 38,<OLEFT+SCRLW-1,OLEFT+SCRLW-1>,,[sc.work_text]
|
||
mov ebx,[p_info.x_size-2]
|
||
mov bx,word[p_info.x_size]
|
||
sub ebx,(SCRLW*2+6)*65536+(SCRLW*2+6)
|
||
mcall
|
||
mov ebx,[p_info.x_size]
|
||
add ebx,5*65536-5
|
||
mov ecx,[bot_ofs-2]
|
||
mov cx,word[bot_ofs]
|
||
sub ecx,(SCRLW+1)*65536+(SCRLW+1)
|
||
mcall
|
||
;--------------------------------------------------------------------------
|
||
|
||
.exit:
|
||
popad
|
||
ret
|
||
endf
|
||
|
||
;--------------------------------------------
|
||
func get_scroll_vars
|
||
;--------------------------------------------
|
||
; Input:
|
||
; EAX = maximum data size (units)
|
||
; EBX = visible data size (units)
|
||
; ECX = current data position (units)
|
||
; EDX = scrolling area size (pixels)
|
||
; Output:
|
||
; EAX = srcoller offset (pixels)
|
||
; EBX = scroller size (pixels)
|
||
;--------------------------------------------
|
||
push eax ebx ecx edx
|
||
; sub eax,ebx
|
||
mov esi,eax
|
||
mov eax,edx
|
||
mul ebx
|
||
idiv esi
|
||
cmp eax,[esp]
|
||
jae .null
|
||
cmp eax,AMINS
|
||
jae @f
|
||
neg eax
|
||
add eax,AMINS
|
||
sub [esp],eax
|
||
mov eax,AMINS
|
||
@@: mov [esp+8],eax ; scroller size
|
||
mov eax,[esp]
|
||
mul ecx
|
||
idiv esi
|
||
mov [esp+12],eax ; scroller offset
|
||
add eax,[esp+8]
|
||
cmp eax,[esp]
|
||
jbe @f
|
||
dec dword[esp+12]
|
||
@@:
|
||
pop edx ecx ebx eax
|
||
ret
|
||
.null:
|
||
mov dword[esp+8],0
|
||
mov dword[esp+12],0
|
||
jmp @b
|
||
endf
|
||
|
||
;--------------------------------------------
|
||
func get_next_part
|
||
;--------------------------------------------
|
||
; Input:
|
||
; ECX = current letter
|
||
; ESI = string
|
||
; Output:
|
||
; ECX = color
|
||
; EDX = string
|
||
; ESI = length
|
||
;--------------------------------------------
|
||
cmp [asm_mode],0
|
||
je .plain.text
|
||
xor ebx,ebx
|
||
mov edx,ecx
|
||
add esi,ecx
|
||
mov edi,symbols
|
||
mov al,[esi]
|
||
cmp al,';'
|
||
je .comment
|
||
mov ecx,symbols.size
|
||
repne scasb
|
||
je .symbol
|
||
cmp al,'$'
|
||
jne @f
|
||
mov edi,symbols
|
||
mov al,[esi+1]
|
||
mov ecx,symbols.size
|
||
repne scasb
|
||
je .not_symbol
|
||
jmp .number
|
||
@@: cmp al,'0'
|
||
jb @f
|
||
cmp al,'9'
|
||
jbe .number
|
||
@@: cmp al,"'"
|
||
je .string
|
||
cmp al,'"'
|
||
je .string
|
||
.not_symbol:
|
||
inc ebx
|
||
inc edx
|
||
cmp edx,[cur_line_len];LINE_WIDTH
|
||
jge @f
|
||
mov edi,symbols
|
||
mov al,[esi+ebx]
|
||
cmp al,';'
|
||
je @f
|
||
mov ecx,symbols.size
|
||
repne scasb
|
||
jne .not_symbol
|
||
@@: mov ecx,edx
|
||
mov edx,esi
|
||
mov esi,ebx
|
||
mov eax,[color_tbl+4*0]
|
||
ret
|
||
.symbol:
|
||
inc ebx
|
||
inc edx
|
||
cmp edx,[cur_line_len];LINE_WIDTH
|
||
jge @f
|
||
mov edi,symbols
|
||
mov al,[esi+ebx]
|
||
mov ecx,symbols.size
|
||
repne scasb
|
||
je .symbol
|
||
@@: mov ecx,edx
|
||
mov edx,esi
|
||
mov esi,ebx
|
||
mov eax,[color_tbl+4*4]
|
||
ret
|
||
.comment:
|
||
neg edx
|
||
add edx,[cur_line_len];LINE_WIDTH
|
||
xchg edx,esi
|
||
mov ecx,[cur_line_len];LINE_WIDTH
|
||
mov eax,[color_tbl+4*3]
|
||
ret
|
||
.number:
|
||
inc ebx
|
||
inc edx
|
||
cmp edx,[cur_line_len];LINE_WIDTH
|
||
jge @f
|
||
mov edi,symbols
|
||
mov al,[esi+ebx]
|
||
cmp al,';'
|
||
je @f
|
||
mov ecx,symbols.size
|
||
repne scasb
|
||
jne .number
|
||
@@: mov ecx,edx
|
||
mov edx,esi
|
||
mov esi,ebx
|
||
mov eax,[color_tbl+4*1]
|
||
ret
|
||
.string:
|
||
inc ebx
|
||
inc edx
|
||
cmp edx,[cur_line_len];LINE_WIDTH
|
||
jge @f
|
||
cmp [esi+ebx],al
|
||
jne .string
|
||
inc ebx
|
||
inc edx
|
||
@@:
|
||
mov ecx,edx
|
||
mov edx,esi
|
||
mov esi,ebx
|
||
mov eax,[color_tbl+4*2]
|
||
ret
|
||
.plain.text:
|
||
mov edx,[cur_line_len];LINE_WIDTH
|
||
xchg edx,esi
|
||
mov ecx,[cur_line_len];LINE_WIDTH
|
||
mov eax,[color_tbl+4*0]
|
||
ret
|
||
endf
|
||
|
||
; ********************************************
|
||
; **************** SAVEFILE ****************
|
||
; ********************************************
|
||
func save_file
|
||
mov esi,0x80000 ; 0x70000 = 448 Kbytes (maximum)
|
||
mov edi,0x10000
|
||
|
||
.new_string:
|
||
call save_string
|
||
cmp dword[esi],0
|
||
jne .new_string
|
||
sub edi,0x10000+2 ; minus last CRLF
|
||
;! mov [filelen],edi
|
||
cmp byte[s_fname],'/'
|
||
je .systree_save
|
||
mcall 33,s_fname,0x10000,edi,0;[filelen],0
|
||
test eax,eax
|
||
je .exit
|
||
call file_not_found
|
||
jmp .exit
|
||
|
||
.systree_save:
|
||
;! mov eax,[filelen]
|
||
mov [f_info+8],edi ;! eax
|
||
mov [f_info+0],1
|
||
mov esi,s_fname
|
||
mov edi,f_info.path
|
||
mov ecx,PATHL
|
||
cld
|
||
rep movsb
|
||
mcall 58,f_info
|
||
|
||
.exit:
|
||
ret
|
||
endf
|
||
|
||
func save_string
|
||
lodsd
|
||
mov ecx,eax
|
||
|
||
@@: cmp byte[esi+ecx-1],' '
|
||
jne @f
|
||
loop @b
|
||
@@: jecxz .endcopy
|
||
xor edx,edx
|
||
mov ebx,edx
|
||
mov ah,dl
|
||
|
||
.next_char:
|
||
mov al,[esi+ebx]
|
||
inc ebx
|
||
test ah,00000001b
|
||
jnz .char
|
||
cmp al,'"'
|
||
jne @f
|
||
xor ah,00000100b
|
||
jmp .char
|
||
@@: cmp al,"'"
|
||
jne @f
|
||
xor ah,00000010b
|
||
jmp .char
|
||
@@: test ah,00000110b
|
||
jnz .char
|
||
cmp al,';'
|
||
jne @f
|
||
test ah,00000001b
|
||
jnz .char
|
||
xor ah,00000001b
|
||
jmp .char
|
||
@@: cmp al,' '
|
||
jne .char
|
||
inc edx
|
||
test ebx,ATABW-1
|
||
jnz @f
|
||
dec edx
|
||
jle .put
|
||
mov al,9
|
||
xor edx,edx
|
||
jmp .put
|
||
.char:
|
||
or edx,edx
|
||
jz .put
|
||
push ecx eax
|
||
mov ecx,edx
|
||
mov al,' '
|
||
rep stosb
|
||
pop eax ecx
|
||
xor edx,edx
|
||
.put:
|
||
stosb
|
||
@@: loop .next_char
|
||
|
||
.endcopy:
|
||
mov eax,0x0A0D
|
||
stosw
|
||
add esi,[esi-4]
|
||
ret
|
||
endf
|
||
|
||
; ********************************************
|
||
; **************** LOADFILE ****************
|
||
; ********************************************
|
||
|
||
func loadhdfile
|
||
mov [f_info+0],0
|
||
mov [f_info+8],300000/512
|
||
mov esi,s_fname
|
||
mov edi,f_info.path;pathfile_read
|
||
mov ecx,PATHL
|
||
cld
|
||
rep movsb
|
||
mcall 58,f_info ; fileinfo_read
|
||
xchg eax,ebx
|
||
inc eax
|
||
test ebx,ebx
|
||
je file_found
|
||
cmp ebx,6 ;// ATV driver fix (6 instead of 5)
|
||
je file_found
|
||
call file_not_found
|
||
ret
|
||
endf
|
||
|
||
func loadfile
|
||
mcall 6,s_fname,0,16800,0x10000 ; 6 = open file
|
||
inc eax ; eax = -1 -> file not found
|
||
jnz file_found
|
||
call file_not_found
|
||
ret
|
||
|
||
file_found:
|
||
dec eax
|
||
mov [filesize],eax
|
||
mov [lines],1
|
||
mov [columns],0
|
||
mov esi,0x10000
|
||
mov edi,0x80000
|
||
mov edx,eax
|
||
|
||
.next_line:
|
||
mov ebx,edi
|
||
add edi,4
|
||
.next_char:
|
||
or edx,edx
|
||
jle .exit
|
||
lodsb
|
||
dec edx
|
||
cmp al,13
|
||
je .CR
|
||
cmp al,10
|
||
je .LF
|
||
cmp al,9
|
||
je .TB
|
||
cmp al,0
|
||
je .exit
|
||
stosb
|
||
jmp .next_char
|
||
|
||
.exit:
|
||
mov ecx,10
|
||
mov al,' '
|
||
rep stosb
|
||
lea eax,[edi-4]
|
||
sub eax,ebx
|
||
mov [ebx],eax
|
||
mov dword[ebx+eax+4],0
|
||
sub eax,10
|
||
jnz @f
|
||
inc eax
|
||
@@: cmp eax,[columns]
|
||
jbe @f
|
||
mov [columns],eax
|
||
@@: ret
|
||
|
||
.CR: cmp byte[esi],10
|
||
jne .LF
|
||
lodsb
|
||
dec edx
|
||
.LF: mov ecx,10
|
||
mov al,' '
|
||
rep stosb
|
||
lea eax,[edi-4]
|
||
sub eax,ebx
|
||
mov [ebx],eax
|
||
inc [lines]
|
||
add eax,-10
|
||
cmp eax,[columns]
|
||
jbe .next_line
|
||
mov [columns],eax
|
||
jmp .next_line
|
||
|
||
.TB: lea eax,[edi-4]
|
||
sub eax,ebx
|
||
mov ecx,eax
|
||
add ecx,ATABW
|
||
and ecx,not(ATABW-1)
|
||
sub ecx,eax
|
||
mov al,' '
|
||
rep stosb
|
||
jmp .next_char
|
||
|
||
file_not_found:
|
||
mcall 55,eax,error_beep ; beep
|
||
mov [lines],1 ; open empty document
|
||
mov [columns],1
|
||
xor eax,eax
|
||
mov [top_line],eax
|
||
mov [posx],eax
|
||
mov [posy],eax
|
||
mov edi,0x80000+4
|
||
mov ecx,10
|
||
mov [edi-4],ecx
|
||
mov [edi+10],eax
|
||
mov al,' '
|
||
cld
|
||
rep stosb
|
||
ret
|
||
endf
|
||
|
||
; *****************************
|
||
; ****** WRITE POSITION ******
|
||
; *****************************
|
||
|
||
func writepos
|
||
cmp [do_not_draw],1 ; return if drawing is not permitted
|
||
jae .exit
|
||
pusha
|
||
mov eax,[posx]
|
||
inc eax
|
||
mov ebx,5
|
||
mov ecx,10
|
||
mov edi,htext2.pos1
|
||
cld
|
||
call uint2strz
|
||
mov eax,[posy]
|
||
inc eax
|
||
mov ebx,5
|
||
mov edi,htext2.pos2
|
||
call uint2strz
|
||
mov eax,[lines] ; number of lines
|
||
mov ebx,5
|
||
mov edi,htext2.pos3
|
||
call uint2strz
|
||
mov ebx,5*65536+htext2.size*6
|
||
mov ecx,[bot_ofs]
|
||
shl ecx,16
|
||
add ecx,ABTNH
|
||
mcall 13,,,[sc.work_graph] ; draw bar
|
||
mov ebx,12*65536
|
||
mov bx,word[bot_ofs]
|
||
add ebx,(ABTNH+2)/2-4
|
||
mcall 4,,[sc.work_button_text],htext2,htext2.size ; write position
|
||
popa
|
||
|
||
.exit:
|
||
ret
|
||
endf
|
||
|
||
;-----------------------------------------------------------------------------
|
||
func uint2strz ;//////////////////////////////////////////////////////////////
|
||
;-----------------------------------------------------------------------------
|
||
dec ebx
|
||
jz @f
|
||
xor edx,edx
|
||
div ecx
|
||
push edx
|
||
call uint2strz
|
||
pop eax
|
||
@@: cmp al,10
|
||
sbb al,$69
|
||
das
|
||
stosb
|
||
ret
|
||
endf
|
||
|
||
; ****************************
|
||
; ******* READ STRING ********
|
||
; ****************************
|
||
|
||
func read_string
|
||
cmp al,5
|
||
jz .f1
|
||
cmp al,51
|
||
jz .f2
|
||
ret
|
||
|
||
.f1: mov [addr],s_fname
|
||
mov eax,[bot_ofs]
|
||
add eax,ABTNH+2
|
||
mov [ya],eax
|
||
push 0 ; case insensitive
|
||
jmp .rk
|
||
.f2: mov [addr],s_search
|
||
mov eax,[bot_ofs]
|
||
add eax,(ABTNH+2)*2
|
||
mov [ya],eax
|
||
push 1 ; case sensitive
|
||
.rk:
|
||
mov edi,[addr]
|
||
mov ecx,PATHL
|
||
sub ecx,[edi-4]
|
||
add edi,[edi-4]
|
||
mov al,$1C
|
||
cld
|
||
rep stosb
|
||
|
||
mov edi,[addr]
|
||
mov eax,[edi-4]
|
||
mov [temp],eax
|
||
add edi,eax
|
||
call print_text
|
||
mcall 40,00000111b
|
||
|
||
.waitev:
|
||
|
||
mcall 10
|
||
cmp eax,2
|
||
jne .read_done
|
||
mcall ;2
|
||
shr eax,8
|
||
cmp al,13
|
||
je .read_done
|
||
cmp al,8
|
||
jne .nobs
|
||
cmp edi,[addr]
|
||
je .waitev
|
||
dec [temp]
|
||
mov eax,[addr]
|
||
dec dword[eax-4]
|
||
sub edi,1
|
||
mov byte[edi],$1C
|
||
call print_text
|
||
jmp .waitev
|
||
.nobs:
|
||
movzx ebx,al
|
||
sub ebx,$20
|
||
jle .waitev
|
||
cmp byte[esp],0
|
||
jne .keyok
|
||
sub ebx,$40
|
||
jl .keyok
|
||
add al,[ebx+add_table]
|
||
.keyok:
|
||
mov ecx,[addr]
|
||
add ecx,PATHL
|
||
cmp edi,ecx
|
||
jae .waitev
|
||
mov [edi],al
|
||
inc [temp]
|
||
mov eax,[addr]
|
||
inc dword[eax-4]
|
||
|
||
call print_text
|
||
inc edi
|
||
jmp .waitev
|
||
|
||
.read_done:
|
||
add esp,4
|
||
mov ecx,PATHL
|
||
sub ecx,[temp]
|
||
mov edi,[addr]
|
||
add edi,[temp]
|
||
mov al,' '
|
||
cld
|
||
rep stosb
|
||
mov [temp],987
|
||
call print_text
|
||
mcall 40,00100111b
|
||
ret
|
||
endf
|
||
|
||
func print_text
|
||
pusha
|
||
mov ebx,(LBTNW+5+2)*65536
|
||
mov bx,word[p_info.x_size]
|
||
sub bx,LBTNW+RBTNW+10+3
|
||
mov ecx,[ya-2]
|
||
mov cx,ABTNH+1
|
||
mcall 13,,,[sc.work]
|
||
mov ebx,(LBTNW+5+2+4)*65536+ABTNH/2-3
|
||
add ebx,[ya]
|
||
mov eax,[p_info.x_size]
|
||
sub eax,LBTNW+RBTNW+10+8
|
||
push eax
|
||
cdq
|
||
mov ecx,6
|
||
div ecx
|
||
cmp eax,PATHL
|
||
jbe @f
|
||
mov eax,PATHL
|
||
@@: mov esi,eax
|
||
mcall 4,,[color_tbl+0],[addr]
|
||
|
||
mov eax,[ya]
|
||
mov ebx,eax
|
||
add eax,ABTNH/2-6
|
||
shl eax,16
|
||
add eax,ebx
|
||
add eax,ABTNH/2-6+11
|
||
mov ecx,eax
|
||
imul eax,[temp],6
|
||
pop ebx
|
||
cmp eax,ebx
|
||
jae @f
|
||
add eax,LBTNW+5+2+4
|
||
mov ebx,eax
|
||
shl eax,16
|
||
add ebx,eax
|
||
mcall 38,,,[color_tbl+0]
|
||
|
||
@@: popa
|
||
ret
|
||
endf
|
||
|
||
include 'helpwnd.asm'
|
||
|
||
;-----------------------------------------------------------------------------
|
||
section @DATA ;///////////////////////////////////////////////////////////////
|
||
;-----------------------------------------------------------------------------
|
||
|
||
addr dd s_fname ; address of input string
|
||
temp dd 0xabc ; used in read_string
|
||
vscrl_capt dd -1
|
||
hscrl_capt dd -1
|
||
|
||
label color_tbl dword
|
||
dd 0x00000000 ;0x00FFFF00 ; text
|
||
dd 0x00009000 ;0x0000FF00 ; numbers
|
||
dd 0x00A00000 ;0x0000FFFF ; strings
|
||
dd 0x00909090 ;0x00C0C0C0 ; comments
|
||
dd 0x003030f0 ;0x00FFFFFF ; symbols
|
||
dd 0x00E0E0E0 ;0x00000080 ; background
|
||
|
||
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
|
||
|
||
sz s_example,'README.TXT'
|
||
sz s_still ,'still'
|
||
|
||
;sz param_setup,<'LANG',0> ; parameter for SETUP
|
||
param_setup db 'LANG',0
|
||
|
||
sz fasm_filename ,'FASM '
|
||
sz debug_filename ,'BOARD '
|
||
sz tinypad_filename,'TINYPAD '
|
||
sz setup ,'SETUP ' ; to change keyboard layout
|
||
|
||
lsz sysfuncs_filename,\
|
||
ru,<'SYSFUNCR.TXT',0>,\
|
||
en,<'SYSFUNCS.TXT',0>
|
||
|
||
sz htext,'TINYPAD'
|
||
sz toolbar_btn_text,'COMPILE RUN BOARD SYSFUNC'
|
||
|
||
lsz lstr,\
|
||
ru,<' <20><><EFBFBD><EFBFBD> > ',' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> > '>,\
|
||
en,<' FILE > ',' STRING > '>
|
||
lsz rstr,\
|
||
ru,<' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',' <20><><EFBFBD><EFBFBD><EFBFBD> '>,\
|
||
en,<' SAVE ' ,' LOAD ' ,' SEARCH ' >
|
||
|
||
lsz htext2,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 00000:00000 <20><><EFBFBD><EFBFBD><EFBFBD> 00000 <20><><EFBFBD><EFBFBD><EFBFBD>',\
|
||
en,'POSITION 00000:00000 LENGTH 00000 LINES'
|
||
if lang eq ru
|
||
htext2.pos1 = htext2+8
|
||
htext2.pos2 = htext2+14
|
||
htext2.pos3 = htext2+28
|
||
else
|
||
htext2.pos1 = htext2+9
|
||
htext2.pos2 = htext2+15
|
||
htext2.pos3 = htext2+30
|
||
end if
|
||
|
||
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>',\
|
||
ru,'',\
|
||
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',\
|
||
en,''
|
||
|
||
lsz help_title,\
|
||
ru,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',\
|
||
en,'TINYPAD HELP'
|
||
|
||
sz symbols,'#&*\:/<>|{}()[]=+-, '; %.'
|
||
|
||
align 4
|
||
label f_info dword
|
||
dd ?
|
||
dd 0
|
||
dd ?
|
||
dd 0x10000
|
||
dd 0x70000
|
||
.path:
|
||
times PATHL+1 db ?
|
||
|
||
TINYPAD_END: ; end of file
|
||
|
||
;-----------------------------------------------------------------------------
|
||
section @UDATA ;//////////////////////////////////////////////////////////////
|
||
;-----------------------------------------------------------------------------
|
||
|
||
posx dd ? ; global X position (text cursor)
|
||
posy dd ? ; global Y position (text cursor)
|
||
lines dd ? ; number of lines in file
|
||
slines dd ? ; number of lines on the screen
|
||
columns dd ? ; number of columns in file
|
||
scolumns dd ? ; number of columns on the screen
|
||
top_ofs dd ? ; height occupied by top buttons
|
||
bot_ofs dd ? ; height occupied by bottom buttons
|
||
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
|
||
|
||
cur_line_len dd ?
|
||
|
||
asm_mode db ? ; ASM highlight?
|
||
do_not_draw db ? ; draw top and bottom buttons?
|
||
main_closed db ? ; main window closed? (to close help window)
|
||
|
||
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 256 ; window caption
|
||
|
||
;-----------------------------------------------------------------------------
|
||
section @PARAMS ;/////////////////////////////////////////////////////////////
|
||
;-----------------------------------------------------------------------------
|
||
|
||
fasm_parameters:
|
||
|
||
p_info process_information
|
||
sc system_colors |