home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / DMZ.LZH / PRG3.3 < prev    next >
Encoding:
Text File  |  1987-12-17  |  406 b   |  14 lines
  1.         MOVE.W    ANTAL,D7    ; Ladda D7 med antalet tal
  2.         LEA    TABELL,A0    ; A0 pekar på tabellens start
  3.         CLR.L    D0        ; Rensa D0
  4. ADDERA:        ADD.W    (A0)+,D0    ; Addera tal i tabell
  5.         SUB.W    #1,D7        ; Minska D7
  6.         BNE    ADDERA        ; Tills alla tal adderade
  7.         DIVU    ANTAL,D0    ; Dela D0 med antalet tal
  8.         MOVE.W    D0,SVAR        ; Spara D0 i SVAR
  9.         RTS            ; Då var vi färdiga
  10.  
  11. ANTAL:        DC.W    10
  12. TABELL:        DC.W    7,8,2,13,24,9,63,40,10,118
  13. SVAR:        DC.W    0
  14.