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

Subversion Repositories Kolibri OS

(root)/programs/games/phenix/trunk/ascl.inc – Rev 539 → 551