UART1_init:

	bclr	RPINR18, #0
	bclr	RPINR18, #1
	bclr	RPINR18, #2
	bset	RPINR18, #3
	bclr	RPINR18, #4
	bset	RPINR18, #5		; UART1 receive to RP40 (pin 8) (40 = 0x28)
							; see Page 124 of the PIC24FJ256GB110 manual

	bset	RPOR9, #8
	bset	RPOR9, #9
	bclr	RPOR9, #10
	bclr	RPOR9, #11
	bclr	RPOR9, #12
	bclr	RPOR9, #13		; UART1 transmit to RP19 (pin 12)
							; see pages 125 and 143 of the PIC24FJ256GB110 manual
		

	bset	U1MODE, #15		; UART1 enabled
	bset	U1STA,	#10		; UART1 transmit enable
	mov		#12, W0
	mov		W0, U1BRG		; 9600 BAUD for fcy=2MHz (default)

	return


; how to receive
waitRX1data:
	btst	U1STA, #URXDA	; data available? (URXDA = bit 0)
	bra		Z, waitRX1data
	mov		U1RXREG, W0		; W0 gets serial data

;ow to send
	mov		#"A", W0		; or whatever information to be transmitted
waitTX1buff:
	btst	U1STA, #UTXBF	; buffer empty? (UTXBF = bit 9)
	bra		NZ, waitTX1buff
	mov		W0, U1TXREG		; send "A" or, equivalently, whatever the data in W0 is