单片机8051基础编程

51程序洞明库

http://www.programfan.com/blog/article.asp?id=19116

http://workingon.bokee.com/viewdiary.12218674.html

MCS-51单片机实用子程纳橘告序库伍早

http://blog.tom.com/fangqidong/article/416.html

/********************************

/* MCU: AT89S52

/* MCU-crystal: 12M

/* Version: 01

/* Last Updata: 2009-2-21

/* Author:

/* Description:

/* 使用定时器0,定时中断2ms一次对数码管显示扫描；

/* 三个位管要以扫描方式显示，使用共阳管，计灶首春数速度为1S；

/* 段A-H接到P0.1....7，位选为 P1.0,1,2；

/* 流水也以计数方式从200到250在P2口显示，低电平有效；

/****************************************************/

#include <reg52.h>

unsigned char code num_disp[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xd8,0x80,0x90}//共阳数字字形芹凯0到9

unsigned char code bit_sel[]={0xfb,0xfd,0xfe}//低电平有效数字个十百位选择

unsigned char buf[3]={0,0,2}//计算中的个十百位暂时存放处

unsigned char one,ten,second//个十位变量和流水灯显示3秒的时间变量

unsigned char rate//扫描速度，调整以适应显示效果

unsigned char stop=0, flag=1,flag1=0//隐耐闪烁3秒的标志位，用于主函数对中断的关断参数传递

unsigned int t,tt//2ms变量

unsigned char rate//与变量t同步，辅助赋值变

/**********主函数**********/

main(void)

{

TMOD=0X01

TH0=0xf8//定时2ms

TL0=0x30

ET0=1

EA=1

TR0=1

while(1)

{ if(stop==1)//判断stop信号,为1后便关闭定时器

{ TR0=0

ET0=0

EA=0

}

}

}

/*******************中断*******************/

void timer0() interrupt 1

{

TH0=0xf8//重新赋值定时2ms

TL0=0x30

if(flag==0)//定义用于判断计数是否到了250，若到了则不再计数，转向else执行流水灯闪烁任务

{

t++

if(t==500)

{ t=0

one++

P2=200+ten*10+one//在P2口的流水等，也是从200开始计数。

if(one==10)

{ one=0

ten++

if(ten==5)

{ flag=1//转向执行闪烁任务

}

}

}

}

else//flag已经==1；转向else执行流水灯闪烁任务

{ tt++

if(tt==500)

{ tt=0

second++

P2=~P2//流水灯全部以1S速度闪烁

if(second==3)stop=1//判断3秒时间到，关闭中断，停止闪烁，数码管熄灭

}

}

rate++

P0=0XFF//消隐

if(rate==3)rate=0

P0=num_disp[buf[rate]]

P1=bit_sel[rate]

buf[0]=one

buf[1]=ten

//因为百位没有变，所以不用赋值

}

ORG 0000H

AJMP START

ORG 0030H

START:MOV SP,#60H堆栈,本程序也可不团春要

MOV 30H,#56H 求5678H+1234H

MOV 31H,#78H

MOV 32H,#12H

MOV 33H,#34H

MOV A,31H

ADD A,33H

MOV R2,A低8位在R2

MOV A,30H

ADDC A,32H

MOV R1,A高8位在R1

MOV R3,#10H 30H至40H共10H个字节

MOV R0,#30H 间接寻塌没耐址模式起始地址为30H

CLR A

LOOP: MOV @R0,A

INC R0

DJNZ R3,LOOP

HERE: JMP HERE 结束原地循察液环

END

---