45,7 → 45,7 |
Loop |
receive = rcreg |
021A 50AE MOVF gbl_rcreg, W |
021C 6E09 MOVWF CompTempVarRet489 |
021C 6E0D MOVWF CompTempVarRet489 |
|
|
End Function |
60,7 → 60,7 |
0206 D7FE BRA label268438562 |
|
txreg = c |
0208 5009 MOVF send_00000_arg_c, W |
0208 500D MOVF send_00000_arg_c, W |
020A 6EAD MOVWF gbl_txreg |
|
End Sub |
74,6 → 74,7 |
Dim buttons As Byte |
Dim leds As Byte |
Dim count As Long |
Dim cas As Long |
Dim i As Long |
|
'NASTAVENI IO |
140,9 → 141,9 |
|
|
do while (portb.0 = 1) |
0258 label268438598 |
0258 label268438599 |
0258 B081 BTFSC gbl_portb,0 |
025A D7FE BRA label268438598 |
025A D7FE BRA label268438599 |
|
loop |
|
161,43 → 162,43 |
|
|
do while (count > 0) |
026E label268438603 |
026E label268438604 |
026E 5007 MOVF main_1_count+D'3', W |
0270 0800 SUBLW 0x00 |
0272 E108 BNZ label268438604 |
0272 E108 BNZ label268438605 |
0274 5006 MOVF main_1_count+D'2', W |
0276 0800 SUBLW 0x00 |
0278 E105 BNZ label268438604 |
0278 E105 BNZ label268438605 |
027A 5005 MOVF main_1_count+D'1', W |
027C 0800 SUBLW 0x00 |
027E E102 BNZ label268438604 |
027E E102 BNZ label268438605 |
0280 5004 MOVF main_1_count, W |
0282 0800 SUBLW 0x00 |
0284 label268438604 |
0284 label268438605 |
0284 BE07 BTFSC main_1_count+D'3',7 |
0286 80D8 BSF STATUS,C |
0288 E24A BC label268438608 |
0288 E24A BC label268438609 |
|
count = count -1 |
028A 0E01 MOVLW 0x01 |
028C 5C04 SUBWF main_1_count, W |
028E 6E09 MOVWF CompTempVar492 |
028E 6E0D MOVWF CompTempVar492 |
0290 0E00 MOVLW 0x00 |
0292 6E0A MOVWF CompTempVar496 |
0292 6E0E MOVWF CompTempVar496 |
0294 A0D8 BTFSS STATUS,C |
0296 3C0A INCFSZ CompTempVar496, W |
0296 3C0E INCFSZ CompTempVar496, W |
0298 5E05 SUBWF main_1_count+D'1', F |
029A 0E00 MOVLW 0x00 |
029C 6E0A MOVWF CompTempVar496 |
029C 6E0E MOVWF CompTempVar496 |
029E A0D8 BTFSS STATUS,C |
02A0 3C0A INCFSZ CompTempVar496, W |
02A0 3C0E INCFSZ CompTempVar496, W |
02A2 5E06 SUBWF main_1_count+D'2', F |
02A4 0E00 MOVLW 0x00 |
02A6 6E0A MOVWF CompTempVar496 |
02A6 6E0E MOVWF CompTempVar496 |
02A8 A0D8 BTFSS STATUS,C |
02AA 3C0A INCFSZ CompTempVar496, W |
02AA 3C0E INCFSZ CompTempVar496, W |
02AC 5E07 SUBWF main_1_count+D'3', F |
02AE 5009 MOVF CompTempVar492, W |
02AE 500D MOVF CompTempVar492, W |
02B0 6E04 MOVWF main_1_count |
|
|
204,21 → 205,21 |
if count < 300000 then |
02B2 0E00 MOVLW 0x00 |
02B4 5C07 SUBWF main_1_count+D'3', W |
02B6 E108 BNZ label268438620 |
02B6 E108 BNZ label268438621 |
02B8 0E04 MOVLW 0x04 |
02BA 5C06 SUBWF main_1_count+D'2', W |
02BC E105 BNZ label268438620 |
02BC E105 BNZ label268438621 |
02BE 0E93 MOVLW 0x93 |
02C0 5C05 SUBWF main_1_count+D'1', W |
02C2 E102 BNZ label268438620 |
02C2 E102 BNZ label268438621 |
02C4 0EE0 MOVLW 0xE0 |
02C6 5C04 SUBWF main_1_count, W |
02C8 label268438620 |
02C8 E302 BNC label4026532500 |
02C8 label268438621 |
02C8 E302 BNC label4026532557 |
02CA AE07 BTFSS main_1_count+D'3',7 |
02CC D003 BRA label268438624 |
02CE label4026532500 |
02D4 label268438624 |
02CC D003 BRA label268438625 |
02CE label4026532557 |
02D4 label268438625 |
|
leds = leds | 1 |
02CE 0E01 MOVLW 0x01 |
229,21 → 230,21 |
if count < 200000 then |
02D4 0E00 MOVLW 0x00 |
02D6 5C07 SUBWF main_1_count+D'3', W |
02D8 E108 BNZ label268438626 |
02D8 E108 BNZ label268438627 |
02DA 0E03 MOVLW 0x03 |
02DC 5C06 SUBWF main_1_count+D'2', W |
02DE E105 BNZ label268438626 |
02DE E105 BNZ label268438627 |
02E0 0E0D MOVLW 0x0D |
02E2 5C05 SUBWF main_1_count+D'1', W |
02E4 E102 BNZ label268438626 |
02E4 E102 BNZ label268438627 |
02E6 0E40 MOVLW 0x40 |
02E8 5C04 SUBWF main_1_count, W |
02EA label268438626 |
02EA E302 BNC label4026532501 |
02EA label268438627 |
02EA E302 BNC label4026532558 |
02EC AE07 BTFSS main_1_count+D'3',7 |
02EE D003 BRA label268438630 |
02F0 label4026532501 |
02F6 label268438630 |
02EE D003 BRA label268438631 |
02F0 label4026532558 |
02F6 label268438631 |
|
leds = leds | 2 |
02F0 0E02 MOVLW 0x02 |
254,21 → 255,21 |
if count < 100000 then |
02F6 0E00 MOVLW 0x00 |
02F8 5C07 SUBWF main_1_count+D'3', W |
02FA E108 BNZ label268438632 |
02FA E108 BNZ label268438633 |
02FC 0E01 MOVLW 0x01 |
02FE 5C06 SUBWF main_1_count+D'2', W |
0300 E105 BNZ label268438632 |
0300 E105 BNZ label268438633 |
0302 0E86 MOVLW 0x86 |
0304 5C05 SUBWF main_1_count+D'1', W |
0306 E102 BNZ label268438632 |
0306 E102 BNZ label268438633 |
0308 0EA0 MOVLW 0xA0 |
030A 5C04 SUBWF main_1_count, W |
030C label268438632 |
030C E302 BNC label4026532502 |
030C label268438633 |
030C E302 BNC label4026532559 |
030E AE07 BTFSS main_1_count+D'3',7 |
0310 D003 BRA label268438636 |
0312 label4026532502 |
0318 label268438636 |
0310 D003 BRA label268438637 |
0312 label4026532559 |
0318 label268438637 |
|
leds = leds | 4 |
0312 0E04 MOVLW 0x04 |
281,8 → 282,8 |
031A 6E89 MOVWF gbl_lata |
|
loop |
031C D7A8 BRA label268438603 |
031E label268438608 |
031C D7A8 BRA label268438604 |
031E label268438609 |
|
lata = 0xFF |
031E 6889 SETF gbl_lata |
290,70 → 291,154 |
|
|
Do while 1 |
0320 label268438640 |
0320 label268438641 |
|
cas = 0 |
0320 6A08 CLRF main_1_cas |
0322 6A09 CLRF main_1_cas+D'1' |
0324 6A0A CLRF main_1_cas+D'2' |
0326 6A0B CLRF main_1_cas+D'3' |
|
sensors =0xFF |
0320 6802 SETF main_1_sensors |
0328 6802 SETF main_1_sensors |
|
sensors = Call receive() 'prijmi stav cidel senzoru |
0322 EC07F001 CALL receive_00000 |
0326 5009 MOVF CompTempVarRet489, W |
0328 6E02 MOVWF main_1_sensors |
032A EC07F001 CALL receive_00000 |
032E 500D MOVF CompTempVarRet489, W |
0330 6E02 MOVWF main_1_sensors |
|
|
If (!((sensors.0) and (sensors.1))) Then |
032A 6A08 CLRF CompTempVar491 |
032C A202 BTFSS main_1_sensors,1 |
032E D003 BRA label268438645 |
0330 A002 BTFSS main_1_sensors,0 |
0332 D001 BRA label268438645 |
0334 2A08 INCF CompTempVar491, F |
0336 label268438645 |
0336 5208 MOVF CompTempVar491, F |
0338 E102 BNZ label268438646 |
033E label268438646 |
0332 6A0C CLRF CompTempVar491 |
0334 A202 BTFSS main_1_sensors,1 |
0336 D003 BRA label268438647 |
0338 A002 BTFSS main_1_sensors,0 |
033A D001 BRA label268438647 |
033C 2A0C INCF CompTempVar491, F |
033E label268438647 |
033E 520C MOVF CompTempVar491, F |
0340 E102 BNZ label268438648 |
0346 label268438648 |
|
motors = 0x77 |
033A 0E77 MOVLW 0x77 |
033C 6E01 MOVWF main_1_motors |
0342 0E77 MOVLW 0x77 |
0344 6E01 MOVWF main_1_motors |
|
End If |
|
If (!(sensors.2)) Then |
033E B402 BTFSC main_1_sensors,2 |
0340 D002 BRA label268438649 |
0346 label268438649 |
0346 B402 BTFSC main_1_sensors,2 |
0348 D01B BRA label268438651 |
0380 label268438651 |
|
If cas< 400000 Then |
034A 0E00 MOVLW 0x00 |
034C 5C0B SUBWF main_1_cas+D'3', W |
034E E108 BNZ label268438653 |
0350 0E06 MOVLW 0x06 |
0352 5C0A SUBWF main_1_cas+D'2', W |
0354 E105 BNZ label268438653 |
0356 0E1A MOVLW 0x1A |
0358 5C09 SUBWF main_1_cas+D'1', W |
035A E102 BNZ label268438653 |
035C 0E80 MOVLW 0x80 |
035E 5C08 SUBWF main_1_cas, W |
0360 label268438653 |
0360 E302 BNC label4026532563 |
0362 AE0B BTFSS main_1_cas+D'3',7 |
0364 D007 BRA label4026532566 |
0366 label4026532563 |
|
cas = cas + 1 |
0366 2A08 INCF main_1_cas, F |
0368 B4D8 BTFSC STATUS,Z |
036A 2A09 INCF main_1_cas+D'1', F |
036C B4D8 BTFSC STATUS,Z |
036E 2A0A INCF main_1_cas+D'2', F |
0370 B4D8 BTFSC STATUS,Z |
0372 2A0B INCF main_1_cas+D'3', F |
0374 label4026532566 |
|
End If |
cas = 0 |
0374 6A08 CLRF main_1_cas |
0376 6A09 CLRF main_1_cas+D'1' |
0378 6A0A CLRF main_1_cas+D'2' |
037A 6A0B CLRF main_1_cas+D'3' |
|
motors = 0xF7 |
0342 0EF7 MOVLW 0xF7 |
0344 6E01 MOVWF main_1_motors |
037C 0EF7 MOVLW 0xF7 |
037E 6E01 MOVWF main_1_motors |
|
End If |
|
If (!(sensors.3)) Then |
0346 B602 BTFSC main_1_sensors,3 |
0348 D002 BRA label268438652 |
034E label268438652 |
0380 B602 BTFSC main_1_sensors,3 |
0382 D01B BRA label268438668 |
03BA label268438668 |
|
If cas< 400000 Then |
0384 0E00 MOVLW 0x00 |
0386 5C0B SUBWF main_1_cas+D'3', W |
0388 E108 BNZ label268438670 |
038A 0E06 MOVLW 0x06 |
038C 5C0A SUBWF main_1_cas+D'2', W |
038E E105 BNZ label268438670 |
0390 0E1A MOVLW 0x1A |
0392 5C09 SUBWF main_1_cas+D'1', W |
0394 E102 BNZ label268438670 |
0396 0E80 MOVLW 0x80 |
0398 5C08 SUBWF main_1_cas, W |
039A label268438670 |
039A E302 BNC label4026532568 |
039C AE0B BTFSS main_1_cas+D'3',7 |
039E D007 BRA label4026532571 |
03A0 label4026532568 |
|
cas = cas + 1 |
03A0 2A08 INCF main_1_cas, F |
03A2 B4D8 BTFSC STATUS,Z |
03A4 2A09 INCF main_1_cas+D'1', F |
03A6 B4D8 BTFSC STATUS,Z |
03A8 2A0A INCF main_1_cas+D'2', F |
03AA B4D8 BTFSC STATUS,Z |
03AC 2A0B INCF main_1_cas+D'3', F |
03AE label4026532571 |
|
End If |
cas = 0 |
03AE 6A08 CLRF main_1_cas |
03B0 6A09 CLRF main_1_cas+D'1' |
03B2 6A0A CLRF main_1_cas+D'2' |
03B4 6A0B CLRF main_1_cas+D'3' |
|
motors = 0x7F |
034A 0E7F MOVLW 0x7F |
034C 6E01 MOVWF main_1_motors |
03B6 0E7F MOVLW 0x7F |
03B8 6E01 MOVWF main_1_motors |
|
End If |
|
|
cas = cas+1 |
03BA 2A08 INCF main_1_cas, F |
03BC B4D8 BTFSC STATUS,Z |
03BE 2A09 INCF main_1_cas+D'1', F |
03C0 B4D8 BTFSC STATUS,Z |
03C2 2A0A INCF main_1_cas+D'2', F |
03C4 B4D8 BTFSC STATUS,Z |
03C6 2A0B INCF main_1_cas+D'3', F |
|
lata = sensors |
034E 5002 MOVF main_1_sensors, W |
0350 6E89 MOVWF gbl_lata |
03C8 5002 MOVF main_1_sensors, W |
03CA 6E89 MOVWF gbl_lata |
|
call send(motors) |
0352 5001 MOVF main_1_motors, W |
0354 6E09 MOVWF send_00000_arg_c |
0356 EC02F001 CALL send_00000 |
03CC 5001 MOVF main_1_motors, W |
03CE 6E0D MOVWF send_00000_arg_c |
03D0 EC02F001 CALL send_00000 |
|
|
Loop |
035A D7E2 BRA label268438640 |
03D4 D7A5 BRA label268438641 |
|
|
End Sub |
362,11 → 447,11 |
//////////////////////////////////////// |
// Code with no source :-) |
//////////////////////////////////////// |
0200 EFAEF001 GOTO _startup |
0200 EFEBF001 GOTO _startup |
|
|
035C _startup |
035C EF10F001 GOTO main |
03D6 _startup |
03D6 EF10F001 GOTO main |
|
300000 FEFF DW 0xFEFF |
300002 FEF6 DW 0xFEF6 |