void put_sprite(char plane, char x, char y, char clor, char sp)

{

/*

    register inputs:

        - a = Plano

        - b = Coordenada en X del sprite

        - c = Coordenada en Y del Sprite

        - d = Número de sprite a imprimir

        - e = Color del sprite



*/

    plane=plane;

    x=x;

    y=y;

    clor=clor;

    sp=sp;



    _asm



    ld a,4(ix)

    ld b,5(ix)

    ld c,6(ix)

    ld e,7(ix)

    ld d,8(ix)



   

    push bc                ; Reserva registro BC para poder usarlo en otras cosas



    ld c,a                ; C=A                   

    add a,c                ; Al contenido de A se le añaden 3 veces más de A, que es

    add a,c                ; lo mismo que A=A+A+A+A, con esto se calcula el OFFSET

    add a,c                ; del plano dentro de la tabla de atributos de sprites



    ld b,#0x0000            ; B=0

    ld c,a                ; C=A equivale a LD BC,A



    ld iy,#0x1B00            ; Apunta a la tabla de atributos de sprites

    add iy,bc            ; Desplaza posición VRAM hasta el plano elegido en A

    push iy                ; Empuja IY para pasar valor a HL, es igual a LD IX,BC

    pop hl                ; HL contiene la posición VRAM en la tabla de atributos



    xor a                ; A=0

    add a,d                ; Al contenido de A se le añaden 4 veces más de D, que es

    add a,d                ; lo mismo que A=4*D. Con esto se consigue acceder al 

    add a,d                ; sprite numero D definido en tabla de patrones sprites

    add a,d                ; Para el caso de sprites de 8x8 sobrarían estas líneas

    ld d,a                ; Se actualiza el valor correcto para D en sprites de 16



    pop bc                ; Recupera valores de posición X e Y del sprite



    ld a,c                ; Posiciona sprite en Y

    call 0x004D            ; VPOKE HL,C

    inc hl                ; Siguiente posición de la tabla de atributos

    ld a,b                ; Posiciona sprite en X

    call 0x004D            ; VPOKE HL,B

    inc hl                ; Siguiente posición de la tabla de atributos

    ld a,d                ; Número de sprite a imprimir

    call 0x004D            ; VPOKE HL,D

    inc hl                ; Siguiente posición de la tabla de atributos

    ld a,e                ; Color del sprite       

    call 0x004D            ; VPOKE HL,E

   

    _endasm;   

}

void main (void)

{
    unsigned char k,select;

    unsigned char x,y;          /* coordenadas reales del puntero en pantalla */

    unsigned char xx,yy;        /* coordenadas reales del puntero que queda fijo despues de elegir pieza */

     unsigned char xb,yb;           /* escaque asociado al puntero (x,y) (se debe actualizar a la vez) */



    unsigned long int i;

    /* Inicializa pila */

    _asm

        di

        ld sp, (#0xFC4A)

        ei

    _endasm;


    g_slotPort = (g_slotPort & 0xCF) | ((g_slotPort & 0x0C) << 2);   

    ..... resto del código

void main (void)

{
       /* Inicializa pila */

    _asm

        di

        ld sp, (#0xFC4A)

        ei

    _endasm;


    g_slotPort = (g_slotPort & 0xCF) | ((g_slotPort & 0x0C) << 2);   

    lanza_programa_de juego();
}

void lanza_programa_de_juego(void)
{
    .... código
}

void main (void)

{
      /* Inicializa pila */

    _asm

        di

        ld sp, (#0xFC4A)

        ei

    _endasm;


   g_slotPort = (g_slotPort & 0xCF) | ((g_slotPort & 0x0C) << 2;

   unsigned char k,select;

    unsigned char x,y;          /* coordenadas reales del puntero en pantalla */

    unsigned char xx,yy;        /* coordenadas reales del puntero que queda fijo despues de elegir pieza */

    unsigned char xb,yb;           /* escaque asociado al puntero (x,y) (se debe actualizar a la vez) */

    ... etc
}

VPOKE:
push af
ld a, l
di
out [0x99], a
ld a, h
and 0x3f
or 0x40
out [0x99], a
ex [sp], hl
ex [sp], hl
pop af
out [0x98], a
ret

void vpoke(unsigned int address, unsigned char value)
{
  address;
  value;
__asm
  ld l,4(ix)
  ld h,5(ix)
  ld a,6(ix)
  call 0x004D
__endasm;
}


/* ===========================================================================
 put_sprite
 Function :
    Muestra un sprite en la pantalla.
    Displays a sprite on the screen. 
 Input    : number - numero de plano                     
            xpos - coordenada x
            ypos - coordenada y
            color - color
 by Andrear           
=========================================================================== */
/*
void put_sprite(byte number, byte xpos, byte ypos, byte color)
{
  unsigned int vmem=0x1B00+(number&0xff)*4;
  vpoke(vmem+0,ypos);
  vpoke(vmem+1,xpos);
  vpoke(vmem+3,color);
}

void vpoke(uint address, byte value)
{
  address;
  value;
__asm
  di
  ld l,4(ix)
  ld h,5(ix)
   
  di
  ld a,l
  out (0x99),a
  ld a,h       
  add a,#0x40
  out (0x99),a
  ei
  ld a,6(ix)
  out (0x98),a
  ei
__endasm; 
}

//definir al principio del codigo
__sfr __at 0x98 vdp1;
__sfr __at 0x99 vdp2;

// funcion
void vpoke(uint address, byte value)
{
  vdp2=address;
  vdp2=(address>>8)|0x40;
  vdp1=value;
}