<<<--- % Author M.Ruckert LOC #100 GREG @ U OCTA 1000 V OCTA 30 Main LDO $1,U LDO $2,V PUSHJ $0,gcd TRAP 0,Halt,0 --->>> u IS $0 Parameter v IS $1 k IS $2 Local variable t IS $3 gcd SET k,0 \ul{\sl B1.~Find powers of 2.} 0H OR t,u,v; PBOD t,2F Both even? SR u,u,1; SR v,v,1 $u\is u/2$ and $v\is v/2$ ADD k,k,1 $k \is k+1$ JMP 0B 2H NEG t,v \ul{\sl B2.~Initialize.} BOD u,4F SET t,u 3H SR t,t,1 \ul{\sl B3.~Halve $t$.} 4H BEV t,3B \ul{\sl B4.~Is $t$ even?} CSP u,t,t \ul{\sl B5.~Reset $\max(u,v)$.} NEG t,t CSNN v,t,t SUB t,u,v \ul{\sl B6.~Subtract.} PBNZ t,3B SL u,u,k POP 1,0 Return $u2^k$.