Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- .686
- .model flat
- extern _ExitProcess@4 : PROC
- extern _MessageBoxA@16 : PROC
- extern _MessageBoxW@16 : PROC
- extern __write : PROC ; (dwa znaki podkreślenia)
- extern __read : PROC ; (dwa znaki podkreślenia)
- public _main
- .data
- tytul_Unicode db 'T',0,'e',0,'k',0,'s',0,'t',0,' ',0
- db 'w',0,' ',0
- db 's',0,'t',0,'a',0,'n',0,'d',0,'a',0,'r',0
- db 'd',0,'z',0,'i',0,'e',0,' ',0
- db 'U',0,'n',0,'i',0,'c',0,'o',0,'d',0,'e',0
- db 0,0
- tekst_Unicode db 'K',0,'a',0,'z',0,'d',0,'y',0
- db ' ',0,'z',0,'n',0,'a',0,'k',0,' ',0
- db 'z',0,'a',0,'j',0,'m',0,'u',0,'j',0,'e',0
- db ' ',0
- db '1',0,'6',0,' ',0,'b',0,'i',0,'t',0,'o',0
- db 'w',0,0,0
- tytul_Win1250 db 'Tekst w standardzie Windows 1250', 0
- tekst_Win1250 db 'Kazdy znak zajmuje 8 bitow', 0
- tekst_pocz db 10, 'Proszę napisać jakiś tekst '
- db 'i nacisnac Enter', 10
- koniec_t db ?
- magazyn db 80 dup (?)
- nowa_linia db 10
- liczba_znakow dd ?
- .code
- prog PROC
- ; liczba znaków tekstu =======WRITE=======
- mov ecx,(OFFSET koniec_t) - (OFFSET tekst_pocz)
- push ecx
- push OFFSET tekst_pocz ; adres tekstu
- push 1 ; nr urządzenia (tu: ekran - nr 1)
- call __write ; wyświetlenie tekstu początkowego
- add esp, 12 ; usuniecie parametrów ze stosu
- ; czytanie wiersza z klawiatury =======READ=======
- push 80 ; maksymalna liczba znaków
- push OFFSET magazyn
- push 0 ; nr urządzenia (tu: klawiatura - nr 0)
- call __read ; czytanie znaków z klawiatury
- add esp, 12 ; usuniecie parametrów ze stosu
- push 0 ; stała MB_OK =======MBA========
- ; adres obszaru zawierającego tytuł
- push OFFSET tytul_Win1250
- ; adres obszaru zawierającego tekst
- push OFFSET tekst_Win1250
- push 0 ; NULL
- call _MessageBoxA@16
- push 0 ; stala MB_OK =======MBW========
- ; adres obszaru zawierającego tytuł 10
- push OFFSET tytul_Unicode
- ; adres obszaru zawierającego tekst
- push OFFSET tekst_Unicode
- push 0 ; NULL
- call _MessageBoxW@16
- ret
- prog ENDP
- _main:
- call prog
- push 0
- call _ExitProcess@4
- END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement