求AT89S52单片机程序

我这是C语言版 我自己编的，测试通过 其易懂
#include
#include
#define uchar unsigned char
#define uint unsigned int
sbit beep=P1^7;
bit sd,ds,dscz;
uchar count,sheding,dingshi;
uchar bdata sdyw; //可位寻址存储器设定
sbit sdyw_0=sdyw^0;
sbit sdyw_1=sdyw^1;
sbit sdyw_2=sdyw^2;
sbit sdyw_3=sdyw^3;
sbit sdyw_4=sdyw^4;
sbit sdyw_5=sdyw^5;
uchar bdata dsyw; //可位寻址存储器设定
sbit dsyw_0=dsyw^0;
sbit dsyw_1=dsyw^1;
sbit dsyw_2=dsyw^2;
sbit dsyw_3=dsyw^3;
sbit dsyw_4=dsyw^4;
sbit dsyw_5=dsyw^5;

uchar dismiaoshi,dismiao,disfen,disfenshi,disshi,disshishi; // 时钟显示用
uchar dsmiao,dsmiaoshi,dsdisfen,dsdisfenshi,dsdisshi,dsdisshishi ; // 定时显示用

delay(uint);//延时子函数声明
sbit rs=P1^0; sbit lcden=P1^2; sbit rw=P1^1;//与1602接口引脚
uchar table1[]="0123456789";
writecom(uchar com) //写指令子函数
{
P0=com;
rs=0;
lcden=0;delay(10);
lcden=1;delay(10);
lcden=0;
}
writedate(uchar date) //写数据子函数
{
P0=date;rs=1;
lcden=0;delay(10);
lcden=1;delay(10);
lcden=0;
}

void init() //初始化
{

writecom(0x38);delay(20); //子函数前面先写出来，下面才能掉用
writecom(0x0c);delay(20);
writecom(0x06);delay(20);
}

void main()
{
rw=0;//写允许
P2_4=0;//键盘用
init(); // 这里不能要“void”

EA=1;ET1=1;TMOD=0x10;
TH1=(65536-46200)/256;
TL1=(65536-46200)%256;
TR1=1;
writecom(0x84);delay(10);writedate(':');//这里不能用双引号
writecom(0x87);delay(10);writedate(':');
while(1)
{
if(ds==0) //若进入定时程序，这里不显，去显定时值，但时分秒数据在走
{writecom(0x89);delay(10); //计时写入1602程序
writedate(table1[dismiao]);
writecom(0x88);delay(10);
writedate(table1[dismiaoshi]);
writecom(0x86);delay(10);
writedate(table1[disfen]);
writecom(0x85);delay(10);
writedate(table1[disfenshi]);
writecom(0x83);delay(10);
writedate(table1[disshi]);
writecom(0x82);delay(10);
writedate(table1[disshishi]);
}

if(P2_3==0&P2_0==1)//定时判断
{ dingshi++;
delay(50000);
}

if(P2_0==0&P2_3==1) //设定判断
{
sheding++;
delay(50000);
}

if(sheding==3) //设定判断成功
{ sheding=0;
P1_7=0;EA=0;
delay(35530);P1_7=1;//
sd=1;
sdyw=1; //设定移位赋初值要在这里赋，若在if(ds==1) 里赋sdyw=1; 总是被执行，这里不要用sdyw_0=1;因为这样其他位不一定为0；
}

if(P2_0==1&sheding!=4) {sheding=0;} //若P2.0松开后不等于4,sheding要清0，
if(P2_3==1&dingshi!=3) {dingshi=0;} //若P2.3松开后不等于3,dingshi要清0，

if(dingshi==3) //定时判断成功
{dingshi=0;ds=1;P1_7=0;delay(30000); P1_7=1; dsyw=1; }// 定时标志置1，dsyw=0;dsyw_0=1; 很重要主要让移位有规律
if(ds==1)//进入定时程序
{
dscz=1;
if(P2_1==0) //定时移位
{
P1_7=0;
dsyw=_crol_(dsyw,1);
delay(20000); // 这里delay(20000);可以防抖
P1_7=1;
}
if(dsyw_4==1){dsyw=1;}//这里不要写dsyw_0=1;否则下次移位 dsyw_5=1;
dsmiao=0;dsmiaoshi=0;
if(P2_2==0&dsyw_0==1){dsdisfen++;if(dsdisfen==10){dsdisfen=0;}delay(20000);}
if(P2_2==0&dsyw_1==1){dsdisfenshi++;if(dsdisfenshi==6){dsdisfenshi=0;}delay(20000);}
if(P2_2==0&dsyw_2==1){dsdisshi++;if(dsdisshi==10){dsdisshi=0;}delay(20000);}
if(P2_2==0&dsyw_3==1){dsdisshishi++;if(dsdisshishi==3){dsdisshishi=0;}delay(20000);}
if(dsdisshishi==2&dsdisshi>3){dsdisshishi=0;dsdisshi=0;}
writecom(0x89);delay(10); //定时写入1602程序
writedate(table1[dsmiao]);
writecom(0x88);delay(10);
writedate(table1[dsmiaoshi]);
writecom(0x86);delay(10);
writedate(table1[dsdisfen]);
writecom(0x85);delay(10);
writedate(table1[dsdisfenshi]);
writecom(0x83);delay(10);
writedate(table1[dsdisshi]);
writecom(0x82);delay(10);
writedate(table1[dsdisshishi]);

if(P2_3==0)
{P1_7=0;
delay(5000);P1_7=1;ds=0;
}
}//定时退出

if(sd==1)//设定程序开始
{
if(P2_1==0) //设定移位
{
P1_7=0;
sdyw=_crol_(sdyw,1);
delay(20000) ; // 这里delay(20000);可以防抖
P1_7=1;
if(sdyw_4==1){sdyw=1;}//这里最好不要用sdyw_0=1;这样当sdyw_4=1时再移一位就成sdyw_0=1;sdyw_5也等于1
}
if(P2_2==0&sdyw_0==1){disfen++;if(disfen==10){disfen=0;}delay(20000);} //以下为设定用
if(P2_2==0&sdyw_1==1){disfenshi++;if(disfenshi==6){disfenshi=0;}delay(20000);}
if(P2_2==0&sdyw_2==1){disshi++;if(disshi==10){disshi=0;}delay(20000);}
if(P2_2==0&sdyw_3==1){disshishi++;if(disshishi==3){disshishi=0;}delay(20000);}
if(disshishi==2&disshi==4){disshishi=0;disshi=0;}
writecom(0x89);delay(10); //设定写入1602
writedate(table1[dismiao]);
writecom(0x88);delay(10);
writedate(table1[dismiaoshi]);
writecom(0x86);delay(10);
writedate(table1[disfen]);
writecom(0x85);delay(10);
writedate(table1[disfenshi]);
writecom(0x83);delay(10);
writedate(table1[disshi]);
writecom(0x82);delay(10);
writedate(table1[disshishi]); //设定写入程序到此

if(P2_0==0) //设定好按P0.0退出
{
EA=1;sd=0;
P1_7=0;
delay(5000);P1_7=1;
}
} //退出设定程序
if(dscz==1&ds==0)
{
if(disshi==dsdisshi&disshishi==dsdisshishi&disfen==dsdisfen&disfenshi==dsdisfenshi) //定时时间到
{P1_7=!P1_7;delay(30000);P1_7=!P1_7;delay(30000);}
}
}

}

void time() interrupt 3 //中断服务
{
TH1=(65536-46050)/256;
TL1=(65536-46050)%256;
count++;
if(count==20) //时分秒计算，放在这里计时准，直接中断控制，在while(1)里计时受其他程序影响

{
count=0;
dismiao++;
if(dismiao==10){dismiaoshi++;dismiao=0;} //dismiao,disfen,disshi,等这些数据在退出while(1)函数后再回来都会变为0，
if(dismiaoshi==6){dismiaoshi=0;disfen++;}
if(disfen==10){disfen=0;disfenshi++;}
if(disfenshi==6){disfenshi=0;disshi++;}
if(disshi==10){disshi=0;disshishi++;}
if(disshishi==2&disshi==4){disshishi=0;disshi=0;}
} //if(count==19)循环到此
}

delay(uint x )//延时子函数
{
uint a;
for(a=x;a>0;a--);
}

;----------------------------------------------------------
;文件名称：SZ01.ASM
;程序功能：时钟
;----------------------------------------------------------

;－－－－－ ――― 程序初始化 ――――――――――
; 定义存放计时单元地址

BUF EQU 30H ;30～33H 连续4字节存放显示器数据
HOUR EQU 34H ;存放小时变量
MIN EQU 35H ;存放分钟变量
SEC EQU 36H ;存放秒钟变量
DEDA EQU 37H ;存放5 ms 计数值

;按键输入引脚定义
K1 EQU P2.4 ;按键1引脚定义
K2 EQU P2.5 ;按键2引脚定义
K3 EQU P2.6 ;按键3引脚定义
K4 EQU P2.7 ;按键4引脚定义

;压电喇叭和指示灯引脚定义
SPK EQU P3.4 ;压电喇叭控制信号
WLED EQU P1.0 ;工作指示灯引脚定义

;程序开始执行地址
ORG 0H ;程序代码由地址0开始执行
JMP MAIN
ORG 0BH ;定时器 0 中断地址设置
JMP TO_SRV

;－－－－－－－－－ 主 程 序 －－－－－－－－――

MAIN: ;开始

ACALL BZ ;压电喇叭连续两次鸣响一声
ACALL BZ
ACALL LED_BL ;LED 闪动，表示程序开始执行
ACALL INIT ;初始变化量
ACALL INIT_TIMER ;设置定时器

;加载显示器初值数据
MOV A, #0C0H
MOV P0, A

;无穷循环
LOOP: ;无穷循环
ACALL CONV ;转换 时时 分分 数据
ACALL DISP ;扫描显示

JB K1, M1 ;未按下K1键则继续扫描
ACALL LED_BL ;LED闪动
ACALL SET_TIME ;设置目前时间
JMP LOOP ;继续循环执行

M1:JB K2,M2 ;未按下K2键则继续扫描
JMP LOOP ;继续循环执行

M2:JB K3, M3 ;未按下K3键则继续扫描
JMP LOOP ;继续循环执行

M3:JB K4,M4 ;未按下K4键则继续扫描
JMP LOOP ;继续循环执行

M4:
JMP LOOP ;继续循环执行

;－－－－－ 实现走时功能的子程序 －－－－－－――

;使用定时器0模式0计时
INIT_TIMER: ;初始化定时器，使用定时器0模式1计时
MOV TMOD,#00000000B ;设置定时器0工作模式为0
MOV IE, #10000010B ;启用定时器0中断产生
MOV TL0, #(8192-5000)MOD 32 ;加载低字节
MOV TH0, #(8192-5000)/32 ;加载高字节
SETB TR0 ;启动定时器0开始计时
RET
;－－－－－－－－－－－―――
;中断服务程序
TO_SRV: ;定时器0计时中断程序每隔5ms中断一次
PUSH ACC ;将累加器放入堆栈
MOV TL0, #(8192-5000)MOD 32 ;加载低字节
MOV TH0, #(8192-5000)/32 ;加载高字节
INC DEDA ;5ms计数值加1
;秒输出
MOV A, DEDA
CJNE A,#200,TT1 ;是否1s到了
MOV DEDA, #0 ;计数值清除为0
CPL WLED ;LED灯亮灭变换
INC SEC ;秒计数加1
MOV A, SEC
CJNE A, #60, TT1;是否1min到了
;分输出
INC MIN ;分计数加1
MOV SEC, #0 ;秒计数清除为0
MOV A, MIN
CJNE A, #60, TT1 ;是否1h到了
;时输出
INC HOUR ;小时计数加1
MOV MIN, #0 ;分计数清除为0
MOV A, HOUR
CJNE A,#24, TT1 ;是否24h到了
MOV SEC, #0 ;秒钟变量清除为0
MOV MIN, #0 ;分钟变量清除为0
MOV HOUR, #0 ;小时变量清除为0
TT1:
POP ACC ;将累加器由堆栈取出
RETI

;－－－－―― 实现显示功能的子程序 －－－――――

;转换 时时：分分 数据
CONV:
;转换小时数据
MOV A, HOUR
MOV B, #10
DIV AB
MOV DPTR,#TABLE ;查表转换
MOVC A, @A+DPTR
MOV BUF, A
MOV A, B
MOVC A, @A+DPTR
MOV BUF+1, A
;转换分钟数据
MOV A, MIN
MOV B, #10
DIV AB
MOV DPTR,#TABLE ;查表转换
MOVC A, @A+DPTR
MOV BUF+2, A
MOV A, B
MOVC A, @A+DPTR
MOV BUF+3, A
RET

;字型数据编码表
TABLE:
DB 0C0H,0F9H,0A4H,0B0H
DB 99H,92H,82H,0F8H
DB 80H,90H,88H,83H
DB 0C6H,0A1H,86H,8EH

;－－－－－－－－－――――
;扫描显示
DISP:
MOV R0, #BUF ;指向显示器显示缓冲区起始地址
MOV R2, #4 ;循环执行4次
MOV ACC, #11110111b;加载扫描信号初值11110111B
S1:
PUSH ACC
MOV A, @R0 ;取出显示器数据
MOV P0, A ;由P0送出一位显示器数据
POP ACC
MOV P2, ACC ;由P2送出扫描输出信号
MOV R5, #2 ;延迟一会儿
ACALL DELAY
;改变扫描码 EX:XXXX1011
RR A ;累加器向右移动一位
INC R0 ;显示器显示缓冲区地址加1
DJNZ R2, S1 ;循环判断是否继续执行
RET

;－－－―― 实现调整时间子程序 ――――――

;设置目前时间
SET_TIME:
CLR TR0 ;定时器动作暂停
MOV SEC, #0 ;秒钟变量清除为0
L0:
ACALL DISP ;扫描显示

JB K2, L1 ;未按下K2键则继续扫描
JNB K2, $ ;有按下则等待放开来
;K2小时调整
INC HOUR ;小时计数加1
MOV A, HOUR
CJNE A,#24, L11 ;是否24H到了
MOV HOUR, #0 ;小时变量清除为0
L11:
ACALL CONV ;转换显示数据
ACALL DISP ;扫描显示
JMP L0 ;继续程序执行

L1:JB K3, L2 ;未按下K3键则继续扫描
JNB K3,$ ;有按下则等待放开来
;K3分钟调整.
INC MIN ;分钟计数加1
MOV A, MIN
CJNE A,#60, L21 ;是否60 min到了
MOV MIN, #0 ;分钟变量清除为0
L21:
ACALL CONV ;转换显示数据
ACALL DISP ;扫描显示
JMP L0 ;继续程序执行

L2: JB K4,L0 ;未按下K4键则继续扫描
JNB K4, $ ;有按下则等待放开来
ACALL BZ ;压电喇叭鸣响一声
;K4设置完成
ACALL LED_BL ;LED闪动
SETB TR0 ;启动定时器
RET

;－－－－―喇叭和指示灯等其它子程序 －－－－――

;计时单元清零
INIT:
MOV DEDA, #0 ;5ms计数值清除为0
MOV SEC, #0 ;秒钟变量清除为0
MOV MIN, #0 ;分钟变量清除为0
MOV HOUR, #0 ;小时变量清除为0
RET
;―――――――――――――
;压电喇叭
BZ: ;压电喇叭鸣响一声
MOV R6, #250
B1: ACALL DEX
CPL SPK
DJNZ R6,B1
MOV R5, #50 ;#10
ACALL DELAY
RET

;－－－－－－－－－－―――
;工作指示
LED_BL: ;工作指示灯闪烁
MOV R4,#6
LE1:CPL WLED ;位反向
MOV R5,#25 ;#5
ACALL DELAY
DJNZ R4, LE1 ;延迟50ms
RET
;－－－－－－－－－－―――
;延时子程序
DELAY: ;;总延迟时间 R5* 2ms
MOV R6,#10 ;#50
D1:MOV R7,#100
DJNZ R7,$
DJNZ R6,D1
DJNZ R5,DELAY
RET
;－－－－－－－－－－―――
; 压电喇叭短暂延时子程序
DEX: MOV R7,#180 ;短暂延时
DE1: NOP
DJNZ R7, DE1
RET
;－－－－－－－－－－―――

END

呵呵 还是找个熟人帮你做吧 或者花点钱让别人帮你做 这个要用汇编程序写出来估计头比屁股还大