plot lda sincos_hi(a,s),x sta $ff sta clear+1 ldy sincos_lo(a,s),x sty clear+2 lda sincos_bit(a,s),x ; ora ($fe),y sta ($fe),y . . . clear sta $ffff