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

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

diff --git a/hacks/images/m6502/random2.asm b/hacks/images/m6502/random2.asm
new file mode 100644 (file)
index 0000000..c209f9f
--- /dev/null
+++ b/hacks/images/m6502/random2.asm
@@ -0,0 +1,11 @@
+      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 $600\r