samples/sumn3.asm

   1 .model      small
   2 .code
   3 ;read_num, print_num are macros
   4         read_num n
   5         mov cx, n
   6 l1:
   7         read_num num
   8         push num
   9         loop l1
  10         push n
  11         call sumn
  12         pop rez
  13         print_num rez
  14 end1:
  15         nop
  16
  17 sumn    proc
  18 ;n is on top of the stack
  19 ;sum the next n top elements of the stack
  20         pop cx
  21         mov ax, 0
  22         mov dx, 0
  23 theloop:
  24         pop ax            ; get next from stack
  25         add dx, ax        ; array sum is in dx
  26         loop theloop
  27         push dx           ; result
  28             ret
  29 sumn    endp
  30
  31 .data
  32         num dw 12
  33         n dw 3
  34         rez dw 0
  35 .stack
  36 end