xdef    p_disint
		xdef    p_enabint
		
		super
		data
		
		xref	p_intstat

		text

p_disint:
		move	sr,d0
		ori		#$700,sr
		move.w	d0,p_intstat
		rts
		
		
p_enabint:
		move.w 	p_intstat,d0
		move	sr,d1	
		andi.w	#$0700,d0
		andi.w	#$F8FF,d1
		or.w	d0,d1
		move.w	d1,sr
		rts