Administrace komentářů

; překlad:
; nasm -f elf preved.asm
; ld -s -o preved preved.o

SECTION .text
global _start

_start:



; Sečtu Cislo1+Cislo2, výsledek do Vysledek
mov eax,[Cislo1]
mov ebx,[Cislo2]
add eax,ebx
mov [Vysledek],eax

; Převedu Vysledek na text do VysledekText
mov eax,[Vysledek]
mov ebx,10
mov edi,VysledekText
call NumToAscii

; Vytisknu vysledek

mov ebx,VysledekText	   ; ukazatel na text do ebx
mov esi,ebx            ; uložím ho ještě do esi
xor edx,edx

.next:
inc edx                ;v edx počítáme počet znaků, co budeme tisknout
lodsb                  ;načteme znak do al a k esi přičteme 1
or al,al               ;jsme už na konci řetězce (al==0)
jnz .next              ;ne? přičteme další znak
mov byte [esi-1],0xa   ;zapíšeme místo nulového byte na konci řetězce znak nového řádku


mov eax,4              ;systémové volání write( ebx = KAM, ecx = CO, edx = KOLIK )
mov ecx, ebx           ;v ebx byla adresa řetězce
mov ebx,1              ;STDOUT
                       ;v edx již je počet znaků
int 0x80               ;přerušení



; konec programu
mov eax, 1
mov ebx, 0
int 0x80


;--------------
;NumToAscii
;--------------
; eax = 32b číslo
; ebx = základ soustavy
; edi = pointer na buffer, kam bude uložen text
;--------------

NumToAscii:
pushad
xor esi,esi
.smycka_prevodu:
xor edx,edx
div ebx
call HexDigit
push edx
inc esi
test eax,eax
jnz .smycka_prevodu
cld
.smycka_zapis:
pop eax
stosb
dec esi
test esi,esi
jnz .smycka_zapis
popad
ret
HexDigit:
cmp dl,10
jb .mensi
add dl,'A'-10
ret
.mensi:
or dl,'0'
ret



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; DATA

SECTION .data

VysledekText TIMES 20 db 0
Cislo1 dd 8
Cislo2 dd 2
Vysledek dd 0