[es] - Digitron

alexa
King Town

Član broj: 54
Poruke: 30
*.tron-inter.net

Profil

^{11.04.2001. u 10:48}

;program uzima dva dvocifrena broja, sabira ih i ispisuje rezultat na ekranu
;coded by aLeXa
jmp main
prvi dw ?
main:
mov al,':'
int 29h
;unos prvog broja
;unos desetice
mov ah,00h
int 16h
int 29h
push ax
;unos jedinica
mov ah,00h
int 16h
int 29h
push ax
;sracunaj vrednost prvog broj
pop ax ;jedinica
sub al,30h ;al-'0'=broj
mov cl,al

pop ax ;desetica
xor ah,ah ;ah=0
sub al,30h ;ascii - ascii od '0'
mov bx,000ah ;bx=10
mul bx ;ax*bx=ax ostataj dx
add cx,ax ;cx+ax i prvi broj je spakovan u cx
mov prvi,cx ;premesti rezutat u prvi
xor cx,cx ;obrisi cx

;unos drugog broja
mov al,'+'
int 29h
;unos desetice
mov ah,00h
int 16h
int 29h
push ax
;unos jedinice
mov ah,00h
int 16h
int 29h
push ax
;sracunaj drugi broj
pop ax ;jedinica
sub al,30h ;al-'0'=broj
mov cl,al

pop ax ;sracunaj deseticu
xor ah,ah ;ah=0
sub al,30h ;ascii - ascii od '0'
mov bx,000ah;bx=10
mul bx ;ax*bx=ax ostataj dx
add cx,ax ;cx+ax i broj je u cx

;saberi dva broja
mov al,'='
int 29h
add cx,prvi
;ispisi rezultat
mov ax,cx
mov bl,64h ;100
div bl ;al/bl= rezultat->al, ostatak->ah
add al,30h ;saberi sa '0'
int 29h ;ispisi

mov al,ah
xor ah,ah
mov bl,0ah ;10
div bl
add al,30h
int 29h

mov al,ah
xor ah,ah
add al,30h
int 29h

int 20h ;kraj programa

^{11.04.2001. u 10:48}

Borko Savic
Thessaloniki

Član broj: 86
Poruke: 359
*.041net.co.yu

ICQ: 16333000

Profil

Re: Digitron

^{11.04.2001. u 11:11}

Hm
u chemu je poenta da napravish toliko glup program u asm-u kad bi u c-u zauzeo 3 linije?

Reincarnation:
Life sux and then you die. And then life sux again...

^{11.04.2001. u 11:11}

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13394
*.elitesecurity.org.

Sajt: www.gojkovujovic.com

Profil

Re: Digitron

^{11.04.2001. u 12:11}

Da bi se vezbao i ucio.

^{11.04.2001. u 12:11}

Mikky

Moderator
Član broj: 18
Poruke: 1537
*.48.EUnet.yu

ICQ: 44582291
Sajt: www.asmdev.net

Profil

Re: Digitron

^{11.04.2001. u 21:38}

u c-u bi zauzimao 3 linije u sorsu i 25kb kao binary
a u asm 1000x manje........recimo 25b
o brzni da ne govorimo....mada se to neprimecuje za tako sitne stvari

-I know UNIX, PASCAL, C, FORTRAN, COBOL, and nineteen other high-tech words.

^{11.04.2001. u 21:38}

makojdis

*.ptt.yu

Re: Re: Digitron

^{11.04.2001. u 21:58}

A kako bi bilo da malo radis u TASM..........

^{11.04.2001. u 21:58}

alexa
King Town

Član broj: 54
Poruke: 30
*.tron-inter.net

Profil

Re: Re: Re: Digitron

^{12.04.2001. u 04:56}

Citat:

makojdis wrote:
A kako bi bilo da malo radis u TASM..........

Da li neko zna gde moze besplatno da se skine TASM?

^{12.04.2001. u 04:56}

makojdis

*.ptt.yu

Re: Digitron

^{12.04.2001. u 08:46}

Imam ja TASM pa mogu da ti posaljem......
Kao i jedan programcic koji sam ja pravio u Delphiju koji moze da ti olaksa zivot prilikom kompajliranja...

^{12.04.2001. u 08:46}

Vojislav Milunovic
tata i mama me izdržavaju
Beograd, Srbija

Član broj: 25
Poruke: 2117
*.verat.net

Sajt: nonenone.net

Profil

Re: Digitron

^{12.04.2001. u 10:15}

Imas TASM uz Borland C++ 5.02,ali probaj MASM koji je perfektno uradjen kompajler i stvarno ga vredi probati :o) Da ne pominjem .IF i .ELSE iskaze koji menjaju cmp i j* instrukcije...mnoooogo je lepo uradjen...probajte ga...

Oni ostali, ja se raspao...
četničke pesme
get out of ma way you bi***...
Ne čitam pp, ako nekom trebam ima mail : chetnik(na)atlas(tačka)cz

^{12.04.2001. u 10:15}

alexa
King Town

Član broj: 54
Poruke: 30
*.041net.co.yu

Profil

Re: Re: Digitron

^{12.04.2001. u 12:20}

Citat:

makojdis wrote:
Imam ja TASM pa mogu da ti posaljem......
Kao i jedan programcic koji sam ja pravio u Delphiju koji moze da ti olaksa zivot prilikom kompajliranja...

Bio bih ti veoma zahvalan za program u delfiju.
Kolilko TASM zauzima Kb?
Nasao sam neki MASM na
http://www.pbq.com.au/home/hutch/
ima oko 3,5 Mb.
Da li je TASM manji?

[Ovu poruku je menjao alexa dana 04-12-2001 u 11:24 AM GMT]

^{12.04.2001. u 12:20}

Vojislav Milunovic
tata i mama me izdržavaju
Beograd, Srbija

Član broj: 25
Poruke: 2117
*.verat.net

Sajt: nonenone.net

Profil

Re: Digitron

^{12.04.2001. u 13:44}

Skini taj MASM :o) Ima veoma dobar windows.inc file u kom imas skoo sve strukture i konstante koje se koriste u Windows programiranju.Inace huth i iczelio(valjda se tako zove) pokusavaju da sede windows.inc da ima sve zive (i mrtve:o) ) konstante i strukture u sebi koje windows koristi...I stvarno njih dvojica dobro azuriraju MASM :o)

Oni ostali, ja se raspao...
četničke pesme
get out of ma way you bi***...
Ne čitam pp, ako nekom trebam ima mail : chetnik(na)atlas(tačka)cz

^{12.04.2001. u 13:44}

makojdis

*.ptt.yu

Re: Re: Re: Digitron

^{13.04.2001. u 08:20}

Tasm ima oko 200 kb
A ceo program u delphiju ima oko 400 Kb....
Ne moras da silazis u Dos da bi kompajlirao samo napises kod pritisnes F9 i on se startuje.....

^{13.04.2001. u 08:20}

alexa
King Town

Član broj: 54
Poruke: 30
*.041net.co.yu

Profil

Re: Re: Re: Re: Digitron

^{14.04.2001. u 14:02}

To bi mi mnogo olaksalo ucenje asemblera.
Posalji mi na E-mail i
unapred hvala.

Alexa

^{14.04.2001. u 14:02}

Mikky

Moderator
Član broj: 18
Poruke: 1537
*.169.EUnet.yu

ICQ: 44582291
Sajt: www.asmdev.net

Profil

Re: Digitron

^{14.04.2001. u 15:26}

posalji i meni ako nije problem

-I know UNIX, PASCAL, C, FORTRAN, COBOL, and nineteen other high-tech words.

^{14.04.2001. u 15:26}

modche

*.ptt.yu

Re: Digitron

^{14.04.2001. u 19:41}

Ma sta ces slati ostavi adresu pa da svi skidamo

^{14.04.2001. u 19:41}

makojdis

*.ptt.yu

Adresa

^{14.04.2001. u 21:53}

Evo adrese sa koje mozete da skinete program
http://www.ptt.yu/korisnici/s/i/sikla/asm.zip

Samo ima jedan mali problem ovaj program mora da se raspakuje u C:\ASM da bi radio kako treba;)

Pozdrav

[Ovu poruku je menjao Makojdis dana 04-15-2001 u 07:57 AM GMT]

^{14.04.2001. u 21:53}