http://www.tienza.es/crux/src/www.jwz.org/xscreensaver/xscreensaver-5.05.tar.gz

[xscreensaver] / hacks / images / m6502 / random.asm

loop: lda $fe       ; A=rnd\r
      sta $00       ; ZP(0)=A\r
      lda $fe\r
      and #$3       ; A=A&3\r
      clc           ; Clear carry\r
      adc #$2       ; A+=2\r
      sta $01       ; ZP(1)=A\r
      lda $fe       ; A=rnd\r
      ldy #$0       ; Y=0\r
      sta ($00),y   ; ZP(0),ZP(1)=y\r
      jmp loop\r