home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tasm / chapxmpl.arc / TOTAL.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-10-09  |  733 b   |  23 lines
  1.         DOSSEG        ; Intel-Reihenfolge der Segmente vorgeben
  2.         .MODEL SMALL    ; Auswahl des Speichermodells SMALL
  3.         .DATA        ; TC-Segment für initialiserte Daten
  4.         EXTRN    _Wiederholungen:WORD    ; extern definiert
  5.         PUBLIC    _Anfangswert    ; Deklaration für andere Module
  6. _Anfangswert    DW    0
  7.         .DATA?            ; TC-kompatibles Segment
  8.                         ; für nicht initialiserte Daten
  9. LaufendeSumme    DW    ?
  10.         .Code            ; TC-kompatibles Code-Segment
  11.         PUBLIC    _Total
  12. _Total        PROC
  13.         mov    cx,[_Wiederholungen]    ; Anzahl der Durchläufe
  14.         mov    ax,[_Anfangswert]
  15.         mov    [LaufendeSumme],ax    ; Anfangswert festlegen
  16. Summieren:
  17.         inc    [LaufendeSumme]    ; Laufende Summe inkrementieren
  18.         loop    Summieren
  19.         mov    ax,[LaufendeSumme]    ; Ergebnis zurückgeben
  20.         ret
  21. _Total        ENDP
  22.         END
  23.