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

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

Unix line breaks.
  • Property mode set to 100644
File size: 288 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.