WebSVN – Kolibri OS – Diff – /programs/other/outdated/slovarik/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 '/sys/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 savefile file_name,file_save_area,file_temp_area,fsize
{
local save,fileinfo,string ;,counter00
    jmp save
;counter00 dd 0
fileinfo:
    dd 1
    dd 0
    dd fsize ;counter00
    dd file_save_area
    dd file_temp_area
string:
    db file_name,0
save:
;xor edi,edi
; sub edi,file_save_area    ; calculate dump size
; mov edx,edi
;mov [counter00],edi
;    mov  dword [fileinfo+8],1 ; how many blocks to write (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,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
    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 '/SYS/SYSXTREE',0
 
procinfo:
times 1024 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,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
;run_filepath:
 db '/SYS/SYSXTREE',0
 
procinfo:
times 1024 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
    words2reg ebx,x,y
 
    dword2reg ecx,color
    dword2reg edx,offs
    dword2reg esi,size
 
;    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
    words2reg 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
    words2reg ebx,arg1,arg3
    words2reg 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
    words2reg ebx,arg1,arg3
    words2reg ecx,arg2,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 putlabel 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
    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

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

Subversion Repositories Kolibri OS

(root)/programs/other/outdated/slovarik/ASCL.INC – Rev 3230 → 9587