dycp256

;256 bytes dycper fun;cryptic code by cruzer/cml 2003-04;compiled with mxass;memory....la pnt = $0c.la ad2 = $14.la x = $33.la cs = $b1.la sine = $1000.la text = $a2ed.la rndsrc1 = $b2dd.ba $0801basic.by $0b,$08,$01,$00,$9e,$32,$30,$36,$31,0,0,0;fill $0a00-$7fff with "random" data from the rom...-lda rndsrc1,xseirssta $0a00,xsta $d018lda ($ff,x) ;slows it downinxbne -inc rs+2
bp
l -;setup charset on screen...;ldx
#$00;ldy #
$00;sty cs;lda #$3c;sta cs+1-looptxasta ($b1),ylda cs+0clcadc #$28sta cs+0bcc +inc cs+1+cmp
#$40bne +lda #
$00sta cs+0dec cs+1iny+inxbne -loop;generate sine...ldy
#$7f-sval1lda #
$00clcsa1adc
#$00sta sval1+1sval2lda #
$00sa2adc #$00sta sval2+1sta sine+$80,xsta sine+$00,yeor #$7fsta sine+$00,xsta sine+$80,ylda sa1+1;clcadc #$08sta sa1+1bcc +inc sa2+1+inxdeycpx #$40bne -mainlda #$27sta ds+2lda pntsta $feeor #$ffaslsta $fflda #$1fsta x-loopldx xlda text,xsecsbc #$40aslsta cl+1lda #$1b ;d8>>3rolasl cl+1rolasl cl+1rolsta cl+2lda #$33sta $01ldx $fflda sine,xldx $fe;clcadc sine,xlsrlsrlsrtayldx #$00txa-dssta $27c0,ycllda $d800,xinyinxcpx #$09bne -txa ;lda #$09clcadc $ffsta $fflda ad2 ;#$0eclcadc $festa $felda ds+1secsbc #$40sta ds+1bcs +dec ds+2+dec xbpl -looplda #$b7sta $01-cmp $d012rbbne -inc pntbne +inc pnt+1lda pnt+1and
#$03bne +lda ad2eor #
$80sta ad2lda rb+1eor #$fbsta rb+1+jmp main