Skip to content

Instantly share code, notes, and snippets.

@TG9541

TG9541/GET

Created February 3, 2018 09:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save TG9541/9c3908995d39b1ea8bad4a2ff755e944 to your computer and use it in GitHub Desktop.
Save TG9541/9c3908995d39b1ea8bad4a2ff755e944 to your computer and use it in GitHub Desktop.
Download ZIP
GET and print variable as fixed point in STM8 eForth interpreter
Raw
GET
RAM
#require TOKEN
#require >IN
#require .ID
#require .0
NVM
: GET ( string -- )
\ interpretion semantics: get and print variable
>IN @ TOKEN CR .ID ." ="
>IN ! ' EXECUTE
@ .0
;
RAM
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment