home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / s4 / ladd.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  480 b   |  39 lines
  1. / C routine-- long integer subtract and add
  2.  
  3. / ladd/lsub (a, b, c);
  4. /    int a[2], b[2], c[2];
  5. /    a = b +- c;
  6.  
  7. .globl    _lsub
  8. .globl    _ladd
  9. .globl    csv
  10. .globl    cret
  11.  
  12. _lsub:
  13.     jsr    r5,csv
  14.     mov    6(r5),r2
  15.     mov    (r2)+,r0
  16.     mov    (r2),r1
  17.     mov    10(r5),r2
  18.     sub    (r2)+,r0
  19.     sub    (r2),r1
  20.     sbc    r0
  21.     mov    4(r5),r2
  22.     mov    r0,(r2)+
  23.     mov    r1,(r2)
  24.     jmp    cret
  25.  
  26. _ladd:
  27.     jsr    r5,csv
  28.     mov    6(r5),r2
  29.     mov    (r2)+,r0
  30.     mov    (r2),r1
  31.     mov    10(r5),r2
  32.     add    (r2)+,r0
  33.     add    (r2),r1
  34.     adc    r0
  35.     mov    4(r5),r2
  36.     mov    r0,(r2)+
  37.     mov    r1,(r2)
  38.     jmp    cret
  39.