.title	calls
.psect	$vars,rel,con,lcl,d,rw
l$3:	.blkb 2
l$5:	.blkb 2
l$6:	.blkb 1
.even
l$7:	.blkb 24

.psect	$code1,rel,con,lcl,i,ro
l$2:
	jsr	r5,.savr1
	mov	24(sp),l$3
	movb	22(sp),r1
	mov	r1,l$3
	mov	@16(sp),l$3
	mov	20(sp),l$3
	rts	pc

l$1:
	mov	#cfail,-(sp)
	clr	-(sp)
	mov	sp,f$list
	jsr	pc,colini
	mov	l$5,-(sp)
	clr	r1
	bisb	l$6,r1
	mov	r1,-(sp)
	mov	#12,-(sp)
	mov	#l$7,-(sp)
	jsr	pc,l$2
	add	#10,sp
	rts	pc
.end	l$1