convert Phaser Fire demo, save 35kb

res/DEMO/_FileInformation.txt

@@ -67,8 +67,7 @@ PEST.PATROL=Type(06),AuxType(0300),Access(C3)
 PM=Type(06),AuxType(0210),Access(C3)
 PITFALL.II=Type(06),AuxType(0300),Access(C3)
 PLASMANIA=Type(06),AuxType(0200),Access(C3)
-PHASER.FIRE=Type(06),AuxType(9200),Access(C3)
-PHASER.FIRE.1=Type(F1),AuxType(0000),Access(C3)
+PHASER.FIRE=Type(06),AuxType(B200),Access(C3)
 POOYAN=Type(06),AuxType(0300),Access(C3)
 REPTON=Type(06),AuxType(0200),Access(C3)
 ROBOTRON.2084=Type(06),AuxType(BF70),Access(C3)

src/demo/phaser.fire.a

@@ -0,0 +1,47 @@
+;license:MIT
+;(c) 2022 by qkumba
+
+!cpu 6502
+!to "res/demo/PHASER.FIRE",plain
+*=$B200
+
+         !source "src/constants.a"   ; no code in these
+         !source "src/macros.a"
+
+         +READ_RAM2_WRITE_RAM2
+         +LOAD_FILE_AT title, $00
+         +READ_ROM_NO_WRITE
+
+         lda   #$60
+         sta   $402D
+         sta   $403A
+         sta   $4074
+         jsr   $4000
+         jsr   $9200      ; decompress
+         sta   $400E
+         jsr   $4000
+         lda   #$C4
+         sta   $30
+         jsr   $920D      ; decompress
+         lda   #$D0
+         sta   $A08
+         sta   $A2D
+         sta   $A30
+         sta   $A33
+         sta   $439E
+         sta   $6546
+         sta   $8B94
+         lda   #$4C
+         sta   $54C0
+         sta   $980
+         ldx   #0
+         stx   $54C1
+         stx   $981
+         inx
+         stx   $54C2
+         stx   $982
+         jmp   ($20)
+
+title    !byte x_e-x_b
+x_b      !text "X/PHASER.FIRE/PHASER.FIRE"
+x_e