home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / microdot-1 / md1_src_02.lzx / psasum.a < prev    next >
Text File  |  1989-08-24  |  517b  |  44 lines
  1. ;
  2. ; 68020++ replacement for SAS/C __CX??? integer math functions
  3. ;
  4.  
  5.  
  6.     section    "text",code
  7.  
  8.     xref    __CXD22
  9.     xref    __CXD33
  10.     xref    __CXM22
  11.     xref    __CXM33
  12.  
  13. m1:
  14.     divu.l    d1,d1:d0
  15.     rts
  16.     divs.l    d1,d1:d0
  17.     rts
  18.     mulu.l    d1,d0
  19.     rts
  20.     muls.l    d1,d0
  21.     rts
  22.  
  23.     xdef    _init020math
  24. _init020math:
  25.     lea    m1(pc),a0
  26.     lea    __CXD22,a1
  27.     move.l    (a0)+,(a1)+
  28.     move.w    (a0)+,(a1)
  29.  
  30.     lea    __CXD33,a1
  31.     move.l    (a0)+,(a1)+
  32.     move.w    (a0)+,(a1)
  33.  
  34.     lea    __CXM22,a1
  35.     move.l    (a0)+,(a1)+
  36.     move.w    (a0)+,(a1)
  37.  
  38.     lea    __CXM33,a1
  39.     move.l    (a0)+,(a1)+
  40.     move.w    (a0)+,(a1)
  41.     rts
  42.  
  43.     END
  44.