ibercomp.bas

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

'------------------------------------------------------------
'                   (c) 2000 MCS Electronics
' This example shows how to include some ASM code
'The DAC on the 537 board of Ibercomp serves as an example
'------------------------------------------------------------
'first tell the compiler about the ASM routine in the LIB
'The routine is located in the MCS.LIB file in the \LIB dir.
$external _dac_537


Dim Channel As Byte , Value As Byte

Channel = 0
Value = 1                                                     '1Volt
mov b,{value}       'load value
mov a,{channel}     'load channel
lCall _dac_537      'call ASM routine
End