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

   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

Defined functions