Filter
Top Products
ICOM-241
'--------------------------------------------------------------------
'----- ICOM241_OPTOIN.TIG
'--------------------------------------------------------------------
#include define_a.inc
user_var_strict
TASK Main
BYTE wert
DIR_PORT 8,0fh ' low nibble als Input
INSTALL_DEVICE #SER, "SER1B_K1.TDD",&
3
BD_9_600, DP_8N, JA, BD_9_600, DP_8N, JA
'--------------------------------------------------------------------
'-------- Optokoppler Inputs -----------------------------
'--------------------------------------------------------------------
OP:
IN 8,wert ' Optokoppler Inputs einlesen
wert = wert & 00001111b ' High nibble ausblenden
put #ser, #0, wert ' Wert auf Ser 0 ausgeben
GOTO op ' Sprung nach "OP"
END
Wilke Technology GmbH • 0241 / 918 900 • http://www.wilke.de/ • support@wilke.de 3-5