code segment
assume cs:code
main proc far
;
repeat:
call read
call crlf
call change
call crlf
jmp repeat
main endp
;
read proc near
mov bx, 0
newchar:
mov ah, 1
int 21h
sub al, 30h
jl exit
cmp al, 9d
jg exit
cbw
;
xchg ax, bx
mov cx, 10d
mul cx
xchg bx, ax
add bx, ax
jmp newchar
exit:
ret
read endp
;
change proc near
mov ch, 4
for:
mov cl, 4
rol bx, cl
mov al, bl
and al, 0fh
add al, 30h
cmp al, 3ah
jl print
add al, 07h
print:
mov dl, al
mov ah, 02h
int 21h
dec ch
jnz for
change endp
crlf proc near
mov dl, 0dh
mov ah, 2
int 21h
mov dl, 0ah
mov ah, 2
int 21h
ret
crlf endp
code ends
end main
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步