Не считает сумму столбцов

; Template for console application
 
         .586
 
         .MODEL  flat, stdcall
 
         OPTION CASEMAP:NONE
 
 
 
Include kernel32.inc
 
Include masm32.inc
 
 
 
IncludeLib kernel32.lib
 
IncludeLib masm32.lib
 
 
 
         .CONST
 
MsgExit  DB    "Press Enter to Exit",0AH,0DH,0
 
Msg1 DB "Vvedite A (stroki):",0AH,0DH,0
 
Msg2 DB "Vvedite B (stolbci):",0AH,0DH,0 
 
Msg3 DB "znachenie:",0AH,0DH,0     
 
Msg4 DB "Summa stolbcov "
 
         .DATA
 
 
 
               
 
resstr DB 16 DUP (' '),13,10,0
resstr2 DB 13,10,0
 
InpBuff DB 10 DUP ('0')
 
result SDWORD 0
 
 
 
         .DATA?
 
inbuf    DB    100 DUP (?)
 
A SDWORD   ?
 
B SDWORD   ?
 
D SDWORD ?
 
 
         .CODE
 
Start:
 
;    
 
;    Add you statements
 
;
 
 
;zanosim v A kol-vo strok
 
 
         Invoke StdOut,ADDR Msg1
 
         Invoke StdIn, ADDR InpBuff, lengthof InpBuff
 
         Invoke StripLF, ADDR InpBuff
 
         Invoke atol, ADDR InpBuff
 
         mov A, EAX
 
              
;zanosim v B kol-vo stolbcov
         Invoke StdOut,ADDR Msg2
 
         Invoke StdIn, ADDR InpBuff, lengthof InpBuff
 
         Invoke StripLF, ADDR InpBuff
 
         Invoke atol, ADDR InpBuff
 
         mov B, EAX
 
             
 
         mov ECX,A ;schetchik strok
         
         mov EBX, 0 ;obnulyaem EBX (index)
               
 
;cycle1 = perehod na sled.stroku
 
cycle1:  push ECX    ;zanosim v stek na hranenie kol-vo strok
 
         mov ECX, B  ;zanosim kol-vo stolbcov v schetchik
         
 
;cycle2 = vvod znacheniy yacheek dlya kazdoy stroki
 
cycle2:  push ECX ;zanosim v stek schetchik stolbcov tk pri vvode znacheniya yacheyki ECX portitsya
 
         
         ;v dannom bloke v EAX zapisivaem znachenie yacheyki
         Invoke StdOut,ADDR Msg3
 
         Invoke StdIn, ADDR InpBuff, lengthof InpBuff
 
         Invoke StripLF, ADDR InpBuff
 
         Invoke atol, ADDR InpBuff 
         
         
         mov D[EBX*4],EAX ;zapisivaem v massiv znachenie yacheyki, EBX*4 tk SDWORD
 
         
         inc EBX ;uvelichivaem index na 1
               
         pop ECX ;vitaskivaem iz steka schetchik stolbcov
                
 
         loop cycle2 ;kazdiy prohod cycla umenshaet ECX na 1
 
         pop ECX ;vitaskivaem schetchik dlya strok dlya cycle1
 
         loop cycle1 ;v cycle1 srazu umenshaem schetchik strok ECX na 1 
         
         Invoke StdOut,ADDR resstr2 ;resstr2 = vivod v konsol' s novoy stroki
 
 
;cycle3 = perehod na novuyu stroku v matrice
 
         mov ECX, A ;schetchik strok
        
         mov EBX, 0 ;obnulyaem EBX (index)
 
cycle3:  push ECX    ;zanosim v stek na hranenie kol-vo strok
 
         mov ECX, B  ;zanosim kol-vo stolbcov v schetchik
 
         Invoke StdOut,ADDR resstr2 ;resstr2 = vivod v konsol' s novoy stroki
 
         
;cycle4 = vivod yacheek stroki matrici na ekran
 
         mov ECX, B ;zapisivaem v schetchik ECX kol-vo stolbcov B
                
         
cycle4:  push ECX ;opyat' pryachem ECX chtobi ne povredit' v vivode StdOut
        
         Invoke dwtoa, D[EBX*4], ADDR result ;preobrazuem sdword v ascii u elementa D[i] i pishem v adres naprimer result
         
         Invoke StdOut, ADDR result ;vivodim result
         
         inc EBX ;uvelichivaem index
         
         pop ECX ;vitaskivaem schetchik chtobi umenshit na 1 v nachale sleduyushey iteracii
         
         loop cycle4 ;povtoryaem dlya vseh yacheek stroki
         
         
         pop ECX ;vitaskivaem schetchik dlya strok dlya cycle3
 
         
         loop cycle3 ;v cycle3 srazu umenshaem schetchik strok ECX na 1 
         
         Invoke StdOut,ADDR resstr2 ;resstr2 = vivod v konsol' s novoy stroki
         
         
;cycle5 = schitaem summu stolbcov
         
         mov ECX,A ; vnesni cikl proitis skolko strok 
cycle5:  push ECX                    
   
         mov ECX,B ;vnutrenii cikl skolko stolbcov 
         mov EBX, 0 ;obnulyaem index
         mov EAX, 0 ;obnulyaem vvod
         mov result, 0 ;obnulyaem resultat
         
cycle6:   push ECX
          mov EAX, D[EBX*4] ;zanosim v registr EAX element matrici D[i]*razmer_elementa
         
         add result, EAX ;summiruem resultat s registrom EAX
         
         add EBX, B ;pribavlyaem kol-vo stolbcov k indexu
         
         
         pop ECX 
         loop cycle6 ;povtoryaem vse prediduschie deystviya v cycle5
         pop ECX 
         loop cycle5
             
         Invoke StdOut,ADDR Msg4         
         Invoke dwtoa, result, ADDR result  ;preobrazuem result iz Sdword v ascii dlya vivoda v konsol'
         Invoke StdOut, ADDR result  ;vivodim result v konsol'
 
         Invoke StdOut,ADDR resstr2 ;resstr2 = vivod v konsol' s novoy stroki
 
         ;The End
         XOR    EAX,EAX
 
         Invoke StdOut,ADDR MsgExit
         Invoke StdIn,ADDR inbuf,LengthOf inbuf     
 
         Invoke ExitProcess,0
 
         End    Start

;cycle5 = schitaem summu stolbcov
         mov ECX,B ; vnesni cikl proitis skolko stolbcov 
         mov EBX, 0 ;obnulyaem index
cycle5:   push ECX                    
      push EBX
      
         mov ECX,A ;vnutrenii cikl skolko strok
         mov result, 0 ;obnulyaem resultat
         
cycle6:   push ECX
         mov EAX, D[EBX*4] ;zanosim v registr EAX element matrici D[i]*razmer_elementa
         
         add result, EAX ;summiruem resultat s registrom EAX
         
         add EBX, B ;pribavlyaem kol-vo stolbcov k indexu
         pop ECX 
         loop cycle6 ;povtoryaem vse prediduschie deystviya v cycle5
 
         Invoke StdOut,ADDR Msg4         
         Invoke dwtoa, result, ADDR result  ;preobrazuem result iz Sdword v ascii dlya vivoda v konsol'
         Invoke StdOut, ADDR result  ;vivodim result v konsol'
         Invoke StdOut,ADDR resstr2 ;resstr2 = vivod v konsol' s novoy stroki
 
         pop EBX
       inc EBX
       pop ECX 
         loop cycle5
     
         ;The End