pstack.zap

	.SEGMENT "0"


	.FUNCT	PEEK-PSTACK:ANY:1:2,S,OFFS,N,VAL
?PRG1:	POP	S >VAL
	PUSH	VAL
	INC	'N
	DLESS?	'OFFS,0 \?PRG1
?PRG5:	DLESS?	'N,0 /?REP6
	POP	
	XPUSH	STACK,S /?PRG5
	JUMP	?PRG5
?REP6:	RETURN	VAL

	.ENDSEG

	.ENDI