单片机实验程序_免费下载.doc

键盘显示控制程序：ORG 0000H JMP MAIN MAIN: MOV P0,#0FFH MOV P1,#0FFH KEYDOWN:MOV P1,#0F0H LCALL DELAY MOV A,P1 CJNE A,#0F0H,KEYSCAN JMP KEYDOWN KEYSCAN:MOV A,#00H MOV P1,#0F0H MOV A,P1 CJNE A,#70H,N1 MOV R4,#03H JMP NEXT N1: CJNE A,#0B0H,N2 MOV R4,#02H JMP NEXT N2: CJNE A,#0D0H,N3 MOV R4,#01H JMP NEXT N3: CJNE A,#0E0H,NEXT MOV R4,#00H JMP NEXT NEXT: MOV P1,#00FH MOV A,P1CJNE A,#07H,N4MOV R3,#08H JMP NEXT N4: CJNE A,#0BH,N5 MOV R3,#04H JMP NEXTN5: CJNE A,#0DH,DISPLAY MOV R3,#00H JMP DISPLAY DISPLAY: MOV A,R4 ADD A,R3 MOV DPTR,#LEDTAB MOVC A,A+DPTR MOV P0,A LCALL DELAY LCALL DELAY MOV P0,#0FFH LJMP KEYDOWN LCALL DELAY DELAY:MOV R6,#25H DELAY1: MOV R1,#10LOOP: MOV R2,#250DJNZ R2,$ DJNZ R1,LOOPRET D2: MOV R7,#500 DJNZ R7,$ DJNZ R6,D2 RETLEDTAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,88H,83H ENDORG 0000H LJMP MAIN ORG 0100HMAIN:MOV SP,#78H MOV 78H,#00H MOV 79H,#00H MOV 7AH,#00H MOV 7BH,#00H MOV 7CH,#00H MOV 7DH,#00H MOV 7EH,#00HKEYI:ACALL KS1 CJNE A,#0F0H,LK1 ACALL DIR AJMP KEYI LK1:ACALL DIR ACALL DIR ACALL KS1 CJNE A, #0F0H,LK2 ACALL DIR AJMP KEYILK2: ACALL KS1 MOV R2,A ORL A,#0FH MOV P3,A MOV A,P3 ANL A,#0FH ADD A,R2 ;键特征值 CJNE A,#0EEH,JZHI1 MOV A,#00H PUSH 0E0HJZHI1: CJNE A,#0DEH,JZHI2 MOV A,#01H PUSH 0E0HJZHI2: CJNE A,#0BEH, JZHI3 MOV A,#02H PUSH 0E0HJZHI3: CJNE A,#7EH,JZHI4 MOV A,#03H PUSH 0E0HJZHI4: CJNE A, #0EDH, JZHI5 MOV A,#04H PUSH 0E0HJZHI5: CJNE A,#0DDH, JZHI6 MOV A, #05H PUSH 0E0HJZHI6: CJNE A,#0BDH, JZHI7 MOV A, #06H PUSH 0E0HJZHI7: CJNE A,#07DH, JZHI8 MOV A, #07H PUSH 0E0HJZHI8: CJNE A,#0EBH, JZHI9 MOV A, #08H PUSH 0E0HJZHI9:CJNE A,#0DBH, KEYI MOV A, #09H PUSH 0E0H LJMP KEYI DIR:MOV DPTR,#DEG MOV R0,#79H;数码管第一位 MOV R3,#0FEH;线选 LD1:CLR P2.7 CLR P2.6 MOV A,R0 MOVC A,A+DPTR MOV P0,A SETB P2.6 CLR P2.6 MOV P0,R3 SETB P2.7 LCALL DELY INC R0 MOV A,R3 JNB ACC.5,LD2 RL A MOV R3,A SJMP LD1 LD2:RET DEG:DB 3FH,06H,5BH,4FH,66H DB 6DH,7DH,07H,7FH,6FH DELY:MOV R7,#02H DL:MOV R6,#0FFH DL6:DJNZ R6,DL6 DJNZ R7,DL RETKS1:MOV P3,#0F0H MOV A,P3 ANL A, #0F0H RET ;键是否按下 END能实现：org 0000hljmp mainorg 0200hmain:init:MOV 60H,#10hMOV 61H,#10hMOV 62H,#10hMOV 63H,#10hwait:acall keyscan ;有键按下,转定按键位置扫描acall dispsjmp wait; p1.7p1.6p1.5p1.4 1110; | | | | R*4; p1.3 -/|-/|-/|-/|-|=|-vcc; p1.2 -/|-/|-/|-/|-|=|-vcc; p1.1 -/|-/|-/|-/|-|=|-vcc; p1.0 -/|-/|-/|-/|-|=|-vcc 1111; | | | |keyscan:mov R1,#0efh ;0efh,依次扫描p1.4,p1.5,p1.6列mov R2,#0 ; 列数ks_colum:mov P1,R1 ;nopnopmov A,P1 ;从p1口取得行信息orl a, #0f0hmov r3,#0 ;行数ks_row:rrc ajnc ks_wait_releaseinc r3cjne r3,#5,ks_rowks_this_colum_none: ; 该列无键按下mov A,R1 ; 扫描下一列rl Amov R1,Ainc r2cjne r2,#4,ks_columerror: clr A ; 所有列无键按下，返回0jmp ks_endks_wait_release:mov p1,#0fhmov a,p1orl a,#0f0hcpl ajnz ks_wait_releaseks_decode:mov a,r3rl aadd a,r3add a,r2 ;r3*3+r2add a,#1hset_disp_bit:mov r0,#63h ;放入显示缓冲mov r0,aks_end:ret; led显示部分disp:disp_number:push accMOV R0,#60H ;显示数码存放在0x600x63(BCD形式)MOV R3,#0feH ;把显示位码取到R3display_scan:MOV A,R0MOV R2,A ;把显示数码取到R2ACALL display_a_bitACALL delayMOV A,R3RL A ;下一位码MOV R3,AINC R0;下一显示数码CJNE R0,#64H,display_scanpop accret;*;r2=显示数据 r3=显示位（0feh,0fdh,0fbh,0f7h分别指第1,2,3,4位)led_digit1 equ 0fehled_digit2 equ 0fdhled_digit3 equ 0fbhled_digit4 equ 0f7hdisplay_a_bit:MOV DPTR,#tablenext:MOV A,R2MOVC A,A+DPTRMOV P0,A ;取段码:TABLE1+xMOV A,R3MOV P2,A ;输出位码RET;*delay:MOV R6,#04Hd1:MOV R7,#248DJNZ R7,$DJNZ R6,d1RET ;延迟 1us+4*(1us+2us*248+2us)+2us=1999us,约2ms;*; 8; p0.0p0.7-/-; | | | |; =a= = = =; f| | b | | | | | |; =g= |=| |=| |=|; e| | c | | | | | |; =d= oh = o = o = o; | | | |; p2.0-/-+-+-+; p0: ghfedcba; xxxxxxxx (请确认连接）,如共阴数码管:0000 0110,显示1.table: ; 0 1 2 3 4 5 6 7 8 9,共阴db 3fh,06h,5bh,4fh,66h;0-4 db 6dh,7dh,07h,7fh,6fh;5-9 db 77h,7ch,39h,5eh,86h;A,b,C,d,Edb 00h;关数码管end定时器，计数器ORG 00000HAJMP MAINORG 000BHAJMP T0ORG 0030HMAIN:MOV TMOD,#51H MOV TH0,#3CH MOV