.NLIST
 
;	MACROS FOR SPW THAT MAY NOT NORMALLY BE
;	IN RSXMAC.SML

	.MACRO	C$C			; Define carriage control chars.
	NUL=000
	SOH=001
	STX=002
	ETX=003
	EOT=004
	ENQ=005
	ACK=006
	BEL=007
	BS=010
	HT=011
	LF=012
	VT=013
	FF=014
	CR=015
	SO=016
	SI=017
	DLE=020
	DC1=021
	DC2=022
	DC3=023
	DC4=024
	NAK=025
	SYN=026
	ETB=027
	CAN=030
	EM=031
	SUB=032
	ESC=033
	FS=034
	GS=035
	RS=036
	US=037
	SPACE=040
	DEL=177
	.ENDM	C$C
	.MACRO	.INH0			; Inhibit task switching
	MOV	@#177776,-(SP)
	BIS	#140,@#177776
	.ENDM	.INH0
	.MACRO	.ENB0			; Enable task switching
	CALL	..ENB0
	.ENDM	.ENB0
	.MACRO	POP,A			; Pop stack
	.IRP	Y,<A>
	MOV	(SP)+,Y
	.ENDR
	.ENDM
	.MACRO	PUSH,A			; Push stack
	.IRP	Y,<A>
	MOV	Y,-(SP)
	.ENDR
	.ENDM
 
	.MACRO	PEEK,A			; Peek stack
	.IRP	Y,<A>
	MOV	(SP),Y
	.ENDR
	.ENDM

	.LIST