ICOM-manual
'--------------------------------------------------------------------
'----- ICOM200_OUTPUTS.TIG
'--------------------------------------------------------------------
#include define_a.inc
user_var_strict
TASK Main
WORD i
2
USER_EPORT lastladr,10h
USER_EPORT physoffs, 0f0h
DIR_PORT 8,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 aus !
'------------------------------------------------------------------------
--
'--------- OpenCollector Outputs ---------------------------------
--
'------------------------------------------------------------------------
--
FOR i = 0 to 7 ' 8 Pins
OUT 10h,mask (i),255 ' Pin auf "1" setzen
WAIT_DURATION 1000 ' 1 sec warten
OUT 10h,mask (i),0 ' Pin auf "0" setzen
WAIT_DURATION 1000 ' 1 sec warten
NEXT
END
2-14 Wilke Technology GmbH • 0241 /918 900 • http://www.wilke.de/ • support@wilke.de