Leyendo el teclado ASM + Z88DK

[radastan]

Bien, he realizado esta rutina:

$this->bbcode_second_pass_code('', 'int port_in (int port)
{
#asm
ld hl,2
add hl,sp
ld c, (hl)
in a,(c)
ld h,0
ld l, a
#endasm
}')

Si hago un:

if (port_in(64510)&1) ....

Debería detectar si se pulsa la tecla Q.

¿Me estoy equivocando? es que "no doy con la tecla".

[iforeve]

hola radastran

ld c, (hl) cambialo por ld bc, (hl). La instruccion in a, (c) lo que hace es que pone en la mitad inferior del bus de direcciones el valor de c y en el superior el b. Si te das cuenta, en tu rutina el registro B puede tener cualquier bazofia

Salu2.

[antoniovillena]

Has hecho mal dos cosas, primero estás tratando al parámetro como un puntero y segundo lo que te indica iforeve (salvo que ld bc,(hl) no existe). Usando fastcall se te queda tan sencillo como esto:

$this->bbcode_second_pass_code('', '
int port_in __FASTCALL__ (int port)
{
#asm
ld b, h
ld c, l
ld h, 0
in l, (c)
#endasm
}')

[iforeve]

tienes razon antonio, he visto que faltaba cargar el registro b y no he reparado en que no existe la instruccion. Es que la noche me confunde

[radastan]

Pues gracias a ambos, pero ninguna de vuestras dos soluciones funciona.



Os cuento:

ld bc, (hl)

esa instruccción no se puede hacer en Z88DK.

Y el fastcall da error de compilación.

Lo que me ha ido bien es hacer:

$this->bbcode_second_pass_code('', 'int port_in (int port)
{
#asm
ld b, h
ld c, l
ld h, 0
in l, (c)
#endasm
}')

Todo perfecto, al final habéis dado con la solución pero el problema era que os habíais pasado de sofisticación.

Lo importante es que funciona, muchísimas gracias a los dos.

[iforeve]

tu ere un cachondo radastran, nos has vacilao

[antoniovillena]

Radastan creo que el fastcall va delante de la función. Que funcione ahora no te garantiza que lo haga en futuras versiones

[radastan]

$this->bbcode_second_pass_quote('antoniovillena', 'R')adastan creo que el fastcall va delante de la función. Que funcione ahora no te garantiza que lo haga en futuras versiones

[antoniovillena]

Que en caso de recibir un sólo parámetro puedes pasarlo por registro (HL) en lugar de por pilla

[radastan]

OK, la forma correcta entonces es:

$this->bbcode_second_pass_code('', 'int __FASTCALL__ port_in (int port)
{
#asm
ld b, h
ld c, l
ld h, 0
in l, (c)
#endasm
}')

Ahora viene lo raro, y es que si hago:

$this->bbcode_second_pass_code('', 'if (port_in(64510)&1) // Tecla Q')

Se ejecuta SIEMPRE, es decir siempre detecta que está pulsada Q. Lo más cachondo viene cuando pongo la dirección contraria de forma seguida:

$this->bbcode_second_pass_code('', 'if (port_in(65022)&1) // Tecla A')

Entonces me ejecuta ambas rutinas como si estuvieran pulsada ambas teclas... salvo si pulso una de ellas, que entonces deja de ejecutarse la tecla que pulso. ¿? Claro, uno piensa: es que es normalmente a 1... pero si digo:

$this->bbcode_second_pass_code('', 'if (port_in(64510)&1==0) // Tecla Q')

Ahora no se ejecuta la función nunca.

Para mi que este fin de semana estoy espeso, debería de irme de cañas.