прога отказывается ожидать нажатия клавиши

[begovik]

Привет! такая проблема: написал алгоритм Е из первой книги кнута и после
вычислений прога должна ожидать нажатия клавиши, но она почему-то
сразу закрывается.
Когда запускаю под отладчиком, то всё работает.
Помогите разобраться...

;алгоритм нахождения наибольшего частного
;m>n, m/n-до тех пор пока R<>0
code segment
assume cs:code,ds:data
org 100h
begin:
      call inint    ;вводим n
      mov  ch1,ax
      call inint    ;вводим m
delit: div ch1      ;m/n
      cmp  dx,0     ;r=0?
      jne  obmen    ;если нет то m=:n,n=:r и снова делим
      mov  ax,ch1
      call outint   ;выводим частное на экран
      mov ah,10h
      int 16h       ;ждём нажатия клавиши
      mov  ax,4c00h
      int  21h      ;конец
obmen: xor  ax,ax
      xchg ch1,ax
      xchg dx,ch1
      jmp  delit
inint proc near
      push cx
      push dx
      push bx
      push si
      xor  si,si
      xor  bx,bx
      xor  cx,cx
      mov  ah,01h
      int  21h
      cmp  al, '-'
      jne  short c9
      inc  si
insi: mov  ah,01h
      int  21h
c9:   cmp  al, '9'
      ja   short @ii2
      sub  al,30h
      jb   short @ii2
      mov  cl,al
      shl  bx,1
      mov  ax,bx
      shl  ax,2
      add  bx,ax
      add  bx,cx
      jmp  short insi

@ii2: test si,si
      jz   short @ii3
      neg  bx
@ii3: mov  ah,02h
      mov  dl,0dh
      int  21h
      mov  dl,0ah
      int  21h
      mov  ax,bx
      pop  si
      pop  bx
      pop  dx
      pop  cx
      ret
inint endp
outint proc
      push ax
      xor  cx,cx
      mov  bx,10
@oi2: xor  dx,dx
      div  bx
      push dx
      inc  cx
      test ax,ax
      jnz  short @oi2
      mov  ah,02h
@oi3: pop  dx
      add  dl,30h
      int  21h
      loop @oi3
      pop  ax
      ret
outint endp

code ends

data segment
ch1 dw ?
data ends

end begin

[Kastaneda]

Ожидание нажатия клавиши - это нулевая ф-ция INT 16h, т.е. должно быть :

mov ah,0
int 16h

[begovik]

всёравно закрывается, причём даже если это прерывание вставить в
конце подпрограммы "outint"

[Kastaneda]

)) я ее скомпилировал и проверил)) Ожидание нажатия клавиши работает!!! Если первую переменную ввести с "-", то все работает как надо, следовательно ошибка здесь:

 cmp  al, '-'
      jne  short c9
      inc  si
insi: mov  ah,01h
      int  21h

честное слово, самому переделать некогда.

P.S. под отладчиком не смотрел, но судя по логике все так, как я написал.

[Kastaneda]

Посмотрел внимательно на код, по-моему некоторые его участки ни когда не выполнятся.

[begovik]

Посмотрел внимательно на код, по-моему некоторые его участки ни когда не выполнятся.

Это потому, что "inint" и "outint" я взял готовые.

Всё равно не получается, а на другом компе вообще пишет: "переполнение деления"

честное слово, самому переделать некогда.

Спасибо,что уделил внимание буду разбираться.
Только ещё один вопрос: не мог-ли Kaspersky I.S. испортить некоторые файлы TASMa?

[airyashov]

      call inint    ;вводим n
      mov  ch1,ax
      call inint    ;вводим m
delit: div ch1      ;m/n !!!!!dx:ax/ch1!!!!!!
      cmp  dx,0     ;r=0?
      jne  obmen    ;если нет то m=:n,n=:r и снова делим

[begovik]

ДА обнулил dx и всё ЗАРАБОТАЛО!
Спасибо! Kastaneda
Спасибо! Airyashov