华科单片机实验程序.docxVIP

下面实验基本做出来的人比较少，然后也找不到，或者找到的基本都是错误代码, 自行上网查找，其余实验代码可以找得到，但尽量不要抄，弄懂原理，不然最后 实验考试会很惨。 实验一，实现定位数码管小数点闪烁 D_DAT0 EQU D_DAT1 EQU D_DAT2 EQU D_DAT3 EQU D_DAT4 EQU D_DAT5 EQU D_DAT6 EQU 6AH 6BH 6CH 6DH 6EH 6FH ;定义显示数据单元 70H ORG 0000H AJMP START ORG 0030H START: MOV SP,#3OH ；初始化堆栈指针 MOV R2，#0H MOV D_DAT0,#0 MOV D_DAT1,#1 MOV D_DAT2,#2 MOV D_DAT3,#3 MOV D_DAT4,#4 MOV D_DAT5,#5 ;初始化显示数据 MOV P0,#0 CLRP1」 ；初始化有关I/O 口 CLRP1.2 MOV R0,#D_DAT0 ;初始化显示指针寄存器 ；R0指向第一位显示数字 MOV Rl,#01H ;初始化需点亮数码管位置代码 NOP MAIN: LCALL DISP ;调用数码管循环点亮子程序 LCALL DELAY ;延时子程序同前，应修改延时长度 AJMP MAIN ;循环执行主程序 ?****************************************************** ;通过574显示6位数字子程序 ^1# ■ 平 rp 千 rp 于 ep 千 rp 千 rp 千千乎 rp 乎 rp 寻 rp 寻平寻平护平补平补平忖平怜平补于平于平于平珂?平 于小平 平 rJ* 平 ?沪平 rJ*吓? DISP: MOV A,RI ;取位代码 MOV P0,A ;位代码送P0 口 MOV A,R0 INC R2 SUBB A,#6DH JNZL MOV A,R2 RLCA JCL SETB Pl.2 NOP CLRP1.2 ;产生一个锁存脉冲，锁存位代码 MOV A,@R0 ;取需显示的数字 MOV DPTR,#DISPD ;装载笔画编码表首地址 MOVC A,@A+DPTR ;取需显示数字笔画代码 MOV P0,A ;笔画代码送到P0 口 CPL P0.7 SETB P1.1 NOP CLRPI」 ；产生一个锁存脉冲,锁存笔画代码 AJMP LL L: SETB P1.2 NOP CLRPI.2 ;产生一个锁存脉冲，锁存位代码 MOV A,@R0 ;取需显示的数字 MOV DPTR,#DISPD ;装载笔画编码表首地址 MOVC A,@A+DPTR ;取需显示数字笔画代码 MOV P0,A ；笔画代码送到P0 口 SETB P1.1 NOP CLRPI」 ；产生一个锁存脉冲,锁存笔画代码 LL: INC RO ;R0增1指向下一个需显示数字 MOV A,R1 CLRC RLCA MOV R1,A ;R1中的值左移1位，指向下一位数码管 CJNE R0,#70H,DISPl ;R0 中不为 70H 则继续 MOV R(),#D_DAT0 ;R0 中为 70H,循环完一轮 ；重新赋初值 MOV Rl,#l ;位置代码初值 DISP1: NOP RET ；数字笔画代码表 ;89 熄 DISPD: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,0 ?土 ?土 ?土 ?土 ?土 ?丄* ?丄* ?丄■ ?丄* ?丄* ?士 ?士 ?士 ?士 ?士 ?士 ?士 ? ;延时子程序 DELAY: MOV R7,#40H DELY1: MOV R6,#0FH DELY2: DJNZ R6,$;$代表当前行 ;与 DJNZ R6,DELY2 相同 DJNZ R7,DELY1 RET END 实验7 AD_ADDR EQU21H D_DATO EQU 60H D_DAT1 EQU D_DATO+1 D_DAT2 EQU D_DAT1+1 D_DAT3 EQU D_DAT2+1 D_DAT4 EQU D_DAT3+1 D_DAT5 EQU D_DAT4+1 ;定义显示数据单元 LIGHT EQU D_DAT5+1 H_DATO EQULTGHT+1 I1_DAT1 EQU I1_DATO+1 TIMCO EQU H_DAT1+1 TIMC1 EQUTIMCO+1 AD DATO EQUTIMC1+1 AD_DAT1 EQU AD_DATO+1 ORG 0000H AJMP START ORG OOOBH LJMP TIMO ORG OO1BH LJMP TIM1 ORG 0030H START: MOV SP, #30H PUSH PSW SETB R