home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / shift.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  120 b   |  15 lines
  1. .globl .p,sprv
  2. .globl .sr,.sl
  3.  
  4. / >>
  5. .sr:
  6.     neg    (sp)
  7.  
  8. / <<
  9. .sl:
  10.     mov    4(sp),r1
  11.     clr    r0
  12.     alsc    (sp),r0
  13.     mov    r1,4(sp)
  14.     jmp    .p
  15.