aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/lshift.asm
blob: 810d68014537e53d1830d36d9b1a960b7f79d294 (plain)
1
2
3
4
5
6
7
8
9
10
;C LSHIFT  x1 u -- x2    logical L shift u places
        CODEHEADER(LSHIFT,6,"lshift")
        MOV     @PSP+,W
        AND     #1Fh,TOS        ; no need to shift more than 16
        JZ      LSH_X
LSH_1:  ADD     W,W
        SUB     #1,TOS
        JNZ     LSH_1
LSH_X:  MOV     W,TOS
        NEXT