Subversion Repositories Kolibri OS

;lang equ ru ; ru en fr ge fi

;

;   Assembler

;     SMALL

;       CODE

;         Libary

;

;  Ver 0.14 By Pavlushin Evgeni (RUSSIA)

;  www.waptap@mail.ru

;Please compile aplications on FASM ver1.54 or higer!!!

;InfoList

;0.01 scank,putpix,puttxt

;0.02 label,random,colors

;0.03 window,startwd,endwd,attributes

;0.04 close,delay,scevent ~30.04.2004

;0.05 small random, ~04.05.2004

;0.06 wtevent ~09.05.2004

;0.07 timeevent ~23.05.2004

;0.08 txtput ~14.06.2004

;0.09 opendialog,savedialog ~20.06.2004

;0.10 wordstoreg by halyavin, add at ~30.08.2004

; random bug deleted eax is use.

;0.11 loadfile from me +puttxt bug del ~07.09.2004

;0.12 open/save dialog ~13.09.2004

;0.13 dialogs bugs deleted

;0.14 drawlbut ~03.10.2004

;0.15 extendet label!

; LOADFILE

; (SYNTAX)  LOADFILE 'full_path_to_file',file_load_area,file_temp_area

; (SAMPLE)  LOADFILE '/rd/1/clock.bmp',load_area,temp_area

macro loadfile file_name,file_load_area,file_temp_area

{

local open,fileinfo,string

    jmp open

fileinfo:

    dd 0

    dd 0

    dd 1

    dd file_load_area

    dd file_temp_area

string:

    db file_name,0

open:

    mov  dword [fileinfo+8],1 ; how many blocks to read (1)

    mov  eax,58

    mov  ebx,fileinfo

    mcall

    mov  eax,[file_load_area+2]

    shr  eax,9 ; ¯®¤¥«¨¬ ­  512 ¨ ¯à¨¡ ¢¨¬ 1 - ¯®«ã稬 ç¨á«® ¡«®ª®¢

    inc  eax

    mov  dword [fileinfo+8],eax

    mov  eax,58

    mov  ebx,fileinfo

    mcall

}

macro wordstoreg reg,hiword,loword

{

if  hiword eqtype 0 & loword eqtype 0

    mov  reg,dword (hiword)*65536+(loword)

else if hiword eqtype 12 & loword eqtype eax

    mov  reg,dword (hiword)*65536

    add  reg,dword loword

else if hiword eqtype 12 & loword eqtype [123]

    mov  reg,dword (hiword)*65536

    add  reg,dword loword

else

    mov  reg,dword hiword

    shl  reg,16

    add  reg,dword loword

end if

}

macro dword2reg reg,doubleword

{

if doubleword eq

   ; not changes

else

   mov reg,dword doubleword

end if

}

macro words2reg reg,hiword,lowword

{

if hiword eq

   if lowword eq

      ; not changes

   else

      if lowword eqtype 12

         and reg,dword 0xffff0000

         add reg,dword lowword

      else

         and reg,dword 0xffff0000

         add reg,dword lowword

      end if

   end if

else

   if lowword eq

      if hiword eqtype 12

         and reg,dword 0x0000ffff

         add reg,dword hiword*65536

      else

         shl reg,16

         add reg,dword hiword

         ror reg,16

      end if

   else

      if lowword eqtype 12 & hiword eqtype 12

         if lowword eq 0 & hiword eq 0

               xor reg,reg

            else

               mov reg,dword hiword*65536+lowword

         end if

      else

         mov reg,dword hiword

         shl reg,16

         add reg,dword lowword

      end if

   end if

end if

}

; DRAW BUTTON with label

macro drawlbut x,y,xs,ys,text,id,bcolor,tcolor

{

local asd,lab

    jmp asd

lab db  text                 ;arg label

asd:

    words2reg ebx,x,xs

    words2reg ecx,y,ys

    mov edx,id

    mov esi,bcolor

    mov eax,8

    mcall

    mov eax,asd-lab          ;calc size

    mov ebx,6

    mul ebx

    mov esi,eax

    mov eax,xs

    sub eax,esi

    shr eax,1

    add eax,x

    mov edx,ys

    sub edx,7

    shr edx,1

    add edx,y

    mov ebx,eax

    shl ebx,16

    add ebx,edx

    mov ecx,tcolor             ;arg4 color

    mov edx,lab

    mov esi,asd-lab          ;calc size

    mov eax,4

    mcall

}

macro opendialog redproc,openoff,erroff,path

{

local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc

local run_fileinfo, param

local getmesloop, loox, mred, mkey, mbutton, mgetmes

local dlg_is_work, ready, procinfo

;

; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,

; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)

;

    cld

;;    mov esi,path

    mov edi,path

    mov eax,0

    mov ecx,200

    rep stosb

;mov [get_loops],0

mov [dlg_pid_get],0

; Get my PID in dec format 4 bytes

    mov eax,9

    mov ebx,procinfo

    mov ecx,-1

    mcall

; convert eax bin to param dec

    mov eax,dword [procinfo+30]  ;offset of myPID

    mov edi,param+4-1            ;offset to 4 bytes

    mov ecx,4

    mov ebx,10

    cld

new_d:

    xor edx,edx

    div ebx

    add dl,'0'

    mov [edi],dl

    dec edi

    loop new_d

; wirite 1 byte space to param

    mov [param+4],byte 32    ;Space for next parametr

; and 1 byte type of dialog to param

    mov [param+5],byte 'O'   ;Get Open dialog (Use 'S' for Save dialog)

;

; STEP2 prepare IPC area for get messages

;

; prepare IPC area

    mov [path],dword 0

    mov [path+4],dword 8

; define IPC memory

    mov eax,60

    mov ebx,1        ; define IPC

    mov ecx,path     ; offset of area

    mov edx,150      ; size 150 bytes

    mcall

; change wanted events list 7-bit IPC event

    mov eax,40

    mov ebx,01000111b

    mcall

;

; STEP 3 run SYSTEM XTREE with parameters

;

    mov eax,58

    mov ebx,run_fileinfo

    mcall

    call redproc

    mov [get_loops],0

getmesloop:

    mov eax,23

    mov ebx,50     ;0.5 sec

    mcall

    cmp eax,1

    je  mred

    cmp eax,2

    je  mkey

    cmp eax,3

    je  mbutton

    cmp eax,7

    je  mgetmes