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