Pues bien: tengo la solución!
Después de analizar el código de la rutina y estar peleando un buen rato, hay una manera sencilla de usarla desde BASIC.
Como comentaba antes, las primeras instrucciones restan los punteros que marcan el principio y el final del bloque a mover y guarda los datos en Y( Byte menos significativo del tamaño del bloque) y X (Byte más significativo).
Lo que hay que hacer es poner el tamaño del bloque que queremos mover en SXREG ($30D-781) y SYREG($30E-782), poner la dirección de memoria siguiente a la final del bloque de origen en $5A-$5B (90-91), poner la dirección de memoria siguiente a la final del bloque de destino en $58-$59 (88-89) y hacer un SYS a $A3CC (41932) en vez de a $A3BF (41919). De esta manera nos saltamos la resta de punteros y entramos con X e Y asignados
Como puede resultar algo lioso lo vemos con un ejemplo: el clásico de copiar el charset de $D000-$D7FF (el charset Gráfico) a $A000-$A7FF (para modificar algunos caracteres para tiles gráficos, por ejemplo, y conservar el resto). $A000 es la posición 4 del charset en el banco 2 (el banco 2 es un buen sitio para hacer estas cosas en BASIC)
20015 POKE 56333,127:POKE 1,51
20020 POKE781,8:POKE782,0:POKE90,0:POKE91,216:POKE88,0:POKE89,168:SYS41932
20025 POKE 1,55:POKE 56333,129
las líneas 20015 y 20025 son para activar/desactivar las interrupciones por tiempo y exponer/esconder el charset). Nada nuevo, esto lo encontráis en cualquier manual de BASIC en el capítulo de CUSTOM CHARSET.
El meollo está en la línea 20020. Como queremos mover el bloque $D000-$D7FF a $A000-$A7FF (esto es $800 bytes= 2048 bytes), ponemos 8 en SXREG(781) y 0 en SYREG(782):como decíamos, el byte más significativo a Registro X y el menos significativo a Registro Y. Ponemos en 90-91 la dirección de memoria siguiente a la del final del bloque de origen ($D7FF+1=$D800 -> 0 a 90 y 216 ($D8) a 91) y en 88-89 el byte siguiente al último byte del bloque de destino ($A7FF+1=$A800 -> 0 a 88 y 168 ($A8) a 89). hacemos el SYS y......tachán! podremos comprobar que el charset se ha copiado correctamente (usando un monitor de charset, por ejemplo) y tan sólo ha tardado algo menos de un segundo, en lugar del minuto de rigor si hacemos esto con el MÉTODO CLÁSICO (blucle FOR y POKES...)
Saludos y espero que os sirva para mover bytes a toda velocidad en BASIC!!!
