'----------------------------------------------------------------------------------------
'    Name:  Sleep.tig
'    Type:  TIGER-BASIC(tm) Source Code
' Purpose:  DEMO - demonstrates the Sleep Mode of TINY Tiger 2
'
'
'  (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
'
'----------------------------------------------------------------------------------------
'
' required Hardware:    Tiger 2
'
'
' -> To wake up the Tiger 2 from the Sleep Mode, give a pulse on INTM4
'    ==> The program continous behind the SLEEP Instruction
'
'
' -> The Sleep Mode has no influence on the I/Os
'
' -> Operation current during Sleep Mode: ~30mA
'
'
'----------------------------------------------------------------------------------------
' 
'  SLEEP(   )
'         !-- no parameters
'
'----------------------------------------------------------------------------------------
user_var_strict
user_var_init

#include define_a.inc


user_eport act, noactive

task main
 dir_port 8,0				' Port 8 OUTPUT
 OUT 8, 255, 0				' set L8x LOW

 wait_duration 3000			' wait 3 seconds

 sleep()				' save current (Operation current ~30mA)
 					' wake up with INTM0 (pulse)
  
 OUT 8, 255, 255			' L8x HIGH (show, that Sleep Mode was left)

end