/ arithmetic shift

.globl	b13

b13:
	mov	-(r5),r0	/ shift amount
	mov	-(r5),*$mq	/ set MQ (sxt)
	mov	r0,*$lsh	/ shift
	mov	*$mq,(r5)+	/ get MQ
	jmp	*(r3)+