blaro
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
.MODEL SMALL
.STACK 64
.DATA
msg db 20,20 dup (?)
.CODE
print proc
push bp
mov bp,sp
add bp,2
push dx
mov dx,[bp+2]
mov ah,1
int 21h
pop dx
pop bp
ret 2
endp
getstring proc
push bp
mov bp,sp
add bp,2
sub sp,100
push di
push cx
xor cx,cx
mov di,sp
ent: mov ah,1
int 21h
cmp al,0dh
je prnt
mov ss:[di],al
inc di
inc cx
jmp ent
prnt: inc di
mov ss:[di],byte ptr "$"
mov di,sp
xor dx,dx
nt: mov dl,ss:[di]
push dx
call print
inc di
loop nt
pop cx
pop di
pop bp
ret
endp
start:
mov ax ,@data
mov ds, ax
call getstring
mov ax,4c00h
int 21h
end start
|
