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

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

diff --git a/hacks/images/m6502/fullscreenlogo.asm b/hacks/images/m6502/fullscreenlogo.asm
new file mode 100644 (file)
index 0000000..6f9b079
--- /dev/null
+++ b/hacks/images/m6502/fullscreenlogo.asm
@@ -0,0 +1,107 @@
+;\r
+;  draw image\r
+;\r
+\r
+start:\r
+  lda #<logo\r
+  sta $0\r
+  lda #>logo\r
+  sta $1\r
+\r
+  lda #$00\r
+  sta $2\r
+  lda #$02\r
+  sta $3\r
+\r
+  ldx #$0\r
+l:\r
+  lda ($0,x)\r
+  sta ($2,x)\r
+\r
+  inc $00\r
+  lda $00\r
+  cmp #$00\r
+  bne notReset1\r
+  inc $01\r
+notReset1:\r
+\r
+  inc $02\r
+  lda $02 \r
+  cmp #$00\r
+  bne notReset2\r
+  lda $03\r
+  cmp #$05\r
+  beq done\r
+  inc $03\r
+notReset2:\r
+\r
+  jmp l\r
+done:\r
+  rts\r
+\r
+logo:\r
+ dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,6\r
+ dcb 6,6,6,6,1,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,1,1,1,1,1,6,6,6,6,6,6\r
+ dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,1,1,1,6,6,6,6,6,6,6,6\r
+ dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,1,1,6,6,6,6,6,6,6,6,6\r
+ dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,1,6,6,6,6,6,6,6,6,6,6\r
+ dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,6,6,6,6,6,6,6,6,6,6,6\r
+ dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,6,6,6,6,6,6,6,6,6,6,6,6\r
+ dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,6,6,6,6,6,6,6,6,6,6,6,6,1\r
+ dcb 1,1,1,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,6,6,6,6,6,6,6,6,6,6,1,1,1\r
+ dcb 1,1,1,1,1,6,6,6,6,6,6,6,6,6,6,6\r
+ dcb 1,1,6,6,6,6,6,6,6,6,6,1,1,1,1,1\r
+ dcb 1,1,1,1,1,6,6,6,6,6,6,6,6,6,6,1\r
+ dcb 1,1,6,6,6,6,6,6,6,6,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,6,6,6,6,6,6,6,6,6,1,1\r
+ dcb 1,1,6,6,6,6,6,6,6,6,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,6,6,6,6,6,6,6,6,1,1,1\r
+ dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,6,6,6,6,6,6,6,1,1,1,1\r
+ dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,6,6,6,6,6,6,1,1,1,1,1\r
+ dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,6,6,6,6,6,1,1,1,1,1,1\r
+ dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,2,2,2,2,2,1,1,1,1,1,1\r
+ dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,2,2,2,2,2,2,1,1,1,1,1\r
+ dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,2,2,2,2,2,2,2,1,1,1,1\r
+ dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,2,2,2,2,2,2,2,2,1,1,1\r
+ dcb 1,1,6,6,6,6,6,6,6,6,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,2,2,2,2,2,2,2,2,2,1,1\r
+ dcb 1,1,6,6,6,6,6,6,6,6,6,1,1,1,1,1\r
+ dcb 1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,1\r
+ dcb 1,1,1,6,6,6,6,6,6,6,6,6,1,1,1,1\r
+ dcb 1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2\r
+ dcb 1,1,1,6,6,6,6,6,6,6,6,6,6,1,1,1\r
+ dcb 1,1,1,1,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,6,6,6,6,6,6,6,6,6,6,6,6\r
+ dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,6,6,6,6,6,6,6,6,6,6,6,6\r
+ dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,6,6,6,6,6,6,6,6,6,6,6\r
+ dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,1,6,6,6,6,6,6,6,6,6,6\r
+ dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,1,1,1,6,6,6,6,6,6,6,6\r
+ dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,1,1,1,1,6,6,6,6,6,6,6\r
+ dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,1,1,1,1,1,1,1,6,6,6,6\r
+ dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1\r
+ dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1\r
+\r