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

@Черный ворон · Регистрация: 31.01.2012

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

вроде бы и не сложная задача, тем не менее мои познания оказались недостаточно глубокими.
для того чтобы легче было написал программу на 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

вот такие пироги. буду признателен за любую помощь/советы/указания

@AFP · 28.04.2012, 17:05

Посмотрите: Темы раздела : Assembler, MASM, TASM
Ввод и вывод чисел в различных системах счисления

@programmisto · 29.04.2012, 12:29

Вскрой обработчик IntToStr в паскале или Delphi и скопируй код.

Charles Kludge · 29.04.2012, 13:41

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

Вскрой обработчик IntToStr в паскале

Зачем? исходники рантайма 7 трупопаскаля лежат здесь.

@programmisto · 29.04.2012, 13:45

Интересно. Почитаю.

@Черный ворон · 30.04.2012, 16:55 **[ТС]**

потратив несколько часов времени с гугла и Питера Абеля помощью получил вот что:

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' соответственно). на выходе печатаются строки представления этого же числа в трех системах исчисления.
ну это так. если кому пригодится сий быдлокод

Charles Kludge · 30.04.2012, 19:57

Сообщение от Черный ворон

на конструкцию вида

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(?)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@AFP 650 / 337 / 37 Регистрация: 04.04.2012 Сообщений: 886
	28.04.2012, 17:05
	Посмотрите: Темы раздела : Assembler, MASM, TASM Ввод и вывод чисел в различных системах счисления 1

@programmisto 116 / 136 / 0 Регистрация: 15.04.2012 Сообщений: 1,031
	29.04.2012, 12:29
	Вскрой обработчик IntToStr в паскале или Delphi и скопируй код. 0

@programmisto 116 / 136 / 0 Регистрация: 15.04.2012 Сообщений: 1,031
	29.04.2012, 13:45
	Интересно. Почитаю. 0