PREFIX	Stack:	
	LOC	:Data_Segment
	GREG	@
SP	OCTA	0
Stack	BYTE	0
Stacksize IS 100

	LOC	#100
byte	IS	$0		
sp	IS	$1
base	IS	$2
tmp	IS	$255	

Push	LDO	sp,SP
	CMP	tmp,sp,Stacksize	~
	BNN	tmp,:Error	Stack"uberlauf
	LDA	base,Stack
	STB	byte,base,sp
	ADD	sp,sp,1
	STO	sp,SP
	POP	0,0

Pop	LDO	sp,SP
	BNP	sp,:Error	Stackunterlauf
	SUB	sp,sp,1
	STO	sp,SP
	LDA	base,Stack
	LDB	$0,base,sp
	POP	1,0

IsEmpty	LDO	sp,SP
	SET	$0,1		leer
	BZ	sp,1F
	SET	$0,0		nicht leer
1H	POP	1,0
	
Reset	SET	$0,0
	STO	$0,SP
	POP	0,0