基于PIC单片机的火车数据记录仪的程序

基于PIC16F877火车数据记录仪程序INDFEQU0HTMR0EQU1HPCLEQU2HSTATUSEQU3HFSREQU4HRAEQU5HRBEQU6HRCEQU7HR0EQU8HR1EQU9HR2EQU0AHR3EQU0BHR4EQU0CHR5EQU0DHR6EQU0EHR7EQU0FHCEQU0DCEQU1ZEQU2PDEQU3TOEQU4PS0EQU5PS1EQU6PS2EQU7ORG00HGOTOSTART000WRITEBYTETO256MOVWF1DHBTFSC1AH,1GOTOSTARTCALLIICSTARTCONDITIONMOVF1AH,WMOVWF1EHRLF1BH,WRLF1EH,FRLF1EH,FMOVLW00EHANDWF1EH,FMOVLW0A0HADDWF1EH,WCALLWRITEIICWMOVF1BH,WANDLW07FHCALLWRITEIICWMOVF1CH,WCALLWRITEIICWMOVF1DH,WCALLWRITEIICWCALLIICSTOPCONDITIONCALLDELAY65MSINCFSZ1CH,FRETLW000HINCFSZ1BH,FRETLW000HINCF1AH,FBTFSC1AH,1GOTOSTARTRETLW000HIICSTARTCONDITIONIICSC020BSFRB,4GOTOIICSC022IICSC022BSFRB,5GOTOHIICSC024HIICSC024GOTOIICSC025IICSC025GOTOIICSC026IICSC026BCFRB,4GOTOIICSC028IICSC028GOTOIICSC029IICSC029GOTOIICSC02AIICSC02ABCFRB,5RETLW000HIICSTOPCONDITIONIICSTC02CBCFRB,4GOTOIICSTC02EIICSTC02EGOTOIICSTC02FIICSTC02FBSFRB,5GOTOHIICSTC031HIICSTC031GOTOIICSTC032IICSTC032GOTOIICSTC033IICSTC033BSFRB,4GOTOIICSTC035IICSTC035GOTOIICSTC036IICSTC036GOTOIICSTC037IICSTC037BCFRB,5RETLW000HWRITEIICWWIICW039MOVWFR6MOVLW008HMOVWFR7WIICW03CBCFRB,4SDABTFSCR6,7BSFRB,4GOTOWIICW040WIICW040BSFRB,5SCLRLFR6,FGOTOHWIICW43HWIICW43GOTOWIICW044WIICW044BCFRB,5DECFSZR7,FGOTOWIICW03CMOVLW01EHTRISRBWAITTOACKNOWLEDGEGOTOWIICW04AWIICW04AGOTOWIICW04BWIICW04BBSFRB,5GOTOHWIICW4DHWIICW4DGOTOWIICW04EWIICW04EBTFSSRB,4GOTOWIICW052ACKNOWLEDGEBSFSTATUS,PS2GOTOSTARTNOACKNOWLEDGEWIICW052BCFRB,5MOVLW00EHTRISRBTOBEREADYRETLW000HREADIICBYTETO1DHMOVLW01EHTRISRBMOVLW008HMOVWFR7READBYTE105ABSFRB,5RLF1DH,FGOTOREADBYTE105DREADBYTE105DBCF1DH,0BTFSCRB,4BSF1DH,0GOTOREADBYTE1061READBYTE1061BCFRB,5GOTOREADBYTE1063READBYTE1063GOTOREADBYTE1064READBYTE1064DECFSZR7,FGOTOREADBYTE105AMOVLW00EHTRISRBNOPBSFRB,4GOTOREADBYTE106BREADBYTE106BGOTOREADBYTE106CREADBYTE106CBSFRB,5GOTOREADBYTE106EREADBYTE106EGOTOREADBYTE106FREADBYTE106FGOTOREADBYTE1070READBYTE1070BCFRB,5RETLW000HGET232BYTETO1DHMOVLW008HMOVWFR7CLRF1DHGET232A075CLRWDTBTFSCRB,3GOTOGET232A075CALLDELAY10USGET232A079CALLDELAY40USRRF1DH,FBCF1DH,7BTFSCRB,3BSF1DH,7GOTOGET232A07FGET232A07FGOTOGET232A080GET232A080NOPDECFSZR7,FGOTOGET232A079CALLDELAY40USBTFSSRB,3STOPBITGOTOGET232A102RETLW000HGET232BYTETO1DHRB2MOVLW008HMOVWFR7CLRF1DHGET232B08ACLRWDTBTFSCRB,2GOTOGET232B08ACALLDELAY10USGET232B08ECALLDELAY40USRRF1DH,FBCF1DH,7BTFSCRB,2BSF1DH,7GOTOGET232B094GET232B094GOTOGET232B095GET232B095NOPDECFSZR7,FGOTOGET232B08ECALLDELAY40USBTFSSRB,2GOTOGET232B102RETLW000HDELAY40USMOVLW00CHMOVWFR6DELAY40US09EDECFSZR6,FGOTODELAY40US09ERETLW000HDELAY10USDELAY10US0A1MOVLW002HMOVWFR6DELAY10US0A3DECFSZR6,FGOTODELAY10US0A3RETLW000HDELAY085SMOVLW080HMOVWF12HDELAY0852CALLDELAY65MSCLRWDTDECFSZ12H,FGOTODELAY0852RETLW000HDELAY65MSMOVLW005HMOVWF16HDELAY65MS2MOVLW0FFHMOVWF17HDELAY65MS4GOTODELAY65MS4DELAY65MS4DECFSZ17H,FGOTODELAY65MS4DECFSZ16H,FGOTODELAY65MS2RETLW000HWRITEORREADCLOCKBYTEENTRANCEWDS1302EXIT1DHMOVWF1EHBSFRB,6CANCELDS1302RESETCALLDELAY40USMOVLW008HMOVWFR7WRCB0BCBCFRB,5SCLCLRWDTCALLDELAY40USBTFSS1EH,0GOTOWRCB0C3BSFRB,4SDAGOTOWRCB0C4WRCB0C3BCFRB,4WRCB0C4CALLDELAY40USBSFRB,5SCLCALLDELAY40USRRF1EH,FDECFSZR7,FGOTOWRCB0BCMOVLW01EHTRISRBMOVLW008HMOVWFR7CALLDELAY40USWRCB0CFBCFRB,5SCLCLRWDTCALLDELAY40USRRF1DH,FBTFSSRB,4SDAGOTOWRCB0D7BSF1DH,7GOTOWRCB0D8WRCB0D7BCF1DH,7WRCB0D8CALLDELAY40USBSFRB,5CALLDELAY40USDECFSZR7,FGOTOWRCB0CFBCFRB,6RESETDS1302CALLDELAY40USBCFRB,5MOVLW00EHTRISRBRETLW000HSTARTMOVLW03FHOPTIONMOVLW00FHTRISRABCFRB,6RESETDS1302MOVLW00EHTRISRBCLRFRBCLRWDTBCFSTATUS,PS0CALLDELAY085SCALLDELAY085SCALLDELAY085SCLRF1DHBTFSCSTATUS,PS2GOTOSTART0F3START0F3BSFRB,7DIELEDCLRF1AHADDRESSPOINTCLRF1BHCLRF1CHCLRFTMR0CLRF15HMOVLW08DHREADYEARCALLWRITEORREADCLOCKBYTEMOVF1DH,WCALLWRITEBYTETO256MOVLW089HREADMONTHCALLWRITEORREADCLOCKBYTEMOVF1DH,WCALLWRITEBYTETO256CALLDELAY085SSTART102BSFRB,7DIELEDCLRWDTBTFSCRB,1GOTOSTART108BSFSTATUS,PS0GOTOSTART300START108BCFSTATUS,PS0BTFSCRB,3LIGHTLEDGOTOSTART102BCFRB,7LIGHTLEDCALLGET232BYTETO1DHMOVLW040HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHMOVLW030HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHMOVLW031HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHMOVLW052HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHMOVLW044HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102MOVLW007HMOVWF11HSTART127CALLGET232BYTETO1DHMOVLW030HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102DECFSZ11H,FRECEIVE1730HGOTOSTART127CALLGET232BYTETO1DHMOVLW035HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHCALLGET232BYTETO1DHCALLGET232BYTETO1DHMOVLW02AHXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHMOVLW00DHXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CLRWDTCALLGET232BYTETO1DHRB2MOVLW040HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHRB2MOVLW030HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHRB2MOVLW031HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHRB2MOVLW052HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHRB2MOVLW044HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHRB2MOVLW030HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHRB2MOVLW030HXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2MOVF1DH,WMOVWF18HASCIIMOVLW030HSUBWF18H,FCALLGET232BYTETO1DHRB2MOVF1DH,WMOVWF19HASCIIMOVLW030HSUBWF19H,FSWAPF18H,WADDWF19H,WMOVWFR2CALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2MOVF1DH,WMOVWF18HMOVLW030HSUBWF18H,FCALLGET232BYTETO1DHRB2MOVF1DH,WMOVWF19HMOVLW030HSUBWF19H,FSWAPF18H,WADDWF19H,WMOVWFR3CALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2MOVF1DH,WMOVWF18HMOVLW030HSUBWF18H,FCALLGET232BYTETO1DHRB2MOVF1DH,WMOVWF19HMOVLW030HSUBWF19H,FSWAPF18H,WADDWF19H,WMOVWFR4CALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2MOVF1DH,WMOVWF18HMOVLW030HSUBWF18H,FCALLGET232BYTETO1DHRB2MOVF1DH,WMOVWF19HMOVLW030HSUBWF19H,FSWAPF18H,WADDWF19H,WMOVWF13HCALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2CALLGET232BYTETO1DHRB2MOVLW02AHXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CALLGET232BYTETO1DHRB2MOVLW00DHXORWF1DH,WBTFSSSTATUS,ZGOTOSTART102CLRWDTMOVF15H,WBTFSCSTATUS,ZGOTOSTART1B6XORLW00AHBTFSSSTATUS,ZGOTOSTART1C7START1B6MOVLW087HDATECALLWRITEORREADCLOCKBYTEMOVF1DH,WCALLWRITEBYTETO256MOVLW085HHOURCALLWRITEORREADCLOCKBYTEMOVF1DH,WCALLWRITEBYTETO256MOVLW083HMINUTECALLWRITEORREADCLOCKBYTEMOVF1DH,WCALLWRITEBYTETO256MOVLW081HSECONDCALLWRITEORREADCLOCKBYTEMOVF1DH,WCALLWRITEBYTETO256CLRF15HSTART1C7MOVFR2,WCALLWRITEBYTETO256MOVFR3,WCALLWRITEBYTETO256MOVFR4,WCALLWRITEBYTETO256MOVF13H,WCALLWRITEBYTETO256INCF15H,FMOVLW083HREADMINUTECALLWRITEORREADCLOCKBYTESWAPF1DH,WBSFSTATUS,PS0CALLLOOKUPTABLEMOVWF11HMOVF1DH,WANDLW00FHCALLLOOKUPTABLEMOVWF12HBCFSTATUS,PS0MOVLW081HREADSECONDCALLWRITEORREADCLOCKBYTESWAPF1DH,WBSFSTATUS,PS0CALLLOOKUPTABLEMOVWF13HMOVF1DH,WCALLLOOKUPTABLEMOVWF14HBSF10H,6CALLSENDUPIICFIVEBYTESCLRWDTBCFSTATUS,PS0GOTOSTART102LOOKUPTABLEANDLW00FHADDWFPCL,FRETLW0EEH02RETLW022H13RETLW07CH24RETLW076H35RETLW0B2H46RETLW0D6H57RETLW0DEH68RETLW062H79RETLW0FEH8ARETLW0F6H9BRETLW0FAHACRETLW09EHBDRETLW0CCHCERETLW03EHDFRETLW0DCHE0RETLW0D8HF1SENDUPIICFIVEBYTESSUPII222MOVLW00CHTRISRBMOVLW005HMOVWF1FHMOVLW010HMOVWFFSRSUPII228MOVFINDF,WMOVWFR6MOVLW008HMOVWFR7SUPII22CBSFRB,0BSFRB,1BTFSCR6,7BCFRB,1RLFR6,FSUPII231BCFRB,0DECFSZR7,FGOTOSUPII22CBSFRB,0BSFRB,1INCFFSR,FDECFSZ1FH,FGOTOSUPII228SUPII239MOVLW00EHTRISRBRETLW000HLOOKUP1DHTABLEVAULESWAPF1DH,WCALLLOOKUPTABLE23DMOVWF13HMOVF1DH,WCALLLOOKUPTABLE240MOVWF14HCLRF10HCLRF12HRETLW000HREADBYTEFROM256TO1DH1