* STACK TEST PROGRAM
* 
* 
* 
* USAGE:
* 
* VERY SPECIAL
* 
* 
********************************************************************************
* 
	ABS		ASOLUTE MODE FOR EASIER DEBUGGING
	ORG	'1000
*
	SUBR	DAT1
	SUBR	DAT2
	SUBR	DAT3
	SUBR	DAT4
* 
****************************************
* 
* 
MAIN	NOP		HERE WE GO
*
	LDA	=2
	STA	DAT1
	LDA	=3
	STA	DAT2
	LDA	=4
	STA	DAT3
	LDA	=5
	STA	DAT4
* 
	LDA	=7
	CALL	S$PUSM
	DAC	DAT1
	DEC	4
	HLT		TEMPORARY HALT	
* 
	LDA	=6
	STA	DAT1
	LDA	=7
	STA	DAT2
	LDA	=8
	STA	DAT3
	LDA	=9
	STA	DAT4
* 
	HLT
	LDA	=6
REC	CALL	S$POPM
	DAC	DAT1
	DEC	4
	HLT		TEMPORARY HALT	
* 
	JMP	REC	
* 
********************************************************************************
* 
	ORG	'2000
**** VARIABLES
* 
DAT1	DEC	0
DAT2	DEC	0
DAT3	DEC	0
DAT4	DEC	0
* 
********************************************************************************
* 
	END		THAT'S IT.