pIC16f876a infrared ERROR program
Include
Statusequ03h
Rp0equ05h
Zequ02h
Cequ00h
Pclequ02h
Portaequ05h
trISAequ85h
Portcequ07h
Triscequ87h
Portbequ06h
Trisbequ86h
;--------tmr0--------------
Tmr0equ01h;4Mt=256(256-tmr0b)=50ms
Option_regequ81h
iNTConequ0bh
T0ifequ02h
Wtempequ19h
;-----------------------
ADDREQU20H; write address register
NUMEQU21H; write value
RECEQU22H; read count
WRCEQU24H; write count
rec1EQU25H
countEQU26H
;-------------------------
count1EQU27H
count2EQU28H
Flagequ30h
Flag1equ31h
Flag2equ32h
Flag3equ33h
;
Flag4equ34h
;================================
Org00h
Nop
Gotostart
Org04h
;
;=========Interrupt Service Subservice =======
Serv
MOVwfwtemp
Bcfintcon,t0if
Btfscflag4,0
Gotodelay3ms7
;
Btfssflag4,3
Gotowww
Decfszcount1
Gotowww; 250uS has not continued to count the number of pulses gotowww
MOVlw0x03
MOVwfcount1
Bsfflag4,2
Gotowww
;
Delay3ms7
Btfssflag4,4
Gotowww
Decfszcount2
Gotowww; 3.7mS has not continued to count the number of pulses gotowww
Bsfflag4,1
MOVlw0x0f
MOVwfcount2
;
;250us
MOVwftmr0
MOVfwtemp, 0
Retfie
;===========================================
Start
Nop
Bsfstatus, rp0
Clrftrisc
MOVlwb'00000000'
MOVwftrisa
MOVlwb'00000101'
MOVwftrisb
MOVlwb'00000000'; 1:1
MOVwfoption_reg
Bcfstatus, rp0
Clrfflag4
;-----------
MOVlw00h; write EEPROM initial address starts from 0
MOVwfADDR
MOVwfrec1
MOVlw0; / / initial write value
MOVwfNUM
MOVlw30h; indirect addressing, read value initial storage address
MOVwfFSR
MOVlw0100h; / / write times
MOVwfWRC
;
;============ Clear EEPROM at reset ==============
Clrfcount
CCbsfSTATUS, RP1
bsfSTATUS, RP0
btfscEECON1, WR
Goto$-1
bcfSTATUS, RP0
bcfSTATUS, RP1
MOVfcount,0
bsfSTATUS, RP1
MOVwfEEADR
bcfSTATUS, RP1
MOVlw0x00
bsfSTATUS, RP1
MOVwfEEDATA
bsfSTATUS, RP0
bcfEECON1, EEPGD
bsfEECON1, WREN
bcfINTCON, GIE
MOVlw55h
MOVwfEECON2
MOVlw0aah
MOVwfEECON2
bsfEECON1, WR
btfscEECON1, WR
Goto$-1
bsfINTCON, GIE
bcfEECON1, WREN
bcfSTATUS, RP0
bcfSTATUS, RP1
Incfcount,1
decfszWRC
Gotocc
;
MOVlw8Fh; / / rewrite times value
MOVwfWRC
MOVwfREC
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;
MOVlw0x03
MOVwfcount1;3*250us=750us
MOVlw0x0f
MOVwfcount2; 15*250us=3.7ms
;
MOVlw0xa0
MOVwfintcon
Bcfintcon, t0if; TMR0 settings
MOVlw0x0e
MOVwftmr0
;
MOVlw0x0f
MOVwfPORTC; initial bright PORTC, to determine whether the program is running normally
Clrfflag
Clrfflag1
Clrfflag2
Clrfflag3
;
Clrfflag4; flag register
;=========================================
Main
MOVlw0x0f
MOVwfportc
MOVlw0x0f
MOVwfcount2
Clrfflag4
Btfscportb, 2
Gotomain
Bsfflag4,0
Bcfflag4,4
;
Btfssportb, 2; Is there a high level in 3.7ms?
Goto$-1; there
;
outMOVlw0x0f
MOVwfcount2
;------------------------------
;d7
Bcfflag4,0;d0=1 at 3. 7 timing
Bcfflag4,2; d2=1 pulse low level within 750US, representing 0
Bcfflag4,3;750US does not count
Btfssportb, 2
Goto$-1
Dd7bsfflag4,3; start timing
Btfssportb, 2; pulse high level width
Gotoss7; pulse high level "750US
Btfssflag4,2
Gotodd7
Bsfflag,7;"750US;FLAG,D7=1
Gotoout7
Ss7bcfflag,7
out7MOVlw0x03
MOVwfcount1
;d6
Bcfflag4,0
Bcfflag4,2
Bcfflag4,3
Btfssportb, 2
Goto$-1
Dd6bsfflag4,3
Btfssportb, 2
Gotoss6
Btfssflag4,2
Gotodd6
Bsfflag,6
Gotoout6
Ss6bcfflag,6
out6MOVlw0x03
MOVwfcount1
;d5
Bcfflag4,0
Bcfflag4,2; d2=1 pulse low level within 750US, representing 0
Bcfflag4,3;750US does not count
Btfssportb, 2
Goto$-1
Dd5bsfflag4,3; start timing
Btfssportb, 2; pulse high level width
Gotoss5; pulse high level "750US
Btfssflag4,2
Gotodd5
Bsfflag,5;"750US;FLAG,D7=1
Gotoout5
Ss5bcfflag,5
out5MOVlw0x03
MOVwfcount1
;d4
Bcfflag4,0
Bcfflag4,2
Bcfflag4,3
Btfssportb, 2
Goto$-1
Dd4bsfflag4,3
Btfssportb, 2
Gotoss4
Btfssflag4,2
Gotodd4
Bsfflag, 4
Gotoout4
Ss4bcfflag, 4
out4MOVlw0x03
MOVwfcount1
;d3
Bcfflag4,0
Bcfflag4,2
Bcfflag4,3
Btfssportb, 2
Goto$-1
Dd3bsfflag4,3
Btfssportb, 2
Gotoss3
Btfssflag4,2
Gotodd3
Bsfflag, 3
Gotoout3
Ss3bcfflag, 3
out3MOVlw0x03
MOVwfcount1
;d2
Bcfflag4,0
Bcfflag4,2
Bcfflag4,3
Btfssportb, 2
Goto$-1
Dd2bsfflag4,3
Btfssportb, 2
Gotoss2
Btfssflag4,2
Gotodd2
Bsfflag, 2
Gotoout2
Ss2bcfflag, 2
out2MOVlw0x03
MOVwfcount1
;d1
Bcfflag4,0
Bcfflag4,2
Bcfflag4,3
Btfssportb, 2
Goto$-1
Dd1bsfflag4,3
Btfssportb, 2
Gotoss1
Btfssflag4,2
Gotodd1
Bsfflag, 1
Gotoout1
Ss1bcfflag,1
out1MOVlw0x03
MOVwfcount1
;d0
Bcfflag4,0
Bcfflag4,2
Bcfflag4,3
Btfssportb, 2
Goto$-1
Dd0bsfflag4,3
Btfssportb, 2
Gotoss0
Btfssflag4,2
Gotodd0
Bsfflag,0
Gotoout6
Ss0bcfflag,0
out0MOVlw0x03
MOVwfcount1
;------------------------
Btfssportb, 2
Goto$-1
Btfscportb, 2
Goto$-1
Btfssportb, 2
Goto$-1
Btfscportb, 2
Goto$-1
Btfssportb, 2
Goto$-1
Btfscportb, 2
Goto$-1
Btfssportb, 2
Goto$-1
Btfscportb, 2
Goto$-1
Btfssportb, 2
Goto$-1
Btfscportb, 2
Goto$-1
Btfssportb, 2
Goto$-1
Btfscportb, 2
Goto$-1
Btfssportb, 2
Goto$-1
Btfscportb, 2
Goto$-1
Btfssportb, 2
Goto$-1
Btfscportb, 2
Goto$-1
;===========================
;d7a
Bcfflag4,0;d0=1 at 3. 7 timing
Bcfflag4,2; d2=1 pulse low level within 750US, representing 0
Bcfflag4,3;750US does not count
Btfssportb, 2
Goto$-1
Dd7absfflag4,3; start timing
Btfssportb, 2; pulse high level width
Gotoss7a; pulse high level "750US
Btfssflag4,2
Gotodd7a
Bsfflag1,7;"750US;FLAG,D7=1
Gotoout7a
Ss7abcfflag1,7
out7aMOVlw0x03
MOVwfcount1
;d6a
Bcfflag4,0
Bcfflag4,2
Bcfflag4,3
Btfssportb, 2
Goto$-1
Dd6absfflag4,3
Btfssportb, 2
Gotoss6a
Btfssflag4,2
Gotodd6a
Bsfflag1,6
Gotoout6a
Ss6abcfflag1,6
out6aMOVlw0x03
MOVwfcount1
;d5a
Bcfflag4,0
Bcfflag4,2; d2=1 pulse low level within 750US, representing 0
Bcfflag4,3;750US does not count
Btfssportb, 2
Goto$-1
Dd5absfflag4,3; start timing
Btfssportb, 2; pulse high level width
Gotoss5a; pulse high level "750US
Btfssflag4,2
Gotodd5a
Bsfflag1,5;"750US;FLAG,D7=1
Gotoout5a
Ss5abcfflag1,5
out5aMOVlw0x03
MOVwfcount1
;d4a
Bcfflag4,0
Bcfflag4,2
Bcfflag4,3
Btfssportb, 2
Goto$-1
Dd4absfflag4,3
Btfssportb, 2
Gotoss4a
Btfssflag4,2
Gotodd4a
Bsfflag1,4
Gotoout4a
Ss4abcfflag1,4
out4aMOVlw0x03
MOVwfcount1
;d3a
Bcfflag4,0
Bcfflag4,2
Bcfflag4,3
Btfssportb, 2
Goto$-1
Dd3absfflag4,3
Btfssportb, 2
Gotoss3a
Btfssflag4,2
Gotodd3a
Bsfflag1,3
Gotoout3a
Ss3abcfflag1,3
out3aMOVlw0x03
MOVwfcount1
;d2a
Bcfflag4,0
Bcfflag4,2
Bcfflag4,3
Btfssportb, 2
Goto$-1
Dd2absfflag4,3
Btfssportb, 2
Gotoss2a
Btfssflag4,2
Gotodd2a
Bsfflag1, 2
Gotoout2a
Ss2abcfflag1,2
out2aMOVlw0x03
MOVwfcount1
;d1a
Bcfflag4,0
Bcfflag4,2
Bcfflag4,3
Btfssportb, 2
Goto$-1
Dd1absfflag4,3
Btfssportb, 2
Gotoss1a
Btfssflag4,2
Gotodd1a
Bsfflag1,1
Gotoout1a
Ss1abcfflag1,1
out1aMOVlw0x03
MOVwfcount1
;d0a
Bcfflag4,0
Bcfflag4,2
Bcfflag4,3
Btfssportb, 2
Goto$-1
Dd0absfflag4,3
Btfssportb, 2
Gotoss0a
Btfssflag4,2
Gotodd0a
Bsfflag1,0
Gotoout6a
Ss0abcfflag1,0
out0aMOVlw0x03
MOVwfcount1
;---------------------------
MOVfflag, 0
MOVwfNUM
Callwrite
MOVfflag1,0
MOVwfNUM
Callwrite
jjjbtfssPORTB,0
Gotoback1
Clrfflag4
MOVlwb'01010101'
MOVwfportc
Gotojjj
;
Back1gotomain
;=========== Writing Subroutines ============
Write
clrfPORTC;////// indicates entering the write state
;
bsfSTATUS, RP1
bsfSTATUS, RP0; /bank4
btfscEECON1, WR; WR=0 last write completed
Goto$-1
bcfSTATUS, RP0
bcfSTATUS, RP1; /bank0
MOVfADDR, W
bsfSTATUS, RP1; /bank2
MOVwfEEADR; ADDR-->EEADR
bcfSTATUS, RP1; /bank0
MOVfNUM, W
bsfSTATUS, RP1; /bank2
MOVwfEEDATA;VALU-->EEDATA
bsfSTATUS, RP0; /bank3
bcfEECON1, EEPGD; selected EEPROM as the access object
bsfEECON1, WREN; open write enable control bit
bcfINTCON, GIE;
;
MOVlw55h; "5 instruction sequence"
MOVwfEECON2
MOVlw0aah
MOVwfEECON2
bsfEECON1, WR; start write operation
;
btfscEECON1, WR
Goto$-1; waiting for a write operation
bsfINTCON, GIE
bcfEECON1, WREN
bcfSTATUS, RP0
bcfSTATUS, RP1; bank0
incfADDR, 1
;
MOVlw0x0f;////
MOVwfPORTC
Return
;=================================
End
Fiber Optic Splice Closure,Fiber Optic Splice Case,Fiber Splice Closures,Outdoor Fiber Optic Splice Closure
Cixi Dani Plastic Products Co.,Ltd , https://www.dani-fiber-optic.com