+2006-10-20 Maarten Brock <sourceforge.brock AT dse.nl>
+
+ * device/lib/gbz80/crt0.s,
+ * device/lib/gbz80/crt0_rle.s,
+ * device/lib/gbz80/div.s,
+ * device/lib/gbz80/fstubs.s,
+ * device/lib/gbz80/heap.s,
+ * device/lib/gbz80/mul.s,
+ * device/lib/gbz80/putchar.s,
+ * device/lib/gbz80/stubs.s,
+ * device/lib/z80/crt0.s,
+ * device/lib/z80/crt0_rle.s,
+ * device/lib/z80/div.s,
+ * device/lib/z80/fstubs.s,
+ * device/lib/z80/heap.s,
+ * device/lib/z80/mul.s,
+ * device/lib/z80/putchar.s,
+ * device/lib/z80/stubs.s: reverted, I was mistaken
+
2006-10-20 Frieder Ferlemann <Frieder.Ferlemann AT web.de>
* src/mcs51/peeph.def: peephole 238.x added check for notvolatile
- * support/regression/ports/mcs51/support.c: removed race
- condition on TI in _putchar allowing to use serial port mode 0
+ * support/regression/ports/mcs51/support.c: removed race
+ condition on TI in _putchar allowing to use serial port mode 0
2006-10-20 Borut Razem <borut.razem AT siol.net>
- ;; Originally from GBDK by Pascal Felber.
- .area CODE
+ ;; Originally from GBDK by Pascal Felber.
+ .area _CODE
__divschar_rrx_s::
ld hl,#2+1
call .div8
- ld e,c
+ ld e,c
ld d,b
- ret
+ ret
__modschar_rrx_s::
ld hl,#2+1
__modschar_rrx_hds::
ld c,l
- call .div8
+ call .div8
;; Already in DE
- ret
+ ret
__divsint_rrx_s::
ld hl,#2+3
;; Fall through
__divsint_rrx_hds::
- ld b,h
- ld c,l
+ ld b,h
+ ld c,l
- call .div16
+ call .div16
- ld e,c
- ld d,b
+ ld e,c
+ ld d,b
- ret
+ ret
__modsint_rrx_s::
ld hl,#2+3
;; Fall through
__modsint_rrx_hds::
- ld b,h
- ld c,l
+ ld b,h
+ ld c,l
- call .div16
+ call .div16
;; Already in DE
- ret
+ ret
- ;; Unsigned
+ ;; Unsigned
__divuchar_rrx_s::
ld hl,#2+1
add hl,sp
;; Fall through
__divuchar_rrx_hds::
ld c,l
- call .divu8
+ call .divu8
- ld e,c
+ ld e,c
ld d,b
- ret
+ ret
__moduchar_rrx_s::
ld hl,#2+1
;; Fall through
__moduchar_rrx_hds::
ld c,l
- call .divu8
+ call .divu8
;; Already in DE
;; Fall through
__divuint_rrx_hds::
- ld b,h
- ld c,l
- call .divu16
+ ld b,h
+ ld c,l
+ call .divu16
- ld e,c
- ld d,b
+ ld e,c
+ ld d,b
- ret
+ ret
__moduint_rrx_s::
ld hl,#2+3
;; Fall through
__moduint_rrx_hds::
- ld b,h
- ld c,l
+ ld b,h
+ ld c,l
- call .divu16
+ call .divu16
;; Already in DE
- ret
+ ret
.div8::
.mod8::
- ld a,c ; Sign extend
- rlca
- sbc a
- ld b,a
- ld a,e ; Sign extend
- rlca
- sbc a
- ld d,a
-
- ; Fall through to .div16
-
- ;; 16-bit division
- ;;
- ;; Entry conditions
- ;; BC = dividend
- ;; DE = divisor
- ;;
- ;; Exit conditions
- ;; BC = quotient
- ;; DE = remainder
- ;; If divisor is non-zero, carry=0
- ;; If divisor is 0, carry=1 and both quotient and remainder are 0
- ;;
- ;; Register used: AF,BC,DE,HL
+ ld a,c ; Sign extend
+ rlca
+ sbc a
+ ld b,a
+ ld a,e ; Sign extend
+ rlca
+ sbc a
+ ld d,a
+
+ ; Fall through to .div16
+
+ ;; 16-bit division
+ ;;
+ ;; Entry conditions
+ ;; BC = dividend
+ ;; DE = divisor
+ ;;
+ ;; Exit conditions
+ ;; BC = quotient
+ ;; DE = remainder
+ ;; If divisor is non-zero, carry=0
+ ;; If divisor is 0, carry=1 and both quotient and remainder are 0
+ ;;
+ ;; Register used: AF,BC,DE,HL
.div16::
.mod16::
- ;; Determine sign of quotient by xor-ing high bytes of dividend
- ;; and divisor. Quotient is positive if signs are the same, negative
- ;; if signs are different
- ;; Remainder has same sign as dividend
- ld a,b ; Get high byte of dividend
- ld (.srem),a ; Save as sign of remainder
- xor d ; Xor with high byte of divisor
- ld (.squot),a ; Save sign of quotient
- ;; Take absolute value of divisor
- bit 7,d
- jr Z,.chkde ; Jump if divisor is positive
- sub a ; Substract divisor from 0
- sub e
- ld e,a
- sbc a ; Propagate borrow (A=0xFF if borrow)
- sub d
- ld d,a
- ;; Take absolute value of dividend
+ ;; Determine sign of quotient by xor-ing high bytes of dividend
+ ;; and divisor. Quotient is positive if signs are the same, negative
+ ;; if signs are different
+ ;; Remainder has same sign as dividend
+ ld a,b ; Get high byte of dividend
+ ld (.srem),a ; Save as sign of remainder
+ xor d ; Xor with high byte of divisor
+ ld (.squot),a ; Save sign of quotient
+ ;; Take absolute value of divisor
+ bit 7,d
+ jr Z,.chkde ; Jump if divisor is positive
+ sub a ; Substract divisor from 0
+ sub e
+ ld e,a
+ sbc a ; Propagate borrow (A=0xFF if borrow)
+ sub d
+ ld d,a
+ ;; Take absolute value of dividend
.chkde:
- bit 7,b
- jr Z,.dodiv ; Jump if dividend is positive
- sub a ; Substract dividend from 0
- sub c
- ld c,a
- sbc a ; Propagate borrow (A=0xFF if borrow)
- sub b
- ld b,a
- ;; Divide absolute values
+ bit 7,b
+ jr Z,.dodiv ; Jump if dividend is positive
+ sub a ; Substract dividend from 0
+ sub c
+ ld c,a
+ sbc a ; Propagate borrow (A=0xFF if borrow)
+ sub b
+ ld b,a
+ ;; Divide absolute values
.dodiv:
- call .divu16
- ret C ; Exit if divide by zero
- ;; Negate quotient if it is negative
- ld a,(.squot)
- and #0x80
- jr Z,.dorem ; Jump if quotient is positive
- sub a ; Substract quotient from 0
- sub c
- ld c,a
- sbc a ; Propagate borrow (A=0xFF if borrow)
- sub b
- ld b,a
+ call .divu16
+ ret C ; Exit if divide by zero
+ ;; Negate quotient if it is negative
+ ld a,(.squot)
+ and #0x80
+ jr Z,.dorem ; Jump if quotient is positive
+ sub a ; Substract quotient from 0
+ sub c
+ ld c,a
+ sbc a ; Propagate borrow (A=0xFF if borrow)
+ sub b
+ ld b,a
.dorem:
- ;; Negate remainder if it is negative
- ld a,(.srem)
- and #0x80
- ret Z ; Return if remainder is positive
- sub a ; Substract remainder from 0
- sub e
- ld e,a
- sbc a ; Propagate remainder (A=0xFF if borrow)
- sub d
- ld d,a
- ret
+ ;; Negate remainder if it is negative
+ ld a,(.srem)
+ and #0x80
+ ret Z ; Return if remainder is positive
+ sub a ; Substract remainder from 0
+ sub e
+ ld e,a
+ sbc a ; Propagate remainder (A=0xFF if borrow)
+ sub d
+ ld d,a
+ ret
.divu8::
.modu8::
- ld b,#0x00
- ld d,b
- ; Fall through to divu16
+ ld b,#0x00
+ ld d,b
+ ; Fall through to divu16
.divu16::
.modu16::
- ;; Check for division by zero
- ld a,e
- or d
- jr NZ,.divide ; Branch if divisor is non-zero
- ld bc,#0x00 ; Divide by zero error
- ld d,b
- ld e,c
- scf ; Set carry, invalid result
- ret
+ ;; Check for division by zero
+ ld a,e
+ or d
+ jr NZ,.divide ; Branch if divisor is non-zero
+ ld bc,#0x00 ; Divide by zero error
+ ld d,b
+ ld e,c
+ scf ; Set carry, invalid result
+ ret
.divide:
- ld l,c ; L = low byte of dividend/quotient
- ld h,b ; H = high byte of dividend/quotient
- ld bc,#0x00 ; BC = remainder
- or a ; Clear carry to start
- ld a,#16 ; 16 bits in dividend
+ ld l,c ; L = low byte of dividend/quotient
+ ld h,b ; H = high byte of dividend/quotient
+ ld bc,#0x00 ; BC = remainder
+ or a ; Clear carry to start
+ ld a,#16 ; 16 bits in dividend
.dvloop:
- ;; Shift next bit of quotient into bit 0 of dividend
- ;; Shift next MSB of dividend into LSB of remainder
- ;; BC holds both dividend and quotient. While we shift a bit from
- ;; MSB of dividend, we shift next bit of quotient in from carry
- ;; HL holds remainder
- ;; Do a 32-bit left shift, shifting carry to L, L to H,
- ;; H to C, C to B
- ld (.dcnt),a
- rl l ; Carry (next bit of quotient) to bit 0
- rl h ; Shift remaining bytes
- rl c
- rl b ; Clears carry since BC was 0
- ;; If remainder is >= divisor, next bit of quotient is 1. This
- ;; bit goes to carry
- push bc ; Save current remainder
- ld a,c ; Substract divisor from remainder
- sbc e
- ld c,a
- ld a,b
- sbc d
- ld b,a
- ccf ; Complement borrow so 1 indicates a
- ; successful substraction (this is the
- ; next bit of quotient)
- jr C,.drop ; Jump if remainder is >= dividend
- pop bc ; Otherwise, restore remainder
- jr .nodrop
+ ;; Shift next bit of quotient into bit 0 of dividend
+ ;; Shift next MSB of dividend into LSB of remainder
+ ;; BC holds both dividend and quotient. While we shift a bit from
+ ;; MSB of dividend, we shift next bit of quotient in from carry
+ ;; HL holds remainder
+ ;; Do a 32-bit left shift, shifting carry to L, L to H,
+ ;; H to C, C to B
+ ld (.dcnt),a
+ rl l ; Carry (next bit of quotient) to bit 0
+ rl h ; Shift remaining bytes
+ rl c
+ rl b ; Clears carry since BC was 0
+ ;; If remainder is >= divisor, next bit of quotient is 1. This
+ ;; bit goes to carry
+ push bc ; Save current remainder
+ ld a,c ; Substract divisor from remainder
+ sbc e
+ ld c,a
+ ld a,b
+ sbc d
+ ld b,a
+ ccf ; Complement borrow so 1 indicates a
+ ; successful substraction (this is the
+ ; next bit of quotient)
+ jr C,.drop ; Jump if remainder is >= dividend
+ pop bc ; Otherwise, restore remainder
+ jr .nodrop
.drop:
- inc sp
- inc sp
+ inc sp
+ inc sp
.nodrop:
- ld a,(.dcnt)
- dec a ; DEC does not affect carry flag
- jr NZ,.dvloop
- ;; Shift last carry bit into quotient
- ld d,b ; DE = remainder
- ld e,c
- rl l ; Carry to L
- ld c,l ; C = low byte of quotient
- rl h
- ld b,h ; B = high byte of quotient
- or a ; Clear carry, valid result
- ret
-
- .area BSS
+ ld a,(.dcnt)
+ dec a ; DEC does not affect carry flag
+ jr NZ,.dvloop
+ ;; Shift last carry bit into quotient
+ ld d,b ; DE = remainder
+ ld e,c
+ rl l ; Carry to L
+ ld c,l ; C = low byte of quotient
+ rl h
+ ld b,h ; B = high byte of quotient
+ or a ; Clear carry, valid result
+ ret
+
+ .area _BSS
.srem:
- .ds 0x01 ; Sign of quotient
+ .ds 0x01 ; Sign of quotient
.squot:
- .ds 0x01 ; Sign of remainder
+ .ds 0x01 ; Sign of remainder
.dcnt:
- .ds 0x01 ; Counter for division
+ .ds 0x01 ; Counter for division
projects / fw / sdcc / commitdiff