source: buchla-68k/orig/CLIBRARY/ALREM.S@ ee49131

Last change on this file since ee49131 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago

Imported original source code.
  • Property mode set to 100755
File size: 389 bytes
RevLine 
[3ae31e9]1*
2* alrem.s -- indirect long modulus
3* Version 1 -- 1989-01-24 -- D.N. Lynx Crowe
4*
5 .text
6*
7 .xdef alrem
8 .xdef _alrem
9*
10 .xref _ldiv
11 .xref _ldivr
12*
13alrem:
14_alrem:
15*
16 link a6,#-2
17 move.l 12(a6),-(a7)
18 movea.l 8(a6),a0
19 move.l (a0),-(a7)
20 jsr _ldiv
21 cmpm.l (a7)+,(a7)+
22 move.l _ldivr,d0
23 movea.l 8(a6),a1
24 move.l d0,(a1)
25 unlk a6
26 rts
27*
28 .end
Note: See TracBrowser for help on using the repository browser.