www.cavefischer.at/Sharp Pocket Computer

SHARP PC-1401 Tastaturabfrage

5:REM KEY MATRIX PC-1401
10:RESTORE 200
20:FOR X=0 TO 82
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,2,5,52,35,208
210:DATA 18,&5C,96,0,93,80,90,219,221,76,103,0,56,2,216,219,47,17
220:DATA 218,219,103,0,0,15,40,27,81,2,6,52,35,208
230:DATA 90,219,93,76,103,0,56,2,216,219,47,11
240:DATA 218,219,103,0,56,25,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,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