Не работает cmp цикл

@-MaZaHaKa- · Регистрация: 30.09.2013

Студворк — интернет-сервис помощи студентам

не могу понять почему не работает цикл нахождения минимального элемента:

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    m   dw ?            ; Количество элементов
    array   db 10 dup (?)       ; Массив значений
    i   db -1           ; Порядковый номер элемента, счетчик ввода
    j   db -1           ; Порядковый номер элемента, счетчик вывода
    k   db -1           ; Порядковый номер элемента, счетчки нахождения
    min dw ?            ; Минимальное значение массива
 
    mas db 10,8,6,4,2,1,3,5,7,9
 
    ....................какой-то код....................
 
    m1: inc k       ; Увеличиваем значение k на 1
        mov bl,k        ; Заносим в рег. bl значение k
        mov al,array[bx]    ; Заносим в рег. al значение array[bx]
        cmp ax,min      ; Сравниваем al и min
        jb  m2      ; Переход если рег. ax меньше min
        jmp m1      ; Переход
 
    m2: mov min,ax      ; Заносим значение рег. ax в min
        cmp bx,m        ; Сравниваем bx и m
        jne m1      ; Переход если bx не равно m
        jmp m4      ; Переход

По турбодебагеру видно что программа в любом случае прыгает на jb в m2. Но почему? Ведь у меня массив: 10,8,6,4,2,1,3,5,7,9

Charles Kludge · 03.10.2014, 00:52

Всё проще:

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
;FASM
    org 100h 
    mov esi, mas
    mov ecx, mas_len
    lodsd
    mov ebx, eax
@@: cmp ebx, eax
    cmovnle ebx, eax
    lodsd
    loop    @B 
; результат в EBX
    ret 
mas dd 10,8,6,4,2,1,-3,5,7,9
mas_len = ($ - mas)/4

@-MaZaHaKa- · 04.10.2014, 00:37 **[ТС]**

Charles Kludge, FASM всегда хорошо, но мне работу сдавать придется в TASM или на худой конец в MASM. Пожалуйста, можете мне помочь решить проблему в моём случае?

Вот полный исходник. Может вдруг понадобится

Кликните здесь для просмотра всего текста

Assembler
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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
;-------------------- Start Stack --------------------
sseg segment 'stack'
    db 256 dup("?")
sseg ends
;-------------------- End Stack ----------------------
 
;-------------------- Start Data ---------------------
dseg segment 'data'
    text1   db 13,10,'Write "0" for input from memory','$'
    text2   db 13,10,'Write "1" for input from keyboard','$'
    text3   db 13,10,'Make your choice: ','$'
    text4   db 13,10,'Enter the size of the array (MAX 10): ','$'
    text5   db 13,10,'Your mas:','$'
    text6   db 13,10,'The Smallest:','$'
 
    ;------------ Keyboard input -----------------
    m   dw ?            ; Количество элементов
    array   db 10 dup (?)       ; Массив значений
    i   db -1           ; Порядковый номер элемента, счетчик ввода
    j   db -1           ; Порядковый номер элемента, счетчик вывода
    k   db -1           ; Порядковый номер элемента, счетчки нахождения
    min dw ?            ; Минимальное значение массива
 
    mas db 10,8,6,4,2,1,3,5,7,5
 
    Num dw ?
    StrNum  db 8 dup (?),'$'
    Negate  db ?
    count   db 0
    counter dw ?
 
    TEnd    db 13,10,'END',16,'$'
 
    error   db "incorrect number$"
    buff    db 5,6 Dup(?)
    br  db 13,10,'$'
dseg ends
;-------------------- End Data -----------------------
 
;-------------------- Start Code ---------------------
cseg segment 'code'
    assume cs:cseg,ds:dseg,ss:sseg
 
    start:
        mov ax,dseg     ; Заносим адрес сегмента данных в рег. ax
        mov ds,ax       ; Заносим адрес сегмента данных в сегментный рег. ds
        xor ax,ax       ; Удаляем значение регистра ax
 
        mov ax,03       ; Функция очистки экрана
        int 10h     ; Функция 10го прерывания
 
        ;---- Start Program ------------------
        lea dx,text1    ; Вывод текста на экран
        call    WrStr       ; Вызов процедуры вывода
 
        lea dx,text2    ; Вывод текста на экран
        call    WrStr       ; Вызов процедуры вывода
 
        lea dx,text3    ; Вывод текста на экран
        call    WrStr       ; Вызов процедуры вывода
 
        call    Input       ; Вызов процедуры ввода
 
        cmp ax,1        ; Сравнение ax и 1
        jne mem1        ; Переход если рег. ax не равен 1
 
    ; START Ввод значений с клавиатуры
    key1:   lea dx,text4    ; Вывод текста на экран
        call    WrStr       ; Вызов процедуры вывода
 
        call    Input       ; Вызов процедуры ввода
 
        cmp ax,10       ; Сравнение ax и 10
        jnbe    key1        ; Переход если ax больше 10
 
        dec ax      ; Уменьшаем значение рег. ax на 1
        mov m,ax        ; Присваиваем значение рег. ax в m
 
    key2:   inc Num
        call    StrCon
        lea dx,StrNum   ; Вывод текста на экран
        call    WrStr       ; Вызов процедуры вывода
 
        call    Input       ; Вызов процедуры ввода
 
        inc i       ; Увеличиваем значение i на 1
        mov bl,i        ; Заносим в рег. bl значение i
        mov array[bx],al    ; Заносим в array[bx] значение al
 
        cmp bx,m        ; Сравнение bx и m
        jne key2        ; Переход если bx не равно m
        jmp out1        ; Переход
    ; END Ввод значений с клавиатуры
 
    ; START Ввод значений из памяти
    mem1:   mov ax,9        ; Присваиваем 9 в рег. ax
        mov m,ax        ; Присваиваем значение рег. ax в m
 
    mem2:   mov bl,i        ; Заносим в рег. bl значение i
        mov al,mas[bx]  ; Заносим в рег. al значение mas[bx]
        mov array[bx],al    ; Заносим в array[bx] значение al
        inc i       ; Увеличиваем значение i на 1
 
        cmp bx,m        ; Сравнение bx и m
        jne mem2        ; Переход если bx не равно m
        jmp out1        ; Переход
    ; END Ввод значений из памяти
 
    ; START Вывод массива
    out1:   lea dx,text5    ; Вывод текста на экран
        call    WrStr       ; Вызов процедуры вывода
 
    out2:   inc j       ; Увеличиваем значение j на 1
        mov bl,j        ; Заносим в рег. bl значение j
        mov al,array[bx]    ; Заносим в рег. al значение array[bx]
        mov Num,ax      ; Заносим значение рег. ax в Num
 
        call StrCon
 
        lea dx,StrNum   ; Вывод текста на экран
        call    WrStr       ; Вызов процедуры вывода
 
        cmp bx,m        ; Сравнение bx и m
        jne out2        ; Переход если bx не равно m
        jmp m1      ; Переход
    ; END Вывод массива
 
    ; START Нахождение
    m1: inc k       ; Увеличиваем значение k на 1
        mov bl,k        ; Заносим в рег. bl значение k
        mov al,array[bx]    ; Заносим в рег. al значение array[bx]
        cmp ax,min      ; Сравниваем al и min
        jb  m2      ; Переход если рег. ax меньше min
        jmp m1      ; Переход
 
    m2: mov min,ax      ; Заносим значение рег. ax в min
        cmp bx,m        ; Сравниваем bx и m
        jne m1      ; Переход если bx не равно m
        jmp m4      ; Переход
 
    m4: lea dx,text6    ; Вывод текста на экран
        call    WrStr       ; Вызов процедуры вывода
 
        call    StrCon
        lea dx,StrNum   ; Вывод текста на экран
        call    WrStr       ; Вызов процедуры вывода
 
        mov ah,1
        int 21h
    ; END Нахождение
        ;---- End Program --------------------
 
        mov ah,4ch      ; Функция завершения программы
        int 21h     ; Функция 21го прерывания
 
    ;------------ Start Extras -------------------
    WrStr proc near
        push    ax 
        mov ah,09h 
        int 21h
        pop ax
        ret
    WrStr endp
 
    StrCon proc
        push ax 
        push cx
        push dx
        push bx
        push si
        jmp p1
    p2: inc count
        mov bl,count
        xor ax,ax
        mov StrNum[bx],al
        cmp bx,8
        jne p2
        lea si,StrNum + 8
        mov ax,'$'
        mov [si],al
        jmp p3
    p1: mov cx,10
        mov count,0
        xor bx,bx
        jmp p2
    p3: lea si,StrNum + 4
        mov ax,Num
        mov Negate,0
        cmp ax,8000h
        jb p4
        neg ax
        mov Negate,1
    p4: cmp ax,10
        jb p5
        cwd
        div cx
        or dl,30h
        mov [si],dl
        dec si
        jmp p4
    p5: or al,30h
        mov [si],al
        cmp Negate,0
        jz p6
        dec si
        mov byte ptr [si],'-'
    p6: pop si
        pop bx
        pop dx
        pop cx 
        pop ax
        ret
    StrCon endp
 
    Input proc
        push cx
        push dx
        push bx
        push si
        mov ah,0ah
        mov dx,offset buff
        int 21h
        mov dl,0ah
        mov ah,02   
        int 21h
        mov si,offset buff+2
        xor di,di
        cmp byte ptr [si],"-"
        jnz polozh
        inc di
        inc si
    polozh: xor ax,ax
        mov bx,10
    @b: mov cl,[si]
        cmp cl,0dh
        jz endin
        cmp cl,30h
        jl er
        cmp cl,39h
        ja er
        sub cl,30h
        mul bx
        add ax,cx
        inc si
        jmp @b
    er: mov dx,offset error
        mov ah,09
        int 21h
        int 20h
    endin:  dec di
        jnz @f
        neg ax
    @f: pop si
        pop bx
        pop dx
        pop cx
        ret
    Input endp
    ;------------ End Extras -------------------
 
    cseg ends
end start
;-------------------- End Code -----------------------

Charles Kludge · 04.10.2014, 01:52

Сообщение от -MaZaHaKa-

на худой конец в MASM

В MASM'e и придётся - ТАСьМ не понимает cmovnle да и ещё много чего вкусного.

Кликните здесь для просмотра всего текста

Assembler
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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
.286
.model  small
;-------------------- Start Stack --------------------
.stack
;-------------------- End Stack ----------------------
;-------------------- Start Data ---------------------
.data
text1   db 13,10,'Write "0" for input from memory','$'
text2   db 13,10,'Write "1" for input from keyboard','$'
text3   db 13,10,'Make your choice: ','$'
text4   db 13,10,'Enter the size of the array (MAX 10): ','$'
text5   db 13,10,'Your mas:','$'
text6   db 13,10,'The Smallest:','$'
 
    ;------------ Keyboard input -----------------
m   dw ?            ; Количество элементов
array   db 10 dup (?)       ; Массив значений
i   db -1           ; Порядковый номер элемента, счетчик ввода
j   db -1           ; Порядковый номер элемента, счетчик вывода
k   db -1           ; Порядковый номер элемента, счетчки нахождени
min dw ?            ; Минимальное значение массива
 
mas db 10,8,6,4,2,1,3,5,7,5
 
Num dw ?
StrNum  db 8 dup (?),'$'
Negate  db ?
count   db 0
counter dw ?
 
TEnd    db 13,10,'END',16,'$'
error   db "incorrect number$"
buff    db 5,6 Dup(?)
br  db 13,10,'$'
;-------------------- End Data -----------------------
 
;-------------------- Start Code ---------------------
.code
start:
    mov ax,@data        ; Заносим адрес сегмента данных в рег. ax
    mov ds,ax           ; Заносим адрес сегмента данных в сегментный рег. ds
    xor ax,ax           ; Удаляем значение регистра ax
 
    mov ax,03           ; Функция очистки экрана
    int 10h         ; Функция 10го прерывани
 
        ;---- Start Program ------------------
    lea dx,text1        ; Вывод текста на экран
    call    WrStr           ; Вызов процедуры вывода
 
    lea dx,text2        ; Вывод текста на экран
    call    WrStr           ; Вызов процедуры вывода
 
    lea dx,text3        ; Вывод текста на экран
    call    WrStr           ; Вызов процедуры вывода
 
    call    Input           ; Вызов процедуры ввода
 
    cmp ax,1            ; Сравнение ax и 1
    jne mem1            ; Переход если рег. ax не равен 1
 
    ; START Ввод значений с клавиатуры
key1:   lea dx,text4    ; Вывод текста на экран
    call    WrStr           ; Вызов процедуры вывода
 
    call    Input           ; Вызов процедуры ввода
 
    cmp ax,10           ; Сравнение ax и 10
    jnbe    key1            ; Переход если ax больше 10
 
    dec ax          ; Уменьшаем значение рег. ax на 1
    mov m,ax            ; Присваиваем значение рег. ax в m
 
key2:   inc [Num]
    call    StrCon
    lea dx,StrNum       ; Вывод текста на экран
    call    WrStr           ; Вызов процедуры вывода
 
    call    Input           ; Вызов процедуры ввода
 
    inc [i]         ; Увеличиваем значение i на 1
    mov bl,[i]          ; Заносим в рег. bl значение i
    mov array[bx],al        ; Заносим в array[bx] значение al
 
    cmp bx,[m]          ; Сравнение bx и m
    jne key2            ; Переход если bx не равно m
    jmp out1            ; Переход
    ; END Ввод значений с клавиатуры
 
    ; START Ввод значений из памяти
mem1:   mov ax,9        ; Присваиваем 9 в рег. ax
    mov [m],ax          ; Присваиваем значение рег. ax в m
 
mem2:   mov bl,i        ; Заносим в рег. bl значение i
    mov al,mas[bx]      ; Заносим в рег. al значение mas[bx]
    mov array[bx],al        ; Заносим в array[bx] значение al
    inc i           ; Увеличиваем значение i на 1
 
    cmp bx,[m]          ; Сравнение bx и m
    jne mem2            ; Переход если bx не равно m
    jmp out1            ; Переход
    ; END Ввод значений из памяти
 
    ; START Вывод массива
out1:   lea dx,text5    ; Вывод текста на экран
    call    WrStr           ; Вызов процедуры вывода
 
out2:   inc [j]       ; Увеличиваем значение j на 1
    mov bl,[j]          ; Заносим в рег. bl значение j
    mov al,array[bx]        ; Заносим в рег. al значение array[bx]
    mov [Num],ax        ; Заносим значение рег. ax в Num
 
    call    StrCon
 
    lea dx,StrNum       ; Вывод текста на экран
    call    WrStr           ; Вызов процедуры вывода
 
    cmp bx,[m]          ; Сравнение bx и m
    jne out2            ; Переход если bx не равно m
    jmp m1          ; Переход
    ; END Вывод массива
 
    ; START Нахождение
m1:
; .686 именно здесь, иначе получим кривой .obj
.686
    lea si, array
    mov cx, [m]
    lodsb
    cbw
    mov bx, ax
@@: cmp bx, ax
    cmovnle bx, ax
    lodsb
    loop    @B
.286
; заносим минимум из BX в min и Num
    mov [Num],bx
    mov [min],bx
 
m4: lea dx,text6    ; Вывод текста на экран
    call    WrStr           ; Вызов процедуры вывода
 
    call    StrCon
    lea dx,StrNum       ; Вывод текста на экран
    call    WrStr           ; Вызов процедуры вывода
 
    mov ah,1
    int 21h
    ; END Нахождение
        ;---- End Program --------------------
 
    mov ah,4ch          ; Функция завершения программы
    int 21h         ; Функция 21го прерывани
 
    ;------------ Start Extras -------------------
    WrStr   proc near
    push    ax
    mov ah,09h
    int 21h
    pop ax
    ret
    WrStr   endp
 
    StrCon  proc
    push    ax
    push    cx
    push    dx
    push    bx
    push    si
    jmp p1
p2: inc [count]
    mov bl,[count]
    xor ax,ax
    mov StrNum[bx],al
    cmp bx,8
    jne p2
    lea si,StrNum + 8
    mov ax,'$'
    mov [si],al
    jmp p3
p1: mov cx,10
    mov [count],0
    xor bx,bx
    jmp p2
p3: lea si,StrNum + 4
    mov ax,[Num]
    mov Negate,0
    cmp ax,8000h
    jb  p4
    neg ax
    mov [Negate],1
p4: cmp ax,10
    jb  p5
    cwd
    div cx
    or  dl,30h
    mov [si],dl
    dec si
    jmp p4
p5: or  al,30h
    mov [si],al
    cmp Negate,0
    jz  p6
    dec si
    mov byte ptr [si],'-'
p6: pop si
    pop bx
    pop dx
    pop cx
    pop ax
    ret
    StrCon  endp
 
    Input   proc
    push    cx
    push    dx
    push    bx
    push    si
    mov ah,0ah
    lea dx, buff
    int 21h
    mov dl,0ah
    mov ah,02
    int 21h
    lea si,buff+2
    xor di,di
    cmp byte ptr [si],"-"
    jnz polozh
    inc di
    inc si
polozh: xor ax,ax
    mov bx,10
@@: mov cl,[si]
    cmp cl,0dh
    jz  endin
    cmp cl,30h
    jl  er
    cmp cl,39h
    ja  er
    sub cl,30h
    mul bx
    add ax,cx
    inc si
    jmp @b
er: lea dx, error
    mov ah,09
    int 21h
    int 20h
endin:  dec     di
    jnz @f
    neg ax
@@:     pop si
    pop bx
    pop dx
    pop cx
    ret
    Input   endp
    ;------------ End Extras -------------------
 
    end start
;-------------------- End Code -----------------------

И да, передай преподу, чтоб впредь предохранялся — на тасьме уже никто не пишет, он умер в прошлом веке.

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .