Tarrah
دوشنبه 15 خرداد 1385, 19:53 عصر
سلام
مشکل این کد کجاست؟
; chape string be surate mostagim va bedune vasete
printstring macro strname
lea dx,strname
mov ah,9h
int 21h
endm
clrscr macro z,t
mov ax,t
mov bh,z
mov cx,0000h
mov dx,184fh
int 10h
endm
curs macro x1,y1
mov ah,2h
mov dh,x1
mov dl,y1
mov bh,0
int 10h
endm
putsi macro SomeText
local Printst,SkipData
jmp SkipData
Printst db SomeText,'$'
SkipData:
lea dx,Printst
mov ah,9h
int 21h
endm
reads macro name1
mov ah,0ah
lea dx,name1
int 21h
endm
.model small
.stack
.data
strlist label byte
max db 20
len db ?
buffer db 20 dup('$')
.code
main proc far
mov ax,@data
mov ds,ax
clrscr 17h,0600h
curs 10,30
putsi 'pleas enter a string: '
reads strlist
curs 12,30
putsi 'you entered this string: '
printstring buffer
mov ah,4ch
int 21h
main endp
end main
مشکل این کد کجاست؟
; chape string be surate mostagim va bedune vasete
printstring macro strname
lea dx,strname
mov ah,9h
int 21h
endm
clrscr macro z,t
mov ax,t
mov bh,z
mov cx,0000h
mov dx,184fh
int 10h
endm
curs macro x1,y1
mov ah,2h
mov dh,x1
mov dl,y1
mov bh,0
int 10h
endm
putsi macro SomeText
local Printst,SkipData
jmp SkipData
Printst db SomeText,'$'
SkipData:
lea dx,Printst
mov ah,9h
int 21h
endm
reads macro name1
mov ah,0ah
lea dx,name1
int 21h
endm
.model small
.stack
.data
strlist label byte
max db 20
len db ?
buffer db 20 dup('$')
.code
main proc far
mov ax,@data
mov ds,ax
clrscr 17h,0600h
curs 10,30
putsi 'pleas enter a string: '
reads strlist
curs 12,30
putsi 'you entered this string: '
printstring buffer
mov ah,4ch
int 21h
main endp
end main