UNIX 6th Ed. - /usr/source/s4/ladd.s

   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

Defined functions