单片机汇编CH452键盘显示程序

CH451_DCLK BIT P1.7 ;串行数据时钟,上升沿激活CH451_DIN BIT P1.6 ;串行数据输出,接CH451 的数据输入CH451_LOAD BIT P1.5 ;串行命令加载,上升沿激活CH451_DOUT BIT P1.4 ;INT0,键盘中断和键值数据输入,接CH451 的数据输出CH451_KEY DATA 7FHSUM DATA 7EHA1 DATA 7CHA2 DATA 7BHA3 DATA 7AHA4 DATA 79Hb1 DATA 78Hb2 DATA 77Hb3 DATA 76Hb4 DATA 75H;**************************************************************************; R452 367 1ORG 0000HSTART:MOV A1,#00HMOV A2,#00HMOV A3,#00HMOV A4,#00HMOV b1,#65HMOV b2,#65HMOV b3,#65HACALL CH451_INIT ;调用初始化程序MOV R5,#02H ;将要显示的数放入R5中MOV R4,#00H ;将要在第几位上显示放在R4中，最右边是0位KEYSHOW:ACALL SCAN1//ACALL CHANGESJMP KEYSHOWSJMP $;**************************************************************************** ;BCD 数字显示程序;**************************************************************************** /*NUM:CLR AADD A,NLCJNE A,#01,hun1CJNE A,#02,hun2DA AORL A1,AORL A2,ACLR AADD A,NH;CJNE A,#01,hun1;CJNE A,#02,hun2DA AORL A3,AORL A4,Ahun1:MOV A,NHADD A,#01HMOV NH,ACLR AADD A,NLREThun2:MOV A,NHADD A,#02HMOV NH,ACLR AADD A,NLRETRET */k1:MOV R5,#01HMOV R4,#05HACALL CHANGEMOV R5,#02HMOV R4,#04HACALL CHANGEMOV R5,#03HMOV R4,#02HACALL CHANGEMOV R5,#04HMOV R4,#00HACALL CHANGEMOV R5,#05HMOV R4,#01HACALL CHANGEMOV R5,#06HMOV R4,#03HACALL CHANGERETk2:MOV R5,#02HMOV R4,#05HACALL CHANGEMOV R5,#03HMOV R4,#04HACALL CHANGEMOV R5,#04HMOV R4,#02HACALL CHANGEMOV R5,#05HMOV R4,#00HACALL CHANGEMOV R5,#06HMOV R4,#01HACALL CHANGEMOV R5,#07HMOV R4,#03HACALL CHANGERETk3:MOV R5,#03HMOV R4,#05HACALL CHANGEMOV R5,#04HMOV R4,#04HACALL CHANGEMOV R5,#05HMOV R4,#02HACALL CHANGEMOV R5,#06HMOV R4,#00HACALL CHANGEMOV R5,#07HMOV R4,#01HACALL CHANGEMOV R5,#08HMOV R4,#03HACALL CHANGERETk4:MOV R5,#04HMOV R4,#05HACALL CHANGEMOV R5,#05HMOV R4,#04HACALL CHANGEMOV R5,#06HMOV R4,#02HACALL CHANGEMOV R5,#07HMOV R4,#00HACALL CHANGEMOV R5,#08HMOV R4,#01HACALL CHANGEMOV R5,#09HMOV R4,#03HACALL CHANGERET;**************************************************************************** ;子程序调用;**************************************************************************** ; 初始化子程序CH451_INIT:CLR CH451_DIN ;先低后高,输出上升沿通知CH451 选择4 线串行接口SETB CH451_DCLK ;置为默认的高电平SETB CH451_DINSETB CH451_LOADSETB CH451_DOUT ;置为输入CLR IT0 ;置外部信号为低电平触发SETB PX0 ;置高优先级或者低优先级CLR IE0 ;清中断标志SETB EX0 ;允许键盘中断MOV B,#04H ;设置为键盘与显示开MOV A,#03HACALL CH451_WRITERET;**************************************************************************** ;数码管显示程序;**************************************************************************** ;转换程序，在R4位显示R5值CHANGE:MOV A,R5ACALL TTA ;对应M2t1板的数码管转换MOV R2,AMOV A,R4ACALL TTB ;对应m2t1板的数码管位置转换MOV B,AMOV A,R2ACALL CH451_WRITERET;M2T1板数码管对应表TTA: MOV DPTR,#TAB_AMOVC A,@A+DPTRRET;对应m2t1板的数码管位置转换TTB: MOV DPTR,#TAB_BMOVC A,@A+DPTRRETTAB_A:DB 07EH;0DB 006H ;1DB 0BCH;2DB 09EH;3DB 0C6H ;4DB 0DAH;5DB 0FAH;6DB 04EH;7DB 0FEH;8DB 0DEH;9DB 0eeH;10(a)DB 0f2H ;11BDB 090H ;12=DB 080H;13-DB 0DBH;14SDB 07FH;15bDB 78H ;16cDB 00H;17dDB 40H ;12H - 号TAB_B:DB 0AH;0 显示数码管号DB 09H;1DB 0BH;2DB 08H;3DB 0CH;4DB 0DH;5DB 0EH;6DB 0FH;7;**************************************************************************** ;键盘扫描程序;**************************************************************************** SCAN1:MOV C,CH451_DOUTJC SCAN1ACALL CH451_READMOV R1,AC0: CJNE R1,#40H,C1ACALL k1AJMP TESC1: CJNE R1,#41H,C2ACALL k2AJMP TESC2: CJNE R1,#42H,C3ACALL k3AJMP TESC3: CJNE R1,#43H,SCAN1;C4ACALL k4AJMP TES/*C4: CJNE A,#48H,C5MOV R5,#04HAJMP TESC5: CJNE A,#4BH,C6MOV R5,#05HAJMP TESC6: CJNE A,#49H,C7MOV R5,#06HAJMP TESC7: CJNE A,#4AH,SCAN1MOV R5,#07HAJMP TES */TES:RET;**************************************************************************** ;移位程序;**************************************************************************** ;DELAY_1S 延迟1秒DELAY_1S:MOV R7,#20DEL1:MOV R6,#200DEL2:MOV R3,#248DJNZ R3,$DJNZ R6,DEL2DJNZ R7,DEL1RET ;左四位左移位/*LIFT:MOV B,#03HMOV A,#00HACALL CH451_WRITEINC R5ACALL CHANGEACALL DELAY_1SCJNE R5,#09H,LIFTSJMP STARTRET*/;**************************************************************************** ;串口通信读出写入程序;**************************************************************************** CH451_WRITE:CLR EX0 ;禁止键盘中断CLR CH451_LOAD ;命令开始,此命令可以放在后面MOV R7,#08H ;将ACC 中8 位送出CH451_WRITE_8:RRC A ;低位在前,高位在后CLR CH451_DCLKMOV CH451_DIN,C ;送出一位数据SETB CH451_DCLK ;产生时钟上升沿通知CH451 输入位数据DJNZ R7,CH451_WRITE_8 ;位数据未完继续MOV A,BMOV R7,#04H ;将B 中4 位送出CH451_WRITE_4:RRC A ;低位在前,高位在后CLR CH451_DCLKMOV CH451_DIN,C ;送出一位数据SETB CH451_DCLK ;产生时钟上升沿通知CH451 输入位数据DJNZ R7,CH451_WRITE_4 ;位数据未完继续SETB CH451_LOAD ;产生加载上升沿通知CH451 处理命令数据SETB EX0 ;允许键盘中断RET; 输入键值子程序CH451_READ: CLR EX0 ;禁止键盘中断CLR CH451_LOAD ;命令开始MOV A,#07H ;读取键值命令的高4 位0111BMOV R7,#04H ;忽略12 位命令的低8 位CH451_READ_4: RRC A ;低位在前,高位在后CLR CH451_DCLKMOV CH451_DIN,C ;送出一位数据SETB CH451_DCLK ;产生时钟上升沿锁通知CH451 输入位数据DJNZ R7,CH451_READ_4 ;位数据未完继续SETB CH451_LOAD ;产生加载上升沿通知CH451 处理命令数据CLR A ;先清除键值单元以便移位MOV R7,#07H ;读入7 位键值CH451_READ_7:MOV C,CH451_DOUT ;读入一位数据CLR CH451_DCLK ;产生时钟下升沿通知CH451 输出下一位RLC A ;数据移入ACC,高位在前,低位在后SETB CH451_DCLKDJNZ R7,CH451_READ_7 ;位数据未完继续CLR IE0 ;清中断标志,读操作过程中有低电平脉冲SETB EX0 ;允许键盘中断RETEND。