source: buchla-68k/lib700/aldiv.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: 304 bytes
RevLine 
[4f508e6]1
2| aldiv.s -- indirect long divide
3| Version 1 -- 1989-01-24 -- D.N. Lynx Crowe
4
[f40a309]5 .text
[4f508e6]6
[f40a309]7 .xdef aldiv
8 .xdef _aldiv
[4f508e6]9
[f40a309]10 .xref _ldiv
[4f508e6]11
[f40a309]12aldiv:
13_aldiv:
[4f508e6]14
[f40a309]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
[4f508e6]25
[f40a309]26 .end
Note: See TracBrowser for help on using the repository browser.