WebSVN – Kolibri OS – Diff – /programs/demos/trantest/trunk/ascl.inc


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

Rev 485	Rev 539
1	lang equ ru ; ru en fr ge fi	1	lang equ ru ; ru en fr ge fi
2		2
3	;	3	;
4	; Assembler	4	; Assembler
5	; SMALL	5	; SMALL
6	; CODE	6	; CODE
7	; Libary	7	; Libary
8	;	8	;
9	; Ver 0.14 By Pavlushin Evgeni (RUSSIA)	9	; Ver 0.14 By Pavlushin Evgeni (RUSSIA)
10	; www.waptap@mail.ru	10	; www.waptap@mail.ru
11		11
12	;Please compile aplications on FASM ver1.54 or higer!!!	12	;Please compile aplications on FASM ver1.54 or higer!!!
13		13
14	;InfoList	14	;InfoList
15	;0.01 scank,putpix,puttxt	15	;0.01 scank,putpix,puttxt
16	;0.02 label,random,colors	16	;0.02 label,random,colors
17	;0.03 window,startwd,endwd,attributes	17	;0.03 window,startwd,endwd,attributes
18	;0.04 close,delay,scevent ~30.04.2004	18	;0.04 close,delay,scevent ~30.04.2004
19	;0.05 small random, ~04.05.2004	19	;0.05 small random, ~04.05.2004
20	;0.06 wtevent ~09.05.2004	20	;0.06 wtevent ~09.05.2004
21	;0.07 timeevent ~23.05.2004	21	;0.07 timeevent ~23.05.2004
22	;0.08 txtput ~14.06.2004	22	;0.08 txtput ~14.06.2004
23	;0.09 opendialog,savedialog ~20.06.2004	23	;0.09 opendialog,savedialog ~20.06.2004
24	;0.10 wordstoreg by halyavin, add at ~30.08.2004	24	;0.10 wordstoreg by halyavin, add at ~30.08.2004
25	; random bug deleted eax is use.	25	; random bug deleted eax is use.
26	;0.11 loadfile from me +puttxt bug del ~07.09.2004	26	;0.11 loadfile from me +puttxt bug del ~07.09.2004
27	;0.12 open/save dialog ~13.09.2004	27	;0.12 open/save dialog ~13.09.2004
28	;0.13 dialogs bugs deleted	28	;0.13 dialogs bugs deleted
29	;0.14 drawlbut ~03.10.2004	29	;0.14 drawlbut ~03.10.2004
30		30
31	; LOADFILE	31	; LOADFILE
32	; (SYNTAX) LOADFILE 'full_path_to_file',file_load_area,file_temp_area	32	; (SYNTAX) LOADFILE 'full_path_to_file',file_load_area,file_temp_area
33	; (SAMPLE) LOADFILE '/rd/1/clock.bmp',load_area,temp_area	33	; (SAMPLE) LOADFILE '/rd/1/clock.bmp',load_area,temp_area
34		34
35	macro loadfile file_name,file_load_area,file_temp_area	35	macro loadfile file_name,file_load_area,file_temp_area
36	{	36	{
37	local open,fileinfo,string	37	local open,fileinfo,string
38	jmp open	38	jmp open
39	fileinfo:	39	fileinfo:
40	dd 0	40	dd 0
41	dd 0	41	dd 0
42	dd 1	42	dd 1
43	dd file_load_area	43	dd file_load_area
44	dd file_temp_area	44	dd file_temp_area
45	string:	45	string:
46	db file_name,0	46	db file_name,0
47	open:	47	open:
48	mov dword [fileinfo+8],1 ; how many blocks to read (1)	48	mov dword [fileinfo+8],1 ; how many blocks to read (1)
49	mov eax,58	49	mov eax,58
50	mov ebx,fileinfo	50	mov ebx,fileinfo
51	mcall	51	mcall
52	mov eax,[file_load_area+2]	52	mov eax,[file_load_area+2]
53	shr eax,9 ; ¯®¤¥«¨¬ 512 ¨ ¯à¨¡ ¢¨¬ 1 - ¯®«ãç¨¬ ç¨á«® ¡«®ª®¢	53	shr eax,9 ; ¯®¤¥«¨¬ 512 ¨ ¯à¨¡ ¢¨¬ 1 - ¯®«ãç¨¬ ç¨á«® ¡«®ª®¢
54	inc eax	54	inc eax
55	mov dword [fileinfo+8],eax	55	mov dword [fileinfo+8],eax
56	mov eax,58	56	mov eax,58
57	mov ebx,fileinfo	57	mov ebx,fileinfo
58	mcall	58	mcall
59	}	59	}
60		60
61		61
62	macro wordstoreg reg,hiword,loword	62	macro wordstoreg reg,hiword,loword
63	{	63	{
64	if hiword eqtype 0 & loword eqtype 0	64	if hiword eqtype 0 & loword eqtype 0
65	mov reg,(hiword)*65536+(loword)	65	mov reg,(hiword)*65536+(loword)
66	else if hiword eqtype 12 & loword eqtype eax	66	else if hiword eqtype 12 & loword eqtype eax
67	mov reg,(hiword)*65536	67	mov reg,(hiword)*65536
68	add reg,loword	68	add reg,loword
69	else if hiword eqtype 0 & loword eqtype [123]	69	else if hiword eqtype 0 & loword eqtype [123]
70	mov reg,(hiword)*65536	70	mov reg,(hiword)*65536
71	add reg,loword	71	add reg,loword
72	else if (hiword eq ) & (loword eq )	72	else if (hiword eq ) & (loword eq )
73	else	73	else
74	mov reg,hiword	74	mov reg,hiword
75	shl reg,16	75	shl reg,16
76	add reg,loword	76	add reg,loword
77	end if	77	end if
78	}	78	}
79		79
80		80
81	; DRAW BUTTON with label	81	; DRAW BUTTON with label
82		82
83	macro drawlbut x,y,xs,ys,text,id,bcolor,tcolor	83	macro drawlbut x,y,xs,ys,text,id,bcolor,tcolor
84	{	84	{
85	local asd,lab	85	local asd,lab
86	jmp asd	86	jmp asd
87	lab db text ;arg label	87	lab db text ;arg label
88	asd:	88	asd:
89	wordstoreg ebx,x,xs	89	wordstoreg ebx,x,xs
90	wordstoreg ecx,y,ys	90	wordstoreg ecx,y,ys
91	mov edx,id	91	mov edx,id
92	mov esi,bcolor	92	mov esi,bcolor
93	mov eax,8	93	mov eax,8
94	mcall	94	mcall
95		95
96	mov eax,asd-lab ;calc size	96	mov eax,asd-lab ;calc size
97	mov ebx,6	97	mov ebx,6
98	mul ebx	98	mul ebx
99	mov esi,eax	99	mov esi,eax
100		100
101	mov eax,xs	101	mov eax,xs
102	sub eax,esi	102	sub eax,esi
103	shr eax,1	103	shr eax,1
104	add eax,x	104	add eax,x
105		105
106	mov edx,ys	106	mov edx,ys
107	sub edx,7	107	sub edx,7
108	shr edx,1	108	shr edx,1
109	add edx,y	109	add edx,y
110		110
111	mov ebx,eax	111	mov ebx,eax
112	shl ebx,16	112	shl ebx,16
113	add ebx,edx	113	add ebx,edx
114		114
115	mov ecx,tcolor ;arg4 color	115	mov ecx,tcolor ;arg4 color
116	mov edx,lab	116	mov edx,lab
117	mov esi,asd-lab ;calc size	117	mov esi,asd-lab ;calc size
118	mov eax,4	118	mov eax,4
119	mcall	119	mcall
120	}	120	}
121		121
122		122
123	macro opendialog redproc,openoff,erroff,path	123	macro opendialog redproc,openoff,erroff,path
124	{	124	{
125	local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc	125	local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc
126	local run_fileinfo, param	126	local run_fileinfo, param
127	local getmesloop, loox, mred, mkey, mbutton, mgetmes	127	local getmesloop, loox, mred, mkey, mbutton, mgetmes
128	local dlg_is_work, ready, procinfo	128	local dlg_is_work, ready, procinfo
129	;	129	;
130	; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,	130	; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,
131	; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)	131	; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)
132	;	132	;
133		133
134	cld	134	cld
135	;; mov esi,path	135	;; mov esi,path
136	mov edi,path	136	mov edi,path
137	mov eax,0	137	mov eax,0
138	mov ecx,200	138	mov ecx,200
139	rep stosb	139	rep stosb
140		140
141	;mov [get_loops],0	141	;mov [get_loops],0
142	mov [dlg_pid_get],0	142	mov [dlg_pid_get],0
143		143
144	; Get my PID in dec format 4 bytes	144	; Get my PID in dec format 4 bytes
145	mov eax,9	145	mov eax,9
146	mov ebx,procinfo	146	mov ebx,procinfo
147	mov ecx,-1	147	mov ecx,-1
148	mcall	148	mcall
149		149
150	; convert eax bin to param dec	150	; convert eax bin to param dec
151	mov eax,dword [procinfo+30] ;offset of myPID	151	mov eax,dword [procinfo+30] ;offset of myPID
152	mov edi,param+4-1 ;offset to 4 bytes	152	mov edi,param+4-1 ;offset to 4 bytes
153	mov ecx,4	153	mov ecx,4
154	mov ebx,10	154	mov ebx,10
155	cld	155	cld
156	new_d:	156	new_d:
157	xor edx,edx	157	xor edx,edx
158	div ebx	158	div ebx
159	add dl,'0'	159	add dl,'0'
160	mov [edi],dl	160	mov [edi],dl
161	dec edi	161	dec edi
162	loop new_d	162	loop new_d
163		163
164	; wirite 1 byte space to param	164	; wirite 1 byte space to param
165	mov [param+4],byte 32 ;Space for next parametr	165	mov [param+4],byte 32 ;Space for next parametr
166	; and 1 byte type of dialog to param	166	; and 1 byte type of dialog to param
167	mov [param+5],byte 'O' ;Get Open dialog (Use 'S' for Save dialog)	167	mov [param+5],byte 'O' ;Get Open dialog (Use 'S' for Save dialog)
168		168
169	;	169	;
170	; STEP2 prepare IPC area for get messages	170	; STEP2 prepare IPC area for get messages
171	;	171	;
172		172
173	; prepare IPC area	173	; prepare IPC area
174	mov [path],dword 0	174	mov [path],dword 0
175	mov [path+4],dword 8	175	mov [path+4],dword 8
176		176
177	; define IPC memory	177	; define IPC memory
178	mov eax,60	178	mov eax,60
179	mov ebx,1 ; define IPC	179	mov ebx,1 ; define IPC
180	mov ecx,path ; offset of area	180	mov ecx,path ; offset of area
181	mov edx,150 ; size 150 bytes	181	mov edx,150 ; size 150 bytes
182	mcall	182	mcall
183		183
184	; change wanted events list 7-bit IPC event	184	; change wanted events list 7-bit IPC event
185	mov eax,40	185	mov eax,40
186	mov ebx,01000111b	186	mov ebx,01000111b
187	mcall	187	mcall
188		188
189	;	189	;
190	; STEP 3 run SYSTEM XTREE with parameters	190	; STEP 3 run SYSTEM XTREE with parameters
191	;	191	;
192		192
193	mov eax,58	193	mov eax,58
194	mov ebx,run_fileinfo	194	mov ebx,run_fileinfo
195	mcall	195	mcall
196		196
197	call redproc	197	call redproc
198		198
199	mov [get_loops],0	199	mov [get_loops],0
200	getmesloop:	200	getmesloop:
201	mov eax,23	201	mov eax,23
202	mov ebx,50 ;0.5 sec	202	mov ebx,50 ;0.5 sec
203	mcall	203	mcall
204		204
205	cmp eax,1	205	cmp eax,1
206	je mred	206	je mred
207	cmp eax,2	207	cmp eax,2
208	je mkey	208	je mkey
209	cmp eax,3	209	cmp eax,3
210	je mbutton	210	je mbutton
211	cmp eax,7	211	cmp eax,7
212	je mgetmes	212	je mgetmes
213		213
214	; Get number of procces	214	; Get number of procces
215	mov ebx,procinfo	215	mov ebx,procinfo
216	mov ecx,-1	216	mov ecx,-1
217	mov eax,9	217	mov eax,9
218	mcall	218	mcall
219	mov ebp,eax	219	mov ebp,eax
220		220
221	loox:	221	loox:
222	mov eax,9	222	mov eax,9
223	mov ebx,procinfo	223	mov ebx,procinfo
224	mov ecx,ebp	224	mov ecx,ebp
225	mcall	225	mcall
226	mov eax,[DLGPID]	226	mov eax,[DLGPID]
227	cmp [procinfo+30],eax ;IF Dialog find	227	cmp [procinfo+30],eax ;IF Dialog find
228	je dlg_is_work ;jmp to dlg_is_work	228	je dlg_is_work ;jmp to dlg_is_work
229	dec ebp	229	dec ebp
230	jnz loox	230	jnz loox
231		231
232	jmp erroff	232	jmp erroff
233		233
234	dlg_is_work:	234	dlg_is_work:
235	cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated	235	cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated
236	je erroff ;TESTODP2 terminated too	236	je erroff ;TESTODP2 terminated too
237		237
238	cmp [dlg_pid_get],dword 1	238	cmp [dlg_pid_get],dword 1
239	je getmesloop	239	je getmesloop
240	inc [get_loops]	240	inc [get_loops]
241	cmp [get_loops],4 ;2 sec if DLG_PID not get, TESTOP2 terminated	241	cmp [get_loops],4 ;2 sec if DLG_PID not get, TESTOP2 terminated
242	jae erroff	242	jae erroff
243	jmp getmesloop	243	jmp getmesloop
244		244
245	mred:	245	mred:
246	call redproc	246	call redproc
247	jmp getmesloop	247	jmp getmesloop
248	mkey:	248	mkey:
249	mov eax,2	249	mov eax,2
250	mcall ; read (eax=2)	250	mcall ; read (eax=2)
251	jmp getmesloop	251	jmp getmesloop
252	mbutton:	252	mbutton:
253	mov eax,17 ; get id	253	mov eax,17 ; get id
254	mcall	254	mcall
255	cmp ah,1 ; button id=1 ?	255	cmp ah,1 ; button id=1 ?
256	jne getmesloop	256	jne getmesloop
257	mov eax,-1 ; close this program	257	mov eax,-1 ; close this program
258	mcall	258	mcall
259	mgetmes:	259	mgetmes:
260		260
261	; If dlg_pid_get then second message get jmp to still	261	; If dlg_pid_get then second message get jmp to still
262	cmp [dlg_pid_get],dword 1	262	cmp [dlg_pid_get],dword 1
263	je ready	263	je ready
264		264
265	; First message is number of PID SYSXTREE dialog	265	; First message is number of PID SYSXTREE dialog
266		266
267	; convert PID dec to PID bin	267	; convert PID dec to PID bin
268	movzx eax,byte [path+16]	268	movzx eax,byte [path+16]
269	sub eax,48	269	sub eax,48
270	imul eax,10	270	imul eax,10
271	movzx ebx,byte [path+16+1]	271	movzx ebx,byte [path+16+1]
272	add eax,ebx	272	add eax,ebx
273	sub eax,48	273	sub eax,48
274	imul eax,10	274	imul eax,10
275	movzx ebx,byte [path+16+2]	275	movzx ebx,byte [path+16+2]
276	add eax,ebx	276	add eax,ebx
277	sub eax,48	277	sub eax,48
278	imul eax,10	278	imul eax,10
279	movzx ebx,byte [path+16+3]	279	movzx ebx,byte [path+16+3]
280	add eax,ebx	280	add eax,ebx
281	sub eax,48	281	sub eax,48
282	mov [DLGPID],eax	282	mov [DLGPID],eax
283		283
284	; Claear and prepare IPC area for next message	284	; Claear and prepare IPC area for next message
285	mov [path],dword 0	285	mov [path],dword 0
286	mov [path+4],dword 8	286	mov [path+4],dword 8
287	mov [path+8],dword 0	287	mov [path+8],dword 0
288	mov [path+12],dword 0	288	mov [path+12],dword 0
289	mov [path+16],dword 0	289	mov [path+16],dword 0
290		290
291	; Set dlg_pid_get for get next message	291	; Set dlg_pid_get for get next message
292	mov [dlg_pid_get],dword 1	292	mov [dlg_pid_get],dword 1
293	call redproc ;show DLG_PID	293	call redproc ;show DLG_PID
294	jmp getmesloop	294	jmp getmesloop
295		295
296	ready:	296	ready:
297	;	297	;
298	; The second message get	298	; The second message get
299	; Second message is 100 bytes path to SAVE/OPEN file	299	; Second message is 100 bytes path to SAVE/OPEN file
300	; shl path string on 16 bytes	300	; shl path string on 16 bytes
301	;	301	;
302	cld	302	cld
303	mov esi,path+16	303	mov esi,path+16
304	mov edi,path	304	mov edi,path
305	mov ecx,200	305	mov ecx,200
306	rep movsb	306	rep movsb
307	mov [edi],byte 0	307	mov [edi],byte 0
308		308
309	jmp openoff	309	jmp openoff
310		310
311		311
312	; DATA AREA	312	; DATA AREA
313	get_loops dd 0	313	get_loops dd 0
314	dlg_pid_get dd 0	314	dlg_pid_get dd 0
315	DLGPID dd 0	315	DLGPID dd 0
316		316
317	param:	317	param:
318	dd 0 ; My dec PID	318	dd 0 ; My dec PID
319	dd 0,0 ; Type of dialog	319	dd 0,0 ; Type of dialog
320		320
321	run_fileinfo:	321	run_fileinfo:
322	dd 16	322	dd 16
323	dd 0	323	dd 0
324	dd param	324	dd param
325	dd 0	325	dd 0
326	dd procinfo ; 0x10000	326	dd procinfo ; 0x10000
327	;run_filepath	327	;run_filepath
328	db '/RD/1/SYSXTREE',0	328	db '/sys/SYSXTREE',0
329		329
330	procinfo:	330	procinfo:
331	times 256 db 0	331	times 256 db 0
332	}	332	}
333		333
334		334
335	macro savedialog redproc,openoff,erroff,path	335	macro savedialog redproc,openoff,erroff,path
336	{	336	{
337	local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc	337	local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc
338	local run_fileinfo, run_filepath, param	338	local run_fileinfo, run_filepath, param
339	local getmesloop, loox, mred, mkey, mbutton, mgetmes	339	local getmesloop, loox, mred, mkey, mbutton, mgetmes
340	local dlg_is_work, ready, procinfo	340	local dlg_is_work, ready, procinfo
341	;	341	;
342	; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,	342	; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,
343	; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)	343	; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)
344	;	344	;
345		345
346	cld	346	cld
347	;; mov esi,path	347	;; mov esi,path
348	mov edi,path	348	mov edi,path
349	mov eax,0	349	mov eax,0
350	mov ecx,200	350	mov ecx,200
351	rep stosb	351	rep stosb
352		352
353	;mov [get_loops],0	353	;mov [get_loops],0
354	mov [dlg_pid_get],0	354	mov [dlg_pid_get],0
355		355
356	; Get my PID in dec format 4 bytes	356	; Get my PID in dec format 4 bytes
357	mov eax,9	357	mov eax,9
358	mov ebx,procinfo	358	mov ebx,procinfo
359	mov ecx,-1	359	mov ecx,-1
360	mcall	360	mcall
361		361
362	; convert eax bin to param dec	362	; convert eax bin to param dec
363	mov eax,dword [procinfo+30] ;offset of myPID	363	mov eax,dword [procinfo+30] ;offset of myPID
364	mov edi,param+4-1 ;offset to 4 bytes	364	mov edi,param+4-1 ;offset to 4 bytes
365	mov ecx,4	365	mov ecx,4
366	mov ebx,10	366	mov ebx,10
367	cld	367	cld
368	new_d:	368	new_d:
369	xor edx,edx	369	xor edx,edx
370	div ebx	370	div ebx
371	add dl,'0'	371	add dl,'0'
372	mov [edi],dl	372	mov [edi],dl
373	dec edi	373	dec edi
374	loop new_d	374	loop new_d
375		375
376	; wirite 1 byte space to param	376	; wirite 1 byte space to param
377	mov [param+4],byte 32 ;Space for next parametr	377	mov [param+4],byte 32 ;Space for next parametr
378	; and 1 byte type of dialog to param	378	; and 1 byte type of dialog to param
379	mov [param+5],byte 'S' ;Get Open dialog (Use 'S' for Save dialog)	379	mov [param+5],byte 'S' ;Get Open dialog (Use 'S' for Save dialog)
380		380
381	;	381	;
382	; STEP2 prepare IPC area for get messages	382	; STEP2 prepare IPC area for get messages
383	;	383	;
384		384
385	; prepare IPC area	385	; prepare IPC area
386	mov [path],dword 0	386	mov [path],dword 0
387	mov [path+4],dword 8	387	mov [path+4],dword 8
388		388
389	; define IPC memory	389	; define IPC memory
390	mov eax,60	390	mov eax,60
391	mov ebx,1 ; define IPC	391	mov ebx,1 ; define IPC
392	mov ecx,path ; offset of area	392	mov ecx,path ; offset of area
393	mov edx,120 ; size 150 bytes	393	mov edx,120 ; size 150 bytes
394	mcall	394	mcall
395		395
396	; change wanted events list 7-bit IPC event	396	; change wanted events list 7-bit IPC event
397	mov eax,40	397	mov eax,40
398	mov ebx,01000111b	398	mov ebx,01000111b
399	mcall	399	mcall
400		400
401	;	401	;
402	; STEP 3 run SYSTEM XTREE with parameters	402	; STEP 3 run SYSTEM XTREE with parameters
403	;	403	;
404		404
405	mov eax,58	405	mov eax,58
406	mov ebx,run_fileinfo	406	mov ebx,run_fileinfo
407	mcall	407	mcall
408		408
409	call redproc	409	call redproc
410		410
411	mov [get_loops],0	411	mov [get_loops],0
412	getmesloop:	412	getmesloop:
413	mov eax,23	413	mov eax,23
414	mov ebx,50 ;0.5 sec	414	mov ebx,50 ;0.5 sec
415	mcall	415	mcall
416		416
417	cmp eax,1	417	cmp eax,1
418	je mred	418	je mred
419	cmp eax,2	419	cmp eax,2
420	je mkey	420	je mkey
421	cmp eax,3	421	cmp eax,3
422	je mbutton	422	je mbutton
423	cmp eax,7	423	cmp eax,7
424	je mgetmes	424	je mgetmes
425		425
426	; Get number of procces	426	; Get number of procces
427	mov ebx,procinfo	427	mov ebx,procinfo
428	mov ecx,-1	428	mov ecx,-1
429	mov eax,9	429	mov eax,9
430	mcall	430	mcall
431	mov ebp,eax	431	mov ebp,eax
432		432
433	loox:	433	loox:
434	mov eax,9	434	mov eax,9
435	mov ebx,procinfo	435	mov ebx,procinfo
436	mov ecx,ebp	436	mov ecx,ebp
437	mcall	437	mcall
438	mov eax,[DLGPID]	438	mov eax,[DLGPID]
439	cmp [procinfo+30],eax ;IF Dialog find	439	cmp [procinfo+30],eax ;IF Dialog find
440	je dlg_is_work ;jmp to dlg_is_work	440	je dlg_is_work ;jmp to dlg_is_work
441	dec ebp	441	dec ebp
442	jnz loox	442	jnz loox
443		443
444	jmp erroff	444	jmp erroff
445		445
446	dlg_is_work:	446	dlg_is_work:
447	cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated	447	cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated
448	je erroff ;TESTODP2 terminated too	448	je erroff ;TESTODP2 terminated too
449		449
450	cmp [dlg_pid_get],dword 1	450	cmp [dlg_pid_get],dword 1
451	je getmesloop	451	je getmesloop
452	inc [get_loops]	452	inc [get_loops]
453	cmp [get_loops],4 ;2 sec if DLG_PID not get, TESTOP2 terminated	453	cmp [get_loops],4 ;2 sec if DLG_PID not get, TESTOP2 terminated
454	jae erroff	454	jae erroff
455	jmp getmesloop	455	jmp getmesloop
456		456
457	mred:	457	mred:
458	call redproc	458	call redproc
459	jmp getmesloop	459	jmp getmesloop
460	mkey:	460	mkey:
461	mcall ; read (eax=2)	461	mcall ; read (eax=2)
462	jmp getmesloop	462	jmp getmesloop
463	mbutton:	463	mbutton:
464	mov eax,17 ; get id	464	mov eax,17 ; get id
465	mcall	465	mcall
466	cmp ah,1 ; button id=1 ?	466	cmp ah,1 ; button id=1 ?
467	jne getmesloop	467	jne getmesloop
468	mov eax,-1 ; close this program	468	mov eax,-1 ; close this program
469	mcall	469	mcall
470	mgetmes:	470	mgetmes:
471		471
472	; If dlg_pid_get then second message get jmp to still	472	; If dlg_pid_get then second message get jmp to still
473	cmp [dlg_pid_get],dword 1	473	cmp [dlg_pid_get],dword 1
474	je ready	474	je ready
475		475
476	; First message is number of PID SYSXTREE dialog	476	; First message is number of PID SYSXTREE dialog
477		477
478	; convert PID dec to PID bin	478	; convert PID dec to PID bin
479	movzx eax,byte [path+16]	479	movzx eax,byte [path+16]
480	sub eax,48	480	sub eax,48
481	imul eax,10	481	imul eax,10
482	movzx ebx,byte [path+16+1]	482	movzx ebx,byte [path+16+1]
483	add eax,ebx	483	add eax,ebx
484	sub eax,48	484	sub eax,48
485	imul eax,10	485	imul eax,10
486	movzx ebx,byte [path+16+2]	486	movzx ebx,byte [path+16+2]
487	add eax,ebx	487	add eax,ebx
488	sub eax,48	488	sub eax,48
489	imul eax,10	489	imul eax,10
490	movzx ebx,byte [path+16+3]	490	movzx ebx,byte [path+16+3]
491	add eax,ebx	491	add eax,ebx
492	sub eax,48	492	sub eax,48
493	mov [DLGPID],eax	493	mov [DLGPID],eax
494		494
495	; Claear and prepare IPC area for next message	495	; Claear and prepare IPC area for next message
496	mov [path],dword 0	496	mov [path],dword 0
497	mov [path+4],dword 8	497	mov [path+4],dword 8
498	mov [path+8],dword 0	498	mov [path+8],dword 0
499	mov [path+12],dword 0	499	mov [path+12],dword 0
500	mov [path+16],dword 0	500	mov [path+16],dword 0

Subversion Repositories Kolibri OS

(root)/programs/demos/trantest/trunk/ascl.inc @ 485 – Rev 485 → 539