| 318 |
kaklik |
1 |
;/////////////////////////////////////////////////////////////////////////////////
|
|
|
2 |
;// Code Generator: BoostBasic Compiler - http://www.sourceboost.com
|
|
|
3 |
;// Version : 6.70
|
|
|
4 |
;// License Type : Pro License
|
|
|
5 |
;// Limitations : PIC18 max code size:Unlimited, max RAM banks:Unlimited
|
|
|
6 |
;/////////////////////////////////////////////////////////////////////////////////
|
|
|
7 |
|
|
|
8 |
ORG 0x00000200
|
| 325 |
kaklik |
9 |
0200 EFEBF001 GOTO _startup
|
| 318 |
kaklik |
10 |
ORG 0x00000204
|
| 322 |
kaklik |
11 |
0204 send_00000
|
|
|
12 |
0204 ; { send ; function begin
|
|
|
13 |
0204 label268438562
|
|
|
14 |
0204 A89E BTFSS gbl_pir1,4
|
|
|
15 |
0206 D7FE BRA label268438562
|
| 325 |
kaklik |
16 |
0208 500D MOVF send_00000_arg_c, W
|
| 322 |
kaklik |
17 |
020A 6EAD MOVWF gbl_txreg
|
|
|
18 |
020C 0012 RETURN
|
|
|
19 |
020E ; } send function end
|
| 318 |
kaklik |
20 |
|
| 322 |
kaklik |
21 |
ORG 0x0000020E
|
|
|
22 |
020E receive_00000
|
|
|
23 |
020E ; { receive ; function begin
|
|
|
24 |
020E A2AB BTFSS gbl_rcsta,1
|
|
|
25 |
0210 D002 BRA label268438551
|
|
|
26 |
0212 98AB BCF gbl_rcsta,4
|
|
|
27 |
0214 88AB BSF gbl_rcsta,4
|
|
|
28 |
0216 label268438551
|
|
|
29 |
0216 AA9E BTFSS gbl_pir1,5
|
|
|
30 |
0218 D7FE BRA label268438551
|
|
|
31 |
021A 50AE MOVF gbl_rcreg, W
|
| 325 |
kaklik |
32 |
021C 6E0D MOVWF CompTempVarRet489
|
| 318 |
kaklik |
33 |
021E 0012 RETURN
|
| 322 |
kaklik |
34 |
0220 ; } receive function end
|
| 318 |
kaklik |
35 |
|
|
|
36 |
ORG 0x00000220
|
| 322 |
kaklik |
37 |
0220 main
|
|
|
38 |
0220 ; { main ; function begin
|
|
|
39 |
0220 6889 SETF gbl_lata
|
|
|
40 |
0222 6A8A CLRF gbl_latb
|
|
|
41 |
0224 688B SETF gbl_latc
|
|
|
42 |
0226 0EF0 MOVLW 0xF0
|
|
|
43 |
0228 6E92 MOVWF gbl_trisa
|
|
|
44 |
022A 0E3F MOVLW 0x3F
|
|
|
45 |
022C 6E93 MOVWF gbl_trisb
|
|
|
46 |
022E 0E9F MOVLW 0x9F
|
|
|
47 |
0230 6E94 MOVWF gbl_trisc
|
|
|
48 |
0232 0EC6 MOVLW 0xC6
|
|
|
49 |
0234 6EC1 MOVWF gbl_adcon1
|
|
|
50 |
0236 0EC0 MOVLW 0xC0
|
|
|
51 |
0238 6EC2 MOVWF gbl_adcon0
|
|
|
52 |
023A 0E40 MOVLW 0x40
|
|
|
53 |
023C 6EAF MOVWF gbl_spbrg
|
|
|
54 |
023E 0EFB MOVLW 0xFB
|
|
|
55 |
0240 14AC ANDWF gbl_txsta, W
|
|
|
56 |
0242 6EAC MOVWF gbl_txsta
|
|
|
57 |
0244 0E20 MOVLW 0x20
|
|
|
58 |
0246 10AC IORWF gbl_txsta, W
|
|
|
59 |
0248 6EAC MOVWF gbl_txsta
|
|
|
60 |
024A 0E10 MOVLW 0x10
|
|
|
61 |
024C 10AB IORWF gbl_rcsta, W
|
|
|
62 |
024E 6EAB MOVWF gbl_rcsta
|
|
|
63 |
0250 0E80 MOVLW 0x80
|
|
|
64 |
0252 10AB IORWF gbl_rcsta, W
|
|
|
65 |
0254 6EAB MOVWF gbl_rcsta
|
|
|
66 |
0256 6A01 CLRF main_1_motors
|
| 325 |
kaklik |
67 |
0258 label268438599
|
| 322 |
kaklik |
68 |
0258 B081 BTFSC gbl_portb,0
|
| 325 |
kaklik |
69 |
025A D7FE BRA label268438599
|
| 322 |
kaklik |
70 |
025C 0EF0 MOVLW 0xF0
|
|
|
71 |
025E 6E03 MOVWF main_1_leds
|
|
|
72 |
0260 0E80 MOVLW 0x80
|
|
|
73 |
0262 6E04 MOVWF main_1_count
|
| 324 |
kaklik |
74 |
0264 0E1A MOVLW 0x1A
|
|
|
75 |
0266 6E05 MOVWF main_1_count+D'1'
|
|
|
76 |
0268 0E06 MOVLW 0x06
|
|
|
77 |
026A 6E06 MOVWF main_1_count+D'2'
|
|
|
78 |
026C 6A07 CLRF main_1_count+D'3'
|
| 325 |
kaklik |
79 |
026E label268438604
|
| 324 |
kaklik |
80 |
026E 5007 MOVF main_1_count+D'3', W
|
|
|
81 |
0270 0800 SUBLW 0x00
|
| 325 |
kaklik |
82 |
0272 E108 BNZ label268438605
|
| 324 |
kaklik |
83 |
0274 5006 MOVF main_1_count+D'2', W
|
|
|
84 |
0276 0800 SUBLW 0x00
|
| 325 |
kaklik |
85 |
0278 E105 BNZ label268438605
|
| 324 |
kaklik |
86 |
027A 5005 MOVF main_1_count+D'1', W
|
|
|
87 |
027C 0800 SUBLW 0x00
|
| 325 |
kaklik |
88 |
027E E102 BNZ label268438605
|
| 324 |
kaklik |
89 |
0280 5004 MOVF main_1_count, W
|
|
|
90 |
0282 0800 SUBLW 0x00
|
| 325 |
kaklik |
91 |
0284 label268438605
|
| 324 |
kaklik |
92 |
0284 BE07 BTFSC main_1_count+D'3',7
|
|
|
93 |
0286 80D8 BSF STATUS,C
|
| 325 |
kaklik |
94 |
0288 E24A BC label268438609
|
| 324 |
kaklik |
95 |
028A 0E01 MOVLW 0x01
|
|
|
96 |
028C 5C04 SUBWF main_1_count, W
|
| 325 |
kaklik |
97 |
028E 6E0D MOVWF CompTempVar492
|
| 324 |
kaklik |
98 |
0290 0E00 MOVLW 0x00
|
| 325 |
kaklik |
99 |
0292 6E0E MOVWF CompTempVar496
|
| 324 |
kaklik |
100 |
0294 A0D8 BTFSS STATUS,C
|
| 325 |
kaklik |
101 |
0296 3C0E INCFSZ CompTempVar496, W
|
| 324 |
kaklik |
102 |
0298 5E05 SUBWF main_1_count+D'1', F
|
|
|
103 |
029A 0E00 MOVLW 0x00
|
| 325 |
kaklik |
104 |
029C 6E0E MOVWF CompTempVar496
|
| 324 |
kaklik |
105 |
029E A0D8 BTFSS STATUS,C
|
| 325 |
kaklik |
106 |
02A0 3C0E INCFSZ CompTempVar496, W
|
| 324 |
kaklik |
107 |
02A2 5E06 SUBWF main_1_count+D'2', F
|
|
|
108 |
02A4 0E00 MOVLW 0x00
|
| 325 |
kaklik |
109 |
02A6 6E0E MOVWF CompTempVar496
|
| 324 |
kaklik |
110 |
02A8 A0D8 BTFSS STATUS,C
|
| 325 |
kaklik |
111 |
02AA 3C0E INCFSZ CompTempVar496, W
|
| 324 |
kaklik |
112 |
02AC 5E07 SUBWF main_1_count+D'3', F
|
| 325 |
kaklik |
113 |
02AE 500D MOVF CompTempVar492, W
|
| 324 |
kaklik |
114 |
02B0 6E04 MOVWF main_1_count
|
|
|
115 |
02B2 0E00 MOVLW 0x00
|
|
|
116 |
02B4 5C07 SUBWF main_1_count+D'3', W
|
| 325 |
kaklik |
117 |
02B6 E108 BNZ label268438621
|
| 324 |
kaklik |
118 |
02B8 0E04 MOVLW 0x04
|
|
|
119 |
02BA 5C06 SUBWF main_1_count+D'2', W
|
| 325 |
kaklik |
120 |
02BC E105 BNZ label268438621
|
| 324 |
kaklik |
121 |
02BE 0E93 MOVLW 0x93
|
|
|
122 |
02C0 5C05 SUBWF main_1_count+D'1', W
|
| 325 |
kaklik |
123 |
02C2 E102 BNZ label268438621
|
| 324 |
kaklik |
124 |
02C4 0EE0 MOVLW 0xE0
|
|
|
125 |
02C6 5C04 SUBWF main_1_count, W
|
| 325 |
kaklik |
126 |
02C8 label268438621
|
|
|
127 |
02C8 E302 BNC label4026532557
|
| 324 |
kaklik |
128 |
02CA AE07 BTFSS main_1_count+D'3',7
|
| 325 |
kaklik |
129 |
02CC D003 BRA label268438625
|
|
|
130 |
02CE label4026532557
|
| 324 |
kaklik |
131 |
02CE 0E01 MOVLW 0x01
|
|
|
132 |
02D0 1003 IORWF main_1_leds, W
|
|
|
133 |
02D2 6E03 MOVWF main_1_leds
|
| 325 |
kaklik |
134 |
02D4 label268438625
|
| 324 |
kaklik |
135 |
02D4 0E00 MOVLW 0x00
|
|
|
136 |
02D6 5C07 SUBWF main_1_count+D'3', W
|
| 325 |
kaklik |
137 |
02D8 E108 BNZ label268438627
|
| 324 |
kaklik |
138 |
02DA 0E03 MOVLW 0x03
|
|
|
139 |
02DC 5C06 SUBWF main_1_count+D'2', W
|
| 325 |
kaklik |
140 |
02DE E105 BNZ label268438627
|
| 324 |
kaklik |
141 |
02E0 0E0D MOVLW 0x0D
|
|
|
142 |
02E2 5C05 SUBWF main_1_count+D'1', W
|
| 325 |
kaklik |
143 |
02E4 E102 BNZ label268438627
|
| 324 |
kaklik |
144 |
02E6 0E40 MOVLW 0x40
|
|
|
145 |
02E8 5C04 SUBWF main_1_count, W
|
| 325 |
kaklik |
146 |
02EA label268438627
|
|
|
147 |
02EA E302 BNC label4026532558
|
| 324 |
kaklik |
148 |
02EC AE07 BTFSS main_1_count+D'3',7
|
| 325 |
kaklik |
149 |
02EE D003 BRA label268438631
|
|
|
150 |
02F0 label4026532558
|
| 324 |
kaklik |
151 |
02F0 0E02 MOVLW 0x02
|
|
|
152 |
02F2 1003 IORWF main_1_leds, W
|
|
|
153 |
02F4 6E03 MOVWF main_1_leds
|
| 325 |
kaklik |
154 |
02F6 label268438631
|
| 324 |
kaklik |
155 |
02F6 0E00 MOVLW 0x00
|
|
|
156 |
02F8 5C07 SUBWF main_1_count+D'3', W
|
| 325 |
kaklik |
157 |
02FA E108 BNZ label268438633
|
| 324 |
kaklik |
158 |
02FC 0E01 MOVLW 0x01
|
|
|
159 |
02FE 5C06 SUBWF main_1_count+D'2', W
|
| 325 |
kaklik |
160 |
0300 E105 BNZ label268438633
|
| 324 |
kaklik |
161 |
0302 0E86 MOVLW 0x86
|
|
|
162 |
0304 5C05 SUBWF main_1_count+D'1', W
|
| 325 |
kaklik |
163 |
0306 E102 BNZ label268438633
|
| 324 |
kaklik |
164 |
0308 0EA0 MOVLW 0xA0
|
|
|
165 |
030A 5C04 SUBWF main_1_count, W
|
| 325 |
kaklik |
166 |
030C label268438633
|
|
|
167 |
030C E302 BNC label4026532559
|
| 324 |
kaklik |
168 |
030E AE07 BTFSS main_1_count+D'3',7
|
| 325 |
kaklik |
169 |
0310 D003 BRA label268438637
|
|
|
170 |
0312 label4026532559
|
| 324 |
kaklik |
171 |
0312 0E04 MOVLW 0x04
|
|
|
172 |
0314 1003 IORWF main_1_leds, W
|
|
|
173 |
0316 6E03 MOVWF main_1_leds
|
| 325 |
kaklik |
174 |
0318 label268438637
|
| 324 |
kaklik |
175 |
0318 5003 MOVF main_1_leds, W
|
|
|
176 |
031A 6E89 MOVWF gbl_lata
|
| 325 |
kaklik |
177 |
031C D7A8 BRA label268438604
|
|
|
178 |
031E label268438609
|
| 324 |
kaklik |
179 |
031E 6889 SETF gbl_lata
|
| 325 |
kaklik |
180 |
0320 label268438641
|
|
|
181 |
0320 6A08 CLRF main_1_cas
|
|
|
182 |
0322 6A09 CLRF main_1_cas+D'1'
|
|
|
183 |
0324 6A0A CLRF main_1_cas+D'2'
|
|
|
184 |
0326 6A0B CLRF main_1_cas+D'3'
|
|
|
185 |
0328 6802 SETF main_1_sensors
|
|
|
186 |
032A EC07F001 CALL receive_00000
|
|
|
187 |
032E 500D MOVF CompTempVarRet489, W
|
|
|
188 |
0330 6E02 MOVWF main_1_sensors
|
|
|
189 |
0332 6A0C CLRF CompTempVar491
|
|
|
190 |
0334 A202 BTFSS main_1_sensors,1
|
|
|
191 |
0336 D003 BRA label268438647
|
|
|
192 |
0338 A002 BTFSS main_1_sensors,0
|
|
|
193 |
033A D001 BRA label268438647
|
|
|
194 |
033C 2A0C INCF CompTempVar491, F
|
|
|
195 |
033E label268438647
|
|
|
196 |
033E 520C MOVF CompTempVar491, F
|
|
|
197 |
0340 E102 BNZ label268438648
|
|
|
198 |
0342 0E77 MOVLW 0x77
|
| 324 |
kaklik |
199 |
0344 6E01 MOVWF main_1_motors
|
| 325 |
kaklik |
200 |
0346 label268438648
|
|
|
201 |
0346 B402 BTFSC main_1_sensors,2
|
|
|
202 |
0348 D01B BRA label268438651
|
|
|
203 |
034A 0E00 MOVLW 0x00
|
|
|
204 |
034C 5C0B SUBWF main_1_cas+D'3', W
|
|
|
205 |
034E E108 BNZ label268438653
|
|
|
206 |
0350 0E06 MOVLW 0x06
|
|
|
207 |
0352 5C0A SUBWF main_1_cas+D'2', W
|
|
|
208 |
0354 E105 BNZ label268438653
|
|
|
209 |
0356 0E1A MOVLW 0x1A
|
|
|
210 |
0358 5C09 SUBWF main_1_cas+D'1', W
|
|
|
211 |
035A E102 BNZ label268438653
|
|
|
212 |
035C 0E80 MOVLW 0x80
|
|
|
213 |
035E 5C08 SUBWF main_1_cas, W
|
|
|
214 |
0360 label268438653
|
|
|
215 |
0360 E302 BNC label4026532563
|
|
|
216 |
0362 AE0B BTFSS main_1_cas+D'3',7
|
|
|
217 |
0364 D007 BRA label4026532566
|
|
|
218 |
0366 label4026532563
|
|
|
219 |
0366 2A08 INCF main_1_cas, F
|
|
|
220 |
0368 B4D8 BTFSC STATUS,Z
|
|
|
221 |
036A 2A09 INCF main_1_cas+D'1', F
|
|
|
222 |
036C B4D8 BTFSC STATUS,Z
|
|
|
223 |
036E 2A0A INCF main_1_cas+D'2', F
|
|
|
224 |
0370 B4D8 BTFSC STATUS,Z
|
|
|
225 |
0372 2A0B INCF main_1_cas+D'3', F
|
|
|
226 |
0374 label4026532566
|
|
|
227 |
0374 6A08 CLRF main_1_cas
|
|
|
228 |
0376 6A09 CLRF main_1_cas+D'1'
|
|
|
229 |
0378 6A0A CLRF main_1_cas+D'2'
|
|
|
230 |
037A 6A0B CLRF main_1_cas+D'3'
|
|
|
231 |
037C 0EF7 MOVLW 0xF7
|
|
|
232 |
037E 6E01 MOVWF main_1_motors
|
|
|
233 |
0380 label268438651
|
|
|
234 |
0380 B602 BTFSC main_1_sensors,3
|
|
|
235 |
0382 D01B BRA label268438668
|
|
|
236 |
0384 0E00 MOVLW 0x00
|
|
|
237 |
0386 5C0B SUBWF main_1_cas+D'3', W
|
|
|
238 |
0388 E108 BNZ label268438670
|
|
|
239 |
038A 0E06 MOVLW 0x06
|
|
|
240 |
038C 5C0A SUBWF main_1_cas+D'2', W
|
|
|
241 |
038E E105 BNZ label268438670
|
|
|
242 |
0390 0E1A MOVLW 0x1A
|
|
|
243 |
0392 5C09 SUBWF main_1_cas+D'1', W
|
|
|
244 |
0394 E102 BNZ label268438670
|
|
|
245 |
0396 0E80 MOVLW 0x80
|
|
|
246 |
0398 5C08 SUBWF main_1_cas, W
|
|
|
247 |
039A label268438670
|
|
|
248 |
039A E302 BNC label4026532568
|
|
|
249 |
039C AE0B BTFSS main_1_cas+D'3',7
|
|
|
250 |
039E D007 BRA label4026532571
|
|
|
251 |
03A0 label4026532568
|
|
|
252 |
03A0 2A08 INCF main_1_cas, F
|
|
|
253 |
03A2 B4D8 BTFSC STATUS,Z
|
|
|
254 |
03A4 2A09 INCF main_1_cas+D'1', F
|
|
|
255 |
03A6 B4D8 BTFSC STATUS,Z
|
|
|
256 |
03A8 2A0A INCF main_1_cas+D'2', F
|
|
|
257 |
03AA B4D8 BTFSC STATUS,Z
|
|
|
258 |
03AC 2A0B INCF main_1_cas+D'3', F
|
|
|
259 |
03AE label4026532571
|
|
|
260 |
03AE 6A08 CLRF main_1_cas
|
|
|
261 |
03B0 6A09 CLRF main_1_cas+D'1'
|
|
|
262 |
03B2 6A0A CLRF main_1_cas+D'2'
|
|
|
263 |
03B4 6A0B CLRF main_1_cas+D'3'
|
|
|
264 |
03B6 0E7F MOVLW 0x7F
|
|
|
265 |
03B8 6E01 MOVWF main_1_motors
|
|
|
266 |
03BA label268438668
|
|
|
267 |
03BA 2A08 INCF main_1_cas, F
|
|
|
268 |
03BC B4D8 BTFSC STATUS,Z
|
|
|
269 |
03BE 2A09 INCF main_1_cas+D'1', F
|
|
|
270 |
03C0 B4D8 BTFSC STATUS,Z
|
|
|
271 |
03C2 2A0A INCF main_1_cas+D'2', F
|
|
|
272 |
03C4 B4D8 BTFSC STATUS,Z
|
|
|
273 |
03C6 2A0B INCF main_1_cas+D'3', F
|
|
|
274 |
03C8 5002 MOVF main_1_sensors, W
|
|
|
275 |
03CA 6E89 MOVWF gbl_lata
|
|
|
276 |
03CC 5001 MOVF main_1_motors, W
|
|
|
277 |
03CE 6E0D MOVWF send_00000_arg_c
|
|
|
278 |
03D0 EC02F001 CALL send_00000
|
|
|
279 |
03D4 D7A5 BRA label268438641
|
|
|
280 |
03D6 ; } main function end
|
| 318 |
kaklik |
281 |
|
| 325 |
kaklik |
282 |
ORG 0x000003D6
|
|
|
283 |
03D6 _startup
|
|
|
284 |
03D6 EF10F001 GOTO main
|
| 318 |
kaklik |
285 |
ORG 0x00300000
|
|
|
286 |
300000 FEFF DW 0xFEFF
|
|
|
287 |
300002 FEF6 DW 0xFEF6
|
|
|
288 |
ORG 0x00300004
|
|
|
289 |
300004 FEFF DW 0xFEFF
|
|
|
290 |
300006 FFFB DW 0xFFFB
|
|
|
291 |
ORG 0x00300008
|
|
|
292 |
300008 3FF0 DW 0x3FF0
|
|
|
293 |
30000A 9FFF DW 0x9FFF
|
|
|
294 |
30000C BFFF DW 0xBFFF
|