📄 in419c.asm
字号:
CALL KZ_JDQ
; GOTO F_CL33 ;频率测量程序
; CALL DISP
BTFSC PORTB,6
GOTO F_CL33
BCF INTCON,7
BCF STATUS,RP1
BSF STATUS,RP0
CLRF IOCA
CLRF IOCB
;BSF IOCA,0
BSF TRISA,0
BSF WPUA,0
BCF PCON,5
BCF STATUS,RP0
BCF INTCON,RABIE
BCF INTCON,RABIF
BCF T1CON,TMR1ON
CLRF VOLTL2
CLRF VOLTH2
CLRF R6
CLRF R5
BSF INTCON,7
;MAIN3 CLRWDT
; BTFSS PORTC,2
; GOTO MAIN3
; CALL DISP ;累计时间显示
; BTFSC PORTC,2
; GOTO MAIN3
; GOTO MAIN11
MAIN3 CLRWDT
BTFSS PORTB,6
GOTO MAIN3
MAIN33 BCF INTCON,7
MOVF RR1,0
MOVWF R1
MOVF RR2,0
MOVWF R2
MOVLW 0X01
SUBWF RR3,0
BTFSC STATUS,0
GOTO MAN1
MOVLW 0X13
MOVWF R3
GOTO MAN2
MAN1 MOVF RR3,0
MOVWF R3
MAN2 MOVLW 0X01
SUBWF RR4,0
BTFSC STATUS,0
GOTO MAN3
MOVLW 0X13
MOVWF R4
GOTO MAN4
MAN3 MOVF RR4,0
MOVWF R4
MAN4 BSF INTCON,7
CALL DISP_2
CALL AD_1
CALL KZ_JDQ
BTFSC PORTB,6
GOTO MAIN33
CLRF R5
CLRF VOLTL2
CLRF VOLTH2
CLRF VOLTH
CLRF VOLTL
GOTO MAIN11
; MOVLW 0X00
; MOVWF ADDR
; MOVLW 0X05
; MOVWF VALU
; CALL WRI_
; CALL DELAY5MS
; CALL DELAY5MS
; CALL DELAY5MS
; MOVLW 0X00
; MOVWF ADDR
; CALL READ_
; MOVWF R1
;MAIN4 CALL DISP_1
; GOTO MAIN4
;------------------------------A/D-------------------------
AD_1 BCF INTCON,7
;CLRF R5
BSF STATUS,RP0
BCF STATUS,RP1
MOVLW 0X50
MOVWF ADCON1
BSF TRISA,4
BCF STATUS,RP0
; BSF STATUS,RP1
; BSF ANSEL,3
;BCF STATUS,RP1
AD_E BTFSC ADCON0,ADON
GOTO AD_E
BSF ADCON0 , ADON
MOVLW 0x20
MOVWF 0x74
AD1 DECFSZ 0x74 , f
GOTO AD1
BSF ADCON0,GO
BCF STATUS,RP1
AD2 BTFSC ADCON0 ,GO
GOTO AD2
MOVF ADRESH ,0
MOVWF VOLTH1
MOVLW 0X03
ANDWF VOLTH1,1
BSF STATUS,RP0
MOVF ADRESL,0
BCF STATUS,RP0
MOVWF VOLTL1
BCF ADCON0 ,ADON;；;关闭AD
;BCF INTCON,7
ADDWF VOLTL2,1
;MOWLW 0X00
BTFSC STATUS,0
INCF VOLTH1,1
MOVF VOLTH1,0
ADDWF VOLTH2,1
INCF R5,1
MOVLW 0X10
SUBWF R5,0
BTFSS STATUS,0
; BCF STATUS,0
; RRF VOLTH,1
; RRF VOLTL,1
GOTO AD_2
CLRF R5
BSF 0X77,6
SWAPF VOLTL2,1
MOVLW 0X0F
ANDWF VOLTL2,1
SWAPF VOLTL2,1
MOVLW 0X0F
ANDWF VOLTH2,0
ADDWF VOLTL2,1
SWAPF VOLTL2,1
SWAPF VOLTH2,1
MOVLW 0X0F
ANDWF VOLTH2,0
MOVWF VOLTH
MOVF VOLTL2,0
MOVWF VOLTL
CLRF VOLTL2
CLRF VOLTH2
BSF INTCON,7
RETURN
AD_2 BCF 0X77,6
BSF INTCON,7
RETURN
;------------------VOL-BCD-----------------------------------
VOL_BCD CLRF R1
CLRF R2
CLRF R3
BCF 0X77,0
MOVLW 0X01
SUBWF CCL,0
BTFSS STATUS,0
GOTO BCD6
; BSF 0X77,0
BCD ; DECF CCL,1
MOVLW 0X01
SUBWF DDH,1
BTFSS STATUS,0
GOTO BCD1
INCF R1,1
MOVLW 0X0A
SUBWF R1,0
BTFSS STATUS,0
GOTO BCD
MOVWF R1
INCF R2,1
MOVLW 0X0A
SUBWF R2,0
BTFSS STATUS,0
GOTO BCD
CLRF R2
INCF R3,1
GOTO BCD
BCD1 ;BTFSC 0X77,0
; GOTO BCD2
;BSF 0X77,0
; MOVLW 0X01
;SUBWF CCL,0
;BTFSS STATUS,0
;GOTO BCD3
MOVLW 0X01
SUBWF CCL,1
BTFSS STATUS,0
BCD3 RETURN
MOVLW 0XFF
MOVWF DDH
GOTO BCD
BCD2 RETURN
BCD6 ; DECF CCL,1
MOVLW 0X01
SUBWF DDH,1
BTFSS STATUS,0
GOTO BCD2
INCF R1,1
MOVLW 0X0A
SUBWF R1,0
BTFSS STATUS,0
GOTO BCD6
MOVWF R1
INCF R2,1
MOVLW 0X0A
SUBWF R2,0
BTFSS STATUS,0
GOTO BCD6
CLRF R2
INCF R3,1
GOTO BCD6
; ==============================****AHAL*BHBL=CHCLDHDL****==================================
VOL_JS CLRF AAH
CLRF AAL
CLRF BBH
CLRF BBL
CLRF CCH
CLRF CCL
CLRF DDH
CLRF DDL
CLRF EEH
CLRF EEL
;************************
MOVF VOLTH,0
MOVWF AAH
MOVF VOLTL,0
MOVWF AAL
MOVLW 0X01
MOVWF BBH
MOVF BL,0;MOVLW 0X52
MOVWF BBL
;***********************
CALL Z1
CALL Z2
CALL ZONG
BCF STATUS,0
RRF CCL,1
RRF DDH,1
BCF STATUS,0
RRF CCL,1
RRF DDH,1
RETURN
Z1 MOVF AAH,0
MOVWF DDH
MOVF AAL,0
MOVWF DDL
MOVLW 0X01
SUBWF BBL,0
BTFSC STATUS,0
GOTO Z11
CLRF DDL
CLRF DDH
RETURN
Z11 MOVLW 0X02
SUBWF BBL,0
BTFSS STATUS,0
RETURN
DECF BBL,1
CALL SL_ADD
GOTO Z11
Z2 MOVF AAH,0
MOVWF EEH
MOVF AAL,0
MOVWF EEL
MOVLW 0X01
SUBWF BBH,0
BTFSC STATUS,0
GOTO Z22
CLRF EEH
CLRF EEL
RETURN
Z22 MOVLW 0X02
SUBWF BBH,0
BTFSS STATUS,0
RETURN
DECF BBH,1
CALL SH_ADD
GOTO Z22
ZONG MOVF DDH,0
ADDWF EEL,0
BTFSC STATUS,0
GOTO JIN1
MOVWF DDH
MOVF EEH,0
ADDWF CCL,0
BTFSC STATUS,0
GOTO JIN2
MOVWF CCL
RETURN
JIN2 MOVWF CCL
INCF CCH,1
RETURN
JIN1 MOVWF DDH
MOVF EEH,0
ADDWF CCL,0
BTFSC STATUS,0
GOTO JIN3
MOVWF CCL
MOVLW 0X01
ADDWF CCL,1
BTFSC STATUS,0
INCF CCH,1
RETURN
JIN3 MOVWF CCL
INCF CCL,1
INCF CCH,1
RETURN
;=======================ADDL=================
SL_ADD MOVF DDL,0
ADDWF AAL,0
BTFSC STATUS,0
GOTO JINL1
MOVWF DDL
MOVF DDH,0
ADDWF AAH,0
BTFSC STATUS,0
GOTO JINL2
MOVWF DDH
RETURN
JINL2 MOVWF DDH
INCF CCL,1
RETURN
JINL1 MOVWF DDL
MOVF DDH,0
ADDWF AAH,0
BTFSC STATUS,0
GOTO JINL3
MOVWF DDH
MOVLW 0X01
ADDWF DDH,1
BTFSC STATUS,0
INCF CCL,1
RETURN
JINL3 MOVWF DDH
INCF DDH,1
INCF CCL,1
RETURN
;=======================ADDH=================
SH_ADD MOVF EEL,0
ADDWF AAL,0
BTFSC STATUS,0
GOTO JINH1
MOVWF EEL
MOVF EEH,0
ADDWF AAH,0
BTFSC STATUS,0
GOTO JINH2
MOVWF EEH
RETURN
JINH2 MOVWF EEH
INCF CCH,1
RETURN
JINH1 MOVWF EEL
MOVF EEH,0
ADDWF AAH,0
BTFSC STATUS,0
GOTO JINH3
MOVWF EEH
MOVLW 0X01
ADDWF EEH,1
BTFSC STATUS,0
INCF CCH,1
RETURN
JINH3 MOVWF EEH
INCF EEH,1
INCF CCH,1
RETURN
DISP_1 BCF INTCON,7;BSF PORTA,1
MOVF R1,0
CALL TABLE
MOVWF PORTC
BSF INTCON,7
BCF PORTB,4
CALL DELAY5MS
BSF PORTB,4
BCF INTCON,7
MOVF R2,0
CALL TABLE
MOVWF PORTC
BSF INTCON,7
BCF PORTB,5
;BSF PORTC,3
CALL DELAY5MS
BSF PORTB,5
;BCF PORTC,3
BCF INTCON,7
MOVF R3,0
CALL TABLE
MOVWF PORTC
BSF INTCON,7
BCF PORTA,2
CALL DELAY5MS
BSF PORTA,2
BCF INTCON,7
MOVF R4,0
CALL TABLE
MOVWF PORTC
BCF INTCON,7
BCF PORTA,1
CALL DELAY5MS
BSF PORTA,1
RETURN
DISP_2 BCF INTCON,7
MOVF R1,0
CALL TABLE
MOVWF PORTC
BSF INTCON,7
BCF PORTB,4
CALL DELAY5MS
BSF PORTB,4
BCF INTCON,7
MOVF R2,0
CALL TABLE
MOVWF PORTC
BSF INTCON,7
BCF PORTB,5
BSF PORTC,3
CALL DELAY5MS
BSF PORTB,5
BCF PORTC,3
BCF INTCON,7
MOVF R3,0
CALL TABLE
MOVWF PORTC
BSF INTCON,7
BCF PORTA,2
CALL DELAY5MS
BSF PORTA,2
;BCF INTCON,RABIF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -