MiniUnix/usr/source/tmg/tmgb/shift.s

Find at most related files.
including files from this version of Unix. 
.globl .p,sprv
.globl .sr,.sl

/ >>
.sr:
	neg	(sp)

/ <<
.sl:
	mov	4(sp),r1
	clr	r0
	alsc	(sp),r0
	mov	r1,4(sp)
	jmp	.p