home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / CHAPXMPL.ZIP / DOTOTAL2.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-29  |  987 b   |  29 lines
  1. DGROUP  group    _DATA,_BSS
  2. _DATA   segment  word public 'DATA'
  3.         EXTRN    _Repetitions:WORD        ;externally defined
  4.         PUBLIC   _StartingValue           ;available to other
  5.                                           ;modules
  6. _StartingValue    DW 0
  7. _DATA   ends
  8. _BSS    segment   word public 'BSS'
  9. RunningTotal      DW  ?
  10. _BSS    ends
  11. _TEXT   segment   byte public 'CODE'
  12.         assume    cs:_TEXT,ds:DGROUP,ss:DGROUP
  13.         PUBLIC    _DoTotal
  14. _DoTotal          PROC                    ;function (near-callable
  15.                                           ; in small model)
  16.         mov       cx,[_Repetitions]       ;# of counts to do
  17.         mov       ax,[_StartingValue]
  18.         mov       [RunningTotal],ax       ;set initial value
  19. TotalLoop:
  20.         inc       [RunningTotal]          ;RunningTotal++
  21.         loop      TotalLoop
  22.         mov       ax,[RunningTotal]       ;return final total
  23.         ret
  24. _DoTotal ENDP
  25. _TEXT   ENDS
  26.         END
  27.  
  28.  
  29.