.title	insert
;
; RT-11 insert
;
; call insert( in, out, i, m )
;
insert::
	mov	(r5)+,r3
	mov	(r5)+,r1
	mov	(r5)+,r2
	mov	@(r5)+,r4
	beq	10$

5$:	dec	r4
	beq	10$
	tstb	(r2)+
	bne	5$
	dec	r2

10$:	cmpb	#4,r3
	bhi	30$
	cmp	#-1,(r5)
	beq	30$
	mov	@(r5)+,r5
	beq	20$

14$:	movb	(r2),r0
	bne	15$
	mov	sp,r4

15$:	movb	(r1)+,(r2)+
	beq	16$
	dec	r5
	bne	14$
	movb	(r2),r0
	clrb	(r2)+

16$:	tst	r4
	bne	20$
	movb	r0,-(r2)

20$:	return

30$:	movb	(r1)+,(r2)+
	bne	30$
	return

	.end