forked from KolibriOS/kolibrios
500 lines
7.9 KiB
PHP
500 lines
7.9 KiB
PHP
lang equ ru_RU ; ru_RU en_US fr_FR de_DE fi_FI
|
|
|
|
;
|
|
; Assembler
|
|
; SMALL
|
|
; CODE
|
|
; Libary
|
|
;
|
|
; Ver 0.09 By Pavlushin Evgeni (RUSSIA)
|
|
; www.waptap@mail.ru
|
|
|
|
;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
|
|
|
|
macro opendialog redproc,openoff,erroff,path,testtime
|
|
{
|
|
local still, dlg_file, clip_file, redwait
|
|
local button, key, red, zzz, still, zzz2, incf, file_is_open, zzz3
|
|
|
|
mov ecx,200
|
|
zzz3:
|
|
mov byte [path+ecx-1],0
|
|
loop zzz3
|
|
|
|
dec byte [clip_file+7]
|
|
incf:
|
|
inc byte [clip_file+7]
|
|
mov eax,6
|
|
mov ebx,clip_file
|
|
mov ecx,0
|
|
or edx,-1
|
|
mov esi,path
|
|
mcall
|
|
cmp byte [clip_file+7],'Z'
|
|
je erroff
|
|
cmp eax,0xffffffff
|
|
jne incf
|
|
|
|
mov ecx,200
|
|
zzz2:
|
|
mov byte [path+ecx],0
|
|
loop zzz2
|
|
|
|
mov ebx,clip_file
|
|
mov ecx,path
|
|
mov edx,100
|
|
mov esi,0
|
|
mov eax,33
|
|
mcall
|
|
|
|
mov ebx,dlg_file
|
|
mov ecx,clip_file
|
|
mov eax,19
|
|
mcall
|
|
|
|
still:
|
|
scevent red,key,button
|
|
cmp byte [path],0
|
|
jne file_is_open
|
|
cmp dword [redwait],testtime ;20
|
|
jnae zzz
|
|
mov eax,6
|
|
mov ebx,clip_file
|
|
mov ecx,0
|
|
mov edx,-1
|
|
mov esi,path
|
|
mcall
|
|
cmp eax,0xffffffff
|
|
je erroff ;errexit
|
|
mov dword [redwait],0
|
|
zzz:
|
|
delay 5
|
|
inc dword [redwait]
|
|
jmp still
|
|
|
|
file_is_open:
|
|
mov eax,32
|
|
mov ebx,clip_file
|
|
mcall
|
|
jmp openoff
|
|
|
|
key: ; key
|
|
mcall ; read (eax=2)
|
|
jmp still
|
|
button: ; button
|
|
mov eax,17 ; get id
|
|
mcall
|
|
cmp ah,1 ; button id=1 ?
|
|
jne still
|
|
mov eax,-1 ; close this program
|
|
mcall
|
|
|
|
red:
|
|
call redproc
|
|
jmp still
|
|
|
|
dlg_file db 'SYSXTREE '
|
|
clip_file db 'OPENCLPACLP'
|
|
db 'O' ;Dialog type O-open S-save
|
|
db 0 ;Marker
|
|
redwait dd 0
|
|
}
|
|
|
|
macro savedialog redproc,openoff,erroff,path,testtime
|
|
{
|
|
local still, dlg_file, clip_file, redwait, zzz3
|
|
local button, key, red, zzz, still, zzz2, incf, file_is_open
|
|
|
|
mov ecx,200
|
|
zzz3:
|
|
mov byte [path+ecx-1],0
|
|
loop zzz3
|
|
|
|
dec byte [clip_file+7]
|
|
incf:
|
|
inc byte [clip_file+7]
|
|
mov eax,6
|
|
mov ebx,clip_file
|
|
mov ecx,0
|
|
mov edx,-1
|
|
mov esi,path
|
|
mcall
|
|
cmp byte [clip_file+7],'Z'
|
|
je erroff
|
|
cmp eax,0xffffffff
|
|
jne incf
|
|
|
|
mov ecx,200
|
|
zzz2:
|
|
mov byte [path+ecx],0
|
|
loop zzz2
|
|
|
|
mov ebx,clip_file
|
|
mov ecx,path
|
|
mov edx,100
|
|
mov esi,0
|
|
mov eax,33
|
|
mcall
|
|
|
|
mov ebx,dlg_file
|
|
mov ecx,clip_file
|
|
mov eax,19
|
|
mcall
|
|
|
|
still:
|
|
scevent red,key,button
|
|
cmp byte [path],0
|
|
jne file_is_open
|
|
cmp dword [redwait],testtime ;20
|
|
jnae zzz
|
|
mov eax,6
|
|
mov ebx,clip_file
|
|
mov ecx,0
|
|
mov edx,-1
|
|
mov esi,path
|
|
mcall
|
|
cmp eax,0xffffffff
|
|
je erroff ;errexit
|
|
mov dword [redwait],0
|
|
zzz:
|
|
delay 5
|
|
inc dword [redwait]
|
|
jmp still
|
|
|
|
file_is_open:
|
|
mov eax,32
|
|
mov ebx,clip_file
|
|
mcall
|
|
jmp openoff
|
|
|
|
key: ; key
|
|
mcall ; read (eax=2)
|
|
jmp still
|
|
button: ; button
|
|
mov eax,17 ; get id
|
|
mcall
|
|
cmp ah,1 ; button id=1 ?
|
|
jne still
|
|
mov eax,-1 ; close this program
|
|
mcall
|
|
|
|
red:
|
|
call redproc
|
|
jmp still
|
|
|
|
dlg_file db 'SYSXTREE '
|
|
clip_file db 'SAVECLPACLP'
|
|
db 'S' ;Dialog type O-open S-save
|
|
db 0 ;Marker
|
|
redwait dd 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
|
|
; mov arg2,0
|
|
; mov arg2,eax
|
|
ret
|
|
end if
|
|
|
|
rxproc:
|
|
mov eax,arg1
|
|
call randomproc
|
|
mov arg2,0
|
|
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
|
|
mov ecx,color
|
|
mov edx,offs
|
|
mov esi,size
|
|
mov eax,4
|
|
mcall
|
|
}
|
|
|
|
;_ equ '____'
|
|
|
|
;macro libtest x,y,color
|
|
;{
|
|
;if x = as dword
|
|
; mov ebx,x
|
|
;end if
|
|
; mov ecx,y
|
|
; mov edx,color
|
|
; mov eax,1
|
|
; mcall
|
|
;}
|
|
|
|
|
|
macro outcount data, x, y, color, numtype
|
|
{
|
|
mov ecx,data
|
|
mov ebx,numtype
|
|
mov bl,0
|
|
mov edx,x*65536+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
|
|
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
|
|
mov ecx,arg4 ;arg4 color
|
|
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
|