| 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 |