东南大学信息学院微机实验报告九_第1页
东南大学信息学院微机实验报告九_第2页
东南大学信息学院微机实验报告九_第3页
免费预览已结束,剩余1页可下载查看

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、实验九一、实验目的1.熟悉系统功能调用INT 21H 的有关功能2.编写时钟程序二、实验任务1.执行时钟程序时,屏幕上显示提示符“:”,由键盘输入当前时、分、秒值,即XX:XX:XX,随即显示时间并不停地计时。2.当有键盘按下时,立即停止计时,返回DOS。三、源程序DATA SEGMENTBUFFER DB 11DB ?DB 10 DUP(?)DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATAOUTCLK: MOV AX,DATAMOV DS,AXMOV DL,':'MOV AH,2INT 21HMOV DX,OFFSET BUFFERMOV

2、 AH,0AH;INT 21HMOV BX,OFFSET BUFFER+2输入字符串MOV AL,BX;时针,ASCII码转非压缩BCDCMP AL, 03AHJAE ERROR1CMP AL, 02FHJBE ERROR1AND AL,0FHMOV BX,ALINC BXMOV AL,BXAND AL,0FHMOV BX,ALINC BXINC BXMOV AL,BX;分针AND AL,0FHMOV BX,ALINC BXMOV AL,BXAND AL,0FHMOV BX,ALINC BXINC BXMOV AL,BX;秒针AND AL,0FHMOV BX,ALINC BXMOV AL,BX

3、AND AL,0FHMOV BX,ALMOV BX,OFFSET BUFFER+2CALL TOBCD;时针,两位非压缩BCD转换成两位压缩BCDMOV CH, ALADD BX,3CALL TOBCDMOV DH, AL;分针,两位非压缩BCD转换成两位压缩BCDMOV DH,ALADD BX,3CALL TOBCD;秒针,两位非压缩BCD转换成两位压缩BCDMOV DL,ALCMP CH, 24HJAE ERRORCMP DH, 60HJA ERRORCMP DL, 60HJA ERRORERROR1: MOV AH,4CHINT 21HAGAIN: CALL DELAYMOV AL,DL

4、;秒针加1ADD AL,1DAAMOV DL,ALCMP AL,60HJA ERRORJNE DISPYMOV DL,0MOV AL,DHADD AL,1;分针DAAMOV DH,ALCMP AL,60HJA ERRORJNE DISPYMOV DH,0MOV AL,CHADD AL,1DAA;时针MOV CH,ALCMP AL,24HJAE ERRORJNE DISPYMOV CH,0ERROR: MOV DL, 0MOV DH, 0MOV CH, 0DISPY: MOV BX,OFFSET BUFFERMOV AL,0DHMOV BX,ALINC BXMOV AL,0MOV BX,ALIN

5、C BXMOV AL,CHCALL TRANINC BXMOV AL,':'MOV BX,ALINC BXMOV AL,DHCALL TRANINC BXMOV AL,':'MOV BX,ALINC BXMOV AL,DLCALL TRANINC BXMOV AL,'$'MOV BX,ALPUSH BXPUSH CXPUSH DXMOV DX,OFFSET BUFFERMOV AH,9INT 21HMOV AH,06HMOV DL,0FFHINT 21HPOP DXPOP CXPOP BXJNE GOJMP AGAINGO:MOV AH,4CHI

6、NT 21HTOBCD PROC;MOV AL,BXMOV CL,4SHL AL,CLOR AL,BX+1RETTOBCD ENDPTRAN PROC; BCDMOV CL,ALSHR AL,1两位非压缩BCD转换成压缩转 ASCIISHR AL,1SHR AL,1SHR AL,1OR AL,30HMOV BX,ALINC BXMOV AL,CLAND AL,0FHOR AL,30HMOV BX,ALRETTRAN ENDPDELAY PROCPUSH CXPUSH AXMOV AX,0FFFFHFIR: MOV CX,02FFFHGOON: DEC CXJNE GOONDEC AXJNE FIRPOP AXPOP CXRETDELAY ENDPCODE ENDSEND OUTCLK四、思考题时钟程序中存在误差吗?若有误差,其来源在何处?

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论