按键控制数码管显示实验程序.docVIP

;---------------------------------------------------------------------------------------------------------------------------------------- ;文件名：CAT24C02 ;功能: 演示CAT24C02的I2C读写 ;日期: 2009-9-28 ;---------------------------------------------------------------------------------------------------------------------------------------- LE1 BIT P1.2 LE2 BIT P1.3 ROW DATA 30H COLUMN DATA 31H ORG 0000H AJMP MAIN ORG 0080H MAIN: LCALL KEYSCAN MOV A,R7 JZ MAIN LCALL DISPLAY JMP MAIN ;---------------------------------------------------------------------------------------------------------------------------------------- ;函数名：DISPLAY ;输出参数: R7 ;---------------------------------------------------------------------------------------------------------------------------------------- DISPLAY: K1: CJNE R7,#0x11,K2 MOV R0,#0x80 MOV R1,#0xC0 LCALL SEND JMP DISPLAY_OVER K2: CJNE R7,#0x21,K3 MOV R0,#0x40 MOV R1,#0xf9 LCALL SEND JMP DISPLAY_OVER K3: CJNE R7,#0x41,K4 MOV R0,#0x20 MOV R1,#0xa4 LCALL SEND JMP DISPLAY_OVER K4: CJNE R7,#0x81,K5 MOV R0,#0x10 MOV R1,#0xB0 LCALL SEND JMP DISPLAY_OVER K5: CJNE R7,#0x12,K6 MOV R0,#0x08 MOV R1,#0x99 LCALL SEND JMP DISPLAY_OVER K6: CJNE R7,#0x22,K7 MOV R0,#0x04 MOV R1,#0x92 LCALL SEND JMP DISPLAY_OVER K7: CJNE R7,#0x42,K8 MOV R0,#0x02 MOV R1,#0x82 LCALL SEND JMP DISPLAY_OVER K8: CJNE R7,#0x82,K9 MOV R0,#0x01 MOV R1,#0xf8 LCALL SEND JMP DISPLAY_OVER K9: CJNE R7,#0x14,K10 MOV R0,#0x80 MOV R1,#0x80 LCALL SEND JMP DISPLAY_OVER K10: CJNE R7,#0x24,K11 MOV R0,#0x40 MOV R1,#0x90 LCALL SEND JMP DISPLAY_OVER K11: CJNE R7,#0x44,K12 MOV R0,#0x20 MOV R1,#0x88 LCALL SEND JMP DISPLAY_OVER K12: CJNE R7,#0x84,K13 MOV R0,#0x10 MOV R1,#0x83 LCALL SEND JMP DISPLAY_OVER K13: CJNE R7,#0x18,K14 MOV R0,#0x08 MOV R1,#0xC6 LCALL SEND JMP DISPLAY_OVER K14: CJNE R7,#0x28,K15 MOV R0,#0x04 MOV R1,#0xA1 LCALL SEND JMP DISPLAY_OVER K15: CJNE R7,#0x48,K16 MOV R0,#0x02 MOV R1,#0x86 LCALL SEND JMP