home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / CPROG / TASMSWAN.ZIP / DOTOTAL.ASM < prev    next >
Assembly Source File  |  1989-05-31  |  424b  |  26 lines
  1. ;
  2. ; dototal.asm
  3. ;        Use with showtot.c to demo linking ASM with C
  4. ;
  5.     DOSSEG
  6.     .MODEL SMALL
  7.     .DATA
  8.     EXTRN _Repetitions:WORD
  9.     PUBLIC _StartingValue
  10. _StartingValue DW 0
  11.     .DATA?
  12. RunningTotal DW  ?
  13.     .CODE
  14.     PUBLIC _DoTotal
  15. _DoTotal    PROC
  16.     mov    cx,[_Repetitions]
  17.     mov    ax,[_StartingValue]
  18.     mov    [RunningTotal],ax
  19. TotalLoop:
  20.     inc    [RunningTotal]
  21.     loop    TotalLoop
  22.     mov     ax,[RunningTotal]
  23.     ret
  24. _DoTotal    ENDP
  25.     END
  26.