PIC microcontroller software simulation IIC read and write routines

>; I2C bus program
;thisiseepromread&writeprogramm
;thespecialstoreramunit
Wequ0
F0equ0
rtCCequ1
Pcequ2
F2equ2
F3equ3
F4equ4
Raequ5
Rbequ6
Rcequ7
Pclathequ0ah
iNTConequ0bh
Pirlequ0ch
Tmr1lequ0eh
Tmr1hequ0fh
T1conequ10h
Tmr2equ11h
T2conequ12h
Sspbufequ13h
Sspconequ14h
Ccpr1lequ15h
Ccpr1hequ16h
Ccpconequ17h
Adcon0equ1fh
;
;inthebank1
trISAequ85h
Trisbequ86h
Triscequ87h
Pconequ8eh
Pie1equ8ch
Pr2equ92h
Sspaddequ93h
Sspstatequ94h
Adcon1equ9fh
;
;------------------------------------------------- -------
;thegenaralstoreramunit
;
Temp6equ76h
Temp7equ77h
;
eepCTRequ6dh;eepromcontrolwordsbuffer
Eepaddrequ6eh;eepromaddressbuffer
Eepdataequ6fh;eepromdatabuffer
;
;------------------------------------------------- -------
;thebitsoframunit
Sclequ3;rc
Sdaequ4;rc
;
Pdequ3;status
Toequ4;status
;
Rbifequ0;intcon
Intifequ1;intcon
Rtifequ2;intcon
Rbieequ3;intcon
Intieequ4;intcon
Rtieequ5;intcon
Adieequ6;intcon
Gieequ7;intcon
;
;------------------------------------------------- ---------
;Thecontact
Sda_inequ10h
Sda_outequ00h
;
;------------------------------------------------- ---------
Org000h
Gotomain_program
;------------------------------------------------- -------
;theson-programarea
;------------------------------------------------- -------
Org005h
;------------------------------------------------- -------
Make_s
Bsfrc, sda
Bsff3,5
;bsfrc,sda
MOVlwsda_out
MOVwftrisc
Bcff3,5
Nop
Ack_check
Bsff3,5
;bcfrc,sda
MOVlwsda_in
MOVwftrisc
Bcff3,5
Nop
M_start
Bsfrc, scl
Nop
Btfssrc, sda
Gotomake_s
M_start0
Bsfrc, scl
Bcfrc, sda
Bsff3,5
;bsfrc,sda
MOVlwsda_out
MOVwftrisc
Bcff3,5
MOVlw10100000b
Btfscsign,read_b
MOVlw10100001b
MOVwf6dh
MOVlw6dh
MOVwff4
W_byte
Bsff3,5
;bsfrc,sda
MOVlwsda_out
MOVwftrisc
Bcff3,5
MOVlw08h
MOVwftemp2
Bit_loop
Nop
Rlff0
Bcfrc, scl
Btfssf3,0
Goto^+3
Bsfrc, sda
Goto^+2
Bcfrc, sda
Nop
Bsfrc, scl
Decfsztemp2
Gotobit_loop
Nop
Bcfrc, scl
Bsff3,5
;bcfrc,sda
MOVlwsda_in
MOVwftrisc
Bcff3,5
Bsfrc, scl
Nop
Btfscrc, sda
Gotom_start0
Bcfrc, scl
Return
;
W_stop
M_stop
Bcfrc, sda
Bsff3,5
;bsfrc,sda
MOVlwsda_out
MOVwftrisc
Bcff3,5
Nop
Bsfrc, scl
Nop
Bsfrc, sda
Nop
Bcfrc, scl
Return
;
Rd_bytes
Nop
Rnxtb
Bcfrc, scl
Bsff3,5
;bcfrc,sda
MOVlwsda_in
MOVwftrisc
Bcff3,5
MOVlw08h
MOVwftemp2
Rnx
Bcfrc, scl
Nop
Bcff3,0
Btfscrc, sda
Bsff3,0
Rlff0
Bsfrc, scl
Nop
Decfsztemp2
Gotonx
Incff4,1
Bsff3,5
;bsfrc,sda
MOVlwsda_out
MOVwftrisc
Bcff3,5
Bcfrc, scl
Decfsztemp4
Gotot_ackg
R_stop
Gotom_stop
T_ackg
Bcfrc, sda
Nop
Bsfrc, scl
Nop
Gotonnxtb
;-----------------------------
Delay_1ms
MOVlw.1
MOVwftemp6
delay_publIC
MOVlw.223
MOVwftemp7
Public_2
Crrwdt
Decfsztemp7,1
Gotopublic_2
Decfsztemp6,1
Gotodelay_public
Return
;-----------------------------
;-----------------------------
;themainprogramarea
;-----------------------------
Main_program
Bsff3,5
MOVlw0fh
MOVwf81h
MOVlwsda_in
MOVwftrisc
Bcff3,5;bank0
Reset_delay
MOVlw20h
MOVwff4
Next
Clrff0
Incff4,1
MOVlw80h;clr20h--7fhram
Crrz
Xorwff4,w
Skpz
Gotonext
;-----------------------
Clrfintcon
Bsff3,5
MOVlw0fh
MOVwf81h
Bcff3,5;bank0
;
;---------------------------
Read_eeprom_repair
Bcfrc,eneep
Calldelay_1ms
;
Callack_check
MOVfaddress, 0
MOVwf6eh
Incff4
Callw_byte
Bsfsign, read_b
Callack_check
Bcfsign,read_b
MOVlw20h
MOVwff4
MOVlw.8
MOVwftemp4
Callrd_bytes
Nop
Nop
Nop
Nop
Calldelay_1ms
Bsfrc,eneep
;
Write_eeprom_repair
Bcfrc,eneep
Calldelay_1ms
;
Callack_check
MOVfaddress, 0
MOVwf6eh
Incff4
Callw_byte
MOVlw40h
MOVwff4
MOVlw.8
MOVwftemp4
Write_option
Callw_byte
Incff4,1
Decfsztemp4
Gotowrite_option
Callw_stop
Nop
Nop
Nop
Nop
Calldelay_1ms
Bsfrc,eneep
;
Loop
Gotoloop
End