forked from KolibriOS/kolibrios
376 lines
7.3 KiB
NASM
376 lines
7.3 KiB
NASM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; A firework demo
|
|
; Programmed by Yaniv LEVIATHAN
|
|
; http://yaniv.leviathanonline.com
|
|
; Converted to DexOS, By Dex
|
|
; Converted to KolibriOS, By Asper
|
|
; Optimized for KolibriOS, By Diamond
|
|
; Assemble with
|
|
; c:fasm firework.asm firework.kex
|
|
; NOTE: Needs MMX & SSE
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
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 '../../../macros.inc'
|
|
include "aspapi.inc"
|
|
SCREEN_WIDTH equ 320
|
|
SCREEN_HEIGHT equ 200
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; Global defines
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
NUM_PARTS = 150
|
|
X_OFFSET = 0
|
|
Y_OFFSET = 4
|
|
X_SPEED_OFFSET = 8
|
|
Y_SPEED_OFFSET = 12
|
|
COLOR_OFFSET = 16
|
|
PART_SIZE = 20
|
|
|
|
macro draw_window
|
|
{
|
|
local x, xsize, y, ysize, areacolor, caption
|
|
x = 100
|
|
y = 70
|
|
xsize = SCREEN_WIDTH+9
|
|
ysize = SCREEN_HEIGHT+4
|
|
areacolor = 0x54224466
|
|
caption = labelt
|
|
mov eax, 12 ; function 12:tell os about windowdraw
|
|
mov ebx, 1 ; 1, start of draw
|
|
int 0x40
|
|
; DRAW WINDOW
|
|
mov eax, 48
|
|
mov ebx, 4
|
|
int 0x40
|
|
lea ecx, [y*65536+ysize+eax]
|
|
xor eax, eax ; function 0 : define and draw window
|
|
mov ebx, x*65536+xsize ; [x start] *65536 + [x size]
|
|
mov edx, areacolor ; color of work area RRGGBB
|
|
mov edi, caption
|
|
int 0x40
|
|
; start_draw_window 100,70,SCREEN_WIDTH+9,SCREEN_HEIGHT+29,0x04224466,labelt;, 14;labellen-labelt
|
|
end_draw_window
|
|
}
|
|
|
|
macro mmx_shade
|
|
{
|
|
mov ecx, SCREEN_WIDTH*SCREEN_HEIGHT/8
|
|
mov edi,buffer
|
|
movq mm1, [sub_mask]
|
|
.lop:
|
|
movq mm0, [edi]
|
|
psubusb mm0, mm1
|
|
movq [edi], mm0
|
|
add edi, 8
|
|
loop .lop
|
|
}
|
|
|
|
macro mmx_blur_prepare
|
|
{
|
|
mov ecx, (SCREEN_WIDTH*SCREEN_HEIGHT-330*2)/8
|
|
mov edi,buffer + 328
|
|
}
|
|
|
|
macro mmx_blur
|
|
{
|
|
local .lop
|
|
.lop:
|
|
movq mm0, [edi]
|
|
movq mm1, [edi+1]
|
|
movq mm2, [edi-1]
|
|
movq mm3, mm0
|
|
movq mm4, [edi-SCREEN_WIDTH]
|
|
movq mm5, [edi+SCREEN_WIDTH]
|
|
|
|
pavgb mm0, mm1 ; mm0 = avg(cur,cur+1)
|
|
pavgb mm3, mm2 ; mm3 = avg(cur,cur-1)
|
|
pavgb mm4, mm5 ; mm4 = avg(cur+320,cur-320)
|
|
pavgb mm3, mm4 ; mm3 = avg(avg(cur,cur-1),avg(cur+320,cur-320))
|
|
pavgb mm0, mm3 ; mm0 = avg(avg(cur,cur+1),
|
|
|
|
movq [edi], mm0
|
|
add edi, 8
|
|
loop .lop
|
|
}
|
|
|
|
|
|
macro mmx_blur_right
|
|
{
|
|
local .lop
|
|
.lop:
|
|
movq mm0, [edi]
|
|
movq mm1, [edi+1]
|
|
movq mm2, [edi+SCREEN_WIDTH]
|
|
movq mm3, [edi+SCREEN_WIDTH+1]
|
|
pavgb mm0, mm1
|
|
pavgb mm3, mm2
|
|
pavgb mm0, mm3
|
|
movq [edi], mm0
|
|
add edi, 8
|
|
loop .lop
|
|
}
|
|
|
|
STARTAPP:
|
|
|
|
init_palette:
|
|
mov edi, pal
|
|
xor eax, eax
|
|
red_loop:
|
|
stosd
|
|
stosd
|
|
add eax, 0x040000
|
|
and eax, 0xFFFFFF
|
|
jnz red_loop
|
|
|
|
mov eax, 63*4*65536
|
|
@@:
|
|
stosd
|
|
stosd
|
|
add ax, 0x0404
|
|
jnc @b
|
|
|
|
;zero_buffer:
|
|
mov ecx, SCREEN_WIDTH*SCREEN_HEIGHT/4
|
|
; mov edi,buffer
|
|
xor eax, eax
|
|
rep stosd
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; Main Functions
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
virtual at esp
|
|
global_x dd ?
|
|
global_y dd ?
|
|
seed dd ?
|
|
end virtual
|
|
|
|
db 0x0f, 0x31
|
|
push eax ; seed
|
|
push 100*64 ; global_y
|
|
push 160*64 ; global_x
|
|
|
|
jmp MAIN
|
|
|
|
|
|
red:
|
|
mcall 9,proc_info,-1
|
|
draw_window
|
|
MAIN:
|
|
test [proc_info.wnd_state], 0x04
|
|
jnz still
|
|
mov ecx, NUM_PARTS
|
|
mov ebp, particles
|
|
.advance_particles:
|
|
mov eax, [ebp+X_OFFSET]
|
|
mov ebx, [ebp+Y_OFFSET]
|
|
|
|
sar eax, 6
|
|
sar ebx, 6
|
|
|
|
cmp eax, 5
|
|
jb .new_particle
|
|
cmp eax, SCREEN_WIDTH-5;315
|
|
jge .new_particle
|
|
cmp ebx, 5
|
|
jb .new_particle
|
|
cmp ebx, SCREEN_HEIGHT-5;195
|
|
jl .part_ok
|
|
|
|
.new_particle:
|
|
call init_particle
|
|
jmp .advance_particles
|
|
|
|
.part_ok:
|
|
; mov edi, eax
|
|
; add edi,buffer
|
|
; mov eax, SCREEN_WIDTH
|
|
; mul ebx
|
|
imul edi, ebx, SCREEN_WIDTH
|
|
mov dl, [ebp+COLOR_OFFSET]
|
|
mov [buffer+eax+edi], dl
|
|
|
|
; mov eax, [ebp+X_OFFSET]
|
|
; mov ebx, [ebp+Y_OFFSET]
|
|
; add eax, [ebp+X_SPEED_OFFSET]
|
|
; add ebx, [ebp+Y_SPEED_OFFSET]
|
|
; mov [ebp+X_OFFSET], eax
|
|
; mov [ebp+Y_OFFSET], ebx
|
|
mov eax, [ebp+X_SPEED_OFFSET]
|
|
add [ebp+X_OFFSET], eax
|
|
mov eax, [ebp+Y_SPEED_OFFSET]
|
|
add [ebp+Y_OFFSET], eax
|
|
|
|
db 0x0f, 0x31
|
|
and al, 0x7F
|
|
jnz .dont_inc_y_speed
|
|
inc dword [ebp+Y_SPEED_OFFSET]
|
|
.dont_inc_y_speed:
|
|
|
|
add ebp, PART_SIZE
|
|
loop .advance_particles
|
|
|
|
mmx_shade
|
|
; jmp .copy_buffer_to_video
|
|
mmx_blur_prepare
|
|
test dword [blur_right_flag] , 0x800000
|
|
jnz .do_blur_right
|
|
mmx_blur
|
|
db 0x0f, 0x31
|
|
and al, 1
|
|
jz .blur_ok
|
|
jmp .dont_blur
|
|
.do_blur_right:
|
|
mmx_blur_right
|
|
.blur_ok:
|
|
add dword [blur_right_flag], 0x1000
|
|
.dont_blur:
|
|
|
|
.copy_buffer_to_video:
|
|
; mov eax, 18 ;@WAITVSYNC();
|
|
; mov ebx, 14
|
|
; int 0x40
|
|
|
|
mov eax, 48
|
|
mov ebx, 4
|
|
int 0x40
|
|
lea edx, [5*65536+eax]
|
|
|
|
mov eax, 65 ;copyfard(0xA000,0,screen,0,16000);
|
|
mov ebx, buffer;dword [screen]
|
|
mov ecx, SCREEN_WIDTH*65536+SCREEN_HEIGHT ;ecx = w*65536+h
|
|
; mov edx, 5*65536+25 ;edx = x*65536+y
|
|
push 8
|
|
pop esi
|
|
;mov esi, 8
|
|
mov edi, pal
|
|
xor ebp, ebp
|
|
int 0x40
|
|
|
|
|
|
still:
|
|
mov eax, 11 ; Test if there is an event in the queue.
|
|
int 0x40
|
|
|
|
dec eax ; redraw request ?
|
|
jz red
|
|
dec eax ; key in buffer ?
|
|
jz key
|
|
dec eax ; button in buffer ?
|
|
jz button
|
|
|
|
jmp MAIN
|
|
|
|
|
|
key:
|
|
mov eax, 2
|
|
int 0x40
|
|
; cmp ah, 1 ; Test Esc in Scan
|
|
; je close_app
|
|
cmp ah, 27 ; Test Esc in ASCII
|
|
je close_app
|
|
jmp MAIN
|
|
|
|
button:
|
|
; we have only one button, close
|
|
; mov eax, 17 ; Get pressed button code
|
|
; int 0x40
|
|
; cmp ah, 1 ; Test x button
|
|
; je close_app
|
|
; jmp MAIN
|
|
; fall through to close_app
|
|
|
|
fail:
|
|
; Type something here.
|
|
close_app:
|
|
mov eax,-1 ; close this program
|
|
int 0x40
|
|
|
|
init_particle:
|
|
db 0x0f, 0x31
|
|
and al, 0x1F
|
|
jnz .dont_re_init_globals
|
|
; init x
|
|
call rand
|
|
cdq
|
|
;xor dx, dx
|
|
mov ebx, SCREEN_WIDTH
|
|
div ebx
|
|
shl edx, 6
|
|
mov [4+global_x], edx
|
|
; init y
|
|
call rand
|
|
cdq
|
|
;xor dx, dx
|
|
mov ebx, SCREEN_HEIGHT
|
|
div ebx
|
|
shl edx, 6
|
|
mov [4+global_y], edx
|
|
.dont_re_init_globals:
|
|
; init x
|
|
mov eax, [4+global_x]
|
|
mov [ebp+X_OFFSET], eax
|
|
; init y
|
|
mov eax, [4+global_y]
|
|
mov [ebp+Y_OFFSET], eax
|
|
; init x speed
|
|
call rand
|
|
and eax, 31
|
|
sub eax, 15
|
|
;shl ax, 6
|
|
mov [ebp+X_SPEED_OFFSET], eax
|
|
; init y speed
|
|
call rand
|
|
and eax, 31
|
|
sub eax, 15
|
|
;shl ax, 6
|
|
mov [ebp+Y_SPEED_OFFSET], eax
|
|
; init color
|
|
; mov ax, 255
|
|
;call rand
|
|
;and ax, 0xFF
|
|
mov [ebp+COLOR_OFFSET], dword 255;ax
|
|
ret
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; Misc. Functions
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
rand:
|
|
mov eax, [8+seed]
|
|
imul eax, 214013
|
|
add eax, 2531011
|
|
mov [8+seed], eax
|
|
shr eax, 16
|
|
ret
|
|
|
|
; DATA AREA
|
|
|
|
; Application Title
|
|
labelt db 'Firework demo',0
|
|
;labelt db 'Matrix demo',0
|
|
|
|
;seed: dd 0
|
|
;global_x: dd 160*64
|
|
;global_y: dd 100*64
|
|
sub_mask: dd 0x01010101, 0x01010101
|
|
; x, y, x_speed, y_speed, color
|
|
particles: times NUM_PARTS dd 0, 0, 0, 0, 0
|
|
blur_right_flag: dd 0
|
|
;include 'Dex.inc'
|
|
I_END:
|
|
proc_info process_information
|
|
pal rb 256*4 ;dup(0)
|
|
;pal dd 256 dup(0)
|
|
;buffer rb 1024*64
|
|
buffer rb SCREEN_WIDTH*SCREEN_HEIGHT
|
|
|