资源描述：
《电子日历微机课程设计》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、stacksegmentstackdw64dup(?)stackendsclearscreenmacro;清屏宏pushaxpushbxpushcxpushdxmovah,6moval,0movbh,7;blanklinemovcx,0000h;upperleftrow+upperleftcolumn(0,0)movdx,184fh;lowerrightrow+lowerrightcolum(24,79)int10hpopdxpopcxpopbxpopaxendmshowlineMACROSTR,STA,LEN,POS,COL;显示字符串宏PUSHDXPU
2、SHBXPUSHAXMOVBP,OFFSETSTRADDBP,STAMOVDX,POSMOVCX,LENMOVBX,COLMOVAX,1301HINT10HPOPAXPOPBXPOPDXendmdatasegment;数据定义str1db'TIME'str2db'DATE'stringdb'TIMEDATE'timedb'00:00:00'datedb'0000-00-00'yeardw0mouthdb0daydb0hourdb0minutedb0seconddb0sbufdb'00'sbufydb'0000'flg1db0flg2db0flg3db0dp
3、db'year'dataendscodesegmentassumecs:code,ds:datastart:;mainprocfar;主函数movax,datamovds,axMOVes,axmovah,01hmovcx,2000hint10hcallgettime;调用系统时间callgetdate;调用系统日期function1:;功能一movflg1,0clearscreenshowlinestring,0,9,0a20h,0001h;功能一初始化显示showlinestr1,0,4,0a20h,0029hshowlinetime,0,8,0b20h
4、,0004hcallshowtimeallN11:callshowtimecallgetcharcmpal,'a'jneM11callsettimeM11:cmpal,'m'jneM12jmpfunction2M12:cmpal,'q'jegoescjmpN11function2:;功能二movflg1,3clearscreenshowlinestring,0,9,0a20h,0001h;功能二初始化显示showlinestr2,0,4,0a25h,0029hshowlinedate,0,10,0b20h,0004hcallshowdateallN22:c
5、allgetcharcmpal,'a'jneN2callsetdateN2:cmpal,'q'jegoesccmpal,'m'jneN22cmpal,'m'jefunction1goesc:movah,4ch;退出int21hgetcharprocnear;得到字符movah,07hint21hretgetcharendpgettimeprocnear;得系统时间movah,2chint21hmovhour,chmovminute,clmovsecond,dhretgettimeendpgetdateprocnear;得系统日期movah,2ahint21
6、hmovyear,cxmovmouth,dhmovday,dlretgetdateendpbcdchprocnear;db==>'00'未储存movbl,0ahmovah,00hdivbladdal,30haddah,30hretbcdchendpseconddelayprocnear;延时一秒pushaxpushbxpushdxmovah,00Hint1aHadddl,17movbl,dllop1:movah,00Hint1ahcmpdl,bljnzlop1popdxpopbxpopaxretseconddelayendpwaitfprocnear;61
7、h端口的延时子程序10mspushaxmovcx,6630waitf1:inal,61handal,10hcmpal,ahjewaitf1movah,alloopwaitf1popaxretwaitfendpshowtimeproc;时钟程序loop1:movah,01hint16hjnzloop2ti1:callseconddelay;延时一秒incsecondmoval,secondcallshowbufshowlinesbuf,0,2,0b26H,0004H;秒加cmpsecond,58jnaloop1movsecond,-1incminutemov
8、al,minutecallshowbufshowlinesbuf,
