source: buchla-68k/orig/CLIBRARY/ALDIV.S@ 66b48e7

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

Imported original source code.

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