www.cavefischer.at/Sharp Pocket Computer


SHARP PC-1401 Tastaturabfrage

Bild Sharp PC-1401
Anzahl der Tasten (ohne BRK): 75


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

     
&4200:LIDP&41FF     
 LIA5     
 PUSH      
 RA      
 SC      
 LIP&5C < 
 ANIM0    
 OUTA     
 INCP     
 SL     
 EXAM     
 OUTB     
 INA     
 CPIA0    
 JRZP2  
 LEAVE    
 EXAM  < 
 LOOP17  
 EXAB      
 EXAM      
 CPIA0     
 LII15     
 JRNZP27
 DECP     
 LIA6    
 PUSH     
 RA     
 SC     
 SL  <
 EXAM    
 OUTA    
 INA    
 CPIA0   
 JRZP2
 LEAVE   
 EXAM  <
 LOOP11
 EXAB     
 EXAM     
 CPIA0    
 JRZP25
 LII7   
 LP00  <
 INCP  < 
 SR    
 JRNCM3  
 LDP     
 SWP     
 EXAB     
 LP00     
 INCP  < 
 SR    
 JRNCM3  
 LDP     
 LP03     
 ORMA     
 EXAB     
 DECA  < 
 DECI    
 JRNCM3  
 STD     
 RTN  < 


© 2016: Walter Fischer