单片机原理及接口技术课后习题第9章 答案讲解(3)

12. 用P1和P3口作为输出口，设计一个5位的LED数码管显示系统，并在显示器上显示“HELLO”。

IC1VccREAIC3A0~A7P1B0B1B2B3B4B5B6B7COMCOMCOMCOMCOMCOMA0~A7P3+5VIC2B0~B7+5VRP1DIRG 74LS245a~dpa~dpa~dpa~dpa~dpa~dp80C51+5VDIRG 74LS245

图 9.9 题12接口电路图

接口电路图如图9.9所示，用2片74LS245提高接口的驱动能力，LED数码管为共阴型。程序如下：

SEG_OUT EQU P3 BIT_OUT EQU P1 ORG 0000H LJMP START ORG 0030H

//====================================

START: MOV SP,#60H

MOV 20H,#40H MOV 21H,#12H MOV 22H,#23H MOV R1,#30H MOV R0,#20H

//显示\对应字型表序号编码：40 12 23

CALL SPLIT INC R0 INC R1 CALL SPLIT INC R0 INC R1 CALL SPLIT ACALL DSPLY1 SJMP RED

RED:

//=================================== SPLIT: MOV A,@R0

ANL A,#0F0H SWAP A MOV @R1,A INC R1 MOV A,@R0 ANL A,#0FH MOV @R1,A RET

//=========================================== //6位显示

DSPLY1: MOV R0, #30H REDO: ACALL DISP MOV A, RL A

MOV R2, A

INC R0 ;修改显示缓冲区地址指针 XRL A, #10111111B JNZ REDO RET

;6位显示完否 ;返回 ;未完，继续显示

;显示缓冲区地址

;显示起始位置 ;显示1位

;计算下一个显示位置

MOV R2, #11111110B

R2

//==========================================

;显示一位子程序

#LED_SEG

A A

;字型码表首地址 ;取显示数据 ;求显示数据的字型码 ;输出字型码 ;取显示位置 ;显示

;稳定显示1ms

DISP: MOV DPTR, MOVC

MOV A, @R0 MOV SEG_OUT, MOV A, R2 MOV BIT_OUT, ACALL DL1MS

MOV A,#0FFH RET

;字型码表

MOV BIT_OUT,A

A, @A+DPTR

LED_SEG:

DB 76H ; H DB 79H ; E DB 38H ; L DB 3FH ; 0

序号：00 序号：01 序号：02 序号：03 序号：04

DB 00H ; BLANK

DL1MS: MOV R5,#200; DEL:

NOP NOP NOP

DJNZ R5,DEL RET END

12M时延时1ms

13. 一个显示电路如图9.60所示。请采用串行口方式0实现LED数码管的动态显示，在显示器上自左向右动态显示“654321”，每个字符保持时间为0.1s。

IC2IC1RXDTXDQAQBQCBQDAQEQFQGQHCLKCLR+5VIC4RP1+5V74LS244a~dpa~dpa~dpa~dpa~dpa~dpCOMMCS-51COMCOMCOMCOMCOMCBA74LS138P1.2P1.1P1.0IC3Y0Y1Y2Y3Y4Y5RP2Q1Q2Q3Q4Q5Q6G2AG2BG+5V+5V

图9.10 习题13原题电路图

ORG 0000H

LJMP START ORG 0030H

START: MOV SP,#60H

MOV 20H,#12H MOV 21H,#34H MOV 22H,#56H MOV R1,#30H MOV R0,#20H CALL SPLIT INC R0 INC R1 CALL SPLIT INC R0 INC R1

CALL SPLIT ACALL DISPLY

//分离BCD码 //显示数据

RED:

SJMP RED

//=================================== SPLIT: MOV A,@R0

ANL A,#0F0H SWAP A MOV @R1,A INC R1 MOV A,@R0 ANL A,#0FH MOV @R1,A RET

//================================ DISPLY: MOV R0, #30H MOV R2, #05H NEXT: ACALL DISP11 INC R0 DEC R2 RET ;显示1位子程序

DISP11: MOV A, @R0

;取显示数据 ;取显示数据的字型码 ;输出字型码

MOV DPTR, #SEG_TAB MOVC A, @A+DPTR MOV SBUF, A GOON: JBC TI, DPLY AJMP GOON DPLY: MOV A, R2 MOV P1, A MOV P1,#07H

RET

;字型码表

;输出显示位置 ;延时

;显示缓冲区首地址 ;显示位置，最右端1位

;显示

;修改显示缓冲区地址指针 ;计算下一位显示位置 ;6位显示完否？ ;显示完返回

CJNE R2, #0FFH, NEXT

ACALL DL100MS

SEG_TAB:DB 0C0H, 0F9H, 0A4H, 0B0H, 99H, 92H, 82H, 0F8H, 80H, 90H DB 88H, 83H, 0C6H, 0A1H, 86H, 8EH //==================================== DL1MS: MOV R5,#200; DEL:

NOP NOP NOP

DJNZ R5,DEL RET

12M时延时1ms

DL100MS:MOV R6,#100 DELX0: ACALL DL1MS

DJNZ R6,DELX0