Adds window creation

sdl.asm

@@ -1,7 +1,6 @@
 
 EXTERN SDL_Init
 Extern SDL_Quit
-Extern SDL_SetVideoMode
 Extern SDL_Delay
 Extern SDL_OpenAudio
 Extern SDL_PauseAudio
@@ -10,10 +9,17 @@ Extern SDL_GetError
 
 %ifdef SDL1
 	%define SDL_QUIT 0x0C
+	Extern SDL_SetVideoMode
 %endif
 %ifdef SDL2
+	; events
 	%define SDL_QUIT 0x100
 	%define SDL_AUDIODEVICEADDED 0x1100
+	; values
+	%define SDL_WINDOWPOS_UNDEFINED_MASK 0x1FFF0000
+	%define SDL_WINDOWPOS_UNDEFINED SDL_WINDOWPOS_UNDEFINED_MASK | 0 ; display 0
+	; function
+	Extern SDL_CreateWindow
 %endif
 %ifdef MIX_AUDIO
 	Extern SDL_MixAudio

yaglitch.asm

@@ -70,6 +70,7 @@ section .data
 	def_str bigline_error, {"Line with more than 16 tokens !", 0xA}
 	def_str nl_error, {"Character \n is not the last one", 0xA}
 	def_str badop_error, {"Bad OP", 0xA}
+	window_title: db "Yaglitch", 0x0
 
 section .bss
 
@@ -353,29 +354,39 @@ sdl_init:
 	mov rdi, audiospec_wanted
 	mov rsi, audiospec_recv
 	call SDL_OpenAudio
-dbginit:
-	; 256*256 window
-	;mov rdi, 256
-	;mov rsi, 255
-	;mov rdx, 32
-	;;mov rcx, SDL_SWSURFACE
-	;xor rcx, rcx
-	;call SDL_SetVideoMode
+	; video init 256*256 window
+	%ifdef SDL1
+		mov rdi, 256
+		mov rsi, 256
+		mov rdx, 32
+		;mov rcx, SDL_SWSURFACE
+		xor rcx, rcx
+		call SDL_SetVideoMode
+	%endif
+	%ifdef SDL2
+		mov rdi, window_title
+		mov rsi, SDL_WINDOWPOS_UNDEFINED
+		mov rdx, SDL_WINDOWPOS_UNDEFINED
+		mov rcx, 256
+		mov r8, 256
+		xor r9, r9
+		call SDL_CreateWindow
+	%endif
+	%ifdef MIX_AUDIO
+		; init callback heap infos
+		mov rax, 0xc ; brk
+		xor rdi, rdi ; get heap start addr
+		mov [cllbck_heapsz], rdi
+		syscall
+		cmp rax, -1
+		je exit_fatal
+		mov [cllbck_heap], rax
+	%endif
 
 	audio_start:
 		;start audio
 		xor rdi, rdi
 		call SDL_PauseAudio
-%ifdef MIX_AUDIO
-	; init callback heap infos
-	mov rax, 0xc ; brk
-	xor rdi, rdi ; get heap start addr
-	mov [cllbck_heapsz], rdi
-	syscall
-	cmp rax, -1
-	je exit_fatal
-	mov [cllbck_heap], rax
-%endif
 
 loop_event:
 	xor rdi, rdi