Вместо ожидаемого массива выводит набор символов непонятных

@makskam · Регистрация: 25.11.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте, у меня такая проблема, есть условия, отсортировать слова в строке по количеству больших букв, я придумал алгоритм, не знаю может и не самый лучший но главное сам, моя функция чтения строки сразу записывает строку в массив следующим образом: Оригинальная строка: "This_IS_Max" , в массиве будет записанно "_This1_IS2_Max1_" под символом '_' имеется виду пробел, дебажил вроде всё правильно по алгоритму моему идёт, но когда хочу вывести мой массив выводит кучу непонятных символов, помогите пожалуйста, заранее благодарен, вот мой код(извините если это гавнокод, я только начинаю на ассемблере):

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
.model small 
org 100h
 
.data
    InputMessage dw "Write your string:",10,13,"$"
    count dw 0
    i dw 0
    j dw 0
    lengthACount dw 0
    lengthASimbols dw 0
    ASimbols  dw 20 dup ('')
    ACount  dw 20 dup ('')
.code    
Program:
    mov ax, @DATA
    mov ds, ax  
    
    lea dx, InputMessage
    mov ah, 09
    int 21h                            
     
    mov i, 0
    xor si,si
 
    call ReadString    
   
    lea dx, ASimbols
    mov ah, 09
    int 21h
 
    int 20h    
ends Program; 
 
ReadString PROC
    ;------------------------
    mov bx, 2000            ;
    mov ASimbols[si], bx            ; write Space to ASimbols
    inc si                  ;
    inc lengthASimbols      ;
    ;------------------------
                        ;
    Start:              ;
    xor ax,ax           ;  
    mov ah, 01          ;   Read simbol
    int 21h             ;
    ;--------------------
                    ;
    cmp al, 13              ;   if simbol == Enter go to IsEnter
    je IsEnter      ;
    ;---------------- 
                    ;  
    cmp al, 32              ;   if simbol == Space go to IsSpace
    je IsSpace      ;
    ;------------------------
                            ;
    ;CheckoutOnBigLetters           ;
    cmp al, 5Bh             ;   if simbol < 'Z' then go to NextCheckout
     jl NextCheckout                ;   
    ;----------------------------
                                ;
    NotBig:                 ;
    mov bx, ax                  ; count write to ASimbols
    mov ASimbols[si], bx                ;
    inc si                      ;
    jmp Start                   ;
    inc lengthASimbols          ;
    ;----------------------------
                    ;
    NextCheckout:   ;   
    cmp al, 40h     ;   if simbol > 'A'
    jg IsABigLeter          ;
    ;----------------
                    ;
    jmp NotBig      ;
    ;----------------------------
                                ;
    IsABigLeter:                        ;
    inc count                   ;
    mov ASimbols[si], bx                ;  count++ write to ASimbols
    inc si                      ;
    inc lengthASimbols          ;
    jmp Start                   ;
    ;----------------------------
                            ;
    IsSpace:                        ;
    mov bx, count           ;   
    mov ASimbols[si], bx             ;   count to ASymbols
    inc si                  ;
                        ;
    mov bx, 2000            ;
    mov ASimbols[si], bx            ;   Space to ASymbols
    inc si                  ;
                            ;   
    mov i, si               ;
    mov si, j               ;
    mov bx, count           ;   cout to ACount and count = 0
    mov ACount[si], bx      ;
    inc si                  ;
    mov j,si                ;
    mov si,i                ;
    mov count,0             ;
    inc lengthACount                ;
    inc lengthASimbols      ;
    inc lengthASimbols      ;
    jmp Start               ;
    ;------------------------
                        ;
    IsEnter:                ;
                            ;
    mov bx, count           ; 
    mov ASimbols[si], bx            ;   count to ASymbols
    inc si                  ;
                        ;
    mov bx, 2000            ;
    mov ASimbols[si], bx            ;   Space to ASymbols
    inc si                  ;
    inc lengthASimbols      ;
    inc lengthASimbols      ; 
    ret                     ;
    ;------------------------
ReadString endp

@Ethereal · 26.11.2013, 12:37

Как ты ее дебажил ? Чтобы дебажить надо сначала откомпилировать. Неужто тебе это удалось ?
Ассемблер уже на этой строчке
InputMessage dw "Write your string:",10,13,"$"
впадает в ступор и кричит
**Error** a.asm(5) Value out of range
Ибо должно быть
InputMessage db "Write your string:",10,13,"$"
Второй раз он возопит на строчке
ends Program;
ибо имелось ввиду
end Program;
, причем эта строчка должна стоять в программе самой последней.
И т.д. и т.п.

Добавлено через 1 минуту
Так-что про "дебажил" ты просто сп%здел.

@makskam · 26.11.2013, 15:01 **[ТС]**

использую emu8086, всё копмпилируется без проблем, end program должна быть последней? она и есть последняя а после следует объявление функции.

Добавлено через 35 секунд
Проблема решена

@Mikl___ · 26.11.2013, 17:19

makskam,
не верю! (Станиславский)
.model small - для ЕХЕ-программ
org 100h и int 20h - для СОМ-программ
ends - конец структуры или конец сегмента
Program: - точка входа в программу, программа должна завершиться "end Program" всё что ниже такой строки компилятор не обрабатывает

@makskam · 26.11.2013, 19:26 **[ТС]**

Сообщение от Mikl___

makskam,
не верю! (Станиславский)

вот мой код, работает, http://www.emu8086.com/ вот с помощью этого компилирую, всё работет! возможно вы правы, я не настаиваю) Я начинающий, если можно скажите где не прав, как сделать правильно и почему так, буду очень благодарен!)

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
.model small 
org 100h
 
.data
    InputMessage dw "Write your string:",10,13,"$"
    enter dw 10,13, "$"
    count dw 0
    i dw 0
    j dw 0
    lengthACount dw 0
    lengthASimbols dw 0
    ASimbols  db 20 dup ('?')
    ACount  db 20 dup ('?')
.code    
Program:
    mov ax, @DATA
    mov ds, ax 
    lea dx, InputMessage
    mov ah, 09
    int 21h                            
     
     mov i, 0
     mov si, i
 
     call ReadString       
                   
     call WriteResult
 
    int 20h    
ends Program; 
 
ReadString PROC
    ;------------------------
    mov bx, 20h             ;
    mov ASimbols[si], bl    ; write Space to ASimbols
    inc si                  ;
    inc lengthASimbols      ;
    ;------------------------
                        ;
    Start:              ;
    xor ax,ax           ;  
    mov ah, 01          ;   Read simbol
    int 21h             ;
    ;--------------------
                    ;
    cmp al, 13      ;   if simbol == Enter go to IsEnter
    je IsEnter      ;
    ;---------------- 
                    ;  
    cmp al, 32      ;   if simbol == Space go to IsSpace
    je IsSpace      ;
    ;------------------------
                            ;
    ;CheckoutOnBigLetters   ;
    cmp al, 5Bh             ;   if simbol < 'Z' then go to NextCheckout
     jl NextCheckout        ;   
    ;----------------------------
                                ;
    NotBig:                     ;
    mov ASimbols[si], al        ; count write to ASimbols
    inc si                      ; 
    inc lengthASimbols          ;
    jmp Start                   ;
    ;----------------------------
                    ;
    NextCheckout:   ;   
    cmp al, 40h     ;   if simbol > 'A'
    jg IsABigLeter  ;
    ;----------------
                    ;
    jmp NotBig      ;
    ;----------------------------
                                ;
    IsABigLeter:                ;
    inc count                   ;
    mov ASimbols[si], al        ;  count++ write to ASimbols
    inc si                      ;
    inc lengthASimbols          ;
    jmp Start                   ;
    ;----------------------------
                            ;
    IsSpace:                ;
    mov bx, count           ;
    add bx, 48              ;   
    mov ASimbols[si], bl    ;   count to ASymbols
    inc si                  ;
                            ;
    mov bx, 20h         ;
    mov ASimbols[si], bl    ;   Space to ASymbols
    inc si                  ;
                            ;   
    mov i, si               ;
    mov si, j               ;
    mov bx, count           ;   count to ACount and count = 0    
    add bx, 48              ;   
    mov ACount[si], bl      ;
    inc si                  ;
    mov j,si                ;
    mov si,i                ;
    mov count,0             ;          
    inc lengthACount        ;
    inc lengthASimbols      ;
    inc lengthASimbols      ;
    jmp Start               ;
    ;------------------------
                            ;
    IsEnter:                ;
                            ;
    mov bx, count           ;  
    add bx, 48              ;   
    mov ASimbols[si], bl    ;   count to ASymbols
    inc si                  ;
                            ;
    mov bx, 20h             ;
    mov ASimbols[si], bl    ;   Space to ASymbols
    inc si                  ;
                            ;
    mov bx, count           ;  
    add bx, 48              ;
    mov i, si               ;
    mov si, j               ;
    mov ACount[si], bl      ;
    mov j, si               ;
    mov si, i               ;       
    inc lengthACount        ;    
    inc lengthASimbols      ;
    inc lengthASimbols      ; 
    ret                     ;
    ;------------------------
ReadString endp     
 
WriteResult proc    
    lea dx, enter
    mov ah, 09
    int 21h 
    
    xor cx,cx
    xor bx,bx
    mov cx,lengthACount;  
    print:                
       mov ah, 02h
       mov dl, ACount[bx]
       inc bx
       int 21h
       loop print
    ret 
WriteResult endp

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Ethereal 6773 / 2741 / 385 Регистрация: 17.02.2013 Сообщений: 4,048
	26.11.2013, 12:37
	Как ты ее дебажил ? Чтобы дебажить надо сначала откомпилировать. Неужто тебе это удалось ? Ассемблер уже на этой строчке InputMessage dw "Write your string:",10,13,"$" впадает в ступор и кричит Error a.asm(5) Value out of range Ибо должно быть InputMessage db "Write your string:",10,13,"$" Второй раз он возопит на строчке ends Program; ибо имелось ввиду end Program; , причем эта строчка должна стоять в программе самой последней. И т.д. и т.п. Добавлено через 1 минуту Так-что про "дебажил" ты просто сп%здел. 1

@makskam 1 / 1 / 1 Регистрация: 25.11.2013 Сообщений: 14
	26.11.2013, 15:01 [ТС]
	использую emu8086, всё копмпилируется без проблем, end program должна быть последней? она и есть последняя а после следует объявление функции. Добавлено через 35 секунд Проблема решена 0

@Mikl___ Ушел с форума 16371 / 7683 / 1080 Регистрация: 11.11.2010 Сообщений: 13,757
	26.11.2013, 17:19
	makskam, не верю! (Станиславский) .model small - для ЕХЕ-программ org 100h и int 20h - для СОМ-программ ends - конец структуры или конец сегмента Program: - точка входа в программу, программа должна завершиться "end Program" всё что ниже такой строки компилятор не обрабатывает 0