In other words: you're sticking by the mailbox?
This commit is contained in:
@@ -1,63 +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~
|
||||
*-----------------------------------------------------------
|
||||
* 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~
|
||||
|
||||
Reference in New Issue
Block a user