fasong.p1

pic16f877a下与nRF905的通讯程序

[v _C1INV `VXb 1 s@1252 ]
"365
[v _CIS `VXb 1 s@1251 ]
"366
[v _CM2 `VXb 1 s@1250 ]
"367
[v _CM1 `VXb 1 s@1249 ]
"368
[v _CM0 `VXb 1 s@1248 ]
"371
[v _CVREN `VXb 1 s@1263 ]
"372
[v _CVROE `VXb 1 s@1262 ]
"373
[v _CVRR `VXb 1 s@1261 ]
"374
[v _CVR3 `VXb 1 s@1259 ]
"375
[v _CVR2 `VXb 1 s@1258 ]
"376
[v _CVR1 `VXb 1 s@1257 ]
"377
[v _CVR0 `VXb 1 s@1256 ]
"380
[v _ADFM `VXb 1 s@1279 ]
"381
[v _ADCS2 `VXb 1 s@1278 ]
"382
[v _PCFG3 `VXb 1 s@1275 ]
"383
[v _PCFG2 `VXb 1 s@1274 ]
"384
[v _PCFG1 `VXb 1 s@1273 ]
"385
[v _PCFG0 `VXb 1 s@1272 ]
"388
[v _EEPGD `VZb 1 s@3175 ]
"389
[v _WRERR `VZb 1 s@3171 ]
"390
[v _WREN `VZb 1 s@3170 ]
"391
[v _WR `VZb 1 s@3169 ]
"392
[v _RD `VZb 1 s@3168 ]
"44 E:\PIC_c\232Weirless\NRF905_Fasong\fasong.c
[v _TxRxBuf `uc -> 32 `i e ]
[i _TxRxBuf
:U ..
"46
-> -> 89 `ui `uc
-> -> 105 `ui `uc
-> -> 110 `ui `uc
-> -> 32 `ui `uc
-> -> 108 `ui `uc
-> -> 105 `ui `uc
-> -> 120 `ui `uc
-> -> 105 `ui `uc
"47
-> -> 110 `ui `uc
-> -> 103 `ui `uc
-> -> 32 `ui `uc
-> -> 105 `ui `uc
-> -> 115 `ui `uc
-> -> 32 `ui `uc
-> -> 97 `ui `uc
-> -> 32 `ui `uc
"48
-> -> 103 `ui `uc
-> -> 111 `ui `uc
-> -> 111 `ui `uc
-> -> 100 `ui `uc
-> -> 32 `ui `uc
-> -> 109 `ui `uc
-> -> 97 `ui `uc
-> -> 110 `ui `uc
"49
-> -> 46 `ui `uc
-> -> 32 `ui `uc
-> -> 76 `ui `uc
-> -> 111 `ui `uc
-> -> 118 `ui `uc
-> -> 101 `ui `uc
-> -> 32 `ui `uc
-> -> 83 `ui `uc
..
]"52
[v _TxAddress `uc -> 4 `i e ]
[i _TxAddress
:U ..
-> -> 204 `i `uc
-> -> 204 `i `uc
-> -> 204 `i `uc
-> -> 204 `i `uc
..
]"54
[v _RFConf `uc -> 11 `i e ]
[i _RFConf
:U ..
"56
-> -> 0 `i `uc
"57
-> -> 76 `i `uc
"58
-> -> 44 `i `uc
"59
-> -> 68 `i `uc
"60
-> -> 32 `i `uc
-> -> 32 `i `uc
"61
-> -> 204 `i `uc
-> -> 204 `i `uc
-> -> 204 `i `uc
-> -> 204 `i `uc
"62
-> -> 88 `i `uc
..
]"66
[v _Delay `(v 1 ef1`uc ]
{
[v _x `uc 1 r1 ]
[e :U _Delay ]
[f ]
[; ;fasong.c: 65: void Delay(unsigned char x)
[; ;fasong.c: 66: {
"67
[v _i `uc 1 a ]
[; ;fasong.c: 67: unsigned char i;
[; ;fasong.c: 68: while(x--)
"68
[e $U 2 ]
[e :U 3 ]
[; ;fasong.c: 69: for(i=0;i<80;i++);
"69
[e = _i -> -> 0 `i `uc ]
[e $ < -> _i `i -> 80 `i 5 ]
[e $U 6 ]
[e :U 5 ]
[e ++ _i -> -> 1 `i `uc ]
[e $ < -> _i `i -> 80 `i 5 ]
[e :U 6 ]
[e :U 2 ]
"68
[e $ != -> -- _x -> -> 1 `i `uc `i -> -> -> 0 `i `uc `i 3 ]
[e :U 4 ]
"70
[; ;fasong.c: 70: }
[e :UE 1 ]
}
"73
[v _Spi_initial `(v 1 ef ]
{
[e :U _Spi_initial ]
[f ]
[; ;fasong.c: 72: void Spi_initial(void)
[; ;fasong.c: 73: {
[; ;fasong.c: 74: INTCON=0x00;
"74
[e = _INTCON -> -> 0 `i `uc ]
[; ;fasong.c: 75: PIR1=0x00;
"75
[e = _PIR1 -> -> 0 `i `uc ]
[; ;fasong.c: 76: SSPCON=0x20;
"76
[e = _SSPCON -> -> 32 `i `uc ]
[; ;fasong.c: 77: SSPSTAT=0xc0;
"77
[e = _SSPSTAT -> -> 192 `i `uc ]
[; ;fasong.c: 78: ADCON1=0x07;
"78
[e = _ADCON1 -> -> 7 `i `uc ]
[; ;fasong.c: 79: SSPIF=0;
"79
[e = _SSPIF -> -> 0 `i `b ]
"80
[; ;fasong.c: 80: }
[e :UE 8 ]
}
"83
[v _SpiReadSpiWrite `(uc 1 ef1`uc ]
{
[v _DATA `uc 1 r1 ]
[e :U _SpiReadSpiWrite ]
[f ]
[; ;fasong.c: 82: unsigned char SpiReadSpiWrite(unsigned char DATA)
[; ;fasong.c: 83: {
"84
[v _b `uc 1 a ]
[; ;fasong.c: 84: unsigned char b;
[; ;fasong.c: 85: Spi_initial();
"85
[e ( _Spi_initial ..  ]
[; ;fasong.c: 86: SSPBUF=DATA;
"86
[e = _SSPBUF _DATA ]
[; ;fasong.c: 87: do
"87
[e :U 12 ]
[; ;fasong.c: 88: {
[; ;fasong.c: 89: ;
"91
[; ;fasong.c: 90: }
[; ;fasong.c: 91: while(SSPIF==0);
[e $ == -> _SSPIF `i -> 0 `i 12 ]
[e :U 11 ]
[; ;fasong.c: 92: SSPIF=0;
"92
[e = _SSPIF -> -> 0 `i `b ]
[; ;fasong.c: 93: b=SSPBUF;
"93
[e = _b _SSPBUF ]
[; ;fasong.c: 94: return b;
"94
[e ) _b ]
[e $UE 9 ]
"95
[; ;fasong.c: 95: }
[e :UE 9 ]
}
"98
[v _system_Init `(v 1 ef ]
{
[e :U _system_Init ]
[f ]
[; ;fasong.c: 97: void system_Init(void)
[; ;fasong.c: 98: {
[; ;fasong.c: 99: TRISA=0x00;
"99
[e = _TRISA -> -> 0 `i `uc ]
[; ;fasong.c: 100: TRISB=0x0D;
"100
[e = _TRISB -> -> 13 `i `uc ]
[; ;fasong.c: 101: TRISC=0x90;
"101
[e = _TRISC -> -> 144 `i `uc ]
[; ;fasong.c: 102: TRISD=0x00;
"102
[e = _TRISD -> -> 0 `i `uc ]
[; ;fasong.c: 103: TRISE=0x00;
"103
[e = _TRISE -> -> 0 `i `uc ]
[; ;fasong.c: 104: ADCON1=0x07;
"104
[e = _ADCON1 -> -> 7 `i `uc ]
[; ;fasong.c: 105: RC0=1;
"105
[e = _RC0 -> -> 1 `i `b ]
[; ;fasong.c: 106: RC3=0;
"106
[e = _RC3 -> -> 0 `i `b ]
[; ;fasong.c: 107: RB0=0;
"107
[e = _RB0 -> -> 0 `i `b ]
[; ;fasong.c: 108: RB3=0;
"108
[e = _RB3 -> -> 0 `i `b ]
[; ;fasong.c: 109: RB2=0;
"109
[e = _RB2 -> -> 0 `i `b ]
[; ;fasong.c: 110: RB1=1;
"110
[e = _RB1 -> -> 1 `i `b ]
[; ;fasong.c: 111: RC2=0;
"111
[e = _RC2 -> -> 0 `i `b ]
[; ;fasong.c: 112: RC1=0;
"112
[e = _RC1 -> -> 0 `i `b ]
"113
[; ;fasong.c: 113: }
[e :UE 13 ]
}
"116
[v _Config905 `(v 1 ef ]
{
[e :U _Config905 ]
[f ]
[; ;fasong.c: 115: void Config905(void)
[; ;fasong.c: 116: {
"117
[v _i `uc 1 a ]
[; ;fasong.c: 117: unsigned char i;
[; ;fasong.c: 118: RC0=0;
"118
[e = _RC0 -> -> 0 `i `b ]
[; ;fasong.c: 119: Delay(1);
"119
[e ( _Delay (1 -> -> 1 `i `uc ]
[; ;fasong.c: 121: for (i=0;i<11;i++)
"121
[e = _i -> -> 0 `i `uc ]
[e $ < -> _i `i -> 11 `i 15 ]
[e $U 16 ]
"122
[e :U 15 ]
[; ;fasong.c: 122: {
[; ;fasong.c: 123: SpiReadSpiWrite(RFConf[i]);
"123
[e ( _SpiReadSpiWrite (1 *U + &U _RFConf * -> _i `ux -> -> # `uc `ui `ux ]
"121
[e ++ _i -> -> 1 `i `uc ]
[e $ < -> _i `i -> 11 `i 15 ]
[e :U 16 ]
[; ;fasong.c: 124: }
[; ;fasong.c: 125: RC0=1;
"125
[e = _RC0 -> -> 1 `i `b ]
"126
[; ;fasong.c: 126: }
[e :UE 14 ]
}
"129
[v _TxPacket `(v 1 ef ]
{
[e :U _TxPacket ]
[f ]
[; ;fasong.c: 128: void TxPacket(void)
[; ;fasong.c: 129: {
"130
[v _i `uc 1 a ]
[; ;fasong.c: 130: unsigned char i;
[; ;fasong.c: 131: RC0=0;
"131
[e = _RC0 -> -> 0 `i `b ]
[; ;fasong.c: 132: Delay(1);
"132
[e ( _Delay (1 -> -> 1 `i `uc ]
[; ;fasong.c: 133: SpiReadSpiWrite(0x20);
"133
[e ( _SpiReadSpiWrite (1 -> -> 32 `i `uc ]
[; ;fasong.c: 134: for (i=0;i<32;i++)
"134
[e = _i -> -> 0 `i `uc ]
[e $ < -> _i `i -> 32 `i 19 ]
[e $U 20 ]
"135
[e :U 19 ]
[; ;fasong.c: 135: {
[; ;fasong.c: 136: SpiReadSpiWrite(TxRxBuf[i]);
"136
[e ( _SpiReadSpiWrite (1 *U + &U _TxRxBuf * -> _i `ux -> -> # `uc `ui `ux ]
"134
[e ++ _i -> -> 1 `i `uc ]
[e $ < -> _i `i -> 32 `i 19 ]
[e :U 20 ]
[; ;fasong.c: 137: }
[; ;fasong.c: 138: RC0=1;
"138
[e = _RC0 -> -> 1 `i `b ]
[; ;fasong.c: 139: Delay(1);
"139
[e ( _Delay (1 -> -> 1 `i `uc ]
[; ;fasong.c: 140: RC0=0;
"140
[e = _RC0 -> -> 0 `i `b ]
[; ;fasong.c: 141: SpiReadSpiWrite(0x22);
"141
[e ( _SpiReadSpiWrite (1 -> -> 34 `i `uc ]
[; ;fasong.c: 142: for (i=0;i<4;i++)
"142
[e = _i -> -> 0 `i `uc ]
[e $ < -> _i `i -> 4 `i 22 ]
[e $U 23 ]
"143
[e :U 22 ]
[; ;fasong.c: 143: {
[; ;fasong.c: 144: SpiReadSpiWrite(TxAddress[i]);
"144
[e ( _SpiReadSpiWrite (1 *U + &U _TxAddress * -> _i `ux -> -> # `uc `ui `ux ]
"142
[e ++ _i -> -> 1 `i `uc ]
[e $ < -> _i `i -> 4 `i 22 ]
[e :U 23 ]
[; ;fasong.c: 145: }
[; ;fasong.c: 146: RC0=1;
"146
[e = _RC0 -> -> 1 `i `b ]
[; ;fasong.c: 147: RC2=1;
"147
[e = _RC2 -> -> 1 `i `b ]
[; ;fasong.c: 148: Delay(1);
"148
[e ( _Delay (1 -> -> 1 `i `uc ]
[; ;fasong.c: 149: RC2=0;
"149
[e = _RC2 -> -> 0 `i `b ]
"150
[; ;fasong.c: 150: }
[e :UE 18 ]
}
"153
[v _SetTxMode `(v 1 ef ]
{
[e :U _SetTxMode ]
[f ]
[; ;fasong.c: 152: void SetTxMode(void)
[; ;fasong.c: 153: {
[; ;fasong.c: 154: RC2=0;
"154
[e = _RC2 -> -> 0 `i `b ]
[; ;fasong.c: 155: RC1=1;
"155
[e = _RC1 -> -> 1 `i `b ]
[; ;fasong.c: 156: Delay(1);
"156
[e ( _Delay (1 -> -> 1 `i `uc ]
"157
[; ;fasong.c: 157: }
[e :UE 25 ]
}
"160
[v _TX `(v 1 ef ]
{
[e :U _TX ]
[f ]
[; ;fasong.c: 159: void TX(void)
[; ;fasong.c: 160: {
[; ;fasong.c: 161: SetTxMode();
"161
[e ( _SetTxMode ..  ]
[; ;fasong.c: 162: TxPacket();
"162
[e ( _TxPacket ..  ]
"163
[; ;fasong.c: 163: }
[e :UE 26 ]
}
"166
[v _StartUART `(v 1 ef ]
{
[e :U _StartUART ]
[f ]
[; ;fasong.c: 165: void StartUART(void)
[; ;fasong.c: 166: {
[; ;fasong.c: 167: TXSTA=0x04;
"167
[e = _TXSTA -> -> 4 `i `uc ]
[; ;fasong.c: 168: SPBRG=51;
"168
[e = _SPBRG -> -> 51 `i `uc ]
[; ;fasong.c: 169: PIE1=0;
"169
[e = _PIE1 -> -> 0 `i `uc ]
[; ;fasong.c: 170: RCSTA=0x80;
"170
[e = _RCSTA -> -> 128 `i `uc ]
[; ;fasong.c: 171: TRISC=TRISC|0X80;
"171
[e = _TRISC -> | -> _TRISC `i -> 128 `i `uc ]
[; ;fasong.c: 172: TRISC=TRISC&0XBF;
"172
[e = _TRISC -> & -> _TRISC `i -> 191 `i `uc ]
[; ;fasong.c: 173: TXEN=1;
"173
[e = _TXEN -> -> 1 `i `b ]
"174
[; ;fasong.c: 174: }
[e :UE 27 ]
}
"177
[v _R_S_Byte `(v 1 ef1`uc ]
{
[v _R_Byte `uc 1 r1 ]
[e :U _R_S_Byte ]
[f ]
[; ;fasong.c: 176: void R_S_Byte(unsigned char R_Byte)
[; ;fasong.c: 177: {
[; ;fasong.c: 178: TXREG= R_Byte;
"178
[e = _TXREG _R_Byte ]
"179
[; ;fasong.c: 179: }
[e :UE 28 ]
}
"182
[v _main `(i 1 e ]
[p mainexit ]
{
[e :U _main ]
[f ]
[; ;fasong.c: 181: main()
[; ;fasong.c: 182: {
[; ;fasong.c: 184: PORTE=0xff;
"184
[e = _PORTE -> -> 255 `i `uc ]
[; ;fasong.c: 185: PORTD=0xbf;
"185
[e = _PORTD -> -> 191 `i `uc ]
[; ;fasong.c: 186: StartUART();
"186
[e ( _StartUART ..  ]
[; ;fasong.c: 187: system_Init();
"187
[e ( _system_Init ..  ]
[; ;fasong.c: 188: Config905();
"188
[e ( _Config905 ..  ]
[; ;fasong.c: 189: RB7=0; RB6=0; RB5=0; RB4=0;
"189
[e = _RB7 -> -> 0 `i `b ]
[e = _RB6 -> -> 0 `i `b ]
[e = _RB5 -> -> 0 `i `b ]
[e = _RB4 -> -> 0 `i `b ]
[; ;fasong.c: 190: TX();
"190
[e ( _TX ..  ]
"191
[; ;fasong.c: 191: }
[e :UE 29 ]
}