program Skeleton {
section module {
sdl,
std
}
section data {
int rax = 0
int rbx = 0
int rcx = 0
int rdx = 0
int rsi = 0
int rdi = 0
int r8 = 0
int r9 = 0
int r10 = 0
int r11 = 0
int r12 = 0
ptr arg0 = null
string str_0 = "Hello, World"
ptr title = null
int running = 0
int event_type_result = 0
int window_id = 0
int renderer = 0
int render_i = 0
int render_z = 0
ptr init_title = null
int init_x = 0
int init_y = 0
int init_w = 0
int init_h = 0
int __funcret_init = 0
}
section code {
start:
mov title, str_0
mov arg0, title
mov rbx, 100
mov rcx, 100
mov rdx, 1280
mov rsi, 720
call PROC_init
mov running, 1
WHILE_0:
cmp running, 1
jne ENDWHILE_1
WHILE_4:
invoke poll_event
return rcx
cmp rcx, 0
je ENDWHILE_5
invoke get_event_type
return rsi
mov event_type_result, rsi
cmp event_type_result, 256
jne ELSE_8
mov running, 0
ELSE_8:
cmp event_type_result, 768
jne ELSE_12
invoke get_key_code
return r9
cmp r9, 27
jne ELSE_12
mov running, 0
ELSE_12:
jmp WHILE_4
ENDWHILE_5:
mov r9, 0
mov r10, 0
mov r11, 0
mov r12, 255
invoke set_draw_color, renderer, r9, r10, r11, r12
invoke clear, renderer
push rbx
push rcx
push rdx
push rsi
push rdi
push r8
call PROC_render
pop r8
pop rdi
pop rsi
pop rdx
pop rcx
pop rbx
invoke present, renderer
jmp WHILE_0
ENDWHILE_1:
push rbx
push rcx
push rdx
push rsi
push rdi
push r8
call PROC_cleanup
pop r8
pop rdi
pop rsi
pop rdx
pop rcx
pop rbx
done
function PROC_render:
mov render_z, 0
FOR_20:
cmp render_z, 22
jg ENDFOR_21
mov render_i, 0
FOR_23:
cmp render_i, 40
jg ENDFOR_24
invoke rand
return rbx
mov rcx, rbx
mod rcx, 255
invoke rand
return rdx
mov rsi, rdx
mod rsi, 255
invoke rand
return rdi
mov r8, rdi
mod r8, 255
mov r9, 255
invoke set_draw_color, renderer, rcx, rsi, r8, r9
mov rcx, render_i
mul rcx, 32
mov rsi, render_z
mul rsi, 32
mov r8, 32
mov r9, 32
invoke fill_rect, renderer, rcx, rsi, r8, r9
FOR_CONTINUE_25:
add render_i, 1
jmp FOR_23
ENDFOR_24:
FOR_CONTINUE_22:
add render_z, 1
jmp FOR_20
ENDFOR_21:
PROC_END_render:
ret
function PROC_init:
mov init_title, arg0
mov init_x, rbx
mov init_y, rcx
mov init_w, rdx
mov init_h, rsi
invoke init
return rbx
mov __funcret_init, rbx
cmp __funcret_init, 0
je ELSE_26
exit 0
ELSE_26:
mov rsi, 4
invoke create_window, title, init_x, init_y, init_w, init_h, rsi
return rdx
mov window_id, rdx
mov rsi, 0
sub rsi, 1
cmp window_id, rsi
jne ELSE_30
invoke quit
exit 0
ELSE_30:
mov r8, 0
sub r8, 1
mov r10, 2
invoke create_renderer, window_id, r8, r10
return r9
mov renderer, r9
mov r8, 0
sub r8, 1
cmp renderer, r8
jne ELSE_34
invoke destroy_window, window_id
invoke quit
exit 0
ELSE_34:
invoke get_ticks
return r9
invoke srand, r9
PROC_END_init:
ret
function PROC_cleanup:
invoke destroy_renderer, renderer
invoke destroy_window, window_id
invoke quit
PROC_END_cleanup:
ret
}
}