program RandomSquares {
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
string str_0 = "failed to init SDL"
string str_1 = "sdl init passed"
string str_2 = "Hello SDL"
string str_3 = "failed to create window"
string str_4 = "window created"
string str_5 = "failed to create renderer"
string str_6 = "renderer created"
string str_7 = "cleaned up"
string fmt_str = "%s "
string newline = "\n"
int window_id = 0
int renderer = 0
int event_type_result = 0
int running = 0
int color_value_r = 0
int color_value_g = 0
int color_value_b = 0
int render_z = 0
int render_i = 0
int __funcret_init = 0
}
section code {
start:
call PROC_init
mov running, 1
WHILE_0:
cmp running, 0
je ENDWHILE_1
WHILE_2:
invoke poll_event
return rbx
cmp rbx, 0
je ENDWHILE_3
invoke get_event_type
return rdx
mov event_type_result, rdx
cmp event_type_result, 256
jne ELSE_6
mov running, 0
ELSE_6:
cmp event_type_result, 768
jne ELSE_10
invoke get_key_code
return r8
cmp r8, 27
jne ELSE_10
mov running, 0
ELSE_10:
jmp WHILE_2
ENDWHILE_3:
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
mov r9, 1
invoke delay, r9
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_18:
cmp render_z, 30
jg ENDFOR_19
mov render_i, 0
FOR_21:
cmp render_i, 20
jg ENDFOR_22
invoke rand
return rbx
mov color_value_r, rbx
mod color_value_r, 255
invoke rand
return rdx
mov color_value_g, rdx
mod color_value_g, 255
invoke rand
return rdi
mov color_value_b, rdi
mod color_value_b, 255
mov r9, 255
invoke set_draw_color, renderer, color_value_r, color_value_g, color_value_b, r9
mov r9, render_i
mul r9, 32
mov r10, render_z
mul r10, 16
mov r11, 32
mov r12, 16
invoke fill_rect, renderer, r9, r10, r11, r12
FOR_CONTINUE_23:
add render_i, 1
jmp FOR_21
ENDFOR_22:
FOR_CONTINUE_20:
add render_z, 1
jmp FOR_18
ENDFOR_19:
PROC_END_render:
ret
function PROC_init:
invoke init
return rbx
mov __funcret_init, rbx
cmp __funcret_init, 0
je ELSE_24
print fmt_str, str_0
print newline
exit 0
jmp ENDIF_25
ELSE_24:
print fmt_str, str_1
print newline
ENDIF_25:
mov rsi, 100
mov rdi, 100
mov r8, 640
mov r9, 480
mov r10, 4
invoke create_window, str_2, rsi, rdi, r8, r9, r10
return rdx
mov window_id, rdx
mov rsi, 0
sub rsi, 1
cmp window_id, rsi
jne ELSE_28
print fmt_str, str_3
print newline
invoke quit
exit 0
jmp ENDIF_29
ELSE_28:
print fmt_str, str_4
print newline
ENDIF_29:
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_32
print fmt_str, str_5
print newline
invoke destroy_window, window_id
invoke quit
exit 0
jmp ENDIF_33
ELSE_32:
print fmt_str, str_6
print newline
ENDIF_33:
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
print fmt_str, str_7
print newline
PROC_END_cleanup:
ret
}
}