aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/2slash.asm
blob: 5d4ada2f6f295a9972a003950897fb2f5ff7c3ea (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; ( n1 -- n2 ) 
; Arithmetics
; arithmetic shift right
VE_2SLASH:
    .dw $ff02
    .db "2/"
    .dw VE_HEAD
    .set VE_HEAD = VE_2SLASH
XT_2SLASH:
    .dw PFA_2SLASH
PFA_2SLASH:
    asr tosh
    ror tosl
    jmp_ DO_NEXT