#H o# ~###### ~$ ~$! "$# $$)#:* ", - . /$W2 W3$o7 o8$.: ; < =$c@ cA$~C K#K$L$P gQ 80$ SEC A <= A/2 ROR A LDX #$FF X <= -1 LDY NEWVALUE Y <= NEWVALUE RTS RETURN ; 80$ LDA #0 A <= 0 RTS RETURN W/ Y = OLD VALUE ; .END K ALUE RTS RETURN ; 50$ ORA #%11000000 ELSE OR IN HIGH ORDER BITS CMP #$FF IF <> *