sender.bs2

来自「proteus 仿真实例」· BS2 代码 · 共 18 行

'-----------------------------------------------------------------------------
' 
'
'

'{$STAMP BS2}

i       var     byte

pause   50

start:
    for i=0 to 255
        serout  16\15,$54,[bin8 i,cr]
    next
    end