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
RevLine 
[4f508e6]1
2| almul.s -- indirect long multiply
3| Version 1 -- 1989-01-24 -- D.N. Lynx Crowe
4
[f40a309]5 .text
[4f508e6]6
[f40a309]7 .xdef almul
[4f508e6]8
[f40a309]9 .xref lmul
[4f508e6]10
[f40a309]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
[4f508e6]20
[f40a309]21 .end
Note: See TracBrowser for help on using the repository browser.