www.cavefischer.at/Sharp Pocket Computer

SHARP PC-1421 / EL-5510 Tastaturabfrage

Anzahl der Tasten (ohne BRK): 75

5:REM KEY MATRIX PC-1421/EL-5510
10:RESTORE 200
20:FOR X=0 TO 94
30:READ A
40:POKE &4200+X,A
50:NEXT X
100:"A"
110:WAIT 25
120:POKE &41FF,0
130:CALL &4200
140:PRINT "TASTE",PEEK &41FF
150:GOTO 120
200:DATA 16,&41,&FF,18,&5D,2,5,52,2,1
210:DATA 219,35,81,219,93,80,221,76,103,0,56,2,216,219,209,90,47,17
220:DATA 209,210,218,219,103,0,56,5,0,15,44,31,18,&5C,2,6,52,2,1
230:DATA 219,93,76,103,0,56,2,216,219,209,90,47,12
240:DATA 209,210,218,219,103,0,56,27,0,7
250:DATA 128,80,209,210,43,4,32,88,218,128,80,209,210,43,4
260:DATA 32,131,71,218,67,65,43,3,82,55

	1	2	4	8	16	32	64	128
IB1	001=	017=	033=	049=	065=	081=	097=	113=	1
IB2	002=	018=	034=	050=	066=	082=	098=	114=	2
IB3	003=	019=	035=	051=	067=	083=	099=	115=	4
IB4	004=	020=	036=	052=	068=	084=	100=	116=	8
IB5	005=	021=	037=	053=	069=	085=		117=	16
IB6	006=	022=	038=	054=	070=	086=	102=	118=	32
									64
									128
IA1	+	025=	041=	057=	073=	089=	105=	121=	1
IA2		+	042=	058=	074=	090=	106=	122=	2
IA3			+	059=	075=	091=	107=	123=	4
IA4				+	076=	092=	108=	124=	8
IA5					+	093=	109=	125=	16
IA6						+	110=	126=	32
IA7							+	127=	64
IA8								+	128


&4200:	LIDP	&41FF
	LIP	&5D
	LIA	5
	PUSH
	LIA	1
	EXAM		<	─	┐
	RA				│
	DECP				│
	EXAM				│
	OUTA				│
	INCP				│
	OUTB				│
	INA				│
	CPIA	0			│
	JRZP	2	─	┐	│
	LEAVE			│	│
	EXAM		<	┘	│
	RC				│
	SL				│
	LOOP	17	─	─	┘
	RC
	SR
	EXAB
	EXAM
	CPIA	0
	JRZP	5	─	┐
	LII	15		│
	JRP	31	─	┼	─	┐
	LIP	&5C	<	┘		│
	LIA	6				│
	PUSH					│
	LIA	1				│
	EXAM		<	─	┐	│
	OUTA				│	│
	INA				│	│
	CPIA	0			│	│
	JRZP	2	─	┐	│	│
	LEAVE			│	│	│
	EXAM		<	┘	│	│
	RC				│	│
	SL				│	│
	LOOP	12		─	┘	│
	RC					│
	SR					│
	EXAB					│
	EXAM					│
	CPIA	0				│
	JRZP	27	─	─	┐	│
	LII	7			│	│
	LP00		<	─	┼	┘
	INCP		<	┐	│
	RC			│	│
	SR			│	│
	JRNCM	4	─	┘	│
	LDP				│
	SWP				│
	EXAB				│
	LP00				│
	INCP		<	┐	│
	RC			│	│
	SR			│	│
	JRNCM	4	─	┘	│
	LDP				│
	LP03				│
	ORMA				│
	EXAB				│
	DECA		<	┐	│
	DECI			│	│
	JRNCM	3	─	┘	│
	STD				│
	RTN		<	─	┘