aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/nip.asm
blob: cfa1d1ad47e21ab5c9a0b95286f1ca0fdd2d7c6f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
; ( n1 n2 -- n2 ) 
; Stack
; Remove Second of Stack
VE_NIP:
    .dw $ff03
    .db "nip",0
    .dw VE_HEAD
    .set VE_HEAD = VE_NIP
XT_NIP:
    .dw PFA_NIP
PFA_NIP:
    adiw yl, 2
    jmp_ DO_NEXT