EEprom Store BS2SX
J. H. Rollins
Posts: 9
·
'I am trying TO store this information in the program slot ON the BS2SX.
'What I am trying TO DO is store information TO identify each port, with the programming running, AND prompt me TO key
'in the message in a text format. e.g. Port_8 =· Counter. Is this possible with the Basic Stamp?...
'I would very much appreciate any help you could give me.
'Sincerely yours
'Harry
'
'
B96···· CON··· $F0
Timeout CON··· 4000
'
CON
SrStr······ VAR··· Word
SrStr0····· VAR··· SrStr.LOWBYTE
SrStr1····· VAR··· SrStr.HIGHBYTE
Temp······· VAR··· Byte
'
EEprom Data
BSrStr··· DATA··· Word 00
BSrStr0·· DATA··· 00
BSrStr1·· DATA··· 00
'
Initialization
READ·· BSrStr,SrStr
READ·· BSrStr0,SrStr0
READ·· BSrStr1,SrStr1
Main:
SEROUT 16,B96,[noparse][[/noparse]CLS]
SEROUT 16,B96,[noparse][[/noparse]CR,"[noparse][[/noparse]\>]",CR]
SERIN 16,B96,Timeout,MP1,[noparse][[/noparse]Temp]
Temp = Temp & $0DF
IF(Temp = "Z")THEN Zero
GOTO Zero
MP:
SEROUT 16,B96,[noparse][[/noparse]CR," Port_8 = (",STR SrStr,")",CR]
PAUSE 3000
GOTO Main
END
MP1:
SrStr(9) = 0
SEROUT 16,B96,[noparse][[/noparse]CR," Port_8 = "," "]
SERIN· 16,B96,[noparse][[/noparse]STR SrStr\9\CR]
DEBUG STR SrStr,CR
WRITE BSrStr,SrStr
WRITE BSrStr0,SrStr0
WRITE BSrStr1,SrStr1
SEROUT 16,B96,[noparse][[/noparse]CLS]
GOTO MP
END
'
Clear
Zero:
WRITE BSrStr,0
WRITE BSrStr0,0
WRITE BSrStr1,0
GOTO Main