; Lectura de la tecla "P" en un bucle (FORMA 2)
    ORG 50000


bucle:
    ld a, $df            ; Semifila "P" a "Y"
    in a, ($fe)          ; Leemos el puerto
    bit 0, a             ; Testeamos el bit 0
    jr z, salir          ; Si esta a 0 (pulsado) salir.
    jr bucle             ; Si no (a 1, no pulsado) repetimos

salir:
    ret

    END 50000