;***************************************************************************
;定時器0定時100ms，計數器T1計數外部脈沖個數，查尋方式
;****************************************************************************
 LIST P=18F458
 INCLUDE "P18F458.INC"

data1     equ     20h    ;定義一個延時變量寄存器
data2     equ     21h    ;定義另一個延時變量寄存器
data3     equ     22h    ;定義一個延時變量寄存器

A_H EQU 30H ;除數高8位
A_L EQU 31H ;除數低8位
B1_L EQU 32H ; 被除數的最高8位 
B_H EQU 33H ;被除數高8位(商的高8位)
B_L EQU 34H ;被除數低8位(商的低8位)
C1_L EQU 35H ;余數的最高8位 
C_H EQU 36H ;余數高8位
C_L EQU 37H ;余數低8位
D1_L EQU 38H 
D_H EQU 39H
D_L EQU 3AH
TEMP EQU 3BH
DUAN  EQU 3CH   ;分段值
SREG EQU 3DH
ACCBLO         EQU     23H       ;存放被轉換的雙字節整數低8位
ACCBHI         EQU     24H       ;存放被轉換的雙字節整數高8位
ACCCHI         EQU     26H       ;存放高8位BCD碼
ACCCLO         EQU     27H        ;存放中8位BCD碼,最終結果高
ACCDHI         EQU     28H         ;存放中8位BCD碼,最終結果低
COUNT          EQU     2FH        ;臨時寄存器

T1L         EQU     2AH       ;存放T1定時器初值低8位
T1H         EQU     2BH       ;存放T1定時器初值高8位

XW_TEMP    EQU     40H       ;暫時存放W值
XHOSTS     EQU     41H       ;暫時存放STATUS 
HOSTF     EQU     41H       ;暫時存放FSR0L
;*****************************************************************************
    ORG 0000H
 NOP
 GOTO MAIN
 ORG 0008H;中斷矢量入口
 NOP
 GOTO INTSERVE
     
;################測速子程序#################################
JISHU
 NOP
 MOVWF XW_TEMP
 SWAPF STATUS,0
 MOVWF XHOSTS 
 MOVF FSR0L,0
 MOVWF HOSTF
 MOVLW 65H  ;158.50ms初值，4分頻158.50ms
 MOVWF TMR0H
 MOVLW 37H
 MOVWF TMR0L
 MOVLW 00H
 MOVWF TMR1H
 MOVLW 00H
 MOVWF TMR1L
 BSF T0CON,7
 BSF T1CON,0
JISHU1
 BTFSS INTCON,2
 GOTO JISHU1
 BCF INTCON,2
 BCF T1CON,0
 BCF T0CON,7
JISHUFAN
 MOVF HOSTF,0
 MOVWF FSR0L
 SWAPF XHOSTS,0
 MOVWF STATUS
 SWAPF XW_TEMP,1
 SWAPF XW_TEMP,0 
 NOP
RET  
;###################################################################
;**************************系統初始化**************
INITIAL
 NOP
 MOVLB 0FH;寄存器體切換
 ;MOVLW 0FFH
; MOVWF TRISC,1;將C口定義為輸入
 MOVLW 00H
 MOVWF TRISD,1;將D口定義為輸出
 MOVLW 19H;
 MOVWF SPBRG;波特率9600
 MOVLW 04H;
 MOVWF TXSTA ;異步高速傳輸8位數據
 MOVLW 80H
 MOVWF RCSTA ;允許同步串行口工作
 MOVLW 80H ;RC7RC6設為輸入
 MOVWF TRISC;
 BSF TXSTA,TXEN ;允許發送
 BSF RCSTA,CREN ;接收數據允許
 BSF PIE1,RCIE ;接收中斷使能
 BCF PIR1,RCIF
 MOVLW 0C0H
 MOVWF INTCON ;總中斷和外圍中斷允許
 RETURN
;***********************************

;**********************T0初始化**************
TOINIT
 NOP
 MOVLW 00H;(1)禁止T0(0)16位(0)內部時鐘(0)上升沿(0)前分頻(001)4分頻
 MOVWF T0CON;定時器T0初始化
 MOVLW 86H;(1)16位操作(0)未使用(00)不分頻(0)禁止振蕩器(1)不與外部輸入同步(1)計數RC0入(0)禁止TR1
 MOVWF T1CON;定時器T0初始化
 BCF INTCON,TMR0IF;T0溢出標志清零
 RETURN
;***********************************
;*******************長延時*************************
ldelay                  ;子程序名，也是子程序入口地址
          movlw 0fh          ;將外層循環參數值送到DATA1
          movwf data3      
llp0      movlw 0ffh          ;將內層循環參數值送到DATA2
          movwf data2 
llp1      movlw 0ffh          ;將內層循環參數值送到DATA2
          movwf data1      
llp2      nop
          ;CLRWDT   ;清狗
          decfsz data1,1    ;變量DATA2內容遞減，若為0則跳躍
          goto llp2          ;跳轉到LP1
          decfsz data2,1    ;變量DATA1內容遞減，若為0則跳躍
          goto llp1          ;跳轉到LP0
          decfsz data3,1    ;變量DATA1內容遞減，若為0則跳躍
          goto llp0          ;跳轉到LP0
          return            ;返回主程序  
;****************************************************
 ;################通信中斷子程序###########################
INTSERVE
 NOP
 BTFSS PIR1,RCIF
 GOTO ERR_RE 
 MOVF RCREG,0;讀一下接收緩沖器使標志位清零
 MOVLW 0AAH 
 MOVWF TEMP

ERR_RE
 NOP
 RETFIE   

;*********************主程序**********************************************
MAIN
 NOP
 CALL INITIAL  ;系統初始化
 CALL TOINIT  ;T0初始化
MAIN0
 NOP
 CALL JISHU
 NOP
 MOVF TMR1L,0 
 MOVWF B_L;將定時器低位送B_L,被除數中間8位
 MOVF TMR1H,0
 MOVWF B_H;將定時器高位送B_H，被除數低8位
 NOP
 MOVF TEMP,0
 XORLW 0AAH       ;判斷是否有CAN信號
 BNZ MAIN0     ;不相等無CAN信號，跳轉
 NOP
 MOVF B_L,0
 MOVWF TXREG
 MOVF B_H,0
 MOVWF TXREG
 NOP
 MOVLW 00H 
 MOVWF TEMP
 ;CALL ldelay 
 GOTO MAIN0


 END