aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/d-2star.asm
blob: f0ca099a3c85f81165709a10c1d2056768b5cc5c (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 left
VE_D2STAR:
    .dw $ff03
    .db "d2*",0
    .dw VE_HEAD
    .set VE_HEAD = VE_D2STAR
XT_D2STAR:
    .dw PFA_D2STAR
PFA_D2STAR:
    ld temp0, Y+
    ld temp1, Y+
    lsl temp0
    rol temp1
    rol tosl
    rol tosh
    st -Y, temp1
    st -Y, temp0
    jmp_ DO_NEXT