git.hungrycats.org Git - xscreensaver/blob - hacks/images/m6502/colors.asm

   1 ; submitted by Anonymous
   2
   3  jmp $700
   4  *=$700
   5  ldx #0
   6  ldy #0
   7  ;init screen
   8  lda #0
   9  sta $0
  10  sta $3
  11  lda #2
  12  sta $1
  13 loop:
  14  lda colors,x
  15  bpl ok
  16  inc $0
  17  ldx #0
  18  lda colors,x
  19 ok:
  20  inx
  21  sta ($0),y
  22  iny
  23  bne ok2
  24  inc $1
  25  lda $1
  26  cmp #6
  27  beq end
  28 ok2:
  29  jmp loop
  30 end:
  31  inc $3
  32  lda $3
  33  and #$3f
  34  tax
  35  ldy #0
  36  lda #2
  37  sta $1
  38  sty $0
  39  jmp loop
  40
  41 colors:
  42 dcb 0,2,0,2,2,8,2,8,8,7,8,7,7,1,7,1,1,7,1,7,7,8,7,8
  43 dcb 8,2,8,2,2,0,2,0,2,2,8,2,8,8,7,8,7,7,1,7,1,1,1,1
  44 dcb 1,1,1,1,7,1,7,7,8,7,8,8,2,8,2,2,255
  45
  46