53 lines
1.1 KiB
Plaintext
53 lines
1.1 KiB
Plaintext
*-----------------------------------------------------------
|
|
* Title : Prime number calculator
|
|
* Written by : Manuel Voegele and Simon Woerner
|
|
* Date : 2015-06-23
|
|
* Description: Calculates the prime numbers from 3 to 100
|
|
*-----------------------------------------------------------
|
|
ORG $3000
|
|
START: ; first instruction of program
|
|
|
|
* Put program code here
|
|
|
|
move.w #n_start, D0
|
|
move.l #list, A0
|
|
|
|
LOOP_CHECK_PRIME:
|
|
move.w #2, D1
|
|
|
|
LOOP_CHECK_NUMBER:
|
|
move.w D0, D2
|
|
divu D1, D2
|
|
clr.w D2
|
|
swap D2
|
|
cmp.w #0, D2
|
|
beq LOOP_FOOT_NEXT_PRIME
|
|
add.w #1, D1
|
|
move.w D1, D2
|
|
mulu D2, D2
|
|
cmp.w D0, D2
|
|
ble LOOP_CHECK_NUMBER
|
|
|
|
move.w D0, (A0)+
|
|
|
|
LOOP_FOOT_NEXT_PRIME:
|
|
add.w #1, D0
|
|
cmp #n_end, D0
|
|
ble LOOP_CHECK_PRIME
|
|
|
|
SIMHALT ; halt simulator
|
|
|
|
* Put variables and constants here
|
|
|
|
n_start EQU 3
|
|
n_end EQU 100
|
|
|
|
list ds.w 100
|
|
|
|
END START ; last line of source
|
|
|
|
*~Font name~Courier New~
|
|
*~Font size~10~
|
|
*~Tab type~1~
|
|
*~Tab size~4~
|