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