git.hungrycats.org Git - xscreensaver/blob - 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