M-01

Description #

M-01: Prime numbers

M-01.af #

PROGRAM LIST
File : M-01

*** P0
Min01 AC “Start”
GOTO2
LBL1
MR01 ÷ 2 “;×#” HLT =
Min01 - 1 =
x=0 GOTO0
LBL2
MR01 ÷ 2 = FRAC
x=0 GOTO1
LBL3
3 Min02
LBL4
MR01 √ Min0F 1 M+0F
LBL5
MR01 ÷ MR02
x≥F GOTO7
= FRAC
x=0 GOTO8
LBL6
2 M+02
GOTO5
LBL8
MR01 ÷ MR02 × MR02 -
MR01 =
x=0 GOTO9
GOTO6
LBL9
MR01 ÷ MR02 “;×#”
HLT = Min01
GOTO4
LBL7
MR01 “;×#” HLT
LBL0
“;×END”
       ···100 steps