]>
git.gag.com Git - fw/sdcc/blobdiff - device/lib/z80/mod.s
;; Fall through
__moduchar_rrx_hds::
- ld c,l
call __divu8
- ld l,e
- ld h,d
+ ex de,hl
ret
;; Fall through
__moduint_rrx_hds::
- ld b,h
- ld c,l
-
call __divu16
- ld l,e
- ld h,d
+ ex de,hl
ret
ld e,(hl)
ld d, #0
dec hl
- ld c,(hl)
+ ld l,(hl)
- ld a,c ; Sign extend
+ ld a,l ; Sign extend
rlca
sbc a
- ld b,a
+ ld h,a
call __div16
- ld l,e
- ld h,d
+ ex de,hl
ret