Subversion Repositories Kolibri OS

;

;   RDsave ��� Kolibri (0.6.5.0 � ����)

;

;   Mario79 2005

;   Heavyiron 12.02.2007

;

;   �������஢��� FASM'��

;

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

include 'lang.inc'

include '..\..\..\macros.inc'

appname equ 'RDsave '

version equ '1.2'

  use32              ; ������� 32-���� ०�� ��ᥬ����

  org    0x0         ; ������ � ���

  db     'MENUET01'  ; 8-����� �����䨪��� MenuetOS

  dd     0x01        ; ����� ��������� (�ᥣ�� 1)

  dd     START       ; ���� ��ࢮ� �������

  dd     I_END       ; ࠧ��� �ணࠬ��

  dd     0x2000      ; ������⢮ �����

  dd     0x2000      ; ���� ���設� �����

  dd     0x0         ; ���� ���� ��� ��ࠬ��஢ (�� �ᯮ������)

  dd     0x0         ; ��१�ࢨ஢���

include '..\..\..\develop\examples\editbox\trunk\editbox.inc'

use_edit_box structure_of_potock,22,5

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

;---  ������ ���������  ----------------------------------------------

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

START:

   mov eax, 40

   mov ebx, 100111b

   mcall

red:                    ; ����ᮢ��� ����

    call draw_window    ; ��뢠�� ��楤��� ���ᮢ�� ����

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

;---  ���� ��������� �������  ----------------------------------------

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

still:

    push 10

    pop eax

    mcall

    dec  eax             ; ����ᮢ��� ����?

    jz   red             ; �᫨ �� - �� ���� red

    dec  eax

    jz   key

    dec  eax

    jz   button

mouse:

    mouse_edit_boxes editbox,editbox_end

    jmp still

button:

    mov  al,17           ; ������� �����䨪��� ����⮩ ������

    mcall

    cmp  ah,1            ; ������ � id=1("�������")?

    jne  noclose

    or   eax,-1          ; �㭪�� -1: �������� �ணࠬ��

    mcall

noclose:

    cmp  ah,2

    jne  path_2

    call clear_err

    mov  al,16

    mov  ebx,1

    mcall

    call check_for_error

    jmp  still

 path_2:

    cmp  ah,3

    jne  path_3

    call clear_err

    mov  al,16

    mov  ebx,2

    mcall

    call check_for_error

    jmp  still

 path_3:

    cmp  ah,4

    jne  path_4

    call clear_err

    mov  al,18

    mov  ebx,6

    mov  ecx,path3

    mcall

    call check_for_error

    jmp  still

 path_4:

    call clear_err

    mov  eax,18

    mov  ebx,6

    mov  ecx,path4

    mcall

    call check_for_error

    jmp  still

key:

    mov  al,2

    mcall

    key_edit_boxes editbox,editbox_end

    jmp  still

check_for_error:                      ;��ࠡ��稪 �訡��

    cmp eax,0

    jne err1

    mov ecx,[sc.work_text]

    mov edx,ok

    jmp print

 err1:

    cmp eax,1

    jne err3

    mov ecx,0xdd2222

    mov edx,error11

    jmp print

 err3:

    cmp eax,3

    jne err5

    mov ecx,0xdd2222

    mov edx,error3

    jmp print

 err5:

    cmp eax,5

    jne err8

    mov ecx,0xdd2222

    mov edx,error5

    jmp print

 err8:

    cmp eax,8

    jne err9

    mov ecx,0xdd2222

    mov edx,error8

    jmp print

 err9:

    cmp eax,9

    jne err10

    mov ecx,0xdd2222

    mov edx,error9

    jmp print

err10:

    cmp eax,10

    jne err11

    mov ecx,0xdd2222

    mov edx,error10

    jmp print

 err11:

    mov ecx,0xdd2222

    mov edx,error11

    jmp print

 print:

    mov eax,4                              ;������

    mov ebx,20 shl 16 + 148

    or  ecx,0x80000000

    mcall

    ret

clear_err:

    mov al,13

    mov ebx,15 shl 16 + 240

    mov ecx,145 shl 16 +15

    mov edx,[sc.work]

    mcall

    ret

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

;---  ����������� � ��������� ����  ----------------------------------

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

draw_window:

   mov  eax,48

   mov  ebx,3

   mov  ecx,sc

   mov  edx,sizeof.system_colors

   mcall

   mov eax,12                            ; �㭪�� 12: ᮮ���� �� �� ���ᮢ�� ����

   mov bl,1                              ; 1 - ��稭��� �ᮢ���

   mcall

                                         ; ������� ����

   xor eax,eax                           ; �㭪�� 0 : ��।����� � ���ᮢ��� ����

   mov ebx,200 shl 16 + 270              ; [x ����] *65536 + [x ࠧ���]

   mov ecx,200 shl 16 + 190              ; [y ����] *65536 + [y ࠧ���]

   mov edx,[sc.work]                     ; 梥� ࠡ�祩 ������  RRGGBB,8->color gl

   or  edx,0x33000000

   mov edi,title                        ; ��������� ����

   mcall

draw_edit_boxes editbox,editbox_end,use_f9,structure_of_potock  ;�ᮢ���� edit box'��

   mov al,13                             ;���ᮢ�� ⥭�� ������

   mov ebx,194 shl 16 + 60

   mov ecx,34 shl 16 +15

   mov edx,0x444444

   mcall

   add ecx,20 shl 16

   mcall

   add ecx,20 shl 16

   mcall

   add ecx,40 shl 16

   mcall

   mov eax,8                             ;���ᮢ�� ������

   sub ebx,4 shl 16

   sub ecx,4 shl 16

   mov edx,5

   mov esi,[sc.work_button]

   mcall

   sub ecx,40 shl 16

   dec edx

   mcall

   sub ecx,20 shl 16

   dec edx

   mcall

   sub ecx,20 shl 16

   dec edx

   mcall

   mov al,4                              ;������

   mov ebx,45 shl 16 + 12

   mov ecx,[sc.work_text]

   or  ecx,0x80000000

   mov edx,label1

   mcall

   mov ebx,150 shl 16 + 35

   mov edx,path1

   mcall

   add ebx,20

   mov edx,path2

   mcall

   mov ebx,75 shl 16 + 75

   mov edx,path3

   mcall

   mov ebx,30 shl 16 + 97

   mov edx,label2

   mcall

   mov ebx,40 shl 16 + 135

   mov edx,label3

   mcall

   mov ecx,[sc.work_button_text]

   or  ecx,0x80000000

   mov ebx,195 shl 16 + 35

   mov edx,save

   mcall

   add ebx,20

   mcall

   add ebx,20

   mcall

   add ebx,40

   mcall

   mov al,12                            ; �㭪�� 12: ᮮ���� �� �� ���ᮢ�� ����

   mov ebx,2                            ; 2, �����稫� �ᮢ���

   mcall

   ret                                  ; ��室�� �� ��楤���

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

;---  ������ ���������  ----------------------------------------------

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

title db appname,version,0

editbox:

edit1 edit_box 170,10,113,0xffffff,0xaabbcc,0,0,0,512,path4,ed_focus,26,26

editbox_end:

if lang eq ru

save    db '���࠭���',0

label1  db '�롥�� ���� �� ��ਠ�⮢:',0

label2  db '��� ������ ����� ���� � 䠩��:',0

label3  db '�� ����� ������ ����⢮����',0

ok      db 'RAM-��� ��࠭�� �ᯥ譮',0

error3  db '�������⭠� 䠩����� ��⥬�',0

error5  db '���������騩 ����',0

error8  db '��� ���� �� ��᪥',0

error9  db '������ FAT ࠧ��襭�',0

error10 db '����� ����饭',0

error11 db '�訡�� ���ன�⢠',0

else

save    db '  Save',0

label1  db 'Select one of the variants:',0

label2  db '   Or enter full path to file:',0

label3  db '    All folders must exist',0

ok      db 'RAM-drive was saved successfully',0

error3  db 'Unknown file system',0

error5  db 'Incorrect path',0

error8  db 'Disk is full',0

error9  db 'FAT table corrupted',0

error10 db 'Access denied',0

error11 db 'Device error',0

end if

mouse_flag: dd 0x0

path1   db '/fd/1/',0

path2   db '/fd/2/',0

path3   db '/hd0/1/kolibri.img',0

path4   db '/hd0/1/kolibri/kolibri.img',0  ;��� १�ࢭ��� ��࠭����

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

I_END:                             ; ��⪠ ���� �ணࠬ��

rb 514

sc     system_colors

structure_of_potock:

rb 100