资源描述:
《程序设计一栏》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、CONFIG12EQU7FHTEMPHEQU21HTEMPLEQU20HREG2EQU22HREG3EQU23HREG4EQU24HDATEQUP0.7SCLKEQUP3.2IOEQUP3.3RSTEQUP3.4yearDATA66HmonthDATA65HweekDATA64HdayDATA63HhourDATA62HmintueDATA61HsecondDATA60HORG0000HLJMPSTARTORG001BHLJMPINTT1START:;初值LCALLZJSETBEAMOVSCON,#00
2、H;串行输出,方式0MOVTMOD,#10H;计数器1,方式1MOVTL1,#00HMOVTH1,#00HMOV32H,#8EHMOV31H,#00H;允许写1302LCALLWRITEMOV32H,#90HMOV31H,#0A6H;1302充电,充电电流1.1MALCALLWRITE;主程序~~~~~~~~~~~~~~~~~~~~~MAIN1:MOV32H,#8DH;读出年LCALLREADMOVyear,31HMOV32H,#8BH;读出星期LCALLREADMOVweek,31HMOV32H,#8
3、9H;读出月LCALLREADMOVmonth,31H26MOV32H,#87H;读出日LCALLREADMOVday,31HMOV32H,#85H;读出小时LCALLREADMOVhour,31HMOV32H,#83H;读出分钟LCALLREADMOVmintue,31HMOV32H,#81H;读出秒LCALLREADMOVsecond,31H;~~~~~~~~~~~~分离缓存~~~~~~~~MOVR0,year;年分离,送显示缓存LCALLDIVIDEMOV7BH,R1MOV4BH,R1MOV7CH
4、,R2MOV4CH,R2MOV78H,weekMOV48H,weekMOVR0,month;月分离,送显示缓存LCALLDIVIDEMOV79H,R1MOV49H,R1MOV7AH,R2MOV4AH,R2MOVR0,day;日分离,送显示缓存LCALLDIVIDEMOV76H,R1MOV46H,R1MOV77H,R2MOV47H,R2MOVR0,hour;小时分离,送显示缓存LCALLDIVIDEMOV74H,R1MOV44H,R1MOV75H,R2MOV45H,R2MOVR0,mintue;分钟分离,
5、送显示缓存LCALLDIVIDEMOV72H,R1MOV42H,R1MOV73H,R226MOV43H,R2MOVR0,second;秒分离,送显示缓存LCALLDIVIDEMOV70H,R1MOV40H,R1MOV71H,R2MOV41H,R2CLREALCALLTOUTOUSETBEALCALLDISPLAYLCALLGENGXIAN;更新农历程序JNBP0.1,SETG111JNBF0,SSSsetbP0.4;非闰月,则p0.4清零,指示灯亮LJMPMAIN1SETG111:LJMPSETGSSS
6、:clrP0.4;闰月,则p0.4置位,指示灯不亮LJMPMAIN1;~~~~~~~~~~~~~~温度TOUTOU:LCALLCHUSHILCALLRDTEMPMOVA,TEMPLANLA,#11110000BMOVTEMPL,AMOVA,TEMPHANLA,#00000111BORLA,TEMPLSWAPAMOV25H,AMOVA,25HMOVB,#64HDIVABMOVA,BMOVB,#0AHDIVABSWAPAORLA,BMOV10H,ARETCHUSHI:LCALLRESETMOVA,#0CCH
7、LCALLWRITE111MOVA,#4EH26LCALLWRITE111MOVA,#CONFIG12LCALLWRITE111RETRDTEMP:LCALLRESETMOVA,#0CCHLCALLWRITE111MOVA,#44HLCALLWRITE111LCALLDL1MSLCALLRESETMOVA,#0CCHLCALLWRITE111MOVA,#0BEHLCALLWRITE111LCALLERAD111MOVTEMPL,ALCALLERAD111MOVTEMPH,ARETRESET:LA:SET
8、BDATMOV52H,#200LB:CLRDATDJNZ52H,LBSETBDATMOV52H,#30LC:DJNZ52H,LCCLRCORLC,DATJCLBMOV58H,#80LD:ORLC,DATJCLPDJNZ58H,LDSJMPLALP:MOV52H,#250LF:DJNZ52H,LFRETWRITE111:MOV53H,#826W51HA:SETBDATMOV54H,#8RRCACLRDATW52HA:DJNZ54H,W52HA