source: buchla-68k/orig/CLIBRARY/LREM.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: 486 bytes
RevLine 
[3ae31e9]1* ------------------------------------------------------------------------------
2* lrem.s -- long modulo
3* Version 1 -- 1988-01-22
4* ------------------------------------------------------------------------------
5 .text
6*
7 .xdef _lrem
8 .xdef lrem
9*
10 .xref ldiv
11 .xref _ldivr
12*
13ARG1 .equ 8
14ARG2 .equ 12
15*
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
25*
26 .end
Note: See TracBrowser for help on using the repository browser.