80535.bas

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

'-----------------------------------------------------
'                    80535.BAS
'            specific 80C535 support
'! select the 80535.dat file !
'-----------------------------------------------------
Dim Ad As Byte , Ch As Byte
Config Baud = 9600                        'use internal baud generator (use 12 MHz)

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


Start Watchdog                                                'start the WD-timer
Reset Watchdog                                                'reset it during execution
End