bars256

; 256 byte rasterbar fun; coded by cruzer/cml; compiled with mxass;variables....la ystart=$3c;memory....la sineval=$02.la timer=$04.la pointers=$20.la add=$40.la ys=$60.la tmp=$fe.la rasters=$1000.la sine=$1200.la rndsrc=$a000.ba $0801basic.by $0b,$08,$01,$00,$9e,$32,$30,$36,$31,0,0,0seipntinitldx #$02-lda rndsrc,xsta $00,xinxbne -sinegen;ldx #$00stx $d011stx sinevalstx sineval+1ldy
#$7f-lda sinevalclcsa1adc #
$00sta sinevallda sineval+1sa2adc #$00sta sineval+1lda sa1+1;clcadc #$10sta sa1+1bcc +inc sa2+1+lda sineval+1sta sine,xsta sine+$80,yeor #$ffsta sine+$80,xsta sine,yinxdeycpx #$40bne -mainclearlda #$00tax-sta rasters,xdexbne -update_pntsldx #$1f-lda add,xand
#$03secsbc #
$02bne +lda #$02+clcadc pointers,xsta pointers,xdexbpl -addsinesldx #$0f-ldy pointers,xlda sine,ylsrldy pointers+$10,xclcadc sine,yrorsta ys,xdexbpl -plotlda #