Subversion Repositories Kolibri OS

; SYSTEM HAEDER:

   use32

   org 0x0

   db  'MENUET01'  ; identifier

   dd  0x01        ; version

   dd  START       ; pointer to start

   dd  TINYPAD_END ; size of file

   dd  0x300f00 ;0x500000; 0x3fff00;0x300000    ; size of memory

   dd  0xeff0 ;0x4fffff ;0x3ff000;0xeff0      ; esp

   dd  I_PARAM     ; parameters

   dd  0           ; reserved

include 'lang.inc'

include 'ascl.inc'

include 'macros.inc' ; useful stuff

include 'dialogs1.inc'

include 'scroll.inc'

;include 'debug.inc'

purge mov            ;  SPEED

;******************************************************************************

; INITIALIZING

START:

;debug_print_hex TINYPAD_END

call mask_events

    cmp    [I_PARAM],byte 0

    jz     noparams

    ; parameters are at I_PARAM

    mov    esi,I_PARAM

    mov    edi,filename

    mov    ecx,50

    cld

    rep    movsb

    mov    edi,filename

    mov    ecx,50

    xor    eax,eax

    repne  scasb

    sub    edi,filename

    dec    edi

    mov    [filename_len],edi

    jmp    do_load_file

  noparams:

    jmp newfile

;******************************************************************************

; MAIN LOOP

still:

    call writepos ; write current position & number of strings

    call mouse_info

    mov  eax,10   ; wait here until event

    int  0x40

    cmp eax,1

    je red

    cmp eax,2

    je key

    cmp eax,3

    je button

    cmp eax,6

    je mouse

    jmp  still

;******************************************************************************

; *********************************

; *          MOUSE                *

; *********************************

mouse:

mov eax,37    ;mouse click

mov ebx,2

int 0x40

cmp eax,0

je .leave_now

;if exit window is on

cmp [exit_wnd_on],1

jne @f

mov [exit_wnd_on],0

jmp red

;else

@@:

cmp eax,1     ;mouse 1

jne .leave_now

mov eax,37    ;mouse position

mov ebx,1

int 0x40

mov word[mouse_y],ax

shr eax,16

mov word[mouse_x],ax

cmp [mouse_x],7

jb .leave_now ;.leave_now       ;if <

cmp [mouse_x],485;487

ja .leave_now ;.leave_now       ;if >

cmp [mouse_y],45

jb .leave_now ;.leave_now ;if <

cmp [mouse_y],342 ;345

ja .leave_now ;.leave_now       ;if >

call main_cursor_move

.leave_now:

jmp still

; *********************************

; *         BUTTON HANDLER        *

; *********************************

  button:

    mov  eax,17

    int  0x40

;;;;;;;;;;;;;;;exit dialog box check;;;;;;;;;;;;;

cmp ah,49

je save_and_exit

cmp ah,48

je exit_now

cmp ah,47

mov [exit_wnd_on],0

je red

cmp ah,46

jne @f

  call save_file

  jmp newfile

@@:

cmp ah,45

je newfile

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;MENU CHECK;;;;;;;;;;;;;;;;;;;;;;;

cmp ah,15

jne no_d_w

call draw_window_for_dialogs

jmp still

no_d_w:

cmp ah,97

je draw_win_menu_file

cmp ah,98

je draw_win_menu_code

cmp ah,96

je draw_win_menu_text

cmp ah,95

je goto_string

cmp ah,92

je search_window

cmp ah,94

je red

cmp ah,99

  je help_wnd

cmp ah,100

  je new_pad_wnd

cmp ah,101

  je doyouwannasave

cmp ah,102

  jne nosavenow

   for_key_save:

   savedialog draw_window_for_dialogs,copy_fpath_s,saveerror,mypath

nosavenow:

cmp ah,103

  jne noopennow

   for_key_open:

   opendialog draw_window_for_dialogs,copy_fpath,openerror,mypath

noopennow:

cmp ah,104

je exit

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    shr  eax,8

    cmp  al,50

    jne  no_search

; SEARCH {

  search:

    cmp [lines],1  ;something like bug fix

    je red ;still

    xor  esi,esi

    mov  edi,[post]

    add  edi,80

    imul ecx,[lines],80

    sub  ecx,edi         ; ecx (loop counter) = lines*80-(post+80)

  news:

    push edi

  news2:

     ; 1) LOAD BYTES

     mov  al,[esi+search_string]

     mov  bl,[edi+0x80000]

     ; 2) COMPARE BYTES

     cmp  al,bl

     je   yes_char

     ; 3) LETTER?

     cmp  al,'A'

     jb   notequal

     cmp  al,'z'

     ja   notequal

     ; 4) A->a OR a->A

     cmp  al,'a'

     jb   @f

     add  al,-32

     jmp  compare_bytes

    @@:

     cmp  al,'Z'

     ja   notequal

     add  al,32

    compare_bytes:

     cmp  al,bl

     jne  notequal

  yes_char:

    inc  edi

    inc  esi

    cmp  esi,[search_len]

    jge  sfound

    jmp  news2

  notequal:

    pop  edi

    xor  esi,esi

    inc  edi

    loop news

    call string_not_found

    jmp  still

  sfound:

    mov  eax,edi

    cdq                   ; edx = 0;

    mov  ebx,80

    div  ebx

;;;;;   imul eax,80

;    lea  eax,[eax+eax*4]  ; eax *= 5;

;    shl  eax,4           ; eax *= 16;

;    mov  [post],eax

    mov  [posy],0

;---------------

;    mov ebx,80

;    div ebx

    call goto_pos

    call draw_vertical_scroll

    jmp  still

; SEARCH }

  no_search:

; TOOLBAR {

   cmp     eax,10000

   jb      no_toolbar

   add     eax,-10000

   jne     @f

lbl_compile_file:

   mov     [run_outfile],0

   call    start_fasm

   jmp     still

 @@:

   dec     eax

   jnz     @f

lbl_run_outfile:

   mov     [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:

    mov [modified],0

  call empty_work_space

  cmp  [filename],'/'

    jne  @f

    call loadhdfile

    jmp  .restorecursor

  @@:

   call loadfile1

  .restorecursor:

    mov  edi,0x78000

    mov  ecx,80*80/4

    mov  eax,0x01010101

    cld

    rep  stosd

    xor  eax,eax

    mov  [post],eax

    mov  [posx],eax

    mov  [posy],eax

; enable color syntax for ASM and INC files:

    mov  [asm_mode], 0

    mov  eax, [filename_len]

    add  eax, filename

    cmp  word [eax-3],'AS'

    jne  @f

    cmp  byte [eax-1],'M'

    jne  @f

    mov  [asm_mode], 1

    jmp  .nocol

  @@:

    cmp  word [eax-3],'IN'

    jne  @f

    cmp  byte [eax-1],'C'

    jne  @f

    mov  [asm_mode], 1

  @@:

  .nocol:

; if the header is the same as the previous,

; just redraw the text area

; else redraw the window

;------pos00=filename_len

    mov eax,[filename_len]

    mov [pos00],eax

;-------------------------

    mov  ecx, [filename_len]

    add  ecx, 10             ; strlen(" - TINYPAD");

    cmp  ecx, [headlen]

    jne  @f

    add  ecx, -10

    mov  esi, filename       ; strcmp(filename,header);

    mov  edi, header

    rep  cmpsb

    jne  @f

    call drawfile

    call draw_window_for_dialogs ;redraw, because it's needed

    cmp [to_return],0

    je still

    ret

    ;jmp  still

  @@:

call set_title

cmp [to_return],0

je still

ret

;    jmp  still

; LOAD_FILE }

  noid4:

    cmp  al, 2

    jz   yessave

    dec  al       ; close if butid == 0

    jnz  nosave

; EXIT:

exit:

cmp [modified],0

je exit_now

      mov  eax,55           ; beep

      mov  ebx,eax

      mov  esi,save_beep1

      int  0x40

      delay 4

      mov  eax,55           ; beep

      mov  ebx,eax

      mov  esi,save_beep2

      int  0x40

 ;---------"EXIT" dialog box

 mov eax,13

 mov ebx,150*65536+200

 mov ecx,100*65536+70

 mov edx,[sc.work_graph] ;0x00dd9438 ;0x00ff7512

 int 0x40

mov eax,38

mov ebx,150*65536+350

mov ecx,100*65536+100

mov edx,cl_White

int 0x40

mov eax,38

mov ebx,150*65536+350

mov ecx,170*65536+170

mov edx,cl_White

int 0x40

mov eax,38

mov ebx,150*65536+150

mov ecx,100*65536+170

mov edx,cl_White

int 0x40

mov eax,38

mov ebx,350*65536+350

mov ecx,100*65536+170

mov edx,cl_White

int 0x40

 putlabel 190,120,'���࠭��� ���㬥��?',cl_White

 drawlbut 170,140,30,15,'��',49,[sc.work_button],cl_White

 drawlbut 230,140,30,15,'���',48,[sc.work_button],cl_White

 drawlbut 290,140,45,15,'�⬥��',47,[sc.work_button],cl_White

 mov [exit_wnd_on],1

;----------------

jmp still

    exit_now:

    mov  [MainWndClosed], 1

    or   eax, -1

    int  0x40

    save_and_exit:

    call save_file

    jmp exit_now

;    mov  [MainWndClosed], 1

;    or   eax, -1

;    int  0x40

; SAVE_FILE {

  yessave:

  call clear_screen

  call drawwindow

    call save_file

;  call clear_screen

;  call drawwindow

    mov [modified],0

    jmp  still

; SAVE_FILE }

  nosave:

    inc  al

    call read_string

    jmp  still

;**********************************

;*         REDRAW HANDLER         *

;**********************************

red:

; ����ᮢ�� ����

   call   clear_screen

   call   drawwindow

   jmp    still

;**********************************

;*          KEY HANDLER           *

;**********************************

  key:

    mov  eax, 2   ; GET KEY

    int  0x40

  cmp [exit_wnd_on],1 ;exit window is ON?

  jne no_exit_wnd     ; no - goto other checks

;  cmp eax,13          ;enter - save n exit

;  je save_and_exit

;  cmp eax,173         ;ctrl+enter - exit

;  je exit_now

  mov [exit_wnd_on],0 ;other keys - cancel

;  call draw_window_for_dialogs

  jmp red ;redraw and still

  no_exit_wnd:

    shr  eax, 8

; HELP_TEXT {

    cmp  al, 210  ; Ctrl + F1

    jne  no_help_text

help_wnd:

call clear_screen

call drawwindow

    mov  eax, 51

    mov  ebx, 1

    mov  ecx, help_thread_start

    mov  edx, 0xfff0

    int  0x40

    jmp  still

help_thread_start:

    call draw_help_wnd

  still_hw:

    cmp  [MainWndClosed], 1

    je   exit_hw

    mov  eax, 10

    int  0x40

    cmp  eax, 1

    je   red_hw

    cmp  eax, 2

    je   key_hw

    cmp  eax, 3

    je   button_hw

    jmp  still_hw

  red_hw:

    call draw_help_wnd

    jmp  still_hw

  key_hw:

;   mov  eax, 2

    int  0x40

    cmp  ah, 27

    jne  still_hw

  button_hw:

    mov  eax, 17

    int  0x40

  exit_hw:

    or   eax, -1

    int  0x40

; draw help window

 draw_help_wnd:

    mov  eax, 12

    mov  ebx, 1

    int  0x40

    xor  eax, eax

    mov  ebx, 200 shl 16 + 320

    mov  ecx, 200 shl 16 + 260

    mov  edx, 0x03e0e0e0   ; work

    mov  esi, [sc.grab]

    or   esi, 0x80000000   ; grab

    mov  edi, [sc.frame]   ; frame

    int  0x40

    mov  eax, 4

    mov  ebx, 8 shl 16 + 8

    mov  ecx, 0xffffff

    mov  edx, help_wnd_header

    mov  esi, hlphead_len

    int  0x40

    mov  eax, 4

    mov  ebx, 8 shl 16 + 34

    xor  ecx, ecx

    mov  esi, 51

    mov  edx, help_text

  .new_help_line:

    int  0x40

    add  ebx, 10

    add  edx, esi

    cmp  [edx], byte 'x'

    jne  .new_help_line

    mov  eax, 12

    mov  ebx, 2

    int  0x40

    ret

; HELP_TEXT }

  no_help_text:

; LOAD_FILE {

    cmp  al, 211       ; Ctrl + F2

    je   for_key_open ;do_load_file

; LOAD_FILE }

; SEARCH {

    cmp  al, 212       ; Ctrl + F3

    je   search

; SEARCH }

; SAVE_FILE {

    cmp  al, 213       ; Ctrl + F4

    je   yessave

; SAVE_FILE }

; ENTER_FILENAME {

    cmp  al, 214       ; Ctrl + F5

    jne  @f

jmp for_key_save

  @@:

; ENTER_FILENAME }

; ENTER_SEARCH {

    cmp  al, 215       ; Ctrl + F6

    jne  @f

;    mov  al, 51

;    call read_string

;    jmp  still

    jmp search_window

  @@:

; ENTER_SEARCH }

; CHANGE_LAYOUT {

    cmp  al, 217       ; Ctrl + F8

    jne  @f

    call layout

    jmp  still

  @@:

; CHANGE_LAYOUT }

; COMPILE_FILE {

    cmp al, 208

    je lbl_compile_file

; COMPILE_FILE }

; RUN_OUTFILE {

   cmp al, 209

   je lbl_run_outfile

; RUN_OUTFILE }

;run debug board {      -----

   cmp al,255

   jne @f

   call open_debug_board

   call activate_me

   jmp still

;}

   @@:

;open sysfuncR {        -----

;   cmp al,228

;   jne @f

;   call open_sysfuncs_txt

;   jmp still

;   @@:

;fast_save_and_open {

   cmp al,216

   jne @f

   call make_fast_so

   jmp still

;}

   @@:

; 3 times english -> ���᪨�

; 2 times ���᪨� -> english

; COPY START {

    cmp  al, 19

    jne  no_copy_start

    mov  eax, [post]

    imul ebx, [posy], 80

    add  eax, ebx

    mov  [copy_start], eax

    jmp  still

; COPY START }

  no_copy_start:

; COPY END {

    cmp  al, 5

    jne  no_copy_end

    cmp  [copy_start], 0

    je   still

    mov  ecx, [post]

    imul ebx, [posy], 80

    add  ecx, ebx

    add  ecx, 80

    cmp  ecx, [copy_count]

    jb   still

    sub  ecx, [copy_start]

    mov  [copy_count], ecx

    mov  esi, [copy_start]

    add  esi, 0x80000

    mov  edi, 0x2f0000

    cld

    rep  movsb

    jmp  still

; COPY END }

  no_copy_end:

; PASTE {

    cmp  al, 16

    jne  no_copy_paste

    cmp  [copy_count], 0

    je   still

    mov  eax,[copy_count]

    cdq

    mov  ebx, 80

    div  ebx

    add  [lines], eax

    mov  ecx, 0x2e0000

    mov  eax, [post]

    imul ebx, [posy], 80

    add  eax, ebx

    add  eax, 0x80000

    sub  ecx, eax

    mov  esi, 0x2e0000

    sub  esi, [copy_count]

    mov  edi, 0x2e0000

    std

    rep  movsb

    mov  esi, 0x2f0000

    mov  edi, [post]

    imul eax, [posy], 80

    add  edi, eax

    add  edi, 0x80000

    mov  ecx, [copy_count]

    cld

    rep  movsb

    call clear_screen

    call drawfile

call draw_vertical_scroll

    mov [modified],1

    jmp  still

; PASTE }

  no_copy_paste:

; INSERT_SEPARATOR {

    cmp  al,0xc       ; Ctrl+L

    jne  no_insert_separator

    imul eax,[posy],80

    add  eax,[post]

    add  eax,0x80000

    mov  ebx,eax

    imul eax,[lines],80

    add  eax,0x80000     ; ⥯��� 㪠�뢠�� �� ����� 䠩��

    mov  ecx,eax ; size

    sub  ecx,ebx

    inc  ecx

    mov  esi,eax ; from

    mov  edi,eax

    add  edi,80  ; to

    std

    rep  movsb

    mov  ecx,80/4

    mov  esi,comment_string

    mov  edi,ebx

    cld

    rep  movsd

    inc  [lines]

    call clear_screen

    call drawfile

;call calc_scroll_size_and_pos

call draw_vertical_scroll

    mov [modified],1

    jmp  still

; INSERT_SEPARATOR }

  no_insert_separator:

; DEL_LINE {

    cmp  al,4

    jne  no_delete_line

    mov  eax,[post]

    cdq

    mov  ebx,80

    div  ebx

    add  eax,[posy]

    inc  eax

    cmp  eax,[lines]

    jge  still

    dec  dword [lines]

    imul edi,[posy],80

    add  edi,[post]

    add  edi,0x80000

    mov  esi,edi

    add  esi,80

    mov  ecx,0x2e0000

    sub  ecx,esi

    shr  ecx,4

    cld

    rep  movsd

    call clear_screen

    call drawfile

;call calc_scroll_size_and_pos

call draw_vertical_scroll

    mov [modified],1

    jmp  still

; DEL_LINE }

  no_delete_line:

; ENTER {

    cmp  al,13

    jnz  noenter

    ; lines down

    mov  eax,[posy]

    inc  eax

;   imul eax,80

    lea  eax,[eax+eax*4]  ; eax *= 5

    shl  eax,4            ; eax *= 16

    add  eax,0x80000

    add  eax,[post]

    mov  ebx,eax

    ; ebx = ([posy]+1)*80 + 0x80000 + [post]

    ; ebx -> first byte of next string

    imul eax,[lines],80

    add  eax,0x80000

    mov  ecx,eax

    ; ecx = [lines]*80 + 0x80000

    ; ecx -> end of the document

    cmp  ebx,ecx

    jz   .bug_fixed

   @@:

    dec  ecx

    mov  dl,[ecx]

    mov  [ecx+80],dl

    cmp  ecx,ebx

    jnz  @b

   .bug_fixed:

    ; save for later

    imul eax,[posy],80

    add  eax,0x80000

    add  eax,[post]

    mov  ebx,eax

    add  eax,[posx]

    ; eax = 0x80000 + [post] + [posy]*80 + [posx]

    push eax

    dec  ebx

    xor  ecx,ecx

  @@:

    cmp  ecx,80

    je   @f

    inc  ecx

    inc  ebx

    cmp  byte [ebx],' '

    je   @b

  @@:

    dec  ecx

    cmp  ecx,80-1

    jne  @f

;   mov  [posx],0

    jmp  .lbl

  @@:

    cmp  [posx],ecx

    jbe  @f

    mov  [posx],ecx

    jmp  .lbl

  @@:

    mov  [posx],0

  .lbl:

    inc  [posy]

    ;clear line

    imul eax,[posy],80

    add  eax,0x80000

    add  eax,[post]

    mov  edi,eax

    mov  eax,'    '

    mov  ecx,80/4

    cld

    rep  stosd

    ; end of line to next line beginning

    imul eax,[posy],80

    add  eax,0x80000

    add  eax,[post]

;   add  eax,[posx]

    mov  ebx,eax

    ; ebx -> beginning of this line

    pop  esi

    mov  edi,eax

   @@:

    mov  al,[esi]

    mov  [ebx],al

    mov  [esi],byte ' '

    inc  esi

    inc  ebx

    cmp  esi,edi

    jb   @b

    inc  [lines]

    mov  ecx,[posy]

    cmp  ecx,[slines]

    jne  @f

    dec  [posy]

    add  [post],80

   @@:

    call clear_screen

    call drawfile

;call calc_scroll_size_and_pos

    call draw_vertical_scroll

    mov [modified],1

    jmp  still

; ENTER }

  noenter:

; UP {

    cmp  al,130+48

    jnz  noup

    mov  ecx,[posy]

    test ecx,ecx

    jnz  .up1

    mov  ecx,[post]

    test ecx,ecx

    jz   still

    add  ecx,-80

    mov  [post],ecx

    call clear_screen

    jmp  .finish

  .up1:

    dec  ecx

    mov  [posy],ecx

  .finish:

    call drawfile

    call draw_vertical_scroll

;call calc_scroll_size_and_pos

    jmp  still

; UP }

  noup:

; DOWN {

    cmp  al,129+48

    jnz  nodown

    mov  ecx,[posy]

    mov  eax,[slines]

    dec  eax

    cmp  ecx,eax

    jb   .do1         ; goto do1 if [posy] < [slines]-1

    mov  eax,[lines]

    sub  eax,[slines]

    dec  eax

    jb   still        ; goto still if [lines] < [slines]-1

;   imul eax,80

    lea  eax,[eax+eax*4]

    shl  eax,4

    cmp  [post],eax

    jg   still        ; goto still if [post] > ([lines]-[slines]-1)*80

    add  [post],80

    call clear_screen

    call drawfile

    call draw_vertical_scroll

;call calc_scroll_size_and_pos

    jmp  still

  .do1:

    pusha

    mov  eax,[post]

    cdq

    mov  ebx,80

    div  ebx

    add  eax,[posy]

    inc  eax

    cmp  eax,[lines]

    jb   .do10

    popa

    jmp  still

  .do10:

    popa

    inc  ecx

    mov  [posy],ecx

    call drawfile

    call draw_vertical_scroll

;call calc_scroll_size_and_pos

    jmp  still

; DOWN }

  nodown:

; LEFT {

    cmp  al,128+48

    jnz  noleft

    cmp  [posx],0

    je   still

    dec  [posx]

    call drawfile

    jmp  still

; LEFT }

  noleft:

; RIGHT {

    cmp  al,131+48

    jnz  noright

    cmp  [posx],79

    je   still

    inc  [posx]

    call drawfile

    jmp  still

; RIGHT }

  noright:

; PAGE_UP {

  page_up:

    cmp  al,136+48

    jnz  nopu

scrl_up:

    mov  eax,[slines]

    dec  eax

;   imul eax,80

    lea  eax,[eax+eax*4]

    shl  eax,4

    mov  ecx,[post]

    cmp  eax,ecx

    jbe  pu1

    mov  ecx,eax

   pu1:

    sub  ecx,eax

    mov  [post],ecx

    call clear_screen

    call drawfile

    call draw_vertical_scroll

;call calc_scroll_size_and_pos

    jmp  still

; PAGE_UP }

  nopu:

; PAGE_DOWN {

  page_down:

    cmp  al,135+48

    jnz  nopd

scrl_down:

    mov  eax,[lines]

    cmp  eax,[slines]

    jb   still

    mov  eax,[post]   ; eax = offset

    cdq

    mov  ebx,80

    div  ebx          ; eax /= 80

    mov  ecx,[lines]  ; ecx = lines in the file

    cmp  eax,ecx      ; if eax < ecx goto pfok

    jnb  still

    mov  eax,[slines] ; eax = lines on the screen

    dec  eax          ; eax--

;   imul eax,80       ; eax *= 80

    lea  eax,[eax+eax*4]

    shl  eax,4

    add  [post],eax   ; offset += eax

    mov  eax,[lines]  ; eax =  lines in the file

    sub  eax,[slines] ; eax -= lines on the screen

;   imul eax,80       ; eax *= 80

    lea  eax,[eax+eax*4]

    shl  eax,4

    cmp  [post],eax

    jb   @f

    mov  [post],eax

  @@:

    call clear_screen

    call drawfile

    call draw_vertical_scroll

;call calc_scroll_size_and_pos

    jmp  still

; PAGE_DOWN }

  nopd:

; HOME {

    cmp  al,132+48

    jnz  nohome