Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Code Segment
- assume CS:Code, DS:Data, SS:Stack
- Start:
- mov ax, Code
- mov DS, AX
- ;a di regiszter inicializálása
- mov di, offset ertek ;innentol a di regiszter tartalma az ertek cimke offset memoria cime
- Menu_ki:
- ;kepernyo torles
- ;mov ax,3
- ;int 10h
- ;menu1 kiiras
- mov dx, offset uzenet1
- mov ah,09h
- int 21h
- mov dx, offset uzenet2
- mov ah,09h
- int 21h
- mov dx, offset uzenet3
- mov ah,09h
- int 21h
- mov dx, offset uzenet4
- mov ah,09h
- int 21h
- billentyufigyeles:
- mov ah,0
- int 16h
- cmp al,27 ;is it esc
- je Program_Vege
- cmp al,'1' ;is it 1
- je egybekerve
- cmp al,'2' ;is it 2
- je kettobekerve
- jmp billentyufigyeles
- egybekerve:
- ;teszt for ciklus
- ;ciklus kezd
- mov cx,7
- Vizsg:
- mov ah,02h
- mov dx,cx
- add dx,'0'
- int 21h
- ;ciklusvaltozo tarolasa
- mov [di],cx
- loop Vizsg
- ;ciklus veg
- jmp Menu_ki
- ;egybekerve menu vege
- kettobekerve:
- jmp Menu_ki
- Program_Vege:
- ;a *di regiszter tartalmának kiirása
- mov dx, [di]
- mov dx, '$'
- mov ah,09h
- int 21h
- mov ax, 4c00h
- int 21h
- ;Uzenetek
- uzenet1:
- db "A program elindult."
- db 0Dh
- db 0Ah
- db '$'
- uzenet2:
- db "[1]feladat1"
- db 0Dh ;carriage return
- db 0Ah ;soremelés
- db '$'
- uzenet3:
- db "[2]feladat2"
- db 0Dh
- db 0Ah
- db '$'
- uzenet4:
- db "[ESC]kilepes"
- db 0Dh
- db 0Ah
- db '$'
- ;ertekek
- ertek:
- db 0
- Code Ends
- Data Segment
- Data Ends
- Stack Segment
- Stack Ends
- End Start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement