Programowanie: Mnożenie 16-bitowe z wynikiem 32-bitowym - Historia wersji

KMK: ulepszenia i poprawki

2015-09-07T23:52:19Z

ulepszenia i poprawki

← poprzednia wersja		Wersja z 8 wrz 2015, 00:52
Linia 1:		Linia 1:
	Procedura mnoży dwie 16-bitowe liczby bez znaku umieszczone w rejestrach FR0 ($D4) i FR1 ($E0). 32-bitowy wynik umieszczany jest w FR0~~. Jeśli po zakończeniu procedury znacznik C jest ustawiony, oznacza to, że nastąpiło przepełnienie i wynik nie jest prawidłowy~~.		Procedura mnoży dwie 16-bitowe liczby bez znaku umieszczone w rejestrach FR0 ($D4) i FR1 ($E0). 32-bitowy wynik umieszczany jest w FR0.

	== 6502 ==		== 6502 ==
Linia 7:		Linia 7:
	?frf = fr1+2		?frf = fr1+2

	~~clc~~
	lda fr0 ;gdy mnoznik albo mnozna jest zerem		lda fr0 ;gdy mnoznik albo mnozna jest zerem
	ora fr0+1 ;to zerem jest rowniez wynik.		ora fr0+1 ;to zerem jest rowniez wynik.
Linia 35:		Linia 34:
	adc ?frf+1		adc ?frf+1
	sta fr0+3		sta fr0+3
	~~bcs ?exit~~

	?noad ~~lsr~~ fr0+3		?noad ror fr0+3
	ror fr0+2		ror fr0+2
	ror fr0+1		ror fr0+1
Linia 43:		Linia 41:
	dex		dex
	bne ?mul		bne ?mul
	~~clc~~
	?exit rts		?exit rts

Linia 74:		Linia 71:
	sta ?frf		sta ?frf

	~~jsr ?clr~~ ;zerujemy bajty wyniku		stz fr0 ;zerujemy bajty wyniku
			lda #$0000

	ldx #16		ldx #16
Linia 81:		Linia 79:

	clc		clc
	~~lda fr0+2~~
	adc ?frf		adc ?frf
	~~sta fr0+2~~
	~~bcs ?exit~~

	?noad ~~lsr fr0+2~~		?noad ror
	ror fr0		ror fr0
	dex		dex
	bne ?mul		bne ?mul

	~~clc~~		sta fr0+2

	?exit rts		?exit rts

Linia 97:		Linia 93:
	stz fr0+2		stz fr0+2
	rts		rts
			.ab
			.ib
	</pre>		</pre>

	Główna pętla zajmuje od ~~432~~ do ~~656~~ cykli maszynowych.		Główna pętla zajmuje od 384 do 464 cykli maszynowych.

	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.		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.

KMK o 14:20, 21 gru 2005

2005-12-21T14:20:46Z

← poprzednia wersja		Wersja z 21 gru 2005, 15:20
Linia 16:		Linia 16:
	beq ?clr		beq ?clr

	lda fr0 ;kopiujemy ~~monzna~~ do rejestru pomocniczego		lda fr0 ;kopiujemy mnozna do rejestru pomocniczego
	sta ?frf		sta ?frf
	lda fr0+1		lda fr0+1

KMK: jeszcze mała poprawka

2005-12-21T14:12:37Z

jeszcze mała poprawka

← poprzednia wersja		Wersja z 21 gru 2005, 15:12
Linia 16:		Linia 16:
	beq ?clr		beq ?clr

	~~ldx #$01~~ ;kopiujemy ~~mnozna~~ do rejestru pomocniczego		lda fr0 ;kopiujemy monzna do rejestru pomocniczego
	~~?cp lda fr0,x~~		sta ?frf
	sta ?frf,x		lda fr0+1
	~~dex~~		sta ?frf+1
	~~bpl~~ ?cp

	jsr ?clr ;zerujemy bajty wyniku		jsr ?clr ;zerujemy bajty wyniku

KMK: /* 65C816 */

2005-12-21T08:46:14Z

65C816

← poprzednia wersja		Wersja z 21 gru 2005, 09:46
Linia 101:		Linia 101:

	Główna pętla zajmuje od 432 do 656 cykli maszynowych.		Główna pętla zajmuje od 432 do 656 cykli maszynowych.

			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-21T07:57:03Z

65C816

← poprzednia wersja		Wersja z 21 gru 2005, 08:57
Linia 69:		Linia 69:

	lda fr0 ;gdy mnoznik albo mnozna jest zerem		lda fr0 ;gdy mnoznik albo mnozna jest zerem
	~~beq ?clr~~ ;to zerem jest rowniez wynik.		and fr1 ;to zerem jest rowniez wynik

	~~lda fr1~~
	beq ?clr		beq ?clr

KMK: /* 65C816 */

2005-12-21T07:54:52Z

65C816

← poprzednia wersja		Wersja z 21 gru 2005, 08:54
Linia 102:		Linia 102:
	</pre>		</pre>

	Główna pętla zajmuje ~~max.~~ 656 cykli maszynowych.		Główna pętla zajmuje od 432 do 656 cykli maszynowych.

	== Uwagi ==		== Uwagi ==

KMK: /* 65C816 */

2005-12-21T07:53:34Z

65C816

← poprzednia wersja		Wersja z 21 gru 2005, 08:53
Linia 64:		Linia 64:

	.aw		.aw
	rep #$20 ;CPU musi byc w trybie natywnym		.ib
	~~clc~~		rep #$21 ;CPU musi byc w trybie natywnym
			sep #$10

	lda fr0 ;gdy mnoznik albo mnozna jest zerem		lda fr0 ;gdy mnoznik albo mnozna jest zerem
	beq ?clr ;to zerem jest rowniez wynik.		beq ?clr ;to zerem jest rowniez wynik.
Linia 91:		Linia 93:
	dex		dex
	bne ?mul		bne ?mul

	clc		clc
	?exit rts		?exit rts

KMK: /* 65C816 */

2005-12-21T07:52:10Z

65C816

← poprzednia wersja		Wersja z 21 gru 2005, 08:52
Linia 98:		Linia 98:
	rts		rts
	</pre>		</pre>

			Główna pętla zajmuje max. 656 cykli maszynowych.

	== Uwagi ==		== Uwagi ==

KMK: fmt + procedura dla 816

2005-12-21T07:49:47Z

fmt + procedura dla 816

← poprzednia wersja		Wersja z 21 gru 2005, 08:49
Linia 1:		Linia 1:
	Procedura mnoży dwie 16-bitowe liczby bez znaku umieszczone w rejestrach FR0 ($D4) i FR1 ($E0). 32-bitowy wynik umieszczany jest w FR0. Jeśli po zakończeniu procedury znacznik C jest ustawiony, oznacza to, że nastąpiło przepełnienie i wynik nie jest prawidłowy.		Procedura mnoży dwie 16-bitowe liczby bez znaku umieszczone w rejestrach FR0 ($D4) i FR1 ($E0). 32-bitowy wynik umieszczany jest w FR0. Jeśli po zakończeniu procedury znacznik C jest ustawiony, oznacza to, że nastąpiło przepełnienie i wynik nie jest prawidłowy.

			== 6502 ==

	<pre>		<pre>
Linia 6:		Linia 8:

	clc		clc
	lda fr0 ;gdy mnoznik albo mnozna jest zerem		lda fr0 ;gdy mnoznik albo mnozna jest zerem
	ora fr0+1 ;to zerem jest rowniez wynik.		ora fr0+1 ;to zerem jest rowniez wynik.
	beq ?clr		beq ?clr

	lda fr1		lda fr1
	ora fr1+1		ora fr1+1
	beq ?clr		beq ?clr

	ldx #$01 ;kopiujemy mnozna do rejestru pomocniczego		ldx #$01 ;kopiujemy mnozna do rejestru pomocniczego
	?cp lda fr0,x		?cp lda fr0,x
	sta ?frf,x		sta ?frf,x
	dex		dex
	bpl ?cp		bpl ?cp

	jsr ?clr ;zerujemy bajty wyniku		jsr ?clr ;zerujemy bajty wyniku

	ldx #16		ldx #16
	?mul lsr fr1+1 ;glowna petla		?mul lsr fr1+1 ;glowna petla
	ror fr1		ror fr1
	bcc ?noad		bcc ?noad

	clc		clc
	lda fr0+2		lda fr0+2
	adc ?frf		adc ?frf
	sta fr0+2		sta fr0+2
	lda fr0+3		lda fr0+3
	adc ?frf+1		adc ?frf+1
	sta fr0+3		sta fr0+3
	bcs ?exit		bcs ?exit

	?noad lsr fr0+3		?noad lsr fr0+3
	ror fr0+2		ror fr0+2
	ror fr0+1		ror fr0+1
	ror fr0		ror fr0
	dex		dex
	bne ?mul		bne ?mul
	clc		clc
	?exit rts		?exit rts
Linia 52:		Linia 54:
	rts		rts
	</pre>		</pre>

			Główna pętla zajmuje - w zależności od wartości mnożnika - od 612 do 944 cykli maszynowych.

			== 65C816 ==

			<pre>
			int16mul
			?frf = fr1+2

			.aw
			rep #$20 ;CPU musi byc w trybie natywnym
			clc
			lda fr0 ;gdy mnoznik albo mnozna jest zerem
			beq ?clr ;to zerem jest rowniez wynik.

			lda fr1
			beq ?clr

			lda fr0 ;kopiujemy mnozna do rejestru pomocniczego
			sta ?frf

			jsr ?clr ;zerujemy bajty wyniku

			ldx #16
			?mul lsr fr1 ;glowna petla
			bcc ?noad

			clc
			lda fr0+2
			adc ?frf
			sta fr0+2
			bcs ?exit

			?noad lsr fr0+2
			ror fr0
			dex
			bne ?mul
			clc
			?exit rts

			?clr stz fr0
			stz fr0+2
			rts
			</pre>

			== Uwagi ==

	Procedura nie jest "optymalna", w szczególności można łatwo uniknąć kopiowania mnożnej do rejestru pomocniczego. Chodziło jednak o to, żeby procedura działała zgodnie z konwencją, jaką stosuje umieszczony w pamięci ROM komputera pakiet procedur zmiennoprzecinkowych - dla czterech działań arytmetycznych składniki są zawsze w FR0 i FR1, a wynik umieszczany jest w FR0. Przyjęcie takiej konwencji jest wygodne, gdy mamy w programie wykonać bardziej złożone obliczenie, zwłaszcza dłuższą serię mnożeń i [[Programowanie: Dzielenie 16-bitowe z wynikiem 32-bitowym\|dzieleń]] - wtedy wynik jednej procedury przechodzi w naturalny sposób jako składnik dalszych obliczeń do procedury następnej.		Procedura nie jest "optymalna", w szczególności można łatwo uniknąć kopiowania mnożnej do rejestru pomocniczego. Chodziło jednak o to, żeby procedura działała zgodnie z konwencją, jaką stosuje umieszczony w pamięci ROM komputera pakiet procedur zmiennoprzecinkowych - dla czterech działań arytmetycznych składniki są zawsze w FR0 i FR1, a wynik umieszczany jest w FR0. Przyjęcie takiej konwencji jest wygodne, gdy mamy w programie wykonać bardziej złożone obliczenie, zwłaszcza dłuższą serię mnożeń i [[Programowanie: Dzielenie 16-bitowe z wynikiem 32-bitowym\|dzieleń]] - wtedy wynik jednej procedury przechodzi w naturalny sposób jako składnik dalszych obliczeń do procedury następnej.

	~~Główna pętla zajmuje - w zależności od wartości mnożnika - od 612 do 944 cykli maszynowych.~~

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

KMK o 07:18, 21 gru 2005

2005-12-21T07:18:51Z

← poprzednia wersja		Wersja z 21 gru 2005, 08:18
Linia 53:		Linia 53:
	</pre>		</pre>

	Procedura nie jest "optymalna", w szczególności można łatwo uniknąć kopiowania mnożnej do rejestru pomocniczego. Chodziło jednak o to, żeby procedura działała zgodnie z konwencją, jaką stosuje umieszczony w pamięci ROM komputera pakiet procedur zmiennoprzecinkowych - dla czterech działań arytmetycznych składniki są zawsze w FR0 i FR1, a wynik umieszczany jest w FR0. Przyjęcie takiej konwencji jest wygodne, gdy mamy w programie wykonać bardziej złożone obliczenie, zwłaszcza dłuższą serię mnożeń i dzieleń - wtedy wynik jednej procedury przechodzi w naturalny sposób jako składnik dalszych obliczeń do procedury następnej.		Procedura nie jest "optymalna", w szczególności można łatwo uniknąć kopiowania mnożnej do rejestru pomocniczego. Chodziło jednak o to, żeby procedura działała zgodnie z konwencją, jaką stosuje umieszczony w pamięci ROM komputera pakiet procedur zmiennoprzecinkowych - dla czterech działań arytmetycznych składniki są zawsze w FR0 i FR1, a wynik umieszczany jest w FR0. Przyjęcie takiej konwencji jest wygodne, gdy mamy w programie wykonać bardziej złożone obliczenie, zwłaszcza dłuższą serię mnożeń i [[Programowanie: Dzielenie 16-bitowe z wynikiem 32-bitowym\|dzieleń]] - wtedy wynik jednej procedury przechodzi w naturalny sposób jako składnik dalszych obliczeń do procedury następnej.

	Główna pętla zajmuje - w zależności od wartości mnożnika - od 612 do 944 cykli maszynowych.		Główna pętla zajmuje - w zależności od wartości mnożnika - od 612 do 944 cykli maszynowych.

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