按键控制数码管显示实验程序概要Word文件下载.docx

按键控制数码管显示实验程序概要Word文件下载.docx

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

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

JMPDISPLAY_OVERK3:

CJNER7,#0x41,K4

MOVR0,#0x20

MOVR1,#0xa4

JMPDISPLAY_OVERK4:

CJNER7,#0x81,K5

MOVR0,#0x10

MOVR1,#0xB0

JMPDISPLAY_OVERK5:

CJNER7,#0x12,K6

MOVR0,#0x08

MOVR1,#0x99

JMPDISPLAY_OVERK6:

CJNER7,#0x22,K7

MOVR0,#0x04

MOVR1,#0x92

JMPDISPLAY_OVERK7:

CJNER7,#0x42,K8

MOVR0,#0x02

MOVR1,#0x82

JMPDISPLAY_OVERK8:

CJNER7,#0x82,K9

MOVR0,#0x01

MOVR1,#0xf8

JMPDISPLAY_OVERK9:

CJNER7,#0x14,K10

MOVR1,#0x80

JMPDISPLAY_OVERK10:

CJNER7,#0x24,K11

MOVR1,#0x90

K11:

CJNER7,#0x44,K12

MOVR1,#0x88

K12:

CJNER7,#0x84,K13

MOVR1,#0x83

K13:

CJNER7,#0x18,K14

MOVR1,#0xC6

K14:

CJNER7,#0x28,K15

MOVR1,#0xA1

K15:

CJNER7,#0x48,K16

MOVR1,#0x86

K16:

CJNER7,#0x88,DISPLAY_OVER

MOVR1,#0x8e

DISPLAY_OVER:

RET

KEYSCAN

KEYSCAN:

MOVROW,#0

MOVCOLUMN,#0

MOVP2,#0x0F

MOVA,P2

CJNEA,#0x0F,ROW1

JMPSTEP1

ROW1:

;

行扫描

CJNEA,#0x07,ROW2

MOVROW,#0x01

ROW2:

CJNEA,#0x0B,ROW3

MOVROW,#0x02

ROW3:

CJNEA,#0x0D,ROW4

MOVROW,#0x04

ROW4:

CJNEA,#0x0E,STEP1

MOVROW,#0x08

STEP1:

列扫描

MOVP2,#0xF0

CJNEA,#0xF0,COLUMN1

JMPSTEP2

COLUMN1:

CJNEA,#0xE0,COLUMN2

MOVCOLUMN,#0x10

COLUMN2:

CJNEA,#0xD0,COLUMN3

MOVCOLUMN,#0x20

COLUMN3:

CJNEA,#0xB0,COLUMN4

MOVCOLUMN,#0x40

COLUMN4:

CJNEA,#0x70,STEP2

MOVCOLUMN,#0x80

STEP2:

MOVA,ROW

ORLA,COLUMN

MOVR7,A

Send

输入参数:

R0=位选,R1=段选

SEND:

MOVP0,R0;

先发位选

SETBLE1

CLRLE1

MOVP0,R1;

再发段码

SETBLE2

CLRLE2

END