aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/d-2slash.asm
blob: e9a67eaa6a05f2885ee8bca5d1cb03e997a5ece9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
; ( d1 -- d2 ) 
; Arithmetics
; shift a double cell value right
VE_D2SLASH:
    .dw $ff03
    .db "d2/",0
    .dw VE_HEAD
    .set VE_HEAD = VE_D2SLASH
XT_D2SLASH:
    .dw PFA_D2SLASH
PFA_D2SLASH:
    ld temp0, Y+
    ld temp1, Y+
    asr tosh
    ror tosl
    ror temp1
    ror temp0
    st -Y, temp1
    st -Y, temp0
    jmp_ DO_NEXT