prog_seg     segment
            org 100h
            assume cs:prog_seg,ds:prog_seg,ss:prog_seg
   main       proc    near
            mov     ax,prog_seg
            mov     ds,ax
            ´´
   ; 秀羨仇峽燕
            mov     table,offset   ary
            mov     table+2,offset  count
            mov     table+4,offset  sum
            mov     bx,offset     table ; 仇峽燕遍仇峽僕bx
            call    proadd         ; 距喘徨殻會proadd
            ´´
            mov     ax,4c00h
            int     21h
   main       endp

  ; 徨殻會proadd
   proadd      proc    near
            push    ax          ; 隠贋篠贋匂
            push    cx
            push    si
            push    di
            mov     si,[bx]       ; 方怏ary遍仇峽僕si
            mov     di,[bx+2]      ; count汽圷仇峽僕di
            mov     cx,[di]       ; count汽圷坪否僕cx
            mov     di,[bx+4]      ; sum汽圷仇峽僕di
            xor     ax,ax
   next:       add     ax,[si]
            add     si,2
   loop        next
            mov     [di],ax       ; 拙紗才僕sum汽圷
            pop     di          ; 志鹸篠贋匂
            pop     si
            pop     cx
            pop     ax
            ret
  proadd       endp
 ; 方象協吶
            ary     dw 100 dup(?)
            count    dw 100
            sum     dw ?
            table    dw 3 dup(?)     ; 仇峽燕
  prog_seg      ends
  end         main