*******************************************************************************
* keyboard.device.I  Written by Readysoft.
* Copyright 1992,1993,1994 RS.  All rights reserved.  1992.06.08.-1994.05.18.
* v1.24.
*******************************************************************************

*******************************************************************************
* Macros
*******************************************************************************

;------------------------------------------------------------------------------
; KeyboradName Macro
;------------------------------------------------------------------------------
KBD.NAM		MACRO
		DC.B	'keyboard.device',0
		EVEN
		ENDM

*******************************************************************************
* Constant Definitions
*******************************************************************************

;------------------------------------------------------------------------------
; Direction Bit Definitions
;------------------------------------------------------------------------------
kbd_di_b_U	EQU	0				up
kbd_di_b_D	EQU	1				down
kbd_di_b_R	EQU	2				right
kbd_di_b_L	EQU	3				left

;------------------------------------------------------------------------------
; Direction Definitions
;------------------------------------------------------------------------------
kbd_di_No	EQU	0
kbd_di_U	EQU	1<<kbd_di_b_U			up
kbd_di_D	EQU	1<<kbd_di_b_D			down
kbd_di_R	EQU	1<<kbd_di_b_R			right
kbd_di_L	EQU	1<<kbd_di_b_L			left
kbd_di_UR	EQU	kbd_di_U+kbd_di_R		up-right
kbd_di_UL	EQU	kbd_di_U+kbd_di_L		up-left
kbd_di_DR	EQU	kbd_di_D+kbd_di_R		down-right
kbd_di_DL	EQU	kbd_di_D+kbd_di_L		down-left
kbd_di_Up	EQU	kbd_di_U
kbd_di_Down	EQU	kbd_di_D
kbd_di_Right	EQU	kbd_di_R
kbd_di_Left	EQU	kbd_di_L
kbd_di_Ext	EQU	-1

;------------------------------------------------------------------------------
; Status Definitions
;------------------------------------------------------------------------------
kbd_st_Pressed	EQU	1
kbd_st_Released	EQU	0

;------------------------------------------------------------------------------
; CIA Definitions
;------------------------------------------------------------------------------
kbd_SPEnable	EQU	cia_ICR_SC+cia_ICR_SP

;------------------------------------------------------------------------------
; Error Codes
;------------------------------------------------------------------------------
kbd_er_OK	EQU	$00000000			all right
kbd_er_UnDef	EQU	$8005ffff			undefined error

*******************************************************************************
* Varibles
*******************************************************************************
		RSRESET
kbd_Qualifiers	RS.B	1				shift,alt,etc..
kbd_ASCIICode	RS.B	1				last ascii code
kbd_RawCode	RS.B	1				last rawkey code
kbd_NU		RS.B	1				not used
kbd_KeyMap	RS.B	16				bit is set when pressed
kbd_SizeOf	RS.B	0

*******************************************************************************
* Routine Offsets
*******************************************************************************
		RSRESET
		RS.B	-6
kbd_Init	RS.B	-6
kbd_Interrupt2	RS.B	-6
kbd_ReadKey	RS.B	-6
kbd_TestKey	RS.B	-6
kbd_AskCrsrKeys	RS.B	-6