微机原理【二】实验三 从键盘输入数据并显示实验参考源程序
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
微机原理B 实验三从键盘输入数据并显示实验参考源程序
data segment
buf1 db 0dh,0ah,'please enter nummber:',0dh,0ah,'$'
buf2 db 0dh,0ah,'error',0dh,0ah,'$'
data ends
code segment
assume cs:code,ds:data,es:data
start:mov ax,data
mov ds,ax
lea dx,buf1
mov ah,9
int 21h
call getnum
mov cx,16
l1:rol bx,1
mov dl,bl
and dl,01h
add dl,30h
mov ah,2
int 21h
loop l1
mov ah,4ch
int 21h
getnum proc near
mov bx,0 newchar:mov ah,1
int 21h
cmp al,0dh
jz crlf
cmp al,30h
jl error
cmp al,39h
jle addto1
cmp al,41h
jl error
cmp al,46h
jle addto2
cmp al,61h
jl error
cmp al,66h
jg error ADDTO1:SUB AL,30H
JMP ADDTO ADDTO2:SUB AL,37H
JMP ADDTO
ADDTO3:SUB AL,57H addto:mov cl,4
shl bx,cl
mov ah,0
add bx,ax
jmp newchar error:lea dx,buf2
mov ah,9
int 21h
crlf:mov ah,2
mov dl,0dh
int 21h
mov ah,2
mov dl,0ah
int 21h
ret
getnum endp
code ends
end start