M-02

Description #

M-02: Greatest common divisor

M-02.af #

PROGRAM LIST
File : M-02

*** P0
AC “Input <a>” HLT
abs Min01 Min0F AC “
Input <b>” HLT abs
Min02
x≥F X↔M01
Min02
LBL1
MR01 ÷ MR02 = INT ×
MR02 - MR01 = ±
x=0 GOTO2
X↔M02 Min01
GOTO1
LBL2
MR02 “<c>=#######”
       ···67 steps