forked from KolibriOS/kolibrios
ace-dent
0cd3b0c5b1
- Move source code from `trunk` into root directory for each program. - Update build files and ASM include paths. Add SPDX license header where appropriate. - Note: Line endings standardised from `CRLF` > `LF`, so best to view diffs with whitespace changes hidden. (Work towards #75, point 3) Reviewed-on: KolibriOS/kolibrios#419 Co-authored-by: Andrew <dent.ace@gmail.com> Co-committed-by: Andrew <dent.ace@gmail.com>
78 lines
1.5 KiB
FASM
78 lines
1.5 KiB
FASM
; SPDX-License-Identifier: NOASSERTION
|
|
;
|
|
|
|
; Text encoded with Code Page 866 - Cyrillic
|
|
|
|
|
|
; Hello, World! - Programm example for CMD shell
|
|
; Compile with FASM
|
|
;
|
|
; You must run this program from CMD shell only
|
|
;
|
|
|
|
use32
|
|
|
|
org 0x0
|
|
|
|
db 'MENUET01'
|
|
dd 0x01
|
|
dd START
|
|
dd I_END
|
|
dd 0x100000
|
|
dd 0x7fff0
|
|
dd 0x0
|
|
dd 0x0
|
|
|
|
include "lang.inc"
|
|
include "cmdipc.inc" ; Подключить файл CMDIPC.INC
|
|
|
|
START:
|
|
call initipc ; инициализировать для работы с CMD
|
|
|
|
mov eax,26 ; Длина строки
|
|
mov ebx,hello_text ; Указатель на строку
|
|
call print ; Вывести строку
|
|
|
|
again:
|
|
call getkey ; Ожидать нажатия клавиши и считать ее в key
|
|
|
|
cmp byte [key],'Y' ; Тут программа проверяет, нажата ли нужн. клавиша
|
|
je goodday
|
|
cmp byte [key],'y'
|
|
je goodday
|
|
cmp byte [key],'N'
|
|
je goodmorning
|
|
cmp byte [key],'n'
|
|
je goodmorning
|
|
|
|
jmp again ; Если нужн. клавиша не нажата, то считать клавишу
|
|
; заново
|
|
goodday: ; Вывести приветствие Good Day, World!
|
|
call eol ; Пропустить строку
|
|
|
|
mov eax,16
|
|
mov ebx,text4
|
|
call print
|
|
|
|
call eol ; Пропустить строку
|
|
|
|
jmp endipc ; Завершить программу
|
|
|
|
goodmorning: ; Вывести приветствие Good Morning, World!
|
|
call eol
|
|
|
|
mov eax,20
|
|
mov ebx,text5
|
|
call print
|
|
|
|
call eol
|
|
|
|
jmp endipc ; Заверщить программу
|
|
|
|
hello_text db 'Is it after 12 noon? [Y\N]?'
|
|
|
|
text4 db 'Good day, World!'
|
|
text5 db 'Good morning, World!'
|
|
|
|
I_END:
|