<<<--- % Author M.Ruckert LOC #100 Main IS @ X GREG 0 A GREG 0 --->>> LDOU $0,X SLU $1,$0,1 Shift left on bit. BNN $0,1F Jump if the high bit was originally zero. LDOU $2,A Otherwise XOR $1,$1,$2 Otherwise adjust the number with "exclusive or." 1H STOU $1,X