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

下载本文档

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

文档简介

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

2、输入当前时、分、秒值,即DOS。;输入字符串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; 分针XX:XX:XX,AND AL,0FHMOV BX,ALINC BXMOV AL,BXAND AL,0FHMOV BX,ALINC BXINC BXMOV AL,BX;秒针AND AL,0FHMOV BX,ALINC BXMOV AL,BXAND AL,0FH

3、MOV 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 21H秒针加 1AGAIN: CALL DELAYMOV AL,

4、DLADD AL,1DAAMOV DL,ALCMP AL,60HJA ERROR JNE DISPYMOV DL,0MOV AL,DHADD AL,1; 分针DAAMOV DH,ALCMP AL,60HJA ERRORJNE DISPYMOV DH,0MOV AL,CHADD AL,1DAA ; 时针 MOV CH,ALCMP AL,24H JAE ERROR JNE DISPY MOV CH,0 ERROR: MOV DL, 0MOV DH, 0MOV CH, 0 DISPY: MOV BX,OFFSET BUFFERMOV AL,0DHMOV BX,ALINC BX MOV AL,0 MO

5、V BX,AL INC BX MOV AL,CH CALL TRAN INC BX MOV AL,: MOV BX,AL INC BX MOV AL,DH CALL TRAN INC BX MOV AL,: MOV BX,AL INC BX MOV AL,DL CALL TRAN INC BX MOV 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,4CHINT

6、 21HTOBCD PROC; 两位非压缩 BCD 转换成压缩MOV AL,BXMOV CL,4SHL AL,CLOR AL,BX+1RETTOBCD ENDPTRAN PROC; BCD 转 ASCIIMOV CL,ALSHR AL,1SHR 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

提交评论