Форум программистов, компьютерный форум, киберфорум
Assembler для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Низкоуровневое программирование > Assembler, MASM, TASM > Assembler для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
138 / 132 / 57
Регистрация: 31.01.2012
Сообщений: 435
1

Перевод чисел в различные системы исчисления (tasm)

28.04.2012, 16:39. Показов 2988. Ответов 6
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
вроде бы и не сложная задача, тем не менее мои познания оказались недостаточно глубокими.
для того чтобы легче было написал программу на pascal
Pascal
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

var str,out:string;
i,len,sum,k,n,mn:word;
 
procedure convert(al:word);
var a,b:word;
s:char;
begin
out:='';
a:=sum;
while true do
   begin
   b:=a mod al;
   a:=a div al;
      if b>9 then s:=chr(b+48+39) else s:=chr(b+48);
      out:=s+out;
   if a=0 then break;
   end;
end;
 
 
begin
asm
mov ax,0003h
int 10h
end;
sum:=0;
k:=1;
writeln ('input number: ' );
readln(str);
len:=length(str);
if str[len]='d' then mn:=10 else
if str[len]='h' then mn:=16 else
if str[len]='b' then mn:=2 else
begin
writeln('error');
halt;
end;
 
for i:=(len-1) downto 1 do
    begin
    n:=ord(str[i])-48;
    if n>9 then n:=n-39;
    sum:=sum+n*k;
    k:=k*mn;
    end;
    convert(10);
    out:=out+'d';
    writeln(out);
if str[len]='h' then
    begin
    convert(2);
    out:=out+'b';
    writeln(out)
    end
    else if str[len]='b' then
    begin
    convert(16);
    out:=out+'h';
    writeln(out);
    end
    else
    begin
    convert(2);
    out:=out+'b';
    writeln(out);
    convert(16);
    out:=out+'h';
    writeln(out);
    end;
asm
mov ah,08h
int 21h
end;
end.
поначалу собирался с помощью встроенного в TP7 ассемблера и ассемблерных вставок изменить код. но не успешно.
далее начал пробовать отдельно написать сверяясь с каждой строкой.
тем не менее даже не смог некоторые строки представить в виде ассеблера
вот что получилось:

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

    .model tiny
    .code
    org 100h
start:
        mov ax,0003h
    int 10h
    mov sum,0h
    mov k,1h
    mov ah,09h
    mov dx, offset wtr
    call input
    add dx,1
    mov di,dx
    
    mov dl,[di]
    mov bl,dl;
    add di,[bx]
    moc dl,[di]
    mov lll,dl
    cmp dl,64h
    je _dec
    cmp dl,68h
    je _hex
    cmp dl,62h
    je _bin
    jmp exx
_dec:   mov mn, 0ah
    jmp _cont
_hex    mov mn,10h
    jmp _cont
_bin    mov mn,2h
    
_cont:  mov cl,bl 
@cycle: dec di
    dec cl
    cmp cl,00h
    je _exc
    mov dl,[di]
    sub dl,30h
    cmp dl,9
    jbe tt
    jmp tt2
tt: sub dl.39
tt2:    mov ax,dl
    imul k
    add sum,ax
    mov ax,k
    imul mn
    mov k,ax
    jmp @cycle
_exc:   
    mov par, 000ah
    call convert
     ;out:=out+'d'
     ;writeln(out);
    cmp lll,68h
    je @hex
    jmp isbin
@hex:   mov par,0002h
    call convert
      ;out:=out+'b'
      ;writeln(out);
    jmp @exx
@isbin: cmp lll,62h
    je @bin
    jmp isdec
@bin:   mov par,0010h
    call convert
     ;out:=out+'b'
     ;writeln(out);
    jmp @exx
@isdec: mov par,0002h
    call convert
     ;out:=out+'b'
     ;writeln(out);
    mov par,0010h
    call convert
     ;out:=out+'h'
     ;writeln(out);
    
@exx:   mov ah.08h
    int 21h
 
        ret
 
;====
    convert proc near
    mov a,sum
@c2:    mov ax,a
    div par
    mov a,al
    mov b,ah
    cmp b,9
    je @ifh
    jmp @eh
@ifh:   add b,39
@eh:    add b,48
      ; out:=s+out
    cmp a,00h
    je exc2
    jmp @c2
exc2:
    
    ret
    convert endp
 
;===
    input proc near
    mov ah,0ah
    mov dx,offset buffer
    int 21h
    ret
 
 
    input endp 
;======================================
    print proc near
    inc dx        
    mov di,dx
    mov bl,[di]
    mov [di],ah 
    inc di
    mov byte ptr [di+bx],'$'
    dec ah
;======================================
    int 21h
    ret
    print endp
 
 
;====
buffer db 10
buf2 db 20
sum dw ?
k dw ?
lll dw ?
a dw ?
b dw ?
wtr db "input number: ",'$'
end start
вот такие пироги. буду признателен за любую помощь/советы/указания
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 28.04.2012, 16:39
Ответы с готовыми решениями:

Ввод чисел. Перевод в различные системы счисления
Разработать программу перевода чисел из десятичной системы счисления в восьмеричную систему. Числа...

Перевод чисел в различные системы исчисления (полностью рабочая)
int Take_Number(char a) { if(a <= '9') return a - '0'; if(a...

Перевод чисел в разные системы исчисления
Доброе утро форомчане, можете пожалуйста написать программу в windows form,программа должна...

Перевод чисел из одной системы исчисления в другую. Помогите.
На форуме уже была эта тема, и там один человек написал вот такой код, извините не нашел его ника(...

6
650 / 337 / 37
Регистрация: 04.04.2012
Сообщений: 886
28.04.2012, 17:05 2
Посмотрите: Темы раздела : Assembler, MASM, TASM
Ввод и вывод чисел в различных системах счисления
1
116 / 136 / 0
Регистрация: 15.04.2012
Сообщений: 1,031
29.04.2012, 12:29 3
Вскрой обработчик IntToStr в паскале или Delphi и скопируй код.
0
Клюг
7674 / 3189 / 382
Регистрация: 03.05.2011
Сообщений: 8,380
29.04.2012, 13:41 4
Цитата Сообщение от programmisto1
Вскрой обработчик IntToStr в паскале
Зачем? исходники рантайма 7 трупопаскаля лежат здесь.
0
116 / 136 / 0
Регистрация: 15.04.2012
Сообщений: 1,031
29.04.2012, 13:45 5
Интересно. Почитаю.
0
138 / 132 / 57
Регистрация: 31.01.2012
Сообщений: 435
30.04.2012, 16:55  [ТС] 6
потратив несколько часов времени с гугла и Питера Абеля помощью получил вот что:
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
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224

.model tiny
    .code
    org 100h
    start:
    mov ax,0003h
    int 10h
    
    mov ah,09h
    mov dx,offset wtr
    int 21h
    call input  
    
    mov sum,0
    mov k,1 
    
    add dx,1
    mov di,dx
    mov bl,[di] 
    add di,bx
    
    mov dx,0100h
    mov ah,02h
    int 10h
 
    mov dl,[di]
    mov cl,bl
    mov si,di
 
    cmp dl,64h
    je  _dec
    cmp dl,44h
    je  _dec                     
    
    cmp dl,68h
    je hex
    cmp dl,48h
    je hex
 
    cmp dl,62h
    je bin
    cmp dl,42h
    je bin
    
    jmp error
 
_dec:   mov mn,0ah
    jmp _cont   
 
hex:    mov mn,10h
    jmp _cont
 
bin:    mov mn,02h
    jmp _cont
 
 
_cont:  mov bx,0100h
    
_c: dec si
    dec cl
    cmp cl,0h
    je __cont                               
    mov dl,[si]
    cmp dl,39h
    jg ith
    jmp noth
ith:    sub dl,27h
noth:   sub dl,30h
    mov ax,0000h
    mov al,dl
    mul k                           
    add sum,ax
    mov ax,k
    mul mn            
    mov k,ax
    jmp _c
           
__cont:
    mov bp,000ah                 
    mov ax,sum        
    mov a,ax                    
    call convert    
    mov dl,64h
    mov ah,02h
    int 21h
    xor dx,dx
    xor ax,ax
    mov dx,0200h
    mov ah,02h          
    int 10h
    
    cmp mn,10h
    je @@hex
    jmp @_bin
@@hex:  mov bp,0002h
    mov ax,sum
    mov a,ax
    call convert
    mov dl,62h
    mov ah,02h
    int 21h
;===
    xor dx,dx
    xor ax,ax
    mov dx,0300h
    mov ah,02h          
    int 10h
;===    
    jmp exit
 
@_bin:  cmp mn,02h
    je ybin
    jmp ddec
ybin:   mov bp,0010h
    mov ax,sum
    mov a,ax
    call convert
    mov dl,68h
    mov ah,02h
    int 21h
;===
    xor dx,dx
    xor ax,ax
    mov dx,0300h
    mov ah,02h          
    int 10h
;===    
    jmp exit
 
ddec:   mov bp,0002h
    mov ax,sum
    mov a,ax
    call convert
    mov dl,62h
    mov ah,02h
    int 21h
;===
    xor dx,dx
    xor ax,ax
    mov dx,0300h
    mov ah,02h          
    int 10h
;===
        mov bp,0010h
    mov ax,sum
    mov a,ax
    call convert
    mov dl,68h
    mov ah,02h
    int 21h
;===
    xor dx,dx
    xor ax,ax
    mov dx,0400h
    mov ah,02h          
    int 10h 
;===
    jmp exit
 
error:  mov ah,09h
    mov dx,offset _err
    int 21h 
 
exit:
    mov ah,09h
    mov dx,offset _exx
    int 21h
    ret
 
 
 
    convert proc near   
    push si
    
    mov si,0000h
@c2:    
    cmp a,0000h
    je pp   
    xor ax,ax
    mov ax,a
    xor dx,dx
    div bp  
    mov a,ax            
    cmp dx,9
    jg ith2
    jmp nith
ith2:   add dx,27h
nith:   push dx
    xor ax,ax
    inc si
    jmp @c2
    
pp: cmp si,0000h
    je ppe  
    xor ax,ax
    pop dx
    add dx,30h
    mov ah,02h
    int 21h
    xor ax,ax
    dec si  
    jmp pp
ppe:    pop si  
    ret
    convert endp
 
    input proc near
    mov ah,0ah
    mov dx,offset buffer
    int 21h
    ret
    input endp 
 
buffer db 10 ; максимальная длина ввода строки
text db 10 dup() ; фактически ввод размещается здесь 
sum dw ?
k dw ?
mn dw ?                   
n dw ?
par dw ?
a dw ?
wtr db "input number: ",'$'
_err db "error",'$'
_exx db "exit",'$'
end start
----

числа переводятся правильно. единственная проблема: результат получается в одну строку, несмотря на то что я явно указывал позиции курсора( (отметил комментами те места, где не срабатывает перенос строки).

Добавлено через 16 минут
проблему решил заменой конструкции вида
Assembler
1
2
3
4
5
6
7

;===
    xor dx,dx
    xor ax,ax
    mov dx,0300h
    mov ah,02h          
    int 10h
;===
на конструкцию вида
Assembler
1
2
3

    mov ah,09h
    mov dx,offset txt
    int 21h
где
Assembler
1

txt db 0dh,0ah,'$'
Добавлено через 5 минут
финальный код:
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
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209

    .model tiny
    .code
    org 100h
    start:
    mov ax,0003h
    int 10h
    
    mov ah,09h
    mov dx,offset wtr
    int 21h
    call input  
    
    mov sum,0
    mov k,1 
    
    add dx,1
    mov di,dx
    mov bl,[di] 
    add di,bx
    
    mov dx,0100h
    mov ah,02h
    int 10h
 
    mov dl,[di]
    mov cl,bl
    mov si,di
 
    cmp dl,64h
    je  _dec
    cmp dl,44h
    je  _dec                     
    
    cmp dl,68h
    je hex
    cmp dl,48h
    je hex
 
    cmp dl,62h
    je bin
    cmp dl,42h
    je bin
    
    jmp error
 
_dec:   mov mn,0ah
    jmp _cont   
 
hex:    mov mn,10h
    jmp _cont
 
bin:    mov mn,02h
    jmp _cont
 
 
_cont:  mov bx,0100h
    
_c: dec si
    dec cl
    cmp cl,0h
    je __cont                               
    mov dl,[si]
    cmp dl,39h
    jg ith
    jmp noth
ith:    sub dl,27h
noth:   sub dl,30h
    mov ax,0000h
    mov al,dl
    mul k                           
    add sum,ax
    mov ax,k
    mul mn            
    mov k,ax
    jmp _c
           
__cont:
    mov bp,000ah                 
    mov ax,sum        
    mov a,ax                    
    call convert    
    mov dl,64h
    mov ah,02h
    int 21h
    mov ah,09h
    mov dx,offset txt
    int 21h
    
    cmp mn,10h
    je @@hex
    jmp @_bin
@@hex:  mov bp,0002h
    mov ax,sum
    mov a,ax
    call convert
    mov dl,62h
    mov ah,02h
    int 21h
    mov ah,09h
    mov dx,offset txt
    int 21h 
    jmp exit
 
@_bin:  cmp mn,02h
    je ybin
    jmp ddec
ybin:   mov bp,0010h
    mov ax,sum
    mov a,ax
    call convert
    mov dl,68h
    mov ah,02h
    int 21h
    mov ah,09h
    mov dx,offset txt
    int 21h     
    jmp exit
 
ddec:   mov bp,0002h
    mov ax,sum
    mov a,ax
    call convert
    mov dl,62h
    mov ah,02h
    int 21h
    
    mov ah,09h
    mov dx,offset txt
    int 21h
    
        mov bp,0010h
    mov ax,sum
    mov a,ax
    call convert
    mov dl,68h
    mov ah,02h
    int 21h
    mov ah,09h
    mov dx,offset txt
    int 21h
    jmp exit
 
error:  mov ah,09h
    mov dx,offset _err
    int 21h 
 
exit:
    mov ah,09h
    mov dx,offset _exx
    int 21h
    ret
 
 
 
    convert proc near   
    push si
    
    mov si,0000h
@c2:    
    cmp a,0000h
    je pp   
    xor ax,ax
    mov ax,a
    xor dx,dx
    div bp  
    mov a,ax            
    cmp dx,9
    jg ith2
    jmp nith
ith2:   add dx,27h
nith:   push dx
    xor ax,ax
    inc si
    jmp @c2
    
pp: cmp si,0000h
    je ppe  
    xor ax,ax
    pop dx
    add dx,30h
    mov ah,02h
    int 21h
    xor ax,ax
    dec si  
    jmp pp
ppe:    pop si  
    ret
    convert endp
 
    input proc near
    mov ah,0ah
    mov dx,offset buffer
    int 21h
    ret
    input endp 
 
buffer db 10 ; максимальная длина ввода строки
text db 10 dup() ; фактически ввод размещается здесь 
sum dw ?
k dw ?
mn dw ?                   
n dw ?
par dw ?
a dw ?
txt db 0dh,0ah,'$'
wtr db "input number: ",'$'
_err db "error",'$'
_exx db "exit",'$'
end start
программе вводится число в одной из систем исчисления: десятичной, двоичной шестнадцетиричной. идентификатор исходной системы исчисления - последний символ получаемой строки. ('d' или 'D';'b' или 'B';'h' или 'H' соответственно). на выходе печатаются строки представления этого же числа в трех системах исчисления.
ну это так. если кому пригодится сий быдлокод
0
Клюг
7674 / 3189 / 382
Регистрация: 03.05.2011
Сообщений: 8,380
30.04.2012, 19:57 7
Цитата Сообщение от Черный ворон
на конструкцию вида
Assembler
1
2
3
4

mov ax,0A0Dh
int 29h
xchg al,ah
int 29h


Добавлено через 2 часа 58 минут
Цитата Сообщение от Черный ворон
если кому пригодится сий быдлокод
А дописать не хочешь?
Вот кусочек:
Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

    org 100h
start:
    mov ah,10
    mov dx, buf
    int 21h         ;вводим  с клавиатуры
    mov si, dx
    lodsw
    movzx   cx,ah
  ;преобразуем строку в число
    xor eax,eax
    cdq
@@: lodsb
    lea edx,[edx*4+edx]
    lea edx,[edx*2+eax-'0']
    loop    @B
 
  ;Теперь в edx число
    ret
 
buf: db 10,?, 20 DUP(?)
2
30.04.2012, 19:57
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 30.04.2012, 19:57
Помогаю со студенческими работами здесь

Перевод чисел в различные системы счисления
У меня программа конвертер чисел из 16 сист счисления в 10 из чисел заданных в текстовом. Есть...

Перевод чисел в различные системы счисления
Есть пример перевода из 16 в 2. Помогите разобраться в коде. Понятно, что каждой цифре...

Перевод чисел в различные системы счисления
перевод целых чисел из 4->10->2->8

Перевод чисел в различные системы счисления
можно комментарии написать к этому коду? немного непонятно) помогите:) var Form1: TForm1; ...

Перевод чисел в различные системы счисления
Помогите решить задачки,пожалуйста!Задания отсканированны во вложении!Зарание спасибо))

Перевод чисел в различные системы счисления
НЕ смогу понять почему не правильно считается 10 сс(( Вроде написано все верно, а считает не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru