Не работает процедура (ассемблер, тасм5.0, досбокс)

[Fillimon]

Всем привет, написал процедуру на ассемблере, которая считает НОК 4-х чисел, но когда программа запускается, досбокс зависает и вылетает, помогите понять, что я делаю не так?
P.S. до этого считываю 4 числа и кладу их в стек, числа считываются верно, брал процедуру с этого форума.

Labab proc 
 pop ax   
  mov cx,3 ;счётчик цикла = 3 
  cycl: 
  pop bx 
  push cx ; прячем счётчик в стек до самого конца 
  push ax 
  push bx 
  m2: 
   
  div bx ; делаем алгоритм Евклида для нахождения НОД 
  test dx,dx ; если остаток = 0, выходим на м3, иначе переназначаем переменные и идём в м2 
  jz m3 
  mov ax, bx 
  mov bx, dx 
 jmp m2 
  m3: 
  mov cx,bx 
  pop ax 
  pop bx 
  mul bx 
   
  div cx ; в ах должен быть НОК
  pop cx ; достаём счётчик 
  loop cycl ; идём на метку цикл 
  ret 
Labab endp

[R71MT]

поставь везде перед div - xor dx,dx

[Fillimon]

Не помогло...

[R71MT]

Сообщение от Fillimon

P.S. до этого считываю 4 числа и кладу их в стек

если ты в стек положил 4 слова,
то вызов процедуры добавит туда ещё и 2-байтный адрес возврата - итого 5 слов.

; сейчас в стеке:
   аргумент(3)
   аргумент(2)
   аргумент(1)
   аргумент(0)
   адрес возврата

значит аргументы нужно снимать со-стека, пропустив адрес возврата.
для этого имеется такая конструкция (адресация через BP):

Labab proc 
       mov   bp,sp
       mov   ax,[bp+2]     ; = pop ax (на входе в процедуру)
....
       retn  8             ; очистить стек от параметров (4 слова = 8)
Labab endp

[R71MT]

..или можно снять на-время адрес возврата, а на выходе опять его туда положить:

Labab proc 
       pop   si     ; адрес возврата в SI
       pop   ax     ; на входе в процедуру
....
       push  si     ; кладём на место возврат
       retn  8      ; выйти к SI, и очистить стек от параметров
Labab endp

[Serge_Bliznykov]

Сообщение от Fillimon

Labab proc 
 pop ax

судя по ret в конце процедуры, Вы вызываете Labab через call ?

        call Labab

тогда будут два последствия
1) первый pop ax заберёт из стека не число, которое Вы туда положили, а адрес возврата из процедуры (его туда call положил)
2) ваш ret возьмёт из стека не настоящий адрес возврата из процедуры - а "левое" число и выполнение кода будет передано неизвестно куда.


p.s Рекомендую использовать DOS отладчик. Например, turbo debugger...

[ДОБАВЛЕНО]
p.p.s. извините, я сильно опоздал с ответом....

[R71MT]

Сообщение от Serge_Bliznykov

Например, turbo debugger

..или "AVPUtil" от лаборатории Касперского,
который красиво отображает содержимое стека (RA - Return Address).
вот как он видит такой код:

start:  push  1 2 3 4     ; кладём аргументы в стек
        call  @01         ; зовём функцию
        ret               ; выход из программы
;-------
@01:    mov   ah,9        ; функция!
        mov   dx,m1
        int   21h
        retn  8           ; выход из функции, с очисткой стека.

[Serge_Bliznykov]

Сообщение от R71MT

или "AVPUtil" от лаборатории Касперского,

Красиво.
Не сталкивался раньше.
А если не сложно, выложите архив с ним сюда, на форум.
Думаю, что будет полезно.

[R71MT]

Сообщение от Serge_Bliznykov

выложите архив с ним сюда, на форум.

..без проблем. у него там много возможностей в меню сидят:
http://old-dos.ru/index.php?page=fil...o=show&id=5580

[Serge_Bliznykov]

спасибо. скачал. пусть будет