Ассемблер

[Artur95]

Помогите пожалуйста исправить ошибку в примере. пишет - переполнение деления :

page 200,200

sseg segment stack 'stack'
db 128 dup(?)
sseg ends

dseg segment 'data'
text1 db 'Program started',13,10,'$'
text2 db '(A*A-B)*C*C = $'
A db 34d
B db 79d
C db 6d
Prom1 dw ?
RESS dw ?


dseg ends

cseg segment 'code'
assume cs:cseg, dsseg, ss:sseg

ShowSum proc far
push CX
push DX
push BX
mov CX, 0
mov BL, 10d

dividing: div BL
add AH, 30h
push AX

cbw

inc CX
cmp AL, 0
JE show
JMP dividing

show: pop AX
mov DL, AH
mov AH, 02h
int 21h
LOOP show

pop BX
pop DX
pop CX
ret
ShowSum endp
start proc far
mov ax, dseg
mov ds, ax
m1: lea dx, text1

call WrStr
mov dx, offset text2

call WrStr
m2:

mov al, B
cbw
mov Prom1, ax
mov al, A
mul al
sub ax, Prom1
mov bx, ax
mov al, C
mul al
mul bx

mov RESS, ax
call showSum

m4: mov ah, 4Ch
int 21h

start endp

WrStr proc near
mov ah,09h
int 21h
ret
WrStr endp

cseg ends
end start

[Goodwin98]

Во-первых у вас получается слишком большое число. В 16разрядном регистре можно хранить числа только до 65535.
А во-вторых если вы так поменяете процедуру, то она сможет вывести на экран такие числа.

ShowSum proc far
push CX
push DX
push BX
mov CX, 0
mov BX, 10

dividing: 
xor dx,dx
div BX
add dl, 30h
push dx



inc CX
cmp AX, 0
JE show
JMP dividing

show:
pop dx
mov AH, 02h
int 21h
LOOP show

pop BX
pop DX
pop CX 
ret
ShowSum endp

Add: посчитал неправильно, в результате получается 38772, а значит нужно только изменить эту процедуру.

[alexcoder]

В твоем примере нужно cbw ставить перед div bl, но и в этом случае программа работает неправильно. Результат вычисления равен 38778, а значит для работы с ним требуется минимум слово, а твоем примере старший байт просто отбрасывается. Вот правильная функция

ShowSum proc far
push CX
push DX
push BX
mov CX, 0
mov Bx, 10d

dividing: 
xor dx,dx

div Bx
add dl, 30h
push dx


inc CX
cmp Ax, 0
JE show
JMP dividing

show: pop AX
mov DL, Al
mov AH, 02h
int 21h
LOOP show

pop BX
pop DX
pop CX
ret
ShowSum endp

P.S. немного не успел)))