Advertisement
qberik

Untitled

Dec 26th, 2022
189
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.12 KB | None | 0 0
  1. .model small
  2. .stack 100h
  3.  
  4.  
  5. cls macro
  6.  
  7. mov ah, 06h
  8. mov al, 00h
  9.  
  10.  
  11. mov bh, 00001111b
  12. mov cx, 0000h
  13. mov dx, 184fh
  14. int 10h
  15. endm cls
  16.  
  17. Print macro text
  18. mov ah, 09h
  19. mov dx, offset text
  20. int 21h
  21. endm Print
  22.  
  23. MoveCursor macro cx
  24. mov ah, 02h
  25. mov bh, 00h
  26. mov dx, cx
  27. int 10h
  28. endm MoveCursor
  29.  
  30. .data
  31.  
  32. text1 db ' Hard is the first step.$'
  33. text2 db ' Varro, Mark Terence$'
  34. text3 db ' 116-27 years. BC$'
  35. author db 'IGOR SKREBNEV$'
  36. gruppa db 'IUK4-32B$'
  37. fakylt db 'IUK$'
  38.  
  39. .code
  40.  
  41. start:
  42.  
  43. mov ax, @data
  44. mov ds, ax
  45.  
  46.  
  47.  
  48.  
  49. mov ah, 01h
  50. mov cx, 2607h
  51. int 10h
  52.  
  53.  
  54.  
  55. cls
  56.  
  57. mov cx, 0b10h
  58. MoveCursor cx
  59.  
  60. Print text1
  61.  
  62.  
  63. mov cx, 0c10h
  64. MoveCursor cx
  65.  
  66. Print text2
  67.  
  68.  
  69. mov cx, 0d10h
  70. MoveCursor cx
  71.  
  72. Print text3
  73.  
  74.  
  75.  
  76.  
  77. mov cx, 1800h
  78. MoveCursor cx
  79.  
  80. Print fakylt
  81.  
  82.  
  83.  
  84.  
  85. mov cx, 184bh
  86. MoveCursor cx
  87. mov ah, 09h
  88. mov al, '!'
  89. mov bh, 0
  90.  
  91.  
  92. mov bl, 00001111b
  93.  
  94. mov cx, 5
  95. int 10h
  96.  
  97.  
  98. mov cx, 0000h
  99. MoveCursor cx
  100. Print author
  101.  
  102.  
  103.  
  104. mov cx, 0048h
  105. MoveCursor cx
  106. Print gruppa
  107.  
  108.  
  109.  
  110. mov ah, 07h
  111. int 21h
  112.  
  113.  
  114. mov ax, 4c00h
  115. int 21h
  116.  
  117.  
  118.  
  119. end start
  120.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement