SERIOUS2
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
cseg segment
assume cs:cseg,ds:cseg,es:cseg,ss:cseg
org 100h
start: mov ah,09h
mov dx,offset msg
int 21h
mov si,offset array
mov bx,5
mov cx,l_arr
srch: mov ax,[si]
xor dx,dx
div bx
cmp dx,0
jnz nxt
mov ax,[si]
call OutInt
mov al,','
int 29h
inc cnt
nxt: add si,2
loop srch
mov ah,09h
mov dx,offset mes_cnt
int 21h
xor ax,ax
mov al,cnt
call OutInt
ret
OutInt proc
push ax
push bx
push cx
push dx
xor cx, cx
mov bx, 10 ; основание сс. 10 для десятеричной и т.п.
oi2:
xor dx,dx
div bx
CMP [bx], dx
inc cx
test ax, ax
jnz oi2
mov ah, 02h
oi3:
pop dx
add dl, '0'
int 21h
loop oi3
pop dx
pop cx
pop bx
pop ax
ret
OutInt endp
array dw 1,15,25,134,7,50,83,250,65535,54,325,34,45
l_arr=($-array)/2
msg db 'Элементы массива, кратные пяти:$'
mes_cnt db 13,10,'Число элементов массива, кратных пяти:$'
cnt db 0
cseg ends
end start
|
