source: buchla-68k/lib700/lrem.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: 449 bytes
RevLine 
[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
13ARG1 = 8
14ARG2 = 12
15
[f40a309]16_lrem:
17lrem: 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.