.title	pool

	.inclu	"b:global"

	sect	code

tp:	push	<r0, r1>
	mov	#pool, r1
10$:	cmp	(r1)+, (r0)
	beq	20$
	tst	(r1)+
15$:	cmp	r1, #mypole
	blo	10$
	clc
	br	30$
20$:	cmp	(r1)+, 2(r0)
	bne	15$
	sec
30$:	pop	<r1, r0>
	rts	pc


pp:	push	<r0, r1>
	mov	#pool, r1
10$:	tst	(r1)+
	beq	20$
	tst	(r1)+
15$:	cmp	r1, #poole
	blo	10$
	tst	-(r1)
	br	30$

20$:	tst	(r1)
	bne	15$
30$:	tst	-(r1)
	mov	(r0), (r1)+
	mov	2(r0), (r1)
	pop	<r1, r0>
	rts	pc

cp:	push	<r0, r1>
	mov	#pool, r1
10$:	cmp	(r1)+, (r0)
	beq	20$
	tst	(r1)+
15$:	cmp	r1, #poole
	blo	10$
	br	30$

20$:	cmp	(r1), 2(r0)
	bne	15$
	clr	(r1)
	clr	-(r1)
30$:	pop	<r1, r0>
	rts	pc

savlet:	push	<r0, r1>
	mov	@#mypptr, r1
	cmp	r1, #mypole-4
	blo	10$
	mov	#poole, r1
10$:	mov	(r0)+, (r1)+
	mov	(r0)+, (r1)+
	mov	r1, @#mypptr
	pop	<r1, r0>
	rts	pc

	.end