forked from KolibriOS/kolibrios
16091ddd9e
@panel: to match K0581 distro: SYSMETER -> GMON @numcalc: moved to the appropriate place in repository HeEd: added english variant NetSendC, NetSendS: added english variant + optimization pic4: changes in set background + optimization tetris, @rcher, board, sysxtree, vrr: new versions from K0581 distro bgitest: fixed small error + ability to set language via lang.inc c4: small correction in label height to match K0581 distro git-svn-id: svn://kolibrios.org@131 a494cfbc-eb01-0410-851d-a64ba20cac60
93 lines
1.4 KiB
PHP
93 lines
1.4 KiB
PHP
lang equ ru
|
|
|
|
;
|
|
; Assembler
|
|
; SMALL
|
|
; CODE
|
|
; Massive operation
|
|
; Libary
|
|
;
|
|
; Ver 0.1 By Pavlushin Evgeni (RUSSIA)
|
|
; www.waptap@mail.ru
|
|
|
|
;InfoList
|
|
;0.01 readmas,compmas,findmas
|
|
|
|
macro readmas masoff,obroff
|
|
{
|
|
local loo
|
|
mov edi,masoff
|
|
add edi,8
|
|
mov ebp,[masoff] ;elements
|
|
mov edx,[masoff+4] ;elemsize
|
|
mov eax,0 ;count
|
|
loo:
|
|
pushad
|
|
call obroff
|
|
popad
|
|
add edi,edx
|
|
inc eax
|
|
cmp eax,ebp
|
|
jne loo
|
|
}
|
|
|
|
macro compmas masoff1,masoff2,obroff
|
|
{
|
|
local loo,loo2
|
|
mov esi,masoff2
|
|
add esi,8
|
|
mov ecx,[masoff2]
|
|
mov ebx,[masoff2+4]
|
|
mov eax,0
|
|
|
|
loo2:
|
|
push eax
|
|
|
|
mov edi,masoff1
|
|
add edi,8
|
|
mov ebp,[masoff1] ;elements1
|
|
mov edx,[masoff1+4] ;elemsize1
|
|
mov eax,0 ;count
|
|
loo:
|
|
pushad
|
|
call obroff
|
|
popad
|
|
add edi,edx
|
|
inc eax
|
|
cmp eax,ebp
|
|
jne loo
|
|
|
|
add esi,ebx
|
|
pop eax
|
|
inc eax
|
|
cmp eax,ecx
|
|
jne loo2
|
|
}
|
|
|
|
|
|
macro findmas masoff,obroff
|
|
{
|
|
local loo,looend,lend
|
|
mov edi,masoff
|
|
add edi,8
|
|
mov ebp,[masoff] ;elements
|
|
mov edx,[masoff+4] ;elemsize
|
|
mov eax,0 ;count
|
|
loo:
|
|
pushad
|
|
mov eax,0
|
|
call obroff
|
|
cmp eax,1
|
|
je looend
|
|
popad
|
|
add edi,edx
|
|
inc eax
|
|
cmp eax,ebp
|
|
jne loo
|
|
stc
|
|
jmp lend
|
|
looend:
|
|
popad
|
|
clc
|
|
lend:
|
|
} |