From 58cf4285492dd69ed856e275b17a646e093eea9b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Manuel=20V=C3=B6gele?= <develop@manuel-voegele.de>
Date: Tue, 9 Jun 2015 15:10:51 +0200
Subject: [PATCH] Too old for free candy? NEVER!

---
 Aufgabe3_Vögele_Wörner.X68 | 63 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 Aufgabe3_Vögele_Wörner.X68

diff --git a/Aufgabe3_Vögele_Wörner.X68 b/Aufgabe3_Vögele_Wörner.X68
new file mode 100644
index 0000000..5c5b835
--- /dev/null
+++ b/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~