Too old for free candy? NEVER!

Aufgabe3_Vögele_Wörner.X68

@@ -0,0 +1,63 @@
+*-----------------------------------------------------------
+* Title      : prime factorization
+* Written by : Manuel Voegele and Simon Woerner
+* Date       : 2015-06-09
+* Description: RTFT
+*-----------------------------------------------------------
+    ORG    $3000
+
+* Put program code here
+FACTORIZATION:
+    move.l #2, D2
+     
+FACTORIZATION_LOOP:
+    move.l D0, D3
+    divu D2, D0
+    swap D0
+    cmp.w  #0, D0
+    beq FACTOR_FOUND
+    
+    add.w #1, D2
+    move.l D3, D0
+    bra FACTORIZATION_LOOP
+    
+FACTOR_FOUND:
+    swap D0
+    move.w D2, (A1)+
+    
+    cmp.w #1, D0
+    bgt FACTORIZATION_LOOP
+    
+    rts
+    
+START:                      ; first instruction of program
+    move.l  #numbers, A0
+    move.l  #liste, A1
+    move.l  #anzahl, D1
+    
+LOOP:
+    move.w  (A0)+, D0
+    bsr     FACTORIZATION
+    
+    sub     #1, D1
+    
+    cmp.l   #0, D1
+    bgt     LOOP    
+    
+    SIMHALT             ; halt simulator
+
+* Put variables and constants here
+
+numbers dc.w   42,6930,997
+anzahl  EQU    3
+
+liste   ds.w   20
+
+    END    START        ; last line of source
+
+
+
+*~Font name~Courier New~
+*~Font size~10~
+*~Tab type~1~
+*~Tab size~4~