;Multiplexer Restores Analog Inputs to Flash Microcontroller
;Roger Fischer
;NAMCO Controls

enable_A2D_5_thru_7

	bsf	STATUS, RP0	; Select bank 1 
	movlw	b'00000111'	; Set RD, WR, and CS as inputs.
	movwf 	TRISE	; PSPMODE bit cleared
			; disable PSP mode
	movlw 	b'10000000'	; ADFM = 1 
			; => Right justify ADRESH 
	movwf 	ADCON1 	; Setup RE2:REO for analog inputs 
	bcf 	STATUS, RP0 	; Select register bank 0
	bsf 	PORT_A, 4	; Select the analog inputs
	return 

;
;
disable_A2D_5_thru_7 
	bcf 	PORT_A, 4 	; Select the PSP digital inputs
	bsf 	STATUS, RP0	; Select register bank 1
	movlw	b'10000010' 	; ADFM = 1
			; => Right justify ADRESH 

	movwf 	ADCON1 	; Setup RE2:REO for digital input
	movlw 	b'00010111' 	; Set RD, WR, and CS as inputs.
	Movwf	TRISE 	; PSPMODE set, enabling
			; Parallel Slave Port Mode
	bcf 	STATUS, RP0 	; Select bank 0
	return