\ hs 07.11.95
\ Changes the size of the return stack.

\ NEW-RS  ( #cells -- )		Ensures that the return stack has room
\				for at least #cells entries
\ NEW-PS  ( #cells -- )		Ensures that the return stack has room
\				for at least #cells entries

code move-rs
	r1	top		mov
	top	sp		pop
	r0	'user rp0	ldr
	r1	'user rp0	str
  begin
	r0	rp		cmp
  lt while
	r2	r0 -(		ldr
	r2	r1 -(		str
  repeat
  	rp	r1		mov c;

: new-rs	( #cells -- )
	cells  dup alloc-mem  ( len adr )  +
	move-rs ;


code move-ps
	r1	top		mov
	r0	'user sp0	ldr
	r1	'user sp0	str
  begin
	r0	sp		cmp
  lt while
	r2	r0 -(		ldr
	r2	r1 -(		str
  repeat
	sp	r1	4 #	add
	top	r2		mov c;

: new-ps	( #cells -- )
	cells  dup alloc-mem  ( len adr )  +
	move-ps ;

