store.bs2p

来自「proteus 仿真实例, 使用了proteus大部分元件」· BS2P 代码 · 共 23 行

'{$STAMP BS2p}


slot        var     nib
value       var     byte


start:
    for slot = 0 to 7
        store   slot
        write   0,"A" + slot
    next  
    
    for slot = 0 to 7
        store   slot
        read   0,value
        debug "Slot: ", DEC slot," value: ",value,cr
    next

    end