按键控制数码管显示实验程序概要.docx

按键控制数码管显示实验程序概要.docx

《按键控制数码管显示实验程序概要.docx》由会员分享，可在线阅读，更多相关《按键控制数码管显示实验程序概要.docx（7页珍藏版）》请在冰点文库上搜索。

按键控制数码管显示实验程序概要

;----------------------------------------------------------------------------------------------------------------------------------------

;文件名:

CAT24C02

;功能:

演示CAT24C02的I2C读写

;日期:

2009-9-28

;----------------------------------------------------------------------------------------------------------------------------------------

LE1BITP1.2

LE2BITP1.3

ROWDATA30H

COLUMNDATA31H

ORG0000H

AJMPMAIN

ORG0080H

MAIN:

LCALLKEYSCAN

MOVA,R7

JZMAIN

LCALLDISPLAY

JMPMAIN

;----------------------------------------------------------------------------------------------------------------------------------------

;函数名:

DISPLAY

;输出参数:

R7

;----------------------------------------------------------------------------------------------------------------------------------------

DISPLAY:

K1:

CJNER7,#0x11,K2

MOVR0,#0x80

MOVR1,#0xC0

LCALLSEND

JMPDISPLAY_OVER

K2:

CJNER7,#0x21,K3

MOVR0,#0x40

MOVR1,#0xf9

LCALLSEND

JMPDISPLAY_OVERK3:

CJNER7,#0x41,K4

MOVR0,#0x20

MOVR1,#0xa4

LCALLSEND

JMPDISPLAY_OVERK4:

CJNER7,#0x81,K5

MOVR0,#0x10

MOVR1,#0xB0

LCALLSEND

JMPDISPLAY_OVERK5:

CJNER7,#0x12,K6

MOVR0,#0x08

MOVR1,#0x99

LCALLSEND

JMPDISPLAY_OVERK6:

CJNER7,#0x22,K7

MOVR0,#0x04

MOVR1,#0x92

LCALLSEND

JMPDISPLAY_OVERK7:

CJNER7,#0x42,K8

MOVR0,#0x02

MOVR1,#0x82

LCALLSEND

JMPDISPLAY_OVERK8:

CJNER7,#0x82,K9

MOVR0,#0x01

MOVR1,#0xf8

LCALLSEND

JMPDISPLAY_OVERK9:

CJNER7,#0x14,K10

MOVR0,#0x80

MOVR1,#0x80

LCALLSEND

JMPDISPLAY_OVERK10:

CJNER7,#0x24,K11

MOVR0,#0x40

MOVR1,#0x90

LCALLSEND

JMPDISPLAY_OVER

K11:

CJNER7,#0x44,K12

MOVR0,#0x20

MOVR1,#0x88

LCALLSEND

JMPDISPLAY_OVER

K12:

CJNER7,#0x84,K13

MOVR0,#0x10

MOVR1,#0x83

LCALLSEND

JMPDISPLAY_OVER

K13:

CJNER7,#0x18,K14

MOVR0,#0x08

MOVR1,#0xC6

LCALLSEND

JMPDISPLAY_OVER

K14:

CJNER7,#0x28,K15

MOVR0,#0x04

MOVR1,#0xA1

LCALLSEND

JMPDISPLAY_OVER

K15:

CJNER7,#0x48,K16

MOVR0,#0x02

MOVR1,#0x86

LCALLSEND

JMPDISPLAY_OVER

K16:

CJNER7,#0x88,DISPLAY_OVER

MOVR0,#0x01

MOVR1,#0x8e

LCALLSEND

DISPLAY_OVER:

RET

;----------------------------------------------------------------------------------------------------------------------------------------

;函数名:

KEYSCAN

;输出参数:

R7

;----------------------------------------------------------------------------------------------------------------------------------------

KEYSCAN:

MOVROW,#0

MOVCOLUMN,#0

MOVP2,#0x0F

MOVA,P2

CJNEA,#0x0F,ROW1

JMPSTEP1

ROW1:

;行扫描

CJNEA,#0x07,ROW2

MOVROW,#0x01

JMPSTEP1

ROW2:

CJNEA,#0x0B,ROW3

MOVROW,#0x02

JMPSTEP1

ROW3:

CJNEA,#0x0D,ROW4

MOVROW,#0x04

JMPSTEP1

ROW4:

CJNEA,#0x0E,STEP1

MOVROW,#0x08

STEP1:

;列扫描

MOVP2,#0xF0

MOVA,P2

CJNEA,#0xF0,COLUMN1

JMPSTEP2

COLUMN1:

CJNEA,#0xE0,COLUMN2

MOVCOLUMN,#0x10

JMPSTEP2

COLUMN2:

CJNEA,#0xD0,COLUMN3

MOVCOLUMN,#0x20

JMPSTEP2

COLUMN3:

CJNEA,#0xB0,COLUMN4

MOVCOLUMN,#0x40

JMPSTEP2

COLUMN4:

CJNEA,#0x70,STEP2

MOVCOLUMN,#0x80

STEP2:

MOVA,ROW

ORLA,COLUMN

MOVR7,A

RET

;----------------------------------------------------------------------------------------------------------------------------------------

;函数名:

Send

;输入参数:

R0=位选,R1=段选

;----------------------------------------------------------------------------------------------------------------------------------------

SEND:

MOVP0,R0;先发位选

SETBLE1

CLRLE1

MOVP0,R1;再发段码

SETBLE2

CLRLE2

RET

AJMPMAIN

END