Sub Lcd_text(byval S As String , Byval Xoffset As Word , Byval Yoffset As Word , Byval Forecolor As Word , Byval Backcolor As Word)
 

Sub Lcd_text(byval S As String , Byval Xoffset As Word , Byval Yoffset As Word , Byval Forecolor As Word , Byval Backcolor As Word)
   Local A As Word , Pixels As Byte , Count As Byte , Carcount As Byte , Temp As Word
   Local Row As Byte , Block As Byte , Byteseach As Byte , Blocksize As Byte
   Local Colums As Byte , Columcount As Byte , Rowcount As Byte , Stringsize As Byte
   Local Pixelcount As Byte , Offset As Word
   Local Pointer As Word
   Local X As Word , Y As Word

   Stringsize = Len(s) - 1                                  'Size of the text string -1 because we must start with 0
   !Lds _DPTRL , {Lcd_chartable}                            'Restore Font Label
   !Lds _DPTRH , {Lcd_chartable+1}
   #if Varexist( "RAMPZ")
      ___readrampz = Lcd_chartable_rampz
   #endif

   Read Block
   Read Byteseach
   Read Blocksize
   Colums = Blocksize / Block                               'Calculate the numbers of columns
   Row = Block * 8                                          'Row is always 8 pixels high = 1 byte, so working with row in steps of 8.
   Row = Row - 1                                            'Want to start with row=0 instead of 1
   Colums = Colums - 1                                      'Same for the colums
   Pointer = Varptr(s)

   For Carcount = 0 To Stringsize                           'Loop for the numbers of characters that must be displayed
      Offset = Inp(pointer)                                 'Font files start with character 32
      Offset = Offset - 32
      Incr Pointer
      If Lcd_digit_font = 1 And Offset > 14 Then Offset = Offset - 15       'For reduced Digit Font
      Offset = Offset * Blocksize
      Offset = Offset + 4
      Lcd_tempword = Lcd_chartable + Offset                 'Point to Character
      !Lds _DPTRL , {Lcd_tempword}
      !Lds _DPTRH , {Lcd_tempword+1}
      #if Varexist( "RAMPZ")
         ___readrampz = Lcd_chartable_rampz
      #endif
      Temp = Carcount * Byteseach
      Temp = Temp + Xoffset
      For Rowcount = 0 To Row Step 8                        'Loop for numbers of rows
         Y = Yoffset + Rowcount
         X = Temp
         For Columcount = 0 To Colums                       'Loop for numbers of Columns
            Read Pixels
            For Pixelcount = 0 To 7                         'Loop for 8 pixels to be set or not
               If Pixels.pixelcount = 1 Then
                  Lcd_set_pixel X , Y , Forecolor
               Else
                  Lcd_set_pixel X , Y , Backcolor
               End If

'               As it was in ILI9341_M328_revA.inc
'               Incr X
'            Next Pixelcount
'            X = X - 8
'            Incr Y

'               As it is now in ILI9341_M328_revB.inc

               Incr Y
            Next Pixelcount
            Y = Y - 8
            Incr X

         Next Columcount
      Next Rowcount
   Next Carcount

End Sub
 

Const Lcd_ctrl_port = Portf
Const Lcd_data_port_1 = Porta

Const Lcd_pin_dc = 2
Const Lcd_pin_cs = 3
Const Lcd_reset_pin = 4
Const Lcd_pin_wr = 1
Const Lcd_pin_rd = 0