Rev 319 | 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) ) Then0204 A2AB BTFSS gbl_rcsta,10206 D002 BRA label268438550020C label268438550rcsta.CREN = 00208 98AB BCF gbl_rcsta,4rcsta.CREN = 1020A 88AB BSF gbl_rcsta,4End IfDo While (pir1.RCIF = 0)020C AA9E BTFSS gbl_pir1,5020E D7FE BRA label268438550Loopreceive = rcreg0210 50AE MOVF gbl_rcreg, W0212 6E07 MOVWF CompTempVarRet489End Function0214 0012 RETURNSub send(c As Byte)Do while (pir1 & (1 << TXIF)) = 0 Loop0216 label2684385610216 A89E BTFSS gbl_pir1,40218 D7FE BRA label268438561txreg = c021A 5004 MOVF send_00000_arg_c, W021C 6EAD MOVWF gbl_txregEnd Sub021E 0012 RETURNSub delay(cas As Byte)Dim i As ByteDim x As ByteDo while i <= cas0220 label2684385700220 5005 MOVF delay_00000_1_i, W0222 5C04 SUBWF delay_00000_arg_cas, W0224 A0D8 BTFSS STATUS,CDo While x <= 1000228 5006 MOVF delay_00000_1_x, W022A 0864 SUBLW 0x64022C E305 BNC label268438574Call receive()022E EC02F001 CALL receive_00000x=x+10232 2806 INCF delay_00000_1_x, W0234 6E06 MOVWF delay_00000_1_xloop0236 D7F8 BRA label40265324170238 label268438574i=i+10238 2805 INCF delay_00000_1_i, W023A 6E05 MOVWF delay_00000_1_iloop023C D7F1 BRA label268438570End Sub0226 0012 RETURN0228 label4026532417Sub main()Dim motors As ByteDim sensors As ByteDim buttons As ByteDim i As Long'NASTAVENI IOlata=0xFF023E 6889 SETF gbl_latalatb=00240 6A8A CLRF gbl_latblatc=0xFF0242 688B SETF gbl_latctrisa=0xF00244 0EF0 MOVLW 0xF00246 6E92 MOVWF gbl_trisatrisb=0x3F0248 0E3F MOVLW 0x3F024A 6E93 MOVWF gbl_trisbtrisc=0x9F024C 0E9F MOVLW 0x9F024E 6E94 MOVWF gbl_trisc'VYPNOUT ADCadcon1=0xC60250 0EC6 MOVLW 0xC60252 6EC1 MOVWF gbl_adcon1adcon0=0xC00254 0EC0 MOVLW 0xC00256 6EC2 MOVWF gbl_adcon0'UART 9600bpsspbrg=640258 0E40 MOVLW 0x40025A 6EAF MOVWF gbl_spbrgtxsta = txsta & ~(1 << BRGH)025C 0EFB MOVLW 0xFB025E 14AC ANDWF gbl_txsta, W0260 6EAC MOVWF gbl_txstatxsta = txsta | (1 << TXEN)0262 0E20 MOVLW 0x200264 10AC IORWF gbl_txsta, W0266 6EAC MOVWF gbl_txstarcsta = rcsta | (1 << CREN)0268 0E10 MOVLW 0x10026A 10AB IORWF gbl_rcsta, W026C 6EAB MOVWF gbl_rcstarcsta = rcsta | (1 << SPEN)026E 0E80 MOVLW 0x800270 10AB IORWF gbl_rcsta, W0272 6EAB MOVWF gbl_rcstamotors = 0x000274 6A01 CLRF main_1_motorslata = 0x0E0276 0E0E MOVLW 0x0E0278 6E89 MOVWF gbl_lataCall delay(200)027A 0EC8 MOVLW 0xC8027C 6E04 MOVWF delay_00000_arg_cas027E EC10F001 CALL delay_00000lata = 0x0D0282 0E0D MOVLW 0x0D0284 6E89 MOVWF gbl_lataCall delay(200)0286 0EC8 MOVLW 0xC80288 6E04 MOVWF delay_00000_arg_cas028A EC10F001 CALL delay_00000lata = 0x0B028E 0E0B MOVLW 0x0B0290 6E89 MOVWF gbl_lataCall delay(200)0292 0EC8 MOVLW 0xC80294 6E04 MOVWF delay_00000_arg_cas0296 EC10F001 CALL delay_00000lata = 0x07029A 0E07 MOVLW 0x07029C 6E89 MOVWF gbl_lataCall delay(200)029E 0EC8 MOVLW 0xC802A0 6E04 MOVWF delay_00000_arg_cas02A2 EC10F001 CALL delay_00000motors = 0x7702A6 0E77 MOVLW 0x7702A8 6E01 MOVWF main_1_motorsCall delay(100)02AA 0E64 MOVLW 0x6402AC 6E04 MOVWF delay_00000_arg_cas02AE EC10F001 CALL delay_00000Do while 102B2 label268438640sensors =0xFF02B2 6802 SETF main_1_sensorssensors = Call receive() 'prijmi stav cidel senzoru02B4 EC02F001 CALL receive_0000002B8 5007 MOVF CompTempVarRet489, W02BA 6E02 MOVWF main_1_sensorsIf (!((sensors.0) and (sensors.1))) Then02BC 6A03 CLRF CompTempVar49102BE A202 BTFSS main_1_sensors,102C0 D003 BRA label26843864502C2 A002 BTFSS main_1_sensors,002C4 D001 BRA label26843864502C6 2A03 INCF CompTempVar491, F02C8 label26843864502C8 5203 MOVF CompTempVar491, F02CA E102 BNZ label26843864602D0 label268438646motors = 0x7702CC 0E77 MOVLW 0x7702CE 6E01 MOVWF main_1_motorsEnd IfIf (!(sensors.2)) Then02D0 B402 BTFSC main_1_sensors,202D2 D002 BRA label26843864902D8 label268438649motors = 0xF702D4 0EF7 MOVLW 0xF702D6 6E01 MOVWF main_1_motorsEnd IfIf (!(sensors.3)) Then02D8 B602 BTFSC main_1_sensors,302DA D002 BRA label26843865202E0 label268438652motors = 0x7F02DC 0E7F MOVLW 0x7F02DE 6E01 MOVWF main_1_motorsEnd Iflata = sensors02E0 5002 MOVF main_1_sensors, W02E2 6E89 MOVWF gbl_latacall send(motors)02E4 5001 MOVF main_1_motors, W02E6 6E04 MOVWF send_00000_arg_c02E8 EC0BF001 CALL send_00000Loop02EC D7E2 BRA label268438640End Sub////////////////////////////////////////// Code with no source :-)////////////////////////////////////////0200 EF77F001 GOTO _startup02EE _startup02EE EF1FF001 GOTO main300000 FEFF DW 0xFEFF300002 FEF6 DW 0xFEF6300004 FEFF DW 0xFEFF300006 FFFB DW 0xFFFB300008 3FF0 DW 0x3FF030000A 9FFF DW 0x9FFF30000C BFFF DW 0xBFFF