21,459
社区成员
发帖
与我相关
我的任务
分享
stack segment stack 'stack'
dw 32 dup(0)
stack ends
data segment
buf db 78h
obuf1 db 0ah,0dh,'(buf)='
obuf2 dw 2 dup(0)
data ends
code segment
begin proc far
assume ss:stack,cs:code,ds:data
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax
mov al,buf
mov ah,al
mov cl,4
shr ah,cl
add ah,30h
and al,0fh
add al,30h
xor bx,bx
xchg ah,al
mov obuf2[bx],ax
mov obuf2[bx+2],'$H'
mov dx,offset obuf1
mov ah,9
int 21h
ret
begin endp
code ends
end begin