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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
| sts SEGMENT PARA STACK 'Stack'
DW 32 DUP (?)
sts ENDS
data SEGMENT
mes1 db 'Enter',0Ah,0Dh,'$'
mes2 db '1st',0Ah,0Dh,'$'
mes3 db 10,13,'2nd',0Ah,0Dh,'$'
mes4 db 10,13,'Rezult ',0Ah,0Dh,'$'
famm db 21,?
fam dw 10 dup (?)
tabss db 21,?
tabs dw 10 dup (?)
dim dw 10 dup (?)
data ends
text SEGMENT
assume CS:text, DS:data, SS:sts
main proc far
;-----Block 1-----------
push DS
xor AX,AX
push ax
;-----Block 2-----------
mov ax,data
mov DS,AX
;-----Block 3-----------
lea DX,mes1
mov AH,09h
int 21h
;-----Block 4-----------
lea DX,mes2
mov AH,09h
int 21h
;-----Block 5-----------
lea DX,tabss
mov AH,0Ah
int 21h
;-----Block 6-----------
lea DX,mes3
mov AH,09h
int 21h
;-----Block 7-----------
lea DX,famm
mov AH,0Ah
int 21h
;-----Block 8-----------
mov SI,0
lea DI,dim
mov CX,10
;-----Block 9-----------
M1:
mov AX,tabs[SI]
mov bx,fam[SI]
cmp AX,BX
je Equal
mov AX,3030h
Equal:
mov [DI],AX
add SI,2
add DI,2
loop M1
;-----Block 10----------
mov CH,0
mov CL,0
mov DH,25
mov DL,80
mov BH,07
mov AH,06
mov AL,0
int 10h
;-----Block 11----------
mov AH,02
mov BH,0
mov DX,0
int 10h
;-----Block 12----------
lea DX,mes4
mov AH,09
int 21h
;-----Block 13----------
mov CX,5
mov SI,0
M2:
push CX
mov AX,dim[SI]
mov BL,04h
call print
mov AX,dim[SI+2]
mov BL,10h
call print
pop CX
add SI,4
loop M2
;-----------------------
ret
main endp
;=======================
print proc
;-----Block 14----------
push AX
;-----Block 15----------
mov AH,09
mov BH,0
mov CX,1
int 10h
;-----Block 16----------
mov AH,03
mov BH,0
int 10h
;-----Block 17----------
add DL,1
mov AH,02
mov BH,0
int 10h
;-----Block 18----------
pop AX
xchg AH,AL
;-----Block 19----------
mov AH,09
mov CX,1
int 10h
;-----Block 20----------
mov AH,03
mov BH,0
int 10h
;-----Block 21----------
add DL,2
mov AH,02
mov BH,0
int 10h
;-----------------------
ret
print endp
text ends
end main |
(
