ent gcd
lod v
ldc 0
equ
fjp L2
lod u
ujp L1
ujp L3
lab L2
mst
lod v
lod u
lod u
lod v
div
lod v
mut
sub
cup gcd
ujp L1
lab L3
lab L1
ret
ent main
lda x
ldc 49
sto
lda y
ldc 21
sto
lda result
mst
lod x
lod y
cup gcd
sto
lod result
ujp L4
lab L4
ret