.TITLE	STACK
.IDENT	/1408.1/
;
;
;
;	WRITTEN BY	RAY DI MARCO
;			14-AUG-81.
;
;
;	VERSION		140881/01.
;
;
;----------------------------------------------------------------
;
;
; THIS MODULE CONTANS THE DEFINITIONS FOR THE TWO MACROS
;
;	.PUSH
;
; AND
;
;	.POP
;
;
; WHICH SHOULD BE USED FOR STACKING.
;
;
;

;
;
;
.MACRO	.PUSH	ARG
	.IF	IDN,<ARG>,ALL
	 .IFT
		.IRP	X,<R0,R1,R2,R3,R4,R5>
			MOV	X,-(SP)
		.ENDR
	 .IFF
		.IRP	X,<ARG>
			MOV	X,-(SP)
		.ENDR
	.ENDC
.ENDM	.PUSH
;
;
;
.MACRO	.POP	ARG
	.IF	IDN,<ARG>,ALL
	 .IFT
		.IRP	X,<R5,R4,R3,R2,R1,R0>
			MOV	(SP)+,X
		.ENDR
	 .IFF
		.IRP	X,<ARG>
			MOV	(SP)+,X
		.ENDR
	.ENDC
.ENDM	.POP
;
;
.END