Hi,

ich habe noch was.
Wie setzte ich das um.
Das geht doch mit
in R16, PIND ; lies den Eingang von Port D
oder?
Aber wie geht das dann das .gl_bit gesetzt wird und die anderen Port's nicht überschrieben werden?


Code:
  Gl_inp Alias Pina                                           'LCD data input
  Gl_tris Alias Ddra                                          'LCD data redirection
  Dim Gl_bit As Byte
  Dim Gl_rstflag As Byte
  Dim Gl_pix As Byte
  
Gl_tris = &B00000000                                     'Port input    

Gl_read = Gl_inp  'laden

Gl_tris = &B11111111                                     'port output
  

    
    If Gl_rstflag = 0 Then
      Set Gl_read.gl_bit
    Else
      Reset Gl_read.gl_bit
    End If
    Gl_pix = Gl_read
end