aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/do-sliteral.asm
blob: 41ddb15ae37cc13c302b585b0618589beee9c3ff (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
; ( -- addr len ) 
; String
; runtime portion of sliteral
;VE_DOSLITERAL:
;  .dw $ff0a
;  .db "(sliteral)"
;  .dw VE_HEAD
;  .set VE_HEAD = VE_DOSLITERAL
XT_DOSLITERAL:
  .dw DO_COLON
PFA_DOSLITERAL:
  .dw XT_R_FETCH   ; ( -- addr )
  .dw XT_ICOUNT
  .dw XT_R_FROM
  .dw XT_OVER     ; ( -- addr' n addr n)
  .dw XT_1PLUS
  .dw XT_2SLASH   ; ( -- addr' n addr k )
  .dw XT_PLUS     ; ( -- addr' n addr'' )
  .dw XT_1PLUS
  .dw XT_TO_R     ; ( -- )
  .dw XT_EXIT