Xsufu

Осипов_6

Apr 19th, 2021 (edited)
402
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. masm                ;режим работы TASM: masm
  2. model small         ;модель памяти
  3. .data               ;начало сегмента данных
  4.     x1 db 26h      ;переменная x1 26h
  5.     x2 dw ?         ;пустая переменная х2 2 байта
  6.     mess_x2 db "Enter x2: $"    ;сообщение с приглашением ввода
  7.     mess_end db 10,13,"The program is work correctly$" ;сообщение об успешном окончании работы
  8. .stack              ;начало сегмента стека
  9.     db 256 dup ("?");пустой стек 256 ячеек
  10.    
  11. .code               ;начало сегмента кода
  12. main proc           ;начало процедуры main
  13.     mov ax, @data   ;адрес сегмента данных в ах
  14.     mov ds, ax      ;адрес сегмента данных из ax в ds
  15.  
  16.     ;основная программа
  17.     mov ch, 23d     ;запись числа 23d в ch
  18.     mov bl, al      ;содержимое al в bl
  19.     mov bh, offset x1 ;число из х1 в bh
  20.    
  21.     mov dx, offset mess_x2 ;приглашение ввода
  22.     mov ah, 9h             ;действие, которое выполнит прерывание  
  23.     int 21h                ;вызов прерывания int21 DOS
  24.    
  25.     mov ah, 1h             ;вводим число с клавиатуры
  26.     int 21h                ;вызов прерывания int21 DOS
  27.  
  28.     xor ah,ah              ;Очищаем регистр ah
  29.     mov x2, ax             ;перемещаем остаток от ax (al) в x2
  30.    
  31.     xchg cx, x2            ;обмен значений между cx и x2
  32.     mov ax, x2             ;х2 в ах
  33.     mov ds:[1000h], ax     ;ах в ячеку 1000h
  34.  
  35.     mov dx, offset mess_end ;сообщение об оконачании работы
  36.     mov ah, 9h             ;действие, которое выполнит прерывание
  37.     int 21h                ;вызов прерывания int21 DOS
  38.    
  39.     mov ax, 4c00h          ;подготовка программы к завершению
  40.     int 21h                ;вызов прерывания int21 DOS
  41.    
  42. main endp                  ;конец процедуры main
  43. end main                   ;конец программы с точкой входа main
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×