'''GCB Program. 18F4550 + SSD1306
#chip 18F4550,8
'''----- Includes
'#include <glcd_ssd1306.h>
#include <glcd.h>

; ----- Define GLCD Hardware settings
#define GLCD_TYPE GLCD_TYPE_SSD1306_32
#define GLCD_I2C_Address 0x78
'#define GLCD_I2C_Address 0x78
' NOTE in stead of 0x78 , 0x7E is sent and the display
'does not react al all
'In the assemble file I found:
'*******************
;HI2CStart
;	rcall	HI2CSTART
;HI2CSend GLCD_I2C_Address
;	movlw	126 ' this is the failing I2C address 0x7E
;	movwf	I2CBYTE,ACCESS
;	rcall	HI2CSEND
'*******************
#define GLCD_PROTECTOVERRUN
#define GLCD_TYPE_SSD1306_CHARACTER_MODE_ONLY
#define GLCD_TYPE_SSD1306_LOWMEMORY_GLCD_MODE

' Define Hardware I2C settings
#Define HI2C_BAUD_RATE 100
#Define HI2C_DATA PORTB.0
#define HI2C_CLOCK PORTB.1
Dir HI2C_DATA in
Dir HI2C_CLOCK in
HI2CMode Master

do Forever
    'sendT
    test
    wait 3 s
loop

sub test
    GLCD_Open_PageTransaction 0,7
    GLCDCLS
    GLCDPrint 0,0, "T"
    GLCD_Close_PageTransaction
end Sub






sub FindID
    Dim DeviceID as Byte
    for DeviceID = 115 to 127
        HI2CSTART
        HI2CSEND ( DeviceID)
        HI2CSend ( 0 )
        HI2CStop
    next
end Sub

sub sendT' sends a letter T at pos 0.0
    '120 will send 0x78 and with ack OK
    '"T" this method works well
HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0xae )
    HI2CSend ( 0xd5 )
    HI2CSend ( 0x80 )
    HI2CSend ( 0xa8 )
HI2CStop
    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0x1f )
HI2CStop
    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0xd3 )
    HI2CSend ( 0x00 )
    HI2CSend ( 0x40 )
    HI2CSend ( 0x8d )
HI2CStop
    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0x14 )
HI2CStop
    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0x20 )
    HI2CSend ( 0x00 )
    HI2CSend ( 0xa1 )
    HI2CSend ( 0xc8 )
HI2CStop
    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0xda )
HI2CStop
    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0x02 )
HI2CStop
    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0x81 )
HI2CStop
    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0x8f )
HI2CStop
    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0xd9 )
HI2CStop
    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0xf1 )
HI2CStop
    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0xdb )
    HI2CSend ( 0x40 )
    HI2CSend ( 0xa4 )
    HI2CSend ( 0xa6 )
    HI2CSend ( 0x2e )
    HI2CSend ( 0xaf )
HI2CStop



    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0x22 )
    HI2CSend ( 0x00 )
    HI2CSend ( 0xff )
    HI2CSend ( 0x21 )
    HI2CSend ( 0x00 )
    HI2CStop
    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x00 )
    HI2CSend ( 0x7f )
    HI2CStop

    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    HI2CSend ( 0x03 )
    HI2CSend ( 0x01 )
    HI2CSend ( 0x7f )
    HI2CSend ( 0x01 )
    HI2CSend ( 0x03 )
    for i=1 to 26
        HI2CSend ( 0 )
    next
    HI2CStop

    HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 31
        HI2CSend ( 0 )
    next
    HI2CStop
       HI2CSTART
    HI2CSEND ( 0x78)
    HI2CSend ( 0x40 )
    for i=1 to 20
        HI2CSend ( 0 )
    next
    HI2CStop

    
end Sub

GCASM List File (GCBASIC 1.00.00 2023-05-31 (Windows 64 bit) : Build 1249)

Symbols:
A 	EQU 	0
ABDEN 	EQU 	0
ABDOVF 	EQU 	7
ACCESS 	EQU 	0
ACKDT 	EQU 	5
ACKEN 	EQU 	4
ACKSTAT 	EQU 	6
ACQT0 	EQU 	3
ACQT1 	EQU 	4
ACQT2 	EQU 	5
ACTVIE 	EQU 	2
ACTVIF 	EQU 	2
ADCON0 	EQU 	4034
ADCON0_GO_DONE 	EQU 	1
ADCON1 	EQU 	4033
ADCON2 	EQU 	4032
ADCS0 	EQU 	0
ADCS1 	EQU 	1
ADCS2 	EQU 	2
ADDEN 	EQU 	3
ADDR0 	EQU 	0
ADDR1 	EQU 	1
ADDR2 	EQU 	2
ADDR3 	EQU 	3
ADDR4 	EQU 	4
ADDR5 	EQU 	5
ADDR6 	EQU 	6
ADEN 	EQU 	3
ADFM 	EQU 	7
ADIE 	EQU 	6
ADIF 	EQU 	6
ADIP 	EQU 	6
ADON 	EQU 	0
ADRES 	EQU 	4035
ADRESH 	EQU 	4036
ADRESL 	EQU 	4035
AN0 	EQU 	0
AN1 	EQU 	1
AN2 	EQU 	2
AN3 	EQU 	3
AN4 	EQU 	5
B 	EQU 	1
BANKED 	EQU 	1
BASPROGRAMEND 	EQU 	36
BASPROGRAMSTART 	EQU 	12
BAUDCON 	EQU 	4024
BAUDCTL 	EQU 	4024
BAUDCTL_ABDEN 	EQU 	0
BAUDCTL_ABDOVF 	EQU 	7
BAUDCTL_BRG16 	EQU 	3
BAUDCTL_RCIDL 	EQU 	6
BAUDCTL_RCMT 	EQU 	6
BAUDCTL_RXDTP 	EQU 	5
BAUDCTL_SCKP 	EQU 	4
BAUDCTL_TXCKP 	EQU 	4
BAUDCTL_WUE 	EQU 	1
BCLIE 	EQU 	3
BCLIF 	EQU 	3
BCLIP 	EQU 	3
BF 	EQU 	0
BGST 	EQU 	5
BOR 	EQU 	0
BRG16 	EQU 	3
BRGH 	EQU 	2
BSR 	EQU 	4064
BTOEE 	EQU 	4
BTOEF 	EQU 	4
BTSEE 	EQU 	7
BTSEF 	EQU 	7
C 	EQU 	0
C1INV 	EQU 	4
C1OUT 	EQU 	6
C2INV 	EQU 	5
C2OUT 	EQU 	7
CCP1 	EQU 	2
CCP1AS 	EQU 	4022
CCP1CON 	EQU 	4029
CCP1DEL 	EQU 	4023
CCP1IE 	EQU 	2
CCP1IF 	EQU 	2
CCP1IP 	EQU 	2
CCP1M0 	EQU 	0
CCP1M1 	EQU 	1
CCP1M2 	EQU 	2
CCP1M3 	EQU 	3
CCP2CON 	EQU 	4026
CCP2IE 	EQU 	0
CCP2IF 	EQU 	0
CCP2IP 	EQU 	0
CCP2M0 	EQU 	0
CCP2M1 	EQU 	1
CCP2M2 	EQU 	2
CCP2M3 	EQU 	3
CCPR1 	EQU 	4030
CCPR1H 	EQU 	4031
CCPR1L 	EQU 	4030
CCPR2 	EQU 	4027
CCPR2H 	EQU 	4028
CCPR2L 	EQU 	4027
CFGS 	EQU 	6
CHS0 	EQU 	2
CHS1 	EQU 	3
CHS2 	EQU 	4
CHS3 	EQU 	5
CIS 	EQU 	3
CK 	EQU 	6
CK1SPP 	EQU 	0
CK2SPP 	EQU 	1
CKE 	EQU 	6
CKP 	EQU 	4
CLK1EN 	EQU 	4
CLKCFG0 	EQU 	6
CLKCFG1 	EQU 	7
CM0 	EQU 	0
CM1 	EQU 	1
CM2 	EQU 	2
CMCON 	EQU 	4020
CMIE 	EQU 	6
CMIF 	EQU 	6
CMIP 	EQU 	6
CRC16EE 	EQU 	2
CRC16EF 	EQU 	2
CRC5EE 	EQU 	1
CRC5EF 	EQU 	1
CREN 	EQU 	4
CSEN 	EQU 	5
CSRC 	EQU 	7
CVR0 	EQU 	0
CVR1 	EQU 	1
CVR2 	EQU 	2
CVR3 	EQU 	3
CVRCON 	EQU 	4021
CVREF 	EQU 	4
CVREN 	EQU 	7
CVROE 	EQU 	6
CVRR 	EQU 	5
CVRSS 	EQU 	4
D 	EQU 	5
DATA_ADDRESS 	EQU 	5
DC 	EQU 	1
DC1B0 	EQU 	4
DC1B1 	EQU 	5
DC2B0 	EQU 	4
DC2B1 	EQU 	5
DDRA 	EQU 	3986
DDRA_RA0 	EQU 	0
DDRA_RA1 	EQU 	1
DDRA_RA2 	EQU 	2
DDRA_RA3 	EQU 	3
DDRA_RA4 	EQU 	4
DDRA_RA5 	EQU 	5
DDRA_RA6 	EQU 	6
DDRB 	EQU 	3987
DDRB_RB0 	EQU 	0
DDRB_RB1 	EQU 	1
DDRB_RB2 	EQU 	2
DDRB_RB3 	EQU 	3
DDRB_RB4 	EQU 	4
DDRB_RB5 	EQU 	5
DDRB_RB6 	EQU 	6
DDRB_RB7 	EQU 	7
DDRC 	EQU 	3988
DDRC_RC0 	EQU 	0
DDRC_RC1 	EQU 	1
DDRC_RC2 	EQU 	2
DDRC_RC6 	EQU 	6
DDRC_RC7 	EQU 	7
DDRD 	EQU 	3989
DDRD_RD0 	EQU 	0
DDRD_RD1 	EQU 	1
DDRD_RD2 	EQU 	2
DDRD_RD3 	EQU 	3
DDRD_RD4 	EQU 	4
DDRD_RD5 	EQU 	5
DDRD_RD6 	EQU 	6
DDRD_RD7 	EQU 	7
DDRE 	EQU 	3990
DDRE_RE0 	EQU 	0
DDRE_RE1 	EQU 	1
DDRE_RE2 	EQU 	2
DELAYTEMP 	EQU 	0
DELAYTEMP2 	EQU 	1
DELAY_MS 	EQU 	40
DELAY_S 	EQU 	68
DFN8EE 	EQU 	3
DFN8EF 	EQU 	3
DIR 	EQU 	2
DMS_INNER 	EQU 	50
DMS_OUTER 	EQU 	46
DMS_START 	EQU 	42
DONE 	EQU 	1
DS_START 	EQU 	68
D_A 	EQU 	5
D_NOT_A 	EQU 	5
ECCP1AS 	EQU 	4022
ECCP1AS_ECCPAS0 	EQU 	4
ECCP1AS_ECCPAS1 	EQU 	5
ECCP1AS_ECCPAS2 	EQU 	6
ECCP1AS_ECCPASE 	EQU 	7
ECCP1AS_PSSAC0 	EQU 	2
ECCP1AS_PSSAC1 	EQU 	3
ECCP1AS_PSSBD0 	EQU 	0
ECCP1AS_PSSBD1 	EQU 	1
ECCP1CON 	EQU 	4029
ECCP1CON_CCP1M0 	EQU 	0
ECCP1CON_CCP1M1 	EQU 	1
ECCP1CON_CCP1M2 	EQU 	2
ECCP1CON_CCP1M3 	EQU 	3
ECCP1CON_DC1B0 	EQU 	4
ECCP1CON_DC1B1 	EQU 	5
ECCP1CON_P1M0 	EQU 	6
ECCP1CON_P1M1 	EQU 	7
ECCP1DEL 	EQU 	4023
ECCP1DEL_PDC0 	EQU 	0
ECCP1DEL_PDC1 	EQU 	1
ECCP1DEL_PDC2 	EQU 	2
ECCP1DEL_PDC3 	EQU 	3
ECCP1DEL_PDC4 	EQU 	4
ECCP1DEL_PDC5 	EQU 	5
ECCP1DEL_PDC6 	EQU 	6
ECCP1DEL_PRSEN 	EQU 	7
ECCPAS0 	EQU 	4
ECCPAS1 	EQU 	5
ECCPAS2 	EQU 	6
ECCPASE 	EQU 	7
EEADR 	EQU 	4009
EECON1 	EQU 	4006
EECON2 	EQU 	4007
EEDATA 	EQU 	4008
EEIE 	EQU 	4
EEIF 	EQU 	4
EEIP 	EQU 	4
EEPGD 	EQU 	7
ELSE21_1 	EQU 	202
ELSE22_1 	EQU 	228
ELSE23_1 	EQU 	164
ENDIF18 	EQU 	114
ENDIF19 	EQU 	128
ENDIF20 	EQU 	144
ENDIF21 	EQU 	206
ENDIF22 	EQU 	232
ENDIF23 	EQU 	166
ENDIF24 	EQU 	178
ENDIF27 	EQU 	252
ENDP0 	EQU 	3
ENDP1 	EQU 	4
ENDP2 	EQU 	5
ENDP3 	EQU 	6
EPCONDIS 	EQU 	3
EPHSHK 	EQU 	4
EPINEN 	EQU 	1
EPOUTEN 	EQU 	2
EPSTALL 	EQU 	0
F 	EQU 	1
FERR 	EQU 	2
FLTS 	EQU 	2
FREE 	EQU 	4
FRM0 	EQU 	0
FRM1 	EQU 	1
FRM10 	EQU 	2
FRM2 	EQU 	2
FRM3 	EQU 	3
FRM4 	EQU 	4
FRM5 	EQU 	5
FRM6 	EQU 	6
FRM7 	EQU 	7
FRM8 	EQU 	0
FRM9 	EQU 	1
FSEN 	EQU 	2
FSR0H 	EQU 	4074
FSR0L 	EQU 	4073
FSR1H 	EQU 	4066
FSR1L 	EQU 	4065
FSR2H 	EQU 	4058
FSR2L 	EQU 	4057
GCEN 	EQU 	7
GIE 	EQU 	7
GIEH 	EQU 	7
GIEL 	EQU 	6
GIE_GIEH 	EQU 	7
GO 	EQU 	1
GO_DONE 	EQU 	1
GO_NOT_DONE 	EQU 	1
HI2CACKPOLLSTATE 	EQU 	5
HI2CCURRENTMODE 	EQU 	6
HI2CINIT 	EQU 	84
HI2CMODE 	EQU 	88
HI2CSEND 	EQU 	148
HI2CSTART 	EQU 	188
HI2CSTOP 	EQU 	208
HI2CWAITMSSP 	EQU 	234
HI2CWAITMSSPTIMEOUT 	EQU 	7
HI2CWAITMSSPWAIT 	EQU 	236
HLVDCON 	EQU 	4050
HLVDEN 	EQU 	4
HLVDIE 	EQU 	2
HLVDIF 	EQU 	2
HLVDIN 	EQU 	5
HLVDIP 	EQU 	2
HLVDL0 	EQU 	0
HLVDL1 	EQU 	1
HLVDL2 	EQU 	2
HLVDL3 	EQU 	3
I 	EQU 	8
I2CBYTE 	EQU 	9
I2C_DAT 	EQU 	5
I2C_READ 	EQU 	2
I2C_START 	EQU 	3
I2C_STOP 	EQU 	4
IDLEIE 	EQU 	4
IDLEIF 	EQU 	4
IDLEN 	EQU 	7
INDF0 	EQU 	4079
INDF1 	EQU 	4071
INDF2 	EQU 	4063
INITSYS 	EQU 	254
INT0 	EQU 	0
INT0E 	EQU 	4
INT0F 	EQU 	1
INT0IE 	EQU 	4
INT0IF 	EQU 	1
INT1 	EQU 	1
INT1E 	EQU 	3
INT1F 	EQU 	0
INT1IE 	EQU 	3
INT1IF 	EQU 	0
INT1IP 	EQU 	6
INT1P 	EQU 	6
INT2 	EQU 	2
INT2E 	EQU 	4
INT2F 	EQU 	1
INT2IE 	EQU 	4
INT2IF 	EQU 	1
INT2IP 	EQU 	7
INT2P 	EQU 	7
INTCON 	EQU 	4082
INTCON2 	EQU 	4081
INTCON3 	EQU 	4080
INTEDG0 	EQU 	6
INTEDG1 	EQU 	5
INTEDG2 	EQU 	4
INTSRC 	EQU 	7
IOFS 	EQU 	2
IPEN 	EQU 	7
IPR1 	EQU 	3999
IPR2 	EQU 	4002
IRCF0 	EQU 	4
IRCF1 	EQU 	5
IRCF2 	EQU 	6
IRVST 	EQU 	5
IVRST 	EQU 	5
LATA 	EQU 	3977
LATA0 	EQU 	0
LATA1 	EQU 	1
LATA2 	EQU 	2
LATA3 	EQU 	3
LATA4 	EQU 	4
LATA5 	EQU 	5
LATA6 	EQU 	6
LATB 	EQU 	3978
LATB0 	EQU 	0
LATB1 	EQU 	1
LATB2 	EQU 	2
LATB3 	EQU 	3
LATB4 	EQU 	4
LATB5 	EQU 	5
LATB6 	EQU 	6
LATB7 	EQU 	7
LATC 	EQU 	3979
LATC0 	EQU 	0
LATC1 	EQU 	1
LATC2 	EQU 	2
LATC6 	EQU 	6
LATC7 	EQU 	7
LATD 	EQU 	3980
LATD0 	EQU 	0
LATD1 	EQU 	1
LATD2 	EQU 	2
LATD3 	EQU 	3
LATD4 	EQU 	4
LATD5 	EQU 	5
LATD6 	EQU 	6
LATD7 	EQU 	7
LATE 	EQU 	3981
LATE0 	EQU 	0
LATE1 	EQU 	1
LATE2 	EQU 	2
LVDCON 	EQU 	4050
LVDCON_BGST 	EQU 	5
LVDCON_HLVDEN 	EQU 	4
LVDCON_HLVDL0 	EQU 	0
LVDCON_HLVDL1 	EQU 	1
LVDCON_HLVDL2 	EQU 	2
LVDCON_HLVDL3 	EQU 	3
LVDCON_IRVST 	EQU 	5
LVDCON_IVRST 	EQU 	5
LVDCON_LVDEN 	EQU 	4
LVDCON_LVDL0 	EQU 	0
LVDCON_LVDL1 	EQU 	1
LVDCON_LVDL2 	EQU 	2
LVDCON_LVDL3 	EQU 	3
LVDCON_LVV0 	EQU 	0
LVDCON_LVV1 	EQU 	1
LVDCON_LVV2 	EQU 	2
LVDCON_LVV3 	EQU 	3
LVDCON_VDIRMAG 	EQU 	7
LVDEN 	EQU 	4
LVDIE 	EQU 	2
LVDIF 	EQU 	2
LVDIN 	EQU 	5
LVDIP 	EQU 	2
LVDL0 	EQU 	0
LVDL1 	EQU 	1
LVDL2 	EQU 	2
LVDL3 	EQU 	3
LVV0 	EQU 	0
LVV1 	EQU 	1
LVV2 	EQU 	2
LVV3 	EQU 	3
N 	EQU 	4
NOT_A 	EQU 	5
NOT_ADDRESS 	EQU 	5
NOT_BOR 	EQU 	0
NOT_DONE 	EQU 	1
NOT_IPEN 	EQU 	7
NOT_PD 	EQU 	2
NOT_POR 	EQU 	1
NOT_RBPU 	EQU 	7
NOT_RI 	EQU 	4
NOT_T1SYNC 	EQU 	2
NOT_T3SYNC 	EQU 	2
NOT_TO 	EQU 	3
NOT_W 	EQU 	2
NOT_WRITE 	EQU 	2
OERR 	EQU 	1
OESPP 	EQU 	2
OSC2 	EQU 	6
OSCCON 	EQU 	4051
OSCFIE 	EQU 	7
OSCFIF 	EQU 	7
OSCFIP 	EQU 	7
OSCTUNE 	EQU 	3995
OSTS 	EQU 	3
OV 	EQU 	3
P 	EQU 	4
P1A 	EQU 	2
P1M0 	EQU 	6
P1M1 	EQU 	7
PC 	EQU 	4089
PCFG0 	EQU 	0
PCFG1 	EQU 	1
PCFG2 	EQU 	2
PCFG3 	EQU 	3
PCL 	EQU 	4089
PCLATH 	EQU 	4090
PCLATU 	EQU 	4091
PD 	EQU 	2
PDC0 	EQU 	0
PDC1 	EQU 	1
PDC2 	EQU 	2
PDC3 	EQU 	3
PDC4 	EQU 	4
PDC5 	EQU 	5
PDC6 	EQU 	6
PEIE 	EQU 	6
PEIE_GIEL 	EQU 	6
PEN 	EQU 	2
PGC 	EQU 	6
PGD 	EQU 	7
PGM 	EQU 	5
PIDEE 	EQU 	0
PIDEF 	EQU 	0
PIE1 	EQU 	3997
PIE2 	EQU 	4000
PIR1 	EQU 	3998
PIR2 	EQU 	4001
PKTDIS 	EQU 	4
PLUSW0 	EQU 	4075
PLUSW1 	EQU 	4067
PLUSW2 	EQU 	4059
POR 	EQU 	1
PORTA 	EQU 	3968
PORTB 	EQU 	3969
PORTC 	EQU 	3970
PORTD 	EQU 	3971
PORTE 	EQU 	3972
POSTDEC0 	EQU 	4077
POSTDEC1 	EQU 	4069
POSTDEC2 	EQU 	4061
POSTINC0 	EQU 	4078
POSTINC1 	EQU 	4070
POSTINC2 	EQU 	4062
PPB0 	EQU 	0
PPB1 	EQU 	1
PPBI 	EQU 	1
PPBRST 	EQU 	6
PR2 	EQU 	4043
PREINC0 	EQU 	4076
PREINC1 	EQU 	4068
PREINC2 	EQU 	4060
PROD 	EQU 	4083
PRODH 	EQU 	4084
PRODL 	EQU 	4083
PRSEN 	EQU 	7
PSA 	EQU 	3
PSSAC0 	EQU 	2
PSSAC1 	EQU 	3
PSSBD0 	EQU 	0
PSSBD1 	EQU 	1
R 	EQU 	2
RA0 	EQU 	0
RA1 	EQU 	1
RA2 	EQU 	2
RA3 	EQU 	3
RA4 	EQU 	4
RA5 	EQU 	5
RA6 	EQU 	6
RB0 	EQU 	0
RB1 	EQU 	1
RB2 	EQU 	2
RB3 	EQU 	3
RB4 	EQU 	4
RB5 	EQU 	5
RB6 	EQU 	6
RB7 	EQU 	7
RBIE 	EQU 	3
RBIF 	EQU 	0
RBIP 	EQU 	0
RBPU 	EQU 	7
RC0 	EQU 	0
RC1 	EQU 	1
RC2 	EQU 	2
RC4 	EQU 	4
RC5 	EQU 	5
RC6 	EQU 	6
RC7 	EQU 	7
RCEN 	EQU 	3
RCIDL 	EQU 	6
RCIE 	EQU 	5
RCIF 	EQU 	5
RCIP 	EQU 	5
RCMT 	EQU 	6
RCON 	EQU 	4048
RCREG 	EQU 	4014
RCSTA 	EQU 	4011
RD 	EQU 	0
RD0 	EQU 	0
RD1 	EQU 	1
RD16 	EQU 	7
RD2 	EQU 	2
RD3 	EQU 	3
RD4 	EQU 	4
RD5 	EQU 	5
RD6 	EQU 	6
RD7 	EQU 	7
RDPU 	EQU 	7
RDSPP 	EQU 	7
RE0 	EQU 	0
RE1 	EQU 	1
RE2 	EQU 	2
RE3 	EQU 	3
READ_WRITE 	EQU 	2
RESUME 	EQU 	2
RETRYHI2CSEND 	EQU 	148
RI 	EQU 	4
RSEN 	EQU 	1
RX 	EQU 	7
RX9 	EQU 	6
RX9D 	EQU 	0
RXDTP 	EQU 	5
R_NOT_W 	EQU 	2
R_W 	EQU 	2
S 	EQU 	3
SBOREN 	EQU 	6
SCKP 	EQU 	4
SCS0 	EQU 	0
SCS1 	EQU 	1
SE0 	EQU 	5
SEN 	EQU 	0
SENDB 	EQU 	3
SENDT 	EQU 	296
SMP 	EQU 	7
SOFIE 	EQU 	6
SOFIF 	EQU 	6
SPBRG 	EQU 	4015
SPBRGH 	EQU 	4016
SPEN 	EQU 	7
SPP0 	EQU 	0
SPP1 	EQU 	1
SPP2 	EQU 	2
SPP3 	EQU 	3
SPP4 	EQU 	4
SPP5 	EQU 	5
SPP6 	EQU 	6
SPP7 	EQU 	7
SPPBUSY 	EQU 	4
SPPCFG 	EQU 	3939
SPPCON 	EQU 	3941
SPPDATA 	EQU 	3938
SPPEN 	EQU 	0
SPPEPS 	EQU 	3940
SPPIE 	EQU 	7
SPPIF 	EQU 	7
SPPIP 	EQU 	7
SPPOWN 	EQU 	1
SREN 	EQU 	5
SSPADD 	EQU 	4040
SSPBUF 	EQU 	4041
SSPCON1 	EQU 	4038
SSPCON2 	EQU 	4037
SSPEN 	EQU 	5
SSPIE 	EQU 	3
SSPIF 	EQU 	3
SSPIP 	EQU 	3
SSPM0 	EQU 	0
SSPM1 	EQU 	1
SSPM2 	EQU 	2
SSPM3 	EQU 	3
SSPOV 	EQU 	6
SSPSTAT 	EQU 	4039
STALLIE 	EQU 	5
STALLIF 	EQU 	5
STATUS 	EQU 	4056
STKFUL 	EQU 	7
STKOVF 	EQU 	7
STKPTR 	EQU 	4092
STKPTR0 	EQU 	0
STKPTR1 	EQU 	1
STKPTR2 	EQU 	2
STKPTR3 	EQU 	3
STKPTR4 	EQU 	4
STKUNF 	EQU 	6
SUSPND 	EQU 	1
SWDTE 	EQU 	0
SWDTEN 	EQU 	0
SYNC 	EQU 	4
SYSDOLOOP_E1 	EQU 	36
SYSDOLOOP_S1 	EQU 	26
SYSFORLOOP1 	EQU 	720
SYSFORLOOP10 	EQU 	1008
SYSFORLOOP11 	EQU 	1040
SYSFORLOOP12 	EQU 	1072
SYSFORLOOP13 	EQU 	1104
SYSFORLOOP14 	EQU 	1136
SYSFORLOOP15 	EQU 	1168
SYSFORLOOP16 	EQU 	1200
SYSFORLOOP17 	EQU 	1232
SYSFORLOOP2 	EQU 	752
SYSFORLOOP3 	EQU 	784
SYSFORLOOP4 	EQU 	816
SYSFORLOOP5 	EQU 	848
SYSFORLOOP6 	EQU 	880
SYSFORLOOP7 	EQU 	912
SYSFORLOOP8 	EQU 	944
SYSFORLOOP9 	EQU 	976
SYSFORLOOPEND1 	EQU 	734
SYSFORLOOPEND10 	EQU 	1022
SYSFORLOOPEND11 	EQU 	1054
SYSFORLOOPEND12 	EQU 	1086
SYSFORLOOPEND13 	EQU 	1118
SYSFORLOOPEND14 	EQU 	1150
SYSFORLOOPEND15 	EQU 	1182
SYSFORLOOPEND16 	EQU 	1214
SYSFORLOOPEND17 	EQU 	1246
SYSFORLOOPEND2 	EQU 	766
SYSFORLOOPEND3 	EQU 	798
SYSFORLOOPEND4 	EQU 	830
SYSFORLOOPEND5 	EQU 	862
SYSFORLOOPEND6 	EQU 	894
SYSFORLOOPEND7 	EQU 	926
SYSFORLOOPEND8 	EQU 	958
SYSFORLOOPEND9 	EQU 	990
SYSWAITLOOP1 	EQU 	202
SYSWAITLOOP2 	EQU 	216
SYSWAITLOOP3 	EQU 	228
SYSWAITTEMPMS 	EQU 	2
SYSWAITTEMPMS_H 	EQU 	3
SYSWAITTEMPS 	EQU 	4
T08BIT 	EQU 	6
T0CKI 	EQU 	4
T0CON 	EQU 	4053
T0CS 	EQU 	5
T0IE 	EQU 	5
T0IF 	EQU 	2
T0IP 	EQU 	2
T0PS0 	EQU 	0
T0PS1 	EQU 	1
T0PS2 	EQU 	2
T0SE 	EQU 	4
T13CKI 	EQU 	0
T1CKPS0 	EQU 	4
T1CKPS1 	EQU 	5
T1CON 	EQU 	4045
T1OSCEN 	EQU 	3
T1OSI 	EQU 	1
T1OSO 	EQU 	0
T1RUN 	EQU 	6
T1SYNC 	EQU 	2
T2CKPS0 	EQU 	0
T2CKPS1 	EQU 	1
T2CON 	EQU 	4042
T2OUTPS0 	EQU 	3
T2OUTPS1 	EQU 	4
T2OUTPS2 	EQU 	5
T2OUTPS3 	EQU 	6
T3CCP1 	EQU 	3
T3CCP2 	EQU 	6
T3CKPS0 	EQU 	4
T3CKPS1 	EQU 	5
T3CON 	EQU 	4017
T3CON_RD16 	EQU 	7
T3NSYNC 	EQU 	2
T3SYNC 	EQU 	2
TABLAT 	EQU 	4085
TBLPTR 	EQU 	4086
TBLPTRH 	EQU 	4087
TBLPTRL 	EQU 	4086
TBLPTRU 	EQU 	4088
TMR0 	EQU 	4054
TMR0H 	EQU 	4055
TMR0IE 	EQU 	5
TMR0IF 	EQU 	2
TMR0IP 	EQU 	2
TMR0L 	EQU 	4054
TMR0ON 	EQU 	7
TMR1 	EQU 	4046
TMR1CS 	EQU 	1
TMR1H 	EQU 	4047
TMR1IE 	EQU 	0
TMR1IF 	EQU 	0
TMR1IP 	EQU 	0
TMR1L 	EQU 	4046
TMR1ON 	EQU 	0
TMR2 	EQU 	4044
TMR2IE 	EQU 	1
TMR2IF 	EQU 	1
TMR2IP 	EQU 	1
TMR2ON 	EQU 	2
TMR3 	EQU 	4018
TMR3CS 	EQU 	1
TMR3H 	EQU 	4019
TMR3IE 	EQU 	1
TMR3IF 	EQU 	1
TMR3IP 	EQU 	1
TMR3L 	EQU 	4018
TMR3ON 	EQU 	0
TO 	EQU 	3
TOS 	EQU 	4093
TOSH 	EQU 	4094
TOSL 	EQU 	4093
TOSU 	EQU 	4095
TOUTPS0 	EQU 	3
TOUTPS1 	EQU 	4
TOUTPS2 	EQU 	5
TOUTPS3 	EQU 	6
TRISA 	EQU 	3986
TRISA0 	EQU 	0
TRISA1 	EQU 	1
TRISA2 	EQU 	2
TRISA3 	EQU 	3
TRISA4 	EQU 	4
TRISA5 	EQU 	5
TRISA6 	EQU 	6
TRISA_RA0 	EQU 	0
TRISA_RA1 	EQU 	1
TRISA_RA2 	EQU 	2
TRISA_RA3 	EQU 	3
TRISA_RA4 	EQU 	4
TRISA_RA5 	EQU 	5
TRISA_RA6 	EQU 	6
TRISA_TRISA0 	EQU 	0
TRISA_TRISA1 	EQU 	1
TRISA_TRISA2 	EQU 	2
TRISA_TRISA3 	EQU 	3
TRISA_TRISA4 	EQU 	4
TRISA_TRISA5 	EQU 	5
TRISA_TRISA6 	EQU 	6
TRISB 	EQU 	3987
TRISB0 	EQU 	0
TRISB1 	EQU 	1
TRISB2 	EQU 	2
TRISB3 	EQU 	3
TRISB4 	EQU 	4
TRISB5 	EQU 	5
TRISB6 	EQU 	6
TRISB7 	EQU 	7
TRISB_RB0 	EQU 	0
TRISB_RB1 	EQU 	1
TRISB_RB2 	EQU 	2
TRISB_RB3 	EQU 	3
TRISB_RB4 	EQU 	4
TRISB_RB5 	EQU 	5
TRISB_RB6 	EQU 	6
TRISB_RB7 	EQU 	7
TRISB_TRISB0 	EQU 	0
TRISB_TRISB1 	EQU 	1
TRISB_TRISB2 	EQU 	2
TRISB_TRISB3 	EQU 	3
TRISB_TRISB4 	EQU 	4
TRISB_TRISB5 	EQU 	5
TRISB_TRISB6 	EQU 	6
TRISB_TRISB7 	EQU 	7
TRISC 	EQU 	3988
TRISC0 	EQU 	0
TRISC1 	EQU 	1
TRISC2 	EQU 	2
TRISC6 	EQU 	6
TRISC7 	EQU 	7
TRISC_RC0 	EQU 	0
TRISC_RC1 	EQU 	1
TRISC_RC2 	EQU 	2
TRISC_RC6 	EQU 	6
TRISC_RC7 	EQU 	7
TRISC_TRISC0 	EQU 	0
TRISC_TRISC1 	EQU 	1
TRISC_TRISC2 	EQU 	2
TRISC_TRISC6 	EQU 	6
TRISC_TRISC7 	EQU 	7
TRISD 	EQU 	3989
TRISD0 	EQU 	0
TRISD1 	EQU 	1
TRISD2 	EQU 	2
TRISD3 	EQU 	3
TRISD4 	EQU 	4
TRISD5 	EQU 	5
TRISD6 	EQU 	6
TRISD7 	EQU 	7
TRISD_RD0 	EQU 	0
TRISD_RD1 	EQU 	1
TRISD_RD2 	EQU 	2
TRISD_RD3 	EQU 	3
TRISD_RD4 	EQU 	4
TRISD_RD5 	EQU 	5
TRISD_RD6 	EQU 	6
TRISD_RD7 	EQU 	7
TRISD_TRISD0 	EQU 	0
TRISD_TRISD1 	EQU 	1
TRISD_TRISD2 	EQU 	2
TRISD_TRISD3 	EQU 	3
TRISD_TRISD4 	EQU 	4
TRISD_TRISD5 	EQU 	5
TRISD_TRISD6 	EQU 	6
TRISD_TRISD7 	EQU 	7
TRISE 	EQU 	3990
TRISE0 	EQU 	0
TRISE1 	EQU 	1
TRISE2 	EQU 	2
TRISE_RE0 	EQU 	0
TRISE_RE1 	EQU 	1
TRISE_RE2 	EQU 	2
TRISE_TRISE0 	EQU 	0
TRISE_TRISE1 	EQU 	1
TRISE_TRISE2 	EQU 	2
TRMT 	EQU 	1
TRNIE 	EQU 	3
TRNIF 	EQU 	3
TUN0 	EQU 	0
TUN1 	EQU 	1
TUN2 	EQU 	2
TUN3 	EQU 	3
TUN4 	EQU 	4
TX 	EQU 	6
TX9 	EQU 	6
TX9D 	EQU 	0
TXCKP 	EQU 	4
TXEN 	EQU 	5
TXIE 	EQU 	4
TXIF 	EQU 	4
TXIP 	EQU 	4
TXREG 	EQU 	4013
TXSTA 	EQU 	4012
UA 	EQU 	1
UADDR 	EQU 	3950
UADDR_ADDR0 	EQU 	0
UADDR_ADDR1 	EQU 	1
UADDR_ADDR2 	EQU 	2
UADDR_ADDR3 	EQU 	3
UCFG 	EQU 	3951
UCON 	EQU 	3949
UEIE 	EQU 	3947
UEIR 	EQU 	3946
UEP0 	EQU 	3952
UEP0_EPCONDIS 	EQU 	3
UEP0_EPHSHK 	EQU 	4
UEP0_EPINEN 	EQU 	1
UEP0_EPOUTEN 	EQU 	2
UEP0_EPSTALL 	EQU 	0
UEP1 	EQU 	3953
UEP10 	EQU 	3962
UEP10_EPCONDIS 	EQU 	3
UEP10_EPHSHK 	EQU 	4
UEP10_EPINEN 	EQU 	1
UEP10_EPOUTEN 	EQU 	2
UEP10_EPSTALL 	EQU 	0
UEP11 	EQU 	3963
UEP11_EPCONDIS 	EQU 	3
UEP11_EPHSHK 	EQU 	4
UEP11_EPINEN 	EQU 	1
UEP11_EPOUTEN 	EQU 	2
UEP11_EPSTALL 	EQU 	0
UEP12 	EQU 	3964
UEP12_EPCONDIS 	EQU 	3
UEP12_EPHSHK 	EQU 	4
UEP12_EPINEN 	EQU 	1
UEP12_EPOUTEN 	EQU 	2
UEP12_EPSTALL 	EQU 	0
UEP13 	EQU 	3965
UEP13_EPCONDIS 	EQU 	3
UEP13_EPHSHK 	EQU 	4
UEP13_EPINEN 	EQU 	1
UEP13_EPOUTEN 	EQU 	2
UEP13_EPSTALL 	EQU 	0
UEP14 	EQU 	3966
UEP14_EPCONDIS 	EQU 	3
UEP14_EPHSHK 	EQU 	4
UEP14_EPINEN 	EQU 	1
UEP14_EPOUTEN 	EQU 	2
UEP14_EPSTALL 	EQU 	0
UEP15 	EQU 	3967
UEP15_EPCONDIS 	EQU 	3
UEP15_EPHSHK 	EQU 	4
UEP15_EPINEN 	EQU 	1
UEP15_EPOUTEN 	EQU 	2
UEP15_EPSTALL 	EQU 	0
UEP2 	EQU 	3954
UEP2_EPCONDIS 	EQU 	3
UEP2_EPHSHK 	EQU 	4
UEP2_EPINEN 	EQU 	1
UEP2_EPOUTEN 	EQU 	2
UEP2_EPSTALL 	EQU 	0
UEP3 	EQU 	3955
UEP3_EPCONDIS 	EQU 	3
UEP3_EPHSHK 	EQU 	4
UEP3_EPINEN 	EQU 	1
UEP3_EPOUTEN 	EQU 	2
UEP3_EPSTALL 	EQU 	0
UEP4 	EQU 	3956
UEP4_EPCONDIS 	EQU 	3
UEP4_EPHSHK 	EQU 	4
UEP4_EPINEN 	EQU 	1
UEP4_EPOUTEN 	EQU 	2
UEP4_EPSTALL 	EQU 	0
UEP5 	EQU 	3957
UEP5_EPCONDIS 	EQU 	3
UEP5_EPHSHK 	EQU 	4
UEP5_EPINEN 	EQU 	1
UEP5_EPOUTEN 	EQU 	2
UEP5_EPSTALL 	EQU 	0
UEP6 	EQU 	3958
UEP6_EPCONDIS 	EQU 	3
UEP6_EPHSHK 	EQU 	4
UEP6_EPINEN 	EQU 	1
UEP6_EPOUTEN 	EQU 	2
UEP6_EPSTALL 	EQU 	0
UEP7 	EQU 	3959
UEP7_EPCONDIS 	EQU 	3
UEP7_EPHSHK 	EQU 	4
UEP7_EPINEN 	EQU 	1
UEP7_EPOUTEN 	EQU 	2
UEP7_EPSTALL 	EQU 	0
UEP8 	EQU 	3960
UEP8_EPCONDIS 	EQU 	3
UEP8_EPHSHK 	EQU 	4
UEP8_EPINEN 	EQU 	1
UEP8_EPOUTEN 	EQU 	2
UEP8_EPSTALL 	EQU 	0
UEP9 	EQU 	3961
UEP9_EPCONDIS 	EQU 	3
UEP9_EPHSHK 	EQU 	4
UEP9_EPINEN 	EQU 	1
UEP9_EPOUTEN 	EQU 	2
UEP9_EPSTALL 	EQU 	0
UERRIE 	EQU 	1
UERRIF 	EQU 	1
UFRM 	EQU 	3942
UFRMH 	EQU 	3943
UFRML 	EQU 	3942
UIE 	EQU 	3945
UIR 	EQU 	3944
UOEMON 	EQU 	6
UPUEN 	EQU 	4
URSTIE 	EQU 	0
URSTIF 	EQU 	0
USBEN 	EQU 	3
USBIE 	EQU 	5
USBIF 	EQU 	5
USBIP 	EQU 	5
USTAT 	EQU 	3948
UTEYE 	EQU 	7
UTRDIS 	EQU 	3
VCFG0 	EQU 	4
VCFG1 	EQU 	5
VDIRMAG 	EQU 	7
VREFM 	EQU 	2
VREFP 	EQU 	3
W 	EQU 	0
WCOL 	EQU 	7
WDTCON 	EQU 	4049
WR 	EQU 	1
WREG 	EQU 	4072
WREN 	EQU 	2
WRERR 	EQU 	3
WRSPP 	EQU 	6
WS0 	EQU 	0
WS1 	EQU 	1
WS2 	EQU 	2
WS3 	EQU 	3
WUE 	EQU 	1
Z 	EQU 	2

Code:
Loc	Obj Code	Original Assembly











000000	EF06 F000	GOTO BASPROGRAMSTART

000008	0010	RETFIE



		BASPROGRAMSTART
00000C	D878	RCALL INITSYS
00000E	D822	RCALL HI2CINIT

000010	8093	BSF TRISB,0,ACCESS
000012	8293	BSF TRISB,1,ACCESS
000014	0E0C	MOVLW 12
000016	6E06	MOVWF HI2CCURRENTMODE,ACCESS
000018	D81F	RCALL HI2CMODE
		SYSDOLOOP_S1
00001A	D886	RCALL SENDT
00001C	0E03	MOVLW 3
00001E	6E04	MOVWF SYSWAITTEMPS,ACCESS
000020	D811	RCALL DELAY_S
000022	D7FB	BRA SYSDOLOOP_S1
		SYSDOLOOP_E1
		BASPROGRAMEND
000024	0003	SLEEP
000026	D7FE	BRA BASPROGRAMEND


		DELAY_MS
000028	2A03	INCF SYSWAITTEMPMS_H, F,ACCESS
		DMS_START
00002A	0E04	MOVLW 4
00002C	6E01	MOVWF DELAYTEMP2,ACCESS
		DMS_OUTER
00002E	0EA5	MOVLW 165
000030	6E00	MOVWF DELAYTEMP,ACCESS
		DMS_INNER
000032	2E00	DECFSZ DELAYTEMP, F,ACCESS
000034	D7FE	BRA DMS_INNER
000036	2E01	DECFSZ DELAYTEMP2, F,ACCESS
000038	D7FA	BRA DMS_OUTER
00003A	2E02	DECFSZ SYSWAITTEMPMS, F,ACCESS
00003C	D7F6	BRA DMS_START
00003E	2E03	DECFSZ SYSWAITTEMPMS_H, F,ACCESS
000040	D7F4	BRA DMS_START
000042	0012	RETURN


		DELAY_S
		DS_START
000044	0EE8	MOVLW 232
000046	6E02	MOVWF SYSWAITTEMPMS,ACCESS
000048	0E03	MOVLW 3
00004A	6E03	MOVWF SYSWAITTEMPMS_H,ACCESS
00004C	DFED	RCALL DELAY_MS
00004E	2E04	DECFSZ SYSWAITTEMPS, F,ACCESS
000050	D7F9	BRA DS_START
000052	0012	RETURN


		HI2CINIT
000054	6A06	CLRF HI2CCURRENTMODE,ACCESS
000056	0012	RETURN


		HI2CMODE
000058	8EC7	BSF SSPSTAT,SMP,ACCESS
00005A	88C6	BSF SSPCON1,CKP,ACCESS
00005C	9EC6	BCF SSPCON1,WCOL,ACCESS
00005E	0E0C	MOVLW 12
000060	5C06	SUBWF HI2CCURRENTMODE,W,ACCESS
000062	A4D8	BTFSS STATUS, Z,ACCESS
000064	D006	BRA ENDIF18
000066	86C6	BSF SSPCON1,SSPM3,ACCESS
000068	94C6	BCF SSPCON1,SSPM2,ACCESS
00006A	92C6	BCF SSPCON1,SSPM1,ACCESS
00006C	90C6	BCF SSPCON1,SSPM0,ACCESS
00006E	0E13	MOVLW 19
000070	6EC8	MOVWF SSPADD,ACCESS
		ENDIF18
000072	5206	MOVF HI2CCURRENTMODE,F,ACCESS
000074	A4D8	BTFSS STATUS, Z,ACCESS
000076	D004	BRA ENDIF19
000078	96C6	BCF SSPCON1,SSPM3,ACCESS
00007A	84C6	BSF SSPCON1,SSPM2,ACCESS
00007C	82C6	BSF SSPCON1,SSPM1,ACCESS
00007E	90C6	BCF SSPCON1,SSPM0,ACCESS
		ENDIF19
000080	0E03	MOVLW 3
000082	5C06	SUBWF HI2CCURRENTMODE,W,ACCESS
000084	A4D8	BTFSS STATUS, Z,ACCESS
000086	D004	BRA ENDIF20
000088	96C6	BCF SSPCON1,SSPM3,ACCESS
00008A	84C6	BSF SSPCON1,SSPM2,ACCESS
00008C	82C6	BSF SSPCON1,SSPM1,ACCESS
00008E	80C6	BSF SSPCON1,SSPM0,ACCESS
		ENDIF20
000090	8AC6	BSF SSPCON1,SSPEN,ACCESS
000092	0012	RETURN


		HI2CSEND
		RETRYHI2CSEND
000094	9EC6	BCF SSPCON1,WCOL,ACCESS
000096	C009 FFC9	MOVFF I2CBYTE,SSPBUF
00009A	D827	RCALL HI2CWAITMSSP
00009C	ACC5	BTFSS SSPCON2,ACKSTAT,ACCESS
00009E	D002	BRA ELSE23_1
0000A0	6805	SETF HI2CACKPOLLSTATE,ACCESS
0000A2	D001	BRA ENDIF23
		ELSE23_1
0000A4	6A05	CLRF HI2CACKPOLLSTATE,ACCESS
		ENDIF23
0000A6	AEC6	BTFSS SSPCON1,WCOL,ACCESS
0000A8	D004	BRA ENDIF24
0000AA	5006	MOVF HI2CCURRENTMODE,W,ACCESS
0000AC	080A	SUBLW 10
0000AE	B0D8	BTFSC STATUS, C,ACCESS
0000B0	D7F1	BRA RETRYHI2CSEND
		ENDIF24
0000B2	5006	MOVF HI2CCURRENTMODE,W,ACCESS
0000B4	080A	SUBLW 10
0000B6	B0D8	BTFSC STATUS, C,ACCESS
0000B8	88C6	BSF SSPCON1,CKP,ACCESS
0000BA	0012	RETURN


		HI2CSTART
0000BC	5006	MOVF HI2CCURRENTMODE,W,ACCESS
0000BE	080A	SUBLW 10
0000C0	B0D8	BTFSC STATUS, C,ACCESS
0000C2	D003	BRA ELSE21_1
0000C4	80C5	BSF SSPCON2,SEN,ACCESS
0000C6	D811	RCALL HI2CWAITMSSP
0000C8	D002	BRA ENDIF21
		ELSE21_1
		SYSWAITLOOP1
0000CA	A6C7	BTFSS SSPSTAT,S,ACCESS
0000CC	D7FE	BRA SYSWAITLOOP1
		ENDIF21
0000CE	0012	RETURN


		HI2CSTOP
0000D0	5006	MOVF HI2CCURRENTMODE,W,ACCESS
0000D2	080A	SUBLW 10
0000D4	B0D8	BTFSC STATUS, C,ACCESS
0000D6	D006	BRA ELSE22_1
		SYSWAITLOOP2
0000D8	B4C7	BTFSC SSPSTAT,R_NOT_W,ACCESS
0000DA	D7FE	BRA SYSWAITLOOP2
0000DC	84C5	BSF SSPCON2,PEN,ACCESS
0000DE	84C5	BSF SSPCON2,PEN,ACCESS
0000E0	D804	RCALL HI2CWAITMSSP
0000E2	D002	BRA ENDIF22
		ELSE22_1
		SYSWAITLOOP3
0000E4	A8C7	BTFSS SSPSTAT,P,ACCESS
0000E6	D7FE	BRA SYSWAITLOOP3
		ENDIF22
0000E8	0012	RETURN


		HI2CWAITMSSP
0000EA	6A07	CLRF HI2CWAITMSSPTIMEOUT,ACCESS
		HI2CWAITMSSPWAIT
0000EC	2A07	INCF HI2CWAITMSSPTIMEOUT,F,ACCESS
0000EE	0EFF	MOVLW 255
0000F0	5C07	SUBWF HI2CWAITMSSPTIMEOUT,W,ACCESS
0000F2	B0D8	BTFSC STATUS, C,ACCESS
0000F4	D003	BRA ENDIF27
0000F6	A69E	BTFSS PIR1,SSPIF,ACCESS
0000F8	D7F9	BRA HI2CWAITMSSPWAIT
0000FA	969E	BCF PIR1,SSPIF,ACCESS
		ENDIF27
0000FC	0012	RETURN


		INITSYS
0000FE	0E8F	MOVLW 143
000100	16D3	ANDWF OSCCON,F,ACCESS
000102	8CD3	BSF OSCCON,IRCF2,ACCESS
000104	8AD3	BSF OSCCON,IRCF1,ACCESS
000106	88D3	BSF OSCCON,IRCF0,ACCESS
000108	6AE0	CLRF BSR,ACCESS
00010A	6AF8	CLRF TBLPTRU,ACCESS
00010C	9EC0	BCF ADCON2,ADFM,ACCESS
00010E	90C2	BCF ADCON0,ADON,ACCESS
000110	86C1	BSF ADCON1,PCFG3,ACCESS
000112	84C1	BSF ADCON1,PCFG2,ACCESS
000114	82C1	BSF ADCON1,PCFG1,ACCESS
000116	80C1	BSF ADCON1,PCFG0,ACCESS
000118	0E07	MOVLW 7
00011A	6EB4	MOVWF CMCON,ACCESS
00011C	6A80	CLRF PORTA,ACCESS
00011E	6A81	CLRF PORTB,ACCESS
000120	6A82	CLRF PORTC,ACCESS
000122	6A83	CLRF PORTD,ACCESS
000124	6A84	CLRF PORTE,ACCESS
000126	0012	RETURN


		SENDT
000128	DFC9	RCALL HI2CSTART
00012A	0E78	MOVLW 120
00012C	6E09	MOVWF I2CBYTE,ACCESS
00012E	DFB2	RCALL HI2CSEND
000130	6A09	CLRF I2CBYTE,ACCESS
000132	DFB0	RCALL HI2CSEND
000134	0EAE	MOVLW 174
000136	6E09	MOVWF I2CBYTE,ACCESS
000138	DFAD	RCALL HI2CSEND
00013A	0ED5	MOVLW 213
00013C	6E09	MOVWF I2CBYTE,ACCESS
00013E	DFAA	RCALL HI2CSEND
000140	0E80	MOVLW 128
000142	6E09	MOVWF I2CBYTE,ACCESS
000144	DFA7	RCALL HI2CSEND
000146	0EA8	MOVLW 168
000148	6E09	MOVWF I2CBYTE,ACCESS
00014A	DFA4	RCALL HI2CSEND
00014C	DFC1	RCALL HI2CSTOP
00014E	DFB6	RCALL HI2CSTART
000150	0E78	MOVLW 120
000152	6E09	MOVWF I2CBYTE,ACCESS
000154	DF9F	RCALL HI2CSEND
000156	6A09	CLRF I2CBYTE,ACCESS
000158	DF9D	RCALL HI2CSEND
00015A	0E1F	MOVLW 31
00015C	6E09	MOVWF I2CBYTE,ACCESS
00015E	DF9A	RCALL HI2CSEND
000160	DFB7	RCALL HI2CSTOP
000162	DFAC	RCALL HI2CSTART
000164	0E78	MOVLW 120
000166	6E09	MOVWF I2CBYTE,ACCESS
000168	DF95	RCALL HI2CSEND
00016A	6A09	CLRF I2CBYTE,ACCESS
00016C	DF93	RCALL HI2CSEND
00016E	0ED3	MOVLW 211
000170	6E09	MOVWF I2CBYTE,ACCESS
000172	DF90	RCALL HI2CSEND
000174	6A09	CLRF I2CBYTE,ACCESS
000176	DF8E	RCALL HI2CSEND
000178	0E40	MOVLW 64
00017A	6E09	MOVWF I2CBYTE,ACCESS
00017C	DF8B	RCALL HI2CSEND
00017E	0E8D	MOVLW 141
000180	6E09	MOVWF I2CBYTE,ACCESS
000182	DF88	RCALL HI2CSEND
000184	DFA5	RCALL HI2CSTOP
000186	DF9A	RCALL HI2CSTART
000188	0E78	MOVLW 120
00018A	6E09	MOVWF I2CBYTE,ACCESS
00018C	DF83	RCALL HI2CSEND
00018E	6A09	CLRF I2CBYTE,ACCESS
000190	DF81	RCALL HI2CSEND
000192	0E14	MOVLW 20
000194	6E09	MOVWF I2CBYTE,ACCESS
000196	DF7E	RCALL HI2CSEND
000198	DF9B	RCALL HI2CSTOP
00019A	DF90	RCALL HI2CSTART
00019C	0E78	MOVLW 120
00019E	6E09	MOVWF I2CBYTE,ACCESS
0001A0	DF79	RCALL HI2CSEND
0001A2	6A09	CLRF I2CBYTE,ACCESS
0001A4	DF77	RCALL HI2CSEND
0001A6	0E20	MOVLW 32
0001A8	6E09	MOVWF I2CBYTE,ACCESS
0001AA	DF74	RCALL HI2CSEND
0001AC	6A09	CLRF I2CBYTE,ACCESS
0001AE	DF72	RCALL HI2CSEND
0001B0	0EA1	MOVLW 161
0001B2	6E09	MOVWF I2CBYTE,ACCESS
0001B4	DF6F	RCALL HI2CSEND
0001B6	0EC8	MOVLW 200
0001B8	6E09	MOVWF I2CBYTE,ACCESS
0001BA	DF6C	RCALL HI2CSEND
0001BC	DF89	RCALL HI2CSTOP
0001BE	DF7E	RCALL HI2CSTART
0001C0	0E78	MOVLW 120
0001C2	6E09	MOVWF I2CBYTE,ACCESS
0001C4	DF67	RCALL HI2CSEND
0001C6	6A09	CLRF I2CBYTE,ACCESS
0001C8	DF65	RCALL HI2CSEND
0001CA	0EDA	MOVLW 218
0001CC	6E09	MOVWF I2CBYTE,ACCESS
0001CE	DF62	RCALL HI2CSEND
0001D0	DF7F	RCALL HI2CSTOP
0001D2	DF74	RCALL HI2CSTART
0001D4	0E78	MOVLW 120
0001D6	6E09	MOVWF I2CBYTE,ACCESS
0001D8	DF5D	RCALL HI2CSEND
0001DA	6A09	CLRF I2CBYTE,ACCESS
0001DC	DF5B	RCALL HI2CSEND
0001DE	0E02	MOVLW 2
0001E0	6E09	MOVWF I2CBYTE,ACCESS
0001E2	DF58	RCALL HI2CSEND
0001E4	DF75	RCALL HI2CSTOP
0001E6	DF6A	RCALL HI2CSTART
0001E8	0E78	MOVLW 120
0001EA	6E09	MOVWF I2CBYTE,ACCESS
0001EC	DF53	RCALL HI2CSEND
0001EE	6A09	CLRF I2CBYTE,ACCESS
0001F0	DF51	RCALL HI2CSEND
0001F2	0E81	MOVLW 129
0001F4	6E09	MOVWF I2CBYTE,ACCESS
0001F6	DF4E	RCALL HI2CSEND
0001F8	DF6B	RCALL HI2CSTOP
0001FA	DF60	RCALL HI2CSTART
0001FC	0E78	MOVLW 120
0001FE	6E09	MOVWF I2CBYTE,ACCESS
000200	DF49	RCALL HI2CSEND
000202	6A09	CLRF I2CBYTE,ACCESS
000204	DF47	RCALL HI2CSEND
000206	0E8F	MOVLW 143
000208	6E09	MOVWF I2CBYTE,ACCESS
00020A	DF44	RCALL HI2CSEND
00020C	DF61	RCALL HI2CSTOP
00020E	DF56	RCALL HI2CSTART
000210	0E78	MOVLW 120
000212	6E09	MOVWF I2CBYTE,ACCESS
000214	DF3F	RCALL HI2CSEND
000216	6A09	CLRF I2CBYTE,ACCESS
000218	DF3D	RCALL HI2CSEND
00021A	0ED9	MOVLW 217
00021C	6E09	MOVWF I2CBYTE,ACCESS
00021E	DF3A	RCALL HI2CSEND
000220	DF57	RCALL HI2CSTOP
000222	DF4C	RCALL HI2CSTART
000224	0E78	MOVLW 120
000226	6E09	MOVWF I2CBYTE,ACCESS
000228	DF35	RCALL HI2CSEND
00022A	6A09	CLRF I2CBYTE,ACCESS
00022C	DF33	RCALL HI2CSEND
00022E	0EF1	MOVLW 241
000230	6E09	MOVWF I2CBYTE,ACCESS
000232	DF30	RCALL HI2CSEND
000234	DF4D	RCALL HI2CSTOP
000236	DF42	RCALL HI2CSTART
000238	0E78	MOVLW 120
00023A	6E09	MOVWF I2CBYTE,ACCESS
00023C	DF2B	RCALL HI2CSEND
00023E	6A09	CLRF I2CBYTE,ACCESS
000240	DF29	RCALL HI2CSEND
000242	0EDB	MOVLW 219
000244	6E09	MOVWF I2CBYTE,ACCESS
000246	DF26	RCALL HI2CSEND
000248	0E40	MOVLW 64
00024A	6E09	MOVWF I2CBYTE,ACCESS
00024C	DF23	RCALL HI2CSEND
00024E	0EA4	MOVLW 164
000250	6E09	MOVWF I2CBYTE,ACCESS
000252	DF20	RCALL HI2CSEND
000254	0EA6	MOVLW 166
000256	6E09	MOVWF I2CBYTE,ACCESS
000258	DF1D	RCALL HI2CSEND
00025A	0E2E	MOVLW 46
00025C	6E09	MOVWF I2CBYTE,ACCESS
00025E	DF1A	RCALL HI2CSEND
000260	0EAF	MOVLW 175
000262	6E09	MOVWF I2CBYTE,ACCESS
000264	DF17	RCALL HI2CSEND
000266	DF34	RCALL HI2CSTOP
000268	DF29	RCALL HI2CSTART
00026A	0E78	MOVLW 120
00026C	6E09	MOVWF I2CBYTE,ACCESS
00026E	DF12	RCALL HI2CSEND
000270	6A09	CLRF I2CBYTE,ACCESS
000272	DF10	RCALL HI2CSEND
000274	0E22	MOVLW 34
000276	6E09	MOVWF I2CBYTE,ACCESS
000278	DF0D	RCALL HI2CSEND
00027A	6A09	CLRF I2CBYTE,ACCESS
00027C	DF0B	RCALL HI2CSEND
00027E	6809	SETF I2CBYTE,ACCESS
000280	DF09	RCALL HI2CSEND
000282	0E21	MOVLW 33
000284	6E09	MOVWF I2CBYTE,ACCESS
000286	DF06	RCALL HI2CSEND
000288	6A09	CLRF I2CBYTE,ACCESS
00028A	DF04	RCALL HI2CSEND
00028C	DF21	RCALL HI2CSTOP
00028E	DF16	RCALL HI2CSTART
000290	0E78	MOVLW 120
000292	6E09	MOVWF I2CBYTE,ACCESS
000294	DEFF	RCALL HI2CSEND
000296	6A09	CLRF I2CBYTE,ACCESS
000298	DEFD	RCALL HI2CSEND
00029A	0E7F	MOVLW 127
00029C	6E09	MOVWF I2CBYTE,ACCESS
00029E	DEFA	RCALL HI2CSEND
0002A0	DF17	RCALL HI2CSTOP
0002A2	DF0C	RCALL HI2CSTART
0002A4	0E78	MOVLW 120
0002A6	6E09	MOVWF I2CBYTE,ACCESS
0002A8	DEF5	RCALL HI2CSEND
0002AA	0E40	MOVLW 64
0002AC	6E09	MOVWF I2CBYTE,ACCESS
0002AE	DEF2	RCALL HI2CSEND
0002B0	0E03	MOVLW 3
0002B2	6E09	MOVWF I2CBYTE,ACCESS
0002B4	DEEF	RCALL HI2CSEND
0002B6	0E01	MOVLW 1
0002B8	6E09	MOVWF I2CBYTE,ACCESS
0002BA	DEEC	RCALL HI2CSEND
0002BC	0E7F	MOVLW 127
0002BE	6E09	MOVWF I2CBYTE,ACCESS
0002C0	DEE9	RCALL HI2CSEND
0002C2	0E01	MOVLW 1
0002C4	6E09	MOVWF I2CBYTE,ACCESS
0002C6	DEE6	RCALL HI2CSEND
0002C8	0E03	MOVLW 3
0002CA	6E09	MOVWF I2CBYTE,ACCESS
0002CC	DEE3	RCALL HI2CSEND
0002CE	6A08	CLRF I,ACCESS
		SYSFORLOOP1
0002D0	2A08	INCF I,F,ACCESS
0002D2	6A09	CLRF I2CBYTE,ACCESS
0002D4	DEDF	RCALL HI2CSEND
0002D6	0E1A	MOVLW 26
0002D8	5C08	SUBWF I,W,ACCESS
0002DA	A0D8	BTFSS STATUS, C,ACCESS
0002DC	D7F9	BRA SYSFORLOOP1
		SYSFORLOOPEND1
0002DE	DEF8	RCALL HI2CSTOP
0002E0	DEED	RCALL HI2CSTART
0002E2	0E78	MOVLW 120
0002E4	6E09	MOVWF I2CBYTE,ACCESS
0002E6	DED6	RCALL HI2CSEND
0002E8	0E40	MOVLW 64
0002EA	6E09	MOVWF I2CBYTE,ACCESS
0002EC	DED3	RCALL HI2CSEND
0002EE	6A08	CLRF I,ACCESS
		SYSFORLOOP2
0002F0	2A08	INCF I,F,ACCESS
0002F2	6A09	CLRF I2CBYTE,ACCESS
0002F4	DECF	RCALL HI2CSEND
0002F6	0E1F	MOVLW 31
0002F8	5C08	SUBWF I,W,ACCESS
0002FA	A0D8	BTFSS STATUS, C,ACCESS
0002FC	D7F9	BRA SYSFORLOOP2
		SYSFORLOOPEND2
0002FE	DEE8	RCALL HI2CSTOP
000300	DEDD	RCALL HI2CSTART
000302	0E78	MOVLW 120
000304	6E09	MOVWF I2CBYTE,ACCESS
000306	DEC6	RCALL HI2CSEND
000308	0E40	MOVLW 64
00030A	6E09	MOVWF I2CBYTE,ACCESS
00030C	DEC3	RCALL HI2CSEND
00030E	6A08	CLRF I,ACCESS
		SYSFORLOOP3
000310	2A08	INCF I,F,ACCESS
000312	6A09	CLRF I2CBYTE,ACCESS
000314	DEBF	RCALL HI2CSEND
000316	0E1F	MOVLW 31
000318	5C08	SUBWF I,W,ACCESS
00031A	A0D8	BTFSS STATUS, C,ACCESS
00031C	D7F9	BRA SYSFORLOOP3
		SYSFORLOOPEND3
00031E	DED8	RCALL HI2CSTOP
000320	DECD	RCALL HI2CSTART
000322	0E78	MOVLW 120
000324	6E09	MOVWF I2CBYTE,ACCESS
000326	DEB6	RCALL HI2CSEND
000328	0E40	MOVLW 64
00032A	6E09	MOVWF I2CBYTE,ACCESS
00032C	DEB3	RCALL HI2CSEND
00032E	6A08	CLRF I,ACCESS
		SYSFORLOOP4
000330	2A08	INCF I,F,ACCESS
000332	6A09	CLRF I2CBYTE,ACCESS
000334	DEAF	RCALL HI2CSEND
000336	0E1F	MOVLW 31
000338	5C08	SUBWF I,W,ACCESS
00033A	A0D8	BTFSS STATUS, C,ACCESS
00033C	D7F9	BRA SYSFORLOOP4
		SYSFORLOOPEND4
00033E	DEC8	RCALL HI2CSTOP
000340	DEBD	RCALL HI2CSTART
000342	0E78	MOVLW 120
000344	6E09	MOVWF I2CBYTE,ACCESS
000346	DEA6	RCALL HI2CSEND
000348	0E40	MOVLW 64
00034A	6E09	MOVWF I2CBYTE,ACCESS
00034C	DEA3	RCALL HI2CSEND
00034E	6A08	CLRF I,ACCESS
		SYSFORLOOP5
000350	2A08	INCF I,F,ACCESS
000352	6A09	CLRF I2CBYTE,ACCESS
000354	DE9F	RCALL HI2CSEND
000356	0E1F	MOVLW 31
000358	5C08	SUBWF I,W,ACCESS
00035A	A0D8	BTFSS STATUS, C,ACCESS
00035C	D7F9	BRA SYSFORLOOP5
		SYSFORLOOPEND5
00035E	DEB8	RCALL HI2CSTOP
000360	DEAD	RCALL HI2CSTART
000362	0E78	MOVLW 120
000364	6E09	MOVWF I2CBYTE,ACCESS
000366	DE96	RCALL HI2CSEND
000368	0E40	MOVLW 64
00036A	6E09	MOVWF I2CBYTE,ACCESS
00036C	DE93	RCALL HI2CSEND
00036E	6A08	CLRF I,ACCESS
		SYSFORLOOP6
000370	2A08	INCF I,F,ACCESS
000372	6A09	CLRF I2CBYTE,ACCESS
000374	DE8F	RCALL HI2CSEND
000376	0E1F	MOVLW 31
000378	5C08	SUBWF I,W,ACCESS
00037A	A0D8	BTFSS STATUS, C,ACCESS
00037C	D7F9	BRA SYSFORLOOP6
		SYSFORLOOPEND6
00037E	DEA8	RCALL HI2CSTOP
000380	DE9D	RCALL HI2CSTART
000382	0E78	MOVLW 120
000384	6E09	MOVWF I2CBYTE,ACCESS
000386	DE86	RCALL HI2CSEND
000388	0E40	MOVLW 64
00038A	6E09	MOVWF I2CBYTE,ACCESS
00038C	DE83	RCALL HI2CSEND
00038E	6A08	CLRF I,ACCESS
		SYSFORLOOP7
000390	2A08	INCF I,F,ACCESS
000392	6A09	CLRF I2CBYTE,ACCESS
000394	DE7F	RCALL HI2CSEND
000396	0E1F	MOVLW 31
000398	5C08	SUBWF I,W,ACCESS
00039A	A0D8	BTFSS STATUS, C,ACCESS
00039C	D7F9	BRA SYSFORLOOP7
		SYSFORLOOPEND7
00039E	DE98	RCALL HI2CSTOP
0003A0	DE8D	RCALL HI2CSTART
0003A2	0E78	MOVLW 120
0003A4	6E09	MOVWF I2CBYTE,ACCESS
0003A6	DE76	RCALL HI2CSEND
0003A8	0E40	MOVLW 64
0003AA	6E09	MOVWF I2CBYTE,ACCESS
0003AC	DE73	RCALL HI2CSEND
0003AE	6A08	CLRF I,ACCESS
		SYSFORLOOP8
0003B0	2A08	INCF I,F,ACCESS
0003B2	6A09	CLRF I2CBYTE,ACCESS
0003B4	DE6F	RCALL HI2CSEND
0003B6	0E1F	MOVLW 31
0003B8	5C08	SUBWF I,W,ACCESS
0003BA	A0D8	BTFSS STATUS, C,ACCESS
0003BC	D7F9	BRA SYSFORLOOP8
		SYSFORLOOPEND8
0003BE	DE88	RCALL HI2CSTOP
0003C0	DE7D	RCALL HI2CSTART
0003C2	0E78	MOVLW 120
0003C4	6E09	MOVWF I2CBYTE,ACCESS
0003C6	DE66	RCALL HI2CSEND
0003C8	0E40	MOVLW 64
0003CA	6E09	MOVWF I2CBYTE,ACCESS
0003CC	DE63	RCALL HI2CSEND
0003CE	6A08	CLRF I,ACCESS
		SYSFORLOOP9
0003D0	2A08	INCF I,F,ACCESS
0003D2	6A09	CLRF I2CBYTE,ACCESS
0003D4	DE5F	RCALL HI2CSEND
0003D6	0E1F	MOVLW 31
0003D8	5C08	SUBWF I,W,ACCESS
0003DA	A0D8	BTFSS STATUS, C,ACCESS
0003DC	D7F9	BRA SYSFORLOOP9
		SYSFORLOOPEND9
0003DE	DE78	RCALL HI2CSTOP
0003E0	DE6D	RCALL HI2CSTART
0003E2	0E78	MOVLW 120
0003E4	6E09	MOVWF I2CBYTE,ACCESS
0003E6	DE56	RCALL HI2CSEND
0003E8	0E40	MOVLW 64
0003EA	6E09	MOVWF I2CBYTE,ACCESS
0003EC	DE53	RCALL HI2CSEND
0003EE	6A08	CLRF I,ACCESS
		SYSFORLOOP10
0003F0	2A08	INCF I,F,ACCESS
0003F2	6A09	CLRF I2CBYTE,ACCESS
0003F4	DE4F	RCALL HI2CSEND
0003F6	0E1F	MOVLW 31
0003F8	5C08	SUBWF I,W,ACCESS
0003FA	A0D8	BTFSS STATUS, C,ACCESS
0003FC	D7F9	BRA SYSFORLOOP10
		SYSFORLOOPEND10
0003FE	DE68	RCALL HI2CSTOP
000400	DE5D	RCALL HI2CSTART
000402	0E78	MOVLW 120
000404	6E09	MOVWF I2CBYTE,ACCESS
000406	DE46	RCALL HI2CSEND
000408	0E40	MOVLW 64
00040A	6E09	MOVWF I2CBYTE,ACCESS
00040C	DE43	RCALL HI2CSEND
00040E	6A08	CLRF I,ACCESS
		SYSFORLOOP11
000410	2A08	INCF I,F,ACCESS
000412	6A09	CLRF I2CBYTE,ACCESS
000414	DE3F	RCALL HI2CSEND
000416	0E1F	MOVLW 31
000418	5C08	SUBWF I,W,ACCESS
00041A	A0D8	BTFSS STATUS, C,ACCESS
00041C	D7F9	BRA SYSFORLOOP11
		SYSFORLOOPEND11
00041E	DE58	RCALL HI2CSTOP
000420	DE4D	RCALL HI2CSTART
000422	0E78	MOVLW 120
000424	6E09	MOVWF I2CBYTE,ACCESS
000426	DE36	RCALL HI2CSEND
000428	0E40	MOVLW 64
00042A	6E09	MOVWF I2CBYTE,ACCESS
00042C	DE33	RCALL HI2CSEND
00042E	6A08	CLRF I,ACCESS
		SYSFORLOOP12
000430	2A08	INCF I,F,ACCESS
000432	6A09	CLRF I2CBYTE,ACCESS
000434	DE2F	RCALL HI2CSEND
000436	0E1F	MOVLW 31
000438	5C08	SUBWF I,W,ACCESS
00043A	A0D8	BTFSS STATUS, C,ACCESS
00043C	D7F9	BRA SYSFORLOOP12
		SYSFORLOOPEND12
00043E	DE48	RCALL HI2CSTOP
000440	DE3D	RCALL HI2CSTART
000442	0E78	MOVLW 120
000444	6E09	MOVWF I2CBYTE,ACCESS
000446	DE26	RCALL HI2CSEND
000448	0E40	MOVLW 64
00044A	6E09	MOVWF I2CBYTE,ACCESS
00044C	DE23	RCALL HI2CSEND
00044E	6A08	CLRF I,ACCESS
		SYSFORLOOP13
000450	2A08	INCF I,F,ACCESS
000452	6A09	CLRF I2CBYTE,ACCESS
000454	DE1F	RCALL HI2CSEND
000456	0E1F	MOVLW 31
000458	5C08	SUBWF I,W,ACCESS
00045A	A0D8	BTFSS STATUS, C,ACCESS
00045C	D7F9	BRA SYSFORLOOP13
		SYSFORLOOPEND13
00045E	DE38	RCALL HI2CSTOP
000460	DE2D	RCALL HI2CSTART
000462	0E78	MOVLW 120
000464	6E09	MOVWF I2CBYTE,ACCESS
000466	DE16	RCALL HI2CSEND
000468	0E40	MOVLW 64
00046A	6E09	MOVWF I2CBYTE,ACCESS
00046C	DE13	RCALL HI2CSEND
00046E	6A08	CLRF I,ACCESS
		SYSFORLOOP14
000470	2A08	INCF I,F,ACCESS
000472	6A09	CLRF I2CBYTE,ACCESS
000474	DE0F	RCALL HI2CSEND
000476	0E1F	MOVLW 31
000478	5C08	SUBWF I,W,ACCESS
00047A	A0D8	BTFSS STATUS, C,ACCESS
00047C	D7F9	BRA SYSFORLOOP14
		SYSFORLOOPEND14
00047E	DE28	RCALL HI2CSTOP
000480	DE1D	RCALL HI2CSTART
000482	0E78	MOVLW 120
000484	6E09	MOVWF I2CBYTE,ACCESS
000486	DE06	RCALL HI2CSEND
000488	0E40	MOVLW 64
00048A	6E09	MOVWF I2CBYTE,ACCESS
00048C	DE03	RCALL HI2CSEND
00048E	6A08	CLRF I,ACCESS
		SYSFORLOOP15
000490	2A08	INCF I,F,ACCESS
000492	6A09	CLRF I2CBYTE,ACCESS
000494	DDFF	RCALL HI2CSEND
000496	0E1F	MOVLW 31
000498	5C08	SUBWF I,W,ACCESS
00049A	A0D8	BTFSS STATUS, C,ACCESS
00049C	D7F9	BRA SYSFORLOOP15
		SYSFORLOOPEND15
00049E	DE18	RCALL HI2CSTOP
0004A0	DE0D	RCALL HI2CSTART
0004A2	0E78	MOVLW 120
0004A4	6E09	MOVWF I2CBYTE,ACCESS
0004A6	DDF6	RCALL HI2CSEND
0004A8	0E40	MOVLW 64
0004AA	6E09	MOVWF I2CBYTE,ACCESS
0004AC	DDF3	RCALL HI2CSEND
0004AE	6A08	CLRF I,ACCESS
		SYSFORLOOP16
0004B0	2A08	INCF I,F,ACCESS
0004B2	6A09	CLRF I2CBYTE,ACCESS
0004B4	DDEF	RCALL HI2CSEND
0004B6	0E1F	MOVLW 31
0004B8	5C08	SUBWF I,W,ACCESS
0004BA	A0D8	BTFSS STATUS, C,ACCESS
0004BC	D7F9	BRA SYSFORLOOP16
		SYSFORLOOPEND16
0004BE	DE08	RCALL HI2CSTOP
0004C0	DDFD	RCALL HI2CSTART
0004C2	0E78	MOVLW 120
0004C4	6E09	MOVWF I2CBYTE,ACCESS
0004C6	DDE6	RCALL HI2CSEND
0004C8	0E40	MOVLW 64
0004CA	6E09	MOVWF I2CBYTE,ACCESS
0004CC	DDE3	RCALL HI2CSEND
0004CE	6A08	CLRF I,ACCESS
		SYSFORLOOP17
0004D0	2A08	INCF I,F,ACCESS
0004D2	6A09	CLRF I2CBYTE,ACCESS
0004D4	DDDF	RCALL HI2CSEND
0004D6	0E14	MOVLW 20
0004D8	5C08	SUBWF I,W,ACCESS
0004DA	A0D8	BTFSS STATUS, C,ACCESS
0004DC	D7F9	BRA SYSFORLOOP17
		SYSFORLOOPEND17
0004DE	D5F8	BRA HI2CSTOP

<!DOCTYPE html>
<html>
<head>
<title>Compilation Report</title>
</head>
<body>
<h1>Compilation Report</h1>
<p>Compiler Version (YYYY-MM-DD): 1.00.00 2023-05-31 (Windows 64 bit) : Build 1249</p><p>Finding Great Cow BASIC useful ? Please goto to https://sourceforge.net/projects/gcbasic/reviews/new?stars=5 and provide feedback to share your experience.</p>
<h2>Compilation time</h2>
<p> (Compile time: 1.816406 seconds)</p>
<p> (Assembly time: 0.046875 seconds)</p>
<p> (Download time: 0 seconds)</p>
<p> (Total time: 1.863281 seconds)</p>
<h2>Chip resource usage:</h2>
<p>Chip Model: 18F4550</p>
<p>Program Memory: 845/16384 words (5.16%)</p>
<p>RAM: 5/2048 bytes (.24%)</p>
<p> OSC: INTOSCIO_EC, 8Mhz (Internal oscillator)</p>
<h2>RAM Allocation</h2>
<table border="1">
</table>
<h2>Subroutines</h2>
<table border="1">
<tr><th>Name</th><th>Code Size (lines)</th><th>Compiled Size (words)</th><th>Outgoing calls</th></tr>
<tr><td>Main</td><td>15</td><td>21</td><td>HI2CINIT(1), Delay_S(1), SENDT(1), HI2CMODE(1), INITSYS(35)</td></tr>
<tr><td>SENDT</td><td>212</td><td>671</td><td>HI2CSTOP(31), HI2CSEND(116), HI2CSTART(31)</td></tr>
<tr><td>INITSYS</td><td>895</td><td>21</td><td></td></tr>
<tr><td>HI2CMODE</td><td>27</td><td>33</td><td></td></tr>
<tr><td>HI2CSTART</td><td>22</td><td>14</td><td>HI2CWAITMSSP(1)</td></tr>
<tr><td>HI2CSTOP</td><td>14</td><td>18</td><td>HI2CWAITMSSP(1)</td></tr>
<tr><td>HI2CSEND</td><td>19</td><td>25</td><td>HI2CWAITMSSP(1)</td></tr>
<tr><td>HI2CWAITMSSP</td><td>20</td><td>12</td><td></td></tr>
<tr><td>HI2CINIT</td><td>4</td><td>2</td><td></td></tr>
<tr><td>Delay_MS</td><td>0</td><td>18</td><td></td></tr>
<tr><td>Delay_S</td><td>0</td><td>10</td><td>Delay_MS(1)</td></tr>
</table>
</body>
</html>