Advertisement
Guest User

Untitled

a guest
Nov 20th, 2018
118
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.25 KB | None | 0 0
  1. 1. 50x100 pixeles kitöltött téglalap grafikusan
  2.  
  3. mov ax,13h
  4. int 10h
  5. mov ax,0A000h
  6. mov ds,ax
  7. mov bx,320
  8. mov cx,50
  9. ciklus1:
  10. MOV AX,CX
  11. mul bx
  12. mov di,ax
  13. mov dx,50
  14. mov ax,0f0fh ;fehérszín
  15.  
  16. ciklus2:
  17. mov [di],ax
  18. inc di
  19. inc di
  20. dec dx
  21. jnz ciklus2
  22.  
  23. loop ciklus1
  24.  
  25. xor ax,ax
  26. int 16h
  27. mov ax,3h
  28. int 10h ; visszatérés karakteres módba
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38. 2. 5x7-es téglalap karakteresen ciklussal karakterkiírással
  39.  
  40. 3. karakterbekérés esc-ig
  41. kiírni, hogy MGH, MSH nem betű, csak angol ABC vagy kis és nagy betűkre
  42.  
  43. 4. kérjen be egy maximum 5 jegyű számot és írja ki a számnak megfelelő két ascii karaktert
  44.  
  45.  
  46. xor ax,ax
  47. push ax
  48. xor di,di
  49.  
  50. ciklus:
  51. xor ax,ax
  52. int 16h
  53. cmp al,27
  54. je vege
  55. inc di
  56. mov cl,al
  57. sub cl,'0'
  58. xor ch,ch ; cx-ben a beolvasott szamjegy
  59. mov ah,2
  60. mov dl,al
  61. int 21h
  62. pop ax
  63. mul bx
  64. add ax,cx
  65. push ax
  66. cmp di,5
  67. jl ciklus
  68.  
  69. vege:
  70. pop cx
  71.  
  72. mov dl,ch
  73. mov ah,2
  74. int 21h
  75. mov dl,cl
  76. int 21h
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84. 5. fordítsa meg a stringet a memóriában és írja ki a képernyőre.
  85.  
  86. mov di, offset szoveg
  87. mov si, offset szoveg
  88. add si, 15 ;szoveg hossza
  89.  
  90. ciklus:
  91. mov al,[di]
  92. mov ah,[si]
  93. mov [si], al
  94. mov [di], ah
  95. inc di
  96. dec si
  97. cmp di,si
  98. jl ciklus
  99.  
  100.  
  101. mov dx, offset szoveg
  102. mov ah,9
  103. int 21h
  104.  
  105.  
  106.  
  107. ;==========================================================================
  108. ;Név:
  109. ;Neptun kód:
  110. ;Dátum:
  111. ;
  112. ;==========================================================================
  113. Code Segment
  114. assume CS:Code, DS:Data, SS:Stack
  115.  
  116.  
  117. Start:
  118. mov ax, Code
  119. mov DS, AX
  120.  
  121. mov ax,3
  122. int 10h
  123.  
  124.  
  125. ;==========================================================================
  126. ;1. feledat:
  127. ;5x7-es téglalap karakteresen ciklussal karakterkiírással
  128. ;
  129. ;ooooooo
  130. ;o o
  131. ;o o
  132. ;o o
  133. ;ooooooo
  134. ;
  135. ;==========================================================================
  136.  
  137. mov dx, offset feladat1
  138. mov ah,9
  139. int 21h
  140. ;**************************************************************************
  141. ;Ide írja a megfelelő programrészt!
  142. mov dl,10
  143. mov ah,02h
  144. int 21h
  145. mov dl,13
  146. mov ah,02h
  147. int 21h
  148.  
  149.  
  150. mov dl,'o'
  151. mov ah,2
  152. mov cx, 7
  153. f1_cikluselsosor:
  154. int 21h
  155. loop f1_cikluselsosor
  156.  
  157. xor bx,bx
  158. mov cx,3
  159. f1_fociklus:
  160.  
  161. mov bx,cx; kimentjük a ciklusváltozót
  162. mov dl,10
  163. mov ah,02h
  164. int 21h
  165. mov dl,13
  166. mov ah,02h
  167. int 21h ; sortores
  168.  
  169.  
  170. mov dl,'o'
  171. int 21h
  172. mov cx, 5
  173. mov dl, ' '
  174. f1_belsociklus:
  175. int 21h
  176. loop f1_belsociklus
  177.  
  178. mov dl,'o'
  179. int 21h
  180.  
  181.  
  182. mov cx,bx
  183. dec cx
  184. jnz f1_fociklus
  185. ;loop f1_fociklus
  186.  
  187.  
  188.  
  189. mov dl,10
  190. mov ah,02h
  191. int 21h
  192. mov dl,13
  193. mov ah,02h
  194. int 21h ; sortores
  195.  
  196. mov cx, 7
  197. mov dl,'o'
  198. f1_ciklusutolsosor:
  199. int 21h
  200. loop f1_ciklusutolsosor
  201.  
  202.  
  203.  
  204. ;Eddig
  205. ;**************************************************************************
  206. xor ax,ax
  207. int 16h
  208. ;==========================================================================
  209. ;2. feledat:
  210. ;karakterbekérés esc-ig
  211. ;kiírni, hogy MGH, MSH nem betű, csak angol ABC vagy kis és nagy betűkre
  212. ;==========================================================================
  213. mov ah, 02h
  214. mov bh, 0
  215. mov dl, 0 ;DL:X koordinata
  216. mov dh, 15 ;DH:Y koordinata
  217. int 10h
  218.  
  219. mov dx, offset feladat2
  220. mov ah, 9
  221. int 21h
  222.  
  223. bevitel1:
  224. mov ah, 02h
  225. mov bh, 0
  226. mov dl,0 ;DL:X koordinata
  227. mov dh,17 ;DH:Y koordinata
  228. int 10h
  229.  
  230. xor ah,ah
  231. int 16h
  232. cmp al,27
  233. jz Feladat2_Vege
  234. ;**************************************************************************
  235. ;Ide írja a megfelelő programrészt!
  236.  
  237. cmp al, 'a'
  238. je maganhangzo
  239. cmp al,'e'
  240. je maganhangzo
  241. cmp al,'i'
  242. je maganhangzo
  243. cmp al,'u'
  244. je maganhangzo
  245. cmp al,'o'
  246. je maganhangzo
  247.  
  248. cmp al, 98
  249. jl nembetu
  250. cmp al, 122
  251. jg nembetu
  252.  
  253. mov dx, offset uzenetmassalhangzo
  254. mov ah,9
  255. int 21h
  256. jmp bevitel1
  257.  
  258. maganhangzo:
  259. mov dx, offset uzenetmaganhangzo
  260. mov ah,9
  261. int 21h
  262. jmp bevitel1
  263.  
  264. nembetu:
  265. mov dx, offset uzenetnembetu
  266. mov ah,9
  267. int 21h
  268. jmp bevitel1
  269.  
  270. ;Eddig
  271. ;**************************************************************************
  272. Feladat2_Vege:
  273. ;==========================================================================
  274. ;3. feledat:
  275. ;Karakteres üzemmódban írja ki a képernyőre SI értékét bináris formában!
  276. ;(Használja a balra rotáló (RCL) utasítást, amely a Carry bitet állítja!)
  277. ;==========================================================================
  278. mov ah, 02h
  279. mov bh, 0
  280. mov dl,0 ;DL:X koordinata
  281. mov dh,19 ;DH:Y koordinata
  282. int 10h
  283.  
  284. mov dx, offset feladat3
  285. mov ah,9
  286. int 21h
  287.  
  288. mov ah, 02h
  289. mov bh, 0
  290. mov dl,0 ;DL:X koordinata
  291. mov dh,21 ;DH:Y koordinata
  292. int 10h
  293.  
  294. mov si, 682
  295. ;**************************************************************************
  296. ;Ide írja a megfelelő programrészt!
  297.  
  298.  
  299. ;Eddig
  300. ;**************************************************************************
  301. xor ax,ax
  302. int 16h
  303.  
  304. mov ax,3
  305. int 10h
  306.  
  307. ;==========================================================================
  308. ;5. feledat:
  309. ;Karakteres üzemmódban írja ki a "Indul a görög aludni!" uzenetet!
  310. ;string megforditas
  311. ;==========================================================================
  312. mov dx, offset feladat6
  313. mov ah,9
  314. int 21h
  315.  
  316. mov ah, 02h
  317. mov bh, 0
  318. mov dl,0 ;DL:X koordinata
  319. mov dh,2 ;DH:Y koordinata
  320. int 10h
  321.  
  322. ;**************************************************************************
  323. ;Ide írja a megfelelő programrészt!
  324.  
  325. mov dl,10
  326. mov ah,02h
  327. int 21h
  328. mov dl,13
  329. mov ah,02h
  330.  
  331.  
  332. mov si, offset uzenet5+20
  333. mov cx, 21
  334. f5_ciklus:
  335. mov dl, [si]
  336. mov ah,02h
  337. int 21h
  338. dec si
  339. dec cx
  340. jnz f5_ciklus
  341.  
  342.  
  343. ;Eddig
  344. ;**************************************************************************
  345. xor ax,ax
  346. int 16h
  347. ;==========================================================================
  348. ;6. feledat:
  349. ;Számítsa ki a "muvelet1" sztringben megadott osztást.
  350. ;A két szájegyet elválasztó "/" szimbólumot nem kell feldolgozni!
  351. ;A osztás eredményét és maradékát decimális formában írja ki!
  352. ;==========================================================================
  353. mov ah, 02h
  354. mov bh, 0
  355. mov dl,0 ;DL:X koordinata
  356. mov dh,4 ;DH:Y koordinata
  357. int 10h
  358.  
  359. mov dx, offset feladat5
  360. mov ah,9
  361. int 21h
  362.  
  363. mov ah, 02h
  364. mov bh, 0
  365. mov dl,0 ;DL:X koordinata
  366. mov dh,6 ;DH:Y koordinata
  367. int 10h
  368.  
  369. ;**************************************************************************
  370. ;Ide írja a megfelelő programrészt!
  371.  
  372.  
  373.  
  374.  
  375. ;Eddig
  376. ;**************************************************************************
  377. xor ax,ax
  378. int 16h
  379.  
  380. Program_Vege:
  381. mov ax, 4c00h
  382. int 21h
  383.  
  384. uzenetmaganhangzo db "Maganhangzo lett leutve! $"
  385. uzenetmassalhangzo db "Massalhangzo lett leutve! $"
  386. uzenetnembetu db "Nem angol ABC betu lett leutve!$"
  387.  
  388. uzenet5 db "!indula gorog a ludnI"
  389. muvelet1 db "8/5"
  390.  
  391. feladat1 db "Elso feladat: 5x7-es teglalap karakteresen$"
  392. feladat2 db "Masodik feladat: MGH, MSH vagy nem betu (ESC=kilepes)$"
  393. feladat3 db "Harmadik feladat: 50x100 pixeles teglalap grafikusan.$"
  394. feladat5 db "Otodik feladat: max 5 jegyu szamot bekerni.$"
  395. feladat6 db "Hatodik feladat: string megforditas.$"
  396.  
  397.  
  398. Code Ends
  399.  
  400. Data Segment
  401.  
  402. Data Ends
  403.  
  404. Stack Segment
  405.  
  406. Stack Ends
  407. End Start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement