
#include <p16F690.inc> ;includes libraries for pic690
  __config (_HS_OSC & _WDT_OFF & _PWRTE_OFF & _MCLRE_OFF & _CP_OFF & _BOR_OFF & _IESO_OFF & _FCMEN_OFF)
 
; Memory locations
 c1 equ h'20'
 c2 equ h'21'
 c3 equ h'22'
 c4 equ h'23'
 c5 equ h'24'
 c6 equ h'25'
 c7 equ h'26'
 c8 equ h'27'
 c9 equ h'28'
 c10 equ h'29'
 c11 equ h'2A'
 c12 equ h'2B'
 c13 equ h'2C'
 c14 equ h'2D'
 c15 equ h'2E'
 c16 equ h'2F'
 c17 equ h'30'
 c18 equ h'31'
 c19 equ h'32'
 c20 equ h'33'
 c21 equ h'34'
 c22 equ h'35'
 c23 equ h'36'
 c24 equ h'37'
 c25 equ h'38'
 c26 equ h'39'
 c27 equ h'3A'
 c28 equ h'3B'
 c29 equ h'3C'
 c30 equ h'3D'
 c31 equ h'3E'
 c32 equ h'3F'
 c33 equ h'40'
 c34 equ h'41'
 c35 equ h'42'
 c36 equ h'43'
 c37 equ h'44'
 c38 equ h'45'
 c39 equ h'46'
 c40 equ h'47'
 c41 equ h'48'
 c42 equ h'49'
 c43 equ h'4A'
 c44 equ h'4B'
 c45 equ h'4C'
 c46 equ h'4D'
 c47 equ h'4E'
 c48 equ h'4F'
 c49 equ h'50'
 c50 equ h'51'
 c51 equ h'52'
 c52 equ h'53'
 c53 equ h'54'
 c54 equ h'55'
 c55 equ h'56'
 c56 equ h'57'
 c57 equ h'58'
 c58 equ h'59'
 c59 equ h'5A'
 c60 equ h'5B'
 c61 equ h'5C'
 c62 equ h'5D'
 c63 equ h'5E'
 c64 equ h'5F'
 c65 equ h'60'
 c66 equ h'61'
 c67 equ h'62'
 c68 equ h'63'
 c69 equ h'64'
 c70 equ h'65'
 c71 equ h'66'
 c72 equ h'67'
 c73 equ h'68'
 c74 equ h'69'
 c75 equ h'6A'
 c76 equ h'6B'
 c77 equ h'6C'
 c78 equ h'6D'
 c79 equ h'6E'
 c80 equ h'6F'
 
 ; beginning vc40 equ h'47'alue to store in memory, and amount to icrement value by before moving to
 ; other memory location
 ;beginvalue equ b'00000000'
 ;incrementby equ b'00000001'

 org 0

Start
;serial port set up
 bcf STATUS,RP0  ;sets bank 1 registers
 movlw b'10010000' ;enables serial port, continuous receive  
 movwf RCSTA
 BSF   STATUS,RP0  ;sets bank 2 registers 
 movlw  b'00100100' ;sets serial transfer parameters
 movwf TXSTA
 movlw b'00001010' ;sets baud rate to 115.2k
 movwf SPBRG     
 bcf STATUS,RP0 ;set bank 1 registers
 bcf PIR1,RCIF ;sets receive interupt flag


;Set up for AD
 bsf STATUS,RP0 ;set bank 2 register
 movlw b'10000000'
 movwf ADCON1 ;right justify data
 bsf TRISA,2 ;already in bank 2, so this sets RA2 to input
 bsf STATUS,RP0 
 bsf STATUS,RP1 ;set bank3
 bsf ANSEL,2 ;anolog select, set RA2 to analog input
 bcf STATUS,RP0 
 bcf STATUS,RP1 ; back to bank 0
 movlw b'10001001' 
 movwf ADCON0 ; ANO, on 

;main loop for taking analog data converting to digital, and sending to memory 
;and then to serial for analyzing the data
loop
;Send data to memory
;Channel 1
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c1
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c1;
 bcf STATUS, RP0

;Channel 2
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c2
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c2;
 bcf STATUS, RP0


;Channel 3
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c3
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c3;
 bcf STATUS, RP0

;Channel 4
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c4
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c4;
 bcf STATUS, RP0
 
;Channel 5
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c5
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c5;
 bcf STATUS, RP0
 
;Channel 6
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c6
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c6;
 bcf STATUS, RP0
 
;Channel 7
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c7
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c7;
 bcf STATUS, RP0
 
;Channel 8
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c8
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c8;
 bcf STATUS, RP0

;Channel 9
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c9
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c9;
 bcf STATUS, RP0

;Channel 10
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c10
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c10;
 bcf STATUS, RP0

;Channel 11
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c11
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c11;
 bcf STATUS, RP0
 
;Channel 12
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c12
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c12;
 bcf STATUS, RP0
 
;Channel 13
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c13
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c13;
 bcf STATUS, RP0

;Channel 14
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c14
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c14;
 bcf STATUS, RP0

;Channel 15
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c15
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c15;
 bcf STATUS, RP0
 
;Channel 16
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0
 movwf c16
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c16;
 bcf STATUS, RP0

;Channel 17
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c17
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c17;
 bcf STATUS, RP0

;Channel 18
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c18
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c18;
 bcf STATUS, RP0

;Channel 19
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c19
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c19;
 bcf STATUS, RP0

;Channel 20
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c20
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c20;
 bcf STATUS, RP0

;Channel 21
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c21
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c21;
 bcf STATUS, RP0

;Channel 22
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c22
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c22;
 bcf STATUS, RP0

;Channel 23
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c23
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c23;
 bcf STATUS, RP0

;Channel 24
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c24
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c24;
 bcf STATUS, RP0

;Channel 25
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c25
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c25;
 bcf STATUS, RP0

;Channel 26
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c26
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c26;
 bcf STATUS, RP0

;Channel 27
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c27
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c27;
 bcf STATUS, RP0

;Channel 28
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c28
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c28;
 bcf STATUS, RP0

;Channel 29
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c29
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c29;
 bcf STATUS, RP0

;Channel 30
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c30
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c30;
 bcf STATUS, RP0

;Channel 31
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c31
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c31;
 bcf STATUS, RP0

;Channel 32
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c32
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c32;
 bcf STATUS, RP0

;Channel 33
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c33
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c33;
 bcf STATUS, RP0

;Channel 34
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c34
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c34;
 bcf STATUS, RP0

;Channel 35
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c35
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c35;
 bcf STATUS, RP0

;Channel 36
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c36
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c36;
 bcf STATUS, RP0

;Channel 37
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c37
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c37;
 bcf STATUS, RP0

;Channel 38
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c38
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c38;
 bcf STATUS, RP0

;Channel 39
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c39
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c39;
 bcf STATUS, RP0

;Channel 40
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c40
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c40;
 bcf STATUS, RP0

;Channel 41
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c41
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c41;
 bcf STATUS, RP0

;Channel 42
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c42
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c42;
 bcf STATUS, RP0

;Channel 43
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c43
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c43;
 bcf STATUS, RP0

;Channel 44
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c44
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c44;
 bcf STATUS, RP0

;Channel 45
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c45
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c45;
 bcf STATUS, RP0

;Channel 46
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c46
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c46;
 bcf STATUS, RP0

;Channel 47
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c47
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c47;
 bcf STATUS, RP0

;Channel 48
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c48
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c48;
 bcf STATUS, RP0

;Channel 49
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c49
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c49;
 bcf STATUS, RP0

;Channel 50
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c50
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c50;
 bcf STATUS, RP0

;Channel 51
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c51
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c51;
 bcf STATUS, RP0

;Channel 52
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c52
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c52;
 bcf STATUS, RP0

;Channel 53
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c53
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c53;
 bcf STATUS, RP0

;Channel 54
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c54
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c54;
 bcf STATUS, RP0

;Channel 55
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c55
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c55;
 bcf STATUS, RP0

;Channel 56
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c56
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c56;
 bcf STATUS, RP0

;Channel 57
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c57
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c57;
 bcf STATUS, RP0

;Channel 58
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c58
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c58;
 bcf STATUS, RP0

;Channel 59
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c59
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c59;
 bcf STATUS, RP0

;Channel 60
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c60
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c60;
 bcf STATUS, RP0

;Channel 61
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c61
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c61;
 bcf STATUS, RP0

;Channel 62
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c62
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c62;
 bcf STATUS, RP0

;Channel 63
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c63
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c63;
 bcf STATUS, RP0

;Channel 64
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c64
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c64;
 bcf STATUS, RP0

;Channel 65
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ;read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c65
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c65;
 bcf STATUS, RP0

;Channel 66
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c66
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c66;
 bcf STATUS, RP0

;Channel 67
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c67
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c67;
 bcf STATUS, RP0

;Channel 68
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c68
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c68;
 bcf STATUS, RP0

;Channel 69
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c69
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c69;
 bcf STATUS, RP0

;Channel 70
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c70
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c70;
 bcf STATUS, RP0

;Channel 71
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c71
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c71;
 bcf STATUS, RP0

;Channel 72
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c72
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c72;
 bcf STATUS, RP0

;Channel 73
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c73
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c73;
 bcf STATUS, RP0

;Channel 74
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c74
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c74;
 bcf STATUS, RP0

;Channel 75
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c75
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c75;
 bcf STATUS, RP0

;Channel 76
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c76
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c76;
 bcf STATUS, RP0

;Channel 77
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c77
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c77;
 bcf STATUS, RP0

;Channel 78
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c78
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c78;
 bcf STATUS, RP0

;Channel 79
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c79
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c79;
 bcf STATUS, RP0

;Channel 80
 bsf ADCON0,GO ; Start converting signal
 btfsc ADCON0,GO ; check to see if conversion is done
 goto $-1 ; if not done, go back to converting
 bsf STATUS, RP0 ; back to bank 1
 movf ADRESL, W ; read lower 8 bits
 bcf STATUS, RP0 ;back to bank 0
 movwf c80
 movf ADRESH, W; read hihger 8 bits
 bsf STATUS, RP0 ; back to bank 1
 movwf c80;
 bcf STATUS, RP0



;Move data to serial
 movf c1,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 bsf STATUS,RP0 ;set bank 1 registers
 movf c1,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c2,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 bsf STATUS,RP0 ;set bank 1 registers
 movf c2,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c3,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 bsf STATUS,RP0 ;set bank 1 registers
 movf c3,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c4,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 bsf STATUS,RP0 ;set bank 1 registers
 movf c4,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c5,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 bsf STATUS,RP0 ;set bank 1 registers
 movf c5,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c6,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 bsf STATUS,RP0 ;set bank 1 registers
 movf c6,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c7,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 bsf STATUS,RP0 ;set bank 1 registers
 movf c7,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c8,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 bsf STATUS,RP0 ;set bank 1 registers
 movf c8,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c9,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txregv

 bsf STATUS,RP0 ;set bank 1 registers
 movf c9,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c10,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 bsf STATUS,RP0 ;set bank 1 registers
 movf c10,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c11,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 bsf STATUS,RP0 ;set bank 1 registers
 movf c11,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c12,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 
 bsf STATUS,RP0 ;set bank 1 registers
 movf c12,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c13,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c13,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c14,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 
 bsf STATUS,RP0 ;set bank 1 registers
 movf c14,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c15,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 
 bsf STATUS,RP0 ;set bank 1 registers
 movf c15,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c16,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 
 bsf STATUS,RP0 ;set bank 1 registers
 movf c16,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c17,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 
 bsf STATUS,RP0 ;set bank 1 registers
 movf c17,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c18,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 
 bsf STATUS,RP0 ;set bank 1 registers
 movf c18,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c19,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 
 bsf STATUS,RP0 ;set bank 1 registers
 movf c19,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c20,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c20,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c21,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c21,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c22,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c22,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c23,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c23,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c24,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c24,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c25,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c25,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c26,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c26,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c27,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c27,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c28,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 
 bsf STATUS,RP0 ;set bank 1 registers
 movf c28,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c29,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c29,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c30,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c30,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c31,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c31,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c32,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c32,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c33,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c33,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c34,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c34,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c35,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c35,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c36,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c36,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c37,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c37,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c38,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c38,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c39,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c39,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c40,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c40,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c41,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c41,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c42,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c42,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c43,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c43,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c44,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c44,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c45,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c45,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c46,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c46,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c47,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c47,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c48,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c48,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c49,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c49,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c50,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c50,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c51,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c51,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c52,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c52,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c53,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c53,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c54,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c54,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c55,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c55,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c56,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c56,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c57,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c57,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c59,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c59,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c60,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c60,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c61,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c61,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c62,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c62,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c63,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c63,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c64,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c64,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c65,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c65,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c66,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c66,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c67,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c67,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c68,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c68,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c69,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c69,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c70,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c70,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c71,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c71,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c72,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c72,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c73,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c73,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c74,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c74,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c75,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c75,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c76,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c76,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c77,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c77,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c78,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c78,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c79,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c79,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 movf c80,0
 bsf STATUS,RP0 ;set bank 1 registers
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg


 bsf STATUS,RP0 ;set bank 1 registers
 movf c80,0
 btfss TXSTA,TRMT ;check if txreg is empty
 goto $-1
 bcf STATUS,RP0 ;set bank 0 registers
 movwf TXREG ;put W data into txreg

 GOTO loop
 end