Advertisement
Guest User

assembly_labor

a guest
Sep 25th, 2018
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. Code    Segment
  3.     assume CS:Code, DS:Data, SS:Stack
  4.  
  5. Start:
  6.     mov ax, Code
  7.     mov DS, AX
  8.    
  9.     ;a di regiszter inicializálása
  10.     mov di, offset ertek ;innentol a di regiszter tartalma az ertek cimke offset memoria cime
  11.  
  12. Menu_ki:
  13.    
  14.     ;kepernyo torles
  15.     ;mov ax,3
  16.     ;int 10h
  17.     ;menu1 kiiras
  18.     mov dx, offset uzenet1
  19.     mov ah,09h
  20.     int 21h
  21.    
  22.     mov dx, offset uzenet2
  23.     mov ah,09h
  24.     int 21h
  25.    
  26.     mov dx, offset uzenet3
  27.     mov ah,09h
  28.     int 21h
  29.    
  30.     mov dx, offset uzenet4
  31.     mov ah,09h
  32.     int 21h
  33.    
  34. billentyufigyeles:
  35.     mov ah,0
  36.     int 16h
  37.    
  38.     cmp al,27 ;is it esc
  39.     je Program_Vege
  40.     cmp al,'1' ;is it 1
  41.     je egybekerve
  42.     cmp al,'2' ;is it 2
  43.     je kettobekerve
  44.    
  45.     jmp billentyufigyeles
  46.    
  47. egybekerve:
  48.     ;teszt for ciklus
  49.    
  50.     ;ciklus kezd
  51.     mov cx,7
  52. Vizsg:
  53.     mov ah,02h
  54.     mov dx,cx
  55.     add dx,'0'
  56.     int 21h
  57.    
  58.     ;ciklusvaltozo tarolasa
  59.     mov [di],cx
  60.    
  61.        
  62.     loop Vizsg
  63.     ;ciklus veg
  64.     jmp Menu_ki
  65. ;egybekerve menu vege
  66. kettobekerve:
  67.     jmp Menu_ki
  68.  
  69.    
  70.  
  71.    
  72. Program_Vege:
  73.     ;a *di regiszter tartalmának kiirása
  74.     mov dx, [di]
  75.     mov dx, '$'
  76.     mov ah,09h
  77.     int 21h
  78.    
  79.     mov ax, 4c00h
  80.     int 21h
  81.  
  82.  
  83.    
  84. ;Uzenetek
  85. uzenet1:
  86.     db "A program elindult."
  87.     db 0Dh
  88.     db 0Ah
  89.     db '$'
  90. uzenet2:
  91.     db "[1]feladat1"
  92.     db 0Dh ;carriage return
  93.     db 0Ah ;soremelés
  94.     db '$'
  95. uzenet3:
  96.     db "[2]feladat2"
  97.     db 0Dh
  98.     db 0Ah
  99.     db '$'
  100. uzenet4:
  101.     db "[ESC]kilepes"
  102.     db 0Dh
  103.     db 0Ah
  104.     db '$'
  105. ;ertekek
  106. ertek:
  107.     db 0
  108. Code    Ends
  109.  
  110. Data    Segment
  111.  
  112. Data    Ends
  113.  
  114. Stack   Segment
  115.  
  116. Stack   Ends
  117.     End Start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement