source:
buchla-68k/lib700/lrem.s@
cbe2c15
Last change on this file since cbe2c15 was 4f508e6, checked in by , 7 years ago | |
---|---|
|
|
File size: 449 bytes |
Rev | Line | |
---|---|---|
[4f508e6] | 1 | | ------------------------------------------------------------------------------ |
2 | | lrem.s -- long modulo | |
3 | | Version 1 -- 1988-01-22 | |
4 | | ------------------------------------------------------------------------------ | |
[f40a309] | 5 | .text |
[4f508e6] | 6 | |
[f40a309] | 7 | .xdef _lrem |
8 | .xdef lrem | |
[4f508e6] | 9 | |
[f40a309] | 10 | .xref ldiv |
11 | .xref _ldivr | |
[4f508e6] | 12 | |
13 | ARG1 = 8 | |
14 | ARG2 = 12 | |
15 | ||
[f40a309] | 16 | _lrem: |
17 | lrem: link a6,#-2 | |
18 | move.l ARG2(a6),-(a7) | |
19 | move.l ARG1(a6),-(a7) | |
20 | jsr ldiv | |
21 | cmpm.l (a7)+,(a7)+ | |
22 | move.l _ldivr,d0 | |
23 | unlk a6 | |
24 | rts | |
[4f508e6] | 25 | |
[f40a309] | 26 | .end |
Note:
See TracBrowser
for help on using the repository browser.