home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / getnam.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  612 b   |  51 lines
  1. i = r3
  2. .globl putcall,kput,obuild
  3. .globl seekchar
  4. .globl  getchar
  5. .globl    outb, outw, outt
  6. .globl    cfile, lfile, flush
  7. .globl iget
  8. .globl sptr
  9. .globl generate,succ
  10. .globl getnam
  11.  
  12. getnam:
  13.     mov    $1f+1,r0
  14.     jsr    pc,putcall
  15.     jsr    pc,iget
  16.     mov    (r0),r0
  17.     jsr    pc,kput
  18.     jsr    pc,iget
  19.     mov    (r0),r0
  20.     jsr    pc,kput
  21.     jmp    succ
  22. 1:
  23.     cmp    cfile,lfile
  24.     beq    1f
  25.     jsr    pc,flush
  26.     mov    cfile,lfile
  27. 1:
  28.     mov    (i)+,r1
  29.     mov    r1,-(sp)
  30.     mov    (i)+,r0
  31.     add    $sptr,r0
  32.     jsr    pc,seekchar
  33. 2:
  34.     mov    (sp),r1
  35.     mov    outw,r2
  36. 1:
  37.     jsr    pc,getchar
  38.     tst    r0
  39.     beq    1f
  40.     movb    r0,outb(r2)
  41.     inc    r2
  42.     mov    r2,outw
  43.     cmp    r2,$outt
  44.     blt    1b
  45. /
  46.     jsr    pc,flush
  47.     br    2b
  48. 1:
  49.     tst    (sp)+
  50.     jmp    generate
  51.