Maybe this ist interersting for you then.
Michael
Am 17.08.2010 um 03:39 schrieb Marcin Cieslak:
Below please find definitions of c?, i? and ? - I find
them useful while exploring amforth (and AVR) interactively.
--Marcin
; ( addr -- ) Numeric IO
; R( -- )
; output single character from the address
VE_CQUESTION:
.dw $ff02
.db "c?"
.dw VE_HEAD
.set VE_HEAD = VE_CQUESTION
XT_CQUESTION:
.dw DO_COLON
PFA_CQUESTION:
.dw XT_CFETCH
.dw XT_DOT
.dw XT_EXIT
; : c? ( addr -- ) c@ . ;
; ( addr -- ) Numeric IO
; R( -- )
; output single word from the address in flash
VE_IQUESTION:
.dw $ff02
.db "i?"
.dw VE_HEAD
.set VE_HEAD = VE_IQUESTION
XT_IQUESTION:
.dw DO_COLON
PFA_IQUESTION:
.dw XT_IFETCH
.dw XT_DOT
.dw XT_EXIT
; : i? ( addr -- ) i@ . ;
; ( addr -- ) Numeric IO
; R( -- )
; output single cell from the address
VE_QUESTION:
.dw $ff01
.db "?",0
.dw VE_HEAD
.set VE_HEAD = VE_QUESTION
XT_QUESTION:
.dw DO_COLON
PFA_QUESTION:
.dw XT_FETCH
.dw XT_DOT
.dw XT_EXIT
; : ? ( addr -- ) @ . ;
----------------------------------------------------------------------
--------
This SF.net email is sponsored by
Make an app they can't live without
Enter the BlackBerry Developer Challenge
http://p.sf.net/sfu/RIM-dev2dev
_______________________________________________
Amforth-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/amforth-devel
------------------------------------------------------------------------------
This SF.net email is sponsored by
Make an app they can't live without
Enter the BlackBerry Developer Challenge
http://p.sf.net/sfu/RIM-dev2dev
_______________________________________________
Amforth-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/amforth-devel
