gbdk-releases/sdcc/device/lib/gbz80/shift.s
2015-01-10 16:25:09 +01:00

86 lines
1.4 KiB
ArmAsm

;;
__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$