; Cambio del color del borde al pulsar espacio
    ORG 50000

    ld b, 6              ; 6 iteraciones, color inicial borde

start:

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
    call SetBorder       ; 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
    ld b, 7
    jp start             ; Y repetir

salir:
    ret

;------------------------------------------------------------
; SetBorder: Cambio del color del borde al del registro A
;------------------------------------------------------------
SetBorder:
    out (254), a
    ret

    END 50000            ; Ejecucion en 50000