ICOM-manual
'--------------------------------------------------------------------
'----- ICOM200_OPTOIN.TIG
'--------------------------------------------------------------------
#include define_a.inc
user_var_strict
TASK Main
2 BYTE wert
USER_EPORT lastladr,10h
USER_EPORT physoffs, 0f0h
DIR_PORT 8,0
DIR_PORT 7,0
INSTALL_DEVICE #lcd,"LCD2.TDD",0,0,0EEH,1,150,11H' LCD-1=128x64,150
KB/s
OUT 8,11111111b,11011111b ' set CTRL-Pins of T6963C
OUT 8,10000000b,255 ' Buzzer "off"
'--------------------------------------------------------------------
'-------- Optokoppler Inputs -----------------------------
'--------------------------------------------------------------------
OP:
IN 11h,wert ' Optokoppler Inputs einlesen
PRINT #lcd, "wert=";wert ' Wert auf LCD ausgeben
GOTO op ' Sprung nach "OP"
END
2-12 Wilke Technology GmbH • 0241 /918 900 • http://www.wilke.de/ • support@wilke.de