www.cavefischer.at/Sharp Pocket Computer

SHARP PC-1403H Tastaturabfrage

Anzahl der Tasten (ohne BRK): 76

5:REM KEY MATRIX PC-1403H
10:RESTORE 200
20:FOR X=0 TO 94
30:READ A
40:POKE &9000+X,A
50:NEXT X
100:"A"
110:WAIT 25
120:POKE &8FFF,0
130:CALL &9000
140:PRINT "TASTE",PEEK &8FFF
150:GOTO 120
200:DATA 16,&3E,&00,18,&5C,2,6,52,35,219,93,2,1
210:DATA 82,218,76,52,35,82,91,103,0,56,2,216,218,209,90,47,16
220:DATA 209,210,218,103,0,0,15,40,31,18,&5C,2,5,52,2,1
230:DATA 219,93,76,103,0,56,2,216,218,219,209,90,47,13
240:DATA 209,210,218,103,0,56,28,0,7
250:DATA 128,80,210,43,3,32,88,218,128,80,210,43,3
260:DATA 32,131,71,218,67,65,43,3,16,&8F,&FF,82,55

	1	2	4	8	16	32	64	128
KO1	001=	017=	033=	049=	065=				1
KO2	002=	018=	034=	050=	066=	082=	098=	114=	2
KO3	003=	019=	035=	051=	067=	083=	099=	115=	4
KO4	004=	020=	036=	052=	068=	084=	100=	116=	8
KO5	005=	021=	037=	053=		085=	101=	117=	16
KO6	006=	022=	038=	054=		086=	102=	118=	32
KO7	007=	023=	039=	055=		087=	103=	119=	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						+		126=	32
IA7							+		64
IA8								+	128


&9000:	LIDP	&3E00
	LIP	&5C
	LIA	6
	PUSH
	RA
	EXAM
	OUTA
	LIA	1
	STD		<	─	┐
	EXAB				│
	INA				│
	PUSH				│
	RA				│
	STD				│
	POP				│
	CPIA	0			│
	JRZP	2	─	┐	│
	LEAVE			│	│
	EXAB		<	┘	│
	RC				│
	SL				│
	LOOP	16	─	─	┘
	RC
	SR
	EXAB
	CPIA	0
	LII	15
	JRNZP	31	─	─	─	┐
	LIP	&5C				│
	LIA	5				│
	PUSH					│
	LIA	1				│
	EXAM		<	─	┐	│
	OUTA				│	│
	INA				│	│
	CPIA	0			│	│
	JRZP	2	─	┐	│	│
	LEAVE			│	│	│
	EXAB		<	┘	│	│
	EXAM				│	│
	RC				│	│
	SL				│	│
	LOOP	13	─	─	┘	│
	RC					│
	SR					│
	EXAB					│
	CPIA	0				│
	JRZP	28	─	─	┐	│
	LII	7			│	│
	LP00		<	─	┼	┘
	INCP		<	┐	│
	SR			│	│
	JRNCM	3	─	┘	│
	LDP				│
	SWP				│
	EXAB				│
	LP00				│
	INCP		<	┐	│
	SR			│	│
	JRNCM	3	─	┘	│
	LDP				│
	LP03				│
	ORMA				│
	EXAB				│
	DECA		<	┐	│
	DECI			│	│
	JRNCM	3	─	┘	│
	LIDP	&8FFF			│
	STD				│
	RTN		<	─	┘