http://www.jwz.org/xscreensaver/xscreensaver-5.13.tar.gz
[xscreensaver] / hacks / images / m6502 / starfield2d.asm
1 ; 2d starfield
2 ; Submitted by Anonymous
3
4 i:ldx #$7
5 g:lda $fe
6   and #3
7   adc #1
8   sta $0,x
9   lda $fe
10   and #$1f
11   sta $20,x
12   dex
13   bpl g
14 f:
15   lda #$ff
16   sta $10
17   delay:
18   nop
19   dec $10
20   bne delay
21
22   lda #$00
23   sta $80
24   lda #$02
25   sta $81
26   ldx #$7
27 l:lda $20,x
28   pha
29   clc
30   sbc $00,x
31   and #$1f
32   sta $20,x
33   lda $20,x
34   tay
35   lda #1
36   sta ($80),y
37   pla
38   tay
39   lda #0
40   sta ($80),y
41   lda $80
42   clc
43   adc #$80
44   bne n
45   inc $81
46 n:sta $80
47   dex
48   bpl l
49   jmp f
50