PIC 程序功能.docx

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

；*******************