> And then Bob went on to write
> > or...
> >
> >                 incf    A,w           ; result in W
> >                 btfsc   A,1
> >                 iorwf   A,w
>
> Which I thought of too (after Mike's post of course) only to
> realize that it doesn't work. Consider the case A=0.

Of course.

Leaving 'A' unchanged, and the result in W, can be done in four
cycles using Mike's approach:

                clrw
                btfsc    A,1
                incf     A,w
                iorwf    A,w

___Bob