.title	rxmrkt
	.mcall	mrkt$, dir$
dpb:	mrkt$	1.,5.,2.
rxmrkt::
	mov	#dpb,r0
	tst	(r5)+
	mov	@(r5)+,m.ktef(r0)
	mov	@(r5)+,m.ktmg(r0)
	mov	@(r5)+,m.ktun(r0)
	dir$	#dpb
	mov	$dsw,@(r5)
	return
	.end