Привет.

Вот код

Код

STSEG SEGMENT STACK  db 100h dup (?) STSEG ENDS DATASG SEGMENT  n dw ?  i dw ?  sCX dw ?  welcome db 'Введите n: $' DATASG ENDS CODESG SEGMENT  ASSUME CS: CODESG, SS: STSEG, DS: DATASG  EXTRN READ:NEAR  EXTRN WRITE:NEAR START PROC FAR  mov AX, DATASG  mov DS, AX  call MAIN  mov AX, 4C00h  int 21h START ENDP MAIN PROC  lea DX, welcome   ; выводим приглашение  mov ah, 9         ;  int 21h           ;  call READ  mov CX, AX  mov n,  AX l_loop1:  mov AX, n  sub AX, CX  mov i, AX  mov sCX, CX    inc CX l_loop2:  mov AX, i  mov BX, sCX  inc BX  sub BX,CX  call Cmn          ; результат в AX  call WRITE  loop l_loop2  mov CX, sCX  loop l_loop1  ret MAIN ENDP Cmn PROC  cmp AX,BX  jz  EXITP  cmp BX, 0  jz  EXITP ;вызываем себя  dec AX  push AX  call Cmn  pop DX  push AX  mov AX, DX  dec BX  call Cmn  pop DX  add AX, DX  ret EXITP:  mov AX, 1  ret Cmn ENDP   CODESG ENDS END START

Прога должна выводить треугольник паскаля. Вывод конечно не оформлен, но вопрос не в выводе. при запуске она вылетает. Подскажите где ошибка в коде.

Спасибо

А на каком она моменте вылетает? т.е. на какой команде... посмори её в отладчике... самому лениво се это прогонять...
А че эта за внешнии READ и WRITE?

1. Что такое процедуры READ и WRITE ? Видимо, считать/записать число ?
2. В основном цикле ("l_loop1") критично значение счетчика цикла - CX. Не разрушают ли его команды подпрограммы WRITE ?
3. А вылетает прога скорее всего из-за процедуры Cmn. Смотри:

Допустим, выполнилось вот это:

Цитата

push AX call Cmn

И был выполнен вызов самой Cmn. Те далее выполнятся вот эти команды:

Цитата

cmp AX,BX jz  EXITP cmp BX, 0 jz  EXITP dec ax

Когда я гонял твой код, то я для отладки вводил стартовое n=3 и видел, как твоя прога попадала в бесконечную рекурсию со всеми вытекающими последствиями (ax=0, dec ax->ax=0FFFFh, dec ax-> ax=0FFFEh,dec ax->...) Проверь алгоритм рекурсивной подпрограммы.

Проблема решилась. Глюк первый был в процедуре Cmn. Глюк второй был с циклами. Я решил их переделать через cmp и команду переходов. Всё заработало. Из дому выложу код. Процедура Read читает число 1-2 байта, процедура Write выводит.