aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/appl/template/words/qmark.asm
blob: 500a39ebd9ed0972c046d2cfa0fc21d25ffd76df (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
; ( adr -- n ) Tools
; R( -- )
; print the content of addr
VE_QMARK:
    .dw $ff01
    .db "?",0 
    .dw VE_HEAD
    .set VE_HEAD = VE_QMARK
XT_QMARK:
    .dw DO_COLON 
PFA_QMARK:
    .dw XT_FETCH 
    .dw XT_DOT 
    .dw XT_EXIT 

;    : ?     ( adr - n ) @ . ; 
; finis qmark