home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / string.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  194 b   |  19 lines
  1. f = r5
  2. i = r3
  3. .globl j
  4. .globl succ
  5. .globl ctest,iget
  6. .globl string
  7.  
  8. string:
  9.     tst    -(sp)
  10.     jsr    pc,iget
  11. 1:
  12.     mov    j(f),(sp)
  13.     mov    r0,-(sp)
  14.     jsr    pc,ctest
  15.     mov    (sp)+,r0
  16.     bcs    1b
  17.     mov    (sp)+,j(f)
  18.     jmp    succ
  19.