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

   1: f = r5
   2: i = r3
   3: .globl x,k
   4: .globl ktab,ktat
   5: .globl putcall,obuild
   6: .globl errcom,succ,generate
   7: .globl rewcstr,getcstr
   8: .globl scopy
   9: 
  10: scopy:
  11:         mov     $2f+1,r0
  12:         jsr     pc,putcall
  13:         jsr     pc,rewcstr
  14:         mov     k(f),r2
  15:         neg     r2
  16:         add     $2,r2
  17: 1:
  18:         jsr     pc,getcstr
  19:         tst     r0
  20:         beq     1f
  21:         movb    r0,ktab(r2)
  22:         inc     r2
  23:         cmp     r2,$ktat
  24:         blt     1b
  25:         jsr     r0,errcom
  26:         <translation overflow\0>;.even
  27: 1:
  28:         clrb    ktab(r2)
  29:         bic     $1,r2
  30:         neg     r2
  31:         mov     r2,k(f)
  32:         jmp     succ
  33: 2:
  34:         mov     i,r0
  35:         jsr     pc,obuild
  36:         jmp     generate

Defined functions