www.cavefischer.at/Sharp Pocket Computer

SHARP PC-1360 Tastaturabfrage

Anzahl der Tasten (ohne BRK): 60+1

5:REM KEY MATRIX PC-1360
10:RESTORE 200
20:FOR X=0 TO 91
30:READ A
40:POKE &F900+X,A
50:NEXT X
100:"A"
110:WAIT 25
120:POKE &F8FF,0
130:CALL &F900
140:PRINT "TASTE",PEEK &F8FF
150:GOTO 120
200:DATA 16,&3E,&00,18,&5C,2,6,52,2,1,218
210:DATA 35,219,93,218,82,218,76,103,0,56,2,216,194,47,14
220:DATA 103,0,56,6,195,0,15,44,38,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,31,0,8
250:DATA 218,128,80,209,210,43,4,32,218
260:DATA 128,80,209,210,43,4,32,88,131,71,218,67,65,43,3
270:DATA 16,&F8,&FF,82,55

	1	2	4	8	16	32	64
KO1	001=	017=	033=	049=	065=	081=	097=	1
KO2	002=	018=	034=	050=	066=	082=	098=	2
KO3	003=	019=	035=	051=	067=	083=	099=	3
KO4	004=	020=	036=	052=	068=	084=	100=	4
KO5	005=	021=	037=	053=	069=	085=	101=	5
KO6	006=	022=	038=	054=	070=	086=	102=	6
KO7			039=	055=	071=	087=	103=	7
IA1	+			056=	072=	088=	104=	1
IA2		+		057=	073=	089=	105=	2
IA3			+		074=	090=	106=	4
IA4				+		091=	107=	8
IA5					+			16
IA6						+		32
IA7 (=KO8)							+	64


&F900:	LIDP	&3E00
	LIP	&5C
	LIA	6
	PUSH
	LIA	1
	EXAB
	RA		<	─	┐
	EXAM				│
	OUTA				│
	EXAB				│
	STD				│
	EXAB				│
	INA				│
	CPIA	0			│
	JRZP	2	─	┐	│
	LEAVE			│	│
	INCB		<	┘	│
	LOOP	14	─	─	┘
	CPIA	0
	JRZP	6	─	┐
	DECB			│
	LII	15		│
	JRP	38	─	┼	─	┐
	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	31	─	─	┐	│
	LII	8			│	│
	EXAB				│	│
	LP00				│	│
	INCP		<	┐	│	│
	RC			│	│	│
	SR			│	│	│
	JRNCM	4	─	┘	│	│
	LDP				│	│
	EXAB				│	│
	LP00		<	─	┼	┘
	INCP		<	┐	│
	RC			│	│
	SR			│	│
	JRNCM	4	─	┘	│
	LDP				│
	SWP				│
	LP03				│
	ORMA				│
	EXAB				│
	DECA		<	┐	│
	DECI			│	│
	JRNCM	3	─	┘	│
	LIDP	&F8FF			│
	STD				│
	RTN		<	─	┘