aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/to-body.asm
blob: 34e9e9da9a2e0f8c6f1958ab0658086744d9b55d (plain)
1
2
3
4
5
6
7
8
9
10
; ( XT -- PFA )
; Core
; get body from XT
VE_TO_BODY:
    .dw $ff05
    .db ">body",0
    .dw VE_HEAD
    .set VE_HEAD = VE_TO_BODY
XT_TO_BODY:
    .dw PFA_1PLUS