© MCS Electronics, 1995-2007
= 8 , Clockpol = 0
'--------------------------------------------------------------
Print "INCLUDE.BAS"
'Note that the file 123.bas contains an error
$include "123.bas" |
'include file that prints Hello |
Print "Back in INCLUDE.BAS" |
|
End |
|
$INITMICRO
Action
Calls a user routine at startup to perform important initialization functions such as setting ports.
Syntax
$INITMICRO
Remarks
This directive will call a label named _INIT_MICRO just after the most important initialization is performed. You can put the _INIT_MICRO routine into your program, or you can put it in a library. Advantage of a library is that it is the same for all programs, and advantage of storing the code into your program is that you can change it for every program.
It is important that you end the routine with a RETURN as the label is called and expects a return.
The $initmicro can be used to set a port direction or value as it performs before the memory is cleared which can take some mS.
The best solution for a defined logic level at startup remains the usage of pul up/pull down resistors.
See Also
NONE
Example
$regfile = "m48def.dat" $crystal = 4000000 $baud = 19200
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
$initmicro |
|
Print Version() |
'show date and |
time of compilation |
|
Print Portb |
|
Do |
|
nop |
|
Loop |
|
End |
|
page -219-
© MCS Electronics, 1995-2007
'do not write a complete application in this routine. 'only perform needed init functions
_init_micro:
Config Portb = Output
Portb = 3
Return
$LCD
Action
Instruct the compiler to generate code for 8-bit LCD displays attached to the data bus.
Syntax
$LCD = [&H]address
Remarks
Address |
The address where must be written to, to enable the LCD display and the |
|
RS line of the LCD display. |
|
The db0-db7 lines of the LCD must be connected to the data lines D0-D7. |
|
(or is 4 bit mode, connect only D4-D7) |
|
The RS line of the LCD can be configured with the LCDRS statement. |
|
On systems with external RAM, it makes more sense to attach the LCD to |
|
the data bus. With an address decoder, you can select the LCDdisplay. |
|
|
Do not confuse $LCD with the LCD statement.
See also
$LCDRS , CONFIG LCD
Example
'-------------------------------------------------------------- |
(c) 1995-2005 MCS Electronics |
' |
|
'-------------------------------------------------------------- |
|
'file: LCD.BAS
'demo: LCD, CLS, LOWERLINE, SHIFTLCD, SHIFTCURSOR, HOME
'CURSOR, DISPLAY
'--------------------------------------------------------------
'note : tested in bus mode with 4-bit on the STK200
'LCD |
- STK200 |
'------------------- |
D4 |
'D4 |
|
'D5 |
D5 |
'D6 |
D6 |
'D7 |
D7 |
'WR |
WR |
'E |
E |
'RS |
RS |
page -220-
© MCS Electronics, 1995-2007
'+5V |
+5V |
'GND |
GND |
'V0 |
V0 |
'D0-D3 are not connected since 4 bit bus mode is used!
'Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6
Rem with the config lcdpin statement you can override the compiler settings
$regfile = "8515def.dat" $lcd = &HC000
$lcdrs = &H8000 Config Lcdbus = 4
Dim A As Byte
Config Lcd = 16 * 2 'configure lcd screen
'other options are 16 * 2 , 16 * 4 and 20 * 4, 20 * 2 , 16 * 1a 'When you dont include this option 16 * 2 is assumed
'16 * 1a is intended for 16 character displays with split addresses over 2 lines
'$LCD = address will turn LCD into 8-bit databus mode |
|
|
' |
use this with uP with external RAM and/or ROM |
|
' |
because it aint need the port pins ! |
|
Cls |
|
'clear the LCD |
display |
|
'display this at |
Lcd "Hello world." |
||
the top line |
|
|
Wait 1 |
|
'select the lower |
Lowerline |
||
line |
|
|
Wait 1 |
|
'display this at |
Lcd "Shift this." |
||
the lower line |
|
|
Wait 1 |
|
|
For A = 1 To 10 |
'shift the text to |
|
Shiftlcd Right |
||
the right |
'wait a moment |
|
Wait 1 |
||
Next |
|
|
For A = 1 To 10 |
'shift the text to |
|
Shiftlcd Left |
||
the left |
'wait a moment |
|
Wait 1 |
||
Next |
|
|
Locate 2 , 1 |
'set cursor |
|
position |
'display this |
|
Lcd "*" |
|
|
Wait 1 |
|
'wait a moment |
Shiftcursor Right |
'shift the cursor |
|
Lcd "@" |
|
'display this |
Wait 1 |
|
'wait a moment |
Home Upper |
'select line 1 and |
|
return home |
'replace the text |
|
Lcd "Replaced." |
||
Wait 1 |
|
'wait a moment |
Cursor Off Noblink |
'hide cursor |
|
page -221-
© MCS Electronics, 1995-2007 |
|
|
Wait 1 |
'wait a moment |
|
Cursor On Blink |
'show cursor |
|
Wait 1 |
'wait a moment |
|
Display Off |
'turn display off |
|
Wait 1 |
'wait a moment |
|
Display On |
'turn display on |
|
'-----------------NEW support for 4-line LCD------ |
|
|
Thirdline |
|
|
Lcd "Line 3" |
|
|
Fourthline |
|
|
Lcd "Line 4" |
'goto home on line |
|
Home Third |
||
three |
|
|
Home Fourth |
'first letteer |
|
Home F |
||
also works |
|
|
Locate 4 , 1 : Lcd "Line 4" |
|
|
Wait 1 |
|
|
'Now lets build a special character |
|
|
'the first number is the characternumber (0-7) |
|
|
'The other numbers are the rowvalues |
|
|
'Use the LCD tool to insert this line |
|
|
Deflcdchar 1 , 225 , 227 , 226 , 226 , 226 , 242 , 234 , 228 |
' replace ? |
|
with number (0-7) |
|
' replace ? |
Deflcdchar 0 , 240 , 224 , 224 , 255 , 254 , 252 , 248 , 240 |
||
with number (0-7) |
'select data RAM |
|
Cls |
||
Rem it is important that a CLS is following the deflcdchar statements because
it will set the controller back in datamode |
'print the special |
Lcd Chr(0) ; Chr(1) |
|
character |
|
'----------------- Now use an internal routine ------------ |
'value into ACC |
_temp1 = 1 |
|
!rCall _write_lcd |
'put it on LCD |
End |
|
$LCDPUTCTRL
Action
Specifies that LCD control output must be redirected.
Syntax
$LCDPUTCTRL = label
Remarks
Label |
The name of the assembler routine that must be called when a control byte |
|
is printed with the LCD statement. The character must be placed in register |
|
R24. |
|
|
With the redirection of the LCD statement, you can use your own routines.
page -222-