stseg segment para stack
db 64 dup('0');
sttop label word
stseg ends
dtseg segment
max db 100
count db 0
sentence db 100 dup (' ')
mess db 'Input String =>$'
dtseg ends
cdseg segment
main proc far
assume cs:cdseg,es:dtseg,ds:dtseg,ss:stseg
mov ax,dtseg
mov ds,ax
mov ax,stseg
mov ss,ax
lea sp,sttop
;----------------------------------
mov ah,9h
lea dx, mess
int 21h
mov ah,0ah
lea dx, max
int 21h
;----------------------------------
mov ah,4ch
int 21h
main endp
cdseg ends
end main
ไม่มีความคิดเห็น:
แสดงความคิดเห็น