80552.bas

82 sample programs written in BASCOM-8051 for 8051 developement

'-----------------------------------------------------
'                    80552.BAS
'            specific 80552 support
' sample only intended to show the syntax for the 80552 interrupts
'-----------------------------------------------------
$regfile = "80552.dat"

Dim Ad As Byte , Ch As Byte

On Adc Adc_isr
Enable Adc
Enable Ct0
Enable Cm0

Enable I2c


Ch = 0                                                        'select channel 0
Ad = Getad(ch , 0)                                            'get value from converter
Print Ad


Adc_isr:
  nop
Return

End