Вывод букв ABCDEFGH

@Бородатый Админ · Регистрация: 17.11.2012

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

Пишу программу, которая бы выводила на экран буквы ABCDEFGH и при этом не содержала буквы в явном виде до выполнения кода.

Assembler

mov bx,00133
mov d,[bx],040404040
add d,[bx],004030201
mov dx,bx
mov ah,009
int 021
mov ah,010
int 016
add d,[bx],004040404
mov ah,009
int 021
add [bx][si],al
add [bx][si],al
and al,000

Выводит первые четыре буквы как и задумано, а затем -- большую абракадабру

Charles Kludge · 02.03.2013, 11:19

Assembler

    org 100h
    mov al, 14h
    rol al, 4
    mov cx, 8
@@: int 29h
    inc al
    loop    @B
    int 20h

@Бородатый Админ · 02.03.2013, 17:35 **[ТС]**

Charles Kludge, спасибо, только я еще не знаю циклов в asm'е, только начинаю учить его...

Сам уже разобрался, вот работающий вариант:

Assembler

mov bx,00124
mov d,[bx],040404040
add d,[bx],004030201
mov dx,bx
mov ah,009
int 021
add d,[bx],004040404
mov ah,009
int 021
int 020
add [bx][si],al
add [bx][si],al
and al,000

@Mikl___ · 04.03.2013, 06:30

можно проще!

Assembler

; masm dos com #
.286
.model   tiny
.code
    org 100h
start:  mov ah,9
    mov dx,offset x
    int 21h
    mov ah,0
    int 16h
    ret
x dq 2614135372023808577
end start

Charles Kludge · 04.03.2013, 08:37

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

можно проще!

Эмм... В hiew'e-то видно.

@Mikl___ · 04.03.2013, 09:47

Charles Kludge,
ну ведь в asm-файле букв нет

значит условия соблюдены... напомнило следующее:
Одному из студентов потребовалось перевести текст из db "Россия ВПЕРЁД!!",0 в переменную типа dd, а так как он сам это был сделать не в состоянии пришлось помогать...

Assembler

.686P
.model flat
include windows.inc
includelib user32.lib
extern _imp__MessageBoxA@16:dword
;--------------------------------------------------
.code
start:  push 0              
    push offset wTitle
    push offset MessageX
    push 0                    
    call _imp__MessageBoxA@16
        retn                        
;----------------------------------------------------------------------
wTitle  db 'MessageBox',0   
Message1 db 'Россия, вперёд!!',0
Message2 db -48,-18,-15,-15,-24,-1,44,32,-30,-17,-27,-16,-72,-28,33,33,0
Message3 dw 'оР','сс','яи',' ,','пв','ре','дё','!!',0
Message4 dd 'ссоР',' ,яи','репв','!!дё',0

если было более 4 символов в строке в переменную типа qword и tbyte строка упорно не хотела переводится, выдавая "constant value too large", но "если нельзя, но очень хочется..."

Assembler

Message5 dq 202CFFE8F1F1EED0h,2121E4B8F0E5EFE2r,0;r - указатель вещественного числа
Message6 dq 2318509284145622736t,2387440760449789922,0;t - указатель десятичного числа
Message7 dq 10.814462871797505e-154,4.373067346787318e-149,0
Message8 dq 200547776436174367320q,204417113436071367742o,0;o/q - указатель восьмеричного числа
Message9 dt 0EFE2202CFFE8F1F1EED0h,2121E4B8F0E5h

По последовательности в Message2 даже можно построить график и выделить функцию

или вот вариант

Assembler

; masm dos com #
.model tiny
.486
.code
    org 100h
start:  finit
        fld y
    fsqrt
    fstp x
    mov ah,9
    mov dx,offset x
    int 21h
    ret
y dt 4.1015157933598848760505494439881e-267
x dq ?
end start

Charles Kludge Клюг 7674 / 3189 / 382 Регистрация: 03.05.2011 Сообщений: 8,380
	04.03.2013, 08:37	5
	Сообщение от Mikl___ можно проще! Эмм... В hiew'e-то видно. 0

	04.03.2013, 09:47

Опции темы