words/sliteral.asm

Jump to Vocabulary

; ( -- addr n) Compiler
; R( -- )
; runtime portion of s"
;VE_SLITERAL:
;  .db 10,"(sliteral)",0
;  .dw VE_HEAD
;  .set VE_HEAD = VE_SLITERAL
XT_SLITERAL:
  .dw DO_COLON
PFA_SLITERAL:
  .dw XT_R_FROM   ; ( -- addr )
  .dw XT_DUP      ; ( -- addr addr )
  .dw XT_ICOUNT   ; ( -- addr addr' n )
  .dw XT_ROT      ; ( -- addr' n addr )
  .dw XT_OVER     ; ( -- addr' n addr n)
  .dw XT_2SLASH   ; ( -- addr' n addr k )
  .dw XT_1PLUS    ; ( -- addr' n addr k+1 )
  .dw XT_PLUS     ; ( -- addr' n addr'' )
  .dw XT_TO_R     ; ( -- )
  .dw XT_EXIT

Jump to Vocabulary