http://www.jwz.org/xscreensaver/xscreensaver-5.13.tar.gz
[xscreensaver] / hacks / images / m6502 / random.asm
1 loop: lda $fe       ; A=rnd\r
2       sta $00       ; ZP(0)=A\r
3       lda $fe\r
4       and #$3       ; A=A&3\r
5       clc           ; Clear carry\r
6       adc #$2       ; A+=2\r
7       sta $01       ; ZP(1)=A\r
8       lda $fe       ; A=rnd\r
9       ldy #$0       ; Y=0\r
10       sta ($00),y   ; ZP(0),ZP(1)=y\r
11       jmp loop\r