forked from KolibriOS/kolibrios
94 lines
1.3 KiB
PHP
94 lines
1.3 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 ;tekoff
|
|
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 ;tekoff
|
|
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 ;tekoff
|
|
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:
|
|
} |