home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / tq.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  353 b   |  29 lines
  1. f = r5
  2. i = r3
  3. .globl ek,ep,ek.fs,ep.fs,si,x,fs
  4. .globl generate
  5. .globl .tq,gpar
  6.  
  7. .tq:
  8.     mov    (i)+,r0
  9.     mov    i,si(f)
  10.     mov    ep(f),r1
  11.     mov    ep(r1),ep.fs(f)
  12.     mov    ek(r1),ek.fs(f)
  13.     mov    si(r1),r1
  14.     asl    r0
  15.     sub    r0,r1
  16.     mov    (r1),i
  17.     add    $fs,f
  18.     clr    x(f)
  19.     jsr    pc,generate
  20.     jmp    generate
  21.  
  22. gpar:
  23.     mov    (i)+,r0
  24.     mov    ep(f),r1
  25.     asl    r0
  26.     add    r0,si(r1)
  27.     jmp    generate
  28. .globl gq;gq=.tq
  29.