xor eax, eax
xor ebx, ebx
xor ecx, ecx
xor edx, edx
xor edx, edx
clc

;EQULING
M1 EQU [EBP+8]
M2 EQU [EBP+12]
len EQU [EBP+14]
ibeg EQU [EBP+16]
iend EQU [EBP+18]

mov esi, M1
mov edi, M2
mov cl, len
mov ebx, ibeg
mov edx, iend
cld

;action
lodsb ; al,M1

cmp edx, 4
je _end

_0:
mov      dl,al          ;число в 0 розряде
and      dl,00000001b
or       al,dl
cmp      ebx, 1
jne      _end

_1:
mov      dl,al         ;число в 1 розряде
and      dl,00000010b
or       al,dl
cmp      ebx,2
jne      _end

_2:
mov      dl,al         ;число в 2 розряде
and      dl,00000100b
or       al,dl
cmp      ebx,3
jbe      _end

_3:
mov      dl,al         ;число в 3 розряде
and      dl,00001000b
or       al,dl
cmp      ebx, 4
jbe      _end

_4:
mov      dl,al         ;число в 4 розряде
and      dl,00010000b
or       al,dl
cmp      ebx,5
jbe      _end

_5:
mov      dl,al         ;число в 5 розряде
and      dl,00100000b
or       al,dl
cmp      ebx, 6
jbe      _end

_6:
mov      dl,al            ;
and      dl,01000000b
or       al,dl
cmp      ebx,7
jbe      _end

_7:
mov      dl,al
and      dl,10000000b
or       al,dl

_end:
cld
mov cx,len
STOSB ; M2,al

and dx, 0FCh
pop ebp
ret