Вычислить сумму квадратов чисел от 1 до N. N≤100

[necromicus]

Помогите с прогой. Не могу понять где косяк. Не работает.

%nolist
include mac.lib
%list

data segment para
n	dw	?
s	dw	?

mes1 db 10,13,'n=$'
mes2 db 10,13,'s=$'
mes3 db 10,13,'nedopustimoe znachenie$'
data ends
stk	 segment	para
db 256 dup(?)
stk ends
code	segment para
assume ds:data,ss:stk, cs:code
start: mov	ax,data
mov ds,ax
; инициализация ds выполнена
message mes1
key_$2bin
mov n,ax

mov ax,n
cmp ax,0
jg m1

mov ax,n
cmp ax,100
jl m1


m3:mov ax,n;	n->ax
imul n;	ax*ax
add cx,ax
mov cx,ax
sub n,1;	ax-1
jne m3
jmp m2

m1: mov ah,9
mov dx, offset mes3
int 21H
jmp exit

m2: mov ah,9
mov dx, offset mes2
int 21H
jmp exit

PRINT_NUMBER
exit: mov ah,4Ch
int 21h
code ends
end start
end

[Serge_Bliznykov]

во-первых, когда Вы пишете:

add cx,ax

то результат суммирования получается в cx, не надо его уничтожать содержимым ax:

mov cx,ax  <- это явно ошибка!

во-вторых.
но это всё не главное..
я прикинул сейчас сумму, там получается 338350
это число явно больше, чем может вместить в себя один 16-битный регистр (если не ошибаюсь, Вы сумму накапливаете в cx ?).

[necromicus]

да, сумма копится в сх. Разве используя

add cx,ax

я не суммирую cx c ax и оставляю это в регистре сх. Насчет переполнения вы правы. А если применить cwd (расширение до 2 слов)?

[Serge_Bliznykov]

да, сумма копится в сх. Разве используя

add cx,ax

я не суммирую cx c ax и оставляю это в регистре сх.

всё так.
Но вы посмотрите, Вы следующей командой портите результат суммирования!!

imul n          ;	ax*ax
add cx,ax     ;	сx := cx + ax
mov cx,ax       ;	потеряли результат суммирования!!!

А насчёт cwd не подскажу, у меня знаний и опыта не хватает, а лазить по доками сейчас нет свободного времени!

[necromicus]

все равно не помогает, я просто убрал эту строку и пытался менять местами регистры

[Serge_Bliznykov]

код, который работает при малых значениях n (при n<=45)

%nolist
include mac.lib
%list

data segment para
n       dw      ?
s       dw      ?

mes1 db 10,13,'n=$'
mes2 db 10,13,'s=$'
mes3 db 10,13,'nedopustimoe znachenie$'
data ends
stk      segment        para
db 256 dup(?)
stk ends
code    segment para
assume ds:data,ss:stk, cs:code
start: 
  mov      ax,data
  mov ds,ax
  ; инициализация ds выполнена

  message mes1

  key_$2bin

  mov n,ax

  cmp ax,1
  jl wrongNumber

  cmp ax,45   ; свыше 45 и подсчёт и тем более процедура вывода результата  НЕ ГОДЯТСЯ!
  jg wrongNumber

  mov cx,0
m3:
  mov ax,n;    n->ax
  imul n; ax*ax
  add cx,ax
  sub n,1;        ax-1
  jne m3
  jmp writeSum

wrongNumber: 
  message mes3
  jmp exit

writeSum: 
  message mes2

  mov ax, cx
  PRINT_NUMBER

exit: 
 
  ;ожидание нажатия любой клавиши и выход 
  mov ah, 01h
  int 21h

  mov ah,4Ch
  int 21h
code ends
end start
end

[Serge_Bliznykov]

процедуру вычисления можно заменить на такую:

  mov ax,0
  mov dx,0
m3:
  push ax
  push dx
  mov ax,n;    n->ax
  imul n; ax*ax
  mov bx, dx
  mov cx, ax
  pop dx
  pop ax
  add ax,cx
  adc dx,bx
  sub n,1;        ax-1
  jne m3
  jmp writeSum

вычисление сделано очень не оптимально, "в лоб", зато работает корректно!

результат будет в двух регистрах (double word):
в dx старшее слово
в ax младшее слово.

Но для вывода данного числа на экран Вам потребуется процедура, которая работает с двойным словом...