Carga de ficheros de disco usando el firmware (C y ASM con SDCC)
En este tutorial vamos a ver como leer ficheros del disco de la manera más fácil posible, usando el Firmware. Cuando un programa es ejecutado con run"programa la rom de disco está deshabilitada, así que hay que hacer un truqui para volver a habilitarla. He tomado prestado un ejemplo de Kevin Thacker como referencia para hacerlo. Básicamente usamos las funciones del firmware mc_start_program y kl_rom_walk para poder usar las funciones de disco. Después para la carga de un fichero, nada más sencillo que usar las funciones cas_in_open, cas_in_direct y cas_in_close del firmware.
Para los ejemplos de carga de ficheros, he utilizado ConvImgCPC para convertir unas fotos de unas amigas en un campamento cristiano a formato scr. Vamos a ver el primer programa, que carga una imagen en la pantalla:
//////////////////////////////////////////////////////////////////////// // Load01.c // Mochilote - www.cpcmania.com //////////////////////////////////////////////////////////////////////// #include <stdio.h> #include <string.h> //////////////////////////////////////////////////////////////////////// //SetupDOS - Prepare DOS for file load //////////////////////////////////////////////////////////////////////// void SetupDOS() { //Based on http://cpctech.cpc-live.com/source/loader.html __asm ld l, 2 (ix) ;stack return address ld h, 3 (ix) ;stack return address ld (_stack+1), hl ;;------------------------------------------------------------------------ ;; store the drive number the loader was run from ld hl,(#0xbe7d) ld a,(hl) ld (_drive+1),a ;;------------------------------------------------------------------------ ld c,#0xff ;; disable all roms ld hl, #_start222 ;; execution address for program call #0xbd16 ;;mc_start_program ;; start it _start222:: nop call #0xbccb ;;kl_rom_walk ;; enable all roms ;;------------------------------------------------------------------------ ;; when AMSDOS is enabled, the drive reverts back to drive 0! ;; This will restore the drive number to the drive the loader was run from _drive: ld a, #0x00 ld hl,(#0xbe7d) ld (hl),a _stack: ld hl, #0x0000 push hl //one for sdcc ix pop push hl //two for return address __endasm; } //////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// //Load filename to address //////////////////////////////////////////////////////////////////////// unsigned char nFileNameLen = 0; void LoadFile(char *sFileName, char *pLoadAddress) { nFileNameLen = strlen(sFileName); __asm ;; B = length of the filename in characters ld hl, #_nFileNameLen; ld b, (hl) ;; HL = address of the start of the filename LD L, 4 (IX) ;sFileName LD H, 5 (IX) ;sFileName ;; DE = address of a 2k buffer ;; in disc mode: this buffer is not used when CAS IN DIRECT ;; firmware function is used, so it is safe to put it anywhere ;; you want. ld de, #0x0 ;; firmware function to open a file for reading call #0xbc77 ;;cas_in_open ;; firmware function to load the entire file ;; this will work with files that have a AMSDOS header (ASCII ;; files do not have a header) ;; HL = load address LD L, 6 (IX) ;pLoadAddress LD H, 7 (IX) ;pLoadAddress ;; read file call #0xbc83 ;;cas_in_direct ;; firmware function to close a file opened for reading call #0xbc7a ;;cas_in_close __endasm; } //////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// //SetColor //////////////////////////////////////////////////////////////////////// void SetColor(unsigned char nColorIndex, unsigned char nPaletteIndex) { __asm ld a, 4 (ix) ld b, 5 (ix) ld c, b call #0xBC32 ;SCR SET INK __endasm; } //////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// //SetPalette //////////////////////////////////////////////////////////////////////// void SetPalette(const unsigned char *pPalette, unsigned char nNumColors) { unsigned char nColor = 0; for(nColor = 0; nColor < nNumColors; nColor++) SetColor(nColor, pPalette[nColor]); } //////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// //SetMode //////////////////////////////////////////////////////////////////////// void SetMode(unsigned char nMode) { __asm ld a, 4 (ix) call #0xBC0E ;SCR_SET_MODE __endasm; } //////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// //main //////////////////////////////////////////////////////////////////////// main() { SetupDOS(); SetMode(0); LoadFile("01.scr", (char *)0xC000); SetPalette((char *)0xD7D1, 16); while(1); return 0; } ////////////////////////////////////////////////////////////////////////
Si compilamos y cargamos el binario obtendremos lo siguiente:
Como puede verse tenemos la función SetupDOS que prepara el sistema para poder usar la rom de disco y tenemos la función LoadFile que carga el fichero que le digamos en la dirección que queramos. Así de fácil y sencillo :-) Si miramos con detenimiento la función SetupDOS vemos que al principio se guarda la dirección de retorno de la función, esto es así ya que al llamar a mc_start_program la pila se resetea y empieza de 0, debido a esto es importante llamar a SetupDOS al comienzo del main y no usar variables locales en main, ya que se añadirian a la pila y al volver de SetupDOS tendrian basura. Si necesitamos variables en main las podemos usar globales o bien simplemente llamar a una nueva función y ya podremos tener variables locales. En el siguiente ejemplo se demuestra esto. El programa es una presentación de imagenes sin fin:
//////////////////////////////////////////////////////////////////////// // Load02.c // Mochilote - www.cpcmania.com //////////////////////////////////////////////////////////////////////// #include <stdio.h> #include <string.h> //////////////////////////////////////////////////////////////////////// //SetupDOS - Prepare DOS for file load //////////////////////////////////////////////////////////////////////// void SetupDOS() { //Based on http://cpctech.cpc-live.com/source/loader.html __asm ld l, 2 (ix) ;stack return address ld h, 3 (ix) ;stack return address ld (_stack+1), hl ;;------------------------------------------------------------------------ ;; store the drive number the loader was run from ld hl,(#0xbe7d) ld a,(hl) ld (_drive+1),a ;;------------------------------------------------------------------------ ld c,#0xff ;; disable all roms ld hl, #_start222 ;; execution address for program call #0xbd16 ;;mc_start_program ;; start it _start222:: nop call #0xbccb ;;kl_rom_walk ;; enable all roms ;;------------------------------------------------------------------------ ;; when AMSDOS is enabled, the drive reverts back to drive 0! ;; This will restore the drive number to the drive the loader was run from _drive: ld a, #0x00 ld hl,(#0xbe7d) ld (hl),a _stack: ld hl, #0x0000 push hl //one for sdcc ix pop push hl //two for return address __endasm; } //////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// //Load filename to address //////////////////////////////////////////////////////////////////////// unsigned char nFileNameLen = 0; void LoadFile(char *sFileName, char *pLoadAddress) { nFileNameLen = strlen(sFileName); __asm ;; B = length of the filename in characters ld hl, #_nFileNameLen; ld b, (hl) ;; HL = address of the start of the filename LD L, 4 (IX) ;sFileName LD H, 5 (IX) ;sFileName ;; DE = address of a 2k buffer ;; in disc mode: this buffer is not used when CAS IN DIRECT ;; firmware function is used, so it is safe to put it anywhere ;; you want. ld de, #0x0 ;; firmware function to open a file for reading call #0xbc77 ;;cas_in_open ;; firmware function to load the entire file ;; this will work with files that have a AMSDOS header (ASCII ;; files do not have a header) ;; HL = load address LD L, 6 (IX) ;sFileName LD H, 7 (IX) ;sFileName ;; read file call #0xbc83 ;;cas_in_direct ;; firmware function to close a file opened for reading call #0xbc7a ;;cas_in_close __endasm; } //////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// //SetColor //////////////////////////////////////////////////////////////////////// void SetColor(unsigned char nColorIndex, unsigned char nPaletteIndex) { __asm ld a, 4 (ix) ld b, 5 (ix) ld c, b call #0xBC32 ;SCR SET INK __endasm; } //////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// //SetPalette //////////////////////////////////////////////////////////////////////// void SetPalette(const unsigned char *pPalette, unsigned char nNumColors) { unsigned char nColor = 0; for(nColor = 0; nColor < nNumColors; nColor++) SetColor(nColor, pPalette[nColor]); } //////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// //SetMode //////////////////////////////////////////////////////////////////////// void SetMode(unsigned char nMode) { __asm ld a, 4 (ix) call #0xBC0E ;SCR_SET_MODE __endasm; } //////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// //LoadLoop //////////////////////////////////////////////////////////////////////// void LoadLoop() { unsigned char BlackPalette[] = { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}; int nImage = 0; char sFile[32]; while(1) { for(nImage = 1; nImage < 10; nImage++) { sprintf(sFile, "0%d.scr", nImage); LoadFile(sFile, (char *)0x6000); SetPalette((char *)BlackPalette, 16); memcpy((char *)0xC000, (char *)0x6000, 0x3FFF); SetPalette((char *)0xD7D1, 16); } } } //////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////// //main //////////////////////////////////////////////////////////////////////// main() { SetupDOS(); SetMode(0); LoadLoop(); return 0; } ////////////////////////////////////////////////////////////////////////
Si compilamos y cargamos el binario obtendremos lo siguiente:
De esta manera tan sencilla podemos cargar ficheros y por ejemplo programar un cargador/loader en c :-). Podéis bajar un zip con todos ficheros (código fuente, bat's para compilar, binarios y dsk's) aquí: Files.zip