plott: lda Lobyte sta $fb sta wiperoutine1+1 lda Hibyte sta $fc sta wiperoutine1+2 //plottit rts wiperoutine: lda #$00 wiperoutine1: sta $2000 wiperoutine2: sta $2000 //.... rts