Board.KolibriOS.org

#define cls,'console cls'
main:
console print,'Shell v.1 h-help'
console getch,%10
if %10,KEY_ESC
= end
sym %10,%10
if %10,'h'
= help
!= nocmd
jmp main

help:
cls
console print,'Help text             '
console getch,%10
cls
jmp main

nocmd:
cls
console print,'No cmd                '
sleep 100
cls
jmp main

end:
exit

#define func1, '%1' // даем знать препроцессору, что func1, как %1
mov func1,1234567 // передаем адрес/число переменной %2, в данном случае адрес функции на который будет сделан вызов
func1 %2 // вызываем функцию func1 с адресом 1234567 и передаем один параметр переменную %2 (автоматически преобразуются данные по типу)

#define init_console, '%1'
#define print, '%2'

dll load,'/sys/lib/console.obj' // загрузить библиотеку

dll function,init_console,'con_init' // загрузить в переменную %1 адрес функции con_init
dll function,print,'con_write_asciiz' // загрузить в переменную %2 адрес функции con_write_asciiz

#define title,'%10'
mov title,'Test'

init_console title,-1,-1,-1,-1

mov %11,'Full path VM: '
add %11,PATH
add %11,'\n'

add %11,'File name VM: '
add %11,FILE
add %11,'\n'

add %11,'Dir name VM: '
add %11,DIR
add %11,'\n'

add %11,'File name apps: '
add %11,SFILE
add %11,'\n'

add %11,'Full path apps: '
add %11,SPATH
add %11,'\n'

print %11' // вызов функции

object window,%1 // определим переменную 1, как окно
property left,%1,100 // изменим свойство left на 100 для окна
create %1 // создадим окно