;**********************************************************************
;                                                                     
;	AT Keyboard SHIFT Lookup Table
;	==============================
;
;	written by Peter Luethi, 12.07.2000, Switzerland
;	last update: 14.08.2003
;
;	This code and accompanying files may be distributed freely and
;	modified, provided this header with my name and this notice remain
;	intact. Ownership rights remain with me.
;	You may not sell this software without my approval.
;
;	This software comes with no guarantee or warranty except for my
;	good intentions. By using this code you agree to indemnify me from
;	any liability that might arise from its use.
;
;
;	VERSION:
;	========
;	Modified SWISS-GERMAN keyboard layout (QWERTZ 'codepage')
;
;
;	DESCRIPTION:
;	============
;	Keyboard lookup table for special characters typed with SHIFT
;	button active.
;
;**********************************************************************


KBDSHIFTtable ; some of the items are located here with 'compressed' offset
	addwf	PCL,F
	DT	"/(#*;"	; 0x3D - 0x41
	retlw	0	; invalid entry
	retlw	0	; 
	retlw	0	; 
	DT	"=)"	; 0x45 - 0x46
	retlw	0	; 
	DT	"%:_"	; 0x48 - 0x4A
	retlw	0	; 
	retlw	0x5C	; "\" 0x4C
	retlw	0	; 
	DT	"?@&"	; 0x4E - 0x50	(replaced  by #)
	retlw	0	; 
	retlw	'{'	; 0x52
	retlw	0	; 
	DT	"[~"	; 0x54 - 0x55
	retlw	0	; 
	retlw	A'+'	; 0x57
	retlw	0	; 
	retlw	0	; 
	retlw	0	; 
	retlw	A']'	; 0x5B
	retlw	0	; 
	retlw	A'}'	; 0x5D
	retlw	0	; 
	retlw	A'"'	; 0x5F
	retlw	0	; 
KBDSHIFTtableEND retlw	A'>'	; 0x61


	IF (high (KBDSHIFTtable) != high (KBDSHIFTtableEND))
		ERROR "Keyboard lookup SHIFTtable hits page boundary!"
	ENDIF