ICOM 200 Manuale Utente Scaricare il pdf (Pagina 39)

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",&

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/918900 • http://www.wilke.de/ • [email protected] 3-5

1 2 ... 34 35 36 37 38 39 40 41 42 43 44 ... 54 55

Nessun commento

ICOM 200 Manuale Utente Pagina 39