Un huevo de cambios

firmware/bootloader.asm

@@ -139,3 +139,62 @@ binf    jr      z, binf         ; return with time-out.
 bin2    jr      nz, bin2
         ld      bc, zxuno_port + $100
         ret                     ; return
+
+        block   $0100 - $
+        include scroll/define.asm
+        ld      sp, 0
+        ld      de, $5ee2+filesize-1
+        ld      hl, fin-1
+
+; -----------------------------------------------------------------------------
+; ZX7 Backwards by Einar Saukas, Antonio Villena
+; Parameters:
+;   HL: source address (compressed data)
+;   DE: destination address (decompressing)
+; -----------------------------------------------------------------------------
+dzx7b   ld      bc, $8000
+        ld      a, b
+copyby  inc     c
+        ldd
+mainlo  add     a, a
+        call    z, getbit
+        jr      nc, copyby
+        push    de
+        ld      d, c
+        defb    $30
+lenval  add     a, a
+        call    z, getbit
+        rl      c
+        rl      b
+        add     a, a
+        call    z, getbit
+        jr      nc, lenval
+        inc     c
+        jr      z, exitdz
+        ld      e, (hl)
+        dec     hl
+        sll     e
+        jr      nc, offend
+        ld      d, $10
+nexbit  add     a, a
+        call    z, getbit
+        rl      d
+        jr      nc, nexbit
+        inc     d
+        srl     d
+offend  rr      e
+        ex      (sp), hl
+        ex      de, hl
+        adc     hl, de
+        lddr
+exitdz  pop     hl
+        jr      nc, mainlo
+        jp      $7be4
+
+getbit  ld      a, (hl)
+        dec     hl
+        adc     a, a
+        ret
+
+        incbin  scroll/scroll.bin.zx7b
+fin     ;block   $4000 - $

firmware/firmware.asm

@@ -412,6 +412,8 @@ tstart5 sub     $80
         jr      z, start7
         cp      $0c
 start7  jp      z, blst
+        cp      $3a
+        jp      z, alto easter
         cp      $17
         jr      nz, tstart5
       ELSE
@@ -3528,6 +3530,13 @@ saveme  wreg    master_conf, 1
         wreg    master_conf, 0
         ret
 
+easter  di
+        ld      a, (scnbak)
+        and     %00111111
+        call    setvid
+        wreg    master_conf, 1
+        jp      $0100
+
 readna  ld      de, bnames
         ld      hl, $0071
         ld      a, 1

firmware/scroll/scroll.asm

@@ -1,14 +1,16 @@
         output  scroll.bin
         org     $5ee2
 string  include string.asm
-  display $
 music   ld      (vari+2), ix
         incbin  music.bin
 fuente  incbin  fuente6x8.bin
-  display $
-start   ld      hl, fuente
+start   ld      hl, $c000
+        ld      de, $c001
+        ld      bc, $017f
+        ld      (hl), l
+        ldir
+        ld      hl, fuente
         ld      b, 3
-        ld      de, $c180
         ldir
         ld      hl, fondo
         ld      b, $40          ; filtro RCS inverso