;//frecventmetru PC. ;//Serban Ioan, 2005. serbanioan@yahoo.com include "P16F628.inc" ; Heap block 0, size:80 __HEAP_BLOCK0_BANK EQU 0x00000001 __HEAP_BLOCK0_START_OFFSET EQU 0x00000020 __HEAP_BLOCK0_END_OFFSET EQU 0x0000006F ; Heap block 1, size:30 __HEAP_BLOCK1_BANK EQU 0x00000000 __HEAP_BLOCK1_START_OFFSET EQU 0x00000052 __HEAP_BLOCK1_END_OFFSET EQU 0x0000006F ; Heap block 2, size:15 __HEAP_BLOCK2_BANK EQU 0x00000000 __HEAP_BLOCK2_START_OFFSET EQU 0x00000071 __HEAP_BLOCK2_END_OFFSET EQU 0x0000007F ; Heap block 3, size:0 __HEAP_BLOCK3_BANK EQU 0x00000000 __HEAP_BLOCK3_START_OFFSET EQU 0x00000000 __HEAP_BLOCK3_END_OFFSET EQU 0x00000000 gbl_status EQU 0x00000003 ; bytes:1 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_pclath EQU 0x0000000A ; bytes:1 gbl_intcon EQU 0x0000000B ; bytes:1 gbl_pir1 EQU 0x0000000C ; 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_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_cmcon EQU 0x0000001F ; bytes:1 gbl_option_reg EQU 0x00000081 ; bytes:1 gbl_trisa EQU 0x00000085 ; bytes:1 gbl_trisb EQU 0x00000086 ; bytes:1 gbl_pie1 EQU 0x0000008C ; bytes:1 gbl_pcon EQU 0x0000008E ; bytes:1 gbl_pr2 EQU 0x00000092 ; bytes:1 gbl_txsta EQU 0x00000098 ; bytes:1 gbl_spbrg EQU 0x00000099 ; bytes:1 gbl_eedata EQU 0x0000009A ; bytes:1 gbl_eeadr EQU 0x0000009B ; bytes:1 gbl_eecon1 EQU 0x0000009C ; bytes:1 gbl_eecon2 EQU 0x0000009D ; bytes:1 gbl_vrcon EQU 0x0000009F ; bytes:1 gbl_eroareReceptie EQU 0x00000020 ; bytes:1 gbl_ctrlReceptie EQU 0x00000021 ; bytes:1 gbl_ctrlTransmisie EQU 0x00000022 ; bytes:1 gbl_startStopFrecv EQU 0x00000023 ; bytes:1 gbl_transmisieQueue EQU 0x00000024 ; bytes:1 gbl_startStopGenSemnal EQU 0x00000025 ; bytes:1 gbl_contorCerereID EQU 0x00000026 ; bytes:1 gbl_receptie EQU 0x00000027 ; bytes:5 gbl_receptieTemp EQU 0x0000002C ; bytes:5 gbl_transmisie EQU 0x00000031 ; bytes:8 gbl_pointerReceptie EQU 0x00000039 ; bytes:1 gbl_pointerTransmisie EQU 0x0000003A ; bytes:1 gbl_vartemp1 EQU 0x0000003B ; bytes:1 gbl_timeBaseL EQU 0x0000003C ; bytes:1 gbl_timeBaseH EQU 0x0000003D ; bytes:1 gbl_adresaTransmisie EQU 0x0000003E ; bytes:1 gbl_dataTransmisie EQU 0x0000003F ; bytes:1 gbl_genPWMPr2 EQU 0x00000040 ; bytes:1 gbl_genPWMPresc EQU 0x00000041 ; bytes:1 gbl_genPWMLsb EQU 0x00000042 ; bytes:1 gbl_genPWMdutyCycle EQU 0x00000043 ; bytes:1 gbl_tmr1a EQU 0x00000044 ; bytes:2 gbl_tmr1b EQU 0x00000046 ; bytes:2 gbl_tmr1c EQU 0x00000048 ; bytes:2 gbl_timeBase EQU 0x0000004A ; bytes:2 gbl_tmr2b EQU 0x0000004C ; bytes:2 receptieSe_00013_1_recTemp EQU 0x00000051 ; bytes:1 Int1Context EQU 0x00000070 ; bytes:1 Int1BContext EQU 0x0000004E ; 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 timeBaseTm_00015 ; { timeBaseTmr2 ; function begin BCF STATUS, RP0 BCF STATUS, RP1 MOVF gbl_startStopFrecv, F BTFSC STATUS,Z GOTO label268436601 MOVF gbl_timeBase, F BTFSS STATUS,Z GOTO label268436639 MOVF gbl_timeBase+D'1', F BTFSS STATUS,Z GOTO label268436639 BCF gbl_t1con,0 BCF gbl_t2con,2 MOVF gbl_tmr1a, W MOVWF gbl_tmr1b MOVF gbl_tmr1a+D'1', W MOVWF gbl_tmr1b+D'1' MOVF gbl_tmr1l, W MOVWF gbl_tmr1c MOVF gbl_tmr1h, W MOVWF gbl_tmr1c+D'1' CLRF gbl_tmr1a CLRF gbl_tmr1a+D'1' CLRF gbl_tmr1l CLRF gbl_tmr1h MOVF gbl_tmr2, W MOVWF gbl_tmr2b CLRF gbl_tmr2b+D'1' CLRF gbl_tmr2 MOVF gbl_timeBaseL, W MOVWF gbl_timeBase MOVF gbl_timeBaseH, W MOVWF gbl_timeBase+D'1' BSF gbl_t2con,2 BSF gbl_t1con,0 MOVF gbl_startStopGenSemnal, F BTFSC STATUS,Z BSF gbl_portb,3 BSF gbl_transmisieQueue,0 MOVF gbl_timeBaseL, W XORLW 0xF4 BTFSC STATUS,Z GOTO label268436630 MOVF gbl_timeBaseL, W XORLW 0x88 BTFSC STATUS,Z GOTO label268436632 MOVF gbl_timeBaseL, W XORLW 0x50 BTFSC STATUS,Z GOTO label268436634 GOTO label268436635 label268436630 INCF gbl_contorCerereID, F GOTO label268436635 label268436632 MOVLW 0x0A ADDWF gbl_contorCerereID, F GOTO label268436635 label268436634 MOVLW 0x1E ADDWF gbl_contorCerereID, F label268436635 MOVLW 0x32 SUBWF gbl_contorCerereID, W BTFSS STATUS,C GOTO label268436639 BCF gbl_portb,3 CLRF gbl_startStopFrecv BCF gbl_t2con,2 label268436639 MOVF gbl_timeBase, F BTFSC STATUS,Z DECF gbl_timeBase+D'1', F DECF gbl_timeBase, F label268436601 BCF gbl_pir1,1 RETURN ; } timeBaseTmr2 function end ORG 0x00000058 tmr1_00000 ; { tmr1 ; function begin BCF STATUS, RP0 BCF STATUS, RP1 INCF gbl_tmr1a, F BTFSC STATUS,Z INCF gbl_tmr1a+D'1', F BCF gbl_pir1,0 RETURN ; } tmr1 function end ORG 0x0000005F transmisie_00014 ; { transmisieSeriala ; function begin label268436578 MOVLW 0x01 BCF STATUS, RP0 BCF STATUS, RP1 MOVWF gbl_ctrlTransmisie BCF STATUS,IRP MOVLW LOW(gbl_transmisie+D'0') MOVWF FSR MOVF gbl_pointerTransmisie, W ADDWF FSR, F MOVF INDF, W MOVWF gbl_txreg INCF gbl_pointerTransmisie, F MOVF gbl_pointerTransmisie, W XORLW 0x07 BTFSS STATUS,Z GOTO label268436583 CLRF gbl_pointerTransmisie MOVF gbl_startStopGenSemnal, F BTFSC STATUS,Z BCF gbl_portb,3 CLRF gbl_ctrlTransmisie BSF STATUS, RP0 BCF gbl_pie1,4 GOTO label268436593 label268436583 BTFSC gbl_pir1,4 GOTO label268436578 label268436593 RETURN ; } transmisieSeriala function end ORG 0x0000007A receptieSe_00013 ; { receptieSeriala ; function begin BCF STATUS, RP0 BCF STATUS, RP1 BCF gbl_status,5 BTFSC gbl_rcsta,1 GOTO label268436535 BTFSC gbl_rcsta,2 GOTO label268436536 GOTO label268436537 label268436535 BCF gbl_rcsta,4 MOVF gbl_rcreg, W MOVF gbl_rcreg, W MOVF gbl_rcreg, W BSF gbl_rcsta,4 RETURN label268436536 MOVF gbl_rcreg, W RETURN label268436537 MOVF gbl_rcreg, W MOVWF receptieSe_00013_1_recTemp MOVF gbl_pointerReceptie, F BTFSS STATUS,Z GOTO label268436540 MOVF receptieSe_00013_1_recTemp, W XORLW 0x0A BTFSS STATUS,Z GOTO label268436540 MOVLW 0x01 MOVWF gbl_pointerReceptie MOVF receptieSe_00013_1_recTemp, W MOVWF gbl_receptieTemp MOVLW 0x01 MOVWF gbl_ctrlReceptie GOTO label268436549 label268436540 MOVF gbl_pointerReceptie, F BTFSC STATUS,Z GOTO label268436549 BCF STATUS,IRP MOVLW LOW(gbl_receptieTemp+D'0') MOVWF FSR MOVF gbl_pointerReceptie, W ADDWF FSR, F MOVF receptieSe_00013_1_recTemp, W MOVWF INDF INCF gbl_pointerReceptie, F label268436549 MOVF gbl_pointerReceptie, W XORLW 0x04 BTFSS STATUS,Z GOTO label268436555 CLRF gbl_pointerReceptie CLRF gbl_ctrlReceptie MOVF gbl_receptieTemp, W MOVWF gbl_receptie MOVF gbl_receptieTemp+D'1', W MOVWF gbl_receptie+D'1' MOVF gbl_receptieTemp+D'2', W MOVWF gbl_receptie+D'2' MOVF gbl_receptieTemp+D'3', W MOVWF gbl_receptie+D'3' MOVF gbl_receptieTemp+D'4', W MOVWF gbl_receptie+D'4' label268436555 BTFSC gbl_pir1,5 GOTO label268436537 RETURN ; } receptieSeriala function end ORG 0x000000B8 main ; { main ; function begin MOVLW 0x20 BCF STATUS, RP0 BCF STATUS, RP1 MOVWF gbl_fsr label268436649 MOVLW 0x6E SUBWF gbl_fsr, W BTFSC STATUS,C GOTO label268436650 CLRF gbl_indf INCF gbl_fsr, F GOTO label268436649 label268436650 MOVLW 0xA0 MOVWF gbl_fsr label268436654 MOVLW 0xEE SUBWF gbl_fsr, W BTFSC STATUS,C GOTO label268436655 CLRF gbl_indf INCF gbl_fsr, F GOTO label268436654 label268436655 CLRF gbl_eroareReceptie CLRF gbl_pointerReceptie CLRF gbl_pointerTransmisie CLRF gbl_ctrlTransmisie CLRF gbl_receptie MOVLW 0x0A MOVWF gbl_transmisie MOVLW 0x01 MOVWF gbl_ctrlReceptie CLRF gbl_tmr1a CLRF gbl_tmr1a+D'1' CLRF gbl_tmr1b CLRF gbl_tmr1b+D'1' CLRF gbl_startStopFrecv CLRF gbl_contorCerereID CLRF gbl_status BCF gbl_intcon,7 MOVLW 0xFF BSF STATUS, RP0 MOVWF gbl_trisa MOVLW 0xD3 MOVWF gbl_trisb CLRF gbl_option_reg MOVLW 0x43 BCF STATUS, RP0 MOVWF gbl_intcon MOVLW 0x23 BSF STATUS, RP0 MOVWF gbl_pie1 CLRF gbl_pcon CLRF gbl_vrcon BCF STATUS, RP0 CLRF gbl_porta CLRF gbl_portb MOVLW 0x07 MOVWF gbl_cmcon MOVLW 0xF9 BSF STATUS, RP0 MOVWF gbl_pr2 MOVLW 0x06 BCF STATUS, RP0 MOVWF gbl_t1con MOVLW 0x01 MOVWF gbl_t2con CLRF gbl_ccp1con CLRF gbl_pir1 MOVLW 0x40 BSF STATUS, RP0 MOVWF gbl_spbrg MOVLW 0x24 MOVWF gbl_txsta MOVLW 0x90 BCF STATUS, RP0 MOVWF gbl_rcsta MOVF gbl_rcreg, W MOVF gbl_rcreg, W MOVF gbl_rcreg, W BCF gbl_rcsta,4 BSF gbl_rcsta,4 BSF gbl_intcon,7 MOVLW 0x88 MOVWF gbl_timeBaseL MOVLW 0x13 MOVWF gbl_timeBaseH label268436698 NOP BCF STATUS, RP0 MOVF gbl_ctrlReceptie, F BTFSS STATUS,Z GOTO label268436805 MOVLW 0x01 MOVWF gbl_ctrlReceptie MOVF gbl_receptie+D'1', F BTFSC STATUS,Z GOTO label268436710 MOVF gbl_receptie+D'2', W XORLW 0x01 BTFSC STATUS,Z GOTO label268436713 MOVF gbl_receptie+D'2', W XORLW 0x02 BTFSC STATUS,Z GOTO label268436715 MOVF gbl_receptie+D'2', W XORLW 0x03 BTFSC STATUS,Z GOTO label268436717 MOVF gbl_receptie+D'2', W XORLW 0x04 BTFSC STATUS,Z GOTO label268436719 MOVF gbl_receptie+D'2', W XORLW 0x05 BTFSC STATUS,Z GOTO label268436721 MOVF gbl_receptie+D'2', W XORLW 0x06 BTFSC STATUS,Z GOTO label268436723 MOVF gbl_receptie+D'2', W XORLW 0x07 BTFSC STATUS,Z GOTO label268436725 MOVF gbl_receptie+D'2', W XORLW 0x08 BTFSC STATUS,Z GOTO label268436727 MOVF gbl_receptie+D'2', W XORLW 0x09 BTFSC STATUS,Z GOTO label268436729 GOTO label268436730 label268436713 MOVF gbl_receptie+D'3', W MOVWF gbl_startStopFrecv MOVF gbl_startStopFrecv, F BTFSS STATUS,Z GOTO label268436733 BCF gbl_t1con,0 BCF gbl_t2con,2 BSF STATUS, RP0 BCF gbl_pie1,1 BCF STATUS, RP0 BCF gbl_pir1,1 GOTO label268436740 label268436733 CLRF gbl_startStopGenSemnal CLRF gbl_ccp1con CLRF gbl_tmr1a CLRF gbl_tmr1a+D'1' CLRF gbl_tmr1l CLRF gbl_tmr1h CLRF gbl_tmr2 MOVF gbl_timeBaseL, W MOVWF gbl_timeBase MOVF gbl_timeBaseH, W MOVWF gbl_timeBase+D'1' CLRF gbl_contorCerereID MOVLW 0xF9 BSF STATUS, RP0 MOVWF gbl_pr2 MOVLW 0x01 BCF STATUS, RP0 MOVWF gbl_t2con BSF gbl_t2con,2 BSF gbl_t1con,0 BSF STATUS, RP0 BSF gbl_pie1,1 BCF STATUS, RP0 BCF gbl_pir1,1 label268436740 GOTO label268436730 label268436715 MOVF gbl_receptie+D'3', W MOVWF gbl_timeBaseL GOTO label268436730 label268436717 MOVF gbl_receptie+D'3', W MOVWF gbl_timeBaseH MOVF gbl_timeBaseL, W MOVWF gbl_timeBase MOVF gbl_timeBaseH, W MOVWF gbl_timeBase+D'1' CLRF gbl_contorCerereID GOTO label268436730 label268436719 MOVF gbl_receptie+D'3', W MOVWF gbl_startStopGenSemnal CLRF gbl_startStopFrecv BSF STATUS, RP0 BCF gbl_pie1,1 BCF STATUS, RP0 BCF gbl_t1con,0 MOVF gbl_startStopGenSemnal, F BTFSS STATUS,Z GOTO label268436774 BCF gbl_t2con,2 CLRF gbl_ccp1con BCF gbl_portb,3 GOTO label268436780 label268436774 BCF gbl_t2con,2 MOVF gbl_genPWMPr2, W BSF STATUS, RP0 MOVWF gbl_pr2 BCF STATUS, RP0 MOVF gbl_genPWMPresc, W MOVWF gbl_t2con MOVF gbl_genPWMLsb, W MOVWF gbl_ccp1con MOVF gbl_genPWMdutyCycle, W MOVWF gbl_ccpr1l BSF gbl_t2con,2 label268436780 GOTO label268436730 label268436721 NOP GOTO label268436730 label268436723 MOVF gbl_receptie+D'3', W MOVWF gbl_genPWMPr2 MOVF gbl_genPWMPr2, W BSF STATUS, RP0 MOVWF gbl_pr2 GOTO label268436730 label268436725 MOVF gbl_receptie+D'3', W MOVWF gbl_genPWMLsb MOVF gbl_genPWMLsb, W MOVWF gbl_ccp1con GOTO label268436730 label268436727 MOVF gbl_receptie+D'3', W MOVWF gbl_genPWMPresc MOVF gbl_genPWMPresc, W MOVWF gbl_t2con GOTO label268436730 label268436729 MOVF gbl_receptie+D'3', W MOVWF gbl_genPWMdutyCycle MOVF gbl_genPWMdutyCycle, W MOVWF gbl_ccpr1l label268436730 GOTO label268436805 label268436710 MOVF gbl_receptie+D'2', F BTFSC STATUS,Z GOTO label268436809 MOVF gbl_receptie+D'2', W XORLW 0x01 BTFSC STATUS,Z GOTO label268436811 MOVF gbl_receptie+D'2', W XORLW 0x03 BTFSC STATUS,Z GOTO label268436813 GOTO label268436814 label268436809 MOVF gbl_receptie+D'3', W MOVWF gbl_adresaTransmisie MOVLW 0xB7 MOVWF gbl_dataTransmisie CLRF gbl_contorCerereID GOTO label268436814 label268436811 MOVF gbl_receptie+D'3', W MOVWF gbl_adresaTransmisie MOVF gbl_startStopFrecv, W MOVWF gbl_dataTransmisie GOTO label268436814 label268436813 MOVF gbl_receptie+D'3', W MOVWF gbl_adresaTransmisie MOVF gbl_timeBase+D'1', W MOVWF gbl_dataTransmisie label268436814 BSF gbl_transmisieQueue,1 label268436805 BCF STATUS, RP0 MOVF gbl_ctrlTransmisie, F BTFSS STATUS,Z GOTO label268436876 MOVF gbl_transmisieQueue, F BTFSS STATUS,Z GOTO label268436833 NOP GOTO label268436876 label268436833 BTFSS gbl_transmisieQueue,0 GOTO label268436841 MOVF gbl_startStopFrecv, F BTFSC STATUS,Z GOTO label268436841 BCF gbl_transmisieQueue,0 MOVLW 0x01 MOVWF gbl_transmisie+D'1' MOVF gbl_tmr1b+D'1', W MOVWF gbl_vartemp1 MOVF gbl_vartemp1, W MOVWF gbl_transmisie+D'2' MOVF gbl_tmr1b, W MOVWF gbl_vartemp1 MOVF gbl_vartemp1, W MOVWF gbl_transmisie+D'3' MOVF gbl_tmr1c+D'1', W MOVWF gbl_vartemp1 MOVF gbl_vartemp1, W MOVWF gbl_transmisie+D'4' MOVF gbl_tmr1c, W MOVWF gbl_vartemp1 MOVF gbl_vartemp1, W MOVWF gbl_transmisie+D'5' MOVF gbl_tmr2b, W MOVWF gbl_transmisie+D'6' BSF STATUS, RP0 BSF gbl_pie1,4 GOTO label268436876 label268436841 BTFSS gbl_transmisieQueue,1 GOTO label268436876 BCF gbl_transmisieQueue,1 CLRF gbl_transmisie+D'1' MOVF gbl_adresaTransmisie, W MOVWF gbl_transmisie+D'2' MOVF gbl_dataTransmisie, W MOVWF gbl_transmisie+D'3' CLRF gbl_transmisie+D'4' CLRF gbl_transmisie+D'5' CLRF gbl_transmisie+D'6' BSF STATUS, RP0 BSF gbl_pie1,4 label268436876 GOTO label268436698 ; } main function end ORG 0x000001ED _startup BCF PCLATH,3 BCF PCLATH,4 GOTO main ORG 0x000001F0 interrupt ; { interrupt ; function begin BCF STATUS, RP0 BCF STATUS, RP1 BTFSC gbl_pir1,1 CALL timeBaseTm_00015 BTFSC gbl_pir1,0 CALL tmr1_00000 BTFSC gbl_pir1,5 CALL receptieSe_00013 BTFSS gbl_pir1,4 GOTO label268436906 BSF STATUS, RP0 BTFSS gbl_pie1,4 GOTO label268436906 CALL transmisie_00014 label268436906 BCF STATUS, RP0 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 END