;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; A unvwater demo
; Programmed by Octavio Vega Fernandez
; http://octavio.vega.fernandez.googlepages.com/CV4.HTM
; Converted to KolibriOS, By Asper
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

use32
	org	0x0

	db	'MENUET00'	; 8 byte id
	dd	38		; required os
	dd	STARTAPP	; program start
	dd	I_END		; program image size
	dd	0x100000	; required amount of memory
	dd	0x00000000	; reserved=no extended header

include "aspAPI.inc"
SCREEN_WIDTH   equ    100h
SCREEN_HEIGHT  equ    100h


STARTAPP:

  mov  eax, 18	  ;Get CPU speed
  mov  ebx, 5
  int  0x40
  shr  eax, 28
  mov  dword [delay], eax

init_palette:
  mov  edi, Paleta
  ;xor  eax, eax
  mov  eax, 0x40
@@:
  stosd
  inc  al
  jnz  @b

MAIN:
l1:
  xor  esi, esi
l11:
  xor  ebx, ebx
  mov  edx, 303h
  sub  esi, 101h
l2:
  and  esi, 0xFFFF ;esi=si
  add  bl,  [esi+img]
  adc  bh,  ah
  inc  esi
  dec  dh
  jnz  l2

  mov  dh, 3
  add  esi, 100h-3
  dec  dl
  jnz  l2
  sub  esi, 1ffh
  and  esi, 0xFFFF ;esi=si

  mov  al, [img+esi]
  sub  bx, ax
  shl  ax, 2
  sub  bx, ax
  shr  bx, 2

  mov  ax, bx
  shr  ax, 7
  sub  bx, ax
  mov  [img+esi], bl
  inc  si
  jnz  l11

  call	copy_buffer_to_video


still:
	mov	eax, 11 	    ; Test if there is an event in the queue.
	int	0x40

	cmp	al,1		      ; redraw request ?
	jz	red
	cmp	al,2		      ; key in buffer ?
	jz	key
	cmp	al,3		      ; button in buffer ?
	jz	button

	jmp	MAIN

red:
	call	draw_window
	jmp	MAIN


key:
	mov	eax, 2
	int	0x40
	cmp	ah, 27		    ; Test Esc in ASCII
	je	close_app
	jmp	MAIN

button:
	mov	eax, 17 	    ; Get pressed button code
	int	0x40
	cmp	ah, 1		    ; Test x button
	je	close_app
	jmp	MAIN

draw_window:
	start_draw_window 100,70,SCREEN_WIDTH+10,SCREEN_HEIGHT+5,0x14224466,labelt;, 14;labellen-labelt
	mov	dword [skin_h], eax
	end_draw_window
ret


fail:
	; Type something here.
close_app:
	mov	eax, -1  ; close this program
	int	0x40



copy_buffer_to_video:
	pusha
    ;    mov     eax, 18 ;@WAITVSYNC();
    ;    mov     ebx, 14
    ;    int     0x40
	mov	eax, 5	;delay
	mov	ebx, dword [delay]
	int	0x40

	mov	eax, dword [skin_h]
	lea	edx, [5*65536+eax]

	mov	eax, 65
	mov	ebx, img
	mov	ecx, SCREEN_WIDTH*65536+SCREEN_HEIGHT ;ecx = w*65536+h
       ; mov     edx, 5*65536+25 ;edx = x*65536+y
	mov	esi, 8
	mov	edi, Paleta
	xor	ebp, ebp
	int	0x40
	popa
ret

; DATA AREA

; Application Title
labelt	 db   'UnvWater demo',0
delay	 dd   0
skin_h	 dd   25 ; Skin height.

I_END:
Paleta	 rb 1024
img	 db 1
	 rb 10000h