Anonymní profil maccident – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil maccident – Programujte.comAnonymní profil maccident – Programujte.com

 

Příspěvky odeslané z IP adresy 194.160.135.–

maccident
Assembler › tasm link nacitanie a nasled…
27. 1. 2011   #138247

zdravim, mam program na nacitanie a nasledne vypisanie textu. divna otazka, ale: ide v tom programe nieco zmenit aby "vyzeral" inak? sice chapem co ten program robi, ale moje vedomosti z assembleru su velmi chabe a nedari sa mi upravit program tak aby mal odlisne prvky s originalnym.

.Data

IOBuffer DB 200 dup (?) ; pole 200 znakov

.Code

Read PROC; procedura
citaj:
mov ah,1; nacitanie znaku z klavesnice dosovska sluzba ktora sluzi na nacitanie..
int 21h; zavola dos okno
mov [bx+di],al ; presuniem z al nacitany znak do bx..di indexy
cmp al,13 ; al13 ci bol stlaceny enter
jz ent ; skoc na ent jz
inc di ; inkrementuje di
jmp citaj ; citaj kym nie je enter

ent:
mov dl,10 ; register posunie sa o riadok dole len pri 0
mov ah,2 ; kurzor sa posenie dole
int 21h
xor di,di ; vynolovanie di
ret
Read ENDP

Write PROC
pis:
xor di,di
char:
mov dl,[bx+di]; nulty znak do dl
cmp dl,13
jz ukonci
mov ah,2 ; vypis jedneho znaku
int 21h
inc di
jmp char
ukonci:
ret
Write ENDP

Prog:
mov ax,@data ; uloz bazovu adresu datoveho segmentu do ax
mov ds,ax ; uloz bazovu adresu datoveho segmentu do ds
lea bx,IOBuffer ;nacita prvu poziciu pola
xor di,di
call Read
call Write
koniec:
mov ax,4C00h ;nastavenie pre OS
int 21h ; opat prerusenie DOS-u, koniec aplikacie
End Prog

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032022 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý