[Amforth-devel] ?, c?, i? convenience words

[Marcin C. <sa...@sa...>]

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 -- ) @ . ;