Subversion Repositories svnkaklik

Rev

Rev 324 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log

Rev 324 Rev 325
Line 4... Line 4...
4 
;// License Type  : Pro License
 4 
;// License Type  : Pro License
5 
;// Limitations   : PIC18 max code size:Unlimited, max RAM banks:Unlimited
 5 
;// Limitations   : PIC18 max code size:Unlimited, max RAM banks:Unlimited
6 
;/////////////////////////////////////////////////////////////////////////////////
 6 
;/////////////////////////////////////////////////////////////////////////////////
7 
 
 7 
 
8 
	include "P18F252.inc"
 8 
	include "P18F252.inc"
9 
__HEAPSTART                      EQU	0x0000000B ; Start address of heap
9 
__HEAPSTART                      EQU	0x0000000F ; Start address of heap
10 
__HEAPEND                        EQU	0x000005FF ; End address of heap
10 
__HEAPEND                        EQU	0x000005FF ; End address of heap
11 
gbl_status                       EQU	0x00000FD8 ; bytes:1
 11 
gbl_status                       EQU	0x00000FD8 ; bytes:1
12 
gbl_prodl                        EQU	0x00000FF3 ; bytes:1
 12 
gbl_prodl                        EQU	0x00000FF3 ; bytes:1
13 
gbl_prodh                        EQU	0x00000FF4 ; bytes:1
 13 
gbl_prodh                        EQU	0x00000FF4 ; bytes:1
14 
gbl_porta                        EQU	0x00000F80 ; bytes:1
 14 
gbl_porta                        EQU	0x00000F80 ; bytes:1
Line 101... Line 101...
101 
gbl_pclatu                       EQU	0x00000FFB ; bytes:1
 101 
gbl_pclatu                       EQU	0x00000FFB ; bytes:1
102 
gbl_stkptr                       EQU	0x00000FFC ; bytes:1
 102 
gbl_stkptr                       EQU	0x00000FFC ; bytes:1
103 
gbl_tosl                         EQU	0x00000FFD ; bytes:1
 103 
gbl_tosl                         EQU	0x00000FFD ; bytes:1
104 
gbl_tosh                         EQU	0x00000FFE ; bytes:1
 104 
gbl_tosh                         EQU	0x00000FFE ; bytes:1
105 
gbl_tosu                         EQU	0x00000FFF ; bytes:1
 105 
gbl_tosu                         EQU	0x00000FFF ; bytes:1
106 
CompTempVarRet489                EQU	0x00000009 ; bytes:1
 106 
CompTempVarRet489                EQU	0x0000000D ; bytes:1
107 
send_00000_arg_c                 EQU	0x00000009 ; bytes:1
 107 
send_00000_arg_c                 EQU	0x0000000D ; bytes:1
108 
main_1_motors                    EQU	0x00000001 ; bytes:1
 108 
main_1_motors                    EQU	0x00000001 ; bytes:1
109 
main_1_sensors                   EQU	0x00000002 ; bytes:1
 109 
main_1_sensors                   EQU	0x00000002 ; bytes:1
110 
main_1_leds                      EQU	0x00000003 ; bytes:1
 110 
main_1_leds                      EQU	0x00000003 ; bytes:1
111 
main_1_count                     EQU	0x00000004 ; bytes:4
 111 
main_1_count                     EQU	0x00000004 ; bytes:4
- 
 
 112 
main_1_cas                       EQU	0x00000008 ; bytes:4
112 
CompTempVar491                   EQU	0x00000008 ; bytes:1
 113 
CompTempVar491                   EQU	0x0000000C ; bytes:1
113 
CompTempVar492                   EQU	0x00000009 ; bytes:1
 114 
CompTempVar492                   EQU	0x0000000D ; bytes:1
114 
CompTempVar496                   EQU	0x0000000A ; bytes:1
 115 
CompTempVar496                   EQU	0x0000000E ; bytes:1
115 
	ORG 0x00000200
 116 
	ORG 0x00000200
116 
	GOTO	_startup
 117 
	GOTO	_startup
117 
	ORG 0x00000204
 118 
	ORG 0x00000204
118 
send_00000
 119 
send_00000
119 
; { send ; function begin
 120 
; { send ; function begin
Line 169... Line 170...
169 
	MOVWF gbl_rcsta
 170 
	MOVWF gbl_rcsta
170 
	MOVLW 0x80
 171 
	MOVLW 0x80
171 
	IORWF gbl_rcsta, W
 172 
	IORWF gbl_rcsta, W
172 
	MOVWF gbl_rcsta
 173 
	MOVWF gbl_rcsta
173 
	CLRF main_1_motors
 174 
	CLRF main_1_motors
174 
label268438598
 175 
label268438599
175 
	BTFSC gbl_portb,0
 176 
	BTFSC gbl_portb,0
176 
	BRA	label268438598
 177 
	BRA	label268438599
177 
	MOVLW 0xF0
 178 
	MOVLW 0xF0
178 
	MOVWF main_1_leds
 179 
	MOVWF main_1_leds
179 
	MOVLW 0x80
 180 
	MOVLW 0x80
180 
	MOVWF main_1_count
 181 
	MOVWF main_1_count
181 
	MOVLW 0x1A
 182 
	MOVLW 0x1A
182 
	MOVWF main_1_count+D'1'
 183 
	MOVWF main_1_count+D'1'
183 
	MOVLW 0x06
 184 
	MOVLW 0x06
184 
	MOVWF main_1_count+D'2'
 185 
	MOVWF main_1_count+D'2'
185 
	CLRF main_1_count+D'3'
 186 
	CLRF main_1_count+D'3'
186 
label268438603
 187 
label268438604
187 
	MOVF main_1_count+D'3', W
 188 
	MOVF main_1_count+D'3', W
188 
	SUBLW 0x00
 189 
	SUBLW 0x00
189 
	BNZ	label268438604
 190 
	BNZ	label268438605
190 
	MOVF main_1_count+D'2', W
 191 
	MOVF main_1_count+D'2', W
191 
	SUBLW 0x00
 192 
	SUBLW 0x00
192 
	BNZ	label268438604
 193 
	BNZ	label268438605
193 
	MOVF main_1_count+D'1', W
 194 
	MOVF main_1_count+D'1', W
194 
	SUBLW 0x00
 195 
	SUBLW 0x00
195 
	BNZ	label268438604
 196 
	BNZ	label268438605
196 
	MOVF main_1_count, W
 197 
	MOVF main_1_count, W
197 
	SUBLW 0x00
 198 
	SUBLW 0x00
198 
label268438604
 199 
label268438605
199 
	BTFSC main_1_count+D'3',7
 200 
	BTFSC main_1_count+D'3',7
200 
	BSF STATUS,C
 201 
	BSF STATUS,C
201 
	BC	label268438608
 202 
	BC	label268438609
202 
	MOVLW 0x01
 203 
	MOVLW 0x01
203 
	SUBWF main_1_count, W
 204 
	SUBWF main_1_count, W
204 
	MOVWF CompTempVar492
 205 
	MOVWF CompTempVar492
205 
	MOVLW 0x00
 206 
	MOVLW 0x00
206 
	MOVWF CompTempVar496
 207 
	MOVWF CompTempVar496
Line 219... Line 220...
219 
	SUBWF main_1_count+D'3', F
 220 
	SUBWF main_1_count+D'3', F
220 
	MOVF CompTempVar492, W
 221 
	MOVF CompTempVar492, W
221 
	MOVWF main_1_count
 222 
	MOVWF main_1_count
222 
	MOVLW 0x00
 223 
	MOVLW 0x00
223 
	SUBWF main_1_count+D'3', W
 224 
	SUBWF main_1_count+D'3', W
224 
	BNZ	label268438620
 225 
	BNZ	label268438621
225 
	MOVLW 0x04
 226 
	MOVLW 0x04
226 
	SUBWF main_1_count+D'2', W
 227 
	SUBWF main_1_count+D'2', W
227 
	BNZ	label268438620
 228 
	BNZ	label268438621
228 
	MOVLW 0x93
 229 
	MOVLW 0x93
229 
	SUBWF main_1_count+D'1', W
 230 
	SUBWF main_1_count+D'1', W
230 
	BNZ	label268438620
 231 
	BNZ	label268438621
231 
	MOVLW 0xE0
 232 
	MOVLW 0xE0
232 
	SUBWF main_1_count, W
 233 
	SUBWF main_1_count, W
233 
label268438620
 234 
label268438621
234 
	BNC	label4026532500
 235 
	BNC	label4026532557
235 
	BTFSS main_1_count+D'3',7
 236 
	BTFSS main_1_count+D'3',7
236 
	BRA	label268438624
 237 
	BRA	label268438625
237 
label4026532500
 238 
label4026532557
238 
	MOVLW 0x01
 239 
	MOVLW 0x01
239 
	IORWF main_1_leds, W
 240 
	IORWF main_1_leds, W
240 
	MOVWF main_1_leds
 241 
	MOVWF main_1_leds
241 
label268438624
 242 
label268438625
242 
	MOVLW 0x00
 243 
	MOVLW 0x00
243 
	SUBWF main_1_count+D'3', W
 244 
	SUBWF main_1_count+D'3', W
244 
	BNZ	label268438626
 245 
	BNZ	label268438627
245 
	MOVLW 0x03
 246 
	MOVLW 0x03
246 
	SUBWF main_1_count+D'2', W
 247 
	SUBWF main_1_count+D'2', W
247 
	BNZ	label268438626
 248 
	BNZ	label268438627
248 
	MOVLW 0x0D
 249 
	MOVLW 0x0D
249 
	SUBWF main_1_count+D'1', W
 250 
	SUBWF main_1_count+D'1', W
250 
	BNZ	label268438626
 251 
	BNZ	label268438627
251 
	MOVLW 0x40
 252 
	MOVLW 0x40
252 
	SUBWF main_1_count, W
 253 
	SUBWF main_1_count, W
253 
label268438626
 254 
label268438627
254 
	BNC	label4026532501
 255 
	BNC	label4026532558
255 
	BTFSS main_1_count+D'3',7
 256 
	BTFSS main_1_count+D'3',7
256 
	BRA	label268438630
 257 
	BRA	label268438631
257 
label4026532501
 258 
label4026532558
258 
	MOVLW 0x02
 259 
	MOVLW 0x02
259 
	IORWF main_1_leds, W
 260 
	IORWF main_1_leds, W
260 
	MOVWF main_1_leds
 261 
	MOVWF main_1_leds
261 
label268438630
 262 
label268438631
262 
	MOVLW 0x00
 263 
	MOVLW 0x00
263 
	SUBWF main_1_count+D'3', W
 264 
	SUBWF main_1_count+D'3', W
264 
	BNZ	label268438632
 265 
	BNZ	label268438633
265 
	MOVLW 0x01
 266 
	MOVLW 0x01
266 
	SUBWF main_1_count+D'2', W
 267 
	SUBWF main_1_count+D'2', W
267 
	BNZ	label268438632
 268 
	BNZ	label268438633
268 
	MOVLW 0x86
 269 
	MOVLW 0x86
269 
	SUBWF main_1_count+D'1', W
 270 
	SUBWF main_1_count+D'1', W
270 
	BNZ	label268438632
 271 
	BNZ	label268438633
271 
	MOVLW 0xA0
 272 
	MOVLW 0xA0
272 
	SUBWF main_1_count, W
 273 
	SUBWF main_1_count, W
273 
label268438632
 274 
label268438633
274 
	BNC	label4026532502
 275 
	BNC	label4026532559
275 
	BTFSS main_1_count+D'3',7
 276 
	BTFSS main_1_count+D'3',7
276 
	BRA	label268438636
 277 
	BRA	label268438637
277 
label4026532502
 278 
label4026532559
278 
	MOVLW 0x04
 279 
	MOVLW 0x04
279 
	IORWF main_1_leds, W
 280 
	IORWF main_1_leds, W
280 
	MOVWF main_1_leds
 281 
	MOVWF main_1_leds
281 
label268438636
 282 
label268438637
282 
	MOVF main_1_leds, W
 283 
	MOVF main_1_leds, W
283 
	MOVWF gbl_lata
 284 
	MOVWF gbl_lata
284 
	BRA	label268438603
 285 
	BRA	label268438604
285 
label268438608
 286 
label268438609
286 
	SETF gbl_lata
 287 
	SETF gbl_lata
287 
label268438640
 288 
label268438641
- 
 
 289 
	CLRF main_1_cas
- 
 
 290 
	CLRF main_1_cas+D'1'
- 
 
 291 
	CLRF main_1_cas+D'2'
- 
 
 292 
	CLRF main_1_cas+D'3'
288 
	SETF main_1_sensors
 293 
	SETF main_1_sensors
289 
	CALL receive_00000
 294 
	CALL receive_00000
290 
	MOVF CompTempVarRet489, W
 295 
	MOVF CompTempVarRet489, W
291 
	MOVWF main_1_sensors
 296 
	MOVWF main_1_sensors
292 
	CLRF CompTempVar491
 297 
	CLRF CompTempVar491
293 
	BTFSS main_1_sensors,1
 298 
	BTFSS main_1_sensors,1
294 
	BRA	label268438645
 299 
	BRA	label268438647
295 
	BTFSS main_1_sensors,0
 300 
	BTFSS main_1_sensors,0
296 
	BRA	label268438645
 301 
	BRA	label268438647
297 
	INCF CompTempVar491, F
 302 
	INCF CompTempVar491, F
298 
label268438645
 303 
label268438647
299 
	MOVF CompTempVar491, F
 304 
	MOVF CompTempVar491, F
300 
	BNZ	label268438646
 305 
	BNZ	label268438648
301 
	MOVLW 0x77
 306 
	MOVLW 0x77
302 
	MOVWF main_1_motors
 307 
	MOVWF main_1_motors
303 
label268438646
 308 
label268438648
304 
	BTFSC main_1_sensors,2
 309 
	BTFSC main_1_sensors,2
305 
	BRA	label268438649
 310 
	BRA	label268438651
- 
 
 311 
	MOVLW 0x00
- 
 
 312 
	SUBWF main_1_cas+D'3', W
- 
 
 313 
	BNZ	label268438653
- 
 
 314 
	MOVLW 0x06
- 
 
 315 
	SUBWF main_1_cas+D'2', W
- 
 
 316 
	BNZ	label268438653
- 
 
 317 
	MOVLW 0x1A
- 
 
 318 
	SUBWF main_1_cas+D'1', W
- 
 
 319 
	BNZ	label268438653
- 
 
 320 
	MOVLW 0x80
- 
 
 321 
	SUBWF main_1_cas, W
- 
 
 322 
label268438653
- 
 
 323 
	BNC	label4026532563
- 
 
 324 
	BTFSS main_1_cas+D'3',7
- 
 
 325 
	BRA	label4026532566
- 
 
 326 
label4026532563
- 
 
 327 
	INCF main_1_cas, F
- 
 
 328 
	BTFSC STATUS,Z
- 
 
 329 
	INCF main_1_cas+D'1', F
- 
 
 330 
	BTFSC STATUS,Z
- 
 
 331 
	INCF main_1_cas+D'2', F
- 
 
 332 
	BTFSC STATUS,Z
- 
 
 333 
	INCF main_1_cas+D'3', F
- 
 
 334 
label4026532566
- 
 
 335 
	CLRF main_1_cas
- 
 
 336 
	CLRF main_1_cas+D'1'
- 
 
 337 
	CLRF main_1_cas+D'2'
- 
 
 338 
	CLRF main_1_cas+D'3'
306 
	MOVLW 0xF7
 339 
	MOVLW 0xF7
307 
	MOVWF main_1_motors
 340 
	MOVWF main_1_motors
308 
label268438649
 341 
label268438651
309 
	BTFSC main_1_sensors,3
 342 
	BTFSC main_1_sensors,3
310 
	BRA	label268438652
 343 
	BRA	label268438668
- 
 
 344 
	MOVLW 0x00
- 
 
 345 
	SUBWF main_1_cas+D'3', W
- 
 
 346 
	BNZ	label268438670
- 
 
 347 
	MOVLW 0x06
- 
 
 348 
	SUBWF main_1_cas+D'2', W
- 
 
 349 
	BNZ	label268438670
- 
 
 350 
	MOVLW 0x1A
- 
 
 351 
	SUBWF main_1_cas+D'1', W
- 
 
 352 
	BNZ	label268438670
- 
 
 353 
	MOVLW 0x80
- 
 
 354 
	SUBWF main_1_cas, W
- 
 
 355 
label268438670
- 
 
 356 
	BNC	label4026532568
- 
 
 357 
	BTFSS main_1_cas+D'3',7
- 
 
 358 
	BRA	label4026532571
- 
 
 359 
label4026532568
- 
 
 360 
	INCF main_1_cas, F
- 
 
 361 
	BTFSC STATUS,Z
- 
 
 362 
	INCF main_1_cas+D'1', F
- 
 
 363 
	BTFSC STATUS,Z
- 
 
 364 
	INCF main_1_cas+D'2', F
- 
 
 365 
	BTFSC STATUS,Z
- 
 
 366 
	INCF main_1_cas+D'3', F
- 
 
 367 
label4026532571
- 
 
 368 
	CLRF main_1_cas
- 
 
 369 
	CLRF main_1_cas+D'1'
- 
 
 370 
	CLRF main_1_cas+D'2'
- 
 
 371 
	CLRF main_1_cas+D'3'
311 
	MOVLW 0x7F
 372 
	MOVLW 0x7F
312 
	MOVWF main_1_motors
 373 
	MOVWF main_1_motors
313 
label268438652
 374 
label268438668
- 
 
 375 
	INCF main_1_cas, F
- 
 
 376 
	BTFSC STATUS,Z
- 
 
 377 
	INCF main_1_cas+D'1', F
- 
 
 378 
	BTFSC STATUS,Z
- 
 
 379 
	INCF main_1_cas+D'2', F
- 
 
 380 
	BTFSC STATUS,Z
- 
 
 381 
	INCF main_1_cas+D'3', F
314 
	MOVF main_1_sensors, W
 382 
	MOVF main_1_sensors, W
315 
	MOVWF gbl_lata
 383 
	MOVWF gbl_lata
316 
	MOVF main_1_motors, W
 384 
	MOVF main_1_motors, W
317 
	MOVWF send_00000_arg_c
 385 
	MOVWF send_00000_arg_c
318 
	CALL send_00000
 386 
	CALL send_00000
319 
	BRA	label268438640
 387 
	BRA	label268438641
320 
; } main function end
 388 
; } main function end
321 
 
 389 
 
322 
	ORG 0x0000035C
 390 
	ORG 0x000003D6
323 
_startup
 391 
_startup
324 
	GOTO	main
 392 
	GOTO	main
325 
	ORG 0x00300000
 393 
	ORG 0x00300000
326 
	DW 0xFEFF
 394 
	DW 0xFEFF
327 
	DW 0xFEF6
 395 
	DW 0xFEF6