Icom -200 Handbuch Seite 15

'--------------------------------------------------------------------
'----- ICOM_KEYB.TIG
'--------------------------------------------------------------------
#define keyb 20 ' keyboard device nummer
#include define_a.inc
user_var_strict
TASK Main
word x,n,i
string a$
user_eport lastladr,10h
user_eport physoffs, 0f0h
Dir_port 8,0
INSTALL DEVICE #lcd,"LCD2.TDD",0,0,0EEH,1,150,11H' LCD-1=128x64, 150
KB/s
Install device #keyb, "LCD1.tdd", 0, 0, 0, 0, 0, 0, 80h, 8
print #keyb,&
"<1BH>D<16><1><1><1><0><0><0><0>&
<0><0><0><0><0><0><0><0><0><0F0H>";
print #keyb,&
"<1Bh>k<18h><19h><1ah><1bh><1ch>&
<1dh><1eh><1fh><20h><21h><22h>&
<23h><24h><25h><26h><27h><0f0h>";
keys:
USING "UD<2><1> 0.0.0.0.2UH<2><2>
FOR X=0 TO 0 STEP 0
FOR N=0 TO 0 STEP 0
RELEASE_TASK
GET #keyb, #0, #1, 1, N
NEXT
GET #keyb, 1, A$
PRINT #lcd, "<2><10>Key-No.=";
PRINT USING #1, ASC(A$);"($";ASC(A$);")"
NEXT
goto keys
end
Wilke Technology GmbH • 0241 / 918 900 • http://www.wilke.de/ • support@wilke.de
ICOM-200 / 201
' Definiert alle Scan-Spalten
' als Tastaturtasten
' Legt die Tastaturadresse fest
0.0.0.0.2" ' Format-String
' Endlosschleife
' Endlosschleife bis N=1(GET!)
' Rest der Task-Zeit freigeben
' N=Zeichen in Tastatur-Buffer
' Ende Endlosschleife
' Tastatur-Buffer auslesen
' Ausgabe auf LC-Display
' zeige Tasten-Nr
2-7
2