80552.bas

来自「82 sample programs written in BASCOM-805」· BAS 代码 · 共 27 行

'-----------------------------------------------------
'                    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