Board.KolibriOS.org

Code: Select all

  use32
  org	 0x0

  db	 'MENUET01'
  dd	 0x01
  dd	 START
  dd	 I_END
  dd	 0x1000
  dd	 0x1000
  dd	 0x0
  dd	 0x0

include 'lang.inc'
include 'macros.inc'

START:
red:
    call draw_window
still:
    mcall 10            ; функция 10 - ждать события
    cmp  eax,1          ; перерисовать окно ?
    je   red            ; если да - на метку red
    cmp  eax,2          ; нажата клавиша ?
    je   key            ; если да - на key
    cmp  eax,3          ; нажата кнопка ?
    je   button         ; если да - на button
    jmp  still          ; если другое событие - в начало цикла
;end_still

key:                    ; нажата клавиша на клавиатуре
    mcall 2             ; функция 2 - считать код символа (в ah) (тут в принципе не нужна)
    mov [codes],1       ; Если нажали любую клавишу то меняем значение на 1
    jmp  still          ; вернуться к началу цикла
;end_key

button:
    mcall 17            ; 17 - получить идентификатор нажатой кнопки
    cmp   ah, 1         ; если НЕ нажата кнопка с номером 1,
    jnz   still 	      ; вернуться
    mcall -1            ; иначе конец программы
;end_button

draw_window:
    mcall 12, 1         ; функция 12: отрисовка окна; 1 - начинаем рисовать

    mcall 0, <200,200>, <200,50>, 0x33AABBCC,,title
    cmp  [codes],1      ; сравниваем
    jne   exit          ; если не равно то на выход, иначе ... выводим месадж

    mcall 4, <3, 8>, 0, message, message.size
exit:
    mcall 12, 2         ; функция 12: отрисовка окна; 2, закончили рисовать
    ret                 ; выходим из процедуры на мессто откуда вызвали


;---------------------------------------------------------------------
;---  ДАННЫЕ ПРОГРАММЫ  ----------------------------------------------
;---------------------------------------------------------------------
  codes dd 0

lsz message,\
  ru,'Нажмите любую клавишу...',\
  en,'Press any key...',\
  fr,'Pressez une touche...'

lsz title,\
  ru,'ПРИМЕР ПРОГРАММЫ',\
  en,'EXAMPLE APPLICATION',\
  fr,"L'exemplaire programme"

;---------------------------------------------------------------------

I_END:                  ; метка конца программы

Code: Select all

mcall 4, <3, 8>, 0, message, message.size

Code: Select all

	mov edi, text
	xor al, al 
	cld 
	rep scasb				;вот собственно и получил конец первой строки, теперь
	add edi, [codes]				; её длина
	mov esi, text2 
	mov ecx, [codes2]
	rep movsb
;--- Где...
	codes  dd 0
	codes2 dd 0
	text db 'Bye World! KOS!'
	text2 db 'My String!'

Code: Select all

	mov edi, text
	add edi, [codes]				; её длина
	mov esi, text2 
	mov ecx, [codes2]
	rep movsb
;--- Где...
	codes  dd 0
	codes2 dd 0
	text db 'Bye World! KOS!'
	text2 db 'My String!'

Code: Select all

	mov ebx, 256
	mov ecx, ebx
	mov edi, message
	xor al, al
@@:
	dec ecx
	scasb
	jne @b

	sub ecx, ebx
	neg ecx
	dec ecx

Code: Select all

    xor eax, eax
    mov eax,12
    finit
    fld  dword [cel]  ; ST0 = [cel]
    fdiv dword [eax] ; ST0 = ST0 / 12
    fstp dword [cel] ; [cel] = ST0 и вытолкнуть ST0
;   вывод в окно
;-----

    cel   dd -232456.456784356345

Code: Select all

    xor eax, eax - лишняя команда
    mov eax,12
    finit - лишняя команда
    fdiv dword [eax] ; ST0 = ST0 / 12

Code: Select all

    fld  dword [cel]  ; ST0 = [cel]
    fidiv dword [_12] ; ST0 = ST0 / 12
    fstp dword [cel] ; [cel] = ST0 и вытолкнуть ST0
    ...
    ...
    ...
_12 dd 12