;///////////////////////////////////////////////////////////////////////////////// ;// Code Generator: BoostC Compiler - http://www.sourceboost.com ;// Version : 7.03 ;// License Type : Pro License ;// Limitations : PIC12,PIC16 max code size:Unlimited, max RAM banks:Unlimited ;///////////////////////////////////////////////////////////////////////////////// include "P16F690.inc" ; Heap block 0, size:95 (0x000000A0 - 0x000000FE) __HEAP_BLOCK0_BANK EQU 0x00000001 __HEAP_BLOCK0_START_OFFSET EQU 0x00000020 __HEAP_BLOCK0_END_OFFSET EQU 0x0000007E ; Heap block 1, size:80 (0x00000120 - 0x0000016F) __HEAP_BLOCK1_BANK EQU 0x00000002 __HEAP_BLOCK1_START_OFFSET EQU 0x00000020 __HEAP_BLOCK1_END_OFFSET EQU 0x0000006F ; Heap block 2, size:39 (0x00000049 - 0x0000006F) __HEAP_BLOCK2_BANK EQU 0x00000000 __HEAP_BLOCK2_START_OFFSET EQU 0x00000049 __HEAP_BLOCK2_END_OFFSET EQU 0x0000006F ; Heap block 3, size:0 (0x00000000 - 0x00000000) __HEAP_BLOCK3_BANK EQU 0x00000000 __HEAP_BLOCK3_START_OFFSET EQU 0x00000000 __HEAP_BLOCK3_END_OFFSET EQU 0x00000000 gbl_status EQU 0x00000003 ; bytes:1 gbl_14_LSR EQU 0x00000020 ; bytes:4 gbl_float_detect_tininess EQU 0x00000039 ; bytes:1 gbl_float_rounding_mode EQU 0x0000003A ; bytes:1 gbl_float_exception_flags EQU 0x0000003B ; bytes:1 gbl_15_gbl_aSig EQU 0x00000024 ; bytes:4 gbl_15_gbl_bSig EQU 0x00000028 ; bytes:4 gbl_15_gbl_zSig EQU 0x0000002C ; bytes:4 gbl_15_gbl_aExp EQU 0x0000003C ; bytes:1 gbl_15_gbl_bExp EQU 0x0000003D ; bytes:1 gbl_15_gbl_zExp EQU 0x00000037 ; bytes:2 gbl_15_gbl_aSign EQU 0x0000003E ; bytes:1 gbl_15_gbl_bSign EQU 0x0000003F ; bytes:1 gbl_15_gbl_zSign EQU 0x00000040 ; bytes:1 gbl_15_gbl_zSigZero EQU 0x00000041 ; bytes:1 gbl_15_gbl_ret EQU 0x00000030 ; bytes:4 gbl_indf EQU 0x00000000 ; bytes:1 gbl_tmr0 EQU 0x00000001 ; bytes:1 gbl_pcl EQU 0x00000002 ; bytes:1 gbl_fsr EQU 0x00000004 ; bytes:1 gbl_porta EQU 0x00000005 ; bytes:1 gbl_portb EQU 0x00000006 ; bytes:1 gbl_portc EQU 0x00000007 ; bytes:1 gbl_pclath EQU 0x0000000A ; bytes:1 gbl_intcon EQU 0x0000000B ; bytes:1 gbl_pir1 EQU 0x0000000C ; bytes:1 gbl_pir2 EQU 0x0000000D ; bytes:1 gbl_tmr1l EQU 0x0000000E ; bytes:1 gbl_tmr1h EQU 0x0000000F ; bytes:1 gbl_t1con EQU 0x00000010 ; bytes:1 gbl_tmr2 EQU 0x00000011 ; bytes:1 gbl_t2con EQU 0x00000012 ; bytes:1 gbl_sspbuf EQU 0x00000013 ; bytes:1 gbl_sspcon EQU 0x00000014 ; bytes:1 gbl_ccpr1l EQU 0x00000015 ; bytes:1 gbl_ccpr1h EQU 0x00000016 ; bytes:1 gbl_ccp1con EQU 0x00000017 ; bytes:1 gbl_rcsta EQU 0x00000018 ; bytes:1 gbl_txreg EQU 0x00000019 ; bytes:1 gbl_rcreg EQU 0x0000001A ; bytes:1 gbl_pwm1con EQU 0x0000001C ; bytes:1 gbl_eccpas EQU 0x0000001D ; bytes:1 gbl_adresh EQU 0x0000001E ; bytes:1 gbl_adcon0 EQU 0x0000001F ; bytes:1 gbl_option_reg EQU 0x00000081 ; bytes:1 gbl_trisa EQU 0x00000085 ; bytes:1 gbl_trisb EQU 0x00000086 ; bytes:1 gbl_trisc EQU 0x00000087 ; bytes:1 gbl_pie1 EQU 0x0000008C ; bytes:1 gbl_pie2 EQU 0x0000008D ; bytes:1 gbl_pcon EQU 0x0000008E ; bytes:1 gbl_osccon EQU 0x0000008F ; bytes:1 gbl_osctune EQU 0x00000090 ; bytes:1 gbl_pr2 EQU 0x00000092 ; bytes:1 gbl_sspadd EQU 0x00000093 ; bytes:1 gbl_msk EQU 0x00000093 ; bytes:1 gbl_sspmsk EQU 0x00000093 ; bytes:1 gbl_sspstat EQU 0x00000094 ; bytes:1 gbl_wpu EQU 0x00000095 ; bytes:1 gbl_wpua EQU 0x00000095 ; bytes:1 gbl_ioc EQU 0x00000096 ; bytes:1 gbl_ioca EQU 0x00000096 ; bytes:1 gbl_wdtcon EQU 0x00000097 ; bytes:1 gbl_txsta EQU 0x00000098 ; bytes:1 gbl_spbrg EQU 0x00000099 ; bytes:1 gbl_spbrgh EQU 0x0000009A ; bytes:1 gbl_baudctl EQU 0x0000009B ; bytes:1 gbl_adresl EQU 0x0000009E ; bytes:1 gbl_adcon1 EQU 0x0000009F ; bytes:1 gbl_eedata EQU 0x0000010C ; bytes:1 gbl_eeadr EQU 0x0000010D ; bytes:1 gbl_eedath EQU 0x0000010E ; bytes:1 gbl_eeadrh EQU 0x0000010F ; bytes:1 gbl_wpub EQU 0x00000115 ; bytes:1 gbl_iocb EQU 0x00000116 ; bytes:1 gbl_vrcon EQU 0x00000118 ; bytes:1 gbl_cm1con0 EQU 0x00000119 ; bytes:1 gbl_cm2con0 EQU 0x0000011A ; bytes:1 gbl_cm2con1 EQU 0x0000011B ; bytes:1 gbl_ansel EQU 0x0000011E ; bytes:1 gbl_anselh EQU 0x0000011F ; bytes:1 gbl_eecon1 EQU 0x0000018C ; bytes:1 gbl_eecon2 EQU 0x0000018D ; bytes:1 gbl_pstrcon EQU 0x0000019D ; bytes:1 gbl_srcon EQU 0x0000019E ; bytes:1 gbl_FCV_SWITCH EQU 0x00000042 ; bytes:1 gbl_FCLV_LOOP1 EQU 0x00000043 ; bytes:1 CompTempVarRet2186 EQU 0x00000048 ; bytes:1 FCD_SWITCH_00055_1_switchval EQU 0x00000044 ; bytes:1 FCD_SWITCH_00055_1_old_switchval EQU 0x00000045 ; bytes:1 FCD_SWITCH_00055_1_del_count EQU 0x00000046 ; bytes:2 delay_us_00000_arg_del EQU 0x00000048 ; bytes:1 delay_ms_00000_arg_del EQU 0x00000045 ; bytes:1 delay_s_00000_arg_del EQU 0x00000044 ; bytes:1 Int1Context EQU 0x0000007F ; bytes:1 Int1BContext EQU 0x00000034 ; bytes:3 ORG 0x00000000 GOTO _startup ORG 0x00000004 MOVWF Int1Context SWAPF STATUS, W BCF STATUS, RP0 BCF STATUS, RP1 MOVWF Int1BContext SWAPF PCLATH, W MOVWF Int1BContext+D'1' SWAPF FSR, W MOVWF Int1BContext+D'2' BCF PCLATH,3 BCF PCLATH,4 GOTO interrupt ORG 0x00000010 delay_us_00000 ; { delay_us ; function begin MOVLW 0x03 ADDWF delay_us_00000_arg_del, F RRF delay_us_00000_arg_del, F RRF delay_us_00000_arg_del, F MOVLW 0x7F ANDWF delay_us_00000_arg_del, F label1 NOP DECFSZ delay_us_00000_arg_del, F GOTO label1 RETURN ; } delay_us function end ORG 0x0000001A delay_ms_00000 ; { delay_ms ; function begin MOVF delay_ms_00000_arg_del, F BTFSS STATUS,Z GOTO label2 RETURN label2 MOVLW 0xF9 label3 ADDLW 0xFF BTFSS STATUS,Z GOTO label3 NOP DECFSZ delay_ms_00000_arg_del, F GOTO label2 RETURN ; } delay_ms function end ORG 0x00000026 delay_s_00000 ; { delay_s ; function begin label4 MOVLW 0xFA MOVWF delay_ms_00000_arg_del CALL delay_ms_00000 MOVLW 0xFA MOVWF delay_ms_00000_arg_del CALL delay_ms_00000 MOVLW 0xFA MOVWF delay_ms_00000_arg_del CALL delay_ms_00000 MOVLW 0xFA MOVWF delay_ms_00000_arg_del CALL delay_ms_00000 DECFSZ delay_s_00000_arg_del, F GOTO label4 RETURN ; } delay_s function end ORG 0x00000035 FCD_SWITCH_00055 ; { FCD_SWITCH0_ReadState ; function begin BCF STATUS, RP0 BCF STATUS, RP1 CLRF FCD_SWITCH_00055_1_del_count CLRF FCD_SWITCH_00055_1_del_count+D'1' BSF STATUS, RP0 BSF gbl_trisa,3 MOVLW 0x08 BCF STATUS, RP0 ANDWF gbl_porta, W MOVWF FCD_SWITCH_00055_1_switchval MOVF FCD_SWITCH_00055_1_switchval, W MOVWF FCD_SWITCH_00055_1_old_switchval label5 MOVLW 0x03 SUBWF FCD_SWITCH_00055_1_del_count+D'1', W BTFSS STATUS,Z GOTO label6 MOVLW 0xE8 SUBWF FCD_SWITCH_00055_1_del_count, W label6 BTFSC STATUS,C GOTO label9 MOVLW 0x01 MOVWF delay_us_00000_arg_del CALL delay_us_00000 BSF STATUS, RP0 BSF gbl_trisa,3 MOVLW 0x08 BCF STATUS, RP0 ANDWF gbl_porta, W MOVWF FCD_SWITCH_00055_1_switchval MOVF FCD_SWITCH_00055_1_old_switchval, W XORWF FCD_SWITCH_00055_1_switchval, W BTFSS STATUS,Z GOTO label7 MOVF FCD_SWITCH_00055_1_del_count, F MOVF FCD_SWITCH_00055_1_del_count+D'1', F INCF FCD_SWITCH_00055_1_del_count, F BTFSC STATUS,Z INCF FCD_SWITCH_00055_1_del_count+D'1', F GOTO label8 label7 CLRF FCD_SWITCH_00055_1_del_count CLRF FCD_SWITCH_00055_1_del_count+D'1' label8 MOVF FCD_SWITCH_00055_1_switchval, W MOVWF FCD_SWITCH_00055_1_old_switchval GOTO label5 label9 MOVF FCD_SWITCH_00055_1_switchval, F BTFSC STATUS,Z GOTO label10 CLRF FCD_SWITCH_00055_1_switchval GOTO label11 label10 MOVLW 0x01 MOVWF FCD_SWITCH_00055_1_switchval label11 MOVF FCD_SWITCH_00055_1_switchval, W MOVWF CompTempVarRet2186 RETURN ; } FCD_SWITCH0_ReadState function end ORG 0x0000006B FCD_LED3_L_0005B ; { FCD_LED3_LEDOff ; function begin BSF STATUS, RP0 BCF STATUS, RP1 BCF gbl_trisc,3 BCF STATUS, RP0 BCF gbl_portc,3 RETURN ; } FCD_LED3_LEDOff function end ORG 0x00000071 FCD_LED3_L_0005A ; { FCD_LED3_LEDOn ; function begin BSF STATUS, RP0 BCF STATUS, RP1 BCF gbl_trisc,3 BCF STATUS, RP0 BSF gbl_portc,3 RETURN ; } FCD_LED3_LEDOn function end ORG 0x00000077 FCD_LED2_L_00059 ; { FCD_LED2_LEDOff ; function begin BSF STATUS, RP0 BCF STATUS, RP1 BCF gbl_trisc,2 BCF STATUS, RP0 BCF gbl_portc,2 RETURN ; } FCD_LED2_LEDOff function end ORG 0x0000007D FCD_LED2_L_00058 ; { FCD_LED2_LEDOn ; function begin BSF STATUS, RP0 BCF STATUS, RP1 BCF gbl_trisc,2 BCF STATUS, RP0 BSF gbl_portc,2 RETURN ; } FCD_LED2_LEDOn function end ORG 0x00000083 FCD_LED1_L_00054 ; { FCD_LED1_LEDOff ; function begin BSF STATUS, RP0 BCF STATUS, RP1 BCF gbl_trisc,1 BCF STATUS, RP0 BCF gbl_portc,1 RETURN ; } FCD_LED1_LEDOff function end ORG 0x00000089 FCD_LED1_L_00053 ; { FCD_LED1_LEDOn ; function begin BSF STATUS, RP0 BCF STATUS, RP1 BCF gbl_trisc,1 BCF STATUS, RP0 BSF gbl_portc,1 RETURN ; } FCD_LED1_LEDOn function end ORG 0x0000008F FCD_LED0_L_00052 ; { FCD_LED0_LEDOff ; function begin BSF STATUS, RP0 BCF STATUS, RP1 BCF gbl_trisc,0 BCF STATUS, RP0 BCF gbl_portc,0 RETURN ; } FCD_LED0_LEDOff function end ORG 0x00000095 FCD_LED0_L_00051 ; { FCD_LED0_LEDOn ; function begin BSF STATUS, RP0 BCF STATUS, RP1 BCF gbl_trisc,0 BCF STATUS, RP0 BSF gbl_portc,0 RETURN ; } FCD_LED0_LEDOn function end ORG 0x0000009B main ; { main ; function begin BCF STATUS, RP0 BSF STATUS, RP1 CLRF gbl_ansel CLRF gbl_anselh MOVLW 0xC0 BSF STATUS, RP0 BCF STATUS, RP1 MOVWF gbl_option_reg label12 CALL FCD_SWITCH_00055 MOVF CompTempVarRet2186, W MOVWF gbl_FCV_SWITCH MOVF gbl_FCV_SWITCH, W SUBLW 0x00 BTFSC STATUS,C GOTO label14 CLRF gbl_FCLV_LOOP1 label13 MOVLW 0x0A SUBWF gbl_FCLV_LOOP1, W BTFSC STATUS,C GOTO label12 CALL FCD_LED0_L_00051 CALL FCD_LED1_L_00053 MOVLW 0xFF MOVWF delay_ms_00000_arg_del CALL delay_ms_00000 MOVLW 0xF5 MOVWF delay_ms_00000_arg_del CALL delay_ms_00000 CALL FCD_LED0_L_00052 CALL FCD_LED1_L_00054 MOVLW 0x01 MOVWF delay_s_00000_arg_del CALL delay_s_00000 INCF gbl_FCLV_LOOP1, F GOTO label13 label14 CALL FCD_LED2_L_00058 CALL FCD_LED3_L_0005A MOVLW 0xFF MOVWF delay_ms_00000_arg_del CALL delay_ms_00000 MOVLW 0xF5 MOVWF delay_ms_00000_arg_del CALL delay_ms_00000 CALL FCD_LED2_L_00059 CALL FCD_LED3_L_0005B MOVLW 0x01 MOVWF delay_s_00000_arg_del CALL delay_s_00000 GOTO label12 ; } main function end ORG 0x000000CC _startup MOVLW 0xD5 BCF STATUS, RP0 BCF STATUS, RP1 MOVWF gbl_14_LSR MOVLW 0xC4 MOVWF gbl_14_LSR+D'1' MOVLW 0xBB MOVWF gbl_14_LSR+D'2' MOVLW 0xDC MOVWF gbl_14_LSR+D'3' CLRF gbl_15_gbl_aSig CLRF gbl_15_gbl_aSig+D'1' CLRF gbl_15_gbl_aSig+D'2' CLRF gbl_15_gbl_aSig+D'3' CLRF gbl_15_gbl_bSig CLRF gbl_15_gbl_bSig+D'1' CLRF gbl_15_gbl_bSig+D'2' CLRF gbl_15_gbl_bSig+D'3' CLRF gbl_15_gbl_zSig CLRF gbl_15_gbl_zSig+D'1' CLRF gbl_15_gbl_zSig+D'2' CLRF gbl_15_gbl_zSig+D'3' CLRF gbl_15_gbl_aExp CLRF gbl_15_gbl_bExp CLRF gbl_15_gbl_zExp CLRF gbl_15_gbl_zExp+D'1' CLRF gbl_15_gbl_aSign CLRF gbl_15_gbl_bSign CLRF gbl_15_gbl_zSign CLRF gbl_15_gbl_zSigZero CLRF gbl_15_gbl_ret CLRF gbl_15_gbl_ret+D'1' CLRF gbl_15_gbl_ret+D'2' CLRF gbl_15_gbl_ret+D'3' CLRF gbl_float_rounding_mode CLRF gbl_float_exception_flags CLRF gbl_float_detect_tininess CLRF gbl_FCV_SWITCH BCF PCLATH,3 BCF PCLATH,4 GOTO main ORG 0x000000F5 interrupt ; { interrupt ; function begin BCF STATUS, RP0 BCF STATUS, RP1 SWAPF Int1BContext+D'2', W MOVWF FSR SWAPF Int1BContext+D'1', W MOVWF PCLATH SWAPF Int1BContext, W MOVWF STATUS SWAPF Int1Context, F SWAPF Int1Context, W RETFIE ; } interrupt function end ORG 0x00002007 DW 0x3FF5 END