source:
buchla-68k/lib700/alrem.s@
b8080f6
Last change on this file since b8080f6 was 4f508e6, checked in by , 7 years ago | |
---|---|
|
|
File size: 354 bytes |
Rev | Line | |
---|---|---|
[4f508e6] | 1 | |
2 | | alrem.s -- indirect long modulus | |
3 | | Version 1 -- 1989-01-24 -- D.N. Lynx Crowe | |
4 | ||
[f40a309] | 5 | .text |
[4f508e6] | 6 | |
[f40a309] | 7 | .xdef alrem |
8 | .xdef _alrem | |
[4f508e6] | 9 | |
[f40a309] | 10 | .xref _ldiv |
11 | .xref _ldivr | |
[4f508e6] | 12 | |
[f40a309] | 13 | alrem: |
14 | _alrem: | |
[4f508e6] | 15 | |
[f40a309] | 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 | |
[4f508e6] | 27 | |
[f40a309] | 28 | .end |
Note:
See TracBrowser
for help on using the repository browser.