ICOM-manual
'--------------------------------------------------------------------
'----- ICOM200_RS232.TIG
'--------------------------------------------------------------------
#include define_a.inc
user_var_strict
TASK Main
BYTE i,k
DIR_PORT 8,0
INSTALL DEVICE #lcd,"LCD2.TDD",0,0,0EEH,1,150,11H' LCD-1=128x64, 150
KB/s
3 INSTALL DEVICE #SER, "SER1B_K1.TDD",&
BD_9_600, DP_8N, JA, BD_9_600, DP_8N, JA
OUT 8,11111111b,11011111b ' set CTRL-Pins of T6963C
OUT 8,10000000b,255 ' Buzzer off !
LOOP 999999999 ' Endlosschleife
GET #ser,#0,#1,1,i ' Eingangsbufferfüllstand
IF I > 0 THEN
GET #ser,#0,1,k ' Seriellen Eingangsbuffer lesen
PRINT #lcd,"Taste = "; chr$(k) ' Ausgabe auf dem LCD
ENDIF
ENDLOOP
END
3-10 Wilke Technology GmbH • 0241 /918900 • http://www. wilke.de/ • support@wilke.de