'----------------------------------------------------------------------------------------
'     Name:   LCD1_V1_01k_new_parameters.TIG
'     Type:   Tiger-BASIC Source Code
'  Purpose:   Demonstrates latest parameters of LCD1.TDD  -  use with xPort-System
'
'  (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 example compiled with Tiger-BASIC 5.01 - for the Plug & Play Lab
'
'	      Note:   - use Project_Modell "full"  (Default)
'		      - use TAC system version 1.13a or later
'
'
' This example shows how to use the Shift-LED on an xPort-Pin:
'
'	  see parameters 10,11,12   and   16,17,18
'
'----------------------------------------------------------------------------------------
USER_VAR_STRICT				' check for variable declaration
#INCLUDE UFUNC3.INC			' User Function Codes
#INCLUDE DEFINE_A.INC			' general symbol definitions
#INCLUDE KEYB_PP.INC			' keyboard of Plug & Play Lab

TASK Main				' begin task MAIN
  BYTE X,N, ANF				'
  STRING A$,KB$				'

  DIR_PIN 3,3,0				' Port-3 Bit-3  (L33) = Output = ACLK
  DIR_PIN 3,4,0				' Port-3 Bit-4  (L34) = Output = DCLK
  DIR_PIN 3,5,0				' Port-3 Bit-5  (L35) = Output = -INE
  OUT  3, 00100000B, 0FFH		' set bits to "1":  L33, L34, L45

  XOUT (0,FILL$("<0>",256))		' set all 256 possible xPort channels to 0

  INSTALL_DEVICE #LCD, "LCD1.TDD",&	' install LCD1 with keyboard + Shift-LED + beeper
	   0,&	' 1 -   0    LC display type (1...nn)
	   0,&	' 2 -   0  L BUS-Adr LCD / Keyb.
	   0,&	' 3 -   0    Bit-MASK <Signal: E>
	   0,&	' 4 -   0  L ADR      <Signal: E>
	   0,&	' 5 -   0    Bit-MASK <Signal: RS>
	   0,&	' 6 -   0  L ADR      <Signal: RS>
	0EEh,&	' 7 -  EE    BIT-Mask BELL-Beeper 00 -> no BELL !
	   0,&	' 8 -   0  L Adr BELL-Beeper (iPort)
	0EEH,&	' 9 -  EE    TRUE(=00) / false(=FF) FLAG
	 40H,&	'10 -  EE    S-LED Bit-MASK						<======
	  11,&	'11 -   0  L S-LED LOG-Port-ADR						<======
	0EEH,&	'12 -  EE    S-LED Flag: 00=TRUE / FF=FALSE				<======
	0EEH,&	'13 -  EE    Keyboard scan columns: 0=NO keyboard, otherwise = 1...16 columns
	0EEH,&	'14 -  EE    LCD available: 0=YES / FF=NO
	   3,&	'15 -  EE    CTRL-Port ADR:  3
	   8,&	'16 -  EE    ACLK mask:  0000 1000B  / 2 masks for INPUT from XPort	<======
	 20H,&  '17 -  EE    -INE mask:  0010 0000B /					<======
	 10H    '18 -  EE    -DCLK mask: 0001 0000B  --> data clock for Shift-LED	<======
'                 !     !
'                 !     !<--- This parameter value used to NOT change the default in this parameter position
'                 !
'                 !<--- Parameter No.

  CALL INIT_KEYB (LCD)			' adapt to Plug & Play Lab keyboard

'----------------------------------------------------------------------------------------
' 16.)	ESC,k,n0,n1,...n15 <EOS>   set keyboard addrs (internal or external)
'
'	Set exactly 16 column addrs for 16 columns to be scanned by device driver:
'	Keyboard + DIP-keys
'----------------------------------------------------------------------------------------
  KB$ = "<1BH>k"			'
  FOR N = 00 TO 00+15			'
    KB$ = KB$+CHR$(N)			'
  NEXT					'
  PUT #LCD, KB$				'
  PRINT #LCD,"<1>Hello";		'
  GET #LCD, 0, A$			' just get keyboard input

  LOOP 999999999			' <----------------- many loops ---------------->
    GET #LCD, 1, A$			' just get keyboard input
    PUT #LCD, A$			' and display on LCD
    WAIT_DURATION 10			' wait 10 ms
  ENDLOOP				'
END					' end of task MAIN