.8086
.model tiny
.stack 100h
.data
info1 db 10,13,'Wpisz tekst. '
info2 db 10,13,'Wpisae $'
bufor db 100 dup ('$')
.code
jmp start
Zaladuj_seg MACRO
mov ax,@data
mov ds,ax
EndM
Zakoncz_prg MACRO
mov ax,4C00h
int 21h
EndM
Wypis MACRO napis
mov dx,offset napis
mov ah,9
int 21h
EndM
Wczytaj_napis PROC
Wczytaj_znak:
mov ah,1
int 21h
cmp al,13
je Koniec_odczytu
mov byte ptr:[bx],al
inc bx
jmp Wczytaj_znak
ret
EndD
START:
Zaladuj_seg
Wypis info1
mov bx, offset bufor
call Wczytaj_napis
Koniec_odczytu:
Wypis info2
Wypis bufor
Zakoncz_prg
END start
end
Mam taki oto programik, czy moglby mi ktos wytknac w nim bledy? :/