Do
...  
   Setfont Font6x8
   Lcdat 1 , 1 , "1234567890"
...
Loop

Do
...
   Setfont Font6x8
   Lcdat 1 , 1 , Increment

   Incr Increment
   Waitms 500
...
Loop

Do
...  
   Tempstr = Str(increment)
   Setfont Font6x8
   Lcdat 1 , 1 , Tempstr

   Incr Increment
   Waitms 500
...
Loop

$regfile = "xm32a4udef.dat"
$crystal = 32000000
$hwstack = 180
$swstack = 180
$framesize = 180

'$noramclear
Config Submode = New

'''******************************** SYS CLOCK CONFIG *****************************

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1

Config Single = Scientific , Digits = 1
Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled , Hi = Enabled

'********************************* CONFIG TWI ************************************

Dim Twi_start As Byte
Open "twic" For Binary As #2
Config Twic = 100000
I2cinit #2

'************************* CONFIG OLED 0.66 SSD1306 64x48  ***********************

Config Portd.0 = Output : Oled_rst Alias Portd.0 : Oled_rst = 1       'OLED RESET

'$lib "glcdSSD1306-I2C_V2.lib"
$lib "glcdSSD1306-I2C_V2_0R66_64x48.lib"

Dim _contrast As Byte                                       ' Contrast value of OLED. [0-255]
Const Ssd1306_rotate = 1
Config Graphlcd = Custom , Cols = 64 , Rows = 48 , Lcdname = "SSD1306"
Cls

'Glcdcmd &HA7                                                'Inversion
Glcdcmd &HAF                                                'Display ON

'*********************************************************************************

Dim Increment As Byte , Tempval As Single , Tempstr As String * 8 , Strlen As Byte

Setfont Font6x8

Enable Interrupts

Do

   Waitms 500
   Incr Increment
'__________________________________________________________________________________

   'This is what i want to do: increment the value "Increment" and show it on display.
   'It doen't works - i see only last digit. I.e if Increment = 123 on display i see only "3"
   'It works if Increment value dimensioned as a single: "Dim Increment As Single"
   'But in this case i see on display 123.0

   Lcdat 1 , 1 , Increment ; "  "

'________________________________________________________________________________

   'This is my workaround: Tempval(single) get value of Increment(byte)
   'Represent Tempval as a string
   'and then i delete from the string fractional part with point and send it to the screen

   Tempval = Increment
   Tempstr = Str(tempval)
   Strlen = Len(tempstr) - 2
   Tempstr = Left(tempstr , Strlen )

   Lcdat 1 , 1 , Tempstr ; "  "

Loop
End


$include "Font6x8.font"
$include "font12x16.font"

'The following behaves abnormally.
$hwstack = 180
$swstack = 180
$framesize = 180

'Of the three stack settings, setting one or more to something other than 180 will be normal.
$hwstack = 181
$swstack = 180
$framesize = 180

$regfile = "xm128A1def.dat"
$crystal = 32000000

$hwstack = 180                                              'An abnormality occurs.
'$hwstack = 181                                              'It works normally.
$swstack = 180
$framesize = 180

   Config Osc = Enabled , 32mhzosc = Enabled
   Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1

   Config Com1 = 9600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8

   Dim Temp1 As Byte

   Do
      Print Temp1
      Incr Temp1
      Waitms 300
   Loop

   End