;Z88 Small C Library functions, linked using the z80 module assembler
;Small C Z88 converted by Dominic Morris <djm@jb.man.ac.uk>
;
;11/3/99 djm Saved two bytes by removing useless ld h,0

                INCLUDE "#stdio.def"

                XLIB    getk    ;Read keys



.getk
        ld      bc,0
        call_oz(os_tin)
        ld      hl,0
        ret     c
        ld      l,a
        ret