;/********************************************************************/
;/*																	*/
;/*	Packet driver for D-LINK ethernet controller					*/
;/*																	*/
;/*	Copyleft by P. Mayer, 1992 TU-Vienna IAEE						*/
;/*	All rights reserved												*/
;/*																	*/
;/********************************************************************/

		xdef    p_disint
		xdef    p_enabint
		
		super
		data

		text

p_disint:
        tst.w	p_intstat
        bne.s   xxx
		move	sr,d0
		move	d0,-(a7)
		andi	#$F8FF,d0
		ori		#$700,d0
		move	d0,sr
		move.w	(a7)+,p_intstat
		rts
		
		
p_enabint:
		move.w 	p_intstat,d0
        beq.s	xxx
		move	sr,d1	
		andi.w	#$0700,d0
		andi.w	#$F8FF,d1
		or		d0,d1
		move	d1,sr
		moveq	#0,d0
		move.w	d0,p_intstat
		rts

xxx:	bra.s xxx
		
		.bss
p_intstat:	ds.w 1