forked from KolibriOS/kolibrios
573 lines
12 KiB
PHP
573 lines
12 KiB
PHP
;lang equ ru ; ru en fr ge fi
|
|
|
|
;
|
|
; Assembler
|
|
; SMALL
|
|
; CODE
|
|
; Libary
|
|
;
|
|
; Ver 0.17 (for FASM v1.54 or higer)
|
|
;
|
|
|
|
macro movt op1,op2
|
|
{
|
|
if op2 eq
|
|
;display 'not set'
|
|
else
|
|
if op1 eq op2
|
|
display '+'
|
|
;display 'skip mov ' # `op1 # ',' # `op2 , 10,13
|
|
else
|
|
mov op1,op2
|
|
end if
|
|
end if
|
|
}
|
|
|
|
macro clear_buffer buffer, buf_size, value
|
|
{
|
|
movt edi,buffer ; edi = buffer adress
|
|
movt ecx,buf_size ; ecx = buffer size
|
|
movt al,value
|
|
call clear_buffer_proc
|
|
|
|
if ~ defined clear_buffer_used
|
|
clear_buffer_used equ 1
|
|
jmp @f
|
|
clear_buffer_proc:
|
|
mov ah,al
|
|
push ax
|
|
shl eax,16
|
|
pop ax ; eax = al:al:al:al
|
|
push ecx
|
|
shr ecx,2 ; ecx = ecx/4 when we use stosd
|
|
cld ; set direction flag
|
|
rep stosd
|
|
pop ecx
|
|
and ecx,011b ; last two bits
|
|
rep stosb
|
|
ret
|
|
@@:
|
|
end if
|
|
}
|
|
|
|
; draw_button - function for draw button with label placed at center
|
|
|
|
macro draw_button button_id,x,y,xs,ys,text,button_color,text_color
|
|
{
|
|
local end_of_data,label
|
|
jmp end_of_data
|
|
label db text ;arg label
|
|
end_of_data:
|
|
words2reg ebx,x,xs ; ebx = x * 65536 + xsize
|
|
words2reg ecx,y,ys ; ecx = y * 65536 + ysize
|
|
mov edx,button_id
|
|
mov esi,button_color
|
|
push dword end_of_data-label
|
|
push dword text_color
|
|
push dword label
|
|
call draw_button_proc
|
|
if ~ defined draw_button_used
|
|
draw_button_used equ 1
|
|
jmp @f
|
|
draw_button_proc:
|
|
mov eax,8 ; eax = 8 add button function
|
|
mcall
|
|
|
|
mov esi,[esp+12] ; esi = lenght of label
|
|
mov eax,esi
|
|
mov edx,6 ; 6 - width of one char
|
|
mul edx ; eax = size of label in pixels (chars number * 6)
|
|
|
|
sub bx,ax
|
|
shr bx,1
|
|
mov edi,ebx
|
|
shr edi,16
|
|
add bx,di
|
|
|
|
sub cx,7
|
|
shr cx,1
|
|
mov edi,ecx
|
|
shr edi,16
|
|
add cx,di
|
|
|
|
shl ebx,16
|
|
mov bx,cx ; ebx = bx * 65536 + edx
|
|
|
|
mov ecx,[esp+8] ; text color
|
|
mov edx,[esp+4] ; set address of label
|
|
mov eax,4 ; eax = 4 draw label function
|
|
mcall
|
|
ret 3*4
|
|
@@:
|
|
end if
|
|
}
|
|
|
|
; scan_event - Scan event without wait
|
|
macro scan_event redraw,key,button
|
|
{
|
|
mov eax,11
|
|
mcall
|
|
dec eax
|
|
jz redraw
|
|
dec eax
|
|
jz key
|
|
dec eax
|
|
jz button
|
|
}
|
|
|
|
; wait_event - Wait for event
|
|
macro wait_event redraw,key,button
|
|
{
|
|
mov eax,10
|
|
mcall
|
|
dec eax
|
|
jz redraw
|
|
dec eax
|
|
jz key
|
|
dec eax
|
|
jz button
|
|
}
|
|
|
|
; time_event - Wait for event with timeout
|
|
macro time_event xfps,noevent,redraw,key,button
|
|
{
|
|
mov eax,23
|
|
mov ebx,xfps
|
|
mcall
|
|
;cmp eax,0
|
|
;je noevent
|
|
dec eax
|
|
js noevent
|
|
jz redraw
|
|
dec eax
|
|
jz key
|
|
dec eax
|
|
jz button
|
|
}
|
|
|
|
; function for set ascii or scan code keyboard input mode
|
|
macro keyboard_set_input_mode mode
|
|
{
|
|
mov eax,66 ; eax = 66 - keyboard service function
|
|
mov ebx,1 ; ebx = 1 - sub function for set input mode for keyboard
|
|
mov ecx,mode ; ecx = mode 0 - ASCII; 1 - scan codes;
|
|
mcall
|
|
}
|
|
|
|
; function for read layout to 128 byte array
|
|
macro keyboard_get_layout layout_type, layout_array
|
|
{
|
|
mov eax,26 ; eax = 26 - hardware service function
|
|
mov ebx,2 ; ebx = 2 - subfunction for get keyboard layout
|
|
mov ecx,layout_type ; ecx = layout type: 1 - for normal layout
|
|
mov edx,layout_array ; edx = address to 128 byte array
|
|
mcall
|
|
}
|
|
|
|
; function for get key from keyboard buffer
|
|
macro window_get_key output
|
|
{
|
|
mov eax,2 ; eax = 2 - get keyboard pressed key function
|
|
mcall
|
|
if ~output eq
|
|
mov output,eax
|
|
end if
|
|
}
|
|
|
|
; function for get id of button pressed in window
|
|
macro window_get_button output
|
|
{
|
|
mov eax,17 ; eax = 17 - get id of pressed button function
|
|
mcall
|
|
if ~output eq
|
|
mov output,eax
|
|
end if
|
|
}
|
|
|
|
macro draw_pixel x,y,color
|
|
{
|
|
mov ebx,x
|
|
mov ecx,y
|
|
mov edx,color
|
|
mov eax,1
|
|
mcall
|
|
}
|
|
|
|
macro puttxt x,y,offs,size,color
|
|
{
|
|
words2reg ebx,x,y
|
|
mov ecx,color
|
|
mov edx,offs
|
|
mov esi,size
|
|
mov eax,4
|
|
mcall
|
|
}
|
|
|
|
; window_begin_draw - Begin of draw window
|
|
macro window_begin_draw
|
|
{
|
|
mov eax,12
|
|
mov ebx,1
|
|
mcall
|
|
}
|
|
|
|
; window_end_draw - End draw of window
|
|
macro window_end_draw
|
|
{
|
|
mov eax,12
|
|
mov ebx,2
|
|
mcall
|
|
}
|
|
|
|
; fs_read_file - read file from file system and save it to array
|
|
; example:
|
|
; fs_read_file '/sys/clock.bmp',load_area,temp_area
|
|
|
|
macro fs_read_file 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 ; div to 512 and add 1 - for get number of blocks
|
|
inc eax
|
|
mov dword [fileinfo+8],eax
|
|
mov eax,58
|
|
mov ebx,fileinfo
|
|
mcall
|
|
}
|
|
|
|
; random - generate random count (small)
|
|
; example:
|
|
; random 10000,eax ; generate random value from 0 to 10000 and save it in eax
|
|
; note:
|
|
; max_value<65536
|
|
; only modificate eax register
|
|
|
|
randomuse = 0
|
|
macro random max_value,result
|
|
{
|
|
local rxproc
|
|
randomuse = randomuse + 1
|
|
jmp rxproc
|
|
|
|
if defined randomuse & randomuse = 1
|
|
randomproc:
|
|
;int3
|
|
;push bx
|
|
;push cx
|
|
;push dx
|
|
;push si
|
|
;push di
|
|
pushad
|
|
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 [rnd_result],dx
|
|
popad
|
|
mov eax,dword [rnd_result]
|
|
ret
|
|
; data block after ret
|
|
rsx1 dw 0x4321
|
|
rsx2 dw 0x1234
|
|
rnd_result dw 0
|
|
dw 0
|
|
end if
|
|
|
|
rxproc:
|
|
movt eax,max_value
|
|
call randomproc
|
|
movt result,eax ;dword [rnd_result]
|
|
}
|
|
|
|
; close - Close application
|
|
|
|
macro close
|
|
{
|
|
mov eax,-1
|
|
mcall
|
|
}
|
|
|
|
; delay - Create delay 1/100 sec
|
|
; example:
|
|
; delay 100 ;delay 2 sec 1/100*200=2 sec
|
|
|
|
macro delay arg1
|
|
{
|
|
mov eax,5
|
|
mov ebx,arg1
|
|
mcall
|
|
}
|
|
|
|
; window - Draw window
|
|
; window Xstart,Ystart,'Text',Color
|
|
; example:
|
|
; window 10,10,640+8,480+24,window_Skinned
|
|
|
|
macro window arg1,arg2,arg3,arg4,arg5
|
|
{
|
|
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
|
|
}
|
|
|
|
;Key's scan codes
|
|
|
|
ErrorCode equ 0 ; 0x00
|
|
key_Esc equ 1 ; 0x01
|
|
key_1 equ 2 ; 0x02 !
|
|
key_2 equ 3 ; 0x03 @
|
|
key_3 equ 4 ; 0x04 #
|
|
key_4 equ 5 ; 0x05 $
|
|
key_5 equ 6 ; 0x06 %
|
|
key_6 equ 7 ; 0x07 "
|
|
key_7 equ 8 ; 0x08 &
|
|
key_8 equ 9 ; 0x09 *
|
|
key_9 equ 10 ; 0x0A (
|
|
key_0 equ 11 ; 0x0B )
|
|
|
|
key_Backspace equ 14 ; 0x0E
|
|
key_Q equ 16 ; 0x10
|
|
key_W equ 17 ; 0x11
|
|
key_E equ 18 ; 0x12
|
|
key_R equ 19 ; 0x13
|
|
key_T equ 20 ; 0x14
|
|
key_Y equ 21 ; 0x15
|
|
key_U equ 22 ; 0x16
|
|
key_I equ 23 ; 0x17
|
|
key_O equ 24 ; 0x18
|
|
key_P equ 25 ; 0x19
|
|
|
|
key_Enter equ 28 ; 0x1C
|
|
key_A equ 30 ; 0x1E
|
|
key_S equ 31 ; 0x1F
|
|
key_D equ 32 ; 0x20
|
|
key_F equ 33 ; 0x21
|
|
key_G equ 34 ; 0x22
|
|
key_H equ 35 ; 0x23
|
|
key_J equ 36 ; 0x24
|
|
key_K equ 37 ; 0x25
|
|
key_L equ 38 ; 0x26
|
|
key_Colon equ 39 ; 0x27 ':;'
|
|
key_DQuotes equ 0x28 ; 40 '"''
|
|
key_Tilda equ 0x29 ; 41 '~`'
|
|
key_LShift equ 0x2A ; 42
|
|
key_Z equ 0x2C ; 44
|
|
key_X equ 0x2D ; 45
|
|
key_C equ 0x2E ; 46
|
|
key_V equ 0x2F ; 47
|
|
key_B equ 0x30 ; 48
|
|
key_N equ 0x31 ; 49
|
|
key_M equ 0x32 ; 50
|
|
key_Comma equ 0x33 ; 51 ',<'
|
|
key_Dot equ 0x34 ; 52 '.>'
|
|
key_Question equ 0x35 ; 53 '?/'
|
|
key_RShift equ 0x36 ; 54
|
|
key_NumStar equ 0x37 ; 55 '*'
|
|
key_LAlt equ 0x38 ; 56
|
|
key_Space equ 0x39 ; 57
|
|
key_CapsLock equ 0x3A ; 58
|
|
key_F1 equ 0x3B ; 59
|
|
key_F2 equ 0x3C ; 60
|
|
key_F3 equ 0x3D ; 61
|
|
key_F4 equ 62
|
|
key_F5 equ 63
|
|
key_F6 equ 64
|
|
key_F7 equ 65
|
|
key_F8 equ 66
|
|
key_F9 equ 67
|
|
key_F10 equ 0x44 ; 68
|
|
key_NumLock equ 0x45 ; 69
|
|
key_ScrollLock equ 0x46 ; 70
|
|
key_Up equ 0x48 ; 72
|
|
key_Num8 equ 0x48 ; 72
|
|
key_PageUp equ 0x49 ; 73
|
|
key_Num9 equ 0x49 ; 73
|
|
key_NumMinus equ 0x4A ; 74
|
|
key_Left equ 0x4B ; 75
|
|
key_Num4 equ 0x4B ; 75
|
|
key_Num5 equ 0x4C ; 76
|
|
key_Right equ 0x4D ; 77
|
|
key_Down equ 0x50 ; 80
|
|
key_Num2 equ 0x50 ; 80
|
|
key_F11 equ 0x57 ; 87
|
|
key_F12 equ 0x58 ; 88
|
|
key_PA1 equ 90 ; 0x5A
|
|
key_Lwin equ 91 ; 0x5B
|
|
key_F13 equ 91 ; 0x5B
|
|
key_Rwin equ 92 ; 0x5C
|
|
key_F14 equ 92 ; 0x5C
|
|
key_Menu equ 93 ; 0x5D
|
|
key_F15 equ 93 ; 0x5D
|
|
key_F16 equ 99 ; 0x63
|
|
key_F17 equ 100 ; 0x64
|
|
key_F18 equ 101 ; 0x65
|
|
key_F19 equ 102 ; 0x66
|
|
key_F20 equ 103 ; 0x67
|
|
key_F21 equ 104 ; 0x68
|
|
key_F22 equ 105 ; 0x69
|
|
key_F23 equ 106 ; 0x6A
|
|
key_F24 equ 107 ; 0x6B
|
|
key_EraseEOF equ 109 ; 0x6D
|
|
key_CopyPlay equ 111 ; 0x6F
|
|
key_CrSel equ 114 ; 0x72
|
|
key_Delta equ 115 ; 0x73
|
|
key_ExSel equ 116 ; 0x74
|
|
key_Clear equ 118 ; 0x76
|
|
|
|
|
|
|
|
;Attributes
|
|
|
|
;Window Attributes
|
|
window_Skinned equ 0x04000000
|
|
window_Type2 equ 0x02000000
|
|
window_Type1 equ 0x00000000
|
|
window_Reserve equ 0x01000000
|
|
|
|
;Label Attributes
|
|
ends_by_zero equ 10000000b shl 24
|
|
fill_background equ 01000000b shl 24
|
|
cp866_small equ 00000000b shl 24
|
|
cp866 equ 00010000b shl 24
|
|
utf16 equ 00100000b shl 24
|
|
utf8 equ 00110000b shl 24
|
|
font_size_x1 equ 00000000b shl 24
|
|
font_size_x2 equ 00000001b shl 24
|
|
font_size_x3 equ 00000010b shl 24
|
|
font_size_x4 equ 00000011b shl 24
|
|
font_size_x5 equ 00000100b shl 24
|
|
font_size_x6 equ 00000101b shl 24
|
|
font_size_x7 equ 00000110b shl 24
|
|
font_size_x8 equ 00000111b shl 24
|
|
|
|
;Colors
|
|
cl_White equ 0x00ffffff
|
|
cl_Black equ 0x00000000
|
|
cl_Grey equ 0x00888888
|
|
cl_Red equ 0x00ff0000
|
|
cl_Lime equ 0x0000ff00
|
|
cl_Blue equ 0x000000ff
|
|
cl_Yellow equ 0x00ffff00
|
|
cl_Cyan equ 0x0000ffff
|
|
cl_Green equ 0x0000af00
|
|
cl_Blue equ 0x000000ff
|
|
cl_Purple equ 0x008080ff
|
|
cl_Violet equ 0x008040ff
|
|
;cl_Cyan equ 0x0040e0ff
|
|
|
|
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
|
|
; if operators empty nothing do
|
|
else
|
|
if lowword eqtype 12/4
|
|
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/4
|
|
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/4 & hiword eqtype 12/4
|
|
if lowword = 0 & hiword = 0
|
|
xor reg,reg
|
|
else
|
|
; use brackets for calcualtion without error!!!
|
|
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
|
|
}
|