getKey (24 bytes, 370cc)

getkey:
;;Returns L,B,A=0, z flag set if no key is pressed
;;22cc+60G+24R
;;R is on [1,8]
;;G is on [1,7]
;;avg: 370cc
;;24 bytes
    ld bc,$FE01
    xor a
loop:
    out (c),b
    add a,$20
    sla b
    ret nc
    in l,(c)
    inc l
    jr z,loop
    rrca
    rrca
    inc a
    rr l
    jr nc,$-3
    ret