3
« on: 05.01.2009, 02:19:49 »
Na FTP-cku som nasiel nejake programy na skusku, avsak hned prvy ked som chcel prekompilovat mi vyhodilo 20 Errorov a 11 varovani. skusal som ich postupne odstranovat ale aj tak ziaden vysledok. mohol by sa niekto na to pozriet? popripade napisat vlastne riesenie?
Pr.1.Bc
Majme reťazec definovaný ako dvojica <dĺžka reťazca><reťazec>. Reťazec nie je ukončený zvláštnym znakom, ale je ukončený CR. Napíšte program na zápis reťazca z klávesnice, uloženie v danom formáte a vytlačenie na obrazovke. Dĺžka reťazca je obmedzená 255 znakmi.
.model small
.stack 100
.data ret db 255 dup($)
.code pom db 248 dup($)
citaj: proc
mov ah,01
int 21h
ret
citaj: endp
start: mov ax,@data
modv ds,ax
mov cx,0
vstup: call citaj
mov [POM+CX],ac
cmp al,10
je vypis
cmp cx,246
je vypis
inc cx
jmp vstup
vypis: mov [ret],’c’
mov ax,cx
div 100
add ah,’0’
mov [ret+1],ah
sub ah,ah
div 10
add an,’0’
mov [ret+2],ah
add al,’0’
mov [ret+3],al
mov [ret+4],’>’
mov [ret+5],’<’
bx=0
kopir: mov [ret+6+bx],[pom+bx]
inc bx
cmp cx,bx
jae kopir
mov [ret+6+bx],’>’
mov ah,09
mov dx,offset ret
int 21h
mov ah,4ch
int 21h
end start