; Cambio del color del borde al pulsar espacio ORG 50000 ld b, 6 ; 6 iteraciones, color inicial borde bucle: ld a, $7f ; Semifila B a ESPACIO in a, ($fe) ; Leemos el puerto bit 0, a ; Testeamos el bit 0 (ESPACIO) jr nz, bucle ; Si esta a 1 (no pulsado), esperar ld a, b ; A = B out (254), a ; Cambiamos el color del borde suelta_tecla: ; Ahora esperamos a que se suelte la tecla ld a, $7f ; Semifila B a ESPACIO in a, ($fe) ; Leemos el puerto bit 0, a ; Testeamos el bit 0 jr z, suelta_tecla ; Saltamos hasta que se suelte djnz bucle ; Repetimos "B" veces salir: ret END 50000