store.bs2p

来自「该应用软件可以实现大多数单片机的仿真实验」· 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