.title	savem

	.inclu	"b:global"

	sect	code


savem:
	push	<r3, r2, r1, r0>

	call	MtxBgn

	tst	thsgr
	beq	170$
	tst	nodrec
	beq	170$
	gos	getrec	<#1,nodrec , #FB3,>
	add	nodpos, r1
	cmp	thsgr, (r1)+
	beq	200$

	gos	TryRec, <#1, MyRec, #FB3,>
	cmp	#3, (r1)		; Type of record: PERSON
	bne	150$
	cmp	6(r1), Me
	bne	150$
	mov	24(r1), r2
	beq	150$
	mov	26(r1), r3
50$:	gos	TryRec,	<#1, r3, #FB3,>
	mov	2(r1), r3
	add	#10, r1
	mov	#20., r0
60$:	cmp	(r1)+, thsgr
	beq	200$
	cmp	(r1)+, (r1)+
	dec	r2
	beq	150$
	sob	r0, 60$
	br	50$

150$:
170$:	jmp	999$

200$:	mov	texrea, (r1)+
	mov	(r1), r2
	cmp	Thsgr, CurGrp
	bne	220$
	tst	ltxtre
	bne	210$
	tst	ltxtre+2
	beq	220$
210$:	tst	lstlft
	bne	300$

220$:	clr	(r1)+
	gos	put	<#1,,#FB3>
	tst	r2
	beq	999$
	gos	Dispos	<#2,r2,#FB3>
	clr	startr
	br	999$

300$:	mov	r1, r3
	tst	r2
	bne	310$

	mov	#2, r0
	mov	#FB2, r1
	call	Spawn
	mov	(r1), (r3)
	mov	(r1), startr
	br	320$

310$:	gos	GetRec	<#2, r2, #FB2,>
320$:	mov	#4, (r1)+		; Type of record: "START".
	mov	StRec,	 (r1)+		; Start record for CrTeLs.
	mov	StPos, 	 (r1)+		; Start position in that record.
	mov	lnctre,	 (r1)+		; Last Non Comment Text Read.
	mov	lnctre+2,(r1)+
	mov	StNum,	 (r1)+		; Local text-number...
	mov	ltxtre,	 (r1)+		; Last Text Read.
	mov	ltxtre+2,(r1)+
	mov	lowlim,	 (r1)+		; Low Limit.
	mov	lowlim+2,(r1)+
	mov	higlim,	 (r1)+		; High Limit.
	mov	higlim+2,(r1)+
	mov	hignum,	 (r1)+		; Number of recieved texts.
	mov	nwslft,	 (r1)		; News Left to read.
	add	lstlft,	 (r1)
	gos	Put	<#2,, #FB2>
	gos	Put	<#1,, #FB3>

999$:	call	MtxEnd

	pop	<r0, r1, r2, r3>
	rts	pc

	.end