Developing.ru

Код: Выделить всё

.data
A db 10 dup (-15)
.code
push cs
pop ds
xor esi, esi
inc esi
mov edi, esi
mov cx, 10
lea bx, A

    @loop:
movsx eax, byte ptr [bx]
test eax, eax
jns @positive
imul esi
mov esi, eax
    @positive:
inc bx
loop @loop

cmp esi, edi
jnz @have_more_one_mult
sub esi, esi
    @have_more_one_mult:
mov eax, esi

Код: Выделить всё

.model SMALL
.STACK 100h
.data
A db 10 dup (-50)
.code
start:
push cs
pop ds
pop es
xor esi, esi
inc esi
mov edi, esi
mov cx, 10
lea bx, A
    @loop:
movsx eax, byte ptr [bx]
test eax, eax
jns @positive
imul esi
mov esi, eax
    @positive:
inc bx
loop @loop
cmp esi, edi
jnz @have_more_one_mult
sub esi, esi
    @have_more_one_mult:
mov eax, esi
mov ax, 4C00h
int 21h
end start

Код: Выделить всё

model SMALL
.STACK 100h
.386 
.data
A db 10 dup (-50)
.code
start:
push cs
pop ds
xor esi, esi
inc esi
mov edi, esi
mov cx, 10
lea bx, A
    @loop:
movsx eax, byte ptr [bx]
test eax, eax
jns @positive
imul esi
mov esi, eax
    @positive:
inc bx
loop @loop
cmp esi, edi
jnz @have_more_one_mult
sub esi, esi
    @have_more_one_mult:
mov eax, esi
mov ax, 4C00h
int 21h
end start

Код: Выделить всё

; Печать чисел
; EAX - целое число до 2^32, беззнаковое

_write_number proc
pushad
mov ebx,10
xor cx,cx
wnum_1:
xor edx,edx
div ebx
push edx
inc cx
or eax,eax
jnz wnum_1
wnum_2:
pop edx
add dl,30h
mov ah,2
int 21h
loop wnum_2
popad
ret
_write_number endp