按键控制数码管显示实验程序概要.docx
- 文档编号:10172608
- 上传时间:2023-02-09
- 格式:DOCX
- 页数:7
- 大小:14.55KB
按键控制数码管显示实验程序概要.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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 按键 控制 数码管 显示 实验 程序 概要