home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / s3 / dpadd.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  211 b   |  20 lines
  1. / C library -- signed dp add
  2.  
  3. / dpadd(l, i)
  4. /    int l[2];
  5. / l =+ i;
  6.  
  7. .globl    _dpadd
  8.  
  9. _dpadd:
  10.     mov    r5,-(sp)
  11.     mov    sp,r5
  12.     mov    4(r5),r0
  13.     tst    6(r5)
  14.     sxt    r1
  15.     add    r1,(r0)+
  16.     add    6(r5),(r0)
  17.     adc    -(r0)
  18.     mov    (sp)+,r5
  19.     rts    pc
  20.