Context Navigation

ALMUL.S@ 6099cac

Last change on this file since 6099cac was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago
Imported original source code.
Property mode set to `100755`
File size: 309 bytes

Rev	Line
[3ae31e9]	1	*
	2	* almul.s -- indirect long multiply
	3	* Version 1 -- 1989-01-24 -- D.N. Lynx Crowe
	4	*
	5	.text
	6	*
	7	.xdef almul
	8	*
	9	.xref lmul
	10	*
	11	almul: move.l a5,-(a7)
	12	movea.l 8(a7),a5
	13	move.l 12(a7),-(a7)
	14	move.l (a5),-(a7)
	15	jsr lmul
	16	addq.w #8,a7
	17	move.l d0,(a5)
	18	movea.l (a7)+,a5
	19	rts
	20	*
	21	.end

Note: See TracBrowser for help on using the repository browser.