Subversion Repositories svnkaklik

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

        include "P18F252.inc"
__HEAPSTART                      EQU    0x00000007 ; Start address of heap 
__HEAPEND                        EQU    0x000005FF ; End address of heap 
gbl_status                       EQU    0x00000FD8 ; bytes:1
gbl_prodl                        EQU    0x00000FF3 ; bytes:1
gbl_prodh                        EQU    0x00000FF4 ; bytes:1
gbl_porta                        EQU    0x00000F80 ; bytes:1
gbl_portb                        EQU    0x00000F81 ; bytes:1
gbl_portc                        EQU    0x00000F82 ; bytes:1
gbl_lata                         EQU    0x00000F89 ; bytes:1
gbl_latb                         EQU    0x00000F8A ; bytes:1
gbl_latc                         EQU    0x00000F8B ; bytes:1
gbl_trisa                        EQU    0x00000F92 ; bytes:1
gbl_trisb                        EQU    0x00000F93 ; bytes:1
gbl_trisc                        EQU    0x00000F94 ; bytes:1
gbl_pie1                         EQU    0x00000F9D ; bytes:1
gbl_pir1                         EQU    0x00000F9E ; bytes:1
gbl_ipr1                         EQU    0x00000F9F ; bytes:1
gbl_pie2                         EQU    0x00000FA0 ; bytes:1
gbl_pir2                         EQU    0x00000FA1 ; bytes:1
gbl_ipr2                         EQU    0x00000FA2 ; bytes:1
gbl_eecon1                       EQU    0x00000FA6 ; bytes:1
gbl_eecon2                       EQU    0x00000FA7 ; bytes:1
gbl_eedata                       EQU    0x00000FA8 ; bytes:1
gbl_eeadr                        EQU    0x00000FA9 ; bytes:1
gbl_rcsta                        EQU    0x00000FAB ; bytes:1
gbl_txsta                        EQU    0x00000FAC ; bytes:1
gbl_txreg                        EQU    0x00000FAD ; bytes:1
gbl_rcreg                        EQU    0x00000FAE ; bytes:1
gbl_spbrg                        EQU    0x00000FAF ; bytes:1
gbl_t3con                        EQU    0x00000FB1 ; bytes:1
gbl_tmr3l                        EQU    0x00000FB2 ; bytes:1
gbl_tmr3h                        EQU    0x00000FB3 ; bytes:1
gbl_ccp2con                      EQU    0x00000FBA ; bytes:1
gbl_ccpr2l                       EQU    0x00000FBB ; bytes:1
gbl_ccpr2h                       EQU    0x00000FBC ; bytes:1
gbl_ccp1con                      EQU    0x00000FBD ; bytes:1
gbl_ccpr1l                       EQU    0x00000FBE ; bytes:1
gbl_ccpr1h                       EQU    0x00000FBF ; bytes:1
gbl_adcon1                       EQU    0x00000FC1 ; bytes:1
gbl_adcon0                       EQU    0x00000FC2 ; bytes:1
gbl_adresl                       EQU    0x00000FC3 ; bytes:1
gbl_adresh                       EQU    0x00000FC4 ; bytes:1
gbl_sspcon2                      EQU    0x00000FC5 ; bytes:1
gbl_sspcon1                      EQU    0x00000FC6 ; bytes:1
gbl_sspstat                      EQU    0x00000FC7 ; bytes:1
gbl_sspadd                       EQU    0x00000FC8 ; bytes:1
gbl_sspbuf                       EQU    0x00000FC9 ; bytes:1
gbl_t2con                        EQU    0x00000FCA ; bytes:1
gbl_pr2                          EQU    0x00000FCB ; bytes:1
gbl_tmr2                         EQU    0x00000FCC ; bytes:1
gbl_t1con                        EQU    0x00000FCD ; bytes:1
gbl_tmr1l                        EQU    0x00000FCE ; bytes:1
gbl_tmr1h                        EQU    0x00000FCF ; bytes:1
gbl_rcon                         EQU    0x00000FD0 ; bytes:1
gbl_wdtcon                       EQU    0x00000FD1 ; bytes:1
gbl_lvdcon                       EQU    0x00000FD2 ; bytes:1
gbl_osccon                       EQU    0x00000FD3 ; bytes:1
gbl_t0con                        EQU    0x00000FD5 ; bytes:1
gbl_tmr0l                        EQU    0x00000FD6 ; bytes:1
gbl_tmr0h                        EQU    0x00000FD7 ; bytes:1
gbl_fsr2l                        EQU    0x00000FD9 ; bytes:1
gbl_fsr2h                        EQU    0x00000FDA ; bytes:1
gbl_plusw2                       EQU    0x00000FDB ; bytes:1
gbl_preinc2                      EQU    0x00000FDC ; bytes:1
gbl_postdec2                     EQU    0x00000FDD ; bytes:1
gbl_postinc2                     EQU    0x00000FDE ; bytes:1
gbl_indf2                        EQU    0x00000FDF ; bytes:1
gbl_bsr                          EQU    0x00000FE0 ; bytes:1
gbl_fsr1l                        EQU    0x00000FE1 ; bytes:1
gbl_fsr1h                        EQU    0x00000FE2 ; bytes:1
gbl_plusw1                       EQU    0x00000FE3 ; bytes:1
gbl_preinc1                      EQU    0x00000FE4 ; bytes:1
gbl_postdec1                     EQU    0x00000FE5 ; bytes:1
gbl_postinc1                     EQU    0x00000FE6 ; bytes:1
gbl_indf1                        EQU    0x00000FE7 ; bytes:1
gbl_wreg                         EQU    0x00000FE8 ; bytes:1
gbl_fsr0l                        EQU    0x00000FE9 ; bytes:1
gbl_fsr0h                        EQU    0x00000FEA ; bytes:1
gbl_plusw0                       EQU    0x00000FEB ; bytes:1
gbl_preinc0                      EQU    0x00000FEC ; bytes:1
gbl_postdec0                     EQU    0x00000FED ; bytes:1
gbl_postinc0                     EQU    0x00000FEE ; bytes:1
gbl_indf0                        EQU    0x00000FEF ; bytes:1
gbl_intcon3                      EQU    0x00000FF0 ; bytes:1
gbl_intcon2                      EQU    0x00000FF1 ; bytes:1
gbl_intcon                       EQU    0x00000FF2 ; bytes:1
gbl_tablat                       EQU    0x00000FF5 ; bytes:1
gbl_tblptrl                      EQU    0x00000FF6 ; bytes:1
gbl_tblptrh                      EQU    0x00000FF7 ; bytes:1
gbl_tblptru                      EQU    0x00000FF8 ; bytes:1
gbl_pcl                          EQU    0x00000FF9 ; bytes:1
gbl_pclath                       EQU    0x00000FFA ; bytes:1
gbl_pclatu                       EQU    0x00000FFB ; bytes:1
gbl_stkptr                       EQU    0x00000FFC ; bytes:1
gbl_tosl                         EQU    0x00000FFD ; bytes:1
gbl_tosh                         EQU    0x00000FFE ; bytes:1
gbl_tosu                         EQU    0x00000FFF ; bytes:1
CompTempVarRet489                EQU    0x00000006 ; bytes:1
send_00000_arg_c                 EQU    0x00000006 ; bytes:1
main_1_motors                    EQU    0x00000001 ; bytes:1
main_1_sensors                   EQU    0x00000002 ; bytes:1
main_1_leds                      EQU    0x00000003 ; bytes:1
main_1_count                     EQU    0x00000004 ; bytes:1
CompTempVar491                   EQU    0x00000005 ; bytes:1
        ORG 0x00000200
        GOTO    _startup
        ORG 0x00000204
send_00000
; { send ; function begin
label268438562
        BTFSS gbl_pir1,4
        BRA     label268438562
        MOVF send_00000_arg_c, W
        MOVWF gbl_txreg
        RETURN
; } send function end

        ORG 0x0000020E
receive_00000
; { receive ; function begin
        BTFSS gbl_rcsta,1
        BRA     label268438551
        BCF gbl_rcsta,4
        BSF gbl_rcsta,4
label268438551
        BTFSS gbl_pir1,5
        BRA     label268438551
        MOVF gbl_rcreg, W
        MOVWF CompTempVarRet489
        RETURN
; } receive function end

        ORG 0x00000220
main
; { main ; function begin
        SETF gbl_lata
        CLRF gbl_latb
        SETF gbl_latc
        MOVLW 0xF0
        MOVWF gbl_trisa
        MOVLW 0x3F
        MOVWF gbl_trisb
        MOVLW 0x9F
        MOVWF gbl_trisc
        MOVLW 0xC6
        MOVWF gbl_adcon1
        MOVLW 0xC0
        MOVWF gbl_adcon0
        MOVLW 0x40
        MOVWF gbl_spbrg
        MOVLW 0xFB
        ANDWF gbl_txsta, W
        MOVWF gbl_txsta
        MOVLW 0x20
        IORWF gbl_txsta, W
        MOVWF gbl_txsta
        MOVLW 0x10
        IORWF gbl_rcsta, W
        MOVWF gbl_rcsta
        MOVLW 0x80
        IORWF gbl_rcsta, W
        MOVWF gbl_rcsta
        CLRF main_1_motors
label268438598
        BTFSC gbl_portb,0
        BRA     label268438598
        MOVLW 0xF0
        MOVWF main_1_leds
        MOVLW 0x80
        MOVWF main_1_count
label268438603
        MOVF main_1_count, W
        SUBLW 0x00
        BC      label268438604
        DECF main_1_count, W
        MOVWF main_1_count
        MOVLW 0x01
        IORWF main_1_leds, W
        MOVWF main_1_leds
        MOVLW 0x02
        IORWF main_1_leds, W
        MOVWF main_1_leds
        MOVLW 0x04
        IORWF main_1_leds, W
        MOVWF main_1_leds
        MOVF main_1_leds, W
        MOVWF gbl_lata
        BRA     label268438603
label268438604
        SETF main_1_leds
        SETF gbl_lata
label268438619
        SETF main_1_sensors
        CALL receive_00000
        MOVF CompTempVarRet489, W
        MOVWF main_1_sensors
        CLRF CompTempVar491
        BTFSS main_1_sensors,1
        BRA     label268438624
        BTFSS main_1_sensors,0
        BRA     label268438624
        INCF CompTempVar491, F
label268438624
        MOVF CompTempVar491, F
        BNZ     label268438625
        MOVLW 0x77
        MOVWF main_1_motors
label268438625
        BTFSC main_1_sensors,2
        BRA     label268438628
        MOVLW 0xF7
        MOVWF main_1_motors
label268438628
        BTFSC main_1_sensors,3
        BRA     label268438631
        MOVLW 0x7F
        MOVWF main_1_motors
label268438631
        MOVF main_1_sensors, W
        MOVWF gbl_lata
        MOVF main_1_motors, W
        MOVWF send_00000_arg_c
        CALL send_00000
        BRA     label268438619
; } main function end

        ORG 0x000002C6
_startup
        GOTO    main
        ORG 0x00300000
        DW 0xFEFF
        DW 0xFEF6
        ORG 0x00300004
        DW 0xFEFF
        DW 0xFFFB
        ORG 0x00300008
        DW 0x3FF0
        DW 0x9FFF
        DW 0xBFFF
        END