home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tasm / chapxmpl.arc / TOTAL2.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-10-09  |  679 b   |  25 lines
  1. DGROUP    GROUP    _DATA,_BSS
  2. _DATA        SEGMENT    WORD PUBLIC 'DATA'
  3.         EXTRN    _Wiederholungen:WORD    ; extern definiert
  4.         PUBLIC    _Anfangswert        ; Bekanntmachung für andere Module
  5. _Anfangswert    DW    0
  6. _DATA        ENDS
  7. _BSS        SEGMENT    WORD PUBLIC 'BSS'
  8. LaufendeSumme    DW    ?
  9. _BSS        ENDS
  10. _TEXT        SEGMENT    BYTE PUBLIC 'Code'
  11.         ASSUME    CS:_TEXT, DS:DGROUP, SS:DGROUP
  12.         PUBLIC    _Total
  13. _Total    PROC NEAR
  14.         mov    cx,[_Wiederholungen]    ; Anzahl der Durchläufe
  15.         mov    ax,[_Anfangswert]
  16.         mov    [LaufendeSumme],ax    ; Anfangswert festlegen
  17. Summieren:
  18.         inc    [LaufendeSumme]        ; Laufende Summe inkrementieren
  19.         loop    Summieren
  20.         mov    ax,[LaufendeSumme]    ; Ergebnis zurückgeben
  21.         ret
  22. _Total        ENDP
  23. _TEXT        ENDS
  24.         END
  25.