Wilke ICOM200 Benutzerhandbuch Seite 48

ICOM-Benutzerhandbuch
'--------------------------------------------------------------------
'----- 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
OUT 8,10000000b,255
LOOP 999999999
GET #ser,#0,#1,1,i
IF I > 0 THEN
GET #ser,#0,1,k
PRINT #lcd,"Taste = "; chr$(k)
ENDIF
ENDLOOP
END
3-12 Wilke Technology GmbH • 02405 / 408 550 • http://www.wilke.de/ • support@wilke.de
' set CTRL-Pins of T6963C
' Buzzer off !
' Endlosschleife
' Eingangsbufferfüllstand
' Seriellen Eingangsbuffer lesen
' Ausgabe auf dem LCD