ostapdontstop

6_18

Jan 12th, 2021
1,207
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;====== Программа 18 Файл z6_pr18.asm ====================
  2.  
  3. MASM
  4. MODEL small
  5. STACK 256
  6.  
  7.  
  8.  
  9.  
  10. .code
  11.  
  12. delay macro time
  13.  
  14.     local outer,inner
  15.     mov cx,time
  16. outer:
  17.     push cx
  18.     mov cx,20000
  19. inner:
  20.     loop inner
  21.     pop cx
  22.     loop outer
  23. endm
  24.  
  25.  
  26. ;Первый параметр = адрес строки, второй параметр = ее длина
  27.  
  28. ; outstring macro mes,len
  29.  
  30. ; -----
  31.  
  32. ; endm
  33.  
  34.  
  35. main:
  36.     mov ax,@data
  37.     mov ds,ax
  38.     ; outstring m1,3
  39.     ; outstring m2,4
  40.     ; delay 5
  41.     ; outstring m3,1
  42.  
  43.     mov dl,m3
  44.     mov ah,02h
  45.     int 21h
  46.  
  47.  
  48.     mov     ax,4C00h       
  49.     int     21h
  50.  
  51.  
  52. .data
  53.     m1 db '<>'
  54.     m2 db '*** '
  55.     m3 db '!'
  56.  
  57.  
  58. end main
  59.  
  60.  
  61.  
RAW Paste Data