?? can591_pelifunc.asm
字號:
;;;//*
;********************************************************************************************************************
;*描述： 帶CAN 控制器的單片機P8XC951基本硬件頭文件定義 CAN 工作方式）
;*文件名: CAN591_PELIFunc.ASM
;*應用語言: KEIL A51/L51 or Intel A51/L51
;*版本 : V1.0
;*廣州周立功單片機發展有限公司 保留所有的版權
;;*******************************************************************************************************************
;;*/
;/*$page;*/
;/*
;;***********************************************************************************************************************
;;* 導入頭文件
;;***********************************************************************************************************************
;;*/
$INCLUDE(CAN591_PELICONF.ASM)
;/*
;;***********************************************************************************************************************
;;* 子程序說明
;;***********************************************************************************************************************
;;*/
;/*
;;***********************************************************************************************************************
;;*子程序: SJAEntryResetMode
;;*應用資源: R7,R6,ACR,F0
;;*參數說明: 無
;;*返回值: R7
;;* SJA_OK ; 表示CAN591進入復位模式成功
;;* SJA_ENTRYRESET_ERR ; 表示CAN591進入復位模式失敗
;;*
;;*說明: 該子程序用于使CAN591進入復位模式
;;***********************************************************************************************************************
;;*/
SJAEntryResetMode:
MOV R6,#0FFH ;存放重復次數
SETB F0
SJAENTRSTMD0:
MOV A,REG_CANMOD;
SETB ACC.0
MOV REG_CANMOD,A
MOV A,REG_CANMOD
JB ACC.0,SJAENTRSTMD1
DJNZ R6,SJAENTRSTMD0
AJMP SJAENTRSTMD2
SJAENTRSTMD1:
CLR F0
SJAENTRSTMD2:
JB F0,SJAENTRSTMD3
MOV R7,#SJA_OK
RET
SJAENTRSTMD3:
MOV R7,#SJA_ENTRYRESET_ERR
RET
;/*
;;***********************************************************************************************************************
;;*子程序: SJAQuitResetMode
;;*應用資源: R7,R6,ACC,F0
;;*參數說明: 無
;;*返回值: R7
;;* SJA_OK ; 表示CAN591退出復位模式成功
;;* SJA_QUITRESET_ERR ; 表示CAN591退出復位模式失敗
;;*
;;*說明: 該子程序用于使CAN591退出復位模式，進入工作模式
;;***********************************************************************************************************************
;;*/
SJAQuitResetMode:
MOV R6,#0FFH ;存放重復次數
SETB F0
SJAQUTRSTMD0:
MOV A,REG_CANMOD
CLR ACC.0 ;請復位請求位
MOV REG_CANMOD,A
MOV A,REG_CANMOD
JNB ACC.0,SJAENTRSTMD1
DJNZ R6,SJAENTRSTMD0
AJMP SJAQUTRSTMD2
SJAQUTRSTMD1:
CLR F0
SJAQUTRSTMD2:
JB F0,SJAQUTRSTMD3
MOV R7,#SJA_OK
RET
SJAQUTRSTMD3:
MOV R7,#SJA_QUITRESET_ERR
RET
;/*
;;***********************************************************************************************************************
;;*子程序: SJATestRstMode
;;*應用資源: ACC,F0
;;*參數說明: 無
;;*返回值: F0
;;* 0 ; 表示CAN591處于復位模式
;;* 1 ; 表示CAN591處于工作模式
;;*
;;*說明: 該子程序用于測試CAN591 處于復位模式還是工作模式
;;***********************************************************************************************************************
;;*/
SJATestRstMode:
SETB F0
MOV A,REG_CANMOD
JNB ACC.0,SJATestRM0
CLR F0
SJATestRM0:
RET
;/*
;;***********************************************************************************************************************
;;*子程序: SJSetCanIER
;;*應用資源: ACC,F0,R7,R6
;;*參數說明: R7 ;存放設定值
;;*返回值: R7
;;** SJA_OK ; 設置中斷使能寄存器成功
;;** SJA_SETIER_ERR ; 設置中斷使能寄存器失敗
;;*
;;*說明: 該函數用于591的CAN中斷使能設置
;;***********************************************************************************************************************
;;*/
SJASetCanIER:
MOV R6,#0FFH ;存放重復次數
SETB F0
MOV REG_CANADR,#REG_CAN_IER
SJASETCIRMD0:
MOV REG_CANSTA,R7
MOV A,REG_CANDAT
XRL A,R7
JZ SJASETCIRMD1
DJNZ R6,SJASETCIRMD0
AJMP SJASETCIRMD2
SJASETCIRMD1:
CLR F0
SJASETCIRMD2:
JB F0,SJASETCIRMD3
MOV R7,#SJA_OK
RET
SJASETCIRMD3:
MOV R7,#SJA_SETIER_ERR
RET
;/*
;;***********************************************************************************************************************
;;*子程序: SJASetAccMode
;;*應用資源: ACC,F0,R7,R6
;;*參數說明: R7 ;存放設定值
;;*返回值: R7
;;** SJA_OK ; 設置代碼驗收濾波器工作模式寄存器成功
;;** SJA_SETACFMODE_ERR ; 設置代碼驗收濾波器工作模式寄存器錯誤
;;*
;;*說明: 該函數用于設置591代碼驗收濾波器工作模式
;;***********************************************************************************************************************
;;*/
SJASetAccMode:
MOV R6,#0FFH ;存放重復次數
SETB F0
MOV REG_CANADR,#REG_CAN_ACFMOD
SJASETAMDMD0:
MOV REG_CANDAT,R7
MOV A,REG_CANDAT
XRL A,R7
JZ SJASETAMDMD1
DJNZ R6,SJASETAMDMD0
AJMP SJASETAMDMD2
SJASETAMDMD1:
CLR F0
SJASETAMDMD2:
JB F0,SJASETAMDMD3
MOV R7,#SJA_OK
RET
SJASETAMDMD3:
MOV R7,#SJA_SETACFMODE_ERR
RET
;/*
;;***********************************************************************************************************************
;;*子程序: SJASetAccPrio
;;*應用資源: ACC,F0,R7,R6
;;*參數說明: R7 ;存放設定值
;;*返回值: R7
;;** SJA_OK ; 設置代碼驗收濾波器優先級寄存器成功
;;** SJA_SETACFPRIO_ERR ; 設置代碼驗收濾波器優先級寄存器錯
;;*
;;*說明: 該函數用于設置591代碼驗收濾波器優先級
;;***********************************************************************************************************************
;;*/
SJASetAccPrio:
MOV R6,#0FFH ;存放重復次數
SETB F0
MOV REG_CANADR,#REG_CAN_ACFPRIO
SJASETAPOMD0:
MOV REG_CANDAT,R7
MOV A,REG_CANDAT
XRL A,R7
JZ SJASETAPOMD1
DJNZ R6,SJASETAPOMD0
AJMP SJASETAPOMD2
SJASETAPOMD1:
CLR F0
SJASETAPOMD2:
JB F0,SJASETAPOMD3
MOV R7,#SJA_OK
RET
SJASETAPOMD3:
MOV R7,#SJA_SETACFPRIO_ERR
RET
;/*
;;***********************************************************************************************************************
;;*子程序: SJASetAccEN
;;*應用資源: ACC,F0,R7,R6
;;*參數說明: R7 ;存放設定值
;;*返回值: R7
;;** SJA_OK ; 設置代碼驗收濾波器使能寄存器成功
;;** SJA_SETACFEN_ERR ; 設置代碼驗收濾波器使能寄存器錯
;;*
;;*說明: 該函數用于設置591代碼驗收濾波器使能
;;***********************************************************************************************************************
;;*/
SJASetAccEN:
MOV R6,#0FFH ;存放重復次數
SETB F0
MOV REG_CANADR,#REG_CAN_ACFEN
SJASETAENMD0:
MOV REG_CANDAT,R7
MOV A,REG_CANDAT
XRL A,R7
JZ SJASETAENMD1
DJNZ R6,SJASETAENMD0
AJMP SJASETAENMD2
SJASETAENMD1:
CLR F0
SJASETAENMD2:
JB F0,SJASETAENMD3
MOV R7,#SJA_OK
RET
SJASETAENMD3:
MOV R7,#SJA_SETACFEN_ERR
RET
;/*
;;***********************************************************************************************************************
;;*子程序: SJASetAccCode
;;*應用資源: R7,R6,R0,ACC,F0
;;*參數說明: R0 ;存放設置代碼驗收寄存器數組的首地址,首地址為濾波器組號
;;*
;;*返回值: R7 ;
;;* SJA_OK ; 設置代碼驗收寄存器成功
;;* SJA_SETACR_ERR ; 設置代碼驗收寄存器錯
;;* SJA_NOTRSTMODE ; CAN591不在復位模式
;;*
;;*說明: 該子程序用于設定報文濾波的代碼驗收濾波器
;;*
;;***********************************************************************************************************************
;;*/
SJASetAccCode:
LCALL SJATestRstMode
JNB F0,SJASETACR1
MOV R7,#SJA_NOTRSTMODE
RET
SJASETACR1:
MOV R6,#0FFH ;存放重復次數
SETB F0
SJASETACR2:
MOV R7,#4
MOV REG_CANADR,@R0 ;指針指向模式寄存器
INC R0
SJASETACR3:
MOV A,@R0
MOV REG_CANDAT,A
DEC REG_CANADR
MOV A,REG_CANDAT
XRL A,@R0
JZ SJASETACR4
DJNZ R6,SJASETACR3
AJMP SJASETACR5
SJASETACR4:
INC DPTR
INC R0
DJNZ R7,SJASETACR3
CLR F0
SJASETACR5:
JB F0,SJASETACR6
MOV R7,#SJA_OK
RET
SJASETACR6:
MOV R7,#SJA_SETACR_ERR
RET
;/*
;;***********************************************************************************************************************
;;*子程序: SJASetAccMask
;;*應用資源: R7,R6,R0,ACC,F0
;;*參數說明: R0 ;存放設置代碼驗收寄存器數組的首地址
;;*返回值: R7 ;
;;* SJA_OK ; 設置驗收屏蔽寄存器成功
;;* SJA_SETAMR_ERR ; 設置驗收屏蔽寄存器錯
;;* SJA_NOTRSTMODE ; CAN591不在復位模式
;;*
;;*說明: 該子程序用于設定報文濾波的驗收屏蔽寄存器
;;***********************************************************************************************************************
;*/
SJASetAccMask:
LCALL SJATestRstMode
JNB F0,SJASETAMR1
MOV R7,#SJA_NOTRSTMODE
RET
SJASETAMR1:
MOV R6,#0FFH ;存放重復次數
SETB F0
SJASETAMR2:
MOV R7,#4
MOV REG_CANADR,@R0 ;指針指向模式寄存器
INC R0
SJASETAMR3:
MOV A,@R0
MOV REG_CANDAT,A
DEC REG_CANADR
MOV A,REG_CANDAT
XRL A,@R0
JZ SJASETAMR4
DJNZ R6,SJASETAMR3
AJMP SJASETAMR5
SJASETAMR4:
INC DPTR
INC R0
DJNZ R7,SJASETAMR3
CLR F0
SJASETAMR5:
JB F0,SJASETAMR6
MOV R7,#SJA_OK
RET
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -