home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / copy.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  446 b   |  37 lines
  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
  37.