*=$4000 :startsinus ldx #0 ldy #0 :loop lda #0 sta $d018 tya clc adc sinus,x sta compare + 1 :compare cpy #0 bne sameval inx inc loop + 1 :sameval iny bpl loop lda #0 sta loop + 1 inc startsinus + 1 jmp startsinus *=$4100 :sinus .byte 0,1,2,4,8,... 512 valuesÂ… or double a 256 sinus