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 ; 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 int 0x40 mov eax,[file_load_area+2] shr eax,9 ; поделим на 512 и прибавим 1 - получим число блоков inc eax mov dword [fileinfo+8],eax mov eax,58 mov ebx,fileinfo int 0x40 } macro wordstoreg reg,hiword,loword { if hiword eqtype 0 & loword eqtype 0 mov reg,(hiword)*65536+(loword) else if hiword eqtype 12 & loword eqtype eax mov reg,(hiword)*65536 add reg,loword else if hiword eqtype 0 & loword eqtype [123] mov reg,(hiword)*65536 add reg,loword else if (hiword eq ) & (loword eq ) else mov reg,hiword shl reg,16 add reg,loword 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: wordstoreg ebx,x,xs wordstoreg ecx,y,ys mov edx,id mov esi,bcolor mov eax,8 int 0x40 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 int 0x40 } 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 int 0x40 ; 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 int 0x40 ; change wanted events list 7-bit IPC event mov eax,40 mov ebx,01000111b int 0x40 ; ; STEP 3 run SYSTEM XTREE with parameters ; mov eax,58 mov ebx,run_fileinfo int 0x40 call redproc mov [get_loops],0 getmesloop: mov eax,23 mov ebx,50 ;0.5 sec int 0x40 cmp eax,1 je mred cmp eax,2 je mkey cmp eax,3 je mbutton cmp eax,7 je mgetmes ; Get number of procces mov ebx,procinfo mov ecx,-1 mov eax,9 int 0x40 mov ebp,eax loox: mov eax,9 mov ebx,procinfo mov ecx,ebp int 0x40 mov eax,[DLGPID] cmp [procinfo+30],eax ;IF Dialog find je dlg_is_work ;jmp to dlg_is_work dec ebp jnz loox jmp erroff dlg_is_work: cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated je erroff ;TESTODP2 terminated too cmp [dlg_pid_get],dword 1 je getmesloop inc [get_loops] cmp [get_loops],4 ;2 sec if DLG_PID not get, TESTOP2 terminated jae erroff jmp getmesloop mred: call redproc jmp getmesloop mkey: mov eax,2 int 0x40 ; read (eax=2) jmp getmesloop mbutton: mov eax,17 ; get id int 0x40 cmp ah,1 ; button id=1 ? jne getmesloop mov eax,-1 ; close this program int 0x40 mgetmes: ; If dlg_pid_get then second message get jmp to still cmp [dlg_pid_get],dword 1 je ready ; First message is number of PID SYSXTREE dialog ; convert PID dec to PID bin movzx eax,byte [path+16] sub eax,48 imul eax,10 movzx ebx,byte [path+16+1] add eax,ebx sub eax,48 imul eax,10 movzx ebx,byte [path+16+2] add eax,ebx sub eax,48 imul eax,10 movzx ebx,byte [path+16+3] add eax,ebx sub eax,48 mov [DLGPID],eax ; Claear and prepare IPC area for next message mov [path],dword 0 mov [path+4],dword 8 mov [path+8],dword 0 mov [path+12],dword 0 mov [path+16],dword 0 ; Set dlg_pid_get for get next message mov [dlg_pid_get],dword 1 call redproc ;show DLG_PID jmp getmesloop ready: ; ; The second message get ; Second message is 100 bytes path to SAVE/OPEN file ; shl path string on 16 bytes ; cld mov esi,path+16 mov edi,path mov ecx,200 rep movsb mov [edi],byte 0 jmp openoff ; DATA AREA get_loops dd 0 dlg_pid_get dd 0 DLGPID dd 0 param: dd 0 ; My dec PID dd 0,0 ; Type of dialog run_fileinfo: dd 16 dd 0 dd param dd 0 dd procinfo ; 0x10000 ;run_filepath db '/RD/1/SYSXTREE',0 procinfo: times 256 db 0 } macro savedialog redproc,openoff,erroff,path { local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc local run_fileinfo, run_filepath, 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 int 0x40 ; 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 'S' ;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,120 ; size 150 bytes int 0x40 ; change wanted events list 7-bit IPC event mov eax,40 mov ebx,01000111b int 0x40 ; ; STEP 3 run SYSTEM XTREE with parameters ; mov eax,58 mov ebx,run_fileinfo int 0x40 call redproc mov [get_loops],0 getmesloop: mov eax,23 mov ebx,50 ;0.5 sec int 0x40 cmp eax,1 je mred cmp eax,2 je mkey cmp eax,3 je mbutton cmp eax,7 je mgetmes ; Get number of procces mov ebx,procinfo mov ecx,-1 mov eax,9 int 0x40 mov ebp,eax loox: mov eax,9 mov ebx,procinfo mov ecx,ebp int 0x40 mov eax,[DLGPID] cmp [procinfo+30],eax ;IF Dialog find je dlg_is_work ;jmp to dlg_is_work dec ebp jnz loox jmp erroff dlg_is_work: cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated je erroff ;TESTODP2 terminated too cmp [dlg_pid_get],dword 1 je getmesloop inc [get_loops] cmp [get_loops],4 ;2 sec if DLG_PID not get, TESTOP2 terminated jae erroff jmp getmesloop mred: call redproc jmp getmesloop mkey: int 0x40 ; read (eax=2) jmp getmesloop mbutton: mov eax,17 ; get id int 0x40 cmp ah,1 ; button id=1 ? jne getmesloop mov eax,-1 ; close this program int 0x40 mgetmes: ; If dlg_pid_get then second message get jmp to still cmp [dlg_pid_get],dword 1 je ready ; First message is number of PID SYSXTREE dialog ; convert PID dec to PID bin movzx eax,byte [path+16] sub eax,48 imul eax,10 movzx ebx,byte [path+16+1] add eax,ebx sub eax,48 imul eax,10 movzx ebx,byte [path+16+2] add eax,ebx sub eax,48 imul eax,10 movzx ebx,byte [path+16+3] add eax,ebx sub eax,48 mov [DLGPID],eax ; Claear and prepare IPC area for next message mov [path],dword 0 mov [path+4],dword 8 mov [path+8],dword 0 mov [path+12],dword 0 mov [path+16],dword 0 ; Set dlg_pid_get for get next message mov [dlg_pid_get],dword 1 call redproc ;show DLG_PID jmp getmesloop ready: ; ; The second message get ; Second message is 100 bytes path to SAVE/OPEN file ; shl path string on 16 bytes ; cld mov esi,path+16 mov edi,path mov ecx,200 rep movsb mov [edi],byte 0 jmp openoff ; DATA AREA get_loops dd 0 dlg_pid_get dd 0 DLGPID dd 0 param: rb 4 ; My dec PID rb 6 ; Type of dialog run_fileinfo: dd 16 dd 0 dd param dd 0 dd procinfo run_filepath: db '/RD/1/SYSXTREE',0 procinfo: times 256 db 0 } ; RANDOM - generate random count (small) ; (SYNTAX) RANDOM MaxCount,OutArgument ; (SAMPLE) RANDOM 10000,eax ; ( NOTE ) Maxint<65536 ; use random 65536,eax for more combinations randomuse = 0 macro random arg1,arg2 { local rxproc randomuse = randomuse + 1 jmp rxproc if defined randomuse & randomuse = 1 randomproc: jmp rnj rsx1 dw 0x4321 rsx2 dw 0x1234 rnj: ; mov eax,arg1 push bx push cx push dx push si push di mov cx,ax mov ax,word ptr rsx1 mov bx,word ptr rsx2 mov si,ax mov di,bx mov dl,ah mov ah,al mov al,bh mov bh,bl xor bl,bl rcr dl,1 rcr ax,1 rcr bx,1 add bx,di adc ax,si add bx,0x62e9 adc ax,0x3619 mov word ptr rsx1,bx mov word ptr rsx2,ax xor dx,dx cmp ax,0 je nodiv cmp cx,0 je nodiv div cx nodiv: mov ax,dx pop di pop si pop dx pop cx pop bx and eax,0000ffffh ; mov arg2,0 ; mov arg2,eax ret end if rxproc: mov eax,arg1 call randomproc mov arg2,eax } macro scank { mov eax,10 int 0x40 } macro putpix x,y,color { mov ebx,x mov ecx,y mov edx,color mov eax,1 int 0x40 } macro puttxt x,y,offs,size,color { ; mov ebx,x ; shl ebx,16 ; add ebx,y wordstoreg ebx,x,y mov ecx,color mov edx,offs mov esi,size mov eax,4 int 0x40 } macro outcount data, x, y, color, numtype { mov ecx,data mov ebx,numtype mov bl,0 ; mov edx,x*65536+y wordstoreg edx,x,y mov esi,color mov eax,47 int 0x40 } ; SCEVENT - Scan event macro scevent red,key,but { mov eax,11 int 0x40 dec eax jz red dec eax jz key dec eax jz but } ; WTEVENT - Wait event macro wtevent red,key,but { mov eax,10 int 0x40 dec eax jz red dec eax jz key dec eax jz but } ; TIMEEVENT - Wite for event with timeout macro timeevent xfps,noevent,red,key,but { mov eax,23 mov ebx,xfps int 0x40 cmp eax,0 je noevent dec eax jz red dec eax jz key dec eax jz but } ; CLOSE - Close program macro close { mov eax,-1 int 0x40 } ; DELAY - Create delay 1/100 sec ; (SYNTAX) Delay time ; (SAMPLE) Delay 100 ;delay 2 sec 1/100*200=2 sec macro delay arg1 { mov eax,5 mov ebx,arg1 int 0x40 } ; WINDOW - Draw window ; (SYNTAX) WINDOW Xstart,Ystart,'Text',Color ; (SAMPLE) WINDOW 10,10,640+8,480+24,window_Skinned macro window arg1,arg2,arg3,arg4,arg5 { ; mov ebx,arg1*65536+arg3 ; mov ecx,arg2*65536+arg4 wordstoreg ebx,arg1,arg3 wordstoreg ecx,arg2,arg4 mov edx,arg5 mov eax,0 int 0x40 } macro colorwindow arg1,arg2,arg3,arg4,arg5,arg6,arg7 { mov ebx,arg1*65536+arg3 mov ecx,arg2*65536+arg4 mov edx,arg5 mov esi,arg6 mov edi,arg7 mov eax,0 int 0x40 } ; STARTWD - Start of window draw macro startwd { mov eax,12 mov ebx,1 int 0x40 } ; ENDWD - End window draw macro endwd { mov eax,12 mov ebx,2 int 0x40 } ; LABEL - Put text to frame ; (SYNTAX) LABEL Xstart,Ystart,'Text',Color ; (SAMPLE) LABEL 10,12,'Hello World!',cl_Green+font_Big macro label arg1,arg2,arg3,arg4 { local asd,lab jmp asd lab db arg3 ;arg label asd: ; mov ebx,arg1 ;arg1=y arg2=x ; shl ebx,16 ; add ebx,arg2 wordstoreg ebx,arg1,arg2 if ~(arg4 eq ) mov ecx,arg4 ;arg4 color end if mov edx,lab mov esi,asd-lab ;calc size mov eax,4 int 0x40 } ;Key's key_Up equ 178 key_Down equ 177 key_Right equ 179 key_Left equ 176 key_Esc equ 27 key_Space equ 32 key_Enter equ 13 key_Bspace equ 8 key_F1 equ 50 key_F2 equ 51 key_F3 equ 52 key_F4 equ 53 key_F5 equ 54 key_F6 equ 55 key_F7 equ 56 key_F8 equ 57 key_F9 equ 48 key_F10 equ 49 key_F11 equ 68 key_F12 equ 255 key_Home equ 180 key_End equ 181 key_PgUp equ 184 key_PgDown equ 183 ;Attributes ;Window Attributes window_Skinned equ 0x03000000 window_Type2 equ 0x02000000 window_Type1 equ 0x00000000 window_Reserve equ 0x01000000 ;Font Attributes font_Big equ 0x10000000 ;Colors cl_White equ 0x00ffffff cl_Black equ 0x00000000 cl_Grey equ 0x00888888 cl_Red equ 0x00ff0000 cl_Lime equ 0x0000ff00 cl_Green equ 0x0000af00 cl_Blue equ 0x000000ff cl_Purple equ 0x008080ff cl_Violet equ 0x008040ff cl_Cyan equ 0x0040e0ff