source: buchla-68k/lib700/almul.s@ e877e55

Last change on this file since e877e55 was 4f508e6, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Converted assembly language files.

  • Property mode set to 100644
File size: 282 bytes
Line 
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
11almul: 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.