Merge branch 'master' of https://github.com/a2-4am/4cade

res/DEMO/_FileInformation.txt

@@ -94,13 +94,7 @@ POOYAN=Type(06),AuxType(0300),Access(C3)
 REPTON=Type(06),AuxType(0300),Access(C3)
 REPTON.1=Type(F1),AuxType(0000),Access(C3)
 ROBOTRON.2084=Type(06),AuxType(BF70),Access(C3)
-SAMMY.LIGHTFOOT=Type(06),AuxType(0300),Access(C3)
-SAMMY.1=Type(F1),AuxType(0000),Access(C3)
-SAMMY.2=Type(F1),AuxType(0000),Access(C3)
-SAMMY.3=Type(F1),AuxType(0000),Access(C3)
-SAMMY.4=Type(F1),AuxType(0000),Access(C3)
-SAMMY.5=Type(F1),AuxType(0000),Access(C3)
-SAMMY.Z=Type(F1),AuxType(0000),Access(C3)
+SAMMY.LIGHTFOOT=Type(06),AuxType(BA00),Access(C3)
 SERPENTINE=Type(06),AuxType(0300),Access(C3)
 SERPENTINE.1=Type(F1),AuxType(0000),Access(C3)
 SHORT.CIRCUIT=Type(06),AuxType(0210),Access(C3)

src/demo/sammy.lightfoot.a

@@ -0,0 +1,86 @@
+;license:MIT
+;(c) 2021 by Frank M.
+
+!cpu 6502
+!to "res/DEMO/SAMMY.LIGHTFOOT",plain
+*=$BA00
+
+         !source "src/constants.a"   ; no code in these
+         !source "src/macros.a"
+
+         +READ_RAM2_WRITE_RAM2
+         jsr   EnableAccelerator
+
+;+LOAD_FILE_KEEP_DIR
+         ldx   #0         ; read to main memory
+         stx   ldrhi
+         stx   ldrlo
+         +LDADDR title
+         jsr   iLoadFileDirect
+
+         ldx   #18-1      ; we also need to copy the length byte
+-        lda   newpath,x
+         sta   $BFD0,x
+         dex
+         bpl   -
+
+         lda   #$60
+         sta   $4094
+         lda   #$FF
+         sta   $4206
+         jsr   $4000      ; decompress 1
+         jsr   $B7B5      ; decompress 2
+
+         lda   #$A9
+         sta   $022B
+         lda   #$01
+         sta   $022B+1
+         lda   #$EA
+         sta   $022B+2    ; disable initial key detection
+
+         lda   #$10
+         sta   $68C5      ; clear keyboard strobe
+
+         lda   #$04
+         sta   $4FBE      ; reduce number of sparkles
+
+         lda   #$4C
+         sta   $B050
+         sta   $7DB9
+         sta   $B15A
+         sta   $5035
+         sta   $5184      ; (moved to $7864)
+         lda   #0
+         sta   $B050+1
+         sta   $7DB9+1
+         sta   $B15A+1
+         sta   $5035+1
+         sta   $5184+1
+         lda   #1
+         sta   $B050+2
+         sta   $7DB9+2
+         sta   $B15A+2
+         sta   $5035+2
+         sta   $5184+2    ; set exits
+
+         lda   #$D0
+         sta   $6EE9      ; disable sound
+
+         lda   #$AD
+         sta   $209
+         sta   $211
+         sta   $21C
+         +DISABLE_ACCEL
+         jmp   $B7A1
+
+newpath
+         !byte 17
+         !text "X/SAMMY.LIGHTFOOT"
+
+title    !byte x_e-x_b
+x_b      !text "X/SAMMY.LIGHTFOOT/SAMMY.LIGHTFOOT"
+x_e
+
+!if * > $BB00 {
+  !error "code is too large, ends at ", *
+}