words/squote.asm

Jump to Vocabulary

; ( <cchar> -- ) Compiler
; R( -- )
; compiles a string to flash, at runtime leaves ( -- addr count) on stack
VE_SQUOTE:
  .db $82,"s",$22,0
  .dw VE_HEAD
  .set VE_HEAD = VE_SQUOTE
XT_SQUOTE:
    .dw DO_COLON
PFA_SQUOTE:
    .dw XT_DOLITERAL
    .dw $22
    .dw XT_PARSE       ; ( -- addr n)
    .dw XT_COMPILE
    .dw XT_SLITERAL    ; ( -- addr n)
    .dw XT_SCOMMA
    .dw XT_EXIT

Jump to Vocabulary