计算机综合实践Word文件下载.docx

计算机综合实践Word文件下载.docx

《计算机综合实践Word文件下载.docx》由会员分享，可在线阅读，更多相关《计算机综合实践Word文件下载.docx（10页珍藏版）》请在冰豆网上搜索。

四、程序清单

assumecs:

code

codesegment

start:

;

清屏

movah,6;

moval,0;

movch,0

movcl,0;

movdh,24

movdl,79

movbh,7

int10h

l:

年

moval,9

movsi,0

calls

movbyteptres:

[160*12+2*40+4],'

/'

月

moval,8

movsi,6

[160*12+2*40+10],'

日

moval,7

movsi,12

[160*12+2*40+16],'

'

取时数并送入显存

moval,4

movsi,18

[160*12+2*40+22],'

:

'

取分数并送入显存

moval,2

movsi,24

[160*12+2*40+28],'

取秒数并送入显存

moval,0

movsi,30

jmpl

movax,4c00h

int21h

;

*******************子程序******************

名称：

s

作用：

取出BCD码并送入显存

入参:

al为单元数，si为显存偏移地址变址

*******************************************

s:

pushax

pushbx

pushsi

out70h,al

inal,71h

movcl,4

movah,al

shrah,cl

andal,00001111b

addal,30h

addah,30h

movbx,0b800h

moves,bx

movbx,160*12+2*40

moves:

[bx+si],ah

[bx+si+2],al

popsi

popbx

popax

ret

codeends

endstart

四、程序运行结果

实验28255并行接口键盘程序设计

利用09H型中断设计一个自己的键盘中断服务程序，程序设计应考虑在退出时不破坏原有的设置。

dsegsegment

addr_pointdw?

countdw?

bufferdb20hdup（'

）

promptdb'

Pleaseenterthecharacters:

db0dh,0ah,'

$'

messagedb'

bufferoverflow'

0dh,0ah

save_ip9dw?

save_cs9dw?

dsegends

csegsegment

assumecs:

cseg,ds:

dseg

mainprocfar

pushdx

subax,ax

pushax

movax,dseg

movds,ax

movax,offsetbuffer

movaddr_point,ax

movcount,0

moval,09h

movah,35h

int21h;

saveinterruptvectoroftype09h

movsave_ip9,bx

movsave_cs9,es

movdx,offsetkbint

pushds

movax,segkbint

movah,25h

int21h

popds;

setinterruptvectorof9

inal,21h

andal,0fdh

out21h,al

sti

jmp$

ret

mainendp

keyboardinterruptserver

kbintprocnear

pushbx

cld

inal,60h;

readinthechar

inal,61h

movah,al

oral,80h

out61h,al

xchgah,al

popax

testal,80h;

ispressorreleasecode?

jnzcont

movbx,addr_point

mov[bx],al

calldisp

incbx

inccount

movaddr_point,bx

check:

cmpcount,32

jbcont

oral,02h

cont:

cli

moval,20h

out20h,al

popbx

iret

kbintendp

diplaycharcode

dispprocnear

pushcx

movch,2

movcl,4

nextb:

rolal,cl

movdl,al

anddl,0fh

ordl,30h

cmpdl,3ah

jldispit

adddl,7h

dispit:

movah,2

decch

jnznextb

movdl,'

'

popdx

popcx

dispendp

csegends

endstart

三、程序运行结果

程序运行后，将会修改09H中断