45,7 → 45,7 |
Loop |
receive = rcreg |
021A 50AE MOVF gbl_rcreg, W |
021C 6E06 MOVWF CompTempVarRet489 |
021C 6E09 MOVWF CompTempVarRet489 |
|
|
End Function |
60,7 → 60,7 |
0206 D7FE BRA label268438562 |
|
txreg = c |
0208 5006 MOVF send_00000_arg_c, W |
0208 5009 MOVF send_00000_arg_c, W |
020A 6EAD MOVWF gbl_txreg |
|
End Sub |
73,7 → 73,7 |
Dim sensors As Byte |
Dim buttons As Byte |
Dim leds As Byte |
Dim count As Byte |
Dim count As Long |
Dim i As Long |
|
'NASTAVENI IO |
153,121 → 153,207 |
count = 400000 |
0260 0E80 MOVLW 0x80 |
0262 6E04 MOVWF main_1_count |
0264 0E1A MOVLW 0x1A |
0266 6E05 MOVWF main_1_count+D'1' |
0268 0E06 MOVLW 0x06 |
026A 6E06 MOVWF main_1_count+D'2' |
026C 6A07 CLRF main_1_count+D'3' |
|
|
do while (count > 0) |
0264 label268438603 |
0264 5004 MOVF main_1_count, W |
0266 0800 SUBLW 0x00 |
0268 E20E BC label268438604 |
026E label268438603 |
026E 5007 MOVF main_1_count+D'3', W |
0270 0800 SUBLW 0x00 |
0272 E108 BNZ label268438604 |
0274 5006 MOVF main_1_count+D'2', W |
0276 0800 SUBLW 0x00 |
0278 E105 BNZ label268438604 |
027A 5005 MOVF main_1_count+D'1', W |
027C 0800 SUBLW 0x00 |
027E E102 BNZ label268438604 |
0280 5004 MOVF main_1_count, W |
0282 0800 SUBLW 0x00 |
0284 label268438604 |
0284 BE07 BTFSC main_1_count+D'3',7 |
0286 80D8 BSF STATUS,C |
0288 E24A BC label268438608 |
|
count = count -1 |
026A 0404 DECF main_1_count, W |
026C 6E04 MOVWF main_1_count |
028A 0E01 MOVLW 0x01 |
028C 5C04 SUBWF main_1_count, W |
028E 6E09 MOVWF CompTempVar492 |
0290 0E00 MOVLW 0x00 |
0292 6E0A MOVWF CompTempVar496 |
0294 A0D8 BTFSS STATUS,C |
0296 3C0A INCFSZ CompTempVar496, W |
0298 5E05 SUBWF main_1_count+D'1', F |
029A 0E00 MOVLW 0x00 |
029C 6E0A MOVWF CompTempVar496 |
029E A0D8 BTFSS STATUS,C |
02A0 3C0A INCFSZ CompTempVar496, W |
02A2 5E06 SUBWF main_1_count+D'2', F |
02A4 0E00 MOVLW 0x00 |
02A6 6E0A MOVWF CompTempVar496 |
02A8 A0D8 BTFSS STATUS,C |
02AA 3C0A INCFSZ CompTempVar496, W |
02AC 5E07 SUBWF main_1_count+D'3', F |
02AE 5009 MOVF CompTempVar492, W |
02B0 6E04 MOVWF main_1_count |
|
|
if count < 300000 then |
02B2 0E00 MOVLW 0x00 |
02B4 5C07 SUBWF main_1_count+D'3', W |
02B6 E108 BNZ label268438620 |
02B8 0E04 MOVLW 0x04 |
02BA 5C06 SUBWF main_1_count+D'2', W |
02BC E105 BNZ label268438620 |
02BE 0E93 MOVLW 0x93 |
02C0 5C05 SUBWF main_1_count+D'1', W |
02C2 E102 BNZ label268438620 |
02C4 0EE0 MOVLW 0xE0 |
02C6 5C04 SUBWF main_1_count, W |
02C8 label268438620 |
02C8 E302 BNC label4026532500 |
02CA AE07 BTFSS main_1_count+D'3',7 |
02CC D003 BRA label268438624 |
02CE label4026532500 |
02D4 label268438624 |
|
leds = leds | 1 |
026E 0E01 MOVLW 0x01 |
0270 1003 IORWF main_1_leds, W |
0272 6E03 MOVWF main_1_leds |
02CE 0E01 MOVLW 0x01 |
02D0 1003 IORWF main_1_leds, W |
02D2 6E03 MOVWF main_1_leds |
|
end if |
if count < 200000 then |
02D4 0E00 MOVLW 0x00 |
02D6 5C07 SUBWF main_1_count+D'3', W |
02D8 E108 BNZ label268438626 |
02DA 0E03 MOVLW 0x03 |
02DC 5C06 SUBWF main_1_count+D'2', W |
02DE E105 BNZ label268438626 |
02E0 0E0D MOVLW 0x0D |
02E2 5C05 SUBWF main_1_count+D'1', W |
02E4 E102 BNZ label268438626 |
02E6 0E40 MOVLW 0x40 |
02E8 5C04 SUBWF main_1_count, W |
02EA label268438626 |
02EA E302 BNC label4026532501 |
02EC AE07 BTFSS main_1_count+D'3',7 |
02EE D003 BRA label268438630 |
02F0 label4026532501 |
02F6 label268438630 |
|
leds = leds | 2 |
0274 0E02 MOVLW 0x02 |
0276 1003 IORWF main_1_leds, W |
0278 6E03 MOVWF main_1_leds |
02F0 0E02 MOVLW 0x02 |
02F2 1003 IORWF main_1_leds, W |
02F4 6E03 MOVWF main_1_leds |
|
end if |
if count < 100000 then |
02F6 0E00 MOVLW 0x00 |
02F8 5C07 SUBWF main_1_count+D'3', W |
02FA E108 BNZ label268438632 |
02FC 0E01 MOVLW 0x01 |
02FE 5C06 SUBWF main_1_count+D'2', W |
0300 E105 BNZ label268438632 |
0302 0E86 MOVLW 0x86 |
0304 5C05 SUBWF main_1_count+D'1', W |
0306 E102 BNZ label268438632 |
0308 0EA0 MOVLW 0xA0 |
030A 5C04 SUBWF main_1_count, W |
030C label268438632 |
030C E302 BNC label4026532502 |
030E AE07 BTFSS main_1_count+D'3',7 |
0310 D003 BRA label268438636 |
0312 label4026532502 |
0318 label268438636 |
|
leds = leds | 4 |
027A 0E04 MOVLW 0x04 |
027C 1003 IORWF main_1_leds, W |
027E 6E03 MOVWF main_1_leds |
0312 0E04 MOVLW 0x04 |
0314 1003 IORWF main_1_leds, W |
0316 6E03 MOVWF main_1_leds |
|
end if |
lata = leds |
0280 5003 MOVF main_1_leds, W |
0282 6E89 MOVWF gbl_lata |
0318 5003 MOVF main_1_leds, W |
031A 6E89 MOVWF gbl_lata |
|
loop |
0284 D7EF BRA label268438603 |
0286 label268438604 |
031C D7A8 BRA label268438603 |
031E label268438608 |
|
leds = 0xFF |
0286 6803 SETF main_1_leds |
|
lata = 0xFF |
0288 6889 SETF gbl_lata |
031E 6889 SETF gbl_lata |
|
|
|
Do while 1 |
028A label268438619 |
0320 label268438640 |
|
|
sensors =0xFF |
028A 6802 SETF main_1_sensors |
0320 6802 SETF main_1_sensors |
|
sensors = Call receive() 'prijmi stav cidel senzoru |
028C EC07F001 CALL receive_00000 |
0290 5006 MOVF CompTempVarRet489, W |
0292 6E02 MOVWF main_1_sensors |
0322 EC07F001 CALL receive_00000 |
0326 5009 MOVF CompTempVarRet489, W |
0328 6E02 MOVWF main_1_sensors |
|
|
If (!((sensors.0) and (sensors.1))) Then |
0294 6A05 CLRF CompTempVar491 |
0296 A202 BTFSS main_1_sensors,1 |
0298 D003 BRA label268438624 |
029A A002 BTFSS main_1_sensors,0 |
029C D001 BRA label268438624 |
029E 2A05 INCF CompTempVar491, F |
02A0 label268438624 |
02A0 5205 MOVF CompTempVar491, F |
02A2 E102 BNZ label268438625 |
02A8 label268438625 |
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 |
|
motors = 0x77 |
02A4 0E77 MOVLW 0x77 |
02A6 6E01 MOVWF main_1_motors |
033A 0E77 MOVLW 0x77 |
033C 6E01 MOVWF main_1_motors |
|
End If |
|
If (!(sensors.2)) Then |
02A8 B402 BTFSC main_1_sensors,2 |
02AA D002 BRA label268438628 |
02B0 label268438628 |
033E B402 BTFSC main_1_sensors,2 |
0340 D002 BRA label268438649 |
0346 label268438649 |
|
motors = 0xF7 |
02AC 0EF7 MOVLW 0xF7 |
02AE 6E01 MOVWF main_1_motors |
0342 0EF7 MOVLW 0xF7 |
0344 6E01 MOVWF main_1_motors |
|
End If |
|
If (!(sensors.3)) Then |
02B0 B602 BTFSC main_1_sensors,3 |
02B2 D002 BRA label268438631 |
02B8 label268438631 |
0346 B602 BTFSC main_1_sensors,3 |
0348 D002 BRA label268438652 |
034E label268438652 |
|
motors = 0x7F |
02B4 0E7F MOVLW 0x7F |
02B6 6E01 MOVWF main_1_motors |
034A 0E7F MOVLW 0x7F |
034C 6E01 MOVWF main_1_motors |
|
End If |
|
lata = sensors |
02B8 5002 MOVF main_1_sensors, W |
02BA 6E89 MOVWF gbl_lata |
034E 5002 MOVF main_1_sensors, W |
0350 6E89 MOVWF gbl_lata |
|
call send(motors) |
02BC 5001 MOVF main_1_motors, W |
02BE 6E06 MOVWF send_00000_arg_c |
02C0 EC02F001 CALL send_00000 |
0352 5001 MOVF main_1_motors, W |
0354 6E09 MOVWF send_00000_arg_c |
0356 EC02F001 CALL send_00000 |
|
|
Loop |
02C4 D7E2 BRA label268438619 |
035A D7E2 BRA label268438640 |
|
|
End Sub |
276,11 → 362,11 |
//////////////////////////////////////// |
// Code with no source :-) |
//////////////////////////////////////// |
0200 EF63F001 GOTO _startup |
0200 EFAEF001 GOTO _startup |
|
|
02C6 _startup |
02C6 EF10F001 GOTO main |
035C _startup |
035C EF10F001 GOTO main |
|
300000 FEFF DW 0xFEFF |
300002 FEF6 DW 0xFEF6 |