Problém s ReadString - nechce načítat – Assembler – Fórum – Programujte.com

TITLE MASM Template (main.asm)
INCLUDE Irvine32.inc
.data

.code
NacitajCislo PROC
   call ReadInt ; Nacita cisla z kalvesnice do EAX hodnotu cisla n
   mov ECX, EAX ; Presunie Hodnotu nacitaneho cisla do ECX aby som mohol loopovat v cykle
   MOV bx,1 ; Pocitdla od 1....n
   Cyklus:
      mov ax,bx  ; Presunie hodnotu ax do bx aby som si uchoval povodnu hodnotu
  imul ax, bx ; Vynasobi ax bx cize urobi ax na druhu
  imul ax, bx  ; Vynasobi ax bx znova cize urobi ax na tretiu
  call WriteInt ; Vypise cislo v EAX cize Ax
  inc bx ; Zvysi hodnotu bx o 1 cize n + 1
  loop Cyklus ;Skoci na cyklus ak ECX cize n je vacsie ako 0 vykona tolko krat kolko je zadane n na zaciatku
  
      
  
ret ; Navrat z procedury do hlavnej procedury
NacitajCislo ENDP
main PROC
   call NacitajCislo ; Zavola proceduru NacitajCislo
   call ReadChar ;Zastavi program
exit
main ENDP
END main
 

#1 Andrejx2

TITLE MASM Template (main.asm)
INCLUDE Irvine32.inc
.data
sucet DW 0
textSucet DB "Sucet je:",0Ah,0Dh,0
.code
NacitajCislo PROC
   call ReadInt ; Nacita cisla z kalvesnice do EAX hodnotu cisla n
   mov ECX, EAX ; Presunie Hodnotu nacitaneho cisla do ECX aby som mohol loopovat v cykle
   MOV bx,1 ; Pocitdla od 1....n
   Cyklus:
      mov ax,bx  ; Presunie hodnotu ax do bx aby som si uchoval povodnu hodnotu
  imul ax, bx ; Vynasobi ax bx cize urobi ax na druhu
  imul ax, bx  ; Vynasobi ax bx znova cize urobi ax na tretiu
  add Sucet,ax ; Scitavam postupne cleny od 1...n uloha b
  call WriteInt ; Vypise cislo v EAX cize Ax
  inc bx ; Zvysi hodnotu bx o 1 cize n + 1
  loop Cyklus ;Skoci na cyklus ak ECX cize n je vacsie ako 0 vykona tolko krat kolko je zadane n na zaciatku
  
      lea EDX, textSucet ; Vypise text v premennej textSucet
  call Crlf ; Novy riadok
  mov AX, Sucet ; Do ax da Sucet clenov ciselneho radu aby som mohol vypisat cez WriteInt
  call WriteInt
ret ; Navrat z procedury do hlavnej procedury
NacitajCislo ENDP
main PROC
   call NacitajCislo ; Zavola proceduru NacitajCislo
   call ReadChar ;Zastavi program
exit
main ENDP
END main