home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / bundle.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  246 b   |  26 lines
  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
  26.