Rev 323 | Go to most recent revision | Blame | Last modification | View Log | Download
;/////////////////////////////////////////////////////////////////////////////////;// Code Generator: BoostBasic Compiler - http://www.sourceboost.com;// Version : 6.70;// License Type : Pro License;// Limitations : PIC18 max code size:Unlimited, max RAM banks:Unlimited;/////////////////////////////////////////////////////////////////////////////////'robot'#pragma DATA _CONFIG2H, _WDT_OFF_2H & _WDTPS_128_2H#pragma DATA _CONFIG1H, _OSCS_OFF_1H & _HSPLL_OSC_1H#pragma DATA _CONFIG2L, _BOR_ON_2L & _BORV_42_2L & _PWRT_ON_2L#pragma DATA _CONFIG2H, _WDT_OFF_2H & _WDTPS_128_2H#pragma DATA _CONFIG3H, _CCP2MX_OFF_3H#pragma DATA _CONFIG4L, _STVR_ON_4L & _LVP_OFF_4L & _DEBUG_OFF_4L#pragma DATA _CONFIG5L, _CP0_ON_5L & _CP1_ON_5L & _CP2_ON_5L & _CP3_ON_5L#pragma DATA _CONFIG5H, _CPB_ON_5H & _CPD_ON_5H#pragma DATA _CONFIG6L, _WRT0_OFF_6L & _WRT1_OFF_6L & _WRT2_OFF_6L & _WRT3_OFF_6L#pragma DATA _CONFIG6H, _WRTC_ON_6H & _WRTB_ON_6H & _WRTD_OFF_6H#pragma DATA _CONFIG7L, _EBTR0_OFF_7L & _EBTR1_OFF_7L & _EBTR2_OFF_7L & _EBTR3_OFF_7L#pragma DATA _CONFIG7H, _EBTRB_ON_7H#pragma CLOCK_FREQ 40000000Function receive() As ByteIf ( (rcsta.OERR = 1) ) Then020E A2AB BTFSS gbl_rcsta,10210 D002 BRA label2684385510216 label268438551rcsta.CREN = 00212 98AB BCF gbl_rcsta,4rcsta.CREN = 10214 88AB BSF gbl_rcsta,4End IfDo While (pir1.RCIF = 0)0216 AA9E BTFSS gbl_pir1,50218 D7FE BRA label268438551Loopreceive = rcreg021A 50AE MOVF gbl_rcreg, W021C 6E09 MOVWF CompTempVarRet489End Function021E 0012 RETURNSub send(c As Byte)Do while (pir1 & (1 << TXIF)) = 0 Loop0204 label2684385620204 A89E BTFSS gbl_pir1,40206 D7FE BRA label268438562txreg = c0208 5009 MOVF send_00000_arg_c, W020A 6EAD MOVWF gbl_txregEnd Sub020C 0012 RETURNSub main()Dim motors As ByteDim sensors As ByteDim buttons As ByteDim leds As ByteDim count As LongDim i As Long'NASTAVENI IOlata=0xFF0220 6889 SETF gbl_latalatb=00222 6A8A CLRF gbl_latblatc=0xFF0224 688B SETF gbl_latctrisa=0xF00226 0EF0 MOVLW 0xF00228 6E92 MOVWF gbl_trisatrisb=0x3F022A 0E3F MOVLW 0x3F022C 6E93 MOVWF gbl_trisbtrisc=0x9F022E 0E9F MOVLW 0x9F0230 6E94 MOVWF gbl_trisc'VYPNOUT ADCadcon1=0xC60232 0EC6 MOVLW 0xC60234 6EC1 MOVWF gbl_adcon1adcon0=0xC00236 0EC0 MOVLW 0xC00238 6EC2 MOVWF gbl_adcon0'UART 9600bpsspbrg=64023A 0E40 MOVLW 0x40023C 6EAF MOVWF gbl_spbrgtxsta = txsta & ~(1 << BRGH)023E 0EFB MOVLW 0xFB0240 14AC ANDWF gbl_txsta, W0242 6EAC MOVWF gbl_txstatxsta = txsta | (1 << TXEN)0244 0E20 MOVLW 0x200246 10AC IORWF gbl_txsta, W0248 6EAC MOVWF gbl_txstarcsta = rcsta | (1 << CREN)024A 0E10 MOVLW 0x10024C 10AB IORWF gbl_rcsta, W024E 6EAB MOVWF gbl_rcstarcsta = rcsta | (1 << SPEN)0250 0E80 MOVLW 0x800252 10AB IORWF gbl_rcsta, W0254 6EAB MOVWF gbl_rcstamotors = 0x000256 6A01 CLRF main_1_motorsdo while (portb.0 = 1)0258 label2684385980258 B081 BTFSC gbl_portb,0025A D7FE BRA label268438598loopleds = 0xF0025C 0EF0 MOVLW 0xF0025E 6E03 MOVWF main_1_ledscount = 4000000260 0E80 MOVLW 0x800262 6E04 MOVWF main_1_count0264 0E1A MOVLW 0x1A0266 6E05 MOVWF main_1_count+D'1'0268 0E06 MOVLW 0x06026A 6E06 MOVWF main_1_count+D'2'026C 6A07 CLRF main_1_count+D'3'do while (count > 0)026E label268438603026E 5007 MOVF main_1_count+D'3', W0270 0800 SUBLW 0x000272 E108 BNZ label2684386040274 5006 MOVF main_1_count+D'2', W0276 0800 SUBLW 0x000278 E105 BNZ label268438604027A 5005 MOVF main_1_count+D'1', W027C 0800 SUBLW 0x00027E E102 BNZ label2684386040280 5004 MOVF main_1_count, W0282 0800 SUBLW 0x000284 label2684386040284 BE07 BTFSC main_1_count+D'3',70286 80D8 BSF STATUS,C0288 E24A BC label268438608count = count -1028A 0E01 MOVLW 0x01028C 5C04 SUBWF main_1_count, W028E 6E09 MOVWF CompTempVar4920290 0E00 MOVLW 0x000292 6E0A MOVWF CompTempVar4960294 A0D8 BTFSS STATUS,C0296 3C0A INCFSZ CompTempVar496, W0298 5E05 SUBWF main_1_count+D'1', F029A 0E00 MOVLW 0x00029C 6E0A MOVWF CompTempVar496029E A0D8 BTFSS STATUS,C02A0 3C0A INCFSZ CompTempVar496, W02A2 5E06 SUBWF main_1_count+D'2', F02A4 0E00 MOVLW 0x0002A6 6E0A MOVWF CompTempVar49602A8 A0D8 BTFSS STATUS,C02AA 3C0A INCFSZ CompTempVar496, W02AC 5E07 SUBWF main_1_count+D'3', F02AE 5009 MOVF CompTempVar492, W02B0 6E04 MOVWF main_1_countif count < 300000 then02B2 0E00 MOVLW 0x0002B4 5C07 SUBWF main_1_count+D'3', W02B6 E108 BNZ label26843862002B8 0E04 MOVLW 0x0402BA 5C06 SUBWF main_1_count+D'2', W02BC E105 BNZ label26843862002BE 0E93 MOVLW 0x9302C0 5C05 SUBWF main_1_count+D'1', W02C2 E102 BNZ label26843862002C4 0EE0 MOVLW 0xE002C6 5C04 SUBWF main_1_count, W02C8 label26843862002C8 E302 BNC label402653250002CA AE07 BTFSS main_1_count+D'3',702CC D003 BRA label26843862402CE label402653250002D4 label268438624leds = leds | 102CE 0E01 MOVLW 0x0102D0 1003 IORWF main_1_leds, W02D2 6E03 MOVWF main_1_ledsend ifif count < 200000 then02D4 0E00 MOVLW 0x0002D6 5C07 SUBWF main_1_count+D'3', W02D8 E108 BNZ label26843862602DA 0E03 MOVLW 0x0302DC 5C06 SUBWF main_1_count+D'2', W02DE E105 BNZ label26843862602E0 0E0D MOVLW 0x0D02E2 5C05 SUBWF main_1_count+D'1', W02E4 E102 BNZ label26843862602E6 0E40 MOVLW 0x4002E8 5C04 SUBWF main_1_count, W02EA label26843862602EA E302 BNC label402653250102EC AE07 BTFSS main_1_count+D'3',702EE D003 BRA label26843863002F0 label402653250102F6 label268438630leds = leds | 202F0 0E02 MOVLW 0x0202F2 1003 IORWF main_1_leds, W02F4 6E03 MOVWF main_1_ledsend ifif count < 100000 then02F6 0E00 MOVLW 0x0002F8 5C07 SUBWF main_1_count+D'3', W02FA E108 BNZ label26843863202FC 0E01 MOVLW 0x0102FE 5C06 SUBWF main_1_count+D'2', W0300 E105 BNZ label2684386320302 0E86 MOVLW 0x860304 5C05 SUBWF main_1_count+D'1', W0306 E102 BNZ label2684386320308 0EA0 MOVLW 0xA0030A 5C04 SUBWF main_1_count, W030C label268438632030C E302 BNC label4026532502030E AE07 BTFSS main_1_count+D'3',70310 D003 BRA label2684386360312 label40265325020318 label268438636leds = leds | 40312 0E04 MOVLW 0x040314 1003 IORWF main_1_leds, W0316 6E03 MOVWF main_1_ledsend iflata = leds0318 5003 MOVF main_1_leds, W031A 6E89 MOVWF gbl_lataloop031C D7A8 BRA label268438603031E label268438608lata = 0xFF031E 6889 SETF gbl_lataDo while 10320 label268438640sensors =0xFF0320 6802 SETF main_1_sensorssensors = Call receive() 'prijmi stav cidel senzoru0322 EC07F001 CALL receive_000000326 5009 MOVF CompTempVarRet489, W0328 6E02 MOVWF main_1_sensorsIf (!((sensors.0) and (sensors.1))) Then032A 6A08 CLRF CompTempVar491032C A202 BTFSS main_1_sensors,1032E D003 BRA label2684386450330 A002 BTFSS main_1_sensors,00332 D001 BRA label2684386450334 2A08 INCF CompTempVar491, F0336 label2684386450336 5208 MOVF CompTempVar491, F0338 E102 BNZ label268438646033E label268438646motors = 0x77033A 0E77 MOVLW 0x77033C 6E01 MOVWF main_1_motorsEnd IfIf (!(sensors.2)) Then033E B402 BTFSC main_1_sensors,20340 D002 BRA label2684386490346 label268438649motors = 0xF70342 0EF7 MOVLW 0xF70344 6E01 MOVWF main_1_motorsEnd IfIf (!(sensors.3)) Then0346 B602 BTFSC main_1_sensors,30348 D002 BRA label268438652034E label268438652motors = 0x7F034A 0E7F MOVLW 0x7F034C 6E01 MOVWF main_1_motorsEnd Iflata = sensors034E 5002 MOVF main_1_sensors, W0350 6E89 MOVWF gbl_latacall send(motors)0352 5001 MOVF main_1_motors, W0354 6E09 MOVWF send_00000_arg_c0356 EC02F001 CALL send_00000Loop035A D7E2 BRA label268438640End Sub////////////////////////////////////////// Code with no source :-)////////////////////////////////////////0200 EFAEF001 GOTO _startup035C _startup035C EF10F001 GOTO main300000 FEFF DW 0xFEFF300002 FEF6 DW 0xFEF6300004 FEFF DW 0xFEFF300006 FFFB DW 0xFFFB300008 3FF0 DW 0x3FF030000A 9FFF DW 0x9FFF30000C BFFF DW 0xBFFF