UNIX 6th Ed. - /usr/source/tmg/tmgb/bundle.s

   1: f = r5
   2: g = r4
   3: .globl g1
   4: .globl pbundle,iget
   5: .globl succ
   6: .globl bundle,reduce
   7: 
   8: reduce:
   9:         jsr     pc,iget
  10:         mov     (r0),r1
  11:         mov     g,r0
  12:         asl     r1
  13:         sub     r1,r0
  14:         br      1f
  15:         br      1f
  16: bundle:
  17:         mov     f,r0
  18:         add     $g1,r0
  19: 1:
  20:         jsr     pc,pbundle
  21:         tst     r0
  22:         beq     1f
  23:         mov     r0,(g)+
  24: 1:
  25:         jmp     succ

Defined functions