; Author:  Copyright 1993 Jason Williams
; Version: 1.00 (24 Jul 1993)

; int Desk_Kbd_GET(void)
; (Desk_OS_ReadC veneer)
; returns the ASCII code of the next pressed (buffered) key (as in BASIC's GET)


        GET     Desk.sh.regdefs
        GET     h.swinos
        GET     Desk.sh.macros


        PREAMBLE
        STARTCODE Desk_Kbd_GET

        STMFD  sp!, {lr}
        SWI    Desk_SWI_OS_ReadC + Desk_XOS_Bit
        Desk_Error2_CheckV
        LDMFD  sp!, {pc}^

        END
