'----------------------------------------------------------------------------------------
'    Name:  PC_MODE_PIN_AS_OUTPUT.TIG
'    Type:  Tiger-BASIC(tm) Source Code 
' Purpose:  Get  1   additional output pin by using the PC mode pin (L41) for output
'
'  (C) - Copyright Wilke Technology, P.O.Box 1727, D-52018 Aachen, Germany
'----------------------------------------------------------------------------------------
'
' Thank you for using BASIC Tigers in your products. If you have questions, ideas
' or special needs, please contact your next distributor or the Tiger support team
' and visit our web site:
'
'	Wilke Technology GmbH
'	The Tiger Support Team
'	P.O.Box 1727,       D-52018 Aachen, Germany
'	Krefelder Str. 147, D-52070 Aachen, Germany
'
'	email: support@wilke-technology.com  (english)
'	email: support@wilke.de              (german)
'	Phone: +49 (241) 918 900    Mo to Fr, 7:00 to 16:00 (GMT)
'	Fax:   +49 (241) 918 9068
'
' New information, new drivers and free downloads see:
'
'	www.wilke-technology.com	     (english)
'	www.wilke.de                         (german)
'
' Sincerely,
'
'	Your Tiger Support Team
'
'----------------------------------------------------------------------------------------
'
' This short example program was compiled with TIGER-BASIC 5.01 to run with
' BASIC-Tigers modules only.
'
' Get another Tiger output pin by double-using the PC mode / RUN mode input pin
' of the BASIC-Tiger.
'
' Note:	Connect your PC mode / RUN mode switch (or fixed setting)
'	through a 10K resistor to Vcc (RUN mode) or GND
'       (PC mode, debug + downloads):
'
'				    ----------
'  L41 (BASIC-Tiger pin 37)  ---*---!  10K   !----- to Vcc (RUN mode)
'                               !   ----------      or GND (PC mode)
'                               !
'				!
'				!
'				!--------> Output (to Hi-Imp. Driver)
'
'
' Note:	Take care that your system always gets a clear input level at
'	Power-ON and reset on I/O-pin L41. This determines if Tiger
'	enters RUN mode (needed for your application) or PC mode
'	(what is wanted in development and update phases only).
'---------------------------------------------------------------------
TASK Main		'
DIR_PIN 4,1,0		' set PC-Mode Pin L41 to be an OUTPUT

WHILE 1 = 1		' <------ endless loop ------>
  OUT 4,2,0ffh		' set L41 to 1
  WAIT_DURATION 300	' wait ...
  OUT 4,2,0		' set L41 to 0
  WAIT_DURATION 300	' wait ...
ENDWHILE		'
END			'