'****************************************************************
'* Name    :12/01/2015 I2C display test                        *
'* test voor I@C display                                        *
'****************************************************************
    Device 16F877A
    Declare Xtal = 4
    Config  XT_OSC, WDT_OFF, PWRTE_ON, LVP_OFF  ;Extern X-tal ;<= 4 MHz 
     
    Dim Vbyte   As Byte
    Dim Vsbyte  As SByte
    Dim Vword   As Word                       
    Dim Vdword  As Dword
    Dim Vsword  As SWord
    Dim Vsdword As SDword
     
    Declare SDA_Pin = PORTC.5;  877A - pin 24       yellow
    Declare SCL_Pin = PORTD.0;  877A - pin 19       white

   Include "I2CPrintSoftCommand.inc"     
   
   Clear
   Print $FE, 3                  ' backlight on  
  
main:

Cls
    Vbyte =   100      ; display OK
    Vsbyte =  100      ; display OK
    Vword =   100      ; display OK
    Vdword =  100      ; display 117
    Vsword =  100      ; display 117
    Vsdword = 100      ; display 117
     
    
    Print At 1,1,"Vb ",Dec Vbyte, " Vsb= ",Dec Vsbyte," "
        
    Print At 2,1,"Vw= ",Dec Vword," Vdw= ",Dec Vdword," "
      
    Print At 3,1,"Vsw= ",Dec Vdword," Vsdw= ",Dec Vsdword, 
    
     

    DelayMS 1000
GoTo main

;=======                
End
;========