[[SET Driver LOC #100 GREG @ U OCTA [[u]] V OCTA [[v]] GCD OCTA [[gcd]] Main LDO $1,U LDO $2,V PUSHJ $0,Gcd LDO $1,GCD CMP $255,$1,$0 TRAP 0,Halt,0 [[INCLUDE euclid.mms]] ]] [[TEST 1]] [[SET u 6]] [[SET v 3]] [[SET gcd 3]] [[Driver]] [[END 1]] [[TEST 2]] [[SET u 6]] [[SET v 0]] [[SET gcd 6]] [[Driver]] [[END 2]] [[TEST 3]] [[SET u 0]] [[SET v 6]] [[SET gcd 6]] [[Driver]] [[END 3]] [[TEST 4]] [[SET u 1]] [[SET v 6]] [[SET gcd 1]] [[Driver]] [[END 4]] [[TEST 5]] [[SET u 6]] [[SET v 1]] [[SET gcd 1]] [[Driver]] [[END 5]] [[TEST 6]] [[SET u 12]] [[SET v 18]] [[SET gcd 6]] [[Driver]] [[END 6]] [[TEST 7]] [[SET u 2*2*17*19*19*1001*5*7]] [[SET v 2*17*19*1001*7*7*7*1001*13*23]] [[SET gcd 2*17*19*1001*7]] [[Driver]] [[END 7]]