sender.bs2

proteus 仿真实例

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

'{$STAMP BS2}

i       var     byte

pause   50

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