Parallax BASIC Stamp 2e Programming Manual page 327

5: BASIC Stamp Command Reference – STORE
2
Demo Program (STORE2.bsp)
p
DATA @0, 11, 12, 13, 14, 15
Idx VAR WORD
Value VAR BYTE
' -------------------------- Main Routines --------------------------
Main:
GOSUB DisplaySlotsAndReadData
PAUSE 2000
STORE 0
GOSUB DisplaySlotsAndReadData
STOP
' --------------------------- Subroutines ---------------------------
DisplaySlotsAndReadData:
GET 127, Value
DEBUG CR, "Prog Slot: ", DEC1 Value.LOWNIB
DEBUG " R/W Slot: ", DEC1 Value.HIGHNIB, CR, CR
FOR Idx = 0 TO 4
READ Idx, Value
DEBUG "Location: ", DEC Idx, " Value: ", DEC3 Value, CR
NEXT
RETURN
The next Demo Program, StoreAll.bsp, is not related to the previous three
programs. StoreAll.bsp demonstrates the use of the STORE command to
treat contiguous program slots as one block of memory (14 kbytes). This
illustrates one of the most powerful uses of the STORE command.
2 Demo Program (STOREALL.bsp)
p
' This program demonstrates the STORE command and how it can be used to "flatten"
' the EEPROM space for applications requiring a lot of storage. This program
' writes to EEPROM locations within program slots 1 though 7 and, thus, has access
' to 14 kbytes of space.
'{$STAMP BS2p}
Idx VAR WORD
Value VAR WORD
' -------------------------- Main Routines --------------------------
Main:
DEBUG "Writing...", CR
PAUSE 2000
FOR Idx = 2048 TO 16383 STEP 32
BASIC Stamp Programming Manual 2.0c • www.parallaxinc.com • Page 325
'Switch to READ/WRITE slot 0
'Stop execution
'STAMP directive (specifies a BS2p)
'Write values to EEPROM