Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.06.2017, 19:40   #21
flu3xz
Пользователь
 
Регистрация: 19.05.2017
Сообщений: 26
По умолчанию

так а в моем, все нормально? нужно уже ввод с клавиатуры в него пихать, если все хорошо
flu3xz вне форума Ответить с цитированием
Старый 06.06.2017, 20:55   #22
flu3xz
Пользователь
 
Регистрация: 19.05.2017
Сообщений: 26
По умолчанию

программа пишет целую историю
Код:
include 'emu8086.inc'
.model	small 
data segment
    razmernost dw 6
massA	dw	6 dup (0)
sizeA = $-massA
massB	dw	6 dup (0)
sizeB = $-massB
massC	dw	(sizeA+sizeB) dup (0)
data ends
stack segment
    db 1024 dup(?) 
    stack ends  
code segment
    assume cs:code, ds:data, ss:stack
begin: 
     mov ax,@data
     mov ds,ax 
           lea si,massA
           lea di,massB
           lea bx,massC
           mov dx,sizeA
           mov cx,sizeB 
vvodA:push cx 
      CALL   pthis
      Db  13, 10, 'el ', 0 
      CALL   print_num
      Print ' : '
      call SCAN_NUM          
      mov massA[si], cx      
      add si,2     
      inc ax 
      pop cx
      loop vvodA                                                       
      call pthis                                                                                                     
      db 13,10, ' MassivA: ', 0            
           
vvodB:push cx
      CALL   pthis
      Db  13, 10, 'el ', 0 
      CALL   print_num 
      Print ' : '
      call SCAN_NUM           
      mov massB[di], cx      
      add di,2     
      inc ax 
      pop cx
      loop vvodB                                                       
      call pthis                                                                                                     
      db 13,10, ' MassivB: ', 0  
               
       xor si, si 
       mov cx, razmernost
vivodA:mov ax, massA[si]  
       add si, 2        
       CALL   print_num
       Print ' '
       loop vivodA
       
       xor di, di 
       mov cx, razmernost     
vivodB:mov ax, massB[si]  
       add di, 2         
       CALL   print_num  
       Print ' '
       loop vivodB        
                   
           
l1:   
    mov al,[si]
    mov ah,[di]
    cmp al,ah
    jle l2
    xchg    dx,cx
    xchg    si,di
    xchg    ah,al
l2:   mov [bx],al
        inc bx
        inc si
        loop    l1
        mov cx,dx
        mov si,di
l3:  
              mov al,[si]        
              mov [bx],al
              inc bx
              inc si
              loop    l3  
              
              
         call pthis   
        db 13,10, 'massC ', 0  
        call print_num         
              
    
    
DEFINE_SCAN_NUM
DEFINE_PRINT_STRING
DEFINE_PRINT_NUM
DEFINE_PRINT_NUM_UNS  
DEFINE_PTHIS
DEFINE_clear_screen 
ends
ends begin
ends code
flu3xz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Организация ввода-вывода alex_os Общие вопросы C/C++ 1 23.02.2015 15:34
Организация запрета ввода числа вещественного типа (разделенного точкой)... Igor95 Общие вопросы C/C++ 1 09.01.2013 21:43
Написать рекурсивную процедуру для ввода с клавиатуры последовательности чи-сел (конец ввода – 0) и вывода её на экран в обратном netiv Паскаль, Turbo Pascal, PascalABC.NET 1 17.02.2012 18:14
организация ввода-вывода информации в мк-51 YTP0 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 04.12.2011 09:12
Организация поиска и ввода данных Guggernaut БД в Delphi 1 15.06.2010 04:30