output  scroll.bin
        org     $5e6d
string  dz      $45
        dz      $45, 'We want to thank all backers'
        dz      $45
        dz      $48, 'AdvanSys'
        dz      $48, 'aguij~n'
        dz      $48, 'Airsoft'
        dz      $48, 'Aivalahostia'
        dz      $48, 'Akis Pluto63 Fletsios'
        dz      $48, 'alberchi'
        dz      $48, 'albor{n70'
        dz      $48, 'aldelgado'
        dz      $48, 'Alejandro Ib{\ez'
        dz      $48, 'Alejandro Valero > wilco2009'
        dz      $48, 'Alfonso Mart}nez > Sr?Presley'
        dz      $48, 'AlfredoLambda'
        dz      $48, 'alioth'
        dz      $48, '[lvaro Adrados'
        dz      $48, 'Alxinho'
        dz      $48, 'Andrew Munro'
        dz      $48, 'AndyRCM'
        dz      $48, 'Antonio Ant',$7f,'nez Rom{n'
        dz      $48, 'Antonio Peregr}n'
        dz      $48, 'Antxiko'
        dz      $48, 'arkapone'
        dz      $48, 'Arnau Jess'
        dz      $48, 'arrizen'
        dz      $48, 'Arturo Arenas Laguna'
        dz      $48, 'Astorri'
        dz      $48, 'AugustoRuiz'
        dz      $48, 'BCH'
        dz      $48, 'Baycorps'
        dz      $48, 'Ben>kenobi'
        dz      $48, 'Brendan Alford'
        dz      $48, 'Broteletal'
        dz      $48, 'Carlos Castre\o'
        dz      $48, 'Carmeloco'
        dz      $48, 'C|sar Moreno L~pez'
        dz      $48, 'chernandezba'
        dz      $48, 'Chernobyl'
        dz      $48, 'ciberchuso'
        dz      $48, 'Ckultur'
        dz      $48, 'dammnield'
        dz      $48, 'Dandare'
        dz      $48, 'Daniel Escudero > Quantumleap'
        dz      $48, 'darro99'
        dz      $48, 'David Bernal Dom}nguez'
        dz      $48, 'David Bl^ck'
        dz      $48, 'David Carri~n > Bytecnia'
        dz      $48, 'David [lvarez Torres'
        dz      $48, 'Deadtool'
        dz      $48, 'Diego Macktek'
        dz      $48, 'Diegols'
        dz      $48, 'DoDesKaDen'
        dz      $48, 'Drachco'
        dz      $48, 'Eduardo Solans'
        dz      $48, 'Eduardo Y{\ez Parareda'
        dz      $48, 'electrotrains'
        dz      $48, 'eltargui'
        dz      $48, 'eltator'
        dz      $48, 'Emilio > modosita68'
        dz      $48, 'Emilio Ortiz'
        dz      $48, 'Eneakao'
        dz      $48, 'Eric Magnus'
        dz      $48, 'Erwin Rattinger'
        dz      $48, 'Esemarcus'
        dz      $48, 'fantastic64'
        dz      $48, 'fastofruto'
        dz      $48, 'Fede Jerez'
        dz      $48, 'Federico J? [lvarez Valero'
        dz      $48, 'Felipe Gamusino'
        dz      $48, 'F|lix Rivero'
        dz      $48, 'Fino de Benej',$7f,'zar'
        dz      $48, 'flopping'
        dz      $48, 'flunky'
        dz      $48, 'Fran Matsusaka'
        dz      $48, 'Francisco Huerta'
        dz      $48, 'Francisco Javier D}az Blanco'
        dz      $48, 'Francisco Javier Nieto'
        dz      $48, 'Francisco L? Vargas'
        dz      $48, 'Fredman'
        dz      $48, 'garvidal'
        dz      $48, 'GUi'
        dz      $48, 'Gacel Miguel'
        dz      $48, 'Garra'
        dz      $48, 'Gazpachuelo'
        dz      $48, 'GroovyDrifter'
        dz      $48, 'Gumpbito'
        dz      $48, 'Gustavo Javier Fern{ndez Sanz'
        dz      $48, 'Hern{n [lvarez'
        dz      $48, '@HoracioGloton'
        dz      $48, 'Hugo Sanch~n'
        dz      $48, 'hyperandroid'
        dz      $48, 'Ignacobo'
        dz      $48, 'I\aki Mart}nez > IMD?guru'
        dz      $48, 'IrregularShed'
        dz      $48, 'Iv{n Ruiz Etxabe'
        dz      $48, 'javidoom'
        dz      $48, 'jgilcas'
        dz      $48, 'JGranadino'
        dz      $48, 'jjmarin'
        dz      $48, 'jmgperez'
        dz      $48, 'JMV'
        dz      $48, 'JSJ'
        dz      $48, 'Javier Albizu'
        dz      $48, 'Javier Basilio'
        dz      $48, 'Javier Ortiz '
        dz      $48, 'Javier Rueda > Blackhero'
        dz      $48, 'Javier S{ez Alonso'
        dz      $48, 'Javier Torres > kowols'
        dz      $48, 'Jean'
        dz      $48, 'Jeff Bennett'
        dz      $48, 'Jes',$7f,'s M'
        dz      $48, 'Jes',$7f,'s Relinque > Pedja'
        dz      $48, 'Jevilon'
        dz      $48, 'Joe Morgan'
        dz      $48, 'Jordi Alabau Basart'
        dz      $48, 'Jordi Mestres Ruiz'
        dz      $48, 'Jordi Ramos'
        dz      $48, 'Jos| Luis Carrasco'
        dz      $48, 'Jose Luis Franzen'
        dz      $48, 'Jos| Manuel Bra\a [lvarez '
        dz      $48, 'Jos| Manuel Cardona'
        dz      $48, 'Jose M{rquez'
        dz      $48, 'Jose Rodelgo > Joss'
        dz      $48, 'Juan Antonio L? Almagro'
        dz      $48, 'Juan Cruz Mangado'
        dz      $48, 'Juan Fco Torres'
        dz      $48, 'Juan Luis Fern{ndez > XurL'
        dz      $48, 'Juan Moreira'
        dz      $48, 'JuanVe'
        dz      $48, 'Juanillo67'
        dz      $48, 'Juanjo > Yog'
        dz      $48, 'Juli{n Garrido'
        dz      $48, 'Julio Mateos'
        dz      $48, 'Julio Medina'
        dz      $48, 'Jungsi'
        dz      $48, 'Kan'
        dz      $48, 'Kelvinator'
        dz      $48, 'Kever67>NL'
        dz      $48, 'Kevin Quinn '
        dz      $48, 'KgMcNeil'
        dz      $48, 'Lenko'
        dz      $48, 'Leticia Vargas Flores'
        dz      $48, 'Lex Sparrow > VZ'
        dz      $48, 'Luis Alberto Gris Casinegro'
        dz      $48, 'Luis Brocan Broky'
        dz      $48, 'Luis I? Garc}a > Benway'
        dz      $48, 'Luis Ruiz'
        dz      $48, 'Luis Soto'
        dz      $48, 'LukeZab > Luca Zabeo'
        dz      $48, 'Mac}as Pajas'
        dz      $48, 'Manu Huertas'
        dz      $48, 'Manu Sevilla'
        dz      $48, 'Manuel Naranjo Vera'
        dz      $48, 'Manuel Sagra de Diego'
        dz      $48, 'mapi20'
        dz      $48, 'MarcusW'
        dz      $48, 'Martin Saguer'
        dz      $48, 'Mejias3D'
        dz      $48, 'melvex'
        dz      $48, 'Metalbrain'
        dz      $48, 'Microhobbit'
        dz      $48, 'microsnk'
        dz      $48, 'Miguel [ngel'
        dz      $48, 'Miguel G? Prada'
        dz      $48, 'Miguel Ser~n'
        dz      $48, 'mike=01'
        dz      $48, 'msch'
        dz      $48, 'Nanoc'
        dz      $48, 'Neil Parsons'
        dz      $48, 'Neuro'
        dz      $48, 'Newsdee'
        dz      $48, 'nivaria'
        dz      $48, 'nonnoes'
        dz      $48, 'Norbert>K?'
        dz      $48, 'nuggetreggae'
        dz      $48, 'Obocaman'
        dz      $48, ']scar BraindeaD'
        dz      $48, ']scar Hern{ndez > Gatuso'
        dz      $48, ']scar Ruiz'
        dz      $48, 'PacMobius'
        dz      $48, 'Pachu003'
        dz      $48, 'Paco Montes'
        dz      $48, 'Pagantipaco'
        dz      $48, 'Pedro Romero'
        dz      $48, 'Peter Robert Jones'
        dz      $48, 'Peter \'Sweetlilmre\' Edwards'
        dz      $48, 'peterthedark'
        dz      $48, 'princemegahit'
        dz      $48, 'Radastan'
        dz      $48, 'Rafa Vico'
        dz      $48, 'Rafa Zitror'
        dz      $48, 'Raindog'
        dz      $48, 'Ramon Berto'
        dz      $48, 'RetroManiac'
        dz      $48, 'RetroPixeleadores>FloppyDerno'
        dz      $48, 'RetroVirtualMachine'
        dz      $48, 'RetroWorks'
        dz      $48, 'Retrocant'
        dz      $48, 'RiCCo'
        dz      $48, 'Rinconete'
        dz      $48, 'Robcfg'
        dz      $48, 'Robert Perelegre Orteu'
        dz      $48, 'Roberto Henr}quez'
        dz      $48, 'Rub|n Guti|rrez'
        dz      $48, 'Sad1942'
        dz      $48, 'Salvador Perugorria Lorente'
        dz      $48, 'Santiago Romero'
        dz      $48, 'Schombi'
        dz      $48, 'Sebasti{n Tito Rodr}guez'
        dz      $48, 'serbalgi'
        dz      $48, 'Sergio L~pez Cantero'
        dz      $48, 'Sergio S{nchez > RaNaRaMa'
        dz      $48, 'Shikit}n'
        dz      $48, 'sinclair200'
        dz      $48, 'Skywalky'
        dz      $48, 'spark2k06'
        dz      $48, 'SpeedXP'
        dz      $48, 'stcube'
        dz      $48, 'Stratotrasto'
        dz      $48, 'TallerSeverino'
        dz      $48, 'TarkuS666'
        dz      $48, '@TessMSX'
        dz      $48, 'thEpOpE'
        dz      $48, 'TitoxUnix'
        dz      $48, 'Tom Dalby'
        dz      $48, 'Tromponauta'
        dz      $48, 'uniVNG'
        dz      $48, 'Uto'
        dz      $48, 'utopian'
        dz      $48, 'Vago > Avalon Software'
        dz      $48, 'Vejeta'
        dz      $48, 'Vicente Sim~n'
        dz      $48, 'vicenteo'
        dz      $48, 'V}ctor Robledo > Robe=Inie'
        dz      $48, 'vidamia'
        dz      $48, 'Visualtorpedo'
        dz      $48, 'web8bits'
        dz      $48, 'weirdocollector'
        dz      $48, 'Will Woodvine'
        dz      $48, 'Yombo'
        dz      $48, 'Zolt{n B_sz_rm|nyi'
        dz      $48, 'Zup'
        dz      $48
        dz      $43, 'The ZX>UNO core team are'
        dz      $43
        dz      $48, 'Superfo'
        dz      $48, 'antoniovillena'
        dz      $48, 'McLeod'
        dz      $48, 'Quest'
        dz      $48, 'Hark0'
        dz      $48
        dz      $42, 'With additional support from'
        dz      $42
        dz      $48, 'DistWave'
        dz      $48, 'Radastan'
        dz      $48, 'jepalza'
        dz      $48, 'Mejias3D'
        dz      $48, 'chernandezba'
        dz      $48, 'Anyone We Forgot???'
        dz      $48
        dz      $44, 'Easter egg credits'
        dz      $44
        dz      $48, 'Coder: Antonio Villena'
        dz      $48, 'Music: Yerzmyey'
        dz      $48, 'Graphics: Quest'
        dz      $48
        dz      $48
        dz      $48
        dz      $48
        dz      $48
        dz      $48
        dz      $48
        dz      $48
        dz      $48
        dz      $48
        dz      $48
        dz      $48
        dz      $48
        defb    1
music   ld      (vari+2), ix
        incbin  music.bin
fuente  incbin  fuente6x8.bin
start   ld      hl, $c000
        ld      de, $c001
        ld      bc, $017f
        ld      (hl), l
        ldir
        ld      hl, fuente
        ld      b, 3
        ldir
        ld      hl, fondo
        ld      b, $40          ; filtro RCS inverso
start0  ld      a, b
        xor     c
        and     $f8
        xor     c
        ld      d, a
        xor     b
        xor     c
        rlca
        rlca
        ld      e, a
        inc     bc
        ldi
        inc     bc
        ld      a, b
        sub     $58
        jr      nz, start0
        ld      b, 3
        ldir
        out     ($fe), a
        inc     a
        ex      af, af'
        ld      hl, $c000
        ld      de, $c400
start1  ld      b, $08
start2  ld      a, (hl)
        rrca
        ld      (de), a
        inc     de
        cpi
        jp      pe, start2
        jr      nc, start1
        ld      a, $c9
        ld      ($c006), a
        ld      hl, $716f
        call    music+7
start3  call    $6e77
        ei
        halt
        di
        ld      bc, 5
start4  djnz    start4
        dec     c
        jr      nz, start4

      macro linea   src1, src2, src3, dst1, dst2, dst3
        ld      sp, $4005+$800*src1+$100*src3+$20*src2
        pop     hl
        pop     de
        pop     bc
        pop     af
        exx
        pop     hl
        pop     de
        pop     bc
        ld      sp, $4013+$800*dst1+$100*dst3+$20*dst2
        push    bc
        push    de
        push    hl
        exx
        push    af
        push    bc
        push    de
        push    hl
        ld      sp, $4013+$800*src1+$100*src3+$20*src2
        pop     hl
        pop     de
        pop     bc
        pop     af
        ld      sp, $401b+$800*dst1+$100*dst3+$20*dst2
        push    af
        push    bc
        push    de
        push    hl
      endm
        linea   0, 0, 1,    0, 0, 0
        linea   0, 0, 2,    0, 0, 1
        linea   0, 0, 3,    0, 0, 2
        linea   0, 0, 4,    0, 0, 3
        linea   0, 0, 5,    0, 0, 4
        linea   0, 0, 6,    0, 0, 5
        linea   0, 0, 7,    0, 0, 6
        linea   0, 1, 0,    0, 0, 7
        linea   0, 1, 1,    0, 1, 0
        linea   0, 1, 2,    0, 1, 1
        linea   0, 1, 3,    0, 1, 2
        linea   0, 1, 4,    0, 1, 3
        linea   0, 1, 5,    0, 1, 4
        linea   0, 1, 6,    0, 1, 5
        linea   0, 1, 7,    0, 1, 6
        linea   0, 2, 0,    0, 1, 7
        linea   0, 2, 1,    0, 2, 0
        linea   0, 2, 2,    0, 2, 1
        linea   0, 2, 3,    0, 2, 2
        linea   0, 2, 4,    0, 2, 3
        linea   0, 2, 5,    0, 2, 4
        linea   0, 2, 6,    0, 2, 5
        linea   0, 2, 7,    0, 2, 6
        linea   0, 3, 0,    0, 2, 7
        linea   0, 3, 1,    0, 3, 0
        linea   0, 3, 2,    0, 3, 1
        linea   0, 3, 3,    0, 3, 2
        linea   0, 3, 4,    0, 3, 3
        linea   0, 3, 5,    0, 3, 4
        linea   0, 3, 6,    0, 3, 5
        linea   0, 3, 7,    0, 3, 6
        linea   0, 4, 0,    0, 3, 7
        linea   0, 4, 1,    0, 4, 0
        linea   0, 4, 2,    0, 4, 1
        linea   0, 4, 3,    0, 4, 2
        linea   0, 4, 4,    0, 4, 3
        linea   0, 4, 5,    0, 4, 4
        linea   0, 4, 6,    0, 4, 5
        linea   0, 4, 7,    0, 4, 6
        linea   0, 5, 0,    0, 4, 7
        linea   0, 5, 1,    0, 5, 0
        linea   0, 5, 2,    0, 5, 1
        linea   0, 5, 3,    0, 5, 2
        linea   0, 5, 4,    0, 5, 3
        linea   0, 5, 5,    0, 5, 4
        linea   0, 5, 6,    0, 5, 5
        linea   0, 5, 7,    0, 5, 6
        linea   0, 6, 0,    0, 5, 7
        linea   0, 6, 1,    0, 6, 0
        linea   0, 6, 2,    0, 6, 1
        linea   0, 6, 3,    0, 6, 2
        linea   0, 6, 4,    0, 6, 3
        linea   0, 6, 5,    0, 6, 4
        linea   0, 6, 6,    0, 6, 5
        linea   0, 6, 7,    0, 6, 6
        linea   0, 7, 0,    0, 6, 7
        linea   0, 7, 1,    0, 7, 0
        linea   0, 7, 2,    0, 7, 1
        linea   0, 7, 3,    0, 7, 2
        linea   0, 7, 4,    0, 7, 3
        linea   0, 7, 5,    0, 7, 4
        linea   0, 7, 6,    0, 7, 5
        linea   0, 7, 7,    0, 7, 6
        linea   1, 0, 0,    0, 7, 7
        linea   1, 0, 1,    1, 0, 0
        linea   1, 0, 2,    1, 0, 1
        linea   1, 0, 3,    1, 0, 2
        linea   1, 0, 4,    1, 0, 3
        linea   1, 0, 5,    1, 0, 4
        linea   1, 0, 6,    1, 0, 5
        linea   1, 0, 7,    1, 0, 6
        linea   1, 1, 0,    1, 0, 7
        linea   1, 1, 1,    1, 1, 0
        linea   1, 1, 2,    1, 1, 1
        linea   1, 1, 3,    1, 1, 2
        linea   1, 1, 4,    1, 1, 3
        linea   1, 1, 5,    1, 1, 4
        linea   1, 1, 6,    1, 1, 5
        linea   1, 1, 7,    1, 1, 6
        linea   1, 2, 0,    1, 1, 7
        linea   1, 2, 1,    1, 2, 0
        linea   1, 2, 2,    1, 2, 1
        linea   1, 2, 3,    1, 2, 2
        linea   1, 2, 4,    1, 2, 3
        linea   1, 2, 5,    1, 2, 4
        linea   1, 2, 6,    1, 2, 5
        linea   1, 2, 7,    1, 2, 6
        linea   1, 3, 0,    1, 2, 7
        linea   1, 3, 1,    1, 3, 0
        linea   1, 3, 2,    1, 3, 1
        linea   1, 3, 3,    1, 3, 2
        linea   1, 3, 4,    1, 3, 3
        linea   1, 3, 5,    1, 3, 4
        linea   1, 3, 6,    1, 3, 5
        linea   1, 3, 7,    1, 3, 6
        linea   1, 4, 0,    1, 3, 7
        linea   1, 4, 1,    1, 4, 0
        linea   1, 4, 2,    1, 4, 1
        linea   1, 4, 3,    1, 4, 2
        linea   1, 4, 4,    1, 4, 3
        linea   1, 4, 5,    1, 4, 4
        linea   1, 4, 6,    1, 4, 5
        linea   1, 4, 7,    1, 4, 6
        linea   1, 5, 0,    1, 4, 7
        linea   1, 5, 1,    1, 5, 0
        linea   1, 5, 2,    1, 5, 1
        linea   1, 5, 3,    1, 5, 2
        linea   1, 5, 4,    1, 5, 3
        linea   1, 5, 5,    1, 5, 4
        linea   1, 5, 6,    1, 5, 5
        linea   1, 5, 7,    1, 5, 6
        linea   1, 6, 0,    1, 5, 7
        linea   1, 6, 1,    1, 6, 0
        linea   1, 6, 2,    1, 6, 1
        linea   1, 6, 3,    1, 6, 2
        linea   1, 6, 4,    1, 6, 3
        linea   1, 6, 5,    1, 6, 4
        linea   1, 6, 6,    1, 6, 5
        linea   1, 6, 7,    1, 6, 6
        linea   1, 7, 0,    1, 6, 7
        linea   1, 7, 1,    1, 7, 0
        linea   1, 7, 2,    1, 7, 1
        linea   1, 7, 3,    1, 7, 2
        linea   1, 7, 4,    1, 7, 3
        linea   1, 7, 5,    1, 7, 4
        linea   1, 7, 6,    1, 7, 5
        linea   1, 7, 7,    1, 7, 6
        linea   2, 0, 0,    1, 7, 7
        linea   2, 0, 1,    2, 0, 0
        linea   2, 0, 2,    2, 0, 1
        linea   2, 0, 3,    2, 0, 2
        linea   2, 0, 4,    2, 0, 3
        linea   2, 0, 5,    2, 0, 4
        linea   2, 0, 6,    2, 0, 5
        linea   2, 0, 7,    2, 0, 6
        linea   2, 1, 0,    2, 0, 7
        linea   2, 1, 1,    2, 1, 0
        linea   2, 1, 2,    2, 1, 1
        linea   2, 1, 3,    2, 1, 2
        linea   2, 1, 4,    2, 1, 3
        linea   2, 1, 5,    2, 1, 4
        linea   2, 1, 6,    2, 1, 5
        linea   2, 1, 7,    2, 1, 6
        linea   2, 2, 0,    2, 1, 7
        linea   2, 2, 1,    2, 2, 0
        linea   2, 2, 2,    2, 2, 1
        linea   2, 2, 3,    2, 2, 2
        linea   2, 2, 4,    2, 2, 3
        linea   2, 2, 5,    2, 2, 4
        linea   2, 2, 6,    2, 2, 5
        linea   2, 2, 7,    2, 2, 6
        linea   2, 3, 0,    2, 2, 7
        linea   2, 3, 1,    2, 3, 0
        linea   2, 3, 2,    2, 3, 1
        linea   2, 3, 3,    2, 3, 2
        linea   2, 3, 4,    2, 3, 3
        linea   2, 3, 5,    2, 3, 4
        linea   2, 3, 6,    2, 3, 5
        linea   2, 3, 7,    2, 3, 6
        linea   2, 4, 0,    2, 3, 7
        linea   2, 4, 1,    2, 4, 0
        linea   2, 4, 2,    2, 4, 1
        linea   2, 4, 3,    2, 4, 2
        linea   2, 4, 4,    2, 4, 3
        linea   2, 4, 5,    2, 4, 4
        linea   2, 4, 6,    2, 4, 5
        linea   2, 4, 7,    2, 4, 6
        linea   2, 5, 0,    2, 4, 7
        linea   2, 5, 1,    2, 5, 0
        linea   2, 5, 2,    2, 5, 1
        linea   2, 5, 3,    2, 5, 2
        linea   2, 5, 4,    2, 5, 3
        linea   2, 5, 5,    2, 5, 4
        linea   2, 5, 6,    2, 5, 5
        linea   2, 5, 7,    2, 5, 6
        linea   2, 6, 0,    2, 5, 7
        linea   2, 6, 1,    2, 6, 0
        linea   2, 6, 2,    2, 6, 1
        linea   2, 6, 3,    2, 6, 2
        linea   2, 6, 4,    2, 6, 3
        linea   2, 6, 5,    2, 6, 4
        linea   2, 6, 6,    2, 6, 5
        linea   2, 6, 7,    2, 6, 6
        linea   2, 7, 0,    2, 6, 7
        linea   2, 7, 1,    2, 7, 0
        linea   2, 7, 2,    2, 7, 1
        linea   2, 7, 3,    2, 7, 2
        linea   2, 7, 4,    2, 7, 3
        linea   2, 7, 5,    2, 7, 4
        linea   2, 7, 6,    2, 7, 5
        linea   2, 7, 7,    2, 7, 6

        ld      sp, $401b+$800*2+$100*7+$20*7
        sbc     hl, hl
        push    hl
        push    hl
        push    hl
        push    hl
        push    hl
        push    hl
        push    hl
        push    hl
        push    hl
        push    hl
        push    hl
        ld      sp, hl
vari    ld      ix, string
        ld      hl, start3
        push    hl
        ld      hl, music
        push    hl
        ex      af, af'
        rrca
        jr      c, start5
        ex      af, af'
        ret
start5  ex      af, af'
        linea   3, 1, 0,    3, 0, 0
        linea   3, 2, 0,    3, 1, 0
        linea   3, 3, 0,    3, 2, 0
        linea   3, 4, 0,    3, 3, 0
        linea   3, 5, 0,    3, 4, 0
        linea   3, 6, 0,    3, 5, 0
        linea   3, 7, 0,    3, 6, 0
        linea   3, 0, 1,    3, 7, 0
        linea   3, 1, 1,    3, 0, 1
        linea   3, 2, 1,    3, 1, 1
        linea   3, 3, 1,    3, 2, 1
        linea   3, 4, 1,    3, 3, 1
        linea   3, 5, 1,    3, 4, 1
        linea   3, 6, 1,    3, 5, 1
        linea   3, 7, 1,    3, 6, 1
        linea   3, 0, 2,    3, 7, 1
        linea   3, 1, 2,    3, 0, 2
        linea   3, 2, 2,    3, 1, 2
        linea   3, 3, 2,    3, 2, 2
        linea   3, 4, 2,    3, 3, 2
        linea   3, 5, 2,    3, 4, 2
        linea   3, 6, 2,    3, 5, 2
        ld      sp, $fffc
        ld      b, (ix)
        djnz    start6
        ld      ix, string
start6  inc     ix
        ld      hl, $5ac5
        ld      (hl), b
        ld      de, $5ac6
        ld      bc, 21
        ldir
        xor     a
        push    ix
        pop     hl
        ld      bc, $172b
        cpir
        srl     c
        ld      a, c
        jr      c, prn2
        and     %11111100
        ld      d, a
        xor     c
        ld      c, a
        ld      e, a
        jr      z, prn1
        dec     e
prn1    ld      a, d
        rrca
        ld      d, a
        rrca
        add     a, d
        add     a, e
        ld      e, a
        ld      a, b
        and     %00011000
        or      %01000000
        ld      d, a
        ld      a, b
        and     %00000111
        rrca
        rrca
        rrca
        add     a, e
        ld      e, a
        rr      c
        jr      c, pos26
        jr      nz, pos4
pos0    ld      a, (ix)
        inc     ix
        add     a, a
        ret     z
        ld      h, $c0 >> 2
        call    simple
pos2    ld      a, (ix)
        inc     ix
        add     a, a
        ret     z
        ld      h, $d8 >> 2
        ld      bc, $04fc
        call    doble
pos4    ld      a, (ix)
        inc     ix
        add     a, a
        ret     z
        ld      h, $d0 >> 2
        ld      bc, $04f0
        call    doble
pos6    ld      a, (ix)
        inc     ix
        add     a, a
        ret     z
        ld      h, $c8 >> 2
        call    simple
        inc     de
        jr      pos0
pos26   rr      c
        jr      c, pos6
        jr      pos2
prn2    and     %11111100
        ld      d, a
        xor     c
        ld      c, a
        cp      2
        adc     a, -1
        ld      e, a
        ld      a, d
        rrca
        ld      d, a
        rrca
        add     a, d
        add     a, e
        ld      e, a
        ld      a, b
        and     %00011000
        or      %01000000
        ld      d, a
        ld      a, b
        and     %00000111
        rrca
        rrca
        rrca
        add     a, e
        ld      e, a
        rr      c
        jr      c, pos37
        jr      nz, pos5
pos1    ld      a, (ix)
        inc     ix
        add     a, a
        ret     z
        ld      h, $cc >> 2
        ld      bc, $04e0
        call    doble
pos3    ld      a, (ix)
        inc     ix
        add     a, a
        ret     z
        ld      h, $c4 >> 2
        call    simple
pos5    ld      a, (ix)
        inc     ix
        add     a, a
        ret     z
        ld      h, $dc >> 2
        ld      bc, $04fe
        call    doble
pos7    ld      a, (ix)
        inc     ix
        add     a, a
        ret     z
        ld      h, $d4 >> 2
        ld      bc, $04f8
        call    doble
        jr      pos1
pos37   rr      c
        jr      c, pos7
        jr      pos3

simple  ld      b, 4
        ld      l, a
        add     hl, hl
        add     hl, hl
simple2 ld      a, (de)
        xor     (hl)
        ld      (de), a
        inc     d
        inc     l
        ld      a, (de)
        xor     (hl)
        ld      (de), a
        inc     d
        inc     l
        djnz    simple2
        ld      hl, $f800
        add     hl, de
        ex      de, hl
        ret

doble   ld      l, a
        add     hl, hl
        add     hl, hl
doble2  ld      a, (de)
        xor     (hl)
        and     c
        xor     (hl)
        ld      (de), a
        inc     e
        ld      a, (hl)
        and     c
        ld      (de), a
        inc     d
        inc     l
        ld      a, (hl)
        and     c
        ld      (de), a
        dec     e
        ld      a, (de)
        xor     (hl)
        and     c
        xor     (hl)
        ld      (de), a
        inc     d
        inc     l
        djnz    doble2
        ld      hl, $f801
        add     hl, de
        ex      de, hl
        ret
fondo   incbin  fondo.rcs