home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / f.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  163 b   |  14 lines
  1. .globl .f
  2. .globl succ
  3. .globl seekchar,getword
  4.  
  5. .f:
  6.     mov    (sp),r0
  7.     mov    r0,6(sp)
  8.     mov    4(sp),r1
  9.     jsr    pc,seekchar
  10.     jsr    pc,getword
  11.     mov    r0,(sp)
  12.     mov    $-1,2(sp)
  13.     jmp    succ
  14.