1,17 → 1,17 |
CCS PCM C Compiler, Version 4.106, 47914 04-II-14 11:45 |
CCS PCM C Compiler, Version 4.106, 47914 04-II-14 15:49 |
|
Filename: Z:\home\kaklik\svn\svnMLAB\Designs\Measuring_instruments\RMDS01C\SW\PIC16F887\main.lst |
|
ROM used: 984 words (12%) |
ROM used: 421 words (5%) |
Largest free fragment is 2048 |
RAM used: 43 (12%) at main() level |
96 (26%) worst case |
RAM used: 31 (8%) at main() level |
37 (10%) worst case |
Stack: 3 worst case (1 in main + 2 for interrupts) |
|
* |
0000: MOVLW 03 |
0000: MOVLW 01 |
0001: MOVWF 0A |
0002: GOTO 332 |
0002: GOTO 111 |
0003: NOP |
0004: MOVWF 7F |
0005: SWAPF 03,W |
32,48 → 32,33 |
0014: MOVWF 26 |
0015: BCF 03.7 |
0016: BCF 03.5 |
0017: BTFSS 0B.4 |
0018: GOTO 01B |
0019: BTFSC 0B.1 |
001A: GOTO 038 |
001B: MOVLW 8C |
001C: MOVWF 04 |
001D: BTFSS 00.0 |
001E: GOTO 021 |
001F: BTFSC 0C.0 |
0020: GOTO 03B |
0021: MOVLW 8C |
0022: MOVWF 04 |
0023: BTFSS 00.3 |
0024: GOTO 027 |
0025: BTFSC 0C.3 |
0026: GOTO 03E |
0027: MOVF 22,W |
0028: MOVWF 04 |
0029: MOVF 23,W |
002A: MOVWF 77 |
002B: MOVF 24,W |
002C: MOVWF 78 |
002D: MOVF 25,W |
002E: MOVWF 79 |
002F: MOVF 26,W |
0030: MOVWF 7A |
0031: MOVF 20,W |
0032: MOVWF 0A |
0033: SWAPF 21,W |
0034: MOVWF 03 |
0035: SWAPF 7F,F |
0036: SWAPF 7F,W |
0037: RETFIE |
0038: BCF 0A.3 |
0039: BCF 0A.4 |
003A: GOTO 145 |
003B: BCF 0A.3 |
003C: BCF 0A.4 |
003D: GOTO 2C6 |
003E: BCF 0A.3 |
003F: BCF 0A.4 |
0040: GOTO 06D |
0017: MOVLW 8C |
0018: MOVWF 04 |
0019: BTFSS 00.3 |
001A: GOTO 01D |
001B: BTFSC 0C.3 |
001C: GOTO 02E |
001D: MOVF 22,W |
001E: MOVWF 04 |
001F: MOVF 23,W |
0020: MOVWF 77 |
0021: MOVF 24,W |
0022: MOVWF 78 |
0023: MOVF 25,W |
0024: MOVWF 79 |
0025: MOVF 26,W |
0026: MOVWF 7A |
0027: MOVF 20,W |
0028: MOVWF 0A |
0029: SWAPF 21,W |
002A: MOVWF 03 |
002B: SWAPF 7F,F |
002C: SWAPF 7F,W |
002D: RETFIE |
002E: BCF 0A.3 |
002F: BCF 0A.4 |
0030: GOTO 03E |
.................... #define ID "$Id: main.c 2916 2013-04-14 17:42:03Z kaklik $" |
.................... #include "main.h" |
.................... #include <16F887.h> |
.................... //////// Standard Header file for the PIC16F887 device //////////////// |
98,588 → 83,50 |
.................... |
.................... #use delay(clock=20000000) |
* |
02D2: MOVLW 47 |
02D3: MOVWF 04 |
02D4: BCF 03.7 |
02D5: MOVF 00,W |
02D6: BTFSC 03.2 |
02D7: GOTO 2E5 |
02D8: MOVLW 06 |
02D9: MOVWF 78 |
02DA: CLRF 77 |
02DB: DECFSZ 77,F |
02DC: GOTO 2DB |
02DD: DECFSZ 78,F |
02DE: GOTO 2DA |
02DF: MOVLW 7B |
02E0: MOVWF 77 |
02E1: DECFSZ 77,F |
02E2: GOTO 2E1 |
02E3: DECFSZ 00,F |
02E4: GOTO 2D8 |
02E5: BCF 0A.3 |
02E6: BCF 0A.4 |
02E7: GOTO 3B7 (RETURN) |
00D8: MOVLW 3A |
00D9: MOVWF 04 |
00DA: BCF 03.7 |
00DB: MOVF 00,W |
00DC: BTFSC 03.2 |
00DD: GOTO 0EB |
00DE: MOVLW 06 |
00DF: MOVWF 78 |
00E0: CLRF 77 |
00E1: DECFSZ 77,F |
00E2: GOTO 0E1 |
00E3: DECFSZ 78,F |
00E4: GOTO 0E0 |
00E5: MOVLW 7B |
00E6: MOVWF 77 |
00E7: DECFSZ 77,F |
00E8: GOTO 0E7 |
00E9: DECFSZ 00,F |
00EA: GOTO 0DE |
00EB: BCF 0A.3 |
00EC: BCF 0A.4 |
00ED: GOTO 179 (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,W |
00AD: MOVWF 13 |
00AE: BSF 14.4 |
00AF: BCF 0C.3 |
00B0: BSF 03.5 |
00B1: BTFSC 14.0 |
00B2: GOTO 0B1 |
00B3: CLRF 78 |
00B4: BCF 03.5 |
00B5: BTFSC 14.4 |
00B6: 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--) |
.................... #use i2c(SLAVE, Fast, sda=PIN_C4, scl=PIN_C3, force_hw, address=0xA2) |
* |
0101: MOVF 63,W |
0102: MOVWF 68 |
0103: MOVF 62,W |
0104: MOVWF 67 |
0105: MOVF 66,F |
0106: BTFSC 03.2 |
0107: GOTO 130 |
0108: MOVF 65,W |
0109: MOVWF 7A |
010A: MOVF 64,W |
010B: MOVWF 04 |
010C: BCF 03.7 |
010D: BTFSC 7A.0 |
010E: BSF 03.7 |
010F: MOVF 00,F |
0110: BTFSC 03.2 |
0111: GOTO 130 |
.................... *s++ = *s2++; |
0112: MOVF 68,W |
0113: MOVWF 7A |
0114: MOVF 67,W |
0115: INCF 67,F |
0116: BTFSC 03.2 |
0117: INCF 68,F |
0118: MOVWF 69 |
0119: MOVF 7A,W |
011A: MOVWF 6A |
011B: MOVF 65,W |
011C: MOVWF 7A |
011D: MOVF 64,W |
011E: INCF 64,F |
011F: BTFSC 03.2 |
0120: INCF 65,F |
0121: MOVWF 04 |
0122: BCF 03.7 |
0123: BTFSC 7A.0 |
0124: BSF 03.7 |
0125: MOVF 00,W |
0126: MOVWF 6B |
0127: MOVF 69,W |
0128: MOVWF 04 |
0129: BCF 03.7 |
012A: BTFSC 6A.0 |
012B: BSF 03.7 |
012C: MOVF 6B,W |
012D: MOVWF 00 |
012E: DECF 66,F |
012F: GOTO 105 |
.................... for (; n > 0; n--) |
0130: MOVF 66,F |
0131: BTFSC 03.2 |
0132: GOTO 140 |
.................... *s++ = '\0'; |
0133: MOVF 68,W |
0134: MOVWF 7A |
0135: MOVF 67,W |
0136: INCF 67,F |
0137: BTFSC 03.2 |
0138: INCF 68,F |
0139: MOVWF 04 |
013A: BCF 03.7 |
013B: BTFSC 7A.0 |
013C: BSF 03.7 |
013D: CLRF 00 |
013E: DECF 66,F |
013F: GOTO 130 |
0031: MOVF 13,W |
0032: MOVF 3F,W |
0033: MOVWF 13 |
0034: BSF 14.4 |
0035: BCF 0C.3 |
0036: BSF 03.5 |
0037: BTFSC 14.0 |
0038: GOTO 037 |
0039: CLRF 78 |
003A: BCF 03.5 |
003B: BTFSC 14.4 |
003C: INCF 78,F |
003D: RETURN |
.................... |
.................... return(s1); |
0140: MOVF 62,W |
0141: MOVWF 78 |
0142: MOVF 63,W |
0143: MOVWF 79 |
.................... } |
0144: RETURN |
.................... /***********************************************************/ |
.................... //#include <string.h> |
.................... |
.................... /*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 29 |
0367: 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 |
.................... |
691,117 → 138,119 |
.................... |
.................... unsigned int32 count; |
.................... |
.................... const int8 buf_len=8; |
.................... int8 buffer[buf_len]; // I2C buffer |
.................... int8 address=0; |
.................... |
.................... 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; |
.................... BYTE incoming, state; |
.................... |
.................... state = i2c_isr_state(); |
* |
006D: BSF 03.5 |
006E: BTFSC 14.5 |
006F: GOTO 078 |
0070: BCF 03.5 |
0071: CLRF 42 |
0072: BSF 03.5 |
0073: BTFSS 14.2 |
0074: GOTO 078 |
0075: BCF 03.5 |
0076: BSF 42.7 |
0077: BSF 03.5 |
0078: BCF 03.5 |
0079: MOVF 42,W |
007A: INCF 42,F |
007B: MOVWF 4A |
.................... |
003E: BSF 03.5 |
003F: BTFSC 14.5 |
0040: GOTO 049 |
0041: BCF 03.5 |
0042: CLRF 38 |
0043: BSF 03.5 |
0044: BTFSS 14.2 |
0045: GOTO 049 |
0046: BCF 03.5 |
0047: BSF 38.7 |
0048: BSF 03.5 |
0049: BCF 03.5 |
004A: MOVF 38,W |
004B: INCF 38,F |
004C: MOVWF 3D |
.................... if(state < 0x80) //Master is sending data |
007C: MOVF 4A,W |
007D: SUBLW 7F |
007E: BTFSS 03.0 |
007F: GOTO 0A0 |
004D: MOVF 3D,W |
004E: SUBLW 7F |
004F: BTFSS 03.0 |
0050: GOTO 069 |
.................... { |
.................... incoming = i2c_read(); |
0080: BCF 14.6 |
0081: BTFSS 0C.3 |
0082: GOTO 081 |
0083: MOVF 13,W |
0084: BSF 14.4 |
0085: MOVWF 49 |
0051: BCF 14.6 |
0052: BTFSS 0C.3 |
0053: GOTO 052 |
0054: MOVF 13,W |
0055: BSF 14.4 |
0056: MOVWF 3C |
.................... if(state == 1) //First received byte is address |
0086: DECFSZ 4A,W |
0087: GOTO 096 |
0057: DECFSZ 3D,W |
0058: GOTO 05F |
.................... { |
.................... address = incoming; |
0088: MOVF 49,W |
0089: MOVWF 3F |
0059: MOVF 3C,W |
005A: MOVWF 35 |
.................... if (incoming == 2) |
008A: MOVF 49,W |
008B: SUBLW 02 |
008C: BTFSS 03.2 |
008D: GOTO 096 |
005B: MOVF 3C,W |
005C: SUBLW 02 |
005D: BTFSS 03.2 |
005E: GOTO 05F |
.................... { |
.................... buffer[0]=make8(count,0); |
008E: MOVF 2B,W |
008F: MOVWF 2F |
.................... buffer[1]=make8(count,1); |
0090: MOVF 2C,W |
0091: MOVWF 30 |
.................... buffer[2]=make8(count,2); |
0092: MOVF 2D,W |
0093: MOVWF 31 |
.................... buffer[3]=make8(count,3); |
0094: MOVF 2E,W |
0095: MOVWF 32 |
.................... } |
.................... /* buffer[0]=make8(anemo,0); |
.................... buffer[1]=make8(anemo,1); |
.................... buffer[2]=make8(rain,0); |
.................... buffer[3]=make8(rain,1); |
.................... */ } |
.................... } |
.................... if(state == 2) //Second received byte is data |
0096: MOVF 4A,W |
0097: SUBLW 02 |
0098: BTFSS 03.2 |
0099: GOTO 0A0 |
005F: MOVF 3D,W |
0060: SUBLW 02 |
0061: BTFSS 03.2 |
0062: GOTO 069 |
.................... buffer[address] = incoming; |
009A: MOVLW 2F |
009B: ADDWF 3F,W |
009C: MOVWF 04 |
009D: BCF 03.7 |
009E: MOVF 49,W |
009F: MOVWF 00 |
.................... |
.................... |
0063: MOVLW 2D |
0064: ADDWF 35,W |
0065: MOVWF 04 |
0066: BCF 03.7 |
0067: MOVF 3C,W |
0068: MOVWF 00 |
.................... } |
.................... if(state == 0x80) //Master is requesting data |
00A0: MOVF 4A,W |
00A1: SUBLW 80 |
00A2: BTFSS 03.2 |
00A3: GOTO 0B7 |
0069: MOVF 3D,W |
006A: SUBLW 80 |
006B: BTFSS 03.2 |
006C: GOTO 085 |
.................... { |
.................... i2c_write(buffer[address]); |
00A4: MOVLW 2F |
00A5: ADDWF 3F,W |
00A6: MOVWF 04 |
00A7: BCF 03.7 |
00A8: MOVF 00,W |
00A9: MOVWF 4B |
00AA: MOVF 4B,W |
00AB: MOVWF 4C |
.................... if(address <= buf_len) i2c_write(buffer[address]); |
006D: MOVF 35,W |
006E: SUBLW 08 |
006F: BTFSS 03.0 |
0070: GOTO 07A |
0071: MOVLW 2D |
0072: ADDWF 35,W |
0073: MOVWF 04 |
0074: BCF 03.7 |
0075: MOVF 00,W |
0076: MOVWF 3E |
0077: MOVWF 3F |
0078: CALL 031 |
.................... else i2c_write(ID[address - buf_len]); |
0079: GOTO 085 |
007A: MOVLW 08 |
007B: SUBWF 35,W |
007C: ADDWF 00,W |
007D: MOVWF 04 |
007E: BCF 03.7 |
007F: BTFSC 56.0 |
0080: BSF 03.7 |
0081: MOVF 00,W |
0082: MOVWF 3E |
0083: MOVWF 3F |
0084: CALL 031 |
.................... } |
.................... } |
.................... |
.................... |
* |
00B7: BCF 0C.3 |
00B8: BCF 0A.3 |
00B9: BCF 0A.4 |
00BA: GOTO 027 |
.................... #int_EXT // Interrupt from 1PPS |
.................... |
.................... /*#int_EXT // Interrupt from 1PPS |
.................... void EXT_isr(void) |
.................... { |
.................... unsigned int16 countH; |
809,307 → 258,43 |
.................... char countS[10], a[4], b[4], c[4]; // strings for printing results |
.................... |
.................... countL=0; |
* |
0145: CLRF 4B |
.................... countH=get_timer1(); // read internal counter |
0146: MOVF 0F,W |
0147: MOVWF 7A |
0148: MOVF 0E,W |
0149: MOVWF 77 |
014A: MOVF 0F,W |
014B: SUBWF 7A,W |
014C: BTFSS 03.2 |
014D: GOTO 146 |
014E: MOVF 77,W |
014F: MOVWF 49 |
0150: MOVF 7A,W |
0151: MOVWF 4A |
.................... output_low(SEL0); |
0152: BSF 03.5 |
0153: BCF 09.0 |
0154: BCF 03.5 |
0155: BCF 09.0 |
.................... output_low(SEL1); |
0156: BSF 03.5 |
0157: BCF 09.1 |
0158: BCF 03.5 |
0159: BCF 09.1 |
.................... countL=input(CLKI); // read bit 0 of external counter |
015A: BSF 28.0 |
015B: MOVF 28,W |
015C: BSF 03.5 |
015D: MOVWF 07 |
015E: BCF 03.5 |
015F: CLRF 4B |
0160: BTFSC 07.0 |
0161: INCF 4B,F |
.................... output_high(SEL0); |
0162: BSF 03.5 |
0163: BCF 09.0 |
0164: BCF 03.5 |
0165: BSF 09.0 |
.................... output_low(SEL1); |
0166: BSF 03.5 |
0167: BCF 09.1 |
0168: BCF 03.5 |
0169: BCF 09.1 |
.................... countL|=input(CLKI)<<1; // read bit 1 of external counter |
016A: BSF 28.0 |
016B: MOVF 28,W |
016C: BSF 03.5 |
016D: MOVWF 07 |
016E: MOVLW 00 |
016F: BCF 03.5 |
0170: BTFSC 07.0 |
0171: MOVLW 01 |
0172: MOVWF 77 |
0173: BCF 03.0 |
0174: RLF 77,F |
0175: MOVF 77,W |
0176: IORWF 4B,F |
.................... output_low(SEL0); |
0177: BSF 03.5 |
0178: BCF 09.0 |
0179: BCF 03.5 |
017A: BCF 09.0 |
.................... output_high(SEL1); |
017B: BSF 03.5 |
017C: BCF 09.1 |
017D: BCF 03.5 |
017E: BSF 09.1 |
.................... countL|=input(CLKI)<<2; // read bit 2 of external counter |
017F: BSF 28.0 |
0180: MOVF 28,W |
0181: BSF 03.5 |
0182: MOVWF 07 |
0183: MOVLW 00 |
0184: BCF 03.5 |
0185: BTFSC 07.0 |
0186: MOVLW 01 |
0187: MOVWF 77 |
0188: RLF 77,F |
0189: RLF 77,F |
018A: MOVLW FC |
018B: ANDWF 77,F |
018C: MOVF 77,W |
018D: IORWF 4B,F |
.................... output_high(SEL0); |
018E: BSF 03.5 |
018F: BCF 09.0 |
0190: BCF 03.5 |
0191: BSF 09.0 |
.................... output_high(SEL1); |
0192: BSF 03.5 |
0193: BCF 09.1 |
0194: BCF 03.5 |
0195: BSF 09.1 |
.................... countL|=input(CLKI)<<3; // read bit 3 of external counter |
0196: BSF 28.0 |
0197: MOVF 28,W |
0198: BSF 03.5 |
0199: MOVWF 07 |
019A: MOVLW 00 |
019B: BCF 03.5 |
019C: BTFSC 07.0 |
019D: MOVLW 01 |
019E: MOVWF 77 |
019F: RLF 77,F |
01A0: RLF 77,F |
01A1: RLF 77,F |
01A2: MOVLW F8 |
01A3: ANDWF 77,F |
01A4: MOVF 77,W |
01A5: IORWF 4B,F |
.................... |
.................... output_low(MR); // External counter Master Reset |
01A6: BSF 03.5 |
01A7: BCF 09.2 |
01A8: BCF 03.5 |
01A9: BCF 09.2 |
.................... output_high(MR); |
01AA: BSF 03.5 |
01AB: BCF 09.2 |
01AC: BCF 03.5 |
01AD: BSF 09.2 |
.................... |
.................... set_timer1(0); // Internal counter reset |
01AE: CLRF 0F |
01AF: CLRF 0E |
.................... |
.................... count=((unsigned int32)of<<20)+((unsigned int32)countH<<4)+(unsigned int32)countL; // concatenate |
01B0: CLRF 65 |
01B1: CLRF 64 |
01B2: MOVF 41,W |
01B3: MOVWF 63 |
01B4: MOVF 40,W |
01B5: MOVWF 62 |
01B6: MOVF 41,W |
01B7: MOVWF 65 |
01B8: MOVF 40,W |
01B9: MOVWF 64 |
01BA: CLRF 62 |
01BB: CLRF 63 |
01BC: RLF 64,F |
01BD: RLF 65,F |
01BE: RLF 64,F |
01BF: RLF 65,F |
01C0: RLF 64,F |
01C1: RLF 65,F |
01C2: RLF 64,F |
01C3: RLF 65,F |
01C4: MOVLW F0 |
01C5: ANDWF 64,F |
01C6: CLRF 6A |
01C7: CLRF 69 |
01C8: RLF 49,W |
01C9: MOVWF 77 |
01CA: RLF 4A,W |
01CB: MOVWF 78 |
01CC: RLF 69,W |
01CD: MOVWF 79 |
01CE: RLF 6A,W |
01CF: MOVWF 7A |
01D0: RLF 77,F |
01D1: RLF 78,F |
01D2: RLF 79,F |
01D3: RLF 7A,F |
01D4: RLF 77,F |
01D5: RLF 78,F |
01D6: RLF 79,F |
01D7: RLF 7A,F |
01D8: RLF 77,F |
01D9: RLF 78,F |
01DA: RLF 79,F |
01DB: RLF 7A,F |
01DC: MOVLW F0 |
01DD: ANDWF 77,F |
01DE: MOVF 77,W |
01DF: ADDWF 62,F |
01E0: MOVF 78,W |
01E1: BTFSC 03.0 |
01E2: INCFSZ 78,W |
01E3: ADDWF 63,F |
01E4: MOVF 79,W |
01E5: BTFSC 03.0 |
01E6: INCFSZ 79,W |
01E7: ADDWF 64,F |
01E8: MOVF 7A,W |
01E9: BTFSC 03.0 |
01EA: INCFSZ 7A,W |
01EB: ADDWF 65,F |
01EC: CLRF 78 |
01ED: CLRF 79 |
01EE: CLRF 7A |
01EF: MOVF 4B,W |
01F0: ADDWF 62,W |
01F1: MOVWF 2B |
01F2: MOVF 63,W |
01F3: MOVWF 2C |
01F4: MOVF 78,W |
01F5: BTFSC 03.0 |
01F6: INCFSZ 78,W |
01F7: ADDWF 2C,F |
01F8: MOVF 64,W |
01F9: MOVWF 2D |
01FA: MOVF 79,W |
01FB: BTFSC 03.0 |
01FC: INCFSZ 79,W |
01FD: ADDWF 2D,F |
01FE: MOVF 65,W |
01FF: MOVWF 2E |
0200: MOVF 7A,W |
0201: BTFSC 03.0 |
0202: INCFSZ 7A,W |
0203: ADDWF 2E,F |
.................... |
.................... sprintf(countS,"%09Lu", count); // engeneering values conversion |
0204: CLRF 44 |
0205: MOVLW 4C |
0206: MOVWF 43 |
0207: MOVLW 49 |
0208: MOVWF 04 |
0209: MOVF 2E,W |
020A: MOVWF 65 |
020B: MOVF 2D,W |
020C: MOVWF 64 |
020D: MOVF 2C,W |
020E: MOVWF 63 |
020F: MOVF 2B,W |
0210: MOVWF 62 |
.................... strncpy(a, countS, 3); a[3]='\0'; |
* |
027A: CLRF 63 |
027B: MOVLW 56 |
027C: MOVWF 62 |
027D: CLRF 65 |
027E: MOVLW 4C |
027F: MOVWF 64 |
0280: MOVLW 03 |
0281: MOVWF 66 |
0282: CALL 101 |
0283: CLRF 59 |
.................... strncpy(b, &countS[3], 3); b[3]='\0'; |
0284: CLRF 63 |
0285: MOVLW 5A |
0286: MOVWF 62 |
0287: CLRF 65 |
0288: MOVLW 4F |
0289: MOVWF 64 |
028A: MOVLW 03 |
028B: MOVWF 66 |
028C: CALL 101 |
028D: CLRF 5D |
.................... strncpy(c, &countS[6], 3); c[3]='\0'; |
028E: CLRF 63 |
028F: MOVLW 5E |
0290: MOVWF 62 |
0291: CLRF 65 |
0292: MOVLW 52 |
0293: MOVWF 64 |
0294: MOVLW 03 |
0295: MOVWF 66 |
0296: CALL 101 |
0297: CLRF 61 |
.................... |
.................... printf("%s\r\n", countS); // output to RS232 |
0298: MOVLW 4C |
0299: MOVWF 04 |
029A: BCF 03.7 |
* |
02B1: MOVLW 0D |
02B2: BTFSS 0C.4 |
02B3: GOTO 2B2 |
02B4: MOVWF 19 |
02B5: MOVLW 0A |
02B6: BTFSS 0C.4 |
02B7: GOTO 2B6 |
02B8: MOVWF 19 |
.................... |
.................... output_toggle(BEEP); // cvak... |
02B9: BCF 28.3 |
02BA: MOVF 28,W |
02BB: BSF 03.5 |
02BC: MOVWF 07 |
02BD: MOVLW 08 |
02BE: BCF 03.5 |
02BF: XORWF 07,F |
.................... |
.................... of=0; // reset overflow counter |
02C0: CLRF 41 |
02C1: CLRF 40 |
.................... } |
.................... |
02C2: BCF 0B.1 |
02C3: BCF 0A.3 |
02C4: BCF 0A.4 |
02C5: GOTO 027 |
.................... #int_TIMER1 // Interrupf from overflow |
.................... void TIMER1_isr(void) |
.................... { |
.................... of++; |
02C6: INCF 40,F |
02C7: BTFSC 03.2 |
02C8: INCF 41,F |
.................... } |
.................... |
.................... |
1123,204 → 308,213 |
.................... }*/ |
.................... |
.................... |
02C9: BCF 0C.0 |
02CA: BCF 0A.3 |
02CB: BCF 0A.4 |
02CC: GOTO 027 |
0085: BCF 0C.3 |
0086: BCF 0A.3 |
0087: BCF 0A.4 |
0088: GOTO 01D |
.................... void main() |
.................... { |
* |
0332: CLRF 04 |
0333: BCF 03.7 |
0334: MOVLW 1F |
0335: ANDWF 03,F |
0336: BSF 03.5 |
0337: BSF 03.6 |
0338: BSF 07.3 |
0339: MOVLW 08 |
033A: BCF 03.6 |
033B: MOVWF 19 |
033C: MOVLW 02 |
033D: MOVWF 1A |
033E: MOVLW A6 |
033F: MOVWF 18 |
0340: MOVLW 90 |
0341: BCF 03.5 |
0342: MOVWF 18 |
0343: BSF 28.3 |
0344: MOVF 28,W |
0345: BSF 03.5 |
0346: MOVWF 07 |
0347: BCF 03.5 |
0348: BSF 28.4 |
0349: MOVF 28,W |
034A: BSF 03.5 |
034B: MOVWF 07 |
034C: MOVLW A0 |
034D: MOVWF 13 |
034E: MOVLW 36 |
034F: BCF 03.5 |
0350: MOVWF 14 |
0351: CLRF 41 |
0352: CLRF 40 |
0353: BSF 03.5 |
0354: BSF 03.6 |
0355: MOVF 09,W |
0356: ANDLW C0 |
0357: MOVWF 09 |
0358: BCF 03.6 |
0359: BCF 1F.4 |
035A: BCF 1F.5 |
035B: MOVLW 00 |
035C: BSF 03.6 |
035D: MOVWF 08 |
035E: BCF 03.5 |
035F: CLRF 07 |
0360: CLRF 08 |
0361: CLRF 09 |
.................... setup_adc_ports(NO_ANALOGS|VSS_VDD); |
* |
036C: BSF 03.5 |
036D: BSF 03.6 |
036E: MOVF 09,W |
036F: ANDLW C0 |
0370: MOVWF 09 |
0371: BCF 03.6 |
0372: BCF 1F.4 |
0373: BCF 1F.5 |
0374: MOVLW 00 |
0375: BSF 03.6 |
0376: MOVWF 08 |
0111: CLRF 04 |
0112: BCF 03.7 |
0113: MOVLW 1F |
0114: ANDWF 03,F |
0115: BSF 03.5 |
0116: BSF 03.6 |
0117: BSF 07.3 |
0118: MOVLW 08 |
0119: BCF 03.6 |
011A: MOVWF 19 |
011B: MOVLW 02 |
011C: MOVWF 1A |
011D: MOVLW A6 |
011E: MOVWF 18 |
011F: MOVLW 90 |
0120: BCF 03.5 |
0121: MOVWF 18 |
0122: BSF 28.3 |
0123: MOVF 28,W |
0124: BSF 03.5 |
0125: MOVWF 07 |
0126: BCF 03.5 |
0127: BSF 28.4 |
0128: MOVF 28,W |
0129: BSF 03.5 |
012A: MOVWF 07 |
012B: MOVLW A2 |
012C: MOVWF 13 |
012D: MOVLW 36 |
012E: BCF 03.5 |
012F: MOVWF 14 |
0130: CLRF 35 |
0131: CLRF 37 |
0132: CLRF 36 |
0133: BSF 03.5 |
0134: BSF 03.6 |
0135: MOVF 09,W |
0136: ANDLW C0 |
0137: MOVWF 09 |
0138: BCF 03.6 |
0139: BCF 1F.4 |
013A: BCF 1F.5 |
013B: MOVLW 00 |
013C: BSF 03.6 |
013D: MOVWF 08 |
013E: BCF 03.5 |
013F: CLRF 07 |
0140: CLRF 08 |
0141: CLRF 09 |
.................... /* setup_adc_ports(NO_ANALOGS|VSS_VDD); |
.................... setup_adc(ADC_OFF); |
0377: BCF 03.5 |
0378: BCF 03.6 |
0379: BCF 1F.0 |
.................... setup_spi(SPI_SS_DISABLED); |
037A: BCF 14.5 |
037B: BCF 28.5 |
037C: MOVF 28,W |
037D: BSF 03.5 |
037E: MOVWF 07 |
037F: BCF 03.5 |
0380: BSF 28.4 |
0381: MOVF 28,W |
0382: BSF 03.5 |
0383: MOVWF 07 |
0384: BCF 03.5 |
0385: BCF 28.3 |
0386: MOVF 28,W |
0387: BSF 03.5 |
0388: MOVWF 07 |
0389: MOVLW 01 |
038A: BCF 03.5 |
038B: MOVWF 14 |
038C: MOVLW 00 |
038D: BSF 03.5 |
038E: MOVWF 14 |
.................... // setup_spi(SPI_SS_DISABLED); |
.................... setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1); |
038F: MOVF 01,W |
0390: ANDLW C7 |
0391: IORLW 08 |
0392: MOVWF 01 |
.................... // setup_wdt(WDT_144MS); |
.................... setup_timer_1(T1_EXTERNAL|T1_DIV_BY_1); |
0393: MOVLW 07 |
0394: BCF 03.5 |
0395: MOVWF 10 |
.................... setup_timer_2(T2_DIV_BY_16,196,16); |
0396: MOVLW 78 |
0397: MOVWF 78 |
0398: IORLW 06 |
0399: MOVWF 12 |
039A: MOVLW C4 |
039B: BSF 03.5 |
039C: MOVWF 12 |
.................... setup_ccp1(CCP_OFF); |
039D: BCF 03.5 |
039E: BSF 28.2 |
039F: MOVF 28,W |
03A0: BSF 03.5 |
03A1: MOVWF 07 |
03A2: BCF 03.5 |
03A3: CLRF 17 |
03A4: BSF 03.5 |
03A5: CLRF 1B |
03A6: CLRF 1C |
03A7: MOVLW 01 |
03A8: MOVWF 1D |
.................... setup_comparator(NC_NC_NC_NC); |
03A9: BCF 03.5 |
03AA: BSF 03.6 |
03AB: CLRF 07 |
03AC: CLRF 08 |
03AD: CLRF 09 |
.................... setup_vref(FALSE); |
03AE: BSF 03.5 |
03AF: BCF 03.6 |
03B0: CLRF 17 |
.................... |
.................... delay_ms(1000); |
03B1: MOVLW 04 |
03B2: BCF 03.5 |
03B3: MOVWF 46 |
03B4: MOVLW FA |
03B5: MOVWF 47 |
03B6: GOTO 2D2 |
03B7: DECFSZ 46,F |
03B8: GOTO 3B4 |
.................... |
.................... */ |
.................... |
.................... setup_adc_ports(NO_ANALOGS|VSS_VDD); |
* |
0148: BSF 03.5 |
0149: BSF 03.6 |
014A: MOVF 09,W |
014B: ANDLW C0 |
014C: MOVWF 09 |
014D: BCF 03.6 |
014E: BCF 1F.4 |
014F: BCF 1F.5 |
0150: MOVLW 00 |
0151: BSF 03.6 |
0152: MOVWF 08 |
.................... // setup_adc(ADC_CLOCK_DIV_2); |
.................... setup_adc(ADC_OFF); |
0153: BCF 03.5 |
0154: BCF 03.6 |
0155: BCF 1F.0 |
.................... // setup_spi(SPI_SS_DISABLED); //must not be set if I2C are in use! |
.................... setup_timer_0(RTCC_EXT_L_TO_H|RTCC_DIV_1); |
0156: BSF 03.5 |
0157: MOVF 01,W |
0158: ANDLW C7 |
0159: IORLW 28 |
015A: MOVWF 01 |
.................... // setup_timer_0(RTCC_INTERNAL);setup_wdt(WDT_144MS); |
.................... setup_timer_1(T1_EXTERNAL|T1_DIV_BY_1|T1_CLK_OUT); |
015B: MOVLW 0F |
015C: BCF 03.5 |
015D: MOVWF 10 |
.................... // setup_timer_2(T2_DISABLED,0,1); |
.................... setup_comparator(NC_NC_NC_NC); |
015E: BSF 03.6 |
015F: CLRF 07 |
0160: CLRF 08 |
0161: CLRF 09 |
.................... setup_vref(FALSE); |
0162: BSF 03.5 |
0163: BCF 03.6 |
0164: CLRF 17 |
.................... // setup_oscillator(OSC_8MHZ|OSC_INTRC); |
.................... |
.................... // ext_int_edge( L_TO_H ); // set 1PPS active edge |
.................... // enable_interrupts(INT_TIMER1); |
.................... // enable_interrupts(INT_EXT); |
.................... enable_interrupts(INT_SSP); |
0165: BSF 0C.3 |
.................... // enable_interrupts(INT_TIMER2); |
.................... enable_interrupts(GLOBAL); |
0166: MOVLW C0 |
0167: BCF 03.5 |
0168: IORWF 0B,F |
.................... |
.................... |
.................... /* delay_ms(1000); |
.................... int n; |
.................... for (n=0;n<40;n++) putc(cmd[n]); // setup GPS |
03B9: CLRF 45 |
03BA: MOVF 45,W |
03BB: SUBLW 27 |
03BC: BTFSS 03.0 |
03BD: GOTO 3C5 |
03BE: MOVF 45,W |
03BF: CALL 041 |
03C0: BTFSS 0C.4 |
03C1: GOTO 3C0 |
03C2: MOVWF 19 |
03C3: INCF 45,F |
03C4: GOTO 3BA |
.................... |
.................... */ |
.................... |
.................... printf("cvak...\r\n"); |
03C5: MOVLW CD |
03C6: BSF 03.6 |
03C7: MOVWF 0D |
03C8: MOVLW 02 |
03C9: MOVWF 0F |
03CA: BCF 03.6 |
03CB: GOTO 2E8 |
0169: MOVLW 89 |
016A: BSF 03.6 |
016B: MOVWF 0D |
016C: MOVLW 00 |
016D: MOVWF 0F |
016E: BCF 03.6 |
016F: GOTO 08E |
.................... |
.................... ext_int_edge( L_TO_H ); // set 1PPS active edge |
03CC: BSF 03.5 |
03CD: BSF 01.6 |
.................... enable_interrupts(INT_TIMER1); |
03CE: BSF 0C.0 |
.................... enable_interrupts(INT_EXT); |
03CF: BCF 03.5 |
03D0: BSF 0B.4 |
.................... enable_interrupts(INT_SSP); |
03D1: BSF 03.5 |
03D2: BSF 0C.3 |
.................... // enable_interrupts(INT_TIMER2); |
.................... enable_interrupts(GLOBAL); |
03D3: MOVLW C0 |
03D4: BCF 03.5 |
03D5: IORWF 0B,F |
.................... |
.................... buffer[2]=0; |
0170: CLRF 2F |
.................... buffer[3]=0; |
0171: CLRF 30 |
.................... buffer[4]=0; |
0172: CLRF 31 |
.................... buffer[5]=0; |
0173: CLRF 32 |
.................... |
.................... while(true) |
.................... { |
.................... /* output_high(LED); |
.................... delay_ms(999); |
.................... output_low(LED); |
.................... delay_ms(999); |
.................... // output_high(LED); |
.................... delay_ms(1000); |
0174: MOVLW 04 |
0175: MOVWF 39 |
0176: MOVLW FA |
0177: MOVWF 3A |
0178: GOTO 0D8 |
0179: DECFSZ 39,F |
017A: GOTO 176 |
.................... // output_low(LED); |
.................... // delay_ms(999); |
.................... printf("%X %X %X %X\r\n", buffer[0],buffer[1],buffer[2],buffer[3]); |
.................... */ |
017B: MOVF 2D,W |
017C: MOVWF 39 |
017D: MOVLW 37 |
017E: MOVWF 3A |
017F: CALL 0EE |
0180: MOVLW 20 |
0181: BTFSS 0C.4 |
0182: GOTO 181 |
0183: MOVWF 19 |
0184: MOVF 2E,W |
0185: MOVWF 39 |
0186: MOVLW 37 |
0187: MOVWF 3A |
0188: CALL 0EE |
0189: MOVLW 20 |
018A: BTFSS 0C.4 |
018B: GOTO 18A |
018C: MOVWF 19 |
018D: MOVF 2F,W |
018E: MOVWF 39 |
018F: MOVLW 37 |
0190: MOVWF 3A |
0191: CALL 0EE |
0192: MOVLW 20 |
0193: BTFSS 0C.4 |
0194: GOTO 193 |
0195: MOVWF 19 |
0196: MOVF 30,W |
0197: MOVWF 39 |
0198: MOVLW 37 |
0199: MOVWF 3A |
019A: CALL 0EE |
019B: MOVLW 0D |
019C: BTFSS 0C.4 |
019D: GOTO 19C |
019E: MOVWF 19 |
019F: MOVLW 0A |
01A0: BTFSS 0C.4 |
01A1: GOTO 1A0 |
01A2: MOVWF 19 |
.................... |
.................... } |
03D6: GOTO 3D6 |
01A3: GOTO 174 |
.................... } |
03D7: SLEEP |
01A4: SLEEP |
|
Configuration Fuses: |
Word 1: 2CF2 HS NOWDT NOPUT MCLR NOPROTECT NOCPD NOBROWNOUT IESO FCMEN NOLVP NODEBUG |