convert Lady Tut demo, save 30kb

res/DEMO/_FileInformation.txt

@@ -47,8 +47,7 @@ KAMIKAZE=Type(06),AuxType(0300),Access(C3)
 KARATEKA=Type(06),AuxType(0300),Access(C3)
 KARATEKA.1=Type(F1),AuxType(0000),Access(C3)
 LABYRINTH=Type(06),AuxType(0310),Access(C3)
-LADY.TUT=Type(06),AuxType(0300),Access(C3)
-LADY.TUT.1=Type(F1),AuxType(0000),Access(C3)
+LADY.TUT=Type(06),AuxType(0200),Access(C3)
 LASER.BOUNCE=Type(06),AuxType(0300),Access(C3)
 LASER.BOUNCE.1=Type(F1),AuxType(0000),Access(C3)
 LAZER.SILK=Type(06),AuxType(0300),Access(C3)

src/demo/lady.tut.a

@@ -0,0 +1,56 @@
+;license:MIT
+;(c) 2022 by qkumba
+
+!cpu 6502
+!to "res/DEMO/LADY.TUT",plain
+*=$200
+
+         !source "src/constants.a"   ; no code in these
+         !source "src/macros.a"
+
+         +READ_RAM2_WRITE_RAM2
+         jsr   EnableAccelerator
+         +LOAD_FILE_AT title, $00
+         ldx   #5
+-        lda   $100,x
+         sta   $70,x
+         dex
+         bpl   -
+         lda   #<callback
+         sta   $84F
+         lda   #>callback
+         sta   $850
+         jmp   $0800      ; decompress
+
+callback
+         lda   #$2C
+         sta   $8470      ; reset vector to reboot
+         sta   $84B7
+         lda   #$00
+         sta   $84BE
+         sta   $84C5
+         dec   $84C9
+         lda   #$D0
+         sta   $2547
+         sta   $257D
+         sta   $2598
+         sta   $2562
+         sta   $7B88
+         lda   #$2C
+         sta   $7FEE
+         lda   #$4C
+         sta   $7D99
+         sta   $812F
+         lda   #$70
+         sta   $7D9A
+         sta   $8130
+         lda   #0
+         sta   $7D9B
+         sta   $8131
+         jsr   DisableAccelerator
+         +READ_ROM_NO_WRITE
+         jmp   $8460
+
+title    !byte x_e-x_b
+x_b      !text "X/LADY.TUT/LADY.TUT"
+x_e