CCS PCM C Compiler, Version 4.106, 47914 04-II-14 11:45Filename: Z:\home\kaklik\svn\svnMLAB\Designs\Measuring_instruments\RMDS01C\SW\PIC16F887\main.lstROM used: 984 words (12%)Largest free fragment is 2048RAM used: 43 (12%) at main() level96 (26%) worst caseStack: 3 worst case (1 in main + 2 for interrupts)*0000: MOVLW 030001: MOVWF 0A0002: GOTO 3320003: NOP0004: MOVWF 7F0005: SWAPF 03,W0006: CLRF 030007: MOVWF 210008: MOVF 0A,W0009: MOVWF 20000A: CLRF 0A000B: MOVF 04,W000C: MOVWF 22000D: MOVF 77,W000E: MOVWF 23000F: MOVF 78,W0010: MOVWF 240011: MOVF 79,W0012: MOVWF 250013: MOVF 7A,W0014: MOVWF 260015: BCF 03.70016: BCF 03.50017: BTFSS 0B.40018: GOTO 01B0019: BTFSC 0B.1001A: GOTO 038001B: MOVLW 8C001C: MOVWF 04001D: BTFSS 00.0001E: GOTO 021001F: BTFSC 0C.00020: GOTO 03B0021: MOVLW 8C0022: MOVWF 040023: BTFSS 00.30024: GOTO 0270025: BTFSC 0C.30026: GOTO 03E0027: MOVF 22,W0028: MOVWF 040029: MOVF 23,W002A: MOVWF 77002B: MOVF 24,W002C: MOVWF 78002D: MOVF 25,W002E: MOVWF 79002F: MOVF 26,W0030: MOVWF 7A0031: MOVF 20,W0032: MOVWF 0A0033: SWAPF 21,W0034: MOVWF 030035: SWAPF 7F,F0036: SWAPF 7F,W0037: RETFIE0038: BCF 0A.30039: BCF 0A.4003A: GOTO 145003B: BCF 0A.3003C: BCF 0A.4003D: GOTO 2C6003E: BCF 0A.3003F: BCF 0A.40040: GOTO 06D.................... #include "main.h".................... #include <16F887.h>.................... //////// Standard Header file for the PIC16F887 device ////////////////.................... #device PIC16F887.................... #list........................................ #device adc=8........................................ #FUSES NOWDT //No Watch Dog Timer.................... #FUSES HS //High speed Osc (> 4mhz for PCM/PCH) (>10mhz for PCD).................... #FUSES NOPUT //No Power Up Timer.................... #FUSES MCLR //Master Clear pin enabled.................... #FUSES NOPROTECT //Code not protected from reading.................... #FUSES NOCPD //No EE protection.................... #FUSES NOBROWNOUT //No brownout reset.................... #FUSES IESO //Internal External Switch Over mode enabled.................... #FUSES FCMEN //Fail-safe clock monitor enabled.................... #FUSES NOLVP //No low voltage prgming, B3(PIC16) or B5(PIC18) used for I/O.................... #FUSES NODEBUG //No Debug mode for ICD.................... #FUSES NOWRT //Program memory not write protected.................... #FUSES BORV40 //Brownout reset at 4.0V........................................ #use delay(clock=20000000)*02D2: MOVLW 4702D3: MOVWF 0402D4: BCF 03.702D5: MOVF 00,W02D6: BTFSC 03.202D7: GOTO 2E502D8: MOVLW 0602D9: MOVWF 7802DA: CLRF 7702DB: DECFSZ 77,F02DC: GOTO 2DB02DD: DECFSZ 78,F02DE: GOTO 2DA02DF: MOVLW 7B02E0: MOVWF 7702E1: DECFSZ 77,F02E2: GOTO 2E102E3: DECFSZ 00,F02E4: GOTO 2D802E5: BCF 0A.302E6: BCF 0A.402E7: GOTO 3B7 (RETURN).................... #use rs232(baud=9600,parity=N,xmit=PIN_C6,rcv=PIN_C7,bits=8,errors)........................................ //NOTE: Must declare MASTER before SLAVE, i2c_isr_state() returns 0.................... // when MASTER is the most recent #use i2c.................... //#use i2c(MASTER, sda=PIN_C1, scl=PIN_C0, stream=I2CM).................... #use i2c(SLAVE, Fast, sda=PIN_C4, scl=PIN_C3, force_hw, address=0xA0)*00AC: MOVF 4C,W00AD: MOVWF 1300AE: BSF 14.400AF: BCF 0C.300B0: BSF 03.500B1: BTFSC 14.000B2: GOTO 0B100B3: CLRF 7800B4: BCF 03.500B5: BTFSC 14.400B6: INCF 78,F................................................................................ #include <string.h>.................... ////////////////////////////////////////////////////////////////////////////.................... //// (C) Copyright 1996,2008 Custom Computer Services ////.................... //// This source code may only be used by licensed users of the CCS C ////.................... //// compiler. This source code may only be distributed to other ////.................... //// licensed users of the CCS C compiler. No other use, reproduction ////.................... //// or distribution is permitted without written permission. ////.................... //// Derivative programs created using this software in object code ////.................... //// form are not restricted in any way. ////.................... ////////////////////////////////////////////////////////////////////////////........................................ #ifndef _STRING.................... #define _STRING.................... #include <stddef.h>.................... ///////////////////////////////////////////////////////////////////////////.................... //// (C) Copyright 1996,2003 Custom Computer Services ////.................... //// This source code may only be used by licensed users of the CCS C ////.................... //// compiler. This source code may only be distributed to other ////.................... //// licensed users of the CCS C compiler. No other use, reproduction ////.................... //// or distribution is permitted without written permission. ////.................... //// Derivative programs created using this software in object code ////.................... //// form are not restricted in any way. ////.................... ///////////////////////////////////////////////////////////////////////////........................................ #ifndef _STDDEF........................................ #define _STDDEF........................................ #if sizeof(unsigned int8 *)==1.................... #define ptrdiff_t unsigned int8.................... #else.................... #define ptrdiff_t unsigned int16.................... #endif........................................ #define size_t unsigned int8.................... #define wchar_t char.................... #define NULL 0........................................ #define offsetof(s,f) (offsetofbit(s,f)/8)........................................ #endif........................................ #include <ctype.h>.................... ////////////////////////////////////////////////////////////////////////////.................... //// (C) Copyright 1996,2003 Custom Computer Services ////.................... //// This source code may only be used by licensed users of the CCS C ////.................... //// compiler. This source code may only be distributed to other ////.................... //// licensed users of the CCS C compiler. No other use, reproduction ////.................... //// or distribution is permitted without written permission. ////.................... //// Derivative programs created using this software in object code ////.................... //// form are not restricted in any way. ////.................... ////////////////////////////////////////////////////////////////////////////........................................ #ifndef _CTYPE.................... #define _CTYPE........................................ #define islower(x) isamong(x,"abcdefghijklmnopqrstuvwxyz").................... #define isupper(x) isamong(x,"ABCDEFGHIJKLMNOPQRSTUVWXYZ").................... #define isalnum(x) isamong(x,"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz").................... #define isalpha(x) isamong(x,"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz").................... #define isdigit(x) isamong(x,"0123456789").................... #define isspace(x) ((x)==' ').................... #define isxdigit(x) isamong(x,"0123456789ABCDEFabcdef").................... #define iscntrl(x) ((x)<' ').................... #define isprint(x) ((x)>=' ').................... #define isgraph(x) ((x)>' ').................... #define ispunct(x) (((x)>' ')&&!isalnum(x))........................................ #endif........................................................................................................................ //////////////////////////////////////////////.................... //// Uncomment the following define to ////.................... //// allow some functions to use a ////.................... //// quicker algorithm, but use more ROM ////.................... //// ////.................... //// #define FASTER_BUT_MORE_ROM ////.................... //////////////////////////////////////////////................................................................................ /*Copying functions*/.................... /* standard template:.................... void *memmove(void *s1, void *s2, size_t n)..................... Copies max of n characters safely (not following ending '\0').................... from s2 in s1; if s2 has less than n characters, appends 0 */........................................ char *memmove(void *s1,char *s2,size_t n).................... {.................... char *sc1;.................... char *sc2;.................... sc1=s1;.................... sc2=s2;.................... if(sc2<sc1 && sc1 <sc2 +n).................... for(sc1+=n,sc2+=n;0<n;--n).................... *--sc1=*--sc2;.................... else.................... for(;0<n;--n).................... *sc1++=*sc2++;.................... return s1;.................... }........................................ /* Standard template: char *strcpy(char *s1, const char *s2).................... copies the string s2 including the null character to s1..................... This is a compiler built in to handle the different address.................... spaces */........................................ #define strcopy strcpy........................................ /* standard template:.................... char *strncpy(char *s1, const char *s2, size_t n)..................... Copies max of n characters (not following ending '\0').................... from s2 in s1; if s2 has less than n characters, appends 0 */........................................ char *strncpy(char *s1, char *s2, size_t n).................... {.................... char *s;........................................ for (s = s1; n > 0 && *s2 != '\0'; n--)*0101: MOVF 63,W0102: MOVWF 680103: MOVF 62,W0104: MOVWF 670105: MOVF 66,F0106: BTFSC 03.20107: GOTO 1300108: MOVF 65,W0109: MOVWF 7A010A: MOVF 64,W010B: MOVWF 04010C: BCF 03.7010D: BTFSC 7A.0010E: BSF 03.7010F: MOVF 00,F0110: BTFSC 03.20111: GOTO 130.................... *s++ = *s2++;0112: MOVF 68,W0113: MOVWF 7A0114: MOVF 67,W0115: INCF 67,F0116: BTFSC 03.20117: INCF 68,F0118: MOVWF 690119: MOVF 7A,W011A: MOVWF 6A011B: MOVF 65,W011C: MOVWF 7A011D: MOVF 64,W011E: INCF 64,F011F: BTFSC 03.20120: INCF 65,F0121: MOVWF 040122: BCF 03.70123: BTFSC 7A.00124: BSF 03.70125: MOVF 00,W0126: MOVWF 6B0127: MOVF 69,W0128: MOVWF 040129: BCF 03.7012A: BTFSC 6A.0012B: BSF 03.7012C: MOVF 6B,W012D: MOVWF 00012E: DECF 66,F012F: GOTO 105.................... for (; n > 0; n--)0130: MOVF 66,F0131: BTFSC 03.20132: GOTO 140.................... *s++ = '\0';0133: MOVF 68,W0134: MOVWF 7A0135: MOVF 67,W0136: INCF 67,F0137: BTFSC 03.20138: INCF 68,F0139: MOVWF 04013A: BCF 03.7013B: BTFSC 7A.0013C: BSF 03.7013D: CLRF 00013E: DECF 66,F013F: GOTO 130........................................ return(s1);0140: MOVF 62,W0141: MOVWF 780142: MOVF 63,W0143: MOVWF 79.................... }0144: RETURN.................... /***********************************************************/........................................ /*concatenation functions*/.................... /* standard template: char *strcat(char *s1, const char *s2).................... appends s2 to s1*/........................................ char *strcat(char *s1, char *s2).................... {.................... char *s;........................................ for (s = s1; *s != '\0'; ++s);.................... while(*s2 != '\0').................... {.................... *s = *s2;.................... ++s;.................... ++s2;.................... }........................................ *s = '\0';.................... return(s1);.................... }.................... /* standard template: char *strncat(char *s1, char *s2,size_t n).................... appends not more than n characters from s2 to s1*/........................................ char *strncat(char *s1, char *s2, size_t n).................... {.................... char *s;........................................ for (s = s1; *s != '\0'; ++s);.................... while(*s2 != '\0' && 0<n).................... {.................... *s = *s2;.................... ++s;.................... ++s2;.................... --n;.................... }........................................ *s = '\0';.................... return(s1);.................... }........................................ /***********************************************************/............................................................ /*comparison functions*/.................... /* standard template: signed int memcmp(void *s1, void *s2)..................... Compares s1 & s2; returns -1 if s1<s2, 0 if s1=s2, 1 if s1>s2 */........................................ signed int8 memcmp(void * s1,char *s2,size_t n).................... {.................... char *su1, *su2;.................... for(su1=s1, su2=s2; 0<n; ++su1, ++su2, --n).................... {.................... if(*su1!=*su2).................... return ((*su1<*su2)?-1:+1);.................... }.................... return 0;.................... }........................................ /* standard template: int strcmp(const char *s1, const char *s2)..................... Compares s1 & s2; returns -1 if s1<s2, 0 if s1=s2, 1 if s1>s2 */........................................ signed int8 strcmp(char *s1, char *s2).................... {.................... for (; *s1 == *s2; s1++, s2++).................... if (*s1 == '\0').................... return(0);.................... return((*s1 < *s2) ? -1: 1);.................... }.................... /* standard template: int strcoll(const char *s1, const char *s2)..................... Compares s1 & s2; returns -1 if s1<s2, 0 if s1=s2, 1 if s1>s2 */........................................ signed int8 strcoll(char *s1, char *s2).................... {.................... for (; *s1 == *s2; s1++, s2++).................... if (*s1 == '\0').................... return(0);.................... return((*s1 < *s2) ? -1: 1);.................... }........................................ /* standard template:.................... int strncmp(const char *s1, const char *s2, size_t n)..................... Compares max of n characters (not following 0) from s1 to s2;.................... returns same as strcmp */........................................ signed int8 strncmp(char *s1, char *s2, size_t n).................... {.................... for (; n > 0; s1++, s2++, n--).................... if (*s1 != *s2).................... return((*s1 <*s2) ? -1: 1);.................... else if (*s1 == '\0').................... return(0);.................... return(0);.................... }.................... /* standard template:.................... int strxfrm(const char *s1, const char *s2, size_t n)..................... transforms maximum of n characters from s2 and places them into s1*/.................... size_t strxfrm(char *s1, char *s2, size_t n).................... {.................... char *s;.................... unsigned int8 n1;.................... n1=n;.................... for (s = s1; n > 0 && *s2 != '\0'; n--).................... *s++ = *s2++;.................... for (; n > 0; n--).................... *s++ = '\0';........................................ return(n1);.................... }........................................................................................................................ /***********************************************************/.................... /*Search functions*/.................... /* standard template: void *memchr(const char *s, int c)..................... Finds first occurrence of c in n characters of s */........................................ char *memchr(void *s,unsigned int8 c,size_t n).................... {.................... char uc;.................... char *su;.................... uc=c;.................... for(su=s;0<n;++su,--n).................... if(*su==uc).................... return su;.................... return NULL;.................... }........................................ /* standard template: char *strchr(const char *s, int c)..................... Finds first occurrence of c in s */........................................ char *strchr(char *s, unsigned int8 c).................... {.................... for (; *s != c; s++).................... if (*s == '\0').................... return(0);.................... return(s);.................... }.................... /* standard template:.................... size_t strcspn(const char *s1, const char *s2)..................... Computes length of max initial segment of s1 that.................... consists entirely of characters NOT from s2*/........................................ unsigned int8 strcspn(char *s1, char *s2).................... {.................... char *sc1, *sc2;........................................ for (sc1 = s1; *sc1 != 0; sc1++).................... for (sc2 = s2; *sc2 != 0; sc2++).................... if (*sc1 == *sc2).................... return(sc1 - s1);.................... return(sc1 - s1);.................... }.................... /* standard template:.................... char *strpbrk(const char *s1, const char *s2)..................... Locates first occurence of any character from s2 in s1;.................... returns s1 if s2 is empty string */........................................ char *strpbrk(char *s1, char *s2).................... {.................... char *sc1, *sc2;........................................ for (sc1 = s1; *sc1 != 0; sc1++).................... for (sc2 = s2; *sc2 != 0; sc2++).................... if (*sc1 == *sc2).................... return(sc1);.................... return(0);.................... }............................................................ /* standard template: char *strrchr(const char *s, int c)..................... Finds last occurrence of c in s */........................................ char *strrchr(char *s, unsigned int8 c).................... {.................... char *p;........................................ for (p = 0; ; s++).................... {.................... if (*s == c).................... p = s;.................... if (*s == '\0').................... return(p);.................... }.................... }.................... /* computes length of max initial segment of s1 consisting.................... entirely of characters from s2 */........................................ unsigned int8 strspn(char *s1, char *s2).................... {.................... char *sc1, *sc2;........................................ for (sc1 = s1; *sc1 != 0; sc1++).................... for (sc2 = s2; ; sc2++).................... if (*sc2 == '\0').................... return(sc1 - s1);.................... else if (*sc1 == *sc2).................... break;.................... return(sc1 - s1);.................... }.................... /* standard template:.................... char *strstr(const char *s1, const char *s2);.................... Locates first occurence of character sequence s2 in s1;.................... returns 0 if s2 is empty string........................................ Uncomment #define FASTER_BUT_MORE_ROM at the top of the.................... file to use the faster algorithm */.................... char *strstr(char *s1, char *s2).................... {.................... char *s, *t;........................................ #ifdef FASTER_BUT_MORE_ROM.................... if (*s2 == '\0').................... return(s1);.................... #endif........................................ while (*s1).................... {.................... for(s = s1, t = s2; *t && (*s == *t); ++s, ++t);........................................ if (*t == '\0').................... return s1;.................... ++s1;.................... #ifdef FASTER_BUT_MORE_ROM.................... while(*s1 != '\0' && *s1 != *s2).................... ++s1;.................... #endif.................... }.................... return 0;.................... }........................................ /* standard template: char *strtok(char *s1, const char *s2)......................................... Finds next token in s1 delimited by a character from separator.................... string s2 (which can be different from call to call). First call.................... starts at beginning of s1 searching for first character NOT.................... contained in s2; returns 0 if none is found..................... If one is found, it is the start of first token (return value)..................... Function then searches from there for a character contained in s2..................... If none is found, current token extends to end of s1, and subsequent.................... searches for a token will return 0. If one is found, it is.................... overwritten by '\0', which terminates current token. Function saves.................... pointer to following character from which next search will start..................... Each subsequent call, with 0 as first argument, starts searching.................... from saved pointer */........................................ char *strtok(char *s1, char *s2).................... {.................... char *beg, *end;.................... static char *save;*0366: CLRF 290367: CLRF 2A........................................ beg = (s1)? s1: save;.................... beg += strspn(beg, s2);.................... if (*beg == '\0').................... {.................... *save = ' ';.................... return(0);.................... }.................... end = strpbrk(beg, s2);.................... if (*end != '\0').................... {.................... *end = '\0';.................... end++;.................... }.................... save = end;.................... return(beg);.................... }........................................ /*****************************************************************/.................... /*Miscellaneous functions*/.................... /* standard template.................... maps error number in errnum to an error message string.................... Returns: Pointer to string.................... */.................... #ifdef _ERRNO.................... char * strerror(unsigned int8 errnum).................... {.................... char s[15];.................... switch( errnum).................... {.................... case 0:.................... strcpy(s,"no errors");.................... return s;.................... case EDOM :.................... strcpy(s,"domain error");.................... return s;.................... case ERANGE:.................... strcpy(s,"range error");.................... return s;.................... }.................... }.................... #ENDIF.................... /* standard template: size_t strlen(const char *s)..................... Computes length of s1 (preceding terminating 0) */........................................ unsigned int8 strlen(char *s).................... {.................... char *sc;........................................ for (sc = s; *sc != 0; sc++);.................... return(sc - s);.................... }........................................ /* standard template: size_t stricmp(const char *s1, const char *s2)..................... Compares s1 to s2 ignoring case (upper vs. lower) */........................................ signed int8 stricmp(char *s1, char *s2).................... {.................... for(; *s1==*s2||(isalpha(*s1)&&isalpha(*s2)&&(*s1==*s2+32||*s2==*s1+32));.................... s1++, s2++).................... if (*s1 == '\0').................... return(0);.................... return((*s1 < *s2) ? -1: 1);.................... }............................................................ /* standard template: char *strlwr(char *s)..................... Replaces uppercase letters by lowercase;.................... returns pointer to new string s */........................................ char *strlwr(char *s).................... {.................... char *p;........................................ for (p = s; *p != '\0'; p++).................... if (*p >= 'A' && *p <='Z').................... *p += 'a' - 'A';.................... return(s);.................... }............................................................ /************************************************************/............................................................ #endif............................................................ #define LED PIN_E1.................... #define CE PIN_E2........................................ #define SEL0 PIN_E0 // external counter division ratio.................... #define SEL1 PIN_E1 // external counter division ratio.................... #define MR PIN_E2 // external counter master reset.................... #define CLKI PIN_C0 // internal counter input.................... #define BEEP PIN_C3 // buzzer........................................ unsigned int32 count;............................................................ int8 buffer[0x10]; // I2C buffer.................... int8 address;........................................ unsigned int16 of=0; // count of overflow........................................ const char cmd[40]={0xB5, 0x62, 0x06, 0x31, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x32, 0x00, 0x00, 0x00, 0x80, 0x84, 0x1E, 0x00, 0xE0, 0xC8, 0x10, 0x00, 0x40, 0x42, 0x0F, 0x00, 0xA0, 0x86, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0xF7, 0x00, 0x00, 0x00, 0x12, 0x03};........................................ #INT_SSP.................... void ssp_interupt ().................... {.................... BYTE incoming, state;........................................ state = i2c_isr_state();*006D: BSF 03.5006E: BTFSC 14.5006F: GOTO 0780070: BCF 03.50071: CLRF 420072: BSF 03.50073: BTFSS 14.20074: GOTO 0780075: BCF 03.50076: BSF 42.70077: BSF 03.50078: BCF 03.50079: MOVF 42,W007A: INCF 42,F007B: MOVWF 4A........................................ if(state < 0x80) //Master is sending data007C: MOVF 4A,W007D: SUBLW 7F007E: BTFSS 03.0007F: GOTO 0A0.................... {.................... incoming = i2c_read();0080: BCF 14.60081: BTFSS 0C.30082: GOTO 0810083: MOVF 13,W0084: BSF 14.40085: MOVWF 49.................... if(state == 1) //First received byte is address0086: DECFSZ 4A,W0087: GOTO 096.................... {.................... address = incoming;0088: MOVF 49,W0089: MOVWF 3F.................... if (incoming == 2)008A: MOVF 49,W008B: SUBLW 02008C: BTFSS 03.2008D: GOTO 096.................... {.................... buffer[0]=make8(count,0);008E: MOVF 2B,W008F: MOVWF 2F.................... buffer[1]=make8(count,1);0090: MOVF 2C,W0091: MOVWF 30.................... buffer[2]=make8(count,2);0092: MOVF 2D,W0093: MOVWF 31.................... buffer[3]=make8(count,3);0094: MOVF 2E,W0095: MOVWF 32.................... }.................... }.................... if(state == 2) //Second received byte is data0096: MOVF 4A,W0097: SUBLW 020098: BTFSS 03.20099: GOTO 0A0.................... buffer[address] = incoming;009A: MOVLW 2F009B: ADDWF 3F,W009C: MOVWF 04009D: BCF 03.7009E: MOVF 49,W009F: MOVWF 00............................................................ }.................... if(state == 0x80) //Master is requesting data00A0: MOVF 4A,W00A1: SUBLW 8000A2: BTFSS 03.200A3: GOTO 0B7.................... {.................... i2c_write(buffer[address]);00A4: MOVLW 2F00A5: ADDWF 3F,W00A6: MOVWF 0400A7: BCF 03.700A8: MOVF 00,W00A9: MOVWF 4B00AA: MOVF 4B,W00AB: MOVWF 4C.................... }.................... }........................................*00B7: BCF 0C.300B8: BCF 0A.300B9: BCF 0A.400BA: GOTO 027.................... #int_EXT // Interrupt from 1PPS.................... void EXT_isr(void).................... {.................... unsigned int16 countH;.................... unsigned int8 countL;.................... char countS[10], a[4], b[4], c[4]; // strings for printing results........................................ countL=0;*0145: CLRF 4B.................... countH=get_timer1(); // read internal counter0146: MOVF 0F,W0147: MOVWF 7A0148: MOVF 0E,W0149: MOVWF 77014A: MOVF 0F,W014B: SUBWF 7A,W014C: BTFSS 03.2014D: GOTO 146014E: MOVF 77,W014F: MOVWF 490150: MOVF 7A,W0151: MOVWF 4A.................... output_low(SEL0);0152: BSF 03.50153: BCF 09.00154: BCF 03.50155: BCF 09.0.................... output_low(SEL1);0156: BSF 03.50157: BCF 09.10158: BCF 03.50159: BCF 09.1.................... countL=input(CLKI); // read bit 0 of external counter015A: BSF 28.0015B: MOVF 28,W015C: BSF 03.5015D: MOVWF 07015E: BCF 03.5015F: CLRF 4B0160: BTFSC 07.00161: INCF 4B,F.................... output_high(SEL0);0162: BSF 03.50163: BCF 09.00164: BCF 03.50165: BSF 09.0.................... output_low(SEL1);0166: BSF 03.50167: BCF 09.10168: BCF 03.50169: BCF 09.1.................... countL|=input(CLKI)<<1; // read bit 1 of external counter016A: BSF 28.0016B: MOVF 28,W016C: BSF 03.5016D: MOVWF 07016E: MOVLW 00016F: BCF 03.50170: BTFSC 07.00171: MOVLW 010172: MOVWF 770173: BCF 03.00174: RLF 77,F0175: MOVF 77,W0176: IORWF 4B,F.................... output_low(SEL0);0177: BSF 03.50178: BCF 09.00179: BCF 03.5017A: BCF 09.0.................... output_high(SEL1);017B: BSF 03.5017C: BCF 09.1017D: BCF 03.5017E: BSF 09.1.................... countL|=input(CLKI)<<2; // read bit 2 of external counter017F: BSF 28.00180: MOVF 28,W0181: BSF 03.50182: MOVWF 070183: MOVLW 000184: BCF 03.50185: BTFSC 07.00186: MOVLW 010187: MOVWF 770188: RLF 77,F0189: RLF 77,F018A: MOVLW FC018B: ANDWF 77,F018C: MOVF 77,W018D: IORWF 4B,F.................... output_high(SEL0);018E: BSF 03.5018F: BCF 09.00190: BCF 03.50191: BSF 09.0.................... output_high(SEL1);0192: BSF 03.50193: BCF 09.10194: BCF 03.50195: BSF 09.1.................... countL|=input(CLKI)<<3; // read bit 3 of external counter0196: BSF 28.00197: MOVF 28,W0198: BSF 03.50199: MOVWF 07019A: MOVLW 00019B: BCF 03.5019C: BTFSC 07.0019D: MOVLW 01019E: MOVWF 77019F: RLF 77,F01A0: RLF 77,F01A1: RLF 77,F01A2: MOVLW F801A3: ANDWF 77,F01A4: MOVF 77,W01A5: IORWF 4B,F........................................ output_low(MR); // External counter Master Reset01A6: BSF 03.501A7: BCF 09.201A8: BCF 03.501A9: BCF 09.2.................... output_high(MR);01AA: BSF 03.501AB: BCF 09.201AC: BCF 03.501AD: BSF 09.2........................................ set_timer1(0); // Internal counter reset01AE: CLRF 0F01AF: CLRF 0E........................................ count=((unsigned int32)of<<20)+((unsigned int32)countH<<4)+(unsigned int32)countL; // concatenate01B0: CLRF 6501B1: CLRF 6401B2: MOVF 41,W01B3: MOVWF 6301B4: MOVF 40,W01B5: MOVWF 6201B6: MOVF 41,W01B7: MOVWF 6501B8: MOVF 40,W01B9: MOVWF 6401BA: CLRF 6201BB: CLRF 6301BC: RLF 64,F01BD: RLF 65,F01BE: RLF 64,F01BF: RLF 65,F01C0: RLF 64,F01C1: RLF 65,F01C2: RLF 64,F01C3: RLF 65,F01C4: MOVLW F001C5: ANDWF 64,F01C6: CLRF 6A01C7: CLRF 6901C8: RLF 49,W01C9: MOVWF 7701CA: RLF 4A,W01CB: MOVWF 7801CC: RLF 69,W01CD: MOVWF 7901CE: RLF 6A,W01CF: MOVWF 7A01D0: RLF 77,F01D1: RLF 78,F01D2: RLF 79,F01D3: RLF 7A,F01D4: RLF 77,F01D5: RLF 78,F01D6: RLF 79,F01D7: RLF 7A,F01D8: RLF 77,F01D9: RLF 78,F01DA: RLF 79,F01DB: RLF 7A,F01DC: MOVLW F001DD: ANDWF 77,F01DE: MOVF 77,W01DF: ADDWF 62,F01E0: MOVF 78,W01E1: BTFSC 03.001E2: INCFSZ 78,W01E3: ADDWF 63,F01E4: MOVF 79,W01E5: BTFSC 03.001E6: INCFSZ 79,W01E7: ADDWF 64,F01E8: MOVF 7A,W01E9: BTFSC 03.001EA: INCFSZ 7A,W01EB: ADDWF 65,F01EC: CLRF 7801ED: CLRF 7901EE: CLRF 7A01EF: MOVF 4B,W01F0: ADDWF 62,W01F1: MOVWF 2B01F2: MOVF 63,W01F3: MOVWF 2C01F4: MOVF 78,W01F5: BTFSC 03.001F6: INCFSZ 78,W01F7: ADDWF 2C,F01F8: MOVF 64,W01F9: MOVWF 2D01FA: MOVF 79,W01FB: BTFSC 03.001FC: INCFSZ 79,W01FD: ADDWF 2D,F01FE: MOVF 65,W01FF: MOVWF 2E0200: MOVF 7A,W0201: BTFSC 03.00202: INCFSZ 7A,W0203: ADDWF 2E,F........................................ sprintf(countS,"%09Lu", count); // engeneering values conversion0204: CLRF 440205: MOVLW 4C0206: MOVWF 430207: MOVLW 490208: MOVWF 040209: MOVF 2E,W020A: MOVWF 65020B: MOVF 2D,W020C: MOVWF 64020D: MOVF 2C,W020E: MOVWF 63020F: MOVF 2B,W0210: MOVWF 62.................... strncpy(a, countS, 3); a[3]='\0';*027A: CLRF 63027B: MOVLW 56027C: MOVWF 62027D: CLRF 65027E: MOVLW 4C027F: MOVWF 640280: MOVLW 030281: MOVWF 660282: CALL 1010283: CLRF 59.................... strncpy(b, &countS[3], 3); b[3]='\0';0284: CLRF 630285: MOVLW 5A0286: MOVWF 620287: CLRF 650288: MOVLW 4F0289: MOVWF 64028A: MOVLW 03028B: MOVWF 66028C: CALL 101028D: CLRF 5D.................... strncpy(c, &countS[6], 3); c[3]='\0';028E: CLRF 63028F: MOVLW 5E0290: MOVWF 620291: CLRF 650292: MOVLW 520293: MOVWF 640294: MOVLW 030295: MOVWF 660296: CALL 1010297: CLRF 61........................................ printf("%s\r\n", countS); // output to RS2320298: MOVLW 4C0299: MOVWF 04029A: BCF 03.7*02B1: MOVLW 0D02B2: BTFSS 0C.402B3: GOTO 2B202B4: MOVWF 1902B5: MOVLW 0A02B6: BTFSS 0C.402B7: GOTO 2B602B8: MOVWF 19........................................ output_toggle(BEEP); // cvak...02B9: BCF 28.302BA: MOVF 28,W02BB: BSF 03.502BC: MOVWF 0702BD: MOVLW 0802BE: BCF 03.502BF: XORWF 07,F........................................ of=0; // reset overflow counter02C0: CLRF 4102C1: CLRF 40.................... }....................02C2: BCF 0B.102C3: BCF 0A.302C4: BCF 0A.402C5: GOTO 027.................... #int_TIMER1 // Interrupf from overflow.................... void TIMER1_isr(void).................... {.................... of++;02C6: INCF 40,F02C7: BTFSC 03.202C8: INCF 41,F.................... }............................................................ /*#int_TIMER2 // every 10 ms.................... void TIMER2_isr(void).................... {.................... output_low(CE);.................... count=get_timer1();.................... set_timer1(0);.................... output_high(CE);.................... }*/........................................02C9: BCF 0C.002CA: BCF 0A.302CB: BCF 0A.402CC: GOTO 027.................... void main().................... {*0332: CLRF 040333: BCF 03.70334: MOVLW 1F0335: ANDWF 03,F0336: BSF 03.50337: BSF 03.60338: BSF 07.30339: MOVLW 08033A: BCF 03.6033B: MOVWF 19033C: MOVLW 02033D: MOVWF 1A033E: MOVLW A6033F: MOVWF 180340: MOVLW 900341: BCF 03.50342: MOVWF 180343: BSF 28.30344: MOVF 28,W0345: BSF 03.50346: MOVWF 070347: BCF 03.50348: BSF 28.40349: MOVF 28,W034A: BSF 03.5034B: MOVWF 07034C: MOVLW A0034D: MOVWF 13034E: MOVLW 36034F: BCF 03.50350: MOVWF 140351: CLRF 410352: CLRF 400353: BSF 03.50354: BSF 03.60355: MOVF 09,W0356: ANDLW C00357: MOVWF 090358: BCF 03.60359: BCF 1F.4035A: BCF 1F.5035B: MOVLW 00035C: BSF 03.6035D: MOVWF 08035E: BCF 03.5035F: CLRF 070360: CLRF 080361: CLRF 09.................... setup_adc_ports(NO_ANALOGS|VSS_VDD);*036C: BSF 03.5036D: BSF 03.6036E: MOVF 09,W036F: ANDLW C00370: MOVWF 090371: BCF 03.60372: BCF 1F.40373: BCF 1F.50374: MOVLW 000375: BSF 03.60376: MOVWF 08.................... setup_adc(ADC_OFF);0377: BCF 03.50378: BCF 03.60379: BCF 1F.0.................... setup_spi(SPI_SS_DISABLED);037A: BCF 14.5037B: BCF 28.5037C: MOVF 28,W037D: BSF 03.5037E: MOVWF 07037F: BCF 03.50380: BSF 28.40381: MOVF 28,W0382: BSF 03.50383: MOVWF 070384: BCF 03.50385: BCF 28.30386: MOVF 28,W0387: BSF 03.50388: MOVWF 070389: MOVLW 01038A: BCF 03.5038B: MOVWF 14038C: MOVLW 00038D: BSF 03.5038E: MOVWF 14.................... setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);038F: MOVF 01,W0390: ANDLW C70391: IORLW 080392: MOVWF 01.................... // setup_wdt(WDT_144MS);.................... setup_timer_1(T1_EXTERNAL|T1_DIV_BY_1);0393: MOVLW 070394: BCF 03.50395: MOVWF 10.................... setup_timer_2(T2_DIV_BY_16,196,16);0396: MOVLW 780397: MOVWF 780398: IORLW 060399: MOVWF 12039A: MOVLW C4039B: BSF 03.5039C: MOVWF 12.................... setup_ccp1(CCP_OFF);039D: BCF 03.5039E: BSF 28.2039F: MOVF 28,W03A0: BSF 03.503A1: MOVWF 0703A2: BCF 03.503A3: CLRF 1703A4: BSF 03.503A5: CLRF 1B03A6: CLRF 1C03A7: MOVLW 0103A8: MOVWF 1D.................... setup_comparator(NC_NC_NC_NC);03A9: BCF 03.503AA: BSF 03.603AB: CLRF 0703AC: CLRF 0803AD: CLRF 09.................... setup_vref(FALSE);03AE: BSF 03.503AF: BCF 03.603B0: CLRF 17........................................ delay_ms(1000);03B1: MOVLW 0403B2: BCF 03.503B3: MOVWF 4603B4: MOVLW FA03B5: MOVWF 4703B6: GOTO 2D203B7: DECFSZ 46,F03B8: GOTO 3B4.................... int n;.................... for (n=0;n<40;n++) putc(cmd[n]); // setup GPS03B9: CLRF 4503BA: MOVF 45,W03BB: SUBLW 2703BC: BTFSS 03.003BD: GOTO 3C503BE: MOVF 45,W03BF: CALL 04103C0: BTFSS 0C.403C1: GOTO 3C003C2: MOVWF 1903C3: INCF 45,F03C4: GOTO 3BA........................................ printf("cvak...\r\n");03C5: MOVLW CD03C6: BSF 03.603C7: MOVWF 0D03C8: MOVLW 0203C9: MOVWF 0F03CA: BCF 03.603CB: GOTO 2E8........................................ ext_int_edge( L_TO_H ); // set 1PPS active edge03CC: BSF 03.503CD: BSF 01.6.................... enable_interrupts(INT_TIMER1);03CE: BSF 0C.0.................... enable_interrupts(INT_EXT);03CF: BCF 03.503D0: BSF 0B.4.................... enable_interrupts(INT_SSP);03D1: BSF 03.503D2: BSF 0C.3.................... // enable_interrupts(INT_TIMER2);.................... enable_interrupts(GLOBAL);03D3: MOVLW C003D4: BCF 03.503D5: IORWF 0B,F........................................ while(true).................... {.................... /* output_high(LED);.................... delay_ms(999);.................... output_low(LED);.................... delay_ms(999);.................... printf("%X %X %X %X\r\n", buffer[0],buffer[1],buffer[2],buffer[3]);.................... */.................... }03D6: GOTO 3D6.................... }03D7: SLEEPConfiguration Fuses:Word 1: 2CF2 HS NOWDT NOPUT MCLR NOPROTECT NOCPD NOBROWNOUT IESO FCMEN NOLVP NODEBUGWord 2: 3FFF NOWRT BORV40