home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / params.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  142 b   |  14 lines
  1. f = r5
  2. .globl iget
  3. .globl env,si
  4. .globl succ
  5. .globl params
  6.  
  7. params:
  8.     jsr    pc,iget
  9.     mov    (r0),r0
  10.     asl    r0
  11.     mov    env(f),r1
  12.     add    r0,si(r1)
  13.     jmp    succ
  14.