mk2: code_part1/OSTC_code_asm_part1/i2c

annotate code_part1/OSTC_code_asm_part1/i2c_eeprom.asm @ 425:a76c5a3e9e96

Minor cleanups

author	JeanDo
date	Sun, 31 Jul 2011 13:27:20 +0200
parents	7250ca7c8d24
children	c512a868937c

rev	line source
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	2 ; OSTC - diving computer code
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	3 ; Copyright (C) 2008 HeinrichsWeikamp GbR
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	4 ; This program is free software: you can redistribute it and/or modify
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	5 ; it under the terms of the GNU General Public License as published by
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	6 ; the Free Software Foundation, either version 3 of the License, or
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	7 ; (at your option) any later version.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	8 ; This program is distributed in the hope that it will be useful,
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	9 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	10 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	11 ; GNU General Public License for more details.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	12 ; You should have received a copy of the GNU General Public License
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	13 ; along with this program. If not, see <http://www.gnu.org/licenses/>.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	14 ; provides routines for external EEPROM via I2C
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	15 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	16 ; written: 10/30/05
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	17 ; last updated: 08/21/06
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	18 ; known bugs:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	19 ; ToDo: use 2nd 32KB from external EEPROM for something
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	20
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	21 incf_eeprom_address macro ext_ee_temp1 ; Will increase eeprom_address:2 with the 8Bit value "ext_ee_temp1"
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	22 movlw ext_ee_temp1
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	23 call incf_eeprom_address0
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	24 endm
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	25
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	26 incf_eeprom_address0:
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	27 addwf eeprom_address+0,F ; increase address
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	28 movlw d'0'
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	29 addwfc eeprom_address+1,F
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	30 return
425 a76c5a3e9e96 Minor cleanups JeanDo parents: 350 diff changeset	31
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	32 ;=============================================================================
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	33 ; Will decrease eeprom_address:2 with the 8Bit value "ext_ee_temp1"
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	34
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	35
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	36 decf_eeprom_address macro ext_ee_temp1
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	37 movlw ext_ee_temp1
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	38 call decf_eeprom_address0
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	39 endm
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	40
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	41 decf_eeprom_address0:
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	42 subwf eeprom_address+0,F ; decrease address: do a 16-8bits substract.
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	43 movlw d'0'
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	44 subwfb eeprom_address+1,F
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	45 return
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	46
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 83 diff changeset	47 ;=============================================================================
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	48
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	49 write_external_eeprom: ; data in WREG
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	50 ; increase address eeprom_address+0:eeprom_address+1 after write
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	51 ; with banking after 7FFF
81 31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	52 #ifdef TESTING
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	53 ; When Simulating with MPLabSIM, there is no way to emulate external EEPROM...
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	54 return
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	55 #endif
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	56
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	57 rcall I2CWRITE ; writes WREG into EEPROM@eeprom_address
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	58 movlw d'1' ; increase address
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	59 addwf eeprom_address+0,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	60 movlw d'0'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	61 addwfc eeprom_address+1,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	62 return
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	63 ; btfss eeprom_address+1,7 ; at address 8000?
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	64 ; return ; no, return
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	65 ;
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	66 ; clrf eeprom_address+0 ; Clear eeprom address
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	67 ; clrf eeprom_address+1
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	68 ; return
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	69 ;
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	70 write_external_eeprom_block: ; Writes a block of 64Byte (one page in external EEPROM without stop condition
81 31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	71 #ifdef TESTING
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	72 ; When Simulating with MPLabSIM, there is no way to emulate external EEPROM...
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	73 return
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	74 #endif
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	75
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	76 btfsc eeprom_blockwrite ; Blockwrite continue?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	77 rcall I2CWRITE_BLOCK2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	78 btfss eeprom_blockwrite ; Blockwrite start?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	79 rcall I2CWRITE_BLOCK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	80 bsf eeprom_blockwrite ; After the start, do blockwriting for the next 63Bytes!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	81
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	82 movlw d'0' ; increase address
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	83 incf eeprom_address+0,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	84 addwfc eeprom_address+1,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	85 return
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	86
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	87 ; btfss eeprom_address+1,7 ; at address 8000
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	88 ; return ; no, return
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	89 ;
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	90 ; clrf eeprom_address+0 ; Clear eeprom address
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	91 ; clrf eeprom_address+1
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	92 ; return
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	93 I2CWRITE_BLOCK:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	94 movwf ext_ee_temp1 ; Data byte in WREG
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	95 bsf SSPCON2,SEN ; Start condition
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	96 rcall WaitMSSP
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	97 movlw b'10101110' ; Bit0=0: WRITE, Bit0=1: READ, BLOCK2
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	98 btfss eeprom_address+1,7 ; Access Block2?
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	99 movlw b'10100110' ; No, -> Bit0=0: WRITE, Bit0=1: READ, BLOCK1
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	100 movwf SSPBUF ; control byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	101 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	102 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	103 movff eeprom_address+1,SSPBUF ; High Address byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	104 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	105 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	106 movff eeprom_address+0,SSPBUF ; Low Address byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	107 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	108 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	109 I2CWRITE_BLOCK2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	110 movff ext_ee_temp1, SSPBUF ; Data Byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	111 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	112 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	113 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	114
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	115
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	116 get_free_EEPROM_location: ; Searches 0xFD, 0xFD, 0xFE and sets Pointer to 0xFE
81 31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	117
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	118 #ifdef TESTING
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	119 ; In testing mode, find 0x100 (internal EEPROM) as the first free location...
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	120 clrf eeprom_address+0 ; Not found in entire EEPROM, set to address 0
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	121 movlw 0x1
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	122 movwf eeprom_address+1
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	123 return
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	124 #endif
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator. JeanDo parents: 53 diff changeset	125
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	126 clrf ext_ee_temp1 ; low address counter
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	127 clrf ext_ee_temp2 ; high address counter
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	128 bcf second_FD ; clear flags
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	129 bcf first_FD
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	130 get_free_EEPROM_location3:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	131 bsf SSPCON2, PEN ; Stop condition
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	132 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	133 bsf SSPCON2,SEN ; Start condition
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	134 rcall WaitMSSP
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	135 movlw b'10101110' ; Bit0=0: WRITE, Bit0=1: READ, BLOCK2
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	136 btfss ext_ee_temp2,7 ; Access Block2?
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	137 movlw b'10100110' ; No, -> Bit0=0: WRITE, Bit0=1: READ, BLOCK1
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	138 movwf SSPBUF ; control byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	139 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	140 btfsc SSPCON2,ACKSTAT
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	141 bra get_free_EEPROM_location3 ; EEPROM NOT acknowledged, retry!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	142
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	143 movff ext_ee_temp2,SSPBUF ; High Address byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	144 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	145 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	146 movff ext_ee_temp1,SSPBUF ; Low Address byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	147 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	148 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	149
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	150 bsf SSPCON2,RSEN ; Start condition
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	151 rcall WaitMSSP
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	152 movlw b'10101111' ; Bit0=0: WRITE, Bit0=1: READ, BLOCK2
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	153 btfss ext_ee_temp2,7 ; Access Block2?
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	154 movlw b'10100111' ; No, -> Bit0=0: WRITE, Bit0=1: READ, BLOCK1
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	155 movwf SSPBUF ; control byte
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	156 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	157 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	158
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	159 get_free_EEPROM_location2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	160 bsf SSPCON2, RCEN ; Enable recieve mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	161 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	162 btfsc first_FD
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	163 bra test_2nd_FD
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	164 bsf first_FD ; found first 0xFD?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	165 movlw 0xFD
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	166 cpfseq SSPBUF
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	167 bcf first_FD ; No
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	168 bra get_free_EEPROM_location2c
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	169
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	170 test_2nd_FD:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	171 btfsc second_FD
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	172 bra test_FE
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	173 bsf second_FD ; found second 0xFD?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	174 movlw 0xFD
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	175 cpfseq SSPBUF
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	176 bra get_free_EEPROM_location2b ;No, clear both flags
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	177 bra get_free_EEPROM_location2c
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	178 test_FE:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	179 movlw 0xFE ; found the final 0xFE?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	180 cpfseq SSPBUF
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	181 bra get_free_EEPROM_location2b ;No, clear both flags
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	182 movff ext_ee_temp1,eeprom_address+0 ;Yes, copy ext_ee_temp1->eeprom_address+0 and
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	183 movff ext_ee_temp2,eeprom_address+1 ;ext_ee_temp2->eeprom_address+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	184 bra get_free_EEPROM_location4 ; Done.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	185
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	186 get_free_EEPROM_location2b:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	187 bcf second_FD ; clear both flags!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	188 bcf first_FD
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	189 get_free_EEPROM_location2c:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	190 movlw d'1' ; and increase search address
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	191 addwf ext_ee_temp1,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	192 movlw d'0'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	193 addwfc ext_ee_temp2,F
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	194
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	195 movlw 0xFF
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	196 cpfseq ext_ee_temp2 ; =0xFFFF
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	197 bra get_free_EEPROM_location2d ; No
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	198 cpfseq ext_ee_temp1 ; =0xFFFF
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	199 bra get_free_EEPROM_location2d ; No
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	200
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	201 bra get_free_EEPROM_location3b ; yes
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	202
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	203 get_free_EEPROM_location2d:
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	204 bsf SSPCON2, ACKEN ; no, send Ack
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	205 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	206 bra get_free_EEPROM_location2 ; and continue search
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	207 get_free_EEPROM_location3b:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	208 clrf eeprom_address+0 ; Not found in entire EEPROM, set to address 0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	209 clrf eeprom_address+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	210 get_free_EEPROM_location4:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	211 bsf SSPCON2, PEN ; Stop
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	212 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	213
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	214 bcf second_FD ; clear flags
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	215 bcf first_FD
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	216 return ; return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	217
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	218
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	219 I2CREAD:
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	220 rcall I2CREAD_COMMON
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	221 bsf SSPCON2, PEN ; Stop
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	222 rcall WaitMSSP
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	223 return
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	224
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	225 I2CREAD2: ; same as I2CREAD but with automatic address increase
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	226 rcall I2CREAD
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	227 I2CREAD2_2:
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	228 movlw d'1'
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	229 addwf eeprom_address+0,F
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	230 movlw d'0'
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	231 addwfc eeprom_address+1,F
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	232 return
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	233 ; btfss eeprom_address+1,7 ; at 0x8000?
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	234 ; return ; no, return
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	235 ;
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	236 ; clrf eeprom_address+0 ; Yes, clear address
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	237 ; clrf eeprom_address+1
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	238 ; return
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	239 ;
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	240 I2CREAD3: ; block read start with automatic address increase
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	241 rcall I2CREAD_COMMON
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	242 ; no Stop condition here
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	243 bra I2CREAD2_2
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	244
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	245 I2CREAD4: ; block read with automatic address increase
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	246 bsf SSPCON2,ACKEN ; Master acknowlegde
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	247 rcall WaitMSSP
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	248 bsf SSPCON2, RCEN ; Enable recieve mode
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	249 rcall WaitMSSP
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	250 movf SSPBUF,W ; copy read byte into WREG
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	251 ; no Stop condition here
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	252 bra I2CREAD2_2
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	253
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	254
dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	255 I2CREAD_COMMON:
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	256 bsf SSPCON2, PEN ; Stop
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	257 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	258 bsf SSPCON2,SEN ; Start condition
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	259 rcall WaitMSSP
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	260
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	261 movlw b'10101110' ; Bit0=0: WRITE, Bit0=1: READ, BLOCK2
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	262 btfss eeprom_address+1,7 ; Access Block2?
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	263 movlw b'10100110' ; No, -> Bit0=0: WRITE, Bit0=1: READ, BLOCK1
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	264 movwf SSPBUF ; control byte
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	265 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	266 btfsc SSPCON2,ACKSTAT
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	267 bra I2CREAD ; EEPROM NOT acknowledged, retry!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	268 movff eeprom_address+1,SSPBUF ; High Address byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	269 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	270 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	271 movff eeprom_address+0,SSPBUF ; Low Address byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	272 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	273 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	274
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	275 bsf SSPCON2,RSEN ; Start condition
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	276 rcall WaitMSSP
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	277
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	278 movlw b'10101111' ; Bit0=0: WRITE, Bit0=1: READ, BLOCK2
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	279 btfss eeprom_address+1,7 ; Access Block2?
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	280 movlw b'10100111' ; No, -> Bit0=0: WRITE, Bit0=1: READ, BLOCK1
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	281 movwf SSPBUF ; control byte
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	282 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	283 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	284
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	285 bsf SSPCON2, RCEN ; Enable recieve mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	286 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	287 movf SSPBUF,W ; copy read byte into WREG
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	288 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	289
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	290
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	291 I2CWRITE:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	292 movwf ext_ee_temp1 ; Data byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	293 bsf SSPCON2,SEN ; Start condition
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	294 rcall WaitMSSP
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	295 movlw b'10101110' ; Bit0=0: WRITE, Bit0=1: READ, BLOCK2
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	296 btfss eeprom_address+1,7 ; Access Block2?
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	297 movlw b'10100110' ; No, -> Bit0=0: WRITE, Bit0=1: READ, BLOCK1
7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 245 diff changeset	298 movwf SSPBUF ; control byte
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	299 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	300 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	301 movff eeprom_address+1,SSPBUF ; High Address byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	302 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	303 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	304 movff eeprom_address+0,SSPBUF ; Low Address byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	305 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	306 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	307 movff ext_ee_temp1, SSPBUF ; Data Byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	308 rcall WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	309 rcall I2C_WaitforACK
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	310 bsf SSPCON2,PEN ; Stop condition
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	311 rcall WaitMSSP
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 148 diff changeset	312 WAITMS d'5' ; Write delay
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	313 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	314
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	315 I2C_WaitforACK:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	316 btfsc SSPCON2,ACKSTAT ; checks for ACK bit from slave
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	317 rcall I2CFail
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	318 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	319
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	320 I2CFail:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	321 ostc_debug 'M' ; Sends debug-information to screen if debugmode active
21 73014f788032 1.60 stable rc1 heinrichsweikamp parents: 0 diff changeset	322 bsf LED_red
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	323 rcall I2CReset ; I2C Reset
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	324 bcf PIR1,SSPIF
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	325 clrf i2c_temp
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	326 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	327
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	328 WaitMSSP:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	329 decfsz i2c_temp,F ; check for timeout during I2C action
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	330 bra WaitMSSP2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	331 bra I2CFail ; timeout occured
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	332 WaitMSSP2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	333 btfss PIR1,SSPIF
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	334 bra WaitMSSP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	335 clrf i2c_temp
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	336 bcf PIR1,SSPIF
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	337 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	338
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	339 I2CReset: ; Something went wrong (Slave holds SDA low?)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	340 clrf SSPCON1 ; wake-up slave and reset entire module
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	341 ostc_debug 'N' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	342 clrf SSPCON2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	343 clrf SSPSTAT
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	344 bcf TRISC,3 ; SCL OUTPUT
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	345 bsf TRISC,4 ; SDA Input
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	346 bcf PORTC,3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	347 movlw d'9'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	348 movwf i2c_temp ; clock-out 9 clock cycles manually
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	349 I2CReset_1:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	350 bsf PORTC,3 ; SCL=1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	351 nop
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	352 btfsc PORTC,4 ; SDA=1?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	353 bra I2CReset_2 ; =1, SDA has been released from slave
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	354 bcf PORTC,3 ; SCL=0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	355 bcf PORTC,3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	356 decfsz i2c_temp,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	357 bra I2CReset_1 ; check for nine clock cycles
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	358 I2CReset_2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	359 bsf TRISC,3 ; SCL Input
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	360 clrf SSPCON1 ; set I�C Mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	361 WAITMS d'10' ; Reset-Timeout for I2C devices
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	362 movlw b'00000000'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	363 movwf SSPSTAT
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	364 movlw b'00101000'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	365 movwf SSPCON1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	366 movlw b'00000000'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	367 movwf SSPCON2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	368 movlw d'8' ; 400kHz I2C clock @ 16MHz Fcy
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	369 movwf SSPADD
21 73014f788032 1.60 stable rc1 heinrichsweikamp parents: 0 diff changeset	370 bcf LED_red
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	371 ostc_debug 'O' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	372 return
53 263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	373
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	374 ;I2C_TX:
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	375 ; movwf i2c_temp2 ; Data byte
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	376 ; bsf SSPCON2,SEN ; Start condition
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	377 ; rcall WaitMSSP
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	378 ; movlw b'10010000' ; Bit0=0: WRITE, Bit0=1: READ
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	379 ; movwf SSPBUF ; control byte
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	380 ; rcall WaitMSSP
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	381 ; rcall I2C_WaitforACK
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	382 ; movff i2c_temp2, SSPBUF ; Data Byte
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	383 ; rcall WaitMSSP
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	384 ; rcall I2C_WaitforACK
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	385 ; bsf SSPCON2,PEN ; Stop condition
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	386 ; rcall WaitMSSP
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	387 ; return
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	388 ;I2C_RX:
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	389 ; bcf PIR1,SSPIF
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	390 ; bsf SSPCON2,SEN ; Start condition
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	391 ; rcall WaitMSSP
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	392 ; movlw b'10010001' ; Bit0=0: WRITE, Bit0=1: READ
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	393 ; movwf SSPBUF ; control byte
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	394 ; rcall WaitMSSP
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	395 ; rcall I2C_WaitforACK
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	396 ; bsf SSPCON2, RCEN ; Enable recieve mode
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	397 ; rcall WaitMSSP
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	398 ; movff SSPBUF,i2c_temp2 ; Data Byte
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	399 ; bsf SSPCON2,ACKEN ; Master acknowlegde
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	400 ; rcall WaitMSSP
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	401 ; bsf SSPCON2,PEN ; Stop condition
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	402 ; rcall WaitMSSP
263348f83485 1.70 cleaning the code heinrichsweikamp parents: 42 diff changeset	403 ; return

Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/i2c_eeprom.asm @ 425:a76c5a3e9e96