source: buchla-68k/orig/CLIBRARY/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
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.