shift.s

来自「sdcc是为51等小型嵌入式cpu设计的c语言编译器支持数种不同类型的cpu」· S 代码 · 共 86 行

        ;;
__rrulong_rrx_s::                
        ld      hl,#2
        add     hl,sp

        ld      e,(hl)
        inc     hl
        ld      d,(hl)
        inc     hl
        ld      c,(hl)
        inc     hl
        ld      b,(hl)
        inc     hl
        ld      a,(hl)

        ld      l,c
        ld      h,b
1$:
        or      a,a
        ret     z

        rr      h
        rr      l
        rr      d
        rr      e

        dec     a
        jp      1$

__rrslong_rrx_s::        
        ld      hl,#2
        add     hl,sp
                
        ld      e,(hl)
        inc     hl
        ld      d,(hl)
        inc     hl
        ld      c,(hl)
        inc     hl
        ld      b,(hl)
        inc     hl
        ld      a,(hl)

        ld      l,c
        ld      h,b
1$:
        or      a,a
        ret     z

        sra     h
        rr      l
        rr      d
        rr      e

        dec     a
        jp      1$
        
__rlslong_rrx_s::                
__rlulong_rrx_s::                
        ld      hl,#2
        add     hl,sp
        
        ld      e,(hl)
        inc     hl
        ld      d,(hl)
        inc     hl
        ld      c,(hl)
        inc     hl
        ld      b,(hl)
        inc     hl
        ld      a,(hl)

        ld      l,c
        ld      h,b
1$:
        or      a,a
        ret     z

        rl      e
        rl      d
        rl      l
        rl      h

        dec     a        
        jp      1$