Parallax BASIC Stamp 2e - Page 328

STORE - BASIC Stamp Command Reference
Page 326 • BASIC Stamp Programming Manual 2.0b • www.parallaxinc.com
Value = Idx – 2048 * 2 'Use different numbers in each location
GOSUB WriteWordToEEPROM
DEBUG "Location: ", DEC5 Idx, " Value: ", DEC5 Value, CR
NEXT
DEBUG "Reading...", CR
PAUSE 2000
FOR Idx = 2048 TO 16383 STEP 32 'Read values from EEPROM
GOSUB ReadWordFromEEPROM
DEBUG "Location: ", DEC5 Idx, " Value: ", DEC5 Value, CR
NEXT
STOP
' --------------------------- Subroutines ---------------------------
WriteWordToEEPROM:
'NOTE: This routine is written to work only when Idx is an even-byte boundary
STORE Idx >> 11 'Set to proper READ/WRITE slot (upper 3-bits of address)
WRITE Idx, Value.LOWBYTE
WRITE Idx+1, Value.HIGHBYTE
RETURN
ReadWordFromEEPROM:
'NOTE: This routine is written to work only when Idx is an even-byte boundary
STORE Idx >> 11 'Set to proper READ/WRITE slot (upper 3-bits of address)
READ Idx, Value.LOWBYTE
READ Idx+1, Value.HIGHBYTE
RETURN