广工自动化单片机课件设计.docxVIP

自动化 学院 网络工程 专业 班 学号 姓名 程序一：在显示器上显示任意四位十六进制数：56AF ORG 0000H LJMP MAIN ORG 1000H MAIN: MOV 52H,#02H MOV 53H,#03H MOV 51H,#01H MOV 50H,#00H MOV R5,#53H KEYSUB: MOV A,#0DH MOV DPTR,#7F00H MOVX @DPTR,A BEGIN: ACALL DIS AJMP BEGIN DIS: PUSH ACC PUSH 00H PUSH 03H MOV R0,#50H MOV R3,#7FH MOV A,R3 AGAIN: MOV DPTR,#7F03H MOVX @DPTR,A MOV A,@R0 MOV DPTR,#DDEG MOV A,@A+DPTR MOV DPTR,#7F01H MOVX @DPTR,A ACALL DLIMS INC R0 MOV A,R3 JNB ACC.3,OUT RR A MOV R3,A AJMP AGAIN OUT: POP 03H POP 00H POP ACC RET DDEG: DB 79H,7CH,07H,5BH,6FH,7FH,77H,39H A1: MOV A,R3 MOV DPTR,#7F01H MOVX @DPTR,A MOV DPTR,#1000H MOV A,R2 MOVC A,@A+DPTR MOV DPTR,#7F02H MOVX @DPTR,A CALL DLIMS INC R2 MOV A,R3 RL A MOV R3,A JNB ACC.4,BEGIN JMP A1 DLIMS: MOV R7,#05H DL0: MOV R6,#0FFH DL1: DJNZ R6,DL1 DJNZ R7,DL0 RET END 2.程序二：将8个键按实验室要求定义键值，按任意键在显示器上显示对应键值，要求显示值能左移； 9 8 A C E B 7 2 ORG 0000H LJMP MAIN ORG 1000H MAIN: MOV 52H,#00H MOV 53H,#00H MOV 51H,#00H MOV 50H,#00H MOV R5,#53H KEYSUB: MOV A,#0DH MOV DPTR,#7F00H MOVX @DPTR,A BEGIN: ACALL DIS ACALL CLEAR ACALL CCSCAN JNZ INK1 AJMP BEGIN INK1: ACALL DIS ACALL DLIMS ACALL DLIMS ACALL CLEAR ACALL CCSCAN JNZ INK2 AJMP BEGIN INK2: MOV R2,#07fH MOV R4,#00H COLUM: MOV DPTR,#7F03H MOV A,R2 MOVX @DPTR,A INC DPTR INC DPTR MOVX A,@DPTR JB ACC.2,LONE MOV A,#00H AJMP KCODE LONE: JB ACC.6,NEXT MOV A,#04H KCODE: ADD A,R4 CJNE A,#00H,XYG MOV A,#09H AJMP XYG7 XYG: CJNE A,#01H,XYG1 MOV A,#08H AJMP XYG7 XYG1: CJNE A,#02H,XYG2 MOV A,#0AH AJMP XYG7 XYG2: CJNE A,#03H,XYG3 MOV A,#0CH AJMP XYG7 XYG3: CJNE A,#04H,XYG4 MOV A,#0EH AJMP XYG7 XYG4: CJNE A,#05H,XYG5 MOV A,#0BH AJMP XYG7 XYG5: CJNE A,#06H,XYG6 MOV A,#07H AJMP XYG7 XYG6: CJNE A,#07H,XYG7 MOV A,#02H AJMP XYG7 XYG7: ACALL PUTBUF PUSH ACC KON: ACALL DIS ACALL CLEAR ACALL CCSCAN