kolibrios-fun/programs/other/outdated/sysxtree/trunk/ascml.inc

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:
}