;waits until all keys have been released
Flushkey:
        xor a
        out ($01),a
        in a,($01)
        inc a
            jr nz,Flushkey
    ret