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

; 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,(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

    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

; Get number of procces

    mov ebx,procinfo

    mov ecx,-1

    mov eax,9

    mcall

    mov ebp,eax

loox:

    mov eax,9

    mov ebx,procinfo

    mov ecx,ebp

    mcall

    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

    mcall                   ; read (eax=2)

    jmp  getmesloop

mbutton:

    mov  eax,17                 ; get id

    mcall

    cmp  ah,1                   ; button id=1 ?

    jne  getmesloop

    mov  eax,-1                 ; close this program

    mcall

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 '/sys/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

    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 '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

    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

; Get number of procces

    mov ebx,procinfo

    mov ecx,-1

    mov eax,9

    mcall

    mov ebp,eax

loox:

    mov eax,9

    mov ebx,procinfo

    mov ecx,ebp

    mcall

    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:

    mcall                   ; read (eax=2)

    jmp  getmesloop

mbutton:

    mov  eax,17                 ; get id

    mcall

    cmp  ah,1                   ; button id=1 ?

    jne  getmesloop

    mov  eax,-1                 ; close this program

    mcall

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 '/sys/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

    mcall

}

macro putpix x,y,color

{

    mov ebx,x

    mov ecx,y

    mov edx,color

    mov eax,1

    mcall

}

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

    mcall

}

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

    mcall

}

; SCEVENT - Scan event

macro scevent red,key,but

{

    mov eax,11

    mcall

    dec eax

    jz  red

    dec eax

    jz  key

    dec eax

    jz  but

}

; WTEVENT - Wait event

macro wtevent red,key,but

{

    mov eax,10

    mcall

    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

    mcall

    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

    mcall

}

; 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

    mcall

}

; 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

    mcall

}

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

    mcall

}

; STARTWD - Start of window draw

macro startwd

{

    mov eax,12

    mov ebx,1

    mcall

}

; ENDWD - End window draw

macro endwd

{

    mov eax,12

    mov ebx,2

    mcall

}

; 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

    mcall

}

;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