PIC 程序功能.docx
- 文档编号:28472638
- 上传时间:2023-07-14
- 格式:DOCX
- 页数:21
- 大小:16.09KB
PIC 程序功能.docx
《PIC 程序功能.docx》由会员分享,可在线阅读,更多相关《PIC 程序功能.docx(21页珍藏版)》请在冰豆网上搜索。
PIC程序功能
TIME:
DECFSZTMA,1
RETLW0
MOVLW100
MOVLWTMA
DECFSZTMB,1
RETLW0
MOVLW10
MOVWFTMB
INCFSEC,1
MOVFSEC,0
ANDLW0FH
SUBLW9
BTFSCSTATUS,0
RETLW0
MOVLW6
ADDWFSEC,1
SWAPFSEC,0
ANDLW0FH
SUBLW5
BTFSCSTATUS,0
RETLW0
CLRFSEC
INCFMIN,1
MOVFMIN,0
ANDLW0FH
SUBLW9
BTFSCSTATUS,0
RETLW0
MOVLW6
ADDWFMIN,1
SWAPFMIN,0
ANDLW0FH
SUBLW5
BTFSCSTATUS,0
RETLW0
CLRFMIN
INCFHOU,1
BTFSCHOU,5
GOTOADD3
MOVFHOU,0
ANDLW0FH
SUBLW9
BTFSCSTATUS,0
RETLW0
MOVLW6
ADDWFHOU,1
RETLW0
ADD3:
BTFSSHOU,2
RETLW0
CLRFHOU
RETLW0
TIME:
INCFSEC,1
MOVFSEC,0
ANDLW0FH
XORLW0AH
BNZTMEXT
MOVLW6
ADDWFSEC,1
SWAPFSEC,0
ANDLW0FH
XORLW6
BNZTMEXT
CLRFSEC
INCFMIN,1
MOVFMIN,0
ANDLW0FH
XORLW0AH
BNZTMEXT
MOVLW6
ADDWFMIN,1
SWAPFMIN,0
ANDLW0FH
XORLW6
BNZTMEXT
CLRFMIN
INCFHOU,1
BTFSCHOU,5
GOTOADD3
MOVFHOU,0
ANDLW0FH
XORLW0AH
BNZTMEXT
MOVLW6
ADDWFHOU,1
TMEXT:
RETLW0
ADD3:
BTFSSHOU,2
RETLW0
CLRFHOU
RETLW0
DECTIM:
MOVFSEC,0
BNZDECS
MOVLW59H
MOVWFSEC
MOVFMIN,0
BNZDECM
MOVLW59H
MOVWFMIN
MOVFHOU,0
BNZDECH
MOVLW23H
MOVWFHOU
TEXT:
RETLW0
DECS:
DECFSEC,1
MOVFSEC,0
ANDLW0FH
XORLW0FH
BNZTEXT
MOVLW6
SUBWFSEC,1
RETLW0
DECM:
DECFMIN,1
MOVFMIN,0
ANDLW0FH
XORLW0FH
BNZTEXT
MOVLW6
SUBWFMIN,1
RETLW0
DECH:
DECFHOU,1
MOVFHOU,0
ANDLW0FH
XORLW0FH
BNZTEXT
MOVLW6
SUBWFHOU,1
RETLW0
CONV:
MOVFSEC,0
ANDLW0FH
MOVWFSECL
SWAPFSEC,0
ANDLW0FH
MOVWFSECH
MOVFMIN,0
ANDLW0FH
MOVWFMINL
SWAPFMIN,0
ANDLW0FH
MOVWFMINH
MOVFHOU,0
ANDLW0FH
MOVWFHOUL
SWAPFHOU,0
ANDLW0FH
MOVWFHOUH
RETLW0
;****************
MAIN:
MOVLW00H
TRISPB
TRISPC
MOVWFPC
MOVWFPB
SETC
RLFPC
ML:
MOVLW8
MOVWFTMP1
LP:
RLFPC
CALLDEL
DECFSZTMP1
GOTOLP
MOVLW8
MOVWFTMP1
LP1:
RRFPC
CALLDEL
DECFSZTMP1
GOTOLP1
GOTOML
DEL:
MOVLW250
MOVWFTMD1
DL1:
MOVLW200
MOVWFTMD2
DL2:
DECFSZTMD2
GOTODL2
DL:
DECFSZTMD1
GOTODL1
RETURN
;*******************
DISP:
2BYTE
MOVLW0H
MOVWFPB
BTFSCPC,1
GOTODPS1
MOVFDAT1,0
CALLTAB
MOVWFPB
COMFPB,1
BCFPC,0
BSFPC,1
RETLW0
DPS1:
MOVFDAT2,0
CALLTAB
MOVWFPB
COMFPB,1
BSFPC,0
BCFPC,1
RETLW0
;*******************
DISP:
3-4BYTE
MOVLW0H
MOVWFPB
MOVFDID,0
ADDWFPCL,1
DSP:
GOTODSP1
GOTODSP2
GOTODSP3
GOTODSP4
CLRFDID
RETLW0
DSP1:
MOVFDAT1,0
CALLTAB
MOVWFPB
COMFPB,1
MOVLW0FEH
MOVWFPC
INCFDID,1
RETLW0
DSP2:
MOVFDAT2,0
CALLTAB
MOVWFPB
COMFPB,1
SETC
RLFPC,1
INCFDID,1
RETLW0
DSP3:
MOVFDAT3,0
CALLTAB
MOVWFPB
COMFPB,1
SETC
RLFPC,1
INCFDID,1
RETLW0
DSP4:
MOVFDAT4,0
CALLTAB
MOVWFPB
COMFPB,1
SETC
RLFPC,1
CLRFDID
RETLW0
;**********************
;DIG=0FEH,DID=0
DISP:
NBYTE
MOVLW0H
MOVWFPB
MOVLWDAT1
MOVWFFSR
MOVFDID,0
ADDWFFSR,1
DSLP:
MOVFINDF,0
CALLTAB
MOVWFPB
COMFPB,1
MOVFDIG,0
MOVWFPC
SETC
RLFDIG,1
DSEXT:
INCFDID,1
BTFSSDID,2
RETLW0
CLRFDID
MOVLW0FEH
MOVWFDIG
RETLW0
;****************
ORG00H
NOP
GOTOMAIN
ORG08H
MAIN
CALLMINIT
MLP:
CALLDEL
BTFSS2FH,0
GOTOMLP
CALLKEYS
CALLDISP
BCF2FH,0
GOTOMLP
DEL:
MOVLW250
MOVWFR3
DL1:
DECFSZR3,1
GOTODL1
BSF2FH,0
RETLW0
DISP:
MOVFVAL,0
CALLTAB
MOVWFPB
COMFPB,1
BCFPC,0
RETLW0
KEYS:
MOVFKID,0
ADDWFPCL,1
KTAB:
GOTOKEYEN
GOTOKEYDEL
GOTOKEYSCAN
GOTOKEYUP
GOTOKEYPROC
CLRFKID
RETLW0
KEYEN:
MOVLW0FH
MOVWFKPIN
CALLDEL
NOP
MOVFKPIN,0
XORLW0FH
BZKEEXT
MOVLW30
MOVWFKTMP
INCFKID,1
KEEXT:
RETLW0
KEYDEL:
DECFSZKTMP,1
RETLW0
INCFKID,1
RETLW0
;*****************
KEYSCAN:
MOVLW0FH
MOVWFKPIN
;CALLDEL
NOP
NOP
MOVFKPIN,0
XORLW0FH
BZKSEXT
CLRFVAL
MOVLW0EFH
MOVWFR0
KS1:
MOVFR0,0
MOVWFKPIN
;CALLDEL
NOP
;CALLDEL
MOVFKPIN,0
ANDLW0FH
XORLW0FH
BZKS3
MOVWFKTMP
MOVLW4
MOVWFR1
KS2:
RRFKTMP,1
BCKVAL
;INCFVAL,1
DECFSZR1,1
GOTOKS2
KS3:
BTFSSR0,7
GOTOKSEXT
INCFVAL,1
SETC
RLFR0,1
GOTOKS1
KVAL:
CLRC
DECFR1
RLFR1,1
RLFR1,0
ADDWFVAL,1
INCFKID,1
RETLW0
KSEXT:
CLRFKID
CLRFVAL
RETLW0
;*********************
KEYSCAN:
MOVLW0FH
MOVWFKPIN
;CALLDEL
NOP
NOP
MOVFKPIN,0
XORLW0FH
BZKSEXT
CLRFVAL
MOVLW0EFH
MOVWFR0
KS1:
MOVFR0,0
MOVWFKPIN
CALLDEL
NOP
MOVFKPIN,0
ANDLW0FH
MOVWFKTMP
MOVLW4
MOVWFR1
KS2:
RRFKTMP,1
BNCKVAL
INCFVAL,1
DECFSZR1,1
GOTOKS2
KS3:
BTFSSR0,7
GOTOKSEXT
SETC
RLFR0,1
GOTOKS1
KVAL:
INCFKID,1
RETLW0
KSEXT:
CLRFKID
CLRFVAL
RETLW0
KEYUP:
MOVLW0FH
MOVWFKPIN
;CALLDEL
NOP
MOVFKPIN,0
XORLW0FH
BNZKUEXT
INCFKID
KUEXT:
RETLW0
KEYPROC:
CLRFKID
MOVFVAL,0
XORWFOLD,0
BZKPEXT
MOVLWDAT1
MOVWFFSR
MOVLW2
MOVWFR1
MOVFVAL,0
MOVWFOLD
MOVWFR0
KPL:
MOVFINDF,0
MOVWFKTMP
MOVFR0,0
MOVWFINDF
INCFFSR,1
MOVFINDF,0
MOVWFR0
MOVFKTMP,0
MOVWFINDF
INCFFSR,1
DECFSZR1,1
GOTOKPL
KPEXT:
RETLW0
MINIT:
BSFSTATUS,5
MOVLW3
MOVWFOPTIONR
MOVLW0FH
MOVWFTD
CLRW
MOVWFTB
MOVWFTC
BCFSTATUS,5
MOVLW0FH
MOVWFPD
MOVLW0FFH
MOVWFPC
MOVWFPB
MOVLW90H
MOVWFINTCON
BCF2FH,0
CLRW
MOVWFINTCON
MOVLW6
MOVWFR0
MOVLW20H
MOVWFFSR
MI:
CLRFINDF
INCFFSR
DECFSZR0
GOTOMI
RETLW0
TAB:
ANDLW0FH
ADDWFPCL
TAB1:
RETLW0XC0
RETLW0XF9
RETLW0XA4
RETLW0XB0
RETLW0X99
RETLW0X92
RETLW0X82
RETLW0XF8
RETLW0X80
RETLW0X90
RETLW0X88
RETLW0X83
RETLW0XC6
RETLW0XA1
RETLW0X86
RETLW0X8E
RETLW0X0
;*********************
KEYSCAN:
MOVFKPIN,0
XORLW0FH
BZKSEXT
MOVWFKTMP
MOVLW4
MOVWFVAL
CLRC
KSL:
RRFKTMP,1
BCKVAL
DECFSZVAL,1
GOTOKSL
KSEXT:
CLRFKID
RETLW0
KVAL:
INCFKID,1
RETLW0
;**************
KEYSCAN:
MOVLW0FH
MOVWFKPIN
NOP
NOP
MOVFKPIN,W
XORLW0FH
BZKSEXT
MOVWFVAL
INCFKID
RETLW0
KSEXT:
CLRFKID
RETLW0
;*******************
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- PIC 程序功能 程序 功能