convert Snake Byte demo, save 19kb

res/DEMO/_FileInformation.txt

@@ -72,7 +72,6 @@ SAMMY.LIGHTFOOT=Type(06),AuxType(BA00),Access(C3)
 SERPENTINE=Type(06),AuxType(0300),Access(C3)
 SHORT.CIRCUIT=Type(06),AuxType(0210),Access(C3)
 SNAKE.BYTE=Type(06),AuxType(0300),Access(C3)
-SNAKE.BYTE.1=Type(F1),AuxType(0000),Access(C3)
 SNEAKERS=Type(06),AuxType(0300),Access(C3)
 SPACE.EGGS=Type(06),AuxType(0300),Access(C3)
 SPACE.QUARKS=Type(06),AuxType(B000),Access(C3)

src/demo/snake.byte.a

@@ -0,0 +1,53 @@
+;license:MIT
+;(c) 2022 by qkumba
+
+!cpu 6502
+!to "res/DEMO/SNAKE.BYTE",plain
+*=$300
+
+         !source "src/constants.a"   ; no code in these
+         !source "src/macros.a"
+
+         +READ_RAM2_WRITE_RAM2
+         jsr   EnableAccelerator
+         +LOAD_FILE_AT title, $00
+         lda   #$B9
+         sta   $842
+         lda   #$60
+         sta   $0858
+         jsr   $0800      ; decompress
+
+         lda   #$4C
+         sta   $621F
+         ldx   #0
+         stx   $6220
+         stx   $7807
+         stx   $78ae
+         stx   $7a11
+         stx   $6414
+         stx   $6465
+         stx   $64A4
+         stx   $64B5
+         stx   $64C3
+         stx   $6C13
+         stx   $7975
+         inx
+         stx   $6221
+         stx   $7808
+         stx   $78af
+         stx   $7a19
+         inc   $7A26
+         lda   #$2C
+         sta   $7A12
+         sta   $7A1A
+         jsr   DisableAccelerator
+         +READ_ROM_NO_WRITE
+         jmp   $7680
+
+title    !byte x_e-x_b
+x_b      !text "X/SNAKE.BYTE/SNAKE.BYTE"
+x_e
+
+!if * > $3F0 {
+  !error "code is too large, ends at ", *
+}