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

;文件名: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