<<<--- % Author M.Ruckert LOC #100 Main IS @ --->>> a GREG X GREG c GREG q IS $0 r IS $1 tmp IS $2 MULU r,a,X; GET q,rH $ (q,r) \is aX = qw+r$ NOR tmp,q,0 $ tmp \is (w-1)-q $ SUBU X,r,tmp $ X \is r+q-(w-1) \bmod w$ CMPU tmp,r,tmp; BNN tmp,Exit Exit if $r \ge (w-1)-q$ SUBU X,X,1 $ X \is r+q+(w-1) \bmod w$ <<<--- Exit TRAP 0,Halt,0 --->>>