main.p1

一個使用PIC16F877解GPS訊號的範例

[; ;TRW24G.c: 267: Write_TRW_24G_BYTE(GpsWD_a);
"267
[e ( _Write_TRW_24G_BYTE (1 _GpsWD_a ]
[; ;TRW24G.c: 268: Write_TRW_24G_BYTE(KeyStatus);
"268
[e ( _Write_TRW_24G_BYTE (1 _KeyStatus ]
[; ;TRW24G.c: 269: Write_TRW_24G_BYTE(SpeedSet);
"269
[e ( _Write_TRW_24G_BYTE (1 _SpeedSet ]
[; ;TRW24G.c: 270: Write_TRW_24G_BYTE(UTCtime[0]);
"270
[e ( _Write_TRW_24G_BYTE (1 *U + &U _UTCtime * -> -> -> 0 `i `ui `ux -> -> # `uc `ui `ux ]
[; ;TRW24G.c: 271: Write_TRW_24G_BYTE(UTCtime[1]);
"271
[e ( _Write_TRW_24G_BYTE (1 *U + &U _UTCtime * -> -> -> 1 `i `ui `ux -> -> # `uc `ui `ux ]
[; ;TRW24G.c: 272: Write_TRW_24G_BYTE(UTCtime[2]);
"272
[e ( _Write_TRW_24G_BYTE (1 *U + &U _UTCtime * -> -> -> 2 `i `ui `ux -> -> # `uc `ui `ux ]
[; ;TRW24G.c: 273: Write_TRW_24G_BYTE(UTCtime[3]);
"273
[e ( _Write_TRW_24G_BYTE (1 *U + &U _UTCtime * -> -> -> 3 `i `ui `ux -> -> # `uc `ui `ux ]
[; ;TRW24G.c: 274: Write_TRW_24G_BYTE(UTCtime[4]);
"274
[e ( _Write_TRW_24G_BYTE (1 *U + &U _UTCtime * -> -> -> 4 `i `ui `ux -> -> # `uc `ui `ux ]
[; ;TRW24G.c: 275: Write_TRW_24G_BYTE(UTCtime[5]);
"275
[e ( _Write_TRW_24G_BYTE (1 *U + &U _UTCtime * -> -> -> 5 `i `ui `ux -> -> # `uc `ui `ux ]
[; ;TRW24G.c: 276: Write_TRW_24G_BYTE(UTCtime[5]);
"276
[e ( _Write_TRW_24G_BYTE (1 *U + &U _UTCtime * -> -> -> 5 `i `ui `ux -> -> # `uc `ui `ux ]
[; ;TRW24G.c: 277: Write_TRW_24G_BYTE(UTCtime[5]);
"277
[e ( _Write_TRW_24G_BYTE (1 *U + &U _UTCtime * -> -> -> 5 `i `ui `ux -> -> # `uc `ui `ux ]
[; ;TRW24G.c: 278: Write_TRW_24G_BYTE(UTCtime[5]);
"278
[e ( _Write_TRW_24G_BYTE (1 *U + &U _UTCtime * -> -> -> 5 `i `ui `ux -> -> # `uc `ui `ux ]
[; ;TRW24G.c: 279: Write_TRW_24G_BYTE(UTCtime[5]);
"279
[e ( _Write_TRW_24G_BYTE (1 *U + &U _UTCtime * -> -> -> 5 `i `ui `ux -> -> # `uc `ui `ux ]
[; ;TRW24G.c: 280: Write_TRW_24G_BYTE(UTCtime[5]);
"280
[e ( _Write_TRW_24G_BYTE (1 *U + &U _UTCtime * -> -> -> 5 `i `ui `ux -> -> # `uc `ui `ux ]
[; ;TRW24G.c: 282: RC1 = 0;
"282
[e = _RC1 -> -> 0 `i `b ]
[; ;TRW24G.c: 283: DelayMs(10);
"283
[e ( _DelayMs (1 -> -> 10 `i `uc ]
[; ;TRW24G.c: 285: RF_24G_SetTxRx(1);
"285
[e ( _RF_24G_SetTxRx (1 -> -> 1 `i `uc ]
[; ;TRW24G.c: 286: RC1 = 1;
"286
[e = _RC1 -> -> 1 `i `b ]
"288
[; ;TRW24G.c: 288: }
[e :UE 87 ]
}
"293
[v _Receive_TRW_24G_CH1 `(uc 1 ef1`*uc ]
{
[v _p `*uc 1 r1 ]
[e :U _Receive_TRW_24G_CH1 ]
[f ]
[; ;TRW24G.c: 292: char Receive_TRW_24G_CH1(unsigned char *p)
[; ;TRW24G.c: 293: {
"294
[v _i `uc 1 a ]
[; ;TRW24G.c: 294: unsigned char i=0;
[e = _i -> -> 0 `i `uc ]
[; ;TRW24G.c: 295: TRISC=0xB0;
"295
[e = _TRISC -> -> 176 `i `uc ]
[; ;TRW24G.c: 296: RC0 = 0;
"296
[e = _RC0 -> -> 0 `i `b ]
[; ;TRW24G.c: 297: RC1 = 1;
"297
[e = _RC1 -> -> 1 `i `b ]
[; ;TRW24G.c: 298: RC3 = 0;
"298
[e = _RC3 -> -> 0 `i `b ]
[; ;TRW24G.c: 299: while(RB0)
"299
[e $U 89 ]
[e :U 90 ]
[; ;TRW24G.c: 300: {
[; ;TRW24G.c: 301: *p++ = Read_TRW_24G_BYTE();
"301
[e = *U ++ _p * -> -> 1 `i `x -> -> # `uc `i `x ( _Read_TRW_24G_BYTE ..  ]
[; ;TRW24G.c: 302: i++;
"302
[e ++ _i -> -> 1 `i `uc ]
"303
[e :U 89 ]
"299
[e $ _RB0 90 ]
[e :U 91 ]
[; ;TRW24G.c: 303: }
[; ;TRW24G.c: 304: *p++ = i;
"304
[e = *U ++ _p * -> -> 1 `i `x -> -> # `uc `i `x _i ]
[; ;TRW24G.c: 312: TRISC=0xA0;
"312
[e = _TRISC -> -> 160 `i `uc ]
[; ;TRW24G.c: 313: return(0);
"313
[e ) -> -> 0 `i `uc ]
[e $UE 88 ]
"314
[; ;TRW24G.c: 314: }
[e :UE 88 ]
}
"322
[v _Receive_TRW_24G_CH2 `(uc 1 ef1`*uc ]
{
[v _p `*uc 1 r1 ]
[e :U _Receive_TRW_24G_CH2 ]
[f ]
[; ;TRW24G.c: 321: char Receive_TRW_24G_CH2(unsigned char *p)
[; ;TRW24G.c: 322: {
"323
[v _x `uc 1 a ]
[v _i `uc 1 a ]
[; ;TRW24G.c: 323: unsigned char x,i;
[; ;TRW24G.c: 324: RC0 = 0;
"324
[e = _RC0 -> -> 0 `i `b ]
[; ;TRW24G.c: 325: RC1 = 1;
"325
[e = _RC1 -> -> 1 `i `b ]
[; ;TRW24G.c: 326: RC2= 0;
"326
[e = _RC2 -> -> 0 `i `b ]
[; ;TRW24G.c: 327: while(RB1)
"327
[e $U 93 ]
[e :U 94 ]
[; ;TRW24G.c: 328: {
[; ;TRW24G.c: 329: for(i=0;i<8;i++)
"329
[e = _i -> -> 0 `i `uc ]
[e $ < -> _i `i -> 8 `i 96 ]
[e $U 97 ]
"330
[e :U 96 ]
[; ;TRW24G.c: 330: {
[; ;TRW24G.c: 331: RC2 = 1;
"331
[e = _RC2 -> -> 1 `i `b ]
[; ;TRW24G.c: 332: RC2 = 1;
"332
[e = _RC2 -> -> 1 `i `b ]
[; ;TRW24G.c: 333: x<<=1;
"333
[e =<< _x -> 1 `i ]
[; ;TRW24G.c: 334: if(RC5)
"334
[e $ ! _RC5 99 ]
[; ;TRW24G.c: 335: x|=0x01;
"335
[e =| _x -> -> 1 `i `uc ]
[e $U 100 ]
"336
[e :U 99 ]
[; ;TRW24G.c: 336: else
[; ;TRW24G.c: 337: x|=0x00;
"337
[e =| _x -> -> 0 `i `uc ]
[e :U 100 ]
[; ;TRW24G.c: 338: RC2 = 0;
"338
[e = _RC2 -> -> 0 `i `b ]
[; ;TRW24G.c: 339: RC2 = 0;
"339
[e = _RC2 -> -> 0 `i `b ]
"329
[e ++ _i -> -> 1 `i `uc ]
[e $ < -> _i `i -> 8 `i 96 ]
[e :U 97 ]
[; ;TRW24G.c: 340: }
[; ;TRW24G.c: 341: *p++ = x; i++;
"341
[e = *U ++ _p * -> -> 1 `i `x -> -> # `uc `i `x _x ]
[e ++ _i -> -> 1 `i `uc ]
"342
[e :U 93 ]
"327
[e $ _RB1 94 ]
[e :U 95 ]
[; ;TRW24G.c: 342: }
[; ;TRW24G.c: 343: *p++ = i;
"343
[e = *U ++ _p * -> -> 1 `i `x -> -> # `uc `i `x _i ]
[; ;TRW24G.c: 344: return(0);
"344
[e ) -> -> 0 `i `uc ]
[e $UE 92 ]
"345
[; ;TRW24G.c: 345: }
[e :UE 92 ]
}
"32 C:\NOW_WORK\GOLF_CAR\program\Remoter\GPS.C
[v _GPS_Decode `(v 1 ef1`uc ]
{
[v _tmp `uc 1 r1 ]
[e :U _GPS_Decode ]
[f ]
[; ;GPS.C: 31: void GPS_Decode(unsigned char tmp)
[; ;GPS.C: 32: {
"33
[v _i `uc 1 a ]
[; ;GPS.C: 33: unsigned char i;
[; ;GPS.C: 34: switch(tmp){
"34
[e $U 103 ]
[; ;GPS.C: 35: case '$':
"35
[e :U 104 ]
[; ;GPS.C: 36: GpsCmd_number=0;
"36
[e = _GpsCmd_number -> -> 0 `i `uc ]
[; ;GPS.C: 37: GpsCmd_mode=1;
"37
[e = _GpsCmd_mode -> -> 1 `i `uc ]
[; ;GPS.C: 38: GpsByte_count=0;
"38
[e = _GpsByte_count -> -> 0 `i `uc ]
[; ;GPS.C: 39: break;
"39
[e $U 102 ]
[; ;GPS.C: 40: case ',':
"40
[e :U 105 ]
[; ;GPS.C: 41: GpsSeg_count++;
"41
[e ++ _GpsSeg_count -> -> 1 `i `uc ]
[; ;GPS.C: 42: GpsByte_count=0;
"42
[e = _GpsByte_count -> -> 0 `i `uc ]
[; ;GPS.C: 43: break;
"43
[e $U 102 ]
[; ;GPS.C: 44: case '*':
"44
[e :U 106 ]
[; ;GPS.C: 45: switch(GpsCmd_number){
"45
[e $U 108 ]
[; ;GPS.C: 46: case 1:
"46
[e :U 109 ]
[; ;GPS.C: 47: GpsBuf_full|=0x01;
"47
[e =| _GpsBuf_full -> -> 1 `i `uc ]
[; ;GPS.C: 48: break;
"48
[e $U 107 ]
[; ;GPS.C: 49: case 2:
"49
[e :U 110 ]
[; ;GPS.C: 50: GpsBuf_full|=0x02;
"50
[e =| _GpsBuf_full -> -> 2 `i `uc ]
[; ;GPS.C: 51: break;
"51
[e $U 107 ]
[; ;GPS.C: 52: case 3:
"52
[e :U 111 ]
[; ;GPS.C: 53: GpsBuf_full|=0x04;
"53
[e =| _GpsBuf_full -> -> 4 `i `uc ]
[; ;GPS.C: 54: break;
"54
[e $U 107 ]
"55
[; ;GPS.C: 55: }
[e $U 107 ]
"45
[e :U 108 ]
[e [\ _GpsCmd_number , $ -> -> 1 `i `uc 109
 , $ -> -> 2 `i `uc 110
 , $ -> -> 3 `i `uc 111
 107 ]
"55
[e :U 107 ]
[; ;GPS.C: 56: GpsCmd_mode=0;
"56
[e = _GpsCmd_mode -> -> 0 `i `uc ]
[; ;GPS.C: 57: break;
"57
[e $U 102 ]
[; ;GPS.C: 58: default:
"58
[e :U 112 ]
[; ;GPS.C: 59: if(GpsCmd_mode==1){
"59
[e $ ! == -> _GpsCmd_mode `i -> 1 `i 113 ]
[; ;GPS.C: 61: GpsCmd[GpsByte_count]=tmp;
"61
[e = *U + &U _GpsCmd * -> _GpsByte_count `ux -> -> # `uc `ui `ux _tmp ]
[; ;GPS.C: 62: if(GpsByte_count>=4){
"62
[e $ ! >= -> _GpsByte_count `i -> 4 `i 114 ]
[; ;GPS.C: 63: if(GpsCmd[0]=='G'){
"63
[e $ ! == -> *U + &U _GpsCmd * -> -> -> 0 `i `ui `ux -> -> # `uc `ui `ux `ui -> 71 `ui 115 ]
[; ;GPS.C: 64: if(GpsCmd[1]=='P'){
"64
[e $ ! == -> *U + &U _GpsCmd * -> -> -> 1 `i `ui `ux -> -> # `uc `ui `ux `ui -> 80 `ui 116 ]
[; ;GPS.C: 65: if(GpsCmd[2]=='G'){
"65
[e $ ! == -> *U + &U _GpsCmd * -> -> -> 2 `i `ui `ux -> -> # `uc `ui `ux `ui -> 71 `ui 117 ]
[; ;GPS.C: 66: if(GpsCmd[3]=='G'){
"66
[e $ ! == -> *U + &U _GpsCmd * -> -> -> 3 `i `ui `ux -> -> # `uc `ui `ux `ui -> 71 `ui 118 ]
[; ;GPS.C: 67: if(GpsCmd[4]=='A'){
"67
[e $ ! == -> *U + &U _GpsCmd * -> -> -> 4 `i `ui `ux -> -> # `uc `ui `ux `ui -> 65 `ui 119 ]
[; ;GPS.C: 68: GpsCmd_number=1;
"68
[e = _GpsCmd_number -> -> 1 `i `uc ]
[; ;GPS.C: 69: GpsCmd_mode=2;
"69
[e = _GpsCmd_mode -> -> 2 `i `uc ]
[; ;GPS.C: 70: GpsSeg_count=0;
"70
[e = _GpsSeg_count -> -> 0 `i `uc ]
[; ;GPS.C: 71: GpsByte_count=0;
"71
[e = _GpsByte_count -> -> 0 `i `uc ]
"72
[e :U 119 ]
"73
[; ;GPS.C: 72: }
[; ;GPS.C: 73: }
[e $U 120 ]
"74
[e :U 118 ]
[; ;GPS.C: 74: else if(GpsCmd[3]=='S'){
[e $ ! == -> *U + &U _GpsCmd * -> -> -> 3 `i `ui `ux -> -> # `uc `ui `ux `ui -> 83 `ui 121 ]
[; ;GPS.C: 75: if(GpsCmd[4]=='V'){
"75
[e $ ! == -> *U + &U _GpsCmd * -> -> -> 4 `i `ui `ux -> -> # `uc `ui `ux `ui -> 86 `ui 122 ]
[; ;GPS.C: 76: GpsCmd_number=2;
"76
[e = _GpsCmd_number -> -> 2 `i `uc ]
[; ;GPS.C: 77: GpsCmd_mode=2;
"77
[e = _GpsCmd_mode -> -> 2 `i `uc ]
[; ;GPS.C: 78: GpsSeg_count=0;
"78
[e = _GpsSeg_count -> -> 0 `i `uc ]
[; ;GPS.C: 79: GpsByte_count=0;
"79
[e = _GpsByte_count -> -> 0 `i `uc ]
"80
[e :U 122 ]
"81
[e :U 121 ]
"82
[e :U 120 ]
[; ;GPS.C: 80: }
[; ;GPS.C: 81: }
[; ;GPS.C: 82: }
[e $U 123 ]
"83
[e :U 117 ]
[; ;GPS.C: 83: else if(GpsCmd[2]=='R'){
[e $ ! == -> *U + &U _GpsCmd * -> -> -> 2 `i `ui `ux -> -> # `uc `ui `ux `ui -> 82 `ui 124 ]
[; ;GPS.C: 84: if(GpsCmd[3]=='M'){
"84
[e $ ! == -> *U + &U _GpsCmd * -> -> -> 3 `i `ui `ux -> -> # `uc `ui `ux `ui -> 77 `ui 125 ]
[; ;GPS.C: 85: if(GpsCmd[4]=='C'){
"85
[e $ ! == -> *U + &U _GpsCmd * -> -> -> 4 `i `ui `ux -> -> # `uc `ui `ux `ui -> 67 `ui 126 ]
[; ;GPS.C: 86: GpsCmd_number=3;
"86
[e = _GpsCmd_number -> -> 3 `i `uc ]
[; ;GPS.C: 87: GpsCmd_mode=2;
"87
[e = _GpsCmd_mode -> -> 2 `i `uc ]
[; ;GPS.C: 88: GpsSeg_count=0;
"88
[e = _GpsSeg_count -> -> 0 `i `uc ]
[; ;GPS.C: 89: GpsByte_count=0;
"89
[e = _GpsByte_count -> -> 0 `i `uc ]
"90
[e :U 126 ]
"91
[e :U 125 ]
"92
[e :U 124 ]
"93
[e :U 123 ]
[e :U 116 ]
"94
[e :U 115 ]
"95
[e :U 114 ]
"96
[; ;GPS.C: 90: }
[; ;GPS.C: 91: }
[; ;GPS.C: 92: }
[; ;GPS.C: 93: }
[; ;GPS.C: 94: }
[; ;GPS.C: 95: }
[; ;GPS.C: 96: }
[e $U 127 ]
"97
[e :U 113 ]
[; ;GPS.C: 97: else if(GpsCmd_mode==2){
[e $ ! == -> _GpsCmd_mode `i -> 2 `i 128 ]
[; ;GPS.C: 99: switch (GpsCmd_number){
"99
[e $U 130 ]
[; ;GPS.C: 100: case 1:
"100
[e :U 131 ]
[; ;GPS.C: 101: switch(GpsSeg_count){
"101
[e $U 133 ]
[; ;GPS.C: 102: case 2:
"102
[e :U 134 ]
[; ;GPS.C: 103: if(GpsByte_count<9)
"103
[e $ ! < -> _GpsByte_count `i -> 9 `i 135 ]
[; ;GPS.C: 104: {
[; ;GPS.C: 105: GpsWD[GpsByte_count]=tmp;
"105
[e = *U + &U _GpsWD * -> _GpsByte_count `ux -> -> # `uc `ui `ux _tmp ]
[; ;GPS.C: 106: switch(GpsByte_count)
"106
[e $U 137 ]
[; ;GPS.C: 107: {
[; ;GPS.C: 108: case 0:
"108
[e :U 138 ]
[; ;GPS.C: 109: IntWDValue=(tmp-0x30)*0x10;
"109
[e = _IntWDValue -> * - -> _tmp `i -> 48 `i -> 16 `i `uc ]
[; ;GPS.C: 110: break;
"110
[e $U 136 ]
[; ;GPS.C: 111: case 1:
"111
[e :U 139 ]
[; ;GPS.C: 112: IntWDValue+=(tmp-0x30);
"112
[e =+ _IntWDValue -> - -> _tmp `i -> 48 `i `uc ]
[; ;GPS.C: 113: break;
"113
[e $U 136 ]
[; ;GPS.C: 114: case 2:
"114
[e :U 140 ]
[; ;GPS.C: 115: FloatWDValue[0]=(tmp-0x30)*0x10;
"115
[e = *U + &U _FloatWDValue * -> -> -> 0 `i `ui `ux -> -> # `uc `ui `ux -> * - -> _tmp `i -> 48 `i -> 16 `i `uc ]
[; ;GPS.C: 116: break;
"116
[e $U 136 ]
[; ;GPS.C: 117: case 3:
"117
[e :U 141 ]
[; ;GPS.C: 118: FloatWDValue[0]=FloatWDValue[0]+(tmp-0x30);
"118
[e = *U + &U _FloatWDValue * -> -> -> 0 `i `ui `ux -> -> # `uc `ui `ux -> + -> *U + &U _FloatWDValue * -> -> -> 0 `i `ui `ux -> -> # `uc `ui `ux `i - -> _tmp `i -> 48 `i `uc ]
[; ;GPS.C: 119: break;
"119
[e $U 136 ]
[; ;GPS.C: 120: case 5:
"120
[e :U 142 ]
[; ;GPS.C: 121: FloatWDValue[1]=(tmp-0x30)*0x10;
"121
[e = *U + &U _FloatWDValue * -> -> -> 1 `i `ui `ux -> -> # `uc `ui `ux -> * - -> _tmp `i -> 48 `i -> 16 `i `uc ]
[; ;GPS.C: 122: break;
"122
[e $U 136 ]
[; ;GPS.C: 123: case 6:
"123
[e :U 143 ]
[; ;GPS.C: 124: FloatWDValue[1]=FloatWDValue[1]+(tmp-0x30);
"124
[e = *U + &U _FloatWDValue * -> -> -> 1 `i `ui `ux -> -> # `uc `ui `ux -> + -> *U + &U _FloatWDValue * -> -> -> 1 `i `ui `ux -> -> # `uc `ui `ux `i - -> _tmp `i -> 48 `i `uc ]
[; ;GPS.C: 125: break;
"125
[e $U 136 ]
[; ;GPS.C: 126: case 7:
"126
[e :U 144 ]
[; ;GPS.C: 127: FloatWDValue[2]=(tmp-0x30)*0x10;
"127
[e = *U + &U _FloatWDValue * -> -> -> 2 `i `ui `ux -> -> # `uc `ui `ux -> * - -> _tmp `i -> 48 `i -> 16 `i `uc ]
[; ;GPS.C: 128: break;
"128
[e $U 136 ]
[; ;GPS.C: 129: case 8:
"129
[e :U 145 ]
[; ;GPS.C: 130: FloatWDValue[2]=FloatWDValue[2]+(tmp-0x30);
"130
[e = *U + &U _FloatWDValue * -> -> -> 2 `i `ui `ux -> -> # `uc `ui `ux -> + -> *U + &U _FloatWDValue * -> -> -> 2 `i `ui `ux -> -> # `uc `ui `ux `i - -> _tmp `i -> 48 `i `uc ]
[; ;GPS.C: 131: break;
"131
[e $U 136 ]
"132
[; ;GPS.C: 132: }
[e $U 136 ]
"106
[e :U 137 ]
[e [\ _GpsByte_count , $ -> -> 0 `i `uc 138
 , $ -> -> 1 `i `uc 139
 , $ -> -> 2 `i `uc 140
 , $ -> -> 3 `i `uc 141
 , $ -> -> 5 `i `uc 142
 , $ -> -> 6 `i `uc 143
 , $ -> -> 7 `i `uc 144
 , $ -> -> 8 `i `uc 145
 136 ]
"132
[e :U 136 ]
"133
[e :U 135 ]
[; ;GPS.C: 133: }
[; ;GPS.C: 134: break;
"134
[e $U 132 ]
[; ;GPS.C: 135: case 3:
"135
[e :U 146 ]
[; ;GPS.C: 136: if(GpsByte_count<1){
"136
[e $ ! < -> _GpsByte_count `i -> 1 `i 147 ]
[; ;GPS.C: 137: GpsWD_a=tmp;
"137
[e = _GpsWD_a _tmp ]
"138
[e :U 147 ]
[; ;GPS.C: 138: }
[; ;GPS.C: 139: break;
"139
[e $U 132 ]
[; ;GPS.C: 140: case 4:
"140
[e :U 148 ]
[; ;GPS.C: 141: if(GpsByte_count<10)
"141
[e $ ! < -> _GpsByte_count `i -> 10 `i 149 ]
[; ;GPS.C: 142: {
[; ;GPS.C: 143: GpsJD[GpsByte_count]=tmp;
"143
[e = *U + &U _GpsJD * -> _GpsByte_count `ux -> -> # `uc `ui `ux _tmp ]
[; ;GPS.C: 144: switch(GpsByte_count)
"144
[e $U 151 ]
[; ;GPS.C: 145: {