Subversion Repositories svnkaklik

Rev

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

Rev 323 Rev 324
Line 43... Line 43...
43 
0218  D7FE      	BRA	label268438551
 43 
0218  D7FE      	BRA	label268438551
44 
 
 44 
 
45 
	Loop
 45 
	Loop
46 
	receive = rcreg
 46 
	receive = rcreg
47 
021A  50AE      	MOVF gbl_rcreg, W
 47 
021A  50AE      	MOVF gbl_rcreg, W
48 
021C  6E06      	MOVWF CompTempVarRet489
 48 
021C  6E09      	MOVWF CompTempVarRet489
49 
 
 49 
 
50
50
51 
End Function
 51 
End Function
52 
021E  0012      	RETURN
 52 
021E  0012      	RETURN
53 
 
 53 
 
Line 58... Line 58...
58 
0204            label268438562
 58 
0204            label268438562
59 
0204  A89E      	BTFSS gbl_pir1,4
 59 
0204  A89E      	BTFSS gbl_pir1,4
60 
0206  D7FE      	BRA	label268438562
 60 
0206  D7FE      	BRA	label268438562
61 
 
 61 
 
62 
	txreg = c
 62 
	txreg = c
63 
0208  5006      	MOVF send_00000_arg_c, W
 63 
0208  5009      	MOVF send_00000_arg_c, W
64 
020A  6EAD      	MOVWF gbl_txreg
 64 
020A  6EAD      	MOVWF gbl_txreg
65 
 
 65 
 
66 
End Sub
 66 
End Sub
67 
020C  0012      	RETURN
 67 
020C  0012      	RETURN
68 
 
 68 
 
Line 71... Line 71...
71 
 
 71 
 
72 
	Dim motors As Byte
 72 
	Dim motors As Byte
73 
	Dim sensors As Byte
 73 
	Dim sensors As Byte
74 
	Dim buttons As Byte
 74 
	Dim buttons As Byte
75 
	Dim leds As Byte
 75 
	Dim leds As Byte
76 
	Dim count As Byte
 76 
	Dim count As Long
77 
	Dim i As Long
 77 
	Dim i As Long
78 
 
 78 
 
79 
	'NASTAVENI IO
 79 
	'NASTAVENI IO
80 
	lata=0xFF
 80 
	lata=0xFF
81 
0220  6889      	SETF gbl_lata
 81 
0220  6889      	SETF gbl_lata
Line 151... Line 151...
151 
025E  6E03      	MOVWF main_1_leds
 151 
025E  6E03      	MOVWF main_1_leds
152 
 
 152 
 
153 
	count = 400000
 153 
	count = 400000
154 
0260  0E80      	MOVLW 0x80
 154 
0260  0E80      	MOVLW 0x80
155 
0262  6E04      	MOVWF main_1_count
 155 
0262  6E04      	MOVWF main_1_count
- 
 
 156 
0264  0E1A      	MOVLW 0x1A
- 
 
 157 
0266  6E05      	MOVWF main_1_count+D'1'
- 
 
 158 
0268  0E06      	MOVLW 0x06
- 
 
 159 
026A  6E06      	MOVWF main_1_count+D'2'
- 
 
 160 
026C  6A07      	CLRF main_1_count+D'3'
156 
 
 161 
 
157
162
158 
	do while (count > 0)
 163 
	do while (count > 0)
159 
0264            label268438603
 164 
026E            label268438603
- 
 
 165 
026E  5007      	MOVF main_1_count+D'3', W
- 
 
 166 
0270  0800      	SUBLW 0x00
- 
 
 167 
0272  E108      	BNZ	label268438604
- 
 
 168 
0274  5006      	MOVF main_1_count+D'2', W
- 
 
 169 
0276  0800      	SUBLW 0x00
- 
 
 170 
0278  E105      	BNZ	label268438604
- 
 
 171 
027A  5005      	MOVF main_1_count+D'1', W
- 
 
 172 
027C  0800      	SUBLW 0x00
- 
 
 173 
027E  E102      	BNZ	label268438604
160 
0264  5004      	MOVF main_1_count, W
 174 
0280  5004      	MOVF main_1_count, W
161 
0266  0800      	SUBLW 0x00
 175 
0282  0800      	SUBLW 0x00
- 
 
 176 
0284            label268438604
- 
 
 177 
0284  BE07      	BTFSC main_1_count+D'3',7
- 
 
 178 
0286  80D8      	BSF STATUS,C
162 
0268  E20E      	BC	label268438604
 179 
0288  E24A      	BC	label268438608
163 
 
 180 
 
164 
		count = count -1
 181 
		count = count -1
- 
 
 182 
028A  0E01      	MOVLW 0x01
165 
026A  0404      	DECF main_1_count, W
 183 
028C  5C04      	SUBWF main_1_count, W
- 
 
 184 
028E  6E09      	MOVWF CompTempVar492
- 
 
 185 
0290  0E00      	MOVLW 0x00
- 
 
 186 
0292  6E0A      	MOVWF CompTempVar496
- 
 
 187 
0294  A0D8      	BTFSS STATUS,C
- 
 
 188 
0296  3C0A      	INCFSZ CompTempVar496, W
- 
 
 189 
0298  5E05      	SUBWF main_1_count+D'1', F
- 
 
 190 
029A  0E00      	MOVLW 0x00
- 
 
 191 
029C  6E0A      	MOVWF CompTempVar496
- 
 
 192 
029E  A0D8      	BTFSS STATUS,C
- 
 
 193 
02A0  3C0A      	INCFSZ CompTempVar496, W
- 
 
 194 
02A2  5E06      	SUBWF main_1_count+D'2', F
- 
 
 195 
02A4  0E00      	MOVLW 0x00
- 
 
 196 
02A6  6E0A      	MOVWF CompTempVar496
- 
 
 197 
02A8  A0D8      	BTFSS STATUS,C
- 
 
 198 
02AA  3C0A      	INCFSZ CompTempVar496, W
- 
 
 199 
02AC  5E07      	SUBWF main_1_count+D'3', F
- 
 
 200 
02AE  5009      	MOVF CompTempVar492, W
166 
026C  6E04      	MOVWF main_1_count
 201 
02B0  6E04      	MOVWF main_1_count
167 
 
 202 
 
168
203
169 
		if count < 300000 then
 204 
		if count < 300000 then
- 
 
 205 
02B2  0E00      	MOVLW 0x00
- 
 
 206 
02B4  5C07      	SUBWF main_1_count+D'3', W
- 
 
 207 
02B6  E108      	BNZ	label268438620
- 
 
 208 
02B8  0E04      	MOVLW 0x04
- 
 
 209 
02BA  5C06      	SUBWF main_1_count+D'2', W
- 
 
 210 
02BC  E105      	BNZ	label268438620
- 
 
 211 
02BE  0E93      	MOVLW 0x93
- 
 
 212 
02C0  5C05      	SUBWF main_1_count+D'1', W
- 
 
 213 
02C2  E102      	BNZ	label268438620
- 
 
 214 
02C4  0EE0      	MOVLW 0xE0
- 
 
 215 
02C6  5C04      	SUBWF main_1_count, W
- 
 
 216 
02C8            label268438620
- 
 
 217 
02C8  E302      	BNC	label4026532500
- 
 
 218 
02CA  AE07      	BTFSS main_1_count+D'3',7
- 
 
 219 
02CC  D003      	BRA	label268438624
- 
 
 220 
02CE            label4026532500
- 
 
 221 
02D4            label268438624
- 
 
 222 
 
170 
			leds = leds | 1
 223 
			leds = leds | 1
171 
026E  0E01      	MOVLW 0x01
 224 
02CE  0E01      	MOVLW 0x01
172 
0270  1003      	IORWF main_1_leds, W
 225 
02D0  1003      	IORWF main_1_leds, W
173 
0272  6E03      	MOVWF main_1_leds
 226 
02D2  6E03      	MOVWF main_1_leds
174 
 
 227 
 
175 
		end if
 228 
		end if
176 
		if count < 200000 then
 229 
		if count < 200000 then
- 
 
 230 
02D4  0E00      	MOVLW 0x00
- 
 
 231 
02D6  5C07      	SUBWF main_1_count+D'3', W
- 
 
 232 
02D8  E108      	BNZ	label268438626
- 
 
 233 
02DA  0E03      	MOVLW 0x03
- 
 
 234 
02DC  5C06      	SUBWF main_1_count+D'2', W
- 
 
 235 
02DE  E105      	BNZ	label268438626
- 
 
 236 
02E0  0E0D      	MOVLW 0x0D
- 
 
 237 
02E2  5C05      	SUBWF main_1_count+D'1', W
- 
 
 238 
02E4  E102      	BNZ	label268438626
- 
 
 239 
02E6  0E40      	MOVLW 0x40
- 
 
 240 
02E8  5C04      	SUBWF main_1_count, W
- 
 
 241 
02EA            label268438626
- 
 
 242 
02EA  E302      	BNC	label4026532501
- 
 
 243 
02EC  AE07      	BTFSS main_1_count+D'3',7
- 
 
 244 
02EE  D003      	BRA	label268438630
- 
 
 245 
02F0            label4026532501
- 
 
 246 
02F6            label268438630
- 
 
 247 
 
177 
			leds = leds | 2
 248 
			leds = leds | 2
178 
0274  0E02      	MOVLW 0x02
 249 
02F0  0E02      	MOVLW 0x02
179 
0276  1003      	IORWF main_1_leds, W
 250 
02F2  1003      	IORWF main_1_leds, W
180 
0278  6E03      	MOVWF main_1_leds
 251 
02F4  6E03      	MOVWF main_1_leds
181 
 
 252 
 
182 
		end if
 253 
		end if
183 
		if count < 100000 then
 254 
		if count < 100000 then
- 
 
 255 
02F6  0E00      	MOVLW 0x00
- 
 
 256 
02F8  5C07      	SUBWF main_1_count+D'3', W
- 
 
 257 
02FA  E108      	BNZ	label268438632
- 
 
 258 
02FC  0E01      	MOVLW 0x01
- 
 
 259 
02FE  5C06      	SUBWF main_1_count+D'2', W
- 
 
 260 
0300  E105      	BNZ	label268438632
- 
 
 261 
0302  0E86      	MOVLW 0x86
- 
 
 262 
0304  5C05      	SUBWF main_1_count+D'1', W
- 
 
 263 
0306  E102      	BNZ	label268438632
- 
 
 264 
0308  0EA0      	MOVLW 0xA0
- 
 
 265 
030A  5C04      	SUBWF main_1_count, W
- 
 
 266 
030C            label268438632
- 
 
 267 
030C  E302      	BNC	label4026532502
- 
 
 268 
030E  AE07      	BTFSS main_1_count+D'3',7
- 
 
 269 
0310  D003      	BRA	label268438636
- 
 
 270 
0312            label4026532502
- 
 
 271 
0318            label268438636
- 
 
 272 
 
184 
			leds = leds | 4
 273 
			leds = leds | 4
185 
027A  0E04      	MOVLW 0x04
 274 
0312  0E04      	MOVLW 0x04
186 
027C  1003      	IORWF main_1_leds, W
 275 
0314  1003      	IORWF main_1_leds, W
187 
027E  6E03      	MOVWF main_1_leds
 276 
0316  6E03      	MOVWF main_1_leds
188 
 
 277 
 
189 
		end if
 278 
		end if
190 
		lata = leds
 279 
		lata = leds
191 
0280  5003      	MOVF main_1_leds, W
 280 
0318  5003      	MOVF main_1_leds, W
192 
0282  6E89      	MOVWF gbl_lata
 281 
031A  6E89      	MOVWF gbl_lata
193 
 
 282 
 
194 
	loop
 283 
	loop
195 
0284  D7EF      	BRA	label268438603
 284 
031C  D7A8      	BRA	label268438603
196 
0286            label268438604
 285 
031E            label268438608
197 
 
 - 
 
198 
	leds = 0xFF
 - 
 
199 
0286  6803      	SETF main_1_leds
 - 
 
200 
 
 286 
 
201 
	lata = 0xFF
 287 
	lata = 0xFF
202 
0288  6889      	SETF gbl_lata
 288 
031E  6889      	SETF gbl_lata
203 
 
 289 
 
204 
 
 290 
 
205
291
206 
Do while 1
 292 
Do while 1
207 
028A            label268438619
 293 
0320            label268438640
208 
 
 294 
 
209 
 
 295 
 
210 
  sensors =0xFF
296 
  sensors =0xFF
211 
028A  6802      	SETF main_1_sensors
 297 
0320  6802      	SETF main_1_sensors
212 
 
 298 
 
213 
  sensors = Call receive()	'prijmi stav cidel senzoru
 299 
  sensors = Call receive()	'prijmi stav cidel senzoru
214 
028C  EC07F001  	CALL receive_00000
 300 
0322  EC07F001  	CALL receive_00000
215 
0290  5006      	MOVF CompTempVarRet489, W
 301 
0326  5009      	MOVF CompTempVarRet489, W
216 
0292  6E02      	MOVWF main_1_sensors
 302 
0328  6E02      	MOVWF main_1_sensors
217 
 
 303 
 
218
304
219 
  If (!((sensors.0) and (sensors.1))) Then
 305 
  If (!((sensors.0) and (sensors.1))) Then
220 
0294  6A05      	CLRF CompTempVar491
 306 
032A  6A08      	CLRF CompTempVar491
221 
0296  A202      	BTFSS main_1_sensors,1
 307 
032C  A202      	BTFSS main_1_sensors,1
222 
0298  D003      	BRA	label268438624
 308 
032E  D003      	BRA	label268438645
223 
029A  A002      	BTFSS main_1_sensors,0
 309 
0330  A002      	BTFSS main_1_sensors,0
224 
029C  D001      	BRA	label268438624
 310 
0332  D001      	BRA	label268438645
225 
029E  2A05      	INCF CompTempVar491, F
 311 
0334  2A08      	INCF CompTempVar491, F
226 
02A0            label268438624
 312 
0336            label268438645
227 
02A0  5205      	MOVF CompTempVar491, F
 313 
0336  5208      	MOVF CompTempVar491, F
228 
02A2  E102      	BNZ	label268438625
 314 
0338  E102      	BNZ	label268438646
229 
02A8            label268438625
 315 
033E            label268438646
230 
 
 316 
 
231 
    motors = 0x77
 317 
    motors = 0x77
232 
02A4  0E77      	MOVLW 0x77
 318 
033A  0E77      	MOVLW 0x77
233 
02A6  6E01      	MOVWF main_1_motors
 319 
033C  6E01      	MOVWF main_1_motors
234 
 
 320 
 
235 
  End If
 321 
  End If
236
322
237 
  If (!(sensors.2)) Then
 323 
  If (!(sensors.2)) Then
238 
02A8  B402      	BTFSC main_1_sensors,2
 324 
033E  B402      	BTFSC main_1_sensors,2
239 
02AA  D002      	BRA	label268438628
 325 
0340  D002      	BRA	label268438649
240 
02B0            label268438628
 326 
0346            label268438649
241 
 
 327 
 
242 
    motors = 0xF7
 328 
    motors = 0xF7
243 
02AC  0EF7      	MOVLW 0xF7
 329 
0342  0EF7      	MOVLW 0xF7
244 
02AE  6E01      	MOVWF main_1_motors
 330 
0344  6E01      	MOVWF main_1_motors
245 
 
 331 
 
246 
  End If
 332 
  End If
247
333
248 
  If (!(sensors.3)) Then
 334 
  If (!(sensors.3)) Then
249 
02B0  B602      	BTFSC main_1_sensors,3
 335 
0346  B602      	BTFSC main_1_sensors,3
250 
02B2  D002      	BRA	label268438631
 336 
0348  D002      	BRA	label268438652
251 
02B8            label268438631
 337 
034E            label268438652
252 
 
 338 
 
253 
    motors = 0x7F
 339 
    motors = 0x7F
254 
02B4  0E7F      	MOVLW 0x7F
 340 
034A  0E7F      	MOVLW 0x7F
255 
02B6  6E01      	MOVWF main_1_motors
 341 
034C  6E01      	MOVWF main_1_motors
256 
 
 342 
 
257 
  End If
343 
  End If
258
344
259 
  lata = sensors
 345 
  lata = sensors
260 
02B8  5002      	MOVF main_1_sensors, W
 346 
034E  5002      	MOVF main_1_sensors, W
261 
02BA  6E89      	MOVWF gbl_lata
 347 
0350  6E89      	MOVWF gbl_lata
262 
 
 348 
 
263 
  call send(motors)
 349 
  call send(motors)
264 
02BC  5001      	MOVF main_1_motors, W
 350 
0352  5001      	MOVF main_1_motors, W
265 
02BE  6E06      	MOVWF send_00000_arg_c
 351 
0354  6E09      	MOVWF send_00000_arg_c
266 
02C0  EC02F001  	CALL send_00000
 352 
0356  EC02F001  	CALL send_00000
267 
 
 353 
 
268
354
269 
Loop
 355 
Loop
270 
02C4  D7E2      	BRA	label268438619
 356 
035A  D7E2      	BRA	label268438640
271 
 
 357 
 
272
358
273 
End Sub
 359 
End Sub
274 
 
 360 
 
275 
 
 361 
 
276 
////////////////////////////////////////
 362 
////////////////////////////////////////
277 
// Code with no source :-)
 363 
// Code with no source :-)
278 
////////////////////////////////////////
 364 
////////////////////////////////////////
279 
0200  EF63F001  	GOTO	_startup
 365 
0200  EFAEF001  	GOTO	_startup
280 
 
 366 
 
281 
 
 367 
 
282 
02C6            _startup
 368 
035C            _startup
283 
02C6  EF10F001  	GOTO	main
 369 
035C  EF10F001  	GOTO	main
284 
 
 370 
 
285 
300000  FEFF      	DW 0xFEFF
 371 
300000  FEFF      	DW 0xFEFF
286 
300002  FEF6      	DW 0xFEF6
 372 
300002  FEF6      	DW 0xFEF6
287 
300004  FEFF      	DW 0xFEFF
 373 
300004  FEFF      	DW 0xFEFF
288 
300006  FFFB      	DW 0xFFFB
 374 
300006  FFFB      	DW 0xFFFB