;*************************************************************************

; interrupt set up
intset
	bcf	PIR1,RCIF		; clear USART rec. int. flag
;	bcf	INTCON,GIE		; disable all interrupts
;	bcf	INTCON,PEIE		; disable all peripheral interrupts
	movlw	b'11000000'		; enable only peripheral interupts
	movwf	INTCON
	bsf	STATUS,RP0		; bank 1
	movlw	b'00000000'		; disable more individual interupts
	movwf	PIE2
	movlw	b'00100000'		; enable usart receive interupt only
	movwf	PIE1
	bcf	STATUS,RP0		; bank 0
	return

;**********************************************************************


