one:74hc4514后接74hc138扩展单片机io口
原理图
原理图没有画完，只画了三个8255a，还有21个未画，未画的21个的接法与这三个类似，只有片选线的标号不一样。当然这里还有每片8255a的pa，pb，pc上的每个引脚与二极管之间的标号不一样。
主函数流程图
闪烁二极管子函数流程图
源程序清单
;设计任务：循环依次点亮二极管
;主要思想：通过DPTR加一实现端口切换，通过循环左移端口状态控制字实现引脚切换
;资源占用：片内ROM的 00H：复位入口；2CH：主函数入口。
;片内7FH,7EH,7DH被延时子程序DELAY1S占用
;R0存放状态控制字，控制端口的第几个引脚上的二极管被点亮
;第一片8255a的pa，pb，pc和控制寄存器的地址分别是0FE00H,0FE01H,0FE02H,0FE03H ;-----------这里需要修改
;最后一片8255a的pa，pb，pc和控制寄存器的地址分别是0FE5CH,0FE5DH,0FE5EH,0FE5FH ;-----------这里需要修改
ORG 00H ;复位入口
LJMP MAIN
ORG 2CH ;主函数入口
MAIN: MOV SP,#30H ;初始化堆栈
MOV R0,#0FEH ;初始化状态控制字
LCALL INITIAL8255A ;初始化8255a
LCALL DIODE ;循环闪烁二极管
;子函数INITIAL8255A的功能是初始化所有8255a
INITIAL8255A:
LCALL CONFIGURE8255A ;设置所有8255a
LCALL INITIAL8255APORT ;初始化所有8255a
RET
;子函数CONFIGURE8255A的功能是设置所有8255a
CONFIGURE8255A:
MOV DPTR,#0FE03H ;初始化子函数CONFIGURE8255A ;----------这里需要修改
CONFIGURENEXT8255A:
MOV A,#80H
MOVX @DPTR,A ;设置8255a
MOV A,DPL
CJNE A,#5FH,CONFIGURE8255ACONTINUE ;判断是否所有的8255a都被初始化了 ;----------这里需要修改
RET
CONFIGURE8255ACONTINUE:
LCALL NEXTCONTROLADDRESS ;取下一个控制寄存器的地址
LJMP CONFIGURENEXT8255A
;子函数NEXTCONTROLADDRESS的功能是初始化8255a的所有端口
NEXTCONTROLADDRESS:
MOV A,DPL
ADD A,#4H
MOV DPL,A ;DPTR加4后得到下一片8255a的控制寄存器的地址
RET
;子函数INITIAL8255A的功能是初始化8255a的所有端口
INITIAL8255APORT:
MOV DPTR,#0FE00H ;----------这里需要修改
INITIALNEXTPORT:
MOV A,#0FFH
MOVX @DPTR,A ;初始化端口
MOV A,DPL
CJNE A,#5EH,INITIAL8255APORTCONTINUE ;判断是否将所有端口都初始化了 ;----------这里需要修改
RET
INITIAL8255APORTCONTINUE:
LCALL NEXTPORT ;取下一个端口
LJMP INITIALNEXTPORT
;子函数NEXTPORT的功能是取下一个端口地址
NEXTPORT: MOV A,DPL
CJNE A,#5EH,NEXTPORTCONTINUE ;判断是否处于最后一个端口 ;----------这里需要修改
MOV DPTR,#0FE00H ;换为第一个端口 ;----------这里需要修改
RET
NEXTPORTCONTINUE:
INC DPL ;换为下一个端口
MOV A,DPL
JNB ACC.1,RETNEXTPORT
JNB ACC.0,RETNEXTPORT
INC DPL ;当dptr为控制寄存器地址时再加一，
RETNEXTPORT: RET
;子函数DIODE的功能是循环依次闪烁二极管
DIODE: MOV DPTR,#0FE00H ;初始化子函数DIODE ;----------这里需要修改
NEXTDIODE: MOV A,R0
MOVX @DPTR,A ;点亮二极管
LCALL DELAY1S ;延时一秒
MOV A,#0FFH
MOVX @DPTR,A ;熄灭二极管
LCALL DELAY1S ;延时一秒
LCALL NEXTSTATE ;取下一个状态
LJMP NEXTDIODE
;子函数NEXTSTATE的功能是取下一个状态（包括下一个状态的地址和控制字）
NEXTSTATE: CJNE R0,#7FH,NEXTSTATECONTINUE ;判断是否到了端口的最后一个引脚
LCALL NEXTPORT ;取下一个端口
NEXTSTATECONTINUE:
LCALL NEXTPIN ;取下一个控制字
RET
;子函数NEXTPIN的功能是取下一个状态
NEXTPIN: MOV A,R0
RL A
MOV R0,A ;循环依次闪烁二极管
RET
;子函数DELAY1S的功能是延时一秒
DELAY1S: MOV 7FH,#16
D1: MOV 7EH,#252
D2: MOV 7DH,#122
D3: DJNZ 7DH,D3
DJNZ 7EH,D2
DJNZ 7FH,D1
RET
END
点亮二极管时的情况
熄灭二极管时的情况
two:74hc138后接74hc138扩展单片机io口
原理图
流程图同上
源程序清单
;设计任务：循环依次点亮二极管
;主要思想：通过DPTR加一实现端口切换，通过循环左移端口状态控制字实现引脚切换
;资源占用：片内ROM的 00H：复位入口；2CH：主函数入口。
;片内7FH,7EH,7DH被延时子程序DELAY1S占用
;R0存放状态控制字，控制端口的第几个引脚上的二极管被点亮
;第一片8255a的pa，pb，pc和控制寄存器的地址分别是0FF00H,0FF01H,0FF02H,0FF03H ;-----------这里需要修改
;最后一片8255a的pa，pb，pc和控制寄存器的地址分别是0FF5CH,0FF5DH,0FF5EH,0FF5FH ;-----------这里需要修改
ORG 00H ;复位入口
LJMP MAIN
ORG 2CH ;主函数入口
MAIN: MOV SP,#30H ;初始化堆栈
MOV R0,#0FEH ;初始化状态控制字
LCALL INITIAL8255A ;初始化8255a
LCALL DIODE ;循环闪烁二极管
;子函数INITIAL8255A的功能是初始化所有8255a
INITIAL8255A:
LCALL CONFIGURE8255A ;设置所有8255a
LCALL INITIAL8255APORT ;初始化所有8255a
RET
;子函数CONFIGURE8255A的功能是设置所有8255a
CONFIGURE8255A:
MOV DPTR,#0FF03H ;初始化子函数CONFIGURE8255A ;----------这里需要修改
CONFIGURENEXT8255A:
MOV A,#80H
MOVX @DPTR,A ;设置8255a
MOV A,DPL
CJNE A,#5FH,CONFIGURE8255ACONTINUE ;判断是否所有的8255a都被初始化了 ;----------这里需要修改
RET
CONFIGURE8255ACONTINUE:
LCALL NEXTCONTROLADDRESS ;取下一个控制寄存器的地址
LJMP CONFIGURENEXT8255A
;子函数NEXTCONTROLADDRESS的功能是初始化8255a的所有端口
NEXTCONTROLADDRESS:
MOV A,DPL
ADD A,#4H
MOV DPL,A ;DPTR加4后得到下一片8255a的控制寄存器的地址
RET
;子函数INITIAL8255A的功能是初始化8255a的所有端口
INITIAL8255APORT:
MOV DPTR,#0FF00H ;----------这里需要修改
INITIALNEXTPORT:
MOV A,#0FFH
MOVX @DPTR,A ;初始化端口
MOV A,DPL
CJNE A,#5EH,INITIAL8255APORTCONTINUE ;判断是否将所有端口都初始化了 ;----------这里需要修改
RET
INITIAL8255APORTCONTINUE:
LCALL NEXTPORT ;取下一个端口
LJMP INITIALNEXTPORT
;子函数NEXTPORT的功能是取下一个端口地址
NEXTPORT: MOV A,DPL
CJNE A,#5EH,NEXTPORTCONTINUE ;判断是否处于最后一个端口 ;----------这里需要修改
MOV DPTR,#0FF00H ;换为第一个端口 ;----------这里需要修改
RET
NEXTPORTCONTINUE:
INC DPL ;换为下一个端口
MOV A,DPL
JNB ACC.1,RETNEXTPORT
JNB ACC.0,RETNEXTPORT
INC DPL ;当dptr为控制寄存器地址时再加一，
RETNEXTPORT: RET
;子函数DIODE的功能是循环依次闪烁二极管
DIODE: MOV DPTR,#0FF00H ;初始化子函数DIODE ;----------这里需要修改
NEXTDIODE: MOV A,R0
MOVX @DPTR,A ;点亮二极管
LCALL DELAY1S ;延时一秒
MOV A,#0FFH
MOVX @DPTR,A ;熄灭二极管
LCALL DELAY1S ;延时一秒
LCALL NEXTSTATE ;取下一个状态
LJMP NEXTDIODE
;子函数NEXTSTATE的功能是取下一个状态（包括下一个状态的地址和控制字）
NEXTSTATE: CJNE R0,#7FH,NEXTSTATECONTINUE ;判断是否到了端口的最后一个引脚
LCALL NEXTPORT ;取下一个端口
NEXTSTATECONTINUE:
LCALL NEXTPIN ;取下一个控制字
RET
;子函数NEXTPIN的功能是取下一个状态
NEXTPIN: MOV A,R0
RL A
MOV R0,A ;循环依次闪烁二极管
RET
;子函数DELAY1S的功能是延时一秒
DELAY1S: MOV 7FH,#16
D1: MOV 7EH,#252
D2: MOV 7DH,#122
D3: DJNZ 7DH,D3
DJNZ 7EH,D2
DJNZ 7FH,D1
RET
END
用proteus仿真时点亮二极管时的情况
在keil中仿真点亮时的情况
在keil中仿真熄灭时的情况
three：74hc139后接74hc138扩展单片机io口
原理图
流程图同上
源程序清单（只是在某些地方修改了一下地址）
;设计任务：循环依次点亮二极管
;主要思想：通过DPTR加一实现端口切换，通过循环左移端口状态控制字实现引脚切换
;资源占用：片内ROM的 00H：复位入口；2CH：主函数入口。
;片内7FH,7EH,7DH被延时子程序DELAY1S占用
;R0存放状态控制字，控制端口的第几个引脚上的二极管被点亮
;第一片8255a的pa，pb，pc和控制寄存器的地址分别是0FF80H,0FF81H,0FF82H,0FF83H ;-----------这里需要修改
;最后一片8255a的pa，pb，pc和控制寄存器的地址分别是0FFDCH,0FFDDH,0FFDEH,0FFDFH ;-----------这里需要修改
ORG 00H ;复位入口
LJMP MAIN
ORG 2CH ;主函数入口
MAIN: MOV SP,#30H ;初始化堆栈
MOV R0,#0FEH ;初始化状态控制字
LCALL INITIAL8255A ;初始化8255a
LCALL DIODE ;循环闪烁二极管
;子函数INITIAL8255A的功能是初始化所有8255a
INITIAL8255A:
LCALL CONFIGURE8255A ;设置所有8255a
LCALL INITIAL8255APORT ;初始化所有8255a
RET
;子函数CONFIGURE8255A的功能是设置所有8255a
CONFIGURE8255A:
MOV DPTR,#0FF83H ;初始化子函数CONFIGURE8255A ;----------这里需要修改
CONFIGURENEXT8255A:
MOV A,#80H
MOVX @DPTR,A ;设置8255a
MOV A,DPL
CJNE A,#0DFH,CONFIGURE8255ACONTINUE ;判断是否所有的8255a都被初始化了 ;----------这里需要修改
RET
CONFIGURE8255ACONTINUE:
LCALL NEXTCONTROLADDRESS ;取下一个控制寄存器的地址
LJMP CONFIGURENEXT8255A
;子函数NEXTCONTROLADDRESS的功能是初始化8255a的所有端口
NEXTCONTROLADDRESS:
MOV A,DPL
ADD A,#4H
MOV DPL,A ;DPTR加4后得到下一片8255a的控制寄存器的地址
RET
;子函数INITIAL8255A的功能是初始化8255a的所有端口
INITIAL8255APORT:
MOV DPTR,#0FF80H ;----------这里需要修改
INITIALNEXTPORT:
MOV A,#0FFH
MOVX @DPTR,A ;初始化端口
MOV A,DPL
CJNE A,#0DEH,INITIAL8255APORTCONTINUE ;判断是否将所有端口都初始化了 ;----------这里需要修改
RET
INITIAL8255APORTCONTINUE:
LCALL NEXTPORT ;取下一个端口
LJMP INITIALNEXTPORT
;子函数NEXTPORT的功能是取下一个端口地址
NEXTPORT: MOV A,DPL
CJNE A,#0DEH,NEXTPORTCONTINUE ;判断是否处于最后一个端口 ;----------这里需要修改
MOV DPTR,#0FF80H ;换为第一个端口 ;----------这里需要修改
RET
NEXTPORTCONTINUE:
INC DPL ;换为下一个端口
MOV A,DPL
JNB ACC.1,RETNEXTPORT
JNB ACC.0,RETNEXTPORT
INC DPL ;当dptr为控制寄存器地址时再加一，
RETNEXTPORT: RET
;子函数DIODE的功能是循环依次闪烁二极管
DIODE: MOV DPTR,#0FF80H ;初始化子函数DIODE ;----------这里需要修改
NEXTDIODE: MOV A,R0
MOVX @DPTR,A ;点亮二极管
LCALL DELAY1S ;延时一秒
MOV A,#0FFH
MOVX @DPTR,A ;熄灭二极管
LCALL DELAY1S ;延时一秒
LCALL NEXTSTATE ;取下一个状态
LJMP NEXTDIODE
;子函数NEXTSTATE的功能是取下一个状态（包括下一个状态的地址和控制字）
NEXTSTATE: CJNE R0,#7FH,NEXTSTATECONTINUE ;判断是否到了端口的最后一个引脚
LCALL NEXTPORT ;取下一个端口
NEXTSTATECONTINUE:
LCALL NEXTPIN ;取下一个控制字
RET
;子函数NEXTPIN的功能是取下一个状态
NEXTPIN: MOV A,R0
RL A
MOV R0,A ;循环依次闪烁二极管
RET
;子函数DELAY1S的功能是延时一秒
DELAY1S: MOV 7FH,#16
D1: MOV 7EH,#252
D2: MOV 7DH,#122
D3: DJNZ 7DH,D3
DJNZ 7EH,D2
DJNZ 7FH,D1
RET
END
在proteus中仿真 点亮二极管时的情况
keil中仿真 点亮二极管时的情况
|
