aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/drop.asm
blob: baee84b5d338a3c01e80c27de804b6a718a42a5d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
; ( n -- ) 
; Stack
; drop TOS
VE_DROP:
    .dw $ff04
    .db "drop"
    .dw VE_HEAD
    .set VE_HEAD = VE_DROP
XT_DROP:
    .dw PFA_DROP
PFA_DROP:
    loadtos
    jmp_ DO_NEXT