/
/ test basic user mode in/out
/

	CINT=6204		/CLEAR USER IOT
	SINT=6254		/SKIP ON USER IOT
	CUF=6264		/USER FLAG OFF
	SUF=6274		/USER FLAG ON

	*1
	JMP I	.+1
	200

	*200
INT,
	SINT			/USER IOT?
	JMP	INT0
	RMF                     /RESTORE IF, DF, & MODE
	ION
	JMP I   0
INT0,	JMP INT0

	*400
CODE,
	CLA
	ION
	SUF
	JMP LOOP
LOOP,
	CLA
	6040
	JMP	LOOP