1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
| .model tiny
.code
org 100h
start:
jmp m1
cnt dw 0
outtext db "Kolishestvo chetnih elementovv:$"
dist_index dd text,outtext,msg,lenss,msg
lenss=($-dist_index)/4
msg db " $"
text db "Dlinna massiva dalnih ykazatelei:$"
newp db 0ah,0dh,"$"
num_el=3
m1:
mov si, offset dist_index ; в si адресс массива
mov cx, lenss; число указателей в массиве
calculation:
test byte ptr [si], 00000001b; проверка четности младщего байта элемента массива ?
jnz next ; нет, проверяем следующий элемент
inc cnt ; да, увеличваем счетчик элементов
next:
add si,4; si на след указатель
loop calculation
mov ah,09
lea dx,outtext
int 21h
mov ax,cnt
push ax
push offset msg
call WordToDec
mov ah,09
lea dx,msg
int 21h
mov ah,09h
lea dx,newp
int 21h
mov ah,09
lea dx,text
int 21h
mov ax,lenss
push ax
push offset msg
call WordToDec
mov ah,09
lea dx,msg
int 21h
mov ax,4C00h
int 21h
; Ф-ия для формирования текстового представления в десятичной системе одного слова
; вход : [SP+4] - слово для текстого представления
; [SP+2] - смещение относительно ds, куда будем записывать результат
; выход:
;
WordToDec proc
mov bp,sp ; в bp - указатель на вершину стека
mov si,[bp+2]; в si - указатель на смещение относительно ds буфера
add si,4 ; идем в конец буфера
mov ax,[bp+4] ; в ax - число для перевода в строку
cmp ax,9
jbe Is09
xor dx,dx ; dx=0
mov cx,10
Algorithm:
xor dx,dx ; dx=0
div cx ; делим число на 10
push ax ; результат сохраняем в стек
mov al,dl ; в al - остаток от деления
add al,30h ; преобразуем в ASCII код
mov [si],al ; в буфер ложим получившийся ASCII код
pop ax ; восстанавливаем полученное число
dec si ; двигаемся к началу буфера
cmp ax,0
jne Algorithm ; если число не равно 0, то снова делим
jmp ExitP
Is09:
add al,30h
mov [si],al
ExitP:
mov ax,[bp+4] ; восстановим значение регистра ax
ret 4 ; очищаем параметры в стеке
WordToDec endp
end start |
(
