aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/doliteral.asm
blob: 31da4b36217ac35cbdd48aceda3cfdcb5cad5832 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
; ( -- n1 )
; System
; runtime of literal
;VE_DOLITERAL:
;    .dw $ff09
;    .db "(literal)"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_DOLITERAL
XT_DOLITERAL:
    .dw PFA_DOLITERAL
PFA_DOLITERAL:
    savetos
    movw zl, xl
    readflashcell tosl,tosh
    adiw xl, 1
    jmp_ DO_NEXT