电子钟课程设计.doc

pa equ 8002h pb equ 8004h pcc equ 8001h ORG 0000H LJMP START ORG 001BH LJMP INT START:MOV R0,#71H MOV R1,#06H CLEAR:MOV R0,#00H ;清零 INC R0 DEC R1 DJNZ R1,CLEAR MOV 6DH,#00 MOV 6CH,#00 MOV 7DH,#00 ACALL MIAO MOV 7EH,#00 ACALL FEN MOV 7FH,#00 ACALL XIAOSHI INI8255:MOV DPTR ,#8003H ;8255初始化 MOV A,#81H MOVX DPTR,A INIT1:MOV TMOD ,#20H ;T1初始化 MOV TL1, #06H MOV TH1,#06H SETB TR1 SETB ET1 SETB EA LOOP1: LCALL DISPLAY LCALL YMY ;判断有无键按下 JZ LOOP1 MOV R1,#70H LCALL DD ;判断到底哪个键按下 CJNE A ,#0FH,LOOP1 CLR TR1 LOOP2: LCALL DIR LCALL YMY ;判断有无键按下 JZ LOOP2 LCALL DD ;判断到底哪个键按下，并写进存储单元 CJNE R1,#77H,LOOP ;最后一位有没有输入完 SETB TR1 LCALL ZH LJMP LOOP1 LOOP: LJMP LOOP2 INT: PUSH ACC ;中断子程序 PUSH PSW INC 6DH MOV A,6DH JNZ BJ INC 6CH BJ: MOV A,#0A0H CJNE A,6DH,RETURN MOV A,#0FH CJNE A,6CH,RETURN MOV 6DH,#00H MOV 6CH,#00H MOV A,#01H ADD A,7DH MOV 7DH,A ACALL MIAO MOV A,7DH CJNE A,#60,RETURN MOV 7DH,#0 ACALL MIAO INC 7EH ACALL FEN MOV A,7EH CJNE A,#60,RETURN MOV 7EH,#00H ACALL FEN INC 7FH ACALL XIAOSHI MOV A,7FH CJNE A,#24,RETURN MOV 7FH,#00H ACALL XIAOSHIRETURN: POP PSW POP ACC RETI MIAO: MOV A,7DH MOV B,#10 DIV AB MOV 75H, A MOV 76H,B RET FEN: MOV A,7EH MOV B,#10 DIV AB MOV 73H,A MOV 74H,B RETXIAOSHI: MOV A,7FH MOV B,#10 DIV AB MOV 71H,A MOV 72H,B RETZH: ;输入值转换并送入相应存储单元 MOV A, 75H MOV B,#10 MUL AB ADD A,76H MOV 7DH,A MOV A, 73H MOV B,#10 MUL AB ADD A,74H MOV 7EH,A MOV A, 71H MOV B,#10 MUL AB ADD A,72H MOV 7FH,A RETDISPLAY: MOV A,7DH ;显示子程序 MOV B,#10 DIV AB MOV 75H,A MOV 76H,B MOV A,7EH MOV B,#10 DIV AB MOV 73H,A MOV 74H,B MOV A,7FH MOV B,#10 DIV AB MOV 71H,A MOV 72H,B DIR: MOV R0,#76H MOV R2,#01H CLR C DIR1: MOV A,R2 MOV DPTR,#pa MOVX DPTR,A MOV A,R0 MOV DPTR,#TAB MOVC A,A+DPTR MOV DPTR, #pb MOVX DPTR,A ACALL DELAY DEC R0 MOV A,R2 RL A MOV R2,A CJNE R0,#70H,DIR1 RET TAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,40H YMY:MOV DPTR,#pa ;判断有无键按下子程序 MOV A,#00H MOVX DPTR ,A INC DPTR mov DPTR,#pcc MOVX A,DPTR CPL A ANL A,#0FH RETDD: MOV R2,#0DFH ;判断到底哪个键按下并送入相应单元子程序 MOV R5,#4 MOV R4,#00HLK4: MOV DPTR,#pa MOV A,R2 MOVX DPTR,A INC DPTR mov DPTR,#pcc MOVX A,DPTR JB ACC.0,LINE1 MOV A,#00H AJMP LKPLINE1: JB ACC.1,LINE2 MOV A,#04H AJMP LKPLINE2: JB ACC.2,LINE3 MOV A,#08H AJMP LKPLINE3: JB ACC.3,NEXT MOV A,#0CHLKP: ADD A,R4 ACALL KEYIN PUSH ACCLK3: ACALL YMY JNZ LK3 POP ACC RETNEXT: INC R4 MOV A,R2 RR A MOV R2,A DJNZ R5,LK4KEND: RETKEYIN: MOV DPTR,#KEYTAB MOVC A,A+DPTR MOV R1,A INC R1 RET DELAY: MOV R7,#02H DE: MOV R6,#0FFH DJNZ R6, $ DJNZ R7,DE RET KEYTAB: DB 00H,0FH,0EH,0DH DB 01H,02H,03H,0CH DB 04H,05H