aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/rshift.asm
blob: d0201ed7845ac79fdb48ac5f940d217432e134d0 (plain)
1
2
3
4
5
6
7
8
9
10
11
;C RSHIFT  x1 u -- x2    logical R shift u places
        CODEHEADER(RSHIFT,6,"rshift")
        MOV     @PSP+,W
        AND     #1Fh,TOS        ; no need to shift more than 16
        JZ      RSH_X
RSH_1:  CLRC
        RRC     W
        SUB     #1,TOS
        JNZ     RSH_1
RSH_X:  MOV     W,TOS
        NEXT