Programowanie: Dzielenie 16-bitowe z wynikiem 32-bitowym - Historia wersji

KMK: w sumie po co dwa razy odejmowanie ...

2012-09-23T21:35:06Z

w sumie po co dwa razy odejmowanie ...

← poprzednia wersja		Wersja z 23 wrz 2012, 22:35
Linia 9:		Linia 9:
	beq ?e		beq ?e

			; <-- czesc pomijalna
	lda fr0 ;dzielnik wiekszy od dzielnej		lda fr0 ;dzielnik wiekszy od dzielnej
	cmp fr1 ;daje w wyniku zero, a dzielna		cmp fr1 ;daje w wyniku zero, a dzielna
Linia 23:		Linia 24:
	sta fr0+1		sta fr0+1
	rts		rts
			; -->

	?div lda #$00 ;kasujemy reszte		?div lda #$00 ;kasujemy reszte
Linia 35:		Linia 37:
	rol fr0+3		rol fr0+3

			sec
	lda fr0+2		lda fr0+2
	~~cmp~~ fr1		sbc fr1
			tay
	lda fr0+3		lda fr0+3
	sbc fr1+1		sbc fr1+1
	bcc ?s		bcc ?s

	~~lda~~ fr0+2		sty fr0+2
	~~sbc fr1~~
	~~sta fr0+2~~
	~~lda fr0+3~~
	~~sbc fr1+1~~
	sta fr0+3		sta fr0+3

Linia 77:		Linia 77:
	beq ?e		beq ?e

			; <-- czesc pomijalna
	lda fr0 ;dzielnik wiekszy od dzielnej		lda fr0 ;dzielnik wiekszy od dzielnej
	cmp fr1 ;daje w wyniku zero, a dzielna		cmp fr1 ;daje w wyniku zero, a dzielna
Linia 85:		Linia 86:
	stz fr0		stz fr0
	rts		rts
			; -->

	?div stz fr0+2 ;kasujemy reszte		?div stz fr0+2 ;kasujemy reszte
Linia 93:		Linia 95:
	rol fr0+2		rol fr0+2

			sec
	lda fr0+2		lda fr0+2
	~~cmp~~ fr1		sbc fr1
	bcc ?s		bcc ?s

	~~lda fr0+2~~
	~~sbc fr1~~
	sta fr0+2		sta fr0+2

KMK: /* 6502 */ ditto

2005-12-21T14:16:27Z

6502: ditto

← poprzednia wersja		Wersja z 21 gru 2005, 15:16
Linia 15:		Linia 15:
	bcs ?div		bcs ?div

	~~ldx #$01~~		lda fr0
	?d lda fr0,x		sta fr0+2
	sta fr0+2,x		lda fr0+1
	~~dex~~		sta fr0+3
	~~bpl ?d~~
	lda #$00		lda #$00
	sta fr0		sta fr0

KMK: /* 65C816 */

2005-12-21T08:45:52Z

65C816

← poprzednia wersja		Wersja z 21 gru 2005, 09:45
Linia 114:		Linia 114:
	rts		rts
	</pre>		</pre>

			Elegancka procedura biblioteczna powinna jeszcze przechowywać na stosie i przed powrotem do miejsca wywołania przywracać rozmiar rejestrów. W powyższym przykładzie pominięto to, żeby nie zaciemniać zagadnienia.

	== Uwagi ==		== Uwagi ==

KMK: /* 65C816 */

2005-12-21T08:33:05Z

65C816

← poprzednia wersja		Wersja z 21 gru 2005, 09:33
Linia 101:		Linia 101:
	sbc fr1		sbc fr1
	sta fr0+2		sta fr0+2
	~~lda fr0+3~~
	~~sbc fr1+1~~
	~~sta fr0+3~~

	inc fr0		inc fr0

KMK: 816

2005-12-21T08:31:50Z

816

← poprzednia wersja		Wersja z 21 gru 2005, 09:31
Linia 65:		Linia 65:

	Główna pętla zajmuje - w zależności od składników - od 624 do 1152 cykli maszynowych.		Główna pętla zajmuje - w zależności od składników - od 624 do 1152 cykli maszynowych.

			== 65C816 ==

			<pre>
			int16div
			.aw
			.ib
			rep #$20 ;CPU musi byc w trybie natywnym
			sep #$10

			lda fr1 ;dzielnik musi byc wiekszy od zera
			beq ?e

			lda fr0 ;dzielnik wiekszy od dzielnej
			cmp fr1 ;daje w wyniku zero, a dzielna
			bcs ?div ;stanowi reszte

			lda fr0
			sta fr0+2
			stz fr0
			rts

			?div stz fr0+2 ;kasujemy reszte

			ldx #16

			?l asl fr0
			rol fr0+2

			lda fr0+2
			cmp fr1
			bcc ?s

			lda fr0+2
			sbc fr1
			sta fr0+2
			lda fr0+3
			sbc fr1+1
			sta fr0+3

			inc fr0
			bne ?s

			?e sec
			rts

			?s dex
			bne ?l

			clc
			rts
			</pre>

	== Uwagi ==		== Uwagi ==

KMK: fmt

2005-12-21T08:26:16Z

fmt

← poprzednia wersja		Wersja z 21 gru 2005, 09:26
Linia 1:		Linia 1:
	Procedura dzieli 16-bitową liczbę bez znaku umieszczoną we FR0 ($D4) przez takąż liczbę umieszczoną w FR1 ($E0). 16-bitowy wynik całkowity umieszczany jest w FR0, a 16-bitowa reszta z dzielenia w FR0+2. Opuszczenie procedury z ustawionym znacznikiem C sygnalizuje przepełnienie.		Procedura dzieli 16-bitową liczbę bez znaku umieszczoną we FR0 ($D4) przez takąż liczbę umieszczoną w FR1 ($E0). 16-bitowy wynik całkowity umieszczany jest w FR0, a 16-bitowa reszta z dzielenia w FR0+2. Opuszczenie procedury z ustawionym znacznikiem C sygnalizuje przepełnienie.

			== 6502 ==

	<pre>		<pre>
	int16div		int16div
	lda fr1 ;dzielnik musi byc wiekszy od zera		lda fr1 ;dzielnik musi byc wiekszy od zera
	ora fr1+1		ora fr1+1
	beq ?e		beq ?e

	lda fr0 ;dzielnik wiekszy od dzielnej		lda fr0 ;dzielnik wiekszy od dzielnej
	cmp fr1 ;daje w wyniku zero, a dzielna		cmp fr1 ;daje w wyniku zero, a dzielna
	lda fr0+1 ;stanowi reszte		lda fr0+1 ;stanowi reszte
	sbc fr1+1		sbc fr1+1
	bcs ?div		bcs ?div

	ldx #$01		ldx #$01
	?d lda fr0,x		?d lda fr0,x
	sta fr0+2,x		sta fr0+2,x
	dex		dex
	bpl ?d		bpl ?d
	lda #$00		lda #$00
	sta fr0		sta fr0
	sta fr0+1		sta fr0+1
	rts		rts

	?div lda #$00 ;kasujemy reszte		?div lda #$00 ;kasujemy reszte
	sta fr0+2		sta fr0+2
	sta fr0+3		sta fr0+3

	ldx #16		ldx #16

	?l asl fr0		?l asl fr0
	rol fr0+1		rol fr0+1
	rol fr0+2		rol fr0+2
	rol fr0+3		rol fr0+3

	lda fr0+2		lda fr0+2
	cmp fr1		cmp fr1
	lda fr0+3		lda fr0+3
	sbc fr1+1		sbc fr1+1
	bcc ?s		bcc ?s

	lda fr0+2		lda fr0+2
	sbc fr1		sbc fr1
	sta fr0+2		sta fr0+2
	lda fr0+3		lda fr0+3
	sbc fr1+1		sbc fr1+1
	sta fr0+3		sta fr0+3

	inc fr0		inc fr0
	bne ?s		bne ?s
	inc fr0+1		inc fr0+1
	bne ?s		bne ?s

	?e sec		?e sec
Linia 56:		Linia 58:

	?s dex		?s dex
	bne ?l		bne ?l

	clc		clc
	rts		rts
	</pre>		</pre>

			Główna pętla zajmuje - w zależności od składników - od 624 do 1152 cykli maszynowych.

			== Uwagi ==

	Procedura jest "kompatybilna" z procedurą [[Programowanie: Mnożenie 16-bitowe z wynikiem 32-bitowym\|mnożenia]] (quod vide).		Procedura jest "kompatybilna" z procedurą [[Programowanie: Mnożenie 16-bitowe z wynikiem 32-bitowym\|mnożenia]] (quod vide).

	~~Główna pętla zajmuje - w zależności od składników - od 624 do 1152 cykli maszynowych.~~

	[[Kategoria:Niezbędnik kodera]]		[[Kategoria:Niezbędnik kodera]]

KMK o 07:25, 21 gru 2005

2005-12-21T07:25:41Z

← poprzednia wersja		Wersja z 21 gru 2005, 08:25
Linia 64:		Linia 64:
	Procedura jest "kompatybilna" z procedurą [[Programowanie: Mnożenie 16-bitowe z wynikiem 32-bitowym\|mnożenia]] (quod vide).		Procedura jest "kompatybilna" z procedurą [[Programowanie: Mnożenie 16-bitowe z wynikiem 32-bitowym\|mnożenia]] (quod vide).

	Główna pętla zajmuje - w zależności od składników - od 624 do ~~1456~~ cykli maszynowych.		Główna pętla zajmuje - w zależności od składników - od 624 do 1152 cykli maszynowych.

	[[Kategoria:Niezbędnik kodera]]		[[Kategoria:Niezbędnik kodera]]

KMK o 07:23, 21 gru 2005

2005-12-21T07:23:12Z

← poprzednia wersja		Wersja z 21 gru 2005, 08:23
Linia 64:		Linia 64:
	Procedura jest "kompatybilna" z procedurą [[Programowanie: Mnożenie 16-bitowe z wynikiem 32-bitowym\|mnożenia]] (quod vide).		Procedura jest "kompatybilna" z procedurą [[Programowanie: Mnożenie 16-bitowe z wynikiem 32-bitowym\|mnożenia]] (quod vide).

	Główna pętla zajmuje - w zależności od składników - od ~~832~~ do 1456 cykli maszynowych.		Główna pętla zajmuje - w zależności od składników - od 624 do 1456 cykli maszynowych.

	[[Kategoria:Niezbędnik kodera]]		[[Kategoria:Niezbędnik kodera]]

KMK o 07:14, 21 gru 2005

2005-12-21T07:14:59Z

← poprzednia wersja		Wersja z 21 gru 2005, 08:14
Linia 1:		Linia 1:
	Procedura dzieli 16-bitową liczbę bez znaku umieszczoną we FR0 ($D4) przez takąż liczbę umieszczoną w FR1 ($E0). 16-bitowy wynik umieszczany jest w FR0, a 16-bitowa reszta z dzielenia w FR0+2. Opuszczenie procedury z ustawionym znacznikiem C sygnalizuje przepełnienie.		Procedura dzieli 16-bitową liczbę bez znaku umieszczoną we FR0 ($D4) przez takąż liczbę umieszczoną w FR1 ($E0). 16-bitowy wynik całkowity umieszczany jest w FR0, a 16-bitowa reszta z dzielenia w FR0+2. Opuszczenie procedury z ustawionym znacznikiem C sygnalizuje przepełnienie.

	<pre>		<pre>
Linia 61:		Linia 61:
	rts		rts
	</pre>		</pre>

			Procedura jest "kompatybilna" z procedurą [[Programowanie: Mnożenie 16-bitowe z wynikiem 32-bitowym\|mnożenia]] (quod vide).

			Główna pętla zajmuje - w zależności od składników - od 832 do 1456 cykli maszynowych.

	[[Kategoria:Niezbędnik kodera]]		[[Kategoria:Niezbędnik kodera]]

KMK o 07:07, 21 gru 2005

2005-12-21T07:07:49Z

Nowa strona

Procedura dzieli 16-bitową liczbę bez znaku umieszczoną we FR0 ($D4) przez takąż liczbę umieszczoną w FR1 ($E0). 16-bitowy wynik umieszczany jest w FR0, a 16-bitowa reszta z dzielenia w FR0+2. Opuszczenie procedury z ustawionym znacznikiem C sygnalizuje przepełnienie.

<pre>
int16div
lda fr1 ;dzielnik musi byc wiekszy od zera
ora fr1+1
beq ?e

lda fr0 ;dzielnik wiekszy od dzielnej
cmp fr1 ;daje w wyniku zero, a dzielna
lda fr0+1 ;stanowi reszte
sbc fr1+1
bcs ?div

ldx #$01
?d lda fr0,x
sta fr0+2,x
dex
bpl ?d
lda #$00
sta fr0
sta fr0+1
rts

?div lda #$00 ;kasujemy reszte
sta fr0+2
sta fr0+3

ldx #16

?l asl fr0
rol fr0+1
rol fr0+2
rol fr0+3

lda fr0+2
cmp fr1
lda fr0+3
sbc fr1+1
bcc ?s

lda fr0+2
sbc fr1
sta fr0+2
lda fr0+3
sbc fr1+1
sta fr0+3

inc fr0
bne ?s
inc fr0+1
bne ?s

?e sec
rts

?s dex
bne ?l

clc
rts
</pre>

[[Kategoria:Niezbędnik kodera]]