home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff269.lzh / PropGadget / add.asm < prev    next >
Assembly Source File  |  1989-11-06  |  612b  |  28 lines
  1. ;           Jerry J. Trantow
  2. ;           1560 A East Irving Place
  3. ;           Milwaukee, Wi 53202-1460
  4.  
  5.     IFD LATTICE
  6.       CSECT text
  7.       XDEF _QuadAdd
  8.     ELSE     
  9.           public    _QuadAdd
  10.     ENDC
  11.  
  12. _QuadAdd:
  13.         link    a5,#0
  14. ;        movem.l    .3,-(sp)    ; push registers on the stack
  15.  
  16.         move.l  8(a5),d0    ; value of addend
  17.         move.l  12(a5),a0    ; address of the Quad
  18.  
  19.         clr.l   d1
  20.         add.l   d0,4(a0)    ; LOW ULONG = addend + LOWER ULONG
  21.         move.l  (a0),d0
  22.         addx.l  d1,d0        ; extend the carry
  23.         move.l  d0,(a0)        ; HIGH ULONG = LOW ULONG + eXtend
  24.  
  25. .98     unlk    a5
  26.         rts
  27.         end
  28.