mirror of https://git.sr.ht/~kikoodx/bcasm
32 lines
328 B
NASM
32 lines
328 B
NASM
;find all prime numbers between 3 and 100
|
|
;main loop
|
|
MOV 3 N
|
|
LBL M
|
|
; number to test
|
|
MOV N A
|
|
MOV A ANS
|
|
SUB 3
|
|
; test loop
|
|
LBL L
|
|
ADD 2
|
|
MOV ANS D
|
|
; remainder test
|
|
MOV A ANS
|
|
MOD D
|
|
JEZ F
|
|
; dsz d
|
|
MOV D ANS
|
|
; lpwhile d>2
|
|
SUB 3
|
|
JMZ L
|
|
; true
|
|
MOV A ANS
|
|
DSP
|
|
; false
|
|
LBL F
|
|
MOV N ANS
|
|
ADD 2
|
|
MOV ANS N
|
|
SUB 99
|
|
JNZ M
|